Q
3 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/09/20. PRINTED = 24/05/27. 14.38.33.
0                   UJN          =  FTN5871     FAMILY    = CYBER         JOB ORIGIN    = INTERACTIVE.        
                    CREATING JSN =  AAFM        USER NAME = INSTALL       SERVICE CLASS = INTERACTIVE.                  
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA   IIIIIIIIIIII   AAAAAAAAAA    AAAAAAAAAA   FFFFFFFFFFFF  NN        NN  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  IIIIIIIIIIII  AAAAAAAAAAAA  AAAAAAAAAAAA  FFFFFFFFFFFF  NNN       NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NNNN      NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN NN     NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN  NN    NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN   NN   NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN    NN  NN  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  FFFFFFFF      NN     NN NN  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  FFFFFFFF      NN      NNNN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN       NNN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN        NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN        NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN        NN  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  FF            NN        NN  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  FF            NN        NN  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  FF            NN        NN  
Q
T
2  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
2 
R
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   1    
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   2    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          HISTORY   *COMDKS*  CCOMRPV   CGHCDTD   CGHCSTD   COMACPU   COMADEF   COMAERR 
          COMAMGM   COMAQCG   COMCMCS   COMCPAC   COMCSBM   COMDDMT   COMFCIP   COMFDST 
          COMFECB   COMFFEI   COMFERR   COMFFFN   COMFGFD   COMFGOI   COMFICP   COMFISA 
          COMFITS   COMFMAV   COMFMFP   COMFOSC   COMFPLI   COMFRNC   COMFROR   COMFSCB 
          COMFSCS   COMFSID   COMFSIM   COMFSKL   COMFSMD   COMFSMK   COMFSSH   COMFTTL 
          COMFUSE   COMSPSU   COMFWIN   COMSEIS   COMSERR   COMSIOC   COMSLBT   COMSQCG 
          COMSQRF   COMSPBD   COMSSYM   COMSSYC   COMSTAB   COMSTAD   COMSTAS   DEFINS  
          FSCALE    HCDEFS    FWACOM    OPTIONS   PARSKEL   SKEL      SKOP      SKPCONQ 
          SKPSET    SMACROS   SYMDEFS   ZZZCOM    *TEXTS*   FTN5TXT   CWEOR1    *FTN*   
          FTN       UTILITY   PUC       QCGLINK   CCGLINK   CSNAP     PEM       ALLOC   
          IDP       INIT00    INIT10    INIT20    INIT21    INIT23    *FRONT*   FEC     
          FERRS     FLINK     FSNAP     LEX       HEADER    KEY       CDDIR     DATA    
          DECL      TYPE      FMT       IO        PAR       CONRED    STMTF     LABEL   
          *QCG*     QCGC      QSKEL     FUN       REG       GEN       CWEOR2    *REAR*  
          REC       RERRS     RLINK     RSNAP     FAS       ZEROLNK   MAP       LIST    
          CWEOR3    *BRIDGE*  CCGC      BRIDGE    CSKEL     FSKEL     INIT22    CWEOR4  
          *FRAME*   OVL00     OVL10     OVL20     OVL21     OVL22     OVL23     CWEOR5  
          FC5A108   *L498*    FC5A113   FC5A114   *L505*    F2950F5   FC5A107   FC5A109 
          FC5A110   FC5A111   FC5A112   FC5A115   FC5A116   FC5A118   FC5A119   FC5A120 
          FC5A121   FC5A122   FC5A124   FC5A125   FC5A126   FC5A127   FC5A128   FC5A129 
          FC5A130   FC5A131   FC5A132   FC5A133   FC5A135   FC5A136   *L508*    F2950F5A
          FC5A138   FC5A139   FC5A140   FC5A141   FC5A143   FC5A144   FC5A145   FC5A146 
          FC5A147   FC5A148   FC5A150   FC5A151   FC5A152   FC5A155   FC5A156   FC5A157 
          FC5A158A  FC5A161   FC5A163   FC5A164   FC5A165   FC5A166   FC5A167   FC5A171A
          FC5A172   FC5A173   FC5A174   FC5A177   FC50001   FC50005   FC50007   FC50010 
          FC50011   FC50014   FC50015   *L518*    FC5*80    FC5A168A  FC5A180   FC5A181 
          FC5A182   FC5A183   FC5A184   FC5A185   FC5A186   FC5A187   FC5A188   FC5A189 
          FC5A190   FC5A191   FC5A192   FC5A194   FC5A195   FC5A196   FC5A197   FC5A203 
          FC5A204   FC5A209   FC50022   FC50023   FC50026   FC50029   FC50032   FC50035 
          FC50041   *L528*    F1037F5   FC5A206   FC5A207   FC5A211   FC5A213   FC5A214 
          FC5A216   FC5A217   FC5A218   FC5A219   FC5A220   FC5A221   FC5A222   FC5A224 
          FC5A225   FC5A226   FC5A227   FC5A228   FC5A229   FC5A230   FC5A231   FC5A232 
          FC5A233   FC5A234   FC5A235   FC5A239   FC5A243   FC5A244   FC5A248   FC5A250 
          FC5A251   FC5A252   FC5A253   FC5A254   FC5A255   FC5A257   FC5A258   FC5A261 
          FC5A262   FC5A264   FC5A266   FC5A271   FC50049   FC50050   FC50055   FC50061 
          FC50062   FC50066   FC50067   FC50068   FC50069   FC50084   FC50086   FC50090 
          FC50106   FC50110   FC50128   FC50130   FC50131   FC50136   FC50137   FC50138 
          FC50147   FC50148   FC50156   *L538*    FC5*81    F1037F5A  FC5A246   FC5A247 
          FC5A249   FC5A256   FC5A269   FC5A270   FC5A273   FC5A274   FC5A275   FC5A278 
          FC5A279   FC5A281   FC5A282   FC5A284   FC5A294   FC5A296   FC5A298   FC5A299 
          FC5A302   FC5A304   FC5A312   FC5A314   FC5A315   FC50096   FC50104   FC5A300 
          FC50168   FC50169   FC50170   FC50172   FC50180   FC50182   FC50199   FC50201 
          FC50207   FC50216   FC50218   FC50221   FC50226   FC50236   FC50237   FC50238 
          FC50243   FC50249   FC50250   FC50251   FC50265   FC50275   FC50293   FC50314 
          FC50317   FC50322   *L552*    FC5A310   FC5A317   FC5A321   FC5A323   FC5A325 
          FC5A330   FC5A333   FC5A335   FC5A337   FC5A338   FC5A341   FC5A343   FC5A345 
          FC5A348   FC50252   FC50264   FC50267   FC50281   FC50297   FC50299   FC50318 
          FC50336   FC50345   FC50353   FC50372   FC50374   FC50377   FC50378   FC50387 
          FC50391   FC50392   FC50396   FC50409   FC50417   FC50437   FC50438   FC50443 
          FC50445   FC50451   FC50452   FC50457   FC50460   FC50474   FC50475   FC50480 
          *L564*    FC5*82    F1039     FC5A360   FC5A369   FC5A370   FC5A371   FC5A373 
          FC5A374   FC50239   FC50326   FC50408   FC50413   FC50478   FC50483   FC50488 
          FC50496   FC50512   FC50514   FC50515   FC5A339   FC5A390   FC50518   FC50533 
          FC50545   FC50553   FC50554   FC50555   FC50557   FC50558   FC50560   FC50562 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   3    
  
          FC50567   FC50570   FC50573   FC50586   FC50592   FC50593   FC50596   *L577*  
          FC5A346   FC5A375   FC5A380   FC5A381   FC5A385   FC5A386   FC5A388   FC5A391 
          FC5A395   FC5A399   FC5A404   FC50464   FC50587   FC50594   FC50600   FC50603 
          FC50606   FC50608   FC50610   FC50612   FC50616   FC50625   FC50626   FC50627 
          FC50628   FC50629   FC50632   FC50634   FC50636   FC50642   FC50643   FC50646 
          FC50651   FC50652   FC50656   FC50657   FC50662   FC50664   FC50667   FC50683 
          FC50686   FC50701   FC50703   *L587*    FC5A319   FC5A400   FC5A403   FC5A406 
          FC5A411   FC5A416   FC50189   FC50467   FC50492   FC50620   FC50681   FC50684 
          FC50718   FC50722   FC50728   FC50729   FC50730   FC50731   FC50735   FC50744 
          FC50748   FC50749   FC50755   FC50757   FC50760   FC50761   FC50763   FC50765 
          FC50766   FC50772   FC50773   FC50774   FC50775   FC50776   FC50785   FC50791 
          FC50792   FC50796   FC50797   FC50798   FC50799   FC50806   FC50818   *L601*  
          FC5A414   FC5A415   FC5A420   FC5A421   FC5A422   FC5A426   FC5A427   FC5A428 
          FC5A431   FC50811   FC50825   FC50829   FC50834   FC50842   FC50844   FC50857 
          FC50860   FC50870   FC50875   FC50879   FC50882   FC50883   FC50885   FC50886 
          FC50889   *L617*    FC5A433   FC5A436   FC5A437   FC5A442   FC5A445   FC5A446 
          FC50809   FC50904   FC50905   FC50906   FC50913   FC50915   FC50920   FC50923 
          FC50933   FC50935   FC50941   *L628*    FC5A438   FC5A441   FC5A444   FC5A450 
          FC50946   FC50947   FC50949   FC50950   FC50958   FC50962   FC50964   FC50969 
          FC50985   FC51035   FC51039   FC51048   FC51066   FC51069   FC51073   *L642*  
          FC5A464   FC5A478   FC50956   FC50966   FC50972   FC51002   FC51015   FC51029 
          FC51075   FC51078   FC51082   FC51150   FC51168   FC51193   FC51198   *L650*  
          FC5A460   FC5A471   FC5A480   FC50800   FC50887   FC50982   FC51047   FC51203 
          FC51206   FC51210   FC51232   FC51247   FC51250   FC51277   *L670*    FC5A483 
          FC5A491   FC5A495   FC5A496   FC51322   FC51325   FC51342   FC51344   FC51347 
          FC51351   FC51356   FC51364   FC51377   FC51379   FC51399   FC51413   FC51427 
          *L688*    FC5A511   FC50936   FC51422   FC51454   FC51485   FC51499   *L716*  
          FC5A517   FC5A521   FC51488   FC51490   FC51494   FC51497   FC51501   FC51509 
          FC51512   FC51521   FC51544   *L739*    FC5A522   FC51315   FC51554   FC51555 
          FC51560   FC51564   FC51566   FC51569   FC51572   FC51601   *L780*    FC51609 
          *L797*    *L803*    *L826*    *L840*    *L847*    *L851*    *L859*    *L871*  
          PSRLEVEL
0                 31 PURGED IDENTS WERE FOUND   
  
1UNLABELED OLDPL              DECK LIST AS WRITTEN, IF NEWPL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   4    
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   HISTORY   *COMDKS*  CCOMRPV   CGHCDTD   CGHCSTD   COMACPU   COMADEF 
          COMAERR   COMAMGM   COMAQCG   COMCMCS   COMCPAC   COMCSBM   COMDDMT   COMFCIP 
          COMFDST   COMFECB   COMFFEI   COMFERR   COMFFFN   COMFGFD   COMFGOI   COMFICP 
          COMFISA   COMFITS   COMFMAV   COMFMFP   COMFOSC   COMFPLI   COMFRNC   COMFROR 
          COMFSCB   COMFSCS   COMFSID   COMFSIM   COMFSKL   COMFSMD   COMFSMK   COMFSSH 
          COMFTTL   COMFUSE   COMSPSU   COMFWIN   COMSEIS   COMSERR   COMSIOC   COMSLBT 
          COMSQCG   COMSQRF   COMSPBD   COMSSYM   COMSSYC   COMSTAB   COMSTAD   COMSTAS 
          DEFINS    FSCALE    HCDEFS    FWACOM    OPTIONS   PARSKEL   SKEL      SKOP    
          SKPCONQ   SKPSET    SMACROS   SYMDEFS   ZZZCOM    *TEXTS*   FTN5TXT   WEOR1*  
          *FTN*     FTN       UTILITY   LISTLNK   PUC       QCGLINK   CCGLINK   CSNAP   
          PEM       ALLOC     IDP       INIT00    INIT10    INIT20    INIT21    INIT23  
          *FRONT*   FEC       FERRS     FLINK     FSNAP     LEX       HEADER    KEY     
          CDDIR     DATA      DECL      TYPE      FMT       IO        PAR       CONRED  
          STMTF     LABEL     *QCG*     QCGC      QSKEL     FUN       REG       GEN     
          WEOR2*    *REAR*    REC       RERRS     RLINK     RSNAP     FAS       ZEROLNK 
          MAP       LIST      WEOR3*    *BRIDGE*  CCGC      BRIDGE    CSKEL     FSKEL   
          INIT22    WEOR4*    *FRAME*   OVL00     OVL10     OVL20     OVL21     OVL22   
          OVL23     WEOR5*    COPYWS  
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   5    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - YANK$$$ 
  
          IDENTIFIER               TOTAL    ACTIVE
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY  *COMDECK  HISTORY - UPDATE MODIFICATION HISTORY.                                 HISTORY        1     A     
 HISTORY   FC5A108  ADJUST MINFL IN OPT=0 TO PREVENT 2K MEM IN ALLOC.                      FC5A108        1     A     
 HISTORY            MAH    79/4/27     APPLIES TO FTN5 5.0 .                               FC5A108        2     A     
 HISTORY                                                                                   FC5A108        3     A     
 HISTORY   *L498*    ************************************************                      *L498*         1     A     
 HISTORY   FC5A113  BRIDGE,SKEL,PAR/DTC. DO LOOP OPTIMIZATION WHEN INITIAL = LIMIT         FC5A113        1     A     
 HISTORY            MAP/MAH    79/05/03    APPLIES TO FTN5 5.0                             FC5A113        2     A     
 HISTORY                                                                                   FC5A113        3     A     
 HISTORY   FC5A114  DECL/EQV,MAP/OCEI/OLE/OBM.  FIX EQUIVALENCE PROCESSING                 FC5A114        1     A     
 HISTORY            MAP    79/05/07    APPLIES TO FTN5 5.0                                 FC5A114        2     A     
 HISTORY                                                                                   FC5A114        3     A     
 HISTORY   *L505*    ************************************************                      *L505*         1     A     
 HISTORY   F2950F5  OPTIONS,FAS.  MODIFY INSTALLATION PARAMETERS TO USE HF MICROS.         F2950F5        1     A     
 HISTORY            SPS    79/5/7      APPLIES TO FTN 5.0, CCG.                            F2950F5        2     A     
 HISTORY                                                                                   F2950F5        3     A     
 HISTORY   FC5A107  FTN,PUC/LUS/WOF,INIT00/MIB,MAP/OTH/SRNI,LIST/WCS                       FC5A107        1     A     
 HISTORY            FIX THE PS OPTION. ADD CO.PS FOR COMPILER USE, PASS                    FC5A107        2     A     
 HISTORY            NEGATIVE OF PS= TO COMPASS.                                            FC5A107        3     A     
 HISTORY            MRR    79/04/25    APPLIES TO FTN5 5.0.                                FC5A107        4     A     
 HISTORY                                                                                   FC5A107        5     A     
 HISTORY   FC5A109  MAP/IRB/OCEI/LADR,PUC.   FIX MAP BUGS                                  FC5A109        1     A     
 HISTORY            MAP    79/05/02    APPLIES TO FTN5 5.0                                 FC5A109        2     A     
 HISTORY                                                                                   FC5A109        3     A     
 HISTORY   FC5A110  LEX/CST/TOK=BOC/TOK=BOQ/TOK=ITQ/ILX,FTN5TXT.                           FC5A110        1     A     
 HISTORY            CLEAN UP LEX STRING ERROR PROCESSING                                   FC5A110        2     A     
 HISTORY            MAP    79/04/27    APPLIES TO FTN5 5.0                                 FC5A110        3     A     
 HISTORY                                                                                   FC5A110        4     A     
 HISTORY   FC5A111  FTN5TXT,FERRS,DATA/BDL/STD/C=DVL,IO,PAR/SPE,CONRED/SED                 FC5A111        1     A     
 HISTORY            LABEL/CDI/RBE.  IMPLIED-DO ERROR DETECTION AND RECOVERY.               FC5A111        2     A     
 HISTORY            MAP    79/05/2     APPLIES TO FTN5 5.0                                 FC5A111        3     A     
 HISTORY                                                                                   FC5A111        4     A     
 HISTORY   FC5A112  ALLOC/ADW.  AVOID RJ ALC IN ADW                                        FC5A112        1     A     
 HISTORY            MAH    79/05/02    APPLIES TO FTN5 5.0                                 FC5A112        2     A     
 HISTORY                                                                                   FC5A112        3     A     
 HISTORY   FC5A115  FTN/LOV/IDPCHK,OVL00,OVL10,OVL20.  FIX INTERMIXED COMPASS              FC5A115        1     A     
 HISTORY            MAH    79/04/30    APPLIES TO FTN5 5.0                                 FC5A115        2     A     
 HISTORY                                                                                   FC5A115        3     A     
 HISTORY   FC5P009  FEC/CUF,TYPE,HEADER.   FUNCTION ENTRY POINT DEFINITION                 FC5A116        1     A     
 HISTORY            ERROR DETECTION                                                        FC5A116        2     A     
 HISTORY            MAP    79/05/08    APPLIES TO FTN5 5.0                                 FC5A116        3     A     
 HISTORY                                                                                   FC5A116        4     A     
 HISTORY   FC5A118  STMTF.   ALLOW E AND D TYPE CONSTANTS TO APPEAR IN                     FC5A118        1     A     
 HISTORY            STATEMENT FUNCTION DEFINITIONS                                         FC5A118        2     A     
 HISTORY            MAP    79/05/09    APPLIES TO FTN5 5.0                                 FC5A118        3     A     
 HISTORY                                                                                   FC5A118        4     A     
 HISTORY   FC5A119  FTN,INIT00/MIB/GOI,INIT10/GOI,COMFCIP,FTN5TXT                          FC5A119        1     A     
 HISTORY            ECS IMPLEMENTATION DETAILS.                                            FC5A119        2     A     
 HISTORY            MAP    79/05/16    APPLIES TO FTN5 5.0                                 FC5A119        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   6    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC5A119        4     A     
 HISTORY   FC5A120  CONRED/DEC   REMOVE SPECIAL CONVERSION MODE WHEN                       FC5A120        1     A     
 HISTORY            *DEC* IS CALLED FROM DATA.                                             FC5A120        2     A     
 HISTORY            MAP    79/05/16    APPLIES TO FTN5 5.0                                 FC5A120        3     A     
 HISTORY                                                                                   FC5A120        4     A     
 HISTORY   FC5A121  FAS. CORRECTLY SET TYPE FIELD OF LABEL ACT. PAR.                       FC5A121        1     A     
 HISTORY            MAH    79/05/18    APPLIES TO FTN5 5.0 .                               FC5A121        2     A     
 HISTORY                                                                                   FC5A121        3     A     
 HISTORY   FC5A122  PAR/DTC  OUTPUT FATAL FOR ZERO DO LOOP INCREMENT.                      FC5A122        1     A     
 HISTORY            MAP/MAH     79/05/23    APPLIES TO FTN5 5.0                            FC5A122        2     A     
 HISTORY                                                                                   FC5A122        3     A     
 HISTORY   FC5A124  LEX/CAK,LABEL/ALU,FLINK    PERFORMANCE IMPROVEMENTS.                   FC5A124        1     A     
 HISTORY            MAP/MAH    79/05/18    APPLIES TO FTN5 5.0                             FC5A124        2     A     
 HISTORY                                                                                   FC5A124        3     A     
 HISTORY   FC5A125  LABEL/CDI,IO/NDC/BUF,PAR   FIX BAD MAP OUTPUT.                         FC5A125        1     A     
 HISTORY            MAP    79/05/22    APPLIES TO FTN5 5.0                                 FC5A125        2     A     
 HISTORY                                                                                   FC5A125        3     A     
 HISTORY   FC5A126  COMFERR, FERRS, LEX/KEYW, KEY/PAU, DECL/DIR/EQU, TYPE/CSK,             FC5A126        1     A     
 HISTORY            FMT/AED, REC/END/SSA.                                                  FC5A126        2     A     
 HISTORY            CLEAN UP SUNDRY DIAGNOSTICS.                                           FC5A126        3     A     
 HISTORY            MRR    79/06/01    APPLIES TO FTN5 5.0                                 FC5A126        4     A     
 HISTORY                                                                                   FC5A126        5     A     
 HISTORY   FC5A127  FTN5TXT, KEY/EIF/FIB, LABEL/FBS. ELIMINATE UNNEEDED GENERATED          FC5A127        1     A     
 HISTORY            LABEL ON BLOCK IF.                                                     FC5A127        2     A     
 HISTORY            MRR    79/06/21    APPLIES TO FTN5 5.0                                 FC5A127        3     A     
 HISTORY                                                                                   FC5A127        4     A     
 HISTORY   FC5A128  ALLOC,CCGLINK,COMSTAD,COMSTAS,FEC,FTN5TXT,PUC,QCGLINK,                 FC5A128        1     A     
 HISTORY            REC,FUN,REG,SKEL,QCGC,DECL.                                            FC5A128        2     A     
 HISTORY            MAINTAIN BIT VECTOR FOR MANAGED TABLES TO INDICATE                     FC5A128        3     A     
 HISTORY            RELATIVE IMPORTANCE DYNAMICALLY.                                       FC5A128        4     A     
 HISTORY            SPS/MAH/MAP/MRR    79/06/21    APPLIES TO FTN5 5.0 .                   FC5A128        5     A     
 HISTORY                                                                                   FC5A128        6     A     
 HISTORY   FC5A129  FEC. FIX LEVEL 0 PROCESSING IN OPT=0.                                  FC5A129        1     A     
 HISTORY   MAH      79/06/11           APPLIES TO FTN 5.0 .                                FC5A129        2     A     
 HISTORY                                                                                   FC5A129        3     A     
 HISTORY   FC5A130  REC. AVOID BAD I/O REQUEST IN FAS ON 176.                              FC5A130        1     A     
 HISTORY   MAH      79/06/12           APPLIES TO FTN 5.0 .                                FC5A130        2     A     
 HISTORY                                                                                   FC5A130        3     A     
 HISTORY   FC5A131  FAS/KIO. SET *IND* NOT *VAR* ON APLIST ITEM FOR                        FC5A131        1     A     
 HISTORY            BUFFER FWA/LWA OR ENCODE/DECODE FWA THAT IS ARRAY                      FC5A131        2     A     
 HISTORY            ELEMENT.                                                               FC5A131        3     A     
 HISTORY   MAH      06/15/79           APPLIES TO FTN5 5.0 .                               FC5A131        4     A     
 HISTORY                                                                                   FC5A131        5     A     
 HISTORY   FC5A132  FAS,DATA,BRIDGE,GEN,LIST,COMSPSU,COMFWIN,FTN5TXT,PUC,ALLOC             FC5A132        1     A     
 HISTORY            PAR,COMFGOI,INIT00,DECL. ISSUE XTEXT AND XREPL TABLES                  FC5A132        2     A     
 HISTORY            INSTEAD OF TEXT AND REPL TABLES, MISCELLANEOUS FIXES.                  FC5A132        3     A     
 HISTORY            MAP/MAH   79/06/04    APPLIES TO FTN5 5.0                              FC5A132        4     A     
 HISTORY                                                                                   FC5A132        5     A     
 HISTORY   FC5A133  LABEL    ELIMINATE SPURIOUS FATAL IN IMPLIED DO.                       FC5A133        1     A     
 HISTORY            MAP    79/06/07    APPLIES TO FTN5 5.0                                 FC5A133        2     A     
 HISTORY                                                                                   FC5A133        3     A     
 HISTORY   FC5A135  FEC/CLU.  AVOID SPURIOUS LEVEL DIAGNOSTICS.                            FC5A135        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   7    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   MAH      06/21/79           APPLIES TO FTN 5.0 .                                FC5A135        2     A     
 HISTORY                                                                                   FC5A135        3     A     
 HISTORY   FC5A136  IO/IDC.  FIX BUG IN DO-COLLAPSE MECHANISM.                             FC5A136        1     A     
 HISTORY   MAP      06/25/79           APPLIES TO FTN5 5.0.                                FC5A136        2     A     
 HISTORY                                                                                   FC5A136        3     A     
 HISTORY   *L508*    ************************************************                      *L508*         1     A     
 HISTORY   F2950F5A PUC,CCGC,GEN,COMFISA,COMFOSC,SKEL.  RJ AFTER ENTRY POINT CODE          F2950F5A       1     A     
 HISTORY            MODIFICATION.                                                          F2950F5A       2     A     
 HISTORY            MAH    79/07/05    APPLIES TO FTN 5.0.                                 F2950F5A       3     A     
 HISTORY                                                                                   F2950F5A       4     A     
 HISTORY   FC5A138  PAR/A=DO,LABEL/CDI.  DIAGNOSE TOO FEW DO PARAMETERS ON IMPLIED         FC5A138        1     A     
 HISTORY            DO.  OUTPUT INITIALIZE CODE AFTER DO PARAMETER EVALUATION.             FC5A138        2     A     
 HISTORY            MRR/MAH 79/07/10   APPLIES TO FTN 5.0.                                 FC5A138        3     A     
 HISTORY                                                                                   FC5A138        4     A     
 HISTORY   FC5A139  REC/SSA.  DIAGNOSE VARIABLE LENGTH GREATER THAN 2**17-1.               FC5A139        1     A     
 HISTORY            MRR    79/07/10    APPLIES TO FTN 5.0.                                 FC5A139        2     A     
 HISTORY                                                                                   FC5A139        3     A     
 HISTORY   FC5A140  SKEL, PAR/A=ARRAY, REG/O=PAR, BRIDGE/GAR/P=PAR.  ELIMINATE             FC5A140        1     A     
 HISTORY            REGISTER DEADLOCK WITH SUBSCRIPTED SUBSCRIPTS.                         FC5A140        2     A     
 HISTORY            MRR/MAH 79/07/13   APPLIES TO FTN 5.0.                                 FC5A140        3     A     
 HISTORY                                                                                   FC5A140        4     A     
 HISTORY   FC5A141  FTN5TXT,QCGLINK/BBC,FEC,FLINK,IO/CML/IOL/IDC                           FC5A141        1     A     
 HISTORY            PAR/PAR.VAR/PAR.SBS/TRE,LABEL.                                         FC5A141        2     A     
 HISTORY            REDUCE THE NUMBER OF SITUATIONS IN WHICH AN I/O                        FC5A141        3     A     
 HISTORY            INPUT LIST MUST BE INTERRUPTED.                                        FC5A141        4     A     
 HISTORY            MAP    79/07/12    APPLIES TO FTN 5.0.                                 FC5A141        5     A     
 HISTORY                                                                                   FC5A141        6     A     
 HISTORY   FC5A143  IO/FMS/FPS/OST/LST.  OUTPUT DEFAULT SKIP I/O CONTROL WHEN              FC5A143        1     A     
 HISTORY            IOSTAT= IS PRESENT AND ERR= ABSENT.                                    FC5A143        2     A     
 HISTORY            MRR    79/07/19    APPLIES TO FTN 5.0.                                 FC5A143        3     A     
 HISTORY                                                                                   FC5A143        4     A     
 HISTORY   FC5A144  PUC,PEM.  FIX LONG DIAGNOSTIC DICTIONARY WORDS SO THAT THE             FC5A144        1     A     
 HISTORY            CONTINUATION CHARACTER WORKS WITH BOTH 64 AND 63 CHARACTER             FC5A144        2     A     
 HISTORY            SETS.                                                                  FC5A144        3     A     
 HISTORY            MRR    79/07/18    APPLIES TO FTN 5.0.                                 FC5A144        4     A     
 HISTORY                                                                                   FC5A144        5     A     
 HISTORY   FC5A145  HEADER/PPA,FERRS,COMSERR.  MAKE PPA BETTER AND SHORTER.                FC5A145        1     A     
 HISTORY            MAP    79/07/13    APPLIES TO FTN 5.0.                                 FC5A145        2     A     
 HISTORY                                                                                   FC5A145        3     A     
 HISTORY   FC5A146  COMCPAC/CFV, INIT00/FTN.  DIAGNOSE NUMERIC FILE NAME ON                FC5A146        1     A     
 HISTORY            CONTROL STATEMENT UNDER NOS/BE OR SCOPE 2.                             FC5A146        2     A     
 HISTORY            MRR    79/07/23    APPLIES TO FTN 5.0.                                 FC5A146        3     A     
 HISTORY                                                                                   FC5A146        4     A     
 HISTORY   FC5A147  DATA/BDL.  DETECT OMITTED VARIABLE LIST IN DATA STATEMENT,             FC5A147        1     A     
 HISTORY            THEREBY ELIMINATING INFINITE LOOP IN *RDW*.                            FC5A147        2     A     
 HISTORY            MAP    79/07/25    APPLIES TO FTN 5.0.                                 FC5A147        3     A     
 HISTORY                                                                                   FC5A147        4     A     
 HISTORY   FC5A148  KEY/EIF.  AVOID SPURIOUS NOPATH DIAGNOSTICS.                           FC5A148        1     A     
 HISTORY            MRR    79/07/25    APPLIES TO FTN5.0.                                  FC5A148        2     A     
 HISTORY                                                                                   FC5A148        3     A     
 HISTORY   FC5A150  SKEL,BRIDGE,PAR,FLINK,QCGLINK,CONRED,PUC,LISTLNK,                      FC5A150        1     A     
 HISTORY            FEC,ALLOC,ZEROLNK,OVL10,OVL20.                                         FC5A150        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   8    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            CHANGE DIVIDE BY CONSTANT TO MULTIPLY BY RECIPROCAL,                   FC5A150        3     A     
 HISTORY            OPTIMIZE COMPLEX/REAL, RE-ASSOCIATE A*B*C*D TO BECOME                  FC5A150        4     A     
 HISTORY            (A*B)*(C*D), MAKE (0,0) OVERLAY SHORTER.                               FC5A150        5     A     
 HISTORY            MAH,MAP            79/7/26     APPLIES TO FTN 5.0.                     FC5A150        6     A     
 HISTORY                                                                                   FC5A150        7     A     
 HISTORY   FC5A151  FUN. AVOID MODE1 ON I/O OF CHARACTER FORMAL ARRAY.                     FC5A151        1     A     
 HISTORY            MAH    79/7/26     APPLIES TO FTN 5.0.                                 FC5A151        2     A     
 HISTORY                                                                                   FC5A151        3     A     
 HISTORY   FC5A152  DATA.  AVOID LOSS OF CONSTANT TABLE ENTRIES MADE IN QCG.               FC5A152        1     A     
 HISTORY            MRR    79/07/27    APPLIES TO FTN 5.0.                                 FC5A152        2     A     
 HISTORY                                                                                   FC5A152        3     A     
 HISTORY   FC5A155  COMFCIP,INIT00/MIB.  DETECT INTERACTIVE DEBUG WITHOUT OPT=0.           FC5A155        1     A     
 HISTORY            MAP    79/07/31    APPLIES TO FTN 5.0.                                 FC5A155        2     A     
 HISTORY                                                                                   FC5A155        3     A     
 HISTORY   FC5A156  FERRS, PAR/POP.EXP/PKX, DECL/PRM, CDDIR/IFD, TYPE/CCL,                 FC5A156        1     A     
 HISTORY            CONRED/DEC.    DIAGNOSE REAL EXPONENTIATION ON PARAMETER               FC5A156        2     A     
 HISTORY            DECLARATION.                                                           FC5A156        3     A     
 HISTORY            MRR/MAP    79/08/01    APPLIES TO FTN 5.0.                             FC5A156        4     A     
 HISTORY                                                                                   FC5A156        5     A     
 HISTORY   FC5A157  CDDIR,KEY.  ELIMINATE SPURIOUS DIAGNOSTIC FROM *IF* PROCESSOR,         FC5A157        1     A     
 HISTORY            FIX BUG IN C$ DIRECTIVE PROCESSING.                                    FC5A157        2     A     
 HISTORY            MAP    79/08/02    APPLIES TO FTN 5.0.                                 FC5A157        3     A     
 HISTORY                                                                                   FC5A157        4     A     
 HISTORY   FC5A158  CCOMRPV,COMCPAC,COMFCIP,COMFWIN,OPTIONS,FTN5TXT,FTN,UTILITY,           FC5A158A       1     A     
 HISTORY            PUC,QCGLINK,ALLOC,IDP,INIT00,INIT10,INIT20,INIT21,INIT22,              FC5A158A       2     A     
 HISTORY            CONRED,INIT23,PAR,CCGLINK,OVL10,OVL20.  SCOPE 2 SUPPORT CODE.          FC5A158A       3     A     
 HISTORY   FC5A158A CORRECTS LOSS OF *ET* PARAMETER AND PROBLEMS CRITICAL TO               FC5A158A       4     A     
 HISTORY            SCOPE 2 ONLY.                                                          FC5A158A       5     A     
 HISTORY            MAP    79/08/16     APPLIES TO FTN 5.0 .                               FC5A158A       6     A     
 HISTORY                                                                                   FC5A158A       7     A     
 HISTORY   FC5A161  FMT.  PREVENT SPURIOUS RECORD LENGTH DIAGNOSTICS FOR                   FC5A161        1     A     
 HISTORY            FORMATS WITH SLASHES IN REPEATED PAREN GROUPS.                         FC5A161        2     A     
 HISTORY            MAH/MRR  79/08/30   APPLIES TO FTN 5.0.                                FC5A161        3     A     
 HISTORY                                                                                   FC5A161        4     A     
 HISTORY   FC5A163  COMFFEI.  PREVENT COLONS IN CHARACTER SUPPORT ROUTINE                  FC5A163        1     A     
 HISTORY            NAMES ON 63-CHARACTER SET SYSTEMS.                                     FC5A163        2     A     
 HISTORY            MAH    79/08/22     APPLIES TO FTN 5.0 .                               FC5A163        3     A     
 HISTORY                                                                                   FC5A163        4     A     
 HISTORY   FC5A164  SKEL,FTN,PUC,INIT00,FERRS,PAR,BRIDGE.                                  FC5A164        1     A     
 HISTORY            DETECT INVALID CONSTANT SUBSTRING.                                     FC5A164        2     A     
 HISTORY            ALLOW PD= VALUE TO BE COMMUNICATED TO COMPASS.                         FC5A164        3     A     
 HISTORY            DIAGNOSE USE OF EXTERNAL FUNCTION NAME IN EXPRESSION.                  FC5A164        4     A     
 HISTORY            MAP    79/08/22     APPLIES TO FTN 5.0 .                               FC5A164        5     A     
 HISTORY                                                                                   FC5A164        6     A     
 HISTORY   FC5A165  IO,FUN. ALLOW ZERO-TERMINATED LIST-DIRECTED OUTPUT.                    FC5A165        1     A     
 HISTORY            MAP    79/08/22     APPLIES TO FTN 5.0 .                               FC5A165        2     A     
 HISTORY                                                                                   FC5A165        3     A     
 HISTORY   FC5A166  GEN,QCGC,COMSQCG. PREVENT LOSS OF BREAK AT LABEL WHICH                 FC5A166        1     A     
 HISTORY            IS BRANCHED TO (NOT FALLEN INTO).                                      FC5A166        2     A     
 HISTORY            MAH    79/08/27     APPLIES TO FTN 5.0 .                               FC5A166        3     A     
 HISTORY                                                                                   FC5A166        4     A     
 HISTORY   FC5A167  PAR.  PREVENT MODE OUT IN PAR ON   VAR  (  EOS  .                      FC5A167        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE   9    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MAP    79/08/27    APPLIES TO FTN 5.0 .                                FC5A167        2     A     
 HISTORY                                                                                   FC5A167        3     A     
 HISTORY   FC5A171  PAR,FERRS,IO,FAS,LIST.  ELIMINATE THE *READ(C)* AMBIGUITY.             FC5A171A       1     A     
 HISTORY   FC5A171A CORRECTS REGISTER ERROR CRITICAL TO SCOPE 2 ONLY.                      FC5A171A       2     A     
 HISTORY            MAP    79/09/07    APPLIES TO FTN 5.0 .                                FC5A171A       3     A     
 HISTORY                                                                                   FC5A171A       4     A     
 HISTORY   FC5A172  PAR,FTN5TXT.  MAKE T.STF HEADER LOOK LIKE TOKEN                        FC5A172        1     A     
 HISTORY            SO UNARY MINUS CAN BE DETECTED LEXICALLY BY PAR.                       FC5A172        2     A     
 HISTORY            MAH    9-21-79     APPLIES TO FTN 5.0 .                                FC5A172        3     A     
 HISTORY                                                                                   FC5A172        4     A     
 HISTORY   FC5A173  INIT00. DETECT I=0.                                                    FC5A173        1     A     
 HISTORY            MAH    79/09/24     APPLIES TO FTN 5.0 .                               FC5A173        2     A     
 HISTORY                                                                                   FC5A173        3     A     
 HISTORY   FC5A174  INIT00,CDDIR,FERRS,DATA,REC.                                           FC5A174        1     A     
 HISTORY            PROPERLY DIAGNOSE BAD PW= ON CONTROL CARD.                             FC5A174        2     A     
 HISTORY            AVOID GARBAGE IN STATISTICS AFTER FATAL ERRORS.                        FC5A174        3     A     
 HISTORY            DIAGNOSE SYM. CON. IN COMPLEX CON. (ANSI).                             FC5A174        4     A     
 HISTORY            MAH    79/09/24     APPLIES TO FTN 5.0 .                               FC5A174        5     A     
 HISTORY                                                                                   FC5A174        6     A     
 HISTORY   FC5A177  FLINK/MAL,QCGLINK,FEC.  MARK LOOPS POSSIBLY ENTERED VIA                FC5A177        1     A     
 HISTORY            ASSIGNED GOTOS TO AVOID OVEROPTIMIZATION.                              FC5A177        2     A     
 HISTORY            MAH    79/10/05    APPLIES TO FTN 5.0,OPT GT 0.                        FC5A177        3     A     
 HISTORY                                                                                   FC5A177        4     A     
 HISTORY   FC50001  COMFWIN,BRIDGE.  KEEP PASS 2 PARCEL COUNTER IN SYNCH WITH PASS         FC50001        1     A     
 HISTORY            3 TO AVOID RELOCATION ERROR ON EMBEDDED DATA.                          FC50001        2     A     
 HISTORY            MAH    79/8/15     APPLIES TO FTN 5.0 .                                FC50001        3     A     
 HISTORY                                                                                   FC50001        4     A     
 HISTORY   FC50005  HEADER.  AVOID SPURIOUS *MUST NOT BE FP* ERROR ON PARAMETER            FC50005        1     A     
 HISTORY            LIST.                                                                  FC50005        2     A     
 HISTORY            MAH    79/08/28    APPLIES TO FTN 5.0 .                                FC50005        3     A     
 HISTORY                                                                                   FC50005        4     A     
 HISTORY   FC50007  ALLOC.  ELIMINATE ZERO LENGTH READ IN MAP (TIME LIMIT                  FC50007        1     A     
 HISTORY            IN UTILITY) CAUSED BY ATTEMPT TO USE FINAL TABLE MANAGER               FC50007        2     A     
 HISTORY            SLOP SPACE IN TIGHT FIELD LENGTH.                                      FC50007        3     A     
 HISTORY            MAP/MAH    79/09/05    APPLIES TO FTN 5.0 .                            FC50007        4     A     
 HISTORY                                                                                   FC50007        5     A     
 HISTORY   FC50010  REG,FAS.  ALLOW PROPER ADDRESS FOR LOAD OF LOWER HALF                  FC50010        1     A     
 HISTORY            OF DOUBLE/COMPLEX ENTITY IN LCM.                                       FC50010        2     A     
 HISTORY            REPAIR LEVEL ZERO IN PARCEL 0.                                         FC50010        3     A     
 HISTORY            MAH    79/09/27     APPLIES TO FTN 5.0 ,OPT=0.                         FC50010        4     A     
 HISTORY                                                                                   FC50010        5     A     
 HISTORY   FC50011  IO. DETECT NON CHARACTER ARRAY ELEMENT WITH CONSTANT                   FC50011        1     A     
 HISTORY            SUBSCRIPT USED AS FORMAT.                                              FC50011        2     A     
 HISTORY            MAH    79/10/04     APPLIES TO FTN 5.0 ,OPT=0.                         FC50011        3     A     
 HISTORY                                                                                   FC50011        4     A     
 HISTORY   FC50014  PAR,FERRS.  ALLOW COMPLEX NUMBERS TO BE RAISED TO DOUBLE               FC50014        1     A     
 HISTORY            PRECISION, REAL, AND COMPLEX POWERS.  ISSUE ANSI DIAGNOSTIC            FC50014        2     A     
 HISTORY            FOR EXPRESSIONS CONTAINING MIXTURE OF DOUBLE PRECISION AND             FC50014        3     A     
 HISTORY            COMPLEX OPERANDS.                                                      FC50014        4     A     
 HISTORY            MAP    79/10/05    APPLIES TO FTN 5.0 .                                FC50014        5     A     
 HISTORY                                                                                   FC50014        6     A     
 HISTORY   FC50015  LABEL/FBB/ISL,COMSSYM,FERRS.                                           FC50015        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  10    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MARK LABELS DEFINED IN LOOPS AS ACTIVE OR *INDO*.                      FC50015        2     A     
 HISTORY            DIAGNOSE FATAL OR ANSI ANY BRANCHES TO THEM.                           FC50015        3     A     
 HISTORY            REPLACES FC5A149 FROM ASYNCH. REL.                                     FC50015        4     A     
 HISTORY            MRR,MAH    79/07/25    APPLIES TO FTN 5.0.                             FC50015        5     A     
 HISTORY                                                                                   FC50015        6     A     
 HISTORY   *L518*    ************************************************                      *L518*         1     A     
 HISTORY   FC5*80   UPDATE COPYRIGHT INFORMATION FOR 1980                                  FC5*80         1     A     
 HISTORY            BEA    79/09/28    APPLIES TO FTN 5.0                                  FC5*80         2     A     
 HISTORY                                                                                   FC5*80         3     A     
 HISTORY   FC5A168A LABEL/CUL,LEX,FERRS.  DIAGNOSE LABELS WITH IMBEDDED COLONS.            FC5A168A       1     A     
 HISTORY            MAP/DCD    79/08/29    APPLIES TO FTN 5.0 .                            FC5A168A       2     A     
 HISTORY                                                                                   FC5A168A       3     A     
 HISTORY   FC5A180  BRIDGE,OPTIONS,COMFCIP.  IMPLEMENT .MINFL BUILD OPTION.                FC5A180        1     A     
 HISTORY            MAH    79/11/02    APPLIES TO FTN 5.0.                                 FC5A180        2     A     
 HISTORY                                                                                   FC5A180        3     A     
 HISTORY   FC5A181  BRIDGE.  AVOID BAD OBJECT CODE WITH EQUIVALENCED ARRAYS                FC5A181        1     A     
 HISTORY            IN IO LISTS.                                                           FC5A181        2     A     
 HISTORY            MAH    79/11/02    APPLIES TO FTN 5.0.                                 FC5A181        3     A     
 HISTORY                                                                                   FC5A181        4     A     
 HISTORY   FC5A182  LIST.  FIX OBJECT LIST LISTING ERRORS.                                 FC5A182        1     A     
 HISTORY            MRR    79/10/31    APPLIES TO FTN 5.0.                                 FC5A182        2     A     
 HISTORY                                                                                   FC5A182        3     A     
 HISTORY   FC5A183  FTN5TXT.  DIAGNOSE MORE THAN 49 FILES ON PROGRAM CARD.                 FC5A183        1     A     
 HISTORY            MAP    79/11/02    APPLIES TO FTN 5.0.                                 FC5A183        2     A     
 HISTORY                                                                                   FC5A183        3     A     
 HISTORY   FC5A184  PAR,FMT,FERRS,COMSSYM,KEY,FEC. ERROR DIAGNOSIS FOR                     FC5A184        1     A     
 HISTORY            *PARAMETER*, *FORMAT*, *DATA* AND ASSIGNED *GO TO* STATEMENTS.         FC5A184        2     A     
 HISTORY            MAP    79/11/13    APPLIES TO FTN 5.0 .                                FC5A184        3     A     
 HISTORY                                                                                   FC5A184        4     A     
 HISTORY   FC5A185  MAP. CLEAN UP REFERENCE MAP CODE.                                      FC5A185        1     A     
 HISTORY            MAP    79/11/02    APPLIES TO FTN 5.0.                                 FC5A185        2     A     
 HISTORY                                                                                   FC5A185        3     A     
 HISTORY   FC5A186  BRIDGE.  THE DO-END PROCESSOR WAS MODIFIED TO OUTPUT                   FC5A186        1     A     
 HISTORY            A DUMMY EXIT BLOCK.  THIS HELPED THE OPTIMIZER IN                      FC5A186        2     A     
 HISTORY            REGISTER ASSIGNMENT OF ZERO TRIP LOOPS.  MCG COULD                     FC5A186        3     A     
 HISTORY            DO A BETTER JOB ON POST STORES IF THEY WERE HANDLED                    FC5A186        4     A     
 HISTORY            AS A SEPERATE BLOCK INSTEAD OF AN EXTENSION OF THE LOOP                FC5A186        5     A     
 HISTORY            BLOCK                                                                  FC5A186        6     A     
 HISTORY            SPS    9-17-79     APPLIES TO FTN 5.0 .                                FC5A186        7     A     
 HISTORY                                                                                   FC5A186        8     A     
 HISTORY   FC5A186  BRIDGE. GENERATE DUMMY BLOCK AFTER DO LOOP TO                          FC5A186        9     A     
 HISTORY            IMPROVE POST-STORE PROCESSING IN CCG.                                  FC5A186       10     A     
 HISTORY            MAH    79/11/02    APPLIES TO FTN 5.0.                                 FC5A186       11     A     
 HISTORY                                                                                   FC5A186       12     A     
 HISTORY   FC5A187  INIT00,MAP,PUC.  AVOID SPURIOUS PAGE DENSITY CARRIAGE                  FC5A187        1     A     
 HISTORY            CONTROL LINES (TO TERMINALS AND IF PD=6).  ASSUME OS                   FC5A187        2     A     
 HISTORY            DEFAULT IS ALWAYS PD=6 (IP.PD REPRESENTS DIRECTION TO                  FC5A187        3     A     
 HISTORY            PRODUCTS ONLY.                                                         FC5A187        4     A     
 HISTORY            MAH    79/11/02    APPLIES TO FTN 5.0.                                 FC5A187        5     A     
 HISTORY                                                                                   FC5A187        6     A     
 HISTORY   FC5A188  MAP,PAR.  ISSUE *A* REFERENCE LETTERS FOR VARIABLES,                   FC5A188        1     A     
 HISTORY            AND PROCEDURES INSIDE ARGUMENT LISTS.                                  FC5A188        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  11    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MAP    79/11/07    APPLIES TO FTN 5.0.                                 FC5A188        3     A     
 HISTORY                                                                                   FC5A188        4     A     
 HISTORY   FC5A189  MAP/VAL.  TEST INTEGER SYMBOLIC CONSTANT AGAINST                       FC5A189        1     A     
 HISTORY            9999999999 TO SEE IF IT IS TOO BIG TO BE                               FC5A189        2     A     
 HISTORY            CONVERTED TO DPC BY *CDD*.                                             FC5A189        3     A     
 HISTORY            MAP    79/11/07    APPLIES TO FTN 5.0 .                                FC5A189        4     A     
 HISTORY                                                                                   FC5A189        5     A     
 HISTORY   FC5A190  SKEL,PAR,FERRS,CONRED. DIAGNOSE BAD CONSTANT                           FC5A190        1     A     
 HISTORY            ARGUMENTS TO MASK AND SHIFT.  ALLOW COMPILE                            FC5A190        2     A     
 HISTORY            TIME REDUCTION.                                                        FC5A190        3     A     
 HISTORY            MAH    79/11/12    APPLIES TO FTN 5.0 .                                FC5A190        4     A     
 HISTORY                                                                                   FC5A190        5     A     
 HISTORY   FC5A191  COMSSYM,FEC,KEY,DECL,GEN,BRIDGE,MAP.                                   FC5A191        1     A     
 HISTORY            IMPLEMENT WB.1REF PROPERLY.                                            FC5A191        2     A     
 HISTORY            MAP    79/11/08    APPLIES TO FTN 5.0 .                                FC5A191        3     A     
 HISTORY                                                                                   FC5A191        4     A     
 HISTORY   FC5A192  HEADER,COMSSYM,FEC,STMTF,DECL,FERRS.                                   FC5A192        1     A     
 HISTORY            DIAGNOSE BAD FORMAL PARAMETERS.                                        FC5A192        2     A     
 HISTORY            MAP/FLK/MAH    79/11/14    APPLIES TO FTN 5.0 .                        FC5A192        3     A     
 HISTORY                                                                                   FC5A192        4     A     
 HISTORY   FC5A194  DECL.  ELIMINATE SPURIOUS DIAGNOSTIC IN *LEVEL* STATEMENT              FC5A194        1     A     
 HISTORY            WITHOUT A COMMA.                                                       FC5A194        2     A     
 HISTORY            MAP    79/11/15    APPLIES TO FTN 5.0 .                                FC5A194        3     A     
 HISTORY                                                                                   FC5A194        4     A     
 HISTORY   FC5A195  DECL/EQU.  FIX BUG IN ALGORITHM TO DETECT EQUIVALENCE                  FC5A195        1     A     
 HISTORY            CLASS OVERLAPS.                                                        FC5A195        2     A     
 HISTORY            MAP    79/11/16    APPLIES TO FTN 5.0 .                                FC5A195        3     A     
 HISTORY                                                                                   FC5A195        4     A     
 HISTORY   FC5A196  CONRED/DTA.  FIX BUG IN ASCII CONVERSION TABLE.                        FC5A196        1     A     
 HISTORY            MAP    79/11/19    APPLIES TO FTN 5.0 .                                FC5A196        2     A     
 HISTORY                                                                                   FC5A196        3     A     
 HISTORY   FC5A197  REC. AVOID SPURIOUS SUB0 TABLE IN PROGRAM WITH                         FC5A197        1     A     
 HISTORY            VARIABLE DIMENSIONS.                                                   FC5A197        2     A     
 HISTORY            MAH    79/11/26    APPLIES TO FTN 5.0 .                                FC5A197        3     A     
 HISTORY                                                                                   FC5A197        4     A     
 HISTORY   FC5A203  MAP/REF. AVOID SKIPPING REFERENCES.                                    FC5A203        1     A     
 HISTORY            MAP    79/12/14    APPLIES TO FTN 5.0 .                                FC5A203        2     A     
 HISTORY                                                                                   FC5A203        3     A     
 HISTORY   FC5A204  PAR/PAR.STD.  SET FILL.2 PROPERLY FOR E.AT14.                          FC5A204        1     A     
 HISTORY            MAP/JLB    79/12/14    APPLIES TO FTN 5.0 .                            FC5A204        2     A     
 HISTORY                                                                                   FC5A204        3     A     
 HISTORY   FC5A209  REG. CORRECT ADDRESSING OF LCM/ECS ENTITIES IN COMMON                  FC5A209        1     A     
 HISTORY            AT OTHER THAN BASE OF BLOCK.                                           FC5A209        2     A     
 HISTORY            MAH    79/12/20    APPLIES TO FTN 5.0, OPT=0 .                         FC5A209        3     A     
 HISTORY                                                                                   FC5A209        4     A     
 HISTORY   FC50022  INIT00. GENERATE DIAGNOSTICS FOR CONFLICTS IN                          FC50022        1     A     
 HISTORY            CONTROL CARD FILE USAGE.                                               FC50022        2     A     
 HISTORY            MAH    79/11/02    APPLIES TO FTN 5.0.                                 FC50022        3     A     
 HISTORY                                                                                   FC50022        4     A     
 HISTORY   FC50023  PAR/CIL. ALLOW LEVEL 3 ITEMS IN DATA STATEMENTS.                       FC50023        1     A     
 HISTORY            MAH    79/12/07    APPLIES TO FTN 5.0 .                                FC50023        2     A     
 HISTORY                                                                                   FC50023        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  12    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC50026  FMT. AVOID SPURIOUS DIAGNOSTIC ON (T137,1H*)                           FC50026        1     A     
 HISTORY            MAH    79/11/12    APPLIES TO FTN 5.0 .                                FC50026        2     A     
 HISTORY                                                                                   FC50026        3     A     
 HISTORY   FC50029  PUC/WHL. AVOID COUNTING HEADER IN LINE COUNT TWICE.                    FC50029        1     A     
 HISTORY            MAH    79/11/19    APPLIES TO FTN 5.0 .                                FC50029        2     A     
 HISTORY                                                                                   FC50029        3     A     
 HISTORY   FC50032  FAS. CORRECT ERRORS BINARY IDENT TABLE.                                FC50032        1     A     
 HISTORY            MAH    79/11/26    APPLIES TO FTN 5.0 .                                FC50032        2     A     
 HISTORY                                                                                   FC50032        3     A     
 HISTORY   FC50035  IO. AVOID BAD CHARACTERS IN DIAGNOSTIC ISSUED                          FC50035        1     A     
 HISTORY            DURING IO CONTROL LIST KEYWORD CHECKING.                               FC50035        2     A     
 HISTORY            MAP    79/12/12    APPLIES TO FTN 5.0 .                                FC50035        3     A     
 HISTORY                                                                                   FC50035        4     A     
 HISTORY   FC50041  PAR/TNK.  DEFINE ERROR ADDRESS TO AVOID ABORT                          FC50041        1     A     
 HISTORY            FOR COMPLEX CONSTANT FOLLOWED BY IMPROPER TOKEN.                       FC50041        2     A     
 HISTORY            MAH    79/12/20    APPLIES TO FTN 5.0 .                                FC50041        3     A     
 HISTORY                                                                                   FC50041        4     A     
 HISTORY   *L528*    ************************************************                      *L528*         1     A     
 HISTORY   F1037F5  COMFCIP,COMFFEI,COMFGFD,COMFPLI,OPTIONS,FTN5TXT,FTN,PUC,PEM            F1037F5        1     A     
 HISTORY            INIT00,FEC,FERRS,LEX,HEADER,DECL,TYPE,IO,PAR.                          F1037F5        2     A     
 HISTORY            RELEASE 2 STUFF : MD ERRORS, SPECIAL BUILD PROCEDURE,                  F1037F5        3     A     
 HISTORY            TM CONTROL CARD OPTION, OVCAP SUPPORT, STATIC MODE.                    F1037F5        4     A     
 HISTORY            MAP/MRR 80/04/28   APPLIES TO FTN 5.0 .                                F1037F5        5     A     
 HISTORY                                                                                   F1037F5        6     A     
 HISTORY   FC5A206  PAR.  AVOID OVEROPTIMIZING PROGRAMS WITH LOCF REFERENCES.              FC5A206        1     A     
 HISTORY            MAH    79/12/20    APPLIES TO FTN 5.0, OPT=2 .                         FC5A206        2     A     
 HISTORY                                                                                   FC5A206        3     A     
 HISTORY   FC5A207  PAR. AVOID MODE1 FOR IF(A.OP.B) WHERE A.OP.B APPEARS                   FC5A207        1     A     
 HISTORY            PREVIOUSLY IN SEQUENCE.                                                FC5A207        2     A     
 HISTORY            MAH/MRR  80/01/07    APPLIES TO FTN 5.0, OPT=0.                        FC5A207        3     A     
 HISTORY                                                                                   FC5A207        4     A     
 HISTORY   FC5A211  COMSSYM,COMSSYC,FTN5TXT,FERRS,IO,PAR,LABEL.  MAKE DO CONTROL           FC5A211        1     A     
 HISTORY            INDICIES  BASE/BIAS FORM TO BE ABLE TO DETECT EQUIVALENCED             FC5A211        2     A     
 HISTORY            REDEFINITIONS.                                                         FC5A211        3     A     
 HISTORY            MRR    80/01/27    APPLIES TO FTN 5.0.                                 FC5A211        4     A     
 HISTORY                                                                                   FC5A211        5     A     
 HISTORY   FC5A213  STMTF.  AVOID SPURIOUS DIAGNOSTICS AFTER DIAGNOSING REPEATED           FC5A213        1     A     
 HISTORY            DUMMY ARGUMENT APPEARANCE IN STATEMENT FUNCTION DEFINITION.            FC5A213        2     A     
 HISTORY            MAH    80/01/09    APPLIES TO FTN 5.0 .                                FC5A213        3     A     
 HISTORY                                                                                   FC5A213        4     A     
 HISTORY   FC5A214  IO/IDC,C=DOCS.  EXTEND IMPLIED DO COLLAPSE TO COVER MORE               FC5A214        1     A     
 HISTORY            CASES.                                                                 FC5A214        2     A     
 HISTORY            MRR    80/01/09    APPLIES TO FTN 5.0.                                 FC5A214        3     A     
 HISTORY                                                                                   FC5A214        4     A     
 HISTORY   FC5A216  PAR/TNK.  WHEN A CONSTANT HAS AN ILLEGAL SUCCESSOR ELEMENT IN          FC5A216        1     A     
 HISTORY            AN EXPRESSION, DETERMINE THE NATURE OF THE CONSTANT AND                FC5A216        2     A     
 HISTORY            EXPRESSION FOR SPECIAL PROCESSING.                                     FC5A216        3     A     
 HISTORY            MRR    80/03/28    APPLIES TO FTN 5.0 .                                FC5A216        4     A     
 HISTORY                                                                                   FC5A216        5     A     
 HISTORY   FC5A217  DECL/EQS.  DELETE CODE THAT ISSUES ERROR WHEN *EQUIVALENCE*            FC5A217        1     A     
 HISTORY            PROCESSOR SEES AN ARRAY NAME WITHOUT A SUBSCRIPT EXPRESSION.           FC5A217        2     A     
 HISTORY            MAP    80/01/18    APPLIES TO FTN 5.0.                                 FC5A217        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  13    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC5A217        4     A     
 HISTORY   FC5A218  IO,PAR,BRIDGE,SKEL.  ALLOW CORRECT DEFINITION OF CONTROL               FC5A218        1     A     
 HISTORY            VARIABLE IN COLLAPSE CASE, E.G., EMIT CODE TO SET I TO 1 OR            FC5A218        2     A     
 HISTORY            J+1 (DEPENDING ON WHETHER J IS .LE. OR .GT. ZERO) FOR CASE:            FC5A218        3     A     
 HISTORY            READ(1)(A(I),I=1,J)                                                    FC5A218        4     A     
 HISTORY            ANSI REQUIRES THIS DEFINITION.                                         FC5A218        5     A     
 HISTORY            MAH    1/21/80     APPLIES TO FTN 5.0 .                                FC5A218        6     A     
 HISTORY                                                                                   FC5A218        7     A     
 HISTORY   FC5A219  PUC,FAS,LIST.  FIX VARIOUS OBJECT LISTING ERRORS.                      FC5A219        1     A     
 HISTORY            MRR    80/01/21    APPLIES TO FTN 5.0.                                 FC5A219        2     A     
 HISTORY                                                                                   FC5A219        3     A     
 HISTORY   FC5A220  FERRS.  CHANGE SEVERITY OF SOME DIAGNOSTICS TO FATAL.                  FC5A220        1     A     
 HISTORY            MAH    1/23/80     APPLIES TO FTN 5.0 .                                FC5A220        2     A     
 HISTORY                                                                                   FC5A220        3     A     
 HISTORY   FC5A221  PAR.  GENERATE CORRECT CODE FOR  A/2./B/3.*4.                          FC5A221        1     A     
 HISTORY            FC5 VERSION OF FCCA533.                                                FC5A221        2     A     
 HISTORY            MAH    1/25/80     APPLIES TO FTN 5.0 .                                FC5A221        3     A     
 HISTORY                                                                                   FC5A221        4     A     
 HISTORY   FC5A222  REG/CWI.  AVOID RECURSIVE CLI CALL (TIME LIMIT IN REG).                FC5A222        1     A     
 HISTORY            FC5 VERSION OF FCC2282.                                                FC5A222        2     A     
 HISTORY            MAH    1/25/80     APPLIES TO FTN 5.0 ,OPT=0.                          FC5A222        3     A     
 HISTORY                                                                                   FC5A222        4     A     
 HISTORY   FC5A224  LEX/KEYW,KEY/GOT.  ALLOW COMPUTED GOTO AS DO TERMINAL                  FC5A224        1     A     
 HISTORY            STATEMENT.                                                             FC5A224        2     A     
 HISTORY            MRR    80/01/30    APPLIES TO FTN 5.0 .                                FC5A224        3     A     
 HISTORY                                                                                   FC5A224        4     A     
 HISTORY   FC5A225  FEC,FERRS,DECL,TYPE.  DIAGNOSE ATTEMPT TO MODIFY TYPE OR               FC5A225        1     A     
 HISTORY            LENGTH OF SYMBOLIC CONSTANT.                                           FC5A225        2     A     
 HISTORY            MAH/MRR  80/01/31    APPLIES TO FTN 5.0 .                              FC5A225        3     A     
 HISTORY                                                                                   FC5A225        4     A     
 HISTORY   FC5A226  MAP/DMF. AVOID MODE 1 IN MAP LISTING ATTRIBUTES OF LARGE               FC5A226        1     A     
 HISTORY            PROGRAM TO CONNECTED FILE.                                             FC5A226        2     A     
 HISTORY            MAH    80/02/01    APPLIES TO FTN 5.0 .                                FC5A226        3     A     
 HISTORY                                                                                   FC5A226        4     A     
 HISTORY   FC5A227  FTN5TXT,PARSKEL,FERRS,TYPE,PAR.  CORRECTLY DIAGNOSE INTRINSIC          FC5A227        1     A     
 HISTORY            FUNCTION MISUSE. (I.E., APPEARANCE IN TYPE DECLARATIONS, USE           FC5A227        2     A     
 HISTORY            IN PARAMETER CONSTANT EXPRESSIONS, ACTUAL ARGUMENT LIST.)              FC5A227        3     A     
 HISTORY            MRR    80/02/06    APPLIES TO FTN 5.0 .                                FC5A227        4     A     
 HISTORY                                                                                   FC5A227        5     A     
 HISTORY   FC5A228  PAR/TRE.  DIAGNOSE INVALID USE OF UNSUBSCRIPTED ARRAY                  FC5A228        1     A     
 HISTORY            REFERENCES IN ARGUMENT LISTS.                                          FC5A228        2     A     
 HISTORY            MRR    80/03/11    APPLIES TO FTN 5.0 .                                FC5A228        3     A     
 HISTORY                                                                                   FC5A228        4     A     
 HISTORY   FC5A229  MAP.  AVOID MODE 1 IN MAP DUE TO TOO LARGE A PROPERTY FIELD.           FC5A229        1     A     
 HISTORY            DEPICT STRAY NAME AS *S*.                                              FC5A229        2     A     
 HISTORY            MAH    80/02/08    APPLIES TO FTN 5.0 .                                FC5A229        3     A     
 HISTORY                                                                                   FC5A229        4     A     
 HISTORY   FC5A230  FTN5TXT,PAR.  RECOGNIZE COLON AS UNARY OPERATOR PRECEDENT.             FC5A230        1     A     
 HISTORY            MRR    80/02/13    APPLIES TO FTN 5.0 .                                FC5A230        2     A     
 HISTORY                                                                                   FC5A230        3     A     
 HISTORY   FC5A231  COMFMAV,COMSSYM,FTN5TXT,LISTLNK,FEC,HEADER,DATA,DECL,IO,PAR,           FC5A231        1     A     
 HISTORY            LABEL,FAS,CCGC,BRIDGE.  CLEAN UP SOME MINOR PROBLEMS.  BAD OR          FC5A231        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  14    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MISSING DIAGNOSTICS, MISSING CROSS REFERENCES, LISTING ERRORS,         FC5A231        3     A     
 HISTORY            ETC.  ALSO CORRECT AN UNFORTUNATE DUPLICATION OF A DATA                FC5A231        4     A     
 HISTORY            STRUCTURE NAME.                                                        FC5A231        5     A     
 HISTORY            MRR    80/02/14    APPLIES TO FTN 5.0 .                                FC5A231        6     A     
 HISTORY                                                                                   FC5A231        7     A     
 HISTORY   FC5A232  IO.  REMOVE THE I/O ROUTINE ORDINAL SETTING FROM THE CONTROL           FC5A232        1     A     
 HISTORY            TURPLES.                                                               FC5A232        2     A     
 HISTORY            MRR    80/02/14    APPLIES TO FTN 5.0 .                                FC5A232        3     A     
 HISTORY                                                                                   FC5A232        4     A     
 HISTORY   FC5A233  LEX/KEYW.  TREAT THE DATA STATEMENT AS A TURPLE GENERATING             FC5A233        1     A     
 HISTORY            STATEMENT.                                                             FC5A233        2     A     
 HISTORY            MRR    80/02/18    APPLIES TO FTN 5.0 .                                FC5A233        3     A     
 HISTORY                                                                                   FC5A233        4     A     
 HISTORY   FC5A234  FMT/FMT.P.  PROPERLY UPDATE EDIT DESCRIPTOR STATUS AFTER SCALE         FC5A234        1     A     
 HISTORY            FACTOR IS ENCOUNTERED.                                                 FC5A234        2     A     
 HISTORY            MRR    80/02/24    APPLIES TO FTN 5.0 .                                FC5A234        3     A     
 HISTORY                                                                                   FC5A234        4     A     
 HISTORY   FC5A235  IO/PKC.  FLAG NO FILE PROPERTY BIT SELECTION ON INQUIRE                FC5A235        1     A     
 HISTORY            WITHOUT UNIT= SPECIFIED.                                               FC5A235        2     A     
 HISTORY            MRR    80/03/01    APPLIES TO FTN 5.0 .                                FC5A235        3     A     
 HISTORY                                                                                   FC5A235        4     A     
 HISTORY   FC5A239  LEX/CLN.  SPECIAL CASE THE ENTOKENING PROCESS INITIALIZATION           FC5A239        1     A     
 HISTORY            WHEN RESTARTING SEQ MODE NON BLANK SQUEEZE TOKENS TO AVOID             FC5A239        2     A     
 HISTORY            LOSING A CHARACTER WHEN THE CONTINUATION LINE IS ENTOKENED.            FC5A239        3     A     
 HISTORY            MRR    80/03/13    APPLIES TO FTN 5.0 .                                FC5A239        4     A     
 HISTORY                                                                                   FC5A239        5     A     
 HISTORY   FC5A243  BRIDGE,FUN,SKEL,COMSQCG.                                               FC5A243        1     A     
 HISTORY            ALLOW CORRECT LENGTH TO BE ASSOCIATED WITH                             FC5A243        2     A     
 HISTORY            NON-STATICALLY-DETERMINABLE EXPRESSIONS USED AS                        FC5A243        3     A     
 HISTORY            ARGUMENTS, SUCH AS  CALL X(A//B(I:J))                                  FC5A243        4     A     
 HISTORY            MUST BE INSTALLED IN CONJUNCTION WITH FL5A317.                         FC5A243        5     A     
 HISTORY            MAH    80/03/10    APPLIES TO FTN 5.0 .                                FC5A243        6     A     
 HISTORY                                                                                   FC5A243        7     A     
 HISTORY   FC5A244  FTN/LDPRI.  USE NOMINAL RATHER THAN ACTUAL FIELD LENGTH WHEN           FC5A244        1     A     
 HISTORY            ISSUING LOADER REQUESTS TO AVOID EXTRANEOUS FL TOO SHORT               FC5A244        2     A     
 HISTORY            DIAGNOSTIC.  CORRECT TEXT OF THAT MESSAGE.                             FC5A244        3     A     
 HISTORY            MRR    80/03/12    APPLIES TO FTN 5.0 .                                FC5A244        4     A     
 HISTORY                                                                                   FC5A244        5     A     
 HISTORY   FC5A248  SKEL,IO/AII/IDC/PAX.  AVOID DEFINING I IN                              FC5A248        1     A     
 HISTORY            N=0                                                                    FC5A248        2     A     
 HISTORY            PRINT *,((A(I,J),I=1,10),J=1,N)                                        FC5A248        3     A     
 HISTORY            MAH/MRR  80/07/09    APPLIES TO FTN 5.1 .                              FC5A248        4     A     
 HISTORY                                                                                   FC5A248        5     A     
 HISTORY   FC5A250  FAS.  FORCE SCM TYPE CHARACTER ADDRESSING TO BE 18-BIT TO              FC5A250        1     A     
 HISTORY            ACCOMODATE OVCAPS.                                                     FC5A250        2     A     
 HISTORY            MRR    80/03/31    APPLIES TO FTN 5.0 .                                FC5A250        3     A     
 HISTORY                                                                                   FC5A250        4     A     
 HISTORY   FC5A251  IO/PEC.  AVOID THE PATH TESTING FOR CHARACTER EXPRESSIONS WHEN         FC5A251        1     A     
 HISTORY            AN I/O CONTROL LIST STARTS:  (*  .                                     FC5A251        2     A     
 HISTORY            MRR    80/04/02    APPLIES TO FTN 5.0 .                                FC5A251        3     A     
 HISTORY                                                                                   FC5A251        4     A     
 HISTORY   FC5A252  IO/C=FMT.  BYPASS CHARACTER LENGTH CHECK WHEN FORMAT SPECIFIER         FC5A252        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  15    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            IS ENTIRE CHARACTER ARRAY.  THIS AVOIDS A SPURIOUS DIAGNOSTIC.         FC5A252        2     A     
 HISTORY            MRR    80/04/02    APPLIES TO FTN 5.0 .                                FC5A252        3     A     
 HISTORY                                                                                   FC5A252        4     A     
 HISTORY   FC5A253  PAR/DOC.  DIAGNOSE ARRAY ELEMENT USED AS DO CONTROL INDEX.             FC5A253        1     A     
 HISTORY            MRR    80/04/03    APPLIES TO FTN 5.0 .                                FC5A253        2     A     
 HISTORY                                                                                   FC5A253        3     A     
 HISTORY   FC5A254  PAR/DOC.  DIAGNOSE BOOLEAN VARIABLE USED AS DO CONTROL INDEX.          FC5A254        1     A     
 HISTORY            MRR    80/04/04    APPLIES TO FTN 5.0 .                                FC5A254        2     A     
 HISTORY                                                                                   FC5A254        3     A     
 HISTORY   FC5A255  COMSSYC,FEC/CBN,FERRS.  PROVIDE ANSI DIAGNOSTIC FOR COMMON             FC5A255        1     A     
 HISTORY            BLOCK NAMES WITH INVALID USES IN THE PROGRAM UNIT.                     FC5A255        2     A     
 HISTORY            MRR    80/04/04    APPLIES TO FTN 5.0 .                                FC5A255        3     A     
 HISTORY                                                                                   FC5A255        4     A     
 HISTORY   FC5A257  TYPE/TYP.  WHEN A CHARACTER ARRAY IS DIMENSIONED IN THE TYPE           FC5A257        1     A     
 HISTORY            DECLARATION, GIVE THE ARRAY A DEFAULT LENGTH (TEMPORARY) UNTIL         FC5A257        2     A     
 HISTORY            THE DIMENSION PROCESSING IS COMPLETE, TO AVOID LENGTH ZERO IF          FC5A257        3     A     
 HISTORY            ERRORS OCCUR IN THE DIMENSION SYNTAX.                                  FC5A257        4     A     
 HISTORY            MRR    80/04/09    APPLIES TO FTN 5.0 .                                FC5A257        5     A     
 HISTORY                                                                                   FC5A257        6     A     
 HISTORY   FC5A258  FTN5TXT,FEC,LEX,DATA,FMT,PAR,REG.  SPLIT THE VARIOUS HOLLERITH         FC5A258        1     A     
 HISTORY            FORMS (I.E., NH..., "...", L"...", R"...") INTO DISTINCT               FC5A258        2     A     
 HISTORY            TOKENS TO BE ABLE TO DIAGNOSE INVALID USAGE.                           FC5A258        3     A     
 HISTORY            MRR    80/04/14    APPLIES TO FTN 5.0 .                                FC5A258        4     A     
 HISTORY                                                                                   FC5A258        5     A     
 HISTORY   FC5A261  PUC/PUC.  CORRECTLY USE THE BL FLAG TO PROVIDE PAGE EJECTS             FC5A261        1     A     
 HISTORY            WHEN PAGE PARITY (BL OPTION) IS REQUESTED.                             FC5A261        2     A     
 HISTORY            MRR    80/04/22    APPLIES TO FTN 5.0 .                                FC5A261        3     A     
 HISTORY                                                                                   FC5A261        4     A     
 HISTORY   FC5A262  FTN,INIT00,FERRS,HEADER,TYPE,REC.  GENERAL CLEAN UP.  CORRECT          FC5A262        1     A     
 HISTORY            DIAGNOSTIC SPELLING AND WORDING.  ADD ANSI DIAGNOSTIC FOR              FC5A262        2     A     
 HISTORY            BOOLEAN STATEMENT.  REMOVE ERRONEOUS DIAGNOSTIC FOR NULL               FC5A262        3     A     
 HISTORY            PARAMETER LIST ON ENTRY STATEMENT.  REMOVE SOME OUTDATED TEST          FC5A262        4     A     
 HISTORY            MODE CODE.  MAKE SOME HARD CONSTANTS MNEUMONIC.                        FC5A262        5     A     
 HISTORY            MRR    80/04/24    APPLIES TO FTN 5.0 .                                FC5A262        6     A     
 HISTORY                                                                                   FC5A262        7     A     
 HISTORY   FC5A264  DATA/BIT.  DIAGNOSE ALL FORMS OF BOOLEAN CONSTANTS IN DATA             FC5A264        1     A     
 HISTORY            CONSTANT LISTS AS MACHINE DEPENDENT.                                   FC5A264        2     A     
 HISTORY            MRR    80/05/09    APPLIES TO FTN 5.1 .                                FC5A264        3     A     
 HISTORY                                                                                   FC5A264        4     A     
 HISTORY   FC5A266  DATA/NIC.  WHEN DATA VARIABLE LIST LENGTH EXCEEDS CONSTANT             FC5A266        1     A     
 HISTORY            LIST LENGTH, SET THE COUNT NEGATIVE TO ALLOW DIAGNOSIS OF THE          FC5A266        2     A     
 HISTORY            ERROR.                                                                 FC5A266        3     A     
 HISTORY            MRR    80/05/08    APPLIES TO FTN 5.1 .                                FC5A266        4     A     
 HISTORY                                                                                   FC5A266        5     A     
 HISTORY   FC5A271  IO/DOB/IDC.  WHEN AN I/O IMPLIED DO IS COMPLETELY COLLAPSED,           FC5A271        1     A     
 HISTORY            IN THE CASE WHERE DIMENSIONALITY EXCEEDS COLLAPSE, FORCE A             FC5A271        2     A     
 HISTORY            RESTART CALL, ALLOWING INITIALIZATION CODE FOR THE ARRAY               FC5A271        3     A     
 HISTORY            SUBSCRIPTS TO BE PROPERLY POSITIONED.                                  FC5A271        4     A     
 HISTORY            MRR    80/07/09    APPLIES TO FTN 5.1 .                                FC5A271        5     A     
 HISTORY                                                                                   FC5A271        6     A     
 HISTORY   FC50049  INIT00,FAS,LIST,COMFWIN,COMFPLI,COMSPSU.  CORRECT PROCESSING           FC50049        1     A     
 HISTORY            OF PL= VALUE ON COMPILER CALL THAT IS GREATER THAN 131071.             FC50049        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  16    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MAH    1/18/80     APPLIES TO FTN 5.0 .                                FC50049        3     A     
 HISTORY                                                                                   FC50049        4     A     
 HISTORY   FC50050  LABEL.  CORRECT LOOP COUNT CONTROL FOR NON-INTEGER DO.                 FC50050        1     A     
 HISTORY            MAH    1/22/80     APPLIES TO FTN 5.0 .                                FC50050        2     A     
 HISTORY                                                                                   FC50050        3     A     
 HISTORY   FC50055  PUC/CAF.  TERMINATE LGO FILE WITH WRITEF INSTEAD OF                    FC50055        1     A     
 HISTORY            WRITER.                                                                FC50055        2     A     
 HISTORY            MAH    1/29/80     APPLIES TO FTN 5.0 .                                FC50055        3     A     
 HISTORY                                                                                   FC50055        4     A     
 HISTORY   FC50061  IO/CVL/IDC.  OUTPUT CROSS REFERENCE FOR OBJECT ARRAY OF                FC50061        1     A     
 HISTORY            IMPLIED DO COLLAPSE.                                                   FC50061        2     A     
 HISTORY            MRR    80/03/12    APPLIES TO FTN 5.0 .                                FC50061        3     A     
 HISTORY                                                                                   FC50061        4     A     
 HISTORY   FC50062  KEY/ENT.  PROPERLY SAVE ENTRY NAME FOR T.ENT ADDITION.                 FC50062        1     A     
 HISTORY            MRR    80/02/19    APPLIES TO FTN 5.0 .                                FC50062        2     A     
 HISTORY                                                                                   FC50062        3     A     
 HISTORY   FC50066  GEN.  LOCK REGISTER CONTAINING VALUE TO BE STORED ACROSS               FC50066        1     A     
 HISTORY            THE ALLOCATION OF A STORE REGISTER FOR IT, IN CASE THAT                FC50066        2     A     
 HISTORY            ALLOCTION INVOLVES A CONFLICTING LOAD.  REPAIRS BAD CODE               FC50066        3     A     
 HISTORY            MOST PROBABLY IN COMPLICATED COMPLEX OR DOUBLE PRECISION               FC50066        4     A     
 HISTORY            FORMAL PARAMETER ASSIGNMENT SEQUENCES.                                 FC50066        5     A     
 HISTORY            MAH    80/04/07    APPLIES TO FTN 5.0 .                                FC50066        6     A     
 HISTORY                                                                                   FC50066        7     A     
 HISTORY   FC50067  BRIDGE/P=FUN.  MAKE THE USER/BEF FLAG THREE-WAY TO HANDLE              FC50067        1     A     
 HISTORY            TRACEBACK MODE.                                                        FC50067        2     A     
 HISTORY            MRR    80/02/26    APPLIES TO FTN 5.0 .                                FC50067        3     A     
 HISTORY                                                                                   FC50067        4     A     
 HISTORY   FC50068  PAR/PAR.  WHEN FIRST ELEMENT OF AN EXPRESSION IS AN INVALID            FC50068        1     A     
 HISTORY            STRING TOKEN (O.ILL), EXIT PAR VIA PAR.STOP.                           FC50068        2     A     
 HISTORY            MRR    80/02/26    APPLIES TO FTN 5.0 .                                FC50068        3     A     
 HISTORY                                                                                   FC50068        4     A     
 HISTORY   FC50069  FEC,DECL.  FIX ADJUSTABLE DIMENSION CODE FOR FORMAL PARAMETERS         FC50069        1     A     
 HISTORY            WHICH ARE DECLARED ON ENTRY STATEMENTS.                                FC50069        2     A     
 HISTORY            MRR    80/02/28    APPLIES TO FTN 5.0 .                                FC50069        3     A     
 HISTORY                                                                                   FC50069        4     A     
 HISTORY   FC50084  IO/IOL/DCB.  REMOVE CODE TO ADD IN STARTING OFFSET FOR IO (AND         FC50084        1     A     
 HISTORY            DATA) ARRAYS WHICH WERE PARTIALLY COLLAPSED.  THE OFFSET IS            FC50084        2     A     
 HISTORY            IMLICIT IN THE ARRAY SUBSCRIPT CALCULATION AND ADDING IT WAS           FC50084        3     A     
 HISTORY            RESULTING IN INCORRECT SUBSCRIPT CALCULATION.                          FC50084        4     A     
 HISTORY            MRR    80/03/26    APPLIES TO FTN 5.0 .                                FC50084        5     A     
 HISTORY                                                                                   FC50084        6     A     
 HISTORY   FC50086  FMT/FMT=ILL.  WHEN AN INVALID EDIT DESCRIPTOR OR PUNCTUATION           FC50086        1     A     
 HISTORY            OCCURS IN A FORMAT STATEMENT, CONTINUE PROCESSING AT THE NEXT          FC50086        2     A     
 HISTORY            DELIMITER TO AVOID PROLIFERATION OF DIAGNOSTICS.                       FC50086        3     A     
 HISTORY            MRR    80/03/26    APPLIES TO FTN 5.0 .                                FC50086        4     A     
 HISTORY                                                                                   FC50086        5     A     
 HISTORY   FC50090  PUC.  AVOID VARIOUS MODE ERRORS IN OPT=1 WITH B=0                      FC50090        1     A     
 HISTORY            SPECIFIED.  UNLOAD LAST PROGRAM UNIT IL FILE WITH B=0.                 FC50090        2     A     
 HISTORY            MAH    80/04/08    APPLIES TO FTN 5.0 .                                FC50090        3     A     
 HISTORY                                                                                   FC50090        4     A     
 HISTORY   FC50106  FERRS,STMTF/SFD.  DIAGNOSE STATEMENT FUNCTION DUMMY ARGUMENT           FC50106        1     A     
 HISTORY            USAGE AS OTHER THAN SIMPLE VARIABLE AT STATEMENT FUNCTION              FC50106        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  17    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            DEFINITION TIME.                                                       FC50106        3     A     
 HISTORY            MRR    80/06/19    APPLIES TO FTN 5.1 .                                FC50106        4     A     
 HISTORY                                                                                   FC50106        5     A     
 HISTORY   FC50110  FEC/TRV,FERRS,HEADER/PSF,DECL/EXT,TYPE/TYP.  PROPERLY SAVE             FC50110        1     A     
 HISTORY            TOKEN BUFFER POINTER WHEN MAKING START. PROGRAM HEADER.                FC50110        2     A     
 HISTORY            PREVENTS MODE OUT WHEN MULTIPLE START. IS NECESSARY.                   FC50110        3     A     
 HISTORY            MRR    80/06/17    APPLIES TO FTN 5.1 .                                FC50110        4     A     
 HISTORY                                                                                   FC50110        5     A     
 HISTORY   FC50128  FEC/RSC.  INITIALIZE THE PARSER CURRENT MODE CELL TO AVOID             FC50128        1     A     
 HISTORY            'LEFTOVER' PARSE MODE.  FIXES BUG WHEN DATA STATEMENT FOLLOWS          FC50128        2     A     
 HISTORY            CHARACTER SPECIFICATION.                                               FC50128        3     A     
 HISTORY            MRR    80/06/03    APPLIES TO FTN 5.1 .                                FC50128        4     A     
 HISTORY                                                                                   FC50128        5     A     
 HISTORY   FC50130  BRIDGE,SKEL.  AVOID BAD CODE IN OPT=2 FOLLOWING LOOP OF FORM           FC50130        1     A     
 HISTORY            DO 10 J=K,K (TRIP COUNT = 1).                                          FC50130        2     A     
 HISTORY            MAH    80/06/23    APPLIES TO FTN 5.1 ,OPT=2.                          FC50130        3     A     
 HISTORY                                                                                   FC50130        4     A     
 HISTORY   FC50131  REG.  AVOID LOOPING IN REG WHILE PROCESSING ARRAY LOAD                 FC50131        1     A     
 HISTORY            WITH LEVEL 2 INDEX.                                                    FC50131        2     A     
 HISTORY            MAH    80/06/24    APPLIES TO FTN 5.1 ,OPT=0.                          FC50131        3     A     
 HISTORY                                                                                   FC50131        4     A     
 HISTORY   FC50136  BRIDGE,SKEL.  IMPROVE CODE GENERATED FOR BOTTOM-OF-LOOP                FC50136        1     A     
 HISTORY            INCREMENT FOR SOME LOOPS, WHILE MAKING EASIER FOR CCG TO               FC50136        2     A     
 HISTORY            CODE.                                                                  FC50136        3     A     
 HISTORY            MAH    80/06/23    APPLIES TO FTN 5.1 ,OPT .GE. 1 .                    FC50136        4     A     
 HISTORY                                                                                   FC50136        5     A     
 HISTORY   FC50137  FEC/FVD,FAS/OCL. PRESERVE ALL ATTRIBUTES OF OPERANDS APPEARING         FC50137        1     A     
 HISTORY            IN VARIABLE DIMENSION INTERMEDIATE LANGUAGE.  MAKE CHARACTER           FC50137        2     A     
 HISTORY            LENGTH BINARY INDICATOR COMPATIBLE WITH FL5.  THIS ALLOWS              FC50137        3     A     
 HISTORY            INTERNAL FILES WITH PASSED LENGTH TO WORK PROPERLY.                    FC50137        4     A     
 HISTORY            MRR    80/06/12    APPLIES TO FTN 5.1 .                                FC50137        5     A     
 HISTORY                                                                                   FC50137        6     A     
 HISTORY   FC50138  GEN.  AVOID BAD CODE IN OPT=0 WITH MANY COMPLICATED                    FC50138        1     A     
 HISTORY            VARIABLE DIMENSION EXPRESSIONS.                                        FC50138        2     A     
 HISTORY            MAH    80/06/23    APPLIES TO FTN 5.1 ,OPT=0.                          FC50138        3     A     
 HISTORY                                                                                   FC50138        4     A     
 HISTORY   FC50147  PAR/PAR.CM.  WHEN PROCESSING DATA VARIABLE LIST ITEMS, EXIT            FC50147        1     A     
 HISTORY            THE PARSER AFTER EACH ITEM IS PROCESSED (LIKE I/O LISTS),              FC50147        2     A     
 HISTORY            ALLOWING THE PROCESSING ROUTINE TO HANDLE IMPLIED DOS.  THIS           FC50147        3     A     
 HISTORY            AVOIDS EXTRANEOUS DIAGNOSTICS.                                         FC50147        4     A     
 HISTORY            MRR    80/06/12    APPLIES TO FTN 5.1 .                                FC50147        5     A     
 HISTORY                                                                                   FC50147        6     A     
 HISTORY   FC50148  FERRS,PAR/STFD/ES.SHF.  PROPERLY REDUCE NULL SHIFTS. (IN SOME          FC50148        1     A     
 HISTORY            CASES SHIFT WAS TREATED AS A VARIABLE.)  PROVIDE ANSI MESSAGE          FC50148        2     A     
 HISTORY            FOR DUMMY/ACTUAL ARGUMENT TYPE MISMATCH.                               FC50148        3     A     
 HISTORY            MRR    80/06/19    APPLIES TO FTN 5.1 .                                FC50148        4     A     
 HISTORY                                                                                   FC50148        5     A     
 HISTORY   FC50156  DECL.  REPAIRS FIELD LENGTH SENSITIVE TABLE DISLOCATION                FC50156        1     A     
 HISTORY            WHILE PROCESSING LCM COMMON BLOCKS.  SYMPTOMS INCLUDE                  FC50156        2     A     
 HISTORY            SPURIOUS DIAGNOSTICS, MODE ERRORS IN DECL AND LOSS OF                  FC50156        3     A     
 HISTORY            LCM RELOCATION FOR SOME BLOCKS.                                        FC50156        4     A     
 HISTORY            MAH    80/06/25    APPLIES TO FTN 5.1 .                                FC50156        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  18    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC50156        6     A     
 HISTORY   *L538*    ************************************************                      *L538*         1     A     
 HISTORY   FC5*81   FTN. UPDATE COPYRIGHT INFORMATION FOR 1981.                            FC5*81         1     A     
 HISTORY            MRR    80/09/17    APPLIES TO FTN 5.1 .                                FC5*81         2     A     
 HISTORY                                                                                   FC5*81         3     A     
 HISTORY   F1037F5A OPTIONS.  CHANGE VERSION MICRO (VER) TO 5.1 FOR LISTING                F1037F5A       1     A     
 HISTORY            BANNER.                                                                F1037F5A       2     A     
 HISTORY            MRR    80/10/23    APPLIES TO FTN 5.0 .                                F1037F5A       3     A     
 HISTORY                                                                                   F1037F5A       4     A     
 HISTORY   FC5A246  FUN. CLEAN UP COMMENTS AND LISTING.                                    FC5A246        1     A     
 HISTORY            MRR    80/09/10    APPLIES TO FTN 5.1 .                                FC5A246        2     A     
 HISTORY                                                                                   FC5A246        3     A     
 HISTORY   FC5A247  IO/DOCS.  SUPPRESS I/O IMPLIED DO COLLAPSE FOR ARRAYS WHICH            FC5A247        1     A     
 HISTORY            HAVE DUPLICATION OF INTEGER VARIABLE SUBSCRIPTS.                       FC5A247        2     A     
 HISTORY            MRR    80/07/10    APPLIES TO FTN 5.1 .                                FC5A247        3     A     
 HISTORY                                                                                   FC5A247        4     A     
 HISTORY   FC5A249  IO.  AVOID WRONG VALUE FOR I IN                                        FC5A249        1     A     
 HISTORY            DIMENSION A(10)                                                        FC5A249        2     A     
 HISTORY            EQUIVALENCE (A(3),N)                                                   FC5A249        3     A     
 HISTORY            READ  *,(A(I),I=1,N)                                                   FC5A249        4     A     
 HISTORY            MAH    80/07/07    APPLIES TO FTN 5.1 .                                FC5A249        5     A     
 HISTORY                                                                                   FC5A249        6     A     
 HISTORY   FC5A256  IO/IDC/DOCS.  WHEN A SUBSCRIPT HAS BEEN EQUIVALENCED TO                FC5A256        1     A     
 HISTORY            THE OBJECT ARRAY, SUPPRESS I/O IMPLIED DO COLLAPSE FOR THAT            FC5A256        2     A     
 HISTORY            CONSTRUCT.                                                             FC5A256        3     A     
 HISTORY            MRR    80/07/10    APPLIES TO FTN 5.1 .                                FC5A256        4     A     
 HISTORY                                                                                   FC5A256        5     A     
 HISTORY   FC5A269  DATA. DIAGNOSE   DATA A/2*2*0./                                        FC5A269        1     A     
 HISTORY            MAH    80/07/01    APPLIES TO FTN 5.1.                                 FC5A269        2     A     
 HISTORY                                                                                   FC5A269        3     A     
 HISTORY   FC5A270  LABEL/CDI.  DIAGNOSE TRIP COUNTS THAT ARE VERY MUCH TOO                FC5A270        1     A     
 HISTORY            LARGE IN SHORT LOOP MODE.                                              FC5A270        2     A     
 HISTORY            MRR    80/08/28    APPLIES TO FTN 5.1 .                                FC5A270        3     A     
 HISTORY                                                                                   FC5A270        4     A     
 HISTORY   FC5A273  MAP/GNB.  RESET THE CURRENT BLOCK COUNT TO AVOID INTERMITTANT          FC5A273        1     A     
 HISTORY            LOSS OF THE COMMON/EQUIVALENCE MAP.                                    FC5A273        2     A     
 HISTORY            MRR    80/07/21    APPLIES TO FTN 5.1 .                                FC5A273        3     A     
 HISTORY                                                                                   FC5A273        4     A     
 HISTORY   FC5A274  DECL/DIS.  DIAGNOSE TOO MANY DIMENSIONS ON DECLARATION OF AN           FC5A274        1     A     
 HISTORY            ARRAY WITH ASSUMED LENGTH AS THE LAST DIMENSION.                       FC5A274        2     A     
 HISTORY            MRR    80/07/23    APPLIES TO FTN 5.1 .                                FC5A274        3     A     
 HISTORY                                                                                   FC5A274        4     A     
 HISTORY   FC5A275  SYMDEFS,FTN.  PROVIDE TRACEBACK CELL ENTRY POINT FOR CCG.              FC5A275        1     A     
 HISTORY            CCG CODE IS CCGA035.                                                   FC5A275        2     A     
 HISTORY            MRR    80/08/27    APPLIES TO FTN 5.1 .                                FC5A275        3     A     
 HISTORY                                                                                   FC5A275        4     A     
 HISTORY   FC5A278  FERRS,DECL/PRM.  DIAGNOSE EXTRANEOUS CHARACTER AFTER PARAMETER         FC5A278        1     A     
 HISTORY            STATEMENT PARAMETER GROUP.                                             FC5A278        2     A     
 HISTORY            MRR    80/08/12    APPLIES TO FTN 5.1 .                                FC5A278        3     A     
 HISTORY                                                                                   FC5A278        4     A     
 HISTORY   FC5A279  PAR/TRE.  AVOID INVALID MACHINE DEPENDENT DIAGNOSTICS                  FC5A279        1     A     
 HISTORY            ON UNSUBSCRIPTED ARRAYS.                                               FC5A279        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  19    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    80/09/12    APPLIES TO FTN 5.1 .                                FC5A279        3     A     
 HISTORY                                                                                   FC5A279        4     A     
 HISTORY   FC5A281  FAS/REL,LIST.  WHEN RELOCATING AN INSTRUCTION OR APLIST ENTRY,         FC5A281        1     A     
 HISTORY            USE THE PROPER FIELD WIDTH TO AVOID TRUNCATION OF LARGE LCM            FC5A281        2     A     
 HISTORY            BIAS.  MODIFY KTY IN LIST TO AVOID THE SAME PROBLEM.                   FC5A281        3     A     
 HISTORY            MRR    80/08/25    APPLIES TO FTN 5.1 .                                FC5A281        4     A     
 HISTORY                                                                                   FC5A281        5     A     
 HISTORY   FC5A282  INIT00/MIB.  DIAGNOSE PS OPTION VALUE .LT. 4.                          FC5A282        1     A     
 HISTORY            MRR    80/08/27    APPLIES TO FTN 5.1 .                                FC5A282        2     A     
 HISTORY                                                                                   FC5A282        3     A     
 HISTORY   FC5A284  COMCPAC/PAC.  DIAGNOSE B== AS INVALID BINARY FILES.  ALSO              FC5A284        1     A     
 HISTORY            CORRECT DAYFILE MESSAGES FOR INVALID OPTIONS.                          FC5A284        2     A     
 HISTORY            MRR    80/10/22    APPLIES TO FTN 5.1 .                                FC5A284        3     A     
 HISTORY                                                                                   FC5A284        4     A     
 HISTORY   FC5A294  FERRS,PAR/TRE.  CORRECTLY DIAGNOSE USES OF SUBROUTINE NAMES            FC5A294        1     A     
 HISTORY            IN EXPRESSION CONTEXT.                                                 FC5A294        2     A     
 HISTORY            MRR    80/09/12    APPLIES TO FTN 5.1 .                                FC5A294        3     A     
 HISTORY                                                                                   FC5A294        4     A     
 HISTORY   FC5A296  PAR/SHIFT.  WHEN A CONSTANT SHIFT COUNT FOR THE INTRINSIC              FC5A296        1     A     
 HISTORY            SHIFT IS .GT. ABS(60), RESTORE THE TURPLE HEADER SKELETON              FC5A296        2     A     
 HISTORY            ORDINAL.                                                               FC5A296        3     A     
 HISTORY            MRR    80/09/17    APPLIES TO FTN 5.1 .                                FC5A296        4     A     
 HISTORY                                                                                   FC5A296        5     A     
 HISTORY   FC5A298  FAS/FST.  CORRECTLY SET THE S3.RA FIELD IN THE 5600 TABLE              FC5A298        1     A     
 HISTORY            (CID/PMD SYMBOL TABLE) FOR DUMMY ARGUMENTS.                            FC5A298        2     A     
 HISTORY            MRR    80/09/18    APPLIES TO FTN 5.1 .                                FC5A298        3     A     
 HISTORY                                                                                   FC5A298        4     A     
 HISTORY   FC5A299  DECL/EQU.  STORE VARIABLE NAME ONLY FOR ILLEGAL EXTENSION OF           FC5A299        1     A     
 HISTORY            COMMON DIAGNOSTIC.                                                     FC5A299        2     A     
 HISTORY            MRR    80/10/02    APPLIES TO FTN 5.1 .                                FC5A299        3     A     
 HISTORY                                                                                   FC5A299        4     A     
 HISTORY   FC5A302  PAR/PKX.  WHEN PARSING A CHARACTER CONSTANT EXPRESSION,                FC5A302        1     A     
 HISTORY            DETERMINE IF THE RESULTING CHARACTER CONSTANT IS .LE. 2**15-1,         FC5A302        2     A     
 HISTORY            ELSE ISSUE A DIAGNOSTIC.                                               FC5A302        3     A     
 HISTORY            MRR    80/10/16    APPLIES TO FTN 5.1 .                                FC5A302        4     A     
 HISTORY                                                                                   FC5A302        5     A     
 HISTORY   FC5A304  DATA/BIT/CRC.  FIX THE FOLLOWING DATA STATEMENT PROBLEMS.              FC5A304        1     A     
 HISTORY            1.  DISALLOW BOOLEAN AS REPEAT COUNT.                                  FC5A304        2     A     
 HISTORY            2.  ALLOW SIGNED COMPLEX CONSTANTS.                                    FC5A304        3     A     
 HISTORY            MRR    80/11/06    APPLIES TO FTN 5.1 .                                FC5A304        4     A     
 HISTORY                                                                                   FC5A304        5     A     
 HISTORY   FC5A312  DECL/CCC.  CORRECT THE LOOP OF THE COMMON CONFLICT TEST.               FC5A312        1     A     
 HISTORY            PREVENTS BAD COMMON BLOCK NAME BEING SET INTO DIAGNOSTIC.              FC5A312        2     A     
 HISTORY            MRR    80/11/24    APPLIES TO FTN 5.1 .                                FC5A312        3     A     
 HISTORY                                                                                   FC5A312        4     A     
 HISTORY   FC5A314  IO/SFP.  DONT INCLUDE FORM= IN THE TEST FOR FORMATED FOR UNIT          FC5A314        1     A     
 HISTORY            SPECIFIER PROPERTIES FOR THE ATTRIBUTE MAP.                            FC5A314        2     A     
 HISTORY            MRR    80/12/05    APPLIES TO FTN 5.1 .                                FC5A314        3     A     
 HISTORY                                                                                   FC5A314        4     A     
 HISTORY   FC5A315  FMT/FMT=EOS.  CHANGE DIAGNOSTIC CALL STYLE OF E.FS18 TO                FC5A315        1     A     
 HISTORY            CONFORM TO DIAGNOSTIC TYPE.                                            FC5A315        2     A     
 HISTORY            MRR    80/12/05    APPLIES TO FTN 5.1 .                                FC5A315        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  20    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC5A315        4     A     
 HISTORY   FC50096  COMSSYM,FEC,FERRS.  EXPAND WB.FR FIELD TO ACCOMODATE LARGE             FC50096        1     A     
 HISTORY            SEQUENCE NUMBERS.  THIS PREVENTS ERRONEOUS DIAGNOSTICS IN IF           FC50096        2     A     
 HISTORY            BLOCK AND DO LOOP ANALYSIS.                                            FC50096        3     A     
 HISTORY            MRR    80/09/03    APPLIES TO FTN 5.1 .                                FC50096        4     A     
 HISTORY                                                                                   FC50096        5     A     
 HISTORY   FC50104  FTN5TXT,COMSQCG,FEC,FSNAP,KEY,DATA,IO,PAR,LABEL,STMTF,QCGC,            FC50104        1     A     
 HISTORY            GEN,BRIDGE.                                                            FC50104        2     A     
 HISTORY            CHANGE THE TH.SKEL AND TH.LINE FIELD SIZES TO ACCOMODATE LARGE         FC50104        3     A     
 HISTORY            SEQUENCE NUMBERS.  CREATE SP. DATA STRUCTURE TO REPRESENT THE          FC50104        4     A     
 HISTORY            PARSER FORM OF TURPLE HEADER WORDS.  TRANSFORM THE SP. FORM            FC50104        5     A     
 HISTORY            (PARSER) TO TH. FORM (IL) AT TURPLE EMISSION TIME.                     FC50104        6     A     
 HISTORY            MRR    80/08/18    APPLIES TO FTN 5.1 .                                FC50104        7     A     
 HISTORY                                                                                   FC50104        8     A     
 HISTORY   FC5A300  FERRS,STMTF/SFD. FIX THE FOLLOWING STATEMENT FUNCTION BUGS:            FC5A300        1     A     
 HISTORY            1.  CORRECT FUNCTION NAME IN DIAGNOSTICS.                              FC5A300        2     A     
 HISTORY            2.  DIAGNOSE DUMMY ARGUMENT OF PASSED LENGTH CHARACTER TYPE.           FC5A300        3     A     
 HISTORY            3.  DIAGNOSE UNBALANCED PARENTHESES IN DEFINITION.                     FC5A300        4     A     
 HISTORY            MRR    80/12/20    APPLIES TO FTN 5.1 .                                FC5A300        5     A     
 HISTORY                                                                                   FC5A300        6     A     
 HISTORY   FC50168  PARSKEL.  KEEP INTERNAL FUNCTION NAMES LIKE ERR,CMPL                   FC50168        1     A     
 HISTORY            AND CTOI INTERNAL.                                                     FC50168        2     A     
 HISTORY            MAH    80/07/02    APPLIES TO FTN 5.1.                                 FC50168        3     A     
 HISTORY                                                                                   FC50168        4     A     
 HISTORY   FC50169  FMT/AED.  PREVENT SPURIOUS DIAGNOSTICS ON FORMAT                       FC50169        1     A     
 HISTORY            STATEMENT FOLLOWING ERRONEOUS FORMAT.                                  FC50169        2     A     
 HISTORY            MAH    80/07/02    APPLIES TO FTN 5.1.                                 FC50169        3     A     
 HISTORY                                                                                   FC50169        4     A     
 HISTORY   FC50170  LEX/CST.  AVOID ASSUMING A(I:J)=...  IS STATEMENT                      FC50170        1     A     
 HISTORY            FUNCTION DEFINITION BECAUSE A IS NOT TYPED.                            FC50170        2     A     
 HISTORY            MAH    80/07/03    APPLIES TO FTN 5.1.                                 FC50170        3     A     
 HISTORY                                                                                   FC50170        4     A     
 HISTORY   FC50172  CONRED/LCH.  AVOID SPURIOUS DIAGNOSTICS CAUSED BY                      FC50172        1     A     
 HISTORY            CONFUSION OF ARRAY ELEMENT SUBSTRING WITH CHARACTER                    FC50172        2     A     
 HISTORY            CONSTANT.                                                              FC50172        3     A     
 HISTORY            MAH    80/07/07    APPLIES TO FTN 5.1.                                 FC50172        4     A     
 HISTORY                                                                                   FC50172        5     A     
 HISTORY   FC50180  DATA/CFC/CHC.  MOVE THE TEST FOR A PARAMETER USED AS HALF              FC50180        1     A     
 HISTORY            OF A COMPLEX CONSTANT TO AVOID SPURIOUS DIAGNOSTICS.                   FC50180        2     A     
 HISTORY            MRR    80/12/05    APPLIES TO FTN 5.1 .                                FC50180        3     A     
 HISTORY                                                                                   FC50180        4     A     
 HISTORY   FC50182  CCGC/MMV/MZP.  CHANGE LABEL NAMES TO CORRESPOND TO ROUTINE IN          FC50182        1     A     
 HISTORY            WHICH THEY RESIDE.  PREVENTS INCORRECT JUMP FROM MZP INTO MAV.         FC50182        2     A     
 HISTORY            MRR    80/07/28    APPLIES TO FTN 5.1 .                                FC50182        3     A     
 HISTORY                                                                                   FC50182        4     A     
 HISTORY   FC50199  PAR/SQZ.  CORRECT THE MANUFACTURE OF ATTRIBUTES FOR AN INTER-          FC50199        1     A     
 HISTORY            MEDIATE OPERAND MADE TO REPLACE A SQUEEZED TURPLE.                     FC50199        2     A     
 HISTORY            MRR    80/12/20    APPLIES TO FTN 5.1 .                                FC50199        3     A     
 HISTORY                                                                                   FC50199        4     A     
 HISTORY   FC50201  CONRED/DVI.  SWITCH SENSE OF BLOCK DATA TEST TO ALLOW ANSI             FC50201        1     A     
 HISTORY            DIAGNOSTIC FOR INITIALIZATION IN OTHER PROGRAM UNITS AND TO            FC50201        2     A     
 HISTORY            SUPPRESS THE DIAGNOSTIC IN BLOCK DATA.                                 FC50201        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  21    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    80/08/13    APPLIES TO FTN 5.1 .                                FC50201        4     A     
 HISTORY                                                                                   FC50201        5     A     
 HISTORY   FC50207  KEY/CLL.  DIAGNOSE USAGE CONFLICTS OF PARAMETER AND NAMELIST           FC50207        1     A     
 HISTORY            NAMES USED AS SUBROUTINE NAMES IN CALL STATEMENTS.                     FC50207        2     A     
 HISTORY            MRR    80/08/20    APPLIES TO FTN 5.1 .                                FC50207        3     A     
 HISTORY                                                                                   FC50207        4     A     
 HISTORY   FC50216  IO/IDC.  WHEN AN IMPLIED DO IS COMPLETELY COLLAPSED, ASSURE            FC50216        1     A     
 HISTORY            THAT THE BIAS (OFFSET) FIELD IS INCLUDED IN THE ARRAY OPERAND          FC50216        2     A     
 HISTORY            IN ALL CASES.                                                          FC50216        3     A     
 HISTORY            MRR    80/09/05    APPLIES TO FTN 5.1 .                                FC50216        4     A     
 HISTORY                                                                                   FC50216        5     A     
 HISTORY   FC50218  IO/PEC.  CALL SFP TO PROVIDE FILE PROPERTIES WHEN NON-KEYWORD          FC50218        1     A     
 HISTORY            FORMS OF I/O STATEMENTS ARE USED.                                      FC50218        2     A     
 HISTORY            MRR    80/09/03    APPLIES TO FTN 5.1 .                                FC50218        3     A     
 HISTORY                                                                                   FC50218        4     A     
 HISTORY   FC50221  PAR/DOC.  CLEAR 1REF BIT ON DO CONTROL VARIABLE TO AVOID               FC50221        1     A     
 HISTORY            EXTRANEOUS STRAY INDICATION ON ATTRIBUTE MAP.                          FC50221        2     A     
 HISTORY            MRR    80/09/02    APPLIES TO FTN 5.1 .                                FC50221        3     A     
 HISTORY                                                                                   FC50221        4     A     
 HISTORY   FC50226  LIST/WCC.  REMOVE THE DPC ECHO OF CONSTANTS IN OBJECT LISTING.         FC50226        1     A     
 HISTORY            PREVENTS SOME IAF ERRORS WHEN NOS GETS CONFUSED ABOUT COLONS.          FC50226        2     A     
 HISTORY            MRR    80/11/22    APPLIES TO FTN 5.1 .                                FC50226        3     A     
 HISTORY                                                                                   FC50226        4     A     
 HISTORY   FC50236  LIST/WIO.  CORRECTLY SET THE OA.VAR BIT FOR OL OF I/O APLIST           FC50236        1     A     
 HISTORY            ITEMS.                                                                 FC50236        2     A     
 HISTORY            MRR    80/09/26    APPLIES TO FTN 5.1 .                                FC50236        3     A     
 HISTORY                                                                                   FC50236        4     A     
 HISTORY   FC50237  SKEL,QSKEL. CORRECT THE SKELETON FOR COMPLEX SINGLE RELATIONAL         FC50237        1     A     
 HISTORY            .EQ..  FIXES BUG WITH IMAGINARY PART NEGATIVE, REAL PART               FC50237        2     A     
 HISTORY            POSITIVE (AND VICE VERSA).                                             FC50237        3     A     
 HISTORY            MRR    80/09/30    APPLIES TO FTN 5.1 .                                FC50237        4     A     
 HISTORY                                                                                   FC50237        5     A     
 HISTORY   FC50238  DECL/EQU.  STORE VARIABLE NAME ONLY FOR REDUNDANT EQUIVALENCE          FC50238        1     A     
 HISTORY            DIAGNOSTIC.                                                            FC50238        2     A     
 HISTORY            MRR    80/09/11    APPLIES TO FTN 5.1 .                                FC50238        3     A     
 HISTORY                                                                                   FC50238        4     A     
 HISTORY   FC50243  LEX/PLR/LDB.  MODIFY HEADER DELAY OUTPUT LOGIC TO ALLOW                FC50243        1     A     
 HISTORY            PROGRAM NAME TO ALWAYS APPEAR IN THE HEADER.  AVOIDS SITUATION         FC50243        2     A     
 HISTORY            WHERE WHEN MANY COMMENTS PRECEDE THE FIRST INITIAL LINE OF A           FC50243        3     A     
 HISTORY            PROGRAM UNIT, SOME LINES ARE REPEATED.                                 FC50243        4     A     
 HISTORY            MRR    80/09/23    APPLIES TO FTN 5.1 .                                FC50243        5     A     
 HISTORY                                                                                   FC50243        6     A     
 HISTORY   FC50249  COMFISA.  INSURE THAT ENTRY CODE INCLUDES SAVING OF A0 WHEN            FC50249        1     A     
 HISTORY            ANY ENTRY POINT HAS FORMAL PARAMETERS.  AVOIDS PROBLEM OF              FC50249        2     A     
 HISTORY            A0 BEING RESTORED FROM AN UNINITIALIZE TEMPORARY WHEN A MIX            FC50249        3     A     
 HISTORY            OF ENTRIES EXISTS, SOME WITH PARAMETERS, SOME WITHOUT.                 FC50249        4     A     
 HISTORY            MRR    80/09/19    APPLIES TO FTN 5.1 .                                FC50249        5     A     
 HISTORY                                                                                   FC50249        6     A     
 HISTORY   FC50250  LEX/LEX.  WHEN LEX ENCOUNTERS AN EOF/EOR, LIST THE DEFERRED            FC50250        1     A     
 HISTORY            BUFFER WHEN IN HEADER DELAY.  AVOIDS LOSING STRAY COMMENTS             FC50250        2     A     
 HISTORY            WHEN END STATEMENT IS MISSING.                                         FC50250        3     A     
 HISTORY            MRR    80/09/24    APPLIES TO FTN 5.1 .                                FC50250        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  22    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC50250        5     A     
 HISTORY   FC50251  FEC/CVD.  DIAGNOSE ASSUMED SIZE ARRAYS WHICH ARE NOT DUMMY             FC50251        1     A     
 HISTORY            ARGUMENTS.                                                             FC50251        2     A     
 HISTORY            MRR    80/09/23    APPLIES TO FTN 5.1 .                                FC50251        3     A     
 HISTORY                                                                                   FC50251        4     A     
 HISTORY   FC50265  KEY/CLL/ENT/EIF/FIB/EGL.  AFTER ISSUING THE BSS TURPLE FOR A           FC50265        1     A     
 HISTORY            GENERATED LABEL, PUBLISH THE IL.  THIS FORCES OPT=0 TO CLEAR           FC50265        2     A     
 HISTORY            REGISTER ASSIGNMENTS AND PREVENTS BAD CODE FOLLOWING IF BLOCKS         FC50265        3     A     
 HISTORY            ETC.                                                                   FC50265        4     A     
 HISTORY            MRR    80/12/02    APPLIES TO FTN 5.1 .                                FC50265        5     A     
 HISTORY                                                                                   FC50265        6     A     
 HISTORY   FC50275  PAR/TNK.PARM.  WHEN A PARAMETER (SYMBOLIC CONSTANT) IS                 FC50275        1     A     
 HISTORY            ENCOUNTERED IN AN EXPRESSION CONTEXT, CALL NBC TO PROVIDE THE          FC50275        2     A     
 HISTORY            PROPER TP. FORM OF THE CONSTANT (S=CON OR TP.SHRT).  THIS              FC50275        3     A     
 HISTORY            PROVIDES BETTER PARSER OPERATION AND NICER CODE GENERATION.            FC50275        4     A     
 HISTORY            MRR    80/10/14    APPLIES TO FTN 5.1 .                                FC50275        5     A     
 HISTORY                                                                                   FC50275        6     A     
 HISTORY   FC50293  LABEL/GSL/ALU.  PROPERLY DIAGNOSE ILLEGAL FORWARD REFERENCES           FC50293        1     A     
 HISTORY            TO STATEMENT LABELS WITHIN A BLOCK IF.                                 FC50293        2     A     
 HISTORY            MRR    80/11/12    APPLIES TO FTN 5.1 .                                FC50293        3     A     
 HISTORY                                                                                   FC50293        4     A     
 HISTORY   FC50314  PUC/END,INIT00/MIB.  WHEN FORTRAN 5 CONTROL STATEMENT ERRORS           FC50314        1     A     
 HISTORY            ARE FOUND, TAKE THE ABORT EXIT RATHER THAN NORMAL TERMINATION.         FC50314        2     A     
 HISTORY            THIS ALLOWS EXIT(S)[NOS/BE] OR EXIT. [NOS] PROCESSING.                 FC50314        3     A     
 HISTORY            MRR    80/11/14    APPLIES TO FTN 5.1 .                                FC50314        4     A     
 HISTORY                                                                                   FC50314        5     A     
 HISTORY   FC50317  IO/ICK.  WHEN I/O CONTROL KEYWORD PROCESSING DIAGNOSES A TOKEN         FC50317        1     A     
 HISTORY            WHICH IS NOT O.VAR, CORRECTLY SET THE FILL. CELL TO PRODUCE A          FC50317        2     A     
 HISTORY            MEANINGFUL DIAGNOSTIC.                                                 FC50317        3     A     
 HISTORY            MRR    80/11/21    APPLIES TO FTN 5.1 .                                FC50317        4     A     
 HISTORY                                                                                   FC50317        5     A     
 HISTORY   FC50322  FTN.  CHANGE THE VALUE OF THE *F COMPASS SYMBOL TO -3 TO               FC50322        1     A     
 HISTORY            DIFFERENTIATE BETWEEN FTN 4 AND FTN 5.                                 FC50322        2     A     
 HISTORY            MRR    80/12/02    APPLIES TO FTN 5.1 .                                FC50322        3     A     
 HISTORY                                                                                   FC50322        4     A     
 HISTORY   *L552*    ************************************************                      *L552*         1     A     
 HISTORY   FC5A310  PAR/POP.EXP.  CORRECTLY SET THE TRANSPARENT INTRINIC FUNCTION          FC5A310        1     A     
 HISTORY            MODE FOR COMPLEX**REAL AND COMPLEX**DOUBLE.                            FC5A310        2     A     
 HISTORY            MRR    81/01/19    APPLIES TO FTN 5.1 .                                FC5A310        3     A     
 HISTORY                                                                                   FC5A310        4     A     
 HISTORY   FC5A317  PAR.  RECOGNIZE DO BEGIN TOKEN AS UNARY OPERATOR PRECEDENT.            FC5A317        1     A     
 HISTORY            MRR    80/12/08    APPLIES TO FTN 5.1 .                                FC5A317        2     A     
 HISTORY                                                                                   FC5A317        3     A     
 HISTORY   FC5A321  COMCPAC/PAC,COMFCIP,FTN,PUC,INIT00/KEYS.  CORRECT LOOP TEST            FC5A321        1     A     
 HISTORY            FOR SCANNING MULTIPLE BINARY VALUE OPTIONS SO THAT ONLY LEGAL          FC5A321        2     A     
 HISTORY            OPTIONS ARE TESTED.  PREVENTS OPTION OF NEXT PARAMETER BEING           FC5A321        3     A     
 HISTORY            USED.                                                                  FC5A321        4     A     
 HISTORY            MRR    81/01/13    APPLIES TO FTN 5.1 .                                FC5A321        5     A     
 HISTORY                                                                                   FC5A321        6     A     
 HISTORY   FC5A323  PAR/GFR.  CORRECTLY SET SQUEEZE TEST LIMIT WHEN PROCESSING             FC5A323        1     A     
 HISTORY            FUNCTION REFERENCES.                                                   FC5A323        2     A     
 HISTORY            MRR    81/01/12    APPLIES TO FTN 5.1 .                                FC5A323        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  23    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC5A323        4     A     
 HISTORY   FC5A325  KEY/NAM.  MARK NAMELIST GROUP ITEMS AS VARIABLE TO BE ABLE TO          FC5A325        1     A     
 HISTORY            DIAGNOSE LATER INVALID USAGE.                                          FC5A325        2     A     
 HISTORY            MRR    81/01/16    APPLIES TO FTN 5.1 .                                FC5A325        3     A     
 HISTORY                                                                                   FC5A325        4     A     
 HISTORY   FC5A330  DECL/CCC.  FIX LOOP THROUGH T.BLKS.  BROKEN BY FC5A312.                FC5A330        1     A     
 HISTORY            MRR    81/01/30    APPLIES TO FTN 5.1 .                                FC5A330        2     A     
 HISTORY                                                                                   FC5A330        3     A     
 HISTORY   FC5A333  INIT00/CSERRS/MIB.  CORRECT THE TEXT OF VARIOUS CONTROL                FC5A333        1     A     
 HISTORY            STATEMENT DIAGNOSTICS.                                                 FC5A333        2     A     
 HISTORY            MRR    81/02/19    APPLIES TO FTN 5.1 .                                FC5A333        3     A     
 HISTORY                                                                                   FC5A333        4     A     
 HISTORY   FC5A335  FEC/FEC,FERRS.  ADD ANSI DIAGNOSTIC FOR SEQUENCE MODE INPUT.           FC5A335        1     A     
 HISTORY            MRR    81/02/23    APPLIES TO FTN 5.1 .                                FC5A335        2     A     
 HISTORY                                                                                   FC5A335        3     A     
 HISTORY   FC5A337  FEC/CUS,GEN.  BYPASS BEGINNING OF STATEMENT TURPLE OUTPUT FOR          FC5A337        1     A     
 HISTORY            DATA STATEMENTS.  PREVENTS EXTRANEOUS GENERATION OF DEBUG CODE         FC5A337        2     A     
 HISTORY            BY QCG.                                                                FC5A337        3     A     
 HISTORY            MRR    81/04/10    APPLIES TO FTN 5.1 .                                FC5A337        4     A     
 HISTORY                                                                                   FC5A337        5     A     
 HISTORY   FC5A338  FERRS,KEY/CLL,TYPE/TYP,IO/BUF/CUD/PFN,PAR/TRE.  FIX THE                FC5A338        1     A     
 HISTORY            FOLLOWING MINOR PROBLEMS:                                              FC5A338        2     A     
 HISTORY            1.  OUTPUT CORRECT REFERENCE CHARACTER FOR BUFFER I/O FWA/LWA.         FC5A338        3     A     
 HISTORY            2.  PRODUCE DIAGNOSTIC FOR INTERNAL FILE WITH FREE FORMAT.             FC5A338        4     A     
 HISTORY            3.  PRODUCE DIAGNOSTICS FOR SUBROUTINE ENTRY AND EXTERNAL SUB-         FC5A338        5     A     
 HISTORY                ROUTINE WHICH APPEAR IN TYPE DECLARATION.                          FC5A338        6     A     
 HISTORY            4.  OUTPUT CORRECT REFERENCE CHARACTER FOR INTERNAL FILES.             FC5A338        7     A     
 HISTORY            MRR    81/03/06    APPLIES TO FTN 5.1 .                                FC5A338        8     A     
 HISTORY                                                                                   FC5A338        9     A     
 HISTORY   FC5A341  KEY/EIF,LABEL/GSL/ALU.  MODIFY ANALYSIS OF LABEL USAGE IN              FC5A341        1     A     
 HISTORY            BLOCK CONTEXT FOR ENDIF STATEMENT.  ALLOW ENDIF TO BE ACCESSED         FC5A341        2     A     
 HISTORY            OUTSIDE THE BLOCK IT CLOSES.                                           FC5A341        3     A     
 HISTORY            MRR    81/04/15    APPLIES TO FTN 5.1 .                                FC5A341        4     A     
 HISTORY                                                                                   FC5A341        5     A     
 HISTORY   FC5A343  IO/SFP.  AVOID SETTING ACCESS ATTRIBUTE INFORMATION BASED UPON         FC5A343        1     A     
 HISTORY            AUXILLARY I/O STATEMENTS.  ACCESS CANNOT BE DETERMINED AT              FC5A343        2     A     
 HISTORY            COMPILE TIME.                                                          FC5A343        3     A     
 HISTORY            MRR    81/04/23    APPLIES TO FTN 5.1 .                                FC5A343        4     A     
 HISTORY                                                                                   FC5A343        5     A     
 HISTORY   FC5A345  FSCALE.  CORRECT THE OVERFLOW TEST TO BE ABLE TO DIAGNOSE              FC5A345        1     A     
 HISTORY            INVALID FLOATING CONSTANTS AT COMPILE TIME.                            FC5A345        2     A     
 HISTORY            MRR    81/05/06    APPLIES TO FTN 5.1 .                                FC5A345        3     A     
 HISTORY                                                                                   FC5A345        4     A     
 HISTORY   FC5A348  COMFCIP,FTN5TXT,INIT00/CFL.  FORCE THE DEFAULT VALUE OF THE EC         FC5A348        1     A     
 HISTORY            CONTROL STATEMENT PARAMETER TO REFLECT THE SELECTION OF CT.ECS         FC5A348        2     A     
 HISTORY            OPTION AT INSTALLATION TIME OF ECS/LCM.  DESELECT EC IF NO             FC5A348        3     A     
 HISTORY            ECS/LCM IS AVAILABLE AT COMPILE TIME.                                  FC5A348        4     A     
 HISTORY            MRR    81/06/29    APPLIES TO FTN 5.1 .                                FC5A348        5     A     
 HISTORY                                                                                   FC5A348        6     A     
 HISTORY   FC50252  COMSSYM,REC/END,FAS/FI=SUBI/BST.  MAKE THE FP.CA AND FP.LEN            FC50252        1     A     
 HISTORY            FIELDS IN T.FPI DISTINCT.  PREVENTS CCG CONFUSION WHEN MAKING          FC50252        2     A     
 HISTORY            LOCAL COPIES OF DUMMY ARGUMENTS AT OPT=2.  REQUIRES CCGA043.           FC50252        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  24    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    81/04/13    APPLIES TO FTN 5.1 .                                FC50252        4     A     
 HISTORY                                                                                   FC50252        5     A     
 HISTORY   FC50264  COMFWIN/WIN,REG/CRJ,FAS/RAD.  MODIFY HANDLING OF TRACE WORD            FC50264        1     A     
 HISTORY            [SB0+0, SB0+LINE NO.] FOR LARGE LINE/SEQUENCE NUMBERS.  CODE           FC50264        2     A     
 HISTORY            ACCOMODATES OPT .GT. 0 AND REQUIRES CCGA041 FOR CORRECT ACTION         FC50264        3     A     
 HISTORY            IN ALL CASES.  FL50429 IS REQUIRED FOR PROPER RUN TIME LISTING         FC50264        4     A     
 HISTORY            OF LINE/SEQUENCE NUMBERS.                                              FC50264        5     A     
 HISTORY            MRR    81/04/03    APPLIES TO FTN 5.1 .                                FC50264        6     A     
 HISTORY                                                                                   FC50264        7     A     
 HISTORY   FC50267  LEX/TOGEL.  CHANGE THE DEFAULT EXIT FROM CASEIF TO TOK=ILL.            FC50267        1     A     
 HISTORY            PREVENTS LOOPING WHEN 63 CHARACTER SET ENVOKED.                        FC50267        2     A     
 HISTORY            MRR    81/01/26    APPLIES TO FTN 5.1 .                                FC50267        3     A     
 HISTORY                                                                                   FC50267        4     A     
 HISTORY   FC50281  PAR/PAR.SUB.  WHEN DB=SB IS SELECTED, RESET SQUEEZE LIMIT FOR          FC50281        1     A     
 HISTORY            EACH SUBSCRIPTED ARRAY.  PREVENTS INCORRECT CODE BEING GEN-            FC50281        2     A     
 HISTORY            ERATED FOR APLISTS FOR THE SUBSCRIPT BOUND CHECK ROUTINE.              FC50281        3     A     
 HISTORY            MRR    81/01/19    APPLIES TO FTN 5.1 .                                FC50281        4     A     
 HISTORY                                                                                   FC50281        5     A     
 HISTORY   FC50297  MAP/CBS/OECI/OML/TAB/NAME.  CONVERT THE COMMON/EQUIVALENCE MAP         FC50297        1     A     
 HISTORY            TO A TABULAR FORMAT.                                                   FC50297        2     A     
 HISTORY            MRR    81/01/28    APPLIES TO FTN 5.1 .                                FC50297        3     A     
 HISTORY                                                                                   FC50297        4     A     
 HISTORY   FC50299  FTN5TXT,DECL/EQS/EQU.  MODIFY EQUIVALENCE DIGESTION TO ALLOW           FC50299        1     A     
 HISTORY            ARRAYS WITH NON-UNITY LOWER BOUNDS.  PREVENTS INVALID                  FC50299        2     A     
 HISTORY            DIAGNOSTICS AND INCORRECT EQUIVALENCING FOR SUCH ARRAYS.               FC50299        3     A     
 HISTORY            MRR    81/01/09    APPLIES TO FTN 5.1 .                                FC50299        4     A     
 HISTORY                                                                                   FC50299        5     A     
 HISTORY   FC50318  KEY/STP/GOT/GOA/EIF/IFL.  WHEN NO LABEL IS TO BE GENERATED             FC50318        1     A     
 HISTORY            FOR THE ENDIF AND NOPATH IS IN FORCE (I.E., ALL BLOCK OF THE           FC50318        2     A     
 HISTORY            IF STRUCTURE END IN UNCONDITIONAL CONTROL TRANSFER), LEAVE             FC50318        3     A     
 HISTORY            NOPATH IN EFFECT.  ALLOWS MORE THOROUGH NOPATH DIAGNOSIS AND           FC50318        4     A     
 HISTORY            ALLOWS SOME REDUCTION OF CODE GENERATION.  WILL SUPRESS SOME           FC50318        5     A     
 HISTORY            UNNECESSARY **DEAD CODE** CODE DIAGNOSTICS AT OPT=2.                   FC50318        6     A     
 HISTORY            MRR    81/05/26    APPLIES TO FTN 5.1 .                                FC50318        7     A     
 HISTORY                                                                                   FC50318        8     A     
 HISTORY   FC50336  FTN5TXT,DATA/CRL.  WHEN REPEAT COUNT ON A DATA ITEM LIST IS            FC50336        1     A     
 HISTORY            .GT. 77777B (LOADER LIMIT), SPLIT THE THE REPEATED LIST,               FC50336        2     A     
 HISTORY            DUPLICATING CONSTANTS AND ADJUSTING THE REPEAT COUNT TO VALID          FC50336        3     A     
 HISTORY            SIZE.  CONTINUE UNTIL REPEAT COUNT SATISFIED.                          FC50336        4     A     
 HISTORY            MRR    81/01/23    APPLIES TO FTN 5.1 .                                FC50336        5     A     
 HISTORY                                                                                   FC50336        6     A     
 HISTORY   FC50345  COMCPAC/GNC.  MODIFY HANDLING OF CONTINUED CONTROL STATEMENTS          FC50345        1     A     
 HISTORY            TO ACCOMADATE SCOPE 2.  NOTE:  THIS CORRECTIVE CODE ASSUMES            FC50345        2     A     
 HISTORY            THAT FTN5 IS INSTALLED ON SCOPE 2 WITH LDSET(NOREAD).                  FC50345        3     A     
 HISTORY            MRR    81/04/16    APPLIES TO FTN 5.1 .                                FC50345        4     A     
 HISTORY                                                                                   FC50345        5     A     
 HISTORY   FC50353  PUC/WHL,PEM/PEM,INIT00/PPW,LEX/LSL,HEADER/DCM,FAS,MAP,LIST.            FC50353        1     A     
 HISTORY            MODIFY HANDLING OF PW PARAMETER TO HONOR THE RANGE 126-135             FC50353        2     A     
 HISTORY            CORRECTLY.                                                             FC50353        3     A     
 HISTORY            MRR    81/01/13    APPLIES TO FTN 5.1 .                                FC50353        4     A     
 HISTORY                                                                                   FC50353        5     A     
 HISTORY   FC50372  PAR/SHIFT.  WHEN A NULL SHIFT IS ELIMINATED, RESET THE SHIFT           FC50372        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  25    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            VALUE OPERAND MODE TO BOOLEAN.                                         FC50372        2     A     
 HISTORY            MRR    81/01/16    APPLIES TO FTN 5.1 .                                FC50372        3     A     
 HISTORY                                                                                   FC50372        4     A     
 HISTORY   FC50374  PAR/CONO.  MARK *(* AND *=* AS ILLEGAL SUCCESSOR ELEMENTS FOR          FC50374        1     A     
 HISTORY            CHARACTER AND HOLLERITH CONSTANTS.  ALLOWS CORRECT DIAGNOSIS           FC50374        2     A     
 HISTORY            OF INVALID CONDITIONS.                                                 FC50374        3     A     
 HISTORY            MRR    81/01/15    APPLIES TO FTN 5.1 .                                FC50374        4     A     
 HISTORY                                                                                   FC50374        5     A     
 HISTORY   FC50377  PAR/PAR.  AFTER DIAGNOSING AN INVALID FIRST ELEMENT FOR AN             FC50377        1     A     
 HISTORY            EXPRESSION, UPDATE THE TOKEN BUFFER POINTER TO ALLOW GRACEFUL          FC50377        2     A     
 HISTORY            RECOVERY.                                                              FC50377        3     A     
 HISTORY            MRR    81/01/20    APPLIES TO FTN 5.1 .                                FC50377        4     A     
 HISTORY                                                                                   FC50377        5     A     
 HISTORY   FC50378  IO/DCB.  AFTER GETTING TP. FORMAT OF VARIABLE SIZE MULTIPLIER          FC50378        1     A     
 HISTORY            FOR AN IMPLIED DO PARTIAL COLLAPSE SIZE, PUT IT IN THE CORRECT         FC50378        2     A     
 HISTORY            REGISTER FOR TURPLE PRODUCTION.                                        FC50378        3     A     
 HISTORY            MRR    81/01/26    APPLIES TO FTN 5.1 .                                FC50378        4     A     
 HISTORY                                                                                   FC50378        5     A     
 HISTORY   FC50387  HEADER/SAL.  CORRECT THE CROSS REFERENCE CHARACTER FOR DUMMY           FC50387        1     A     
 HISTORY            ARGUMENTS.                                                             FC50387        2     A     
 HISTORY            MRR    81/02/02    APPLIES TO FTN 5.1 .                                FC50387        3     A     
 HISTORY                                                                                   FC50387        4     A     
 HISTORY   FC50391  PAR/ADT/CBB.  MAKE ALL NON-CHARACTER VARIABLE OPERANDS BASE/           FC50391        1     A     
 HISTORY            BIAS FORMAT.  ALLOWS QCGC TO GENERATE PROPER CODE WHEN EQUIV-          FC50391        2     A     
 HISTORY            ALENCED VARIABLES ARE INVOLVED IN REPLACEMENT STATEMENTS.              FC50391        3     A     
 HISTORY            MRR    81/02/26    APPLIES TO FTN 5.1 .                                FC50391        4     A     
 HISTORY                                                                                   FC50391        5     A     
 HISTORY   FC50392  FLINK/PDC,PAR/POP.DIV,CONRED/CTA.  WHEN ROUND SELECTION FOR            FC50392        1     A     
 HISTORY            MULTIPLY AND DIVIDE OPERATIONS IS DIFFERENT, SUPRESS THE               FC50392        2     A     
 HISTORY            MULTIPLY BY RECIPROCAL OPTIMIZATION.                                   FC50392        3     A     
 HISTORY            MRR    81/02/05    APPLIES TO FTN 5.1 .                                FC50392        4     A     
 HISTORY                                                                                   FC50392        5     A     
 HISTORY   FC50396  PAR/PAR.STOP.  WHEN ABORTING THE PARSE, DETERMINE IF AN I/O            FC50396        1     A     
 HISTORY            IMPLIED DO IS STILL LIVE, AND IF SO, MARK FOR REMOVAL BY PSL.          FC50396        2     A     
 HISTORY            MRR    81/02/13    APPLIES TO FTN 5.1 .                                FC50396        3     A     
 HISTORY                                                                                   FC50396        4     A     
 HISTORY   FC50409  FERRS,HEADER/COVC.  ALLOW SUBROUTINES WITH DUMMY ARGUMENTS TO          FC50409        1     A     
 HISTORY            APPEAR FOLLOWING AN OVCAP DIRECTIVE.                                   FC50409        2     A     
 HISTORY            MRR    81/02/26    APPLIES TO FTN 5.1 .                                FC50409        3     A     
 HISTORY                                                                                   FC50409        4     A     
 HISTORY   FC50417  PAR/SETOPS.  INHIBIT FRONT END SQUEEZE OF CHARACTER SUBSTRING          FC50417        1     A     
 HISTORY            TURPLES (O=COLON/O=SUBST).  PREVENTS TRANSFORMATION PROBLEMS           FC50417        2     A     
 HISTORY            IN BRIDGE.                                                             FC50417        3     A     
 HISTORY            MRR    81/03/30    APPLIES TO FTN 5.1 .                                FC50417        4     A     
 HISTORY                                                                                   FC50417        5     A     
 HISTORY   FC50437  DATA/CSC.  INSERT PROTECTION CODE AROUND REFERENCE OUTPUT              FC50437        1     A     
 HISTORY            TO KEEP POINTERS STRAIGHT SHOULD A STATEMENT FUNCTION BE               FC50437        2     A     
 HISTORY            IN PROGRESS.  PREVENTS STRANGE AND RANDOM COLLECTION OF                FC50437        3     A     
 HISTORY            DIAGNOSTICS.                                                           FC50437        4     A     
 HISTORY            MRR    81/04/09    APPLIES TO FTN 5.1 .                                FC50437        5     A     
 HISTORY                                                                                   FC50437        6     A     
 HISTORY   FC50438  FERRS,DECL/DIR,PAR/TRE.  DIAGNOSE USE OF ADJUSTABLE DIMENSIONS         FC50438        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  26    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ON ARRAYS IN MAIN PROGRAM OR COMMON ARRAYS.  PREVENTS MISLEAD-         FC50438        2     A     
 HISTORY            ING DIAGNOSTICS BEING OUTPUT DOWNSTREAM.                               FC50438        3     A     
 HISTORY            MRR    81/04/06    APPLIES TO FTN 5.1 .                                FC50438        4     A     
 HISTORY                                                                                   FC50438        5     A     
 HISTORY   FC50443  DECL/APT.  CORRECT THE TEST FOR COMMON BLOCK LENGTH.                   FC50443        1     A     
 HISTORY            MRR    81/04/07    APPLIES TO FTN 5.1 .                                FC50443        2     A     
 HISTORY                                                                                   FC50443        3     A     
 HISTORY   FC50445  PAR/PAR.STFD.  WHEN PERFORMING THE ASSOCIATION OF STATEMENT            FC50445        1     A     
 HISTORY            FUNCTION ACTUAL ARGUMENT WITH THE DUMMY ARGUMENT, RESET THE            FC50445        2     A     
 HISTORY            ATTRIBUTE SUMP TO REFLECT THE ACTUAL ARGUMENT.  PREVENTS               FC50445        3     A     
 HISTORY            PARSER GOING AWRY WHEN MODE COERSION IS REQUIRED.                      FC50445        4     A     
 HISTORY            MRR    81/04/07    APPLIES TO FTN 5.1 .                                FC50445        5     A     
 HISTORY                                                                                   FC50445        6     A     
 HISTORY   FC50451  FTN5TXT,KEY/RTN,MAP.  OUTPUT REFERENCES FOR RETURN STATEMENTS          FC50451        1     A     
 HISTORY            IN SUBROUTINE SUBPROGRAMS WHEN LO=R.                                   FC50451        2     A     
 HISTORY            MRR    81/05/22    APPLIES TO FTN 5.1 .                                FC50451        3     A     
 HISTORY                                                                                   FC50451        4     A     
 HISTORY   FC50452  COMFWIN/WIN,QCGC.  WHEN OUTPUTTING A BOS PSEUDO TO F.PB AND            FC50452        1     A     
 HISTORY            DB=ID WAS REQUESTED, FORCE UPPER FOR LINE NUMBER TABLE ACCESS.         FC50452        2     A     
 HISTORY            THIS KEEPS QCG ORIGIN COUNTER IN SYNCH WITH THAT IN FAS.               FC50452        3     A     
 HISTORY            MRR    81/04/29    APPLIES TO FTN 5.1 .                                FC50452        4     A     
 HISTORY                                                                                   FC50452        5     A     
 HISTORY   FC50457  CGHCSTD,HCDEFS,LIST/KTX/WAP.  CHANGE THE OBJECT LISTING                FC50457        1     A     
 HISTORY            MNEMONIC FOR LCM POINTER WORDS FROM LC.N TO LP.N TO AVOID              FC50457        2     A     
 HISTORY            CONFUSION WITH LOCAL COPY (OF DUMMY ARGUMENTS) MNEMONIC.               FC50457        3     A     
 HISTORY            INSURE CORRECT OBJECT LISTING ADDRESS OF THE POINTER WORDS             FC50457        4     A     
 HISTORY            WHEN NO APLISTS ARE PRESENT.                                           FC50457        5     A     
 HISTORY            MRR    81/05/05    APPLIES TO FTN 5.1 .                                FC50457        6     A     
 HISTORY                                                                                   FC50457        7     A     
 HISTORY   FC50460  IO/DOCS.  SUPRESS I/O IMPLIED DO COLLAPSE FOR ARRAYS WHICH             FC50460        1     A     
 HISTORY            HAVE EXPRESSIONS AS SUBSCRIPTS.                                        FC50460        2     A     
 HISTORY            MRR    81/05/01    APPLIES TO FTN 5.1 .                                FC50460        3     A     
 HISTORY                                                                                   FC50460        4     A     
 HISTORY   FC50474  FERRS,PAR/STFE.  PROVIDE A MORE MEANINGFUL DIAGNOSTIC WHEN             FC50474        1     A     
 HISTORY            MODE COERSION OF A STATEMENT FUNCTION RESULT TO THE FUNCTION           FC50474        2     A     
 HISTORY            TYPE IS INVALID.                                                       FC50474        3     A     
 HISTORY            MRR    81/05/07    APPLIES TO FTN 5.1 .                                FC50474        4     A     
 HISTORY                                                                                   FC50474        5     A     
 HISTORY   FC50475  FLINK/PDC.  AVOID CONSTANT INVERSION (DIVIDE TO MULTIPLY               FC50475        1     A     
 HISTORY            OPTIMIZTION) WHEN DIVISOR IS LONG BOOLEAN CONSTANT.                    FC50475        2     A     
 HISTORY            MRR    81/05/14    APPLIES TO FTN 5.1 .                                FC50475        3     A     
 HISTORY                                                                                   FC50475        4     A     
 HISTORY   FC50480  LEX/KEYW,CDDIR/COL.  DON'T RESET THE COLLATE DIRECTIVE CELL AT         FC50480        1     A     
 HISTORY            THE TIME A C$ COLLATE DIRECTIVE IS PROCESSED. THIS IS A CODE           FC50480        2     A     
 HISTORY            GENERATOR FUNCTION, AND TO PERFORM IT AT PARSE TIME CAN CAUSE          FC50480        3     A     
 HISTORY            THE WRONG CHARACTER FUNCTION TO BE CALLED AT OPT=0.                    FC50480        4     A     
 HISTORY            MRR    81/05/28    APPLIES TO FTN 5.1 .                                FC50480        5     A     
 HISTORY                                                                                   FC50480        6     A     
 HISTORY   *L564*    ************************************************                      *L564*         1     A     
 HISTORY   FC5*82   FTN. UPDATE COPYRIGHT INFORMATION FOR 1982.                            FC5*82         1     A     
 HISTORY            MRR    81/09/10    APPLIES TO FTN 5.1 .                                FC5*82         2     A     
 HISTORY                                                                                   FC5*82         3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  27    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   F1039    COMCPAC,COMFTTL,FTN,PUC,INIT00,FEC,HEADER.                             F1039          1     A     
 HISTORY            REVISE MAIN TITLE TO CONTAIN CURRENT VALUES OF ROUND OPTIONS           F1039          2     A     
 HISTORY            AND DIRECTIVE SUPPRESSION STATUS. A SECOND LINE WILL CONTAIN           F1039          3     A     
 HISTORY            CURRENT VALUES OF DO LOOP CONTROL OPTIONS, ARGUMENT LIST               F1039          4     A     
 HISTORY            ATTRIBUTES, COLLATING SEQUENCE OPTIONS, DEBUGGING OPTIONS              F1039          5     A     
 HISTORY            AND PRINT LIMIT. A THIRD LINE WILL CONTAIN THE FORTRAN CALL            F1039          6     A     
 HISTORY            STATEMENT AND IS LIMITED TO THE FIRST 120 CHARACTERS.                  F1039          7     A     
 HISTORY            SSK    81/05/11    APPLIES TO FTN 5.1 .                                F1039          8     A     
 HISTORY                                                                                   F1039          9     A     
 HISTORY   FC5A360  MAP/CLS/TYP.  FIX THE FOLLOWING REFERENCE MAP PROBLEMS:                FC5A360        1     A     
 HISTORY            1. WHEN AN DECLARED EXTERNAL IS NOT USED AS SUBROUTINE OR              FC5A360        2     A     
 HISTORY               FUNCTION, TYPE SHOULD BE NULL.                                      FC5A360        3     A     
 HISTORY            2. WHEN A FUNCTION IS DECLARED EXTERNAL, THAT CLASS SHOULD             FC5A360        4     A     
 HISTORY               APPEAR.                                                             FC5A360        5     A     
 HISTORY            MRR    81/10/13    APPLIES TO FTN 5.1 .                                FC5A360        6     A     
 HISTORY                                                                                   FC5A360        7     A     
 HISTORY   FC5A369  FMT/FMT/FMT=EOS, FAS/KIO.  INSERT THE LENGTH (CHARACTERS) OF A         FC5A369        1     A     
 HISTORY            FORMAT STATEMENT TEXT IN THE RELEVANT APLIST(S) [OA.LEN].              FC5A369        2     A     
 HISTORY            ALLOWS FASTER FORMAT PROCESSING BY THE LIBRARY.                        FC5A369        3     A     
 HISTORY            MRR    81/10/06    APPLIES TO FTN 5.1 .                                FC5A369        4     A     
 HISTORY                                                                                   FC5A369        5     A     
 HISTORY   FC5A370  CHANGE CWEORS TO WEORS AND *TESTFTN* DEF TO *TEST*.                    FC5A370        1     A     
 HISTORY            SCC    10/19/81    CWEOR1-5, WEOR1*-5*, FWACOM, OPTIONS, IDP,          FC5A370        2     A     
 HISTORY                               OVL00, OVL10, OVL20, OVL21, OVL22, OVL23            FC5A370        3     A     
 HISTORY                                                                                   FC5A370        4     A     
 HISTORY   FC5A371  FERRS,LABEL/CDI/KDI.  DIAGNOSE DO STATEMENTS WITH M1+M3 OR             FC5A371        1     A     
 HISTORY            M2+M3 .GT. 2**17-1 AND DO=LONG NOT SELECTED.                           FC5A371        2     A     
 HISTORY            MRR    81/11/10    APPLIES TO FTN 5.1 .                                FC5A371        3     A     
 HISTORY                                                                                   FC5A371        4     A     
 HISTORY   FC5A373  FAS/KIO.  CORRECT THE SETTING OF THE LENGTH/INDIRECT FIELDS            FC5A373        1     A     
 HISTORY            FOR BUFFER I/O FWA/LWA APLIST ENTRIES.                                 FC5A373        2     A     
 HISTORY            MRR    81/10/29    APPLIES TO FTN 5.1 .                                FC5A373        3     A     
 HISTORY                                                                                   FC5A373        4     A     
 HISTORY   FC5A374  FERRS.  REWORD DIAGNOSTIC TO REFLECT INVALID REDUNDANT                 FC5A374        1     A     
 HISTORY            PARENTHESES IN AN I/O LIST.                                            FC5A374        2     A     
 HISTORY            MRR    81/10/22    APPLIES TO FTN 5.1 .                                FC5A374        3     A     
 HISTORY                                                                                   FC5A374        4     A     
 HISTORY   FC50239  QCGC/CAI,FUN/PAS.  CORRECT BAD CODE GENERATION FOR ACTUAL              FC50239        1     A     
 HISTORY            ARGUMENTS WHICH ARE CHARACTER EXPRESSIONS INVOLVING CONCAT-            FC50239        2     A     
 HISTORY            ENATION OF SUBSTRINGS OR ARRAY ELEMENTS.  CLEAR THE APLIST             FC50239        3     A     
 HISTORY            FLAG CELLS AT EACH ITERATION OF CAI TO PREVENT CARRY OVER OF           FC50239        4     A     
 HISTORY            INFORMATION FROM A PREVIOUS APLIST STRUCTURE.                          FC50239        5     A     
 HISTORY            MAH/MRR 81/07/16         APPLIES TO FTN 5.1, OPT=0.                    FC50239        6     A     
 HISTORY                                                                                   FC50239        7     A     
 HISTORY   FC50326  COMSSYM,COMSSYC,HEADER/SAL,KEY/AGN/NAM/GOA,PAR/TRE,STMTF/SFD,          FC50326        1     A     
 HISTORY            QCGC/SMB,MAP/BLK/PRP.  DONT ALLOCATE STORAGE FOR VARIABLES             FC50326        2     A     
 HISTORY            WHICH APPEAR ONLY AS STATEMENT FUNCTION DUMMY ARGUMENTS.               FC50326        3     A     
 HISTORY            SUPRESS ATTRIBUTES FOR SUCH VARIABLES IN MAP LISTINGS.                 FC50326        4     A     
 HISTORY            MRR    81/07/20    APPLIES TO FTN 5.1 .                                FC50326        5     A     
 HISTORY                                                                                   FC50326        6     A     
 HISTORY   FC50408  REG/SLD                                                                FC50408        1     A     
 HISTORY            ADDRESS FUNCTION REGISTER NOT LOCKED WHEN ADDRESS FUNCTION             FC50408        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  28    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            AND ARRAY LOAD CLAIM SAME REGISTER.                                    FC50408        3     A     
 HISTORY            SSK    81/09/17    APPLIES TO FTN 5.1, OPT=0.                          FC50408        4     A     
 HISTORY                                                                                   FC50408        5     A     
 HISTORY   FC50413  IO/CVL.  SUPRESS TURPLE SQUEEZE FOR I/O ARGUMENTS.  PREVENTS           FC50413        1     A     
 HISTORY            BAD CODE GENERATION AT OPT=0 WHEN FUNCTION CALLS APPEAR IN             FC50413        2     A     
 HISTORY            I/O ARGUMENT LISTS.                                                    FC50413        3     A     
 HISTORY            MRR    81/07/21    APPLIES TO FTN 5.1 .                                FC50413        4     A     
 HISTORY                                                                                   FC50413        5     A     
 HISTORY   FC50478  PAR/PAR.EOS.  BYPASS SPECIAL END-OF-STATEMENT PROCESSING WHEN          FC50478        1     A     
 HISTORY            LAST TURPLE PROCESSED IS AN ERROR TURPLE.  AVOIDS ATTEMPTING           FC50478        2     A     
 HISTORY            TO SYNTHESIZE GARBAGE.                                                 FC50478        3     A     
 HISTORY            MRR    81/09/29    APPLIES TO FTN 5.1 .                                FC50478        4     A     
 HISTORY                                                                                   FC50478        5     A     
 HISTORY   FC50483  KEY/IFL.  DIAGNOSE AN INVALID 3-BRANCH EXPRESSION EARLIER IN           FC50483        1     A     
 HISTORY            THE IF ANALYSIS.  ALLOWS DIAGNOSTIC TO APPEAR FOLLOWING THE            FC50483        2     A     
 HISTORY            PROPER SOURCE LINE.                                                    FC50483        3     A     
 HISTORY            MRR    81/08/04    APPLIES TO FTN 5.1 .                                FC50483        4     A     
 HISTORY                                                                                   FC50483        5     A     
 HISTORY   FC50488  MAP/DMF/SRNI.  CORRECT SETUP FOR MAP MODULE PROCESSING.                FC50488        1     A     
 HISTORY            PREVENTS BAD SORT OF LO=A LISTING WHEN MULTIPLE PAGES ARE              FC50488        2     A     
 HISTORY            INVOLVED.                                                              FC50488        3     A     
 HISTORY            MRR    81/08/03    APPLIES TO FTN 5.1 .                                FC50488        4     A     
 HISTORY                                                                                   FC50488        5     A     
 HISTORY   FC50496  HEADER/PSA.  MAKE A NEW SEARCH LOOP FOR T.ENTP ENTRIES.  USING         FC50496        1     A     
 HISTORY            NCM ALLOWED PROPER SUBSETS OF PARAMETER LISTS TO BE NOTED AS A         FC50496        2     A     
 HISTORY            MATCH, RESULTING IN BAD ENTRY CODE FOR PASSED LENGTH CHARACTER         FC50496        3     A     
 HISTORY            ARGUMENTS.                                                             FC50496        4     A     
 HISTORY            MRR    81/07/28    APPLIES TO FTN 5.1 .                                FC50496        5     A     
 HISTORY                                                                                   FC50496        6     A     
 HISTORY   FC50512  HEADER/PSA,DECL/PCF.  INSERT AN ENTRY INTO T.ENTP FOR VALUE.           FC50512        1     A     
 HISTORY            OF CHARACTER FUNCTIONS WITH ASSUMED SIZE.  ALLOWS PROPER CODE          FC50512        2     A     
 HISTORY            GENERATION FOR SUCH FUNCTIONS.                                         FC50512        3     A     
 HISTORY            MRR    81/09/16    APPLIES TO FTN 5.1 .                                FC50512        4     A     
 HISTORY                                                                                   FC50512        5     A     
 HISTORY   FC50514  FTN5TXT,LABEL/GSL,MAP/STS.  WHEN LO=R IS SELECTED, SUPRESS             FC50514        1     A     
 HISTORY            REFERENCE MAP OUTPUT FOR SYMBOLS WITH NO ACCOCIATED                    FC50514        2     A     
 HISTORY            REFERENCES.  PROVIDE REFERENCE FOR LABEL DEFINITIONS.                  FC50514        3     A     
 HISTORY            MRR    81/12/02    APPLIES TO FTN 5.1 .                                FC50514        4     A     
 HISTORY                                                                                   FC50514        5     A     
 HISTORY   FC50515  TYPE/TYP.  DIAGNOSE MULTIPLE TYPE DECLARATIONS (CONFIRMING) OF         FC50515        1     A     
 HISTORY            SYMBOLIC CONSTANTS (PARAMETERS).                                       FC50515        2     A     
 HISTORY            MRR    81/06/27    APPLIES TO FTN 5.1 .                                FC50515        3     A     
 HISTORY                                                                                   FC50515        4     A     
 HISTORY   FC5A339  TYPE/TYP.  PRESERVE THE SYMBOL TABLE ORDINAL OF A TYPED ITEM           FC5A339        1     A     
 HISTORY            UNTIL THE RELEVANT CROSS REFERENCE ENTRY IS MADE.  PREVENTS            FC5A339        2     A     
 HISTORY            MAP PROBLEMS (MODE ERRORS, ETC.) WHEN A BAD REFERENCE IS MADE.         FC5A339        3     A     
 HISTORY            MRR    81/11/05    APPLIES TO FTN 5.1 .                                FC5A339        4     A     
 HISTORY                                                                                   FC5A339        5     A     
 HISTORY   FC5A390  PAR/POP.EXP.  CORRECT TEST FOR INLINE VS. LIBRARY EXPONENT-            FC5A390        1     A     
 HISTORY            ATION.  FIXES BOUNDARY VALUE OF CONSTANT POWER OF 17, WHICH            FC5A390        2     A     
 HISTORY            WAS COMPILED INLINE (WHEN NO SKELETON EXISTED).                        FC5A390        3     A     
 HISTORY            MRR    82/02/10    APPLIES TO FTN 5.1 .                                FC5A390        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  29    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC5A390        5     A     
 HISTORY   FC50518  INIT20.  WHEN (2,0) OVERLAY IS CALLED AND THE LAST RECORD READ         FC50518        1     A     
 HISTORY            WAS AN EOR, INITIALIZE THE BINARY (LGO) FILE, IF NECESSARY.            FC50518        2     A     
 HISTORY            ALLOWS AN EOP TO BE WRITTEN (SCOPE 2) WHEN COMPASS PROGRAM             FC50518        3     A     
 HISTORY            UNITS ARE THE ONLY COMPILED.                                           FC50518        4     A     
 HISTORY            MRR    81/11/03    APPLIES TO FTN 5.1 .                                FC50518        5     A     
 HISTORY                                                                                   FC50518        6     A     
 HISTORY   FC50533  DECL/MCA.  EXTRACT THE CT.LNK FIELD (FROM T.COMM) CORRECTLY.           FC50533        1     A     
 HISTORY            PREVENTS MODE ERROR WHEN LARGE NUMBER OF COMMON ITEMS ARE              FC50533        2     A     
 HISTORY            PRESENT.                                                               FC50533        3     A     
 HISTORY            MRR    81/07/27    APPLIES TO FTN 5.1 .                                FC50533        4     A     
 HISTORY                                                                                   FC50533        5     A     
 HISTORY   FC50545  COMFWIN/WI=BOS,QCGC                                                    FC50545        1     A     
 HISTORY            THE DB=0/ST CONTROL CARD OPTION CAUSES THE ORIGIN COUNTER              FC50545        2     A     
 HISTORY            TO GET OUT OF SYNCH WITH COUNTER IN FAS. TO KEEP COUNTERS              FC50545        3     A     
 HISTORY            IN SYNCH THE ORIGIN COUNTER MUST BE ADVANCED WHEN A FORCED             FC50545        4     A     
 HISTORY            UPPER OCCURS AT BEGINNING OF NEXT LINE WITH ABOVE CONTROL              FC50545        5     A     
 HISTORY            CARD OPTION.                                                           FC50545        6     A     
 HISTORY            SSK    81/08/31    APPLIES TO FTN 5.1 .                                FC50545        7     A     
 HISTORY                                                                                   FC50545        8     A     
 HISTORY   FC50553  FMT/FMT=RP.  FIX THE FOLLOWING FORMAT STATEMENT BUGS:                  FC50553        1     A     
 HISTORY            1. ALLOW 9 LEVELS OF PARENTHESES NESTING WITHIN FORMAT                 FC50553        2     A     
 HISTORY               STATEMENT.                                                          FC50553        3     A     
 HISTORY            2. DIAGNOSE NULL EDIT DESCRIPTOR OF FORM ( ).                          FC50553        4     A     
 HISTORY            MRR    81/09/21    APPLIES TO FTN 5.1 .                                FC50553        5     A     
 HISTORY                                                                                   FC50553        6     A     
 HISTORY   FC50554  DATA/BIT.  SET FILL. WITH NAME OF SUPPOSED SYMBOLIC CONSTANT           FC50554        1     A     
 HISTORY            TO PROVIDE PROPER DIAGNOSTIC SHOULD THE DATA CONSTANT LIST             FC50554        2     A     
 HISTORY            ITEM PROVE TO NOT BE A PARAMETER.                                      FC50554        3     A     
 HISTORY            MRR    81/09/18    APPLIES TO FTN 5.1 .                                FC50554        4     A     
 HISTORY                                                                                   FC50554        5     A     
 HISTORY   FC50555  FERRS, FMT/DIG/AED.  DIAGNOSE FAULTY EDIT DESCRIPTORS OF THE           FC50555        1     A     
 HISTORY            FORM F10.                                                              FC50555        2     A     
 HISTORY            MRR    81/09/22    APPLIES TO FTN 5.1 .                                FC50555        3     A     
 HISTORY                                                                                   FC50555        4     A     
 HISTORY   FC50557  IO/BFWA/BLWA.  ON BUFFER I/O, CONVERT THE BUFFER FWA AND LWA           FC50557        1     A     
 HISTORY            SPECIFIERS TO BASE/BIAS FORMAT.  PREVENTS SPURIOUS DIAGNOSTICS         FC50557        2     A     
 HISTORY            ON EQUIVALENCED ARRAYS.                                                FC50557        3     A     
 HISTORY            MRR    81/09/21    APPLIES TO FTN 5.1 .                                FC50557        4     A     
 HISTORY                                                                                   FC50557        5     A     
 HISTORY   FC50558  FEC/FVD, HEADER/SAL, DECL/PCD/ACV.  ADD A VARDIM ENTRY FOR             FC50558        1     A     
 HISTORY            PASSED LENGTH CHARACTER FORMAL PARAMETER WHOSE F.P. OCCURANCE          FC50558        2     A     
 HISTORY            IS ON AN ENTRY STATEMENT.  ALLOWS PROPER VD. MATERIALIZATION.          FC50558        3     A     
 HISTORY            MRR    81/10/02    APPLIES TO FTN 5.1 .                                FC50558        4     A     
 HISTORY                                                                                   FC50558        5     A     
 HISTORY   FC50560  PAR/PAR.OCT.  PROVIDE ANSI DIAGNOSTIC FOR OCTAL CONSTANTS.             FC50560        1     A     
 HISTORY            MRR    81/09/21    APPLIES TO FTN 5.1 .                                FC50560        2     A     
 HISTORY                                                                                   FC50560        3     A     
 HISTORY   FC50562  MAP/ARG.  INDICATE VARIABLE FOR NUMBER OF ARGUMENTS ON THOSE           FC50562        1     A     
 HISTORY            INTRINSIC FUNCTIONS WHICH HAVE NO LIMIT ON ARGUMENTS.                  FC50562        2     A     
 HISTORY            MRR    81/10/13    APPLIES TO FTN 5.1 .                                FC50562        3     A     
 HISTORY                                                                                   FC50562        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  30    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC50567  FEC/PUP.  INITIALIZE FORMAL PARAMETER COUNT CELL TO AVOID              FC50567        1     A     
 HISTORY            CARRY OVER FROM PROGRAM UNIT TO UNIT.                                  FC50567        2     A     
 HISTORY            MRR    81/09/22    APPLIES TO FTN 5.1 .                                FC50567        3     A     
 HISTORY                                                                                   FC50567        4     A     
 HISTORY   FC50570  DATA/BIT/ASC/CFC/CHC/CPR/CSC, DECL/LVL.  REMOVE THE ADDREF             FC50570        1     A     
 HISTORY            CALL FROM CSC AND ESTABLISH SUCH CALLS WHERE REQUIRED.                 FC50570        2     A     
 HISTORY            PREVENTS DUPLICATION OF REFERENCES (LO=R) WHEN A COMPLEX               FC50570        3     A     
 HISTORY            CONSTANT TRY FAILS.                                                    FC50570        4     A     
 HISTORY            MRR    81/11/23    APPLIES TO FTN 5.1 .                                FC50570        5     A     
 HISTORY                                                                                   FC50570        6     A     
 HISTORY   FC50573  IO/DOCS.  FIX TEST FOR DATA INTERFERENCE ON IMPLIED DO IN              FC50573        1     A     
 HISTORY            DEFINING STATEMENTS (READ & DATA).  BROKEN BY FC5A256.                 FC50573        2     A     
 HISTORY            MRR    81/10/06    APPLIES TO FTN 5.1 .                                FC50573        3     A     
 HISTORY                                                                                   FC50573        4     A     
 HISTORY   FC50586  BRIDGE/SUB.  TREAT INTRINSIC FUNCTION REFERENCES AS USER               FC50586        1     A     
 HISTORY            FUNCTIONS WHEN DB=TB IS SELECTED.  PREVENTS OPT=2 KILLING              FC50586        2     A     
 HISTORY            NECESSARY STORES TO APLIST ITEMS.                                      FC50586        3     A     
 HISTORY            MRR    81/11/17    APPLIES TO FTN 5.1 .                                FC50586        4     A     
 HISTORY                                                                                   FC50586        5     A     
 HISTORY   FC50592  TYPE/CCL.  CORRECT EXIT CONDITIONS FROM CCL AFTER ERROR IS             FC50592        1     A     
 HISTORY            DIAGNOSED.  PREVENTS SUBSEQUENT SPURIOUS DIAGNOSTICS AND               FC50592        2     A     
 HISTORY            POSSIBLE MODE ERRORS.                                                  FC50592        3     A     
 HISTORY            MRR    81/10/22    APPLIES TO FTN 5.1 .                                FC50592        4     A     
 HISTORY                                                                                   FC50592        5     A     
 HISTORY   FC50593  FEC/ESY.  SUPRESS THE ANSI DIAGNOSTIC FOR 7 CHARACTER NAMES            FC50593        1     A     
 HISTORY            FOR THE COMPILER GENERATED I/O UNIT NAMES [TAPEXXX].                   FC50593        2     A     
 HISTORY            MRR    81/10/22    APPLIES TO FTN 5.1 .                                FC50593        3     A     
 HISTORY                                                                                   FC50593        4     A     
 HISTORY   FC50596  IO/ICIX.  ALLOW I/O CONTROL KEYWORD BUFL=0.                            FC50596        1     A     
 HISTORY            MRR    81/10/28    APPLIES TO FTN 5.1 .                                FC50596        2     A     
 HISTORY                                                                                   FC50596        3     A     
 HISTORY   *L577*    ************************************************                      *L577*         1     A     
 HISTORY   FC5A346  REG,GEN                                                                FC5A346        1     A     
 HISTORY            ANTICIPATE THE POSSIBILTY OF A STORE REGISTER BEING WIPED OUT          FC5A346        2     A     
 HISTORY            AT *I* REGISTER SELECTION TIME. IF TAG IS IN A STORE REGISTER          FC5A346        3     A     
 HISTORY            AT J * K  REGISTER SELECTION TIME AND THE OTHER STORE REGISTER         FC5A346        4     A     
 HISTORY            IS A TEMPORARY , GET A TEMPORARY CLASS REGISTER , IF ITS USE           FC5A346        5     A     
 HISTORY            COUNT IS ZERO PROCEED NORMALLY ELSE GET A LOAD CLASS REGISTER,         FC5A346        6     A     
 HISTORY            IF TAG IS STILL IN STORE REGISTER TRANSMIT TO LOAD REGISTER            FC5A346        7     A     
 HISTORY            ELSE RELOAD TAG.                                                       FC5A346        8     A     
 HISTORY            SSK    81/11/20    APPLIES TO FTN 5.1 .                                FC5A346        9     A     
 HISTORY                                                                                   FC5A346       10     A     
 HISTORY   FC5A375  REG. FORCE RELOAD OF A TAG WITH A SCALAR OFFSET IF FOLLOWING           FC5A375        1     A     
 HISTORY            CONDITIONS EXIST. 1. NOT LAST USE OF TAG 2. A SUBSCRIPTED              FC5A375        2     A     
 HISTORY            STORE IS FOUND BEFORE NEXT USE OF TAG.                                 FC5A375        3     A     
 HISTORY            SSK    82/02/12    APPLIES TO FTN 5.1, OPT=0.                          FC5A375        4     A     
 HISTORY                                                                                   FC5A375        5     A     
 HISTORY   FC5A380  FMT/FMT=RP.  DIAGNOSE MISSING SEPARATOR IN FORMAT STATEMENT,           FC5A380        1     A     
 HISTORY            FOLLOWING RIGHT PARENTHESIS.                                           FC5A380        2     A     
 HISTORY            MRR    82/02/03    APPLIES TO FTN 5.1 .                                FC5A380        3     A     
 HISTORY                                                                                   FC5A380        4     A     
 HISTORY   FC5A381  FERRS,CONRED/OCT.  DIAGNOSE INVALID HEXADECIMAL DIGITS IN              FC5A381        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  31    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            HEXADECIMAL CONSTANT.                                                  FC5A381        2     A     
 HISTORY            MRR    82/01/04    APPLIES TO FTN 5.1 .                                FC5A381        3     A     
 HISTORY                                                                                   FC5A381        4     A     
 HISTORY   FC5A385  FERRS, PAR/CSM.  ALLOW ALL ARITHMETIC MODE EXPRESSIONS AS              FC5A385        1     A     
 HISTORY            SUBSTRING BOUNDS.  PROVIDE MODE CONVERSION AND ANSI                    FC5A385        2     A     
 HISTORY            DIAGNOSTIC AS NEEDED.                                                  FC5A385        3     A     
 HISTORY            MRR    81/01/22    APPLIES TO FTN 5.1 .                                FC5A385        4     A     
 HISTORY                                                                                   FC5A385        5     A     
 HISTORY   FC5A386  DECL/PRM.  CORRECTLY SET FILL. FOR POSSIBLE USAGE CONFLICT IN          FC5A386        1     A     
 HISTORY            PARAMETER DEFINITION.                                                  FC5A386        2     A     
 HISTORY            MRR    82/03/17    APPLIES TO FTN 5.1 .                                FC5A386        3     A     
 HISTORY                                                                                   FC5A386        4     A     
 HISTORY   FC5A388  CSNAP,FSNAP,RSNAP.  CLEAN UP SYSTEM MODE INSTALLATION COPYL            FC5A388        1     A     
 HISTORY            MESSAGES FOR CSNAP, FSNAP AND RSNAP BY CONDITIONAL UPDATE OF           FC5A388        2     A     
 HISTORY            THE TARGET DECK.  THE FRAME HAS ALREADY BEEN SET UP THIS WAY.          FC5A388        3     A     
 HISTORY                                                                                   FC5A388        4     A     
 HISTORY            SCC    82/03/19    APPLIES TO FTN 5.1 .                                FC5A388        5     A     
 HISTORY   FC5A391  FTN5TXT,MAP.  REMOVE IFBIT MACRO, AS OBSOLETE.  FUNCTIONS ARE          FC5A391        1     A     
 HISTORY            CLEARER USING SBIT AND APPROPRIATE CONDITIONAL BRANCH.                 FC5A391        2     A     
 HISTORY            MRR    82/02/11    APPLIES TO FTN 5.1 .                                FC5A391        3     A     
 HISTORY                                                                                   FC5A391        4     A     
 HISTORY   FC5A395  BRIDGE/PNA.   RELOAD NAMELIST TABLE POINTER AFTER AN ALLOCATE.         FC5A395        1     A     
 HISTORY            A MODE 1 OCCURED ON NOS/BE AT R2B USING THE COMPILER ON                FC5A395        2     A     
 HISTORY            THE SYSTEM. PROBLEM WOULD NOT OCCUR USING A LOCAL TEST MODE            FC5A395        3     A     
 HISTORY            OR LOCAL SYSTEM MODE COMPILER. A DUMP SHOWS THAT TABLE NLST            FC5A395        4     A     
 HISTORY            WAS MOVED AFTER THE ALLOCATE , HOWEVER THE CODE CONTINUED TO           FC5A395        5     A     
 HISTORY            USE POINTERS SETUP BEFORE THE ALLOCATE.                                FC5A395        6     A     
 HISTORY            SSK    82/03/23    APPLIES TO FTN 5.1 , OPT=2.                         FC5A395        7     A     
 HISTORY                                                                                   FC5A395        8     A     
 HISTORY   FC5A399  HCDEFS,PUC.  PROVIDE CCG ENTRY POINT.  SUPPORT FOR CCGA072.            FC5A399        1     A     
 HISTORY            MRR    82/04/26    APPLIES TO FTN 5.1 .                                FC5A399        2     A     
 HISTORY                                                                                   FC5A399        3     A     
 HISTORY   FC5A404  PUC/ENDFTN.  WHEN THE GO CONTROL STATEMENT OPTION IS IN FORCE,         FC5A404        1     A     
 HISTORY            ISSUE MEMORY REQUEST FOR LCM TO RETURN TO INITIAL VALUE.               FC5A404        2     A     
 HISTORY            MRR    82/05/25    APPLIES TO FTN 5.1 .                                FC5A404        3     A     
 HISTORY                                                                                   FC5A404        4     A     
 HISTORY   FC50464  IO/IDC,PAR,MAP/REF.  FIX FOLLOWING LO=R GLITCHES:                      FC50464        1     A     
 HISTORY            1. SUPRESS EXTRANEOUS REFERENCES ON IMPLIED DOS.                       FC50464        2     A     
 HISTORY            2. CORRECT REFERENCE CHARACTERS FOR IMPLIED DO INDUCTION               FC50464        3     A     
 HISTORY               VARIABLES.                                                          FC50464        4     A     
 HISTORY            3. PREVENT LOSS OF I/O UNIT REFERENCES IN FUNCTIONS.                   FC50464        5     A     
 HISTORY            MRR    82/04/06    APPLIES TO FTN 5.1 .                                FC50464        6     A     
 HISTORY                                                                                   FC50464        7     A     
 HISTORY   FC50587  REG/CWI                                                                FC50587        1     A     
 HISTORY            ON ENTRY TO CWI(REG) B2 CONTAINS *OTR* TO PROCESS. CODE                FC50587        2     A     
 HISTORY            ASSUMES B2 POINTS TO AN *X* REGISTER - *0TR* MAY POINT                 FC50587        3     A     
 HISTORY            TO AN *A* REGISTER.                                                    FC50587        4     A     
 HISTORY            SSK    81/11/24    APPLIES TO FTN 5.1 .                                FC50587        5     A     
 HISTORY                                                                                   FC50587        6     A     
 HISTORY   FC50594  FLINK/LPE,LABEL/CDI/PDT.  WHEN THE TRIP COUNT OF A DO LOOP IS          FC50594        1     A     
 HISTORY            PRECISELY ONE, ELIMINATE DO BEGIN AND CONCLUSION TURPLES.              FC50594        2     A     
 HISTORY            ALLOWS MORE EFFICIENT QCG CODE AND CORRECT CODE FOR CCG.               FC50594        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  32    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    82/04/21    APPLIES TO FTN 5.1 .                                FC50594        4     A     
 HISTORY                                                                                   FC50594        5     A     
 HISTORY   FC50600  FEC/FEC.BY.  REMOVE SOME UNNECESSARY CODE.                             FC50600        1     A     
 HISTORY            MRR    82/01/12    APPLIES TO FTN 5.1 .                                FC50600        2     A     
 HISTORY                                                                                   FC50600        3     A     
 HISTORY   FC50603  REG/SLD. AN LCM ADDRESS FUNCTION MAY CAUSE A HANG BECAUSE              FC50603        1     A     
 HISTORY            OF SWITCHING *OTR* TO POINT TO AN X REGISTER AND RESULTS               FC50603        2     A     
 HISTORY            IN A REGISTER CONFLICT TEST HANG.                                      FC50603        3     A     
 HISTORY            SSK    82/01/29    APPLIES TO FTN 5.1 .                                FC50603        4     A     
 HISTORY                                                                                   FC50603        5     A     
 HISTORY   FC50606  KEY/NAM.  CORRECT RECOVERY WHEN ERRORS DETECTED IN NAMELIST            FC50606        1     A     
 HISTORY            MEMBER LIST.  ELIMINATE NAMELIST GROUP FROM T.NLST.  PREVENTS          FC50606        2     A     
 HISTORY            LATER TROUBLE IN END OF DECLARATIVE PROCESSING.                        FC50606        3     A     
 HISTORY            MRR    81/11/25    APPLIES TO FTN 5.1 .                                FC50606        4     A     
 HISTORY                                                                                   FC50606        5     A     
 HISTORY   FC50608  FEC/CBN.  SUPPRESS ANSI DIAGNOSTIC FOR COMMON BLOCK NAME USED          FC50608        1     A     
 HISTORY            AS STATEMENT FUNCTION NAME.                                            FC50608        2     A     
 HISTORY            MRR    81/12/03    APPLIES TO FTN 5.1 .                                FC50608        3     A     
 HISTORY                                                                                   FC50608        4     A     
 HISTORY   FC50610  STMTF/SFD.  WHEN STOPPING COMPILATION OF A STATEMENT FUNCTION          FC50610        1     A     
 HISTORY            DUE TO INVALID DUMMY ARGUMENTS, SCRATCH T.SCR.  PREVENTS USE           FC50610        2     A     
 HISTORY            OF TRASH INFORMATION WHICH CAN CAUSE MODE ERRORS.                      FC50610        3     A     
 HISTORY            MRR    81/12/04    APPLIES TO FTN 5.1 .                                FC50610        4     A     
 HISTORY                                                                                   FC50610        5     A     
 HISTORY   FC50612  FEC,PAR/POP.PL.  RESET SQUEEZE LIMIT FOR EACH ARGUMENT IN A            FC50612        1     A     
 HISTORY            LIST. INHIBIT TRANSFORMATION [B+A _ A-B] ACROSS ARGUMENTS.             FC50612        2     A     
 HISTORY            AVOIDS INVALID SQUEEZE OF ARGUMENTS.                                   FC50612        3     A     
 HISTORY            MRR    81/12/03    APPLIES TO FTN 5.1 .                                FC50612        4     A     
 HISTORY                                                                                   FC50612        5     A     
 HISTORY   FC50616  CCGLINK/CGL/REL, REC/REP.  WHEN B=0 AND LO=-O, SUPRESS CCG             FC50616        1     A     
 HISTORY            CALL.                                                                  FC50616        2     A     
 HISTORY            MRR    81/12/04    APPLIES TO FTN 5.1 .                                FC50616        3     A     
 HISTORY                                                                                   FC50616        4     A     
 HISTORY   FC50625  FMT/AED.  WHEN EDIT DESCRIPTOR TN IS PROCESSED, CLEAR ALL              FC50625        1     A     
 HISTORY            LEVELS OF RECORD LENGTH ACCUMULATION.  PREVENTS FAULTY                 FC50625        2     A     
 HISTORY            DIAGNOSTIC.                                                            FC50625        3     A     
 HISTORY            MRR    82/01/27    APPLIES TO FTN 5.1 .                                FC50625        4     A     
 HISTORY                                                                                   FC50625        5     A     
 HISTORY   FC50626  INIT00/PAC=S.  WHEN PROCESSING THE S OPTION, MAKE SURE THERE           FC50626        1     A     
 HISTORY            IS NO CARRY OVER OF LIBRARY NAME FROM A PREVIOUS TEXT REQUEST.         FC50626        2     A     
 HISTORY            PREVENTS FAULTY COMPASS LOOKUP OF TEXTS.                               FC50626        3     A     
 HISTORY            MRR    81/12/18    APPLIES TO FTN 5.1 .                                FC50626        4     A     
 HISTORY                                                                                   FC50626        5     A     
 HISTORY   FC50627  KEY/ENT.  AVOID SETTING DEFAULT TYPE FOR ENTRIES IN SUBROUTINE         FC50627        1     A     
 HISTORY            SUBPROGRAMS.  PREVENTS CCG CODE PROBLEMS WITH TYPED ENTRIES.           FC50627        2     A     
 HISTORY            MRR    81/12/17    APPLIES TO FTN 5.1 .                                FC50627        3     A     
 HISTORY                                                                                   FC50627        4     A     
 HISTORY   FC50628  MAP/LADR.  WHEN PRODUCING THE DO LOOP MAP, INSURE THAT THE             FC50628        1     A     
 HISTORY            DO-TOP LABEL ADDRESS IS OUTPUT.                                        FC50628        2     A     
 HISTORY            MRR    81/12/17    APPLIES TO FTN 5.1 .                                FC50628        3     A     
 HISTORY                                                                                   FC50628        4     A     
 HISTORY   FC50629  LIST/PIK.  WHEN DISASSEMBLING A B-REGISTER CONDITIONAL JUMP,           FC50629        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  33    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            PRESERVE THE BI REGISTER ALWAYS (FOR OBJECT LISTING).  ALLOWS          FC50629        2     A     
 HISTORY            TRUER DISASSEMBLY FOR THE TRANSFORM [LE BI,BJ] _ [GE BI,BJ].           FC50629        3     A     
 HISTORY            MRR    82/01/15    APPLIES TO FTN 5.1 .                                FC50629        4     A     
 HISTORY                                                                                   FC50629        5     A     
 HISTORY   FC50632  LABEL/CDI.  UPON COMPLETION OF COMPLING THE DO TOP CODE [OF DO         FC50632        1     A     
 HISTORY            STATEMENT], FLUSH THE I.L.  PREVENTS BAD REGISTER USAGE BY QCG         FC50632        2     A     
 HISTORY            WITHIN THE LOOP.                                                       FC50632        3     A     
 HISTORY            MRR    82/01/29    APPLIES TO FTN 5.1 .                                FC50632        4     A     
 HISTORY                                                                                   FC50632        5     A     
 HISTORY   FC50634  PAR/A=CALL.  WHEN EXTRANEOUS CHARACTERS FOLLOWING A CALL               FC50634        1     A     
 HISTORY            STATEMENT ARE DIAGNOSED, RESET THE CURRENT TOKEN BUFFER                FC50634        2     A     
 HISTORY            LOCATION TO *EOS* TO PREVENT PARSER PROBLEMS.                          FC50634        3     A     
 HISTORY            MRR    81/12/23    APPLIES TO FTN 5.1 .                                FC50634        4     A     
 HISTORY                                                                                   FC50634        5     A     
 HISTORY   FC50636  PEM/PEM.  SUPRESS ERROR COUNT (DAYFILE AND LISTING) FOR                FC50636        1     A     
 HISTORY            DIAGNOSTIC LEVELS DESELECTED BY THE EL PARAMETER.                      FC50636        2     A     
 HISTORY            MRR    81/12/28    APPLIES TO FTN 5.1 .                                FC50636        3     A     
 HISTORY                                                                                   FC50636        4     A     
 HISTORY   FC50642  FERRS,KEY/EIF.  DIAGNOSE TRAILING GARBAGE ON ENDIF STATEMENT.          FC50642        1     A     
 HISTORY            MRR    82/01/12    APPLIES TO FTN 5.1 .                                FC50642        2     A     
 HISTORY                                                                                   FC50642        3     A     
 HISTORY   FC50643  FERRS,IO/LST.  PROVIDE ANSI DIAGNOSTIC FOR LIST DIRECTED               FC50643        1     A     
 HISTORY            OUTPUT LIST WHICH ENDS WITH COMMA.                                     FC50643        2     A     
 HISTORY            MRR    82/01/12    APPLIES TO FTN 5.1 .                                FC50643        3     A     
 HISTORY                                                                                   FC50643        4     A     
 HISTORY   FC50646  KEY/GOC.  MODIFY TOKEN BUFFER SO THAT UNARY MINUS ON                   FC50646        1     A     
 HISTORY            COMPUTED GOTO EXPRESSION IS NOT LOST [TREATED AS BINARY].              FC50646        2     A     
 HISTORY            PREVENTS EXTRANEOUS ERRORS, MODE OUTS ETC.                             FC50646        3     A     
 HISTORY            MRR    82/02/01    APPLIES TO FTN 5.1 .                                FC50646        4     A     
 HISTORY                                                                                   FC50646        5     A     
 HISTORY   FC50651  FUN/FVS/PCA/PAS, BRIDGE/FVS.  TRUNCATION OCCURS WHEN                   FC50651        1     A     
 HISTORY            CONCATENATING A CONSTANT LENGTH SUBSTRING OF AN ASSUMED                FC50651        2     A     
 HISTORY            SIZE FORMAL PARAMETER. ANOTHER PROBLEM WAS NOTED WHEN AN               FC50651        3     A     
 HISTORY            IO APLIST CONTAINING CONCATENATION EXPRESSIONS INVOLVING               FC50651        4     A     
 HISTORY            FORMAL PARAMETERS IS BEING BUILT. THE FIRST PROBLEM WAS                FC50651        5     A     
 HISTORY            CORRECTED BY ADDING CODE IN FUN AND BRIDGE TO RECOGNIZE                FC50651        6     A     
 HISTORY            CONSTANT LENGTH SUBSTRINGS OF ASSUMED SIZE FORMAL                      FC50651        7     A     
 HISTORY            PARAMETERS. THE SECOND PROBLEM WAS CORRECTED BY FIXING                 FC50651        8     A     
 HISTORY            THE CODE WHICH TRIMS BACK T.SAP WHEN GOING FROM LEVEL                  FC50651        9     A     
 HISTORY            TWO TO LEVEL ONE DURING APLIST DESTACKING.                             FC50651       10     A     
 HISTORY            JEM    82/05/25    APPLIES TO FTN 5.1 .                                FC50651       11     A     
 HISTORY                                                                                   FC50651       12     A     
 HISTORY   FC50652  PAR/PAR.STFD.  CLEAR ATTRIBUTE SUMP WHEN PREPARING STATEMENT           FC50652        1     A     
 HISTORY            FUNCTION ACTUAL ARGUMENTS FOR MODE CONVERSION.  PREVENTS CARRY         FC50652        2     A     
 HISTORY            OVER OF ATTRIBUTES TO POSSIBLE MODE CONVERSION TURPLES.                FC50652        3     A     
 HISTORY            MRR    82/02/12    APPLIES TO FTN 5.1 .                                FC50652        4     A     
 HISTORY                                                                                   FC50652        5     A     
 HISTORY   FC50656  CONRED/DEC.  WHEN HALTING COMPILATION OF A STATEMENT DUE TO            FC50656        1     A     
 HISTORY            CONSTANT CONVERSION ERRORS, IF DATA STATEMENT IS BEING                 FC50656        2     A     
 HISTORY            PROCESSED, RETURN TO CLEAN UP DATA TABLES.  PREVENTS                   FC50656        3     A     
 HISTORY            DOWNSTREAM PROBLEMS.                                                   FC50656        4     A     
 HISTORY            MRR    82/02/12    APPLIES TO FTN 5.1 .                                FC50656        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  34    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC50656        6     A     
 HISTORY   FC50657  INIT00/MIB.  CLOSE [AS NECESSARY] INPUT,OUTPUT,ERRS AND LGO            FC50657        1     A     
 HISTORY            FILES WHEN AN EMPTY INPUT FILE IS DISCOVERED.                          FC50657        2     A     
 HISTORY            MRR    82/02/12    APPLIES TO FTN 5.1, SCOPE 2.                        FC50657        3     A     
 HISTORY                                                                                   FC50657        4     A     
 HISTORY   FC50662  DECL/G-F-TABLES.  MOVE THE OA.RA FIELD FROM THE HIGH BIT [59].         FC50662        1     A     
 HISTORY            THIS ALLOWS A CORRECT SORT OF T.EOT, AND PREVENTS INVALID              FC50662        2     A     
 HISTORY            EQUIVALENCE ADDRESS ASSIGNMENTS.                                       FC50662        3     A     
 HISTORY            MRR    82/04/01    APPLIES TO FTN 5.1 .                                FC50662        4     A     
 HISTORY                                                                                   FC50662        5     A     
 HISTORY   FC50664  PAR/POP.UM.  INCORRECT CODE IS GENERATED FOR STATEMENT                 FC50664        1     A     
 HISTORY            FUNCTION REFERENCES WHEN OPTIMIZING TO FACTOR OUT UNARY MINUS          FC50664        2     A     
 HISTORY            IN A SUBEXPRESSION.  CORRECTED BY SUPRESSING UNARY MINUS               FC50664        3     A     
 HISTORY            FACTORIZATION DURING STATEMENT FUNCTION EVALUATION.                    FC50664        4     A     
 HISTORY            JEM    82/03/12    APPLIES TO FTN 5.1 .                                FC50664        5     A     
 HISTORY                                                                                   FC50664        6     A     
 HISTORY   FC50667  HEADER/SAL.  COMPILER WOULD CRASH WITH A MODE 1 ERROR WHEN             FC50667        1     A     
 HISTORY            COMPILING THE FOLLOWING STATEMENT:          SUBROUTINE BUG(A,          FC50667        2     A     
 HISTORY            CORRECTED BY ADDING CODE TO TEST FOR PREMATURE EOS IN THIS             FC50667        3     A     
 HISTORY            SITUATION.                                                             FC50667        4     A     
 HISTORY            JEM    82/03/08    APPLIES TO FTN 5.1 .                                FC50667        5     A     
 HISTORY                                                                                   FC50667        6     A     
 HISTORY   FC50683  IO/IDC.  DO SOME END CASE CHECKING AFTER COMPLETE I/O DO               FC50683        1     A     
 HISTORY            COLLAPSE.  ALLOWS DIAGNOSIS OF INVALID TRAILING COMMA ON I/O           FC50683        2     A     
 HISTORY            LIST.                                                                  FC50683        3     A     
 HISTORY            MRR    82/04/23    APPLIES TO FTN 5.1 .                                FC50683        4     A     
 HISTORY                                                                                   FC50683        5     A     
 HISTORY   FC50686  FEC/PUP. RESET N$LC ( NUMBER OF FORMAL PARAMETER LOCAL COPY            FC50686        1     A     
 HISTORY            CELLS ) TO ZERO BEFORE NEXT PROGRAM UNIT. SYMPTOMS OCCURING            FC50686        2     A     
 HISTORY            WITH THIS PROBLEM WILL VARY AND DEPENDS ON VALUE LEFT FROM A           FC50686        3     A     
 HISTORY            PREVIOUS PROCEDURAL SUBPROGRAM UNIT.                                   FC50686        4     A     
 HISTORY            SSK    82/03/16    APPLIES TO FTN 5.1 .                                FC50686        5     A     
 HISTORY                                                                                   FC50686        6     A     
 HISTORY   FC50701  SKEL/STR.D  REVISE THE STR.D SKELETON. TEST CASE SUPPLIED              FC50701        1     A     
 HISTORY            WITH THIS PSR CAUSES GEN TO WIPE OUT THE MOST SIGNIFICANT              FC50701        2     A     
 HISTORY            PART OF A DOUBLE PRECISION VARIABLE WHEN A DP FORMAL                   FC50701        3     A     
 HISTORY            PARAMETER STORE IS EXECUTED.                                           FC50701        4     A     
 HISTORY            SSK    82/04/13    APPLIES TO FTN 5.1 .                                FC50701        5     A     
 HISTORY                                                                                   FC50701        6     A     
 HISTORY   FC50703  CDDIR/COL.  RESTORE COLLATE DIRECTIVE CELL SET [REMOVED BY             FC50703        1     A     
 HISTORY            FC50480].  IT IS NEEDED FOR CORRECT SELECTION OF CHAR/ICHAR            FC50703        2     A     
 HISTORY            INTRINSICS.  BREAK THE CODE SEQUENCE BEFORE PROCESSING SO              FC50703        3     A     
 HISTORY            OPT=0 WILL SELECT THE CORRECT CHARACTER FUNCTIONS [EFFECT OF           FC50703        4     A     
 HISTORY            FC50480].                                                              FC50703        5     A     
 HISTORY            MRR    82/04/08    APPLIES TO FTN 5.1 .                                FC50703        6     A     
 HISTORY                                                                                   FC50703        7     A     
 HISTORY   *L587*    ************************************************                      *L587*         1     A     
 HISTORY   FC5A319  DECL/EQU.  MODIFY EQUIVALENCE OVERLAP SCHEME TO CORRECTLY              FC5A319        1     A     
 HISTORY            SUBSUME ALL OVERLAPPING EQUIVALENCE CLASSES.                           FC5A319        2     A     
 HISTORY            DEPENDENCY=FC5A195                                                     FC5A319        3     A     
 HISTORY            RETRANS=R6A                                                            FC5A319        4     A     
 HISTORY            MRR    83/01/21    DECL                                                FC5A319        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  35    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC5A319        6     A     
 HISTORY   FC5A400  REC/END, CCGC/OSI.  DETERMINE NEED TO OUTPUT SUBI. WORDS BASED         FC5A400        1     A     
 HISTORY            UPON THE EXISTENCE OF SUB REFERENCES, NOT ON LOCAL COPIES              FC5A400        2     A     
 HISTORY            BEING MADE.  BOTH CAN COEXIST WHEN A DUMMY ARGUMENT IS USED            FC5A400        3     A     
 HISTORY            AS AN ACTUAL ARGUMENT TO A LIBRARY ROUTINE AND NO DEFINITION           FC5A400        4     A     
 HISTORY            OCCURS.                                                                FC5A400        5     A     
 HISTORY            MRR    82/07/21    REC, CCGC                                           FC5A400        6     A     
 HISTORY                                                                                   FC5A400        7     A     
 HISTORY   FC5A403  PAR/TNK.PARM.  AFTER DIAGNOSING INVALID PARENTHESIS FOLLOWING          FC5A403        1     A     
 HISTORY            A SYMBOLIC CONSTANT, SAVE THE PARAMETER VALUE FOR ESTACK.              FC5A403        2     A     
 HISTORY            PREVENTS COMPILER GOING AWRY WHEN PROCESSING ARGUMENT LISTS.           FC5A403        3     A     
 HISTORY            DEPENDENCY=FC5A111.                                                    FC5A403        4     A     
 HISTORY            MRR    82/05/17    PAR                                                 FC5A403        5     A     
 HISTORY                                                                                   FC5A403        6     A     
 HISTORY   FC5A406  FAS/PIT.  PUT LCM/ECS INDICATOR IN HARDWARE REQUIREMENTS FIELD         FC5A406        1     A     
 HISTORY            OF THE PREFIX [7700] TABLE.                                            FC5A406        2     A     
 HISTORY            MRR    82/08/01    FAS                                                 FC5A406        3     A     
 HISTORY                                                                                   FC5A406        4     A     
 HISTORY   FC5A411  FTN5TXT, PAR/FUN.IS/FUN.IN/ABIF/VAM/VIL.  TREAT BOOLEAN                FC5A411        1     A     
 HISTORY            ARGUMENTS TO INTRINSIC FUNCTIONS IN A CONSISTENT MANNER, AS            FC5A411        2     A     
 HISTORY            FOLLOWS:                                                               FC5A411        3     A     
 HISTORY                                                                                   FC5A411        4     A     
 HISTORY                 1.  IF INTRINSIC TYPE IS BOOLEAN, ARGUMENTS ARE UNCHANGED.        FC5A411        5     A     
 HISTORY                                                                                   FC5A411        6     A     
 HISTORY                 2.  IF ONLY ONE ARGUMENT [BOOLEAN]:                               FC5A411        7     A     
 HISTORY                     A. IF GENERIC INTRINSIC:                                      FC5A411        8     A     
 HISTORY                        (1) IF INTEGER IS LEGAL, TREAT AS INTEGER [EXCEPT          FC5A411        9     A     
 HISTORY                            INTRINSIC FUNCTIONS DBLE, REAL, CMPLX].                FC5A411       10     A     
 HISTORY                        (2) OTHERWISE, TREAT AS REAL.                              FC5A411       11     A     
 HISTORY                     B. IF SPECIFIC INTRINSIC, TREAT AS REQUIRED MODE.             FC5A411       12     A     
 HISTORY                                                                                   FC5A411       13     A     
 HISTORY                 3.  IF MORE THAN ONE ARGUMENT [AT LEAST ONE ARGUMENT IS           FC5A411       14     A     
 HISTORY                     BOOLEAN]:                                                     FC5A411       15     A     
 HISTORY                     A. GENERIC INTRINSIC:                                         FC5A411       16     A     
 HISTORY                        (1) IF ALL ARGUMENTS BOOLEAN, TREAT AS INTEGER             FC5A411       17     A     
 HISTORY                            [EXCEPT TREAT ARGUMENTS TO CMPLX AS REAL].             FC5A411       18     A     
 HISTORY                        (2) OTHERWISE, CONVERT BOOLEAN ARGUMENTS TO HIGHEST        FC5A411       19     A     
 HISTORY                            ARGUMENT MODE.                                         FC5A411       20     A     
 HISTORY                     B. IF SPECIFIC INTRINSIC, TREAT BOOLEAN ARGUMENTS AS          FC5A411       21     A     
 HISTORY                        REQUIRED MODE.                                             FC5A411       22     A     
 HISTORY                                                                                   FC5A411       23     A     
 HISTORY            RETRANS=I6D                                                            FC5A411       24     A     
 HISTORY            MRR    83/01/14    FTN5TXT, PAR                                        FC5A411       25     A     
 HISTORY                                                                                   FC5A411       26     A     
 HISTORY   FC5A416  MAP. EXPAND ADDRESS SPACE TO ACCOMMODATE LARGE(LCM=G)                  FC5A416        1     A     
 HISTORY            ADDRESSES.                                                             FC5A416        2     A     
 HISTORY            SSK    83/01/10    MAP                                                 FC5A416        3     A     
 HISTORY                                                                                   FC5A416        4     A     
 HISTORY   FC50189  FERRS,PAR/EQL/STC/CDI. ADDED CODE TO CHECK FOR OBVIOUS INTER-          FC50189        1     A     
 HISTORY            FERENCE BETWEEN THE TARGET OF A CHARACTER ASSIGNMENT AND ANY           FC50189        2     A     
 HISTORY            OF THE ELEMENTS IN THE SOURCE EXPRESSION. IF INTERFERENCE IS           FC50189        3     A     
 HISTORY            DETECTED, A WARNING MESSAGE IS ISSUED FOR EACH INSTANCE OF             FC50189        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  36    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            INTERFERENCE.                                                          FC50189        5     A     
 HISTORY            RETRANS=I6B                                                            FC50189        6     A     
 HISTORY            JEM   83/02/08     FERRS, PAR                                          FC50189        7     A     
 HISTORY                                                                                   FC50189        8     A     
 HISTORY   FC50467  UTILITY.  INSERT CALL TO FA=WTH FOR TRAILING BLANK SUPRESSION          FC50467        1     A     
 HISTORY            ON SCOPE 2 OUTPUT.  DELETE CALL TO FA=WTC.  THIS CODE REQUIRES         FC50467        2     A     
 HISTORY            CONCURRENT INSTALLATION OF CCGA076.                                    FC50467        3     A     
 HISTORY            DEPENDENCY=FC5A158A.                                                   FC50467        4     A     
 HISTORY            MRR    82/07/21    UTILITY                                             FC50467        5     A     
 HISTORY                                                                                   FC50467        6     A     
 HISTORY   FC50492  LISTLNK/LUS. ADDED CODE IN LIST UNIT STATISTICS ROUTINE                FC50492        1     A     
 HISTORY            TO CALCULATE EXACT LENGTH OF UNIT STATISTICS MESSAGES SO               FC50492        2     A     
 HISTORY            PAGE FLIP WILL ONLY BE DONE WHEN ABSOLUTELY NECESSARY.                 FC50492        3     A     
 HISTORY            DEPENDENCY=FC5A150                                                     FC50492        4     A     
 HISTORY            JEM    82/11/05.    LISTLNK                                            FC50492        5     A     
 HISTORY                                                                                   FC50492        6     A     
 HISTORY   FC50620  IO/IDC/DCB, PAR/OP.  IMPLIED DO LOOP COLLAPSE IS NOT AS                FC50620        1     A     
 HISTORY            THOROUGH AS COULD BE. IMPLIED DO LOOPS WHERE THE LOWER                 FC50620        2     A     
 HISTORY            BOUND IS A NON-UNITY CONSTANT AND THE UPPER BOUND IS A SIMPLE          FC50620        3     A     
 HISTORY            VARIABLE ARE NOT BEING COLLAPSED. ALSO LOOPS WHERE THE LOWER           FC50620        4     A     
 HISTORY            BOUND IS VARIABLE AND THE UPPER BOUND IS EITHER CONSTANT OR            FC50620        5     A     
 HISTORY            VARIABLE ARE NOT BEING COLLAPSED. LOOPS WHERE THE UPPER BOUND          FC50620        6     A     
 HISTORY            IS VARIABLE AND ONE-TRIP DO IS SELECTED DO NOT GUARANTEE THAT          FC50620        7     A     
 HISTORY            THE ONE-TRIP DO CONVENTION IS OBSERVED. ROUTINE IDC IN MODULE          FC50620        8     A     
 HISTORY            IO HAS BEEN EXTENSIVELY REWORKED TO COLLAPSE IMPLIED DO LOOPS          FC50620        9     A     
 HISTORY            OF THE FORM MENTIONED ABOVE, AND TO GUARANTEE THAT ONE-TRIP            FC50620       10     A     
 HISTORY            DO LOOP CONVENTIONS ARE OBSERVED.                                      FC50620       11     A     
 HISTORY            DEPENDENCY=FC5A136,FC5A216,FC5A218,FC5A248                             FC50620       12     A     
 HISTORY            JEM   82/08/27.    IO, PAR                                             FC50620       13     A     
 HISTORY                                                                                   FC50620       14     A     
 HISTORY   FC50681  INIT23/INI.  ALLOW REW=B TO WORK ON SCOPE 2.                           FC50681        1     A     
 HISTORY            REQUIRES CONCURRENT INSTALLATION OF CCGA079.                           FC50681        2     A     
 HISTORY            MRR    82/11/19    INIT23                                              FC50681        3     A     
 HISTORY                                                                                   FC50681        4     A     
 HISTORY   FC50684  BRIDGE/PAF.  WHEN IMPLIED DO LOOP COLLAPSE PROCESSES A DOUBLE          FC50684        1     A     
 HISTORY            PRECISION OR COMPLEX DATA ITEM AND THE COLLAPSE LENGTH IS              FC50684        2     A     
 HISTORY            NOT A CONSTANT, BRIDGE GENERATES AN EXTRANEOUS INSTRUCTION             FC50684        3     A     
 HISTORY            WHEN GENERATING THE STORE TO TEMP OF THE COLLAPSE LENGTH.              FC50684        4     A     
 HISTORY            THIS CAUSES CCG TO GO INTO A LOOP AT OPT=1, AND TO GET A MODE          FC50684        5     A     
 HISTORY            ERROR AT OPT=2.                                                        FC50684        6     A     
 HISTORY            JEM    82/07/16    BRIDGE.                                             FC50684        7     A     
 HISTORY                                                                                   FC50684        8     A     
 HISTORY   FC50718  IO/VAI, PAR/EQL/DOC, LABEL/DDR.  SET A FLAG TO INDICATE                FC50718        1     A     
 HISTORY            T.BLST NEEDS AN ENTRY SCRATCHED WHEN A DO STATEMENT REDEFINES          FC50718        2     A     
 HISTORY            AN EXISTING DO CONTROL VARIABLE.  PREVENTS ERRORS DUE TO THE           FC50718        3     A     
 HISTORY            PARTIALLY FILLED T.BLST ENTRY.                                         FC50718        4     A     
 HISTORY            DEPENDENCY=FC5A211.                                                    FC50718        5     A     
 HISTORY            MRR    82/04/29    IO, PAR, LABEL                                      FC50718        6     A     
 HISTORY                                                                                   FC50718        7     A     
 HISTORY   FC50722  FAS/KIO.  DONT SET THE INDIRECT [LENGTH] BIT FOR ENCODE/DECODE         FC50722        1     A     
 HISTORY            SOURCE AND DESTINATION APLIST ENTRIES.  PREVENTS UNPREDICTABLE         FC50722        2     A     
 HISTORY            RA+0 ACCESS PROBLEMS.                                                  FC50722        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  37    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            DEPENDENCY=FC5A373.                                                    FC50722        4     A     
 HISTORY            MRR    82/05/06    FAS                                                 FC50722        5     A     
 HISTORY                                                                                   FC50722        6     A     
 HISTORY   FC50728  BRIDGE/ETT/P=FAP/IAC.  CHARACTER FUNCTION REFERENCES WITH              FC50728        1     A     
 HISTORY            ACTUAL PARAMETERS FORMED BY CONCATENATION FAIL TO RETURN               FC50728        2     A     
 HISTORY            PROPER RESULT WHEN COMPILED AT OPT>0. CORRECTED BY MAKING              FC50728        3     A     
 HISTORY            TEMP LOCATION ETTA IN ROUTINE ETT OF BRIDGE A TWO WORD                 FC50728        4     A     
 HISTORY            VECTOR TO ALLOW CONCURRENT USE OF THIS ROUTINE WHICH OCCURS            FC50728        5     A     
 HISTORY            WHEN CONCATENATION IS NESTED IN A CHARACTER FUNCTION REF.              FC50728        6     A     
 HISTORY            JEM    82/06/04    BRIDGE                                              FC50728        7     A     
 HISTORY                                                                                   FC50728        8     A     
 HISTORY   FC50729  OPTIONS, HEADER/PPA.  DON'T ALLOCATE BUFFER SPACE FOR FILES ON         FC50729        1     A     
 HISTORY            PROGRAM STATEMENT ON SCOPE 2.                                          FC50729        2     A     
 HISTORY            DEPENDENCY=FC5A145,F1037F5                                             FC50729        3     A     
 HISTORY            MRR    82/05/27    OPTIONS, HEADER                                     FC50729        4     A     
 HISTORY                                                                                   FC50729        5     A     
 HISTORY   FC50730  FAS/FI=UJP.  PROVIDE FTN5 SUBROUTINE MAIN ENTRIES WITH A               FC50730        1     A     
 HISTORY            BLOWUP STYLE ENTRY.  WILL PREVENT TIME LIMIT ON INADVERTENT            FC50730        2     A     
 HISTORY            FALL THROUGH OR OTHER USER PROBLEMS.  THE MODE ERROR IS                FC50730        3     A     
 HISTORY            CLEANER AND PROVIDES INSTANT DEBUG INFORMATION.                        FC50730        4     A     
 HISTORY            MRR    82/05/27    FAS                                                 FC50730        5     A     
 HISTORY                                                                                   FC50730        6     A     
 HISTORY   FC50731  HEADER/DCM.  SET UP THE PROGRAM UNIT NAME IN THE TITLE LINE            FC50731        1     A     
 HISTORY            BEFORE PROCESSING THE SYMBOL.  PREVENTS LOSS OF THE NAME IN            FC50731        2     A     
 HISTORY            CASE OF ERRORS.                                                        FC50731        3     A     
 HISTORY            DEPENDENCY=FC50353, F1039.                                             FC50731        4     A     
 HISTORY            MRR    82/05/26    HEADER                                              FC50731        5     A     
 HISTORY                                                                                   FC50731        6     A     
 HISTORY   FC50735  INIT00/MIB.  AVOID REWIND OF CONNECTED FILES.                          FC50735        1     A     
 HISTORY            MRR    82/05/24    INIT00                                              FC50735        2     A     
 HISTORY                                                                                   FC50735        3     A     
 HISTORY   FC50744  COMFFEI/FEI,INIT00,INIT10,INIT21,FEC/PUP.  MOVE THE SETTING            FC50744        1     A     
 HISTORY            OF THE LO=R ON/OFF SWITCH TO PUP FROM FEI.  ALLOWS CORRECT             FC50744        2     A     
 HISTORY            LISTINGS WHEN A C$ LIST(R=0) WAS IN EFFECT AT THE END OF A             FC50744        3     A     
 HISTORY            PROGRAM UNIT AT OPT=0.                                                 FC50744        4     A     
 HISTORY            DEPENDENCY=F1037F5, F1039.                                             FC50744        5     A     
 HISTORY            MRR    82/06/08    COMFFEI, INIT00, INIT10, INIT21, FEC                FC50744        6     A     
 HISTORY                                                                                   FC50744        7     A     
 HISTORY   FC50748  REG/STS.  PREVENT PREMATURE RELEASE OF REGISTERS DURING CODE           FC50748        1     A     
 HISTORY            GENERATION BY RETAINING AND USING REGFILE USE COUNT FOR A TAG.         FC50748        2     A     
 HISTORY            DEPENDENCY=FC5A258                                                     FC50748        3     A     
 HISTORY            SSK    82/06/24    REG                                                 FC50748        4     A     
 HISTORY                                                                                   FC50748        5     A     
 HISTORY   FC50749  LABEL/CDI.  INITIALIZE T.BLST INDUCTION PARAMETER ENTRIES              FC50749        1     A     
 HISTORY            TO A VALUE OF ONE.  PREVENTS PROBLEMS WHEN ERRORS OCCUR                FC50749        2     A     
 HISTORY            IN THE ACTUAL INDUCTION PARAMETERS.                                    FC50749        3     A     
 HISTORY            RETRANS=I6A                                                            FC50749        4     A     
 HISTORY            MRR    83/02/09    LABEL                                               FC50749        5     A     
 HISTORY                                                                                   FC50749        6     A     
 HISTORY   FC50755  FMT/AED.  INSURE CORRECT SETTING/RESETTING OF REPEAT COUNT FOR         FC50755        1     A     
 HISTORY            PARENTHESISED GROUP.                                                   FC50755        2     A     
 HISTORY            DEPENDENCY=FC50169                                                     FC50755        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  38    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    82/06/25    FMT                                                 FC50755        4     A     
 HISTORY                                                                                   FC50755        5     A     
 HISTORY   FC50757  FTN5TXT, DECL/EQS/EQU.  MODIFY THE EQUIVALENCE PROCESSING DATA         FC50757        1     A     
 HISTORY            STRUCTURES AND THEIR ACCESS TO ELIMINATE THE PACK/UNPACK STYLE         FC50757        2     A     
 HISTORY            OF ACCESS/COMBINATION.  THE FORMER STYLE FAILED WHEN LARGE             FC50757        3     A     
 HISTORY            NUMBERS OF EQUIVALENCE DECLARATIONS CAUSED ITEMS TO GO                 FC50757        4     A     
 HISTORY            NEGATIVE DURING PACK OPERATIONS, THUS DESTROYING THE DATA.             FC50757        5     A     
 HISTORY            DEPENDENCY=FC50299                                                     FC50757        6     A     
 HISTORY            MRR    82/12/07    FTN5TXT, DECL                                       FC50757        7     A     
 HISTORY                                                                                   FC50757        8     A     
 HISTORY   FC50760  REG/SLD  CA FIELD OVERFLOW , USE TEMP IF ABS(BIAS) .GT.                FC50760        1     A     
 HISTORY            2**17 .                                                                FC50760        2     A     
 HISTORY            DEPENDENCY=FC50131                                                     FC50760        3     A     
 HISTORY            SSK    82/09/22    REG                                                 FC50760        4     A     
 HISTORY                                                                                   FC50760        5     A     
 HISTORY   FC50761  LEX/PLR.  ADD CODE TO INDICATE CONDITIONALLY UNCOMPILED                FC50761        1     A     
 HISTORY            LINES OF CODE WITH '--' TO THE LEFT OF THE LINE NUMBER                 FC50761        2     A     
 HISTORY            AND TO INDICATE THE CURRENT IF LEVEL IF GREATER THAN 0                 FC50761        3     A     
 HISTORY            IN THE SAME COLUMNS.                                                   FC50761        4     A     
 HISTORY            DEPENDENCY=FC50243                                                     FC50761        5     A     
 HISTORY            JEM    82/08/31.   LEX                                                 FC50761        6     A     
 HISTORY                                                                                   FC50761        7     A     
 HISTORY   FC50763  LEX/TOGEL,TOK=BBL,TOK=BRL,TOK=BBR,TOK=BRR,TOK=BBO,TOK=BRO              FC50763        1     A     
 HISTORY            TOK=BBZ,TOK=BRZ. MODIFIED THE TOGEL PROGRAM IN LEX BY                  FC50763        2     A     
 HISTORY            ADDING EIGHT SPECIAL CASES FOR AUXILLIARY I/O STATEMENTS               FC50763        3     A     
 HISTORY            WITH BOOLEAN LITERALS FOR THE UNIT SPECIFIER. ALSO ADDED               FC50763        4     A     
 HISTORY            EIGHT NEW TOFUS TO PROCESS THE SPECIAL CASES.                          FC50763        5     A     
 HISTORY            JEM   82/11/12.    LEX                                                 FC50763        6     A     
 HISTORY                                                                                   FC50763        7     A     
 HISTORY   FC50765  KEY/ELF.  DIAGNOSE TRAILING GARBAGE ON ELSEIF STATEMENT.               FC50765        1     A     
 HISTORY            DEPENDENCY=FC50642                                                     FC50765        2     A     
 HISTORY            MRR    82/07/30    KEY                                                 FC50765        3     A     
 HISTORY                                                                                   FC50765        4     A     
 HISTORY   FC50766  FMT/FMT=LP.  DIAGNOSE EDIT DESCRIPTOR WHICH HAS NO SEPARATOR           FC50766        1     A     
 HISTORY            PRECEDING A PARENTHESIS GROUPING.                                      FC50766        2     A     
 HISTORY            MRR    82/07/31    FMT                                                 FC50766        3     A     
 HISTORY                                                                                   FC50766        4     A     
 HISTORY   FC50772  PAR/DTC.  KEEP RIGHT TO LEFT ASSOCIATION OF TRIP COUNT FORMULA         FC50772        1     A     
 HISTORY            AS DESCRIBED IN FTN5 RM [P 4-6].  THIS PROVIDES CONSISTENT             FC50772        2     A     
 HISTORY            TRIP COUNTS FOR REAL INDUCTION PARAMETERS.  NOTE:  THIS CODE           FC50772        3     A     
 HISTORY            IS NOT A PANACEA, THE NATURE OF REAL INTERNAL REPRESENTATION           FC50772        4     A     
 HISTORY            IS SUCH THAT ANOMOLIES WILL STILL OCCUR.  THIS CODE MERELY             FC50772        5     A     
 HISTORY            MAKES THE EVALUATUATION IN THE EXACT ORDER AS DESCRIBED BY THE         FC50772        6     A     
 HISTORY            FTN5 RM [AND ANSI].                                                    FC50772        7     A     
 HISTORY            DEPENDENCY=FC5A113                                                     FC50772        8     A     
 HISTORY            MRR    82/08/25    PAR                                                 FC50772        9     A     
 HISTORY                                                                                   FC50772       10     A     
 HISTORY   FC50773  DECL/PCF.  WHEN A FUNCTION SUBPROGRAM NAME IS ASSUMED SIZE             FC50773        1     A     
 HISTORY            CHARACTER AND HAS NO DUMMY ARGUMENT LIST, MANUFACTURE A T.ENTP         FC50773        2     A     
 HISTORY            TABLE ENTRY FOR THE VALUE PARAMETER.  WHEN NO SUCH ENTRY IS            FC50773        3     A     
 HISTORY            PRESENT, DECLARATIVE PROCESSING GOES AWRY [MODE ERROR].                FC50773        4     A     
 HISTORY            DEPENDENCY=FC5A132,FC50512                                             FC50773        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  39    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    82/08/31    DECL                                                FC50773        6     A     
 HISTORY                                                                                   FC50773        7     A     
 HISTORY   FC50774  PAR/PAR.SBS.  WHEN A SUBSTRINGED NAME IS NOT A CHARACTER               FC50774        1     A     
 HISTORY            VARIABLE, BYPASS PARSING THE SUBSTRING EXPRESSION AS THIS              FC50774        2     A     
 HISTORY            WILL MERELY YIELD A DUPLICATE DIAGNOSTIC.                              FC50774        3     A     
 HISTORY            MRR    82/08/19    PAR                                                 FC50774        4     A     
 HISTORY                                                                                   FC50774        5     A     
 HISTORY   FC50775  PAR/CONO.  MARK COLON AS LEGAL SUCCESSOR ELEMENT FOR HOLLERITH         FC50775        1     A     
 HISTORY            CONSTANT.  ALLOWS HOLLERITH AS DIMENSION BOUNDS AND SUBSTRING          FC50775        2     A     
 HISTORY            BOUND.                                                                 FC50775        3     A     
 HISTORY            DEPENDENCY=FC50374                                                     FC50775        4     A     
 HISTORY            MRR    82/08/23    PAR                                                 FC50775        5     A     
 HISTORY                                                                                   FC50775        6     A     
 HISTORY   FC50776  FEC/SSU.  CORRECTLY SET WB.SAVE FOR COMMON AND LOCAL VARIABLES         FC50776        1     A     
 HISTORY            WHEN UNIVERSAL SAVE IS IN FORCE.                                       FC50776        2     A     
 HISTORY            MRR    82/08/24    FEC                                                 FC50776        3     A     
 HISTORY                                                                                   FC50776        4     A     
 HISTORY   FC50785  FTN5TXT,FEC/CUS,LEX/KEYW.  BYPASS BEGINNING OF STATEMENT TURPLE        FC50785        1     A     
 HISTORY            OUTPUT FOR DATA STATEMENTS AND C$ DIRECTIVES.  PREVENTS BAD            FC50785        2     A     
 HISTORY            OBJECT PROGRAM GENERATION BY QCG.                                      FC50785        3     A     
 HISTORY            DEPENDENCY=FC5A233, FC5A337, FC50480                                   FC50785        4     A     
 HISTORY            MRR    82/09/15    FTN5TXT, FEC, LEX.                                  FC50785        5     A     
 HISTORY                                                                                   FC50785        6     A     
 HISTORY   FC50791  LEX/LEX.  MAKE DUMMY LINE NUMBER FOR MISSING END STATEMENT.            FC50791        1     A     
 HISTORY            PREVENTS INVALID DIAGNOSTIC                                            FC50791        2     A     
 HISTORY            DEPENDENCY=FC50250.                                                    FC50791        3     A     
 HISTORY            MRR    82/09/23    LEX                                                 FC50791        4     A     
 HISTORY                                                                                   FC50791        5     A     
 HISTORY   FC50792  PAR/PAREX.  WHEN A CONOTATION ERROR IN A CALL ACTUAL ARGUMENT          FC50792        1     A     
 HISTORY            IS DIAGNOSED, ABANDON THE PARSE.  PREVENTS MODE ERRORS, BAD            FC50792        2     A     
 HISTORY            DIAGNOSTICS, ETC.                                                      FC50792        3     A     
 HISTORY            MRR    82/11/04    PAR                                                 FC50792        4     A     
 HISTORY                                                                                   FC50792        5     A     
 HISTORY   FC50796  DECL/PAR.HOL.  WHEN PROCESSING HOLLERITH CONSTANTS, ALLOW              FC50796        1     A     
 HISTORY            SHORT CONSTANTS WHERE POSSIBLE [R" "].  AVOIDS UNNECESSARY             FC50796        2     A     
 HISTORY            DIAGNOSTICS AND MAY PRODUCE BETTER CODE.                               FC50796        3     A     
 HISTORY            MRR    82/10/13    PAR                                                 FC50796        4     A     
 HISTORY                                                                                   FC50796        5     A     
 HISTORY   FC50797  DECL/CCC.  CORRECT SETTING OF FILL. TO // TO INDICATE BLANK            FC50797        1     A     
 HISTORY            COMMON IN THE NONHOMOGENEOUS COMMON BLOCK DIAGNOSTIC.                  FC50797        2     A     
 HISTORY            MRR    82/10/13    DECL                                                FC50797        3     A     
 HISTORY                                                                                   FC50797        4     A     
 HISTORY   FC50798  FEC/FEC.  WHEN IN BYPASS MODE [I.E., C$ IF CONDITION FALSE],           FC50798        1     A     
 HISTORY            SKIP THE STATEMENT POSITION CHECKS AND UNRECOGNIZED STATEMENT          FC50798        2     A     
 HISTORY            TEST.  PREVENTS INVALID DIAGNOSTICS ON UNCOMPILED STATEMENTS.          FC50798        3     A     
 HISTORY            MRR    82/10/14    FEC                                                 FC50798        4     A     
 HISTORY                                                                                   FC50798        5     A     
 HISTORY   FC50799  LEX/KEYW.  ALLOW "INVISIBLE" C$ DIRECTIVES IN BLOCK DATA.              FC50799        1     A     
 HISTORY            WHEN[IF] IMPLEMENTED THEY WILL NEED TO BE ALLOWED, AND IN THE          FC50799        2     A     
 HISTORY            MEANTIME THIS PREVENTS SPURIOUS DIAGNOSTICS.                           FC50799        3     A     
 HISTORY            MRR    82/10/13    LEX                                                 FC50799        4     A     
 HISTORY                                                                                   FC50799        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  40    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC50806  FMT/FMT=EOS.  CORRECTLY SET FILL. POINT FOR TRAILING CHARACTERS        FC50806        1     A     
 HISTORY            ON FORMAT STATEMENT.                                                   FC50806        2     A     
 HISTORY            MRR    82/10/27    FMT                                                 FC50806        3     A     
 HISTORY                                                                                   FC50806        4     A     
 HISTORY   FC50818  FTN. ADD ENTRY POINT *HO$ARGC*, TO INDICATE WHETHER                    FC50818        1     A     
 HISTORY            ARG=COMMON IS SELECTED.                                                FC50818        2     A     
 HISTORY            AXM    83/01/14    FTN                                                 FC50818        3     A     
 HISTORY                                                                                   FC50818        4     A     
 HISTORY   *L601*    ************************************************                      *L601*         1     A     
 HISTORY   FC5A414  PAR/PAR.CM.  DONT INHIBIT SQUEEZE FOR SUBSCRIPT EXPRESSIONS AS         FC5A414        1     A     
 HISTORY            A MATTER OF COURSE.  BROKEN BY FC50612.                                FC5A414        2     A     
 HISTORY            MRR    82/12/10    PAR                                                 FC5A414        3     A     
 HISTORY                                                                                   FC5A414        4     A     
 HISTORY   FC5A415  PUC, FEC/PUP, PAR/PAR.HOL, BRIDGE.  AVOID SQUEEZE OF SECOND            FC5A415        1     A     
 HISTORY            AND SUBSEQUENT WORDS OF LONG HOLLERITH CONSTANTS WHEN THEY ARE         FC5A415        2     A     
 HISTORY            REFERENCED AS ACTUAL ARGUMENT TO SUBROUTINES OR FUNCTIONS.             FC5A415        3     A     
 HISTORY            DEPENDENCY=FC50686                                                     FC5A415        4     A     
 HISTORY            MRR    82/12/17    PUC, FEC, PAR, BRIDGE                               FC5A415        5     A     
 HISTORY                                                                                   FC5A415        6     A     
 HISTORY   FC5A420  INIT00/PPW,PUC/PUC9. FIX 2 PROBLEMS WITH THE PW CONTROL                FC5A420        1     A     
 HISTORY            STATEMENT OPTION.  THE FIRST PROBLEM IS THAT THE ERROR                 FC5A420        2     A     
 HISTORY            FILE MAY HAVE THE CARRIAGE CONTROL IN THE WRONG COLUMN IN              FC5A420        3     A     
 HISTORY            THE TITLE LINE IF A VALUE GREATER THAN 125 IS SPECIFIED                FC5A420        4     A     
 HISTORY            FOR PW.  THE SECOND PROBLEM IS THAT AN EXPLICIT                        FC5A420        5     A     
 HISTORY            SPECIFICATION OF PW=72 RESULTS IN 73 COLUMNS PER LINE FOR              FC5A420        6     A     
 HISTORY            TERMINAL OUTPUT.                                                       FC5A420        7     A     
 HISTORY            DEPENDENCY=FC5A115                                                     FC5A420        8     A     
 HISTORY            SSK    83/03/23    INIT00, PUC                                         FC5A420        9     A     
 HISTORY                                                                                   FC5A420       10     A     
 HISTORY   FC5A421  PAR/CDI. FIX PROBLEMS CAUSED BY FC50189.  CDI USES B7, AND             FC5A421        1     A     
 HISTORY            THE CALLS IN CDI TO BBC CAUSES B2 TO BE USED.  BOTH OF                 FC5A421        2     A     
 HISTORY            THESE MUST BE PRESERVED FOR EQL.  THIS CODE CHANGES CDI                FC5A421        3     A     
 HISTORY            TO SAVE AND RESTORE BOTH B2 AND B7.                                    FC5A421        4     A     
 HISTORY            DEPENDENCY=FC50189                                                     FC5A421        5     A     
 HISTORY            AXM   83/03/04     PAR                                                 FC5A421        6     A     
 HISTORY                                                                                   FC5A421        7     A     
 HISTORY   FC5A422  PAR/VIL.  CORRECT HANDLING OF BOOLEAN ARGUMENT TO INTRINSIC            FC5A422        1     A     
 HISTORY            CMPLX WHEN NOT ALL ARGUMENTS ARE BOOLEAN.                              FC5A422        2     A     
 HISTORY            DEPENDENCY=FC5A411                                                     FC5A422        3     A     
 HISTORY            MRR    83/02/25    PAR                                                 FC5A422        4     A     
 HISTORY                                                                                   FC5A422        5     A     
 HISTORY   FC5A426  IMPLEMENT JOB DEFAULT PAGE SIZE. USES *CPM* FUNCTION                   FC5A426        1     A     
 HISTORY            *GETPAGE* TO SET DEFAULT VALUES FOR *PD* (PRINT DENSITY),              FC5A426        2     A     
 HISTORY            *PS* (PAGE SIZE), AND *PW* (PAGE WIDTH).                               FC5A426        3     A     
 HISTORY            GENERAL RULES OF IMPLEMENTATION --                                     FC5A426        4     A     
 HISTORY             - IF PARAMETER OMITTED ON THE CONTROL CARD -                          FC5A426        5     A     
 HISTORY                  USE JOBS DEFAULT VALUE.                                          FC5A426        6     A     
 HISTORY             - IF JUST KEYWORD FOR PARAMETER SPECIFIED -                           FC5A426        7     A     
 HISTORY                  PD=8, PW=72.                                                     FC5A426        8     A     
 HISTORY             - IF PARAMETER VALUE SPECIFIED -                                      FC5A426        9     A     
 HISTORY                  USE THE SPECIFIED VALUE.                                         FC5A426       10     A     
 HISTORY             - NO RELATION BETWEEN PD AND PS PARAMETERS ASSUMED.                   FC5A426       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  41    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            DEPENDENCY=FC5A164,FC5A333,FC5A174,FC5A187,FC5A107,F1039               FC5A426       12     A     
 HISTORY            APOS/RRR 82/06/17  COMFCIP, FTN, PUC, PEM, INIT00, LEX                 FC5A426       13     A     
 HISTORY                                                                                   FC5A426       14     A     
 HISTORY   FC5A427  FAS/DLC.  PREVENT ENTRY OF GARBAGE COMMON BLOCK NAME IN                FC5A427        1     A     
 HISTORY            THE COMMON SUBTABLE(0032) IN THE LDSET TABLE OF FTN5                   FC5A427        2     A     
 HISTORY            BINARY.                                                                FC5A427        3     A     
 HISTORY            SSK    83/06/17    FAS                                                 FC5A427        4     A     
 HISTORY                                                                                   FC5A427        5     A     
 HISTORY   FC5A428  LABEL/DDR.  WHEN A DO REDEFINITION ERROR IS DIAGNOSED                  FC5A428        1     A     
 HISTORY            ON AN I/O IMPLIED DO CONTROL INDEX, SET UP RBE CALL                    FC5A428        2     A     
 HISTORY            PROPERLY FOR IMPLIED DO REMOVAL.                                       FC5A428        3     A     
 HISTORY            DEPENDENCY=FC5A211,FC50718                                             FC5A428        4     A     
 HISTORY            MRR    83/08/29    LABEL                                               FC5A428        5     A     
 HISTORY                                                                                   FC5A428        6     A     
 HISTORY   FC5A431  IO/IDC.  TEST THAT THE LAST SUBSCRIPT OF AN ARRAY IS BEING             FC5A431        1     A     
 HISTORY            PROCESSED BEFORE ALLOWING I/O IMPLIED DO COLLAPSE WITH A               FC5A431        2     A     
 HISTORY            VARIABLE INITIAL VALUE.  PREVENTS BAD CODE.                            FC5A431        3     A     
 HISTORY            DEPENDENCY=FC5A211,FC50620                                             FC5A431        4     A     
 HISTORY            MRR    83/05/09    IO                                                  FC5A431        5     A     
 HISTORY                                                                                   FC5A431        6     A     
 HISTORY   FC50811  IO/PEC.  ADDED CODE TO PREVENT CHARACTER FORMAT PROCESSING ON          FC50811        1     A     
 HISTORY            READ STMTS IF THE FIRST TOKEN IN THE ALLEGED CHARACTER FORMAT          FC50811        2     A     
 HISTORY            IS NOT A LEFT PAREN, CHARACTER CONSTANT, OR VARIABLE NAME.             FC50811        3     A     
 HISTORY            THIS PREVENTS EXCESSIVE ERROR MESSAGES FROM BEING ISSUED WHEN          FC50811        4     A     
 HISTORY            A READ STATEMENT HAS AN INVALID COMMA BETWEEN THE IO CONTROL           FC50811        5     A     
 HISTORY            LIST AND THE IO VARIABLE LIST. THIS CODE DOES NOT PREVENT ALL          FC50811        6     A     
 HISTORY            INSTANCES OF THIS PROBLEM BUT IT HELPS THE MAJORITY OF CASES           FC50811        7     A     
 HISTORY            AT A REASONABLE OVERHEAD.                                              FC50811        8     A     
 HISTORY            DEPENDENCY=FC5A171A                                                    FC50811        9     A     
 HISTORY            JEM   82/12/09.    IO                                                  FC50811       10     A     
 HISTORY                                                                                   FC50811       11     A     
 HISTORY   FC50825  REG/SLD. REGISTER CONFLICT TESTS SHOULD USE X REGISTERS                FC50825        1     A     
 HISTORY            WHEN LCM IS INVOLVED. AN ADDRESS FUNCTION REGISTER WITH                FC50825        2     A     
 HISTORY            AN LCM ADDRESS AND A ZERO USE COUNT SHOULD NOT BE LOCKED.              FC50825        3     A     
 HISTORY            DEPENDENCY=FC50131,FC50603                                             FC50825        4     A     
 HISTORY            SSK    83/01/05    REG                                                 FC50825        5     A     
 HISTORY                                                                                   FC50825        6     A     
 HISTORY   FC50829  FLINK/LPE.  WHEN PROPOGATING ATTRIBUTES OF A DO LOOP OUTWARD,          FC50829        1     A     
 HISTORY            AVOID USING A BLOCK IF AS THE LINK.  PREVENTS USING TRASH AS A         FC50829        2     A     
 HISTORY            SYMBOL TABLE ORDINAL AND SUBSEQUENT ERRORS.                            FC50829        3     A     
 HISTORY            MRR    82/12/21    FLINK                                               FC50829        4     A     
 HISTORY                                                                                   FC50829        5     A     
 HISTORY   FC50834  MAP/DELF. REPAIR TABLE(DELFPT3) , WHICH IS PREVENTING                  FC50834        1     A     
 HISTORY            THE DELETION OF THE ADDRESS FIELD OF THE DO LOOP MAP                   FC50834        2     A     
 HISTORY            WHEN PAGE WIDTH RESTRICTIONS HAVE BEEN IMPOSED BY A USER.              FC50834        3     A     
 HISTORY            SSK    83/01/20    MAP                                                 FC50834        4     A     
 HISTORY                                                                                   FC50834        5     A     
 HISTORY   FC50842  PAR/C=DO.  INHIBIT SQUEEZE OF TURPLES COMPRISING DO INDUCTION          FC50842        1     A     
 HISTORY            VARIABLES.  PREVENTS LOSS OF UNARY MINUS [AND OTHER MISERIES].         FC50842        2     A     
 HISTORY            MRR    83/04/28    PAR                                                 FC50842        3     A     
 HISTORY                                                                                   FC50842        4     A     
 HISTORY   FC50844  INIT00/MIB.  CHANGE MODEL-INDEPENDENT COMPILER TO ALWAYS               FC50844        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  42    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ISSUE *GETMC* TO DETERMINE IF RUNNING ON AN 800-SERIES MODEL,          FC50844        2     A     
 HISTORY            AND SO INDICATE IN TITLE LINE.  ALSO INCLUDE 800-SERIES                FC50844        3     A     
 HISTORY            BIT IN TEST OF WHETHER OR NOT TO USE DIRECT-ACCESS LCM.                FC50844        4     A     
 HISTORY            DEPENDENCY=F1037F5                                                     FC50844        5     A     
 HISTORY            AXM    83/03/23    INIT00                                              FC50844        6     A     
 HISTORY                                                                                   FC50844        7     A     
 HISTORY   FC50857  KEY/NAMLIST,IO/PFN5. IN KEY ADD LINE NUMBER/DEFINED TO                 FC50857        1     A     
 HISTORY            NAMELIST REFERENCE MAP. IN IO ADD LINE NUMBER/REFERENCE                FC50857        2     A     
 HISTORY            TO NAMELIST REFERENCE MAP.                                             FC50857        3     A     
 HISTORY            DEPENDENCY=FC50606                                                     FC50857        4     A     
 HISTORY            SSK    83/04/01    KEY,IO                                              FC50857        5     A     
 HISTORY                                                                                   FC50857        6     A     
 HISTORY   FC50860  COMFWIN/WO=IDNT,QCGC,CCGC.  WINA WHICH IS A TEMPORARY                  FC50860        1     A     
 HISTORY            CELL FOR PACKED 15-BIT INSTRUCTIONS WAS LEFT WITH REMAINS              FC50860        2     A     
 HISTORY            FROM A PREVIOUS PROGRAM UNIT BECAUSE AN ERROR PREVENTED                FC50860        3     A     
 HISTORY            COMPLETION OF A STATEMENT.  DURING NEXT PROGRAM UNIT                   FC50860        4     A     
 HISTORY            COMPILATION, THIS INSTRUCTION WAS PUT OUT TO PREBINARY                 FC50860        5     A     
 HISTORY            AND CAUSED PROBLEMS SUCH AS A MODE OUT IN FAS.                         FC50860        6     A     
 HISTORY            SSK    83/03/31    QCGC, CCGC                                          FC50860        7     A     
 HISTORY                                                                                   FC50860        8     A     
 HISTORY   FC50870  FEC/RLS. RESOLVE STORAGE ALLOCATON PROBLEMS FOR VALUE.                 FC50870        1     A     
 HISTORY            SYMBOLS BY SEARCHING THE LIST OF VALUE. SYMBOLS IN REVERSE             FC50870        2     A     
 HISTORY            ORDER AND ASSIGNING THE BASE MEMBER THE TYPE OF THE FIRST              FC50870        3     A     
 HISTORY            ONE WHICH HAS WB.DEF SET.                                              FC50870        4     A     
 HISTORY            SSK    83/04/06    FEC                                                 FC50870        5     A     
 HISTORY                                                                                   FC50870        6     A     
 HISTORY   FC50875  REG/LLA.  AVOID REGISTER CONFLICTS WITH LCM=G AND COMPLEX              FC50875        1     A     
 HISTORY            OPERANDS.                                                              FC50875        2     A     
 HISTORY            SSK    83/05/11    REG                                                 FC50875        3     A     
 HISTORY                                                                                   FC50875        4     A     
 HISTORY   FC50879  LABEL/ALU.  WHEN TESTING FOR POSSIBLE ENTRY INTO DO LOOP,              FC50879        1     A     
 HISTORY            DISREGARD LABEL IF ONLY REFERENCE IS IN AN ASSIGN STATEMENT.           FC50879        2     A     
 HISTORY            INFORMATION FOR CORRECT ANALYSIS IS NOT AVAILABLE.                     FC50879        3     A     
 HISTORY            MRR    83/04/17    LABEL                                               FC50879        4     A     
 HISTORY                                                                                   FC50879        5     A     
 HISTORY   FC50882  FMT/AED.  AVOID CLEARING PAREN NESTING LEVELS IF THERE ARE             FC50882        1     A     
 HISTORY            NO LEVELS TO CLEAR. FORMAT STATEMENT TEST CASE HAD MISSING             FC50882        2     A     
 HISTORY            LEFT PAREN.                                                            FC50882        3     A     
 HISTORY            DEPENDENCY=FC50625                                                     FC50882        4     A     
 HISTORY            SSK    83/04/28    FMT                                                 FC50882        5     A     
 HISTORY                                                                                   FC50882        6     A     
 HISTORY   FC50883  STMTF/SFD.  CLEAN UP T.SCR IN STMTF IF NO CLOSING *)* IS               FC50883        1     A     
 HISTORY            FOUND AT END ARGUMENT STRING.                                          FC50883        2     A     
 HISTORY            DEPENDENCY=FC50106                                                     FC50883        3     A     
 HISTORY            SSK    83/04/27    STMTF                                               FC50883        4     A     
 HISTORY                                                                                   FC50883        5     A     
 HISTORY   FC50885  PAR/PAREX11.  REVISE TEST TO DETERMINE IF TOKEN FOLLOWING              FC50885        1     A     
 HISTORY            AN ILLEGAL TOKEN IS A COMMA OR RIGHT PARENTHESE.                       FC50885        2     A     
 HISTORY            SSK    83/05/13    PAR                                                 FC50885        3     A     
 HISTORY                                                                                   FC50885        4     A     
 HISTORY   FC50886  FERRS, LABEL/SDO.  WHEN THE = DOES NOT IMMEDIATELY FOLLOW              FC50886        1     A     
 HISTORY            THE DO CONTROL INDEX, SKIP TOKENS TO THE = BEFORE CONTINUING           FC50886        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  43    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            PROCESSING OF THE DO.  PREVENTS PAR PROBLEMS WHILE COMPILING           FC50886        3     A     
 HISTORY            THE INDUCTION VARIABLES.                                               FC50886        4     A     
 HISTORY            MRR    83/05/11    FERRS, LABEL                                        FC50886        5     A     
 HISTORY                                                                                   FC50886        6     A     
 HISTORY   FC50889  ALLOC/GMR, RLINK.  GRACEFULLY HALT HEADER DELAY WHEN A LARGE           FC50889        1     A     
 HISTORY            NUMBER OF COMMENTS CAUSE TABLE OVERFLOW.                               FC50889        2     A     
 HISTORY            MRR    83/05/22    ALLOC, RLINK                                        FC50889        3     A     
 HISTORY                                                                                   FC50889        4     A     
 HISTORY   *L617*    ************************************************                      *L617*         1     A     
 HISTORY   FC5A433  INIT00/MIB.  AVOID PROBLEMS WHEN PROCESSING REW OPTION ON              FC5A433        1     A     
 HISTORY            SCOPE 2.                                                               FC5A433        2     A     
 HISTORY            DEPENDENCY = FC50735                                                   FC5A433        3     A     
 HISTORY            MRR    83/06/10    INIT00                                              FC5A433        4     A     
 HISTORY                                                                                   FC5A433        5     A     
 HISTORY   FC5A436  COMFISA, FEC/SYMTAB, GEN/O=HDR, PUC/CELLS.  SAVE A0 SO                 FC5A436        1     A     
 HISTORY            THAT CID CAN REFERENCE ACTUAL PARAMETERS.                              FC5A436        2     A     
 HISTORY            DJJ    83/08/25    COMFISA, FEC, GEN, PUC                              FC5A436        3     A     
 HISTORY                                                                                   FC5A436        4     A     
 HISTORY   FC5A437  PAR/TRE.  DIAGNOSE USE OF DECLARED EXTERNAL (OR INTRINSIC) AS          FC5A437        1     A     
 HISTORY            ARGUMENT TO INTRINSIC FUNCTION.                                        FC5A437        2     A     
 HISTORY            MRR    83/10/11    PAR                                                 FC5A437        3     A     
 HISTORY                                                                                   FC5A437        4     A     
 HISTORY   FC5A442  PAR/PAR.ERR.  AN ILLEGAL COMBINATION OF CURRENT/NEXT TOKEN             FC5A442        1     A     
 HISTORY            MAY LEAVE THE TOKEN POINTER MISPOSITIONED, CORRECTED BY                FC5A442        2     A     
 HISTORY            ADDING CODE TO CHECK FOR AN EOS. THIS IDENT PURGES FC50888             FC5A442        3     A     
 HISTORY            AND EXPANDS THAT CODE TO EXIT TO PAR.STOP ONLY IF AN IMPLIED           FC5A442        4     A     
 HISTORY            DO ERROR IS INDICATED.  THE PURGE ALLOWS 1 FC50792 CARD TO             FC5A442        5     A     
 HISTORY            BE REACTIVATED, WHICH WAS INADVERTENTLY PULLED BY FC50888.             FC5A442        6     A     
 HISTORY            DEPENDENCY=FC50792                                                     FC5A442        7     A     
 HISTORY            PURGES=FC50888                                                         FC5A442        8     A     
 HISTORY            SSK    83/11/16    PAR                                                 FC5A442        9     A     
 HISTORY                                                                                   FC5A442       10     A     
 HISTORY   FC5A445  INIT00/COMCCPM.  DO NOT CALL *COMCCPM* ON SCOPE2 SYSTEMS.              FC5A445        1     A     
 HISTORY            DEPENDENCY=FC5A426                                                     FC5A445        2     A     
 HISTORY            KJM    83/12/12    INIT00                                              FC5A445        3     A     
 HISTORY                                                                                   FC5A445        4     A     
 HISTORY   FC5A446  OPTIONS.  FIX *VALMDL* MACRO TO PROPERLY DEFINE *MDL*                  FC5A446        1     A     
 HISTORY            WHEN *MODEL* IS SET TO 740, 750, OR 760.  OTHERWISE,                   FC5A446        2     A     
 HISTORY            THE BUILD WOULD FAIL WITH ASSEMBLY ERRORS IN *FAS*.                    FC5A446        3     A     
 HISTORY            DEPENDENCY=F2950F5                                                     FC5A446        4     A     
 HISTORY            AXM    84/02/09    OPTIONS, FTN5TXT                                    FC5A446        5     A     
 HISTORY                                                                                   FC5A446        6     A     
 HISTORY   FC50809  FAS/DDS/OTC.  INSURE THAT PTEXT LOADER TABLES (3500) ARE               FC50809        1     A     
 HISTORY            WITHIN THE LOADER SIZE LIMIT, WITH NO PARTIAL ENTRY CARRYOVER.         FC50809        2     A     
 HISTORY            THIS WAS A PROBLEM WITH INITIALIZATION OF LARGE AMOUNTS OF             FC50809        3     A     
 HISTORY            CHARACTER DATA.  THE LOADER GOT LOST ON THE SPLIT ENTRY.               FC50809        4     A     
 HISTORY            MRR    83/09/14    FAS                                                 FC50809        5     A     
 HISTORY                                                                                   FC50809        6     A     
 HISTORY   FC50904  PAR/PAR.STOP.  SCRATCH T.SCR THROUGH THIS EXIT. ROUTINES               FC50904        1     A     
 HISTORY            USING T.SCR EXPECT THIS TABLE TO BE CLEAR.                             FC50904        2     A     
 HISTORY            SSK    83/06/27    PAR                                                 FC50904        3     A     
 HISTORY                                                                                   FC50904        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  44    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC50905  FAS/ORD.  REPAIR REGISTER WIPEOUT. CAUSING BAD RELOCATION              FC50905        1     A     
 HISTORY            FOR LOWER BOUNDS OF ASSUMED SIZE ARRAYS.                               FC50905        2     A     
 HISTORY            SSK    83/07/18    FAS                                                 FC50905        3     A     
 HISTORY                                                                                   FC50905        4     A     
 HISTORY   FC50906  IO/IDC.  AVOID SHRINKING T.REF IF ITS LENGTH IS ZERO.                  FC50906        1     A     
 HISTORY            DURING IO COLLAPSE PROCESSING IT MAY BE NECESSARY TO SHRINK            FC50906        2     A     
 HISTORY            T.REF SLIGHTLY, IF A COMPLETE COLLAPSE HAS FAILED , BUT THE            FC50906        3     A     
 HISTORY            REFERENCE MAP MAY HAVE BEEN WRITTEN TO A DISC FILE LEAVING             FC50906        4     A     
 HISTORY            T.REF WITH A ZERO LENGTH.                                              FC50906        5     A     
 HISTORY            SSK    83/07/14    IO                                                  FC50906        6     A     
 HISTORY                                                                                   FC50906        7     A     
 HISTORY   FC50913  KEY/RTN,MAP/SRC.  ALLOW MAP TO LIST THE LINE NUMBER                    FC50913        1     A     
 HISTORY            CONTAINING THE RETURN STATEMENT FOR FUNCTION SUBPROGRAMS               FC50913        2     A     
 HISTORY            IN THE ENTRY POINT SECTION OF THE MAP LISTING.                         FC50913        3     A     
 HISTORY            DEPENDENCY=FC50451                                                     FC50913        4     A     
 HISTORY            SSK    83/09/07    KEY, MAP                                            FC50913        5     A     
 HISTORY                                                                                   FC50913        6     A     
 HISTORY   FC50915  LABEL/CDI.  AVOID USING 18 BIT ARITHMETIC WHEN CHECKING                FC50915        1     A     
 HISTORY            *DO=LONG* TRIP COUNTS FOR A TRIP COUNT OF ONE.                         FC50915        2     A     
 HISTORY            DEPENDENCY=FC50594                                                     FC50915        3     A     
 HISTORY            SSK    83/08/09    LABEL                                               FC50915        4     A     
 HISTORY                                                                                   FC50915        5     A     
 HISTORY   FC50920  REG/LLA.  IF ABS(BIAS) LT 2**17 USE RG=SET INSTRUCTIONS AND            FC50920        1     A     
 HISTORY            RG=INTR INSTRUCTONS(PROVIDED USE COUNTS ARE ZERO) WHEN                 FC50920        2     A     
 HISTORY            GENERATING UEC CODE.                                                   FC50920        3     A     
 HISTORY            DEPENDENCY=FC50875                                                     FC50920        4     A     
 HISTORY            SSK    83/10/03    REG                                                 FC50920        5     A     
 HISTORY                                                                                   FC50920        6     A     
 HISTORY   FC50923  CONRED/DEC.  WHEN HALTING COMPILATION OF A STATEMENT DUE TO            FC50923        1     A     
 HISTORY            CONSTANT CONVERSION ERRORS, IF DATA STATEMENT IS BEING                 FC50923        2     A     
 HISTORY            PROCESSED, RETURN TO CLEAN UP DATA TABLES.  PREVENTS LEFT OVERS        FC50923        3     A     
 HISTORY            CAUSING LATER PROBLEMS.                                                FC50923        4     A     
 HISTORY            DEPENDENCY=FC50656                                                     FC50923        5     A     
 HISTORY            MRR    83/09/13    CONRED                                              FC50923        6     A     
 HISTORY                                                                                   FC50923        7     A     
 HISTORY   FC50933  COMSSYM, FEC/F.SYMIL, DECL/G-F.  SINCE THE RB SYMBOL TABLE             FC50933        1     A     
 HISTORY            CONTAINS THE BLOCK INDEX (IN T.BLKS), NOT THE ORDINAL, EXPAND          FC50933        2     A     
 HISTORY            FIELD TO ALLOW THE DESCRIBED (500) NUMBER OF COMMON BLOCKS.            FC50933        3     A     
 HISTORY            DEPENDENCY=FC50662                                                     FC50933        4     A     
 HISTORY            MRR    83/09/13    COMSSYM, FEC, DECL                                  FC50933        5     A     
 HISTORY                                                                                   FC50933        6     A     
 HISTORY   FC50935  PAR/TRE.  SET RESTART INDICATOR WHEN I/O LIST MUST BE                  FC50935        1     A     
 HISTORY            RESTARTED.                                                             FC50935        2     A     
 HISTORY            DEPENDENCY=FC5A141                                                     FC50935        3     A     
 HISTORY            MRR    83/09/15    PAR                                                 FC50935        4     A     
 HISTORY                                                                                   FC50935        5     A     
 HISTORY   FC50941  FMT/AED.  AVOID CLEARING PAREN NESTING LEVELS IF THERE ARE             FC50941        1     A     
 HISTORY            NO LEVELS TO CLEAR OR IF THERE ARE UNBALANCED PARENS.                  FC50941        2     A     
 HISTORY            DEPENDENCY=FC50882                                                     FC50941        3     A     
 HISTORY            SSK    83/10/05    FMT                                                 FC50941        4     A     
 HISTORY                                                                                   FC50941        5     A     
 HISTORY   *L628*    ************************************************                      *L628*         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  45    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC5A438  BRIDGE/PAF.  ADD CODE TO UPDATE THE LEV0 BIT IN THE APLIST             FC5A438        1     A     
 HISTORY            TYPE INFORMATION WORD(ATF). ALLOWS BRIDGE TO SELECT THE                FC5A438        2     A     
 HISTORY            PROPER CODE SKELETON FOR LEVEL 0 APLIST ITEMS.                         FC5A438        3     A     
 HISTORY            SSK    84/06/25    BRIDGE                                              FC5A438        4     A     
 HISTORY                                                                                   FC5A438        5     A     
 HISTORY   FC5A441  PAR/EQL/CDI/SCB/STC.  CORRECT DEFICIENCIES IN FC50189.                 FC5A441        1     A     
 HISTORY            THE CHECKING WAS NOT CORRECT WHEN EQUIVALENCING IS USED.               FC5A441        2     A     
 HISTORY            REMOVES *STC* AND INTRODUCES *SCB* IN *PAR*.                           FC5A441        3     A     
 HISTORY            DEPENDENCY=FC50189,FC5A421                                             FC5A441        4     A     
 HISTORY            AXM    84/02/24    PAR                                                 FC5A441        5     A     
 HISTORY                                                                                   FC5A441        6     A     
 HISTORY   FC5A444  COMSSYM, COMFCIP, COMFTTL, FTN, HEADER, INIT00, DECL.                  FC5A444        1     A     
 HISTORY            THIS CODE ADDS THE AUTOMATIC LEVEL FEATURE TO FTN5.                    FC5A444        2     A     
 HISTORY            IF THE *AL* PARAMETER IS SPECIFIED ON THE FTN5 CALL                    FC5A444        3     A     
 HISTORY            STATEMENT, ALL COMMON BLOCKS WILL BE PLACED IN LEVEL                   FC5A444        4     A     
 HISTORY            2 STORAGE AND ALL FORMAL PARAMETERS WILL BE TREATED                    FC5A444        5     A     
 HISTORY            AS LEVEL 0. THIS CAN BE OVERRIDDEN BY USE OF EXPLICIT                  FC5A444        6     A     
 HISTORY            LEVEL STATEMENTS.                                                      FC5A444        7     A     
 HISTORY                                                                                   FC5A444        8     A     
 HISTORY            PRECAUTIONS TO BE NOTED WHEN USING THE *AL* OPTION ARE:                FC5A444        9     A     
 HISTORY                                                                                   FC5A444       10     A     
 HISTORY              1) EXISTING COMPASS PROGRAMS THAT SHARE COMMON BLOCKS                FC5A444       11     A     
 HISTORY                 WITH FTN5 WILL NEED TO HAVE THEIR BLOCK DECLARATIONS              FC5A444       12     A     
 HISTORY                 CHANGED TO SPECIFY UEM(LCM).                                      FC5A444       13     A     
 HISTORY                                                                                   FC5A444       14     A     
 HISTORY              2) BUFFER I/O OF LEVEL 2 DATA REQUIRES A FILE CARD WITH              FC5A444       15     A     
 HISTORY                 SBF=NO SPECIFIED FOR THE FILE                                     FC5A444       16     A     
 HISTORY                                                                                   FC5A444       17     A     
 HISTORY              3) VARIABLE FORMATS IN LEVEL 2 ARE LIMITED TO A MAX OF               FC5A444       18     A     
 HISTORY                 150 CHARACTERS.                                                   FC5A444       19     A     
 HISTORY                                                                                   FC5A444       20     A     
 HISTORY            THE RELEASE DEFAULT SETTING OF THE *AL* PARAMETER IS                   FC5A444       21     A     
 HISTORY            AL=0 (OFF).                                                            FC5A444       22     A     
 HISTORY                                                                                   FC5A444       23     A     
 HISTORY            DEPENDENCY=FC50252,F1039,FC50496,FC5A192,FC50326,FC50570               FC5A444       24     A     
 HISTORY            RRR    83/11/28                                                        FC5A444       25     A     
 HISTORY            AXM    84/06/04    COMSSYM, COMFCIP, COMFTTL                           FC5A444       26     A     
 HISTORY                               FTN5TXT, FTN, HEADER, INIT00, DECL                  FC5A444       27     A     
 HISTORY                                                                                   FC5A444       28     A     
 HISTORY   FC5A450  LABEL/ISL.  ALLOW *WB.FR* TO BE ENTERED IN T.SYM PROVIDED              FC5A450        1     A     
 HISTORY            LABEL REFERENCE IS NOT FROM AN *ASSIGN* STATEMENT. ALLOWS              FC5A450        2     A     
 HISTORY            AMBIGUOUS REFERENCES(ASSIGN) TO A LABEL IN A DO LOOP AND               FC5A450        3     A     
 HISTORY            TRAPS OTHER ILLEGAL REFERENCES AS FATAL ERRORS.                        FC5A450        4     A     
 HISTORY            SSK    84/02/17    LABEL                                               FC5A450        5     A     
 HISTORY                                                                                   FC5A450        6     A     
 HISTORY   FC50946  IO/IDC.  WHEN PERFORMING I/O IMPLIED DO COLLAPSE ON ARRAYS OF          FC50946        1     A     
 HISTORY            TYPE DOUBLE PRECISION OR COMPLEX, AND AN ARRAY LOAD MUST BE            FC50946        2     A     
 HISTORY            PERFORMED, DOUBLE THE SUBSCRIPT VALUE TO PROVIDE A VALID               FC50946        3     A     
 HISTORY            OFFSET.                                                                FC50946        4     A     
 HISTORY            DEPENDENCY=FC50620                                                     FC50946        5     A     
 HISTORY            MRR    83/10/21    IO                                                  FC50946        6     A     
 HISTORY                                                                                   FC50946        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  46    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC50947  PAR/ADT.  WHEN PROCESSING A UNARY MINUS TURPLE WITH A CONSTANT         FC50947        1     A     
 HISTORY            OPERAND, DO NOT REDUCE THE OPERATION WHEN PROCESSING DO                FC50947        2     A     
 HISTORY            INDUCTION VARIABLES AND DO=LONG.  ALLOWS OPT=2 TO PROPERLY             FC50947        3     A     
 HISTORY            HANDLE NEGATIVE INCREMENT FOR THE ABOVE CASE.                          FC50947        4     A     
 HISTORY            DEPENDENCY=FC50391                                                     FC50947        5     A     
 HISTORY            MRR    83/10/13    PAR                                                 FC50947        6     A     
 HISTORY                                                                                   FC50947        7     A     
 HISTORY   FC50949  REG/SFR.  WHEN SCANNING FOR A REGISTER , CLEAR THE REGFILE             FC50949        1     A     
 HISTORY            ENTRY OF THE REGISTER SELECTED IF ITS USE COUNT IS ZERO.               FC50949        2     A     
 HISTORY            PREVENTS ROUTINE GST FROM INDICATING A TAG IS IN A REGISTER            FC50949        3     A     
 HISTORY            EVEN THOUGH ITS STATUS WORD SO INDICATES.                              FC50949        4     A     
 HISTORY            SSK    84/02/29    REG                                                 FC50949        5     A     
 HISTORY                                                                                   FC50949        6     A     
 HISTORY   FC50950  REG/RUT, GEN/EIS.CMP.  ADDED CODE TO REG TO MAKE FOLLOWING             FC50950        1     A     
 HISTORY            CHECKS WHEN A REGISTER IS SELECTED FOR USE. IN SUBROUTINE              FC50950        2     A     
 HISTORY            *RUT* CHECK IF STORE REGISTER TO SAVE TAG OF SELECTED                  FC50950        3     A     
 HISTORY            REGISTER IS NOT THE *I* OF PREVIOUS INSTRUCTION OR *K* OF              FC50950        4     A     
 HISTORY            CURRENT INSTRUCTION. IF IT IS , USE OTHER STORE REGISTER TO            FC50950        5     A     
 HISTORY            SAVE TAG.                                                              FC50950        6     A     
 HISTORY            SSK    84/06/14    REG,GEN                                             FC50950        7     A     
 HISTORY                                                                                   FC50950        8     A     
 HISTORY   FC50958  DECL/EDD.  ADDED CODE TO PREVENT TRYING TO MATCH A                     FC50958        1     A     
 HISTORY            DIMENSION DESCRIPTOR , INTENDED TO BE ADDED TO T.DIM                   FC50958        2     A     
 HISTORY            PROVIDED A MATCH ISN'T FOUND , WITH A DESCRIPTOR OF UNEQUAL            FC50958        3     A     
 HISTORY            SIZE. PREVENTS A BAD SUBSCRIPT ADDRESS IN APLIST TO SUBSCRIPT          FC50958        4     A     
 HISTORY            CHECKING ROUTINE CES.                                                  FC50958        5     A     
 HISTORY            DEPENDENCY=                                                            FC50958        6     A     
 HISTORY            SSK    84/03/21    DECL                                                FC50958        7     A     
 HISTORY                                                                                   FC50958        8     A     
 HISTORY   FC50962  HEADER/PSA, DECL/PCF.  IN HEADER ADD CODE TO ACCOUNT FOR               FC50962        1     A     
 HISTORY            *VALUH.* AS THE FIRST ARGUMENT IF A FUNCTION SUBPROGRAM                FC50962        2     A     
 HISTORY            WAS DEFINED AS CHARACTER*(*).  IN DECL ADD CODE TO ADJUST              FC50962        3     A     
 HISTORY            *CPL.* BIAS.                                                           FC50962        4     A     
 HISTORY            DEPENDENCY=FC50512                                                     FC50962        5     A     
 HISTORY            SSK    84/03/07    HEADER, DECL                                        FC50962        6     A     
 HISTORY                                                                                   FC50962        7     A     
 HISTORY   FC50964  REG/STS.  RETAIN INCOMING OPERAND USE COUNT IF LARGER THEN             FC50964        1     A     
 HISTORY            USE COUNT IN REGFILE FOR SAME TAG , ELSE USE REGFILE USE               FC50964        2     A     
 HISTORY            COUNT. PREVENTS LOSING REGISTERS BECAUSE OF PREMATURE ZERO             FC50964        3     A     
 HISTORY            USE COUNTS.                                                            FC50964        4     A     
 HISTORY            DEPENDENCY=FC50748                                                     FC50964        5     A     
 HISTORY            SSK    84/02/24    REG                                                 FC50964        6     A     
 HISTORY                                                                                   FC50964        7     A     
 HISTORY   FC50969  HEADER/DCM.  FIX *COMPILING* DAYFILE MESSAGE SO AS TO:                 FC50969        1     A     
 HISTORY             1) NOT LEAVE 10 BLANK CHARS AT BEGINNING,                             FC50969        2     A     
 HISTORY             2) STORE PROGRAM NAME PRIOR TO ISSUING MESSAGE,                       FC50969        3     A     
 HISTORY             3) ISSUE MESSAGE WITH AUTO-RECALL.                                    FC50969        4     A     
 HISTORY            DEPENDENCY=FC50731                                                     FC50969        5     A     
 HISTORY            AXM    84/02/21    HEADER                                              FC50969        6     A     
 HISTORY                                                                                   FC50969        7     A     
 HISTORY   FC50985  PAR/PAR.CM.  A UNARY MINUS VARIABLE ARGUMENT TO A SUBROUTINE           FC50985        1     A     
 HISTORY            IS BEING PASSED INCORRECTLY BECAUSE THE UNARY MINUS TURPLE IS          FC50985        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  47    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            GETTING SQUEEZED. CORRECTED BY RESETTING SQUEEZE LIMIT AFTER           FC50985        3     A     
 HISTORY            POPPING A COMMA OPERATOR.                                              FC50985        4     A     
 HISTORY            DEPENDENCY=FC5A414,FC50612                                             FC50985        5     A     
 HISTORY            SSK    84/09/05    PAR                                                 FC50985        6     A     
 HISTORY                                                                                   FC50985        7     A     
 HISTORY   FC51035  SKEL,QSKEL,CSKEL.  REVISE SKELETONS FOR INTRINSIC FUNCTIONS            FC51035        1     A     
 HISTORY            DINT AND DNINT TO CORRECTLY HANDLE DOUBLE PRECISION ARGUMENTS.         FC51035        2     A     
 HISTORY            SSK    84/04/16    SKEL, QSKEL, CSKEL                                  FC51035        3     A     
 HISTORY                                                                                   FC51035        4     A     
 HISTORY   FC51039  KEY/GOA. ADD CODE TO RECOGNISE THAT A *DO LOOP* HAS AN EXIT            FC51039        1     A     
 HISTORY            WHEN THE LOOP CONTAINS AN ABSOLUTE *GO TO* OF THIS TYPE                FC51039        2     A     
 HISTORY            *GO TO IVAR*. ALLOWS A TRANSFER BACK TO THE LOOP AFTER                 FC51039        3     A     
 HISTORY            HAVING LEFT VIA A *GO TO* OF THE ABOVE TYPE.                           FC51039        4     A     
 HISTORY            SSK    84/04/10    KEY                                                 FC51039        5     A     
 HISTORY                                                                                   FC51039        6     A     
 HISTORY   FC51048  FEC/CAC, KEY/CEM. CODE ADDED TO LIST , IN THE MAP SECTION              FC51048        1     A     
 HISTORY            , THE CORRECT TYPE OF AN ALTERNATE ENTRY POINT WHEN SAID               FC51048        2     A     
 HISTORY            ENTRY POINT WAS DECLARED CHARACTER AND ASSUMED SIZE. THE               FC51048        3     A     
 HISTORY            OTHER PROBLEM(BAD CODE AT LEVEL 577 WITH FC50962) CAN BE               FC51048        4     A     
 HISTORY            CORRECTED WITH FC50773.                                                FC51048        5     A     
 HISTORY            SSK    84/04/18    KEY,FEC                                             FC51048        6     A     
 HISTORY                                                                                   FC51048        7     A     
 HISTORY   FC51066  IO/IDC. REPAIR REGISTER WIPEOUT CAUSED BY FC50620.                     FC51066        1     A     
 HISTORY            DEPENDENCY=FC5A141,FC5A211                                             FC51066        2     A     
 HISTORY            SSK    84/06/01    IO                                                  FC51066        3     A     
 HISTORY                                                                                   FC51066        4     A     
 HISTORY   FC51069  IO/IDC.  CORRECT ERROR IN FC5A431.  THE TEST                           FC51069        1     A     
 HISTORY            FOR THE FINAL SUBSCRIPT WAS NOT CORRECT.                               FC51069        2     A     
 HISTORY            DEPENDENCY=FC5A431                                                     FC51069        3     A     
 HISTORY            AXM    84/06/01    IO                                                  FC51069        4     A     
 HISTORY                                                                                   FC51069        5     A     
 HISTORY   FC51073  DATA/CRL.  SAVE A4 ACROSS CALL TO *MVE=*.                              FC51073        1     A     
 HISTORY            ERROR IN FC50336 CAUSED DATA STATEMENTS WITH A REPEAT                  FC51073        2     A     
 HISTORY            COUNT .GT. 77777B WHICH WAS NOT THE LAST ELEMENT IN THE                FC51073        3     A     
 HISTORY            CONSTANT LIST TO GET SPURIOUS DIAGNOSTICS.                             FC51073        4     A     
 HISTORY            DEPENDENCY=FC50336                                                     FC51073        5     A     
 HISTORY            AXM    84/06/11    DATA                                                FC51073        6     A     
 HISTORY                                                                                   FC51073        7     A     
 HISTORY   *L642*    ************************************************                      *L642*         1     A     
 HISTORY   FC5A464  INIT00/MIB.  FIX MODE ERROR WHICH CAN OCCUR ON DUAL-STATE              FC5A464        1     A     
 HISTORY            SYSTEMS.  CODE AT *MIB100* DOES AN IN-STACK CODE MODIFICATION          FC5A464        2     A     
 HISTORY            BY STORING A JP B2 (UPPER), AND A 30-BIT PS (LOWER).  ON A             FC5A464        3     A     
 HISTORY            DUAL-STATE SYSTEM, INTERRUPTS ARE POSSIBLE AT ANY INSTRUCTION          FC5A464        4     A     
 HISTORY            BOUNDARY, SO CONTROL CAN GO TO THE PS.  CODE FIXES PROBLEM             FC5A464        5     A     
 HISTORY            BY PLACING THE JP B2 IN BOTH THE UPPER AND LOWER HALVES OF             FC5A464        6     A     
 HISTORY            THE WORD BEING STORED.                                                 FC5A464        7     A     
 HISTORY            AXM    85/01/23    INIT00                                              FC5A464        8     A     
 HISTORY                                                                                   FC5A464        9     A     
 HISTORY   FC5A478  OPTIONS.  FIX *VALMDL* MACRO TO PROPERLY DEFINE MODEL 990.             FC5A478        1     A     
 HISTORY            PREVENTS FTN5 BUILD FROM FAILING WITH ASSEMBLY ERROR IN                FC5A478        2     A     
 HISTORY            *FAS* WHEN MODEL MICRO IS SET TO 990.                                  FC5A478        3     A     
 HISTORY            DEPENDENCY=FC5A446                                                     FC5A478        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  48    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            AXM    85/07/01    OPTIONS, FTN5TXT                                    FC5A478        5     A     
 HISTORY                                                                                   FC5A478        6     A     
 HISTORY   FC50956  PAR/DOC.  DO NOT SET WB.DEF FOR AN IMPLIED DO INDEX                    FC50956        1     A     
 HISTORY            VARIABLE IN A DATA STATEMENT. AVOIDS A CONFLICT IN                     FC50956        2     A     
 HISTORY            PROPERTIES IF VARIABLE IS USED ELSEWHERE IN SAME PROGRAM               FC50956        3     A     
 HISTORY            UNIT.                                                                  FC50956        4     A     
 HISTORY            DEPENDENCY=FC5A221,FC50221                                             FC50956        5     A     
 HISTORY            SSK    84/06/19    PAR                                                 FC50956        6     A     
 HISTORY                                                                                   FC50956        7     A     
 HISTORY   FC50966  FERRS, PAR/A=CALL.  MAKE THE EXTRANEOUS CHARACTER DIAGNOSTIC           FC50966        1     A     
 HISTORY            FOR CALL STATEMENTS FATAL.                                             FC50966        2     A     
 HISTORY            MRR    84/09/17    FERRS, PAR                                          FC50966        3     A     
 HISTORY                                                                                   FC50966        4     A     
 HISTORY   FC50972  FERRS, TYPE/TYP.  CHANGE THE SEVERITY OF THE DIAGNOSTIC FOR            FC50972        1     A     
 HISTORY            RETYPING AN ALREADY TYPED ENTITY.  IF THE TYPE IS CONFIRMING,          FC50972        2     A     
 HISTORY            MAKE THE DIAGNOSTIC TRIVIAL, IF A NEW TYPE IS SPECIFIED, MAKE          FC50972        3     A     
 HISTORY            THE DIAGNOSTIC FATAL.                                                  FC50972        4     A     
 HISTORY            DEPENDENCY=FC5A225,FC5A338,FC50515                                     FC50972        5     A     
 HISTORY            MRR    84/12/18    FERRS, TYPE                                         FC50972        6     A     
 HISTORY                                                                                   FC50972        7     A     
 HISTORY   FC51002  REC/REL, FAS/PIT.  OUTPUT THE STATUS OF THE *ARG* CONTROL STMT         FC51002        1     A     
 HISTORY            OPTION TO THE COMMENTS SECTION OF THE PRFX (7700) TABLE.               FC51002        2     A     
 HISTORY            MRR    84/09/08    REC, FAS                                            FC51002        3     A     
 HISTORY                                                                                   FC51002        4     A     
 HISTORY   FC51015  INIT00/PPW.  ADDED CODE TO USE THE NEAREST ALLOWED PAGE WIDTH          FC51015        1     A     
 HISTORY            LIMIT, IF THE CONTROL CARD PAGE WIDTH VALUE EXCEEDS ALLOWED            FC51015        2     A     
 HISTORY            LIMITS, LESS THEN 50 OR GREATER THEN 136.                              FC51015        3     A     
 HISTORY            DEPENDENCY=FC5A426                                                     FC51015        4     A     
 HISTORY            SSK    84/11/16    INIT00                                              FC51015        5     A     
 HISTORY                                                                                   FC51015        6     A     
 HISTORY   FC51029  KEY/IFL.  WHEN A THREE-BRANCH IF HAS ALL LABELS THE SAME,              FC51029        1     A     
 HISTORY            JUST ISSUE A GOTO TURPLE.  THIS MAKES LIFE EASIER FOR THE              FC51029        2     A     
 HISTORY            CODE GENERATORS, ESPECIALLY OPT=2, WHICH GETS LOST WHEN THE            FC51029        3     A     
 HISTORY            STATEMENT IS IN A DO LOOP.                                             FC51029        4     A     
 HISTORY            MRR    84/10/24    KEY                                                 FC51029        5     A     
 HISTORY                                                                                   FC51029        6     A     
 HISTORY   FC51075  FTN5TXT,PUC,PAR/PAR.SPS/POP.PN. ADDED CODE TO REMOVE PARSER            FC51075        1     A     
 HISTORY            CONTEXT INFORMATION FROM OSTACK AND PUT THIS INFORMATION               FC51075        2     A     
 HISTORY            (ARGMODE,ARGCOMA,ARGMIS) IN A MANAGED TABLE. ALLOWS PAR TO             FC51075        3     A     
 HISTORY            HANDLE EXPRESSIONS TO A DEEPER NESTING LEVEL.                          FC51075        4     A     
 HISTORY            DEPENDENCY=FC5A415,FC5A167                                             FC51075        5     A     
 HISTORY            SSK    84/07/17    FTN5TXT,PUC,PAR                                     FC51075        6     A     
 HISTORY                                                                                   FC51075        7     A     
 HISTORY   FC51078  COMSPBD, FTN5TXT, QCGC, CCGC, FAS, LIST.  EXPAND AP-LIST               FC51078        1     A     
 HISTORY            INDEX FROM 12 TO 14 BITS. A TEST CASE HAS ENOUGH                       FC51078        2     A     
 HISTORY            SUBROUTINE CALLS TO CAUSE A 12 BIT OVERFLOW.                           FC51078        3     A     
 HISTORY            SSK    84/07/19    COMSPBD, FTN5TXT, QCGC, CCGC, FAS, LIST             FC51078        4     A     
 HISTORY                                                                                   FC51078        5     A     
 HISTORY   FC51082  PAR/A=ARRAY.  ADDED CODE WHICH IMPROVES ERROR RECOVERY                 FC51082        1     A     
 HISTORY            BY ALLOWING PARSING TO CONTINUE PAST THE ERROR WHEN                    FC51082        2     A     
 HISTORY            A SUBSCRIPT/DIMENSION COUNT MISMATCH OCCURS BY ADJUSTING               FC51082        3     A     
 HISTORY            ESTACK AS REQUIRED AND UPDATING THE ACTUAL NUMBER OF                   FC51082        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  49    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SUBSCRIPTS FOR THE VARIABLE.                                           FC51082        5     A     
 HISTORY            DEPENDENCY=FC5A415                                                     FC51082        6     A     
 HISTORY            SSK    84/07/31    PAR                                                 FC51082        7     A     
 HISTORY                                                                                   FC51082        8     A     
 HISTORY   FC51150  REG/SLD. AFTER REG ALLOCATES AN ADDRESS FUNCTION REGISTER,             FC51150        1     A     
 HISTORY            REG ALLOCATES AN ARRAY LOAD REGISTER AND CHECKS THE STATUS             FC51150        2     A     
 HISTORY            OF THE ADDRESS FUNCTION REGISTER AND FINDS THE ADDRESS                 FC51150        3     A     
 HISTORY            FUNCTION TAG NOT LOADED AND THEN HANGS IN THIS LOOP.                   FC51150        4     A     
 HISTORY            CORRECTIVE CODE LOCKS THE ADDRESS FUNCTION REGISTER.                   FC51150        5     A     
 HISTORY            DEPENDENCY=FC50825                                                     FC51150        6     A     
 HISTORY            SSK    84/09/13    REG                                                 FC51150        7     A     
 HISTORY                                                                                   FC51150        8     A     
 HISTORY   FC51168  PAR/SCB.  WHEN THE CHARACTER VARIABLE HAS ASSUMED LENGTH,              FC51168        1     A     
 HISTORY            NO CHECKING IS DONE FOR CHARACTER ASSIGNMENT OVERLAP.                  FC51168        2     A     
 HISTORY            IF THE CHARACTER VARIABLE HAS NO SUBSTRING OR A VARIABLE               FC51168        3     A     
 HISTORY            SUBSTRING, SET THE UPPER BOUND TO THE MAXIMUM CHARACTER                FC51168        4     A     
 HISTORY            STRING LENGTH(32767).                                                  FC51168        5     A     
 HISTORY            DEPENDENCY=FC5A441                                                     FC51168        6     A     
 HISTORY            JYY    84/10/31    PAR                                                 FC51168        7     A     
 HISTORY                                                                                   FC51168        8     A     
 HISTORY   FC51193  KEY/NAM, FERRS.  WHEN PROCESSING EACH ITEM OF THE GROUP, THE           FC51193        1     A     
 HISTORY            ERROR DOES NOT GET DETECTED UNTIL THE *TRV* ROUTINE, WHERE IT          FC51193        2     A     
 HISTORY            IS TOO LATE TO RECOVER THE ERROR AND CLEAN UP THE NAMELIST             FC51193        3     A     
 HISTORY            TABLE.  SOLUTION IS TO CHECK EACH ITEM IN THE GROUP FOR A              FC51193        4     A     
 HISTORY            VALID VARIABLE BEFORE CALLING *TRV*, AND CLEAN UP THE                  FC51193        5     A     
 HISTORY            NAMELIST TABLE IN THE CASE OF AN ERROR.                                FC51193        6     A     
 HISTORY            DEPENDENCY=FC50606                                                     FC51193        7     A     
 HISTORY            JYY    84/12/12    KEY, FERRS                                          FC51193        8     A     
 HISTORY                                                                                   FC51193        9     A     
 HISTORY   FC51198  BRIDGE/P=FIN.  ADDED CODE TO INSERT STORES TO TEMPS BEFORE             FC51198        1     A     
 HISTORY            RESETTING L$FUN TO ZERO.                                               FC51198        2     A     
 HISTORY            SSK    84/12/05    BRIDGE                                              FC51198        3     A     
 HISTORY                                                                                   FC51198        4     A     
 HISTORY   *L650*    ************************************************                      *L650*         1     A     
 HISTORY   FC5A460  CONRED.  DIAGNOSE NON-ANSI FOR OCTAL AND HEX CONSTANT IN DATA          FC5A460        1     A     
 HISTORY            STATEMENT.                                                             FC5A460        2     A     
 HISTORY            JYY    85/02/19    CONRED                                              FC5A460        3     A     
 HISTORY                                                                                   FC5A460        4     A     
 HISTORY   FC5A471  FERRS, PAR/PAR.XOR.  CONO TABLE IS CHANGED TO DIAGNOSE                 FC5A471        1     A     
 HISTORY            NON-ANSI FOR THE OPERATOR .XOR. BEFORE PROCESSING PAR.STD.             FC5A471        2     A     
 HISTORY            DEPENDENCY=FC5A111,FC50560                                             FC5A471        3     A     
 HISTORY            JYY    85/05/07    FERRS, PAR                                          FC5A471        4     A     
 HISTORY                                                                                   FC5A471        5     A     
 HISTORY   FC5A480  INIT00.  ON NOS/BE, FTN5 ABORTS WITH *AUTO RECALL ERROR*               FC5A480        1     A     
 HISTORY            DURING INITIALIZATION.  *GETPAGE* REPLY WORDS WERE NOT                 FC5A480        2     A     
 HISTORY            INITIALIZED TO ZERO, DUE TO USE OF *BSS* RATHER THAN *BSSZ*.           FC5A480        3     A     
 HISTORY            CORRECTIVE CODE CHANGES THESE TO *BSSZ*.                               FC5A480        4     A     
 HISTORY            DEPENDENCY=FC5A426                                                     FC5A480        5     A     
 HISTORY            CDF    85/07/24    INIT00                                              FC5A480        6     A     
 HISTORY                                                                                   FC5A480        7     A     
 HISTORY   FC50800  FMT/FMT=LP/FMT=RP.  WHEN CALCULATING RECORD LENGTH OF A                FC50800        1     A     
 HISTORY            FORMAT STATEMENT, A GENERAL VARIABLE *FMTRL* IS RESET TO               FC50800        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  50    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ZERO FOR A NESTED PAREN, WHICH CAUSES SOME FAULTY DIAGNOSTICS.         FC50800        3     A     
 HISTORY            THIS CODE INTRODUCES A NEW VARIABLE *FMTPRL* TO CALCULATE              FC50800        4     A     
 HISTORY            THE RECORD LENGTH OF A NESTED PAREN LEVEL AND UPDATES THE              FC50800        5     A     
 HISTORY            VARIABLE *FMTRL* LATER.                                                FC50800        6     A     
 HISTORY            DEPENDENCY=FC50553                                                     FC50800        7     A     
 HISTORY            JYY    85/03/14    FMT                                                 FC50800        8     A     
 HISTORY                                                                                   FC50800        9     A     
 HISTORY   FC50887  FERRS, IO/FMS.  DETECT ANY GARBAGE AFTER *)* IN *OPEN*,                FC50887        1     A     
 HISTORY            *CLOSE*, *INQUIRE* STATEMENT.  USE THE GENERAL ERROR(4).               FC50887        2     A     
 HISTORY            DEPENDENCY=FC5A343,FC5A171A                                            FC50887        3     A     
 HISTORY            JYY    85/03/19    FERRS, IO                                           FC50887        4     A     
 HISTORY                                                                                   FC50887        5     A     
 HISTORY   FC50982  INIT00/MIB130/PPW. CHECK IF PW OPTION IS SET ON THE CONTROL            FC50982        1     A     
 HISTORY            STATEMENT AND STORE THE JOB DEFAULT VALUE IF PW IS NOT                 FC50982        2     A     
 HISTORY            SELECTED BEFORE PROCESSING PPW ROUTINE.  ADDED CODE TO CHECK           FC50982        3     A     
 HISTORY            LIMIT BOUNDARY FOR TERMINAL FILE AND MAKE ADJUSTMENT                   FC50982        4     A     
 HISTORY            TO ALLOW A SPACE FOR CARRIAGE RETURN.  MAKE ADJUSTMENT                 FC50982        5     A     
 HISTORY            FOR E(ERROR) FILE ALSO WHEN PW IS SET OUT OF RANGE.                    FC50982        6     A     
 HISTORY            DEPENDENCY=FC51015,FC5A426                                             FC50982        7     A     
 HISTORY            JYY    85/05/28    INIT00                                              FC50982        8     A     
 HISTORY                                                                                   FC50982        9     A     
 HISTORY   FC51047  FERRS.  GIVE A MORE MEANINGFUL ERROR MESSAGE(E.IF14)                   FC51047        1     A     
 HISTORY            WITH THE TOKEN WHICH IS ERRORNEOUS.                                    FC51047        2     A     
 HISTORY            JYY    85/02/15    FERRS                                               FC51047        3     A     
 HISTORY                                                                                   FC51047        4     A     
 HISTORY   FC51203  LABEL/DDR.  COMPILER WOULD TIME OUT IF WITHIN AN IF...ENDIF            FC51203        1     A     
 HISTORY            BLOCK STRUCTURE, AN --IMPLIED DO INDEX REDEFINITION ERROR--            FC51203        2     A     
 HISTORY            OCCURRED.  CODE REMOVES AN EARLY DIAGNOSIS BEFORE THE                  FC51203        3     A     
 HISTORY            ERRONEOUS IMPLIED *DO* ENTRY IS REMOVED.                               FC51203        4     A     
 HISTORY            DEPENDENCY=FC50718                                                     FC51203        5     A     
 HISTORY            JYY    85/01/15    LABEL                                               FC51203        6     A     
 HISTORY                                                                                   FC51203        7     A     
 HISTORY   FC51206  MAP/IRB.  WLINE MACRO IN MAP PRINTS AND THEN ZEROS THE                 FC51206        1     A     
 HISTORY            BUFFER CONTAINING THIS HEADER LINE: -- LOCAL EQUIVALENCE --.           FC51206        2     A     
 HISTORY            ADDED CODE TO PREVENT SETTING BUFFER TO ZERO.                          FC51206        3     A     
 HISTORY            SSK    85/01/15    MAP                                                 FC51206        4     A     
 HISTORY                                                                                   FC51206        5     A     
 HISTORY   FC51210  BRIDGE/FVS.  ON ENTRY TO THIS SUBROUTINE, B7 GETS SET TO               FC51210        1     A     
 HISTORY            O$DTT.  LATER IN THE SUBROUTINE, CODE ASSUMES B7 STILL                 FC51210        2     A     
 HISTORY            POINTS TO FWA OF O$DTT, BUT FOR THIS TEST CASE, A TABLE IS             FC51210        3     A     
 HISTORY            MOVED, RESULTING IN A MODEOUT.                                         FC51210        4     A     
 HISTORY            SSK    85/02/01    BRIDGE                                              FC51210        5     A     
 HISTORY                                                                                   FC51210        6     A     
 HISTORY   FC51232  FAS/BSZ.  AVOID GREATER THAN 6 BIT SHIFT COUNTS IN THE LEVEL           FC51232        1     A     
 HISTORY            ZERO SUBSTITUTION TABLE.  TEST CASE HAD A BAD LEVEL ZERO               FC51232        2     A     
 HISTORY            PLUG AT RUN TIME.                                                      FC51232        3     A     
 HISTORY            SSK    85/04/12    FAS                                                 FC51232        4     A     
 HISTORY                                                                                   FC51232        5     A     
 HISTORY   FC51247  KEY/EIF.  ADDED A TEST FOR IF-LEVEL BECOME MINUS TO                    FC51247        1     A     
 HISTORY            DIAGNOSE THE ERROR OF EXTRA ENDIF STATEMENT.                           FC51247        2     A     
 HISTORY            JYY    85/04/15    KEY                                                 FC51247        3     A     
 HISTORY                                                                                   FC51247        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  51    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC50962  DECL/PCF.  BAD CODE GENERATED TO PICK UP ARGUMENTS IN                  FC51250        1     A     
 HISTORY            FUNCTION SUBPROGRAMS.  THIS PSR MAKES CORRECTIONS TO FC50962.          FC51250        2     A     
 HISTORY            DEPENDENCY=FC50962                                                     FC51250        3     A     
 HISTORY            SSK    85/07/24    DECL                                                FC51250        4     A     
 HISTORY                                                                                   FC51250        5     A     
 HISTORY   FC51277  PAR/A=DO.  CREATED A LOOP TO REMOVE ALL NECCESSARY NESTED              FC51277        1     A     
 HISTORY            IMPLIED IO DO BLOCK STRUCTURES WITH AT LEAST ONE ERRONEOUS             FC51277        2     A     
 HISTORY            ENTRY IN IT WHEN PROCESSING CLOSING OF *DO*.                           FC51277        3     A     
 HISTORY            DEPENDENCY=FC5A138                                                     FC51277        4     A     
 HISTORY            JYY    85/05/31    PAR                                                 FC51277        5     A     
 HISTORY                                                                                   FC51277        6     A     
 HISTORY   *L670*    ************************************************                      *L670*         1     A     
 HISTORY   FC5A483  FTN5TXT/OPTIONS,CMPLTXT/OPTIONS,CCGTEXT/OPTIONS,QSKEL/SKEL,            FC5A483        1     A     
 HISTORY            CSKEL/SKEL. ALLOW THE OPTION OF BUILDING A FORTRAN 5 COMPILER          FC5A483        2     A     
 HISTORY            THAT WILL TRAP INTEGER DIVIDE BY ZERO AT RUN TIME. WHEN                FC5A483        3     A     
 HISTORY            RELEASED THIS OPTION WILL BE TURNED OFF. THE PARAMETER THAT            FC5A483        4     A     
 HISTORY            CONTROLS THIS OPTION IS SET TO 0(ZERO).                                FC5A483        5     A     
 HISTORY            SSK    85/10/15    OPTIONS,FTN5TXT,CMPLTXT,CCGTEXT,SKEL,QSKEL          FC5A483        6     A     
 HISTORY                               CSKEL                                               FC5A483        7     A     
 HISTORY                                                                                   FC5A483        8     A     
 HISTORY   FC5A491  PAR/CSM.  IF CONVERSION ERROR, BUMP ESTACK POINTER BEFORE              FC5A491        1     A     
 HISTORY            ADDING A ONE CONSTANT TO ESTACK.  CODE ASSUMES NO CONSTANT             FC5A491        2     A     
 HISTORY            WAS ADDED TO ESTACK BECAUSE OF ILLEGAL OPERATOR/OPERAND.               FC5A491        3     A     
 HISTORY            BMT    86/03/25    PAR                                                 FC5A491        4     A     
 HISTORY                                                                                   FC5A491        5     A     
 HISTORY   FC5A495  FTN5TXT/OPTIONS.  THIS PSR MUST BE INSTALLED CONCURRENTLY WITH         FC5A495        1     A     
 HISTORY            CCGA092 WHICH CONTAINS 990 INSTRUCTION TIMINGS FOR OPT=1,2,3           FC5A495        2     A     
 HISTORY            DEPENDENCY=FC5A478                                                     FC5A495        3     A     
 HISTORY            SSK    86/04/15    OPTIONS, FTN5TXT                                    FC5A495        4     A     
 HISTORY                                                                                   FC5A495        5     A     
 HISTORY   FC5A496  QSKEL/SKEL/PARSKEL,  CSKEL/SKEL/PARSKEL,  FSKEL/SKEL/PARSKEL.          FC5A496        1     A     
 HISTORY            INTRODUCE THE INTRINSIC FUNCTION *SUM1S* TO UTILIZE THE                FC5A496        2     A     
 HISTORY            POPULATION COUNT INSTRUCTION.  REQUIRES CONCURRENT                     FC5A496        3     A     
 HISTORY            INSTALLATION OF CCGA093.                                               FC5A496        4     A     
 HISTORY            DEPENDENCY=FC5A227                                                     FC5A496        5     A     
 HISTORY            ASD/SSK 86/02/20   SKEL, PARSKEL, QSKEL, CSKEL, FSKEL                  FC5A496        6     A     
 HISTORY                                                                                   FC5A496        7     A     
 HISTORY   FC51322  PAR/SQZ.  IF CURRENT TURPLE IS INTEGER ADD OR SUB AND LAST             FC51322        1     A     
 HISTORY            TURPLE IN T.PAR IS INTEGER MULTIPLY THEN SUBSUME THE ADD OR            FC51322        2     A     
 HISTORY            SUBTRACT TURPLE IF THE INTEGER MULTIPLY HAS NO INTERMEDIATE            FC51322        3     A     
 HISTORY            OPERAND, HAS A CONSTANT AND THE ADD OR SUB TURPLE  HAS ONE             FC51322        4     A     
 HISTORY            OPERAND WHICH IS AN INTERMEDIATE POINTER TO THE MULTIPLY               FC51322        5     A     
 HISTORY            TURPLE AND THE OTHER OPERAND IS A DUPLICATE OF AN OPERAND              FC51322        6     A     
 HISTORY            IN THE MULTIPLY TURPLE.                                                FC51322        7     A     
 HISTORY            DEPENDENCY=FC50104,FC50199                                             FC51322        8     A     
 HISTORY            SSK    85/12/05    PAR                                                 FC51322        9     A     
 HISTORY                                                                                   FC51322       10     A     
 HISTORY   FC51325  QSKEL/SKEL, CSKEL/SKEL.  REVISE 2 DOUBLE PRECISION RELATIONAL          FC51325        1     A     
 HISTORY            OPERATOR SKELETONS TO CORRECTLY HANDLE LOGICAL COMPARISONS             FC51325        2     A     
 HISTORY            UP TO DOUBLE PRECISION LIMITS.  THE RELATIONAL *EQUAL* AND             FC51325        3     A     
 HISTORY            *NOT EQUAL* ARE THE REVISED SKELETONS.                                 FC51325        4     A     
 HISTORY            RRR/SSK 85/11/13   SKEL, QSKEL, CSKEL                                  FC51325        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  52    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FC51325        6     A     
 HISTORY   FC51342  BRIDGE/P=BVD. PROCESS CURRENT SEQUENCE BEFORE START                    FC51342        1     A     
 HISTORY            OF VARDIM CODE. PREVENTS OUT OF ORDER CODE BLOCKS                      FC51342        2     A     
 HISTORY            IN SUBROUTINES WHERE THE RETURN STATEMENT IN NOT AT THE                FC51342        3     A     
 HISTORY            END OF THE ROUTINE AND WHERE THERE ARE SEVERAL THREE                   FC51342        4     A     
 HISTORY            BRANCH *IFS* WITH AT LEAST ONE OF THE *IFS* AT THE END OF              FC51342        5     A     
 HISTORY            THE PROGRAM FOLLOWED BY THE END STATEMENT.                             FC51342        6     A     
 HISTORY            SSK    86/11/21    BRIDGE                                              FC51342        7     A     
 HISTORY                                                                                   FC51342        8     A     
 HISTORY   FC51344  CONRED/CCR.  ADDED CODE TO PREVENT THE ADDITION OF A DOUBLE            FC51344        1     A     
 HISTORY            PRECISION ZERO TO A DOUBLE PRECISION NONZERO CONSTANT. THIS            FC51344        2     A     
 HISTORY            CODE PREVENTS(AS IN THIS TEST CASE) 1.0DO AND +1.0D0 FROM              FC51344        3     A     
 HISTORY            BEING STORED DIFFERENTLY.                                              FC51344        4     A     
 HISTORY            SSK    86/02/17    CONRED                                              FC51344        5     A     
 HISTORY                                                                                   FC51344        6     A     
 HISTORY   FC51347  PUC/CAF/ENDFTN, FEC/ESY, FERRS/E.STO.  DETECT SYMBOL TABLE             FC51347        1     A     
 HISTORY            OVERFLOW, ISSUE AN ERROR MESSAGE AND STOP COMPILATION.                 FC51347        2     A     
 HISTORY            DEPENDENCY=FC5A404,FC5A335,FC5A436,FC50096                             FC51347        3     A     
 HISTORY            SSK    85/10/22    PUC, FEC, FERRS                                     FC51347        4     A     
 HISTORY                                                                                   FC51347        5     A     
 HISTORY   FC51351  CSKEL/SKEL.  REVISE *CISST* SUBSKEL TO MASK OFF THE LCM BIT            FC51351        1     A     
 HISTORY            FROM CURRENT APLIST ITEM AND PRESERVE THE LCM BIT FROM THE             FC51351        2     A     
 HISTORY            LIBRARY ROUTINES.                                                      FC51351        3     A     
 HISTORY            SSK    85/10/30    SKEL, CSKEL                                         FC51351        4     A     
 HISTORY                                                                                   FC51351        5     A     
 HISTORY   FC51356  FTN5TXT/WB., PAR/PAR.MULT, FERRS, KEY/GOTO, LABEL/ISL/FBS,             FC51356        1     A     
 HISTORY            IO/PKC.  AN ALTERNATE RETURN INTO RANGE OF *DO* HAS BEEN               FC51356        2     A     
 HISTORY            CHANGED FROM FATAL TO A WARNING MESSAGE.                               FC51356        3     A     
 HISTORY            DEPENDENCY=FC5A300,FC5A168A,FC50015,FC5A371                            FC51356        4     A     
 HISTORY            SSK    86/02/03    COMSSYM, FTN5TXT, PAR, FERRS, KEY, LABEL,           FC51356        5     A     
 HISTORY                               IO                                                  FC51356        6     A     
 HISTORY   FC51364  LABEL/CDI, QSKEL/SKEL, CSKEL/SKEL, FSKEL/SKEL.  ADDED CODE             FC51364        1     A     
 HISTORY            TO LEAVE DO CONTROL INDEX AS EXPECTED(UPPER LIMIT PLUS                 FC51364        2     A     
 HISTORY            INCREMENT) WHEN DO UPPER LIMIT IS SET TO ONE WITH A PARAMETER          FC51364        3     A     
 HISTORY            STATEMENT.                                                             FC51364        4     A     
 HISTORY            DEPENDENCY=FC50594,FC50015                                             FC51364        5     A     
 HISTORY            SSK    86/03/06    LABEL, SKEL, QSKEL, CSKEL, FSKEL                    FC51364        6     A     
 HISTORY                                                                                   FC51364        7     A     
 HISTORY   FC51377  DECL/HEREIF PARAMETER.  AVOID PROCESSING A PARAMETER CONSTANT          FC51377        1     A     
 HISTORY            IF NOT AVAILABLE.                                                      FC51377        2     A     
 HISTORY            SSK    86/03/20    DECL                                                FC51377        3     A     
 HISTORY                                                                                   FC51377        4     A     
 HISTORY   FC51379  BRIDGE/PAF.  ADDED CODE TO SET N.STMAX = MAX(N.ST, N.STMAX)            FC51379        1     A     
 HISTORY            THIS CODE FIXES A TEST CASE WHERE AN ST.(TEMP STORE)                   FC51379        2     A     
 HISTORY            CONFLICT OCCURED.                                                      FC51379        3     A     
 HISTORY            SSK    86/01/17    BRIDGE                                              FC51379        4     A     
 HISTORY                                                                                   FC51379        5     A     
 HISTORY   FC51399  REG/LLA.  ADDED CODE NOT TO LOCK THE ADDRESS FUNCTION                  FC51399        1     A     
 HISTORY            REGISTER UNTIL THE BASE ADDRESS REGISTER IS SELECTED.                  FC51399        2     A     
 HISTORY            THE REGISTER MAY BE LOCKED AFTER THE BASE ADDRESS IS                   FC51399        3     A     
 HISTORY            SELECTED. THE ABOVE CONCERNS LCM ONLY. THE RESULT IS                   FC51399        4     A     
 HISTORY            REDUCED REGISTER SELECTION PRESSURE WHEN LCM IS INVOLVED.              FC51399        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  53    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SSK    86/05/02    REG                                                 FC51399        6     A     
 HISTORY                                                                                   FC51399        7     A     
 HISTORY   FC51413  REG/LLA.  ADDED CODE TO IMPROVE METHOD OF SELECTING A LOADREG          FC51413        1     A     
 HISTORY            WHEN BIAS IS MORE THEN 17 BITS AND SELECTING A SETREG WHEN             FC51413        2     A     
 HISTORY            BIAS IS LESS THEN 18 BITS.                                             FC51413        3     A     
 HISTORY            DEPENDENCY=FC50920                                                     FC51413        4     A     
 HISTORY            SSK    86/06/04    REG                                                 FC51413        5     A     
 HISTORY                                                                                   FC51413        6     A     
 HISTORY   FC51427  PAR/POP.PL.  AVOID RESETING T.PAR WHEN IN A STATEMENT                  FC51427        1     A     
 HISTORY            FUNCTION. ALLOWS INTERMEDIATE LINKAGE TO THE UNARY MINUS               FC51427        2     A     
 HISTORY            ARGUMENT WHEN NECESSARY.                                               FC51427        3     A     
 HISTORY            SSK    86/07/14    PAR                                                 FC51427        4     A     
 HISTORY                                                                                   FC51427        5     A     
 HISTORY   *L688*    ************************************************                      *L688*         1     A     
 HISTORY   FC5A511  LABEL/CDI, QSKEL/SKEL, CSKEL/SKEL, FSKEL/SKEL. TEST                    FC5A511        1     A     
 HISTORY            CASE SUBMITTED CAUSES BAD CODE TO BE GENERATED WITH                    FC5A511        2     A     
 HISTORY            OPT=1,2,3. CAUSED BY FC51364 WHICH DEALS WITH LEAVING                  FC5A511        3     A     
 HISTORY            A *DO* CONTROL INDEX AS EXPECTED. IF YOUR SITE HAS PICKED              FC5A511        4     A     
 HISTORY            UP FC51300 FROM SOLVER, FC51300 MUST BE PURGED IF FC5A511              FC5A511        5     A     
 HISTORY            IS TO WORK PROPERLY. FC51300 WILL BE REOPENED AND ANSWERED             FC5A511        6     A     
 HISTORY            AS A DUPLICATE OF FC5A511. IF YOUR SITE DOES NOT HAVE                  FC5A511        7     A     
 HISTORY            FC51364 INSTALLED, THE SITE MUST OBTAIN FC51364 BEFORE                 FC5A511        8     A     
 HISTORY            INSTALLING FC5A511.                                                    FC5A511        9     A     
 HISTORY            DEPENDENCY=FC51364                                                     FC5A511       10     A     
 HISTORY            SSK    87/02/03    SKEL, QSKEL, CSKEL, FSKEL, LABEL                    FC5A511       11     A     
 HISTORY                                                                                   FC5A511       12     A     
 HISTORY   FC50936  GEN/BOS.  CLEAR REGISTERS BEFORE EMITTING THE LINE NUMBER IF           FC50936        1     A     
 HISTORY            CYBER INTERACTIVE DEBUG IS ON.                                         FC50936        2     A     
 HISTORY            DEPENDENCY=FC5A337                                                     FC50936        3     A     
 HISTORY            SSK    86/09/25    GEN                                                 FC50936        4     A     
 HISTORY                                                                                   FC50936        5     A     
 HISTORY   FC51422  DECL/DIS.  CHECK THE VALIDITY OF THE DIMENSION SUBSCRIPT               FC51422        1     A     
 HISTORY            ENTRY OF AN ARRAY.  IF THE SUBSCRIPT ENTRY IS *)* THIS                 FC51422        2     A     
 HISTORY            CAUSES *DIS* TO QUIT.                                                  FC51422        3     A     
 HISTORY            BMT    86/07/01    DECL                                                FC51422        4     A     
 HISTORY                                                                                   FC51422        5     A     
 HISTORY   FC51454  BRIDGE/P=ENT.  CLEAR THE CLEN FIELD BEFORE ENTERING THE GL             FC51454        1     A     
 HISTORY            NUMBER.                                                                FC51454        2     A     
 HISTORY            SSK    86/10/22    BRIDGE                                              FC51454        3     A     
 HISTORY                                                                                   FC51454        4     A     
 HISTORY   FC51485  FTN5TXT/ODEF/, LEX/TOGEL/, FEC/CHMAP/, FMT/FMT=/, PAR/CONO,            FC51485        1     A     
 HISTORY            POPNX,SETPRI,PRIOP,MICRO/, QSKEL/DEFINS,SKEL/, CSKEL/SKEL/,            FC51485        2     A     
 HISTORY            FSKEL/SKEL/.  THIS PSR ASSIGNS SEPARATE O. SYMBOL VALUES FOR           FC51485        3     A     
 HISTORY            FOR LOGICAL OPERATORS *.XOR.* AND *.NEQV.* AND WILL ALLOW              FC51485        4     A     
 HISTORY            FTN5 TO INDICATE NON-ANSI USAGE OF .XOR. WHEN THE ANSI                 FC51485        5     A     
 HISTORY            PARAMETER IS USED ON THE FORTRAN FIVE CONTROL STATEMENT.               FC51485        6     A     
 HISTORY            **NOTICE** A FULL COMPILER BUILD IS NECESSARY WHEN INSTALLING          FC51485        7     A     
 HISTORY            THIS PSR.                                                              FC51485        8     A     
 HISTORY            DEPENDENCY=FC5A317,FC5A471                                             FC51485        9     A     
 HISTORY            SSK    87/04/02    FTN5TXT, LEX, FMT, FEC, PAR, QSKEL, FSKEL,          FC51485       10     A     
 HISTORY                               CSKEL                                               FC51485       11     A     
 HISTORY                                                                                   FC51485       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  54    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FC51499  LABEL/CDI.  FLAG INDICATING ONE TRIP *DO* NOT SET IN T.BLST.           FC51499        1     A     
 HISTORY            BROKEN BY FC51364. NOTE THAT IT IS NOT NECESSARY TO INSTALL            FC51499        2     A     
 HISTORY            THIS PSR UNLESS YOUR SITE HAS BOTH FC51364 AND FC5A511                 FC51499        3     A     
 HISTORY            INSTALLED.                                                             FC51499        4     A     
 HISTORY            DEPENDENCY=FC50749,FC51364,FC5A511                                     FC51499        5     A     
 HISTORY            SSK    87/06/29    LABEL                                               FC51499        6     A     
 HISTORY                                                                                   FC51499        7     A     
 HISTORY   *L716*    ************************************************                      *L716*         1     A     
 HISTORY   FC5A517  DECL/ASL.  SUBMITTED TEST CASE CAUSES THIS ROUTINE TO RUN              FC5A517        1     A     
 HISTORY            OUT OF THE SYMBOL TABLE AND INTO THE T.BLKS TABLE WHICH                FC5A517        2     A     
 HISTORY            CONTAINS COMMON BLOCK NAMES AND RESULTS IN A 7 CHARACTER               FC5A517        3     A     
 HISTORY            COMMON BLOCK NAME BEING REDUCED TO 6 CHARACTERS.                       FC5A517        4     A     
 HISTORY            SSK    87/10/06    DECL                                                FC5A517        5     A     
 HISTORY                                                                                   FC5A517        6     A     
 HISTORY   FC5A521  FTN5TXT/OPTIONS. ADD 994 AND 995 CPU IDENTS TO THE FORTRAN             FC5A521        1     A     
 HISTORY            FIVE MODEL MICRO.                                                      FC5A521        2     A     
 HISTORY            DEPENDENCY=FC5A478                                                     FC5A521        3     A     
 HISTORY            SSK    88/04/29    OPTIONS, FTN5TXT, CMPLTXT, CCGTEXT                  FC5A521        4     A     
 HISTORY                                                                                   FC5A521        5     A     
 HISTORY   FC51488  KEY/ENDIF/, LABEL/FBS/.  CORRECTIVE CODE PREVENTS A                    FC51488        1     A     
 HISTORY            MODE-OUT IF A *DO* TERMINAL IS AN *ENDIF* STATEMENT.                   FC51488        2     A     
 HISTORY            PURGES=FC50853                                                         FC51488        3     A     
 HISTORY            SSK    87/08/25    KEY, LABEL                                          FC51488        4     A     
 HISTORY                                                                                   FC51488        5     A     
 HISTORY   FC51490  KEY/ENDIF/, KEY/ELSE/, LABEL/RBE/.  CORRECTIVE CODE FOR A TEST         FC51490        1     A     
 HISTORY            WITH NO TERMINATING DO STATEMENT. THE DO CONTAINS IF ... THEN          FC51490        2     A     
 HISTORY            AND ELSE STATEMENTS, INPUT/OUTPUT STATEMENTS AND STATEMENTS            FC51490        3     A     
 HISTORY            WHICH REDEFINE A DO CONTROL INDEX.                                     FC51490        4     A     
 HISTORY            DEPENDENCY=FC5A111                                                     FC51490        5     A     
 HISTORY            SSK    87/09/21    KEY, LABEL                                          FC51490        6     A     
 HISTORY                                                                                   FC51490        7     A     
 HISTORY   FC51494  PAR/SQZ.  IF SUBSUMING AN V=SUB.T TURPLE INCLUDE THE SIGN.             FC51494        1     A     
 HISTORY            DEPENDENCY=FC51322                                                     FC51494        2     A     
 HISTORY            SSK    87/05/21    PAR                                                 FC51494        3     A     
 HISTORY                                                                                   FC51494        4     A     
 HISTORY   FC51497  FMT/HERE ON *(*, HERE ON *)*.  CODE PREVENTS AN ERROR MESSAGE          FC51497        1     A     
 HISTORY            FOR FORMAT STATEMENTS CONTAINING RECORD LENGTHS THAT DO NOT            FC51497        2     A     
 HISTORY            EXCEED 137 COLUMNS AND PUTS OUT THE ERROR MESSAGE FOR FORMAT           FC51497        3     A     
 HISTORY            STATEMENTS WITH RECORD LENGTHS THAT EXCEED 137 COLUMNS. THIS           FC51497        4     A     
 HISTORY            PROBLEM OCCURS IN A SMALL NUMBER OF TEST CASES.                        FC51497        5     A     
 HISTORY            DEPENDENCY=FC50800                                                     FC51497        6     A     
 HISTORY            SSK    87/05/28    FMT                                                 FC51497        7     A     
 HISTORY                                                                                   FC51497        8     A     
 HISTORY   FC51501  FTN5TXT, KEY/IFT. CODE ADDED TO INSURE BLOCK *IF* SEGMENTS             FC51501        1     A     
 HISTORY            OF THE T.BLST TABLE HAVE AN ENTRY CLEARED TO ZERO FOR PROPER           FC51501        2     A     
 HISTORY            IDENTIFICATION IN CASE IT IS NECESSARY TO DELETE THIS SEGMENT          FC51501        3     A     
 HISTORY            BECAUSE OF PROGRAMMER ERRORS.                                          FC51501        4     A     
 HISTORY            SSK    87/07/17    FTN5TXT, KEY                                        FC51501        5     A     
 HISTORY                                                                                   FC51501        6     A     
 HISTORY   FC51509  REG/LLA.  ADDED CODE TO LOCK THE UEM BASE REGISTER WHEN                FC51509        1     A     
 HISTORY            THE CURRENT VARIABLE IS LEVEL 0 AND A LOAD                             FC51509        2     A     
 HISTORY            DEPENDENCY=FC51399                                                     FC51509        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  55    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SSK    88/04/26    REG                                                 FC51509        4     A     
 HISTORY                                                                                   FC51509        5     A     
 HISTORY   FC51512  FEC/RSC. WHEN RESETING INTRA-STATEMENT CELLS, RESET T=SCR.             FC51512        1     A     
 HISTORY            TEST CASE HAD A MISSING COMMA IN A DATA STATEMENT RESULTING            FC51512        2     A     
 HISTORY            IN A MODE OUT DURING *DO* PROCESSING BECAUSE THIS TABLE WAS            FC51512        3     A     
 HISTORY            NOT EMPTY AS EXPECTED.                                                 FC51512        4     A     
 HISTORY            SSK    87/09/23    FEC                                                 FC51512        5     A     
 HISTORY                                                                                   FC51512        6     A     
 HISTORY   FC51521  PAR/POP.EQL.  IN PAR(POP.EQL), IF THE LEFT SIDE OF A                   FC51521        1     A     
 HISTORY            REPLACEMENT STATEMENT IS ILLEGAL, PUT OUT THE ERROR MESSAGE            FC51521        2     A     
 HISTORY            AND LEAVE.                                                             FC51521        3     A     
 HISTORY            SSK    87/10/07    PAR                                                 FC51521        4     A     
 HISTORY                                                                                   FC51521        5     A     
 HISTORY   FC51544  BRIDGE, CSKEL/SKEL, FSKEL/SKEL. ADDED CODE IN BRIDGE TO                FC51544        1     A     
 HISTORY            SELECT PROPER SKELETON IF ARG=COMMON IS ON. IN CSKEL AND               FC51544        2     A     
 HISTORY            FSKEL ADDED TWO SKELETONS TO HANDLE APLIST PLUGS IF                    FC51544        3     A     
 HISTORY            ARG=COMMON IS ON.                                                      FC51544        4     A     
 HISTORY            SSK    88/03/23    BRIDGE, SKEL, CSKEL, FSKEL                          FC51544        5     A     
 HISTORY                                                                                   FC51544        6     A     
 HISTORY   *L739*    ************************************************                      *L739*         1     A     
 HISTORY   FC5A522  DECL/CCL.  MASK OFF THE CB.FMI FIELD IN T.BLKS, TO AVOID               FC5A522        1     A     
 HISTORY            POSSIBLE SIGN EXTENSION, DUE TO A LARGE NUMBER OF VARIABLES            FC5A522        2     A     
 HISTORY            IN UEM.                                                                FC5A522        3     A     
 HISTORY            SSK    88/08/12    DECL                                                FC5A522        4     A     
 HISTORY                                                                                   FC5A522        5     A     
 HISTORY   FC51315  RLINK/SMB.  FOR ALL NAMELIST MEMBERS THAT HAVE THE (MAT,DEF,           FC51315        1     A     
 HISTORY            EQV,VAR) CLASS BITS SET, CHECK/SET THE *MAT* BIT OF THE                FC51315        2     A     
 HISTORY            EQUIVALENCE CLASS BASE MEMBER.                                         FC51315        3     A     
 HISTORY            SSK    88/05/19    RLINK                                               FC51315        4     A     
 HISTORY                                                                                   FC51315        5     A     
 HISTORY   FC51554  FEC/FEC3, DECL/PCD.  ADDED CORRECTIVE CODE TO SET THE WA.NFP           FC51554        1     A     
 HISTORY            BIT ONLY WHEN EXECUTABLES ARE ENCOUNTERED.                             FC51554        2     A     
 HISTORY            DEPENDENCY=FC5A192,FC5A128                                             FC51554        3     A     
 HISTORY            SSK    88/08/08    DECL, FEC                                           FC51554        4     A     
 HISTORY                                                                                   FC51554        5     A     
 HISTORY   FC51555  REG/LLB.  IF REGISTER JUST SELECTED FOR UEM BASE LOAD                  FC51555        1     A     
 HISTORY            INTERFERS WITH UEM READ, TRANSFER UEM RESULT TO X6 ONLY IF             FC51555        2     A     
 HISTORY            BOTH X6 AND X7 ARE FREE.                                               FC51555        3     A     
 HISTORY            SSK    88/07/14    REG                                                 FC51555        4     A     
 HISTORY                                                                                   FC51555        5     A     
 HISTORY   FC51560  REG/LLA. CORRECTIVE CODE LOCKS THE *RI* OF LONG ADDS IN THIS           FC51560        1     A     
 HISTORY            ROUTINE(LLA) IF A BIAS REGISTER IS TO BE SELECTED.                     FC51560        2     A     
 HISTORY            SSK    88/08/01    REG                                                 FC51560        3     A     
 HISTORY                                                                                   FC51560        4     A     
 HISTORY   FC51564  LABEL/ISL. CORRECTIVE CODE ADDS THE LINE NUMBER OF THE FIRST           FC51564        1     A     
 HISTORY            REFERENCE OF AN ASSIGNED STATEMENT NUMBER TO THE WB. WORD              FC51564        2     A     
 HISTORY            IN THE SYMBOL TABLE.                                                   FC51564        3     A     
 HISTORY            DEPENDENCY=FC51356                                                     FC51564        4     A     
 HISTORY            SSK    88/07/29    LABEL                                               FC51564        5     A     
 HISTORY                                                                                   FC51564        6     A     
 HISTORY   FC51566  FUN/FVS, BRIDGE/FVS. FVSB AND FVSF CONTAIN SUBSTRING LENGTHS           FC51566        1     A     
 HISTORY            OR MAY CONTAIN AN I.L. OPERAND USED AS A FLAG. AFTER FLAG              FC51566        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  56    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            USAGE THE LOCATIONS ARE ZEROED TO AVOID USING FOR SUBSTRING            FC51566        3     A     
 HISTORY            LENGTH.                                                                FC51566        4     A     
 HISTORY            DEPENDENCY=FC50651                                                     FC51566        5     A     
 HISTORY            SSK    88/08/26    FUN, BRIDGE                                         FC51566        6     A     
 HISTORY                                                                                   FC51566        7     A     
 HISTORY   FC51569  KEY/FIB.  ADDED CODE TO INSURE GENERATED CODE IS IN CORRECT            FC51569        1     A     
 HISTORY            SEQUENCE WHEN DB=0/ID IS USED AND *ELSE IF* BLOCKS ARE IN              FC51569        2     A     
 HISTORY            USE.                                                                   FC51569        3     A     
 HISTORY            DEPENDENCY=FC5A127                                                     FC51569        4     A     
 HISTORY            SSK    89/03/28    KEY                                                 FC51569        5     A     
 HISTORY                                                                                   FC51569        6     A     
 HISTORY   FC51572  REG/SLD.  WHEN CHECKING FOR REGISTER CONFLICTS AND UEM IS              FC51572        1     A     
 HISTORY            INVOLVED USE X REGISTERS.                                              FC51572        2     A     
 HISTORY            SSK    88/12/02    REG                                                 FC51572        3     A     
 HISTORY                                                                                   FC51572        4     A     
 HISTORY   FC51601  REG/LLA.  REVISE CODE FOR COMPUTING AN LCM ADDRESS.                    FC51601        1     A     
 HISTORY            DEPENDENCY=FC50920,FC50875,FC51560                                     FC51601        2     A     
 HISTORY            SSK    89/06/07    REG                                                 FC51601        3     A     
 HISTORY                                                                                   FC51601        4     A     
 HISTORY   *L780*    ************************************************                      *L780*         1     A     
 HISTORY   FC51609  PAR/SQZ.  IF INTEGER MULTPLY TURPLE FOLLOWED BY AN INTEGER             FC51609        1     A     
 HISTORY            ADD THEN TRY TO SUBSUME THE ADD. IF INTEGER MULTPLY TURPLE             FC51609        2     A     
 HISTORY            FOLLOWED BY A SUBTRACT DO NOTHING. THIS PSR ONLY FIXES                 FC51609        3     A     
 HISTORY            PROBLEMS AT OPT=1,2,3.                                                 FC51609        4     A     
 HISTORY            DEPENDENCY=FC51322,FC51494                                             FC51609        5     A     
 HISTORY            SSK    89/12/01    PAR                                                 FC51609        6     A     
 HISTORY                                                                                   FC51609        7     A     
 HISTORY   *L797*    ************************************************                      *L797*         1     A     
 HISTORY   *L803*    ************************************************                      *L803*         1     A     
 HISTORY   *L826*    ************************************************                      *L826*         1     A     
 HISTORY   *L840*    ************************************************                      *L840*         1     A     
 HISTORY   *L847*    ************************************************                      *L847*         1     A     
 HISTORY   *L851*    ************************************************                      *L851*         1     A     
 HISTORY   *L859*    ************************************************                      *L859*         1     A     
 HISTORY   *L871*    ************************************************                      *L871*         1     A     
 HISTORY                                                                                   HISTORY        2     A     
 HISTORY                                                                                   HISTORY        3     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - HISTORY 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          HISTORY                      3         3
          FC5A108                      3         3
          *L498*                       1         1
          FC5A113                      3         3
          FC5A114                      3         3
          *L505*                       1         1
          F2950F5                      3         3
          FC5A107                      5         5
          FC5A109                      3         3
          FC5A110                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  57    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC5A111                      4         4
          FC5A112                      3         3
          FC5A115                      3         3
          FC5A116                      4         4
          FC5A118                      4         4
          FC5A119                      4         4
          FC5A120                      4         4
          FC5A121                      3         3
          FC5A122                      3         3
          FC5A124                      3         3
          FC5A125                      3         3
          FC5A126                      5         5
          FC5A127                      4         4
          FC5A128                      6         6
          FC5A129                      3         3
          FC5A130                      3         3
          FC5A131                      5         5
          FC5A132                      5         5
          FC5A133                      3         3
          FC5A135                      3         3
          FC5A136                      3         3
          *L508*                       1         1
          F2950F5A                     4         4
          FC5A138                      4         4
          FC5A139                      3         3
          FC5A140                      4         4
          FC5A141                      6         6
          FC5A143                      4         4
          FC5A144                      5         5
          FC5A145                      3         3
          FC5A146                      4         4
          FC5A147                      4         4
          FC5A148                      3         3
          FC5A150                      7         7
          FC5A151                      3         3
          FC5A152                      3         3
          FC5A155                      3         3
          FC5A156                      5         5
          FC5A157                      4         4
          FC5A158A                     7         7
          FC5A161                      4         4
          FC5A163                      4         4
          FC5A164                      6         6
          FC5A165                      3         3
          FC5A166                      4         4
          FC5A167                      3         3
          FC5A171A                     4         4
          FC5A172                      4         4
          FC5A173                      3         3
          FC5A174                      6         6
          FC5A177                      4         4
          FC50001                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  58    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC50005                      4         4
          FC50007                      5         5
          FC50010                      5         5
          FC50011                      4         4
          FC50014                      6         6
          FC50015                      6         6
          *L518*                       1         1
          FC5*80                       3         3
          FC5A168A                     3         3
          FC5A180                      3         3
          FC5A181                      4         4
          FC5A182                      3         3
          FC5A183                      3         3
          FC5A184                      4         4
          FC5A185                      3         3
          FC5A186                     12        12
          FC5A187                      6         6
          FC5A188                      4         4
          FC5A189                      5         5
          FC5A190                      5         5
          FC5A191                      4         4
          FC5A192                      4         4
          FC5A194                      4         4
          FC5A195                      4         4
          FC5A196                      3         3
          FC5A197                      4         4
          FC5A203                      3         3
          FC5A204                      3         3
          FC5A209                      4         4
          FC50022                      4         4
          FC50023                      3         3
          FC50026                      3         3
          FC50029                      3         3
          FC50032                      3         3
          FC50035                      4         4
          FC50041                      4         4
          *L528*                       1         1
          F1037F5                      6         6
          FC5A206                      3         3
          FC5A207                      4         4
          FC5A211                      5         5
          FC5A213                      4         4
          FC5A214                      4         4
          FC5A216                      5         5
          FC5A217                      4         4
          FC5A218                      7         7
          FC5A219                      3         3
          FC5A220                      3         3
          FC5A221                      4         4
          FC5A222                      4         4
          FC5A224                      4         4
          FC5A225                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  59    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC5A226                      4         4
          FC5A227                      5         5
          FC5A228                      4         4
          FC5A229                      4         4
          FC5A230                      3         3
          FC5A231                      7         7
          FC5A232                      4         4
          FC5A233                      4         4
          FC5A234                      4         4
          FC5A235                      4         4
          FC5A239                      5         5
          FC5A243                      7         7
          FC5A244                      5         5
          FC5A248                      5         5
          FC5A250                      4         4
          FC5A251                      4         4
          FC5A252                      4         4
          FC5A253                      3         3
          FC5A254                      3         3
          FC5A255                      4         4
          FC5A257                      6         6
          FC5A258                      5         5
          FC5A261                      4         4
          FC5A262                      7         7
          FC5A264                      4         4
          FC5A266                      5         5
          FC5A271                      6         6
          FC50049                      4         4
          FC50050                      3         3
          FC50055                      4         4
          FC50061                      4         4
          FC50062                      3         3
          FC50066                      7         7
          FC50067                      4         4
          FC50068                      4         4
          FC50069                      4         4
          FC50084                      6         6
          FC50086                      5         5
          FC50090                      4         4
          FC50106                      5         5
          FC50110                      5         5
          FC50128                      5         5
          FC50130                      4         4
          FC50131                      4         4
          FC50136                      5         5
          FC50137                      6         6
          FC50138                      4         4
          FC50147                      6         6
          FC50148                      5         5
          FC50156                      6         6
          *L538*                       1         1
          FC5*81                       3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  60    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          F1037F5A                     4         4
          FC5A246                      3         3
          FC5A247                      4         4
          FC5A249                      6         6
          FC5A256                      5         5
          FC5A269                      3         3
          FC5A270                      4         4
          FC5A273                      4         4
          FC5A274                      4         4
          FC5A275                      4         4
          FC5A278                      4         4
          FC5A279                      4         4
          FC5A281                      5         5
          FC5A282                      3         3
          FC5A284                      4         4
          FC5A294                      4         4
          FC5A296                      5         5
          FC5A298                      4         4
          FC5A299                      4         4
          FC5A302                      5         5
          FC5A304                      5         5
          FC5A312                      4         4
          FC5A314                      4         4
          FC5A315                      4         4
          FC50096                      5         5
          FC50104                      8         8
          FC5A300                      6         6
          FC50168                      4         4
          FC50169                      4         4
          FC50170                      4         4
          FC50172                      5         5
          FC50180                      4         4
          FC50182                      4         4
          FC50199                      4         4
          FC50201                      5         5
          FC50207                      4         4
          FC50216                      5         5
          FC50218                      4         4
          FC50221                      4         4
          FC50226                      4         4
          FC50236                      4         4
          FC50237                      5         5
          FC50238                      4         4
          FC50243                      6         6
          FC50249                      6         6
          FC50250                      5         5
          FC50251                      4         4
          FC50265                      6         6
          FC50275                      6         6
          FC50293                      4         4
          FC50314                      5         5
          FC50317                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  61    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC50322                      4         4
          *L552*                       1         1
          FC5A310                      4         4
          FC5A317                      3         3
          FC5A321                      6         6
          FC5A323                      4         4
          FC5A325                      4         4
          FC5A330                      3         3
          FC5A333                      4         4
          FC5A335                      3         3
          FC5A337                      5         5
          FC5A338                      9         9
          FC5A341                      5         5
          FC5A343                      5         5
          FC5A345                      4         4
          FC5A348                      6         6
          FC50252                      5         5
          FC50264                      7         7
          FC50267                      4         4
          FC50281                      5         5
          FC50297                      4         4
          FC50299                      5         5
          FC50318                      8         8
          FC50336                      6         6
          FC50345                      5         5
          FC50353                      5         5
          FC50372                      4         4
          FC50374                      5         5
          FC50377                      5         5
          FC50378                      5         5
          FC50387                      4         4
          FC50391                      5         5
          FC50392                      5         5
          FC50396                      4         4
          FC50409                      4         4
          FC50417                      5         5
          FC50437                      6         6
          FC50438                      5         5
          FC50443                      3         3
          FC50445                      6         6
          FC50451                      4         4
          FC50452                      5         5
          FC50457                      7         7
          FC50460                      4         4
          FC50474                      5         5
          FC50475                      4         4
          FC50480                      6         6
          *L564*                       1         1
          FC5*82                       3         3
          F1039                        9         9
          FC5A360                      7         7
          FC5A369                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  62    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC5A370                      4         4
          FC5A371                      4         4
          FC5A373                      4         4
          FC5A374                      4         4
          FC50239                      7         7
          FC50326                      6         6
          FC50408                      5         5
          FC50413                      5         5
          FC50478                      5         5
          FC50483                      5         5
          FC50488                      5         5
          FC50496                      6         6
          FC50512                      5         5
          FC50514                      5         5
          FC50515                      4         4
          FC5A339                      5         5
          FC5A390                      5         5
          FC50518                      6         6
          FC50533                      5         5
          FC50545                      8         8
          FC50553                      6         6
          FC50554                      5         5
          FC50555                      4         4
          FC50557                      5         5
          FC50558                      5         5
          FC50560                      3         3
          FC50562                      4         4
          FC50567                      4         4
          FC50570                      6         6
          FC50573                      4         4
          FC50586                      5         5
          FC50592                      5         5
          FC50593                      4         4
          FC50596                      3         3
          *L577*                       1         1
          FC5A346                     10        10
          FC5A375                      5         5
          FC5A380                      4         4
          FC5A381                      4         4
          FC5A385                      5         5
          FC5A386                      4         4
          FC5A388                      5         5
          FC5A391                      4         4
          FC5A395                      8         8
          FC5A399                      3         3
          FC5A404                      4         4
          FC50464                      7         7
          FC50587                      6         6
          FC50594                      5         5
          FC50600                      3         3
          FC50603                      5         5
          FC50606                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  63    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC50608                      4         4
          FC50610                      5         5
          FC50612                      5         5
          FC50616                      4         4
          FC50625                      5         5
          FC50626                      5         5
          FC50627                      4         4
          FC50628                      4         4
          FC50629                      5         5
          FC50632                      5         5
          FC50634                      5         5
          FC50636                      4         4
          FC50642                      3         3
          FC50643                      4         4
          FC50646                      5         5
          FC50651                     12        12
          FC50652                      5         5
          FC50656                      6         6
          FC50657                      4         4
          FC50662                      5         5
          FC50664                      6         6
          FC50667                      6         6
          FC50683                      5         5
          FC50686                      6         6
          FC50701                      6         6
          FC50703                      7         7
          *L587*                       1         1
          FC5A319                      6         6
          FC5A400                      7         7
          FC5A403                      6         6
          FC5A406                      4         4
          FC5A411                     26        26
          FC5A416                      4         4
          FC50189                      8         8
          FC50467                      6         6
          FC50492                      6         6
          FC50620                     14        14
          FC50681                      4         4
          FC50684                      8         8
          FC50718                      7         7
          FC50722                      6         6
          FC50728                      8         8
          FC50729                      5         5
          FC50730                      6         6
          FC50731                      6         6
          FC50735                      3         3
          FC50744                      7         7
          FC50748                      5         5
          FC50749                      6         6
          FC50755                      5         5
          FC50757                      8         8
          FC50760                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  64    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC50761                      7         7
          FC50763                      7         7
          FC50765                      4         4
          FC50766                      4         4
          FC50772                     10        10
          FC50773                      7         7
          FC50774                      5         5
          FC50775                      6         6
          FC50776                      4         4
          FC50785                      6         6
          FC50791                      5         5
          FC50792                      5         5
          FC50796                      5         5
          FC50797                      4         4
          FC50798                      5         5
          FC50799                      5         5
          FC50806                      4         4
          FC50818                      4         4
          *L601*                       1         1
          FC5A414                      4         4
          FC5A415                      6         6
          FC5A420                     10        10
          FC5A421                      7         7
          FC5A422                      5         5
          FC5A426                     14        14
          FC5A427                      5         5
          FC5A428                      6         6
          FC5A431                      6         6
          FC50811                     11        11
          FC50825                      6         6
          FC50829                      5         5
          FC50834                      5         5
          FC50842                      4         4
          FC50844                      7         7
          FC50857                      6         6
          FC50860                      8         8
          FC50870                      6         6
          FC50875                      4         4
          FC50879                      5         5
          FC50882                      6         6
          FC50883                      5         5
          FC50885                      4         4
          FC50886                      6         6
          FC50889                      4         4
          *L617*                       1         1
          FC5A433                      5         5
          FC5A436                      4         4
          FC5A437                      4         4
          FC5A442                     10        10
          FC5A445                      4         4
          FC5A446                      6         6
          FC50809                      6         6
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  65    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC50904                      4         4
          FC50905                      4         4
          FC50906                      7         7
          FC50913                      6         6
          FC50915                      5         5
          FC50920                      6         6
          FC50923                      7         7
          FC50933                      6         6
          FC50935                      5         5
          FC50941                      5         5
          *L628*                       1         1
          FC5A438                      5         5
          FC5A441                      6         6
          FC5A444                     28        28
          FC5A450                      6         6
          FC50946                      7         7
          FC50947                      7         7
          FC50949                      6         6
          FC50950                      8         8
          FC50958                      8         8
          FC50962                      7         7
          FC50964                      7         7
          FC50969                      7         7
          FC50985                      7         7
          FC51035                      4         4
          FC51039                      6         6
          FC51048                      7         7
          FC51066                      4         4
          FC51069                      5         5
          FC51073                      7         7
          *L642*                       1         1
          FC5A464                      9         9
          FC5A478                      6         6
          FC50956                      7         7
          FC50966                      4         4
          FC50972                      7         7
          FC51002                      4         4
          FC51015                      6         6
          FC51029                      6         6
          FC51075                      7         7
          FC51078                      5         5
          FC51082                      8         8
          FC51150                      8         8
          FC51168                      8         8
          FC51193                      9         9
          FC51198                      4         4
          *L650*                       1         1
          FC5A460                      4         4
          FC5A471                      5         5
          FC5A480                      7         7
          FC50800                      9         9
          FC50887                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  66    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC50982                      9         9
          FC51047                      4         4
          FC51203                      7         7
          FC51206                      5         5
          FC51210                      6         6
          FC51232                      5         5
          FC51247                      4         4
          FC51250                      5         5
          FC51277                      6         6
          *L670*                       1         1
          FC5A483                      8         8
          FC5A491                      5         5
          FC5A495                      5         5
          FC5A496                      7         7
          FC51322                     10        10
          FC51325                      6         6
          FC51342                      8         8
          FC51344                      6         6
          FC51347                      5         5
          FC51351                      5         5
          FC51356                      6         6
          FC51364                      7         7
          FC51377                      4         4
          FC51379                      5         5
          FC51399                      7         7
          FC51413                      6         6
          FC51427                      5         5
          *L688*                       1         1
          FC5A511                     12        12
          FC50936                      5         5
          FC51422                      5         5
          FC51454                      4         4
          FC51485                     12        12
          FC51499                      7         7
          *L716*                       1         1
          FC5A517                      6         6
          FC5A521                      5         5
          FC51488                      5         5
          FC51490                      7         7
          FC51494                      4         4
          FC51497                      8         8
          FC51501                      6         6
          FC51509                      5         5
          FC51512                      6         6
          FC51521                      5         5
          FC51544                      6         6
          *L739*                       1         1
          FC5A522                      5         5
          FC51315                      5         5
          FC51554                      5         5
          FC51555                      5         5
          FC51560                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  67    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FC51564                      6         6
          FC51566                      7         7
          FC51569                      6         6
          FC51572                      4         4
          FC51601                      4         4
          *L780*                       1         1
          FC51609                      7         7
          *L797*                       1         1
          *L803*                       1         1
          *L826*                       1         1
          *L840*                       1         1
          *L847*                       1         1
          *L851*                       1         1
          *L859*                       1         1
          *L871*                       1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *COMDKS*
  
 *COMDKS* *DECK     *COMDKS*,COMPASS                                                       *COMDKS*       1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *COMDKS*
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *COMDKS*                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV  *COMDECK  CCOMRPV                  COMPILE TIME REPRIEVE PROCESSOR.              CCOMRPV        1     A     
 CCOMRPV            CTEXT  CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                      CCOMRPV        2     A     
 CCOMRPV   RPV=     SPACE  4,10                                                            CCOMRPV        3     A     
 CCOMRPV            IF     -DEF,QUAL$,1                                                    CCOMRPV        4     A     
 CCOMRPV            QUAL   CCOMRPV                                                         CCOMRPV        5     A     
 CCOMRPV   RPV=     SPACE  4,10                                                            CCOMRPV        6     A     
 CCOMRPV  **        RPV= - REPRIEVE PROCESSOR.                                             CCOMRPV        7     A     
 CCOMRPV  *                                                                                CCOMRPV        8     A     
 CCOMRPV  *         IF THE PROGRAM IS INTERRUPTED BY THE SYSTEM, *RPV=* GAINS              CCOMRPV        9     A     
 CCOMRPV  *         CONTROL TO ISSUE DAYFILE MESSAGES THAT IDENTIFY THE PROGRAM            CCOMRPV       10     A     
 CCOMRPV  *         UNIT BEING COMPILED AND WHERE THE ERROR OCCURED.  A USER               CCOMRPV       11     A     
 CCOMRPV  *         ROUTINE IS CALLED FOR POST PROCESSING AND ALL FILES IN AN              CCOMRPV       12     A     
 CCOMRPV  *         OUTPUT MODE ARE FLUSHED.  FINALLY, THE ORIGINAL ERROR                  CCOMRPV       13     A     
 CCOMRPV  *         CONDITION IS RESTORED TO PERMIT NORMAL *EXIT*                          CCOMRPV       14     A     
 CCOMRPV  *         CONDITION PROCESSING.                                                  CCOMRPV       15     A     
 CCOMRPV  *                                                                                CCOMRPV       16     A     
 CCOMRPV  *         ENTRY  (RPV=CLN) = CURRENT LINE NUMBER IN BINARY                       CCOMRPV       17     A     
 CCOMRPV  *                            IF DEF, LINE NUMBER MESSAGE ISSUED                  CCOMRPV       18     A     
 CCOMRPV  *                (RPV=FVT) = FIRST ENTRY OF A FILE VECTOR --                     CCOMRPV       19     A     
 CCOMRPV  *                            42/0LLFN, 18/FET ADDRESS                            CCOMRPV       20     A     
 CCOMRPV  *                            TERMINATED BY A -1 WORD                             CCOMRPV       21     A     
 CCOMRPV  *                            IF DEF, OUTPUT FILES ARE FLUSHED                    CCOMRPV       22     A     
 CCOMRPV  *                (RPV=LOL) = LAST OVERLAY LOADED                                 CCOMRPV       23     A     
 CCOMRPV  *                            6/PRIMARY,6/SECONDARY,48/UNUSED                     CCOMRPV       24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  68    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV  *                            IF DEF, OVERLAY LOADED MESSAGE ISSUED               CCOMRPV       25     A     
 CCOMRPV  *                (RPV=MSG) = IF DEF AND .NE. 0, FIRST WORD OF DAYFILE            CCOMRPV       26     A     
 CCOMRPV  *                             MESSAGE (=C FORMAT) TO BE ISSUED BY RPV=.          CCOMRPV       27     A     
 CCOMRPV  *                (RPV=RNA) = FIRST WORD OF A ROUTINE NAME/ADDRESS TABLE          CCOMRPV       28     A     
 CCOMRPV  *                            BLOCKS OF THE FORM --                               CCOMRPV       29     A     
 CCOMRPV  *                            42/0LNAME, 18/FWA                                   CCOMRPV       30     A     
 CCOMRPV  *                            ENDED BY -                                          CCOMRPV       31     A     
 CCOMRPV  *                            1/1,41/UNUSED,18/NEXT BLOCK FWA OR ZERO IF          CCOMRPV       32     A     
 CCOMRPV  *                              LAST BLOCK.                                       CCOMRPV       33     A     
 CCOMRPV  *                            IF -DEF, ABS ADDRESS IS USED.                       CCOMRPV       34     A     
 CCOMRPV  *                (RPV=URP) = ADDRESS OF USER REPRIEVE PROCESSING,                CCOMRPV       35     A     
 CCOMRPV  *                            42/0,18/ADDRESS TO RJ TO                            CCOMRPV       36     A     
 CCOMRPV  *                                                                                CCOMRPV       37     A     
 CCOMRPV  *                CP#RM = 0 FOR DIRECT CIO, 7 FOR SCOPE 2 RECORD MANGLER          CCOMRPV       38     A     
 CCOMRPV  *                .OS = 1 FOR NOS, 2 FOR SCOPE 2, 3 FOR NOS/BE                    CCOMRPV       39     A     
 CCOMRPV  *                                                                                CCOMRPV       40     A     
 CCOMRPV  *         EXIT   MESSAGES POSTED AND BUFFERS FLUSHED.  REINSTATES THE            CCOMRPV       41     A     
 CCOMRPV  *                ERROR CONDITION AND RETURNS CONTROL TO THE OPERATING            CCOMRPV       42     A     
 CCOMRPV  *                SYSTEM.                                                         CCOMRPV       43     A     
 CCOMRPV  *                                                                                CCOMRPV       44     A     
 CCOMRPV  *         CALLS  CDD, CIO=, COD, FRA=, MSG=, SYS=, WNB=                          CCOMRPV       45     A     
 CCOMRPV                                                                                   CCOMRPV       46     A     
 CCOMRPV                                                                                   CCOMRPV       47     A     
 CCOMRPV   RPV=     BSS    0           SYSTEM ENTRY AT THIS ADDRESS + 21B                  CCOMRPV       48     A     
 CCOMRPV   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CCOMRPV       49     A     
 CCOMRPV   XJP      VFD    12/0,18/LWARPV,30/0                                             CCOMRPV       50     A     
 CCOMRPV   #OS      ELSE                                                                   CCOMRPV       51     A     
 CCOMRPV   XJP      VFD    12/0,18/LWARPV,6/0,24/77770014B                                 CCOMRPV       52     A     
 CCOMRPV   #OS      ENDIF                                                                  CCOMRPV       53     A     
 CCOMRPV                                                                                   CCOMRPV       54     A     
 CCOMRPV            BSSZ   16          EXCHANGE PACKAGE AND RA+1                           CCOMRPV       55     A     
 CCOMRPV   RPV=     SPACE  4,10                                                            CCOMRPV       56     A     
 CCOMRPV  **        RPV - REPRIEVE PROCESSOR SYSTEM ENTRY POINT.                           CCOMRPV       57     A     
 CCOMRPV  *                                                                                CCOMRPV       58     A     
 CCOMRPV  *         ENTRY  (XJP TO XJP+15) = EXCHANGE PACKAGE AT TIME OF ERROR             CCOMRPV       59     A     
 CCOMRPV  *                (XJP+16) = CONTENTS OF RA+1 AT THE TIME OF THE ERROR            CCOMRPV       60     A     
 CCOMRPV                                                                                   CCOMRPV       61     A     
 CCOMRPV   RPV      SB1    1           SYSTEM RPV ENTRY                                    CCOMRPV       62     A     
 CCOMRPV                                                                                   CCOMRPV       63     A     
 CCOMRPV  *         SAVE CONTENTS OF ENTRY POINTS THAT *RPV=* WILL USE.                    CCOMRPV       64     A     
 CCOMRPV                                                                                   CCOMRPV       65     A     
 CCOMRPV            SA1    =XCDD                                                           CCOMRPV       66     A     
 CCOMRPV            SA2    =XCOD                                                           CCOMRPV       67     A     
 CCOMRPV            BX6    X1                                                              CCOMRPV       68     A     
 CCOMRPV            LX7    X2                                                              CCOMRPV       69     A     
 CCOMRPV            SA6    RPVE                                                            CCOMRPV       70     A     
 CCOMRPV            SA7    A6+1                                                            CCOMRPV       71     A     
 CCOMRPV                                                                                   CCOMRPV       72     A     
 CCOMRPV   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CCOMRPV       73     A     
 CCOMRPV            SA1    =XSYS=                                                          CCOMRPV       74     A     
 CCOMRPV            SA2    =XWNB=                                                          CCOMRPV       75     A     
 CCOMRPV            SA3    =XMSG=                                                          CCOMRPV       76     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  69    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV            BX6    X1                                                              CCOMRPV       77     A     
 CCOMRPV            LX7    X2                                                              CCOMRPV       78     A     
 CCOMRPV            SA6    A7+B1                                                           CCOMRPV       79     A     
 CCOMRPV            SA7    A6+B1                                                           CCOMRPV       80     A     
 CCOMRPV            BX6    X3                                                              CCOMRPV       81     A     
 CCOMRPV            SA6    A7+B1                                                           CCOMRPV       82     A     
 CCOMRPV                                                                                   CCOMRPV       83     A     
 CCOMRPV   #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                                   CCOMRPV       84     A     
 CCOMRPV            SA1    =XCIO=                                                          CCOMRPV       85     A     
 CCOMRPV            BX6    X1                                                              CCOMRPV       86     A     
 CCOMRPV            SA6    A6+B1                                                           CCOMRPV       87     A     
 CCOMRPV   #RM      ENDIF                                                                  CCOMRPV       88     A     
 CCOMRPV   #OS      ENDIF                                                                  CCOMRPV       89     A     
 CCOMRPV                                                                                   CCOMRPV       90     A     
 CCOMRPV                                                                                   CCOMRPV       91     A     
 CCOMRPV  *         EXTRACT ERROR ADDRESS.                                                 CCOMRPV       92     A     
 CCOMRPV                                                                                   CCOMRPV       93     A     
 CCOMRPV            SA5    XJP                                                             CCOMRPV       94     A     
 CCOMRPV            MX0    -17                                                             CCOMRPV       95     A     
 CCOMRPV            LX5    24                                                              CCOMRPV       96     A     
 CCOMRPV            BX1    -X0*X5      EXTRACT P REGISTER                                  CCOMRPV       97     A     
 CCOMRPV            SB2    X1                                                              CCOMRPV       98     A     
 CCOMRPV            GT     B2,B1,RPV2  IF P-REGISTER NOT CLEARED                           CCOMRPV       99     A     
 CCOMRPV            SA5    0+                                                              CCOMRPV      100     A     
 CCOMRPV            LX5    59-47+18                                                        CCOMRPV      101     A     
 CCOMRPV            BX1    -X0*X5      EXTRACT P FROM RA+0                                 CCOMRPV      102     A     
 CCOMRPV   RPV2     BSS    0                                                               CCOMRPV      103     A     
 CCOMRPV                                                                                   CCOMRPV      104     A     
 CCOMRPV                                                                                   CCOMRPV      105     A     
 CCOMRPV  *         DETERMINE ROUTINE RELATIVE ADDRESS, IF *RNA* TABLE EXISTS.             CCOMRPV      106     A     
 CCOMRPV                                                                                   CCOMRPV      107     A     
 CCOMRPV   #RPV=    IF DEF,RPV=RNA                                                         CCOMRPV      108     A     
 CCOMRPV            SB7    RPV3        (B7) = RETURN ADDRESS                               CCOMRPV      109     A     
 CCOMRPV            EQ     FRA=        FIND RELATIVE ADDRESS                               CCOMRPV      110     A     
 CCOMRPV                                                                                   CCOMRPV      111     A     
 CCOMRPV   RPV3     NZ     X7,RPV3A    IF RELATIVE                                         CCOMRPV      112     A     
 CCOMRPV            MX0    42                                                              CCOMRPV      113     A     
 CCOMRPV            BX6    X0*X4                                                           CCOMRPV      114     A     
 CCOMRPV   RPV3A    SA6    RPVC+1                                                          CCOMRPV      115     A     
 CCOMRPV            SA7    A6+1                                                            CCOMRPV      116     A     
 CCOMRPV                                                                                   CCOMRPV      117     A     
 CCOMRPV  *         CONVERT ABS ADDRESS IF NO *RNA* TABLE.                                 CCOMRPV      118     A     
 CCOMRPV                                                                                   CCOMRPV      119     A     
 CCOMRPV   #RPV=    ELSE                                                                   CCOMRPV      120     A     
 CCOMRPV            RJ     =XCOD       CONVERT OCTAL DIGITS                                CCOMRPV      121     A     
 CCOMRPV            MX0    42                                                              CCOMRPV      122     A     
 CCOMRPV            BX6    X0*X4       ADD ZERO BYTE TERMINATOR                            CCOMRPV      123     A     
 CCOMRPV            SA6    RPVC+1                                                          CCOMRPV      124     A     
 CCOMRPV   #RPV=    ENDIF                                                                  CCOMRPV      125     A     
 CCOMRPV                                                                                   CCOMRPV      126     A     
 CCOMRPV  *         DETERMINE LAST OVERLAY LOADED.                                         CCOMRPV      127     A     
 CCOMRPV                                                                                   CCOMRPV      128     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  70    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV   #RPV=    IF     DEF,RPV=LOL                                                     CCOMRPV      129     A     
 CCOMRPV            SA1    RPV=LOL     (X1) = LAST OVERLAY 6/PRI,6/SEC,48/UNUSED           CCOMRPV      130     A     
 CCOMRPV            MX0    -6                                                              CCOMRPV      131     A     
 CCOMRPV            LX1    6                                                               CCOMRPV      132     A     
 CCOMRPV            BX6    -X0*X1      PRIMARY LEVEL                                       CCOMRPV      133     A     
 CCOMRPV            LX1    6                                                               CCOMRPV      134     A     
 CCOMRPV            BX7    -X0*X1      SECONDARY LEVEL                                     CCOMRPV      135     A     
 CCOMRPV            LX6    12                                                              CCOMRPV      136     A     
 CCOMRPV            SB2    X7          (B2) = SECONDARY OVERLAY LEVEL NUMBER               CCOMRPV      137     A     
 CCOMRPV            BX7    X6+X7                                                           CCOMRPV      138     A     
 CCOMRPV            SA2    RPVD+2      * - (0,0)  *                                        CCOMRPV      139     A     
 CCOMRPV            LX7    18                                                              CCOMRPV      140     A     
 CCOMRPV            IX6    X2+X7                                                           CCOMRPV      141     A     
 CCOMRPV            SA6    A2+                                                             CCOMRPV      142     A     
 CCOMRPV   #RPV=    ENDIF                                                                  CCOMRPV      143     A     
 CCOMRPV                                                                                   CCOMRPV      144     A     
 CCOMRPV  *         DETERMINE LAST SOURCE STATEMENT PROCESSED.                             CCOMRPV      145     A     
 CCOMRPV                                                                                   CCOMRPV      146     A     
 CCOMRPV   #RPV=    IF     DEF,RPV=CLN                                                     CCOMRPV      147     A     
 CCOMRPV            SA1    RPV=CLN     CURRENT LINE NUMBER                                 CCOMRPV      148     A     
 CCOMRPV            BX2    X1                                                              CCOMRPV      149     A     
 CCOMRPV            AX2    59                                                              CCOMRPV      150     A     
 CCOMRPV            BX1    -X2*X1      INSURE POSITIVE NUMBER                              CCOMRPV      151     A     
 CCOMRPV            RJ     =XCDD       CONVERT DECIMAL DIGITS                              CCOMRPV      152     A     
 CCOMRPV            MX0    48                                                              CCOMRPV      153     A     
 CCOMRPV            BX6    X0*X4       CREATE 12-BIT ZERO BYTE MSG TERMINATOR              CCOMRPV      154     A     
 CCOMRPV            SA6    RPVB+3      LINE NUMBER TO MESSAGE TEXT                         CCOMRPV      155     A     
 CCOMRPV   #RPV=    ENDIF                                                                  CCOMRPV      156     A     
 CCOMRPV                                                                                   CCOMRPV      157     A     
 CCOMRPV  *         ISSUE THE DAYFILE MESSAGES.                                            CCOMRPV      158     A     
 CCOMRPV                                                                                   CCOMRPV      159     A     
 CCOMRPV            IF     DEF,RPV=MSG,1                                                   CCOMRPV      160     A     
 CCOMRPV            MESSAGE  RPV=MSG,,RCL    *COMPILING NAME*                              CCOMRPV      161     A     
 CCOMRPV                                                                                   CCOMRPV      162     A     
 CCOMRPV            IF     DEF,RPV=CLN,1                                                   CCOMRPV      163     A     
 CCOMRPV            MESSAGE   RPVB,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*          CCOMRPV      164     A     
 CCOMRPV                                                                                   CCOMRPV      165     A     
 CCOMRPV            MESSAGE   RPVC,,RCL      * ERROR AT XXXXXX IN YYYYYYY*                 CCOMRPV      166     A     
 CCOMRPV                                                                                   CCOMRPV      167     A     
 CCOMRPV            IF     DEF,RPV=LOL,1                                                   CCOMRPV      168     A     
 CCOMRPV            MESSAGE   RPVD,,RCL      * LAST OVERLAY LOADED - (P,S)*                CCOMRPV      169     A     
 CCOMRPV                                                                                   CCOMRPV      170     A     
 CCOMRPV  *         CALL USER REPRIEVE PROCESSOR.                                          CCOMRPV      171     A     
 CCOMRPV                                                                                   CCOMRPV      172     A     
 CCOMRPV   #RPV=    IF     DEF,RPV=URP                                                     CCOMRPV      173     A     
 CCOMRPV            SA1    RPV=URP     USER REPRIEVE PROCESSOR                             CCOMRPV      174     A     
 CCOMRPV            ZR     X1,RPV4     IF NO USER ROUTINE SPECIFIED                        CCOMRPV      175     A     
 CCOMRPV                                                                                   CCOMRPV      176     A     
 CCOMRPV            MX0    43                                                              CCOMRPV      177     A     
 CCOMRPV            BX3    X0*X1                                                           CCOMRPV      178     A     
 CCOMRPV            NZ     X3,RPV4     IF BAD ADDRESS                                      CCOMRPV      179     A     
 CCOMRPV                                                                                   CCOMRPV      180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  71    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV            SX2    RPV4                                                            CCOMRPV      181     A     
 CCOMRPV            SB7    X1                                                              CCOMRPV      182     A     
 CCOMRPV            LX2    32                                                              CCOMRPV      183     A     
 CCOMRPV            MI     B7,RPV4     IF BAD ADDRESS                                      CCOMRPV      184     A     
 CCOMRPV                                                                                   CCOMRPV      185     A     
 CCOMRPV            PX6    X2                                                              CCOMRPV      186     A     
 CCOMRPV            LX6    -2          (X6) = *EQ RPV4*                                    CCOMRPV      187     A     
 CCOMRPV            SA6    B7          STORE FOR USER PROCESSOR RETURN                     CCOMRPV      188     A     
 CCOMRPV            JP     B7+1        CALL USER PROCESSOR...                              CCOMRPV      189     A     
 CCOMRPV   RPV4     BSS    0           ...RETURN FROM USER PROCESSOR                       CCOMRPV      190     A     
 CCOMRPV   #RPV=    ENDIF                                                                  CCOMRPV      191     A     
 CCOMRPV                                                                                   CCOMRPV      192     A     
 CCOMRPV  *         FLUSH FILE I/O BUFFERS (DIRECT CIO I/O ONLY).                          CCOMRPV      193     A     
 CCOMRPV                                                                                   CCOMRPV      194     A     
 CCOMRPV   #RPV=    IF     DEF,RPV=FVT IF FILE VECTOR TABLE EXISTS                         CCOMRPV      195     A     
 CCOMRPV   #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                                   CCOMRPV      196     A     
 CCOMRPV            SA0    RPV=FVT                                                         CCOMRPV      197     A     
 CCOMRPV            SB7    +                                                               CCOMRPV      198     A     
 CCOMRPV   RPV5     SA2    A0+B7       (X2) = NEXT FILE FET ADDRESS                        CCOMRPV      199     A     
 CCOMRPV            SB6    X2+B1                                                           CCOMRPV      200     A     
 CCOMRPV            ZR     B6,RPV7     IF END OF TABLE                                     CCOMRPV      201     A     
 CCOMRPV            ZR     X2,RPV6     IF FILE DESELECTED BY CONTROL CARD OPTION           CCOMRPV      202     A     
 CCOMRPV            SA1    X2          (X1) = FET WORD 1                                   CCOMRPV      203     A     
 CCOMRPV            MX0    -6                                                              CCOMRPV      204     A     
 CCOMRPV            SX6    B1                                                              CCOMRPV      205     A     
 CCOMRPV            BX7    X1+X6                                                           CCOMRPV      206     A     
 CCOMRPV            SA3    RPVA        (X3) = SHIFT TEST MASK FOR CIO CODE                 CCOMRPV      207     A     
 CCOMRPV            AX1    2                                                               CCOMRPV      208     A     
 CCOMRPV            BX0    -X0*X1      EXTRACT CIO CODE                                    CCOMRPV      209     A     
 CCOMRPV            SB2    X0                                                              CCOMRPV      210     A     
 CCOMRPV            LX3    B2                                                              CCOMRPV      211     A     
 CCOMRPV            PL     X3,RPV6     IF LAST CIO OP NOT OPEN OR WRITE                    CCOMRPV      212     A     
 CCOMRPV            SA7    A1          INSURE CIO COMPLETE BIT IS ON                       CCOMRPV      213     A     
 CCOMRPV            WRITER A1,,RCL     FLUSH BUFFER                                        CCOMRPV      214     A     
 CCOMRPV   RPV6     SB7    B7+1                                                            CCOMRPV      215     A     
 CCOMRPV            EQ     RPV5        CHECK NEXT ENTRY                                    CCOMRPV      216     A     
 CCOMRPV   RPV7     BSS    0                                                               CCOMRPV      217     A     
 CCOMRPV   #RM      ENDIF                                                                  CCOMRPV      218     A     
 CCOMRPV   #RPV=    ENDIF                                                                  CCOMRPV      219     A     
 CCOMRPV                                                                                   CCOMRPV      220     A     
 CCOMRPV  *         RESTORE SAVED ENTRY POINT CONTENTS.                                    CCOMRPV      221     A     
 CCOMRPV                                                                                   CCOMRPV      222     A     
 CCOMRPV            SA1    RPVE                                                            CCOMRPV      223     A     
 CCOMRPV            SA2    A1+1                                                            CCOMRPV      224     A     
 CCOMRPV            BX6    X1                                                              CCOMRPV      225     A     
 CCOMRPV            LX7    X2                                                              CCOMRPV      226     A     
 CCOMRPV            SA6    =XCDD                                                           CCOMRPV      227     A     
 CCOMRPV            SA7    =XCOD                                                           CCOMRPV      228     A     
 CCOMRPV                                                                                   CCOMRPV      229     A     
 CCOMRPV   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CCOMRPV      230     A     
 CCOMRPV            SA1    A2+B1       SYS=                                                CCOMRPV      231     A     
 CCOMRPV            SA2    A1+B1       WNB=                                                CCOMRPV      232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  72    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV            BX6    X1                                                              CCOMRPV      233     A     
 CCOMRPV            LX7    X2                                                              CCOMRPV      234     A     
 CCOMRPV            SA1    A2+1        MSG=                                                CCOMRPV      235     A     
 CCOMRPV            SA6    =XSYS=                                                          CCOMRPV      236     A     
 CCOMRPV            SA7    =XWNB=                                                          CCOMRPV      237     A     
 CCOMRPV            BX7    X1                                                              CCOMRPV      238     A     
 CCOMRPV            SA7    =XMSG=                                                          CCOMRPV      239     A     
 CCOMRPV                                                                                   CCOMRPV      240     A     
 CCOMRPV   #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                                   CCOMRPV      241     A     
 CCOMRPV            SA1    A2+B1                                                           CCOMRPV      242     A     
 CCOMRPV            BX6    X1                                                              CCOMRPV      243     A     
 CCOMRPV            SA6    =XCIO=                                                          CCOMRPV      244     A     
 CCOMRPV   #RM      ENDIF                                                                  CCOMRPV      245     A     
 CCOMRPV   #OS      ENDIF                                                                  CCOMRPV      246     A     
 CCOMRPV                                                                                   CCOMRPV      247     A     
 CCOMRPV  *         REINSTATE THE ERROR CONDITON.                                          CCOMRPV      248     A     
 CCOMRPV                                                                                   CCOMRPV      249     A     
 CCOMRPV   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CCOMRPV      250     A     
 CCOMRPV            SA1    RPVF        RPV RESET WORD                                      CCOMRPV      251     A     
 CCOMRPV            BX6    X1                                                              CCOMRPV      252     A     
 CCOMRPV   +        SA1    RA.MTR                                                          CCOMRPV      253     A     
 CCOMRPV            NZ     X1,*        WAIT FOR ALL CLEAR                                  CCOMRPV      254     A     
 CCOMRPV            SA6    A1          REQUEST RPV RESET                                   CCOMRPV      255     A     
 CCOMRPV   +        EQ     *           WAIT FOR OP SYS TO PICK UP ERROR                    CCOMRPV      256     A     
 CCOMRPV                                                                                   CCOMRPV      257     A     
 CCOMRPV   #OS      ELSE                                                                   CCOMRPV      258     A     
 CCOMRPV   .TEST    IFEQ   TEST,ON,2                                                       FC5A158A       8     A     
 CCOMRPV            SA1    XJP         EXCHANGE JUMP PACKAGE                               CCOMRPV      259     A     
 CCOMRPV            RJ     =XDXP=      DUMP EXCHANGE PACKAGE                               CCOMRPV      260     A     
 CCOMRPV            ABORT              *** TEMPORARY UNTIL SCOPE 2.0 REPRIEVE              CCOMRPV      261     A     
 CCOMRPV  *                            *** RESET METHOD IS AVAILABLE.                      CCOMRPV      262     A     
 CCOMRPV   #OS      ENDIF                                                                  CCOMRPV      263     A     
 CCOMRPV                                                                                   CCOMRPV      264     A     
 CCOMRPV   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CCOMRPV      265     A     
 CCOMRPV   RPVA     BSS    0                                                               CCOMRPV      266     A     
 CCOMRPV            ECHO   2,CIOCODE=(4B,14B,104B,120B,144B,160B)                          CCOMRPV      267     A     
 CCOMRPV            POS    60-CIOCODE_S-2                                                  CCOMRPV      268     A     
 CCOMRPV            VFD    1/1                                                             CCOMRPV      269     A     
 CCOMRPV            POS    0                                                               CCOMRPV      270     A     
 CCOMRPV            BSS    0                                                               CCOMRPV      271     A     
 CCOMRPV   #OS      ENDIF                                                                  CCOMRPV      272     A     
 CCOMRPV                                                                                   CCOMRPV      273     A     
 CCOMRPV            IF     DEF,RPV=CLN,1                                                   CCOMRPV      274     A     
 CCOMRPV   RPVB     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*                       CCOMRPV      275     A     
 CCOMRPV                                                                                   CCOMRPV      276     A     
 CCOMRPV   RPVC     DIS    ,* ERROR AT 000000 IN XXXXXXX*                                  CCOMRPV      277     A     
 CCOMRPV                                                                                   CCOMRPV      278     A     
 CCOMRPV            IF     DEF,RPV=LOL,1                                                   CCOMRPV      279     A     
 CCOMRPV   RPVD     DIS    ,* LAST OVERLAY LOADED - (0,0)*                                 CCOMRPV      280     A     
 CCOMRPV                                                                                   CCOMRPV      281     A     
 CCOMRPV   RPVE     BSSZ   2           TO SAVE (CDD) AND (COD)                             CCOMRPV      282     A     
 CCOMRPV                                                                                   CCOMRPV      283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  73    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CCOMRPV      284     A     
 CCOMRPV            BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)                   CCOMRPV      285     A     
 CCOMRPV                                                                                   CCOMRPV      286     A     
 CCOMRPV   #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                                   CCOMRPV      287     A     
 CCOMRPV            BSSZ   1           TO SAVE (CIO=)                                      CCOMRPV      288     A     
 CCOMRPV   #RM      ENDIF                                                                  CCOMRPV      289     A     
 CCOMRPV   RPVF     VFD    18/3RRPV,6/0,1/1,35/0    RPV RESET REQUEST WORD                 CCOMRPV      290     A     
 CCOMRPV   #OS      ENDIF                                                                  CCOMRPV      291     A     
 CCOMRPV   FRA      SPACE  4,8                                                             CCOMRPV      292     A     
 CCOMRPV  **        FRA - FIND RELATIVE ADDRESS.                                           CCOMRPV      293     A     
 CCOMRPV  *                                                                                CCOMRPV      294     A     
 CCOMRPV  *                GIVEN AN ABSOLUTE ADDRESS, *FRA=* FINDS THE ROUTINE             CCOMRPV      295     A     
 CCOMRPV  *         NAME AND ABSOLUTE ADDRESS BY SEARCHING THE TABLES INSTALLED            CCOMRPV      296     A     
 CCOMRPV  *         ORIGINALLY FOR *RPV=* PROCESSING.                                      CCOMRPV      297     A     
 CCOMRPV  *                                                                                CCOMRPV      298     A     
 CCOMRPV  *                *FRA* DOES NOT USE A RETURN JUMP CALLING SEQUENCE               CCOMRPV      299     A     
 CCOMRPV  *         BECAUSE IT IS LOCATED IN CODE SPACE CHECKSUMMED BY *RPV=*.             CCOMRPV      300     A     
 CCOMRPV  *                                                                                CCOMRPV      301     A     
 CCOMRPV  *                                                                                CCOMRPV      302     A     
 CCOMRPV  *         ENTRY  (X1) = ADDRESS RELATIVE TO RA+0                                 CCOMRPV      303     A     
 CCOMRPV  *                (B7) = EXIT ADDRESS                                             CCOMRPV      304     A     
 CCOMRPV  *                                                                                CCOMRPV      305     A     
 CCOMRPV  *         EXIT   TO (B7), WITH ...                                               CCOMRPV      306     A     
 CCOMRPV  *                (A1,X1) = ADDRESS,CONTENTS OF RPV=RNA ENTRY                     CCOMRPV      307     A     
 CCOMRPV  *                (X4) = ABSOLUTE ADDRESS, H FORMAT                               CCOMRPV      308     A     
 CCOMRPV  *                (X6) = ABSOLUTE ADDRESS, DPC, *NNNNNN IN *                      CCOMRPV      309     A     
 CCOMRPV  *                (X7) = ROUTINE NAME, DPC, L FORMAT                              CCOMRPV      310     A     
 CCOMRPV  *                                                                                CCOMRPV      311     A     
 CCOMRPV  *         USES   X - 1, 2, 3, 4, 6, 7                                            CCOMRPV      312     A     
 CCOMRPV  *                A - 2, 4                                                        CCOMRPV      313     A     
 CCOMRPV  *                B - 2, 3, 4, 5                                                  CCOMRPV      314     A     
 CCOMRPV  *                                                                                CCOMRPV      315     A     
 CCOMRPV  *         CANNOT DESTROY  B1  X0,5  A0,5,6,7                                     CCOMRPV      316     A     
 CCOMRPV  *                                                                                CCOMRPV      317     A     
 CCOMRPV  *         CALLS  COD                                                             CCOMRPV      318     A     
 CCOMRPV                                                                                   CCOMRPV      319     A     
 CCOMRPV                                                                                   CCOMRPV      320     A     
 CCOMRPV   #RPV=    IF     DEF,RPV=RNA IF ROUTINE NAME ADDRESS TABLE EXISTS                CCOMRPV      321     A     
 CCOMRPV   FRA=     BSS    0           ...ENTRY                                            CCOMRPV      322     A     
 CCOMRPV            SA2    RPV=RNA     (X2) = FWA OF 1ST RNA TABLE                         CCOMRPV      323     A     
 CCOMRPV            SB2    X1          (B2) = ADDRESS RELATIVE TO RA+0                     CCOMRPV      324     A     
 CCOMRPV            SA2    X2          (A2,X2) = A+C OF 1ST ENTRY IN RNA TABLE             CCOMRPV      325     A     
 CCOMRPV            SB3    X2                                                              CCOMRPV      326     A     
 CCOMRPV            SB4    B0                                                              CCOMRPV      327     A     
 CCOMRPV            SB5    A2+                                                             CCOMRPV      328     A     
 CCOMRPV                                                                                   CCOMRPV      329     A     
 CCOMRPV  *         SEARCH ROUTINE NAME ADDRESS TABLE.                                     CCOMRPV      330     A     
 CCOMRPV                                                                                   CCOMRPV      331     A     
 CCOMRPV   FRA2     BSS                                                                    CCOMRPV      332     A     
 CCOMRPV            ZR     X2,FRA3     IF END OF BLOCK                                     CCOMRPV      333     A     
 CCOMRPV            SB3    X2                                                              CCOMRPV      334     A     
 CCOMRPV            SA2    A2+B1       (X2) = NEXT TABLE ENTRY                             CCOMRPV      335     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  74    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCOMRPV 
  
 CCOMRPV            GT     B3,B2,FRA2  IF CURRENT ENTRY BEYOND ABS ADDR                    CCOMRPV      336     A     
 CCOMRPV            GE     B4,B3,FRA2  IF CURRENT NOT CLOSER                               CCOMRPV      337     A     
 CCOMRPV            SB5    A2-B1       CLOSEST SO FAR                                      CCOMRPV      338     A     
 CCOMRPV            SB4    B3                                                              CCOMRPV      339     A     
 CCOMRPV            EQ     FRA2        KEEP LOOKING                                        CCOMRPV      340     A     
 CCOMRPV                                                                                   CCOMRPV      341     A     
 CCOMRPV  *         CHECK FOR TABLE CONTINUATION LINK.                                     CCOMRPV      342     A     
 CCOMRPV                                                                                   CCOMRPV      343     A     
 CCOMRPV   FRA3     BSS                                                                    CCOMRPV      344     A     
 CCOMRPV            SA2    A2+B1       END OF TABLE/TABLE LINK WORD                        CCOMRPV      345     A     
 CCOMRPV            ZR     X2,FRA4     IF END OF TABLE                                     CCOMRPV      346     A     
 CCOMRPV            SA2    X2          (A2,X2) = A+C OF 1ST WORD IN NEXT BLOCK             CCOMRPV      347     A     
 CCOMRPV            EQ     FRA2        CONTINUE TABLE SEARCH...                            CCOMRPV      348     A     
 CCOMRPV                                                                                   CCOMRPV      349     A     
 CCOMRPV  *         EXTRACT ROUTINE NAME AND FORMAT ABSOLUTE ADDRESS.                      CCOMRPV      350     A     
 CCOMRPV                                                                                   CCOMRPV      351     A     
 CCOMRPV   FRA4     BSS                                                                    CCOMRPV      352     A     
 CCOMRPV            SX1    B2-B4       (X1) = BIN ADDR, RELATIVE TO CLOSEST FIND           CCOMRPV      353     A     
 CCOMRPV            RJ     =XCOD       CONVERT TO OCTAL DISPLAY CODE                       CCOMRPV      354     A     
 CCOMRPV            SA1    B5          (X1) = 42/0LNAME,18/ADDRESS                         CCOMRPV      355     A     
 CCOMRPV            MX7    42                                                              CCOMRPV      356     A     
 CCOMRPV            SX3    2R  &2RIN                                                       CCOMRPV      357     A     
 CCOMRPV            BX7    X7*X1       (X7) = ROUTINE NAME, 0L FORMAT                      CCOMRPV      358     A     
 CCOMRPV            LX3    6                                                               CCOMRPV      359     A     
 CCOMRPV            BX6    X4-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *               CCOMRPV      360     A     
 CCOMRPV            JP     B7          EXIT ...                                            CCOMRPV      361     A     
 CCOMRPV   #RPV=    ENDIF                                                                  CCOMRPV      362     A     
 CCOMRPV   RPV      SPACE  4,8                                                             CCOMRPV      363     A     
 CCOMRPV   RPV=     SPACE  4,10                                                            CCOMRPV      364     A     
 CCOMRPV            BSS    0                                                               CCOMRPV      365     A     
 CCOMRPV   LWARPV   =      *-1         *** END OF CHECKSUMMED REPRIEVE CODE ***            CCOMRPV      366     A     
 CCOMRPV   RPV=     SPACE  4,10                                                            CCOMRPV      367     A     
 CCOMRPV   QUAL$    IF     -DEF,QUAL$                                                      CCOMRPV      368     A     
 CCOMRPV            QUAL   *                                                               CCOMRPV      369     A     
 CCOMRPV   RPV=     EQU    /CCOMRPV/RPV=                                                   CCOMRPV      370     A     
 CCOMRPV   FRA=     EQU    /CCOMRPV/FRA=                                                   CCOMRPV      371     A     
 CCOMRPV   QUAL$    ENDIF                                                                  CCOMRPV      372     A     
 CCOMRPV   CCOMRPV  ENDX                                                                   CCOMRPV      373     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CCOMRPV 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CCOMRPV                    373       373
          FC5A158A                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CGHCDTD 
  
 CGHCDTD  *COMDECK CGHCDTD                                                                 CGHCDTD        1     A     
 CGHCDTD   FUN      TABLE  RND                                                             CGHCDTD        2     A     
 CGHCDTD   VDT      TABLE                                                                  CGHCDTD        3     A     
 CGHCDTD   DTT      TABLE  OTI                                                             CGHCDTD        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  75    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CGHCDTD 
  
 CGHCDTD   PAP      TABLE  PSI                                                             CGHCDTD        5     A     
 CGHCDTD   PFP      TABLE  RXI                                                             CGHCDTD        6     A     
 CGHCDTD   TST      TABLE  RCT                                                             CGHCDTD        7     A     
 CGHCDTD   AUD      TABLE  TET                                                             CGHCDTD        8     A     
 CGHCDTD   SAP      TABLE              MUST BE LAST TABLE IN CGHCDTD (BEF. CLW)            CGHCDTD        9     A     
 CGHCDTD            MACRO  TABSH,PASS1,D1,D2,PASS2                                         CGHCDTD       10     A     
 CGHCDTD   PA2      MICRO  1,,/PASS2/                                                      CGHCDTD       11     A     
 CGHCDTD            IFC    EQ,/PASS2//,1                                                   CGHCDTD       12     A     
 CGHCDTD   PA2      MICRO  1,,/PASS1/                                                      CGHCDTD       13     A     
 CGHCDTD   "PA2"    TABLE                                                                  CGHCDTD       14     A     
 CGHCDTD            ENDM                                                                   CGHCDTD       15     A     
 CGHCDTD  *CALL COMSTAD                                                                    CGHCDTD       16     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CGHCDTD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CGHCDTD                     16        16
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CGHCSTD 
  
 CGHCSTD  *COMDECK CGHCSTD                                                                 CGHCSTD        1     A     
 CGHCSTD  *CALL COMSTAS                                                                    CGHCSTD        2     A     
 CGHCSTD   LCT      TABLE              DUMMY TABLE FOR CCG AUX SYMTAB ORG VECTOR           CGHCSTD        3          I
          -FC50457
 CGHCSTD   LPT      TABLE              DUMMY TABLE FOR LCM POINTER WORDS                   FC50457        8     A     
 CGHCSTD   FE       TABLE                                                                  CGHCSTD        4     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CGHCSTD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CGHCSTD                      4         3
          FC50457                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMACPU 
  
 COMACPU  *COMDECK  COMACPU - GENERAL CPU MACROS.                                          COMACPU        1     A     
 COMACPU            CTEXT  COMACPU - GENERAL CPU MACROS.                                   COMACPU        2     A     
 COMACPU   COMACPU  SPACE  4,10                                                            COMACPU        3     A     
 COMACPU  ***       COMACPU - GENERAL CPU MACROS.                                          COMACPU        4     A     
 COMACPU  *                                                                                COMACPU        5     A     
 COMACPU  *         G. R. MANSFIELD.   70/09/21.                                           COMACPU        6     A     
 COMACPU  *         R. H. GOODELL.     73/04/05.                                           COMACPU        7     A     
 COMACPU  *         T. R. RAMSEY.      76/05/05. MODIFIED FOR JETTEXT.                     COMACPU        8     A     
 COMACPU  *                                                                                COMACPU        9     A     
 COMACPU  *         COPYRIGHT CONTROL DATA CORPORATION. 1970-1976.                         COMACPU       10     A     
 COMACPU   COMACPU  SPACE  4,10                                                            COMACPU       11     A     
 COMACPU  ***              THE GENERAL CPU MACROS PROVIDE THE USER WITH COMMONLY           COMACPU       12     A     
 COMACPU  *         USED MACRO AND OPDEF DEFINITIONS.                                      COMACPU       13     A     
 COMACPU  *                                                                                COMACPU       14     A     
 COMACPU  *         USERS SHOULD AVOID NAMES OF THE FORM *'?CPU#XX* WHERE *XX* IS          COMACPU       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  76    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMACPU 
  
 COMACPU  *         ANY TWO CHARACTERS. NAMES OF THIS FORM ARE USED INTERNALLY.            COMACPU       16     A     
 COMACPU  *                                                                                COMACPU       17     A     
 COMACPU  *         ALL NUMERIC CONSTANTS GREATER THAN 7 IN THESE MACROS HAVE              COMACPU       18     A     
 COMACPU  *         AN EXPLICIT RADIX, SO THE *BASE* MODE IS IMMATERIAL.                   COMACPU       19     A     
 COMACPU  *                                                                                COMACPU       20     A     
 COMACPU  *         THIS COMMON DECK CONTAINS NO UNLABELED *ELSE* OR *ENDIF*               COMACPU       21     A     
 COMACPU  *         STATEMENTS, SO IT CAN BE ASSEMBLED CONDITIONALLY.                      COMACPU       22     A     
 COMACPU            TITLE  COMACPU - GENERAL CPU MACROS.                                   COMACPU       23     A     
 COMACPU   BITMIC   SPACE  4,10                                                            COMACPU       24     A     
 COMACPU  ***       BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS.            COMACPU       25     A     
 COMACPU  *                                                                                COMACPU       26     A     
 COMACPU  * MIKE    BITMIC (BITS),OFFSET                                                   COMACPU       27     A     
 COMACPU  * MIKE    LETMIC (LETS),OFFSET          (ALTERNATE FORM)                         COMACPU       28     A     
 COMACPU  *                                                                                COMACPU       29     A     
 COMACPU  *         ENTRY  *MIKE* = THE NAME OF THE MICRO TO BE GENERATED                  COMACPU       30     A     
 COMACPU  *                *BITS* = (BIT1,BIT2,...,BITN)  WHERE EACH BIT(I) IS A           COMACPU       31     A     
 COMACPU  *                         VALUE OF A BIT THAT IS TO BE SET                       COMACPU       32     A     
 COMACPU  *                *LETS* = A CHARACTER STRING, (ABC...N) IMPLIES THAT             COMACPU       33     A     
 COMACPU  *                         THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN)               COMACPU       34     A     
 COMACPU  *                *OFFSET* = OFFSET, IF OTHER THAN 59                             COMACPU       35     A     
 COMACPU  *                                                                                COMACPU       36     A     
 COMACPU  *         EXIT   GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER             COMACPU       37     A     
 COMACPU  *                (WITH *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF           COMACPU       38     A     
 COMACPU  *                2**(OFFSET-BIT(N))  TAKEN OVER ALL *N* PARAMETERS               COMACPU       39     A     
 COMACPU  *                                                                                COMACPU       40     A     
 COMACPU  *         NOTE   SUPPOSE, FOR EXAMPLE, IT IS DESIRED TO TEST IF THE              COMACPU       41     A     
 COMACPU  *                CHARACTER IN B7 IS A LEGAL COMPASS LIST OPTION                  COMACPU       42     A     
 COMACPU  *                CHARACTER. THE FOLLOWING WOULD ACCOMPLISH THIS TEST -           COMACPU       43     A     
 COMACPU  *                                                                                COMACPU       44     A     
 COMACPU  *         LOP    LETMIC (ABCDEFGLMNRSTX)                                         COMACPU       45     A     
 COMACPU  *                SA1    ="LOP"                                                   COMACPU       46     A     
 COMACPU  *                LX2    X1,B7                                                    COMACPU       47     A     
 COMACPU  *                MI     X2,O.K.        IF LEGAL LIST OPTION                      COMACPU       48     A     
 COMACPU  *                                                                                COMACPU       49     A     
 COMACPU  *                ALTERNATIVELY, THE MICRO COULD HAVE BEEN DEFINED                COMACPU       50     A     
 COMACPU  *                (EQUIVALENTLY, ALBEIT MORE CUMBERSOME) AS -                     COMACPU       51     A     
 COMACPU  *         LOP    BITMIC (1RA,1RB,1RC,1RD,1RE,1RF,1RG,1RL,1RM,...,1RX)            COMACPU       52     A     
 COMACPU  *                                                                                COMACPU       53     A     
 COMACPU  *                *BITMIC* IS USUALLY MORE CONVENIENT WHEN THE BITS TO            COMACPU       54     A     
 COMACPU  *                BE SET HAVE SYMBOLIC DEFINITIONS.                               COMACPU       55     A     
 COMACPU                                                                                   COMACPU       56     A     
 COMACPU                                                                                   COMACPU       57     A     
 COMACPU            PURGMAC BITMIC,LETMIC                                                  COMACPU       58     A     
 COMACPU                                                                                   COMACPU       59     A     
 COMACPU            MACRO  BITMIC,LOC,BITS,OFF                                             COMACPU       60     A     
 COMACPU   '?CPU#LO OCTMIC ,10D                                                            COMACPU       61     A     
 COMACPU   '?CPU#HI OCTMIC ,10D                                                            COMACPU       62     A     
 COMACPU   '?CPU#OF SET    OFF 59D                                                         COMACPU       63     A     
 COMACPU            IRP    BITS                                                            COMACPU       64     A     
 COMACPU   '?CPU#.2 IFLE   '?CPU#OF-BITS,29D                                               COMACPU       65     A     
 COMACPU   '?CPU#DD DECMIC '?CPU#OF-BITS,2                                                 COMACPU       66     A     
 COMACPU   '?CPU#LO OCTMIC 1S"'?CPU#DD"+"'?CPU#LO"B,10D                                    COMACPU       67     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  77    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMACPU 
  
 COMACPU   '?CPU#.2 ELSE                                                                   COMACPU       68     A     
 COMACPU   '?CPU#DD DECMIC '?CPU#OF-30D-BITS,2                                             COMACPU       69     A     
 COMACPU   '?CPU#HI OCTMIC 1S"'?CPU#DD"+"'?CPU#HI"B,10D                                    COMACPU       70     A     
 COMACPU   '?CPU#.2 ENDIF                                                                  COMACPU       71     A     
 COMACPU            IRP                                                                    COMACPU       72     A     
 COMACPU   LOC      MICRO  1,, "'?CPU#HI""'?CPU#LO"B                                       COMACPU       73     A     
 COMACPU   BITMIC   ENDM                                                                   COMACPU       74     A     
 COMACPU                                                                                   COMACPU       75     A     
 COMACPU                                                                                   COMACPU       76     A     
 COMACPU            MACRO  LETMIC,LOC,BITS,OFF                                             COMACPU       77     A     
 COMACPU   '?CPU#CH MICRO  1,,^_BITS_^                                                     COMACPU       78     A     
 COMACPU   '?CPU#LO OCTMIC ,10D                                                            COMACPU       79     A     
 COMACPU   '?CPU#HI OCTMIC ,10D                                                            COMACPU       80     A     
 COMACPU   '?CPU#OF SET    OFF 59D                                                         COMACPU       81     A     
 COMACPU   '?CPU#CX MICCNT '?CPU#CH                                                        COMACPU       82     A     
 COMACPU   '?CPU#CN SET    0                                                               COMACPU       83     A     
 COMACPU   '?CPU#.1 DUP    '?CPU#CX                                                        COMACPU       84     A     
 COMACPU   '?CPU#CN SET    '?CPU#CN+1                                                      COMACPU       85     A     
 COMACPU   '?CPU#CH MICRO  '?CPU#CN,1,^_BITS_^                                             COMACPU       86     A     
 COMACPU   '?CPU#.2 IFLE   '?CPU#OF-1R"'?CPU#CH",29D                                       COMACPU       87     A     
 COMACPU   '?CPU#DD DECMIC '?CPU#OF-1R"'?CPU#CH",2                                         COMACPU       88     A     
 COMACPU   '?CPU#LO OCTMIC 1S"'?CPU#DD"+"'?CPU#LO"B,10D                                    COMACPU       89     A     
 COMACPU   '?CPU#.2 ELSE                                                                   COMACPU       90     A     
 COMACPU   '?CPU#DD DECMIC '?CPU#OF-30D-1R"'?CPU#CH",2                                     COMACPU       91     A     
 COMACPU   '?CPU#HI OCTMIC 1S"'?CPU#DD"+"'?CPU#HI"B,10D                                    COMACPU       92     A     
 COMACPU   '?CPU#.2 ENDIF                                                                  COMACPU       93     A     
 COMACPU   '?CPU#.1 ENDD                                                                   COMACPU       94     A     
 COMACPU   LOC      MICRO  1,, "'?CPU#HI""'?CPU#LO"B                                       COMACPU       95     A     
 COMACPU   LETMIC   ENDM                                                                   COMACPU       96     A     
 COMACPU   BXQ      SPACE  4,10                                                            COMACPU       97     A     
 COMACPU  ***       BXQ - CONVENIENCE OPDEF TO ZERO AN *X* REGISTER.                       COMACPU       98     A     
 COMACPU  *                                                                                COMACPU       99     A     
 COMACPU  *         BXI    Q                                                               COMACPU      100     A     
 COMACPU  *                                                                                COMACPU      101     A     
 COMACPU  *         ENTRY  *Q* = 0  SET XI TO ALL ZEROS                                    COMACPU      102     A     
 COMACPU  *                *Q* = -0  SET XI TO ALL ONES                                    COMACPU      103     A     
 COMACPU                                                                                   COMACPU      104     A     
 COMACPU                                                                                   COMACPU      105     A     
 COMACPU            PURGDEF BXQ                                                            COMACPU      106     A     
 COMACPU                                                                                   COMACPU      107     A     
 COMACPU   BXQ      OPDEF  I,V                                                             COMACPU      108     A     
 COMACPU    ERRNZ V   BXQ - Q MUST BE ZERO, IS (V)                                         COMACPU      109     A     
 COMACPU    IFMI V,2                                                                       COMACPU      110     A     
 COMACPU    BX.I -X.I+X.I                                                                  COMACPU      111     A     
 COMACPU    SKIP 1                                                                         COMACPU      112     A     
 COMACPU    BX.I X.I-X.I                                                                   COMACPU      113     A     
 COMACPU    ENDM                                                                           COMACPU      114     A     
 COMACPU   IXX/X    SPACE  4,10                                                            COMACPU      115     A     
 COMACPU  ***       IXI XJ/XK - INTEGER DIVISION.                                          COMACPU      116     A     
 COMACPU  *                                                                                COMACPU      117     A     
 COMACPU  *         IXI    XJ/XK                                                           COMACPU      118     A     
 COMACPU  *                                                                                COMACPU      119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  78    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMACPU 
  
 COMACPU  *         USES   B7  XJ,XK                                                       COMACPU      120     A     
 COMACPU                                                                                   COMACPU      121     A     
 COMACPU                                                                                   COMACPU      122     A     
 COMACPU            PURGDEF IXX/X                                                          COMACPU      123     A     
 COMACPU                                                                                   COMACPU      124     A     
 COMACPU   IXX/X    OPDEF  I,J,K                                                           COMACPU      125     A     
 COMACPU    PX.J                                                                           COMACPU      126     A     
 COMACPU    PX.K                                                                           COMACPU      127     A     
 COMACPU    NX.J                                                                           COMACPU      128     A     
 COMACPU    NX.K                                                                           COMACPU      129     A     
 COMACPU    FX.I X.J/X.K                                                                   COMACPU      130     A     
 COMACPU    UX.I,B7                                                                        COMACPU      131     A     
 COMACPU    AX.I -B7                                                                       COMACPU      132     A     
 COMACPU    ENDM                                                                           COMACPU      133     A     
 COMACPU   IXX/X,B  SPACE  4,10                                                            COMACPU      134     A     
 COMACPU  ***       IXI XJ/XK,BN - INTEGER DIVISION.                                       COMACPU      135     A     
 COMACPU  *                                                                                COMACPU      136     A     
 COMACPU  *         IXI    XJ/XK,BN                                                        COMACPU      137     A     
 COMACPU  *                                                                                COMACPU      138     A     
 COMACPU  *         USES   BN  XJ,XK                                                       COMACPU      139     A     
 COMACPU                                                                                   COMACPU      140     A     
 COMACPU                                                                                   COMACPU      141     A     
 COMACPU            PURGDEF IXX/X,B                                                        COMACPU      142     A     
 COMACPU                                                                                   COMACPU      143     A     
 COMACPU   IXX/X,B  OPDEF  I,J,K,N                                                         COMACPU      144     A     
 COMACPU    PX.J                                                                           COMACPU      145     A     
 COMACPU    PX.K                                                                           COMACPU      146     A     
 COMACPU    NX.J                                                                           COMACPU      147     A     
 COMACPU    NX.K                                                                           COMACPU      148     A     
 COMACPU    FX.I X.J/X.K                                                                   COMACPU      149     A     
 COMACPU    UX.I,B.N                                                                       COMACPU      150     A     
 COMACPU    AX.I -B.N                                                                      COMACPU      151     A     
 COMACPU    ENDM                                                                           COMACPU      152     A     
 COMACPU   MOVE     SPACE  4,10                                                            COMACPU      153     A     
 COMACPU  ***       MOVE - MOVE DATA BLOCK.                                                COMACPU      154     A     
 COMACPU  *                                                                                COMACPU      155     A     
 COMACPU  *         MOVE   COUNT,FROM,TO                                                   COMACPU      156     A     
 COMACPU  *                                                                                COMACPU      157     A     
 COMACPU  *         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED                       COMACPU      158     A     
 COMACPU  *                *FROM* = ADDRESS OF FIRST WORD OF BLOCK                         COMACPU      159     A     
 COMACPU  *                *TO* = ADDRESS OF FIRST WORD OF DESTINATION                     COMACPU      160     A     
 COMACPU  *                                                                                COMACPU      161     A     
 COMACPU  *         USES   X1,X2,X3                                                        COMACPU      162     A     
 COMACPU  *                                                                                COMACPU      163     A     
 COMACPU  *         CALLS  MVE=  (COMCMVE)                                                 COMACPU      164     A     
 COMACPU                                                                                   COMACPU      165     A     
 COMACPU                                                                                   COMACPU      166     A     
 COMACPU            PURGMAC MOVE                                                           COMACPU      167     A     
 COMACPU                                                                                   COMACPU      168     A     
 COMACPU   MOVE     MACRO  C,F,T                                                           COMACPU      169     A     
 COMACPU    =X1 C                                                                          COMACPU      170     A     
 COMACPU    =X2 F                                                                          COMACPU      171     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  79    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMACPU 
  
 COMACPU    =X3 T                                                                          COMACPU      172     A     
 COMACPU    RJ =XMVE=                                                                      COMACPU      173     A     
 COMACPU    ENDM                                                                           COMACPU      174     A     
 COMACPU   SUBR     SPACE  4,10                                                            COMACPU      175     A     
 COMACPU  ***       SUBR - SUBROUTINE ENTRY/EXIT DEFINITION.                               COMACPU      176     A     
 COMACPU  *                                                                                COMACPU      177     A     
 COMACPU  * TAG     SUBR               DEFINE *EXIT.* AND *TAG_X*                          COMACPU      178     A     
 COMACPU  * TAG     SUBR   0           SAME                                                COMACPU      179     A     
 COMACPU  * TAG     SUBR   =           SAME, AND DECLARE *TAG* AS ENTRY POINT              COMACPU      180     A     
 COMACPU  * TAG     SUBR   -           DEFINE *EXIT.* BUT NOT *TAG_X*                      COMACPU      181     A     
 COMACPU  * TAG     SUBR   LETTER      DEFINE *TAG_LETTER* BUT NOT *EXIT.*                 COMACPU      182     A     
 COMACPU  *                                                                                COMACPU      183     A     
 COMACPU  *         ENTRY  *TAG* = SUBROUTINE ENTRY NAME                                   COMACPU      184     A     
 COMACPU  *                                                                                COMACPU      185     A     
 COMACPU  *         EXIT   CODE GENERATED -                                                COMACPU      186     A     
 COMACPU  *                TAG    EQ    *+1S17    ALWAYS                                   COMACPU      187     A     
 COMACPU  *                       ENTRY TAG       IF = SPECIFIED                           COMACPU      188     A     
 COMACPU  *                EXIT.  SET   *         IF BLANK, 0, =, OR - SPECIFIED           COMACPU      189     A     
 COMACPU  *                       NOREF EXIT.     IF BLANK, 0, =, OR - SPECIFIED           COMACPU      190     A     
 COMACPU  *                TAG_X  EQU   *         IF BLANK, 0, OR = SPECIFIED              COMACPU      191     A     
 COMACPU  *                       NOREF TAG_X     IF BLANK, 0, OR = SPECIFIED              COMACPU      192     A     
 COMACPU  *                TAG_LETTER  EQU  *     IF LETTER SPECIFIED                      COMACPU      193     A     
 COMACPU                                                                                   COMACPU      194     A     
 COMACPU                                                                                   COMACPU      195     A     
 COMACPU            PURGMAC SUBR                                                           COMACPU      196     A     
 COMACPU                                                                                   COMACPU      197     A     
 COMACPU            MACRO  SUBR,T,A                                                        COMACPU      198     A     
 COMACPU  T  EQ *+1S17D                                                                    COMACPU      199     A     
 COMACPU  '?CPU#EN MICRO 1,,=T=                                                            COMACPU      200     A     
 COMACPU    IFC NE, A  ,3                                                                  COMACPU      201     A     
 COMACPU    IFC LT, A 0 ,2                                                                 COMACPU      202     A     
 COMACPU  "'?CPU#EN"A EQU *                                                                COMACPU      203     A     
 COMACPU    SKIP 7                                                                         COMACPU      204     A     
 COMACPU    IFC NE, A - ,4                                                                 COMACPU      205     A     
 COMACPU    IFC EQ, A = ,1                                                                 COMACPU      206     A     
 COMACPU    ENTRY T                                                                        COMACPU      207     A     
 COMACPU  "'?CPU#EN"X EQU *                                                                COMACPU      208     A     
 COMACPU    NOREF "'?CPU#EN"X                                                              COMACPU      209     A     
 COMACPU  EXIT. SET *                                                                      COMACPU      210     A     
 COMACPU    NOREF EXIT.                                                                    COMACPU      211     A     
 COMACPU    ENDM                                                                           COMACPU      212     A     
 COMACPU                                                                                   COMACPU      213     A     
 COMACPU                                                                                   COMACPU      214     A     
 COMACPU   COMACPU  ENDX                                                                   COMACPU      215     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMACPU 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMACPU                    215       215
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  80    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
 COMADEF  *COMDECK  COMADEF - STRUCTURED FIELD DECLARATION MACROS.                         COMADEF        1     A     
 COMADEF            CTEXT  COMADEF - STRUCTURED FIELD DECLARATION MACROS.                  COMADEF        2     A     
 COMADEF   COMADEF  SPACE  4,10                                                            COMADEF        3     A     
 COMADEF  ***       COMADEF - STRUCTURED FIELD DECLARATION MACROS.                         COMADEF        4     A     
 COMADEF  *                                                                                COMADEF        5     A     
 COMADEF  *         S. I. JASIK        73-01-00.                                           COMADEF        6     A     
 COMADEF  *         P. H. MCQUESTEN    76-12-29.                                           COMADEF        7     A     
 COMADEF  *                                                                                COMADEF        8     A     
 COMADEF  *         COPYRIGHT CONTROL DATA CORPORATION. 1976, 1977.                        COMADEF        9     A     
 COMADEF   COMADEF  SPACE  4,10                                                            COMADEF       10     A     
 COMADEF  ***              THE STRUCTURED FIELD DECLARATION MACROS PROVIDE A               COMADEF       11     A     
 COMADEF  *         FACILITY TO DEFINE SYMBOLS DESCRIBING THE POSITION AND SIZE            COMADEF       12     A     
 COMADEF  *         OF FIELDS WITHIN A WORD.                                               COMADEF       13     A     
 COMADEF  *                                                                                COMADEF       14     A     
 COMADEF  *         USERS SHOULD AVOID NAMES OF THE FORM *'?DEF#XX* WHERE *XX* IS          COMADEF       15     A     
 COMADEF  *         ANY TWO CHARACTERS.  NAMES OF THIS FORM ARE USED INTERNALLY.           COMADEF       16     A     
 COMADEF  *                                                                                COMADEF       17     A     
 COMADEF  *         ALL NUMERIC CONSTANTS GREATER THAN 7 IN THESE MACROS HAVE              COMADEF       18     A     
 COMADEF  *         AN EXPLICIT RADIX, SO THE *BASE* MODE IS IMMATERIAL.                   COMADEF       19     A     
 COMADEF  *                                                                                COMADEF       20     A     
 COMADEF  *         THIS COMMON DECK CONTAINS NO UNLABELED *ELSE* OR *ENDIF*               COMADEF       21     A     
 COMADEF  *         STATEMENTS, SO IT CAN BE ASSEMBLED CONDITIONALLY.                      COMADEF       22     A     
 COMADEF   COMADEF  SPACE  4,10                                                            COMADEF       23     A     
 COMADEF  ***              THE 'DESCRIBE' MACRO IS USED TO PROVIDE A PREFIX                COMADEF       24     A     
 COMADEF  *         FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES.                  COMADEF       25     A     
 COMADEF  *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE                 COMADEF       26     A     
 COMADEF  *         DEFINED:                                                               COMADEF       27     A     
 COMADEF  *                                                                                COMADEF       28     A     
 COMADEF  *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT            COMADEF       29     A     
 COMADEF  *                              WHICH COMPRISES THE NAMED FIELD (WITHIN           COMADEF       30     A     
 COMADEF  *                              A WORD BITS ARE NUMBERED ACCORDING TO             COMADEF       31     A     
 COMADEF  *                              THE POWER OF TWO WHICH THEY REPRESENT)            COMADEF       32     A     
 COMADEF  *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD                   COMADEF       33     A     
 COMADEF  *                                                                                COMADEF       34     A     
 COMADEF  *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-          COMADEF       35     A     
 COMADEF  *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER           COMADEF       36     A     
 COMADEF  *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.          COMADEF       37     A     
 COMADEF  *                                                                                COMADEF       38     A     
 COMADEF  *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS                  COMADEF       39     A     
 COMADEF  *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE             COMADEF       40     A     
 COMADEF  *         RIGHT OF THE PRECEDING FIELD.  A 'REDEF' MACRO IS ALSO                 COMADEF       41     A     
 COMADEF  *         PROVIDED TO DECLARE OVERLAPPING STRUCTURES, AND IS USUALLY             COMADEF       42     A     
 COMADEF  *         MORE APPROPRIATE THAN THE 'RESET' PARAMETER OF 'DEFINE'.               COMADEF       43     A     
 COMADEF   DESCRIBE SPACE  4,20                                                            COMADEF       44     A     
 COMADEF  ***       DESCRIBE - DECLARE BEGINNING OF STRUCTURE.                             COMADEF       45     A     
 COMADEF  *                                                                                COMADEF       46     A     
 COMADEF  *         DESCRIBE PFX,BITSLONG,TOPBIT,WORDNR                                    COMADEF       47     A     
 COMADEF  *                                                                                COMADEF       48     A     
 COMADEF  *         ENTRY  PFX = THE PREFIX FOR THE STRUCTURE, AS MENTIONED ABOVE.         COMADEF       49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  81    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
 COMADEF  *                BITSLONG = THE TOTAL LENGTH IN BITS OF THE STRUCTURE,           COMADEF       50     A     
 COMADEF  *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED.                   COMADEF       51     A     
 COMADEF  *                TOPBIT = THE BEGINNING (LEFTMOST) BIT OF THE STRUCTURE,         COMADEF       52     A     
 COMADEF  *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE.               COMADEF       53     A     
 COMADEF  *                WORDNR = WORD NUMBER OF THE STRUCTURE BEING DESCRIBE-D.         COMADEF       54     A     
 COMADEF  *                     ZERO IF OMITTED.  SHOULD BE OMITTED FOR                    COMADEF       55     A     
 COMADEF  *                     SINGLE-WORD STRUCTURES.                                    COMADEF       56     A     
 COMADEF                                                                                   COMADEF       57     A     
 COMADEF                                                                                   COMADEF       58     A     
 COMADEF   DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT,WORDNR                                   COMADEF       59     A     
 COMADEF   '?DEF#PX    MICRO 1,,/PREFIX/                                                   COMADEF       60     A     
 COMADEF   '?DEF#BL   SET   BITSLONG   60                                                  COMADEF       61     A     
 COMADEF   '?DEF#TB   SET   TOPBIT     '?DEF#BL-1                                          COMADEF       62     A     
 COMADEF   '?DEF#WN   SET   WORDNR     0                                                   COMADEF       63     A     
 COMADEF  *                            INITIALIZE COUNTERS.                                COMADEF       64     A     
 COMADEF   '?DEF#LI   SET   '?DEF#BL                                                       COMADEF       65     A     
 COMADEF   '?DEF#BI   SET   '?DEF#TB                                                       COMADEF       66     A     
 COMADEF            IFC    NE, WORDNR  ,1                                                  COMADEF       67     A     
 COMADEF   "'?DEF#PX"W  EQU  '?DEF#WN                                                      COMADEF       68     A     
 COMADEF   DESCRIBE ENDM                                                                   COMADEF       69     A     
 COMADEF   DEFINE   SPACE  4,20                                                            COMADEF       70     A     
 COMADEF  ***       DEFINE - DECLARE A FIELD WITHIN THE STRUCTURE.                         COMADEF       71     A     
 COMADEF  *                                                                                COMADEF       72     A     
 COMADEF  *  NAME   DEFINE LENGTH,R                                                        COMADEF       73     A     
 COMADEF  *                                                                                COMADEF       74     A     
 COMADEF  *         ENTRY  NAME = THE NAME OF THE FIELD MENTIONED ABOVE.  IF NOT           COMADEF       75     A     
 COMADEF  *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.              COMADEF       76     A     
 COMADEF  *                LENGTH = THE BIT LENGTH OF THIS FIELD (OR FILLER).              COMADEF       77     A     
 COMADEF  *                    IF OMITTED, LENGTH = ONE IS ASSUMED.                        COMADEF       78     A     
 COMADEF  *                R = IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE                COMADEF       79     A     
 COMADEF  *                    DEFINED RELATIVE TO BIT POSITION 'R' AS THE                 COMADEF       80     A     
 COMADEF  *                    TOPMOST (LEFTMOST) BIT.  THE 'REDEF' MACRO WILL             COMADEF       81     A     
 COMADEF  *                    USUALLY BE MORE APPROPRIATE, ESPECIALLY WHEN THE            COMADEF       82     A     
 COMADEF  *                    OVERLAP IS TO BEGIN AT A SYMBOLICALLY DEFINED               COMADEF       83     A     
 COMADEF  *                    POSITION.                                                   COMADEF       84     A     
 COMADEF                                                                                   COMADEF       85     A     
 COMADEF                                                                                   COMADEF       86     A     
 COMADEF            MACRO  DEFINE,N,LONG,RESET                                             COMADEF       87     A     
 COMADEF   '?DEF#LL SET   LONG  1                                                          COMADEF       88     A     
 COMADEF            IFC   NE,//RESET/,2                                                    COMADEF       89     A     
 COMADEF   '?DEF#LI SET   1000    ** KLUDGE **     '?DEF#LI-'?DEF#BI+RESET                 COMADEF       90     A     
 COMADEF   '?DEF#BI SET   RESET                                                            COMADEF       91     A     
 COMADEF  *                                                                                COMADEF       92     A     
 COMADEF            IFC   NE,  N ,1                                                        COMADEF       93     A     
 COMADEF   N        DEQU  *,'?DEF#LL,'?DEF#BI-'?DEF#LL+1                                   COMADEF       94     A     
 COMADEF  *                            ADVANCE COUNTERS, CHECK OVERFLOW.                   COMADEF       95     A     
 COMADEF   '?DEF#LI SET   '?DEF#LI-'?DEF#LL                                                COMADEF       96     A     
 COMADEF   '?DEF#BI SET   '?DEF#BI-'?DEF#LL                                                COMADEF       97     A     
 COMADEF       ERRMI '?DEF#LI    TOTAL LENGTH OF "'?DEF#PX" LONGER THAN SPECIFIED          COMADEF       98     A     
 COMADEF            IFLT  '?DEF#BI,,3                                                      COMADEF       99     A     
 COMADEF            IFNE  '?DEF#BI,-1,1                                                    COMADEF      100     A     
 COMADEF            ERR    FIELD SPANS A WORD BOUNDARY    ["SEQUENCE"]___________          COMADEF      101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  82    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
 COMADEF   '?DEF#BI SET    59                                                              COMADEF      102     A     
 COMADEF   DEFINE   ENDM                                                                   COMADEF      103     A     
 COMADEF   DEQU     SPACE  4,20                                                            COMADEF      104     A     
 COMADEF  ***       DEQU - DECLARE EQUIVALENCED FIELD.                                     COMADEF      105     A     
 COMADEF  *                                                                                COMADEF      106     A     
 COMADEF  *  NAM    DEQU   FLD,LEN                                                         COMADEF      107     A     
 COMADEF  *                                                                                COMADEF      108     A     
 COMADEF  *         ENTRY  NAM = A NEW FIELD NAME TO BE DECLARED.                          COMADEF      109     A     
 COMADEF  *                FLD = A PREVIOUSLY DEFINED FIELD IN THIS STRUCTURE.             COMADEF      110     A     
 COMADEF  *                LEN = (OPTIONAL) EXPLICIT BIT LENGTH OF NEW FIELD.              COMADEF      111     A     
 COMADEF  *                      IF 'LEN' IS OMITTED, LENGTH OF THE NEW FIELD              COMADEF      112     A     
 COMADEF  *                      WILL BE SAME AS LENGTH OF OLD FIELD.                      COMADEF      113     A     
 COMADEF                                                                                   COMADEF      114     A     
 COMADEF                                                                                   COMADEF      115     A     
 COMADEF            MACRO  DEQU,N,B,LEN,V                                                  COMADEF      116     A     
 COMADEF   '?DEF#LL SET    LEN  "'?DEF#PX"B_L                                              COMADEF      117     A     
 COMADEF   '?DEF#PP SET    V    "'?DEF#PX"B_P                                              COMADEF      118     A     
 COMADEF   "'?DEF#PX"N_P EQU  '?DEF#PP                                                     COMADEF      119     A     
 COMADEF   "'?DEF#PX"N_L EQU  '?DEF#LL                                                     COMADEF      120     A     
 COMADEF  *                            LIST FIELD MASK PRETTILY.                           COMADEF      121     A     
 COMADEF            LOC    '?DEF#WN*100B+'?DEF#PP                                          COMADEF      122     A     
 COMADEF            POS    1+'?DEF#TB                                                      COMADEF      123     A     
 COMADEF   '?DEF#BB SET    *P-'?DEF#LL-'?DEF#PP                                            COMADEF      124     A     
 COMADEF   '?DEF#DD SET    '?DEF#BL-'?DEF#LL-'?DEF#BB                                      COMADEF      125     A     
 COMADEF            VFD    '?DEF#BB/,'?DEF#LL/-0,'?DEF#DD/                                 COMADEF      126     A     
 COMADEF            ORG    *O-*P/60D                                                       COMADEF      127     A     
 COMADEF  *                            DEFINE MASK VALUE FOR SINGLE BIT FIELDS.            COMADEF      128     A     
 COMADEF            IFEQ   '?DEF#LL,1,4                                                    COMADEF      129     A     
 COMADEF            NOREF  /"QUAL"/"'?DEF#PX"N_L                                           COMADEF      130     A     
 COMADEF            IFLE   '?DEF#PP,17,2                                                   COMADEF      131     A     
 COMADEF   '?DEF#PP DECMIC '?DEF#PP                                                        COMADEF      132     A     
 COMADEF   "'?DEF#PX"N_M EQU  1S"'?DEF#PP"                                                 COMADEF      133     A     
 COMADEF            ENDM                                                                   COMADEF      134     A     
 COMADEF   REDEF    SPACE  4,10                                                            COMADEF      135     A     
 COMADEF  ***       REDEF - DECLARE OVERLAPPING SUB-STRUCTURES.                            COMADEF      136     A     
 COMADEF  *                                                                                COMADEF      137     A     
 COMADEF  *         REDEF  NAME                                                            COMADEF      138     A     
 COMADEF  *                                                                                COMADEF      139     A     
 COMADEF  *         ENTRY  NAME = THE NAME OF A PREVIOUSLY DECLARED FIELD.                 COMADEF      140     A     
 COMADEF  *                                                                                COMADEF      141     A     
 COMADEF  *         CAUSES SUBSEQUENT FIELD TO BE DEFINED BEGINNING AT THE TOP             COMADEF      142     A     
 COMADEF  *         (LEFTMOST) BIT OF FIELD 'NAME'.  IF 'NAME' IS OMITTED,                 COMADEF      143     A     
 COMADEF  *         REDEFINITION BEGINS AT THE TOP OF THE ENTIRE STRUCTURE.                COMADEF      144     A     
 COMADEF                                                                                   COMADEF      145     A     
 COMADEF                                                                                   COMADEF      146     A     
 COMADEF   REDEF    MACRO  N                                                               COMADEF      147     A     
 COMADEF            IFC    EQ, N  ,3                                                       COMADEF      148     A     
 COMADEF   '?DEF#LL SET    '?DEF#TB                                                        COMADEF      149     A     
 COMADEF   '?DEF#LI SET    '?DEF#BL                                                        COMADEF      150     A     
 COMADEF            SKIP   2                                                               COMADEF      151     A     
 COMADEF   '?DEF#LL SET    "'?DEF#PX"N_P+"'?DEF#PX"N_L-1                                   COMADEF      152     A     
 COMADEF   '?DEF#LI SET    1000  ** KLUDGE **  '?DEF#LI+'?DEF#LL-'?DEF#BI+1                COMADEF      153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  83    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
 COMADEF  *                                                                                COMADEF      154     A     
 COMADEF   '?DEF#BI SET    '?DEF#LL                                                        COMADEF      155     A     
 COMADEF            ENDM                                                                   COMADEF      156     A     
 COMADEF   EXAMPLE  SPACE  4,30                                                            COMADEF      157     A     
 COMADEF  ***       CONSIDER THE FOLLOWING EXAMPLE --                                      COMADEF      158     A     
 COMADEF  *                                                                                COMADEF      159     A     
 COMADEF  *         TABLE X      .------.-------.------.                                   COMADEF      160     A     
 COMADEF  *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE .LE. 100)          COMADEF      161     A     
 COMADEF  *                      .------.-------.------.                                   COMADEF      162     A     
 COMADEF  *                       '      '       '     '                                   COMADEF      163     A     
 COMADEF  *                      59     47      17     0                                   COMADEF      164     A     
 COMADEF  *                                                                                COMADEF      165     A     
 COMADEF  *                 OR   .------.--------------.                                   COMADEF      166     A     
 COMADEF  *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)                 COMADEF      167     A     
 COMADEF  *                      .------.--------------.                                   COMADEF      168     A     
 COMADEF  *                       '      '             '                                   COMADEF      169     A     
 COMADEF  *                      59     47             0                                   COMADEF      170     A     
 COMADEF  *                                                                                COMADEF      171     A     
 COMADEF  *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE         COMADEF      172     A     
 COMADEF  *                                  TWO CHARACTERS 'X.'                           COMADEF      173     A     
 COMADEF  *         TYPE   DEFINE  12                                                      COMADEF      174     A     
 COMADEF  *         MSG    DEFINE  48                                                      COMADEF      175     A     
 COMADEF  *                REDEF   MSG                                                     COMADEF      176     A     
 COMADEF  *         VALUE  DEFINE  30                                                      COMADEF      177     A     
 COMADEF  *         SUBV   DEFINE  18                                                      COMADEF      178     A     
 COMADEF  *                                                                                COMADEF      179     A     
 COMADEF  *       THE SYMBOLS DEFINED WOULD BE                                             COMADEF      180     A     
 COMADEF  *                                                                                COMADEF      181     A     
 COMADEF  *                X.TYPEP   EQU  48                                               COMADEF      182     A     
 COMADEF  *                X.TYPEL   EQU  12                                               COMADEF      183     A     
 COMADEF  *                X.MSGP    EQU   0                                               COMADEF      184     A     
 COMADEF  *                X.MSGL    EQU  48                                               COMADEF      185     A     
 COMADEF  *                X.VALUEP  EQU  18                                               COMADEF      186     A     
 COMADEF  *                X.VALUEL  EQU  30                                               COMADEF      187     A     
 COMADEF  *                X.SUBVP   EQU   0                                               COMADEF      188     A     
 COMADEF  *                X.SUBVL   EQU  18                                               COMADEF      189     A     
 COMADEF   BFLIT    SPACE  4,10                                                            COMADEF      190     A     
 COMADEF  ***       BFLIT - CREATE BIT FIELD MASK LITERAL.                                 COMADEF      191     A     
 COMADEF  *                                                                                COMADEF      192     A     
 COMADEF  * LOC     BFLIT  PFX,(FIELD1,FIELD2,...,FIELDN)                                  COMADEF      193     A     
 COMADEF  *                                                                                COMADEF      194     A     
 COMADEF  *         SEE *BFMIC* FOR PARAMETERS.                                            COMADEF      195     A     
 COMADEF                                                                                   COMADEF      196     A     
 COMADEF                                                                                   COMADEF      197     A     
 COMADEF            MACRO  BFLIT,LOC,PFX,BITS                                              COMADEF      198     A     
 COMADEF   '?DEF#TT BFMIC  PFX,(BITS)                                                      COMADEF      199     A     
 COMADEF   LOC      LIT    "'?DEF#TT"                                                      COMADEF      200     A     
 COMADEF            ENDM                                                                   COMADEF      201     A     
 COMADEF   BFMIC    SPACE  4,20                                                            COMADEF      202     A     
 COMADEF  ***       BFMIC - CREATE BIT FIELD MASK MICRO.                                   COMADEF      203     A     
 COMADEF  *                                                                                COMADEF      204     A     
 COMADEF  * LOC     BFMIC  PFX,(FIELD1,FIELD2,...,FIELDN)                                  COMADEF      205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  84    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
 COMADEF  *                                                                                COMADEF      206     A     
 COMADEF  *         ENTRY  LOC = NAME OF THE MICRO TO BE CREATED.                          COMADEF      207     A     
 COMADEF  *                PFX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.               COMADEF      208     A     
 COMADEF  *                FIELD(I) = SYMBOLIC NAMES OF FIELDS TO BE SET.                  COMADEF      209     A     
 COMADEF  *         EXIT   LOC = MICRO CONTAINING THE 20-OCTAL DIGIT VALUE                 COMADEF      210     A     
 COMADEF  *                            (WITH *B* SUFFIX PRESENT).                          COMADEF      211     A     
 COMADEF  *                                                                                COMADEF      212     A     
 COMADEF  *         GENERATES A MICRO WITH 1-BITS IN SPECIFIED FIELDS, AND 0-BITS          COMADEF      213     A     
 COMADEF  *         ELSEWHERE.  THE DESIGNATED FIELDS MUST HAVE BEEN DECLARED VIA          COMADEF      214     A     
 COMADEF  *         DESCRIBE/DEFINE.                                                       COMADEF      215     A     
 COMADEF                                                                                   COMADEF      216     A     
 COMADEF                                                                                   COMADEF      217     A     
 COMADEF            MACRO  BFMIC,LOC,PFX,FLD                                               COMADEF      218     A     
 COMADEF   '?DEF#CC MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000         COMADEF      219     A     
 COMADEF  ,00000_0000000000                                                                COMADEF      220     A     
 COMADEF  *                                                                                COMADEF      221     A     
 COMADEF            IRP    FLD                                                             COMADEF      222     A     
 COMADEF  *                            NUMBER OF BITS IN THIS FIELD                        COMADEF      223     A     
 COMADEF   '?DEF#LL SET    PFX.FLD_L                                                       COMADEF      224     A     
 COMADEF   '?DEF#11 MICRO  1,'?DEF#LL, 1111111111_1111111111_1111111111_1111111111         COMADEF      225     A     
 COMADEF  ,_1111111111_1111111111                                                          COMADEF      226     A     
 COMADEF  *                            EXTRACT TRAILING BITS                               COMADEF      227     A     
 COMADEF   '?DEF#BB MICRO  61-PFX.FLD_P,,/"'?DEF#CC" /                                     COMADEF      228     A     
 COMADEF  *                            EXTRACT LEADING BITS                                COMADEF      229     A     
 COMADEF   '?DEF#DD MICRO                                                                  COMADEF      230     A     
 COMADEF            IFNE   60-PFX.FLD_P-'?DEF#LL,,1                                        COMADEF      231     A     
 COMADEF   '?DEF#DD MICRO  1,60-PFX.FLD_P-'?DEF#LL, "'?DEF#CC"                             COMADEF      232     A     
 COMADEF  *                                                                                COMADEF      233     A     
 COMADEF  *                            MERGE NEW PIECES                                    COMADEF      234     A     
 COMADEF   '?DEF#CC MICRO  1,60, "'?DEF#DD""'?DEF#11""'?DEF#BB"                            COMADEF      235     A     
 COMADEF            IRP                                                                    COMADEF      236     A     
 COMADEF  *                            CONVERT BINARY TO OCTAL                             COMADEF      237     A     
 COMADEF   LOC       MICRO                                                                 COMADEF      238     A     
 COMADEF   '?DEF#EE  SET                                                                   COMADEF      239     A     
 COMADEF   '?DEF#.1  DUP   60D/3                                                           COMADEF      240     A     
 COMADEF   '?DEF#EE SET    1+'?DEF#EE                                                      COMADEF      241     A     
 COMADEF   '?DEF#FF MICRO  3*'?DEF#EE-2,1, "'?DEF#CC"                                      COMADEF      242     A     
 COMADEF   '?DEF#GG MICRO  3*'?DEF#EE-1,1, "'?DEF#CC"                                      COMADEF      243     A     
 COMADEF   '?DEF#HH MICRO  3*'?DEF#EE-0,1, "'?DEF#CC"                                      COMADEF      244     A     
 COMADEF   '?DEF#HH OCTMIC "'?DEF#FF"*4+"'?DEF#GG"*2+"'?DEF#HH",1                          COMADEF      245     A     
 COMADEF   LOC      MICRO  1,, "LOC""'?DEF#HH"                                             COMADEF      246     A     
 COMADEF   '?DEF#.1 ENDD                                                                   COMADEF      247     A     
 COMADEF  *                                                                                COMADEF      248     A     
 COMADEF   LOC      MICRO  1,, "LOC"B                                                      COMADEF      249     A     
 COMADEF   BFMIC    ENDM                                                                   COMADEF      250     A     
 COMADEF   BMFW     SPACE  4,20                                                            COMADEF      251     A     
 COMADEF  ***       BFMW - CREATE A BIT FIELD MASK WORD.                                   COMADEF      252     A     
 COMADEF  *                                                                                COMADEF      253     A     
 COMADEF  * LAB     BFMW   PREFIX,(BITLIST),SHFT                                           COMADEF      254     A     
 COMADEF  *                                                                                COMADEF      255     A     
 COMADEF  *         ENTRY  PREFIX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.            COMADEF      256     A     
 COMADEF  *                BITLIST = LIST OF BIT FIELDS TO APPEAR IN MASK.                 COMADEF      257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  85    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMADEF 
  
 COMADEF  *                SHFT = AMOUNT BY WHICH WORD IN REGISTERS HAS ALREADY            COMADEF      258     A     
 COMADEF  *                       BEEN SHIFTED.                                            COMADEF      259     A     
 COMADEF                                                                                   COMADEF      260     A     
 COMADEF                                                                                   COMADEF      261     A     
 COMADEF            MACRO  BFMW,LAB,PR,BIT,SHFT                                            COMADEF      262     A     
 COMADEF   LAB      BSS                                                                    COMADEF      263     A     
 COMADEF   '?DEF#ZZ  SET                                                                   COMADEF      264     A     
 COMADEF            IRP    BIT                                                             COMADEF      265     A     
 COMADEF   '?DEF#PP  SET   PR.BIT_P+PR.BIT_L+SHFT                                          COMADEF      266     A     
 COMADEF            IFGT  '?DEF#PP,60,1                                                    COMADEF      267     A     
 COMADEF   '?DEF#PP  SET   '?DEF#PP-60                                                     COMADEF      268     A     
 COMADEF            IFNE  '?DEF#PP,PR.BIT_L,3                                              COMADEF      269     A     
 COMADEF            POS   '?DEF#PP                                                         COMADEF      270     A     
 COMADEF            VFD    PR.BIT_L/-0                                                     COMADEF      271     A     
 COMADEF            SKIP  1                                                                COMADEF      272     A     
 COMADEF   '?DEF#ZZ   SET   '?DEF#PP                                                       COMADEF      273     A     
 COMADEF            IRP                                                                    COMADEF      274     A     
 COMADEF  *                                                                                COMADEF      275     A     
 COMADEF            IFNE  '?DEF#ZZ,0,3                                                     COMADEF      276     A     
 COMADEF            POS   '?DEF#ZZ                                                         COMADEF      277     A     
 COMADEF            VFD   '?DEF#ZZ/-0                                                      COMADEF      278     A     
 COMADEF            SKIP   1                                                               COMADEF      279     A     
 COMADEF            VFD    *P/0                                                            COMADEF      280     A     
 COMADEF  *                                                                                COMADEF      281     A     
 COMADEF            ENDM                                                                   COMADEF      282     A     
 COMADEF                                                                                   COMADEF      283     A     
 COMADEF                                                                                   COMADEF      284     A     
 COMADEF   COMADEF  ENDX                                                                   COMADEF      285     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMADEF 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMADEF                    285       285
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAERR 
  
 COMAERR  *COMDECK  COMAERR            ERROR MACROS                                        COMAERR        1     A     
 COMAERR            CTEXT  COMAERR - ERROR MACROS.                                         COMAERR        2     A     
 COMAERR   COMAERR  SPACE  4,10                                                            COMAERR        3     A     
 COMAERR  ***       DIAGNOSTICS SECTION OF COMPILER.                                       COMAERR        4     A     
 COMAERR  *                                                                                COMAERR        5     A     
 COMAERR  *         GENERAL DISCUSSION OF DIAGNOSTICS --                                   COMAERR        6     A     
 COMAERR  *                                                                                COMAERR        7     A     
 COMAERR  *         ALL DIAGNOSTICS FOR SOURCE FORTRAN MUST BE CONTAINED WITHIN            COMAERR        8     A     
 COMAERR  *         THIS SECTION OF THE COMPILER. WHEN A NEW DIAGNOSTIC IS TO BE           COMAERR        9     A     
 COMAERR  *         ADDED THE FOLLOWING GENERAL RULES MUST BE ADHERED TO --                COMAERR       10     A     
 COMAERR  *         1.  ALL DIAGNOSTICS MUST START WITH  E.XXX                             COMAERR       11     A     
 COMAERR  *                                                                                COMAERR       12     A     
 COMAERR  *             WHERE XXX HAS SOME MEANING AS TO THE SECTION WHERE THE             COMAERR       13     A     
 COMAERR  *             ERROR WAS DETECTED.                                                COMAERR       14     A     
 COMAERR  *                                                                                COMAERR       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  86    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAERR 
  
 COMAERR  *         2.  ANY DIAGNOSTIC THAT USES A FILL. AND DOES NOT PRESET IT TO         COMAERR       16     A     
 COMAERR  *             INTERNAL FORM MUST HAVE EITHER *S* OR *V* AS THE SECOND            COMAERR       17     A     
 COMAERR  *             CHARACTER SPECIFIED IN THE DIAGNOSTIC DEFINITION.                  COMAERR       18     A     
 COMAERR  *                *S* FORM = FILL. IS ALREADY IN 0L FORM.                         COMAERR       19     A     
 COMAERR  *                *V* FORM = FILL. SHOULD BE FORMED FROM *SB* STARTING            COMAERR       20     A     
 COMAERR  *                           AT B4.                                               COMAERR       21     A     
 COMAERR  *                                                                                COMAERR       22     A     
 COMAERR  *         3.  ALL *ANSI* DIAGNOSTICS SHOULD USE *ANSI* MACRO TO OUTPUT           COMAERR       23     A     
 COMAERR  *             GIVEN ANSI ERROR. (THIS WILL IMPROVE THE SPEED OF                  COMAERR       24     A     
 COMAERR  *             COMPILATION WHEN *ANSI* ERRORS ARE NOT REQUESTED.)                 COMAERR       25     A     
 COMAERR  *                                                                                COMAERR       26     A     
 COMAERR  *         4.  ALL COLON/SEMICOLON BREAKS IN DIAGNOSTICS MUST USE *--*            COMAERR       27     A     
 COMAERR  *             TO REPRESENT BREAK.                                                COMAERR       28     A     
 COMAERR  *                                                                                COMAERR       29     A     
 COMAERR  *         5.  DIAGNOSTICS MAY BE ANY OF THE FOLLOWING TYPES                      COMAERR       30     A     
 COMAERR  *            (ONLY THE FIRST CHARACTER OF TYPE IS USED...)                       COMAERR       31     A     
 COMAERR  *                                                                                COMAERR       32     A     
 COMAERR  *            A - ANSI.  USAGE DOES NOT CONFORM TO AMERICAN NATIONAL              COMAERR       33     A     
 COMAERR  *                STANDARD FORTRAN, X3J3/90-1977.                                 COMAERR       34     A     
 COMAERR  *                                                                                COMAERR       35     A     
 COMAERR  *            C - CONTINUATION.  THIS IS A CONTINUATION OF A PREVIOUS             COMAERR       36     A     
 COMAERR  *                DIAGNOSTIC.  IT WILL GET PRINTED OR NOT ACCORDING TO            COMAERR       37     A     
 COMAERR  *                WHETHER THE PREVIOUS ERROR WAS SELECTED.                        COMAERR       38     A     
 COMAERR                                                                                   COMAERR       39     A     
 COMAERR  *            D - DEBUG.  INFORMATIVE FOR MAINTENANCE.  TEST MODE ONLY.           COMAERR       40     A     
 COMAERR  *                                                                                COMAERR       41     A     
 COMAERR  *            F - FATAL.  FATAL TO EXECUATION.  INHIBITS BINARY OUTPUT.           COMAERR       42     A     
 COMAERR  *                                                                                COMAERR       43     A     
 COMAERR  *            K - CATASTROPHIC.  FATAL TO COMPILATION.  RESUME WITH NEXT          COMAERR       44     A     
 COMAERR  *                PROGRAM UNIT.                                                   COMAERR       45     A     
 COMAERR  *                                                                                COMAERR       46     A     
 COMAERR  *            T - TRIVIAL.  NO ACTUAL VIOLATION OF THE LANGUAGE, BUT THE          COMAERR       47     A     
 COMAERR  *                STATEMENT SO FLAGGED MAY RESULT IN NO ACTION.  (E.G.,           COMAERR       48     A     
 COMAERR  *                NULL TRANSFERS)                                                 COMAERR       49     A     
 COMAERR  *                                                                                COMAERR       50     A     
 COMAERR  *            W - WARNING.  A MORE SEVERE ERROR THAN TRIVIAL.  LANGUAGE           COMAERR       51     A     
 COMAERR  *                MAY HAVE BEEN VIOLATED, BUT COMPILER COULD FIGURE OUT           COMAERR       52     A     
 COMAERR  *                WHAT WAS INTENDED.                                              COMAERR       53     A     
 COMAERR   LIMITS   SPACE  4,20                                                            COMAERR       54     A     
 COMAERR  ***       ------    LIMITATIONS ON DIAGNOSTICS    ------                         COMAERR       55     A     
 COMAERR  *                                                                                COMAERR       56     A     
 COMAERR  *                                                                                COMAERR       57     A     
 COMAERR  *         1.  NO DIAGNOSTIC MAY EXCEED 16 WORDS, NOR MAY IT BE TOO LONG          COMAERR       58     A     
 COMAERR  *             TO FIT ON ONE TTY LINE (UP TO 72 CHARACTERS MAY BE LISTED)         COMAERR       59     A     
 COMAERR  *                                                                                COMAERR       60     A     
 COMAERR  *         2.  NO DIAGNOSTIC MAY USE A COLON.                                     COMAERR       61     A     
 COMAERR  *                                                                                COMAERR       62     A     
 COMAERR  *         3.  NUMBER OF WORDS IN DICTIONARY MUST NOT EXCEED                      COMAERR       63     A     
 COMAERR  *             512 WORDS.                                                         COMAERR       64     A     
 COMAERR  *                                                                                COMAERR       65     A     
 COMAERR  *         4.  NO DIAGNOSTIC MAY USE A SPECIAL CHARACTER > 65B DPC AS THE         COMAERR       66     A     
 COMAERR  *             LAST CHARACTER IN A 10H WORD.                                      COMAERR       67     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  87    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAERR 
  
 COMAERR  *                                                                                COMAERR       68     A     
 COMAERR  *         5.  SPECIAL CARE SHOULD BE USED WHEN A WORD IN THE ERROR               COMAERR       69     A     
 COMAERR  *             MESSAGE CONTAINS EITHER A *(* OR *)*.                              COMAERR       70     A     
 COMAERR   ERFMT    SPACE  4,30                                                            COMAERR       71     A     
 COMAERR  **               THE N-WORD FORMAT IS --                                         COMAERR       72     A     
 COMAERR  *                                                                                COMAERR       73     A     
 COMAERR  **T  FIRST    9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,5/ERTYP,1/M,18/ERXIT               COMAERR       74     A     
 COMAERR  **T  REST     9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,9/ERWD5,9/ERWD6,5/0,1/M            COMAERR       75     A     
 COMAERR  *                                                                                COMAERR       76     A     
 COMAERR  *         ERWD(I) = DICTIONARY ORDINAL OF THE TEXT WORD.  A ZERO ORDINAL         COMAERR       77     A     
 COMAERR  *                INDICATES THE END OF THE MESSAGE.                               COMAERR       78     A     
 COMAERR  *         ERTYPE = ORDINAL OF THE ERROR-TYPE-SELECTION SWITCH.  DEFINED          COMAERR       79     A     
 COMAERR  *                BY THE *ERRTYP* MACRO, AND LINKED TO BY *ERROR* MACRO.          COMAERR       80     A     
 COMAERR  *                *PEM* WILL LIST THIS ERROR IF THE CELL POINTED TO BY            COMAERR       81     A     
 COMAERR  *                THE INDICATED SWITCH IS NEGATIVE.                               COMAERR       82     A     
 COMAERR  *         M    = IF SET, MORE SKELETON WORDS FOLLOW.                             COMAERR       83     A     
 COMAERR  *                IF CLEAR, THE MESSAGE IS OVER.                                  COMAERR       84     A     
 COMAERR  *         ERXIT = IF POSITIVE, ADDRESS TO RETURN TO AFTER PROCESSING.            COMAERR       85     A     
 COMAERR  *                 IF NEGATIVE, EXIT IS TO *PWE1*, AND (ERXIT)-4S15 IS            COMAERR       86     A     
 COMAERR  *                THE SPECIAL FORMATTING ADDRESS.                                 COMAERR       87     A     
 COMAERR  *                                                                                COMAERR       88     A     
 COMAERR  *         THE LAST CHARACTER OF EACH WORD IN THE DICTIONARY INDICATES            COMAERR       89     A     
 COMAERR  *         HOW MANY CHARACTERS ARE IN THAT WORD.  THIS IS DONE SO *PEM*           COMAERR       90     A     
 COMAERR  *         DOES NOT HAVE TO LOOP ON EACH CHARACTER.  IF THE WORD CONTAINS         COMAERR       91     A     
 COMAERR  *         TEN CHARACTERS, THE LAST CHARACTER IS UNMODIFIED.  IF THE WORD         COMAERR       92     A     
 COMAERR  *         CONTAINS FEWER THAN TEN CHARACTERS, THE LAST CHARACTER IS SET          COMAERR       93     A     
 COMAERR  *         = DT.BIAS + (LENGTH OF WORD).  THE *ERROR* AND *ERRLIT* MACROS         COMAERR       94     A     
 COMAERR  *         CREATE SUCH WORDS, AND PUT THEM IN THE LITERAL POOL.  THUS,            COMAERR       95     A     
 COMAERR  *         THE ASSEMBLER ELIMINATES DUPLICATES AUTOMATICALLY.                     COMAERR       96     A     
 COMAERR  *                                                                                COMAERR       97     A     
 COMAERR  *         IF THE ERROR MESSAGE WORD IS .GT. 10 CHARACTERS THE DICTIONARY         COMAERR       98     A     
 COMAERR  *         WORD WILL CONTAIN 9 CHARACTERS FOLLOWED BY A COLON AND THE             COMAERR       99     A     
 COMAERR  *         MESSAGE WORD WILL BE CONTINUED INTO THE NEXT DICTIONARY WORD.          COMAERR      100     A     
 COMAERR   ERROR    SPACE  4,15                                                            COMAERR      101     A     
 COMAERR  **        ERROR - MACRO TO DEFINE ERROR MESSAGES.                                COMAERR      102     A     
 COMAERR  *                                                                                COMAERR      103     A     
 COMAERR  *         ALL ERROR MESSAGES MUST BE DEFINED BY THIS MACRO.                      COMAERR      104     A     
 COMAERR  *         TRANSLATES THE DIAGNOSTIC TEXT INTO THE FORM DISCUSSED ABOVE,          COMAERR      105     A     
 COMAERR  *         WHILE GENERATING A DICTIONARY OF LITERALS.                             COMAERR      106     A     
 COMAERR  *                                                                                COMAERR      107     A     
 COMAERR  *                                                                                COMAERR      108     A     
 COMAERR  * LOC     ERROR  TYPE,EXIT,(TEXT)                                                COMAERR      109     A     
 COMAERR  *                                                                                COMAERR      110     A     
 COMAERR  *         TYPE   =  ONE OR TWO CHARACTER ERROR-TYPE INDICATOR.                   COMAERR      111     A     
 COMAERR  *                1.  FIRST CHARACTER DESCRIBES THE SEVERITY OF THE               COMAERR      112     A     
 COMAERR  *                    ERROR -- VALID CHARACTERS ARE DEFINED BY *ERRTYP*           COMAERR      113     A     
 COMAERR  *                    MACRO, Q.V.                                                 COMAERR      114     A     
 COMAERR  *                2.  SECOND CHARACTER SELECTS SPECIAL FILL. FORMATTING           COMAERR      115     A     
 COMAERR  *                    BY THE ERROR PROCESSOR.  SEE *PEM* FOR DETAILS.             COMAERR      116     A     
 COMAERR  *                                                                                COMAERR      117     A     
 COMAERR  *         EXIT   =  ADDRESS TO RETURN TO AFTER PRINTING THE DIAGNOSTIC.          COMAERR      118     A     
 COMAERR  *                IF IT IS "*" (STAR, 46B DPC), THEN CONTROL RETURNS TO           COMAERR      119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  88    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAERR 
  
 COMAERR  *                CALLER, AND ERROR MUST BE REFERENCED BY ANSI, FATAL,            COMAERR      120     A     
 COMAERR  *                NOTE, OR WARN MACRO.                                            COMAERR      121     A     
 COMAERR  *                OTHERWISE, IT IS SIMPLY THE ADDRESS TO RETURN TO AFTER          COMAERR      122     A     
 COMAERR  *                PROCESSING THE ERROR.                                           COMAERR      123     A     
 COMAERR  *                                                                                COMAERR      124     A     
 COMAERR  *         TEXT   =  FROM ONE TO 16 WORDS OF TEXT.  WORDS ARE SEPARATED           COMAERR      125     A     
 COMAERR  *                BY BLANKS.  NO WORD MAY CONTAIN A NEGATION (^ 76B), OR          COMAERR      126     A     
 COMAERR  *                SEMI-COLON (; 77B).  THE TENTH CHARACTER OF A WORD MAY          COMAERR      127     A     
 COMAERR  *                NOT BE A CHARACTER WITH DPC .GE.65B NOR MAY IT BE A             COMAERR      128     A     
 COMAERR  *                COLON.                                                          COMAERR      129     A     
 COMAERR                                                                                   COMAERR      130     A     
 COMAERR                                                                                   COMAERR      131     A     
 COMAERR            MACRO  ERROR,LOC,TYPE,EXIT,MSG                                         COMAERR      132     A     
 COMAERR  *                                                                                COMAERR      133     A     
 COMAERR  *                DETERMINE (A)  SPECIAL FORMATTING, AND (B) SEVERITY.            COMAERR      134     A     
 COMAERR  *                                                                                COMAERR      135     A     
 COMAERR   A        MICRO  2,1,/TYPE/                                                      COMAERR      136     A     
 COMAERR   B        MICRO  1,1, TYPE                                                       COMAERR      137     A     
 COMAERR  *                                                                                COMAERR      138     A     
 COMAERR  *                SET UP (LOC) CALLING STYLE, AND (X) EXIT ADDRESS.               COMAERR      139     A     
 COMAERR  *                                                                                COMAERR      140     A     
 COMAERR            ENTRY  LOC                                                             COMAERR      141     A     
 COMAERR  .3        IFC    EQ, EXIT *                                                      COMAERR      142     A     
 COMAERR   LOC      EQU    DT.NEXT                                                         COMAERR      143     A     
 COMAERR   X        MICRO  1,, =XPEM"A"+4S15                                               COMAERR      144     A     
 COMAERR  .3        ELSE                                                                   COMAERR      145     A     
 COMAERR   LOC      SB7    DT.NEXT                                                         COMAERR      146     A     
 COMAERR            EQ     =XPEM"A"                                                        COMAERR      147     A     
 COMAERR   X        MICRO  1,, =X_EXIT                                                     COMAERR      148     A     
 COMAERR  .3        ENDIF                                                                  COMAERR      149     A     
 COMAERR  *                                                                                COMAERR      150     A     
 COMAERR            USE    FORMAT.                                                         COMAERR      151     A     
 COMAERR   T        MICRO  1,,^_MSG_^                                                      COMAERR      152     A     
 COMAERR  *                                                                                COMAERR      153     A     
 COMAERR  *                DUP THRU THE MESSAGE FOR EACH WORD.                             COMAERR      154     A     
 COMAERR  *                                                                                COMAERR      155     A     
 COMAERR   L        SET    0                                                               COMAERR      156     A     
 COMAERR   U        MICRO  1,,                                                             COMAERR      157     A     
 COMAERR  .1        DUP    16                                                              COMAERR      158     A     
 COMAERR   L        SET    L+1                                                             COMAERR      159     A     
 COMAERR   .2       IFC    NE,^^"T"^                                                       COMAERR      160     A     
 COMAERR            IFC    EQ,/"U"//,2                                                     COMAERR      161     A     
 COMAERR   S        MICRO  1,, "T"                                                         COMAERR      162     A     
 COMAERR            SKIP   2                                                               COMAERR      163     A     
 COMAERR   S        MICRO  1,, "U"                                                         COMAERR      164     A     
 COMAERR   U        MICRO  1,,                                                             COMAERR      165     A     
 COMAERR            ERRMIC S                                                               COMAERR      166     A     
 COMAERR            IFEQ   L,5,1                                                           COMAERR      167     A     
 COMAERR            VFD    L=ERTYPE/=XERR."B",1/1,L=ERXIT/"X"                              COMAERR      168     A     
 COMAERR            IFEQ   L,11,1                                                          COMAERR      169     A     
 COMAERR            VFD    L=ERMORE/0,1/1                                                  COMAERR      170     A     
 COMAERR            VFD    L=ERWORD/1-DICT+=10H"S""A"                                      COMAERR      171     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  89    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAERR 
  
 COMAERR   .2       ELSE   1                                                               COMAERR      172     A     
 COMAERR            STOPDUP                                                                COMAERR      173     A     
 COMAERR  .1        ENDD                                                                   COMAERR      174     A     
 COMAERR  .4        IFC    NE,^^"T"^                                                       COMAERR      175     A     
 COMAERR   4        ERR    LOC  -- TOO MANY WORDS IN TEXT -- TRUNCATED AFTER               COMAERR      176     A     
 COMAERR  ,                            ("T")                                               COMAERR      177     A     
 COMAERR  .4        ENDIF                                                                  COMAERR      178     A     
 COMAERR  *                                                                                COMAERR      179     A     
 COMAERR  *                WRAP UP, AND BIND OFF THE SKELETON.                             COMAERR      180     A     
 COMAERR  *                                                                                COMAERR      181     A     
 COMAERR  .6        IFEQ   *,DT.NEXT                                                       COMAERR      182     A     
 COMAERR            POS    P=ERTYPE                                                        COMAERR      183     A     
 COMAERR            VFD    L=ERTYPE/=XERR."B",1/0,L=ERXIT/"X"                              COMAERR      184     A     
 COMAERR  .6        ELSE   1                                                               COMAERR      185     A     
 COMAERR            POS    0                                                               COMAERR      186     A     
 COMAERR   DT.NEXT  SET    *                                                               COMAERR      187     A     
 COMAERR            USE    *                                                               COMAERR      188     A     
 COMAERR            ENDM                                                                   COMAERR      189     A     
 COMAERR                                                                                   COMAERR      190     A     
 COMAERR                                                                                   COMAERR      191     A     
 COMAERR   ERRMIC   MACRO  S                                                               COMAERR      192     A     
 COMAERR   K        MICCNT S                                                               COMAERR      193     A     
 COMAERR            IFGT   K,10,5                                                          COMAERR      194     A     
 COMAERR   U        MICRO  10,, "S"                                                        COMAERR      195     A     
 COMAERR   S        MICRO  1,9, "S"                                                        COMAERR      196     A     
 COMAERR   A        MICRO  1,1,/:/                                                         COMAERR      197     A     
 COMAERR   K        SET    8                                                               COMAERR      198     A     
 COMAERR            SKIP   3                                                               COMAERR      199     A     
 COMAERR            IFLT   K,9,1                                                           COMAERR      200     A     
 COMAERR   S        MICRO  1,9,^"S"        ^                                               COMAERR      201     A     
 COMAERR   A        MICRO  K,1,/!&'?<>@\^ /                                                COMAERR      202     A     
 COMAERR   T        MICRO  K+2,,^"T"^                                                      COMAERR      203     A     
 COMAERR   ERRMIC   ENDM                                                                   COMAERR      204     A     
 COMAERR                                                                                   COMAERR      205     A     
 COMAERR                                                                                   COMAERR      206     A     
 COMAERR   DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC                    COMAERR      207     A     
 COMAERR   ERRLIT   SPACE  4,8                                                             COMAERR      208     A     
 COMAERR  **        ERRLIT - MACRO TO GENERATE A LITERAL OF PROPER FORM FOR ERROR          COMAERR      209     A     
 COMAERR  *                MESSAGE PROCESSOR.                                              COMAERR      210     A     
 COMAERR  *                                                                                COMAERR      211     A     
 COMAERR  *         ERRLIT WORD                                                            COMAERR      212     A     
 COMAERR                                                                                   COMAERR      213     A     
 COMAERR                                                                                   COMAERR      214     A     
 COMAERR            MACRO  ERRLIT,LOC,WORD                                                 COMAERR      215     A     
 COMAERR   S        MICRO  1,,^_WORD_^                                                     COMAERR      216     A     
 COMAERR            ERRMIC S                                                               COMAERR      217     A     
 COMAERR   LOC      LIT    10H"S""A"                                                       COMAERR      218     A     
 COMAERR            IFC    NE,/LOC//,1                                                     COMAERR      219     A     
 COMAERR            ENTRY  LOC                                                             COMAERR      220     A     
 COMAERR   ERRLIT   ENDM                                                                   COMAERR      221     A     
 COMAERR                                                                                   COMAERR      222     A     
 COMAERR                                                                                   COMAERR      223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  90    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAERR 
  
 COMAERR            USE    FORMAT.                                                         COMAERR      224     A     
 COMAERR   DT.NEXT  SET    *                                                               COMAERR      225     A     
 COMAERR            USE    *                                                               COMAERR      226     A     
 COMAERR            NOREF  DT.NEXT                                                         COMAERR      227     A     
 COMAERR   DICT     SPACE  4,8                                                             COMAERR      228     A     
 COMAERR  **        DICT - THESE MUST BE THE FIRST LITERALS IN THE (1,0) OVERLAY.          COMAERR      229     A     
 COMAERR  *         THESE LITERALS ARE USED BY ERROR PROCESSING ROUTINES.                  COMAERR      230     A     
 COMAERR                                                                                   COMAERR      231     A     
 COMAERR   T        MICRO  1,,                                                             COMAERR      232     A     
 COMAERR                                                                                   COMAERR      233     A     
 COMAERR            ENTRY  DICT,FILL.,FILL.2,FILL.3,L.FILL                                 COMAERR      234     A     
 COMAERR   DICT     LIT    1H          BASE ADDRESS OF LITERALS                            COMAERR      235     A     
 COMAERR            NOREF  DICT                                                            COMAERR      236     A     
 COMAERR                                                                                   COMAERR      237     A     
 COMAERR   FILL.    ERRLIT FILL.       THESE ARE FOR MESSAGE FILL-INS                      COMAERR      238     A     
 COMAERR   FILL.2   ERRLIT FILL.2                                                          COMAERR      239     A     
 COMAERR   FILL.3   ERRLIT FILL.3                                                          COMAERR      240     A     
 COMAERR   L.FILL   EQU    FILL.3-FILL.+1 LENGTH OF FILL. REGION FOR PEMS.                 COMAERR      241     A     
 COMAERR   COMAERR  ENDX                                                                   COMAERR      242     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMAERR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMAERR                    242       242
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM  *COMDECK  COMAMGM - MORE (LESS) GENERAL MACROS.                                  COMAMGM        1     A     
 COMAMGM            CTEXT  COMAMGM - MORE (LESS) GENERAL MACROS.                           COMAMGM        2     A     
 COMAMGM   COMAMGM  SPACE  4,10                                                            COMAMGM        3     A     
 COMAMGM  **        COMAMGM - MORE (LESS) GENERAL MACROS.                                  COMAMGM        4     A     
 COMAMGM  *                                                                                COMAMGM        5     A     
 COMAMGM  *         FTN 5 PROJECT.     77/06/29.                                           COMAMGM        6     A     
 COMAMGM  *                                                                                COMAMGM        7     A     
 COMAMGM  *         COPYRIGHT CONTROL DATA CORPORATION. 1977.                              COMAMGM        8     A     
 COMAMGM   COMAMGM  SPACE  4,10                                                            COMAMGM        9     A     
 COMAMGM  ***       THE MORE (LESS) GENERAL MACROS PROVIDE THE USER WITH                   COMAMGM       10     A     
 COMAMGM  *         MACROS WHICH ARE LESS COMMONLY USED THAN THOSE IN                      COMAMGM       11     A     
 COMAMGM  *         COMDECK *COMACPU*.                                                     COMAMGM       12     A     
 COMAMGM   BSSENT   SPACE  4,8                                                             COMAMGM       13     A     
 COMAMGM  **        BSSENT - DEFINE A BSS ENTRY POINT.                                     COMAMGM       14     A     
 COMAMGM  *                                                                                COMAMGM       15     A     
 COMAMGM  * SYM     BSSENT AEXP                                                            COMAMGM       16     A     
 COMAMGM  *                                                                                COMAMGM       17     A     
 COMAMGM  *         ENTRY  *SYM* = ENTRY POINT NAME.                                       COMAMGM       18     A     
 COMAMGM  *                *AEXP* = NUMBER OF WORDS TO RESERVE.                            COMAMGM       19     A     
 COMAMGM                                                                                   COMAMGM       20     A     
 COMAMGM                                                                                   COMAMGM       21     A     
 COMAMGM            PURGMAC BSSENT                                                         COMAMGM       22     A     
 COMAMGM                                                                                   COMAMGM       23     A     
 COMAMGM            MACRO  BSSENT,S,A                                                      COMAMGM       24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  91    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM   S BSS A                                                                         COMAMGM       25     A     
 COMAMGM    ENTRY S                                                                        COMAMGM       26     A     
 COMAMGM    ENDM                                                                           COMAMGM       27     A     
 COMAMGM   BSZENT   SPACE  4,8                                                             COMAMGM       28     A     
 COMAMGM  **        BSZENT - DEFINE A BSSZ ENTRY POINT.                                    COMAMGM       29     A     
 COMAMGM  *                                                                                COMAMGM       30     A     
 COMAMGM  * SYM     BSZENT AEXP                                                            COMAMGM       31     A     
 COMAMGM  *                                                                                COMAMGM       32     A     
 COMAMGM  *         ENTRY  *SYM* = ENTRY POINT NAME.                                       COMAMGM       33     A     
 COMAMGM  *                *AEXP* = NUMBER OF ZERO WORDS TO RESERVE.                       COMAMGM       34     A     
 COMAMGM                                                                                   COMAMGM       35     A     
 COMAMGM                                                                                   COMAMGM       36     A     
 COMAMGM            PURGMAC BSZENT                                                         COMAMGM       37     A     
 COMAMGM                                                                                   COMAMGM       38     A     
 COMAMGM            MACRO  BSZENT,S,A                                                      COMAMGM       39     A     
 COMAMGM   S BSSZ A                                                                        COMAMGM       40     A     
 COMAMGM    ENTRY S                                                                        COMAMGM       41     A     
 COMAMGM    ENDM                                                                           COMAMGM       42     A     
 COMAMGM   CALL     SPACE  4,8                                                             COMAMGM       43     A     
 COMAMGM  **        CALL - CALL A ROUTINE.                                                 COMAMGM       44     A     
 COMAMGM  *                                                                                COMAMGM       45     A     
 COMAMGM  *         GENERATES--    RJ  =X*ROUTINE*.                                        COMAMGM       46     A     
 COMAMGM  *                                                                                COMAMGM       47     A     
 COMAMGM  *                                                                                COMAMGM       48     A     
 COMAMGM  *         CALL      ROUTINE                                                      COMAMGM       49     A     
 COMAMGM  *                                                                                COMAMGM       50     A     
 COMAMGM  *         ENTRY  *ROUTINE* = NAME OF CALLED ROUTINE                              COMAMGM       51     A     
 COMAMGM  *                                                                                COMAMGM       52     A     
 COMAMGM  *         USES   NONE                                                            COMAMGM       53     A     
 COMAMGM                                                                                   COMAMGM       54     A     
 COMAMGM                                                                                   COMAMGM       55     A     
 COMAMGM            PURGMAC CALL                                                           COMAMGM       56     A     
 COMAMGM                                                                                   COMAMGM       57     A     
 COMAMGM   CALL     MACRO  R                                                               COMAMGM       58     A     
 COMAMGM    RJ =X_R                                                                        COMAMGM       59     A     
 COMAMGM    ENDM                                                                           COMAMGM       60     A     
 COMAMGM   BC       SPACE  4,10                                                            COMAMGM       61     A     
 COMAMGM  **        BC - CONVERT CHARACTER COUNT TO BIT COUNT.                             COMAMGM       62     A     
 COMAMGM  *                                                                                COMAMGM       63     A     
 COMAMGM  *         COMPUTES --  BIT COUNT = 6 * CHARACTER COUNT                           COMAMGM       64     A     
 COMAMGM  *                                                                                COMAMGM       65     A     
 COMAMGM  *         BC       X.RESULT,X.OPERAND                                            COMAMGM       66     A     
 COMAMGM  *                                                                                COMAMGM       67     A     
 COMAMGM  *         ENTRY  *X.RESULT*   =  X-REG TO RECEIVE BIT COUNT                      COMAMGM       68     A     
 COMAMGM  *                *X.OPERAND*  =  X-REG CONTAINING CHARACTER COUNT                COMAMGM       69     A     
 COMAMGM  *                                                                                COMAMGM       70     A     
 COMAMGM  *         USES   X.RESULT,X.OPERAND                                              COMAMGM       71     A     
 COMAMGM                                                                                   COMAMGM       72     A     
 COMAMGM                                                                                   COMAMGM       73     A     
 COMAMGM            PURGDEF   BC,X,X                                                       COMAMGM       74     A     
 COMAMGM                                                                                   COMAMGM       75     A     
 COMAMGM   BC,X,X   OPDEF  R,P                                                             COMAMGM       76     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  92    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM    LX.R X.P,B1                                                                    COMAMGM       77     A     
 COMAMGM    LX.P 3                                                                         COMAMGM       78     A     
 COMAMGM    IX.R X.P-X.R                                                                   COMAMGM       79     A     
 COMAMGM    ENDM                                                                           COMAMGM       80     A     
 COMAMGM   CONENT   SPACE  4,10                                                            COMAMGM       81     A     
 COMAMGM  **        CONENT - DEFINE A CON ENTRY POINT.                                     COMAMGM       82     A     
 COMAMGM  *                                                                                COMAMGM       83     A     
 COMAMGM  * SYM     CONENT EXP                                                             COMAMGM       84     A     
 COMAMGM  *                                                                                COMAMGM       85     A     
 COMAMGM  *         ENTRY  *SYM* = ENTRY POINT NAME.                                       COMAMGM       86     A     
 COMAMGM  *                *EXP* = EXPRESSION VALUE.                                       COMAMGM       87     A     
 COMAMGM                                                                                   COMAMGM       88     A     
 COMAMGM                                                                                   COMAMGM       89     A     
 COMAMGM            PURGMAC CONENT                                                         COMAMGM       90     A     
 COMAMGM                                                                                   COMAMGM       91     A     
 COMAMGM            MACRO  CONENT,S,E                                                      COMAMGM       92     A     
 COMAMGM  S CON E                                                                          COMAMGM       93     A     
 COMAMGM    ENTRY S                                                                        COMAMGM       94     A     
 COMAMGM    ENDM                                                                           COMAMGM       95     A     
 COMAMGM   CW       SPACE  4,20                                                            COMAMGM       96     A     
 COMAMGM  **        CW - CONVERT CHARACTER COUNT TO WORD COUNT.                            COMAMGM       97     A     
 COMAMGM  *                                                                                COMAMGM       98     A     
 COMAMGM  *         COMPUTES--  WORD COUNT = (CHAR COUNT + 9) / 10                         COMAMGM       99     A     
 COMAMGM  *                                                                                COMAMGM      100     A     
 COMAMGM  *                                                                                COMAMGM      101     A     
 COMAMGM  *         CW        X.RESULT,X.OPERAND                                           COMAMGM      102     A     
 COMAMGM  *                                                                                COMAMGM      103     A     
 COMAMGM  *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER WORD COUNT               COMAMGM      104     A     
 COMAMGM  *                *X.OPERAND* = X-REG CONTAINING INTEGER CHARACTER COUNT          COMAMGM      105     A     
 COMAMGM  *                                                                                COMAMGM      106     A     
 COMAMGM  *         USES   A.RESULT, X.RESULT, X.OPERAND                                   COMAMGM      107     A     
 COMAMGM                                                                                   COMAMGM      108     A     
 COMAMGM                                                                                   COMAMGM      109     A     
 COMAMGM            PURGDEF   CW,X,X                                                       COMAMGM      110     A     
 COMAMGM                                                                                   COMAMGM      111     A     
 COMAMGM   CW,X,X   OPDEF  R,P                                                             COMAMGM      112     A     
 COMAMGM    SX.R 9D                                                                        COMAMGM      113     A     
 COMAMGM    IX.P X.R+X.P                                                                   COMAMGM      114     A     
 COMAMGM    SA.R =00000631463146314632B                                                    COMAMGM      115     A     
 COMAMGM    FX.R X.P*X.R                                                                   COMAMGM      116     A     
 COMAMGM    ENDM                                                                           COMAMGM      117     A     
 COMAMGM   EQUENT   SPACE  4,10                                                            COMAMGM      118     A     
 COMAMGM  **        EQUENT - DEFINE A EQU ENTRY POINT.                                     COMAMGM      119     A     
 COMAMGM  *                                                                                COMAMGM      120     A     
 COMAMGM  * SYM     EQUENT EXP                                                             COMAMGM      121     A     
 COMAMGM  *                                                                                COMAMGM      122     A     
 COMAMGM  *                *SYM* = ENTRY POINT NAME.                                       COMAMGM      123     A     
 COMAMGM  *                *EXP* = EVALUATABLE EXPRESSION.                                 COMAMGM      124     A     
 COMAMGM                                                                                   COMAMGM      125     A     
 COMAMGM                                                                                   COMAMGM      126     A     
 COMAMGM            PURGMAC EQUENT                                                         COMAMGM      127     A     
 COMAMGM                                                                                   COMAMGM      128     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  93    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM            MACRO  EQUENT,S,E                                                      COMAMGM      129     A     
 COMAMGM  S EQU E                                                                          COMAMGM      130     A     
 COMAMGM    ENTRY S                                                                        COMAMGM      131     A     
 COMAMGM    ENDM                                                                           COMAMGM      132     A     
 COMAMGM   EQUEXT   SPACE  4,10                                                            COMAMGM      133     A     
 COMAMGM  **        EQUEXT - DEFINE AN EQU EXTERNAL.                                       COMAMGM      134     A     
 COMAMGM  *                                                                                COMAMGM      135     A     
 COMAMGM  *                                                                                COMAMGM      136     A     
 COMAMGM  * SYM     EQUEXT EXT                                                             COMAMGM      137     A     
 COMAMGM  *                                                                                COMAMGM      138     A     
 COMAMGM  *         ENTRY  SYM = LOCATION FIELD FOR SYMBOL TO EQU.                         COMAMGM      139     A     
 COMAMGM  *                EXT = EXTERNAL SYMBOL TO EQUATE TO.                             COMAMGM      140     A     
 COMAMGM                                                                                   COMAMGM      141     A     
 COMAMGM                                                                                   COMAMGM      142     A     
 COMAMGM            PURGMAC EQUEXT                                                         COMAMGM      143     A     
 COMAMGM                                                                                   COMAMGM      144     A     
 COMAMGM            MACRO  EQUEXT,S,E                                                      COMAMGM      145     A     
 COMAMGM    EXT E                                                                          COMAMGM      146     A     
 COMAMGM   S = E                                                                           COMAMGM      147     A     
 COMAMGM   EQUEXT   ENDM                                                                   COMAMGM      148     A     
 COMAMGM   HX,Q     SPACE  4,10                                                            COMAMGM      149     A     
 COMAMGM  **        HXQ - SHIFT FIELD TO HIGH ORDER.                                       COMAMGM      150     A     
 COMAMGM  *                                                                                COMAMGM      151     A     
 COMAMGM  *         THIS OPDEF WILL SHIFT A FIELD TO THE HIGH ORDER PART                   COMAMGM      152     A     
 COMAMGM  *         OF A WORD.  THE FIELD MUST HAVE BEEN DECLARED BY                       COMAMGM      153     A     
 COMAMGM  *         DESCRIBE/DEFINE.  IN PARTICULAR, THE SYMBOLS "FLD_L",                  COMAMGM      154     A     
 COMAMGM  *         AND "FLD_P" MUST BE THE LENGTH AND LOW-BIT POSITION,                   COMAMGM      155     A     
 COMAMGM  *         OF THE FIELD.                                                          COMAMGM      156     A     
 COMAMGM  *                                                                                COMAMGM      157     A     
 COMAMGM  *         HXI    FLD                                                             COMAMGM      158     A     
 COMAMGM  *                                                                                COMAMGM      159     A     
 COMAMGM  *         ENTRY  *XI* = X-REG TO BE SHIFTED.                                     COMAMGM      160     A     
 COMAMGM  *                *FLD* = A FIELD DESCRIPTOR SYMBOL.                              COMAMGM      161     A     
 COMAMGM  *                                                                                COMAMGM      162     A     
 COMAMGM  *         FOR MAXIMUM UTILITY, THE *LX,Q* NULL-SHIFT SUPPRESSION                 COMAMGM      163     A     
 COMAMGM  *         OPDEF SHOULD ALSO BE DEFINED.                                          COMAMGM      164     A     
 COMAMGM                                                                                   COMAMGM      165     A     
 COMAMGM                                                                                   COMAMGM      166     A     
 COMAMGM            PURGDEF HXQ                                                            COMAMGM      167     A     
 COMAMGM                                                                                   COMAMGM      168     A     
 COMAMGM   HX,Q     OPDEF  I,FLD                                                           COMAMGM      169     A     
 COMAMGM    LX.I -FLD_L-FLD_P                                                              COMAMGM      170     A     
 COMAMGM    ENDM                                                                           COMAMGM      171     A     
 COMAMGM   ISUSE    SPACE  4,10                                                            COMAMGM      172     A     
 COMAMGM  **        ISUSE AND ISUSE$ - ISSUE USE PSEUDO.                                   COMAMGM      173     A     
 COMAMGM  *                                                                                COMAMGM      174     A     
 COMAMGM  *                                                                                COMAMGM      175     A     
 COMAMGM  *         ISUSE  BLOCK       =   I.USE  BN=BLOCK                                 COMAMGM      176     A     
 COMAMGM  *         ISUSE$ BLOCK       =  OC$USE  BN=BLOCK                                 COMAMGM      177     A     
 COMAMGM  *                                                                                COMAMGM      178     A     
 COMAMGM  *         CALLS  WIN VIA WCODE.                                                  COMAMGM      179     A     
 COMAMGM                                                                                   COMAMGM      180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  94    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM                                                                                   COMAMGM      181     A     
 COMAMGM            PURGMAC ISUSE                                                          COMAMGM      182     A     
 COMAMGM                                                                                   COMAMGM      183     A     
 COMAMGM   ISUSE    MACRO  BLOCK                                                           COMAMGM      184     A     
 COMAMGM            =X1    =XBN=BLOCK                                                      COMAMGM      185     A     
 COMAMGM            =X7    I.USE                                                           COMAMGM      186     A     
 COMAMGM            LX1    PB.BIASP                                                        COMAMGM      187     A     
 COMAMGM            LX7    PB.GHIJP                                                        COMAMGM      188     A     
 COMAMGM            WCODE  X1+X7                                                           COMAMGM      189     A     
 COMAMGM   ISUSE    ENDM                                                                   COMAMGM      190     A     
 COMAMGM                                                                                   COMAMGM      191     A     
 COMAMGM                                                                                   COMAMGM      192     A     
 COMAMGM            PURGMAC ISUSE$                                                         COMAMGM      193     A     
 COMAMGM                                                                                   COMAMGM      194     A     
 COMAMGM   ISUSE$   MACRO  BLOCK                                                           COMAMGM      195     A     
 COMAMGM            =X1    =XBN=BLOCK                                                      COMAMGM      196     A     
 COMAMGM            =X7    OC$USE                                                          COMAMGM      197     A     
 COMAMGM            LX1    PB.BIASP                                                        COMAMGM      198     A     
 COMAMGM            LX7    PB.GHIJP                                                        COMAMGM      199     A     
 COMAMGM            WCODE  X1+X7                                                           COMAMGM      200     A     
 COMAMGM   ISUSE$   ENDM                                                                   COMAMGM      201     A     
 COMAMGM   LDBIT    SPACE  4,20                                                            COMAMGM      202     A     
 COMAMGM  ***       LDBIT - SET ONE BIT IN A REGISTER.                                     COMAMGM      203     A     
 COMAMGM  *                                                                                COMAMGM      204     A     
 COMAMGM  *         LDBIT  REG,BIT                                                         COMAMGM      205     A     
 COMAMGM  *                                                                                COMAMGM      206     A     
 COMAMGM  *         IF (BIT) IS .GT. 17, THEN (REG) MUST BE AN X-REGISTER.                 COMAMGM      207     A     
 COMAMGM                                                                                   COMAMGM      208     A     
 COMAMGM                                                                                   COMAMGM      209     A     
 COMAMGM   LDBIT    MACRO  G,V                                                             COMAMGM      210     A     
 COMAMGM    IF    DEF,V,6                                                                  COMAMGM      211     A     
 COMAMGM    IFGT  V,1,2                                                                    COMAMGM      212     A     
 COMAMGM    IFGE  *P,30,4                                                                  COMAMGM      213     A     
 COMAMGM    IFLT  V,17,3                                                                   COMAMGM      214     A     
 COMAMGM  A DECMIC V                                                                       COMAMGM      215     A     
 COMAMGM    =G    1S"A"                                                                    COMAMGM      216     A     
 COMAMGM    SKIP  2                                                                        COMAMGM      217     A     
 COMAMGM    M_G   1                                                                        COMAMGM      218     A     
 COMAMGM    L_G   1+V                                                                      COMAMGM      219     A     
 COMAMGM    ENDM                                                                           COMAMGM      220     A     
 COMAMGM   LDX      SPACE  4,20                                                            COMAMGM      221     A     
 COMAMGM  ***       LDX - LOAD A REGISTER WITH A VALUE.                                    COMAMGM      222     A     
 COMAMGM  *                                                                                COMAMGM      223     A     
 COMAMGM  *         LDX    REG,VAL                                                         COMAMGM      224     A     
 COMAMGM  *                                                                                COMAMGM      225     A     
 COMAMGM  *         IF (VAL) IS .GE. 4S15, THEN (REG) MUST BE ONE OF [X1 .. X5],           COMAMGM      226     A     
 COMAMGM  *         AND THE CORRESPONDING A-REGISTER WILL BE USED TO LOAD A                COMAMGM      227     A     
 COMAMGM  *         LITERAL.                                                               COMAMGM      228     A     
 COMAMGM                                                                                   COMAMGM      229     A     
 COMAMGM                                                                                   COMAMGM      230     A     
 COMAMGM   LDX      MACRO  REG,VAL                                                         COMAMGM      231     A     
 COMAMGM     IFEQ  VAL/1S17,,2                                                             COMAMGM      232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  95    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM     =REG  VAL                                                                     COMAMGM      233     A     
 COMAMGM  .1 SKIP                                                                          COMAMGM      234     A     
 COMAMGM  *                            LOAD LARGE VALUE VIA A LITERAL.                     COMAMGM      235     A     
 COMAMGM  T  MICRO 1,1,.REG.                                                               COMAMGM      236     A     
 COMAMGM     IFC   NE, X "T" ,1                                                            COMAMGM      237     A     
 COMAMGM     ERR  (REG) WONT HOLD (VAL)      "SEQUENCE"                                    COMAMGM      238     A     
 COMAMGM  *                                                                                COMAMGM      239     A     
 COMAMGM  N  MICRO 2,, REG                                                                 COMAMGM      240     A     
 COMAMGM     IFNE  "N",0,1                                                                 COMAMGM      241     A     
 COMAMGM     IFGE  "N",6,1                                                                 COMAMGM      242     A     
 COMAMGM     ERR   (REG) MUST BE IN [X1 .. X5]          "SEQUENCE"                         COMAMGM      243     A     
 COMAMGM  *                                                                                COMAMGM      244     A     
 COMAMGM     SA"N"  =VAL                                                                   COMAMGM      245     A     
 COMAMGM  .1 ENDIF                                                                         COMAMGM      246     A     
 COMAMGM     ENDM                                                                          COMAMGM      247     A     
 COMAMGM   LXQ      SPACE  4,8                                                             COMAMGM      248     A     
 COMAMGM  **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                             COMAMGM      249     A     
 COMAMGM  *                                                                                COMAMGM      250     A     
 COMAMGM  *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS            COMAMGM      251     A     
 COMAMGM  *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.               COMAMGM      252     A     
 COMAMGM  *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                                COMAMGM      253     A     
 COMAMGM  *                                                                                COMAMGM      254     A     
 COMAMGM  *         LXI    JK                                                              COMAMGM      255     A     
 COMAMGM  *                                                                                COMAMGM      256     A     
 COMAMGM  *         ENTRY  *XI* = X-REG TO BE SHIFTED                                      COMAMGM      257     A     
 COMAMGM  *                *JK* = SHIFT COUNT EXPRESSION                                   COMAMGM      258     A     
 COMAMGM  *                                                                                COMAMGM      259     A     
 COMAMGM  *         USES   XI                                                              COMAMGM      260     A     
 COMAMGM                                                                                   COMAMGM      261     A     
 COMAMGM                                                                                   COMAMGM      262     A     
 COMAMGM            PURGDEF   ^XQ                                                          COMAMGM      263     A     
 COMAMGM            PURGDEF   LXQ                                                          COMAMGM      264     A     
 COMAMGM   ^XQ      CPOP      0,200B,100B                                                  COMAMGM      265     A     
 COMAMGM                                                                                   COMAMGM      266     A     
 COMAMGM   LXQ      OPDEF     I,JK                                                         COMAMGM      267     A     
 COMAMGM    IFNE JK,0,2                                                                    COMAMGM      268     A     
 COMAMGM    IFNE JK_&60D,0,1                                                               COMAMGM      269     A     
 COMAMGM    ^X.I JK                                                                        COMAMGM      270     A     
 COMAMGM    ENDM                                                                           COMAMGM      271     A     
 COMAMGM   MOVEB    SPACE  4,10                                                            COMAMGM      272     A     
 COMAMGM  **        MOVEB -  MOVE BIT STRING.                                              COMAMGM      273     A     
 COMAMGM  *                                                                                COMAMGM      274     A     
 COMAMGM  *         MOVEB  BITCOUNT,SFWA,SFB,DFWA,DFB                                      COMAMGM      275     A     
 COMAMGM  *                                                                                COMAMGM      276     A     
 COMAMGM  *         ENTRY  *BITCOUNT* = BIT COUNT OF STRING                                COMAMGM      277     A     
 COMAMGM  *                *SFWA* = SOURCE FIRST WORD ADDRESS                              COMAMGM      278     A     
 COMAMGM  *                *SFB* = SOURCE FIRST BIT (0-9)                                  COMAMGM      279     A     
 COMAMGM  *                *DFWA* = DESTINATION FIRST WORD ADDRESS                         COMAMGM      280     A     
 COMAMGM  *                *DFB* = DESTINATION FIRST BIT (0-9)                             COMAMGM      281     A     
 COMAMGM  *                                                                                COMAMGM      282     A     
 COMAMGM  *         USES   X0,X2,X4,B2,B4                                                  COMAMGM      283     A     
 COMAMGM  *                                                                                COMAMGM      284     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  96    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM  *         CALLS  MNS=        (CPU.MNX)                                           COMAMGM      285     A     
 COMAMGM                                                                                   COMAMGM      286     A     
 COMAMGM                                                                                   COMAMGM      287     A     
 COMAMGM            PURGMAC MOVEB                                                          COMAMGM      288     A     
 COMAMGM   MOVEB    MACRO  B,SFA,SFB,DFA,DFB                                               COMAMGM      289     A     
 COMAMGM    =X0 B                                                                          COMAMGM      290     A     
 COMAMGM    =X2 SFA                                                                        COMAMGM      291     A     
 COMAMGM    =X4 DFA                                                                        COMAMGM      292     A     
 COMAMGM    =B2 SFB                                                                        COMAMGM      293     A     
 COMAMGM    =B4 DFB                                                                        COMAMGM      294     A     
 COMAMGM    RJ =XMNS=                                                                      COMAMGM      295     A     
 COMAMGM    ENDM                                                                           COMAMGM      296     A     
 COMAMGM   MXX+X    SPACE  4,28                                                            COMAMGM      297     A     
 COMAMGM  **        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS.            COMAMGM      298     A     
 COMAMGM  *                                                                                COMAMGM      299     A     
 COMAMGM  *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES          COMAMGM      300     A     
 COMAMGM  *         THE ALGEBRAICALLY GREATER VALUE IN *XI*.                               COMAMGM      301     A     
 COMAMGM  *                                                                                COMAMGM      302     A     
 COMAMGM  *         MXI    XJ+XK                                                           COMAMGM      303     A     
 COMAMGM  *                                                                                COMAMGM      304     A     
 COMAMGM  *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*                     COMAMGM      305     A     
 COMAMGM  *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED           COMAMGM      306     A     
 COMAMGM  *                                                                                COMAMGM      307     A     
 COMAMGM  *         EXIT   (X.LARGER) = 0                                                  COMAMGM      308     A     
 COMAMGM  *                (X.SMALLER) = UNCHANGED                                         COMAMGM      309     A     
 COMAMGM  *         IF ON ENTRY (XJ)=(XK),                                                 COMAMGM      310     A     
 COMAMGM  *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                              COMAMGM      311     A     
 COMAMGM  *                (XI) = MAX(XJ,XK)                                               COMAMGM      312     A     
 COMAMGM  *                                                                                COMAMGM      313     A     
 COMAMGM  *         USES   XI, XJ, XK                                                      COMAMGM      314     A     
 COMAMGM                                                                                   COMAMGM      315     A     
 COMAMGM                                                                                   COMAMGM      316     A     
 COMAMGM            PURGDEF   MXX+X                                                        COMAMGM      317     A     
 COMAMGM                                                                                   COMAMGM      318     A     
 COMAMGM   MXX+X    OPDEF  I,J,K                                                           COMAMGM      319     A     
 COMAMGM    IX.I X.J-X.K                                                                   COMAMGM      320     A     
 COMAMGM    AX.I -1                                                                        COMAMGM      321     A     
 COMAMGM    BX.J -X.I*X.J                                                                  COMAMGM      322     A     
 COMAMGM    BX.K X.I*X.K                                                                   COMAMGM      323     A     
 COMAMGM    IX.I X.J+X.K                                                                   COMAMGM      324     A     
 COMAMGM   MXX+X    ENDM                                                                   COMAMGM      325     A     
 COMAMGM   MXX-X    SPACE  4,20                                                            COMAMGM      326     A     
 COMAMGM  **        MXX-X  - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.             COMAMGM      327     A     
 COMAMGM  *                                                                                COMAMGM      328     A     
 COMAMGM  *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES          COMAMGM      329     A     
 COMAMGM  *         THE ALGEBRAICALLY LESSER VALUE IN *XI*.                                COMAMGM      330     A     
 COMAMGM  *                                                                                COMAMGM      331     A     
 COMAMGM  *         MXI    XJ-XK                                                           COMAMGM      332     A     
 COMAMGM  *                                                                                COMAMGM      333     A     
 COMAMGM  *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*                     COMAMGM      334     A     
 COMAMGM  *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED           COMAMGM      335     A     
 COMAMGM  *                                                                                COMAMGM      336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  97    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM  *         EXIT   (X.LARGER) = 0                                                  COMAMGM      337     A     
 COMAMGM  *                (X.SMALLER) = UNCHANGED                                         COMAMGM      338     A     
 COMAMGM  *                IF ON ENTRY (XJ)=(XK)                                           COMAMGM      339     A     
 COMAMGM  *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                              COMAMGM      340     A     
 COMAMGM  *                XI = MIN(XJ,XK)                                                 COMAMGM      341     A     
 COMAMGM  *                                                                                COMAMGM      342     A     
 COMAMGM  *         USES   XI, XJ, XK                                                      COMAMGM      343     A     
 COMAMGM                                                                                   COMAMGM      344     A     
 COMAMGM                                                                                   COMAMGM      345     A     
 COMAMGM            PURGDEF   MXX-X                                                        COMAMGM      346     A     
 COMAMGM                                                                                   COMAMGM      347     A     
 COMAMGM   MXX-X    OPDEF  I,J,K                                                           COMAMGM      348     A     
 COMAMGM    IX.I X.J-X.K                                                                   COMAMGM      349     A     
 COMAMGM    AX.I  -1                                                                       COMAMGM      350     A     
 COMAMGM    BX.J X.I*X.J                                                                   COMAMGM      351     A     
 COMAMGM    BX.K -X.I*X.K                                                                  COMAMGM      352     A     
 COMAMGM    IX.I X.J+X.K                                                                   COMAMGM      353     A     
 COMAMGM   MXX-X    ENDM                                                                   COMAMGM      354     A     
 COMAMGM   RMT=     SPACE  4,10                                                            COMAMGM      355     A     
 COMAMGM  **        RMT= - MACRO TO FORCE MICRO EVALUATION FOR REMOTES.                    COMAMGM      356     A     
 COMAMGM  *                                                                                COMAMGM      357     A     
 COMAMGM  * BLOCK   RMT=   (S)                                                             COMAMGM      358     A     
 COMAMGM  *                                                                                COMAMGM      359     A     
 COMAMGM  *         *BLOCK* IS THE RMT BLOCK LABEL, IF ANY.                                COMAMGM      360     A     
 COMAMGM  *         (S) IS THE STATEMENT TO BE ENTERED INTO THAT RMT BLOCK.                COMAMGM      361     A     
 COMAMGM                                                                                   COMAMGM      362     A     
 COMAMGM                                                                                   COMAMGM      363     A     
 COMAMGM            MACRO  RMT=,BLK,S                                                      COMAMGM      364     A     
 COMAMGM   BLK      RMT                                                                    COMAMGM      365     A     
 COMAMGM   S                                                                               COMAMGM      366     A     
 COMAMGM   BLK      RMT                                                                    COMAMGM      367     A     
 COMAMGM   RMT=     ENDM                                                                   COMAMGM      368     A     
 COMAMGM   RPVDEF   SPACE  4,8                                                             COMAMGM      369     A     
 COMAMGM  **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.                   COMAMGM      370     A     
 COMAMGM  *                                                                                COMAMGM      371     A     
 COMAMGM  *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES               COMAMGM      372     A     
 COMAMGM  *         IT AS AN ENTRY POINT, FOR FORMING THE ROUTINE NAME/ADDRESS             COMAMGM      373     A     
 COMAMGM  *         TABLES USED BY THE UTILITY ROUTINE *RPV=*.                             COMAMGM      374     A     
 COMAMGM  *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE                 COMAMGM      375     A     
 COMAMGM  *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR             COMAMGM      376     A     
 COMAMGM  *         PSEUDO-OP THAT WOULD CAUSE THE LOCATION COUNTER TO BE                  COMAMGM      377     A     
 COMAMGM  *         ADVANCED BY COMPASS.                                                   COMAMGM      378     A     
 COMAMGM  *                                                                                COMAMGM      379     A     
 COMAMGM  * RNAM    RPVDEF ENAM                                                            COMAMGM      380     A     
 COMAMGM  *                                                                                COMAMGM      381     A     
 COMAMGM  *         ENTRY  RNAM = ROUTINE NAME                                             COMAMGM      382     A     
 COMAMGM  *                ENAM = ENTRY POINT WILL BE B=*ENAM*.  IF *ENAM* IS              COMAMGM      383     A     
 COMAMGM  *                       NULL, THE FIRST 5 CHARACTERS OF *RNAM* ARE               COMAMGM      384     A     
 COMAMGM  *                       APPENDED TO *B=*.                                        COMAMGM      385     A     
 COMAMGM                                                                                   COMAMGM      386     A     
 COMAMGM                                                                                   COMAMGM      387     A     
 COMAMGM            PURGMAC RPVDEF                                                         COMAMGM      388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  98    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM                                                                                   COMAMGM      389     A     
 COMAMGM            MACRO  RPVDEF,R,E                                                      COMAMGM      390     A     
 COMAMGM    IFC EQ,/E//,2                                                                  COMAMGM      391     A     
 COMAMGM   '?RPV=A MICRO 1,7,/B=R     /                                                    COMAMGM      392     A     
 COMAMGM    SKIP 1                                                                         COMAMGM      393     A     
 COMAMGM   '?RPV=A MICRO 1,7,/B=E     /                                                    COMAMGM      394     A     
 COMAMGM    NOREF "'?RPV=A"                                                                COMAMGM      395     A     
 COMAMGM    ENTRY "'?RPV=A"                                                                COMAMGM      396     A     
 COMAMGM   "'?RPV=A" BSS 0                                                                 COMAMGM      397     A     
 COMAMGM    ENDM                                                                           COMAMGM      398     A     
 COMAMGM   RPVFWA   SPACE  4,8                                                             COMAMGM      399     A     
 COMAMGM  **        RPVFWA - DEFINE ENTRY FOR *RPV* NAME/ADDRESS TABLE.                    COMAMGM      400     A     
 COMAMGM  *                                                                                COMAMGM      401     A     
 COMAMGM  *         RPVFWA NAM,FWA                                                         COMAMGM      402     A     
 COMAMGM  *                                                                                COMAMGM      403     A     
 COMAMGM  *         ENTRY  NAM = ROUTINE NAME                                              COMAMGM      404     A     
 COMAMGM  *                FWA = ROUTINE FWA.  IF NULL, *B=XXXXX* IS USED, WHERE           COMAMGM      405     A     
 COMAMGM  *                      XXXXX ARE THE FIRST 5 CHARACTERS OF *NAM*.                COMAMGM      406     A     
 COMAMGM                                                                                   COMAMGM      407     A     
 COMAMGM                                                                                   COMAMGM      408     A     
 COMAMGM            PURGMAC RPVFWA                                                         COMAMGM      409     A     
 COMAMGM                                                                                   COMAMGM      410     A     
 COMAMGM   RPVFWA   MACRO  NAM,FWA                                                         COMAMGM      411     A     
 COMAMGM    VFD 42/0L_NAM                                                                  COMAMGM      412     A     
 COMAMGM    IFC EQ,/FWA//,4                                                                COMAMGM      413     A     
 COMAMGM  '?RPV=A MICRO 1,5,/NAM     /                                                     COMAMGM      414     A     
 COMAMGM    VFD 18/=XB="'?RPV=A"                                                           COMAMGM      415     A     
 COMAMGM    NOREF B="'?RPV=A"                                                              COMAMGM      416     A     
 COMAMGM    SKIP 1                                                                         COMAMGM      417     A     
 COMAMGM    VFD 18/FWA                                                                     COMAMGM      418     A     
 COMAMGM    ENDM                                                                           COMAMGM      419     A     
 COMAMGM   RPVON    SPACE  4,10                                                            COMAMGM      420     A     
 COMAMGM  **        RPVON - TURN ON REPRIEVE PROCESSING.                                   COMAMGM      421     A     
 COMAMGM  *                                                                                COMAMGM      422     A     
 COMAMGM  *         RPVON  FLAGS                                                           COMAMGM      423     A     
 COMAMGM  *                                                                                COMAMGM      424     A     
 COMAMGM  *         ENTRY  FLAGS = REPRIEVE FLAGS AS SPECIFIED IN THE NOS/BE               COMAMGM      425     A     
 COMAMGM  *                MANUAL.  NO B SUFFIX SHOULD BE USED.  IF NULL, 37B IS           COMAMGM      426     A     
 COMAMGM  *                ASSUMED.                                                        COMAMGM      427     A     
 COMAMGM                                                                                   COMAMGM      428     A     
 COMAMGM                                                                                   COMAMGM      429     A     
 COMAMGM   RPVON    MACRO  FLAGS                                                           COMAMGM      430     A     
 COMAMGM    MX1 59                                                                         COMAMGM      431     A     
 COMAMGM    SA2 =XRPV=                                                                     COMAMGM      432     A     
 COMAMGM    BX6 X1*X2                                                                      COMAMGM      433     A     
 COMAMGM    SA6 A2+                                                                        COMAMGM      434     A     
 COMAMGM    IFNE .OS,2,5                                                                   COMAMGM      435     A     
 COMAMGM   '?RPV=A SET 37B                                                                 COMAMGM      436     A     
 COMAMGM    IFC  NE,/FLAGS//,1                                                             COMAMGM      437     A     
 COMAMGM   '?RPV=A SET FLAGS_B                                                             COMAMGM      438     A     
 COMAMGM    SYSTEM RPV,R,=XRPV=,'?RPV=A*1S6                                                COMAMGM      439     A     
 COMAMGM    SKIP 1                                                                         COMAMGM      440     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE  99    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM    REPRIEVE =XRPV=                                                                COMAMGM      441     A     
 COMAMGM    ENDM                                                                           COMAMGM      442     A     
 COMAMGM   RPVOFF   SPACE  4,10                                                            COMAMGM      443     A     
 COMAMGM  **        RPVOFF - TURN OFF REPRIEVE PROCESSING.                                 COMAMGM      444     A     
 COMAMGM  *                                                                                COMAMGM      445     A     
 COMAMGM  *         RPVOFF CELL                                                            COMAMGM      446     A     
 COMAMGM  *                                                                                COMAMGM      447     A     
 COMAMGM  *         CELL   IF SPECIFIED, A CELL TO USE FOR SYSTEM CALL,                    COMAMGM      448     A     
 COMAMGM  *                  OTHERWISE, WORD 2 OF RPV EXCHANGE AREA IS USED.               COMAMGM      449     A     
 COMAMGM                                                                                   COMAMGM      450     A     
 COMAMGM                                                                                   COMAMGM      451     A     
 COMAMGM   RPVOFF   MACRO  CELL                                                            COMAMGM      452     A     
 COMAMGM    MX7 0                                                                          COMAMGM      453     A     
 COMAMGM    SA7 CELL  =XRPV=+1                                                             COMAMGM      454     A     
 COMAMGM    IFNE .OS,2,2                                                                   COMAMGM      455     A     
 COMAMGM    SYSTEM RPV,R,A7                                                                COMAMGM      456     A     
 COMAMGM    SKIP 1                                                                         COMAMGM      457     A     
 COMAMGM    REPRIEVE A7                                                                    COMAMGM      458          I
          -FC5A158A 
 COMAMGM            REPRIEVE   CELL                                                        FC5A158A       9     A     
 COMAMGM    ENDM                                                                           COMAMGM      459     A     
 COMAMGM   SBIT     SPACE  4,30                                                            COMAMGM      460     A     
 COMAMGM  **        SBIT - MACRO TO SHIFT A BIT INTO SIGN POSITION.                        COMAMGM      461     A     
 COMAMGM  *                                                                                COMAMGM      462     A     
 COMAMGM  *         SBIT   XN,WHICH/OFFSET                                                 COMAMGM      463     A     
 COMAMGM  *                                                                                COMAMGM      464     A     
 COMAMGM  *         SHIFTS *XN* LEFT CIRCULAR UNTIL BIT 2**WHICH IS IN SIGN BIT,           COMAMGM      465     A     
 COMAMGM  *                POSITION.  *WHICH* MAY BE PRECEDED BY A MINUS SIGN.             COMAMGM      466     A     
 COMAMGM  *                IF THE REGISTER HAS ALREADY BEEN SHIFTED, THEN                  COMAMGM      467     A     
 COMAMGM  *                BIT 2**OFFSET IS THE BIT NOW AT 2**59.                          COMAMGM      468     A     
 COMAMGM  *                                                                                COMAMGM      469     A     
 COMAMGM  *         TO RESTORE A REGISTER AFTER USING SBIT, DO A                           COMAMGM      470     A     
 COMAMGM  *         --     LXN    WHICH+1    --                                            COMAMGM      471     A     
 COMAMGM  *                                                                                COMAMGM      472     A     
 COMAMGM  *         OF COURSE, THE MACRO MAY BE USED TO POSITION TO ANY POSITION,          COMAMGM      473     A     
 COMAMGM  *                (NOT JUST 2**59).  TO POSITION TO BIT *OTHER*,                  COMAMGM      474     A     
 COMAMGM  *         --     SBIT   XN,WHICH/OFFSET+A    --,                                 COMAMGM      475     A     
 COMAMGM  *                               WHERE *A* = MOD (OTHER+1,60).                    COMAMGM      476     A     
 COMAMGM  *                IN THIS CASE, HOWEVER, THE CODER MUST INSURE THAT THE           COMAMGM      477     A     
 COMAMGM  *                FINAL SHIFT COUNT IS IN THE RANGE COMPASS WILL ASSEMBLE         COMAMGM      478     A     
 COMAMGM  *                PROPERLY (I.E...  -60 .LE. COUNT .LE. 60).                      COMAMGM      479     A     
 COMAMGM  *                                                                                COMAMGM      480     A     
 COMAMGM  *         IF THE FINAL SHIFT COUNT IS ZERO (AND PREVIOUSLY DEFINED),             COMAMGM      481     A     
 COMAMGM  *                NO INSTRUCTION WILL BE GENERATED.                               COMAMGM      482     A     
 COMAMGM  *                                                                                COMAMGM      483     A     
 COMAMGM  *         NOTE THAT *IFBIT* MAKES ASSUMPTIONS ABOUT SOME OF THE SCRATCH          COMAMGM      484     A     
 COMAMGM  *                SYMBOLS USED BY *SBIT* -- USE CAUTION.                          COMAMGM      485     A     
 COMAMGM                                                                                   COMAMGM      486     A     
 COMAMGM                                                                                   COMAMGM      487     A     
 COMAMGM   SBIT     MACRO  XN,WHICH                                                        COMAMGM      488     A     
 COMAMGM   A        MICRO  1,1, WHICH                                                      COMAMGM      489     A     
 COMAMGM   B        SET    1                                                               COMAMGM      490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM            IFC    EQ, - "A" ,1                                                    COMAMGM      491     A     
 COMAMGM   B        SET    2                                                               COMAMGM      492     A     
 COMAMGM   C        MICRO  B,,/WHICH/                                                      COMAMGM      493     A     
 COMAMGM   D        MICCNT C                                                               COMAMGM      494     A     
 COMAMGM   E        MICRO  B+D+1,, WHICH                                                   COMAMGM      495     A     
 COMAMGM            IFC    EQ,/"E"//,1                                                     COMAMGM      496     A     
 COMAMGM   E        MICRO  1,,/59/                                                         COMAMGM      497     A     
 COMAMGM            L_XN   "E"-"C"                                                         COMAMGM      498     A     
 COMAMGM   SBIT     ENDM                                                                   COMAMGM      499     A     
 COMAMGM   SETMEM   SPACE  4,20                                                            COMAMGM      500     A     
 COMAMGM  **        SETMEM - SET BLOCK OF MEMORY TO A GIVEN VALUE.                         COMAMGM      501     A     
 COMAMGM  *                                                                                COMAMGM      502     A     
 COMAMGM  *         SETMEM FWA,LEN,VAL                                                     COMAMGM      503     A     
 COMAMGM  *                                                                                COMAMGM      504     A     
 COMAMGM  *         ENTRY  *FWA* = BLOCK ADDRESS                                           COMAMGM      505     A     
 COMAMGM  *                *LEN* = BLOCK LENGTH (IF NULL LEN=1)                            COMAMGM      506     A     
 COMAMGM  *                *VAL* = VALUE TO SET (IF NULL VAL=0)                            COMAMGM      507     A     
 COMAMGM  *                                                                                COMAMGM      508     A     
 COMAMGM  *         EXIT   (B1) = 1                                                        COMAMGM      509     A     
 COMAMGM  *                                                                                COMAMGM      510     A     
 COMAMGM  *         USES   X6, A6     (LEN .GT. 0)                                         COMAMGM      511     A     
 COMAMGM  *                X1         (LEN .GT. 2)                                         COMAMGM      512     A     
 COMAMGM  *                X2, X7, A7 (LEN .GE. 60, OR NOT ABS)                            COMAMGM      513     A     
 COMAMGM  *                                                                                COMAMGM      514     A     
 COMAMGM  *         CALLS  SBM=       (LEN .GT. 60, OR NOT ABS)                            COMAMGM      515     A     
 COMAMGM                                                                                   COMAMGM      516     A     
 COMAMGM                                                                                   COMAMGM      517     A     
 COMAMGM            PURGMAC SETMEM                                                         COMAMGM      518     A     
 COMAMGM                                                                                   COMAMGM      519     A     
 COMAMGM   SETMEM   MACRO  F,L,V                                                           COMAMGM      520     A     
 COMAMGM    IF -DEF,B1=1,1                                                                 COMAMGM      521     A     
 COMAMGM    SB1 1                                                                          COMAMGM      522     A     
 COMAMGM  *                                                                                COMAMGM      523     A     
 COMAMGM  .1 IFC NE, L                                                                     COMAMGM      524     A     
 COMAMGM  .2 IF DEF,L                                                                      COMAMGM      525     A     
 COMAMGM  .2 IF ABS,L                                                                      COMAMGM      526     A     
 COMAMGM  .2 IF -REG,L                                                                     COMAMGM      527     A     
 COMAMGM  .2 IFLT L,60                                                                     COMAMGM      528     A     
 COMAMGM    IFGT L,0,2                                                                     COMAMGM      529     A     
 COMAMGM    =X6 V                                                                          COMAMGM      530     A     
 COMAMGM    SA6 F                                                                          COMAMGM      531     A     
 COMAMGM    IFEQ L,2,1                                                                     COMAMGM      532     A     
 COMAMGM    SA6 A6+B1                                                                      COMAMGM      533     A     
 COMAMGM    IFGT L,2,4                                                                     COMAMGM      534     A     
 COMAMGM    MX1 L-1                                                                        COMAMGM      535     A     
 COMAMGM  + LX1 1                                                                          COMAMGM      536     A     
 COMAMGM    SA6 A6+B1                                                                      COMAMGM      537     A     
 COMAMGM    MI X1,*                                                                        COMAMGM      538     A     
 COMAMGM  .2 ELSE                                                                          COMAMGM      539     A     
 COMAMGM    =X6 V                                                                          COMAMGM      540     A     
 COMAMGM    SA6 F                                                                          COMAMGM      541     A     
 COMAMGM    =X1 L                                                                          COMAMGM      542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 101    
0*** OUTPUT LINE LIMIT EXCEEDED.  LIST OPTIONS 3 AND 4 CANCELLED. *** 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM    RJ =XSBM=                                                                      COMAMGM      543     A     
 COMAMGM  .2 ENDIF                                                                         COMAMGM      544     A     
 COMAMGM  .1 ELSE                                                                          COMAMGM      545     A     
 COMAMGM    =X6 V                                                                          COMAMGM      546     A     
 COMAMGM    SA6 F                                                                          COMAMGM      547     A     
 COMAMGM  .1 ENDIF                                                                         COMAMGM      548     A     
 COMAMGM    ENDM                                                                           COMAMGM      549     A     
 COMAMGM   WC       SPACE  4,8                                                             COMAMGM      550     A     
 COMAMGM  **        WC - CONVERT WORD COUNT TO CHARACTER COUNT.                            COMAMGM      551     A     
 COMAMGM  *                                                                                COMAMGM      552     A     
 COMAMGM  *         COMPUTES-- CHAR COUNT = WORD COUNT * 10                                COMAMGM      553     A     
 COMAMGM  *                                                                                COMAMGM      554     A     
 COMAMGM  *                                                                                COMAMGM      555     A     
 COMAMGM  *         WC        X.RESULT,X.OPERAND                                           COMAMGM      556     A     
 COMAMGM  *                                                                                COMAMGM      557     A     
 COMAMGM  *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER CHARACTER COUNT          COMAMGM      558     A     
 COMAMGM  *                *X.OPERAND* = X-REG CONTAINING INTEGER WORD COUNT               COMAMGM      559     A     
 COMAMGM  *                                                                                COMAMGM      560     A     
 COMAMGM  *         USES   X.OPERAND, X.RESULT                                             COMAMGM      561     A     
 COMAMGM                                                                                   COMAMGM      562     A     
 COMAMGM                                                                                   COMAMGM      563     A     
 COMAMGM            PURGDEF   WC,X,X                                                       COMAMGM      564     A     
 COMAMGM                                                                                   COMAMGM      565     A     
 COMAMGM   WC,X,X   OPDEF  R,O                                                             COMAMGM      566     A     
 COMAMGM    IX.R X.O+X.O                                                                   COMAMGM      567     A     
 COMAMGM    LX.O 3                                                                         COMAMGM      568     A     
 COMAMGM    IX.R X.O+X.R                                                                   COMAMGM      569     A     
 COMAMGM    ENDM                                                                           COMAMGM      570     A     
 COMAMGM                                                                                   COMAMGM      571     A     
 COMAMGM   WXX      SPACE  4,10                                                            COMAMGM      572     A     
 COMAMGM  **        WXX - CONVERT CHARACTER COUNT TO WORD COUNT AND REMAINING              COMAMGM      573     A     
 COMAMGM  *                CHARACTER COUNT.                                                COMAMGM      574     A     
 COMAMGM  *         COMPUTES --  WORD COUNT = CHAR COUNT / 10                              COMAMGM      575     A     
 COMAMGM  *                      REMIN CHAR COUNT = CHAR COUNT - WORD COUNT * 10           COMAMGM      576     A     
 COMAMGM  *                                                                                COMAMGM      577     A     
 COMAMGM  *         WX.WORDCNT         X.CHARCNT,X.REMAINCNT                               COMAMGM      578     A     
 COMAMGM  *                                                                                COMAMGM      579     A     
 COMAMGM  *         ENTRY  *X.C* = X-REG TO RECEIVE CHARACTER COUNT                        COMAMGM      580     A     
 COMAMGM  *         EXIT   *X.W* = X-REG CONTAINING INTEGER WORD COUNT                     COMAMGM      581     A     
 COMAMGM  *                *X.R* = X-REG CONTAINING REMAINING CHAR COUNT                   COMAMGM      582     A     
 COMAMGM  *         USES   *X.C*, *X.W*, *X.R*, *A.W*                                      COMAMGM      583     A     
 COMAMGM                                                                                   COMAMGM      584     A     
 COMAMGM                                                                                   COMAMGM      585     A     
 COMAMGM            PURGDEF            WXX,X                                               COMAMGM      586     A     
 COMAMGM                                                                                   COMAMGM      587     A     
 COMAMGM   WXX,X  OPDEF    W,C,R                                                           COMAMGM      588     A     
 COMAMGM    LOCAL TAG                                                                      COMAMGM      589     A     
 COMAMGM    SA.W =00000631463146314632B                                                    COMAMGM      590     A     
 COMAMGM    FX.W X.C*X.W                                                                   COMAMGM      591     A     
 COMAMGM    IX.R X.W+X.W                                                                   COMAMGM      592     A     
 COMAMGM    IX.C X.C-X.R                                                                   COMAMGM      593     A     
 COMAMGM    LX.R 2                                                                         COMAMGM      594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAMGM 
  
 COMAMGM    IX.R X.C-X.R                                                                   COMAMGM      595     A     
 COMAMGM    PL X.R,TAG                                                                     COMAMGM      596     A     
 COMAMGM    =X.C 1                                                                         COMAMGM      597     A     
 COMAMGM    IX.W X.W-X.C                                                                   COMAMGM      598     A     
 COMAMGM    SX.R X.R+10                                                                    COMAMGM      599     A     
 COMAMGM  TAG BSS 0                                                                        COMAMGM      600     A     
 COMAMGM    ENDM                                                                           COMAMGM      601     A     
 COMAMGM                                                                                   COMAMGM      602     A     
 COMAMGM   COMAMGM  ENDX                                                                   COMAMGM      603     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMAMGM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMAMGM                    603       602
          FC5A158A                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAQCG 
  
 COMAQCG  *COMDECK  COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.                         COMAQCG        1     A     
 COMAQCG            CTEXT  COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.                  COMAQCG        2     A     
 COMAQCG   COMAQCG  SPACE  4,10                                                            COMAQCG        3     A     
 COMAQCG  ***       COMAQCG - MACROS FOR FTN QUICK CODE GENERATOR.                         COMAQCG        4     A     
 COMAQCG  *                                                                                COMAQCG        5     A     
 COMAQCG  *         COPYRIGHT CONTROL DATA CORPORAION. 1976, 1977.                         COMAQCG        6     A     
 COMAQCG   CBSS     SPACE  4,8                                                             COMAQCG        7     A     
 COMAQCG  **        CBSS - MACRO TO COMPILE A *BSS* OPERATION.                             COMAQCG        8     A     
 COMAQCG  *                                                                                COMAQCG        9     A     
 COMAQCG  *         CBSS   LOC,SIZE,REG                                                    COMAQCG       10     A     
 COMAQCG  *                                                                                COMAQCG       11     A     
 COMAQCG  *         *LOC*  = LOCATION TAG TO BE DEFINED (= 1 FOR FORCE UPPER ONLY)         COMAQCG       12     A     
 COMAQCG  *         *SIZE* = AMOUNT OF SPACE TO RESERVE (= 0 FOR DEFINITION ONLY)          COMAQCG       13     A     
 COMAQCG  *         *REG*  = REGISTER TO COMPILE FROM (*X7* ASSUMED IF OMITTED)            COMAQCG       14     A     
 COMAQCG  *                  IF OMITTED, INSTRUCTION WILL BE FORMED IN THE                 COMAQCG       15     A     
 COMAQCG  *                  SPECIFIED REGISTER, BUT WILL NOT BE STORED TO CORE.           COMAQCG       16     A     
 COMAQCG                                                                                   COMAQCG       17     A     
 COMAQCG                                                                                   COMAQCG       18     A     
 COMAQCG   CBSS     MACRO  LOC,SIZE,REG                                                    COMAQCG       19     A     
 COMAQCG   A        MICRO  1,, X7                                                          COMAQCG       20     A     
 COMAQCG            IFC    NE,*REG**,1                                                     COMAQCG       21     A     
 COMAQCG   A        MICRO  1,, REG                                                         COMAQCG       22     A     
 COMAQCG            =X0    LOC                                                             COMAQCG       23     A     
 COMAQCG            ="A"   I.BSS                                                           COMAQCG       24     A     
 COMAQCG            L"A"   PB.GHIJP                                                        COMAQCG       25     A     
 COMAQCG            I"A"   "A"+X0                                                          COMAQCG       26     A     
 COMAQCG            IFC    EQ,*REG**,1                                                     COMAQCG       27     A     
 COMAQCG            WCODE  X7                                                              COMAQCG       28     A     
 COMAQCG   CBSS     ENDM                                                                   COMAQCG       29     A     
 COMAQCG   CRJ      SPACE  4,10                                                            COMAQCG       30     A     
 COMAQCG  **        CRJ -  COMPILE RETURN JUMP TO EXTERNAL.                                COMAQCG       31     A     
 COMAQCG  *                                                                                COMAQCG       32     A     
 COMAQCG  *         CRJ    TYPE                                                            COMAQCG       33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAQCG 
  
 COMAQCG  *                                                                                COMAQCG       34     A     
 COMAQCG  *         *TYPE* = ONE OF THE FOLLOWING --                                       COMAQCG       35     A     
 COMAQCG  *                <OMITTED> = ALLOW TRACE INFORMATION TO BE COMPILED.             COMAQCG       36     A     
 COMAQCG  *                *ALLOW* = ALLOW TRACE INFORMATION TO BE COMPILED.               COMAQCG       37     A     
 COMAQCG  *                *NONE* = DO NOT COMPILE TRACE INFORMATION.                      COMAQCG       38     A     
 COMAQCG  *                *MUST* = MUST COMPILE TRACE INFORMATION.                        COMAQCG       39     A     
 COMAQCG  *                                                                                COMAQCG       40     A     
 COMAQCG  *         IF TYPE=ALLOW, GENERATION OF TRACE INFO DEPENDS ON THE                 COMAQCG       41     A     
 COMAQCG  *         COMPILER OPTION (CO.TBK).                                              COMAQCG       42     A     
 COMAQCG  *                                                                                COMAQCG       43     A     
 COMAQCG  *         CALLS  CRJ.                                                            COMAQCG       44     A     
 COMAQCG                                                                                   COMAQCG       45     A     
 COMAQCG                                                                                   COMAQCG       46     A     
 COMAQCG   CRJ      MACRO  TYPE                                                            COMAQCG       47     A     
 COMAQCG   A        MICRO  1,1, TYPE                                                       COMAQCG       48     A     
 COMAQCG  .1        IFC    EQ,**"A"*                                                       COMAQCG       49     A     
 COMAQCG            =X1    1                                                               COMAQCG       50     A     
 COMAQCG  .1        ENDIF                                                                  COMAQCG       51     A     
 COMAQCG   .2       IFC    EQ,*A*"A"*                                                      COMAQCG       52     A     
 COMAQCG            =X1    1                                                               COMAQCG       53     A     
 COMAQCG   .2       ENDIF                                                                  COMAQCG       54     A     
 COMAQCG   .3       IFC    EQ,*N*"A"*                                                      COMAQCG       55     A     
 COMAQCG            BX1    0                                                               COMAQCG       56     A     
 COMAQCG   .3       ENDIF                                                                  COMAQCG       57     A     
 COMAQCG   .4       IFC    EQ,*M*"A"*                                                      COMAQCG       58     A     
 COMAQCG            =X1    -1                                                              COMAQCG       59     A     
 COMAQCG   .4       ENDIF                                                                  COMAQCG       60     A     
 COMAQCG            RJ     =XCRJ                                                           COMAQCG       61     A     
 COMAQCG   CRJ      ENDM                                                                   COMAQCG       62     A     
 COMAQCG   DEFINS   SPACE  4,10                                                            COMAQCG       63     A     
 COMAQCG  **        DEFINE MACHINE OP-CODES.                                               COMAQCG       64     A     
 COMAQCG                                                                                   COMAQCG       65     A     
 COMAQCG                                                                                   COMAQCG       66     A     
 COMAQCG            MACRO  DEFINS,INST,OPC,TYPE                                            COMAQCG       67     A     
 COMAQCG   A        MICRO  1,, BS9                                                         COMAQCG       68     A     
 COMAQCG            IFC    EQ,/TYPE/M.BRAN/,1                                              COMAQCG       69     A     
 COMAQCG   A        MICRO  1,, BS6                                                         COMAQCG       70     A     
 COMAQCG   INST     EQU    OPC"A"                                                          COMAQCG       71     A     
 COMAQCG            ENDM                                                                   COMAQCG       72     A     
 COMAQCG                                                                                   COMAQCG       73     A     
 COMAQCG   DEFPO    OPSYN  NIL         PSUEDO-OP VALUES ARE IN TEXT                        COMAQCG       74     A     
 COMAQCG   DRITE    SPACE  4,8                                                             COMAQCG       75     A     
 COMAQCG  **        DRITE - MACRO TO BE USED FOR CHECKING DELAYED STORE ACTIVITY           COMAQCG       76     A     
 COMAQCG  *                ARGUMENT *CONTROL* MAY BE --                                    COMAQCG       77     A     
 COMAQCG  *                  A.  *DEACTIVATE = DEACTIVATES ANY DELAYED STORE IN            COMAQCG       78     A     
 COMAQCG  *                                    PROGRESS.                                   COMAQCG       79     A     
 COMAQCG  *                  B.  *X1-X7*     = DEACTIVATE DELAYED STORE ONLY IF            COMAQCG       80     A     
 COMAQCG  *                                    (X1-X7) = (DRITE).                          COMAQCG       81     A     
 COMAQCG                                                                                   COMAQCG       82     A     
 COMAQCG                                                                                   COMAQCG       83     A     
 COMAQCG   DRITE    MACRO  CONTROL                                                         COMAQCG       84     A     
 COMAQCG  .1        IFC    EQ,*CONTROL*DEACTIVATE*                                         COMAQCG       85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAQCG 
  
 COMAQCG            BX0    0                                                               COMAQCG       86     A     
 COMAQCG  .1        ELSE                                                                   COMAQCG       87     A     
 COMAQCG   .2       IFC    NE,*CONTROL*X0*                                                 COMAQCG       88     A     
 COMAQCG            BX0    CONTROL                                                         COMAQCG       89     A     
 COMAQCG   .2       ENDIF                                                                  COMAQCG       90     A     
 COMAQCG  .1        ENDIF                                                                  COMAQCG       91     A     
 COMAQCG            RJ     =XCDS                                                           COMAQCG       92     A     
 COMAQCG   DRITE    ENDM                                                                   COMAQCG       93     A     
 COMAQCG   WPOP     SPACE  4,10                                                            COMAQCG       94     A     
 COMAQCG  **        WPOP - WRITE PSUEDO-OP TO PB.                                          COMAQCG       95     A     
 COMAQCG  *                                                                                COMAQCG       96     A     
 COMAQCG  *         WPOP   PSN,RETURN                                                      COMAQCG       97     A     
 COMAQCG                                                                                   COMAQCG       98     A     
 COMAQCG                                                                                   COMAQCG       99     A     
 COMAQCG   WPOP     MACRO  PSN,RET                                                         COMAQCG      100     A     
 COMAQCG            =X7    PSN                                                             COMAQCG      101     A     
 COMAQCG            LX7    PB.GHIJP                                                        COMAQCG      102     A     
 COMAQCG            WCODE  X7,RET                                                          COMAQCG      103     A     
 COMAQCG            ENDM                                                                   COMAQCG      104     A     
 COMAQCG   WCODE    SPACE  4,8                                                             COMAQCG      105     A     
 COMAQCG  **        WCODE - WRITE PREBINARY CODE FILE.                                     COMAQCG      106     A     
 COMAQCG  *                                                                                COMAQCG      107     A     
 COMAQCG  *         WCODE   REG,RETURN                                                     COMAQCG      108     A     
 COMAQCG  *                                                                                COMAQCG      109     A     
 COMAQCG  *         REG =   ANY *X* REGISTER, (X7)                                         COMAQCG      110     A     
 COMAQCG  *         RETURN = RETURN ADDRESS.  *+1 ASSUMED IF OMITTED.                      COMAQCG      111     A     
 COMAQCG  *                            (B2) IS NATURAL REGISTER.                           COMAQCG      112     A     
 COMAQCG  *                                                                                COMAQCG      113     A     
 COMAQCG  *         USED FOR *ALL* WRITES TO THE PREBINARY FILE.                           COMAQCG      114     A     
 COMAQCG  *                                                                                COMAQCG      115     A     
 COMAQCG  *         CALLS  WIN                                                             COMAQCG      116     A     
 COMAQCG                                                                                   COMAQCG      117     A     
 COMAQCG            PURGMAC  WCODE                                                         COMAQCG      118     A     
 COMAQCG                                                                                   COMAQCG      119     A     
 COMAQCG   WCODE    MACRO  R,RETURN                                                        COMAQCG      120     A     
 COMAQCG            IFC    NE,/X7/R/,1                                                     COMAQCG      121     A     
 COMAQCG            BX7    R                                                               COMAQCG      122     A     
 COMAQCG            =B2    RETURN  *+2-*P/60                                               COMAQCG      123     A     
 COMAQCG            JP     =XWIN                                                           COMAQCG      124     A     
 COMAQCG   WCODE    ENDM                                                                   COMAQCG      125     A     
 COMAQCG            SPACE  4,8                                                             COMAQCG      126     A     
 COMAQCG   O$       MICRO  1,,/T./                                                         COMAQCG      127     A     
 COMAQCG   L$       MICRO  1,,/T=/                                                         COMAQCG      128     A     
 COMAQCG   TP       MICRO  1,,/P2/                                                         COMAQCG      129     A     
 COMAQCG   BIAS     MICRO  1,,/BIAS/                                                       COMAQCG      130     A     
 COMAQCG   ORD      MICRO  1,,/TAG/                                                        COMAQCG      131     A     
 COMAQCG                                                                                   COMAQCG      132     A     
 COMAQCG                                                                                   COMAQCG      133     A     
 COMAQCG   COMAQCG  ENDX                                                                   COMAQCG      134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 105    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMAQCG 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMAQCG                    134       134
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMCS 
  
 COMCMCS  *COMDECK COMCMCS                                                                 COMCMCS        1     A     
 COMCMCS   MCS      CTEXT  MCS - MERGE CODED STRINGS.                                      COMCMCS        2     A     
 COMCMCS   MCS      SPACE  4                                                               COMCMCS        3     A     
 COMCMCS            IF     -DEF,QUAL$,1                                                    COMCMCS        4     A     
 COMCMCS            QUAL   COMCMCS                                                         COMCMCS        5     A     
 COMCMCS   MCS      SPACE  4                                                               COMCMCS        6     A     
 COMCMCS  ***       MCS - MERGE CODED STRINGS.                                             COMCMCS        7     A     
 COMCMCS  *                                                                                COMCMCS        8     A     
 COMCMCS  *         D.C. DILLON   75/07/01                                                 COMCMCS        9     A     
 COMCMCS  *         D.C. DILLON   77/02/22                                                 COMCMCS       10     A     
 COMCMCS   MCS      SPACE  4                                                               COMCMCS       11     A     
 COMCMCS  **        MCS - MERGE CODED STRINGS.                                             COMCMCS       12     A     
 COMCMCS  *                                                                                COMCMCS       13     A     
 COMCMCS  *                CONCATENATES NEW CHARACTER STRING IN (X1) WITH OLD              COMCMCS       14     A     
 COMCMCS  *         STRING AT (B7).  STORES RESULT AT (B7) AND, IF NEW STRING              COMCMCS       15     A     
 COMCMCS  *         LENGTH REQUIRES, AT (B7)+1.  BOTH OLD AND NEW STRINGS ARE              COMCMCS       16     A     
 COMCMCS  *         ASSUMED TO BE LEFT JUSTIFIED WITH ZERO FILL.  EITHER MAY BE            COMCMCS       17     A     
 COMCMCS  *         NULL OR FULL.                                                          COMCMCS       18     A     
 COMCMCS  *                                                                                COMCMCS       19     A     
 COMCMCS  *                ***  LIMITATION -- TRAILING COLONS ARE IDENTICAL TO             COMCMCS       20     A     
 COMCMCS  *         ZERO FILL, AND WILL BE LOST.                                           COMCMCS       21     A     
 COMCMCS  *                                                                                COMCMCS       22     A     
 COMCMCS  *                                                                                COMCMCS       23     A     
 COMCMCS  *         ENTRY  (X1) = *NEW* STRING.                                            COMCMCS       24     A     
 COMCMCS  *                (B1) = 1 IF SYMBOL B1=1 IS DEFINED.                             COMCMCS       25     A     
 COMCMCS  *                (B7) = ADDRESS OF *OLD* STRING.                                 COMCMCS       26     A     
 COMCMCS  *                                                                                COMCMCS       27     A     
 COMCMCS  *         EXIT   MERGED STRING STORED AT (B7) AND, POSSIBLY, AT (B7)+1.          COMCMCS       28     A     
 COMCMCS  *                (X1) = UNCHANGED.                                               COMCMCS       29     A     
 COMCMCS  *                (X2) = ORIGINAL *OLD* STRING.                                   COMCMCS       30     A     
 COMCMCS  *                (X6) = *OLD* .AND. UPPER *NEW*.                                 COMCMCS       31     A     
 COMCMCS  *                (X7) = LOWER *NEW*, IF ANY, ELSE = 0.                           COMCMCS       32     A     
 COMCMCS  *                (B1) = 1 IF SYMBOL B1=1 IS NOT DEFINED.                         COMCMCS       33     A     
 COMCMCS  *                (B7) = ADDRESS OF *OLD*, UPDATED IF LOWER *NEW* .NZ.            COMCMCS       34     A     
 COMCMCS  *                                                                                COMCMCS       35     A     
 COMCMCS  *         USES   X - 2, 3, 6, 7                                                  COMCMCS       36     A     
 COMCMCS  *                A - 2, 3, 6, 7                                                  COMCMCS       37     A     
 COMCMCS  *                B - 1, 2, 7                                                     COMCMCS       38     A     
 COMCMCS  *                                                                                COMCMCS       39     A     
 COMCMCS  *         CALLS  NONE                                                            COMCMCS       40     A     
 COMCMCS                                                                                   COMCMCS       41     A     
 COMCMCS                                                                                   COMCMCS       42     A     
 COMCMCS   MCS      SUBR               ** ENTRY/EXIT **                                    COMCMCS       43     A     
 COMCMCS                                                                                   COMCMCS       44     A     
 COMCMCS            IF     -DEF,B1=1,1                                                     COMCMCS       45     A     
 COMCMCS            SB1    1                                                               COMCMCS       46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMCS 
  
 COMCMCS                                                                                   COMCMCS       47     A     
 COMCMCS            SA2    B7          (X2) = *OLD* STRING                                 COMCMCS       48     A     
 COMCMCS            MX7    -1                                                              COMCMCS       49     A     
 COMCMCS            SA3    MCSA                                                            COMCMCS       50     A     
 COMCMCS            IX6    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO CHAR            COMCMCS       51     A     
 COMCMCS            BX7    -X2*X6      EXTRACT BORROWS                                     COMCMCS       52     A     
 COMCMCS            SB2    55D                                                             COMCMCS       53     A     
 COMCMCS            BX7    X3*X7       EXTRACT NULL BYTES = 40                             COMCMCS       54     A     
 COMCMCS            LX3    X7,B2       EACH NULL BYTE     = 01                             COMCMCS       55     A     
 COMCMCS            IX6    X7-X3                          = 37                             COMCMCS       56     A     
 COMCMCS            BX7    X6+X7       EACH NULL BYTE     = 77 ... EXTRACTION MASK         COMCMCS       57     A     
 COMCMCS            CX6    X7                                                              COMCMCS       58     A     
 COMCMCS            SB2    X6                                                              COMCMCS       59     A     
 COMCMCS            LX3    X1,B2       ALIGN *NEW* WITH NULL PART OF *OLD*                 COMCMCS       60     A     
 COMCMCS            BX6    X7*X3                                                           COMCMCS       61     A     
 COMCMCS            BX7    -X7*X3      (X7) = LOWER *NEW*                                  COMCMCS       62     A     
 COMCMCS            BX6    X2+X6       (X6) = *OLD* .OR. UPPER *NEW*                       COMCMCS       63     A     
 COMCMCS            SA6    B7+0                                                            COMCMCS       64     A     
 COMCMCS            NZ     X7,MCS2     IF LOWER *NEW* NOT EMPTY                            COMCMCS       65     A     
 COMCMCS            PL     X7,EXIT.                                                        COMCMCS       66     A     
 COMCMCS   MCS2     SA7    B7+B1                                                           COMCMCS       67     A     
 COMCMCS            SB7    B7+B1       (B7) = UPDATED STRING ADDRESS                       COMCMCS       68     A     
 COMCMCS            EQ     EXIT.                                                           COMCMCS       69     A     
 COMCMCS                                                                                   COMCMCS       70     A     
 COMCMCS                                                                                   COMCMCS       71     A     
 COMCMCS   MCSA     DATA   40404040404040404040B   NULL CHARACTER BYTE MASK                COMCMCS       72     A     
 COMCMCS   MCS      SPACE  4                                                               COMCMCS       73     A     
 COMCMCS   QUAL$    IF     -DEF,QUAL$                                                      COMCMCS       74     A     
 COMCMCS            QUAL   *                                                               COMCMCS       75     A     
 COMCMCS   MCS      =      /COMCMCS/MCS                                                    COMCMCS       76     A     
 COMCMCS   QUAL$    ENDIF                                                                  COMCMCS       77     A     
 COMCMCS            ENDX                                                                   COMCMCS       78     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMCS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCMCS                     78        78
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *COMDECK  COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.                    COMCPAC        1     A     
 COMCPAC   PAC      CTEXT  COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.             COMCPAC        2     A     
 COMCPAC   PAC      SPACE  4,10                                                            COMCPAC        3     A     
 COMCPAC  ***       COMCPAC -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.                   COMCPAC        4     A     
 COMCPAC  *                                                                                COMCPAC        5     A     
 COMCPAC  *         R. H. GOODELL      71/07/01       COMPASS 3.0                          COMCPAC        6     A     
 COMCPAC  *         P. H. MCQUESTEN    71/11/05       COMQARG                              COMCPAC        7     A     
 COMCPAC  *         G. E. LOGG         74/07/26       COMQARG VERSION  2.                  COMCPAC        8     A     
 COMCPAC  *         D. MONTAGNA        77/09/26       COMCPAC                              COMCPAC        9     A     
 COMCPAC  *                                                                                COMCPAC       10     A     
 COMCPAC  *         COPYRIGHT CONTROL DATA CORP. 1977.                                     COMCPAC       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *         CONTROL DATA  PROPRIETARY PRODUCT.                                     COMCPAC       12     A     
 COMCPAC   PAC      SPACE  4,10                                                            COMCPAC       13     A     
 COMCPAC            IF     -DEF,QUAL$,1                                                    COMCPAC       14     A     
 COMCPAC            QUAL   COMCPAC                                                         COMCPAC       15     A     
 COMCPAC            BASE   D                                                               COMCPAC       16     A     
 COMCPAC   COMCPAC  SPACE  4,10                                                            COMCPAC       17     A     
 COMCPAC  ***       COMCPAC -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.                   COMCPAC       18     A     
 COMCPAC  *                                                                                COMCPAC       19     A     
 COMCPAC  *         PAC CAN BE USED TO PROCESS ANY STATEMENT WHICH IS MADE UP              COMCPAC       20     A     
 COMCPAC  *         OF A VERB FOLLOWED BY A LIST OF ITEMS DELIMITTED BY                    COMCPAC       21     A     
 COMCPAC  *         SEPARATORS AND ENDED BY A TERMINATOR. THE PARAMETERS MAY               COMCPAC       22     A     
 COMCPAC  *         HAVE THE FOLLOWING FORMS.                                              COMCPAC       23     A     
 COMCPAC  *                PARAMETER                                                       COMCPAC       24     A     
 COMCPAC  *                -PARAMETER                                                      COMCPAC       25     A     
 COMCPAC  *                PARAMETER=0                                                     COMCPAC       26     A     
 COMCPAC  *                PARAMETER=SOP1/../SOPN (WHERE S IS *-* OR NULL)                 COMCPAC       27     A     
 COMCPAC  *                PARAMETER=STRING                                                COMCPAC       28     A     
 COMCPAC  *         EACH OPTION MUST BE LESS THAN 11 CHARACTERS.  A STRING MAY             COMCPAC       29     A     
 COMCPAC  *         ANY LENGTH.  MORE THAN ONE OCCURENCE OF A PARAMETER MAY                COMCPAC       30     A     
 COMCPAC  *         BE ALLOWED.                                                            COMCPAC       31     A     
 COMCPAC  *         IF THE VERB IS *EXECUTE* AND (RA.PGN) DOES NOT CONTAIN                 COMCPAC       32     A     
 COMCPAC  *         *EXECUTE*, THE LOADER *EXECUTE* DIRECTIVE IS ASSUMED AND               COMCPAC       33     A     
 COMCPAC  *         SKIPPED.  *PAC* WILL TREAT A *NOS* LABEL AS THE VERB.                  COMCPAC       34     A     
 COMCPAC  *         THEREFORE, CALLERS HAVING AN *ARG=* ENTRY POINT MUST                   COMCPAC       35     A     
 COMCPAC  *         PREPROCESS THE LABEL BEFORE CALLING *PAC*.                             COMCPAC       36     A     
 COMCPAC  *                                                                                COMCPAC       37     A     
 COMCPAC  *         TERMINOLOGY --                                                         COMCPAC       38     A     
 COMCPAC  *           PARAMETER - THE KEYWORD USED IN SPECIFYING INFORMATION.              COMCPAC       39     A     
 COMCPAC  *           OPTION - A VALUE ASSIGNED TO A PARAMETER.                            COMCPAC       40     A     
 COMCPAC  *           FIRST DEFAULT - (FD) THE DEFAULT VALUE USED FOR A PARAMETER          COMCPAC       41     A     
 COMCPAC  *              WHEN IT DOES NOT APPEAR IN THE CONTROL STATEMENT.                 COMCPAC       42     A     
 COMCPAC  *           SECOND DEFAULT - (SD) THE DEFAULT VALUES USED WHEN ONLY THE          COMCPAC       43     A     
 COMCPAC  *              PARAMETER APPEARS (NO = IS PRESENT).                              COMCPAC       44     A     
 COMCPAC  *           INITIAL VALUES - (IV) THE VALUES PUT INTO EFFECT WHEN AN             COMCPAC       45     A     
 COMCPAC  *              = IS ENCOUNTERED IN THE FORM *PARAMETER=OP/.../OP* OR             COMCPAC       46     A     
 COMCPAC  *              *PARAMETER=*.  EXPLICIT VALUES *OP* ADD OR DELETE FROM            COMCPAC       47     A     
 COMCPAC  *              THIS INITIAL VALUE.                                               COMCPAC       48     A     
 COMCPAC  *                                                                                COMCPAC       49     A     
 COMCPAC  *         ** CONTROL STATEMENT SYNTAX **                                         COMCPAC       50     A     
 COMCPAC  *                                                                                COMCPAC       51     A     
 COMCPAC  *         PARAMETERS MAY BE SEPARATED BY ANY NON-ALPHANUMERIC CHARACTER          COMCPAC       52     A     
 COMCPAC  *         EXCEPT :,-,*,/,=,$,),. AND BLANK.                                      COMCPAC       53     A     
 COMCPAC  *         A BLANK MAY BE USED AS A SEPARATOR AFTER THE VERB.                     COMCPAC       54     A     
 COMCPAC  *         IN ALL OTHER CASES BLANKS ARE IGNORED. THE CHARACTERS ) AND            COMCPAC       55     A     
 COMCPAC  *         PERIOD (.) ARE THE TERMINATOR CHARACTERS.  ANY CHARACTERS              COMCPAC       56     A     
 COMCPAC  *         FOLLOWING THE TERMINATOR ARE IGNORED.  CONTINUATION LINES ARE          COMCPAC       57     A     
 COMCPAC  *         ALLOWED.  COLUMN 1 OF A CONTINUATION LINE LOGICALLY FOLLOWS            COMCPAC       58     A     
 COMCPAC  *         THE LAST CHARACTER OF THE PREVIOUS LINE.                               COMCPAC       59     A     
 COMCPAC  *         THE CHARACTERS -,*,/,= HAVE SPECIAL MEANING AND SHOULD                 COMCPAC       60     A     
 COMCPAC  *         ONLY BE USED AS SPECIFIED BELOW.                                       COMCPAC       61     A     
 COMCPAC  *         SEPARATORS AND SPECIAL CHARACTERS MAY BE SPECIFIED IN ANY              COMCPAC       62     A     
 COMCPAC  *         OPTION BY PLACING THE DESIRED CHARACTERS BETWEEN DOLLAR                COMCPAC       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *         SIGNS.  DOLLAR SIGNS MAY BE USED TO DELIMIT ANY SET OF                 COMCPAC       64     A     
 COMCPAC  *         CHARACTERS AND MAY OCCUR ANYWHERE WITHIN AN OPTION (E.G.               COMCPAC       65     A     
 COMCPAC  *         A$&$B IS EQUIVALENT TO $A&B$).  TO SPECIFY A DOLLAR SIGN               COMCPAC       66     A     
 COMCPAC  *         IN A DELIMITED FIELD USE TWO CONSECUTIVE DOLLAR SIGNS.                 COMCPAC       67     A     
 COMCPAC  *         THE OPERATING SYSTEM MAY IMPOSE MORE SEVERE RESTRICTIONS               COMCPAC       68     A     
 COMCPAC  *         ON CONTROL STATEMENT SYNTAX. THE APPROPRIATE OPERATING                 COMCPAC       69     A     
 COMCPAC  *         SYSTEM REFERENCE MANUAL SHOULD BE CONSULTED.                           COMCPAC       70     A     
 COMCPAC  *                                                                                COMCPAC       71     A     
 COMCPAC  *         THERE ARE THREE TYPES OF PARAMETERS.                                   COMCPAC       72     A     
 COMCPAC  *                                                                                COMCPAC       73     A     
 COMCPAC  *         BINARY VALUE PARAMETER - (BV) THE PARAMETER MAY BE EITHER              COMCPAC       74     A     
 COMCPAC  *            ON OR OFF.  *PARAMETER* TURNS IT ON AND *-PARAMETER*,               COMCPAC       75     A     
 COMCPAC  *            *PARAMETER=0*, OR *PARAMETER=* TURNS IT OFF.                        COMCPAC       76     A     
 COMCPAC  *         SPECIFIED VALUE PARAMETER - (SV) *PARAMETER=OP/.../OP*                 COMCPAC       77     A     
 COMCPAC  *            WHERE OP ARE VALUES FOR THIS PARAMETER.  THE NUMBER OF              COMCPAC       78     A     
 COMCPAC  *            OPTIONS MAY BE RESTRICTED (TO A MINIMUM OF 1).  IF ONLY             COMCPAC       79     A     
 COMCPAC  *            THE PARAMETER APPEARS, THE SECOND DEFAULT IS USED.  IF              COMCPAC       80     A     
 COMCPAC  *            *-PARAMETER* OR *PARAMETER=* IS SPECIFIED, *PARAMETER=0*            COMCPAC       81     A     
 COMCPAC  *            IS ASSUMED.                                                         COMCPAC       82     A     
 COMCPAC  *         MULTIPLE BINARY VALUE PARAMETERS - (MBV)                               COMCPAC       83     A     
 COMCPAC  *            *PARAMETER=SOP/.../SOP* WHERE S IS EITHER *-* OR NULL               COMCPAC       84     A     
 COMCPAC  *            AND OP IS THE NAME OF AN ON OFF SWITCH.  IF THE                     COMCPAC       85     A     
 COMCPAC  *            PARAMETER IS OMITTED FIRST DEFAULTS ARE USED.  IF ONLY              COMCPAC       86     A     
 COMCPAC  *            THE PARAMETER APPEARS, SECOND DEFAULTS ARE USED.  IF                COMCPAC       87     A     
 COMCPAC  *            IF AN EQUAL SIGN IS PRESENT THE INTIAL VALUES ARE FIRST             COMCPAC       88     A     
 COMCPAC  *            SET AND THE OPTION LIST (IF ANY) IS SCANNED FROM LEFT               COMCPAC       89     A     
 COMCPAC  *            RIGHT TO SELECT (IF *OP*) OR DESELECT (IF *-OP*) THE                COMCPAC       90     A     
 COMCPAC  *            OPTIONS.  A ZERO (0) DESELECTS ALL OPTIONS AND MAY BE               COMCPAC       91     A     
 COMCPAC  *            FOLLOWED BY NEW SELECTIONS.  *-PARAMETER* DESELECTS                 COMCPAC       92     A     
 COMCPAC  *            ALL OPTIONS.                                                        COMCPAC       93     A     
 COMCPAC  *                                                                                COMCPAC       94     A     
 COMCPAC  *         ** USING PAC **                                                        COMCPAC       95     A     
 COMCPAC  *                                                                                COMCPAC       96     A     
 COMCPAC  *         PAC IS CALLED BY PERFORMING AN RJ TO THE MAIN ROUTINE *PAC*.           COMCPAC       97     A     
 COMCPAC  *         THE FOLLOWING IS A LIST OF ROUTINES, CELLS, MICROS AND MACROS          COMCPAC       98     A     
 COMCPAC  *         WHICH ARE AVAILABLE TO THE USER.  A COMPLETE DEFINITION OF             COMCPAC       99     A     
 COMCPAC  *         USAGE IS GIVEN IN THE CODE.  THAT DESCRIPTION SHOULD BE                COMCPAC      100     A     
 COMCPAC  *         CONSULTED FOR APPROPRIATE DETAIL.                                      COMCPAC      101     A     
 COMCPAC  *                                                                                COMCPAC      102     A     
 COMCPAC  *         PAC = PROCESS ARGUMENTS FROM CONTROL STATEMENT.                        COMCPAC      103     A     
 COMCPAC  *         PAC.RET = RETURN FOR USER FIRST PARAMETER PROCESSOR                    COMCPAC      104     A     
 COMCPAC  *                (SEE *PAC.UFP*) AND USER NON-STANDARD ARGUMENT                  COMCPAC      105     A     
 COMCPAC  *                PROCESSOR (SEE *PAC.UAP*).                                      COMCPAC      106     A     
 COMCPAC  *         CFV = CHECK FILE NAME VALIDITY.                                        COMCPAC      107     A     
 COMCPAC  *         DEM = DISPLAY ERROR MESSAGES.                                          COMCPAC      108     A     
 COMCPAC  *         DEM.RET = RETURN FOR USER SUPPLEMENTAL ERROR PROCESSOR                 COMCPAC      109     A     
 COMCPAC  *                (SEE *DEM.UEP*).                                                COMCPAC      110     A     
 COMCPAC  *         (ERR.CNT) = NUMBER OF ERRORS IN CONTROL STATEMENT.                     COMCPAC      111     A     
 COMCPAC  *         (ERR.FLD) = ADDRESS OF A WORD CONTAINING THE BAD FIELD                 COMCPAC      112     A     
 COMCPAC  *                WITHIN THE CONTROL STATEMENT.                                   COMCPAC      113     A     
 COMCPAC  *         ERR.RET = RETURN FOR USER ERROR PROCESSOR (SEE *DEM.UEP*).             COMCPAC      114     A     
 COMCPAC  *         GNC = GET NEXT CHARACTER OF CONTROL STATEMENT.                         COMCPAC      115     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *         GNC.RET = RETURN FOR USER CONTINUATION LINE PROCESSOR                  COMCPAC      116     A     
 COMCPAC  *                (SEE *GNC.UCP*).                                                COMCPAC      117     A     
 COMCPAC  *         GNA = GET NEXT ARTIFACT FROM CONTROL STATEMENT.                        COMCPAC      118     A     
 COMCPAC  *         "PAC.NAME" = NAME OF PROCESSOR FOR ERROR MESSAGES (OPTIONAL).          COMCPAC      119     A     
 COMCPAC  *         CSERR = MACRO FOR CALLING DEFAULT ERROR MESSAGE PROCESSOR.             COMCPAC      120     A     
 COMCPAC  *         MBVOP = MACRO FOR DEFINING MULTIPLE BINARY VALUE OPTIONS.              COMCPAC      121     A     
 COMCPAC  *         PARAM = MACRO FOR DEFINING PARAMETER KEYWORDS.                         COMCPAC      122     A     
 COMCPAC  *                                                                                COMCPAC      123     A     
 COMCPAC  *         EXITS TO USER WHEN --                                                  COMCPAC      124     A     
 COMCPAC  *                THE FIRST PARAMETER IS ENCOUNTERED AND A USER FIRST             COMCPAC      125     A     
 COMCPAC  *                  PARAMETER PROCESSOR EXISTS;                                   COMCPAC      126     A     
 COMCPAC  *                A PARAMETER SPECIFIES NON-STANDARD PROCESSING;                  COMCPAC      127     A     
 COMCPAC  *                A CONTINUATION LINE IS NEEDED AND A USER CONTINUATION           COMCPAC      128     A     
 COMCPAC  *                  PROCESSOR EXISTS;                                             COMCPAC      129     A     
 COMCPAC  *                AN ERROR OCCURS AND A USER ERROR PROCESSOR EXISTS;              COMCPAC      130     A     
 COMCPAC  *                CONTROL STATEMENT PROCESSING IS COMPLETE.                       COMCPAC      131     A     
 COMCPAC  *                                                                                COMCPAC      132     A     
 COMCPAC  *         COMMON DECKS *COMADEF*, *COMCDXB*, *COMCSFN* AND *COMCSYS*             COMCPAC      133     A     
 COMCPAC  *         ARE REQUIRED.                                                          COMCPAC      134     A     
 COMCPAC   DEFS     SPACE  4,10                                                            COMCPAC      135     A     
 COMCPAC  **        CONTROL STATEMENT CHARACTER MAPPINGS.                                  COMCPAC      136     A     
 COMCPAC                                                                                   COMCPAC      137     A     
 COMCPAC   O.EOS    EQU    -1          TERMINATOR (PERIOD, RPAREN)                         COMCPAC      138     A     
 COMCPAC   O.VAL    EQU    0           ALPHANUMERIC  (A-Z, 0-9, *)                         COMCPAC      139     A     
 COMCPAC   O.SEP    EQU    1           SEPARATOR (PLUS, ET SEQ)                            COMCPAC      140     A     
 COMCPAC   O.SLASH  EQU    2           SLASH                                               COMCPAC      141     A     
 COMCPAC   O.EQUAL  EQU    3           EQUAL SIGN                                          COMCPAC      142     A     
 COMCPAC   O.MINUS  EQU    4           MINUS SIGN (MUST BE GREATEST VALUE)                 COMCPAC      143     A     
 COMCPAC   DEFS     SPACE  4,10                                                            COMCPAC      144     A     
 COMCPAC  **        PARAMETER TABLE DESCRIPTION.                                           COMCPAC      145     A     
 COMCPAC                                                                                   COMCPAC      146     A     
 COMCPAC            DESCRIBE KA.,,,0   PARAMETER TABLE WORD A                              COMCPAC      147     A     
 COMCPAC                                                                                   COMCPAC      148     A     
 COMCPAC   KEY      DEFINE 7*6         PARAMETER KEYWORD NAME (0L FORMAT)                  COMCPAC      149     A     
 COMCPAC   POA      DEFINE 18          FWA PARAM OPTION AREA (- IF PROCESSOR ADDR)         COMCPAC      150     A     
 COMCPAC                                                                                   COMCPAC      151     A     
 COMCPAC                                                                                   COMCPAC      152     A     
 COMCPAC            DESCRIBE KB.,,,1   PARAMETER TABLE WORD B                              COMCPAC      153     A     
 COMCPAC                                                                                   COMCPAC      154     A     
 COMCPAC   MBV      DEFINE 20          MULTIPLE BINARY VALUE TABLE FWA                     COMCPAC      155     A     
 COMCPAC            REDEF  MBV                                                             COMCPAC      156     A     
 COMCPAC   SD       DEFINE 20          SECOND DEFAULT TABLE FWA                            COMCPAC      157     A     
 COMCPAC   NOC      DEFINE 20          NUMBER OF OCCURENCES                                COMCPAC      158     A     
 COMCPAC   NOP      DEFINE 20          NUMBER OF OPTIONS PER OCCURENCE                     COMCPAC      159     A     
 COMCPAC                                                                                   COMCPAC      160     A     
 COMCPAC                                                                                   COMCPAC      161     A     
 COMCPAC            DESCRIBE KC.,,,2   PARAMETER TABLE WORD C                              COMCPAC      162     A     
 COMCPAC                                                                                   COMCPAC      163     A     
 COMCPAC   STR      DEFINE 60          STRING ATTRIBUTE (-BITS IN LAST WORD)               COMCPAC      164     A     
 COMCPAC            REDEF  STR                                                             COMCPAC      165     A     
 COMCPAC            DEFINE 3                                                               COMCPAC      166     A     
 COMCPAC   AT       DEFINE 3           1ST ATTRIBUTE                                       COMCPAC      167     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            DEFINE 18*3        REMAINING ATTRIBUTES (18 MORE FIELDS)               COMCPAC      168     A     
 COMCPAC                                                                                   COMCPAC      169     A     
 COMCPAC                                                                                   COMCPAC      170     A     
 COMCPAC   Z.KEY    =      3           LENGTH OF PARAMETER TABLE ENTRY                     COMCPAC      171     A     
 COMCPAC   DEFS     SPACE  4,10                                                            COMCPAC      172     A     
 COMCPAC  **        MULTIPLE BINARY VALUE OPTION TABLE DESCRIPTION.                        COMCPAC      173     A     
 COMCPAC                                                                                   COMCPAC      174     A     
 COMCPAC            DESCRIBE KD.,,,0   MULTIPLE BINARY VALUE TABLE WORD A                  COMCPAC      175     A     
 COMCPAC                                                                                   COMCPAC      176     A     
 COMCPAC   KOP      DEFINE 7*6         MBV KEYWORD OPTION NAME (0L FORMAT)                 COMCPAC      177     A     
 COMCPAC   KOA      DEFINE 18          KEYWORD OPTION ADDRESS                              COMCPAC      178     A     
 COMCPAC                                                                                   COMCPAC      179     A     
 COMCPAC                                                                                   COMCPAC      180     A     
 COMCPAC            DESCRIBE KE.,,,1   MULTIPLE BINARY VALUE TABLE WORD B                  COMCPAC      181     A     
 COMCPAC                                                                                   COMCPAC      182     A     
 COMCPAC   SD       DEFINE 1           SECOND DEFAULT (ON=1)                               COMCPAC      183     A     
 COMCPAC   IV       DEFINE 1           INITIAL VALUE (ON=1)                                COMCPAC      184     A     
 COMCPAC   OFF      DEFINE 1           ALWAYS OFF FLAG                                     COMCPAC      185     A     
 COMCPAC            DEFINE 57                                                              COMCPAC      186     A     
 COMCPAC                                                                                   COMCPAC      187     A     
 COMCPAC                                                                                   COMCPAC      188     A     
 COMCPAC   Z.MBV    =      2           LENGTH OF MULTIPLE BINARY VALUE TABLE ENTRY         COMCPAC      189     A     
 COMCPAC   DEFS     SPACE  4,10                                                            COMCPAC      190     A     
 COMCPAC   ON       =      1                                                               COMCPAC      191     A     
 COMCPAC   OFF      =      0                                                               COMCPAC      192     A     
 COMCPAC   PAC      SPACE  4,10                                                            COMCPAC      193     A     
 COMCPAC  **        PAC -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.                       COMCPAC      194     A     
 COMCPAC  *                                                                                COMCPAC      195     A     
 COMCPAC  *         THIS IS THE *PAC* MAIN PROCESSOR.  A COMPLETE DESCRIPTION OF           COMCPAC      196     A     
 COMCPAC  *         *PAC* IS GIVEN AT THE START OF THIS COMDECK.                           COMCPAC      197     A     
 COMCPAC  *                                                                                COMCPAC      198     A     
 COMCPAC  *         ENTRY  FIRST LINE OF CONTROL STATEMENT IS IN RA.CCD ET SEQ.            COMCPAC      199     A     
 COMCPAC  *                (B1) = 1                                                        COMCPAC      200     A     
 COMCPAC  *                (X1) = ADDRESS OF PARAMETER TABLE                               COMCPAC      201     A     
 COMCPAC  *                (X2) = LENGTH OF PARAMETER TABLE                                COMCPAC      202     A     
 COMCPAC  *                (X5) = ADDRESS OF USER FIRST PARAMETER PROCESSOR                COMCPAC      203     A     
 COMCPAC  *                       OR ZERO IF NONE                                          COMCPAC      204     A     
 COMCPAC  *                (X6) = ADDRESS USER ERROR PROCESSOR OR ZERO IF NONE             COMCPAC      205     A     
 COMCPAC  *                (X7) = ADDRESS OF USER CONTINUATION LINE PROCESSOR              COMCPAC      206     A     
 COMCPAC  *                       OR ZERO IF NONE.  THE *CONTRLC* MACRO WILL BE            COMCPAC      207     A     
 COMCPAC  *                       USED TO READ THE NEXT CONTROL STATEMENT IF NO            COMCPAC      208     A     
 COMCPAC  *                       USER CONTINUATION LINE PROCESSOR IS SPECIFIED.           COMCPAC      209     A     
 COMCPAC  *                                                                                COMCPAC      210     A     
 COMCPAC  *         EXIT   (B1) = 1                                                        COMCPAC      211     A     
 COMCPAC  *                (B3) = MODE:  -1 = NORMAL,  0 = QUOTE ($)                       COMCPAC      212     A     
 COMCPAC  *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)                   COMCPAC      213     A     
 COMCPAC  *                (A5) _ CURRENT WORD OF LINE IMAGE                               COMCPAC      214     A     
 COMCPAC  *                (X5) = CURRENT WORD OF LINE IMAGE                               COMCPAC      215     A     
 COMCPAC  *                       I.E. (B5,A5,X5) POINT TO THE CHARACTER FOLLOWING         COMCPAC      216     A     
 COMCPAC  *                       THE TERMINATOR.                                          COMCPAC      217     A     
 COMCPAC  *                (ERR.CNT) = NUMBER OF ERRORS ENCOUNTERED                        COMCPAC      218     A     
 COMCPAC  *                ARGUMENTS PROCESSED                                             COMCPAC      219     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *                                                                                COMCPAC      220     A     
 COMCPAC  *         USES   ALL                                                             COMCPAC      221     A     
 COMCPAC  *                RA.CCD TO RA.CCD+7                                              COMCPAC      222     A     
 COMCPAC  *                                                                                COMCPAC      223     A     
 COMCPAC  *         CALL   CFV, DEM, DXB=, GNA, GNC, MSG=, SFN=, SYS=                      COMCPAC      224     A     
 COMCPAC                                                                                   COMCPAC      225     A     
 COMCPAC                                                                                   COMCPAC      226     A     
 COMCPAC   PAC      SUBR               ...ENTRY/EXIT...                                    COMCPAC      227     A     
 COMCPAC            SA6    DEMA        SAVE USER ERROR PROCESSOR                           COMCPAC      228     A     
 COMCPAC            SA7    GNCC        SAVE USER CONTINUATION LINE PROCESSOR ADDR          COMCPAC      229     A     
 COMCPAC            BX6    X1                                                              COMCPAC      230     A     
 COMCPAC            LX7    X2                                                              COMCPAC      231     A     
 COMCPAC            SA6    PACB        SAVE ADDRESS OF PARAMETER TABLE                     COMCPAC      232     A     
 COMCPAC            SB5    B0                                                              COMCPAC      233     A     
 COMCPAC            BX6    X5                                                              COMCPAC      234     A     
 COMCPAC            SA7    A6+B1       SAVE LENGTH OF PARAMETER TABLE                      COMCPAC      235     A     
 COMCPAC            SA6    A7+B1       SAVE USER FIRST PARAMETER PROCESSOR                 COMCPAC      236     A     
 COMCPAC                                                                                   COMCPAC      237     A     
 COMCPAC  *         SKIP LEADING BLANKS.                                                   COMCPAC      238     A     
 COMCPAC                                                                                   COMCPAC      239     A     
 COMCPAC   PAC2     SB3    B0                                                              COMCPAC      240     A     
 COMCPAC            RJ     GNC                                                             COMCPAC      241     A     
 COMCPAC            SB7    X4-1R                                                           COMCPAC      242     A     
 COMCPAC            ZR     B7,PAC2     IF STILL BLANK                                      COMCPAC      243     A     
 COMCPAC                                                                                   COMCPAC      244     A     
 COMCPAC  *         SKIP VERB OR LOADER *EXECUTE* DIRECTIVE.                               COMCPAC      245     A     
 COMCPAC                                                                                   COMCPAC      246     A     
 COMCPAC            SX6    0+                                                              COMCPAC      247     A     
 COMCPAC            SB3    0+                                                              COMCPAC      248     A     
 COMCPAC   PAC4     LX6    6                                                               COMCPAC      249     A     
 COMCPAC            BX6    X6+X4       COLLECT NEXT CHARACTER                              COMCPAC      250     A     
 COMCPAC            RJ     GNC                                                             COMCPAC      251     A     
 COMCPAC            SB7    X4-1R9-1                                                        COMCPAC      252     A     
 COMCPAC            MI     B7,PAC4     IF STILL VERB                                       COMCPAC      253     A     
 COMCPAC                                                                                   COMCPAC      254     A     
 COMCPAC  *         RETURN IF TERMINATOR.                                                  COMCPAC      255     A     
 COMCPAC                                                                                   COMCPAC      256     A     
 COMCPAC            SB3    -1          SET NORMAL MODE                                     COMCPAC      257     A     
 COMCPAC            SB7    X4-1R.                                                          COMCPAC      258     A     
 COMCPAC            SB6    X4-1R)                                                          COMCPAC      259     A     
 COMCPAC            ZR     B7,EXIT.    IF TERMINATOR, DONE...                              COMCPAC      260     A     
 COMCPAC            ZR     B6,EXIT.    IF TERMINATOR, DONE...                              COMCPAC      261     A     
 COMCPAC                                                                                   COMCPAC      262     A     
 COMCPAC  *         CHECK FOR LOADER *EXECUTE* DIRECTIVE.                                  COMCPAC      263     A     
 COMCPAC                                                                                   COMCPAC      264     A     
 COMCPAC            SA2    =7REXECUTE                                                      COMCPAC      265     A     
 COMCPAC            IX6    X2-X6                                                           COMCPAC      266     A     
 COMCPAC            NZ     X6,PAC6     IF NOT EXECUTE                                      COMCPAC      267     A     
 COMCPAC            LX2    3*6         7LEXECUTE                                           COMCPAC      268     A     
 COMCPAC            SA3    RA.PGN      PROGRAM NAME                                        COMCPAC      269     A     
 COMCPAC            MX0    7*6                                                             COMCPAC      270     A     
 COMCPAC            BX3    X0*X3                                                           COMCPAC      271     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            IX6    X2-X3                                                           COMCPAC      272     A     
 COMCPAC            ZR     X6,PAC6     IF VERB IS EXECUTE                                  COMCPAC      273     A     
 COMCPAC            SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS                     COMCPAC      274     A     
 COMCPAC            RJ     GNA         SKIP THE VERB                                       COMCPAC      275     A     
 COMCPAC                                                                                   COMCPAC      276     A     
 COMCPAC  *         CHECK FOR USER FIRST PARAMETER PROCESSOR.                              COMCPAC      277     A     
 COMCPAC                                                                                   COMCPAC      278     A     
 COMCPAC   PAC6     SA1    PACB+2                                                          COMCPAC      279     A     
 COMCPAC            ZR     X1,PAC10    IF NO USER PROCESSOR                                COMCPAC      280     A     
 COMCPAC   PAC.UFP  SPACE  4,10                                                            COMCPAC      281     A     
 COMCPAC  **        PAC.UFP - USER FIRST PARAMETER PROCESSING.                             COMCPAC      282     A     
 COMCPAC  *                                                                                COMCPAC      283     A     
 COMCPAC  *         EXIT   (B3,B4,B5,A5,X5) = AS IN *PAC.RET* (SEE BELOW)                  COMCPAC      284     A     
 COMCPAC  *                                                                                COMCPAC      285     A     
 COMCPAC  *         REENTRY AT *PAC.RET* (SEE BELOW)                                       COMCPAC      286     A     
 COMCPAC                                                                                   COMCPAC      287     A     
 COMCPAC                                                                                   COMCPAC      288     A     
 COMCPAC   PAC.UFP  BSS                                                                    COMCPAC      289     A     
 COMCPAC            SB6    X1                                                              COMCPAC      290     A     
 COMCPAC            JP     B6          JUMP TO USER FIRST PARAMETER PROCESSOR              COMCPAC      291     A     
 COMCPAC   PAC      SPACE  4,10                                                            COMCPAC      292     A     
 COMCPAC  **        PAC.RET - PROCESS NEXT PARAMETER.                                      COMCPAC      293     A     
 COMCPAC  *                                                                                COMCPAC      294     A     
 COMCPAC  *         THIS IS THE PAC MAIN LOOP NODE.  ALL PARAMETER PROCESSORS,             COMCPAC      295     A     
 COMCPAC  *         INCLUDING USER FIRST PARAMETER AND NON-STANDARD PROCESSORS,            COMCPAC      296     A     
 COMCPAC  *         RE-ENTER HERE.  IF REQUESTED, THE PREVIOUS PARAMETER TABLE             COMCPAC      297     A     
 COMCPAC  *         IS UPDATED BEFORE PROCESSING THE NEXT PARAMETER.                       COMCPAC      298     A     
 COMCPAC  *                                                                                COMCPAC      299     A     
 COMCPAC  *         ENTRY  (B1) = 1                                                        COMCPAC      300     A     
 COMCPAC  *                (B2) = NUMBER OF OPTION SUBFIELDS REMAINING (OR 0 IF            COMCPAC      301     A     
 COMCPAC  *                       RETURNING FROM PROCESSOR)                                COMCPAC      302     A     
 COMCPAC  *                (B3) = MODE:  -1 = NORMAL,  0= QUOTE ($)                        COMCPAC      303     A     
 COMCPAC  *                (B4) = TYPE OF CHARACTER AFTER THE PRECEEDING PARAMETER         COMCPAC      304     A     
 COMCPAC  *                (B5) = NUMBER OF CHARACTERS REMAINING IN X5                     COMCPAC      305     A     
 COMCPAC  *                (B7) = ADDRESS+1 OF LAST OPTION STORED (OR - ADDRESS            COMCPAC      306     A     
 COMCPAC  *                       OF USER PROCESSOR).  IF (B7) = 0, THE PARAMETER          COMCPAC      307     A     
 COMCPAC  *                       TABLE WILL NOT BE UPDATED AND (B2), (A0) ARE             COMCPAC      308     A     
 COMCPAC  *                       IGNORED.                                                 COMCPAC      309     A     
 COMCPAC  *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                          COMCPAC      310     A     
 COMCPAC  *                (A5) _ CURRENT WORD OF LINE IMAGE                               COMCPAC      311     A     
 COMCPAC  *                (X5) = CURRENT WORD OF LINE IMAGE                               COMCPAC      312     A     
 COMCPAC                                                                                   COMCPAC      313     A     
 COMCPAC   PAC.RET  BSS                ...MAIN LOOP NODE                                   COMCPAC      314     A     
 COMCPAC            ZR     B7,PAC10    IF NOTHING TO UPDATE                                COMCPAC      315     A     
 COMCPAC            SA1    A0-KB.W+KA.W      WORD A                                        COMCPAC      316     A     
 COMCPAC            MX4    -KA.POAL                                                        COMCPAC      317     A     
 COMCPAC            SA2    A0          WORD B                                              COMCPAC      318     A     
 COMCPAC            MX3    1                                                               COMCPAC      319     A     
 COMCPAC            BX6    X4*X1       (X6) = 0LKEYWORD                                    COMCPAC      320     A     
 COMCPAC            LX3    KB.NOCP-59                                                      COMCPAC      321     A     
 COMCPAC            SX1    B7+B2       ADDRESS TO STORE NEXT OPTION GROUP                  COMCPAC      322     A     
 COMCPAC            IX7    X2-X3       DECREMENT NUMBER OF OCCURENCES                      COMCPAC      323     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            BX1    -X4*X1      TRUNCATE TO KA.POAL                                 COMCPAC      324     A     
 COMCPAC            SA7    A2          UPDATE WORD B                                       COMCPAC      325     A     
 COMCPAC            BX6    X6+X1                                                           COMCPAC      326     A     
 COMCPAC            SA6    A1+         UPDATE POA FIELD                                    COMCPAC      327     A     
 COMCPAC                                                                                   COMCPAC      328     A     
 COMCPAC                                                                                   COMCPAC      329     A     
 COMCPAC  **        PROCESS NEXT PARAMETER.                                                COMCPAC      330     A     
 COMCPAC                                                                                   COMCPAC      331     A     
 COMCPAC   PAC10    BSS                                                                    COMCPAC      332     A     
 COMCPAC            SX6    B4-O.MINUS                                                      COMCPAC      333     A     
 COMCPAC            MI     B4,EXIT.    IF TERMINATOR, DONE...                              COMCPAC      334     A     
 COMCPAC            SA6    PACA        INDICATE POSSIBLE MINUS SIGN PREFIX                 COMCPAC      335     A     
 COMCPAC            SX0    1           DO NOT ALLOW .GT. 10 CHARACTERS                     COMCPAC      336     A     
 COMCPAC            RJ     GNA         GET NEXT ARTIFACT                                   COMCPAC      337     A     
 COMCPAC            ZR     X6,PAC10    IF EMPTY ARGUMENT, IGNORE                           COMCPAC      338     A     
 COMCPAC            SA1    PACB        START OF PARAMETER TABLE                            COMCPAC      339     A     
 COMCPAC            MX3    KA.KEYL                                                         COMCPAC      340     A     
 COMCPAC            SA4    A1+B1                                                           COMCPAC      341     A     
 COMCPAC            SA2    X1+         LENGTH OF PARAMETER TABLE                           COMCPAC      342     A     
 COMCPAC            SB7    X4+                                                             COMCPAC      343     A     
 COMCPAC            SA6    ERR.FLD     SAVE SEARCHED FOR PARAMETER                         COMCPAC      344     A     
 COMCPAC                                                                                   COMCPAC      345     A     
 COMCPAC  *         SEARCH PARAMETER TABLE.                                                COMCPAC      346     A     
 COMCPAC                                                                                   COMCPAC      347     A     
 COMCPAC   PAC12    BX4    X3*X2       EXTRACT KEY                                         COMCPAC      348     A     
 COMCPAC            ERRNZ  60-KA.KEYL-KA.KEYP                                              COMCPAC      349     A     
 COMCPAC            SB7    B7-Z.KEY                                                        COMCPAC      350     A     
 COMCPAC            BX7    X4-X6                                                           COMCPAC      351     A     
 COMCPAC            ZR     X7,PAC14    IF FOUND                                            COMCPAC      352     A     
 COMCPAC            SA2    A2+Z.KEY    NEXT TABLE ENTRY                                    COMCPAC      353     A     
 COMCPAC            GT     B7,PAC12    IF MORE KEYS TO CHECK                               COMCPAC      354     A     
 COMCPAC            EQ     E.UA        ** UNRECOGNIZED ARGUMENT **                         COMCPAC      355     A     
 COMCPAC                                                                                   COMCPAC      356     A     
 COMCPAC  *         PROCESS PARAMETER ITEM.                                                COMCPAC      357     A     
 COMCPAC                                                                                   COMCPAC      358     A     
 COMCPAC   PAC14    LX2    -KA.POAP                                                        COMCPAC      359     A     
 COMCPAC            SB7    X2          PARAMETER OPTION ADDRESS                            COMCPAC      360     A     
 COMCPAC            ERRMI  KA.POAL-18  FIELD .GE. 18 ASSUMED                               COMCPAC      361     A     
 COMCPAC            SA2    A2+KB.W     WORD B                                              COMCPAC      362     A     
 COMCPAC            SX3    B4-O.EQUAL                                                      COMCPAC      363     A     
 COMCPAC            LX2    -KB.NOPP                                                        COMCPAC      364     A     
 COMCPAC            SA0    A2          SAVE WORD B POINTER                                 COMCPAC      365     A     
 COMCPAC            SB2    X2          NUMBER OF OPTIONS                                   COMCPAC      366     A     
 COMCPAC            ERRMI  KB.NOPL-18  FIELD .GE. 18 ASSUMED                               COMCPAC      367     A     
 COMCPAC            LX2    KB.NOPP-KB.SDP                                                  COMCPAC      368     A     
 COMCPAC            SX1    X2          SECOND DEFAULT                                      COMCPAC      369     A     
 COMCPAC            ERRMI  KB.SDL-18   FIELD .GE. 18 ASSUMED                               COMCPAC      370     A     
 COMCPAC            LX2    KB.SDP-KB.NOCP                                                  COMCPAC      371     A     
 COMCPAC            SX2    X2+         NUMBER OF OCCURENCES                                COMCPAC      372     A     
 COMCPAC            ERRMI  KB.NOCL-18  FIELD .GE. 18 ASSUMED                               COMCPAC      373     A     
 COMCPAC                                                                                   COMCPAC      374     A     
 COMCPAC                                                                                   COMCPAC      375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  **        TRANSFER TO PARAMETER PROCESSOR.                                       COMCPAC      376     A     
 COMCPAC  *                                                                                COMCPAC      377     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                                COMCPAC      378     A     
 COMCPAC  *                (B7) = FWA PARAMETER OPTION AREA (- IF PROCESSOR)               COMCPAC      379     A     
 COMCPAC  *                (A0) _ WORD B OF PARAMETER TABLE                                COMCPAC      380     A     
 COMCPAC  *                (X1) = FWA SECOND DEFAULT TABLE (- IF BV, 0 IF NONE)            COMCPAC      381     A     
 COMCPAC  *                (X2) = NUMBER OF OCCURENCES ALLOWED                             COMCPAC      382     A     
 COMCPAC  *                (X3) = 0 IF *=* FOLLOWS THIS KEY                                COMCPAC      383     A     
 COMCPAC                                                                                   COMCPAC      384     A     
 COMCPAC            ZR     X2,E.TMOC   IF ** TOO MANY OCCURENCES **                        COMCPAC      385     A     
 COMCPAC            MI     B7,PAC.UAP  IF SPECIAL, CALL USER ARGUMENT PROCESSOR            COMCPAC      386     A     
 COMCPAC            ZR     B7,PAC60    IF MULTIPLE BINARY VALUE PARAMETER                  COMCPAC      387     A     
 COMCPAC            MI     X1,PAC50    IF BINARY VALUE PARAMETER                           COMCPAC      388     A     
 COMCPAC            ZR     X3,PAC30    IF = FOLLOWS PARAMETER KEYWORD                      COMCPAC      389     A     
 COMCPAC            ZR     X1,E.NE     IF ** = REQUIRED **                                 COMCPAC      390     A     
 COMCPAC            SA1    X1+                                                             COMCPAC      391     A     
 COMCPAC                                                                                   COMCPAC      392     A     
 COMCPAC                                                                                   COMCPAC      393     A     
 COMCPAC  **        PROCESS *PARAM* OR *-PARAM* SYNTAX FOR SPECIFIED VALUE PARAM.          COMCPAC      394     A     
 COMCPAC  *                                                                                COMCPAC      395     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                                COMCPAC      396     A     
 COMCPAC  *                (B7) = FWA PARAMETER OPTION AREA                                COMCPAC      397     A     
 COMCPAC  *                (A1) = FWA SECOND DEFAULT LIST                                  COMCPAC      398     A     
 COMCPAC                                                                                   COMCPAC      399     A     
 COMCPAC                                                                                   COMCPAC      400     A     
 COMCPAC            SA2    PACA        MINUS FLAG                                          COMCPAC      401     A     
 COMCPAC            ZR     X2,PAC100   IF MINUS PRESENT, ZERO ALL OPTIONS                  COMCPAC      402     A     
 COMCPAC                                                                                   COMCPAC      403     A     
 COMCPAC                                                                                   COMCPAC      404     A     
 COMCPAC  **        PROCESS SECOND DEFAULT FOR SPECIFIED VALUE PARAMETERS.                 COMCPAC      405     A     
 COMCPAC                                                                                   COMCPAC      406     A     
 COMCPAC   PAC20    BSS                                                                    COMCPAC      407     A     
 COMCPAC            BX6    X1                                                              COMCPAC      408     A     
 COMCPAC            SB2    B2-B1                                                           COMCPAC      409     A     
 COMCPAC            SA6    B7          UPDATE NEXT OPTION                                  COMCPAC      410     A     
 COMCPAC            SA1    A1+B1                                                           COMCPAC      411     A     
 COMCPAC            SB7    B7+1                                                            COMCPAC      412     A     
 COMCPAC            NZ     B2,PAC20    IF MORE OPTIONS                                     COMCPAC      413     A     
 COMCPAC            EQ     PAC.RET     RE-ENTER MAIN LOOP...                               COMCPAC      414     A     
 COMCPAC                                                                                   COMCPAC      415     A     
 COMCPAC                                                                                   COMCPAC      416     A     
 COMCPAC  **        PROCESS SPECIFIED VALUE PARAMETER OPTIONS.                             COMCPAC      417     A     
 COMCPAC                                                                                   COMCPAC      418     A     
 COMCPAC   PAC30    BSS                                                                    COMCPAC      419     A     
 COMCPAC            SA4    A0-KB.W+KC.W      GET WORD C                                    COMCPAC      420     A     
 COMCPAC            SA2    PACA        MINUS FLAG                                          COMCPAC      421     A     
 COMCPAC            BX7    X4                                                              COMCPAC      422     A     
 COMCPAC            ZR     X2,E.ME     IF ** - AND = NOT ALLOWED **                        COMCPAC      423     A     
 COMCPAC            PL     X7,PAC38    IF NOT A STRING OPTION                              COMCPAC      424          I
          -FC5A284
 COMCPAC            PL     X7,PAC36    IF NOT A STRING OPTION                              FC5A284        5     A     
 COMCPAC                                                                                   COMCPAC      425     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC                                                                                   COMCPAC      426     A     
 COMCPAC  **        PROCESS STRING ATTRIBUTES.                                             COMCPAC      427     A     
 COMCPAC  *                                                                                COMCPAC      428     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF OPTIONS LEFT                                   COMCPAC      429     A     
 COMCPAC  *                (B7) = NEXT PARAMETER STORE ADDRESS                             COMCPAC      430     A     
 COMCPAC  *                (A0) _ WORD B                                                   COMCPAC      431     A     
 COMCPAC  *                (X7) = -(NUMBER OF BITS ALLOWED IN LAST WORD OF STRING)         COMCPAC      432     A     
 COMCPAC                                                                                   COMCPAC      433     A     
 COMCPAC   PAC32    BSS                                                                    COMCPAC      434     A     
 COMCPAC            SX0    B0          ALLOW .GT. 10 CHARACTERS                            COMCPAC      435     A     
 COMCPAC            RJ     GNA         GET NEXT ARTIFACT                                   COMCPAC      436     A     
 COMCPAC            SA6    B7          STORE THIS WORD                                     COMCPAC      437     A     
 COMCPAC            SB2    B2-B1                                                           COMCPAC      438     A     
 COMCPAC            SB7    B7+1                                                            COMCPAC      439     A     
 COMCPAC            NZ     B4,PAC34    IF END OF STRING                                    COMCPAC      440     A     
 COMCPAC            NZ     B2,PAC32    IF NOT END OF SUBFIELDS                             COMCPAC      441     A     
 COMCPAC                                                                                   FC5A284        6     A     
 COMCPAC   PAC33    MX1    KA.KEYL                                                         COMCPAC      442     A     
 COMCPAC            SA2    A0-KB.W+KA.W                                                    COMCPAC      443     A     
 COMCPAC            BX6    X1*X2       EXTRACT PARAMETER NAME                              COMCPAC      444     A     
 COMCPAC            SA6    ERR.FLD     STORE PARAMETER NAME                                COMCPAC      445     A     
 COMCPAC            EQ     E.STL       ** STRING TOO LONG **                               COMCPAC      446     A     
 COMCPAC                                                                                   COMCPAC      447     A     
 COMCPAC  *         CHECK FOR STRING TOO LONG.                                             COMCPAC      448     A     
 COMCPAC                                                                                   COMCPAC      449     A     
 COMCPAC   PAC34    NZ     B2,PAC100   IF NOT LAST WORD                                    COMCPAC      450     A     
 COMCPAC            SB2    9*6                                                             COMCPAC      451     A     
 COMCPAC            SB6    B2-B6       NUMBER OF BITS IN X6                                COMCPAC      452     A     
 COMCPAC            SB2    B6+X7       NUMBER OF EXCESS BITS IN X6                         COMCPAC      453     A     
 COMCPAC            GT     B2,PAC35    IF TOO LONG                                         COMCPAC      454     A     
 COMCPAC            SB2    B0                                                              COMCPAC      455     A     
 COMCPAC            EQ     PAC.RET     RE-ENTER MAIN LOOP...                               COMCPAC      456     A     
 COMCPAC                                                                                   COMCPAC      457     A     
 COMCPAC   PAC35    SB6    X7+B1                                                           COMCPAC      458     A     
 COMCPAC            MX1    1                                                               COMCPAC      459     A     
 COMCPAC            LX0    X1,B6       FORM MASK                                           COMCPAC      460     A     
 COMCPAC            BX6    X0*X6       TRUNCATE STRING                                     COMCPAC      461     A     
 COMCPAC            SA6    B7-B1       RESTORE LAST WORD OF STRING                         COMCPAC      462     A     
 COMCPAC            EQ     PAC33       FLAG THE ERROR                                      COMCPAC      463     A     
 COMCPAC                                                                                   COMCPAC      464     A     
 COMCPAC                                                                                   COMCPAC      465     A     
 COMCPAC  **        PROCESS SPECIFIED VALUE OPTIONS SEPARATED BY /.                        COMCPAC      466     A     
 COMCPAC  *                                                                                COMCPAC      467     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF OPTIONS REMAINING                              COMCPAC      468     A     
 COMCPAC  *                (B7) = NEXT ADDRESS TO STORE ARGUMENT                           COMCPAC      469     A     
 COMCPAC  *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                          COMCPAC      470     A     
 COMCPAC  *                (X7) = WORD C OF PARAMETER TABLE ENTRY                          COMCPAC      471     A     
 COMCPAC                                                                                   COMCPAC      472     A     
 COMCPAC   PAC38    BSS                                                                    COMCPAC      473          I
          -FC5A284
 COMCPAC            LX7    KC.ATL      POSITION FIRST ATRIBUTE                             COMCPAC      474          I
          -FC5A284
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC   PAC36    LX7    KC.ATL      POSITION FIRST ATTRIBUTE                            FC5A284        7     A     
 COMCPAC            ERRNZ  60-2*KC.ATL-KC.ATP                                              COMCPAC      475     A     
 COMCPAC                                                                                   COMCPAC      476     A     
 COMCPAC   PAC39    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS                     COMCPAC      477          I
          -FC5A284
 COMCPAC   PAC38    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS                     FC5A284        8     A     
 COMCPAC            RJ     GNA         GET NEXT ARTIFACT                                   COMCPAC      478     A     
 COMCPAC            SA6    ERR.FLD                                                         COMCPAC      479          I
          -FC5A284
 COMCPAC            NZ     X6,PAC39    IF ARTIFACT NOT SEPERATOR, ETC.                     FC5A284        9     A     
 COMCPAC            LX4    6           SHIFT CHARACTER                                     FC5A284       10     A     
 COMCPAC            BX6    X4                                                              FC5A284       11     A     
 COMCPAC                                                                                   FC5A284       12     A     
 COMCPAC   PAC39    SA6    ERR.FLD                                                         FC5A284       13     A     
 COMCPAC            ZR     B2,E.TMOP   IF ** TOO MANY OPTIONS **                           COMCPAC      480     A     
 COMCPAC            SB2    B2-B1                                                           COMCPAC      481     A     
 COMCPAC            LX7    KC.ATL                                                          COMCPAC      482     A     
 COMCPAC            ZR     X6,PAC42    IF NULL PARAMETER                                   COMCPAC      483     A     
 COMCPAC            MX4    -KC.ATL                                                         COMCPAC      484     A     
 COMCPAC            BX4    -X4*X7      EXTRACT NEXT ATTRIBUTE                              COMCPAC      485     A     
 COMCPAC            SX1    -B6                                                             COMCPAC      486     A     
 COMCPAC            SB6    X4+PAC40                                                        COMCPAC      487     A     
 COMCPAC            JP     B6          PROCESS NEXT OPTION                                 COMCPAC      488     A     
 COMCPAC                                                                                   COMCPAC      489     A     
 COMCPAC  *         ATTRIBUTE JUMP TABLE.                                                  COMCPAC      490     A     
 COMCPAC                                                                                   COMCPAC      491     A     
 COMCPAC   PAC40    BSS                                                                    COMCPAC      492     A     
 COMCPAC   +        EQ     PAC42       0 = CHARACTER FIELD 0L FORMAT                       COMCPAC      493     A     
 COMCPAC   +        EQ     PAC44       1 = CHARACTER FIELD 0R FORMAT                       COMCPAC      494     A     
 COMCPAC   +        EQ     PAC46       2 = FILE NAME                                       COMCPAC      495     A     
 COMCPAC   +        SB6    B7                                                              COMCPAC      496     A     
 COMCPAC            SB7    B1                                                              COMCPAC      497     A     
 COMCPAC            EQ     PAC48       3 = NUMERIC FIELD (DECIMAL ASSUMED)                 COMCPAC      498     A     
 COMCPAC   +        SB6    B7                                                              COMCPAC      499     A     
 COMCPAC            SB7    B0                                                              COMCPAC      500     A     
 COMCPAC            EQ     PAC48       4 = NUMERIC FIELD (OCTAL ASSUMED)                   COMCPAC      501     A     
 COMCPAC                                                                                   COMCPAC      502     A     
 COMCPAC                                                                                   COMCPAC      503     A     
 COMCPAC  **        STORE OPTION VALUE.                                                    COMCPAC      504     A     
 COMCPAC  *                                                                                COMCPAC      505     A     
 COMCPAC  *         ENTRY  (B7) = ADDRESS TO STORE OPTION VALUE                            COMCPAC      506     A     
 COMCPAC  *                (X6) = OPTION VALUE                                             COMCPAC      507     A     
 COMCPAC  *                (B2,A0,X7) = AS *PAC38*                                         COMCPAC      508     A     
 COMCPAC                                                                                   COMCPAC      509     A     
 COMCPAC   PAC42    BSS                                                                    COMCPAC      510     A     
 COMCPAC            SA6    B7+         PROCESS CHARACTER FIELD                             COMCPAC      511     A     
 COMCPAC            SX1    B4-O.SLASH                                                      COMCPAC      512     A     
 COMCPAC            SB7    B7+1                                                            COMCPAC      513     A     
 COMCPAC            ZR     X1,PAC39    IF MORE OPTIONS                                     COMCPAC      514          I
          -FC5A284
 COMCPAC            ZR     X1,PAC38    IF MORE OPTIONS                                     FC5A284       14     A     
 COMCPAC            EQ     PAC100      ZERO REMAINING OPTION SUBFIELDS                     COMCPAC      515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC                                                                                   COMCPAC      516     A     
 COMCPAC                                                                                   COMCPAC      517     A     
 COMCPAC  **        RIGHT JUSTIFY CHARACTER FIELD.                                         COMCPAC      518     A     
 COMCPAC  *                                                                                COMCPAC      519     A     
 COMCPAC  *         ENTRY  (X1) = 6 - NUMBER OF UNUSED BIT IN (X6)                         COMCPAC      520     A     
 COMCPAC  *                (X6) = CHARACTER FIELD, LEFT JUSTIFIED                          COMCPAC      521     A     
 COMCPAC                                                                                   COMCPAC      522     A     
 COMCPAC   PAC44    BSS                                                                    COMCPAC      523     A     
 COMCPAC            SB6    60+X1-6                                                         COMCPAC      524     A     
 COMCPAC            LX6    X6,B6                                                           COMCPAC      525     A     
 COMCPAC            EQ     PAC42       STORE OPTION VALUE                                  COMCPAC      526     A     
 COMCPAC                                                                                   COMCPAC      527     A     
 COMCPAC                                                                                   COMCPAC      528     A     
 COMCPAC  **        CHECK FILE NAME OPTION.                                                COMCPAC      529     A     
 COMCPAC  *                                                                                COMCPAC      530     A     
 COMCPAC  *         ENTRY  (X6) = FILENAME 0L FORMAT                                       COMCPAC      531     A     
 COMCPAC                                                                                   COMCPAC      532     A     
 COMCPAC   PAC46    BSS                                                                    COMCPAC      533     A     
 COMCPAC            BX1    X6                                                              COMCPAC      534     A     
 COMCPAC            RJ     CFV         CHECK FILE NAME VALIDITY                            COMCPAC      535     A     
 COMCPAC            ZR     X4,PAC42    IF NAME OK                                          COMCPAC      536     A     
 COMCPAC            EQ     E.IFN       ** ILLEGAL FILE NAME **                             COMCPAC      537     A     
 COMCPAC                                                                                   COMCPAC      538     A     
 COMCPAC                                                                                   COMCPAC      539     A     
 COMCPAC  **        CONVERT NUMERIC OPTION.                                                COMCPAC      540     A     
 COMCPAC  *                                                                                COMCPAC      541     A     
 COMCPAC  *         ENTRY  (B6) = SAVED (B7)                                               COMCPAC      542     A     
 COMCPAC  *                (B7) = 1 IF ASSUMED DECIMAL, 0 IF OCTAL                         COMCPAC      543     A     
 COMCPAC  *                (X6) = VALUE TO CONVERT                                         COMCPAC      544     A     
 COMCPAC                                                                                   COMCPAC      545     A     
 COMCPAC   PAC48    BSS                SAVE REGISTERS                                      COMCPAC      546     A     
 COMCPAC            SA7    PACA        (X7)                                                COMCPAC      547     A     
 COMCPAC            BX7    X5                                                              COMCPAC      548     A     
 COMCPAC            LX5    X6                                                              COMCPAC      549     A     
 COMCPAC            SA7    A7+B1       (X5)                                                COMCPAC      550     A     
 COMCPAC            MX0    -18                                                             COMCPAC      551     A     
 COMCPAC            SX6    B2                                                              COMCPAC      552     A     
 COMCPAC            SX7    B4                                                              COMCPAC      553     A     
 COMCPAC            BX7    -X0*X7                                                          COMCPAC      554     A     
 COMCPAC            LX6    40                                                              COMCPAC      555     A     
 COMCPAC            LX7    20                                                              COMCPAC      556     A     
 COMCPAC            BX6    X6+X7                                                           COMCPAC      557     A     
 COMCPAC            SX7    B5                                                              COMCPAC      558     A     
 COMCPAC            BX7    -X0*X7                                                          COMCPAC      559     A     
 COMCPAC            BX6    X6+X7                                                           COMCPAC      560     A     
 COMCPAC            SA6    A7+B1       (B2,B4,B5)                                          COMCPAC      561     A     
 COMCPAC            RJ     =XDXB       CHECK AND CONVERT NUMBER                            COMCPAC      562     A     
 COMCPAC            SA1    PACA        RESTORE REGISTERS                                   COMCPAC      563     A     
 COMCPAC            SA2    A1+B1                                                           COMCPAC      564     A     
 COMCPAC            BX7    X1          (X7)                                                COMCPAC      565     A     
 COMCPAC            SA3    A2+B1                                                           COMCPAC      566     A     
 COMCPAC            LX5    X2          (X5)                                                COMCPAC      567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            SB5    X3          (B5)                                                COMCPAC      568     A     
 COMCPAC            AX3    20                                                              COMCPAC      569     A     
 COMCPAC            SB4    X3          (B4)                                                COMCPAC      570     A     
 COMCPAC            SB3    -B1         (B3)                                                COMCPAC      571     A     
 COMCPAC            AX3    20                                                              COMCPAC      572     A     
 COMCPAC            SB2    X3          (B2)                                                COMCPAC      573     A     
 COMCPAC            SB7    B6+         (B7)                                                COMCPAC      574     A     
 COMCPAC            ZR     X4,PAC42    IF NUMBER OK                                        COMCPAC      575     A     
 COMCPAC            EQ     E.IN        ** ILLEGAL NUMERIC **                               COMCPAC      576     A     
 COMCPAC                                                                                   COMCPAC      577     A     
 COMCPAC                                                                                   COMCPAC      578     A     
 COMCPAC  **        PROCESS BINARY VALUE PARAMETER.                                        COMCPAC      579     A     
 COMCPAC  *                                                                                COMCPAC      580     A     
 COMCPAC  *         ENTRY  (B7) = ADDRESS TO STORE SWITCH:  ON=1S59, OFF=0                 COMCPAC      581     A     
 COMCPAC  *                (X3) = 0 IF *=* AFTER PARAMETER KEYWORD                         COMCPAC      582     A     
 COMCPAC  *                (PACA) = 0 IF MINUS BEFORE KEYWORD, ELSE .NE. 0                 COMCPAC      583     A     
 COMCPAC                                                                                   COMCPAC      584     A     
 COMCPAC   PAC50    BSS                                                                    COMCPAC      585     A     
 COMCPAC            SA2    PACA        MINUS FLAG                                          COMCPAC      586     A     
 COMCPAC            SX7    OFF                                                             COMCPAC      587     A     
 COMCPAC            ZR     X2,PAC52    IF MINUS PRESENT                                    COMCPAC      588     A     
 COMCPAC            ZR     X3,PAC54    IF EQUAL PRESENT                                    COMCPAC      589     A     
 COMCPAC            MX7    ON                                                              COMCPAC      590     A     
 COMCPAC            EQ     PAC56       SET SWITCH                                          COMCPAC      591     A     
 COMCPAC                                                                                   COMCPAC      592     A     
 COMCPAC   PAC52    ZR     X3,E.ME     IF ** - AND = NOT ALLOWED **                        COMCPAC      593     A     
 COMCPAC            EQ     PAC56       SET SWITCH                                          COMCPAC      594     A     
 COMCPAC                                                                                   COMCPAC      595     A     
 COMCPAC   PAC54    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS                     COMCPAC      596     A     
 COMCPAC            RJ     GNA         GET NEXT ARTIFACT                                   COMCPAC      597     A     
 COMCPAC            ZR     X6,PAC56    IF NULL, OK                                         COMCPAC      598     A     
 COMCPAC            LX6    2*6                                                             COMCPAC      599     A     
 COMCPAC            SX4    X6-2R0 +1R                                                      COMCPAC      600     A     
 COMCPAC            ZR     X4,PAC56    IF 0, OK                                            COMCPAC      601     A     
 COMCPAC            EQ     E.IBV       ** ILLEGAL BINARY VALUE **                          COMCPAC      602     A     
 COMCPAC                                                                                   COMCPAC      603     A     
 COMCPAC   PAC56    SA7    B7                                                              COMCPAC      604     A     
 COMCPAC            EQ     PAC.RET     RE-ENTER MAIN LOOP...                               COMCPAC      605     A     
 COMCPAC                                                                                   COMCPAC      606     A     
 COMCPAC                                                                                   COMCPAC      607     A     
 COMCPAC  **        PROCESS MULTIPLE BINARY VALUE PARAMETER.                               COMCPAC      608     A     
 COMCPAC  *                                                                                COMCPAC      609     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                                COMCPAC      610     A     
 COMCPAC  *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                          COMCPAC      611     A     
 COMCPAC  *                (X1) = MBV TABLE ADDRESS                                        COMCPAC      612     A     
 COMCPAC  *                (X3) = 0 IF *=* FOLLOWS PARAMETER KEYWORD                       COMCPAC      613     A     
 COMCPAC                                                                                   COMCPAC      614     A     
 COMCPAC   PAC60    BSS                                                                    COMCPAC      615     A     
 COMCPAC            ERRNZ  KB.MBVP-KB.SDP    MBV FIELD = SD FIELD ASSUMED                  COMCPAC      616     A     
 COMCPAC            SB7    B2+                                                             COMCPAC      617     A     
 COMCPAC            SB6    59-KE.SDP   SECOND DEFAULT                                      COMCPAC      618     A     
 COMCPAC            NZ     X3,PAC62    IF NO =                                             COMCPAC      619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            SA2    PACA        MINUS FLAG                                          COMCPAC      620     A     
 COMCPAC            SB6    59-KE.IVP   INITIAL VALUE                                       COMCPAC      621     A     
 COMCPAC            ZR     X2,E.ME     IF ** - AND = NOT ALLOWED **                        COMCPAC      622     A     
 COMCPAC                                                                                   COMCPAC      623     A     
 COMCPAC  *         INITIALIZE TO SECOND DEFAULT OR INITIAL VALUE.                         COMCPAC      624     A     
 COMCPAC                                                                                   COMCPAC      625     A     
 COMCPAC   PAC62    SA2    X1+KD.W     MBV WORD A                                          COMCPAC      626     A     
 COMCPAC   PAC64    SA4    A2-KD.W+KE.W      MBV WORD B                                    COMCPAC      627     A     
 COMCPAC            MX7    ON                                                              COMCPAC      628     A     
 COMCPAC            LX4    X4,B6                                                           COMCPAC      629     A     
 COMCPAC            MI     X4,PAC66    IF ON                                               COMCPAC      630     A     
 COMCPAC            SX7    OFF                                                             COMCPAC      631     A     
 COMCPAC   PAC66    SA7    X2+         STORE BINARY VALUE                                  COMCPAC      632     A     
 COMCPAC            ERRNZ  KD.KOAP     LOWER 18 BITS ASSUMED                               COMCPAC      633     A     
 COMCPAC            SB7    B7-1                                                            COMCPAC      634     A     
 COMCPAC            ZR     B7,PAC68    IF DONE                                             COMCPAC      635     A     
 COMCPAC            SA2    A2+Z.MBV                                                        COMCPAC      636     A     
 COMCPAC            EQ     PAC64       SETUP NEXT ENTRY                                    COMCPAC      637     A     
 COMCPAC                                                                                   COMCPAC      638     A     
 COMCPAC  *         SET SELECTED OPTIONS IF PRESENT.                                       COMCPAC      639     A     
 COMCPAC                                                                                   COMCPAC      640     A     
 COMCPAC   PAC68    NZ     X3,PAC80    IF NO =                                             COMCPAC      641     A     
 COMCPAC            MX7    ON                                                              COMCPAC      642     A     
 COMCPAC            SB7    X1          SAVE MBV TABLE ADDRESS                              COMCPAC      643     A     
 COMCPAC                                                                                   COMCPAC      644     A     
 COMCPAC  *         GET NEXT OPTION.                                                       COMCPAC      645     A     
 COMCPAC                                                                                   COMCPAC      646     A     
 COMCPAC   PAC70    SX0    1           DO NOT ALLOW .GT. 10 CHARACTERS                     COMCPAC      647     A     
 COMCPAC            RJ     GNA         GET NEXT ARTIFACT                                   COMCPAC      648     A     
 COMCPAC            NZ     X6,PAC74    IF AN OPTION                                        COMCPAC      649     A     
 COMCPAC                                                                                   COMCPAC      650     A     
 COMCPAC  *         CHECK FOR MINUS.                                                       COMCPAC      651     A     
 COMCPAC                                                                                   COMCPAC      652     A     
 COMCPAC            SX3    B4-O.MINUS                                                      COMCPAC      653     A     
 COMCPAC            NZ     X3,PAC72    IF NOT A MINUS                                      COMCPAC      654     A     
 COMCPAC            SA1    PACA        MINUS FLAG                                          COMCPAC      655     A     
 COMCPAC            ZR     X1,PAC80    IF ALREADY A MINUS                                  COMCPAC      656     A     
 COMCPAC            SX7    OFF                                                             COMCPAC      657     A     
 COMCPAC            EQ     PAC70       GO FOR MORE                                         COMCPAC      658     A     
 COMCPAC                                                                                   COMCPAC      659     A     
 COMCPAC  *         CHECK FOR SLASH.                                                       COMCPAC      660     A     
 COMCPAC                                                                                   COMCPAC      661     A     
 COMCPAC   PAC72    SX3    B4-O.SLASH                                                      COMCPAC      662     A     
 COMCPAC            NZ     X3,PAC80    IF NOT A SLASH                                      COMCPAC      663     A     
 COMCPAC            MX7    ON                                                              COMCPAC      664     A     
 COMCPAC            EQ     PAC70       GO FOR MORE                                         COMCPAC      665     A     
 COMCPAC                                                                                   COMCPAC      666     A     
 COMCPAC  *         FIND THE OPTION.                                                       COMCPAC      667     A     
 COMCPAC  *                                                                                COMCPAC      668     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                                COMCPAC      669     A     
 COMCPAC  *                (B7) = FWA MBV TABLE AREA                                       COMCPAC      670     A     
 COMCPAC  *                (X6) = 0L OPTION                                                COMCPAC      671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *                (X7) = ON OR OFF SWITCH VALUE                                   COMCPAC      672     A     
 COMCPAC                                                                                   COMCPAC      673     A     
 COMCPAC   PAC74    MX0    KD.KOPL                                                         COMCPAC      674     A     
 COMCPAC            ERRNZ  60-KD.KOPL-KD.KOPP    ASSUMES UPPER 42                          COMCPAC      675     A     
 COMCPAC            SA2    B7+                                                             COMCPAC      676     A     
 COMCPAC            SB6    B2                                                              COMCPAC      677     A     
 COMCPAC            SA6    ERR.FLD                                                         COMCPAC      678     A     
 COMCPAC   PAC76    BX4    X0*X2                                                           COMCPAC      679     A     
 COMCPAC            SB6    B6-1                                                            COMCPAC      680     A     
 COMCPAC            BX4    X4-X6                                                           COMCPAC      681     A     
 COMCPAC            ZR     X4,PAC78    IF FOUND                                            COMCPAC      682     A     
 COMCPAC            SA2    A2+Z.MBV    NEXT TABLE ENTRY                                    COMCPAC      683     A     
 COMCPAC            GE     B6,PAC76    IF MORE OPTIONS TO CHECK                            COMCPAC      684          I
          -FC5A321
 COMCPAC            GT     B6,PAC76    IF MORE OPTIONS TO CHECK                            FC5A321        7     A     
 COMCPAC            LX6    2*6                                                             COMCPAC      685     A     
 COMCPAC            SX4    X6-2R0 +1R                                                      COMCPAC      686     A     
 COMCPAC            NZ     X4,E.UOP    ** UNKNOWN OPTION **                                COMCPAC      687     A     
 COMCPAC                                                                                   COMCPAC      688     A     
 COMCPAC  *         OPTION IS *0*.  OFF ALL OPTIONS.                                       COMCPAC      689     A     
 COMCPAC                                                                                   COMCPAC      690     A     
 COMCPAC            SX1    B7          MBV TABLE FWA                                       COMCPAC      691     A     
 COMCPAC            SB6    B2          MBV TABLE LENGTH                                    COMCPAC      692     A     
 COMCPAC            MX7    OFF                                                             COMCPAC      693     A     
 COMCPAC            =A2    X1+KD.W     MBV 1ST WORD                                        COMCPAC      694     A     
 COMCPAC   PAC77    SA7    X2                                                              COMCPAC      695     A     
 COMCPAC            =B6    B6-1                                                            COMCPAC      696     A     
 COMCPAC            ZR     B6,PAC72    IF DONE                                             COMCPAC      697     A     
 COMCPAC            SA2    A2+Z.MBV                                                        COMCPAC      698     A     
 COMCPAC            EQ     PAC77       CONTINUE OFFING                                     COMCPAC      699     A     
 COMCPAC                                                                                   COMCPAC      700     A     
 COMCPAC  *         UPDATE THE OPTION.                                                     COMCPAC      701     A     
 COMCPAC                                                                                   COMCPAC      702     A     
 COMCPAC   PAC78    SA7    X2                                                              COMCPAC      703     A     
 COMCPAC            ERRNZ  KD.KOAP     ASSUMES ADDRESS IN LOWER 18                         COMCPAC      704     A     
 COMCPAC            MX7    ON                                                              COMCPAC      705     A     
 COMCPAC            EQ     PAC72       GO FOR MORE                                         COMCPAC      706     A     
 COMCPAC                                                                                   COMCPAC      707     A     
 COMCPAC   PAC80    SB7    B1                                                              COMCPAC      708     A     
 COMCPAC            SB2    -B7         SO B7+B2 = 0                                        COMCPAC      709     A     
 COMCPAC            EQ     PAC.RET     RE-ENTER MAIN LOOP...                               COMCPAC      710     A     
 COMCPAC                                                                                   COMCPAC      711     A     
 COMCPAC                                                                                   COMCPAC      712     A     
 COMCPAC  **        ZERO THE REMAINING OPTION SUBFIELDS.                                   COMCPAC      713     A     
 COMCPAC  *                                                                                COMCPAC      714     A     
 COMCPAC  *         ENTRY  (B2) = NUMBER OF SUBFIELDS TO ZERO                              COMCPAC      715     A     
 COMCPAC  *                (B7) = ADDRESS OF NEXT SUBFIELD                                 COMCPAC      716     A     
 COMCPAC                                                                                   COMCPAC      717     A     
 COMCPAC   PAC100   BSS                                                                    COMCPAC      718     A     
 COMCPAC            ZR     B2,PAC.RET  IF DONE, RE-ENTER MAIN LOOP...                      COMCPAC      719     A     
 COMCPAC            BX6    X6-X6                                                           COMCPAC      720     A     
 COMCPAC            SB2    B2-B1                                                           COMCPAC      721     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            SA6    B7                                                              COMCPAC      722     A     
 COMCPAC            SB7    B7+B1                                                           COMCPAC      723     A     
 COMCPAC            EQ     PAC100      MORE TO ZERO                                        COMCPAC      724     A     
 COMCPAC   PAC.UAP  SPACE  4,10                                                            COMCPAC      725     A     
 COMCPAC  **        PAC.UAP - USER ARGUMENT PROCESSOR.                                     COMCPAC      726     A     
 COMCPAC  *                                                                                COMCPAC      727     A     
 COMCPAC  *         EXITS TO USER ARGUMENT PROCESSOR.  USER RE-ENTERS AT                   COMCPAC      728     A     
 COMCPAC  *         *PAC.RET*.  SEE *PAC.RET* FOR RE-ENTRY CONDITIONS.  THE                COMCPAC      729     A     
 COMCPAC  *         VALUE OF B7 WILL OVERRIDE THE VALUE DEFINED BY THE *POA*               COMCPAC      730     A     
 COMCPAC  *         PARAMETER ON THE *PARAM* MACRO.                                        COMCPAC      731     A     
 COMCPAC  *                                                                                COMCPAC      732     A     
 COMCPAC  *         EXIT   (B1) = 1                                                        COMCPAC      733     A     
 COMCPAC  *                (B2) = NUMBER OF OPTION SUBFIELDS ALLOWED                       COMCPAC      734     A     
 COMCPAC  *                (B4) = CHARACTER TYPE (SEE *GNC*)                               COMCPAC      735     A     
 COMCPAC  *                (B7) = ADDRESS OF USER PROCESSOR                                COMCPAC      736     A     
 COMCPAC  *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                          COMCPAC      737     A     
 COMCPAC  *                (X1) = FWA OF SECOND DEFAULT LIST                               COMCPAC      738     A     
 COMCPAC  *                (X2) = NUMBER OF OCCURENCES ALLOWED                             COMCPAC      739     A     
 COMCPAC  *                (X3) = 0 IF *=* FOLLOWS KEYWORD                                 COMCPAC      740     A     
 COMCPAC  *                                                                                COMCPAC      741     A     
 COMCPAC  *         REENTRY TO *PAC.RET* (SEE FOR REQUIREMENTS)                            COMCPAC      742     A     
 COMCPAC                                                                                   COMCPAC      743     A     
 COMCPAC                                                                                   COMCPAC      744     A     
 COMCPAC   PAC.UAP  BSS                                                                    COMCPAC      745     A     
 COMCPAC            SB7    -B7                                                             COMCPAC      746     A     
 COMCPAC            JP     B7          PROCESS SPECIAL ARGUMENTS                           COMCPAC      747     A     
 COMCPAC   PAC      SPACE  4,10                                                            COMCPAC      748     A     
 COMCPAC   PACA     CON    0           SWITCH VALUE AND USED TO SAVE X7                    COMCPAC      749     A     
 COMCPAC            CON    0           SAVE X5                                             COMCPAC      750     A     
 COMCPAC            CON    0           SAVE B2,B4,B5                                       COMCPAC      751     A     
 COMCPAC   PACB     CON    0           FWA OF PARAMETER TABLE                              COMCPAC      752     A     
 COMCPAC            CON    0           LENGTH OF PARAMETER TABLE                           COMCPAC      753     A     
 COMCPAC            CON    0           ADDRESS OF USER FIRST PARAMETER PROCESSOR           COMCPAC      754     A     
 COMCPAC   CFV      SPACE  4,15                                                            COMCPAC      755     A     
 COMCPAC  **        CFV -  CHECK LOGICAL FILE NAME VALIDITY.                               COMCPAC      756     A     
 COMCPAC  *                                                                                COMCPAC      757     A     
 COMCPAC  *         A LEGAL FILE NAME MAY CONTAIN FROM ONE TO SEVEN                        COMCPAC      758     A     
 COMCPAC  *         ALPHANUMERIC CHARACTERS.                                               COMCPAC      759     A     
 COMCPAC  *                                                                                COMCPAC      760     A     
 COMCPAC  *         ENTRY  (X1) = NAME TO BE CHECKED (0L FORMAT)                           COMCPAC      761     A     
 COMCPAC  *                                                                                COMCPAC      762     A     
 COMCPAC  *         EXIT   (X6) = NAME, TRUNCATED TO 7 CHARACTERS IF NECESSARY             COMCPAC      763     A     
 COMCPAC  *                       IF NAME WAS *0*, REPLY IS BINARY ZERO.                   COMCPAC      764     A     
 COMCPAC  *                (X4) = 0 IF NAME WAS VALID, ELSE .NE. 0                         COMCPAC      765     A     
 COMCPAC  *                                                                                COMCPAC      766     A     
 COMCPAC  *         USES   X - 1, 2, 4, 6                                                  COMCPAC      767     A     
 COMCPAC                                                                                   COMCPAC      768     A     
 COMCPAC                                                                                   COMCPAC      769     A     
 COMCPAC   CFV      SUBR               ...ENTRY/EXIT...                                    COMCPAC      770     A     
 COMCPAC            SX2    X1+                                                             COMCPAC      771     A     
 COMCPAC            IX6    X6-X6                                                           COMCPAC      772     A     
 COMCPAC            LX1    2*6                                                             COMCPAC      773     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            SX4    X1-2R0 +1R                                                      COMCPAC      774     A     
 COMCPAC            ZR     X4,EXIT.    IF *0*                                              COMCPAC      775     A     
 COMCPAC                                                                                   FC5A146        5     A     
 COMCPAC   .OS      IFNE   .OS,1       IF NOT NOS                                          FC5A146        6     A     
 COMCPAC            PL     X4,EXIT.    IF FIRST CHARACTER NOT ALPHABETIC                   FC5A146        7     A     
 COMCPAC   .OS      ENDIF                                                                  FC5A146        8     A     
 COMCPAC                                                                                   FC5A146        9     A     
 COMCPAC            LX1    -2*6        RESTORE (X1)                                        COMCPAC      776     A     
 COMCPAC            BX6    X2-X1                                                           COMCPAC      777     A     
 COMCPAC            NZ     X2,EXIT.    IF MORE THAN 7 CHARS                                COMCPAC      778     A     
 COMCPAC            MX4    0                                                               COMCPAC      779     A     
 COMCPAC            EQ     EXIT.       DONE...                                             COMCPAC      780     A     
 COMCPAC   DEM      SPACE  4,10                                                            COMCPAC      781     A     
 COMCPAC  **        DEM - DAYFILE ERROR MESSAGES.                                          COMCPAC      782     A     
 COMCPAC  *                                                                                COMCPAC      783     A     
 COMCPAC  *         ENTRY  (B6) _ DAYFILE MESSAGE                                          COMCPAC      784     A     
 COMCPAC  *                (DEMA) = 0 TO DAYFILE THE ERROR MESSAGE ELSE, ADDRESS           COMCPAC      785     A     
 COMCPAC  *                        OF USER ERROR PROCESSOR TO CALL.  IF (DEMA)=0,          COMCPAC      786     A     
 COMCPAC  *                        * "PAC.NAME" CONTROL STATEMENT ERRORS --* WILL          COMCPAC      787     A     
 COMCPAC  *                        BE DISPLAYED THE FIRST TIME IN.                         COMCPAC      788     A     
 COMCPAC  *                (ERR.FLD) = ARGUMENT FIELD WHICH IS IN ERROR IF ANY.            COMCPAC      789     A     
 COMCPAC  *                        IF .NE. 0, (ERR.FLD) WILL BE PREFIXED TO                COMCPAC      790     A     
 COMCPAC  *                        THE MESSAGE IN (B6) (WHICH MUST BE .LE.                 COMCPAC      791     A     
 COMCPAC  *                        3 WORDS LONG).                                          COMCPAC      792     A     
 COMCPAC  *                                                                                COMCPAC      793     A     
 COMCPAC  *         USES   B - 6                                                           COMCPAC      794     A     
 COMCPAC  *                A - 1-3, 6                                                      COMCPAC      795     A     
 COMCPAC  *                X - 0-4, 6                                                      COMCPAC      796     A     
 COMCPAC  *                                                                                COMCPAC      797     A     
 COMCPAC  *         CALLS  MSG=, SFN= (OR USER ERROR PROCESSOR)                            COMCPAC      798     A     
 COMCPAC                                                                                   COMCPAC      799     A     
 COMCPAC                                                                                   COMCPAC      800     A     
 COMCPAC   ERR.RET  BSS                ...USER PROCESSOR RETURN                            COMCPAC      801     A     
 COMCPAC                                                                                   COMCPAC      802     A     
 COMCPAC   DEM      SUBR               ...ENTRY/EXIT...                                    COMCPAC      803     A     
 COMCPAC            SA2    DEMA                                                            COMCPAC      804     A     
 COMCPAC            NZ     X2,DEM.UEP  IF USER ERROR PROCESSOR SHOULD BE CALLED            COMCPAC      805     A     
 COMCPAC                                                                                   COMCPAC      806     A     
 COMCPAC   DEM.RET  BSS                ...USER SUPPLEMENTAL PROCESSOR RETURN               COMCPAC      807     A     
 COMCPAC            SA2    ERR.CNT     ERROR COUNT                                         COMCPAC      808     A     
 COMCPAC            SX6    X2+B1                                                           COMCPAC      809     A     
 COMCPAC            SA6    A2          UPDATE ERROR COUNT                                  COMCPAC      810     A     
 COMCPAC            NZ     X2,DEM1     IF NOT FIRST TIME                                   COMCPAC      811     A     
 COMCPAC            MESSAGE  DEMB,,RCL                                                     COMCPAC      812     A     
 COMCPAC   DEM1     SA1    ERR.FLD                                                         COMCPAC      813     A     
 COMCPAC            NZ     X1,DEM2     IF ARGUMENT FIELD EXISTS                            COMCPAC      814     A     
 COMCPAC            MESSAGE B6,,RCL                                                        COMCPAC      815          I
          -FC5A158A 
 COMCPAC            SX1    B6                                                              FC5A158A      10     A     
 COMCPAC            MESSAGE   X1,,RCL                                                      FC5A158A      11     A     
 COMCPAC            EQ     EXIT.       DONE...                                             COMCPAC      816     A     
 COMCPAC                                                                                   COMCPAC      817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC   DEM2     SX0    B2          SAVE B2                                             COMCPAC      818     A     
 COMCPAC            BX4    X7          SAVE X7                                             COMCPAC      819     A     
 COMCPAC            RJ     =XSFN=      SPACE FILL NAME                                     COMCPAC      820     A     
 COMCPAC            SA6    A1          (ERR.FLD)                                           COMCPAC      821     A     
 COMCPAC            SA1    B6          MESSAGE WORD 1                                      COMCPAC      822     A     
 COMCPAC            BX6    X1                                                              COMCPAC      823     A     
 COMCPAC            SA6    A6+B1                                                           COMCPAC      824     A     
 COMCPAC            SA1    A1+B1       MESSAGE WORD 2                                      COMCPAC      825     A     
 COMCPAC            BX6    X1                                                              COMCPAC      826     A     
 COMCPAC            SA6    A6+B1                                                           COMCPAC      827     A     
 COMCPAC            SA1    A1+1        MESSAGE WORD 3                                      COMCPAC      828     A     
 COMCPAC            BX6    X1                                                              COMCPAC      829     A     
 COMCPAC            SA6    A6+B1                                                           COMCPAC      830     A     
 COMCPAC            MESSAGE ERR.FLD,,RCL                                                   COMCPAC      831     A     
 COMCPAC            SB2    X0          RESTORE B2                                          COMCPAC      832     A     
 COMCPAC            BX7    X4          RETORE X7                                           COMCPAC      833     A     
 COMCPAC            EQ     EXIT.       DONE...                                             COMCPAC      834     A     
 COMCPAC   DEM.UEP  SPACE  4,10                                                            COMCPAC      835     A     
 COMCPAC  **        CALL USER ERROR PROCESSOR.                                             COMCPAC      836     A     
 COMCPAC  *                                                                                COMCPAC      837     A     
 COMCPAC  *         EXIT   (A1) = FWA OF DAYFILE MESSAGE OR ZERO IF NONE                   COMCPAC      838     A     
 COMCPAC  *                (ERR.FLD) = SAME AS *DEM* ABOVE                                 COMCPAC      839     A     
 COMCPAC  *                (DEMA) = SAME AS *DEM* ABOVE                                    COMCPAC      840     A     
 COMCPAC  *                                                                                COMCPAC      841     A     
 COMCPAC  *         REENTRY TO *ERR.RET* IF ONLY USER PROCESSING DESIRED,                  COMCPAC      842     A     
 COMCPAC  *                   (ERR.CNT) UPDATED IF DESIRED                                 COMCPAC      843     A     
 COMCPAC  *                 ELSE, TO *DEM.RET* FOR *DEM* STANDARD PROCESSING.              COMCPAC      844     A     
 COMCPAC  *                                                                                COMCPAC      845     A     
 COMCPAC  *         USES   SAME AS *DEM* ABOVE                                             COMCPAC      846     A     
 COMCPAC                                                                                   COMCPAC      847     A     
 COMCPAC                                                                                   COMCPAC      848     A     
 COMCPAC   DEM.UEP  BSS                                                                    COMCPAC      849     A     
 COMCPAC            SA1    B6                                                              COMCPAC      850     A     
 COMCPAC            SB6    X2                                                              COMCPAC      851     A     
 COMCPAC            JP     B6          USE USER ERROR PROCESSOR                            COMCPAC      852     A     
 COMCPAC   DEM      SPACE  4,10                                                            COMCPAC      853     A     
 COMCPAC            IF     -MIC,PAC.NAME,1                                                 COMCPAC      854     A     
 COMCPAC   PAC.NAME MICRO  1,,                                                             COMCPAC      855     A     
 COMCPAC                                                                                   COMCPAC      856     A     
 COMCPAC   DEMA     CON    0           ADDRESS OF USER ERROR PROCESSOR IF ANY              COMCPAC      857     A     
 COMCPAC   DEMB     DIS    ,* "PAC.NAME" CONTROL STATEMENT ERRORS --*                      COMCPAC      858     A     
 COMCPAC   ERR.FLD  CON    0           BAD FIELD OR ZERO IF NONE                           COMCPAC      859     A     
 COMCPAC            BSSZ   4           MESSAGE/END-OF-MESSAGE MARK                         COMCPAC      860     A     
 COMCPAC   ERR.CNT  CON    0           ERROR COUNT                                         COMCPAC      861     A     
 COMCPAC   CSERR    SPACE  4,10         CONTROL STATEMENT ERROR MESSAGES.                  COMCPAC      862     A     
 COMCPAC  **        CSERR - CONTROL STATEMENT ERROR MESSAGES.                              COMCPAC      863     A     
 COMCPAC  *                                                                                COMCPAC      864     A     
 COMCPAC  *         CSERR  (TEXT)                                                          COMCPAC      865     A     
 COMCPAC  *                                                                                COMCPAC      866     A     
 COMCPAC  *                *TEXT* = ERROR MESSAGE TEXT.  A BLANK WILL BE                   COMCPAC      867     A     
 COMCPAC  *                         PREFIXED AND A PERIOD SUFFIXED. THE TEXT               COMCPAC      868     A     
 COMCPAC  *                         IS DISPLAYED 40 CHARACTERS PER LINE.  ON               COMCPAC      869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *                         LONG MESSAGES, SPACES SHOULD BE PROVIDED               COMCPAC      870     A     
 COMCPAC  *                         SO THAT WORDS ARE NOT SPLIT ACROSS LINES.              COMCPAC      871     A     
 COMCPAC  *                         IF (ERR.FLD) .NE. 0, IT WILL BE SPACE FILLED           COMCPAC      872     A     
 COMCPAC  *                         AND PREFIXED TO THE TEXT.  IN THIS CASE *TEXT*         COMCPAC      873     A     
 COMCPAC  *                         MUST BE .LE. 28 CHARACTERS.  EXCESS TEXT WILL          COMCPAC      874     A     
 COMCPAC  *                         BE IGNORED WITHOUT WARNING.                            COMCPAC      875     A     
 COMCPAC  *                                                                                COMCPAC      876     A     
 COMCPAC  *         USES   B - 6                                                           COMCPAC      877     A     
 COMCPAC  *                A - 1-3, 6                                                      COMCPAC      878     A     
 COMCPAC  *                X - 0-4, 6                                                      COMCPAC      879     A     
 COMCPAC  *                                                                                COMCPAC      880     A     
 COMCPAC  *         CALLS  DEM                                                             COMCPAC      881     A     
 COMCPAC                                                                                   COMCPAC      882     A     
 COMCPAC            PURGMAC CSERR                                                          COMCPAC      883     A     
 COMCPAC                                                                                   COMCPAC      884     A     
 COMCPAC   CSERR    MACRO  TEXT                                                            COMCPAC      885     A     
 COMCPAC            SB6    =C$ TEXT.$                                                      COMCPAC      886     A     
 COMCPAC            RJ     DEM                                                             COMCPAC      887     A     
 COMCPAC   CSERR    ENDM                                                                   COMCPAC      888     A     
 COMCPAC                                                                                   COMCPAC      889     A     
 COMCPAC                                                                                   COMCPAC      890     A     
 COMCPAC   E.GT10   SA6    ERR.FLD                                                         COMCPAC      891     A     
 COMCPAC            CSERR  (.GT. 10 CHAR)                                                  COMCPAC      892     A     
 COMCPAC            EQ     GNA2        SKIP EXCESS CHARACTERS                              COMCPAC      893     A     
 COMCPAC                                                                                   COMCPAC      894     A     
 COMCPAC   E.IBV    CSERR  (HAS ILLEGAL BINARY VALUE)                                      COMCPAC      895     A     
 COMCPAC            SB7    B0          NO PARAMETER TO UPDATE                              COMCPAC      896     A     
 COMCPAC            EQ     E.SKIP1     SKIP TO SEPARATOR                                   COMCPAC      897     A     
 COMCPAC                                                                                   COMCPAC      898     A     
 COMCPAC   E.IC     BX0    X6                                                              COMCPAC      899     A     
 COMCPAC            MX6    0                                                               COMCPAC      900     A     
 COMCPAC            SB4    B6+                                                             COMCPAC      901     A     
 COMCPAC            SA6    ERR.FLD                                                         COMCPAC      902     A     
 COMCPAC            CSERR  (ILLEGAL CHARACTER)                                             COMCPAC      903     A     
 COMCPAC            SB6    B4          RESTORE (B6)                                        COMCPAC      904     A     
 COMCPAC            BX6    X0          RESTORE (X6)                                        COMCPAC      905     A     
 COMCPAC            EQ     GNC1        GET NEXT CHARACTER                                  COMCPAC      906     A     
 COMCPAC                                                                                   COMCPAC      907     A     
 COMCPAC   E.IFN    CSERR  (ILLEGAL FILENAME)                                              COMCPAC      908     A     
 COMCPAC            MX6    0                                                               COMCPAC      909     A     
 COMCPAC            EQ     PAC42       PROCESS NEXT OPTION SUBFIELD                        COMCPAC      910     A     
 COMCPAC                                                                                   COMCPAC      911     A     
 COMCPAC   E.IN     CSERR  (ILLEGAL NUMERIC)                                               COMCPAC      912     A     
 COMCPAC            MX6    0                                                               COMCPAC      913     A     
 COMCPAC            EQ     PAC42       PROCESS NEXT OPTION SUBFIELD                        COMCPAC      914     A     
 COMCPAC                                                                                   COMCPAC      915     A     
 COMCPAC   E.ME     CSERR  (- AND = NOT BOTH ALLOWED)                                      COMCPAC      916     A     
 COMCPAC            SB7    B0          NO PARAMETER TO UPDATE                              COMCPAC      917     A     
 COMCPAC            EQ     E.SKIP2     SKIP TO SEPARATOR                                   COMCPAC      918     A     
 COMCPAC                                                                                   COMCPAC      919     A     
 COMCPAC   E.NE     CSERR  (MUST BE EQUIVALENCED)                                          COMCPAC      920     A     
 COMCPAC            EQ     PAC10       RE-ENTER MAIN LOOP                                  COMCPAC      921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC                                                                                   COMCPAC      922     A     
 COMCPAC   E.STL    CSERR  (STRING TOO LONG)                                               COMCPAC      923     A     
 COMCPAC            EQ     E.SKIP1     SKIP TO NEXT SEPARATOR                              COMCPAC      924     A     
 COMCPAC                                                                                   COMCPAC      925     A     
 COMCPAC   E.TM     SX6    0                                                               COMCPAC      926     A     
 COMCPAC            SA6    ERR.FLD                                                         COMCPAC      927     A     
 COMCPAC            CSERR  (TERMINATOR MISSING)                                            COMCPAC      928     A     
 COMCPAC            EQ     PACX                                                            COMCPAC      929     A     
 COMCPAC                                                                                   COMCPAC      930     A     
 COMCPAC   E.TMOC   CSERR  (TOO MANY OCCURENCES)                                           COMCPAC      931     A     
 COMCPAC            SB7    B0          NO PARAMETER TO UPDATE                              COMCPAC      932     A     
 COMCPAC            EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                              COMCPAC      933     A     
 COMCPAC                                                                                   COMCPAC      934     A     
 COMCPAC   E.TMOP   CSERR  (TOO MANY OPTIONS)                                              COMCPAC      935     A     
 COMCPAC            EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                              COMCPAC      936     A     
 COMCPAC                                                                                   COMCPAC      937     A     
 COMCPAC   E.UA     CSERR  (UNRECOGNIZABLE)                                                COMCPAC      938     A     
 COMCPAC            SB7    B0          DO NO PARAMETER TABLE TO UPDATE                     COMCPAC      939     A     
 COMCPAC            EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                              COMCPAC      940     A     
 COMCPAC                                                                                   COMCPAC      941     A     
 COMCPAC   E.UOP    SA6    ERR.FLD                                                         COMCPAC      942          I
          -FC5A284
 COMCPAC            CSERR  (UNKNOWN OPTION)                                                COMCPAC      943          I
          -FC5A284
 COMCPAC   E.UOP    CSERR  (UNKNOWN OPTION)                                                FC5A284       15     A     
 COMCPAC            EQ     PAC72       GET NEXT OPTION                                     COMCPAC      944     A     
 COMCPAC                                                                                   COMCPAC      945     A     
 COMCPAC                                                                                   COMCPAC      946     A     
 COMCPAC  *         SKIP TO NEXT SEPARATOR OR TERMINATOR.                                  COMCPAC      947     A     
 COMCPAC                                                                                   COMCPAC      948     A     
 COMCPAC   E.SKIP1  SX0    B0          ALLOW .GT. 10 CHARACTERS                            COMCPAC      949     A     
 COMCPAC            RJ     GNA         SKIP                                                COMCPAC      950     A     
 COMCPAC   E.SKIP2  GT     B4,B1,E.SKIP1     IF /, =, OR -                                 COMCPAC      951     A     
 COMCPAC            ERRNZ  O.SEP-1                                                         COMCPAC      952     A     
 COMCPAC            ZR     B4,E.SKIP1  IF ALPHANUMERIC                                     COMCPAC      953     A     
 COMCPAC            ERRNZ  O.VAL                                                           COMCPAC      954     A     
 COMCPAC            EQ     PAC.RET     RE-ENTER MAIN LOOP...                               COMCPAC      955     A     
 COMCPAC   GNA      SPACE  4,10                                                            COMCPAC      956     A     
 COMCPAC  **        GNA - GET NEXT ARTIFACT.                                               COMCPAC      957     A     
 COMCPAC  *                                                                                COMCPAC      958     A     
 COMCPAC  *         THE NEXT ALPHANUMERIC STRING (FIRST 10 CHARACTERS WITH                 COMCPAC      959     A     
 COMCPAC  *         QUOTES ($) REMOVED), SEPARATOR OR TERMINATOR IS OBTAINED.              COMCPAC      960     A     
 COMCPAC  *         AN ASTRISK (*) IS INTERPRETED AS AN ALPHANUMERIC CHARACTER.            COMCPAC      961     A     
 COMCPAC  *         BLANKS ARE SKIPPED.                                                    COMCPAC      962     A     
 COMCPAC  *                                                                                COMCPAC      963     A     
 COMCPAC  *         ENTRY  (B3) = MODE:  -1 = NORMAL,  0 = QUOTE ($)                       COMCPAC      964     A     
 COMCPAC  *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)                   COMCPAC      965     A     
 COMCPAC  *                (A5) = ADDRESS OF (X5)                                          COMCPAC      966     A     
 COMCPAC  *                (X0) = 0 IF STRING .GT. 10 CHARACTERS IS ALLOWED                COMCPAC      967     A     
 COMCPAC  *                (X5) = CURRENT WORD OF LINE IMAGE                               COMCPAC      968     A     
 COMCPAC  *                                                                                COMCPAC      969     A     
 COMCPAC  *         EXIT   (X5, A5,B3, B5) UPDATED AND --                                  COMCPAC      970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *                                                                                COMCPAC      971     A     
 COMCPAC  *                IF NEXT ARTIFACT WAS A SEPARATOR OR TERMINATOR --               COMCPAC      972     A     
 COMCPAC  *                (B4) = TYPE OF ARTIFACT.  SEE *GNC* FOR TYPE.                   COMCPAC      973     A     
 COMCPAC  *                (B6) = 9*6                                                      COMCPAC      974     A     
 COMCPAC  *                (X4) = THE ARTIFACT (SEPARATOR OR TERMINATOR) 1R FORMAT         COMCPAC      975     A     
 COMCPAC  *                (X6) = 0                                                        COMCPAC      976     A     
 COMCPAC  *                                                                                COMCPAC      977     A     
 COMCPAC  *                IF NEXT ARTIFACT WAS AN ALPHANUMERIC STRING --                  COMCPAC      978     A     
 COMCPAC  *                (B4) = TYPE OF CHARACTER IN (X4).  SEE *GNC* FOR TYPE.          COMCPAC      979     A     
 COMCPAC  *                       IF (B4) = 0, (X6) = 1ST 10 CHARACTERS OF A               COMCPAC      980     A     
 COMCPAC  *                       LONGER STRING.                                           COMCPAC      981     A     
 COMCPAC  *                (B6) = 9*6-(NUMBER OF CHAR IN X6)*6                             COMCPAC      982     A     
 COMCPAC  *                       I.E. (B6)+6 = NUMBER OF UNUSED BITS IN X6                COMCPAC      983     A     
 COMCPAC  *                       RANGE (B6) = 9*6 TO -6                                   COMCPAC      984     A     
 COMCPAC  *                (X4) = CHARACTER FOLLOWING (X6), 1R FORMAT                      COMCPAC      985     A     
 COMCPAC  *                (X6) = NEXT ALPHANUMERIC VALUE, 0L FORMAT                       COMCPAC      986     A     
 COMCPAC  *                                                                                COMCPAC      987     A     
 COMCPAC  *         USES   B - 3-6                                                         COMCPAC      988     A     
 COMCPAC  *                A - 1-3, 5, 6                                                   COMCPAC      989     A     
 COMCPAC  *                X - 0-6                                                         COMCPAC      990     A     
 COMCPAC  *                                                                                COMCPAC      991     A     
 COMCPAC  *         CALLS  DEM, GNC                                                        COMCPAC      992     A     
 COMCPAC                                                                                   COMCPAC      993     A     
 COMCPAC                                                                                   COMCPAC      994     A     
 COMCPAC   GNA      SUBR               ...ENTRY/EXIT...                                    COMCPAC      995     A     
 COMCPAC            SX6    B0+                                                             COMCPAC      996     A     
 COMCPAC            SB6    9*6         INDICATE EMPTY ACCUMULATOR                          COMCPAC      997     A     
 COMCPAC                                                                                   COMCPAC      998     A     
 COMCPAC   GNA1     RJ     GNC         GET NEXT CHARACTER                                  COMCPAC      999     A     
 COMCPAC            NZ     B4,EXIT.    IF SEPARATOR OR TERMINATOR                          COMCPAC     1000     A     
 COMCPAC            LX4    B6                                                              COMCPAC     1001     A     
 COMCPAC            BX6    X6+X4                                                           COMCPAC     1002     A     
 COMCPAC            SB6    B6-6                                                            COMCPAC     1003     A     
 COMCPAC            PL     B6,GNA1     IF .LE. 10 CHARACTERS ACCUMULATED                   COMCPAC     1004     A     
 COMCPAC            RJ     GNC         CHECK FOR 11TH CHARACTER OR SEPARATOR               COMCPAC     1005     A     
 COMCPAC            NZ     B4,EXIT.    IF NOT .GT. 10 CHARACTERS                           COMCPAC     1006     A     
 COMCPAC            ZR     X0,EXIT.    IF .GT. 10 CHARACTERS ALLOWED                       COMCPAC     1007     A     
 COMCPAC            EQ     E.GT10      ** .GT. 10 CHARACTERS **                            COMCPAC     1008     A     
 COMCPAC                                                                                   COMCPAC     1009     A     
 COMCPAC  *         SKIP EXCESS CHARACTERS UNTIL SEPARATOR.                                COMCPAC     1010     A     
 COMCPAC                                                                                   COMCPAC     1011     A     
 COMCPAC   GNA2     RJ     GNC         SKIP EXCESS                                         COMCPAC     1012     A     
 COMCPAC            ZR     B4,GNA2     IF STILL ALPHNUMERIC                                COMCPAC     1013     A     
 COMCPAC            SA1    ERR.FLD                                                         COMCPAC     1014     A     
 COMCPAC            SB6    -6          FLAG LENGTH OF 10                                   COMCPAC     1015     A     
 COMCPAC            BX6    X1          RESTORE X6 = 10 CHARACTERS OF PAC                   COMCPAC     1016     A     
 COMCPAC            EQ     EXIT.       DONE...                                             COMCPAC     1017     A     
 COMCPAC   GNC      SPACE  4,15                                                            COMCPAC     1018     A     
 COMCPAC  **        GNC - GET NEXT CHARACTER.                                              COMCPAC     1019     A     
 COMCPAC  *                                                                                COMCPAC     1020     A     
 COMCPAC  *         THE NEXT CHARACTER OF THE CONTROL STATEMENT IS                         COMCPAC     1021     A     
 COMCPAC  *         OBTAINED.  IF THIS CHARACTER IS A $, THE CHARACTER                     COMCPAC     1022     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *         FOLLOWING IT IS RETURNED.  A CONTINUATION LINE WILL                    COMCPAC     1023     A     
 COMCPAC  *         BE OBTAINED IF NEEDED.                                                 COMCPAC     1024     A     
 COMCPAC  *                                                                                COMCPAC     1025     A     
 COMCPAC  *         ENTRY  (B3) = MODE:  -1 = NORMAL,  0 = QUOTE ($)                       COMCPAC     1026     A     
 COMCPAC  *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)                   COMCPAC     1027     A     
 COMCPAC  *                (A5) = ADDRESS OF (X5)                                          COMCPAC     1028     A     
 COMCPAC  *                (X5) = CURRENT WORD OF LINE IMAGE                               COMCPAC     1029     A     
 COMCPAC  *                                                                                COMCPAC     1030     A     
 COMCPAC  *         EXIT   (B4) = CHARACTER TYPE --                                        COMCPAC     1031     A     
 COMCPAC  *                       -1 = TERMINATOR                                          COMCPAC     1032     A     
 COMCPAC  *                        0 = ALPHANUMERIC OR *                                   COMCPAC     1033     A     
 COMCPAC  *                       +1 = SEPARATOR                                           COMCPAC     1034     A     
 COMCPAC  *                       +2 = /                                                   COMCPAC     1035     A     
 COMCPAC  *                       +3 = =                                                   COMCPAC     1036     A     
 COMCPAC  *                       +4 = -                                                   COMCPAC     1037     A     
 COMCPAC  *                       IF QUOTE MODE, ALL CHARACTERS ARE TYPE 0.                COMCPAC     1038     A     
 COMCPAC  *                (X4) = CHARACTER 1R FORMAT                                      COMCPAC     1039     A     
 COMCPAC  *                (X5, A5, B3, B5)  UPDATED                                       COMCPAC     1040     A     
 COMCPAC  *                                                                                COMCPAC     1041     A     
 COMCPAC  *         USES   B - 3-5                                                         COMCPAC     1042     A     
 COMCPAC  *                A - 1-3, 5, 6                                                   COMCPAC     1043     A     
 COMCPAC  *                X - 0-5                                                         COMCPAC     1044     A     
 COMCPAC  *                                                                                COMCPAC     1045     A     
 COMCPAC  *         CALLS  DEM, SYS=                                                       COMCPAC     1046     A     
 COMCPAC                                                                                   COMCPAC     1047     A     
 COMCPAC                                                                                   COMCPAC     1048     A     
 COMCPAC   GNC      SUBR               ...ENTRY/EXIT...                                    COMCPAC     1049     A     
 COMCPAC                                                                                   COMCPAC     1050     A     
 COMCPAC  *         GET NEXT CHARACTER.                                                    COMCPAC     1051     A     
 COMCPAC                                                                                   COMCPAC     1052     A     
 COMCPAC   GNC1     ZR     B5,GNC5     IF (X5) IS EMPTY                                    COMCPAC     1053     A     
 COMCPAC            LX5    6                                                               COMCPAC     1054     A     
 COMCPAC            MX0    -6                                                              COMCPAC     1055     A     
 COMCPAC            SB5    B5-B1       EXTRACT NEXT CHARACTER                              COMCPAC     1056     A     
 COMCPAC            BX4    -X0*X5                                                          COMCPAC     1057     A     
 COMCPAC            SB4    X4-1R$                                                          COMCPAC     1058     A     
 COMCPAC            ZR     B4,GNC3     IF $                                                COMCPAC     1059     A     
 COMCPAC            ZR     B3,GNC4     IF IN QUOTE MODE                                    COMCPAC     1060     A     
 COMCPAC            SB4    B0          CHECK VALUE                                         COMCPAC     1061     A     
 COMCPAC            ERRNZ  O.VAL       CODE ASSUMES 0 VALUE                                COMCPAC     1062     A     
 COMCPAC            MI     B3,GNC2     IF NOT LEAVING QUOTE MODE                           COMCPAC     1063     A     
 COMCPAC            SB3    -B1                                                             COMCPAC     1064     A     
 COMCPAC                                                                                   COMCPAC     1065     A     
 COMCPAC  *         HERE IF NOT $ AND NOT QUOTE MODE.                                      COMCPAC     1066     A     
 COMCPAC                                                                                   COMCPAC     1067     A     
 COMCPAC   GNC2     SX2    X4-1R9-1    CLASSIFY CHARACTER                                  COMCPAC     1068     A     
 COMCPAC            SX3    X4-1R.-1                                                        COMCPAC     1069     A     
 COMCPAC            ZR     X4,E.IC     IF ** ILLEGAL CHARACTER ** (COLON)                  COMCPAC     1070     A     
 COMCPAC            MI     X2,EXIT.    IF ALPHANUMERIC, RETURN                             COMCPAC     1071     A     
 COMCPAC            SB4    B1          CHECK SEPARATOR                                     COMCPAC     1072     A     
 COMCPAC            ERRNZ  O.SEP-1     CODE ASSUMES O.SEP=1                                COMCPAC     1073     A     
 COMCPAC            LX2    2                                                               COMCPAC     1074     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            PL     X3,EXIT.    IF .GT. 1R.                                         COMCPAC     1075     A     
 COMCPAC            SA3    GNCA                                                            COMCPAC     1076     A     
 COMCPAC            SB4    X2                                                              COMCPAC     1077     A     
 COMCPAC            LX2    X3,B4       GET CHARACTER TYPE CODE                             COMCPAC     1078     A     
 COMCPAC            AX2    -4                                                              COMCPAC     1079     A     
 COMCPAC            SB4    X2                                                              COMCPAC     1080     A     
 COMCPAC            NZ     X2,EXIT.    IF SEPARATOR, RETURN                                COMCPAC     1081     A     
 COMCPAC            PL     X2,EXIT.    IF *, TREAT AS ALPHANUMERIC                         COMCPAC     1082     A     
 COMCPAC            EQ     GNC1        IGNORE BLANK                                        COMCPAC     1083     A     
 COMCPAC                                                                                   COMCPAC     1084     A     
 COMCPAC  *         HERE IF $.                                                             COMCPAC     1085     A     
 COMCPAC                                                                                   COMCPAC     1086     A     
 COMCPAC   GNC3     SB3    B3+B1                                                           COMCPAC     1087     A     
 COMCPAC            LE     B3,B1,GNC1  IF NOT SECOND $ OF A PAIR IN QUOTE MODE             COMCPAC     1088     A     
 COMCPAC            SB3    B0                                                              COMCPAC     1089     A     
 COMCPAC                                                                                   COMCPAC     1090     A     
 COMCPAC  *         HERE IF IN QUOTE ($) MODE.                                             COMCPAC     1091     A     
 COMCPAC                                                                                   COMCPAC     1092     A     
 COMCPAC   GNC4     SB4    O.VAL       QUOTE MODE, RETURN WITH CHARACTER TYPE = 0          COMCPAC     1093     A     
 COMCPAC            EQ     EXIT.       DONE...                                             COMCPAC     1094     A     
 COMCPAC                                                                                   COMCPAC     1095     A     
 COMCPAC  *         HERE IF CURRENT WORD OF LINE IMAGE IS EXAUSTED.                        COMCPAC     1096     A     
 COMCPAC                                                                                   COMCPAC     1097     A     
 COMCPAC   GNC5     SA1    GNCB                                                            COMCPAC     1098     A     
 COMCPAC            SA5    A5+1        GET NEXT LINE                                       COMCPAC     1099     A     
 COMCPAC            SB5    10                                                              COMCPAC     1100     A     
 COMCPAC            ZR     X1,GNC7     IF INITIAL ENTRY                                    COMCPAC     1101     A     
 COMCPAC            SB4    A5-RA.CCD-7                                                     COMCPAC     1102     A     
 COMCPAC            GT     B4,GNC6     IF END OF LINE IMAGE                                COMCPAC     1103     A     
 COMCPAC            NZ     X5,GNC1     IF NOT END OF LINE                                  COMCPAC     1104     A     
 COMCPAC            MI     X5,GNC1     IF NOT END OF LINE (10 SEMICOLONS)                  COMCPAC     1105     A     
 COMCPAC                                                                                   COMCPAC     1106     A     
 COMCPAC  *         HERE IF CONTINUATION LINE NEEDED.                                      COMCPAC     1107     A     
 COMCPAC                                                                                   COMCPAC     1108     A     
 COMCPAC   GNC6     SA2    GNCC                                                            COMCPAC     1109     A     
 COMCPAC            BX5    X6          SAVE (X6)                                           COMCPAC     1110     A     
 COMCPAC            NZ     X2,GNC.UCP  CALL USER CONTINUATION LINE PROCESSOR               COMCPAC     1111     A     
 COMCPAC            CONTRLC A1,READ,DAYFILE    READ NEXT LINE IMAGE                        COMCPAC     1112          I
          -FC5A158A 
 COMCPAC                                                                                   FC5A158A      12          I
          -FC50345
 COMCPAC   .RM      IFNE   CP#RM,0                                                         FC5A158A      13          I
          -FC50345
 COMCPAC            SX6    10B         X6 = CODE FOR *READ*                                FC5A158A      14          I
          -FC50345
 COMCPAC            SA6    GNCB        SCOPE 2 CONTRLC REQUIRES PRESET OF CELL             FC5A158A      15          I
          -FC50345
 COMCPAC            CONTRLC  GNCB                                                          FC5A158A      16          I
          -FC50345
 COMCPAC   .RM      ELSE                                                                   FC5A158A      17          I
          -FC50345
 COMCPAC            CONTRLC  GNCB,READ,DAYFILE                                             FC5A158A      18          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
          -FC50345
 COMCPAC   .RM      ENDIF                                                                  FC5A158A      19          I
          -FC50345
 COMCPAC                                                                                   FC5A158A      20          I
          -FC50345
 COMCPAC            CONTRLC  GNCB,READ                                                     FC50345        6     A     
 COMCPAC            SA1    X6                                                              COMCPAC     1113     A     
 COMCPAC            LX1    59-4                                                            COMCPAC     1114     A     
 COMCPAC            MI     X1,E.TM     IF ** TERMINATOR MISSING **                         COMCPAC     1115     A     
 COMCPAC            MESSAGE RA.CCD,,RCL                                                    FC50345        7     A     
 COMCPAC                                                                                   COMCPAC     1116     A     
 COMCPAC                                                                                   F1039         10     A     
 COMCPAC  **        IF FIRST TIME FIND NEXT AVAILABLE CHARACTER ADDRESS                    F1039         11     A     
 COMCPAC  *         IN CONTROL CARD TEMPLET.                                               F1039         12     A     
 COMCPAC                                                                                   F1039         13     A     
 COMCPAC            SA1    CAF                                                             F1039         14     A     
 COMCPAC            NZ     X1,GNC6A    IF ADDRESS OF NEXT CHARACTER STORE IN               F1039         15     A     
 COMCPAC  *                            TEMPLET RESOLVED.                                   F1039         16     A     
 COMCPAC            MX6    1                                                               F1039         17     A     
 COMCPAC            SA6    A1                                                              F1039         18     A     
 COMCPAC            RJ     FCA         FIND NEXT AVAILABLE CHARACTER ADDRESS               F1039         19     A     
 COMCPAC  *                            IN CONTROL CARD TEMPLET.                            F1039         20     A     
 COMCPAC   GNC6A    RJ     TCC         TRANSFER CONTINUATION CARD TO TEMPLET               F1039         21     A     
 COMCPAC                                                                                   F1039         22     A     
 COMCPAC  *         HERE TO BLANK FILL LAST WORD OF LINE IMAGE.                            COMCPAC     1117     A     
 COMCPAC                                                                                   COMCPAC     1118     A     
 COMCPAC   GNC7     SB4    RA.CCD+7                                                        COMCPAC     1119     A     
 COMCPAC   GNC8     SA3    B4                                                              COMCPAC     1120     A     
 COMCPAC            SB4    B4-B1                                                           COMCPAC     1121     A     
 COMCPAC            ZR     X3,GNC8                                                         COMCPAC     1122     A     
 COMCPAC            SB4    60-6+1                                                          COMCPAC     1123     A     
 COMCPAC            MX6    -1                                                              COMCPAC     1124     A     
 COMCPAC            IX4    X3+X6                                                           COMCPAC     1125     A     
 COMCPAC            SA2    =40404040404040404040B                                          COMCPAC     1126     A     
 COMCPAC            SA1    =10H                                                            COMCPAC     1127     A     
 COMCPAC            BX6    -X4+X3                                                          COMCPAC     1128     A     
 COMCPAC            BX4    X6*X2                                                           COMCPAC     1129     A     
 COMCPAC            LX6    X4,B4                                                           COMCPAC     1130     A     
 COMCPAC            IX2    X4-X6                                                           COMCPAC     1131     A     
 COMCPAC            BX6    X4+X2                                                           COMCPAC     1132     A     
 COMCPAC            BX1    -X6*X1                                                          COMCPAC     1133     A     
 COMCPAC            IX6    X3+X1                                                           COMCPAC     1134     A     
 COMCPAC            SA6    A3          BLANK FILL LAST WORD                                COMCPAC     1135     A     
 COMCPAC   GNC.RET  SPACE  4,10                                                            COMCPAC     1136     A     
 COMCPAC  **        GNC.RET - RETURN FROM USER CONTINUATION LINE PROCESSOR.                COMCPAC     1137     A     
 COMCPAC  *                                                                                COMCPAC     1138     A     
 COMCPAC  *         ENTRY  RA.CCD TO RA.CCD+7 CONTAINS THE NEXT LINE IMAGE.                COMCPAC     1139     A     
 COMCPAC  *                THE LAST USABLE WORD IS BLANK FILLED.  UNUSED                   COMCPAC     1140     A     
 COMCPAC  *                WORDS ARE ZERO.                                                 COMCPAC     1141     A     
 COMCPAC                                                                                   COMCPAC     1142     A     
 COMCPAC                                                                                   COMCPAC     1143     A     
 COMCPAC   GNC.RET  BSS                                                                    COMCPAC     1144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            SX6    B1          NOT FIRST TIME THRU FLAG                            COMCPAC     1145     A     
 COMCPAC            SA6    GNCB        INDICATE NOT FIRST TIME IN                          COMCPAC     1146     A     
 COMCPAC            BX6    X5          RESTORE (X6)                                        COMCPAC     1147     A     
 COMCPAC            SA5    RA.CCD      SCAN NEW LINE                                       COMCPAC     1148     A     
 COMCPAC            EQ     GNC1                                                            COMCPAC     1149     A     
 COMCPAC                                                                                   F1039         23     A     
 COMCPAC   CAF      CON    0           CHARACTER ADDRESS FLAG - ZERO INDICATES -           F1039         24     A     
 COMCPAC  *                            CALL *FCA* TO FIND NEXT AVAILABLE CHARACTER         F1039         25     A     
 COMCPAC  *                            ADDRESS IN CONTROL CARD TEMPLET.                    F1039         26     A     
 COMCPAC   GNC.UCP  SPACE  4,10                                                            COMCPAC     1150     A     
 COMCPAC  **        GNC.UCP - CALL USER CONTINUATION LINE PROCESSOR.                       COMCPAC     1151     A     
 COMCPAC  *                                                                                COMCPAC     1152     A     
 COMCPAC  *         USER PROCESSOR MAY USE  B4  A1,2,3,5,6  X1,2,3,4,6                     COMCPAC     1153     A     
 COMCPAC  *                                                                                COMCPAC     1154     A     
 COMCPAC  *         REENTRY AT *GNC.RET*                                                   COMCPAC     1155     A     
 COMCPAC                                                                                   COMCPAC     1156     A     
 COMCPAC                                                                                   COMCPAC     1157     A     
 COMCPAC   GNC.UCP  BSS                                                                    COMCPAC     1158     A     
 COMCPAC            SB4    X2                                                              COMCPAC     1159     A     
 COMCPAC            JP     B4                                                              COMCPAC     1160     A     
 COMCPAC   GNC      SPACE  4,10                                                            COMCPAC     1161     A     
 COMCPAC  *                  +   -   *   /   (    )   $   =   BL   ,    .                  COMCPAC     1162     A     
 COMCPAC   GNCA     VFD    4/1,4/4,4/0,4/2,4/1,4/-1,4/0,4/3,4/-0,4/1,4/-1,*P/0             COMCPAC     1163     A     
 COMCPAC   GNCB     CON    0           STATUS WORD FOR CONTRLC + FIRST TIME FLAG           COMCPAC     1164     A     
 COMCPAC   GNCC     CON    0           ADDRESS OF USER CONTINUATION LINE PROCESSOR         COMCPAC     1165     A     
 COMCPAC   PAC      SPACE  4,10                                                            COMCPAC     1166     A     
 COMCPAC            BASE   *                                                               COMCPAC     1167     A     
 COMCPAC   QUAL$    IF     -DEF,QUAL$                                                      COMCPAC     1168     A     
 COMCPAC            QUAL   *                                                               COMCPAC     1169     A     
 COMCPAC   PAC      EQU    /COMCPAC/PAC                                                    COMCPAC     1170     A     
 COMCPAC   PAC.RET  EQU    /COMCPAC/PAC.RET                                                COMCPAC     1171     A     
 COMCPAC   CFV      EQU    /COMCPAC/CFV                                                    COMCPAC     1172     A     
 COMCPAC   DEM      EQU    /COMCPAC/DEM                                                    COMCPAC     1173     A     
 COMCPAC   DEM.RET  EQU    /COMCPAC/DEM.RET                                                COMCPAC     1174     A     
 COMCPAC   ERR.CNT  EQU    /COMCPAC/ERR.CNT                                                COMCPAC     1175     A     
 COMCPAC   ERR.FLD  EQU    /COMCPAC/ERR.FLD                                                COMCPAC     1176     A     
 COMCPAC   ERR.RET  EQU    /COMCPAC/ERR.RET                                                COMCPAC     1177     A     
 COMCPAC   GNA      EQU    /COMCPAC/GNA                                                    COMCPAC     1178     A     
 COMCPAC   GNC      EQU    /COMCPAC/GNC                                                    COMCPAC     1179     A     
 COMCPAC   GNC.RET  EQU    /COMCPAC/GNC.RET                                                COMCPAC     1180     A     
 COMCPAC   QUAL$    ENDIF                                                                  COMCPAC     1181     A     
 COMCPAC                                                                                   COMCPAC     1182     A     
 COMCPAC                                                                                   COMCPAC     1183     A     
 COMCPAC   COMCPAC  ENDX                                                                   COMCPAC     1184     A     
 COMCPAC   KEYS     EJECT  4,12        CONTROL STATEMENT PARAMETER KEYWORD DEFS.           COMCPAC     1185     A     
 COMCPAC  ***       PARAM - DEFINE KEYWORD PARAMETER.                                      COMCPAC     1186     A     
 COMCPAC  *                                                                                COMCPAC     1187     A     
 COMCPAC  *         PARAMETER KEYWORDS ARE DEFINED BY MACRO CALLS, AS FOLLOWS --           COMCPAC     1188     A     
 COMCPAC  *                                                                                COMCPAC     1189     A     
 COMCPAC  * KEY     PARAM  POA=XXX,MBV=YYY,SD=ZZZ,NOP=MMM,NOC=NNN,AT=AAA                   COMCPAC     1190     A     
 COMCPAC  *                                                                                COMCPAC     1191     A     
 COMCPAC  *         THE PARAMETERS MAY BE IN ANY ORDER.  THE ONLY REQUIRED                 COMCPAC     1192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *         PARAMETERS ARE KEY AND POA OR MBV.  THE THREE TYPES OF                 COMCPAC     1193     A     
 COMCPAC  *         PARAMETER KEYWORDS ARE DESCRIBED AT *PAC*.  THE TYPES OF               COMCPAC     1194     A     
 COMCPAC  *         KEYWORDS (SB,BV,MBV) WHICH MAY USE A PARTICULAR MACRO                  COMCPAC     1195     A     
 COMCPAC  *         PARAMETER ARE LISTED IN PARENTHESIS AFTER THAT PARAMETER               COMCPAC     1196     A     
 COMCPAC  *         BELOW.                                                                 COMCPAC     1197     A     
 COMCPAC  *                                                                                COMCPAC     1198     A     
 COMCPAC  *         KEY      PARAMETER KEYWORD (REQUIRED ALWAYS)                           COMCPAC     1199     A     
 COMCPAC  *                FROM ONE TO SEVEN ALPHANUMERIC CHARACTERS.  *KEY*               COMCPAC     1200     A     
 COMCPAC  *                WILL BE THE ADDRESS OF THE PARAMETER TABLE ENTRY.               COMCPAC     1201     A     
 COMCPAC  *                                                                                COMCPAC     1202     A     
 COMCPAC  *         POA=XXX  PARAMETER OPTION AREA (REQUIRED FOR SB OR BV)                 COMCPAC     1203     A     
 COMCPAC  *         XXX = ADDRESS OF A PARAMETER AREA WITH A LENGTH OF NNN*MMM             COMCPAC     1204     A     
 COMCPAC  *                OR - THE ADDRESS OF A USER PROCESSOR TO BE CALLED               COMCPAC     1205     A     
 COMCPAC  *                IF THIS KEYWORD IS ENCOUNTERED.  IF THIS FIELD IS .GT.          COMCPAC     1206     A     
 COMCPAC  *                ZERO *PAC* WILL EXIT WITH THIS FIELD CONTAINING THE             COMCPAC     1207     A     
 COMCPAC  *                LWA+1 USED WITHIN THE PARAMETER AREA.  IN THIS WAY IT           COMCPAC     1208     A     
 COMCPAC  *                IS POSSIBLE TO DETERMINE THE NUMBER OF OCCURENCES OF            COMCPAC     1209     A     
 COMCPAC  *                THIS KEYWORD ON THE CONTROL STATEMENT.                          COMCPAC     1210     A     
 COMCPAC  *  NOTE:         RESET THE ADDRESS OF THE PARAMETER AREA IF PAC IS               COMCPAC     1211     A     
 COMCPAC  *                CALLED MORE THAN ONCE WITH THE SAME PARAMETER TABLE.            COMCPAC     1212     A     
 COMCPAC  *                                                                                COMCPAC     1213     A     
 COMCPAC  *         MBV=YYY  MULTIPLE BINARY VALUE (REQUIRED FOR MBV)                      COMCPAC     1214     A     
 COMCPAC  *         YYY = ADDRESS OF MULTIPLE BINARY VALUE OPTION TABLE.                   COMCPAC     1215     A     
 COMCPAC  *                SEE *MPVOP* MACRO BELOW.  THIS PARAMETER IS                     COMCPAC     1216     A     
 COMCPAC  *                REQUIRED FOR ALL MBV KEYWORDS.                                  COMCPAC     1217     A     
 COMCPAC  *                                                                                COMCPAC     1218     A     
 COMCPAC  *         SD=ZZZ   SECOND DEFAULT (SV,BV)                                        COMCPAC     1219     A     
 COMCPAC  *         ZZZ = ADDRESS OF A LIST OF SECOND DEFAULT VALUES.  THE LENGTH          COMCPAC     1220     A     
 COMCPAC  *                OF THE LIST MUST BE MMM (SEE NOC BELOW).  IF OMITTED            COMCPAC     1221     A     
 COMCPAC  *                THERE  WILL BE NO SECOND DEFAULT LIST AND THE KEYWORD           COMCPAC     1222     A     
 COMCPAC  *                MUST BE EQUIVALENCED.  IF ZZZ IS NEGATIVE, THE KEYWORD          COMCPAC     1223     A     
 COMCPAC  *                IS A BINARY VALUE PARAMETER.  THE SECOND DEFAULT LIST           COMCPAC     1224     A     
 COMCPAC  *                MUST BE IN THE DESIRED FORMAT BECAUSE *PAC* WILL NOT            COMCPAC     1225     A     
 COMCPAC  *                CONVERT OR ATTEMPT TO CHECK FOR PARAMETER VALIDITY.             COMCPAC     1226     A     
 COMCPAC  *                                                                                COMCPAC     1227     A     
 COMCPAC  *         NOP=MMM  NUMBER OF OPTIONS PER OCCURENCE (SV,MBV)                      COMCPAC     1228     A     
 COMCPAC  *         MMM = MAXIMUM NUMBER OF OPTION SUBFIELDS FOR EACH OCCURENCE.           COMCPAC     1229     A     
 COMCPAC  *                THE MINIMUM ALLOWED IS 1.  THE MAXIMUM ALLOWED IS 19            COMCPAC     1230     A     
 COMCPAC  *                UNLESS ATT=STRING.  IF AT=STRING, MMM IS THE MAXIMUM            COMCPAC     1231     A     
 COMCPAC  *                NUMBER OF CHARACTERS (NOT WORDS) IN THE STRING.  IF             COMCPAC     1232     A     
 COMCPAC  *                OMITTED NOP=1 IS ASSUMED.                                       COMCPAC     1233     A     
 COMCPAC  *                                                                                COMCPAC     1234     A     
 COMCPAC  *         NOC=NNN  NUMBER OF OCCURENCES (SV)                                     COMCPAC     1235     A     
 COMCPAC  *         NNN = MAXIMUM NUMBER OF OCCURENCES OF THE KEYWORD. IF OMITTED          COMCPAC     1236     A     
 COMCPAC  *                NOC=1 WILL BE ASSUMED.  EACH OCCURENCE WILL BE STORED           COMCPAC     1237     A     
 COMCPAC  *                STARTING AT XXX+(N-1)*MMM WHERE N IS THE NUMBER OF              COMCPAC     1238     A     
 COMCPAC  *                THE OCCURENCE.                                                  COMCPAC     1239     A     
 COMCPAC  *  NOTE:         RESET THE OCCURENCE COUNT IF PAC IS CALLED                      COMCPAC     1240     A     
 COMCPAC  *                MORE THAN ONCE WITH THE SAME PARAMETER TABLE.                   COMCPAC     1241     A     
 COMCPAC  *                                                                                COMCPAC     1242     A     
 COMCPAC  *         AT=AAA   ATTRIBUTES (SV)                                               COMCPAC     1243     A     
 COMCPAC  *         AAA = LIST OF ATTRIBUTES ASSOCIATED WITH EACH OPTION                   COMCPAC     1244     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC  *                SUBFIELD.  THE NTH ENTRY IS THE ATTRIBUTE FOR THE NTH           COMCPAC     1245     A     
 COMCPAC  *                SUBFIELD.  THE MAXIMUM NUMBER OF ATTRIBUTES IS MMM.             COMCPAC     1246     A     
 COMCPAC  *                IF AN ATTRIBUTE IS OMITTED THE LAST MENTIONED VALUE             COMCPAC     1247     A     
 COMCPAC  *                (FOR THIS CALL) IS ASSUMED.  IF AT IS OMITTED AT=0              COMCPAC     1248     A     
 COMCPAC  *                IS ASSUMED.                                                     COMCPAC     1249     A     
 COMCPAC  *                   ATTRIBUTE      MEANING                                       COMCPAC     1250     A     
 COMCPAC  *                       0          10 CHARACTER FIELD, 0L FORMAT.                COMCPAC     1251     A     
 COMCPAC  *                       1          10 CHARACTER FIELD, 0R FORMAT.                COMCPAC     1252     A     
 COMCPAC  *                       2          CHECK FOR FILE NAME VALIDITY.                 COMCPAC     1253     A     
 COMCPAC  *                       3          CHECK AND CONVERT NUMERIC ARGUMENT            COMCPAC     1254     A     
 COMCPAC  *                                  (DECIMAL ASSUMED).                            COMCPAC     1255     A     
 COMCPAC  *                       4          CHECK AND CONVERT NUMERIC ARGUMENT            COMCPAC     1256     A     
 COMCPAC  *                                  (OCTAL ASSUMED).                              COMCPAC     1257     A     
 COMCPAC  *         AAA = *STRING* (OR ANY TRUNCATION DOWN TO *S*) IS A SPECIAL            COMCPAC     1258     A     
 COMCPAC  *                ATTRIBUTE WHICH ALLOWS A STRING OF UP TO MMM                    COMCPAC     1259     A     
 COMCPAC  *                CHARACTERS.  THE STRING WILL BE STORED LEFT JUSTIFIED           COMCPAC     1260     A     
 COMCPAC  *                WITH ZERO FILL.  MMM MAY BE AS LARGE AS DESIRED.                COMCPAC     1261     A     
 COMCPAC  *                                                                                COMCPAC     1262     A     
 COMCPAC  *         EACH ENTRY IN THE PARAMETER TABLE WILL HAVE THE FOLLOWING FORM         COMCPAC     1263     A     
 COMCPAC  **T A  KEY       42/0L_KEY,18/POA                                                COMCPAC     1264     A     
 COMCPAC  *   IF (AT.NE.*STRING*) --                                                       COMCPAC     1265     A     
 COMCPAC  *                                                                                COMCPAC     1266     A     
 COMCPAC  **T B            20/(MBV OR SD), 20/NOC, 20/NOP                                  COMCPAC     1267     A     
 COMCPAC  **T C            3/0,57/(3 BITS PER ATTRIBUTE, LEFT JUSTIFIED)                   COMCPAC     1268     A     
 COMCPAC  *   IF (AT.EQ.*STRING*) --                                                       COMCPAC     1269     A     
 COMCPAC  **T B            20/SD, 20/NOC, 20/(NUMBER OF WORDS IN NOP CHARACTERS)           COMCPAC     1270     A     
 COMCPAC  **T C            60/-(NUMBER OF BITS IN LAST WORD OF NOP CHARACTERS)             COMCPAC     1271     A     
 COMCPAC                                                                                   COMCPAC     1272     A     
 COMCPAC                                                                                   COMCPAC     1273     A     
 COMCPAC            PURGMAC PARAM                                                          COMCPAC     1274     A     
 COMCPAC                                                                                   COMCPAC     1275     A     
 COMCPAC            MACROE PARAM,KEY,POA,NOC,NOP,SD,AT,MBV                                 COMCPAC     1276     A     
 COMCPAC  *         WORD A.                                                                COMCPAC     1277     A     
 COMCPAC  *                                                                                COMCPAC     1278     A     
 COMCPAC   KEY      VFD    42/0L_KEY,18/POA                                                COMCPAC     1279     A     
 COMCPAC            IFC    EQ,\_MBV_\\,3                                                   COMCPAC     1280     A     
 COMCPAC            IFC    EQ,\_POA_\\,1                                                   COMCPAC     1281     A     
 COMCPAC            ERR    PARAMETER OPTION AREA (POA) MUST BE DEFINED                     COMCPAC     1282     A     
 COMCPAC            SKIP   2                                                               COMCPAC     1283     A     
 COMCPAC            IFC    NE,\_POA_SD_AT_\\,1                                             COMCPAC     1284     A     
 COMCPAC            ERR    ONLY NOP OR NOC MAY OCCUR WITH MBV                              COMCPAC     1285     A     
 COMCPAC   '?PAC#02 SET    NOC 1                                                           COMCPAC     1286     A     
 COMCPAC   '?PAC#03 SET    NOP 1                                                           COMCPAC     1287     A     
 COMCPAC   '?PAC#04 MICRO  1,,\_SD_MBV_\                                                   COMCPAC     1288     A     
 COMCPAC            IF     DEF,SD,3                                                        COMCPAC     1289     A     
 COMCPAC            IFMI   SD,2                                                            COMCPAC     1290     A     
 COMCPAC            ERRNZ  '?PAC#02-1  BINARY VALUE PARAMETER MAY ONLY OCCUR ONCE          COMCPAC     1291     A     
 COMCPAC            ERRNZ  '?PAC#03-1  BINARY VALUE PARAMETER MAY ONLY OCCUR ONCE          COMCPAC     1292     A     
 COMCPAC   '?PAC#05 MICRO  1,,\_AT_\                                                       COMCPAC     1293     A     
 COMCPAC   '?PAC#05 MICCNT '?PAC#05                                                        COMCPAC     1294     A     
 COMCPAC   '?PAC#05 MAX    '?PAC#05,1                                                      COMCPAC     1295     A     
 COMCPAC   '?PAC#05 MICRO  1,'?PAC#05,\STRING\                                             COMCPAC     1296     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            IFC    EQ,\"'?PAC#05"\_AT_\,6                                          COMCPAC     1297     A     
 COMCPAC   '?PAC#01 SET    '?PAC#03+9                                                      COMCPAC     1298     A     
 COMCPAC   '?PAC#01 SET    '?PAC#01/10                                                     COMCPAC     1299     A     
 COMCPAC   '?PAC#06 SET    '?PAC#03+10-'?PAC#01*10                                         COMCPAC     1300     A     
 COMCPAC  *                                                                                COMCPAC     1301     A     
 COMCPAC  *         WORD B (AT.EQ.*STRING*).  20/SD,20/NOC,20/NOWDS                        COMCPAC     1302     A     
 COMCPAC  *                                                                                COMCPAC     1303     A     
 COMCPAC   +        VFD    20/"'?PAC#04",20/'?PAC#02,20/'?PAC#01                           COMCPAC     1304     A     
 COMCPAC  *                                                                                COMCPAC     1305     A     
 COMCPAC  *         WORD C (STRING).  60/-(BITS IN LAST WORD)                              COMCPAC     1306     A     
 COMCPAC  *                                                                                COMCPAC     1307     A     
 COMCPAC   +        VFD    60/-6*'?PAC#06                                                  COMCPAC     1308     A     
 COMCPAC            SKIP   8                                                               COMCPAC     1309     A     
 COMCPAC  *                                                                                COMCPAC     1310     A     
 COMCPAC  *         WORD B (AT.NE.*STRING*). 20/(MBV OR SD), 20/NOC, 20/NOP                COMCPAC     1311     A     
 COMCPAC  *                                                                                COMCPAC     1312     A     
 COMCPAC   +        VFD    20/"'?PAC#04",20/'?PAC#02,20/'?PAC#03                           COMCPAC     1313     A     
 COMCPAC  *                                                                                COMCPAC     1314     A     
 COMCPAC  *         WORD C (ATTRIBUTES). 3/0,57/(3 BITS PER ATTRIBUTE)                     COMCPAC     1315     A     
 COMCPAC  *                                                                                COMCPAC     1316     A     
 COMCPAC   +        VFD    3/0                                                             COMCPAC     1317     A     
 COMCPAC   '?PAC#06 SET    0                                                               COMCPAC     1318     A     
 COMCPAC            ECHO   2,A=(AT)                                                        COMCPAC     1319     A     
 COMCPAC   '?PAC#06 SET    A '?PAC#06                                                      COMCPAC     1320     A     
 COMCPAC            VFD    3/A                                                             COMCPAC     1321     A     
 COMCPAC            IFNE   *P,60,1                                                         COMCPAC     1322     A     
 COMCPAC            VFD    *P/0                                                            COMCPAC     1323     A     
 COMCPAC   PARAM    ENDM                                                                   COMCPAC     1324     A     
 COMCPAC   MBVOP    SPACE  4,10                                                            COMCPAC     1325     A     
 COMCPAC  ***       MBVOP - MULTIPLE BINARY VALUE OPTIONS.                                 COMCPAC     1326     A     
 COMCPAC  *                                                                                COMCPAC     1327     A     
 COMCPAC  *         THIS MACRO IS USED TO DEFINE THE SUBKEYWORD TABLE USED                 COMCPAC     1328     A     
 COMCPAC  *         FOR MULTIPLE BINARY VALUE OPTION PROCESSING.                           COMCPAC     1329     A     
 COMCPAC  *                                                                                COMCPAC     1330     A     
 COMCPAC  * KOP     MBVOP  KOA,SD,IV                                                       COMCPAC     1331     A     
 COMCPAC  *                                                                                COMCPAC     1332     A     
 COMCPAC  *         KOP    SUBKEYWORD NAME (REQUIRED)                                      COMCPAC     1333     A     
 COMCPAC  *                ONE TO SEVEN ALPHANUMERIC CHARACTERS.  *KOP* MAY BE             COMCPAC     1334     A     
 COMCPAC  *                THE SAME CHARACTERS AS ANY PARAMETER KEYWORD (*KEY*).           COMCPAC     1335     A     
 COMCPAC  *         KOA    SUBKEYWORD OPTION ADDRESS (REQUIRED)                            COMCPAC     1336     A     
 COMCPAC  *                ADDRESS OF A WORD TO STORE BINARY VALUE FOR THIS                COMCPAC     1337     A     
 COMCPAC  *                OPTION.  IF THE OPTION IS *ON* THEN 1S59 IS STORED.             COMCPAC     1338     A     
 COMCPAC  *                IF IT IS *OFF*, A 0 IS STORED.                                  COMCPAC     1339     A     
 COMCPAC  *         SD     SECOND DEFAULT                                                  COMCPAC     1340     A     
 COMCPAC  *                *ON* OR *OFF*.  VALUE TO USE FOR THIS SUBKEYWORD                COMCPAC     1341     A     
 COMCPAC  *                WHEN THE MBV PARAMETER OCCURES WITHOUT MINUS OR                 COMCPAC     1342     A     
 COMCPAC  *                EQUIVALENCE.  DEFAULT SD=OFF.                                   COMCPAC     1343     A     
 COMCPAC  *         IV     INITIAL VALUE                                                   COMCPAC     1344     A     
 COMCPAC  *                *ON* OR *OFF*. VALUE USED WHEN AN *=* IS ENCOUNTERED            COMCPAC     1345     A     
 COMCPAC  *                AFTER THE MBV PARAMETER.  DEFAULT IV=OFF.                       COMCPAC     1346     A     
 COMCPAC                                                                                   COMCPAC     1347     A     
 COMCPAC                                                                                   COMCPAC     1348     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCPAC 
  
 COMCPAC            PURGMAC MBVOP                                                          COMCPAC     1349     A     
 COMCPAC                                                                                   COMCPAC     1350     A     
 COMCPAC            MACRO  MBVOP,KOP,KOA,SD,IV                                             COMCPAC     1351     A     
 COMCPAC   '?PAC#01 SET    0                                                               COMCPAC     1352     A     
 COMCPAC   '?PAC#02 SET    0                                                               COMCPAC     1353     A     
 COMCPAC            IFC    EQ,/SD/ON/,1                                                    COMCPAC     1354     A     
 COMCPAC   '?PAC#01 SET    1                                                               COMCPAC     1355     A     
 COMCPAC            IFC    EQ,/IV/ON/,1                                                    COMCPAC     1356     A     
 COMCPAC   '?PAC#02 SET    1                                                               COMCPAC     1357     A     
 COMCPAC            VFD    42/0L_KOP,18/KOA                                                COMCPAC     1358     A     
 COMCPAC            VFD    1/'?PAC#01,1/'?PAC#02,58/0                                      COMCPAC     1359     A     
 COMCPAC   MBVOP    ENDM                                                                   COMCPAC     1360     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCPAC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCPAC                   1360      1349
          FC5A146                      5         5
          FC5A158A                    11         2
          FC5A284                     11        11
          FC5A321                      1         1
          FC50345                      2         2
          F1039                       17        17
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSBM 
  
 COMCSBM  *COMDECK  COMCSBM            SET BLOCK OF MEMORY TO GIVEN VALUE                  COMCSBM        1     A     
 COMCSBM   SBM      CTEXT  SET BLOCK OF MEMORY TO A GIVEN VALUE                            COMCSBM        2     A     
 COMCSBM   SBM      SPACE  4,8                                                             COMCSBM        3     A     
 COMCSBM            IF     -DEF,QUAL$,1                                                    COMCSBM        4     A     
 COMCSBM            QUAL   COMCSBM                                                         COMCSBM        5     A     
 COMCSBM            BASE   D                                                               COMCSBM        6     A     
 COMCSBM  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1976.                             COMCSBM        7     A     
 COMCSBM   SBM      SPACE  4,8                                                             COMCSBM        8     A     
 COMCSBM  **        SBM - SET BLOCK OF MEMORY TO A GIVEN VALUE.                            COMCSBM        9     A     
 COMCSBM  *                                                                                COMCSBM       10     A     
 COMCSBM  *         ENTRY  (X1) = BLOCK LENGTH                                             COMCSBM       11     A     
 COMCSBM  *                (X6) = VALUE TO SET                                             COMCSBM       12     A     
 COMCSBM  *                (A6) = BLOCK FWA (WORD 1 ALREADY STORED)                        COMCSBM       13     A     
 COMCSBM  *                                                                                COMCSBM       14     A     
 COMCSBM  *         EXIT   (X6) = UNCHANGED                                                COMCSBM       15     A     
 COMCSBM  *                (X7) = (X6)                                                     COMCSBM       16     A     
 COMCSBM  *                (A6) = BLOCK LWA                                                COMCSBM       17     A     
 COMCSBM  *                (B1) = 1                                                        COMCSBM       18     A     
 COMCSBM  *                                                                                COMCSBM       19     A     
 COMCSBM  *         USES   X - 1, 2, 7                                                     COMCSBM       20     A     
 COMCSBM  *                A - 6, 7                                                        COMCSBM       21     A     
 COMCSBM  *                B - 1                                                           COMCSBM       22     A     
 COMCSBM  *                                                                                COMCSBM       23     A     
 COMCSBM  *         CALLS  NONE                                                            COMCSBM       24     A     
 COMCSBM                                                                                   COMCSBM       25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSBM 
  
 COMCSBM                                                                                   COMCSBM       26     A     
 COMCSBM   SBM2     SA7    A6+1                                                            COMCSBM       27     A     
 COMCSBM            IX1    X1-X2                                                           COMCSBM       28     A     
 COMCSBM            SA6    A7+B1                                                           COMCSBM       29     A     
 COMCSBM            PL     X1,SBM2     IF ALL OF BLOCK NOT SET                             COMCSBM       30     A     
 COMCSBM                                                                                   COMCSBM       31     A     
 COMCSBM   SBM=     SUBR   0           ENTRY/EXIT...                                       COMCSBM       32     A     
 COMCSBM            SX2    1                                                               COMCSBM       33     A     
 COMCSBM            NO                                                                     COMCSBM       34     A     
 COMCSBM            BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                           COMCSBM       35     A     
 COMCSBM            SB1    X7          (B1) = 1 IF LENGTH EVEN, = 0 IF ODD                 COMCSBM       36     A     
 COMCSBM            SX1    X1-3        DECREMENT LENGTH                                    COMCSBM       37     A     
 COMCSBM            SA6    A6+B1       SET 2ND WORD IF LENGTH WAS EVEN                     COMCSBM       38     A     
 COMCSBM            LX2    1           (X2) = 2                                            COMCSBM       39     A     
 COMCSBM            SB1    1                                                               COMCSBM       40     A     
 COMCSBM            BX7    X6                                                              COMCSBM       41     A     
 COMCSBM            PL     X1,SBM2     IF ALL OF BLOCK NOT SET                             COMCSBM       42     A     
 COMCSBM            EQ     EXIT.       EXIT...                                             COMCSBM       43     A     
 COMCSBM   SBM      SPACE  4,8                                                             COMCSBM       44     A     
 COMCSBM            BASE   *                                                               COMCSBM       45     A     
 COMCSBM   QUAL$    IF     -DEF,QUAL$                                                      COMCSBM       46     A     
 COMCSBM            QUAL   *                                                               COMCSBM       47     A     
 COMCSBM   SBM=     EQU    /COMCSBM/SBM=                                                   COMCSBM       48     A     
 COMCSBM   QUAL$    ENDIF                                                                  COMCSBM       49     A     
 COMCSBM            ENDX                                                                   COMCSBM       50     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSBM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSBM                     50        50
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT  *COMDECK  COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                                 COMDDMT        1     A     
 COMDDMT            CTEXT  COMDDMT - (DEBUG) DUMP TABLE ROUTINES.                          COMDDMT        2     A     
 COMDDMT                                                                                   COMDDMT        3     A     
 COMDDMT                                                                                   COMDDMT        4     A     
 COMDDMT            IF     -DEF,QUAL$,1                                                    COMDDMT        5     A     
 COMDDMT            QUAL   COMDDMT                                                         COMDDMT        6     A     
 COMDDMT            BASE   D                                                               COMDDMT        7     A     
 COMDDMT   DAT      SPACE  4,10                                                            COMDDMT        8     A     
 COMDDMT  **        DAT - DUMP A TABLE.                                                    COMDDMT        9     A     
 COMDDMT  *                                                                                COMDDMT       10     A     
 COMDDMT  *                                                                                COMDDMT       11     A     
 COMDDMT  *         ENTRY  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN (TT.) WORD                COMDDMT       12     A     
 COMDDMT  *                (X2) = 42/7LNAME,18/ORDINAL OF TABLE                            COMDDMT       13     A     
 COMDDMT  *                                                                                COMDDMT       14     A     
 COMDDMT  *         EXIT   NONE                                                            COMDDMT       15     A     
 COMDDMT  *                                                                                COMDDMT       16     A     
 COMDDMT  *         USES   ALL                                                             COMDDMT       17     A     
 COMDDMT  *                                                                                COMDDMT       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT  *         CALLS  COD,DCM,PRIDP                                                   COMDDMT       19     A     
 COMDDMT                                                                                   COMDDMT       20     A     
 COMDDMT                                                                                   COMDDMT       21     A     
 COMDDMT   DAT8     RJ     DSY         DUMP SYMBOL TABLE                                   COMDDMT       22     A     
 COMDDMT                                                                                   COMDDMT       23     A     
 COMDDMT   DAT      SUBR               ** ENTRY/EXIT **                                    COMDDMT       24     A     
 COMDDMT            SA3    =3R                                                             COMDDMT       25     A     
 COMDDMT            MX4    42                                                              COMDDMT       26     A     
 COMDDMT            BX5    X4*X2       REMOVE ORDINAL                                      COMDDMT       27     A     
 COMDDMT            BX6    X5+X3       ADD BLANKS                                          COMDDMT       28     A     
 COMDDMT            SA6    DATB+2      TABLE NAME 10H FMT                                  COMDDMT       29     A     
 COMDDMT            SB5    A1+         (B5) = ADDR OF TABLE ORIGIN WORD                    COMDDMT       30     A     
 COMDDMT            SA1    A1+N.TABLE  (X1) = LEN OF TABLE                                 COMDDMT       31     A     
 COMDDMT            SA2    DATB                                                            COMDDMT       32     A     
 COMDDMT            SA3    A2+B1                                                           COMDDMT       33     A     
 COMDDMT            BX6    X2                                                              COMDDMT       34     A     
 COMDDMT            SA4    A3+B1                                                           COMDDMT       35     A     
 COMDDMT            SA6    SNAPLNE                                                         COMDDMT       36     A     
 COMDDMT            LX7    X3                                                              COMDDMT       37     A     
 COMDDMT            SA7    A6+B1                                                           COMDDMT       38     A     
 COMDDMT            SA5    A4+B1                                                           COMDDMT       39     A     
 COMDDMT            BX6    X4                                                              COMDDMT       40     A     
 COMDDMT            LX7    X5                                                              COMDDMT       41     A     
 COMDDMT            SA6    A7+B1                                                           COMDDMT       42     A     
 COMDDMT            SA7    A6+B1                                                           COMDDMT       43     A     
 COMDDMT            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (TBL LEN)               COMDDMT       44     A     
 COMDDMT            SA6    A7+B1                                                           COMDDMT       45     A     
 COMDDMT            MX7    0                                                               COMDDMT       46     A     
 COMDDMT            SA7    A6+B1       MARK EOL                                            COMDDMT       47     A     
 COMDDMT            SB4    B5          (B4) = ADDR OF TABLE ORIGIN WORD                    COMDDMT       48     A     
 COMDDMT            PRIDP  SNAPLNE,,1                                                      COMDDMT       49     A     
 COMDDMT            SA1    =10HSYM                                                         COMDDMT       50     A     
 COMDDMT            SA2    DATB+2      TABLE NAME                                          COMDDMT       51     A     
 COMDDMT            IX6    X1-X2                                                           COMDDMT       52     A     
 COMDDMT            ZR     X6,DAT8     IF SYMBOL TABLE TO BE DUMPED                        COMDDMT       53     A     
 COMDDMT            SA2    B4          (X2) = ORIGIN (FWA) OF TABLE                        COMDDMT       54     A     
 COMDDMT            MX3    0           (X3) = LWA (NULL)                                   COMDDMT       55     A     
 COMDDMT            SA4    B4+N.TABLE  (X4) = LENGTH OF TABLE                              COMDDMT       56     A     
 COMDDMT            ZR     X4,EXIT.    IF TABLE EMPTY -- AVOID DUMP                        COMDDMT       57     A     
 COMDDMT            CALL   DCM=        DUMP CENTRAL MEMORY                                 COMDDMT       58     A     
 COMDDMT            EQ     EXIT.                                                           COMDDMT       59     A     
 COMDDMT                                                                                   COMDDMT       60     A     
 COMDDMT                                                                                   COMDDMT       61     A     
 COMDDMT   DATB     DIS    2,      DUMP OF TABLE                                           COMDDMT       62     A     
 COMDDMT            DATA   0           NAME OF TABLE 10H FMT                               COMDDMT       63     A     
 COMDDMT            DATA   10H LENGTH =                                                    COMDDMT       64     A     
 COMDDMT  *         DATA   10H NNNNNNB                                                     COMDDMT       65     A     
 COMDDMT   DMT      SPACE  4,10                                                            COMDDMT       66     A     
 COMDDMT  **        DMT - DUMP TABLES.                                                     COMDDMT       67     A     
 COMDDMT  *                                                                                COMDDMT       68     A     
 COMDDMT  *                                                                                COMDDMT       69     A     
 COMDDMT  *                CALLED BY *DUMPT* MACRO.                                        COMDDMT       70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT  *                                                                                COMDDMT       71     A     
 COMDDMT  *         ENTRY  LOWER HALF OF *RJ DMT=* WORD HAS FWA OF PARAMETER LIST-         COMDDMT       72     A     
 COMDDMT  * +       RJ     DMT=                                                            COMDDMT       73     A     
 COMDDMT  * -       VFD    30/FWA OF PARAMETER LIST                                        COMDDMT       74     A     
 COMDDMT  *                                                                                COMDDMT       75     A     
 COMDDMT  *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP            COMDDMT       76     A     
 COMDDMT  *         BY *DUMPT* MACRO.  (SEE *TSTEXT*) --                                   COMDDMT       77     A     
 COMDDMT  *                                                                                COMDDMT       78     A     
 COMDDMT  *         VFD    60/LOWER LIMIT (LL)                                             COMDDMT       79     A     
 COMDDMT  *         VFD    60/UPPER LIMIT (UL)                                             COMDDMT       80     A     
 COMDDMT  *         VFD    60/INCREMENT (INC)                                              COMDDMT       81     A     
 COMDDMT  *         VFD    60/10HSNAP NAME   (OR .ZR. IF NO NAME)                          COMDDMT       82     A     
 COMDDMT  *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)                  COMDDMT       83     A     
 COMDDMT  *         VFD    42/7LTN1,18/0                                                   COMDDMT       84     A     
 COMDDMT  *                 .                                                              COMDDMT       85     A     
 COMDDMT  *                 .                                                              COMDDMT       86     A     
 COMDDMT  *         VFD    42/7LTNN,18/0                                                   COMDDMT       87     A     
 COMDDMT  *         VFD    60/0        END OF TABLE MARK                                   COMDDMT       88     A     
 COMDDMT  *                                                                                COMDDMT       89     A     
 COMDDMT  *                WHERE TN1,...,TNN ARE THE NAMES OF TABLES IN THE                COMDDMT       90     A     
 COMDDMT  *                NAMES TABLE (SEE *TABLES* MACRO IN *TABLES*).                   COMDDMT       91     A     
 COMDDMT  *                                                                                COMDDMT       92     A     
 COMDDMT  *         EXIT   NONE                                                            COMDDMT       93     A     
 COMDDMT  *                                                                                COMDDMT       94     A     
 COMDDMT  *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)              COMDDMT       95     A     
 COMDDMT  *                                                                                COMDDMT       96     A     
 COMDDMT  *         CALLS  DAT,FRK,HDR,RSR=,SOB,SVR=                                       COMDDMT       97     A     
 COMDDMT                                                                                   COMDDMT       98     A     
 COMDDMT                                                                                   COMDDMT       99     A     
 COMDDMT   DMT=     SUBR   =           ** ENTRY/EXIT **                                    COMDDMT      100     A     
 COMDDMT            RJ     SVR=        SAVE ALL REGISTERS                                  COMDDMT      101     A     
 COMDDMT            SX1    3           SET TO *EXECUTIVE IS /DMT=/*                        COMDDMT      102     A     
 COMDDMT            RJ     SOB         SET OUTPUT BIT FLAGS                                COMDDMT      103     A     
 COMDDMT            SA4    DMT=                                                            COMDDMT      104     A     
 COMDDMT            LX4    30                                                              COMDDMT      105     A     
 COMDDMT            SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*               COMDDMT      106     A     
 COMDDMT            SX6    X5          (X6) = FWA OF PARAMETER LIST                        COMDDMT      107     A     
 COMDDMT            SA6    FW=IDPL                                                         COMDDMT      108     A     
 COMDDMT            RJ     FRK         CHECK FREQUENCY PARAMETERS                          COMDDMT      109     A     
 COMDDMT            ZR     X5,DMT3     IF NO DUMP THIS TIME                                COMDDMT      110     A     
 COMDDMT            RJ     HDR         OUTPUT HEADING                                      COMDDMT      111     A     
 COMDDMT            SX2    X5+SN=DMT-1 (X2+1) = ADDR OF 1ST TABLE PARAMETER WORD           COMDDMT      112     A     
 COMDDMT                                                                                   COMDDMT      113     A     
 COMDDMT  **        PICK UP NEXT *DUMPT* PARAMETER LIST ENTRY.                             COMDDMT      114     A     
 COMDDMT                                                                                   COMDDMT      115     A     
 COMDDMT   DMT2     SX6    X2+B1                                                           COMDDMT      116     A     
 COMDDMT            SA1    X6          (X1) = 42/7LTABLENAME,18/0                          COMDDMT      117     A     
 COMDDMT            SA6    FW=IDPL     RESET START OF PARAMETER LIST                       COMDDMT      118     A     
 COMDDMT            ZR     X1,DMT3     IF NO MORE TABLES TO DUMP                           COMDDMT      119     A     
 COMDDMT                                                                                   COMDDMT      120     A     
 COMDDMT            MX0    42                                                              COMDDMT      121     A     
 COMDDMT            SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS                      COMDDMT      122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT            CALL   SKT         SEARCH TABLE FOR MATCH                              COMDDMT      123     A     
 COMDDMT            ZR     X2,"BLOWUP" IF UNKNOW TABLE ON DUMPT MACRO                      COMDDMT      124     A     
 COMDDMT                                                                                   COMDDMT      125     A     
 COMDDMT            SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD          COMDDMT      126     A     
 COMDDMT            RJ     DAT         DUMP A TABLE                                        COMDDMT      127     A     
 COMDDMT            SA2    FW=IDPL     ADDRESS OF NEXT PARAMETER                           COMDDMT      128     A     
 COMDDMT            EQ     DMT2        LOOP FOR NEXT...                                    COMDDMT      129     A     
 COMDDMT                                                                                   COMDDMT      130     A     
 COMDDMT   DMT3     RJ     RSR=        RESTORE ALL REGISTERS                               COMDDMT      131     A     
 COMDDMT            EQ     EXIT.                                                           COMDDMT      132     A     
 COMDDMT   DSY      EJECT  4,10                                                            COMDDMT      133     A     
 COMDDMT  **        DSY - DUMP SYMBOL TABLE.                                               COMDDMT      134     A     
 COMDDMT                                                                                   COMDDMT      135     A     
 COMDDMT                                                                                   COMDDMT      136     A     
 COMDDMT   DSY      SUBR                                                                   COMDDMT      137     A     
 COMDDMT            SA1    IDPFLG                                                          COMDDMT      138     A     
 COMDDMT            MX0    -1                                                              COMDDMT      139     A     
 COMDDMT            LX1    -/IDP/IDF.IDOP                                                  COMDDMT      140     A     
 COMDDMT            BX2    -X0*X1      (X2) = 1 IF WRITING INTERACTIVELY                   COMDDMT      141     A     
 COMDDMT            SX6    X2+SNAPLNE                                                      COMDDMT      142     A     
 COMDDMT            SB6    X2+DSYB     SKIP 10 COLUMNS IF INTERACTIVE                      COMDDMT      143     A     
 COMDDMT            SA6    DSYC                                                            COMDDMT      144     A     
 COMDDMT            SB2    DSYB+DSYBL  (B2) = LWA+1 OF HEADER                              COMDDMT      145     A     
 COMDDMT            PRIDP  B6,B2-B6    LIST HEADING                                        COMDDMT      146     A     
 COMDDMT            SB5    B0          (B5) = SYMTAB ENTRY ORDINAL                         COMDDMT      147     A     
 COMDDMT            BX5    0           (X5) = SYMTAB WORD INDEX                            COMDDMT      148     A     
 COMDDMT   DSY2     SB6    SNAPLNE                                                         COMDDMT      149     A     
 COMDDMT            SX1    X5                                                              COMDDMT      150     A     
 COMDDMT            RJ     COD         CONVERT WORD INDEX                                  COMDDMT      151     A     
 COMDDMT            SX2    1R+&1R                                                          COMDDMT      152     A     
 COMDDMT            LX2    B2                                                              COMDDMT      153     A     
 COMDDMT            BX6    X6-X2                                                           COMDDMT      154     A     
 COMDDMT            LX6    3*6         -+12345---                                          COMDDMT      155     A     
 COMDDMT            SA6    B6                                                              COMDDMT      156     A     
 COMDDMT            SX1    B5          CONVERT ORDINAL                                     COMDDMT      157     A     
 COMDDMT            RJ     COD                                                             COMDDMT      158     A     
 COMDDMT            SA2    =XT.SYM                                                         COMDDMT      159     A     
 COMDDMT            MX7    7*6                                                             COMDDMT      160     A     
 COMDDMT            SB3    X5          (B3) = WORD INDEX                                   COMDDMT      161     A     
 COMDDMT            LX6    5*6         12345-----                                          COMDDMT      162     A     
 COMDDMT            BX4    X7*X6       12345--...                                          COMDDMT      163     A     
 COMDDMT            SA5    X2+B3       (X5) = SYMTAB WORD WA                               COMDDMT      164     A     
 COMDDMT            SB7    X5          (B7) = HASH CHAIN LINK                              COMDDMT      165     A     
 COMDDMT            LX5    3*6         DEFG123ABC                                          COMDDMT      166     A     
 COMDDMT            BX6    -X7*X5      .......ABC                                          COMDDMT      167     A     
 COMDDMT            MX3    4*6                                                             COMDDMT      168     A     
 COMDDMT            BX0    X3*X5       DEFG......                                          COMDDMT      169     A     
 COMDDMT            BX1    X6+X4       12345--ABC                                          COMDDMT      170     A     
 COMDDMT            RJ     ZTB         ZEROES TO BLANKS                                    COMDDMT      171     A     
 COMDDMT            SA6    B6+B1                                                           COMDDMT      172     A     
 COMDDMT            SX1    B7                                                              COMDDMT      173     A     
 COMDDMT            RJ     COD         CONVERT HASH LINK                                   COMDDMT      174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT            MX3    -6*6                                                            COMDDMT      175     A     
 COMDDMT            BX2    -X3*X6      ....-12345                                          COMDDMT      176     A     
 COMDDMT            IX1    X2+X0       DEFG-12345                                          COMDDMT      177     A     
 COMDDMT            RJ     ZTB                                                             COMDDMT      178     A     
 COMDDMT            SA6    B6+2                                                            COMDDMT      179     A     
 COMDDMT                                                                                   COMDDMT      180     A     
 COMDDMT            =A5    A5+WB.W     (X5) = SYMTAB WORD WB                               COMDDMT      181     A     
 COMDDMT            MX2    -2          LEVN                                                COMDDMT      182     A     
 COMDDMT            LX5    -45                                                             COMDDMT      183     A     
 COMDDMT            BX4    -X2*X5      (X4) = LEVEL NUMBER                                 COMDDMT      184     A     
 COMDDMT            LX5    45-47                                                           COMDDMT      185     A     
 COMDDMT            SX0    X4+1R0-1R   CONVERT LEVEL NUMBER                                COMDDMT      186     A     
 COMDDMT            MX7    -13         PTRF                                                COMDDMT      187     A     
 COMDDMT            BX1    -X7*X5                                                          COMDDMT      188     A     
 COMDDMT            LX0    6                                                               COMDDMT      189     A     
 COMDDMT            RJ     COD         CONVERT POINTER FIELD                               COMDDMT      190     A     
 COMDDMT            LX6    4*6                                                             COMDDMT      191     A     
 COMDDMT            IX7    X6+X0       -12345--L-                                          COMDDMT      192     A     
 COMDDMT            SA7    A6+B1                                                           COMDDMT      193     A     
 COMDDMT            LX5    47-33       RB/FPNO/FUNI                                        COMDDMT      194     A     
 COMDDMT            MX2    -12                                                             COMDDMT      195     A     
 COMDDMT            BX1    -X2*X5                                                          COMDDMT      196     A     
 COMDDMT            LX5    33-0                                                            COMDDMT      197     A     
 COMDDMT            MX4    -3                                                              COMDDMT      198     A     
 COMDDMT            BX3    -X4*X5                                                          COMDDMT      199     A     
 COMDDMT            SB7    X3          (B7) = MODE                                         COMDDMT      200     A     
 COMDDMT            RJ     COD         CONVERT RB/FPNO/FUNI                                COMDDMT      201     A     
 COMDDMT            LX6    6*6                                                             COMDDMT      202     A     
 COMDDMT            SA6    A7+B1                                                           COMDDMT      203     A     
 COMDDMT            LX5    0-3                                                             COMDDMT      204     A     
 COMDDMT            SB3    A5          SAVE (B3) = (A5)                                    COMDDMT      205     A     
 COMDDMT            BX1    X5                                                              COMDDMT      206     A     
 COMDDMT            RJ     WOD         CONVERT ALL OF WORD WB                              COMDDMT      207     A     
 COMDDMT            SA1    A6          FUNI------                                          COMDDMT      208     A     
 COMDDMT            MX2    6*6                                                             COMDDMT      209     A     
 COMDDMT            LX7    4*6         5678901234                                          COMDDMT      210     A     
 COMDDMT            BX1    X2*X1       ABCD--....                                          COMDDMT      211     A     
 COMDDMT            BX3    -X2*X7      ......1234                                          COMDDMT      212     A     
 COMDDMT            BX7    X2*X7       567890....                                          COMDDMT      213     A     
 COMDDMT            SA4    DSYA+B7     ......--M-                                          COMDDMT      214     A     
 COMDDMT            BX6    X1+X3                                                           COMDDMT      215     A     
 COMDDMT            SA6    A6          FUNI---1234                                         COMDDMT      216     A     
 COMDDMT            BX7    X4+X7       567890--M-                                          COMDDMT      217     A     
 COMDDMT            SA7    A6+B1                                                           COMDDMT      218     A     
 COMDDMT                                                                                   COMDDMT      219     A     
 COMDDMT            =A5    B3-WB.W+WC.W      FETCH (X5) = SYMTAB WORD WC                   COMDDMT      220     A     
 COMDDMT            MX3    -12         (X3) = BASE                                         COMDDMT      221     A     
 COMDDMT            LX5    -48                                                             COMDDMT      222     A     
 COMDDMT            BX1    -X3*X5      (X1) = EQUIV CLASS BASE                             COMDDMT      223     A     
 COMDDMT            RJ     COD         CONVERT OCTAL                                       COMDDMT      224     A     
 COMDDMT            MX2    7*6                                                             COMDDMT      225     A     
 COMDDMT            LX6    5*6         -BASE-----                                          COMDDMT      226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT            BX0    X2*X6       -BASE--...                                          COMDDMT      227     A     
 COMDDMT            MX4    -18                                                             COMDDMT      228     A     
 COMDDMT            LX5    48-30                                                           COMDDMT      229     A     
 COMDDMT            BX1    -X4*X5      (X1) = CHARACTER LENGTH                             COMDDMT      230     A     
 COMDDMT            RJ     COD         CONVERT OCTAL                                       COMDDMT      231     A     
 COMDDMT            LX6    7*6         456----123                                          COMDDMT      232     A     
 COMDDMT            MX2    7*6                                                             COMDDMT      233     A     
 COMDDMT            BX3    -X2*X6      .......123                                          COMDDMT      234     A     
 COMDDMT            BX7    X0+X3       -BASE--123                                          COMDDMT      235     A     
 COMDDMT            SA7    A7+B1                                                           COMDDMT      236     A     
 COMDDMT            LX5    30-28                                                           COMDDMT      237     A     
 COMDDMT            MX4    -2                                                              COMDDMT      238     A     
 COMDDMT            BX1    -X4*X5                                                          COMDDMT      239     A     
 COMDDMT            SX3    X1+1R0-1R   CONVERT CHARACTER TYPE                              COMDDMT      240     A     
 COMDDMT            LX3    4*6         .....C....                                          COMDDMT      241     A     
 COMDDMT            IX6    X6+X3       456--C-123                                          COMDDMT      242     A     
 COMDDMT            BX0    X2*X6       456--C-...                                          COMDDMT      243     A     
 COMDDMT            LX5    28-24                                                           COMDDMT      244     A     
 COMDDMT            MX4    -4                                                              COMDDMT      245     A     
 COMDDMT            BX1    -X4*X5      (X1) = BEGINNING CHARACTER POSITION                 COMDDMT      246     A     
 COMDDMT            SA2    =3R  0                                                          COMDDMT      247     A     
 COMDDMT            IX6    X2+X1       .......--P                                          COMDDMT      248     A     
 COMDDMT            BX7    X6+X0       456--C---P                                          COMDDMT      249     A     
 COMDDMT            SA7    A7+B1                                                           COMDDMT      250     A     
 COMDDMT            LX5    24-0                                                            COMDDMT      251     A     
 COMDDMT            MX4    -24                                                             COMDDMT      252     A     
 COMDDMT            BX1    -X4*X5      (X1) = WC.RA                                        COMDDMT      253     A     
 COMDDMT            RJ     COD         CONVERT OCTAL                                       COMDDMT      254     A     
 COMDDMT            SA6    A7+B1       --12345678                                          COMDDMT      255     A     
 COMDDMT            MX7    0                                                               COMDDMT      256     A     
 COMDDMT            SX5    B5+B1       ADVANCE ORDINAL                                     COMDDMT      257     A     
 COMDDMT            SA2    DSYC                                                            COMDDMT      258     A     
 COMDDMT            SA7    A6+B1       MARK END OF LINE                                    COMDDMT      259     A     
 COMDDMT            SB6    X2                                                              COMDDMT      260     A     
 COMDDMT            PRIDP  B6,A7-B6                                                        COMDDMT      261     A     
 COMDDMT            SB5    X5          (B5) = ORDINAL                                      COMDDMT      262     A     
 COMDDMT            SA2    =XT=SYM                                                         COMDDMT      263     A     
 COMDDMT            LX3    X5,B1                                                           COMDDMT      264     A     
 COMDDMT            IX5    X3+X5       (X5) = INDEX                                        COMDDMT      265     A     
 COMDDMT            IX7    X5-X2                                                           COMDDMT      266     A     
 COMDDMT            MI     X7,DSY2     IF INDEX .LT. LENGTH                                COMDDMT      267     A     
 COMDDMT            EQ     EXIT.                                                           COMDDMT      268     A     
 COMDDMT                                                                                   COMDDMT      269     A     
 COMDDMT   DSYA     BSS                                                                    COMDDMT      270     A     
 COMDDMT            LOC    0                                                               COMDDMT      271     A     
 COMDDMT   M.UNIV   CON    4R  0       CHAMELEON                                           COMDDMT      272     A     
 COMDDMT   M.LOG    CON    4R  L       LOGICAL                                             COMDDMT      273     A     
 COMDDMT   M.INT    CON    4R  I       INTEGER                                             COMDDMT      274     A     
 COMDDMT   M.REAL   CON    4R  R       REAL                                                COMDDMT      275     A     
 COMDDMT   M.DBL    CON    4R  D       DOUBLE                                              COMDDMT      276     A     
 COMDDMT   M.CPLX   CON    4R  Z       COMPLEX                                             COMDDMT      277     A     
 COMDDMT            CON    4R  6       BOOLEAN                                             COMDDMT      278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMDDMT 
  
 COMDDMT            CON    4R  7       CHARACTER                                           COMDDMT      279     A     
 COMDDMT            LOC    *O                                                              COMDDMT      280     A     
 COMDDMT                                                                                   COMDDMT      281     A     
 COMDDMT   DSYB     DIS    5,  INDEX   ORDNL  SYMBOL  CHAIN  PTRF LV BASE                  COMDDMT      282     A     
 COMDDMT            DIS    4,CLASS   M  FUNI    CLEN  C BCP    RELADD                      COMDDMT      283     A     
 COMDDMT            CON    0                                                               COMDDMT      284     A     
 COMDDMT   DSYBL    =      *-DSYB                                                          COMDDMT      285     A     
 COMDDMT                                                                                   COMDDMT      286     A     
 COMDDMT   DSYC     CON    SNAPLNE     FWA OF LINE TO OUTPUT                               COMDDMT      287     A     
 COMDDMT   ST=DMT   SPACE  4,10                                                            COMDDMT      288     A     
 COMDDMT  **        HERE TO PROCESS *DUMPT T1,T2,...,TN*.                                  COMDDMT      289     A     
 COMDDMT                                                                                   COMDDMT      290     A     
 COMDDMT                                                                                   COMDDMT      291     A     
 COMDDMT   ST=DMT   SX6    A5                                                              COMDDMT      292     A     
 COMDDMT            SA6    IDPSA5      SAVE (A5) = NEXT TOKEN ADDR                         COMDDMT      293     A     
 COMDDMT                                                                                   COMDDMT      294     A     
 COMDDMT   ST=DMT2  SA5    X6                                                              COMDDMT      295     A     
 COMDDMT            MX0    7*CHAR                                                          COMDDMT      296     A     
 COMDDMT            ZR     X5,IDP=MN   IF EOS ENCOUNTERED                                  COMDDMT      297     A     
 COMDDMT            SX6    X5-/IDP/O.VAR                                                   COMDDMT      298     A     
 COMDDMT            NZ     X6,ST=DMT3  IF NOT A NAME TOKEN                                 COMDDMT      299     A     
 COMDDMT            BX1    X0*X5                                                           COMDDMT      300     A     
 COMDDMT            RJ     =XSFN       SPACE FILL NAME                                     COMDDMT      301     A     
 COMDDMT            BX1    X6          (X1) = 10HTABLE NAME                                COMDDMT      302     A     
 COMDDMT            SB6    =XNAMES     (B6) = FWA OF TABLE NAME WORDS                      COMDDMT      303     A     
 COMDDMT            RJ     SKT         SEARCH TABLE FOR MATCH                              COMDDMT      304     A     
 COMDDMT            ZR     X2,ST=DMT3  IF NO FIND                                          COMDDMT      305     A     
 COMDDMT            SA1    X2+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD          COMDDMT      306     A     
 COMDDMT            RJ     DAT         DUMP A TABLE                                        COMDDMT      307     A     
 COMDDMT                                                                                   COMDDMT      308     A     
 COMDDMT   ST=DMT3  SA1    IDPSA5                                                          COMDDMT      309     A     
 COMDDMT            SX6    X1+B1                                                           COMDDMT      310     A     
 COMDDMT            SA6    A1                                                              COMDDMT      311     A     
 COMDDMT            EQ     ST=DMT2                                                         COMDDMT      312     A     
 COMDDMT   QUAL$    SPACE  4,10                                                            COMDDMT      313     A     
 COMDDMT   QUAL$    IF     -DEF,QUAL$                                                      COMDDMT      314     A     
 COMDDMT            QUAL   *                                                               COMDDMT      315     A     
 COMDDMT   DAT      EQU    /COMDDMT/DAT                                                    COMDDMT      316     A     
 COMDDMT   DMT=     EQU    /COMDDMT/DMT=                                                   COMDDMT      317     A     
 COMDDMT   ST=DMT   EQU    /COMDDMT/ST=DMT                                                 COMDDMT      318     A     
 COMDDMT   QUAL$    ENDIF                                                                  COMDDMT      319     A     
 COMDDMT            BASE   *                                                               COMDDMT      320     A     
 COMDDMT                                                                                   COMDDMT      321     A     
 COMDDMT   COMDDMT  ENDX                                                                   COMDDMT      322     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMDDMT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMDDMT                    322       322
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFCIP 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFCIP 
  
 COMFCIP  *COMDECK  COMFCIP - COMPILER INSTALLATION PARMETERS.                             COMFCIP        1     A     
 COMFCIP   CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS                       COMFCIP        2     A     
 COMFCIP   CIP      SPACE  4,10                                                            COMFCIP        3     A     
 COMFCIP  **        SELECT DEFAULT CONTROL STATEMENT OPTIONS.                              COMFCIP        4     A     
 COMFCIP  *                                                                                COMFCIP        5     A     
 COMFCIP  *         THERE ARE THREE TYPES OF CONTROL STATEMENT PARAMETERS (BINARY          COMFCIP        6     A     
 COMFCIP  *         VALUE, MULTIPLE BINARY VALUE, SPECIFIED VALUE).  A COMPLETE            COMFCIP        7     A     
 COMFCIP  *         EXPLANATION OF THESE TYPES AND THE USE OF DEFAULTS (FIRST              COMFCIP        8     A     
 COMFCIP  *         DEFAULT, SECOND DEFAULT, AND INITIAL VALUE) IS GIVEN AT THE            COMFCIP        9     A     
 COMFCIP  *         START OF THE DECK *FTN* AND IN THE *FTN* REFERENCE MANUAL.             COMFCIP       10     A     
 COMFCIP  *         SECOND DEFAULT VALUES ARE NOT INSTALLATION CHANGABLE.  INITIAL         COMFCIP       11     A     
 COMFCIP  *         VALUES ARE CHANGABLE ONLY ON MULTIPLE BINARY VALUE PARAMETERS.         COMFCIP       12     A     
 COMFCIP   BV       SPACE  4,10                                                            COMFCIP       13     A     
 COMFCIP  **        BINARY VALUE PARAMETERS - FIRST DEFAULTS.                              COMFCIP       14     A     
 COMFCIP  *                                                                                COMFCIP       15     A     
 COMFCIP  *         TO SELECT A FIRST DEFAULT VALUE DIFFERENT FROM THE STANDARD,           COMFCIP       16     A     
 COMFCIP  *         SET THE APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE               COMFCIP       17     A     
 COMFCIP  *         FOLLOWING TABLE.                                                       COMFCIP       18     A     
 COMFCIP                                                                                   COMFCIP       19     A     
 COMFCIP  *                VALUE       PARAMETER                                           COMFCIP       20     A     
 COMFCIP                                                                                   COMFCIP       21     A     
 COMFCIP   BV.AL    MICRO  1,, OFF     AL                                                  FC5A444       29     A     
 COMFCIP   BV.BL    MICRO  1,, OFF     BL                                                  COMFCIP       22     A     
 COMFCIP   BV.DS    MICRO  1,, OFF     DS                                                  COMFCIP       23     A     
 COMFCIP   BV.EC    MICRO  1,, ON      EC                                                  F1037F5        7          I
          -FC5A348
 COMFCIP   BV.EC    MICRO  1,, "CT.EC" EC                                                  FC5A348        7     A     
 COMFCIP   BV.GO    MICRO  1,, OFF     GO                                                  COMFCIP       24     A     
 COMFCIP   BV.PN    MICRO  1,, OFF     PN                                                  COMFCIP       25     A     
 COMFCIP   BV.QC    MICRO  1,, OFF     QC                                                  COMFCIP       26     A     
 COMFCIP   BV.SEQ   MICRO  1,, OFF     SEQ                                                 COMFCIP       27     A     
 COMFCIP   BV.STAT  MICRO  1,, OFF     STATIC                                              F1037F5        8     A     
 COMFCIP   BV.UO    MICRO  1,, OFF     UO                                                  COMFCIP       28     A     
 COMFCIP   MBV      SPACE  4,10                                                            COMFCIP       29     A     
 COMFCIP  **        MULTIPLE BINARY VALUE PARAMETERS - FIRST DEFAULTS.                     COMFCIP       30     A     
 COMFCIP  *                                                                                COMFCIP       31     A     
 COMFCIP  *         TO SELECT A FIRST DEFAULT VALUE DIFFERENT FROM THE STANDARD,           COMFCIP       32     A     
 COMFCIP  *         SET THE APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE               COMFCIP       33     A     
 COMFCIP  *         FOLLOWING TABLE.                                                       COMFCIP       34     A     
 COMFCIP                                                                                   COMFCIP       35     A     
 COMFCIP  *                VALUE       PARAMETER                                           COMFCIP       36     A     
 COMFCIP                                                                                   COMFCIP       37     A     
 COMFCIP   BV.ARGC  MICRO  1,, OFF     ARG=COMMON                                          COMFCIP       38     A     
 COMFCIP   BV.ARGF  MICRO  1,, OFF     ARG=FIXED                                           COMFCIP       39     A     
 COMFCIP  *BV.ARGF  MICRO  1,, ON      ARG=FIXED                                           COMFCIP       40     A     
 COMFCIP   BV.DBB   MICRO  1,, OFF     DB=B                                                COMFCIP       41     A     
 COMFCIP   BV.DBER0 MICRO  1,, ON      DB=ER, OPT=0                                        COMFCIP       42     A     
 COMFCIP   BV.DBER1 MICRO  1,, OFF     DB=ER, OPT=1                                        COMFCIP       43     A     
 COMFCIP   BV.DBER2 MICRO  1,, OFF     DB=ER, OPT=2                                        COMFCIP       44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFCIP 
  
 COMFCIP   BV.DBID  MICRO  1,, OFF     DB=ID                                               COMFCIP       45     A     
 COMFCIP   BV.DBPM  MICRO  1,, OFF     DB=PMD                                              COMFCIP       46     A     
 COMFCIP   BV.DBSB  MICRO  1,, OFF     DB=SB                                               COMFCIP       47     A     
 COMFCIP   BV.DBSL  MICRO  1,, OFF     DB=SL                                               COMFCIP       48     A     
 COMFCIP   BV.DBST  MICRO  1,, OFF     DB=ST                                               COMFCIP       49     A     
 COMFCIP   BV.DBTB  MICRO  1,, OFF     DB=TB                                               COMFCIP       50     A     
 COMFCIP   BV.DOLG  MICRO  1,, OFF     DO=LONG                                             COMFCIP       51     A     
 COMFCIP   BV.DOOT  MICRO  1,, OFF     DO=OT                                               COMFCIP       52     A     
 COMFCIP   BV.LOA   MICRO  1,, ON      LO=A                                                COMFCIP       53     A     
 COMFCIP   BV.LOC   MICRO  1,, OFF     LO=C                                                COMFCIP       54          I
          -FC5A321
 COMFCIP   BV.LOM   MICRO  1,, OFF     LO=M                                                COMFCIP       55     A     
 COMFCIP   BV.LOO   MICRO  1,, OFF     LO=O                                                COMFCIP       56     A     
 COMFCIP   BV.LOR   MICRO  1,, OFF     LO=R                                                COMFCIP       57     A     
 COMFCIP   BV.LOS   MICRO  1,, ON      LO=S                                                COMFCIP       58     A     
 COMFCIP   BV.REWB  MICRO  1,, OFF     REW=B                                               COMFCIP       59     A     
 COMFCIP   BV.REWE  MICRO  1,, OFF     REW=E                                               COMFCIP       60     A     
 COMFCIP   BV.REWI  MICRO  1,, OFF     REW=I                                               COMFCIP       61     A     
 COMFCIP   BV.REWL  MICRO  1,, OFF     REW=L                                               COMFCIP       62     A     
 COMFCIP   BV.RNDA  MICRO  1,, ON      ROUND=A                                             COMFCIP       63     A     
 COMFCIP   BV.RNDS  MICRO  1,, ON      ROUND=S                                             COMFCIP       64     A     
 COMFCIP   BV.RNDM  MICRO  1,, ON      ROUND=M                                             COMFCIP       65     A     
 COMFCIP   BV.RNDD  MICRO  1,, OFF     ROUND=D                                             COMFCIP       66     A     
 COMFCIP   BV.TMLC  MICRO  1,, OFF     TM=LCM                                              F1037F5        9     A     
 COMFCIP   MBV      SPACE  4,10                                                            COMFCIP       67     A     
 COMFCIP  **        MULTIPLE BINARY VALUE PARAMETERS - INITIAL VALUES.                     COMFCIP       68     A     
 COMFCIP  *                                                                                COMFCIP       69     A     
 COMFCIP  *         TO SELECT AN INITIAL VALUE DIFFERENT FROM THE STANDARD,                COMFCIP       70     A     
 COMFCIP  *         SET THE APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE               COMFCIP       71     A     
 COMFCIP  *         FOLLOWING TABLE.                                                       COMFCIP       72     A     
 COMFCIP                                                                                   COMFCIP       73     A     
 COMFCIP  *                VALUE       PARAMETER                                           COMFCIP       74     A     
 COMFCIP                                                                                   COMFCIP       75     A     
 COMFCIP   IV.ARGC  MICRO  1,, OFF     ARG=COMMON                                          COMFCIP       76     A     
 COMFCIP   IV.ARGF  MICRO  1,, OFF     ARG=FIXED                                           COMFCIP       77     A     
 COMFCIP   IV.DBB   MICRO  1,, OFF     DB=B                                                COMFCIP       78     A     
 COMFCIP   IV.DBER0 MICRO  1,, ON      DB=ER, OPT=0                                        COMFCIP       79     A     
 COMFCIP   IV.DBER1 MICRO  1,, ON      DB=ER, OPT=1                                        COMFCIP       80     A     
 COMFCIP   IV.DBER2 MICRO  1,, ON      DB=ER, OPT=2                                        COMFCIP       81     A     
 COMFCIP   IV.DBID  MICRO  1,, OFF     DB=ID                                               COMFCIP       82     A     
 COMFCIP   IV.DBPM  MICRO  1,, ON      DB=PMD                                              COMFCIP       83     A     
 COMFCIP   IV.DBSB  MICRO  1,, ON      DB=SB                                               COMFCIP       84     A     
 COMFCIP   IV.DBSL  MICRO  1,, ON      DB=SL                                               COMFCIP       85     A     
 COMFCIP   IV.DBST  MICRO  1,, ON      DB=ST                                               COMFCIP       86          I
          -FC5A155
 COMFCIP   IV.DBST  MICRO  1,, OFF     DB=ST                                               FC5A155        4     A     
 COMFCIP   IV.DBTB  MICRO  1,, ON      DB=TB                                               COMFCIP       87     A     
 COMFCIP   IV.DOLG  MICRO  1,, OFF     DO=LONG                                             COMFCIP       88     A     
 COMFCIP   IV.DOOT  MICRO  1,, OFF     DO=OT                                               COMFCIP       89     A     
 COMFCIP   IV.LOA   MICRO  1,, ON      LO=A                                                COMFCIP       90     A     
 COMFCIP   IV.LOC   MICRO  1,, OFF     LO=C                                                COMFCIP       91          I
          -FC5A321
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFCIP 
  
 COMFCIP   IV.LOM   MICRO  1,, OFF     LO=M                                                COMFCIP       92     A     
 COMFCIP   IV.LOO   MICRO  1,, OFF     LO=O                                                COMFCIP       93     A     
 COMFCIP   IV.LOR   MICRO  1,, OFF     LO=R                                                COMFCIP       94     A     
 COMFCIP   IV.LOS   MICRO  1,, ON      LO=S                                                COMFCIP       95     A     
 COMFCIP   IV.REWB  MICRO  1,, ON      REW=B                                               COMFCIP       96     A     
 COMFCIP   IV.REWE  MICRO  1,, ON      REW=E                                               COMFCIP       97     A     
 COMFCIP   IV.REWI  MICRO  1,, ON      REW=I                                               COMFCIP       98     A     
 COMFCIP   IV.REWL  MICRO  1,, OFF     REW=L                                               COMFCIP       99     A     
 COMFCIP   IV.RNDA  MICRO  1,, OFF     ROUND=A                                             COMFCIP      100     A     
 COMFCIP   IV.RNDS  MICRO  1,, OFF     ROUND=S                                             COMFCIP      101     A     
 COMFCIP   IV.RNDM  MICRO  1,, OFF     ROUND=M                                             COMFCIP      102     A     
 COMFCIP   IV.RNDD  MICRO  1,, OFF     ROUND=D                                             COMFCIP      103     A     
 COMFCIP   IV.TMLC  MICRO  1,, OFF     TM=LCM                                              F1037F5       10     A     
 COMFCIP   SV       SPACE  4,10                                                            COMFCIP      104     A     
 COMFCIP  **        SPECIFIED VALUE PARAMETERS - FIRST DEFAULTS.                           COMFCIP      105     A     
 COMFCIP  *                                                                                COMFCIP      106     A     
 COMFCIP  *         TO SELECT A FIRST DEFAULT VALUE DIFFERENT FROM THE STANDARD,           COMFCIP      107     A     
 COMFCIP  *         SET THE APPROPRIATE MICRO TO ONE OF THE ALLOWED VALUES IN THE          COMFCIP      108     A     
 COMFCIP  *         FOLLOWING TABLE.                                                       COMFCIP      109     A     
 COMFCIP                                                                                   COMFCIP      110     A     
 COMFCIP  *                    VALUE    PARAMETER     ALLOWED VALUES                       COMFCIP      111     A     
 COMFCIP                                                                                   COMFCIP      112     A     
 COMFCIP   SV.ANSI  MICRO  1,, 0        ANSI          0, T, F                              COMFCIP      113     A     
 COMFCIP   SV.B     MICRO  1,, LGO      B             0, FILENAME                          COMFCIP      114     A     
 COMFCIP   SV.CS    MICRO  1,, USER     CS            USER, FIXED                          COMFCIP      115     A     
 COMFCIP   SV.E     MICRO  1,, OUTPUT   E             FILENAME (NOT 0)                     COMFCIP      116     A     
 COMFCIP            IFEQ   TEST,ON,2                                                       COMFCIP      117     A     
 COMFCIP   SV.EL    MICRO  1,, D        EL            D, T, W, F, C                        COMFCIP      118     A     
 COMFCIP            SKIP   1                                                               COMFCIP      119     A     
 COMFCIP   SV.EL    MICRO  1,, T        EL            T, W, F, C                           COMFCIP      120     A     
 COMFCIP   SV.ET    MICRO  1,, 0        ET            0, T, W, F, C                        COMFCIP      121     A     
 COMFCIP   SV.I     MICRO  1,, INPUT    I             FILENAME (NOT 0)                     COMFCIP      122     A     
 COMFCIP   SV.L     MICRO  1,, OUTPUT   L             0, FILENAME                          COMFCIP      123     A     
 COMFCIP   SV.LCM   MICRO  1,, D        LCM           I, D, G                              COMFCIP      124     A     
 COMFCIP   SV.LL    MICRO  1,, 5000     LL            LINE LIMIT                           COMFCIP      125     A     
 COMFCIP   SV.MD    MICRO  1,, 0       MD    0,T,F                                         F1037F5       11     A     
 COMFCIP   SV.ML    MICRO  1,, 0        ML            0, STRING .LE. 9 CHARACTERS          COMFCIP      126     A     
 COMFCIP   SV.OPT   MICRO  1,, 0        OPT           0, 1, 2                              COMFCIP      127     A     
 COMFCIP   SV.PD    MICRO  1,, IP.PD    PD            6, 8                                 COMFCIP      128          I
          -FC5A426
 COMFCIP   SV.PS    MICRO  1,, 0        PS            PAGE SIZE .GE. 4                     COMFCIP      129          I
          -FC5A426
 COMFCIP                                              0 MEANS (PD*IP.PS)/IP.PD             COMFCIP      130          I
          -FC5A426
 COMFCIP   SV.PW    MICRO  1,, 0        PW            PAGE WIDTH FROM 50 TO 136            COMFCIP      131     A     
 COMFCIP                                              0 MEANS STANDARD (126-136)           COMFCIP      132     A     
 COMFCIP   SV.PWT   MICRO  1,, 72       PW FOR TTY    PAGE WIDTH FROM 50 TO 136            COMFCIP      133     A     
 COMFCIP   BUFFERS  SPACE  4,10                                                            COMFCIP      134     A     
 COMFCIP  **        FILE CIO BUFFER LENGTHS.                                               COMFCIP      135     A     
 COMFCIP                                                                                   COMFCIP      136     A     
 COMFCIP   .RM      IFNE   CP#RM,7                                                         COMFCIP      137     A     
 COMFCIP                                                                                   COMFCIP      138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFCIP 
  
 COMFCIP   BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH                           COMFCIP      139     A     
 COMFCIP   MBUFL    MICRO  1,, 401B    MINIMUM BUFFER LENGTH                               COMFCIP      140     A     
 COMFCIP                                                                                   COMFCIP      141     A     
 COMFCIP   Z.ERRSB  =      0                                                               COMFCIP      142     A     
 COMFCIP   Z.ILB    =      "BUFL"*2                                                        COMFCIP      143     A     
 COMFCIP   Z.INB    =      "BUFL"      ALWAYS = "BUFL" = IBUFL IN COMPCOM                  COMFCIP      144     A     
 COMFCIP   Z.INSB   =      "MBUFL"     BUFFER REDUCE IN SHORT OVERLAY MODE                 COMFCIP      145     A     
 COMFCIP   Z.LGOB   =      "BUFL"*2                                                        COMFCIP      146     A     
 COMFCIP   Z.LGOQB  =      "MBUFL"     BUFFER REDUCE IN QCG TO MINIMIZE FL                 COMFCIP      147          I
          -FC5A171A 
 COMFCIP   Z.LGOQB  =      N.OPSTK+N.ELSTK                                                 FC5A171A       5     A     
 COMFCIP   Z.OPTB   =      "BUFL"                                                          COMFCIP      148     A     
 COMFCIP   Z.OUTB   =      "BUFL"                                                          COMFCIP      149     A     
 COMFCIP   Z.OUTSB  =      "MBUFL"     BUFFER REDUCE IN SHORT OVERLAY MODE                 COMFCIP      150     A     
 COMFCIP   Z.PBB    =      "BUFL"*2                                                        COMFCIP      151     A     
 COMFCIP   Z.PBQB   =      701B        BUFFER IN QCG(LT 1000B FOR FLUSH AVOID)             COMFCIP      152     A     
 COMFCIP   Z.REFB   =      "BUFL"                                                          COMFCIP      153     A     
 COMFCIP   Z.REFQB  =      "MBUFL"     BUFFER REDUCE IN QCG TO MINIMIZE FL                 COMFCIP      154     A     
 COMFCIP                                                                                   COMFCIP      155     A     
 COMFCIP   .RM      ELSE                                                                   COMFCIP      156     A     
 COMFCIP                                                                                   COMFCIP      157     A     
 COMFCIP  **        FILE HOLDING BUFFER LENGTHS.                                           COMFCIP      158     A     
 COMFCIP  *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)                    COMFCIP      159     A     
 COMFCIP                                                                                   COMFCIP      160     A     
 COMFCIP                                                                                   COMFCIP      161     A     
 COMFCIP   BUFL     MICRO  1,, 0       NO CIO BUFFERS WITH 7RM I/0                         COMFCIP      162     A     
 COMFCIP                                                                                   FC5A180        4     A     
 COMFCIP   .MINFL   IFNE   .MINFL,0,2                                                      FC5A180        5     A     
 COMFCIP   HBUFL    MICRO  1,, 100B    SHORT HOLDING BUFFER                                FC5A180        6     A     
 COMFCIP            SKIP   1                                                               FC5A180        7     A     
 COMFCIP   HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH                               COMFCIP      163     A     
 COMFCIP                                                                                   COMFCIP      164          I
          -FC5A158A 
 COMFCIP   EBUFL    =      0                                                               FC5A158A      21     A     
 COMFCIP   OBUFL    =      0                                                               FC5A158A      22     A     
 COMFCIP                                                                                   FC5A158A      23     A     
 COMFCIP   Z.ERRSB  =      0                                                               FC5A158A      24     A     
 COMFCIP   Z.CMPSB  =      "BUFL"                                                          COMFCIP      165     A     
 COMFCIP   .MINFL   IFNE   .MINFL,0,2                                                      FC5A180        8     A     
 COMFCIP   Z.ILB    =      1002B                                                           FC5A180        9     A     
 COMFCIP            SKIP   1                                                               FC5A180       10     A     
 COMFCIP   Z.ILB    =      "HBUFL"                                                         COMFCIP      166          I
          -FC5A158A 
 COMFCIP   Z.ILB    =      1002B*2                                                         FC5A158A      25     A     
 COMFCIP   Z.INB    =      0                                                               COMFCIP      167     A     
 COMFCIP   Z.LGOB   =      "HBUFL"                                                         COMFCIP      168     A     
 COMFCIP   Z.LGOQB  =      "HBUFL"                                                         COMFCIP      169     A     
 COMFCIP   Z.OPTB   =      0                                                               COMFCIP      170     A     
 COMFCIP   Z.OUTB   =      0                                                               COMFCIP      171     A     
 COMFCIP   Z.PBB    =      "HBUFL"                                                         COMFCIP      172     A     
 COMFCIP   Z.PBQB   =      "HBUFL"                                                         COMFCIP      173     A     
 COMFCIP   Z.REFB   =      "HBUFL"                                                         COMFCIP      174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFCIP 
  
 COMFCIP   Z.REFQB  =      "HBUFL"                                                         COMFCIP      175     A     
 COMFCIP   .RM      ENDIF                                                                  COMFCIP      176     A     
 COMFCIP   OPTIONS  SPACE  4,10                                                            COMFCIP      177     A     
 COMFCIP  ***       MISCELLANEOUS OPTIONS.                                                 COMFCIP      178     A     
 COMFCIP   OPTIONS  SPACE  4,10                                                            COMFCIP      179     A     
 COMFCIP  **        DEFAULT FIELD LENGTH REQUEST INCREMENT.                                COMFCIP      180          I
          -FC5A119
 COMFCIP  *                                                                                COMFCIP      181          I
          -FC5A119
 COMFCIP  *         FTN ADDS THIS VALUE TO THE MINIMUM FL (DETERMINED BY THE               COMFCIP      182          I
          -FC5A119
 COMFCIP  *         COMPILER CONFIGURATION AND OPTIONS) TO ARRIVE AT THE FL                COMFCIP      183          I
          -FC5A119
 COMFCIP  *         REQUESTED WHEN THE JOB FL IS SYSTEM-CONTROLLED.                        COMFCIP      184          I
          -FC5A119
 COMFCIP                                                                                   COMFCIP      185          I
          -FC5A119
 COMFCIP   IN.FL0   =      4000B       FOR OPT = 0 (QCG)                                   COMFCIP      186          I
          -FC5A119
 COMFCIP   IN.FL1   =      4000B       FOR OPT = 1 (CCG)                                   COMFCIP      187          I
          -FC5A119
 COMFCIP   IN.FL2   =      4000B       FOR OPT = 2 (CCG)                                   COMFCIP      188          I
          -FC5A119
 COMFCIP   IN.LCM   =      30000B      INITIAL LCM REQUEST                                 COMFCIP      189          I
          -FC5A119
 COMFCIP   OPTIONS  SPACE  4,10                                                            COMFCIP      190     A     
 COMFCIP  **        FTN OVERLAY LIBRARY NAMES.                                             COMFCIP      191     A     
 COMFCIP                                                                                   COMFCIP      192     A     
 COMFCIP   FTNMAIN  MICRO  1,, NUCLEUS       FTN(0,0) OVERLAY                              COMFCIP      193     A     
 COMFCIP   FTNOVL   MICRO  1,, SYSOVL        FTN PRIMARY AND SECONDARY OVERLAYS            COMFCIP      194     A     
 COMFCIP   OPTIONS  SPACE  4                                                               COMFCIP      195     A     
 COMFCIP  ***   *** THERE ARE NO INSTALLATION OPTIONS BEYOND THIS LINE ***   ***           COMFCIP      196     A     
 COMFCIP                                                                                   COMFCIP      197     A     
 COMFCIP   COMFCIP  ENDX                                                                   COMFCIP      198     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFCIP 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFCIP                    198       179
          FC5A155                      1         1
          FC5A158A                     5         5
          FC5A171A                     1         1
          FC5A180                      7         7
          F1037F5                      5         4
          FC5A348                      1         1
          FC5A444                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFDST 
  
 COMFDST  *COMDECK COMFDST - SORT DOUBLE ENTRY TABLE.                                      COMFDST        1     A     
 COMFDST   COMFDST  CTEXT                                                                  COMFDST        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFDST 
  
 COMFDST            SPACE  4,7                                                             COMFDST        3     A     
 COMFDST  **        DSRT-  SORT DOUBLE ENTRY TABLE.                                        COMFDST        4     A     
 COMFDST  *         USES *SHELL* ALGORITHM (ACM JOURNAL 1960)                              COMFDST        5     A     
 COMFDST  *         ENTRY- A1 POINTS TO TABLE TO BE SORTED.                                COMFDST        6     A     
 COMFDST  *         EXIT-  TABLE IS SORTED                                                 COMFDST        7     A     
 COMFDST  *         USES   A0,A1,A2,A3,A4,A7  X0  B2,B3,B4,B5,B6,B7                        COMFDST        8     A     
 COMFDST                                                                                   COMFDST        9     A     
 COMFDST                                                                                   COMFDST       10     A     
 COMFDST   DSRT     SUBR   0           ENTRY/EXIT...                                       COMFDST       11     A     
 COMFDST            SA2    A1+=XN.TABLE                                                    COMFDST       12     A     
 COMFDST            SX3    X2-2                                                            COMFDST       13     A     
 COMFDST            MI     X3,EXIT.    IF LESS THAN 2 ENTRIES - EXIT...                    COMFDST       14     A     
 COMFDST            SB7    X2          LENGTH OF TABLE TO  (I)                             COMFDST       15     A     
 COMFDST            SA0    X1-2        STARTING ADDRESS TO (Z)                             COMFDST       16     A     
 COMFDST            SB6    B7          LENGTH OF TABLE TO  (N)                             COMFDST       17     A     
 COMFDST   DSRT10   SX0    B6                                                              COMFDST       18     A     
 COMFDST            AX0    2           /4                                                  COMFDST       19     A     
 COMFDST            =B3    2                                                               COMFDST       20     A     
 COMFDST            LX0    1           /2                                                  COMFDST       21     A     
 COMFDST            SB6    X0          N= N/2                                              COMFDST       22     A     
 COMFDST            ZR     B6,EXIT.    IF N=0 EXIT...                                      COMFDST       23     A     
 COMFDST            SB4    B7-B6       L=I-N                                               COMFDST       24     A     
 COMFDST            SB2    B3          J=K                                                 COMFDST       25     A     
 COMFDST   DSRT20   SB5    B2+B6       M=J+N                                               COMFDST       26     A     
 COMFDST            SA1    A0+B2       A(J)  (SYMBOL ENTRIES)                              COMFDST       27     A     
 COMFDST            SA2    A0+B5       A(L)                                                COMFDST       28     A     
 COMFDST            IX6    X2-X1       A(L)-A(J)                                           COMFDST       29     A     
 COMFDST            PL     X6,DSRT30   IF A(L) .GE. A(J)                                   COMFDST       30     A     
 COMFDST            SA3    A1+B1       (TAG ENTRIES)                                       COMFDST       31     A     
 COMFDST            SA4    A2+B1                                                           COMFDST       32     A     
 COMFDST            BX6    X1                                                              COMFDST       33     A     
 COMFDST            LX7    X3                                                              COMFDST       34     A     
 COMFDST            SA6    A2          (SYMBOL)                                            COMFDST       35     A     
 COMFDST            SA7    A4          (TAG   )                                            COMFDST       36     A     
 COMFDST            LX6    X2                                                              COMFDST       37     A     
 COMFDST            BX7    X4                                                              COMFDST       38     A     
 COMFDST            SA6    A1          (SYMBOL)                                            COMFDST       39     A     
 COMFDST            SB2    B2-B6       J=J-N                                               COMFDST       40     A     
 COMFDST            SA7    A3          (TAG   )                                            COMFDST       41     A     
 COMFDST            GT     B2,DSRT20   IF J .GT. 0                                         COMFDST       42     A     
 COMFDST   DSRT30   SB3    B3+2        K=K+2                                               COMFDST       43     A     
 COMFDST            NO                                                                     COMFDST       44     A     
 COMFDST            SB2    B3          J=K                                                 COMFDST       45     A     
 COMFDST            LE     B3,B4,DSRT20      IF K .LE. L                                   COMFDST       46     A     
 COMFDST            EQ     DSRT10      LOOP THRU TABLE                                     COMFDST       47     A     
 COMFDST   COMFDST  ENDX                                                                   COMFDST       48     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFDST 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFDST                     48        48
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFDST 
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFECB 
  
 COMFECB  *COMDECK COMFECB   EVALUATE CONSTANT CHARACTER BIAS AND SUBSTRING.               COMFECB        1     A     
 COMFECB            CTEXT  COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING                  COMFECB        2     A     
 COMFECB  **        ECB - EVALUATE CONSTANT CHARACTER BIAS.                                COMFECB        3     A     
 COMFECB  *         FORM WC. WORD INCLUDING OPERAND BIAS AND EQUIV. OFFSET.                COMFECB        4     A     
 COMFECB  *                                                                                COMFECB        5     A     
 COMFECB  *         ENTRY  (X2) = SYMTAB ORD                                               COMFECB        6     A     
 COMFECB  *                (X5) = BIAS, 60-BIT SIGNED                                      COMFECB        7     A     
 COMFECB  *                (B2) = SYMTAB FWA                                               COMFECB        8     A     
 COMFECB  *                                                                                COMFECB        9     A     
 COMFECB  *         EXIT   (X6) = WCA, WC. FORMAT                                          COMFECB       10     A     
 COMFECB  *                (B7) = SYMBOL TABLE POINTER TO WHICH WCA APPLIES.               COMFECB       11     A     
 COMFECB  *                                                                                COMFECB       12     A     
 COMFECB  *         PRESERVES  B4,B5,B6                                                    COMFECB       13     A     
 COMFECB                                                                                   COMFECB       14     A     
 COMFECB   ECB      SUBR   =                                                               COMFECB       15     A     
 COMFECB            SB7    X2                                                              COMFECB       16     A     
 COMFECB            LX4    B1,X2                                                           COMFECB       17     A     
 COMFECB            IX2    X4+X2                                                           COMFECB       18     A     
 COMFECB            SX0    B2+X2                                                           COMFECB       19     A     
 COMFECB            =A4    X0+WB.W                                                         COMFECB       20     A     
 COMFECB            =A2    A4+WC.W-WB.W                                                    COMFECB       21     A     
 COMFECB            BX1    X4                                                              COMFECB       22     A     
 COMFECB            HX4    WB.EQV                                                          COMFECB       23     A     
 COMFECB            MX0    -WC.CLENL                                                       COMFECB       24     A     
 COMFECB            LX1    -WB.MODEP                                                       COMFECB       25     A     
 COMFECB            MX6    -WB.MODEL                                                       COMFECB       26     A     
 COMFECB            LX2    -WC.CLENP                                                       COMFECB       27     A     
 COMFECB            BX3    -X0*X2      CLEN                                                COMFECB       28     A     
 COMFECB            BX1    -X6*X1      MODE[WB(ORD)]                                       COMFECB       29     A     
 COMFECB            SX0    X1-M.CHAR                                                       COMFECB       30     A     
 COMFECB            ZR     X0,ECB5     IF MODE = CHAR                                      COMFECB       31     A     
 COMFECB            SX3    10          SIMULATE CHAR*10                                    COMFECB       32     A     
 COMFECB                                                                                   COMFECB       33     A     
 COMFECB   ECB5     IX5    X5*X3                                                           COMFECB       34     A     
 COMFECB            LX2    WC.CLENP-WC.BCPP                                                COMFECB       35     A     
 COMFECB            MX0    -WC.BCPL                                                        COMFECB       36     A     
 COMFECB            BX3    -X0*X2                                                          COMFECB       37     A     
 COMFECB            IX6    X5+X3                                                           COMFECB       38     A     
 COMFECB            LX2    WC.BCPP                                                         COMFECB       39     A     
 COMFECB            MI     X4,ECB10    IF WB.EQV[ORD[OPD]]                                 COMFECB       40     A     
 COMFECB            WX5    X6,X7                                                           COMFECB       41     A     
 COMFECB            MX0    -WC.RAL                                                         COMFECB       42     A     
 COMFECB            BX5    -X0*X5                                                          COMFECB       43     A     
 COMFECB            MX0    -WC.BCPL-WC.RAL                                                 COMFECB       44     A     
 COMFECB            LX5    WC.RAP                                                          COMFECB       45     A     
 COMFECB            LX7    WC.BCPP                                                         COMFECB       46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFECB 
  
 COMFECB            BX1    X5+X7                                                           COMFECB       47     A     
 COMFECB            BX2    X0*X2       CLEAR BCP AND RA                                    COMFECB       48     A     
 COMFECB            BX6    X2+X1       INSTALL NEW BCP AND RA                              COMFECB       49     A     
 COMFECB            EQ     EXIT.                                                           COMFECB       50     A     
 COMFECB                                                                                   COMFECB       51     A     
 COMFECB   ECB10    LX4    1+WB.EQVP-WB.BASEP                                              COMFECB       52     A     
 COMFECB            MX0    -WB.BASEL                                                       COMFECB       53     A     
 COMFECB            BX3    -X0*X4                                                          COMFECB       54     A     
 COMFECB            SB7    X3                                                              COMFECB       55     A     
 COMFECB            LX4    B1,X3                                                           COMFECB       56     A     
 COMFECB            MX0    -WC.BCPL                                                        COMFECB       57     A     
 COMFECB            IX4    X3+X4                                                           COMFECB       58     A     
 COMFECB            SX4    B2+X4                                                           COMFECB       59     A     
 COMFECB            SA4    X4+WC.W                                                         COMFECB       60     A     
 COMFECB            LX4    -WC.BCPP                                                        COMFECB       61     A     
 COMFECB            BX0    -X0*X4                                                          COMFECB       62     A     
 COMFECB            IX6    X6+X0                                                           COMFECB       63     A     
 COMFECB            WX5    X6,X7                                                           COMFECB       64     A     
 COMFECB            LX5    -WC.RAL                                                         COMFECB       65     A     
 COMFECB            AX5    -WC.RAL     SIGN EXTEND CONSTANT RA                             COMFECB       66     A     
 COMFECB            MX0    WC.CLENL                                                        COMFECB       67     A     
 COMFECB            LX0    WC.CLENL+WC.CLENP                                               COMFECB       68     A     
 COMFECB            BX1    X0*X2       CLEN                                                COMFECB       69     A     
 COMFECB            LX2    -WC.RAL                                                         COMFECB       70     A     
 COMFECB            AX2    -WC.RAL     SIGN EXTEND                                         COMFECB       71     A     
 COMFECB            IX2    X5+X2                                                           COMFECB       72     A     
 COMFECB            LX7    WC.BCPP                                                         COMFECB       73     A     
 COMFECB            MX0    -WC.RAL                                                         COMFECB       74     A     
 COMFECB            BX1    X7+X1                                                           COMFECB       75     A     
 COMFECB            BX2    -X0*X2                                                          COMFECB       76     A     
 COMFECB            BX6    X1+X2                                                           COMFECB       77     A     
 COMFECB            EQ     EXIT.                                                           COMFECB       78     A     
 COMFECB   ECS      SPACE  4,8                                                             COMFECB       79     A     
 COMFECB  **        ECS - EVALUATE CONSTANT SUBSTRING.                                     COMFECB       80     A     
 COMFECB  *                                                                                COMFECB       81     A     
 COMFECB  *         ENTRY  X3 = SUBSTRING START CONSTANT                                   COMFECB       82     A     
 COMFECB  *                X4 = SUBSTRING END CONSTANT                                     COMFECB       83     A     
 COMFECB  *                X6 = WCA FOR BASE                                               COMFECB       84     A     
 COMFECB  *                B7 = SYMTAB POINTER TO WHICH WCA APPLIES                        COMFECB       85     A     
 COMFECB  *                                                                                COMFECB       86     A     
 COMFECB  *         EXIT   X6 = WCA FOR SUBSTRING                                          COMFECB       87     A     
 COMFECB  *                B7 - PRESERVED                                                  COMFECB       88     A     
 COMFECB  *                X7 = SUBSTRING LENGTH                                           COMFECB       89     A     
 COMFECB  *                                                                                COMFECB       90     A     
 COMFECB  *         PRESERVES X5, A5, B4, B5, B6, B7                                       COMFECB       91     A     
 COMFECB                                                                                   COMFECB       92     A     
 COMFECB   ECS      SUBR   =                                                               COMFECB       93     A     
 COMFECB            SB3    X3-1                                                            COMFECB       94     A     
 COMFECB            SB2    X4                                                              COMFECB       95     A     
 COMFECB            SX7    B2-B3                                                           COMFECB       96     A     
 COMFECB            MX0    -WC.RAL                                                         COMFECB       97     A     
 COMFECB            BX1    X7                                                              COMFECB       98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFECB 
  
 COMFECB            LX6    -WC.RAP                                                         COMFECB       99     A     
 COMFECB            BX3    -X0*X6                                                          COMFECB      100     A     
 COMFECB            LX3    -WC.RAL                                                         COMFECB      101     A     
 COMFECB            AX3    -WC.RAL                                                         COMFECB      102     A     
 COMFECB            MX0    -WC.BCPL                                                        COMFECB      103     A     
 COMFECB            LX6    WC.RAP-WC.BCPP                                                  COMFECB      104     A     
 COMFECB            BX4    -X0*X6                                                          COMFECB      105     A     
 COMFECB            SX6    X4+B3                                                           COMFECB      106     A     
 COMFECB            WX4    X6,X2                                                           COMFECB      107     A     
 COMFECB            IX3    X4+X3                                                           COMFECB      108     A     
 COMFECB            LX2    WC.BCPP                                                         COMFECB      109     A     
 COMFECB            LX1    WC.CLENP                                                        COMFECB      110     A     
 COMFECB            BX2    X1+X2                                                           COMFECB      111     A     
 COMFECB            MX0    -WC.RAL                                                         COMFECB      112     A     
 COMFECB            BX3    -X0*X3                                                          COMFECB      113     A     
 COMFECB            LX3    WC.RAP                                                          COMFECB      114     A     
 COMFECB            BX6    X2+X3                                                           COMFECB      115     A     
 COMFECB            EQ     EXIT.                                                           COMFECB      116     A     
 COMFECB   COMFECB  ENDX                                                                   COMFECB      117     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFECB 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFECB                    117       117
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFEI 
  
 COMFFEI  *COMDECK  COMFFEI - FRONT END INITIALIZATION.                                    COMFFEI        1     A     
 COMFFEI   FEI      CTEXT  COMFFEI - FRONT END INITIALIZATION.                             COMFFEI        2     A     
 COMFFEI                                                                                   COMFFEI        3     A     
 COMFFEI                                                                                   COMFFEI        4     A     
 COMFFEI  *         IN FEC                                                                 COMFFEI        5     A     
 COMFFEI            EXT    ERT,F.SYMIL,Z.SYMDB,Z.SYMIL,Z.SYMVP                             COMFFEI        6          I
          -FC50744
 COMFFEI            EXT    F.SYMIL,Z.SYMDB,Z.SYMIL,Z.SYMVP                                 FC50744        8     A     
 COMFFEI                                                                                   COMFFEI        7     A     
 COMFFEI  *         IN FTN                                                                 COMFFEI        8     A     
 COMFFEI            EXT    CO.ANSI,CO.DBSL,CO.LOR                                          COMFFEI        9          I
          -FC5A132
 COMFFEI            EXT    CO.ANSI,CO.DBSL,CO.LOR,CO.OPT,CO.LCM,TIMER,TIME1                FC5A132        6          I
          -F1037F5
 COMFFEI            EXT    CO.ANSI,CO.MD,CO.DBSL,CO.LOR,CO.OPT,CO.LCM                      F1037F5       12     A     
 COMFFEI                                                                                   COMFFEI       10     A     
 COMFFEI  *         IN PEM                                                                 COMFFEI       11     A     
 COMFFEI            EXT    ANSI.SW                                                         COMFFEI       12          I
          -F1037F5
 COMFFEI            EXT    ANSI.SW,MDER.SW                                                 F1037F5       13     A     
 COMFFEI                                                                                   COMFFEI       13     A     
 COMFFEI  *         IN PUC                                                                 COMFFEI       14     A     
 COMFFEI            EXT    ERRTYP                                                          COMFFEI       15          I
          -FC5A132
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFEI 
  
 COMFFEI            EXT    ERRTYP,WO.LCM                                                   FC5A132        7          I
          -F1037F5
 COMFFEI            EXT    TIMER,TIME1,ERRTYP,WO.LCM                                       F1037F5       14     A     
 COMFFEI   FEI      SPACE  4,10                                                            COMFFEI       16     A     
 COMFFEI  **        FEI - FRONT END INITIALIZATION.                                        COMFFEI       17     A     
 COMFFEI  *                                                                                COMFFEI       18     A     
 COMFFEI  *         PERFORMS OVERLAY INITIALIATION FOR FRONT-END.                          COMFFEI       19     A     
 COMFFEI  *         NEEDED BY (0,0), (1,0), AND (2,1).                                     COMFFEI       20     A     
 COMFFEI  *         OTHER CODE WILL BE FOUND IN FEC/PUP, FOR STRANGE REASONS.              COMFFEI       21     A     
 COMFFEI  *                                                                                COMFFEI       22     A     
 COMFFEI  *         RESET CHARACTER SUBSTRING ROUTINES TO NON-CHECKING FORM,               COMFFEI       23     A     
 COMFFEI  *         DEPENDING ON (CO.DBSL).                                                COMFFEI       24     A     
 COMFFEI                                                                                   COMFFEI       25     A     
 COMFFEI                                                                                   COMFFEI       26     A     
 COMFFEI   FEI      SUBR               ...ENTRY/EXIT...                                    COMFFEI       27     A     
 COMFFEI                                                                                   FC5A132        8     A     
 COMFFEI  **        RESET PROGRAM UNIT START TIME                                          FC5A132        9     A     
 COMFFEI                                                                                   FC5A132       10     A     
 COMFFEI            CALL   TIMER                                                           FC5A132       11     A     
 COMFFEI            SA6    TIME1                                                           FC5A132       12     A     
 COMFFEI            SX5    Z=SYM                                                           COMFFEI       28     A     
 COMFFEI            SX6    Z.SYMVP                                                         COMFFEI       29     A     
 COMFFEI            IX6    X6/X5                                                           COMFFEI       30     A     
 COMFFEI            SX1    F.SYMIL                                                         COMFFEI       31     A     
 COMFFEI            SA1    X1+Z.SYMVP+1                                                    COMFFEI       32     A     
 COMFFEI            SX5    M.LOG                                                           COMFFEI       33     A     
 COMFFEI            SX3    N.TYPE      LOOP LIMIT                                          COMFFEI       34     A     
 COMFFEI            LX6    WB.BASEP                                                        COMFFEI       35     A     
 COMFFEI   FEI1     SA1    A1+Z=SYM                                                        COMFFEI       36          I
          -F1037F5
 COMFFEI   FEI10    SA1    A1+Z=SYM                                                        F1037F5       15     A     
 COMFFEI            BX1    X1+X5       FILL IN WB.MODE                                     COMFFEI       37     A     
 COMFFEI            BX7    X1+X6       FILL IN WB.BASE                                     COMFFEI       38     A     
 COMFFEI            SA7    A1                                                              COMFFEI       39     A     
 COMFFEI            =X5    X5+1                                                            COMFFEI       40     A     
 COMFFEI            IX2    X5-X3                                                           COMFFEI       41     A     
 COMFFEI            MI     X2,FEI1     IF NOT DONE                                         COMFFEI       42          I
          -F1037F5
 COMFFEI            MI     X2,FEI10    IF NOT DONE                                         F1037F5       16     A     
 COMFFEI            SA3    CO.DBSL                                                         COMFFEI       43     A     
 COMFFEI            SB2    Z.SYMDB                                                         COMFFEI       44     A     
 COMFFEI            NZ     X3,FEI4     IF SUBSTRING LIMIT CHECKING ENABLED                 COMFFEI       45          I
          -F1037F5
 COMFFEI            NZ     X3,FEI30    IF SUBSTRING LIMIT CHECKING ENABLED                 F1037F5       17     A     
 COMFFEI            SX3    2RC.&2R.:                                                       COMFFEI       46          I
          -FC5A163
 COMFFEI            SX3    2R..-1R.&2RC.                                                   FC5A163        5     A     
 COMFFEI            =X4    MF.LIB&MF.BEF                                                   COMFFEI       47     A     
 COMFFEI            LX3    WA.SYMP+2*6                                                     COMFFEI       48     A     
 COMFFEI            SB7    Z.SYMIL                                                         COMFFEI       49     A     
 COMFFEI            LX4    WC.FUNTP                                                        COMFFEI       50     A     
 COMFFEI   FEI2     SA1    B2+F.SYMIL+WA.W                                                 COMFFEI       51          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFEI 
  
          -F1037F5
 COMFFEI   FEI20    SA1    B2+F.SYMIL+WA.W                                                 F1037F5       18     A     
 COMFFEI            SA2    A1-WA.W+WC.W                                                    COMFFEI       52     A     
 COMFFEI            BX6    X3-X1       CHANGE (C.) INTO (.:)                               COMFFEI       53     A     
 COMFFEI            BX7    X4-X2       CHANGE (MF.LIB) INTO (MF.BEF)                       COMFFEI       54     A     
 COMFFEI            SB2    B2+Z=SYM                                                        COMFFEI       55     A     
 COMFFEI            SA6    A1                                                              COMFFEI       56     A     
 COMFFEI            SA7    A2                                                              COMFFEI       57     A     
 COMFFEI            NE     B2,B7,FEI2  IF MORE ENTRIES TO CONVERT                          COMFFEI       58          I
          -F1037F5
 COMFFEI            NE     B2,B7,FEI20 IF MORE ENTRIES TO CONVERT                          F1037F5       19     A     
 COMFFEI                                                                                   COMFFEI       59     A     
 COMFFEI   FEI4     SA1    CO.LOR                                                          COMFFEI       60          I
          -F1037F5
 COMFFEI   FEI30    SA1    CO.LOR                                                          F1037F5       20          I
          -FC50744
 COMFFEI            SA2    ERT=ON                                                          COMFFEI       61          I
          -FC50744
 COMFFEI            MI     X1,FEI7     IF REF MAP SELECTED                                 COMFFEI       62          I
          -F1037F5  -FC50744
 COMFFEI            MI     X1,FEI40    IF REF MAP SELECTED                                 F1037F5       21          I
          -FC50744
 COMFFEI            SA2    ERT=OFF                                                         COMFFEI       63          I
          -FC50744
 COMFFEI   FEI7     BX7    X2                                                              COMFFEI       64          I
          -F1037F5  -FC50744
 COMFFEI   FEI40    BX7    X2                                                              F1037F5       22          I
          -FC50744
 COMFFEI            SA7    ERT         SET REFERENCE MAP SWITCH TO ON/OFF                  COMFFEI       65          I
          -FC50744
 COMFFEI            SA1    CO.ANSI                                                         COMFFEI       66          I
          -FC50744
 COMFFEI   FEI30    SA1    CO.ANSI                                                         FC50744        9     A     
 COMFFEI            SA2    ERRTYP                                                          COMFFEI       67     A     
 COMFFEI            BX6    X2+X1       SET ERROR-LEVEL FOR ANSI DIAGNOSTICS                COMFFEI       68          I
          -F1037F5
 COMFFEI            SA6    A2                                                              COMFFEI       69          I
          -F1037F5
 COMFFEI            SA2    ANSI.SW                                                         COMFFEI       70          I
          -F1037F5
 COMFFEI            ZR     X1,FEI8     IF ANSI MESSAGES NOT DESIRED                        COMFFEI       71          I
          -F1037F5
 COMFFEI            LX2    30                                                              COMFFEI       72          I
          -F1037F5
 COMFFEI            BX7    X2          ENABLE ANSI LISTING                                 COMFFEI       73          I
          -F1037F5
 COMFFEI            SA7    A2                                                              COMFFEI       74          I
          -F1037F5
 COMFFEI            SX1    X1-EL=F                                                         COMFFEI       75          I
          -F1037F5
 COMFFEI            NZ     X1,FEI8     IF ERROR LEVEL NOT FATAL                            COMFFEI       76          I
          -F1037F5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFEI 
  
 COMFFEI            SA3    CO.MD                                                           F1037F5       23     A     
 COMFFEI            =A4    A2+1                                                            F1037F5       24     A     
 COMFFEI            BX6    X1+X2                                                           F1037F5       25     A     
 COMFFEI            BX7    X3+X4                                                           F1037F5       26     A     
 COMFFEI            SA6    A2          SET ERROR LEVEL FOR ANSI DIAGNOSTICS                F1037F5       27     A     
 COMFFEI            SA7    A4          SET ERROR LEVEL FOR MACHINE DEPENDENT DIAG.         F1037F5       28     A     
 COMFFEI            ZR     X1,FEI50    IF ANSI DIAGNOSTICS NOT DESIRED                     F1037F5       29     A     
 COMFFEI            SA2    ANSI.SW                                                         F1037F5       30     A     
 COMFFEI            LX2    30                                                              F1037F5       31     A     
 COMFFEI            BX7    X2                                                              F1037F5       32     A     
 COMFFEI            SA7    A2          ENABLE ANSI DIAGNOSTICS                             F1037F5       33     A     
 COMFFEI            SX1    X1-EL=F                                                         F1037F5       34     A     
 COMFFEI            NZ     X1,FEI50    IF ERROR LEVEL NOT FATAL                            F1037F5       35     A     
 COMFFEI            SA1    ERRTYP+EL=W                                                     COMFFEI       77     A     
 COMFFEI            SX2    EL=F                                                            COMFFEI       78     A     
 COMFFEI            MX0    -18                                                             COMFFEI       79     A     
 COMFFEI            BX1    X0*X1       ERASE EL=W                                          COMFFEI       80     A     
 COMFFEI            BX6    X2+X1                                                           COMFFEI       81     A     
 COMFFEI            SA6    A1          REPLACE WITH EL=F                                   COMFFEI       82     A     
 COMFFEI   FEI8     BSS                                                                    COMFFEI       83          I
          -F1037F5
 COMFFEI                                                                                   F1037F5       36     A     
 COMFFEI   FEI50    ZR     X3,FEI60    IF MACHINE DEPENDENT DIAG. NOT DESIRED              F1037F5       37     A     
 COMFFEI            SA2    MDER.SW                                                         F1037F5       38     A     
 COMFFEI            LX2    30                                                              F1037F5       39     A     
 COMFFEI            BX7    X2                                                              F1037F5       40     A     
 COMFFEI            SA7    A2          ENABLE MACHINE DEPENDENT DIAGNOSTICS                F1037F5       41     A     
 COMFFEI                                                                                   F1037F5       42     A     
 COMFFEI   FEI60    BSS    0                                                               F1037F5       43     A     
 COMFFEI            SA1    CO.OPT                                                          FC5A132       13     A     
 COMFFEI            SA2    CO.LCM                                                          FC5A132       14     A     
 COMFFEI            =X6    -1                                                              FC5A132       15     A     
 COMFFEI            ZR     X1,FEI10    IF OPT = 0                                          FC5A132       16          I
          -F1037F5
 COMFFEI            ZR     X1,FEI70    IF OPT = 0                                          F1037F5       44     A     
 COMFFEI            BX6    X2                                                              FC5A132       17     A     
 COMFFEI                                                                                   FC5A132       18     A     
 COMFFEI   FEI10    SA6    WO.LCM      FORCE LCM=G FOR OPT=0                               FC5A132       19          I
          -F1037F5
 COMFFEI   FEI70    SA6    WO.LCM      FORCE LCM=G FOR OPT=0                               F1037F5       45     A     
 COMFFEI            EQ     EXIT.                                                           COMFFEI       84     A     
 COMFFEI                                                                                   COMFFEI       85     A     
 COMFFEI                                                                                   COMFFEI       86     A     
 COMFFEI   COMFFEI  ENDX                                                                   COMFFEI       87     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFFEI 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFFEI                     87        60
          FC5A132                     14        10
          FC5A163                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFEI 
  
          F1037F5                     34        31
          FC50744                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFERR 
  
 COMFERR  *COMDECK COMFERR - COMMON DIAGNOSTIC SKELETONS                                   COMFERR        1     A     
 COMFERR   COMFERR  CTEXT  COMFERR                                                         COMFERR        2     A     
 COMFERR            SPACE  4,10                                                            COMFERR        3     A     
 COMFERR  **        COMMON DIAGNOSTIC SKELETONS                                            COMFERR        4     A     
 COMFERR  *                                                                                COMFERR        5     A     
 COMFERR  *         ALL DIAGNOSTICS APPEARING IN DECKS BELOW SHOULD BE PLACED IN           COMFERR        6     A     
 COMFERR  *         THIS COMDECK.                                                          COMFERR        7     A     
 COMFERR  *                                                                                COMFERR        8     A     
 COMFERR  *         REC, RLINK, PEM, ALLOC, FAS, MAP, LIST                                 COMFERR        9     A     
 COMFERR                                                                                   COMFERR       10     A     
 COMFERR                                                                                   COMFERR       11     A     
 COMFERR   E.MO1    ERROR  F,*,(PROGRAM LENGTH EXCEEDS 2**17-1)                            COMFERR       12     A     
 COMFERR   E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN)         COMFERR       13     A     
 COMFERR   E.MO3    ERROR  F,*,(VARIABLE BLOCK LENGTH EXCEEDS "MAX.SPCM")                  COMFERR       14          I
          -FC5A126
 COMFERR                                                                                   COMFERR       15     A     
 COMFERR   .TEST    IFEQ   TEST,ON     IF TESTMODE                                         COMFERR       16     A     
 COMFERR   E.MO4    ERROR  D,*,(PREBINARY SPILLS TO DISK)                                  COMFERR       17     A     
 COMFERR   E.MO5    ERROR  D,*,(REFERENCE FILE SPILLS TO DISK)                             COMFERR       18     A     
 COMFERR   E.MO6    ERROR  DS,*,(THRESHOLD REACHED -- ONLY FILL. LEFT OUT OF FILL.         COMFERR       19     A     
 COMFERR  ,2)                                                                              COMFERR       20     A     
 COMFERR   E.MO7    ERROR  D,*,(LINK AND FILL TABLES SPILLS TO DISK)                       COMFERR       21     A     
 COMFERR   .TEST    ENDIF                                                                  COMFERR       22     A     
 COMFERR                                                                                   COMFERR       23     A     
 COMFERR   E.MO8    ERROR  F,*,("SCM" COMMON BLOCK LENGTH EXCEEDS "MAX.SPCM")              COMFERR       24     A     
 COMFERR                                                                                   COMFERR       25     A     
 COMFERR   .T       IFEQ   TEST,ON                                                         COMFERR       26     A     
 COMFERR   E.TC1    ERROR  DS,*,(TABLE FILL. CRASH)                                        COMFERR       27     A     
 COMFERR   .T       ENDIF                                                                  COMFERR       28     A     
 COMFERR                                                                                   COMFERR       29     A     
 COMFERR   COMFERR  ENDX                                                                   COMFERR       30     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFERR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFERR                     30        29
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFFN 
  
 COMFFFN  *COMDECK  COMFFFN - FIND FILE NAME.                                              COMFFFN        1     A     
 COMFFFN   COMFFFN  CTEXT  COMFFFN                                                         COMFFFN        2     A     
 COMFFFN   FFN      SPACE  4,8                                                             COMFFFN        3     A     
 COMFFFN  **        FFN -  FIND FILE NAME.                                                 COMFFFN        4     A     
 COMFFFN  *                                                                                COMFFFN        5     A     
 COMFFFN  *         MANUFACTURES OBJECT PROGRAM FILE NAMES FROM THE SOURCE PROGRAM         COMFFFN        6     A     
 COMFFFN  *         FILE NAME.                                                             COMFFFN        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFFFN 
  
 COMFFFN  *                                                                                COMFFFN        8     A     
 COMFFFN  *         ENTRY  (X6) = SOURCE-PROGRAM FILE NAME (0L FORMAT, 6 CHAR MAX)         COMFFFN        9     A     
 COMFFFN  *                                                                                COMFFFN       10     A     
 COMFFFN  *         EXIT   (X6) = OBJECT-PROGRAM FILE NAME (0L FORMAT).                    COMFFFN       11     A     
 COMFFFN  *                                                                                COMFFFN       12     A     
 COMFFFN  *         USES   A2  X1,X3  B7                                                   COMFFFN       13     A     
 COMFFFN                                                                                   COMFFFN       14     A     
 COMFFFN                                                                                   COMFFFN       15     A     
 COMFFFN   FFN      SUBR   =           ENTRY/EXIT...                                       COMFFFN       16     A     
 COMFFFN            =X1    1                                                               COMFFFN       17     A     
 COMFFFN            SA2    =40404040404040404040B                                          COMFFFN       18     A     
 COMFFFN            IX1    X6-X1       LOCATE LOWEST BIT                                   COMFFFN       19     A     
 COMFFFN            BX3    -X1+X6                                                          COMFFFN       20     A     
 COMFFFN            SB7    60-CHAR+1                                                       COMFFFN       21     A     
 COMFFFN            BX1    X2*X3       40 WHERE CHARACTERS WERE                            COMFFFN       22     A     
 COMFFFN            SA2    FFNA                                                            COMFFFN       23     A     
 COMFFFN            LX3    X1,B7                                                           COMFFFN       24     A     
 COMFFFN            IX3    X1-X3                                                           COMFFFN       25     A     
 COMFFFN            IX1    X1+X3       77 WHERE CHARACTERS WERE                            COMFFFN       26     A     
 COMFFFN            BX2    -X1*X2                                                          COMFFFN       27     A     
 COMFFFN            IX6    X6+X2       MERGE TRAILING "FC" CHARACTERS                      COMFFFN       28     A     
 COMFFFN            AX1    CHAR        EXTEND MASK 1 CHAR MORE THAN NR OF ORIGINAL         COMFFFN       29     A     
 COMFFFN            BX6    X1*X6       DROP SUPERFLOUS "FC"                                COMFFFN       30     A     
 COMFFFN            EQ     EXIT.                                                           COMFFFN       31     A     
 COMFFFN                                                                                   COMFFFN       32     A     
 COMFFFN   FFNA     LIT    7L"FC""FC""FC""FC""FC""FC""FC"                                  COMFFFN       33     A     
 COMFFFN            ENDX                                                                   COMFFFN       34     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFFFN 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFFFN                     34        34
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFGFD 
  
 COMFGFD  *COMDECK  COMFGFD - GENERATE FILE DECLARATIONS.                                  COMFGFD        1     A     
 COMFGFD   COMFGFD  CTEXT              GENERATE FILE DECLARATIONS.                         COMFGFD        2     A     
 COMFGFD                                                                                   COMFGFD        3     A     
 COMFGFD  **               GFD HANDLES THE (V=FILE) TURPLE FOR QCG AND BRIDGE.             COMFGFD        4     A     
 COMFGFD  *                                                                                COMFGFD        5     A     
 COMFGFD  *         ENTRY  (B5) -> CURRENT TURPLE.                                         COMFGFD        6     A     
 COMFGFD                                                                                   COMFGFD        7     A     
 COMFGFD            SA1    "O$"SYM                                                         COMFGFD        8     A     
 COMFGFD            MX0    -"TP".BIASL                                                     COMFGFD        9     A     
 COMFGFD            =A2    B5+OR.1OP                                                       COMFGFD       10     A     
 COMFGFD            LX2    -"TP".BIASP                                                     COMFGFD       11     A     
 COMFGFD            BX4    -X0*X2      ISOLATE (X4) = SYMTAB *WB* INDEX                    COMFGFD       12     A     
 COMFGFD            =B7    X1-WB.W+WC.W                                                    COMFGFD       13     A     
 COMFGFD            SA3    X4+B7       FETCH SYMTAB *WC*                                   COMFGFD       14     A     
 COMFGFD            LX3    -WC.BFLP                                                        COMFGFD       15     A     
 COMFGFD            MX7    -WC.BFLL                                                        COMFGFD       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFGFD 
  
 COMFGFD            BX6    -X7*X3      ISOLATE FILE INDEX (OR BUFFER LENGTH)               COMFGFD       17     A     
 COMFGFD            LX3    WC.BFLP-WC.MRLP                                                 COMFGFD       18     A     
 COMFGFD            =A1    A3-WC.W+WB.W      *WB*                                          COMFGFD       19     A     
 COMFGFD            LX1    -WB.EQUP-1                                                      COMFGFD       20     A     
 COMFGFD            PL     X1,GFD4     IF NOT EQUIVALENCED FILE                            COMFGFD       21     A     
 COMFGFD                                                                                   COMFGFD       22     A     
 COMFGFD  *         EQUIVALENCED FILE.                                                     COMFGFD       23     A     
 COMFGFD                                                                                   COMFGFD       24     A     
 COMFGFD            BX1    X4                                                              COMFGFD       25     A     
 COMFGFD            BX4    X6                                                              COMFGFD       26     A     
 COMFGFD            ISSUE  OC$FVEC,X1                                                      COMFGFD       27     A     
 COMFGFD            ISSUE  OC$FVEC,X4                                                      COMFGFD       28     A     
 COMFGFD            EQ     GFD6                                                            COMFGFD       29     A     
 COMFGFD                                                                                   COMFGFD       30     A     
 COMFGFD  *         NON-EQUIVALENCED FILE.                                                 COMFGFD       31     A     
 COMFGFD                                                                                   COMFGFD       32     A     
 COMFGFD   GFD4     LX6    PB.BIASP-PB.TAGP                                                COMFGFD       33          I
          -F1037F5
 COMFGFD            BX1    X4+X6       MERGE ORDINAL AND BUFFER LENGTH                     COMFGFD       34          I
          -F1037F5
 COMFGFD            BX4    X3                                                              COMFGFD       35          I
          -F1037F5
 COMFGFD            ISSUE  OC$FVEC,X1                                                      COMFGFD       36          I
          -F1037F5
 COMFGFD            SX1    X4                                                              COMFGFD       37          I
          -F1037F5
 COMFGFD            ERRNZ  WC.MRLL-18                                                      COMFGFD       38          I
          -F1037F5
 COMFGFD   GFD4     SA1    =XCO.STAT                                                       F1037F5       46     A     
 COMFGFD            PL     X1,GFD5     IF NOT *STATIC* MODE                                F1037F5       47     A     
 COMFGFD            SA1    =XN.BUF     X1 = BUFL,MRL,FIT SPACE SO FAR                      F1037F5       48     A     
 COMFGFD            IX1    X1+X6       ADD BUFL TO TOTAL                                   F1037F5       49     A     
 COMFGFD            SX7    X3          X7 = MRL (CHARS)                                    F1037F5       50     A     
 COMFGFD            ERRNZ  WC.MRLL-18                                                      F1037F5       51     A     
 COMFGFD            CW     X2,X7       X2 = MRL (WORDS)                                    F1037F5       52     A     
 COMFGFD   .RM      IFEQ   CP#RM,0                                                         F1037F5       53     A     
 COMFGFD            SX2    X2+L.FIT6+L.FET6  X2 = MRL + FIT                                F1037F5       54     A     
 COMFGFD   .RM      ELSE                                                                   F1037F5       55     A     
 COMFGFD            SX2    X2+L.FIT7+L.FET7  X2 = MRL + FIT                                F1037F5       56     A     
 COMFGFD   .RM      ENDIF                                                                  F1037F5       57     A     
 COMFGFD            IX7    X1+X2       X7 = BUFL + MRL + FIT + C(N.BUF)                    F1037F5       58     A     
 COMFGFD            SA7    N.BUF       UPDATE THE CELL                                     F1037F5       59     A     
 COMFGFD                                                                                   F1037F5       60     A     
 COMFGFD   GFD5     LX6    PB.BIASP-PB.TAGP                                                F1037F5       61     A     
 COMFGFD            BX1    X4+X6       MERGE ORDINAL AND BUFL                              F1037F5       62     A     
 COMFGFD            SX4    X3                                                              F1037F5       63     A     
 COMFGFD            ERRNZ  WC.MRLL-18                                                      F1037F5       64     A     
 COMFGFD            ISSUE  OC$FVEC,X1                                                      F1037F5       65     A     
 COMFGFD            BX1    X4                                                              F1037F5       66     A     
 COMFGFD            LX1    PB.BIASP-PB.TAGP                                                COMFGFD       39     A     
 COMFGFD            ISSUE  OC$FVEC,X1                                                      COMFGFD       40     A     
 COMFGFD                                                                                   COMFGFD       41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFGFD 
  
 COMFGFD   GFD6     BSS    0                                                               COMFGFD       42     A     
 COMFGFD                                                                                   COMFGFD       43     A     
 COMFGFD            ENDX                                                                   COMFGFD       44     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFGFD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFGFD                     44        38
          F1037F5                     21        21
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFGOI 
  
 COMFGOI  *COMDECK  COMFGOI                  GLOBAL OVERLAY INITIALIZATION                 COMFGOI        1     A     
 COMFGOI            CTEXT  COMFGOI - GLOBAL OVERLAY INITIALIZATION                         COMFGOI        2     A     
 COMFGOI   COMFGOI  SPACE  4                                                               COMFGOI        3     A     
 COMFGOI            IF     -DEF,QUAL$,1                                                    COMFGOI        4     A     
 COMFGOI            QUAL   COMFGOI                                                         COMFGOI        5     A     
 COMFGOI   COMFGOI  SPACE  4                                                               COMFGOI        6     A     
 COMFGOI  **        GOI -  GLOBAL OVERLAY INITIALIZATION.                                  COMFGOI        7     A     
 COMFGOI  *                                                                                COMFGOI        8     A     
 COMFGOI  *         OVERLAY INITIALIZATION COMMON TO BOTH QCG OVERLAYS.                    COMFGOI        9     A     
 COMFGOI  *                                                                                COMFGOI       10     A     
 COMFGOI  *         CALLS  ROR (COMFROR),                                                  COMFGOI       11     A     
 COMFGOI  *                FEI (COMFFEI).                                                  COMFGOI       12     A     
 COMFGOI                                                                                   COMFGOI       13     A     
 COMFGOI                                                                                   COMFGOI       14     A     
 COMFGOI   GOI      SUBR               ENTRY/EXIT...                                       COMFGOI       15     A     
 COMFGOI            SA1    CP.AFLS     CURRENT FL                                          COMFGOI       16     A     
 COMFGOI            BX6    X1                                                              COMFGOI       17     A     
 COMFGOI            SA6    INT.FL      SAVE INITIAL FL                                     COMFGOI       18     A     
 COMFGOI            SB3    FIN.OL      LWA+1 OF (1,0) OVERLAY (LWA OF LIST)                COMFGOI       19     A     
 COMFGOI            SA2    CO.LOO      MASTER OBJECT LIST FLAG                             COMFGOI       20     A     
 COMFGOI            MI     X2,GOI1     IF OBJECT LIST ON                                   COMFGOI       21     A     
 COMFGOI            SB3    FIN.MAP     TRASH LIST CODE (LWA OF MAP)                        COMFGOI       22     A     
 COMFGOI            SA2    CO.LOA                                                          COMFGOI       23     A     
 COMFGOI            SA4    CO.LOM                                                          COMFGOI       24     A     
 COMFGOI            SA5    CO.LOR                                                          COMFGOI       25     A     
 COMFGOI            BX2    X2+X4                                                           COMFGOI       26     A     
 COMFGOI            BX2    X2+X5                                                           COMFGOI       27     A     
 COMFGOI            MI     X2,GOI1     IF MAP ON                                           COMFGOI       28     A     
 COMFGOI            SB3    FIN         TRASH LIST AND MAP CODE (FWA OF MAP)                COMFGOI       29     A     
 COMFGOI   GOI1     SA2    CO.LOR      MASTER REFERENCE MAP FLAG                           COMFGOI       30     A     
 COMFGOI            PL     X2,GOI2     IF SHORT OR NO REF MAP                              COMFGOI       31     A     
 COMFGOI            SETFIL FILE=F.REF,MODE=INIT,FWA=B3                                     COMFGOI       32     A     
 COMFGOI   GOI2     SA1    FV.LGO                                                          COMFGOI       33     A     
 COMFGOI            SA2    CO.LOO                                                          COMFGOI       34     A     
 COMFGOI            BX1    X1+X2                                                           COMFGOI       35     A     
 COMFGOI            SX6    B3          LWA+1 OF REF BUFFER                                 COMFGOI       36     A     
 COMFGOI            ZR     X1,GOI3     IF BINARY SUPRESSED AND NO OBJECT LISTING           COMFGOI       37     A     
 COMFGOI            SETFIL FILE=F.PB,MODE=INIT,FWA=B3                                      COMFGOI       38     A     
 COMFGOI            SX6    B3          LWA+1 OF PB BUFFER                                  COMFGOI       39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFGOI 
  
 COMFGOI            SA2    FV.LGO                                                          COMFGOI       40     A     
 COMFGOI            ZR     X2,GOI3     IF BINARY SUPRESSED                                 COMFGOI       41     A     
 COMFGOI            SETFIL FILE=F.LGO,MODE=INIT,FWA=B3                                     COMFGOI       42          I
          -FC5A171A 
 COMFGOI            SX6    B2          FWA OF LGO                                          COMFGOI       43          I
          -FC5A171A 
 COMFGOI            SB5    B3                                                              FC5A171A       6     A     
 COMFGOI            SETFIL FILE=F.LGO,MODE=INIT,FWA==XOSTACK                               FC5A171A       7     A     
 COMFGOI            SX6    B5                                                              FC5A171A       8     A     
 COMFGOI   GOI3     SA6    O.TABS      FWA OF TABLES                                       COMFGOI       44     A     
 COMFGOI            SX7    X6+MIN.TABS+NOM.INC                                             FC5A119        5     A     
 COMFGOI            SA7    NOM.FL                                                          FC5A119        6     A     
 COMFGOI            SA2    CP.NFLS     CM FIELD LENGTH                                     COMFGOI       45     A     
 COMFGOI            IX6    X2-X6                                                           COMFGOI       46     A     
 COMFGOI            SX4    X6-MIN.TABS                                                     COMFGOI       47     A     
 COMFGOI            PL     X4,GOI4     IF .GE. 1K OF TABLE SPACE                           COMFGOI       48     A     
 COMFGOI            SX3    MIN.TABS                                                        COMFGOI       49     A     
 COMFGOI            IX1    X2-X4                                                           COMFGOI       50     A     
 COMFGOI            SA2    MAX.FL                                                          COMFGOI       51     A     
 COMFGOI            AX2    30                                                              COMFGOI       52     A     
 COMFGOI            IX2    X2-X1                                                           COMFGOI       53     A     
 COMFGOI            MI     X2,MEMERR   IF NOT ENOUGH MEMORY                                COMFGOI       54     A     
 COMFGOI            SX7    X1+10                                                           COMFGOI       55          I
          -FC5A132
 COMFGOI            LX7    30                                                              COMFGOI       56          I
          -FC5A132
 COMFGOI            SX7    X1+10+77B                                                       FC5A132       20     A     
 COMFGOI            AX7    6                                                               FC5A132       21     A     
 COMFGOI            LX7    30+6        ROUND UP TO NEXT 100, SHIFT INTO PLACE              FC5A132       22     A     
 COMFGOI            SA7    L.TABS                                                          COMFGOI       57     A     
 COMFGOI            MEMORY SCM,L.TABS,RCL                                                  COMFGOI       58     A     
 COMFGOI            SA1    L.TABS      NEW FL                                              COMFGOI       59     A     
 COMFGOI            AX1    30                                                              COMFGOI       60     A     
 COMFGOI            SA2    CO.OPT                                                          COMFGOI       61          I
          -FC5A119
 COMFGOI            SA2    X2+NOM.FLS                                                      COMFGOI       62          I
          -FC5A119
 COMFGOI            BX7    X2                                                              COMFGOI       63          I
          -FC5A119
 COMFGOI            SA7    NOM.FL                                                          COMFGOI       64          I
          -FC5A119
 COMFGOI            SX7    X1-10       LEAVE 10-WORD SAFETY ZONE                           COMFGOI       65     A     
 COMFGOI            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL                     COMFGOI       66     A     
 COMFGOI            BX7    X1                                                              COMFGOI       67     A     
 COMFGOI            SA7    CP.AFLS     UPDATE TO CURRENT FL                                COMFGOI       68     A     
 COMFGOI            SA7    CP.MXFL     SET MAX FL                                          COMFGOI       69     A     
 COMFGOI            BX6    X3          SETUP X6                                            COMFGOI       70     A     
 COMFGOI                                                                                   COMFGOI       71     A     
 COMFGOI   GOI4     SA6    L.TABS                                                          COMFGOI       72     A     
 COMFGOI            AX6    FLSLOP                                                          COMFGOI       73     A     
 COMFGOI            SX6    X6+FLSLUP                                                       COMFGOI       74     A     
 COMFGOI            SA6    THRESH      GIVE ALLOC ENOUGH ELBOW ROOM                        COMFGOI       75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFGOI 
  
 COMFGOI            SA4    FV.LGO                                                          COMFGOI       76     A     
 COMFGOI            SA2    CO.LOO                                                          COMFGOI       77     A     
 COMFGOI            BX4    X2+X4                                                           COMFGOI       78     A     
 COMFGOI            NZ     X4,GOI5     IF PREBINARY OR OBJECT LISTING REQUESTED            COMFGOI       79     A     
 COMFGOI            SX7    0220B       *JP B2*                                             COMFGOI       80     A     
 COMFGOI            LX7    48                                                              COMFGOI       81     A     
 COMFGOI            SA7    WIN         WIRE OFF PREBINARY                                  COMFGOI       82     A     
 COMFGOI            SA7    =XWTE       WIRE OFF *DATA* PREBINARY                           FC5A108        4     A     
 COMFGOI                                                                                   COMFGOI       83     A     
 COMFGOI   GOI5     RJ     FEI         FRONT END INITIALIZATION                            COMFGOI       84     A     
 COMFGOI            SB2    F.SKEL                                                          COMFGOI       85     A     
 COMFGOI            RJ     ROR         RESET OPCODE OF ROUNDABLES                          COMFGOI       86     A     
 COMFGOI                                                                                   COMFGOI       87     A     
 COMFGOI            EQ     EXIT.                                                           COMFGOI       88     A     
 COMFGOI   COMFGOI  SPACE  4,4                                                             COMFGOI       89     A     
 COMFGOI            IF     -DEF,QUAL$,2                                                    COMFGOI       90     A     
 COMFGOI            QUAL   *                                                               COMFGOI       91     A     
 COMFGOI   GOI      EQU    /COMFGOI/GOI                                                    COMFGOI       92     A     
 COMFGOI                                                                                   COMFGOI       93     A     
 COMFGOI   COMFGOI  ENDX                                                                   COMFGOI       94     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFGOI 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFGOI                     94        86
          FC5A108                      1         1
          FC5A119                      2         2
          FC5A132                      3         3
          FC5A171A                     3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFICP 
  
 COMFICP  *COMDECK COMFICP - ISSUE CP. AND GPL. TABLES.                                    COMFICP        1     A     
 COMFICP   ICP      CTEXT  COMFICP - ISSUE CP. AND GPL. TABLES.                            COMFICP        2     A     
 COMFICP   ICP      SUBR                                                                   COMFICP        3     A     
 COMFICP            SA1    =XN.EPL                                                         COMFICP        4     A     
 COMFICP            ZR     X1,EXIT.    IF NO CPL. CALLS NEEDED                             COMFICP        5     A     
 COMFICP            ISUSE  TEM         USE TEM.                                            COMFICP        6     A     
 COMFICP            SA2    =XS=GPL                                                         COMFICP        7     A     
 COMFICP            SA3    =X"L$"FPI                                                       COMFICP        8     A     
 COMFICP            LX3    PB.BIASP-PB.TAGP                                                COMFICP        9     A     
 COMFICP            BX1    X2+X3                                                           COMFICP       10     A     
 COMFICP            ISSUE  I.BSS,X1    GPL. BSS "L$"FPI                                    COMFICP       11     A     
 COMFICP            SA1    =XS=CP                                                          COMFICP       12     A     
 COMFICP            ISSUE  I.BSS,X1          CP. BSS 0                                     COMFICP       13     A     
 COMFICP                                                                                   COMFICP       14     A     
 COMFICP  *         ISSUE CPL WORD FOR EACH FORMAL PARAMETER.                              COMFICP       15     A     
 COMFICP                                                                                   COMFICP       16     A     
 COMFICP            SA1    =X"O$"ENTP                                                      COMFICP       17     A     
 COMFICP            SB5    -1                                                              COMFICP       18     A     
 COMFICP            SA0    X1                                                              COMFICP       19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFICP 
  
 COMFICP            EQ     ICP20                                                           COMFICP       20     A     
 COMFICP                                                                                   COMFICP       21     A     
 COMFICP  *         ISSUE ZERO TERMINATOR FOR THIS LIST.                                   COMFICP       22     A     
 COMFICP                                                                                   COMFICP       23     A     
 COMFICP   ICP10    ISSUE  I.ZERO                                                          COMFICP       24     A     
 COMFICP            SA1    "O$"ENTP                                                        COMFICP       25     A     
 COMFICP            SA0    X1                                                              COMFICP       26     A     
 COMFICP                                                                                   COMFICP       27     A     
 COMFICP   ICP20    SB5    B5+2        SKIP HEADER                                         COMFICP       28     A     
 COMFICP            SA1    =X"L$"ENTP                                                      COMFICP       29     A     
 COMFICP            SB7    X1                                                              COMFICP       30     A     
 COMFICP            SB7    B5-B7                                                           COMFICP       31     A     
 COMFICP            PL     B7,EXIT.    IF END OF ENTP                                      COMFICP       32     A     
 COMFICP            SA4    B5+A0                                                           COMFICP       33     A     
 COMFICP            S"BT"  60                                                              COMFICP       34     A     
 COMFICP                                                                                   COMFICP       35     A     
 COMFICP   ICP30    NZ     "BT",ICP40  IF THIS WORD NOT EXHAUSTED                          COMFICP       36     A     
 COMFICP            S"BT"  60                                                              COMFICP       37     A     
 COMFICP            SB5    B5+B1                                                           COMFICP       38     A     
 COMFICP            SA4    A0+B5                                                           COMFICP       39     A     
 COMFICP                                                                                   COMFICP       40     A     
 COMFICP   ICP40    S"BT"   "BT"-15                                                        COMFICP       41     A     
 COMFICP            MX0    -EF.ORDL                                                        COMFICP       42     A     
 COMFICP            AX3    "BT",X4                                                         COMFICP       43     A     
 COMFICP            BX6    -X0*X3                                                          COMFICP       44     A     
 COMFICP            ZR     X6,ICP10    IF END OF LIST                                      COMFICP       45     A     
 COMFICP            ISSUE  I.CPL,X6                                                        COMFICP       46     A     
 COMFICP            SA1    "O$"ENTP                                                        COMFICP       47     A     
 COMFICP            SA0    X1                                                              COMFICP       48     A     
 COMFICP            EQ     ICP30                                                           COMFICP       49     A     
 COMFICP   COMFICP  ENDX                                                                   COMFICP       50     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFICP 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFICP                     50        50
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFISA 
  
 COMFISA  *COMDECK  COMFISA - ISSUE SAVE A0 OR RJ CPL. .                                   COMFISA        1     A     
 COMFISA   ISA      CTEXT  COMFISA - ISSUE SAVE A0 OR RJ CPL. .                            COMFISA        2     A     
 COMFISA  **        ISA - ISSUE SAVE A0 CODE OR RJ CPL.                                    COMFISA        3     A     
 COMFISA  *                                                                                COMFISA        4     A     
 COMFISA  *         ENTRY  (X4) = SYMTAB ORDINAL OF ENTRY OR HEADER                        COMFISA        5     A     
 COMFISA                                                                                   COMFISA        6     A     
 COMFISA   ISA      SUBR   =                                                               COMFISA        7     A     
 COMFISA            SA2    =XCO.DBID                                                       COMFISA        8     A     
 COMFISA            ZR     X2,ISA05    IF DB=ID NOT SELECTED                               COMFISA        9     A     
 COMFISA            ISSUE  7461B       SX6 A1                                              COMFISA       10     A     
 COMFISA            SA1    =XS=SA1                                                         COMFISA       11     A     
 COMFISA            ISSUE  5160B,X1    SA6 SAVEA1.                                         COMFISA       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFISA 
  
 COMFISA                                                                                   COMFISA       13     A     
 COMFISA   ISA05    SA2    =XN.EPL                                                         COMFISA       14     A     
 COMFISA            NZ     X2,ISA20    IF CPL. CALL NEEDED                                 COMFISA       15     A     
 COMFISA            SA1    =XN.FP                                                          COMFISA       16          I
          -FC50249
 COMFISA                                                                                   FC50249        7     A     
 COMFISA   ISA15    SA1    =XN.FP                                                          FC50249        8     A     
 COMFISA            NZ     X1,ISA17    IF FP/S                                             COMFISA       17     A     
 COMFISA                                                                                   COMFISA       18          I
          -FC50249
 COMFISA   ISA15    SA2    MOD                                                             COMFISA       19          I
          -FC50249
 COMFISA            SA2    MOD                                                             FC50249        9     A     
 COMFISA            MX0    -MO.CLIFL                                                       COMFISA       20     A     
 COMFISA            LX2    -MO.CLIFP                                                       COMFISA       21     A     
 COMFISA            BX2    -X0*X2                                                          COMFISA       22     A     
 COMFISA            ZR     X2,EXIT.    IF NOT CHARACTER FUNCTION                           COMFISA       23     A     
 COMFISA                                                                                   COMFISA       24     A     
 COMFISA   ISA17    ISSUE  7460B       SX6 A0                                              COMFISA       25     A     
 COMFISA            ISSUE  5401B       SA0 A1                                              COMFISA       26     A     
 COMFISA            SA1    =XS=TA0                                                         COMFISA       27     A     
 COMFISA            ISSUE  5160B,X1          SA6 TEMPA0.                                   COMFISA       28     A     
 COMFISA            SA2    =XCO.DBID                                                       FC5A436        5     A     
 COMFISA            ZR     X2,EXIT.    RETURN IF DEBUG NOT ON                              FC5A436        6     A     
 COMFISA            ISSUE  7460B       SX6    A0                                           FC5A436        7     A     
 COMFISA            SA1    =XS=SA0                                                         FC5A436        8     A     
 COMFISA            ISSUE  5160B,X1    SA6    SAVEA0                                       FC5A436        9     A     
 COMFISA            EQ     EXIT.                                                           COMFISA       29     A     
 COMFISA                                                                                   COMFISA       30     A     
 COMFISA   ISA20    SA2    =X"O$"SYM                                                       COMFISA       31     A     
 COMFISA            LX5    B1,X4                                                           COMFISA       32     A     
 COMFISA            IX6    X4+X5                                                           COMFISA       33     A     
 COMFISA            =B7    X2+WB.W                                                         COMFISA       34     A     
 COMFISA            SA3    B7+X6                                                           COMFISA       35     A     
 COMFISA            MX0    -WB.PNTL                                                        COMFISA       36     A     
 COMFISA            LX3    -WB.PNTP                                                        COMFISA       37     A     
 COMFISA            BX6    -X0*X3                                                          COMFISA       38     A     
 COMFISA            SA4    =X"O$"ENTP                                                      COMFISA       39     A     
 COMFISA            ZR     X6,ISA15    IF NO FPS THIS ENTRY                                COMFISA       40     A     
 COMFISA            IX4    X4+X6                                                           COMFISA       41     A     
 COMFISA            SA2    =XMOD                                                           COMFISA       42     A     
 COMFISA            MX0    -MO.CLIFL                                                       COMFISA       43     A     
 COMFISA            LX2    -MO.CLIFP                                                       COMFISA       44     A     
 COMFISA            BX2    -X0*X2                                                          COMFISA       45     A     
 COMFISA            ZR     X2,ISA30    IF NOT CHAR FUNCTION                                COMFISA       46     A     
 COMFISA                                                                                   COMFISA       47     A     
 COMFISA            ISSUE  1061B       BX6 X1                                              COMFISA       48     A     
 COMFISA            =X1    1                                                               COMFISA       49     A     
 COMFISA            LX1    PB.BIASP-PB.TAGP                                                COMFISA       50     A     
 COMFISA            ISSUE  5011B,X1     SA1 A1+1                                           COMFISA       51     A     
 COMFISA            SA1    =XS=GPL                                                         COMFISA       52     A     
 COMFISA            ISSUE  5160B,X1     SA6 GPL.                                           COMFISA       53     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFISA 
  
 COMFISA                                                                                   COMFISA       54     A     
 COMFISA   ISA30    SA1    X4-1                                                            COMFISA       55     A     
 COMFISA            MX6    -EH.BIASL                                                       COMFISA       56     A     
 COMFISA            LX1    -EH.BIASP                                                       COMFISA       57     A     
 COMFISA            BX3    -X6*X1                                                          COMFISA       58     A     
 COMFISA            SA1    =XS=CP                                                          COMFISA       59     A     
 COMFISA            LX3    PB.BIASP-PB.TAGP                                                COMFISA       60     A     
 COMFISA            BX4    X1+X3                                                           COMFISA       61     A     
 COMFISA            ISSUE  7060B       SX6 A0+                                             COMFISA       62     A     
 COMFISA            SA1    =XS=GPL                                                         COMFISA       63     A     
 COMFISA            ISSUE  5100B,X1          SA0 GPL.                                      COMFISA       64     A     
 COMFISA            ISSUE  5130B,X4    SA3 CP.+BIAS[ENTP]                                  COMFISA       65     A     
 COMFISA            SA1    =XS=TA0                                                         COMFISA       66     A     
 COMFISA            ISSUE  5160B,X1          SA6 TEMPA0.                                   COMFISA       67     A     
 COMFISA            SA1    =XS=CPL                                                         COMFISA       68     A     
 COMFISA            ISSUE  I.RJ3,X1          RJ CPL.                                       COMFISA       69     A     
 COMFISA            SA2    =XCO.DBID                                                       FC5A436       10     A     
 COMFISA            ZR     X2,ISA35    IF DEBUG NOT ON                                     FC5A436       11     A     
 COMFISA            ISSUE  7460B       SX6    A0                                           FC5A436       12     A     
 COMFISA            SA1    =XS=SA0                                                         FC5A436       13     A     
 COMFISA            ISSUE  5160B,X1    SA6    SAVEA0                                       FC5A436       14     A     
 COMFISA   ISA35    EQU    *                                                               FC5A436       15     A     
 COMFISA            MX6    1                                                               F2950F5A       5     A     
 COMFISA            SA6    =XENTRJ     FLAG RJ ISSUED                                      F2950F5A       6     A     
 COMFISA            EQ     EXIT.                                                           COMFISA       70     A     
 COMFISA   COMFISA  ENDX                                                                   COMFISA       71     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFISA 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFISA                     71        68
          F2950F5A                     2         2
          FC50249                      3         3
          FC5A436                     11        11
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFITS 
  
 COMFITS  *COMDECK  COMFITS - ISSUE TEMP STORAGE.                                          COMFITS        1     A     
 COMFITS   ITS      CTEXT  COMFITS - ISSUE TEMP STORAGE.                                   COMFITS        2     A     
 COMFITS                                                                                   COMFITS        3     A     
 COMFITS                                                                                   COMFITS        4     A     
 COMFITS            IF     -DEF,QUAL$,1                                                    COMFITS        5     A     
 COMFITS            QUAL   COMFITS                                                         COMFITS        6     A     
 COMFITS            BASE   *                                                               COMFITS        7     A     
 COMFITS   ITS      SPACE  4,10                                                            COMFITS        8     A     
 COMFITS  **        ITS - ISSUE TEMP STORAGE.                                              COMFITS        9     A     
 COMFITS                                                                                   COMFITS       10     A     
 COMFITS                                                                                   COMFITS       11     A     
 COMFITS   ITS      SUBR   0           ENTRY/EXIT...                                       COMFITS       12     A     
 COMFITS            ISUSE$ TEM         USE TEM.                                            COMFITS       13     A     
 COMFITS                                                                                   COMFITS       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFITS 
  
 COMFITS            SB5    ITSA                                                            COMFITS       15     A     
 COMFITS   ITS2     SA1    B5                                                              COMFITS       16     A     
 COMFITS            ZR     X1,ITS4     IF NO MORE TEMPS TO ISSUE                           COMFITS       17     A     
 COMFITS            SA2    X1                                                              COMFITS       18     A     
 COMFITS            SB5    B5+B1                                                           COMFITS       19     A     
 COMFITS            AX1    18                                                              COMFITS       20     A     
 COMFITS            SA3    X1          FETCH SYMORD OF TEMP NAME                           COMFITS       21     A     
 COMFITS            SX6    OC$BSS                                                          COMFITS       22     A     
 COMFITS            =X3    X3+K.SYM*K=PFX                                                  COMFITS       23     A     
 COMFITS            LX3    PB.ORDP                                                         COMFITS       24     A     
 COMFITS            LX2    PB.BIASP                                                        COMFITS       25     A     
 COMFITS            LX6    PB.GHIJP                                                        COMFITS       26     A     
 COMFITS            BX1    X3+X2                                                           COMFITS       27     A     
 COMFITS            IX7    X6+X1                                                           COMFITS       28     A     
 COMFITS            WCODE  X7,ITS2     ISSUE  * TAG  BSS  (N.TAG) *                        COMFITS       29     A     
 COMFITS                                                                                   COMFITS       30     A     
 COMFITS   ITS4     ISUSE$ BUF         USE BUF.                                            COMFITS       31     A     
 COMFITS            SX7    OC$EQUN                                                         COMFITS       32     A     
 COMFITS            LX7    PB.GHIJP                                                        COMFITS       33     A     
 COMFITS            WCODE  X7,EXIT.                                                        COMFITS       34     A     
 COMFITS                                                                                   COMFITS       35     A     
 COMFITS                                                                                   COMFITS       36     A     
 COMFITS   ITSA     BSS    0           TABLE OF TEMPS TO ISSUE                             COMFITS       37     A     
 COMFITS            VFD    24/0,18/=XS=ST,18/=XN.STMAX                                     COMFITS       38     A     
 COMFITS            VFD    24/0,18/=XS=CT,18/=XN.CTMAX                                     COMFITS       39     A     
 COMFITS            VFD    24/0,18/=XS=IT,18/=XN$IT                                        COMFITS       40     A     
 COMFITS            VFD    24/0,18/=XS=OT,18/=XN$OT                                        COMFITS       41     A     
 COMFITS            VFD    24/0,18/=XS=VD,18/=XN.VD                                        COMFITS       42     A     
 COMFITS            VFD    24/0,18/=XS=LC,18/=XN$LC                                        COMFITS       43     A     
 COMFITS            CON    0                                                               COMFITS       44     A     
 COMFITS   COMFITS  SPACE  4,10                                                            COMFITS       45     A     
 COMFITS   QUAL$    IF     -DEF,QUAL$                                                      COMFITS       46     A     
 COMFITS            QUAL   *                                                               COMFITS       47     A     
 COMFITS   ITS      EQU    /COMFITS/ITS                                                    COMFITS       48     A     
 COMFITS   QUAL$    ENDIF                                                                  COMFITS       49     A     
 COMFITS                                                                                   COMFITS       50     A     
 COMFITS                                                                                   COMFITS       51     A     
 COMFITS   COMFITS  ENDX                                                                   COMFITS       52     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFITS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFITS                     52        52
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMAV 
  
 COMFMAV  *COMDECK  COMFMAV - MARK VARDIM APPROPRIATE FOR THIS ENTRY POINT.                COMFMAV        1     A     
 COMFMAV   MAV      CTEXT  COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.                COMFMAV        2     A     
 COMFMAV  **        MAV - MARK APPROPRIATE VARDIM.                                         COMFMAV        3     A     
 COMFMAV  *                                                                                COMFMAV        4     A     
 COMFMAV  *         MAV SETS VD.ALO BIT IN VARDIM INFORMATION TABLE (T.VDI OR O$VD         COMFMAV        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMAV 
  
 COMFMAV  *         MAV SETS VD.ALO BIT IN VARDIM INFORMATION TABLE                        COMFMAV        6     A     
 COMFMAV  *         (T. OR O$ VDI) FOR ALL VARDIM CELLS CONTAINING A VALUE DEFINED         COMFMAV        7     A     
 COMFMAV  *         FOR THIS ENTRY.  THIS INCLUDES ALL VARIABLE DIMENSION                  COMFMAV        8     A     
 COMFMAV  *         CODE FOR ARRAYS IN THE FP LIST OF THIS ENTRY AND                       COMFMAV        9     A     
 COMFMAV  *         CHARACTER LENGTH TEMPS FOR PASSED-LENGTH ITEMS                         COMFMAV       10     A     
 COMFMAV  *         APPEARING ON THIS LIST.                                                COMFMAV       11     A     
 COMFMAV  *                                                                                COMFMAV       12     A     
 COMFMAV  *         ENTRY  (X1) = SYMTAB ORDINAL OF ENTRY POINT (OR HEADER)                COMFMAV       13     A     
 COMFMAV                                                                                   COMFMAV       14     A     
 COMFMAV   MAV      SUBR                                                                   COMFMAV       15     A     
 COMFMAV                                                                                   COMFMAV       16     A     
 COMFMAV  *         CLEAR VD.ALO OF ALL VARDIM CELLS.                                      COMFMAV       17     A     
 COMFMAV                                                                                   COMFMAV       18     A     
 COMFMAV            SA2    =X"O$"VDI                                                       COMFMAV       19     A     
 COMFMAV            SA3    =X"L$"VDI                                                       COMFMAV       20     A     
 COMFMAV            SB7    X3                                                              COMFMAV       21     A     
 COMFMAV            CLAS=  X0,VD,ALO                                                       COMFMAV       22     A     
 COMFMAV            SA4    X2                                                              COMFMAV       23     A     
 COMFMAV                                                                                   COMFMAV       24     A     
 COMFMAV   MAV10    BX6    -X0*X4                                                          COMFMAV       25     A     
 COMFMAV            SB7    B7-B1                                                           COMFMAV       26     A     
 COMFMAV            SA6    A4                                                              COMFMAV       27     A     
 COMFMAV            SA4    A4+B1                                                           COMFMAV       28     A     
 COMFMAV            NZ     B7,MAV10    IF VDI NOT EXHAUSTED                                COMFMAV       29     A     
 COMFMAV            SA2    "O$"SYM                                                         COMFMAV       30     A     
 COMFMAV            LX3    B1,X1                                                           COMFMAV       31     A     
 COMFMAV            IX4    X1+X3                                                           COMFMAV       32     A     
 COMFMAV            =B7    X2+WB.W                                                         COMFMAV       33     A     
 COMFMAV            SA2    B7+X4                                                           COMFMAV       34     A     
 COMFMAV            MX0    -WB.PNTL                                                        COMFMAV       35     A     
 COMFMAV            LX2    -WB.PNTP                                                        COMFMAV       36     A     
 COMFMAV            BX6    -X0*X2                                                          COMFMAV       37     A     
 COMFMAV            ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                               COMFMAV       38     A     
 COMFMAV            SA1    =X"O$"ENTP                                                      COMFMAV       39     A     
 COMFMAV            IX0    X1+X6                                                           COMFMAV       40     A     
 COMFMAV            SA2    X0          SKIP HEADER                                         COMFMAV       41     A     
 COMFMAV            S"BT"  60                                                              COMFMAV       42     A     
 COMFMAV                                                                                   COMFMAV       43     A     
 COMFMAV   MAV20    NZ     "BT",MAV30  IF THIS WORD NOT FINISHED                           COMFMAV       44     A     
 COMFMAV            S"BT"  60                                                              COMFMAV       45     A     
 COMFMAV            SA2    A2+1                                                            COMFMAV       46     A     
 COMFMAV                                                                                   COMFMAV       47     A     
 COMFMAV   MAV30    S"BT"  "BT"-15                                                         COMFMAV       48     A     
 COMFMAV            MX0    -EF.ORDL                                                        COMFMAV       49     A     
 COMFMAV            AX4    "BT",X2                                                         COMFMAV       50     A     
 COMFMAV            BX3    -X0*X4                                                          COMFMAV       51     A     
 COMFMAV            ZR     X3,EXIT.    IF LAST PARAMETER                                   COMFMAV       52     A     
 COMFMAV            LX4    B1,X3                                                           COMFMAV       53     A     
 COMFMAV            IX6    X3+X4                                                           COMFMAV       54     A     
 COMFMAV            SA5    B7+X6       WB(ENTP(I))                                         COMFMAV       55     A     
 COMFMAV            HX5    WB.ARY                                                          COMFMAV       56     A     
 COMFMAV            PL     X5,MAV90    IF NOT DIMENSIONED                                  COMFMAV       57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMAV 
  
 COMFMAV            MX3    -WB.PNTL                                                        COMFMAV       58     A     
 COMFMAV            LX5    1+WB.ARYP-WB.PNTP                                               COMFMAV       59     A     
 COMFMAV            BX3    -X3*X5                                                          COMFMAV       60     A     
 COMFMAV            SA1    =X"O$"DIM                                                       COMFMAV       61     A     
 COMFMAV            IX5    X1+X3                                                           COMFMAV       62     A     
 COMFMAV            SA1    X5                                                              COMFMAV       63     A     
 COMFMAV            HX1    DH.VD                                                           COMFMAV       64     A     
 COMFMAV            PL     X1,MAV90    IF NOT VARIABLE-DIMENSION                           COMFMAV       65     A     
 COMFMAV            LX1    DH.VDP-DH.VPP                                                   COMFMAV       66     A     
 COMFMAV            PL     X1,MAV40    IF NOT VARIABLE PRODUCT OF SPANS                    COMFMAV       67     A     
 COMFMAV            BX3    X1                                                              COMFMAV       68     A     
 COMFMAV            LX3    1+DH.VPP-DH.PSP                                                 COMFMAV       69     A     
 COMFMAV            RJ     MVD         MARK PRODUCT OF SPAN VD.                            COMFMAV       70     A     
 COMFMAV                                                                                   COMFMAV       71     A     
 COMFMAV   MAV40    LX1    1+DH.VPP-DH.DIMP                                                COMFMAV       72     A     
 COMFMAV            MX3    -DH.DIML                                                        COMFMAV       73     A     
 COMFMAV            BX3    -X3*X1      NUMBER OF DIMS                                      COMFMAV       74     A     
 COMFMAV            SB2    X3                                                              COMFMAV       75     A     
 COMFMAV                                                                                   COMFMAV       76     A     
 COMFMAV   MAV50    =A1    A1+1                                                            COMFMAV       77     A     
 COMFMAV            LX1    59-D1.SPANP-DI.TDP                                              COMFMAV       78          I
          -FC5A231
 COMFMAV            LX1    59-D1.SPANP-DM.TDP                                              FC5A231        8     A     
 COMFMAV            PL     X1,MAV60    IF NOT VARIABLE SPAN                                COMFMAV       79     A     
 COMFMAV            LX1    1+DI.TDP                                                        COMFMAV       80          I
          -FC5A231
 COMFMAV            LX1    1+DM.TDP                                                        FC5A231        9     A     
 COMFMAV            BX3    X1                                                              COMFMAV       81     A     
 COMFMAV            RJ     MVD         MARK SPAN VD.                                       COMFMAV       82     A     
 COMFMAV                                                                                   COMFMAV       83     A     
 COMFMAV   MAV60    =A1    A1+1                                                            COMFMAV       84     A     
 COMFMAV            LX1    59-D2.LBP-DI.TDP                                                COMFMAV       85          I
          -FC5A231
 COMFMAV            LX1    59-D2.LBP-DM.TDP                                                FC5A231       10     A     
 COMFMAV            PL     X1,MAV70    IF VARIABLE LOWER BOUND                             COMFMAV       86     A     
 COMFMAV            BX3    X1                                                              COMFMAV       87     A     
 COMFMAV            LX3    1+DI.TDP                                                        COMFMAV       88          I
          -FC5A231
 COMFMAV            LX3    1+DM.TDP                                                        FC5A231       11     A     
 COMFMAV            RJ     MVD         MARK LOWER BOUND VD.                                COMFMAV       89     A     
 COMFMAV                                                                                   COMFMAV       90     A     
 COMFMAV   MAV70    LX1    D2.LBP-D2.UBP                                                   COMFMAV       91     A     
 COMFMAV            PL     X1,MAV80    IF NOT VARIABLE UPPER BOUND                         COMFMAV       92     A     
 COMFMAV            BX3    X1                                                              COMFMAV       93     A     
 COMFMAV            LX3    1+DI.TDP                                                        COMFMAV       94          I
          -FC5A231
 COMFMAV            LX3    1+DM.TDP                                                        FC5A231       12     A     
 COMFMAV            RJ     MVD         MARK UPPER BOUND VD.                                COMFMAV       95     A     
 COMFMAV                                                                                   COMFMAV       96     A     
 COMFMAV   MAV80    =B2    B2-1                                                            COMFMAV       97     A     
 COMFMAV            NZ     B2,MAV50    IF MORE DIMENSIONS TO GO                            COMFMAV       98     A     
 COMFMAV                                                                                   COMFMAV       99     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMAV 
  
 COMFMAV   MAV90    =A3    A5+WC.W-WB.W                                                    COMFMAV      100     A     
 COMFMAV            HX3    WC.CTYP                                                         COMFMAV      101     A     
 COMFMAV            PL     X3,MAV20    IF NOT PASSED-LENGTH CHARACTER FORMAL               COMFMAV      102     A     
 COMFMAV            LX3    1+WC.CTYPP-WC.CLENP                                             COMFMAV      103     A     
 COMFMAV            RJ     MVD         MARK CLEN VD.                                       COMFMAV      104     A     
 COMFMAV            EQ     MAV20                                                           COMFMAV      105     A     
 COMFMAV   MVD      SPACE  4,8                                                             COMFMAV      106     A     
 COMFMAV  **        MVD - MARK VARDIM AS ALLOWED FOR THIS ENTRY.                           COMFMAV      107     A     
 COMFMAV  *                                                                                COMFMAV      108     A     
 COMFMAV  *         ENTRY - X3 CONTAINS VD. BIAS, RIGHT JUSTIFIED.                         COMFMAV      109     A     
 COMFMAV  *                                                                                COMFMAV      110     A     
 COMFMAV  *         PRESERVES - X1,X2,X5, A1,A2,A5, B4,B7                                  COMFMAV      111     A     
 COMFMAV                                                                                   COMFMAV      112     A     
 COMFMAV   MVD      SUBR                                                                   COMFMAV      113     A     
 COMFMAV            MX0    -WC.CLENL                                                       COMFMAV      114     A     
 COMFMAV            BX6    -X0*X3                                                          COMFMAV      115     A     
 COMFMAV            SA3    "O$"VDI                                                         COMFMAV      116     A     
 COMFMAV            CLAS=  X4,VD,ALO                                                       COMFMAV      117     A     
 COMFMAV            IX0    X3+X6                                                           COMFMAV      118     A     
 COMFMAV            SA3    X0                                                              COMFMAV      119     A     
 COMFMAV            BX6    X4+X3                                                           COMFMAV      120     A     
 COMFMAV            SA6    A3          ALO[VDI(ORD)] = 1                                   COMFMAV      121     A     
 COMFMAV            EQ     EXIT.                                                           COMFMAV      122     A     
 COMFMAV   COMFMAV  ENDX                                                                   COMFMAV      123     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFMAV 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFMAV                    123       118
          FC5A231                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMFP 
  
 COMFMFP  *COMDECK  COMFMFP - MARK FIRST PARAMETERS.                                       COMFMFP        1     A     
 COMFMFP   MFP      CTEXT  COMFMFP - MARK FIRST PARAMETERS.                                COMFMFP        2     A     
 COMFMFP                                                                                   COMFMFP        3     A     
 COMFMFP                                                                                   COMFMFP        4     A     
 COMFMFP            EXT    T.PAR,T.SCR,T=PAR,T=SCR                                         COMFMFP        5     A     
 COMFMFP   MFP      SPACE  4,10                                                            COMFMFP        6     A     
 COMFMFP  **        MFP - MARK FIRST PARAMETERS.                                           COMFMFP        7     A     
 COMFMFP  *                                                                                COMFMFP        8     A     
 COMFMFP  *         *MFP* EXISTS TO WARN THE COMMON CODE GENERATOR *BRIDGE* THAT           COMFMFP        9     A     
 COMFMFP  *         THE PARSED FILE CONTAINS TURPLE SEQUENCES FOR GENERATING               COMFMFP       10     A     
 COMFMFP  *         PARAMETERS FOR A PROCEDURE (SUBROUTINE, FUNCTION, I/O) REFER-          COMFMFP       11     A     
 COMFMFP  *         ENCE.  SINCE *BRIDGE* MUST SPECIAL-CASE THESE SEQUENCES,               COMFMFP       12     A     
 COMFMFP  *         *MFP* TURNS ON TWO TYPES OF WARNING BITS IN THE FIRST TURPLES          COMFMFP       13     A     
 COMFMFP  *         OF THE SEQUENCES.                                                      COMFMFP       14     A     
 COMFMFP  *                                                                                COMFMFP       15     A     
 COMFMFP  *         THE FIRST BIT TYPE, *PAP* (PRECEDES ACTUAL PARAMETER), IS              COMFMFP       16     A     
 COMFMFP  *         TURNED ON IN THE FIRST (SMALLEST PARSED FILE ORDINAL) TURPLE           COMFMFP       17     A     
 COMFMFP  *         THAT OCCURS FOR EACH PARAMETER.  THE SECOND, *PFP* (PRECEDES           COMFMFP       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMFP 
  
 COMFMFP  *         FIRST PARAMETER), IS TURNED ON IN THE FIRST TURPLE THAT OCCURS         COMFMFP       19     A     
 COMFMFP  *         FOR ANY PARAMETER OF ONE PROCEDURE REFERENCE.                          COMFMFP       20     A     
 COMFMFP  *                                                                                COMFMFP       21     A     
 COMFMFP  *         IN GENERAL, ONE *PFP* AND *N* *PAP* BITS ARE TURNED ON FOR A           COMFMFP       22     A     
 COMFMFP  *         PROCEDURE REFERENCE THAT HAS *N* PARAMETERS.  EXCEPTIONS...            COMFMFP       23     A     
 COMFMFP  *         1)  IF A PARAMETER IS CONSTANT, ITS *PAP* BIT REMAINS OFF.             COMFMFP       24     A     
 COMFMFP  *         2)  IF ALL PARAMETERS FOR A REFERENCE ARE CONSTANT, OR IF THE          COMFMFP       25     A     
 COMFMFP  *             REFERENCE HAS NO PARAMETERS, THE *PFP* BIT REMAINS OFF.            COMFMFP       26     A     
 COMFMFP  *                                                                                COMFMFP       27     A     
 COMFMFP  *         *MFP* IS CALLED WHEN ALL PARAMETER APLIST (ARGUMENT) TURPLES           COMFMFP       28     A     
 COMFMFP  *         FOR ONE PROCEDURE REFERENCE HAVE BEEN ENTERED IN T.PAR.                COMFMFP       29     A     
 COMFMFP  *         *MFP* CONSIDERS AN ARGUMENT TURPLE TO BE THE ROOT OF A TREE,           COMFMFP       30     A     
 COMFMFP  *         WALKS THE TREE TO FIND ITS FIRST TURPLE, AND TURNS ON THE              COMFMFP       31     A     
 COMFMFP  *         *PAP* BIT IN THAT TURPLE (UNLESS THE ROOT IS A TERMINAL NODE           COMFMFP       32     A     
 COMFMFP  *         - CONSTANT ARGUMENT).  EVERY ARGUMENT TREE FOR THE REFERENCE           COMFMFP       33     A     
 COMFMFP  *         IS SIMILARLY WALKED.  FINALLY, THE *PFP* BIT IS TURNED ON IN           COMFMFP       34     A     
 COMFMFP  *         THE FIRST *PAP-PED* TURPLE OF THE FOREST.                              COMFMFP       35     A     
 COMFMFP  *                                                                                COMFMFP       36     A     
 COMFMFP  *         *WOT*, THE TREE WALK SUBROUTINE, USES THE PREORDER TRAVERSAL           COMFMFP       37     A     
 COMFMFP  *         METHOD OF KNUTH VOL. 1, P. 316.  THE ALGORITHM IS AD HOC,              COMFMFP       38     A     
 COMFMFP  *         USING T.SCR TO STACK RIGHT BRANCH ORDINALS FOR DEFERRED                COMFMFP       39     A     
 COMFMFP  *         TRAVERSAL.                                                             COMFMFP       40     A     
 COMFMFP  *                                                                                COMFMFP       41     A     
 COMFMFP  *                                                                                COMFMFP       42     A     
 COMFMFP  *         ENTRY  ARGUMENT (APLIST) TURPLES TO BE CHECKED ARE THE                 COMFMFP       43     A     
 COMFMFP  *                       LAST CONTIGUOUS ENTRIES IN T.PAR.                        COMFMFP       44     A     
 COMFMFP  *                (T=PAR) = LWO+1 OF ARGUMENT TURPLES.                            COMFMFP       45     A     
 COMFMFP  *                (T=SCR) = CURRENT LENGTH OF T.SCR.                              COMFMFP       46     A     
 COMFMFP  *                                                                                COMFMFP       47     A     
 COMFMFP  *         EXIT   *PFP* AND *PAP* BITS SET IF ONE OR MORE NON-TERMINAL            COMFMFP       48     A     
 COMFMFP  *                ARGUMENT TURPLES WERE ENCOUNTERED.                              COMFMFP       49     A     
 COMFMFP  *                                                                                COMFMFP       50     A     
 COMFMFP  *         USES   ALL BUT   A0,A5    X5   B4,B5,B6.                               COMFMFP       51     A     
 COMFMFP  *                                                                                COMFMFP       52     A     
 COMFMFP  *         CALLS  WOT.                                                            COMFMFP       53     A     
 COMFMFP                                                                                   COMFMFP       54     A     
 COMFMFP                                                                                   COMFMFP       55     A     
 COMFMFP   MFP      SUBR   =           ENTRY/EXIT...                                       COMFMFP       56     A     
 COMFMFP            SA1    T=SCR                                                           COMFMFP       57     A     
 COMFMFP            BX6    X1                                                              COMFMFP       58     A     
 COMFMFP            SA6    MFP.SCR     SAVE INITIAL LENGTH OF T.SCR                        COMFMFP       59     A     
 COMFMFP            MX0    1                                                               COMFMFP       60     A     
 COMFMFP            BX7    -X0         LARGEST POSSIBLE POSITIVE INTEGER                   COMFMFP       61     A     
 COMFMFP            SA7    MFP.PFP     INIT ORDINAL OF 1ST TURPLE IN FOREST                COMFMFP       62     A     
 COMFMFP            SA1    T=PAR                                                           COMFMFP       63     A     
 COMFMFP            =X6    X1-Z=TURP+Z=TURP                                                COMFMFP       64     A     
 COMFMFP            SA6    MFP.APL     ORDINAL OF LAST ROOT                                COMFMFP       65     A     
 COMFMFP            SA2    T.PAR                                                           COMFMFP       66     A     
 COMFMFP            SB7    X2          (B7) = (T.PAR)                                      COMFMFP       67     A     
 COMFMFP                                                                                   COMFMFP       68     A     
 COMFMFP  *         FOREST WALK LOOP.                                                      COMFMFP       69     A     
 COMFMFP                                                                                   COMFMFP       70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMFP 
  
 COMFMFP   MFP2     SA1    MFP.APL     GET ORDINAL OF NEXT TREE ROOT                       COMFMFP       71     A     
 COMFMFP            SX6    X1-Z=TURP                                                       COMFMFP       72     A     
 COMFMFP            SA6    A1                                                              COMFMFP       73     A     
 COMFMFP            =B2    X6+OR.OPR                                                       COMFMFP       74     A     
 COMFMFP            SA1    B7+B2                                                           COMFMFP       75     A     
 COMFMFP            HX1    TH.SKEL                                                         COMFMFP       76     A     
 COMFMFP            AX1    TH.SKELP                                                        COMFMFP       77     A     
 COMFMFP            SB2    X1                                                              COMFMFP       78     A     
 COMFMFP            SB3    =XV=GAP                                                         COMFMFP       79     A     
 COMFMFP            EQ     B2,B3,MFP3  IF GENERAL AP TURPLE                                COMFMFP       80     A     
 COMFMFP            SB3    =XV=IAP                                                         COMFMFP       81     A     
 COMFMFP            EQ     B2,B3,MFP3  IF INTRINSIC AP TURPLE                              COMFMFP       82     A     
 COMFMFP            SB3    =XV=APIOD                                                       COMFMFP       83     A     
 COMFMFP            EQ     B2,B3,MFP3  IF I/O DATA AP TURPLE                               COMFMFP       84     A     
 COMFMFP            SB3    =XV=APIOC                                                       COMFMFP       85     A     
 COMFMFP            NE     B2,B3,MFP9  IF NOT I/O CONTROL AP TURPLE, END OF FOREST         COMFMFP       86     A     
 COMFMFP                                                                                   COMFMFP       87     A     
 COMFMFP  *         WALK 1ST OPERAND TREE.                                                 COMFMFP       88     A     
 COMFMFP                                                                                   COMFMFP       89     A     
 COMFMFP   MFP3     =A2    A1-OR.OPR+OR.1OP                                                COMFMFP       90     A     
 COMFMFP            =B2    A1-OR.OPR                                                       COMFMFP       91     A     
 COMFMFP            BX3    X2                                                              COMFMFP       92     A     
 COMFMFP            IFBIT  X3,-TP.INTRP,MFP4     IF ROOT IS A LEAF                         COMFMFP       93     A     
 COMFMFP            RJ     WOT         WALK OPERAND TREE                                   COMFMFP       94     A     
 COMFMFP            SA1    MFP.APL                                                         COMFMFP       95     A     
 COMFMFP            SB2    B7+X1                                                           COMFMFP       96     A     
 COMFMFP                                                                                   COMFMFP       97     A     
 COMFMFP  *         WALK 2ND OPERAND TREE.                                                 COMFMFP       98     A     
 COMFMFP                                                                                   COMFMFP       99     A     
 COMFMFP   MFP4     =A2    B2+OR.2OP                                                       COMFMFP      100     A     
 COMFMFP            BX3    X2                                                              COMFMFP      101     A     
 COMFMFP            IFBIT  X3,-TP.INTRP,MFP2     IF ROOT IS A LEAF                         COMFMFP      102     A     
 COMFMFP            RJ     WOT         WALK OPERAND TREE                                   COMFMFP      103     A     
 COMFMFP            EQ     MFP2        LOOP FOR NEXT TREE                                  COMFMFP      104     A     
 COMFMFP                                                                                   COMFMFP      105     A     
 COMFMFP  *         HERE WHEN FOREST WALK DONE.  SET *PFP* BIT.                            COMFMFP      106     A     
 COMFMFP                                                                                   COMFMFP      107     A     
 COMFMFP   MFP9     SA1    MFP.PFP                                                         COMFMFP      108     A     
 COMFMFP            LX6    X1,B1                                                           COMFMFP      109     A     
 COMFMFP            SB2    B7+X1                                                           COMFMFP      110     A     
 COMFMFP            MI     X6,EXIT.    IF NOTHING PRECEDED ANY ARG TURPLE                  COMFMFP      111     A     
 COMFMFP            =A2    B2+OR.OPR                                                       COMFMFP      112     A     
 COMFMFP            LDBIT  X3,TH.PFPP                                                      COMFMFP      113     A     
 COMFMFP            BX6    X2+X3                                                           COMFMFP      114     A     
 COMFMFP            SA6    A2          SET *PFP* BIT                                       COMFMFP      115     A     
 COMFMFP            EQ     EXIT.                                                           COMFMFP      116     A     
 COMFMFP                                                                                   COMFMFP      117     A     
 COMFMFP                                                                                   COMFMFP      118     A     
 COMFMFP   MFP.APL  BSS    1           T.PAR ORDINAL OF TREE ROOT (ARG TURPLE)             COMFMFP      119     A     
 COMFMFP   MFP.PFP  BSS    1           T.PAR ORDINAL OF 1ST TURPLE IN FOREST               COMFMFP      120     A     
 COMFMFP   MFP.SCR  BSS    1           TEMP SAVE INITIAL LENGTH OF T.SCR                   COMFMFP      121     A     
 COMFMFP   WOT      EJECT                                                                  COMFMFP      122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMFP 
  
 COMFMFP  **        WOT - WALK OPERAND TREE.                                               COMFMFP      123     A     
 COMFMFP  *                                                                                COMFMFP      124     A     
 COMFMFP  *         ENTRY  (A2,X2) = ROOT OF TREE # OPERAND OF AN ARG TURPLE.              COMFMFP      125     A     
 COMFMFP  *                (B7) = (T.PAR)                                                  COMFMFP      126     A     
 COMFMFP  *                                                                                COMFMFP      127     A     
 COMFMFP  *         EXIT   TREE HAS BEEN WALKED.                                           COMFMFP      128     A     
 COMFMFP  *                *PAP* BIT SET IN EARLIEST NON-TERMINAL OPERAND TURPLE.          COMFMFP      129     A     
 COMFMFP  *                (MFP.PFP) = MIN (NEW *PAP*, OLD *PFP*) ORDINAL.                 COMFMFP      130     A     
 COMFMFP  *                (B7) = CURRENT (T.PAR).                                         COMFMFP      131     A     
 COMFMFP  *                                                                                COMFMFP      132     A     
 COMFMFP  *         USES   ALL BUT   A0,A5    X5   B4,B5,B6.                               COMFMFP      133     A     
 COMFMFP  *                                                                                COMFMFP      134     A     
 COMFMFP  *         CALLS  ADDWD, SHRINK.                                                  COMFMFP      135     A     
 COMFMFP                                                                                   COMFMFP      136     A     
 COMFMFP                                                                                   COMFMFP      137     A     
 COMFMFP   WOT      SUBR               ENTRY/EXIT...                                       COMFMFP      138     A     
 COMFMFP            LX2    -TP.ORDP                                                        COMFMFP      139     A     
 COMFMFP            MX0    -TP.ORDL                                                        COMFMFP      140     A     
 COMFMFP            BX4    -X0*X2      (X4) = ORDINAL OF NEXT NODE                         COMFMFP      141     A     
 COMFMFP            MX1    1                                                               COMFMFP      142     A     
 COMFMFP            BX6    -X1         LARGEST POSSIBLE POSITIVE INTEGER                   COMFMFP      143     A     
 COMFMFP            SA6    WOT.PAP     INIT ORDINAL OF 1ST TURPLE IN CURRENT TREE          COMFMFP      144     A     
 COMFMFP                                                                                   COMFMFP      145     A     
 COMFMFP  *         TRAVERSE SUBTREE.                                                      COMFMFP      146     A     
 COMFMFP  *         (X4) = ORDINAL OF SUBTREE ROOT,   (B7) = (T.PAR).                      COMFMFP      147     A     
 COMFMFP                                                                                   COMFMFP      148     A     
 COMFMFP   WOT2     SB2    B7+X4                                                           COMFMFP      149     A     
 COMFMFP            MX0    -TP.ORDL                                                        COMFMFP      150     A     
 COMFMFP            =A1    B2+OR.OPR   TURPLE HEADER                                       COMFMFP      151     A     
 COMFMFP            =A2    B2+OR.1OP   FIRST OPERAND (LEFT BRANCH)                         COMFMFP      152     A     
 COMFMFP            =A3    B2+OR.2OP   SECOND OPERAND (RIGHT BRANCH)                       COMFMFP      153     A     
 COMFMFP            HX1    TH.SKEL                                                         COMFMFP      154     A     
 COMFMFP            AX1    TH.SKELP                                                        COMFMFP      155     A     
 COMFMFP            SB2    X1                                                              COMFMFP      156     A     
 COMFMFP            SB3    =XV=FUNC                                                        COMFMFP      157     A     
 COMFMFP            EQ     B2,B3,WOT4  IF FUNC RESULT TURPLE, ROOT IS A LEAF               COMFMFP      158     A     
 COMFMFP            SB3    =XV=INTF                                                        COMFMFP      159     A     
 COMFMFP            EQ     B2,B3,WOT4  IF FUNC RESULT TURPLE, ROOT IS A LEAF               COMFMFP      160     A     
 COMFMFP                                                                                   COMFMFP      161     A     
 COMFMFP  *         CHECK LEFT BRANCH.                                                     COMFMFP      162     A     
 COMFMFP                                                                                   COMFMFP      163     A     
 COMFMFP            IFBIT  X2,-TP.INTRP,WOT3       IF NO LEFT BRANCH                       COMFMFP      164     A     
 COMFMFP            LX2    -TP.ORDP+TP.INTRP+1                                             COMFMFP      165     A     
 COMFMFP            BX4    -X0*X2                                                          COMFMFP      166     A     
 COMFMFP            IFBIT  X3,-TP.INTRP,WOT2       IF NO RIGHT BRANCH                      COMFMFP      167     A     
 COMFMFP            LX3    -TP.ORDP+TP.INTRP+1                                             COMFMFP      168     A     
 COMFMFP            BX6    -X0*X3                                                          COMFMFP      169     A     
 COMFMFP            ADDWD  T.SCR       STACK ORDINAL OF RIGHT SUBTREE ROOT                 COMFMFP      170     A     
 COMFMFP            SA1    T.PAR                                                           COMFMFP      171     A     
 COMFMFP            SB7    X1          RESTORE (B7) = (T.PAR)                              COMFMFP      172     A     
 COMFMFP            EQ     WOT2        GO WALK LEFT SUBTREE                                COMFMFP      173     A     
 COMFMFP                                                                                   COMFMFP      174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMFP 
  
 COMFMFP  *         CHECK RIGHT BRANCH.                                                    COMFMFP      175     A     
 COMFMFP                                                                                   COMFMFP      176     A     
 COMFMFP   WOT3     IFBIT  X3,-TP.INTRP,WOT4   IF NO RIGHT BRANCH, NODE IS A LEAF          COMFMFP      177     A     
 COMFMFP            LX3    -TP.ORDP+TP.INTRP+1                                             COMFMFP      178     A     
 COMFMFP            BX4    -X0*X3                                                          COMFMFP      179     A     
 COMFMFP            EQ     WOT2        GO WALK RIGHT SUBTREE                               COMFMFP      180     A     
 COMFMFP                                                                                   COMFMFP      181     A     
 COMFMFP  *         HERE WHEN SUBTREE TREE LEAF FOUND.  UPDATE *PAP* ORDINAL.              COMFMFP      182     A     
 COMFMFP  *         POP STACK OF SAVED RIGHT BRANCHES.                                     COMFMFP      183     A     
 COMFMFP                                                                                   COMFMFP      184     A     
 COMFMFP   WOT4     SA1    WOT.PAP                                                         COMFMFP      185     A     
 COMFMFP            BX2    X4                                                              COMFMFP      186     A     
 COMFMFP            MX6    X1-X2       NEW *PAP* ORDINAL = MIN ( X4, OLD PAP )             COMFMFP      187     A     
 COMFMFP            SA6    A1                                                              COMFMFP      188     A     
 COMFMFP            SA1    T=SCR                                                           COMFMFP      189     A     
 COMFMFP            SA2    MFP.SCR                                                         COMFMFP      190     A     
 COMFMFP            IX3    X2-X1                                                           COMFMFP      191     A     
 COMFMFP            PL     X3,WOT5     IF T.SCR EMPTY, END OF TREE                         COMFMFP      192     A     
 COMFMFP            SA2    T.SCR                                                           COMFMFP      193     A     
 COMFMFP            SB2    X1-1                                                            COMFMFP      194     A     
 COMFMFP            SA4    X2+B2       (X4) = POPPED ORDINAL OF SAVED SUBTREE              COMFMFP      195     A     
 COMFMFP            SHRINK A1,B2                                                           COMFMFP      196     A     
 COMFMFP            EQ     WOT2        GO WALK POPPED RIGHT BRANCH                         COMFMFP      197     A     
 COMFMFP                                                                                   COMFMFP      198     A     
 COMFMFP  *         HERE WHEN TREE WALK DONE.  SET *PAP* BIT.  UPDATE *PFP*                COMFMFP      199     A     
 COMFMFP  *         ORDINAL.                                                               COMFMFP      200     A     
 COMFMFP                                                                                   COMFMFP      201     A     
 COMFMFP   WOT5     SA1    WOT.PAP                                                         COMFMFP      202     A     
 COMFMFP            LX6    X1,B1                                                           COMFMFP      203     A     
 COMFMFP            SB2    B7+X1                                                           COMFMFP      204     A     
 COMFMFP            MI     X6,EXIT.    IF NOTHING PRECEDED CURRENT ARG TURPLE              COMFMFP      205     A     
 COMFMFP            =A2    B2+OR.OPR                                                       COMFMFP      206     A     
 COMFMFP            LDBIT  X3,TH.PAPP                                                      COMFMFP      207     A     
 COMFMFP            BX6    X2+X3                                                           COMFMFP      208     A     
 COMFMFP            SA6    A2          SET *PAP* BIT                                       COMFMFP      209     A     
 COMFMFP            SA2    MFP.PFP                                                         COMFMFP      210     A     
 COMFMFP            MX6    X1-X2       NEW *PFP* ORDINAL = MIN (NEW PAP, OLD PFP)          COMFMFP      211     A     
 COMFMFP            SA6    A2                                                              COMFMFP      212     A     
 COMFMFP            EQ     EXIT.                                                           COMFMFP      213     A     
 COMFMFP                                                                                   COMFMFP      214     A     
 COMFMFP                                                                                   COMFMFP      215     A     
 COMFMFP   WOT.PAP  BSS    1           T.PAR ORDINAL OF 1ST TURPLE IN CURRENT TREE         COMFMFP      216     A     
 COMFMFP                                                                                   COMFMFP      217     A     
 COMFMFP                                                                                   COMFMFP      218     A     
 COMFMFP            ENDX                                                                   COMFMFP      219     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFMFP 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFMFP                    219       219
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFMFP 
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFOSC 
  
 COMFOSC  *COMDECK  COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.                     COMFOSC        1     A     
 COMFOSC   OSC      CTEXT  COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.              COMFOSC        2     A     
 COMFOSC  **        OSC - OUTPUT SUB CODE.                                                 COMFOSC        3     A     
 COMFOSC  *                                                                                COMFOSC        4     A     
 COMFOSC  *         ENTRY  X4 = SYMTAB ORDINAL OF ENTRY                                    COMFOSC        5     A     
 COMFOSC  *                                                                                COMFOSC        6     A     
 COMFOSC  *         PRESERVES X4                                                           COMFOSC        7     A     
 COMFOSC                                                                                   COMFOSC        8     A     
 COMFOSC   OSC      SUBR                                                                   COMFOSC        9     A     
 COMFOSC            SA1    =XCC$SUB                                                        COMFOSC       10     A     
 COMFOSC            ZR     X1,EXIT.    IF NO SUBS                                          COMFOSC       11     A     
 COMFOSC            SA2    =X"O$"SYM                                                       COMFOSC       12     A     
 COMFOSC            LX3    B1,X4                                                           COMFOSC       13     A     
 COMFOSC            IX5    X3+X4                                                           COMFOSC       14     A     
 COMFOSC            =B7    X2+WB.W                                                         COMFOSC       15     A     
 COMFOSC            SA5    X5+B7                                                           COMFOSC       16     A     
 COMFOSC            MX0    -WB.PNTL                                                        COMFOSC       17     A     
 COMFOSC            LX5    -WB.PNTP                                                        COMFOSC       18     A     
 COMFOSC            BX6    -X0*X5                                                          COMFOSC       19     A     
 COMFOSC            ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                               COMFOSC       20     A     
 COMFOSC            SA1    =X"O$"ENTP                                                      COMFOSC       21     A     
 COMFOSC            IX6    X1+X6                                                           COMFOSC       22     A     
 COMFOSC            SA2    X6-1                                                            COMFOSC       23     A     
 COMFOSC            MX0    -EH.SUBIL                                                       COMFOSC       24     A     
 COMFOSC            LX2    -EH.SUBIP                                                       COMFOSC       25     A     
 COMFOSC            BX6    -X0*X2                                                          COMFOSC       26     A     
 COMFOSC            ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                           COMFOSC       27     A     
 COMFOSC            SA3    =XS=SUBI                                                        COMFOSC       28     A     
 COMFOSC            SX6    X6-1                                                            COMFOSC       29     A     
 COMFOSC            LX6    PB.BIASP-PB.TAGP                                                COMFOSC       30     A     
 COMFOSC            BX1    X3+X6                                                           COMFOSC       31     A     
 COMFOSC            ISSUE  5110B,X1    SA1 SUBI.+BIAS                                      COMFOSC       32     A     
 COMFOSC            SA1    =XS=SPA                                                         COMFOSC       33     A     
 COMFOSC            ISSUE  I.RJ3,X1          RJ SP5.                                       COMFOSC       34     A     
 COMFOSC            MX6    1                                                               F2950F5A       7     A     
 COMFOSC            SA6    =XENTRJ     FLAG RJ ISSUED                                      F2950F5A       8     A     
 COMFOSC            EQ     EXIT.                                                           COMFOSC       35     A     
 COMFOSC   OZC      EJECT                                                                  COMFOSC       36     A     
 COMFOSC  **        OZC - OUTPUT SUB0 CODE.                                                COMFOSC       37     A     
 COMFOSC  *                                                                                COMFOSC       38     A     
 COMFOSC  *         ENTRY  X4 = SYMTAB ORDINAL OF ENTRY                                    COMFOSC       39     A     
 COMFOSC  *                                                                                COMFOSC       40     A     
 COMFOSC  *         PRESERVES X4                                                           COMFOSC       41     A     
 COMFOSC                                                                                   COMFOSC       42     A     
 COMFOSC   OZC      SUBR                                                                   COMFOSC       43     A     
 COMFOSC            SA1    =XLEVEL0                                                        COMFOSC       44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFOSC 
  
 COMFOSC            ZR     X1,EXIT.    IF NO SUB0                                          COMFOSC       45     A     
 COMFOSC   #MD      IFEQ   .DAL,1                                                          COMFOSC       46     A     
 COMFOSC            SA2    =X"O$"SYM                                                       COMFOSC       47     A     
 COMFOSC            LX3    B1,X4                                                           COMFOSC       48     A     
 COMFOSC            IX5    X3+X4                                                           COMFOSC       49     A     
 COMFOSC            =B7    X2+WB.W                                                         COMFOSC       50     A     
 COMFOSC            SA5    X5+B7                                                           COMFOSC       51     A     
 COMFOSC            MX0    -WB.PNTL                                                        COMFOSC       52     A     
 COMFOSC            LX5    -WB.PNTP                                                        COMFOSC       53     A     
 COMFOSC            BX6    -X0*X5                                                          COMFOSC       54     A     
 COMFOSC            ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                               COMFOSC       55     A     
 COMFOSC            SA1    =X"O$"ENTP                                                      COMFOSC       56     A     
 COMFOSC            IX6    X1+X6                                                           COMFOSC       57     A     
 COMFOSC            SA2    X6-1                                                            COMFOSC       58     A     
 COMFOSC            MX0    -EH.SB0IL                                                       COMFOSC       59     A     
 COMFOSC            LX2    -EH.SB0IP                                                       COMFOSC       60     A     
 COMFOSC            BX6    -X0*X2                                                          COMFOSC       61     A     
 COMFOSC            ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                           COMFOSC       62     A     
 COMFOSC            SA3    =XS=SUB0I                                                       COMFOSC       63     A     
 COMFOSC            SX6    X6-1                                                            COMFOSC       64     A     
 COMFOSC            LX6    PB.BIASP-PB.TAGP                                                COMFOSC       65     A     
 COMFOSC            BX1    X3+X6                                                           COMFOSC       66     A     
 COMFOSC            ISSUE  5110B,X1    SA1 SUB0I.+BIAS                                     COMFOSC       67     A     
 COMFOSC            SA1    =XS=SLI                                                         COMFOSC       68     A     
 COMFOSC            ISSUE  I.RJ3,X1          RJ SLI.                                       COMFOSC       69     A     
 COMFOSC            MX6    1                                                               F2950F5A       9     A     
 COMFOSC            SA6    =XENTRJ     FLAG RJ ISSUED                                      F2950F5A      10     A     
 COMFOSC            EQ     EXIT.                                                           COMFOSC       70     A     
 COMFOSC   #MD      ELSE                                                                   COMFOSC       71     A     
 COMFOSC   .TEST    IFEQ   TEST,1,1                                                        COMFOSC       72     A     
 COMFOSC            EQ     "BLOWUP"                                                        COMFOSC       73     A     
 COMFOSC   #MD      ENDIF                                                                  COMFOSC       74     A     
 COMFOSC   COMFOSC  ENDX                                                                   COMFOSC       75     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFOSC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFOSC                     75        75
          F2950F5A                     4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFPLI 
  
 COMFPLI  *COMDECK COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                               COMFPLI        1     A     
 COMFPLI   PLI      CTEXT  COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                       COMFPLI        2     A     
 COMFPLI  **        COMFPLI ISSUES THE APLIST FOR THE FCL INITIALIZATION CALL.             COMFPLI        3     A     
 COMFPLI  *         IT IS INCLUDED IN GEN AND BRIDGE.                                      COMFPLI        4     A     
 COMFPLI                                                                                   COMFPLI        5     A     
 COMFPLI            SA1    =XS=UPW                                                         COMFPLI        6     A     
 COMFPLI            ZR     X1,PLI4     IF NO FILES                                         COMFPLI        7     A     
 COMFPLI            ISSUE  OC$FVEC     CON 0       TERMINATE FILE LIST                     COMFPLI        8     A     
 COMFPLI            ISSUE  OC$FVEC     CON 0                                               COMFPLI        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFPLI 
  
 COMFPLI   PLI4     SA1    S=FILES                                                         COMFPLI       10     A     
 COMFPLI            ISSUE  OC$BSS,X1   FILES. BSS 0                                        COMFPLI       11     A     
 COMFPLI            SA4    =XCO.STAT   STATIC MODE FLAG                                    F1037F5       67     A     
 COMFPLI            SA1    S=UPW                                                           COMFPLI       12     A     
 COMFPLI            =X7    1                                                               COMFPLI       13     A     
 COMFPLI            LX4    1-59        MOVE FLAG TO BIT 1                                  F1037F5       68     A     
 COMFPLI            BX7    X7+X4                                                           F1037F5       69     A     
 COMFPLI            LX7    PB.BIASP-PB.TAGP                                                COMFPLI       14     A     
 COMFPLI            BX1    X1+X7                                                           COMFPLI       15     A     
 COMFPLI            ISSUE  OC$ADDR,X1    CON 1S18+UPW.                                     COMFPLI       16     A     
 COMFPLI            SA1    =XCO.LL                                                         COMFPLI       17          I
          -FC50049
 COMFPLI            LX1    PB.BIASP-PB.TAGP                                                COMFPLI       18          I
          -FC50049
 COMFPLI            ISSUE  OC$FVEC,X1    CON PLIM                                          COMFPLI       19          I
          -FC50049
 COMFPLI            ISSUE  OC$PLIM     CON PLIM                                            FC50049        5     A     
 COMFPLI            ZR     X4,PLI10    IF NOT *STATIC* MODE                                F1037F5       70     A     
 COMFPLI            SA1    =XN.BUF                                                         F1037F5       71     A     
 COMFPLI            SA4    =XS=BUF                                                         F1037F5       72     A     
 COMFPLI            LX1    PB.BIASP-PB.TAGP                                                F1037F5       73     A     
 COMFPLI            BX1    X1+X4                                                           F1037F5       74     A     
 COMFPLI            ISSUE  OC$ADDR,X1   CON    BUF.,C(N.BUF)                               F1037F5       75     A     
 COMFPLI            SA1    =XN.BUF                                                         F1037F5       76     A     
 COMFPLI            LX1    PB.BIASP-PB.TAGP                                                F1037F5       77     A     
 COMFPLI            BX1    X1+X4                                                           F1037F5       78     A     
 COMFPLI            ISSUE  OC$BSS,X1   BUF.   BSS   C(N.BUF)                               F1037F5       79     A     
 COMFPLI                                                                                   F1037F5       80     A     
 COMFPLI   PLI10    BSS    0                                                               F1037F5       81     A     
 COMFPLI   COMFPLI  ENDX                                                                   COMFPLI       20     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFPLI 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFPLI                     20        17
          F1037F5                     15        15
          FC50049                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFRNC 
  
 COMFRNC  *COMDECK COMFRNC                                                                 COMFRNC        1     A     
 COMFRNC   COMFRNC  CTEXT  COMFRNC - READ NEXT CARD.                                       COMFRNC        2     A     
 COMFRNC   RNC      SPACE  4,8                                                             COMFRNC        3     A     
 COMFRNC            IF     -DEF,QUAL$,1                                                    COMFRNC        4     A     
 COMFRNC            QUAL   COMFRNC                                                         COMFRNC        5     A     
 COMFRNC   RNC      SPACE  4,8                                                             COMFRNC        6     A     
 COMFRNC  **        RNC - READ NEXT CARD.                                                  COMFRNC        7     A     
 COMFRNC  *                                                                                COMFRNC        8     A     
 COMFRNC  *                                                                                COMFRNC        9     A     
 COMFRNC  *                READS A SINGLE SOURCE LINE FROM THE INPUT BUFFER *F.IN*         COMFRNC       10     A     
 COMFRNC  *         TO THE SOURCE LINE IMAGE AREA *CP.CARD*.  ALSO GUARANTEES              COMFRNC       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFRNC 
  
 COMFRNC  *         THAT, ON EXIT, THE EOL MARK IS ON A WORD BOUNDARY BY                   COMFRNC       12     A     
 COMFRNC  *         APPROPRIATELY BLANK FILLING THE LAST WORD OF THE LINE IMAGE            COMFRNC       13     A     
 COMFRNC  *         AND STORING A FULL ZERO WORD EOL MARK AFTER IT.                        COMFRNC       14     A     
 COMFRNC  *                                                                                COMFRNC       15     A     
 COMFRNC  *         ENTRY  (B1)     =  1                                                   COMFRNC       16     A     
 COMFRNC  *                CIO ONLY - INITIAL *READ* ISSUED                                COMFRNC       17     A     
 COMFRNC  *                RM  ONLY - FILE TABLES INITIALIZED                              COMFRNC       18     A     
 COMFRNC  *                (CP.IFMT)=  +0 IF NORMAL UNCOMPRESSED INPUT                     COMFRNC       19     A     
 COMFRNC  *                         =   1 IF MODIFY COMPRESSED INPUT (UNSUPPORTED)         COMFRNC       20     A     
 COMFRNC  *                         =   2 IF UPDATE COMPRESSED INPUT (UNSUPPORTED)         COMFRNC       21     A     
 COMFRNC  *                                                                                COMFRNC       22     A     
 COMFRNC  *         EXIT   (B1)     =  1                                                   COMFRNC       23     A     
 COMFRNC  *                (B4)     =  FWA OF SOURCE LINE IMAGE, *CP.CARD*                 COMFRNC       24     A     
 COMFRNC  *                (B5)     =  1                                                   COMFRNC       25     A     
 COMFRNC  *                (B6)     =  LWA OF SOURCE LINE IMAGE,                           COMFRNC       26     A     
 COMFRNC  *                              I.E. (B6) POINTS TO FULL WORD EOL MARK            COMFRNC       27     A     
 COMFRNC  *                (B7)     =  NR OF USEABLE WORDS IN LINE IMAGE,                  COMFRNC       28     A     
 COMFRNC  *                              I.E. DOES NOT INCLUDE FULL WORD EOL MARK          COMFRNC       29     A     
 COMFRNC  *                (X1)     =  .NZ. IF EOR/EOF/EOI ENCOUNTERED, ELSE .ZR.          COMFRNC       30     A     
 COMFRNC  *                (CP.CARD) = .ZR. IF EOR/EOF/EOI ENCOUNTERED, ELSE 1ST           COMFRNC       31     A     
 COMFRNC  *                              WORD OF SOURCE LINE IMAGE                         COMFRNC       32     A     
 COMFRNC  *                (L.CARD) =  NR OF WORDS IN SOURCE LINE IMAGE                    COMFRNC       33     A     
 COMFRNC  *                              I.E. INCLUDES FULL ZERO WORD EOL MARK             COMFRNC       34     A     
 COMFRNC  *                (X7)     =  (L.CARD) = (B7)+1                                   COMFRNC       35     A     
 COMFRNC  *                                                                                COMFRNC       36     A     
 COMFRNC  *         USES   ALL BUT A0,X0,A5,X5  (INCLUDES ALL CALLS)                       COMFRNC       37     A     
 COMFRNC  *                                                                                COMFRNC       38     A     
 COMFRNC  *         CALLS  READC                                                           COMFRNC       39     A     
 COMFRNC                                                                                   COMFRNC       40     A     
 COMFRNC                                                                                   COMFRNC       41     A     
 COMFRNC   RNC      SUBR               ** ENTRY/EXIT **                                    COMFRNC       42     A     
 COMFRNC            SA1    =XCARDS                                                         COMFRNC       43     A     
 COMFRNC            SA2    =XCP.IFMT                                                       COMFRNC       44     A     
 COMFRNC            SX6    X1+B1                                                           COMFRNC       45     A     
 COMFRNC            SA6    A1          UPDATE LINE COUNT                                   COMFRNC       46     A     
 COMFRNC            NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)              COMFRNC       47     A     
 COMFRNC            READC  =XF.IN,=XCP.CARD,16                                             COMFRNC       48     A     
 COMFRNC            SB4    CP.CARD                                                         COMFRNC       49     A     
 COMFRNC            SA2    B6-B1       (A2,X2) = A+C OF LAST WORD OF LINE IMAGE            COMFRNC       50     A     
 COMFRNC            SB7    B0                                                              COMFRNC       51     A     
 COMFRNC            NZ     X1,RNC5     IF EOR/EOF/EOI ENCOUNTERED                          COMFRNC       52     A     
 COMFRNC                                                                                   COMFRNC       53     A     
 COMFRNC  *         CHECK FOR AND PROCESS FULL WORD OR 11 CHARACTER EOL MARK.              COMFRNC       54     A     
 COMFRNC                                                                                   COMFRNC       55     A     
 COMFRNC            NZ     X2,RNC2     IF NOT A FULL WORD EOL MARK                         COMFRNC       56     A     
 COMFRNC            SA2    A2-B1                                                           COMFRNC       57     A     
 COMFRNC            MX3    -CHAR                                                           COMFRNC       58     A     
 COMFRNC            SB6    B6-B1                                                           COMFRNC       59     A     
 COMFRNC            BX4    -X3*X2      EXTRACT LAST CHARACTER                              COMFRNC       60     A     
 COMFRNC            NZ     X4,RNC3     IF NOT 11 CHAR EOL MARK                             COMFRNC       61     A     
 COMFRNC            SX6    1R                                                              COMFRNC       62     A     
 COMFRNC            IX7    X2+X6                                                           COMFRNC       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFRNC 
  
 COMFRNC            SA7    A2                                                              COMFRNC       64     A     
 COMFRNC            EQ     RNC3                                                            COMFRNC       65     A     
 COMFRNC                                                                                   COMFRNC       66     A     
 COMFRNC  *         PROCESS 2 THRU 8 CHARACTER (12 THRU 48 BIT) EOL MARK,                  COMFRNC       67     A     
 COMFRNC  *           BLANK FILL LAST WORD OF SOURCE LINE IMAGE.                           COMFRNC       68     A     
 COMFRNC                                                                                   COMFRNC       69     A     
 COMFRNC   RNC2     MX7    -1                                                              COMFRNC       70     A     
 COMFRNC            IX4    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             COMFRNC       71     A     
 COMFRNC            SA3    =40404040404040404040B                                          COMFRNC       72     A     
 COMFRNC            BX4    -X2*X4      (X4) = ALL TRAILING 0 BITS IN (X2) = 1 BITS         COMFRNC       73     A     
 COMFRNC            SB5    60-5        (B5) = RIGHT CIRCULAR SHIFT 5 BITS                  COMFRNC       74     A     
 COMFRNC            BX4    X3*X4       (X4) = 40B WHERE TRAILING 00B WERE                  COMFRNC       75     A     
 COMFRNC            LX6    X4,B5       (X6) = 01B WHERE TRAILING 00B WERE                  COMFRNC       76     A     
 COMFRNC            IX7    X4-X6       (X7) = 37B WHERE TRAILING 00B WERE                  COMFRNC       77     A     
 COMFRNC            SA3    =10H                                                            COMFRNC       78     A     
 COMFRNC            BX4    X4+X7       (X4) = 77B WHERE TRAILING 00B WERE                  COMFRNC       79     A     
 COMFRNC            BX6    X4*X3       (X6) = 55B WHERE TRAILING 00B WERE                  COMFRNC       80     A     
 COMFRNC            IX7    X2+X6       TRAILING 00B BECOMES TRAILING 55B                   COMFRNC       81     A     
 COMFRNC            SA7    A2                                                              COMFRNC       82     A     
 COMFRNC                                                                                   COMFRNC       83     A     
 COMFRNC  *         CHECK FOR (AND TRUNCATE) LONG LINE (.GT. *L.MAXCD* WORDS).             COMFRNC       84     A     
 COMFRNC                                                                                   COMFRNC       85     A     
 COMFRNC   RNC3     SA2    B4          (A2,X2) = A+C OF 1ST WORD OF SOURCE LINE            COMFRNC       86     A     
 COMFRNC            SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE           COMFRNC       87     A     
 COMFRNC            SB5    =XL.MAXCD-1                                                     COMFRNC       88     A     
 COMFRNC            LE     B7,B5,RNC4  IF LINE LENGTH OK                                   COMFRNC       89     A     
 COMFRNC            SB7    B5          SET TO *MAX NR OF WDS IN LINE IS /L.MAXCD/*         COMFRNC       90     A     
 COMFRNC            SB6    B4+B5                                                           COMFRNC       91     A     
 COMFRNC                                                                                   COMFRNC       92     A     
 COMFRNC  *         CHECK FOR AND PROCESS FALSE EOR/EOF (TELEX BLANK LINE ONLY).           COMFRNC       93     A     
 COMFRNC                                                                                   COMFRNC       94     A     
 COMFRNC   RNC4     NZ     X2,RNC5     IF NO FALSE EOR/EOF                                 COMFRNC       95     A     
 COMFRNC            SA3    =10H                                                            COMFRNC       96     A     
 COMFRNC            SB6    B4+B1                                                           COMFRNC       97     A     
 COMFRNC            SB7    B1          (B7) = NR OF USEABLE WORDS = 1                      COMFRNC       98     A     
 COMFRNC            BX6    X3                                                              COMFRNC       99     A     
 COMFRNC            SA6    B4                                                              COMFRNC      100     A     
 COMFRNC                                                                                   COMFRNC      101     A     
 COMFRNC  *         FINAL PROCESSING AND EXIT.                                             COMFRNC      102     A     
 COMFRNC                                                                                   COMFRNC      103     A     
 COMFRNC   RNC5     BX6    X6-X6                                                           COMFRNC      104     A     
 COMFRNC            SX7    B7+B1       (X7) = NR OF WORDS IN SOURCE LINE IMAGE             COMFRNC      105     A     
 COMFRNC            SA6    B6          MARK FULL WORD EOL                                  COMFRNC      106     A     
 COMFRNC            SB5    B1                                                              COMFRNC      107     A     
 COMFRNC            SA7    =XL.CARD                                                        COMFRNC      108     A     
 COMFRNC            EQ     EXIT.                                                           COMFRNC      109     A     
 COMFRNC   RNC      SPACE  4,8                                                             COMFRNC      110     A     
 COMFRNC            IF     -DEF,QUAL$,2                                                    COMFRNC      111     A     
 COMFRNC            QUAL   *                                                               COMFRNC      112     A     
 COMFRNC   RNC      =      /COMFRNC/RNC                                                    COMFRNC      113     A     
 COMFRNC            ENDX                                                                   COMFRNC      114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 176    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFRNC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFRNC                    114       114
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFROR 
  
 COMFROR  *COMDECK COMFROR - RESET OPCODES OF ROUNDABLE SKELETONS                          COMFROR        1     A     
 COMFROR   ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                               COMFROR        2     A     
 COMFROR            SPACE  4,7                                                             COMFROR        3     A     
 COMFROR            IF     -DEF,QUAL$,1                                                    COMFROR        4     A     
 COMFROR            QUAL   COMFROR                                                         COMFROR        5     A     
 COMFROR            SPACE  4,10                                                            COMFROR        6     A     
 COMFROR  **        ROR    RESET OPCODES OF ROUNDABLES                                     COMFROR        7     A     
 COMFROR  *                THIS SUBROUTINE RECORDS THE ROUND OPTIONS SELECTED              COMFROR        8     A     
 COMFROR  *                BY THE USER. IF NEEDED, IT THEN CHANGES THE EFFECTED            COMFROR        9     A     
 COMFROR  *                OPCODE FIELDS OF ROUNDABLE SKELETONS FROM FLOATING              COMFROR       10     A     
 COMFROR  *                TO ROUNDED OPCODES.                                             COMFROR       11     A     
 COMFROR  *                                                                                COMFROR       12     A     
 COMFROR  *         ENTRY  CO.RNDA - 1S59 IF + MUST BE ROUNDED, ELSE 0                     COMFROR       13     A     
 COMFROR  *                CO.RNDS - 1S59 IF - MUST BE ROUNDED, ELSE 0                     COMFROR       14     A     
 COMFROR  *                CO.RNDM - 1S59 IF * MUST BE ROUNDED, ELSE 0                     COMFROR       15     A     
 COMFROR  *                CO.RNDD - 1S59 IF / MUST BE ROUNDED, ELSE 0                     COMFROR       16     A     
 COMFROR  *                                                                                COMFROR       17     A     
 COMFROR  *                (B2) = FWA OF CODE SKELETONS                                    COMFROR       18     A     
 COMFROR  *                                                                                COMFROR       19     A     
 COMFROR  *         EXIT   SKELETON OPCODES CHANGED AS THE CO.RND CELLS INDICATE           COMFROR       20     A     
 COMFROR  *                                                                                COMFROR       21     A     
 COMFROR  *         USES   A1,6  X0,1,2,3,6  B3                                            COMFROR       22     A     
 COMFROR                                                                                   COMFROR       23     A     
 COMFROR   ROR      SUBR               ENTRY/EXIT                                          COMFROR       24     A     
 COMFROR                                                                                   COMFROR       25     A     
 COMFROR  **        FORM THE SKELETON MODIFICATION MASK IN X2, WITH THE VALUES OF          COMFROR       26     A     
 COMFROR  *         59-OPCODE FOR THOSE OPERATIONS WHICH ARE TO BE ROUNDED.                COMFROR       27     A     
 COMFROR                                                                                   COMFROR       28     A     
 COMFROR  **        PROCESS FOR +                                                          COMFROR       29     A     
 COMFROR                                                                                   COMFROR       30     A     
 COMFROR            SA3    =XCO.RNDA                                                       COMFROR       31     A     
 COMFROR            LX3    -30B        SHIFT TO BIT 59-FADD OPCODE                         COMFROR       32     A     
 COMFROR            BX2    X3          INITIALIZE                                          COMFROR       33     A     
 COMFROR                                                                                   COMFROR       34     A     
 COMFROR  **        PROCESS FOR -                                                          COMFROR       35     A     
 COMFROR                                                                                   COMFROR       36     A     
 COMFROR            SA3    =XCO.RNDS                                                       COMFROR       37     A     
 COMFROR            LX3    -31B        POSITION IN BIT 59-FSUB OPCODE.                     COMFROR       38     A     
 COMFROR            IX2    X2+X3       ADD INTO OPCODE BIT ACUMULATOR.                     COMFROR       39     A     
 COMFROR                                                                                   COMFROR       40     A     
 COMFROR  **        REPEAT PROCESS FOR *                                                   COMFROR       41     A     
 COMFROR                                                                                   COMFROR       42     A     
 COMFROR            SA3    =XCO.RNDM                                                       COMFROR       43     A     
 COMFROR            LX3    -40B        SHIFT TO 59-FMULT OPCODE                            COMFROR       44     A     
 COMFROR            IX2    X2+X3                                                           COMFROR       45     A     
 COMFROR                                                                                   COMFROR       46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFROR 
  
 COMFROR  **        REPEAT PROCESS FOR /                                                   COMFROR       47     A     
 COMFROR                                                                                   COMFROR       48     A     
 COMFROR            SA3    =XCO.RNDD                                                       COMFROR       49     A     
 COMFROR            LX3    -44B        SHIFT TO 59-FDIV OPCODE                             COMFROR       50     A     
 COMFROR            IX2    X2+X3                                                           COMFROR       51     A     
 COMFROR            ZR     X2,EXIT.    IF NO ROUNDED OPERATIONS                            COMFROR       52     A     
 COMFROR                                                                                   COMFROR       53     A     
 COMFROR  **        HERE WE LOOP THROUGH CODE SKELETONS,                                   COMFROR       54     A     
 COMFROR  *         CHANGING ROUNDABLE OPCODES.                                            COMFROR       55     A     
 COMFROR                                                                                   COMFROR       56     A     
 COMFROR            SA1    B2-1                                                            COMFROR       57     A     
 COMFROR                                                                                   COMFROR       58     A     
 COMFROR  **        (A1) _ CURRENT SKELETON                                                COMFROR       59     A     
 COMFROR  *         (X0) = SKELETON OPCODE MASK                                            COMFROR       60     A     
 COMFROR  *         (X1) = CURRENT SKELETON                                                COMFROR       61     A     
 COMFROR  *         (X2) = 59-OPCODE BITS FOR ROUNDED OPERATIONS.                          COMFROR       62     A     
 COMFROR                                                                                   COMFROR       63     A     
 COMFROR   ROR2     =A1    A1+1        FETCH NEXT SKELETON WORD                            COMFROR       64     A     
 COMFROR            MX0    -SK.GHL     OPCODE MASK                                         COMFROR       65     A     
 COMFROR            BX3    X1                                                              COMFROR       66     A     
 COMFROR            LX3    -SK.GHP     POSITION OPCODE FIELD.                              COMFROR       67     A     
 COMFROR            ZR     X1,EXIT.    IF DONE                                             COMFROR       68     A     
 COMFROR            BX0    -X0*X3      EXTRACT OPCODE.                                     COMFROR       69     A     
 COMFROR            HX1    SK.RND      SIGN BIT OF X1 = ROUNDABLE BIT                      COMFROR       70     A     
 COMFROR            SB3    X0          SHIFT COUNT = OPCODE                                COMFROR       71     A     
 COMFROR            LX3    B3,X2                                                           COMFROR       72     A     
 COMFROR            PL     X1,ROR2     IF NOT A ROUNDABLE SKELETON.                        COMFROR       73     A     
 COMFROR            PL     X3,ROR2     IF OPERATOR NOT SELECTED FOR ROUNDING               COMFROR       74     A     
 COMFROR            LX1    1+SK.RNDP-SK.GHP  READY SKEL WORD FOR OPCODE CHANGE.            COMFROR       75     A     
 COMFROR                                                                                   COMFROR       76     A     
 COMFROR  **        NOW CHANGE OPCODE USING A SNEEKY TRICK. OPCODES 30,31 BECOME           COMFROR       77     A     
 COMFROR  *         34,35 RESP, AND 40,44 BECOME 41,45 RESP. THAT IS WE INCREMENT          COMFROR       78     A     
 COMFROR  *         OPCODE BY 1 IF BIT 5 IS ON OR INCREMENT BY 4 IF BIT 3 IS ON            COMFROR       79     A     
 COMFROR  *         (IN OPCODE FIELD). THE FOLLOWING INSTRUCTIONS ACOMPLISH THIS.          COMFROR       80     A     
 COMFROR  *                                                                                COMFROR       81     A     
 COMFROR  *         (X0) = OPCODE OF SKELETON WORD                                         COMFROR       82     A     
 COMFROR  *         (X1) = SKELETON  LEFT SHIFTED BY SK.GHP                                COMFROR       83     A     
 COMFROR                                                                                   COMFROR       84     A     
 COMFROR            SX3    50B         3,5 BIT MASK                                        COMFROR       85     A     
 COMFROR            BX0    X3*X0       EXTRACT BIT 3 OR 5                                  COMFROR       86     A     
 COMFROR            BX3    X3-X0       REVERSE THE BITS                                    COMFROR       87     A     
 COMFROR            AX3    3           (X3) = 4 FOR 3X OPCODES, 1 FOR 4X OPCODES           COMFROR       88     A     
 COMFROR            IX6    X1+X3       INCREMENT OPCODE.                                   COMFROR       89     A     
 COMFROR            LX6    SK.GHP      RESET SKELETON WORD                                 COMFROR       90     A     
 COMFROR            SA6    A1          RESET SKELETON.                                     COMFROR       91     A     
 COMFROR            EQ     ROR2                                                            COMFROR       92     A     
 COMFROR            SPACE  4,8                                                             COMFROR       93     A     
 COMFROR            IF     -DEF,QUAL$,2                                                    COMFROR       94     A     
 COMFROR            QUAL   *                                                               COMFROR       95     A     
 COMFROR   ROR      EQU    /COMFROR/ROR                                                    COMFROR       96     A     
 COMFROR            SPACE  4,7                                                             COMFROR       97     A     
 COMFROR   COMFROR  ENDX                                                                   COMFROR       98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 178    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFROR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFROR                     98        98
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSCB 
  
 COMFSCB  *COMDECK COMFSCB             COMFSCB - SUBSUME CONSTANT CHARACTER BIAS           COMFSCB        1     A     
 COMFSCB            CTEXT  SCB - SUBSUME CONSTANT CHARACTER BIAS.                          COMFSCB        2     A     
 COMFSCB  **        SCB - SUBSUME CONSTANT BIAS.                                           COMFSCB        3     A     
 COMFSCB  *         FORM WC. WORD INCLUDING OPERAND BIAS AND EQUIV. OFFSET.                COMFSCB        4     A     
 COMFSCB  *                                                                                COMFSCB        5     A     
 COMFSCB  *         ENTRY  (X1) = OPD                                                      COMFSCB        6     A     
 COMFSCB  *                                                                                COMFSCB        7     A     
 COMFSCB  *         EXIT   (X6) = WCA, WC. FORMAT                                          COMFSCB        8     A     
 COMFSCB  *                (B7) = SYMBOL TABLE POINTER TO WHICH WCA APPLIES.               COMFSCB        9     A     
 COMFSCB  *                                                                                COMFSCB       10     A     
 COMFSCB  *         PRESERVES  B4,B5,B6                                                    COMFSCB       11     A     
 COMFSCB                                                                                   COMFSCB       12     A     
 COMFSCB   SCB      SUBR                                                                   COMFSCB       13     A     
 COMFSCB            SA5    "O$"SYM                                                         COMFSCB       14     A     
 COMFSCB            MX0    -"TP"."ORD"L                                                    COMFSCB       15     A     
 COMFSCB            SB2    X5                                                              COMFSCB       16     A     
 COMFSCB            LX1    -"TP"."ORD"P                                                    COMFSCB       17     A     
 COMFSCB            BX2    -X0*X1                                                          COMFSCB       18     A     
 COMFSCB            MX0    -"TP"."BIAS"L                                                   COMFSCB       19     A     
 COMFSCB            LX1    "TP"."ORD"P-"TP"."BIAS"P                                        COMFSCB       20     A     
 COMFSCB            BX5    -X0*X1                                                          COMFSCB       21     A     
 COMFSCB            LX5    -"TP"."BIAS"L                                                   COMFSCB       22     A     
 COMFSCB            AX5    -"TP"."BIAS"L                                                   COMFSCB       23     A     
 COMFSCB            CALL   ECB         EVALUATE CONSTANT BIAS                              COMFSCB       24     A     
 COMFSCB            EQ     EXIT.                                                           COMFSCB       25     A     
 COMFSCB   COMFSCB  ENDX                                                                   COMFSCB       26     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSCB 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSCB                     26        26
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSCS 
  
 COMFSCS  *COMDECK  COMFSCS -     SCAN TABLE WITH SUPPLIED MASK                            COMFSCS        1     A     
 COMFSCS   COMFSCS  CTEXT                                                                  COMFSCS        2     A     
 COMFSCS  **        SCS - SCAN TABLE WITH SUPPLIED MASK.                                   COMFSCS        3     A     
 COMFSCS  *                                                                                COMFSCS        4     A     
 COMFSCS  *         ENTRY  (A1) - TABLE TO BE SEARCHED                                     COMFSCS        5     A     
 COMFSCS  *                (X6) - ENTRY LOOKING FOR IN GIVEN TABLE                         COMFSCS        6     A     
 COMFSCS  *                (SCSA) = MASK TO BE USED                                        COMFSCS        7     A     
 COMFSCS  *                                                                                COMFSCS        8     A     
 COMFSCS  *         EXIT   IF ENTRY *NIT* - (B7) IS NEGATIVE                               COMFSCS        9     A     
 COMFSCS  *                                 (A1),(X1) PRESERVED                            COMFSCS       10     A     
 COMFSCS  *                                 (X6) UNTOUCHED                                 COMFSCS       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSCS 
  
 COMFSCS  *                IF ENTRY *IT*  - (B7) ORDINAL OF MATCHING ENTRY                 COMFSCS       12     A     
 COMFSCS  *                                 (X2) ALL 60 BITS OF MATCHING ENTRY             COMFSCS       13     A     
 COMFSCS  *                                 (A2) _ TO MATCHING ENTRY                       COMFSCS       14     A     
 COMFSCS  *                                 (X6) = (X2) .AND. MASK                         COMFSCS       15     A     
 COMFSCS  *                                                                                COMFSCS       16     A     
 COMFSCS  *         USES   A2,A3,A6  X0,X1  B2,B7                                          COMFSCS       17     A     
 COMFSCS                                                                                   COMFSCS       18     A     
 COMFSCS                                                                                   COMFSCS       19     A     
 COMFSCS   SCS      SUBR   =           ...ENTRY/EXIT...                                    COMFSCS       20     A     
 COMFSCS            SA2    A1+=XN.TABLE                                                    COMFSCS       21     A     
 COMFSCS            SA3    SCSA                                                            COMFSCS       22     A     
 COMFSCS            SA6    X1-1        STORE CRITERION BELOW TABLE                         COMFSCS       23     A     
 COMFSCS            ERRMI  FUDGE-1     CODE REQUIRES 1 SLOP WORD                           COMFSCS       24     A     
 COMFSCS            SB7    A6                                                              COMFSCS       25     A     
 COMFSCS            SA2    X2+B7       FETCH LAST ENTRY                                    COMFSCS       26     A     
 COMFSCS                                                                                   COMFSCS       27     A     
 COMFSCS  **        LOOP TILL MATCH FOUND                                                  COMFSCS       28     A     
 COMFSCS                                                                                   COMFSCS       29     A     
 COMFSCS   SCS1     BX0    X2-X6                                                           COMFSCS       30     A     
 COMFSCS            =A2    A2-1        FETCH NEXT TABLE ENTRY                              COMFSCS       31     A     
 COMFSCS            NO                                                                     COMFSCS       32     A     
 COMFSCS            BX0    X3*X0       MASK                                                COMFSCS       33     A     
 COMFSCS            NZ     X0,SCS1     IF NOT HIT - LOOP                                   COMFSCS       34     A     
 COMFSCS                                                                                   COMFSCS       35     A     
 COMFSCS            SB7    A2-B7       RELATIVE POSITION OF ENTRY                          COMFSCS       36     A     
 COMFSCS            =A2    A2+1        TABLE ENTRY AT HIT                                  COMFSCS       37     A     
 COMFSCS            MI     B7,SCSX     IF DUMMY HIT - EXIT...                              COMFSCS       38     A     
 COMFSCS            BX6    X3*X2       MASK OFF                                            COMFSCS       39     A     
 COMFSCS            EQ     SCSX        EXIT...                                             COMFSCS       40     A     
 COMFSCS                                                                                   COMFSCS       41     A     
 COMFSCS   SCSA     CONENT 0           MASK TO BE USED                                     COMFSCS       42     A     
 COMFSCS            ENDX                                                                   COMFSCS       43     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSCS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSCS                     43        43
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSID 
  
 COMFSID  *COMDECK COMFSID                                                                 COMFSID        1     A     
 COMFSID   COMFSID  CTEXT              COMFSID - SELECT INTEGER DIVIDE SUBSKEL.            COMFSID        2     A     
 COMFSID                                                                                   COMFSID        3     A     
 COMFSID  **        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.             COMFSID        4     A     
 COMFSID  *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO              COMFSID        5     A     
 COMFSID  *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).              COMFSID        6     A     
 COMFSID  *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE              COMFSID        7     A     
 COMFSID  *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.            COMFSID        8     A     
 COMFSID  *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                         COMFSID        9     A     
 COMFSID                                                                                   COMFSID       10     A     
 COMFSID            SX6    =XV=IDV                                                         COMFSID       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSID 
  
 COMFSID            SA1    B5+OR.2OP                                                       COMFSID       12     A     
 COMFSID            HX1    "TP".SHRT                                                       COMFSID       13     A     
 COMFSID            PL     X1,SUB.RET  IF NOT SHRT[TURP(3)]                                COMFSID       14     A     
 COMFSID            =X3    1                                                               COMFSID       15     A     
 COMFSID            LX1    "TP".SHRTP+1-"TP"."BIAS"P                                       COMFSID       16     A     
 COMFSID            SX1    X1                                                              COMFSID       17     A     
 COMFSID            IX4    X1-X3                                                           COMFSID       18     A     
 COMFSID            BX0    X1*X4                                                           COMFSID       19     A     
 COMFSID            MI     X4,SUB.RET  IF VAL LE 0                                         COMFSID       20     A     
 COMFSID            NZ     X0,SUB.RET  IF VAL NOT POWER OF 2                               COMFSID       21     A     
 COMFSID            SX6    =XV=IDP2                                                        COMFSID       22     A     
 COMFSID            MX2    1                                                               COMFSID       23     A     
 COMFSID            NX0    B7,X1                                                           COMFSID       24     A     
 COMFSID            SB7    B7-47                                                           COMFSID       25     A     
 COMFSID            SX0    -B7                                                             COMFSID       26     A     
 COMFSID            LX0    "TP"."BIAS"P                                                    COMFSID       27     A     
 COMFSID            LX2    1+"TP".SHRTP                                                    COMFSID       28     A     
 COMFSID            BX7    X2+X0                                                           COMFSID       29     A     
 COMFSID            SA7    "GPBUF"                                                         COMFSID       30     A     
 COMFSID            EQ     SUB.RET                                                         COMFSID       31     A     
 COMFSID            ENDX                                                                   COMFSID       32     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSID 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSID                     32        32
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSIM 
  
 COMFSIM  *COMDECK  COMFSIM                                                                COMFSIM        1     A     
 COMFSIM   COMFSIM  CTEXT              COMFSIM - SELECT INTEGER MULTIPLY SKELETON.         COMFSIM        2     A     
 COMFSIM  **        SIM - SELECT INTEGER MULTIPLY SUBSKEL ON BASIS OF                      COMFSIM        3     A     
 COMFSIM  *         MULTIPLICAND NATURE.                                                   COMFSIM        4     A     
 COMFSIM  *                                                                                COMFSIM        5     A     
 COMFSIM  *         ENTRY  B5 _ CURRENT TURPLE.                                            COMFSIM        6     A     
 COMFSIM  *                                                                                COMFSIM        7     A     
 COMFSIM  *         EXIT   TO SUB.RET WITH                                                 COMFSIM        8     A     
 COMFSIM  *                X6 = ADDRESS OF SUBSKEL.                                        COMFSIM        9     A     
 COMFSIM  *                ("GPBUF"),("GPBUF"+1) = GP1,GP2                                 COMFSIM       10     A     
 COMFSIM  *                                                                                COMFSIM       11     A     
 COMFSIM  *         PRESERVES B4                                                           COMFSIM       12     A     
 COMFSIM  *                                                                                COMFSIM       13     A     
 COMFSIM  *         **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.             COMFSIM       14     A     
 COMFSIM  *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO              COMFSIM       15     A     
 COMFSIM  *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).              COMFSIM       16     A     
 COMFSIM  *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE              COMFSIM       17     A     
 COMFSIM  *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.            COMFSIM       18     A     
 COMFSIM  *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                         COMFSIM       19     A     
 COMFSIM                                                                                   COMFSIM       20     A     
 COMFSIM            SX6    =XV=IMV     *NORMAL* INTEGER MULTIPLY                           COMFSIM       21     A     
 COMFSIM            SA1    B5+B1                                                           COMFSIM       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSIM 
  
 COMFSIM            SA2    A1+B1                                                           COMFSIM       23     A     
 COMFSIM            BX7    X1                                                              COMFSIM       24     A     
 COMFSIM            BX4    X2                                                              COMFSIM       25     A     
 COMFSIM            LX1    59-"TP".SHRTP                                                   COMFSIM       26     A     
 COMFSIM            LX2    59-"TP".SHRTP                                                   COMFSIM       27     A     
 COMFSIM            BX3    X1+X2                                                           COMFSIM       28     A     
 COMFSIM            PL     X3,SUB.RET  IF NEITHER OPERAND SHORT CONSTANT                   COMFSIM       29     A     
 COMFSIM            MI     X2,IM1      IF OPERAND 2 IS SHORT CONSTANT                      COMFSIM       30     A     
 COMFSIM                                                                                   COMFSIM       31     A     
 COMFSIM  *         SWITCH OP1/OP2                                                         COMFSIM       32     A     
 COMFSIM                                                                                   COMFSIM       33     A     
 COMFSIM            BX0    X7                                                              COMFSIM       34     A     
 COMFSIM            SA7    A2                                                              COMFSIM       35     A     
 COMFSIM            BX7    X4                                                              COMFSIM       36     A     
 COMFSIM            SA7    A1                                                              COMFSIM       37     A     
 COMFSIM            BX4    X0                                                              COMFSIM       38     A     
 COMFSIM                                                                                   COMFSIM       39     A     
 COMFSIM   IM1      LX4    -"TP"."BIAS"P                                                   COMFSIM       40     A     
 COMFSIM            SX4    X4                                                              COMFSIM       41     A     
 COMFSIM            SX3    B1                                                              COMFSIM       42     A     
 COMFSIM            IX1    X4-X3                                                           COMFSIM       43     A     
 COMFSIM            SB7    X4          SAVE MULTIPLIER                                     COMFSIM       44     A     
 COMFSIM            BX0    X4*X1                                                           COMFSIM       45     A     
 COMFSIM            BX2    X1                                                              COMFSIM       46     A     
 COMFSIM            AX2    17                                                              COMFSIM       47     A     
 COMFSIM            MI     X4,SUB.RET  IF CONSTANT LT 0                                    COMFSIM       48     A     
 COMFSIM            MI     X1,SUB.RET  IF CONSTANT LE 0                                    COMFSIM       49     A     
 COMFSIM            NZ     X0,IM2      IF NOT SIMPLE POWER OF 2                            COMFSIM       50     A     
 COMFSIM                                                                                   COMFSIM       51     A     
 COMFSIM  *         SET-UP SIMPLE POWER OF 2                                               COMFSIM       52     A     
 COMFSIM                                                                                   COMFSIM       53     A     
 COMFSIM            NX0    B7,X4                                                           COMFSIM       54     A     
 COMFSIM            SB7    B7-47       OFF BIAS                                            COMFSIM       55     A     
 COMFSIM            SB7    -B7         SHIFT CONSTANT.                                     COMFSIM       56     A     
 COMFSIM            BX4    X3                                                              COMFSIM       57     A     
 COMFSIM            SX0    B7          K                                                   COMFSIM       58     A     
 COMFSIM            EQ     B7,B1,IM6   IF POWER = 1                                        COMFSIM       59     A     
 COMFSIM            SX6    =XV=SHFC                                                        COMFSIM       60     A     
 COMFSIM            EQ     IMX2                                                            COMFSIM       61     A     
 COMFSIM                                                                                   COMFSIM       62     A     
 COMFSIM  *         NOT SIMPLE POWER OF *2*, CHECK IF SUM OF POWER OF *2*                  COMFSIM       63     A     
 COMFSIM                                                                                   COMFSIM       64     A     
 COMFSIM   IM2      IX2    X0-X3                                                           COMFSIM       65     A     
 COMFSIM            SB2    X0          SAVE K PORTION                                      COMFSIM       66     A     
 COMFSIM            BX0    X0*X2                                                           COMFSIM       67     A     
 COMFSIM            NZ     X0,IM3      IF NO SUM OF POWER OF 2                             COMFSIM       68     A     
 COMFSIM                                                                                   COMFSIM       69     A     
 COMFSIM  *         SET-UP SUM OF POWER OF 2                                               COMFSIM       70     A     
 COMFSIM                                                                                   COMFSIM       71     A     
 COMFSIM            SX2    B2          K   NUMBER                                          COMFSIM       72     A     
 COMFSIM            SX1    B7-B2       J   NUMBER                                          COMFSIM       73     A     
 COMFSIM            NX0    B2,X2                                                           COMFSIM       74     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSIM 
  
 COMFSIM            SB2    B2-47       -K  POWER                                           COMFSIM       75     A     
 COMFSIM            NX0    B7,X1       J NUMBER                                            COMFSIM       76     A     
 COMFSIM            SB2    -B2                                                             COMFSIM       77     A     
 COMFSIM            SB7    B7-47       -J  POWER                                           COMFSIM       78     A     
 COMFSIM            SX0    -B7         J   POWER                                           COMFSIM       79     A     
 COMFSIM            SX6    =XV=SHFS                                                        COMFSIM       80     A     
 COMFSIM            SX7    B2+B7       K POWER                                             COMFSIM       81     A     
 COMFSIM            NZ     X0,IMX1     IF J POWER NOT 0                                    COMFSIM       82     A     
 COMFSIM            SX0    X7          J = K                                               COMFSIM       83     A     
 COMFSIM            SX6    =XV=SHFS1                                                       COMFSIM       84     A     
 COMFSIM            EQ     IMX1                                                            COMFSIM       85     A     
 COMFSIM                                                                                   COMFSIM       86     A     
 COMFSIM  *         NOT SUM OF POWER OF *2*, CHECK IF DIFFERENCE OF POWER OF *2*           COMFSIM       87     A     
 COMFSIM                                                                                   COMFSIM       88     A     
 COMFSIM   IM3      BX7    X4+X1                                                           COMFSIM       89     A     
 COMFSIM            IX0    X7+X3                                                           COMFSIM       90     A     
 COMFSIM            BX2    X0*X7                                                           COMFSIM       91     A     
 COMFSIM            NZ     X2,SUB.RET  IF NOT DIFFERENCE OF POWER OF *2*                   COMFSIM       92     A     
 COMFSIM            BX2    X4-X1       2**J+1 - 1                                          COMFSIM       93     A     
 COMFSIM                                                                                   COMFSIM       94     A     
 COMFSIM  *         SET-UP DIFFERENCE OF POWER OF 2                                        COMFSIM       95     A     
 COMFSIM                                                                                   COMFSIM       96     A     
 COMFSIM            NX1    B2,X2                                                           COMFSIM       97     A     
 COMFSIM            SB2    B2-47                                                           COMFSIM       98     A     
 COMFSIM            SX1    B7                                                              COMFSIM       99     A     
 COMFSIM            SX0    -B2         J   POWER                                           COMFSIM      100     A     
 COMFSIM            NX7    B7,X1       K+J POWER                                           COMFSIM      101     A     
 COMFSIM            SB7    B7-48                                                           COMFSIM      102     A     
 COMFSIM            SX7    -B7                                                             COMFSIM      103     A     
 COMFSIM            SX6    =XV=SHFD                                                        COMFSIM      104     A     
 COMFSIM            NZ     X0,IMX1     IF J POWER NOT ZERO                                 COMFSIM      105     A     
 COMFSIM            SX0    X7          J = K                                               COMFSIM      106     A     
 COMFSIM            SX6    =XV=SHFD1                                                       COMFSIM      107     A     
 COMFSIM                                                                                   COMFSIM      108     A     
 COMFSIM   IMX1     MX1    1                                                               COMFSIM      109     A     
 COMFSIM            LX7    "TP"."BIAS"P                                                    COMFSIM      110     A     
 COMFSIM            LX1    1+"TP".SHRTP                                                    COMFSIM      111     A     
 COMFSIM            BX7    X1+X7                                                           COMFSIM      112     A     
 COMFSIM            SA7    "GPBUF"+1                                                       COMFSIM      113     A     
 COMFSIM                                                                                   COMFSIM      114     A     
 COMFSIM   IMX2     MX1    1                                                               COMFSIM      115     A     
 COMFSIM            LX0    "TP"."BIAS"P                                                    COMFSIM      116     A     
 COMFSIM            LX1    1+"TP".SHRTP                                                    COMFSIM      117     A     
 COMFSIM            BX7    X1+X0                                                           COMFSIM      118     A     
 COMFSIM            SA7    "GPBUF"                                                         COMFSIM      119     A     
 COMFSIM            EQ     SUB.RET                                                         COMFSIM      120     A     
 COMFSIM                                                                                   COMFSIM      121     A     
 COMFSIM   IM6      SX6    =XV=IM2                                                         COMFSIM      122     A     
 COMFSIM            EQ     SUB.RET                                                         COMFSIM      123     A     
 COMFSIM            ENDX                                                                   COMFSIM      124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 183    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSIM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSIM                    124       124
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  *COMDECK  COMFSKL - FRONT END SKELETON FORMATTER.                                COMFSKL        1     A     
 COMFSKL            CTEXT  COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                    COMFSKL        2     A     
 COMFSKL                                                                                   COMFSKL        3     A     
 COMFSKL                                                                                   COMFSKL        4     A     
 COMFSKL   DEFINS   SPACE  4,10                                                            COMFSKL        5     A     
 COMFSKL  **        DEFINS  -  DEFINE INSTRUCTION.                                         COMFSKL        6     A     
 COMFSKL  *                                                                                COMFSKL        7     A     
 COMFSKL  * INST    DEFINS OPC,TYPE                                                        COMFSKL        8     A     
 COMFSKL  *                                                                                COMFSKL        9     A     
 COMFSKL  *         INST   = INSTRUCTION MNEMONIC.                                         COMFSKL       10     A     
 COMFSKL  *         OPC    = OPCODE.                                                       COMFSKL       11     A     
 COMFSKL  *         TYPE   = INSTRUCTION TYPE, (SEE TYPE DEFINITION).                      COMFSKL       12     A     
 COMFSKL  *                                                                                COMFSKL       13     A     
 COMFSKL  *         DEFINES A MACRO OF NAME "INST" WHICH UTILIZES *FORM*                   COMFSKL       14     A     
 COMFSKL  *         TO CREATE A SKELETON ELEMENT.                                          COMFSKL       15     A     
 COMFSKL                                                                                   COMFSKL       16     A     
 COMFSKL                                                                                   COMFSKL       17     A     
 COMFSKL            MACRO  DEFINS,INST,OPC,TYPE                                            COMFSKL       18     A     
 COMFSKL   B        MICRO                                                                  COMFSKL       19     A     
 COMFSKL   A        MICRO  1,, BS9                                                         COMFSKL       20     A     
 COMFSKL            IFEQ   TYPE,M.BRAN,2                                                   COMFSKL       21     A     
 COMFSKL   B        MICRO  2,1,/OPC/                                                       COMFSKL       22     A     
 COMFSKL   A        MICRO  1,, BS6                                                         COMFSKL       23     A     
 COMFSKL   INST     EQU    OPC"A"                                                          COMFSKL       24     A     
 COMFSKL  *                                                                                COMFSKL       25     A     
 COMFSKL            MACRO  INST,AD,I,J,K                                                   COMFSKL       26     A     
 COMFSKL                                                                                   COMFSKL       27     A     
 COMFSKL  *         SUPPRESS CONREDUCTION OF SKEL USING NON-ARITH INSTR.                   COMFSKL       28     A     
 COMFSKL                                                                                   COMFSKL       29     A     
 COMFSKL            IFC    EQ,/TYPE/M.INCR/,1                                              COMFSKL       30     A     
 COMFSKL            SKIP   3                                                               COMFSKL       31     A     
 COMFSKL            IFC    EQ,/TYPE/M.BRAN/,1                                              COMFSKL       32     A     
 COMFSKL            SKIP   1                                                               COMFSKL       33     A     
 COMFSKL            IFC    EQ,/TYPE/M.LOAD/,1                                              COMFSKL       34     A     
 COMFSKL   U="STEM" SET    0                                                               COMFSKL       35     A     
 COMFSKL            FORM   (I,J,K),INST,TYPE,AD                                            COMFSKL       36     A     
 COMFSKL   INST     ENDM                                                                   COMFSKL       37     A     
 COMFSKL  *                                                                                COMFSKL       38     A     
 COMFSKL            IFC    EQ,/"B"/3/,5                                                    COMFSKL       39     A     
 COMFSKL   INST.    OPSYN  INST                                                            COMFSKL       40     A     
 COMFSKL            PURGMAC INST                                                           COMFSKL       41     A     
 COMFSKL            MACRO  INST,AD,I,J                                                     COMFSKL       42     A     
 COMFSKL   AD       INST.  0,I,J                                                           COMFSKL       43     A     
 COMFSKL   INST     ENDM                                                                   COMFSKL       44     A     
 COMFSKL   DEFINS   ENDM                                                                   COMFSKL       45     A     
 COMFSKL   FORM     SPACE  4,10                                                            COMFSKL       46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  **        FORM  -  FORM INSTRUCTION SKELETON ELEMENT.                            COMFSKL       47     A     
 COMFSKL  *                                                                                COMFSKL       48     A     
 COMFSKL  *         IJK    = I,J,K PORTIONS OF INSTRUCTION BOUNDED BY                      COMFSKL       49     A     
 COMFSKL  *                  PARENTHESES.                                                  COMFSKL       50     A     
 COMFSKL  *         OPCODE = OPCODE.                                                       COMFSKL       51     A     
 COMFSKL  *         TYPE   = INSTRUCTION TYPE, (SEE TYPE DEFINITION).                      COMFSKL       52     A     
 COMFSKL  *                                                                                COMFSKL       53     A     
 COMFSKL  *         THIS IS THE MAIN MACRO FOR SKELETON CONSTRUCTION.                      COMFSKL       54     A     
 COMFSKL  *         EACH MACRO CREATED BY *DEFINS* AND *DEFUJP* INCLUDES                   COMFSKL       55     A     
 COMFSKL  *         A CALL TO *FORM*. THE SECOND AND THIRD PARAMETERS TO                   COMFSKL       56     A     
 COMFSKL  *         *FORM* (OPCODE AND TYPE) ARE TAKEN FROM THE *DEFINS*                   COMFSKL       57     A     
 COMFSKL  *         OR *DEFUJP* MACRO EXPANSION THAT DEFINED THE MACRO                     COMFSKL       58     A     
 COMFSKL  *         NAMED WITH THE OPCODE MNEMONIC IN THE LOCATION FIELD                   COMFSKL       59     A     
 COMFSKL  *         OF THE CALL. THE *IJK* PARAMETER IS SUPPLIED TO *FORM* AS              COMFSKL       60     A     
 COMFSKL  *         THE THREE PARAMETERS OF THE MACRO WHOSE NAME IS THIS                   COMFSKL       61     A     
 COMFSKL  *         MNEMONIC. THE MACRO FLOW PROCEEDS TOWARD THE FORMATION                 COMFSKL       62     A     
 COMFSKL  *         OF THREE MICROS "H", "L" AND "Q"..                                     COMFSKL       63     A     
 COMFSKL  *                                                                                COMFSKL       64     A     
 COMFSKL  *         "H"    = INSTRUCTION TYPE AND OPCODE.                                  COMFSKL       65     A     
 COMFSKL  *         "L"    = 3*(CONSTANT, AT. INDEX), 1 EACH FOR I, J QND K.               COMFSKL       66     A     
 COMFSKL  *         "Q"    = SET IF 12 BIT Q FIELD PRESENT.                                COMFSKL       67     A     
 COMFSKL  *                                                                                COMFSKL       68     A     
 COMFSKL  *         INSTRUCTION SKELETON ELEMENT FORMAT CREATED BY A CALL                  COMFSKL       69     A     
 COMFSKL  *         TO *FORM* IS..                                                         COMFSKL       70     A     
 COMFSKL  *                                                                                COMFSKL       71     A     
 COMFSKL  *         + <-------------------- SK. STRUCTURE ---------------------> +         COMFSKL       72     A     
 COMFSKL  *         +                                                            +         COMFSKL       73     A     
 COMFSKL  *         +              + <----- SR. STRUCTURES -------> +            +         COMFSKL       74     A     
 COMFSKL  *         +              +                                +            +         COMFSKL       75     A     
 COMFSKL  *         +-----+--------+----------+----------+----------+------------+         COMFSKL       76     A     
 COMFSKL  *         + TYP + OPCODE +    I     +    J     +    K     +     Q      +         COMFSKL       77     A     
 COMFSKL  *         +     +        +----+-----+----+-----+----+-----+            +         COMFSKL       78     A     
 COMFSKL  *         +     +        +ADDR+ NUM +ADDR+ NUM +ADDR+ NUM +            +         COMFSKL       79     A     
 COMFSKL  *         +-----+--------+----+-----+----+-----+----+-----+------------+         COMFSKL       80     A     
 COMFSKL  *            6      9      5     6     5    6     5    6       12                COMFSKL       81     A     
 COMFSKL  *                                                                                COMFSKL       82     A     
 COMFSKL  *         *ADDR* IS THE AT. INDEX REFERRED TO ABOVE.                             COMFSKL       83     A     
 COMFSKL                                                                                   COMFSKL       84     A     
 COMFSKL                                                                                   COMFSKL       85     A     
 COMFSKL   FORM1 MACRO OC,TYPE,AD                                                          COMFSKL       86     A     
 COMFSKL    VFD "H""L""Q"                                                                  COMFSKL       87     A     
 COMFSKL   AD BSS 0                                                                        COMFSKL       88     A     
 COMFSKL   L MICRO                                                                         COMFSKL       89     A     
 COMFSKL   Q MICRO 1,,$,12/0$                                                              COMFSKL       90     A     
 COMFSKL   X SET TYPE                                                                      COMFSKL       91     A     
 COMFSKL   H MICRO 1,,$6/X,9/OC/64$                                                        COMFSKL       92     A     
 COMFSKL    ENDM                                                                           COMFSKL       93     A     
 COMFSKL                                                                                   COMFSKL       94     A     
 COMFSKL                                                                                   COMFSKL       95     A     
 COMFSKL   FORM     MACRO  IJK,OC,TYPE,AD                                                  COMFSKL       96     A     
 COMFSKL   RM       RMT                                                                    COMFSKL       97     A     
 COMFSKL    FORM1 OC,TYPE,AD                                                               COMFSKL       98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL   RM       RMT                                                                    COMFSKL       99     A     
 COMFSKL  .1        IRP    IJK                                                             COMFSKL      100     A     
 COMFSKL            IFC    EQ,  IJK ,4                                                     COMFSKL      101     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      102     A     
 COMFSKL            SETCON 0                                                               COMFSKL      103     A     
 COMFSKL            RMT                                                                    COMFSKL      104     A     
 COMFSKL            SKIP   6                                                               COMFSKL      105     A     
 COMFSKL            IFC    LT, IJK 0 ,2      IF PARAMETER IS A LETTER                      COMFSKL      106     A     
 COMFSKL            SETOTH IJK                                                             COMFSKL      107     A     
 COMFSKL            SKIP   3                                                               COMFSKL      108     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      109     A     
 COMFSKL            SETCON IJK                                                             COMFSKL      110     A     
 COMFSKL            RMT                                                                    COMFSKL      111     A     
 COMFSKL  .1        IRP                                                                    COMFSKL      112     A     
 COMFSKL   SKELAD   SET    SKELAD+1                                                        COMFSKL      113     A     
 COMFSKL   FORM     ENDM                                                                   COMFSKL      114     A     
 COMFSKL   SETCON   SPACE  4,10                                                            COMFSKL      115     A     
 COMFSKL  **        SETCON  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR                  COMFSKL      116     A     
 COMFSKL  *                  A CONSTANT.                                                   COMFSKL      117     A     
 COMFSKL  *                                                                                COMFSKL      118     A     
 COMFSKL  *         *SETCON* WILL SET THE I,J OR K NUM FIELD IF THE PARAMETER              COMFSKL      119     A     
 COMFSKL  *         (I,J ORK) PASSED IS NOT PRECEEDED BY A PLUS OR MINUS                   COMFSKL      120     A     
 COMFSKL  *         SIGN, NO LENGTH CHECKS ARE MADE. IF THE CONSTANT IS                    COMFSKL      121     A     
 COMFSKL  *         SIGNED IT INDICATES AN 18 BIT CONSTANT, *SETCON* WILL                  COMFSKL      122     A     
 COMFSKL  *         PUT THE LOWER 12 BITS IN THE Q FIELD, THUS REDEFINING                  COMFSKL      123     A     
 COMFSKL  *         IT, AND THE UPPER 6 BITS IN THE RELATIVE NUM FIELD. A                  COMFSKL      124     A     
 COMFSKL  *         GIVEN CONSTANT CAN BE THUS PLACED IN THE Q FIELD BY                    COMFSKL      125     A     
 COMFSKL  *         PRECEEDING IT WITH A + OR - SIGN. ]HE ADDR FIELD                       COMFSKL      126     A     
 COMFSKL  *         DEFINED, TO AT.Q0.                                                     COMFSKL      127     A     
 COMFSKL                                                                                   COMFSKL      128     A     
 COMFSKL                                                                                   COMFSKL      129     A     
 COMFSKL   SETCON   MACRO  IJK                                                             COMFSKL      130     A     
 COMFSKL  .1        IFC    LT, IJK +                                                       COMFSKL      131     A     
 COMFSKL  *                                                                                COMFSKL      132     A     
 COMFSKL  *         HERE IF UNSIGNED CONSTANT.                                             COMFSKL      133     A     
 COMFSKL  *                                                                                COMFSKL      134     A     
 COMFSKL   L        MICRO  1,,$"L",5/AT.K0,6/IJK$                                          COMFSKL      135     A     
 COMFSKL  .1        ELSE                                                                   COMFSKL      136     A     
 COMFSKL  *                                                                                COMFSKL      137     A     
 COMFSKL  *         FOR SIGNED CONSTANTS OR ADDRESS REFERENCES,                            COMFSKL      138     A     
 COMFSKL  *         SET THE 18 BIT Q-FIELD.                                                COMFSKL      139     A     
 COMFSKL  *                                                                                COMFSKL      140     A     
 COMFSKL   U="STEM" SET    0                                                               COMFSKL      141     A     
 COMFSKL            IFC    GE,/IJK/=/,2                                                    COMFSKL      142     A     
 COMFSKL   L        MICRO  1,,$"L",SR.OADL/AT.S0$                                          COMFSKL      143     A     
 COMFSKL            SKIP   1                                                               COMFSKL      144     A     
 COMFSKL   L        MICRO  1,,$"L",SR.OADL/AT.Q0$                                          COMFSKL      145     A     
 COMFSKL   Q        MICRO  1,,$,SK.JPADL/IJK$                                              COMFSKL      146     A     
 COMFSKL  .1        ENDIF                                                                  COMFSKL      147     A     
 COMFSKL   SETCON   ENDM                                                                   COMFSKL      148     A     
 COMFSKL   SETOTH   SPACE  4,10                                                            COMFSKL      149     A     
 COMFSKL  **        SETOTH  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR                  COMFSKL      150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  *                  A NON-CONSTANT.                                               COMFSKL      151     A     
 COMFSKL  *                                                                                COMFSKL      152     A     
 COMFSKL  *         *SETOTH* WILL SET THE NUM FIELD (I,J OR K) TO A CONSTANT               COMFSKL      153     A     
 COMFSKL  *         OBTAINED FROM THE T. MICRO TABLE, THE ADDR FIELD WILL                  COMFSKL      154     A     
 COMFSKL  *         BE SET TO POINT TO THE AT. TABLE ENTRY WHICH WILL CONTAIN              COMFSKL      155     A     
 COMFSKL  *         THE ADDRESS OF THE CODE IN *GEN* THAT PROCESSES THIS                   COMFSKL      156     A     
 COMFSKL  *         TYPE OF I,J OR K PARAMETER. THE TYPE OF CONSTANT SET IN                COMFSKL      157     A     
 COMFSKL  *         THE NUM FIELD IS ALSO DETERMINED FROM THE I,J OR K                     COMFSKL      158     A     
 COMFSKL  *         PARAMETER.                                                             COMFSKL      159     A     
 COMFSKL                                                                                   COMFSKL      160     A     
 COMFSKL                                                                                   COMFSKL      161     A     
 COMFSKL   SETOTH   MACRO  IJK                                                             COMFSKL      162     A     
 COMFSKL                                                                                   COMFSKL      163     A     
 COMFSKL  *         SUPPRESS CONREDUCTION IF UNPROCESSABLE OPERAND.                        COMFSKL      164     A     
 COMFSKL                                                                                   COMFSKL      165     A     
 COMFSKL            IF     -DEF,IJK.C,1                                                    COMFSKL      166     A     
 COMFSKL   U="STEM" SET    0                                                               COMFSKL      167     A     
 COMFSKL   IJK=     SET    IJK=+1                                                          COMFSKL      168     A     
 COMFSKL   RM RMT                                                                          COMFSKL      169     A     
 COMFSKL      SETOTH1 IJK                                                                  COMFSKL      170     A     
 COMFSKL      RMT                                                                          COMFSKL      171     A     
 COMFSKL      ENDM                                                                         COMFSKL      172     A     
 COMFSKL                                                                                   COMFSKL      173     A     
 COMFSKL                                                                                   COMFSKL      174     A     
 COMFSKL   SETOTH1 MACRO IJK                                                               COMFSKL      175     A     
 COMFSKL   IJK=  SET  IJK=-1                                                               COMFSKL      176     A     
 COMFSKL         IFNE IJK=                                                                 COMFSKL      177     A     
 COMFSKL   L MICRO 1,,$"L",5/AT.IJK,6/IJK.$                                                COMFSKL      178     A     
 COMFSKL         ELSE                                                                      COMFSKL      179     A     
 COMFSKL   L MICRO 1,,$"L",5/ZT.IJK,6/IJK.$                                                COMFSKL      180     A     
 COMFSKL         ENDIF                                                                     COMFSKL      181     A     
 COMFSKL         ENDM                                                                      COMFSKL      182     A     
 COMFSKL   DEFPO    SPACE  4,10                                                            COMFSKL      183     A     
 COMFSKL  **        DEFPO - DEFINE PSUEDO OPCODE.                                          COMFSKL      184     A     
 COMFSKL  *                                                                                COMFSKL      185     A     
 COMFSKL  * INST    DEFPO  PSN                                                             COMFSKL      186     A     
 COMFSKL  *                                                                                COMFSKL      187     A     
 COMFSKL  *         INST   = INSTRUCTION MNEMONIC.                                         COMFSKL      188     A     
 COMFSKL  *         PSN    = PSUEDO OP VALUE (FROM FTNTEXT).                               COMFSKL      189     A     
 COMFSKL  *                                                                                COMFSKL      190     A     
 COMFSKL  *         DEFINES A MACRO OF NAME *INST* WHICH UTILIZES *FORM*                   COMFSKL      191     A     
 COMFSKL  *         TO CREATE AN PSUEDO OPCODE SKELETON ELEMENT.                           COMFSKL      192     A     
 COMFSKL  *         THE *TYPE* IS ALWAYS SET TO *M.BRAN*.                                  COMFSKL      193     A     
 COMFSKL  *                                                                                COMFSKL      194     A     
 COMFSKL  *         NOTE THAT THE GENERATED *INST* MACRO HAS ONLY A SINGLE                 COMFSKL      195     A     
 COMFSKL  *         PARAMETER (FOR *K*).  THIS IS BECAUSE THE *I* AND *J*                  COMFSKL      196     A     
 COMFSKL  *         FIELDS ARE SET TO DETERMINE THE OPCODE VALUE.                          COMFSKL      197     A     
 COMFSKL                                                                                   COMFSKL      198     A     
 COMFSKL                                                                                   COMFSKL      199     A     
 COMFSKL            MACRO  DEFPO,INST,PSN                                                  COMFSKL      200     A     
 COMFSKL            LOCAL  JDIG                                                            COMFSKL      201     A     
 COMFSKL   JDIG     EQU    PSN-PSN/1S3*1S3                                                 COMFSKL      202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL            MACRO  INST,AD,Q                                                       COMFSKL      203     A     
 COMFSKL            FORM   (0,0+JDIG,Q),PSN*1S3,M.BRAN,AD                                  COMFSKL      204     A     
 COMFSKL   INST     ENDM                                                                   COMFSKL      205     A     
 COMFSKL   DEFPO    ENDM                                                                   COMFSKL      206     A     
 COMFSKL   ENDF     SPACE  4,10                                                            COMFSKL      207     A     
 COMFSKL  **        ENDF - FLUSH LAST SKELETON WORD.                                       COMFSKL      208     A     
 COMFSKL  *                                                                                COMFSKL      209     A     
 COMFSKL  *         MICROS "H","L" AND "Q" SET TO NUL STRINGS AFTER FLUSHING               COMFSKL      210     A     
 COMFSKL  *         TO CORE.                                                               COMFSKL      211     A     
 COMFSKL                                                                                   COMFSKL      212     A     
 COMFSKL                                                                                   COMFSKL      213     A     
 COMFSKL   ENDF     MACRO                                                                  COMFSKL      214     A     
 COMFSKL   RM       HERE                                                                   COMFSKL      215     A     
 COMFSKL            VFD    "H""L""Q"                                                       COMFSKL      216     A     
 COMFSKL   H        MICRO                                                                  COMFSKL      217     A     
 COMFSKL   L        MICRO                                                                  COMFSKL      218     A     
 COMFSKL   Q        MICRO                                                                  COMFSKL      219     A     
 COMFSKL   ENDF     ENDM                                                                   COMFSKL      220     A     
 COMFSKL            SPACE  4,10                                                            COMFSKL      221     A     
 COMFSKL  **        ENDS - END MACRO SKELETON.                                             COMFSKL      222     A     
 COMFSKL  *                                                                                COMFSKL      223     A     
 COMFSKL  *         *ENDS* IS IDENTICAL TO *ENDF* EXCEPT THE END SKELETON                  COMFSKL      224     A     
 COMFSKL  *         FLAG (BIT 59) IS SET IN THE SKELETON ELEMENT BEFORE                    COMFSKL      225     A     
 COMFSKL  *         FLUSHING.                                                              COMFSKL      226     A     
 COMFSKL                                                                                   COMFSKL      227     A     
 COMFSKL                                                                                   COMFSKL      228     A     
 COMFSKL   ENDS     MACRO                                                                  COMFSKL      229     A     
 COMFSKL   RM       HERE                                                                   COMFSKL      230     A     
 COMFSKL   X        SET    X+M.IEND                                                        COMFSKL      231     A     
 COMFSKL            VFD    "H""L""Q"                                                       COMFSKL      232     A     
 COMFSKL   H        MICRO                                                                  COMFSKL      233     A     
 COMFSKL   L        MICRO                                                                  COMFSKL      234     A     
 COMFSKL   Q        MICRO                                                                  COMFSKL      235     A     
 COMFSKL   ENDS     ENDM                                                                   COMFSKL      236     A     
 COMFSKL            SPACE  4,10                                                            COMFSKL      237     A     
 COMFSKL  **        SETSPC  -  SET SPECIAL SKELETON.                                       COMFSKL      238     A     
 COMFSKL  *                                                                                COMFSKL      239     A     
 COMFSKL  *         USED BY *CALL*, *RESET* AND *USESKL*, TO SET UP POINTERS               COMFSKL      240     A     
 COMFSKL  *         TO SPECIAL CODE THAT MUST BE EXECUTED AT THIS POINT IN                 COMFSKL      241     A     
 COMFSKL  *         THE CURRENT SKELETON EXPANSION.                                        COMFSKL      242     A     
 COMFSKL                                                                                   COMFSKL      243     A     
 COMFSKL                                                                                   COMFSKL      244     A     
 COMFSKL   SETSPC   MACRO  TYPE,AD,ARG                                                     COMFSKL      245     A     
 COMFSKL            VFD    "H""L""Q"                                                       COMFSKL      246     A     
 COMFSKL   H        MICRO  1,,$SK.TYPL/X,SK.ATTRL/0,SK.ARGL/ARG,SK.JPADL/AD$               COMFSKL      247     A     
 COMFSKL   X        SET    TYPE                                                            COMFSKL      248     A     
 COMFSKL   L        MICRO                                                                  COMFSKL      249     A     
 COMFSKL   Q        MICRO                                                                  COMFSKL      250     A     
 COMFSKL   SKELAD   SET    SKELAD+1                                                        COMFSKL      251     A     
 COMFSKL   SETSPC   ENDM                                                                   COMFSKL      252     A     
 COMFSKL            SPACE  4,10                                                            COMFSKL      253     A     
 COMFSKL  **        RESET  -  RESET CURRENT SKELETON POINTER.                              COMFSKL      254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  *                                                                                COMFSKL      255     A     
 COMFSKL  *         RESET *ARG* WORDS TO FIND NEXT TURPLE.                                 COMFSKL      256     A     
 COMFSKL                                                                                   COMFSKL      257     A     
 COMFSKL                                                                                   COMFSKL      258     A     
 COMFSKL   RESET    MACRO  TO,ARG                                                          COMFSKL      259     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      260     A     
 COMFSKL            SETSPC M.ISBRN,-TO,ARG                                                 COMFSKL      261     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      262     A     
 COMFSKL   RESET    ENDM                                                                   COMFSKL      263     A     
 COMFSKL            SPACE  4,10                                                            COMFSKL      264     A     
 COMFSKL  **        BRANCH  -  CONTINUE SKELETON ELSEWHERE.                                COMFSKL      265     A     
 COMFSKL  *                                                                                COMFSKL      266     A     
 COMFSKL  *         SKELETON POINTER RESET TO WITHIN OTHER SKELETON.                       COMFSKL      267     A     
 COMFSKL                                                                                   COMFSKL      268     A     
 COMFSKL                                                                                   COMFSKL      269     A     
 COMFSKL   BRANCH   MACRO  TO,IJK                                                          COMFSKL      270     A     
 COMFSKL            IRP    IJK                                                             COMFSKL      271     A     
 COMFSKL   IJK=     SET    IJK=+1                                                          COMFSKL      272     A     
 COMFSKL            IRP                                                                    COMFSKL      273     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      274     A     
 COMFSKL            IRP    IJK                                                             COMFSKL      275     A     
 COMFSKL   IJK=     SET    IJK=-1                                                          COMFSKL      276     A     
 COMFSKL            IRP                                                                    COMFSKL      277     A     
 COMFSKL            IFC    LT,/TO/=/,2                                                     COMFSKL      278     A     
 COMFSKL            SETSPC M.ISBRN,TO                                                      COMFSKL      279     A     
 COMFSKL            SKIP   1                                                               COMFSKL      280     A     
 COMFSKL            SETSPC M.IRST,TO                                                       COMFSKL      281     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      282     A     
 COMFSKL   BRANCH   ENDM                                                                   COMFSKL      283     A     
 COMFSKL   MICNAM   SPACE  4,10                                                            COMFSKL      284     A     
 COMFSKL  **        MICNAM - GENERATE MICRO OF SKELETON NAME.                              COMFSKL      285     A     
 COMFSKL  *                                                                                COMFSKL      286     A     
 COMFSKL  *         GENERATED NAME IS --                                                   COMFSKL      287     A     
 COMFSKL  *         A.  TRUNCATED TO FIVE CHARACTERS.                                      COMFSKL      288     A     
 COMFSKL  *         B.  PREFIX 'IF' IS REMOVED FROM IF SKELS.                              COMFSKL      289     A     
 COMFSKL  *         C.  RULE (B.) DOES NOT APPLY TO 'IFIX'.                                COMFSKL      290     A     
 COMFSKL                                                                                   COMFSKL      291     A     
 COMFSKL                                                                                   COMFSKL      292     A     
 COMFSKL            MACRO  MICNAM,MIC,NAME                                                 COMFSKL      293     A     
 COMFSKL   MIC      MICRO  1,5,/NAME/                                                      COMFSKL      294     A     
 COMFSKL   .A       MICRO  1,2,/NAME/                                                      COMFSKL      295     A     
 COMFSKL            IFC    EQ,/".A"/IF/,2                                                  COMFSKL      296     A     
 COMFSKL            IFC    NE,/NAME/IFIX/,1                                                COMFSKL      297     A     
 COMFSKL   MIC      MICRO  3,,/NAME/                                                       COMFSKL      298     A     
 COMFSKL            ENDM                                                                   COMFSKL      299     A     
 COMFSKL            SPACE  4,10                                                            COMFSKL      300     A     
 COMFSKL   SKEL     SPACE  4,10                                                            COMFSKL      301     A     
 COMFSKL  **        SKEL - DECLARE BEGINNING OF A SKELETAL EXPANSION.                      COMFSKL      302     A     
 COMFSKL  *                                                                                COMFSKL      303     A     
 COMFSKL                                                                                   COMFSKL      304     A     
 COMFSKL                                                                                   COMFSKL      305     A     
 COMFSKL            MACRO  SKEL,NAME,CONPRO                                                COMFSKL      306     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL   STEM     MICNAM NAME                                                            COMFSKL      307     A     
 COMFSKL   U="STEM" SET    SKELAD                                                          COMFSKL      308     A     
 COMFSKL   W="STEM" EQU    SKELAD                                                          COMFSKL      309     A     
 COMFSKL   V="STEM" EQU    COUNT                                                           COMFSKL      310     A     
 COMFSKL   COUNT    SET    COUNT+1                                                         COMFSKL      311     A     
 COMFSKL   LBF      MICRO  1,8,/V="STEM"        /                                          COMFSKL      312     A     
 COMFSKL            IFC    EQ,/CONPRO//,2                                                  COMFSKL      313     A     
 COMFSKL   SCT RMT= ("LBF" VFD 6/0,18/W="STEM",18/=YD="STEM",18/U="STEM")                  COMFSKL      314     A     
 COMFSKL            SKIP   2                                                               COMFSKL      315     A     
 COMFSKL   CONPRO   MICNAM CONPRO                                                          COMFSKL      316     A     
 COMFSKL   SCT RMT= ("LBF" VFD 6/0,18/W="STEM",18/=YD="STEM",18/W="CONPRO")                COMFSKL      317     A     
 COMFSKL            ENTRY  V="STEM"                                                        COMFSKL      318     A     
 COMFSKL  *                            SET SKEL NAME TABLE IN TEST MODE                    COMFSKL      319     A     
 COMFSKL   .T       IFEQ   TEST,ON,3                                                       COMFSKL      320     A     
 COMFSKL            USE    /SKLNAM/                                                        COMFSKL      321     A     
 COMFSKL            DIS    1,V="STEM"                                                      COMFSKL      322     A     
 COMFSKL            USE    *                                                               COMFSKL      323     A     
 COMFSKL   SKEL     ENDM                                                                   COMFSKL      324     A     
 COMFSKL   SUBSKEL  SPACE  4,10                                                            COMFSKL      325     A     
 COMFSKL  **        SUBSKEL - DECLARE BEGINNING OF SUB-EXPANSION.                          COMFSKL      326     A     
 COMFSKL  *                                                                                COMFSKL      327     A     
 COMFSKL                                                                                   COMFSKL      328     A     
 COMFSKL                                                                                   COMFSKL      329     A     
 COMFSKL            MACRO  SUBSKEL,NAM                                                     COMFSKL      330     A     
 COMFSKL   STEM     MICNAM NAM                                                             COMFSKL      331     A     
 COMFSKL   W="STEM" EQU    SKELAD                                                          COMFSKL      332     A     
 COMFSKL            ENTRY  W="STEM"                                                        COMFSKL      333     A     
 COMFSKL            ENDM                                                                   COMFSKL      334     A     
 COMFSKL   SKEQU    SPACE  4,10                                                            COMFSKL      335     A     
 COMFSKL  **        SKEQU  -  EQUATE SKELETONS.                                            COMFSKL      336     A     
 COMFSKL                                                                                   COMFSKL      337     A     
 COMFSKL                                                                                   COMFSKL      338     A     
 COMFSKL            MACRO  SKEQU,NEW,OLD,NOENT                                             COMFSKL      339     A     
 COMFSKL   OSM      MICNAM OLD                                                             COMFSKL      340     A     
 COMFSKL   NSM      MICNAM NEW                                                             COMFSKL      341     A     
 COMFSKL   W="NSM"  EQU    W="OSM"                                                         COMFSKL      342     A     
 COMFSKL   VEQU     RMT=   (V="NSM"   EQU    V="OSM")                                      COMFSKL      343     A     
 COMFSKL  *                                                                                COMFSKL      344     A     
 COMFSKL            IFC    NE,/NOENT/-/,1                                                  COMFSKL      345     A     
 COMFSKL            ENTRY  V="NSM"                                                         COMFSKL      346     A     
 COMFSKL   SKEQU    ENDM                                                                   COMFSKL      347     A     
 COMFSKL   SUBEQU   SPACE  4,10                                                            COMFSKL      348     A     
 COMFSKL  **        SUBEQU - DEFINE EQUIVALENT PASS 2 SKELETON.                            COMFSKL      349     A     
 COMFSKL                                                                                   COMFSKL      350     A     
 COMFSKL                                                                                   COMFSKL      351     A     
 COMFSKL            MACRO  SUBEQU,NEW,OLD                                                  COMFSKL      352     A     
 COMFSKL   OSM      MICNAM OLD                                                             COMFSKL      353     A     
 COMFSKL   NSM      MICNAM NEW                                                             COMFSKL      354     A     
 COMFSKL   W="NSM"  EQUENT W="OSM"                                                         COMFSKL      355     A     
 COMFSKL            ENDM                                                                   COMFSKL      356     A     
 COMFSKL            SPACE  4,10                                                            COMFSKL      357     A     
 COMFSKL  **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY             COMFSKL      358     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  *                PROCESS CURRENT TURPLE.                                         COMFSKL      359     A     
 COMFSKL  *                                                                                COMFSKL      360     A     
 COMFSKL  *         NOTE - CONVENTIONS EXPECTED BY THE CALL *ARG* PERAMETER ARE:           COMFSKL      361     A     
 COMFSKL  *                SKOP GENERATED CONSTANTS APPEAR IN CALL CALLS AS IS,            COMFSKL      362     A     
 COMFSKL  *                OTHER COMPILER CONSTANTS ARE PRIFIXED BY 0+                     COMFSKL      363     A     
 COMFSKL  *                RELOCATABLES ARE PREFIXED WITH =X                               COMFSKL      364     A     
 COMFSKL                                                                                   COMFSKL      365     A     
 COMFSKL                                                                                   COMFSKL      366     A     
 COMFSKL            PURGMAC CALL                                                           COMFSKL      367     A     
 COMFSKL                                                                                   COMFSKL      368     A     
 COMFSKL   CALL     MACRO  TO,ARG                                                          COMFSKL      369     A     
 COMFSKL   U="STEM" SET    0                                                               COMFSKL      370     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      371     A     
 COMFSKL   .1       IFEQ   .CG,.OPT                                                        COMFSKL      372     A     
 COMFSKL            SETSPC M.ICALL,0,0                                                     COMFSKL      373     A     
 COMFSKL   .1       ELSE                                                                   COMFSKL      374     A     
 COMFSKL            IFC    NE, ARG  ,3                                                     COMFSKL      375     A     
 COMFSKL            IFC    LT, ARG 0 ,2                                                    COMFSKL      376     A     
 COMFSKL            SETSPC M.ICALL,=XO=TO,-ARG.                                            COMFSKL      377     A     
 COMFSKL            SKIP   1                                                               COMFSKL      378     A     
 COMFSKL            SETSPC M.ICALL,=XO=TO,ARG                                              COMFSKL      379     A     
 COMFSKL  .1        ENDIF                                                                  COMFSKL      380     A     
 COMFSKL   RM       RMT                                                                    COMFSKL      381     A     
 COMFSKL   CALL     ENDM                                                                   COMFSKL      382     A     
 COMFSKL                                                                                   COMFSKL      383     A     
 COMFSKL   CALLQ    SPACE  4,10                                                            COMFSKL      384     A     
 COMFSKL  **        CALLQ AND CALLC - TO AVOID CONDITIONAL CODE IN THE                     COMFSKL      385     A     
 COMFSKL  *         COMDECK SKEL THESE MACROS ARE DEFINED.                                 COMFSKL      386     A     
 COMFSKL                                                                                   COMFSKL      387     A     
 COMFSKL            IFEQ   .CG,.FAST,3                                                     COMFSKL      388     A     
 COMFSKL   CALLQ    OPSYN  CALL                                                            COMFSKL      389     A     
 COMFSKL   CALLC    OPSYN  NIL                                                             COMFSKL      390     A     
 COMFSKL            SKIP   2                                                               COMFSKL      391     A     
 COMFSKL   CALLC    OPSYN  CALL                                                            COMFSKL      392     A     
 COMFSKL   CALLQ    OPSYN  NIL                                                             COMFSKL      393     A     
 COMFSKL   MICMIC   SPACE  4,10                                                            COMFSKL      394     A     
 COMFSKL  **        MICMIC  -  GET MICRO OF A MICRO.                                       COMFSKL      395     A     
 COMFSKL  *                                                                                COMFSKL      396     A     
 COMFSKL  *         MIC = RESULTING MICRO.                                                 COMFSKL      397     A     
 COMFSKL  *         N   = STARTING CHARACTER POSITION.                                     COMFSKL      398     A     
 COMFSKL  *         CMIC= CURRENT MICRO.                                                   COMFSKL      399     A     
 COMFSKL                                                                                   COMFSKL      400     A     
 COMFSKL                                                                                   COMFSKL      401     A     
 COMFSKL            MACRO  MICMIC,MIC,N,CMIC                                               COMFSKL      402     A     
 COMFSKL   MIC      MICRO  N,,/"CMIC"/                                                     COMFSKL      403     A     
 COMFSKL   MICMIC   ENDM                                                                   COMFSKL      404     A     
 COMFSKL                                                                                   COMFSKL      405     A     
 COMFSKL  *         END OF MACROS.                                                         COMFSKL      406     A     
 COMFSKL   SKEL.    TITLE  TABLES AND EQUATES.                                             COMFSKL      407     A     
 COMFSKL   EQU.     OPSYN   EQU                                                            COMFSKL      408     A     
 COMFSKL            PURGMAC EQU                                                            COMFSKL      409     A     
 COMFSKL                                                                                   COMFSKL      410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL            MACRO  EQU,LOC,VAR                                                     COMFSKL      411     A     
 COMFSKL            NOREF   LOC                                                            COMFSKL      412     A     
 COMFSKL   LOC      EQU.    VAR                                                            COMFSKL      413     A     
 COMFSKL            ENDM                                                                   COMFSKL      414     A     
 COMFSKL                                                                                   COMFSKL      415     A     
 COMFSKL  *CALL     COMSEIS            SKELETON FORMAT FOR INSTRUCTIONS                    COMFSKL      416     A     
 COMFSKL                                                                                   COMFSKL      417     A     
 COMFSKL            PURGMAC EQU                                                            COMFSKL      418     A     
 COMFSKL   EQU      OPSYN   EQU.                                                           COMFSKL      419     A     
 COMFSKL                                                                                   COMFSKL      420     A     
 COMFSKL                                                                                   COMFSKL      421     A     
 COMFSKL  *         MICROS USED DURING SKELETON CONSTRUCTION TO DEFINE A                   COMFSKL      422     A     
 COMFSKL  *         PARTICULAR TYPE OF OPERATION, OPERAND OR CONSTANT.                     COMFSKL      423     A     
 COMFSKL                                                                                   COMFSKL      424     A     
 COMFSKL   N1       MICRO  1,, P2            IF-BRANCH 1ST LABEL                           COMFSKL      425     A     
 COMFSKL   N2       MICRO  1,, P3            IF-BRANCH 2ND LABEL                           COMFSKL      426     A     
 COMFSKL   N3       MICRO  1,, P4            IF-BRANCH 3RD LABEL                           COMFSKL      427     A     
 COMFSKL   K-1      MICRO  1,, +777776B      MINUS ONE                                     COMFSKL      428     A     
 COMFSKL   TBR      MICRO  1,, B6            TEMPORARY B-REGISTER                          COMFSKL      429     A     
 COMFSKL   IR       MICRO  1,, X6            DO INDEX REGISTER.                            COMFSKL      430     A     
 COMFSKL                                                                                   COMFSKL      431     A     
 COMFSKL  **        MUST DEFINE B0.,...,X7. MICROS.                                        COMFSKL      432     A     
 COMFSKL  *         EACH OF THESE MICROS JUST EQUALS THE REGISTER NUMBER                   COMFSKL      433     A     
 COMFSKL  *         X6. = 6, ETC.                                                          COMFSKL      434     A     
 COMFSKL                                                                                   COMFSKL      435     A     
 COMFSKL            NOREF  .RCON                                                           COMFSKL      436     A     
 COMFSKL   .RCON    SET    0                                                               COMFSKL      437     A     
 COMFSKL   .1       DUP    8                                                               COMFSKL      438     A     
 COMFSKL   RCON     DECMIC .RCON                                                           COMFSKL      439     A     
 COMFSKL   A_"RCON"_. MICRO    1,,/"RCON"/                                                 COMFSKL      440     A     
 COMFSKL   B_"RCON"_. MICRO    1,,/"RCON"/                                                 COMFSKL      441     A     
 COMFSKL   X_"RCON"_. MICRO    1,,/"RCON"/                                                 COMFSKL      442     A     
 COMFSKL   .RCON    SET    .RCON+1                                                         COMFSKL      443     A     
 COMFSKL   .1       ENDD                                                                   COMFSKL      444     A     
 COMFSKL   SKOP     SPACE  4,30                                                            COMFSKL      445     A     
 COMFSKL  **        INITIALIZE ASSEMBLER VALUES FOR SKELETON EXPANAION.                    COMFSKL      446     A     
 COMFSKL                                                                                   COMFSKL      447     A     
 COMFSKL  **        SKOP   - SKELETON OPERAND MACRO. SETS ASSEMBLY CONSTANTS               COMFSKL      448     A     
 COMFSKL  *                FOR IJK PARAMETERS OF THE INSTRUCTION MACROS.                   COMFSKL      449     A     
 COMFSKL  *                                                                                COMFSKL      450     A     
 COMFSKL  *         CONSTANTS SET:                                                         COMFSKL      451     A     
 COMFSKL  *                                                                                COMFSKL      452     A     
 COMFSKL  *         OP_N.  ALSO KNOWN AS IJK. IN SETOTH, IS SET BY SKOP.                   COMFSKL      453     A     
 COMFSKL  *                OP_N. IS USED TO SET THE SR.NUM FIELD. N STANDS                 COMFSKL      454     A     
 COMFSKL  *                FOR SOME INTEGER WHICH IS GIVEN BY THE MICRO Z                  COMFSKL      455     A     
 COMFSKL  *                WITHIN THE SKOP MACRO BODY.                                     COMFSKL      456     A     
 COMFSKL  *                EXAMPLE: SKOP DEFINES R1.,L1. AND L2. THESE VALUES              COMFSKL      457     A     
 COMFSKL  *                THEN FILL THE I,J,AND K SR.NUM FIELDS WHENEVER A                COMFSKL      458     A     
 COMFSKL  *                MACRO CALL LIKE - IS   R1,L1,L2 - OCCURS.                       COMFSKL      459     A     
 COMFSKL  *                                                                                COMFSKL      460     A     
 COMFSKL  *         OP_N=  AKA IJK=, IS INITIALIZED HERE TO ZERO. OP_N= IS                 COMFSKL      461     A     
 COMFSKL  *                THE COUNTER USED FOR LAST USE CALCULATIONS. N IS                COMFSKL      462     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  *                LIKE THE N FOR OP_N..                                           COMFSKL      463     A     
 COMFSKL  *                                                                                COMFSKL      464     A     
 COMFSKL  *         AT.OP_N AND ZT.OP_N                                                    COMFSKL      465     A     
 COMFSKL  *                                                                                COMFSKL      466     A     
 COMFSKL  *                AKA AT.IJK AND ZT.IJK, ARE SET HERE. THEY ARE                   COMFSKL      467     A     
 COMFSKL  *                EMPLOYED AS ORDINALS INTO THE MAIN EIS JUMP TABLE.              COMFSKL      468     A     
 COMFSKL  *                WHEN AN OPERAND IS NOT BEING USED FOR THE LAST                  COMFSKL      469     A     
 COMFSKL  *                TIME WITHIN A SKELETON, AT.OP_N IS THE ORDINAL.                 COMFSKL      470     A     
 COMFSKL  *                OTHERWISE ZT.OP_N IS USED.(N CHOSEN AS IN OP_N.)                COMFSKL      471     A     
 COMFSKL  *                                                                                COMFSKL      472     A     
 COMFSKL  *         THE PERAMETERS:                                                        COMFSKL      473     A     
 COMFSKL  *                                                                                COMFSKL      474     A     
 COMFSKL  *         OP     THE ROOT LETTER OR COMBINATION OF LETTERS USED AS               COMFSKL      475     A     
 COMFSKL  *                PERAMETES IN AN INSTRUCTION SKELETON.(AS IN L OF L1             COMFSKL      476     A     
 COMFSKL  *                AND L2 OR RU OF RU1,RU2). FOR CONSTANTS OR ADDRESS              COMFSKL      477     A     
 COMFSKL  *                REFERENCES OP NEVER ACTUALLY APPEARS IN THE IN-                 COMFSKL      478     A     
 COMFSKL  *                STRUCTION MACRO CALL. IN THESE CASES IT IS Q OR S.              COMFSKL      479     A     
 COMFSKL  *                                                                                COMFSKL      480     A     
 COMFSKL  *         LAST AND NOTLAST -                                                     COMFSKL      481     A     
 COMFSKL  *                                                                                COMFSKL      482     A     
 COMFSKL  *                THESE PARMS ARE USED TO DETERMINE IF THE                        COMFSKL      483     A     
 COMFSKL  *                ORDINALS ZT.OP_N AND AT.OP_N ARE GENERATED.                     COMFSKL      484     A     
 COMFSKL  *                                                                                COMFSKL      485     A     
 COMFSKL  *         FTYP   FUNCTION TYPE: A CENTRAL TASK OF SKOP IS TO                     COMFSKL      486     A     
 COMFSKL  *                DEFINE THE FUNCTION WHICH MAPS N INTO OP_N..                    COMFSKL      487     A     
 COMFSKL  *                THIS FUNCTION,IS ENTIRELY DITERMINED BY THE                     COMFSKL      488     A     
 COMFSKL  *                FOUR CONSTANTS:                                                 COMFSKL      489     A     
 COMFSKL  *                                                                                COMFSKL      490     A     
 COMFSKL  *                SKL.FTYP    SKOP DOMAIN LOWER LIMIT                             COMFSKL      491     A     
 COMFSKL  *                SKU.FTYP    SKOP DOMAIN UPPER LIMIT                             COMFSKL      492     A     
 COMFSKL  *                SKM.FTYP    INCREMENT MODULES(MOD)                              COMFSKL      493     A     
 COMFSKL  *                SKO.FTYP    SKOP RANGE OFFSET                                   COMFSKL      494     A     
 COMFSKL  *                                                                                COMFSKL      495     A     
 COMFSKL  *                ALL ARE CREATED BY SKPSET. OUR FUNCTION MAPS                    COMFSKL      496     A     
 COMFSKL  *                THE SET (SKL.FTYP,SKL.FTYP+1,...,SKU.FTYP)INTO A RANGE          COMFSKL      497     A     
 COMFSKL  *                BOUNDED BELOW BY SKL.FTYP-SKO.FTYP. IT IS THE INTEGER           COMFSKL      498     A     
 COMFSKL  *                FUNCTION GIVEN RECURSIVELY BY:                                  COMFSKL      499     A     
 COMFSKL  *                                                                                COMFSKL      500     A     
 COMFSKL  *                OP_N. = OP_N-1. + MAX(SKM.FTYP,1) ... SKM.FTYP.GE.0             COMFSKL      501     A     
 COMFSKL  *                OP_N. = OP_N-1. + 1 + SWITCH(N)   ... SKM.FTYP.LT.0             COMFSKL      502     A     
 COMFSKL  *                                                                                COMFSKL      503     A     
 COMFSKL  *                WHERE OP_SKL.FTYP-1.=SKL.FTYP+SKO.FTYP-MAX(SKM.FTYP,1)          COMFSKL      504     A     
 COMFSKL  *                      SWITCH(N)=1 IF N=0 MOD(SKM.FTYP) AND 0 OTHERWISE          COMFSKL      505     A     
 COMFSKL  *                                                                                COMFSKL      506     A     
 COMFSKL  *                                                                                COMFSKL      507     A     
 COMFSKL  *         OPEQ   SIGNALS SKOP TO SET AT.OP_N AND/OR ZT.OP_N                      COMFSKL      508     A     
 COMFSKL  *                EQUAL TO AT.OPEQ_N AND/OR ZT.OPEQ_N RESP.                       COMFSKL      509     A     
 COMFSKL  *                                                                                COMFSKL      510     A     
 COMFSKL  *         WARNING REMEMBER TO DEFINE AT.OPEQ_N AND ZT.OPEQ_N                     COMFSKL      511     A     
 COMFSKL  *         FIRST. ALSO, THE SKOP CALL STRUCTURES MUST BE THE SAME                 COMFSKL      512     A     
 COMFSKL                                                                                   COMFSKL      513     A     
 COMFSKL                                                                                   COMFSKL      514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL            MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ,CON                              COMFSKL      515     A     
 COMFSKL   C        SET    1                                                               COMFSKL      516     A     
 COMFSKL            IFC    NE, OPEQ  ,1                                                    COMFSKL      517     A     
 COMFSKL   C        SET    0                                                               COMFSKL      518     A     
 COMFSKL            IFC    NE,/NOTLAST/NONE/,3                                             COMFSKL      519     A     
 COMFSKL   AT.      SET    T.IND                                                           COMFSKL      520     A     
 COMFSKL   AT.OP    SET    AT.OPEQ                                                         COMFSKL      521     A     
 COMFSKL   T.IND    SET    T.IND+C                                                         COMFSKL      522     A     
 COMFSKL            IFC    NE,/LAST/NONE/,5                                                COMFSKL      523     A     
 COMFSKL            IFC    NE,/LAST/NOTLAST/,4                                             COMFSKL      524     A     
 COMFSKL   ZT.      SET    T.IND                                                           COMFSKL      525     A     
 COMFSKL   ZT.OP    SET    ZT.OPEQ                                                         COMFSKL      526     A     
 COMFSKL   T.IND    SET    T.IND+C                                                         COMFSKL      527     A     
 COMFSKL            SKIP   1                                                               COMFSKL      528     A     
 COMFSKL   ZT.OP    SET    AT.OP                                                           COMFSKL      529     A     
 COMFSKL   B        MAX    1,SKM.FTYP                                                      COMFSKL      530     A     
 COMFSKL   C        SET    SKL.FTYP+SKO.FTYP                                               COMFSKL      531     A     
 COMFSKL   A        SET    SKL.FTYP                                                        COMFSKL      532     A     
 COMFSKL   Z        SET    SKL.FTYP                                                        COMFSKL      533     A     
 COMFSKL            DUP    SKU.FTYP/B-SKL.FTYP/B+1                                         COMFSKL      534     A     
 COMFSKL   Z        DECMIC Z                                                               COMFSKL      535     A     
 COMFSKL            NOREF  OP"Z"=                                                          COMFSKL      536     A     
 COMFSKL   OP"Z"=   SET    0                                                               COMFSKL      537     A     
 COMFSKL            IFLT   SKM.FTYP,0,3                                                    COMFSKL      538     A     
 COMFSKL            IFEQ   SKM.FTYP+A,0,2                                                  COMFSKL      539     A     
 COMFSKL   A        SET    B                                                               COMFSKL      540     A     
 COMFSKL   C        SET    C+B                                                             COMFSKL      541     A     
 COMFSKL            NOREF  OP"Z".                                                          COMFSKL      542     A     
 COMFSKL   OP"Z".   EQU    C                                                               COMFSKL      543     A     
 COMFSKL            IFC    NE,/CON//,2                                                     COMFSKL      544     A     
 COMFSKL            NOREF  OP"Z".C                                                         COMFSKL      545     A     
 COMFSKL   OP"Z".C  SET    1                                                               COMFSKL      546     A     
 COMFSKL   A        SET    A+B                                                             COMFSKL      547     A     
 COMFSKL   C        SET    C+B                                                             COMFSKL      548     A     
 COMFSKL   Z        SET    Z+1                                                             COMFSKL      549     A     
 COMFSKL            IFC    NE,/NOTLAST/NONE/,2                                             COMFSKL      550     A     
 COMFSKL            NOREF  AT.OP"Z"                                                        COMFSKL      551     A     
 COMFSKL   AT.OP"Z" EQU    AT.OP                                                           COMFSKL      552     A     
 COMFSKL            IFC    NE,/LAST/NONE/,2                                                COMFSKL      553     A     
 COMFSKL            NOREF  ZT.OP"Z"                                                        COMFSKL      554     A     
 COMFSKL   ZT.OP"Z" EQU    ZT.OP                                                           COMFSKL      555     A     
 COMFSKL            ENDD                                                                   COMFSKL      556     A     
 COMFSKL   SKOP     ENDM                                                                   COMFSKL      557     A     
 COMFSKL   SKOP     SPACE  4,10                                                            COMFSKL      558     A     
 COMFSKL  **        CONSTANTS NEEDED FOR SKOP CALLS                                        COMFSKL      559     A     
 COMFSKL                                                                                   COMFSKL      560     A     
 COMFSKL   T.IND    SET    0                                                               COMFSKL      561     A     
 COMFSKL                                                                                   COMFSKL      562     A     
 COMFSKL  **        SET THE SKOP NUM SELECTION PARAMETERS                                  COMFSKL      563     A     
 COMFSKL                                                                                   COMFSKL      564     A     
 COMFSKL  *CALL SKPSET                                                                     COMFSKL      565     A     
 COMFSKL  *CALL SKPCONQ                                                                    COMFSKL      566     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL   SKOP     TITLE  SKOP - EIS TO QSKEL LINKAGE                                     COMFSKL      567     A     
 COMFSKL  ***       SKOP - THE EIS TO QSKEL LINKAGE.                                       COMFSKL      568     A     
 COMFSKL  *                                                                                COMFSKL      569     A     
 COMFSKL  *         THE SKOP COMDECK IS CALLED BY DECKS WHICH REFER TO THE                 COMFSKL      570     A     
 COMFSKL  *         (AT.) SYMBOLS.                                                         COMFSKL      571     A     
 COMFSKL  *                                                                                COMFSKL      572     A     
 COMFSKL  *         QSKEL- HERE THE SKOP COMDECK SETS ASSEMBLER CONSTANTS                  COMFSKL      573     A     
 COMFSKL  *                WHICH ARE ORDINALS INTO THE SKOP TABLE OF EIS,                  COMFSKL      574     A     
 COMFSKL  *                AND SETS OTHER CONSTANTS NEEDED FOR SKELETON                    COMFSKL      575     A     
 COMFSKL  *                GENERATION IN QSKEL.                                            COMFSKL      576     A     
 COMFSKL  *                                                                                COMFSKL      577     A     
 COMFSKL  *         EIS  - HERE SKOP GENERATES THE BASIC JUMP TABLE (SKOP)                 COMFSKL      578     A     
 COMFSKL  *                WHICH CONTROLS THE CONSTRUCTION OF A NORMAL PRE-                COMFSKL      579     A     
 COMFSKL  *                BINARY INSTRUCTION. TABLE ENTRIES HAVE THE FORMAT:              COMFSKL      580     A     
 COMFSKL  *                30/0,30/EIS.NOTLAST OR EIS.LAST.                                COMFSKL      581     A     
 COMFSKL   EIS      SPACE  4,30                                                            COMFSKL      582     A     
 COMFSKL  **        EIS INTERNAL FLOW DRIVEN BY SKOP.                                      COMFSKL      583     A     
 COMFSKL  *                                                                                COMFSKL      584     A     
 COMFSKL  *         ***IMPORTANT**FACT***                                                  COMFSKL      585     A     
 COMFSKL  *                                                                                COMFSKL      586     A     
 COMFSKL  *                COMPLETE KNOWLEDGE OF THE FLOW OF EIS CAN BE OB-                COMFSKL      587     A     
 COMFSKL  *                TAINED BY CORRELATING THE SKELETON INSTRUCTION                  COMFSKL      588     A     
 COMFSKL  *                MACRO CALLS WITH SKOP ENTRIES.                                  COMFSKL      589     A     
 COMFSKL  *                                                                                COMFSKL      590     A     
 COMFSKL  *                EXAMPLE: TO DETERMINE HOW EIS PROCESSES                         COMFSKL      591     A     
 COMFSKL  *                                                                                COMFSKL      592     A     
 COMFSKL  *                         IS     R1,L1,L2                                        COMFSKL      593     A     
 COMFSKL  *                                                                                COMFSKL      594     A     
 COMFSKL  *                LOOK AT THE SKOP ENTRIES:                                       COMFSKL      595     A     
 COMFSKL  *                                                                                COMFSKL      596     A     
 COMFSKL  *                R        SKOP   NONE,IR,OP  AND                                 COMFSKL      597     A     
 COMFSKL  *                L        SKOP   LNU,L,OP                                        COMFSKL      598     A     
 COMFSKL  *                                                                                COMFSKL      599     A     
 COMFSKL  *                SEE THE SKOP MACRO HEADER. FLOW PASSES THROUH                   COMFSKL      600     A     
 COMFSKL  *                THE PROCESSORS EIS.NOTLAST OR EIS.LAST. SO, IN                  COMFSKL      601     A     
 COMFSKL  *                OUR EXAMPLE FLOW IS THROUGH EIS.L, EIS.LNU, OR                  COMFSKL      602     A     
 COMFSKL  *                EIS.IR (A *NONE* IMPLIES NO PROCESSOR). IF A PAR-               COMFSKL      603     A     
 COMFSKL  *                AMETER IS BEING USED FOR THE LAST TIME WITHIN A                 COMFSKL      604     A     
 COMFSKL  *                CODE SKELETON THE PROCESSOR CHOSEN IS EIS.LAST (EIS.L           COMFSKL      605     A     
 COMFSKL  *                OR EIS.IR IN OUR EXAMPLE). FOR NOT LAST USE CHOOSE              COMFSKL      606     A     
 COMFSKL  *                THE PROCESSOR EIS.NOTLAST (EIS.LNU).                            COMFSKL      607     A     
 COMFSKL  *                                                                                COMFSKL      608     A     
 COMFSKL  *                NOW, TO DETERMINE FLOW:   READ THE INSTRUCTION                  COMFSKL      609     A     
 COMFSKL  *                PERAMETERS FROM RIGHT TO LEFT. THIS IS THE ORDER OF             COMFSKL      610     A     
 COMFSKL  *                FLOW. IT IS A FACT THAT THE EIS.IR PROCESSOR IS A               COMFSKL      611     A     
 COMFSKL  *                TERMINAS PROCESSOR, SO IN OUR EXAMPLE WE KNOW ALL               COMFSKL      612     A     
 COMFSKL  *                PERAMETERS ARE IN A LAST USE CASE. SO, FLOW PASSES              COMFSKL      613     A     
 COMFSKL  *                FROM EIS.L TO EIS.L TO EIS.IR.                                  COMFSKL      614     A     
 COMFSKL                                                                                   COMFSKL      615     A     
 COMFSKL  *CALL     SKOP               SKELETON OPERATION DEFINITIONS                      COMFSKL      616     A     
 COMFSKL                                                                                   COMFSKL      617     A     
 COMFSKL   B6.C     SET    1           ALLOW B6 AS CONREDUCED OPERAND                      COMFSKL      618     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL            NOREF  SKELAD                                                          COMFSKL      619     A     
 COMFSKL   SKELAD   SET    0                                                               COMFSKL      620     A     
 COMFSKL   COUNT    SET    0           INITIALIZE COUNT OF SKELS                           COMFSKL      621     A     
 COMFSKL                                                                                   COMFSKL      622     A     
 COMFSKL                                                                                   COMFSKL      623     A     
 COMFSKL            LIST   -X          COMSQRF IS LISTED IN DECK *QUIK*                    COMFSKL      624     A     
 COMFSKL  *CALL     COMSQRF            DEFINE QCG REGISTER SYMBOLS                         COMFSKL      625     A     
 COMFSKL            LIST   *                                                               COMFSKL      626     A     
 COMFSKL  **        DEFINE INSTRUCTION MACROS                                              COMFSKL      627     A     
 COMFSKL                                                                                   COMFSKL      628     A     
 COMFSKL  *CALL     DEFINS             MACHINE OPCODE DEFINITIONS                          COMFSKL      629     A     
 COMFSKL                                                                                   COMFSKL      630     A     
 COMFSKL  **        SPECIAL CASE INSTRUCTIONS                                              COMFSKL      631     A     
 COMFSKL                                                                                   COMFSKL      632     A     
 COMFSKL  IAZ       OPSYN  IA                                                              COMFSKL      633     A     
 COMFSKL  ISZ       OPSYN  IS                                                              COMFSKL      634     A     
 COMFSKL  PNR       OPSYN  NR                                                              COMFSKL      635     A     
 COMFSKL                                                                                   COMFSKL      636     A     
 COMFSKL            MACRO  DEF,AD,I,J,K                                                    COMFSKL      637     A     
 COMFSKL   AD       XMT    I,K                                                             COMFSKL      638     A     
 COMFSKL            ENDM                                                                   COMFSKL      639     A     
 COMFSKL                                                                                   COMFSKL      640     A     
 COMFSKL  **        KLS AND KRS EXPAND TO TWO INSTRUCTION WORDS                            COMFSKL      641     A     
 COMFSKL  *         DURING QCG ASSEMBLY-TIME SKELETON CONSTRUCTION.                        COMFSKL      642     A     
 COMFSKL  *         FMA IS MADE COMPATIBLE WITH CCG VERSION.                               COMFSKL      643     A     
 COMFSKL                                                                                   COMFSKL      644     A     
 COMFSKL   FMA.     OPSYN  FMA                                                             COMFSKL      645     A     
 COMFSKL   KLS.     OPSYN  KLS                                                             COMFSKL      646     A     
 COMFSKL   KRS.     OPSYN  KRS                                                             COMFSKL      647     A     
 COMFSKL            PURGMAC FMA,KLS,KRS                                                    COMFSKL      648     A     
 COMFSKL                                                                                   COMFSKL      649     A     
 COMFSKL                                                                                   COMFSKL      650     A     
 COMFSKL            MACRO  FMA,AD,I,JK                                                     COMFSKL      651     A     
 COMFSKL   AD       FMA.   I,,JK                                                           COMFSKL      652     A     
 COMFSKL   FMA      ENDM                                                                   COMFSKL      653     A     
 COMFSKL                                                                                   COMFSKL      654     A     
 COMFSKL            MACRO  KLS,AD,I,J,K                                                    COMFSKL      655     A     
 COMFSKL   AD       XMT   I,J                                                              COMFSKL      656     A     
 COMFSKL            KLS.   I,,K                                                            COMFSKL      657     A     
 COMFSKL   KLS      ENDM                                                                   COMFSKL      658     A     
 COMFSKL                                                                                   COMFSKL      659     A     
 COMFSKL            MACRO  KRS,AD,I,J,K                                                    COMFSKL      660     A     
 COMFSKL   AD       XMT   I,J                                                              COMFSKL      661     A     
 COMFSKL            KRS.   I,,K                                                            COMFSKL      662     A     
 COMFSKL   KRS      ENDM                                                                   COMFSKL      663     A     
 COMFSKL                                                                                   COMFSKL      664     A     
 COMFSKL            MACRO  XMTL,AD,I,J,K                                                   COMFSKL      665     A     
 COMFSKL   OP       MICRO  1,1,/K/                                                         COMFSKL      666     A     
 COMFSKL            IFC    EQ,/"OP"/G/,1                                                   COMFSKL      667     A     
 COMFSKL   OP       MICRO  2,1,/K/                                                         COMFSKL      668     A     
 COMFSKL            IFC    EQ,/"OP"/L/,3                                                   COMFSKL      669     A     
 COMFSKL  AD        XMT    I,I                                                             COMFSKL      670     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL            LD     K,,+R.I                                                         COMFSKL      671     A     
 COMFSKL            SKIP   1                                                               COMFSKL      672     A     
 COMFSKL   AD       SA=BK  I,,K                                                            COMFSKL      673     A     
 COMFSKL   XMTL     ENDM                                                                   COMFSKL      674     A     
 COMFSKL                                                                                   COMFSKL      675     A     
 COMFSKL            MACRO  RJT,AD,TO                                                       COMFSKL      676     A     
 COMFSKL   AD       CALL   CRJ,TO                                                          COMFSKL      677     A     
 COMFSKL   RJT      ENDM                                                                   COMFSKL      678     A     
 COMFSKL                                                                                   COMFSKL      679     A     
 COMFSKL            PURGMAC            LOAD                                                COMFSKL      680     A     
 COMFSKL                                                                                   COMFSKL      681     A     
 COMFSKL            MACRO  LOAD,AD,I,J,K                                                   COMFSKL      682     A     
 COMFSKL   AD       SA=XK  X1,J,K                                                          COMFSKL      683     A     
 COMFSKL            XMT    I,X1                                                            COMFSKL      684     A     
 COMFSKL            ENDM                                                                   COMFSKL      685     A     
 COMFSKL                                                                                   COMFSKL      686     A     
 COMFSKL            PURGMAC            JIN                                                 COMFSKL      687     A     
 COMFSKL                                                                                   COMFSKL      688     A     
 COMFSKL            MACRO  JIN,AD,I,J,K                                                    COMFSKL      689     A     
 COMFSKL   AD       CALL   CBJ                                                             COMFSKL      690     A     
 COMFSKL            ENDM                                                                   COMFSKL      691     A     
 COMFSKL                                                                                   COMFSKL      692     A     
 COMFSKL            PURGMAC DEFINS                                                         COMFSKL      693     A     
 COMFSKL                                                                                   COMFSKL      694     A     
 COMFSKL  *         SPECIAL EQUATE TABLE FOR *REG*.                                        COMFSKL      695     A     
 COMFSKL                                                                                   COMFSKL      696     A     
 COMFSKL            LIST   D                                                               COMFSKL      697     A     
 COMFSKL                                                                                   COMFSKL      698     A     
 COMFSKL                                                                                   COMFSKL      699     A     
 COMFSKL  **        INITIALIZE H,L AND Q MICROS.                                           COMFSKL      700     A     
 COMFSKL                                                                                   COMFSKL      701     A     
 COMFSKL   H        MICRO                                                                  COMFSKL      702     A     
 COMFSKL   L        MICRO                                                                  COMFSKL      703     A     
 COMFSKL   Q        MICRO                                                                  COMFSKL      704     A     
 COMFSKL                                                                                   COMFSKL      705     A     
 COMFSKL                                                                                   COMFSKL      706     A     
 COMFSKL  *         BASE ADDRESS OF SKELETONS.                                             COMFSKL      707     A     
 COMFSKL                                                                                   COMFSKL      708     A     
 COMFSKL                                                                                   COMFSKL      709     A     
 COMFSKL            USE    /SKLNAM/                                                        COMFSKL      710     A     
 COMFSKL   F.SKNAM  BSSENT             FWA SKELETON NAMES (IN TEST MODE)                   COMFSKL      711     A     
 COMFSKL            USE    *                                                               COMFSKL      712     A     
 COMFSKL                                                                                   COMFSKL      713     A     
 COMFSKL   F.SKEL   BSSENT                                                                 COMFSKL      714     A     
 COMFSKL                                                                                   COMFSKL      715     A     
 COMFSKL  *CALL     SKEL               TURPLE EXPANSION PATTERNS                           COMFSKL      716     A     
 COMFSKL                                                                                   COMFSKL      717     A     
 COMFSKL  **        SKELETON TABLE TERMINATOR WORD                                         COMFSKL      718     A     
 COMFSKL                                                                                   COMFSKL      719     A     
 COMFSKL   SKEND    CONENT 0                                                               COMFSKL      720     A     
 COMFSKL            TITLE  SKELETON CONTROL TABLE.                                         COMFSKL      721     A     
 COMFSKL   SCT      SPACE  4,10                                                            COMFSKL      722     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSKL 
  
 COMFSKL  **        SCT - SKELETON CONTROL TABLE.                                          COMFSKL      723     A     
 COMFSKL  *                                                                                COMFSKL      724     A     
 COMFSKL  *         THE SCT ACTUALLY CONSISTS OF TWO VECTORS --                            COMFSKL      725     A     
 COMFSKL  *         (F.SKCR) FOR FRONT END = ADDRESS OF CONRED PROCESSOR.                  COMFSKL      726     A     
 COMFSKL  *         (F.SCT) FOR GEN = WORD INDEX OF SKEL BEGINNING.                        COMFSKL      727     A     
 COMFSKL  *                                                                                COMFSKL      728     A     
 COMFSKL  *         IN QCG, BOTH OF THESE FIT INTO THE SAME WORD.                          COMFSKL      729     A     
 COMFSKL                                                                                   COMFSKL      730     A     
 COMFSKL                                                                                   COMFSKL      731     A     
 COMFSKL            LIST   G,D                                                             COMFSKL      732     A     
 COMFSKL            USE    SCT                                                             COMFSKL      733     A     
 COMFSKL   F.SCT    BSSENT             FWA SKEL BEGIN INDEX VECTOR                         COMFSKL      734     A     
 COMFSKL   F.SKCR   BSSENT             FWA SKEL CONSTANT REDUCTION VECTOR                  COMFSKL      735     A     
 COMFSKL            LOC    0                                                               COMFSKL      736     A     
 COMFSKL   SCT      HERE                                                                   COMFSKL      737     A     
 COMFSKL   Z.SCT    BSSENT             LENGTH OF SKEL VECTOR                               COMFSKL      738     A     
 COMFSKL   Z.SKCR   BSSENT             LENGTH OF C.R. VECTOR                               COMFSKL      739     A     
 COMFSKL            LOC    *O                                                              COMFSKL      740     A     
 COMFSKL   1        ERRNZ  COUNT-Z.SCT                                                     COMFSKL      741     A     
 COMFSKL                                                                                   COMFSKL      742     A     
 COMFSKL   VEQU     HERE                                                                   COMFSKL      743     A     
 COMFSKL            USE    *                                                               COMFSKL      744     A     
 COMFSKL            LIST   *                                                               COMFSKL      745     A     
 COMFSKL                                                                                   COMFSKL      746     A     
 COMFSKL  *CALL     PARSKEL            PARSER LINKAGE TO SKELETONS                         COMFSKL      747     A     
 COMFSKL                                                                                   COMFSKL      748     A     
 COMFSKL                                                                                   COMFSKL      749     A     
 COMFSKL            ENDX                                                                   COMFSKL      750     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSKL 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSKL                    750       750
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSMD 
  
 COMFSMD  *COMDECK COMFSMD                                                                 COMFSMD        1     A     
 COMFSMD  COMFSMD   CTEXT              COMFSMD - SELECT MOD SUBSKEL.                       COMFSMD        2     A     
 COMFSMD            SX6    =XV=MODG                                                        COMFSMD        3     A     
 COMFSMD            SA1    B5+OR.2OP                                                       COMFSMD        4     A     
 COMFSMD            HX1    TP.SHRT                                                         COMFSMD        5     A     
 COMFSMD            PL     X1,SUB.RET  IF NOT SHRT[TURP(3)]                                COMFSMD        6     A     
 COMFSMD            =X3    1                                                               COMFSMD        7     A     
 COMFSMD            LX1    TP.SHRTP+1-TP.BIASP                                             COMFSMD        8     A     
 COMFSMD            SX1    X1                                                              COMFSMD        9     A     
 COMFSMD            IX4    X1-X3                                                           COMFSMD       10     A     
 COMFSMD            BX0    X1*X4                                                           COMFSMD       11     A     
 COMFSMD            AX4    17                                                              COMFSMD       12     A     
 COMFSMD            NZ     X4,SUB.RET  IF VAL LT 0                                         COMFSMD       13     A     
 COMFSMD            NZ     X0,SUB.RET  IF VAL NOT POWER OF 2                               COMFSMD       14     A     
 COMFSMD            SX6    =XV=MODP2                                                       COMFSMD       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSMD 
  
 COMFSMD            MX2    1                                                               COMFSMD       16     A     
 COMFSMD            NX0    B7,X1                                                           COMFSMD       17     A     
 COMFSMD            SX0    B7-47+60                                                        COMFSMD       18     A     
 COMFSMD            LX0    TP.BIASP                                                        COMFSMD       19     A     
 COMFSMD            LX2    1+TP.SHRTP                                                      COMFSMD       20     A     
 COMFSMD            BX7    X2+X0                                                           COMFSMD       21     A     
 COMFSMD            SA7    "GPBUF"     GPBUF(1) = 60-LOG2(TURP(2))                         COMFSMD       22     A     
 COMFSMD            EQ     SUB.RET                                                         COMFSMD       23     A     
 COMFSMD            ENDX                                                                   COMFSMD       24     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSMD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSMD                     24        24
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSMK 
  
 COMFSMK  *COMDECK COMFSMK                                                                 COMFSMK        1     A     
 COMFSMK   COMFSMK  CTEXT              COMFSMK - SELECT MASK SUBSKEL                       COMFSMK        2     A     
 COMFSMK                                                                                   COMFSMK        3     A     
 COMFSMK  **        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.             COMFSMK        4     A     
 COMFSMK  *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO              COMFSMK        5     A     
 COMFSMK  *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).              COMFSMK        6     A     
 COMFSMK  *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE              COMFSMK        7     A     
 COMFSMK  *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.            COMFSMK        8     A     
 COMFSMK  *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                         COMFSMK        9     A     
 COMFSMK                                                                                   COMFSMK       10     A     
 COMFSMK            SX6    =XV=MASKV                                                       COMFSMK       11     A     
 COMFSMK            SA1    B5+OR.1OP                                                       COMFSMK       12     A     
 COMFSMK            HX1    "TP".SHRT                                                       COMFSMK       13     A     
 COMFSMK            PL     X1,SUB.RET  IF NOT SHRT[TURP(2)]                                COMFSMK       14     A     
 COMFSMK            SX3    61                                                              COMFSMK       15     A     
 COMFSMK            MX0    -"TP"."BIAS"L                                                   COMFSMK       16     A     
 COMFSMK            LX1    1+"TP".SHRTP-"TP"."BIAS"P                                       COMFSMK       17     A     
 COMFSMK            BX2    -X0*X1                                                          COMFSMK       18     A     
 COMFSMK            IX2    X2-X3                                                           COMFSMK       19     A     
 COMFSMK            PL     X2,SUB.RET  IF VAL LT 0 OR VAL GT 60                            COMFSMK       20     A     
 COMFSMK            SX6    =XV=MASKC                                                       COMFSMK       21     A     
 COMFSMK            EQ     SUB.RET                                                         COMFSMK       22     A     
 COMFSMK            ENDX                                                                   COMFSMK       23     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSMK 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSMK                     23        23
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSSH 
  
 COMFSSH  *COMDECK COMFSSH                                                                 COMFSSH        1     A     
 COMFSSH   COMFSSH  CTEXT              COMFSSH - SELECT SHIFT SUBSKEL.                     COMFSSH        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFSSH 
  
 COMFSSH                                                                                   COMFSSH        3     A     
 COMFSSH  **        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.             COMFSSH        4     A     
 COMFSSH  *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO              COMFSSH        5     A     
 COMFSSH  *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).              COMFSSH        6     A     
 COMFSSH  *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE              COMFSSH        7     A     
 COMFSSH  *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.            COMFSSH        8     A     
 COMFSSH  *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                         COMFSSH        9     A     
 COMFSSH                                                                                   COMFSSH       10     A     
 COMFSSH            SX6    =XV=SHIFV                                                       COMFSSH       11     A     
 COMFSSH            SA1    B5+OR.2OP                                                       COMFSSH       12     A     
 COMFSSH            BX7    X1                                                              COMFSSH       13     A     
 COMFSSH            HX1    "TP".SHRT                                                       COMFSSH       14     A     
 COMFSSH            PL     X1,SUB.RET  IF NOT SHRT[TURP(3)]                                COMFSSH       15     A     
 COMFSSH            =X3    1                                                               COMFSSH       16     A     
 COMFSSH            LX1    1+"TP".SHRTP-"TP"."BIAS"P                                       COMFSSH       17     A     
 COMFSSH            SX1    X1          VAL = BIAS[TURP(3)]                                 COMFSSH       18     A     
 COMFSSH            MI     X1,SSH1     IF VAL LT 0                                         COMFSSH       19     A     
 COMFSSH            SX2    X1-100B                                                         COMFSSH       20     A     
 COMFSSH            PL     X2,SUB.RET  IF CON GT 77B                                       COMFSSH       21     A     
 COMFSSH            SX6    =XV=SHLC    SELECT CONSTANT LEFT SHIFT                          COMFSSH       22     A     
 COMFSSH            SA7    "GPBUF"                                                         COMFSSH       23     A     
 COMFSSH            EQ     SUB.RET                                                         COMFSSH       24     A     
 COMFSSH                                                                                   COMFSSH       25     A     
 COMFSSH   SSH1     BX1    -X1                                                             COMFSSH       26     A     
 COMFSSH            SX2    X1-100B                                                         COMFSSH       27     A     
 COMFSSH            PL     X2,SUB.RET  IF VAL LT -77B                                      COMFSSH       28     A     
 COMFSSH            SX6    =XV=SHRC    SELECT CONSTANT RIGHT SHIFT                         COMFSSH       29     A     
 COMFSSH            MX3    1                                                               COMFSSH       30     A     
 COMFSSH            LX1    "TP"."BIAS"P                                                    COMFSSH       31     A     
 COMFSSH            LX3    1+"TP".SHRTP                                                    COMFSSH       32     A     
 COMFSSH            BX7    X1+X3                                                           COMFSSH       33     A     
 COMFSSH            SA7    "GPBUF"     GPBUF(1) = -VAL                                     COMFSSH       34     A     
 COMFSSH            EQ     SUB.RET                                                         COMFSSH       35     A     
 COMFSSH            ENDX                                                                   COMFSSH       36     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFSSH 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFSSH                     36        36
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFTTL 
  
 COMFTTL  *COMDECK COMFTTL                                                                 COMFTTL        1     A     
 COMFTTL            CTEXT              COMFTTL - ALLOCATE TITLE LINE.                      COMFTTL        2     A     
 COMFTTL   TL.EJCT  CONENT 10H1                            PRINTER SPACE CODE              COMFTTL        3     A     
 COMFTTL   TL.PTYP  CONENT 10H                             PROGRAM UNIT TYPE               COMFTTL        4     A     
 COMFTTL   TL.PNAM  CONENT 10H                             PROGRAM UNIT NAME               COMFTTL        5     A     
 COMFTTL   TL.CPU   CONENT (10H  70/"TARGET"    )          PROCESSING CPUS                 COMFTTL        6     A     
 COMFTTL   TL.CSOP  CONENT 10H                             CONTROL STMT OPTIONS            COMFTTL        7          I
          -F1039  
 COMFTTL            DATA   10H                                                             COMFTTL        8          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFTTL 
  
          -F1039  
 COMFTTL            DATA   10H                                                             COMFTTL        9          I
          -F1039  
 COMFTTL   TL.CSOP  BSSENT 0                                                               F1039         27     A     
 COMFTTL            DATA   10HOPT= ,ROUN                   CONTROL STMT OPTIONS            F1039         28     A     
 COMFTTL            DATA   10HD= A/ S/ M                                                   F1039         29     A     
 COMFTTL            DATA   10H/ D, DS                                                      F1039         30     A     
 COMFTTL                                                                                   F1039         31     A     
 COMFTTL   O.TTLA   CONENT (10H  FTN "VER"+)                PROCESSOR NAME                 COMFTTL       10     A     
 COMFTTL            DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL             COMFTTL       11     A     
 COMFTTL   TL.DATE  CONENT 10H"DATE"                       DATE                            COMFTTL       12     A     
 COMFTTL   TL.TIME  CONENT 10H"TIME"                       TIME OF DAY                     COMFTTL       13     A     
 COMFTTL            DATA    4APAGE                                                         COMFTTL       14     A     
 COMFTTL   TL.PAGE  CONENT 0                               PAGE NUMBER                     COMFTTL       15     A     
 COMFTTL            ENDX                                                                   COMFTTL       16     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFTTL 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFTTL                     16        13
          F1039                        5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFUSE 
  
 COMFUSE  *COMDECK  COMFUSE                                                                COMFUSE        1     A     
 COMFUSE            CTEXT   COMFUSE - PROCESS USE PSEUDO INSTRUCTION                       COMFUSE        2     A     
 COMFUSE  PUSE      SPACE  4,10                                                            COMFUSE        3     A     
 COMFUSE            IF     -DEF,QUAL$,1                                                    COMFUSE        4     A     
 COMFUSE            QUAL   COMFUSE                                                         COMFUSE        5     A     
 COMFUSE            BASE   D                                                               COMFUSE        6     A     
 COMFUSE            SPACE  4,10                                                            COMFUSE        7     A     
 COMFUSE  **        PUSE - PROCESS USE PSEUDO.                                             COMFUSE        8     A     
 COMFUSE  *                                                                                COMFUSE        9     A     
 COMFUSE  *         SWITCH *ORG* AND *PARCEL* COUNTERS, SAVING THE OLD                     COMFUSE       10     A     
 COMFUSE  *         AND GETTING THE NEW.                                                   COMFUSE       11     A     
 COMFUSE  *         ENTRY  (X7) = INSTRUCTION (USE PSEUDO)                                 COMFUSE       12     A     
 COMFUSE  *                                                                                COMFUSE       13     A     
 COMFUSE  *         CAN NOT DESTROY - A0,4,5  X4,5  B2,3,4,5,6                             COMFUSE       14     A     
 COMFUSE                                                                                   COMFUSE       15     A     
 COMFUSE                                                                                   COMFUSE       16     A     
 COMFUSE   PUSE     SUBR   0           ENTRY/EXIT                                          COMFUSE       17     A     
 COMFUSE                                                                                   COMFUSE       18     A     
 COMFUSE  *         SAVE THE OLD.                                                          COMFUSE       19     A     
 COMFUSE                                                                                   COMFUSE       20     A     
 COMFUSE            SA2    =XCBI       CURRENT BLOCK INDEX                                 COMFUSE       21     A     
 COMFUSE            MX6    -LB.PARCL                                                       COMFUSE       22     A     
 COMFUSE            MX0    -LB.ORGL                                                        COMFUSE       23     A     
 COMFUSE            LX6    LB.PARCP                                                        COMFUSE       24     A     
 COMFUSE            SB7    X2                                                              COMFUSE       25     A     
 COMFUSE            SA3    =XORG                                                           COMFUSE       26     A     
 COMFUSE            SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                          COMFUSE       27     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFUSE 
  
 COMFUSE            LX0    LB.ORGP                                                         COMFUSE       28     A     
 COMFUSE            BX0    X0*X6       MASK FOR LB.PARC + LB.ORG                           COMFUSE       29     A     
 COMFUSE            LX3    LB.ORGP     POSITION OLD ORG COUNTER                            COMFUSE       30     A     
 COMFUSE            SA2    =XPARCEL                                                        COMFUSE       31     A     
 COMFUSE            BX1    X0*X1       SAVE ALL BUT LB.ORG AND LB.PARC                     COMFUSE       32     A     
 COMFUSE            LX2    LB.PARCP                                                        COMFUSE       33     A     
 COMFUSE            BX3    X2+X3       OLD PARCEL  +  ORG                                  COMFUSE       34     A     
 COMFUSE            BX6    X3+X1                                                           COMFUSE       35     A     
 COMFUSE            SA6    A1                                                              COMFUSE       36     A     
 COMFUSE                                                                                   COMFUSE       37     A     
 COMFUSE  *         GET THE NEW.                                                           COMFUSE       38     A     
 COMFUSE                                                                                   COMFUSE       39     A     
 COMFUSE            HX7    PB.BIAS                                                         COMFUSE       40     A     
 COMFUSE            AX7    -PB.BIASL   ISOLATE INDEX                                       COMFUSE       41     A     
 COMFUSE            SB7    X7                                                              COMFUSE       42     A     
 COMFUSE            SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                          COMFUSE       43     A     
 COMFUSE            BX6    -X0*X1      ISOLATE NEW PARCEL AND ORG                          COMFUSE       44     A     
 COMFUSE            HX1    LB.ORG                                                          COMFUSE       45     A     
 COMFUSE            SA7    =XCBI       SAVE NEW INDEX                                      COMFUSE       46     A     
 COMFUSE            AX1    -LB.ORGL                                                        COMFUSE       47     A     
 COMFUSE            BX7    X1                                                              COMFUSE       48     A     
 COMFUSE            HX6    LB.PARC                                                         COMFUSE       49     A     
 COMFUSE            AX6    -LB.PARCL   NEW PARCEL COUNT                                    COMFUSE       50     A     
 COMFUSE            SA7    =XORG                                                           COMFUSE       51     A     
 COMFUSE            SA6    =XPARCEL                                                        COMFUSE       52     A     
 COMFUSE            EQ     EXIT.                                                           COMFUSE       53     A     
 COMFUSE            SPACE  4,10                                                            COMFUSE       54     A     
 COMFUSE   QUAL$    IF     -DEF,QUAL$                                                      COMFUSE       55     A     
 COMFUSE            QUAL   *                                                               COMFUSE       56     A     
 COMFUSE   PUSE     EQU    /COMFUSE/PUSE                                                   COMFUSE       57     A     
 COMFUSE   QUAL$    ENDIF                                                                  COMFUSE       58     A     
 COMFUSE   COMFUSE  ENDX                                                                   COMFUSE       59     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFUSE 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFUSE                     59        59
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSPSU 
  
 COMSPSU  *COMDECK  COMSPSU - PSUEDO INSTRUCTION DEFINITIONS.                              COMSPSU        1     A     
 COMSPSU   PSUD     SPACE  4,10                                                            COMSPSU        2     A     
 COMSPSU  *         PSEUDO INSTRUCTION DEFINITIONS ARE GIVEN BELOW.                        COMSPSU        3     A     
 COMSPSU                                                                                   COMSPSU        4     A     
 COMSPSU            LOC    0                                                               COMSPSU        5     A     
 COMSPSU   OCPSUD   EQU    *O                                                              COMSPSU        6     A     
 COMSPSU            PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD                       COMSPSU        7     A     
 COMSPSU            PSUD   BSS                                                             COMSPSU        8     A     
 COMSPSU            PSUD   APL         APLIST                                              COMSPSU        9     A     
 COMSPSU            PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                        COMSPSU       10     A     
 COMSPSU            PSUD   BSSZ                                                            COMSPSU       11          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSPSU 
  
          -FC5A132
 COMSPSU            PSUD   BOS         BEGINNING OF STATEMENT                              COMSPSU       12          I
          -FC5A132
 COMSPSU            PSUD   CMNT        COMMENT                                             COMSPSU       13          I
          -FC5A132
 COMSPSU            PSUD   CON         *READ* CONSTANT TABLE PSEUDO                        COMSPSU       14     A     
 COMSPSU            PSUD   DATA                                                            COMSPSU       15          I
          -FC5A132
 COMSPSU            PSUD   DIS                                                             COMSPSU       16          I
          -FC5A132
 COMSPSU            PSUD   END                                                             COMSPSU       17     A     
 COMSPSU            PSUD   EQUN        NEGATIVE RELOCATION MACRO                           COMSPSU       18     A     
 COMSPSU            PSUD   FMT         FORMAT/FMT MACRO                                    COMSPSU       19     A     
 COMSPSU            PSUD   FVEC        FILE POINTER WORD                                   COMSPSU       20     A     
 COMSPSU            PSUD   HOL                                                             COMSPSU       21          I
          -FC5A132
 COMSPSU            PSUD   IDNT                                                            COMSPSU       22     A     
 COMSPSU            PSUD   IOM                                                             COMSPSU       23     A     
 COMSPSU            PSUD   LCC                                                             COMSPSU       24     A     
 COMSPSU            PSUD   LOO         TURN ON /OFF OBJECT LISTING                         COMSPSU       25     A     
 COMSPSU            PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                        COMSPSU       26     A     
 COMSPSU            PSUD   PLIM                                                            FC50049        6     A     
 COMSPSU            PSUD   REPI                                                            COMSPSU       27          I
          -FC5A132
 COMSPSU            PSUD   TERM        SET   *SUB*   BLOCK LENGTH                          COMSPSU       28          I
          -FC5A132
 COMSPSU            PSUD   TTLE                                                            COMSPSU       29          I
          -FC5A132
 COMSPSU            PSUD   TRAC        GENERATE (TRACE.) WORD                              COMSPSU       30     A     
 COMSPSU            PSUD   USE                                                             COMSPSU       31     A     
 COMSPSU                                                                                   COMSPSU       32     A     
 COMSPSU                                                                                   COMSPSU       33     A     
 COMSPSU   IPSUD    EQU    *O                                                              COMSPSU       34     A     
 COMSPSU            IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                          COMSPSU       35     A     
 COMSPSU            IPSUD  BOS         BEGINNING OF STATEMENT                              COMSPSU       36     A     
 COMSPSU            IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                          COMSPSU       37     A     
 COMSPSU            IPSUD  BSS         GENERATE A BSS                                      COMSPSU       38     A     
 COMSPSU            IPSUD  DATA        DATA SUB-TABLE HEADER                               COMSPSU       39     A     
 COMSPSU            IPSUD  ECI         END CCG TYPE INSTRUCTION                            COMSPSU       40     A     
 COMSPSU            IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                        COMSPSU       41     A     
 COMSPSU            IPSUD  JPI         GENERATE INDEXED JUMP                               COMSPSU       42     A     
 COMSPSU            IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                        COMSPSU       43     A     
 COMSPSU            IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0                    COMSPSU       44     A     
 COMSPSU            IPSUD  LOO         TURN ON /OFF OBJECT LISTING                         COMSPSU       45     A     
 COMSPSU            IPSUD  OTR         GENERATE  SB0    B0 + LINENUM                       COMSPSU       46     A     
 COMSPSU            IPSUD  RJ3         GENERATE  RJ                                        COMSPSU       47     A     
 COMSPSU            IPSUD  RJ6         GENERATE  RJT                                       COMSPSU       48     A     
 COMSPSU            IPSUD  SUBI        CREATE A SUB INDEX WORD                             COMSPSU       49     A     
 COMSPSU            IPSUD  SB0I        CREATE A SUB0 INDEX WORD                            COMSPSU       50     A     
 COMSPSU            IPSUD  UJP         GENERATE  EQ                                        COMSPSU       51     A     
 COMSPSU            IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK                     COMSPSU       52     A     
 COMSPSU            IPSUD  ZERO        OUTPUT A ZERO WORD                                  COMSPSU       53     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSPSU 
  
 COMSPSU                                                                                   COMSPSU       54     A     
 COMSPSU   Z.PSUD   =      *L                                                              COMSPSU       55     A     
 COMSPSU            ERRMI  77B-*L      TOO MANY PSEUDOS                                    COMSPSU       56     A     
 COMSPSU            LOC    *O                                                              COMSPSU       57     A     
 COMSPSU                                                                                   COMSPSU       58     A     
 COMSPSU  * PSU     ENDX                                                                   COMSPSU       59     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSPSU 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSPSU                     59        50
          FC50049                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN  *COMDECK  COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                             COMFWIN        1     A     
 COMFWIN            CTEXT  COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                      COMFWIN        2     A     
 COMFWIN   COMFWIN  SPACE  4,10                                                            COMFWIN        3     A     
 COMFWIN            IF     -DEF,QUAL$,1                                                    COMFWIN        4     A     
 COMFWIN            QUAL   COMFWIN                                                         COMFWIN        5     A     
 COMFWIN            BASE   D                                                               COMFWIN        6     A     
 COMFWIN   WIN      SPACE  4,8                                                             COMFWIN        7     A     
 COMFWIN  **        WIN -  WRITE INSTRUCTIONS TO PREBINARY.                                COMFWIN        8     A     
 COMFWIN  *                                                                                COMFWIN        9     A     
 COMFWIN  *         ENTRY  (X7) = INSTRUCTION TO TRANSFER                                  COMFWIN       10     A     
 COMFWIN  *                (B2) = EXIT ADDRESS.                                            COMFWIN       11     A     
 COMFWIN  *                                                                                COMFWIN       12     A     
 COMFWIN  *         EXIT   INSTRUCTION TRANSFERRED TO PREBINARY                            COMFWIN       13     A     
 COMFWIN  *                (X7) = DESTROYED.                                               COMFWIN       14     A     
 COMFWIN  *                                                                                COMFWIN       15     A     
 COMFWIN  *         USES   A - 1,2,3,6,7                                                   COMFWIN       16     A     
 COMFWIN  *                X - 0,1,2,6,7                                                   COMFWIN       17     A     
 COMFWIN  *                B - 2,3,7                                                       COMFWIN       18     A     
 COMFWIN  *                ------ C A N  N E V E R  D E S T R O Y ------                   COMFWIN       19     A     
 COMFWIN  *         QCG      A0,4,5  X3,4,5  B4,5,6                                        COMFWIN       20     A     
 COMFWIN  *         CCG      A4      X4      B4,5                                          COMFWIN       21     A     
 COMFWIN                                                                                   FC5A158A      26     A     
 COMFWIN                                                                                   FC5A158A      27     A     
 COMFWIN   #RM      IFNE   CP#RM,0                                                         FC5A158A      28     A     
 COMFWIN            PURGMAC WRITEO                                                         FC5A158A      29     A     
 COMFWIN                                                                                   FC5A158A      30     A     
 COMFWIN  *         REDEFINE WRITEO TO CALL WRITEW UNTIL FA=WTO IS AVAIL.                  FC5A158A      31     A     
 COMFWIN                                                                                   FC5A158A      32     A     
 COMFWIN   WRITEO   MACRO  FET                                                             FC5A158A      33     A     
 COMFWIN            SX7    B2                                                              FC5A158A      34     A     
 COMFWIN            SX3    B7                                                              FC5A158A      35     A     
 COMFWIN            LX3    18                                                              FC5A158A      36     A     
 COMFWIN            BX7    X3+X7                                                           FC5A158A      37     A     
 COMFWIN            SX3    B6                                                              FC5A158A      38     A     
 COMFWIN            MX1    -18                                                             FC5A158A      39     A     
 COMFWIN            BX3    -X1*X3                                                          FC5A158A      40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            LX3    18+18                                                           FC5A158A      41     A     
 COMFWIN            BX7    X3+X7                                                           FC5A158A      42     A     
 COMFWIN            SA6    =SWTOA                                                          FC5A158A      43     A     
 COMFWIN            SA7    =SWTOB                                                          FC5A158A      44     A     
 COMFWIN            WRITEW FET,WTOA,1                                                      FC5A158A      45     A     
 COMFWIN            SA3    WTOB                                                            FC5A158A      46     A     
 COMFWIN            SB2    X3                                                              FC5A158A      47     A     
 COMFWIN            AX3    18                                                              FC5A158A      48     A     
 COMFWIN            SB7    X3                                                              FC5A158A      49     A     
 COMFWIN            AX3    18                                                              FC5A158A      50     A     
 COMFWIN            SB6    X3                                                              FC5A158A      51     A     
 COMFWIN   WRITEO   ENDM                                                                   FC5A158A      52     A     
 COMFWIN   #RM      ENDIF                                                                  FC5A158A      53     A     
 COMFWIN                                                                                   COMFWIN       22     A     
 COMFWIN                                                                                   COMFWIN       23     A     
 COMFWIN   P.COPY   =      12          DEFINE COPY BIT OF PIK=PS TABLE                     COMFWIN       24     A     
 COMFWIN                                                                                   COMFWIN       25     A     
 COMFWIN  *         WTE - ENTRY POINT FOR WRITING 60-BIT WORD TO PREBINARY.                COMFWIN       26     A     
 COMFWIN                                                                                   COMFWIN       27     A     
 COMFWIN   WTE      BSS    0                                                               COMFWIN       28     A     
 COMFWIN            SA7    WINB                                                            COMFWIN       29     A     
 COMFWIN            BX6    X3                                                              COMFWIN       30     A     
 COMFWIN            MX7    0                                                               COMFWIN       31     A     
 COMFWIN            =A7    A7+1                                                            COMFWIN       32     A     
 COMFWIN            SA6    WINC                                                            COMFWIN       33     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN       34     A     
 COMFWIN                                                                                   COMFWIN       35     A     
 COMFWIN                                                                                   COMFWIN       36     A     
 COMFWIN   WIN      BSS    0           ENTRY...                                            COMFWIN       37     A     
 COMFWIN                                                                                   COMFWIN       38     A     
 COMFWIN  *         DETERMINE IF PSEUDO INSTRUCTION                                        COMFWIN       39     A     
 COMFWIN                                                                                   COMFWIN       40     A     
 COMFWIN            BX6    X3                                                              COMFWIN       41     A     
 COMFWIN            SA6    WINC        SAVE X3                                             COMFWIN       42     A     
 COMFWIN            MX0    PB.GHIJL                                                        COMFWIN       43     A     
 COMFWIN            SA7    WINB        SAVE (X7)                                           COMFWIN       44     A     
 COMFWIN                                                                                   COMFWIN       45     A     
 COMFWIN   .SNAP=W  IFEQ   TEST,ON                                                         COMFWIN       46     A     
 COMFWIN            SA3    =XCO.SNAP                                                       COMFWIN       47     A     
 COMFWIN            LX3    1RW                                                             COMFWIN       48     A     
 COMFWIN            PL     X3,WIN1                                                         COMFWIN       49     A     
 COMFWIN            =X6    B2                                                              COMFWIN       50     A     
 COMFWIN            SA6    A7+1        STORE RETURN ADDRESS IN WINB+1                      COMFWIN       51     A     
 COMFWIN   W=WIN    SNAP   WINB,,2,NONE,,1E5                                               COMFWIN       52     A     
 COMFWIN   WIN1     BSS    0                                                               COMFWIN       53     A     
 COMFWIN   .SNAP=W  ENDIF                                                                  COMFWIN       54     A     
 COMFWIN                                                                                   COMFWIN       55     A     
 COMFWIN            =X6    0                                                               COMFWIN       56     A     
 COMFWIN            SA6    A7+1        INITIALIZE WINB + 1 TO ZERO                         COMFWIN       57     A     
 COMFWIN            BX2    X0*X7                                                           COMFWIN       58     A     
 COMFWIN            LX2    PB.GHIJL                                                        COMFWIN       59     A     
 COMFWIN            SB3    X2          (B3) = GHIJ                                         COMFWIN       60     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            AX2    PB.GHL      (X2) = GH                                           COMFWIN       61     A     
 COMFWIN            ZR     X2,PSI      IF A PSEUDO, GO PROCESS IT...                       COMFWIN       62     A     
 COMFWIN                                                                                   COMFWIN       63     A     
 COMFWIN  *         ADVANCE  *ORG* COUNTER IF NECESSARY                                    COMFWIN       64     A     
 COMFWIN                                                                                   COMFWIN       65     A     
 COMFWIN            SA1    X2+=XPIK=PS GET INSTRUCTION SKELETON                            COMFWIN       66     A     
 COMFWIN                                                                                   COMFWIN       67     A     
 COMFWIN  *         ENTRY TO ADVANCE ORG/PARCEL AS DETERMINED BY SIZE INDICATOR            COMFWIN       68     A     
 COMFWIN  *         (X1) AND TO ISSUE INSTRUCTION.                                         COMFWIN       69     A     
 COMFWIN                                                                                   COMFWIN       70     A     
 COMFWIN   WIN10    SA2    ORG                                                             COMFWIN       71     A     
 COMFWIN            SA3    PARCEL                                                          COMFWIN       72     A     
 COMFWIN            SX6    X3+1                                                            COMFWIN       73     A     
 COMFWIN            PL     X1,WIN40    IF SHORT, PARCEL = PARCEL + 1                       COMFWIN       74     A     
 COMFWIN            SB7    X3-3                                                            COMFWIN       75     A     
 COMFWIN            ZR     B7,WIN20    IF PARCEL = 3                                       COMFWIN       76     A     
 COMFWIN            SX6    X3+2                                                            COMFWIN       77     A     
 COMFWIN            EQ     WIN40       PARCEL = PARCEL +2                                  COMFWIN       78     A     
 COMFWIN                                                                                   COMFWIN       79     A     
 COMFWIN   WIN20    =X6    2                                                               COMFWIN       80     A     
 COMFWIN            SA6    A3          PARCEL = 2                                          COMFWIN       81     A     
 COMFWIN            =X6    X2+1                                                            COMFWIN       82     A     
 COMFWIN            SA6    A2          ORG = ORG + 1                                       COMFWIN       83     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN       84     A     
 COMFWIN                                                                                   COMFWIN       85     A     
 COMFWIN   WIN40    SB7    X6-4                                                            COMFWIN       86     A     
 COMFWIN            NZ     B7,WIN50    IF PARCEL NE 4                                      COMFWIN       87     A     
 COMFWIN            =X6    X2+1        ORG = ORG + 1                                       COMFWIN       88     A     
 COMFWIN            SA6    A2                                                              COMFWIN       89     A     
 COMFWIN            =X6    0           PARCEL = 0                                          COMFWIN       90     A     
 COMFWIN                                                                                   COMFWIN       91     A     
 COMFWIN   WIN50    SA6    A3                                                              COMFWIN       92     A     
 COMFWIN            SA2    WINA                                                            COMFWIN       93     A     
 COMFWIN            MI     X1,WIN100   IF LONG                                             COMFWIN       94     A     
 COMFWIN                                                                                   COMFWIN       95     A     
 COMFWIN  *         15 BIT INSTRUCTION. FIRST WE MUST CHECK IF IT IS A TRANSMIT            COMFWIN       96     A     
 COMFWIN  *         TO ITSELF, THEN IF IT IS A *10*,*14* OR *47* INSTRUCTION               COMFWIN       97     A     
 COMFWIN  *         WE MUST COPY THE *J* PART INTO THE *K* PART, THEN PACK                 COMFWIN       98     A     
 COMFWIN  *         IT. IF PACKING IT COMPLETES THE PACKAGE WE OUTPUT IT TO                COMFWIN       99     A     
 COMFWIN  *         T.PB AND CLEAR *WINA*.                                                 COMFWIN      100     A     
 COMFWIN                                                                                   COMFWIN      101     A     
 COMFWIN            LX1    59-P.COPY                                                       COMFWIN      102     A     
 COMFWIN            MX0    PB.GHL                                                          COMFWIN      103     A     
 COMFWIN            HX7    PB.GH                                                           COMFWIN      104     A     
 COMFWIN            BX6    X0*X7       EXTRACT (X6) = (PB.GH)                              COMFWIN      105     A     
 COMFWIN            LX7    PB.GHL+PB.GHP                                                   COMFWIN      106     A     
 COMFWIN            MX0    -PB.IL                                                          COMFWIN      107     A     
 COMFWIN            LX6    PB.GHL                                                          COMFWIN      108     A     
 COMFWIN            MI     X1,WIN65    IF *10*, *14* OR *47* INSTRUCTION                   COMFWIN      109     A     
 COMFWIN                                                                                   COMFWIN      110     A     
 COMFWIN  *         FOR *15*, *16* AND *17* INSTRUCTIONS, INTERCHANGE (J) WITH (K)         COMFWIN      111     A     
 COMFWIN                                                                                   COMFWIN      112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            SB7    X6-17B                                                          COMFWIN      113     A     
 COMFWIN            GT     B7,WIN70    IF (PB.GH) .GT. 17B                                 COMFWIN      114     A     
 COMFWIN            SB7    X6-15B                                                          COMFWIN      115     A     
 COMFWIN            LT     B7,WIN70    IF (PB.GH) .LT. 15B                                 COMFWIN      116     A     
 COMFWIN            LX0    PB.KP                                                           COMFWIN      117     A     
 COMFWIN            BX1    -X0*X7      (X1) = ORIGINAL (K) PORTION                         COMFWIN      118     A     
 COMFWIN            BX7    X0*X7                                                           COMFWIN      119     A     
 COMFWIN            LX0    -PB.KP+PB.JP                                                    COMFWIN      120     A     
 COMFWIN            LX1    -PB.KP+PB.JP      (X1) = NEW (J)                                COMFWIN      121     A     
 COMFWIN            BX6    -X0*X7      (X6) = ORIGINAL (J) PORTION                         COMFWIN      122     A     
 COMFWIN            BX7    X0*X7                                                           COMFWIN      123     A     
 COMFWIN            LX6    -PB.JP+PB.KP      (X6) = NEW (K)                                COMFWIN      124     A     
 COMFWIN            BX1    X7+X1                                                           COMFWIN      125     A     
 COMFWIN            BX7    X1+X6                                                           COMFWIN      126     A     
 COMFWIN            EQ     WIN70                                                           COMFWIN      127     A     
 COMFWIN                                                                                   COMFWIN      128     A     
 COMFWIN   WIN65    SB7    X6-10B                                                          COMFWIN      129     A     
 COMFWIN            NZ     B7,WIN60    IF NOT TRANSMIT (10IJX) INSTRUCTION                 COMFWIN      130     A     
 COMFWIN            MX1    -PB.JL                                                          COMFWIN      131     A     
 COMFWIN            LX0    PB.IP                                                           COMFWIN      132     A     
 COMFWIN            LX1    PB.JP                                                           COMFWIN      133     A     
 COMFWIN            BX0    -X0*X7      *I* REGISTER                                        COMFWIN      134     A     
 COMFWIN            BX1    -X1*X7      *J* REGISTER                                        COMFWIN      135     A     
 COMFWIN            LX0    PB.JP-PB.IP                                                     COMFWIN      136     A     
 COMFWIN            IX6    X0-X1                                                           COMFWIN      137     A     
 COMFWIN            SA3    PARCEL                                                          COMFWIN      138     A     
 COMFWIN            NZ     X6,WIN60    IF NOT TRANSMIT TO SELF                             COMFWIN      139     A     
 COMFWIN            SX6    X3-1                                                            COMFWIN      140     A     
 COMFWIN            SA6    PARCEL      THIS INST DOESNT COUNT / PARCEL = PARCEL-1          COMFWIN      141     A     
 COMFWIN            PL     X6,WINX     IF CURRENT WORD NOT NOW COMPLETELY EMPTY            COMFWIN      142     A     
 COMFWIN            SA3    ORG                                                             COMFWIN      143     A     
 COMFWIN            SX6    3                                                               COMFWIN      144     A     
 COMFWIN            SA6    A6          PARCEL = 3                                          COMFWIN      145     A     
 COMFWIN            SX6    X3-1                                                            COMFWIN      146     A     
 COMFWIN            SA6    A3          ORG = ORG - 1                                       COMFWIN      147     A     
 COMFWIN            EQ     WINX                                                            COMFWIN      148     A     
 COMFWIN                                                                                   COMFWIN      149     A     
 COMFWIN  *         IT*S A *10*,*14* OR *47* INSTRUCTION, COPY *J* INTO *K* FIELD.         COMFWIN      150     A     
 COMFWIN  *         THIS IS DONE HERE BECAUSE *GEN* IS SIMPLIFIED IF HE                    COMFWIN      151     A     
 COMFWIN  *         DOES NOT HAVE TO COMPLETE THE *K* PORTION OF THESE                     COMFWIN      152     A     
 COMFWIN  *         INSTRUCTIONS.                                                          COMFWIN      153     A     
 COMFWIN                                                                                   COMFWIN      154     A     
 COMFWIN   WIN60    MX0    -PB.JL                                                          COMFWIN      155     A     
 COMFWIN            NO                                                                     COMFWIN      156     A     
 COMFWIN            LX0    PB.JP                                                           COMFWIN      157     A     
 COMFWIN            NO                                                                     COMFWIN      158     A     
 COMFWIN            BX1    -X0*X7                                                          COMFWIN      159     A     
 COMFWIN            NO                                                                     COMFWIN      160     A     
 COMFWIN            LX1    PB.KP-PB.JP                                                     COMFWIN      161     A     
 COMFWIN            BX7    X7+X1                                                           COMFWIN      162     A     
 COMFWIN                                                                                   COMFWIN      163     A     
 COMFWIN  *         NOW WE MAY PACK IT AND OUTPUT THE PACKAGE TO T.PB IF FULL.             COMFWIN      164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN                                                                                   COMFWIN      165     A     
 COMFWIN   WIN70    =B7    X2-1                                                            COMFWIN      166     A     
 COMFWIN            MI     B7,WIN80    IF NO PACKAGE PRESENT                               COMFWIN      167     A     
 COMFWIN            LX7    -15         POSITION INSTRUCTION                                COMFWIN      168     A     
 COMFWIN            ZR     B7,WIN80    IF ONE PACKAGE PRESENT                              COMFWIN      169     A     
 COMFWIN            LX7    -15         RE-POSITION INSTRUCTION                             COMFWIN      170     A     
 COMFWIN            SX0    77777B                                                          COMFWIN      171     A     
 COMFWIN            BX7    X2+X7       INSERT THIRD PACKAGE                                COMFWIN      172     A     
 COMFWIN            MX6    0                                                               COMFWIN      173     A     
 COMFWIN            BX7    X0+X7       INSERT LOW ORDER BITS                               COMFWIN      174     A     
 COMFWIN            SA6    A2          CLEAR WINA                                          COMFWIN      175     A     
 COMFWIN            SA7    WINB        SAVE INSTRUCTION                                    COMFWIN      176     A     
 COMFWIN            EQ     WINW        OUTPUT SAVED INSTRUCTIONS                           COMFWIN      177     A     
 COMFWIN                                                                                   COMFWIN      178     A     
 COMFWIN   WIN80    BX7    X2+X7       ADD NEW PACKAGE                                     COMFWIN      179     A     
 COMFWIN            =X0    1                                                               COMFWIN      180     A     
 COMFWIN            IX7    X0+X7       INCREMENT PACKAGE COUNT                             COMFWIN      181     A     
 COMFWIN            SA7    A2          STORE IN WINA                                       COMFWIN      182     A     
 COMFWIN                                                                                   COMFWIN      183     A     
 COMFWIN   WINX     SA3    WINC        RESTORE (X3)                                        COMFWIN      184     A     
 COMFWIN            JP     B2          RETURN..                                            COMFWIN      185     A     
 COMFWIN                                                                                   COMFWIN      186     A     
 COMFWIN  *         ENTRY HERE FOR LONG INSTRUCTION OR MOST PSEUDOS.                       COMFWIN      187     A     
 COMFWIN  *         OUTPUT ANY PACKED 15-BIT INSRUCTION THAT ARE WAITING.                  COMFWIN      188     A     
 COMFWIN  *         OUTPUT CURRENT INSTRUCTION (FROM WINB). FORCE UPPER                    COMFWIN      189     A     
 COMFWIN  *         IF WINB+1 IS NONZERO. RETURN.                                          COMFWIN      190     A     
 COMFWIN                                                                                   COMFWIN      191     A     
 COMFWIN   WIN100   BSS    0           **** TEMP ****                                      COMFWIN      192     A     
 COMFWIN   WINW     BSS    0           ...WRITE PB                                         COMFWIN      193     A     
 COMFWIN            SA2    WINA                                                            COMFWIN      194     A     
 COMFWIN            SB7    A4          SAVE (A4,X4)                                        COMFWIN      195     A     
 COMFWIN            BX6    X4                                                              COMFWIN      196     A     
 COMFWIN            SA6    WIND                                                            COMFWIN      197     A     
 COMFWIN            ZR     X2,WINW7    IF NO PACKED SHORT INSTRUCTIONS WAITING             COMFWIN      198     A     
 COMFWIN            SA3    WINA                                                            COMFWIN      199     A     
 COMFWIN            MX0    -PB.INSTL                                                       COMFWIN      200     A     
 COMFWIN            SX7    B0          INDICATE NO ACCUMULATED SHORT INSTRUCTIONS          COMFWIN      201     A     
 COMFWIN            BX6    -X0+X3      MERGE FLAG WITH PACKED INSTRUCTIONS                 COMFWIN      202     A     
 COMFWIN            SA7    A2                                                              COMFWIN      203     A     
 COMFWIN            WRITEO =XF.PB      WRITE ONE WORD TO PREBINARY FILE                    COMFWIN      204     A     
 COMFWIN   WINW7    SA3    WINB                                                            COMFWIN      205     A     
 COMFWIN            BX6    X3                                                              COMFWIN      206     A     
 COMFWIN            WRITEO F.PB        WRITE ONE WORD (CURRENT INSTRUCTION)                COMFWIN      207     A     
 COMFWIN            SA1    WIND                                                            COMFWIN      208     A     
 COMFWIN            SA4    B7          RESTORE (A4, X4)                                    COMFWIN      209     A     
 COMFWIN            BX4    X1                                                              COMFWIN      210     A     
 COMFWIN   WINW8    SA1    WINB+1                                                          COMFWIN      211     A     
 COMFWIN            ZR     X1,WINX     IF NO FORCE UPPER AFTER REQUESTED                   COMFWIN      212     A     
 COMFWIN            SA3    PARCEL                                                          COMFWIN      213     A     
 COMFWIN            SA2    ORG                                                             COMFWIN      214     A     
 COMFWIN            ZR     X3,WINX     IF ALREADY UPPER                                    COMFWIN      215     A     
 COMFWIN            SX6    X2+B1                                                           COMFWIN      216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            MX7    0                                                               COMFWIN      217     A     
 COMFWIN            SA6    A2          ADVANCE ORIGIN COUNTER                              COMFWIN      218     A     
 COMFWIN            SA7    A3          INDICATE EMPTY WORD                                 COMFWIN      219     A     
 COMFWIN            EQ     WINX                                                            COMFWIN      220     A     
 COMFWIN   PSI      SPACE  4,10                                                            COMFWIN      221     A     
 COMFWIN  **        PSI - PROCESS PSEUDO INSTRUCTION.                                      COMFWIN      222     A     
 COMFWIN  *                                                                                COMFWIN      223     A     
 COMFWIN  *         USED IN CONJUNCTION WITH THE PSEUDO INSTRUCTION JUMP TABLES            COMFWIN      224     A     
 COMFWIN  *         AT *WINOC* AND *WINI*.  THE DECISION WHETHER TO FORCE UPPER            COMFWIN      225     A     
 COMFWIN  *         BEFORE OR AFTER THE INSTRUCTION IS MADE AT THIS POINT.                 COMFWIN      226     A     
 COMFWIN  *                                                                                COMFWIN      227     A     
 COMFWIN  *         ENTRY  (X2) = GH  (ALWAYS 0)                                           COMFWIN      228     A     
 COMFWIN  *                (X7) = INSTRUCTION                                              COMFWIN      229     A     
 COMFWIN  *                (WINB) = (X7)                                                   COMFWIN      230     A     
 COMFWIN  *                (B3) = GHIJ                                                     COMFWIN      231     A     
 COMFWIN  *                                                                                COMFWIN      232     A     
 COMFWIN  *         EXIT   (X1) .LT. 0, THEN LONG INSTRUCTION                              COMFWIN      233     A     
 COMFWIN  *                     .GE. 0, THEN SHORT INSTRUCTION                             COMFWIN      234     A     
 COMFWIN  *                (X2) = GH  (SOMETIMES)                                          COMFWIN      235     A     
 COMFWIN  *                (B3) = GHIJ  (USUALLY, BUT NOT ALWAYS)                          COMFWIN      236     A     
 COMFWIN  *                (WINB) = INSTRUCTION                                            COMFWIN      237     A     
 COMFWIN  *                (WINB+1) = MI IF FORCE UPPER AFTER, ELSE 0                      COMFWIN      238     A     
 COMFWIN                                                                                   COMFWIN      239     A     
 COMFWIN                                                                                   COMFWIN      240     A     
 COMFWIN   PSI      BSS                ...ENTRY                                            COMFWIN      241     A     
 COMFWIN                                                                                   COMFWIN      242     A     
 COMFWIN            IFEQ   TEST,ON,2   IF TEST MODE                                        COMFWIN      243     A     
 COMFWIN            SB7    Z.PSUD      LENGTH OF PSEUDO TABLE                              COMFWIN      244     A     
 COMFWIN            GE     B3,B7,"BLOWUP"    IF ILLEGAL PSUEDO                             COMFWIN      245     A     
 COMFWIN                                                                                   COMFWIN      246     A     
 COMFWIN            SA1    PSTAB       (X1) = FWA OF OC$XXX OR I.XXX JUMP TABLE            COMFWIN      247     A     
 COMFWIN            SA3    X1+B3                                                           COMFWIN      248     A     
 COMFWIN            SB7    X3          (B7) = ADDRESS OF PSEUDO PROCESSOR                  COMFWIN      249     A     
 COMFWIN            JP     B7          EXIT TO PSEUDO PROCESSOR...                         COMFWIN      250     A     
 COMFWIN                                                                                   COMFWIN      251     A     
 COMFWIN                                                                                   COMFWIN      252     A     
 COMFWIN  **        PSEUDO INSTRUCTION PROCESSORS.                                         COMFWIN      253     A     
 COMFWIN                                                                                   COMFWIN      254     A     
 COMFWIN                                                                                   COMFWIN      255     A     
 COMFWIN   WI=BOS   BSS    0           BOS - BEGINNING OF STATEMENT.                       COMFWIN      256     A     
 COMFWIN   .CG      IFEQ   .CG,.FAST                                                       FC50452        6     A     
 COMFWIN            SA2    CO.DBID                                                         FC50452        7     A     
 COMFWIN            SA3    CO.DBST                                                         FC50545        9     A     
 COMFWIN            BX2    X2+X3                                                           FC50545       10     A     
 COMFWIN            ZR     X2,WIN100   IF 5700 TABLE NOT REQUIRED                          FC50452        8     A     
 COMFWIN            RJ     BNW         BEGIN NEW WORD                                      FC50452        9     A     
 COMFWIN   .CG      ENDIF                                                                  FC50452       10     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      257     A     
 COMFWIN                                                                                   COMFWIN      258     A     
 COMFWIN                                                                                   COMFWIN      259     A     
 COMFWIN   WO=IDNT  BSS    0           IDENT - BEGIN OBJECT PROGRAM                        COMFWIN      260     A     
 COMFWIN            =X6    0                                                               COMFWIN      261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            SA6    =XORG       INIT  ORG  TO  0                                    COMFWIN      262     A     
 COMFWIN            SA6    =XCBI       INIT  CBI  TO  0                                    COMFWIN      263     A     
 COMFWIN            SA6    PARCEL                                                          COMFWIN      264     A     
 COMFWIN            SA6    WINA        INIT PACKED 15-BIT INSTRUCTIONS                     FC50860        9     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      265     A     
 COMFWIN                                                                                   COMFWIN      266     A     
 COMFWIN                                                                                   COMFWIN      267     A     
 COMFWIN   WI=LD0   BSS    0           LOAD INSTRUCTION FOR LEVEL 0                        COMFWIN      268     A     
 COMFWIN   WI=ST0   BSS    0           STORE INSTRUCTION FOR LEVEL 0                       COMFWIN      269     A     
 COMFWIN            SA3    PARCEL                                                          COMFWIN      270     A     
 COMFWIN            SA2    ORG                                                             COMFWIN      271     A     
 COMFWIN            =X6    X3+1                                                            COMFWIN      272     A     
 COMFWIN            =X1    -1          INDICATE LONG                                       COMFWIN      273     A     
 COMFWIN            EQ     WIN40       COUNT AS SHORT INSTRUCTION                          COMFWIN      274     A     
 COMFWIN                                                                                   COMFWIN      275     A     
 COMFWIN   WO=ADDR  BSS    0           FILE VECTOR POINTER WORD                            COMFWIN      276     A     
 COMFWIN   WI=CPL   BSS    0           CPL LIST ITEM                                       COMFWIN      277     A     
 COMFWIN   WO=PLIM  BSS    0           PRINT LIMIT WORD                                    FC50049        7     A     
 COMFWIN   WI=SUBI  BSS    0           SUB INDEX                                           COMFWIN      278     A     
 COMFWIN   WI=SB0I  BSS    0           SUB0 INDEX                                          COMFWIN      279     A     
 COMFWIN   WI=ZERO  BSS    0           ZERO WORD                                           COMFWIN      280     A     
 COMFWIN   WO=FVEC  BSS    0           FILE POINTER WORD                                   COMFWIN      281     A     
 COMFWIN            MX1    0                                                               COMFWIN      282     A     
 COMFWIN            SX2    B1          RESERVE SPACE FOR WORD                              COMFWIN      283     A     
 COMFWIN            RJ     DLT         ADVANCE ORIGIN COUNTER                              COMFWIN      284     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      285     A     
 COMFWIN                                                                                   COMFWIN      286     A     
 COMFWIN                                                                                   COMFWIN      287     A     
 COMFWIN   WO=TRAC  BSS    0           TRAC - GENERATE TRACEBACK WORDS.                    COMFWIN      288     A     
 COMFWIN            SA3    =XS=TRACE                                                       COMFWIN      289     A     
 COMFWIN            =X1    X3+K.SYM*K=PFX                                                  COMFWIN      290     A     
 COMFWIN            SX2    1                                                               COMFWIN      291     A     
 COMFWIN            RJ     DLT         DEFINE LABEL TAG (TRACE.  BSS 1)                    COMFWIN      292     A     
 COMFWIN            SA3    =XS=TA0                                                         COMFWIN      293     A     
 COMFWIN            =X1    X3+K.SYM*K=PFX                                                  COMFWIN      294     A     
 COMFWIN            SX2    1                                                               COMFWIN      295     A     
 COMFWIN            RJ     DLT         DEFINE LABEL TAG (TEMPA0.  BSS 1)                   COMFWIN      296     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      297     A     
 COMFWIN                                                                                   COMFWIN      298     A     
 COMFWIN                                                                                   COMFWIN      299     A     
 COMFWIN   WO=CON   BSS                *READ CON TABLE PSEUDO                              COMFWIN      300     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      301     A     
 COMFWIN                                                                                   COMFWIN      302     A     
 COMFWIN                                                                                   COMFWIN      303     A     
 COMFWIN   WI=USE   BSS    0           *USE* PSEUDO INSTRUCTION                            COMFWIN      304     A     
 COMFWIN   WO=USE   BSS                                                                    COMFWIN      305     A     
 COMFWIN            RJ     PUSE        EXCHANGE PARCEL AND ORG (BLEN) COUNTERS             COMFWIN      306     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      307     A     
 COMFWIN                                                                                   COMFWIN      308     A     
 COMFWIN                                                                                   COMFWIN      309     A     
 COMFWIN   WI=OTR   BSS    0           OTR INSTRUCTION (6102B)                             COMFWIN      310     A     
 COMFWIN            SA3    ORG                                                             COMFWIN      311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            SA2    PARCEL                                                          COMFWIN      312     A     
 COMFWIN            =X6    2                                                               COMFWIN      313     A     
 COMFWIN            SA6    A2          PARCEL = 2                                          COMFWIN      314     A     
 COMFWIN            =X6    X3+1                                                            COMFWIN      315     A     
 COMFWIN            ZR     X2,WIN100   IF PARCEL WAS 0                                     COMFWIN      316     A     
 COMFWIN            SA6    A3          ORG = ORG + 1                                       COMFWIN      317     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      318     A     
 COMFWIN                                                                                   COMFWIN      319     A     
 COMFWIN   WI=RJ6   BSS    0           RJT INSTRUCTION (0100B)                             COMFWIN      320     A     
 COMFWIN            SA3    ORG                                                             COMFWIN      321     A     
 COMFWIN            =X6    X3+1                                                            COMFWIN      322     A     
 COMFWIN            SA6    WINB+1      FORCE UPPER AFTER                                   COMFWIN      323     A     
 COMFWIN            SA2    WINB        RJ6 INSTRUCTION                                     FC50264        8     A     
 COMFWIN            SA6    A3          ORG = ORG + 1                                       COMFWIN      324     A     
 COMFWIN            MX0    -PB.BIASL                                                       FC50264        9     A     
 COMFWIN            LX2    -PB.BIASP                                                       FC50264       10     A     
 COMFWIN            BX0    -X0*X2      EXTRACT LINE/SEQUENCE NUMBER                        FC50264       11     A     
 COMFWIN            SX0    X0-7776B                                                        FC50264       12     A     
 COMFWIN            MI     X0,WIN100   IF LINE/SEQUENCE NUMBER .LT. 4095                   FC50264       13     A     
 COMFWIN            =X6    X6+1                                                            FC50264       14     A     
 COMFWIN            SA6    A6          INCREMENT ORG COUNTER                               FC50264       15     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      325     A     
 COMFWIN                                                                                   COMFWIN      326     A     
 COMFWIN   WI=UJP   BSS    0           EQ INSTRUCTION (0400B)                              COMFWIN      327     A     
 COMFWIN   WI=JPI   BSS    0           JP INSTRUCTION (0200B)                              COMFWIN      328     A     
 COMFWIN   WI=RJ3   BSS    0           RJ INSTRUCTION (0100B)                              COMFWIN      329     A     
 COMFWIN            =X6    -B1                                                             COMFWIN      330     A     
 COMFWIN            SA6    WINB+1      SET FLAG TO FORCE UPPER AFTER                       COMFWIN      331     A     
 COMFWIN            =X1    X6          LONG INSTRUCTION                                    COMFWIN      332     A     
 COMFWIN            EQ     WIN10                                                           COMFWIN      333     A     
 COMFWIN                                                                                   COMFWIN      334     A     
 COMFWIN   WI=BSS   BSS    0           BSS, BSSZ PSEUDO INSTRUCTION                        COMFWIN      335     A     
 COMFWIN   WO=BSS   BSS    0                                                               COMFWIN      336     A     
 COMFWIN   WO=BSSZ  BSS                                                                    COMFWIN      337     A     
 COMFWIN            BX0    X7                                                              FC50001        5     A     
 COMFWIN            RJ     BNW         BEGIN NEW WORD                                      COMFWIN      338     A     
 COMFWIN            BX3    X0                                                              FC50001        6     A     
 COMFWIN            MX0    -PB.TAGL                                                        COMFWIN      339     A     
 COMFWIN            BX3    X7                                                              COMFWIN      340          I
          -FC50001
 COMFWIN            LX3    -PB.TAGP                                                        COMFWIN      341     A     
 COMFWIN            BX1    -X0*X3                                                          COMFWIN      342     A     
 COMFWIN            LX3    PB.TAGP-PB.BIASP                                                COMFWIN      343     A     
 COMFWIN            MX0    -PB.BIASL                                                       COMFWIN      344     A     
 COMFWIN            BX2    -X0*X3                                                          COMFWIN      345     A     
 COMFWIN            RJ     DLT         DEFINE LABEL AND RESERVE BLOCK STORAGE              COMFWIN      346     A     
 COMFWIN            EQ     WIN100                                                          COMFWIN      347     A     
 COMFWIN                                                                                   COMFWIN      348     A     
 COMFWIN                                                                                   COMFWIN      349     A     
 COMFWIN   WO=END   BSS    0                                                               COMFWIN      350     A     
 COMFWIN            =X7    0           FAKE AN INSTRUCTION TO CALL PUSE                    COMFWIN      351     A     
 COMFWIN            RJ     PUSE        STORE PARCEL AND ORG COUNT IN T.LBT                 COMFWIN      352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN            EQ     WIN100                                                          COMFWIN      353     A     
 COMFWIN                                                                                   COMFWIN      354     A     
 COMFWIN                                                                                   COMFWIN      355     A     
 COMFWIN  *         THE FOLLOWING PSEUDOS NEED NO PASS 2 PROCESSING.                       COMFWIN      356     A     
 COMFWIN                                                                                   COMFWIN      357     A     
 COMFWIN                                                                                   COMFWIN      358     A     
 COMFWIN   WI=LOO   BSS    0           LOO - TURN ON /OFF OBJECT LISTING                   COMFWIN      359     A     
 COMFWIN   WO=LOO   BSS    0                                                               COMFWIN      360     A     
 COMFWIN   WI=EMI   BSS    0           EMI - END MACHINE INSTRUCTIONS.                     COMFWIN      361     A     
 COMFWIN   WI=BCI   BSS                BCI - BEGIN CCG TYPE INSTRUCTION                    COMFWIN      362     A     
 COMFWIN   WI=ECI   BSS                ECI - END CCG TYPE INSTRUCTION                      COMFWIN      363     A     
 COMFWIN   WO=BMI   BSS    0           BMI - BEGIN MACHINE INSTRUCTIONS.                   COMFWIN      364     A     
 COMFWIN   WO=TERM  BSS                SET *SUB* BLOCK LENGTH                              COMFWIN      365          I
          -FC5A132
 COMFWIN   WO=NLST  BSS                *READ NAMELIST TABLE PSEUDO                         COMFWIN      366     A     
 COMFWIN   WO=APL   BSS                APLIST                                              COMFWIN      367     A     
 COMFWIN   WO=IOM   BSS                PROCESS I/O APLISTS                                 COMFWIN      368     A     
 COMFWIN   WO=FMT   BSS                FORMAT                                              COMFWIN      369     A     
 COMFWIN   WO=EQUN  BSS                NEGATIVE RELOCATION                                 COMFWIN      370     A     
 COMFWIN   WO=LCC   BSS                LOADER CONTROL DIRECTIVES                           COMFWIN      371     A     
 COMFWIN   WI=DATA  BSS    0           DATA SUB-TABLE HEADER                               COMFWIN      372          I
          -FC50001
 COMFWIN   WO=DATA  BSS                                                                    COMFWIN      373          I
          -FC5A132
 COMFWIN            EQ     WIN100                                                          COMFWIN      374     A     
 COMFWIN   WI=DATA  BSS    0                                                               FC50001        7     A     
 COMFWIN            RJ     BNW         FORCE UPPER                                         FC50001        8     A     
 COMFWIN            EQ     WIN100                                                          FC50001        9     A     
 COMFWIN                                                                                   COMFWIN      375          I
          -FC5A132
 COMFWIN                                                                                   COMFWIN      376          I
          -FC5A132
 COMFWIN   WO=BOS   BSS                                                                    COMFWIN      377          I
          -FC5A132
 COMFWIN   WO=COMNT BSS                                                                    COMFWIN      378          I
          -FC5A132
 COMFWIN   WO=DIS   BSS                                                                    COMFWIN      379          I
          -FC5A132
 COMFWIN   WO=HOL   BSS                                                                    COMFWIN      380          I
          -FC5A132
 COMFWIN   WO=REPI  BSS                                                                    COMFWIN      381          I
          -FC5A132
 COMFWIN   WO=TTLE  BSS    0                                                               COMFWIN      382          I
          -FC5A132
 COMFWIN            IFEQ   TEST,ON,1                                                       COMFWIN      383          I
          -FC5A132
 COMFWIN            EQ     "BLOWUP"    WIN CALLED WITH UNPROCESSABLE PSEUDO                COMFWIN      384          I
          -FC5A132
 COMFWIN   PSUD     SPACE  4,10                                                            COMFWIN      385     A     
 COMFWIN   WO=CMNT  BSS    0                                                               COMFWIN      386     A     
 COMFWIN  *         MANIPULATION.                                                          COMFWIN      387     A     
 COMFWIN                                                                                   COMFWIN      388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN                                                                                   COMFWIN      389     A     
 COMFWIN            PURGMAC PSUD,IPSUD                                                     COMFWIN      390     A     
 COMFWIN                                                                                   COMFWIN      391     A     
 COMFWIN   PSUD     MACRO  PSN                                                             COMFWIN      392     A     
 COMFWIN            VFD    42/0,18/WO=PSN                                                  COMFWIN      393     A     
 COMFWIN   PSUD     ENDM                                                                   COMFWIN      394     A     
 COMFWIN                                                                                   COMFWIN      395     A     
 COMFWIN   IPSUD    MACRO  PSN                                                             COMFWIN      396     A     
 COMFWIN            VFD    42/0,18/WI=PSN                                                  COMFWIN      397     A     
 COMFWIN   IPSUD    ENDM                                                                   COMFWIN      398     A     
 COMFWIN  *CALL     COMSPSU            PSEUDO INSTRUCTION JUMP TABLE                       COMFWIN      399     A     
 COMFWIN   SAVE     SPACE  4,10                                                            COMFWIN      400     A     
 COMFWIN  *         WIN SAVE AREA.                                                         COMFWIN      401     A     
 COMFWIN                                                                                   COMFWIN      402     A     
 COMFWIN   PSTAB    CON    0           FWA OF OC$XXX OR I.XXX TABLE                        COMFWIN      403     A     
 COMFWIN   WINA     CON    0           STORAGE FOR PACKED 15 BIT INSTRUCTIONS              COMFWIN      404     A     
 COMFWIN   WINB     CON    0           TEMP STORE OF INSTRUCTION                           COMFWIN      405     A     
 COMFWIN                               ** WINB MUST BE AT WINA+1 **                        COMFWIN      406     A     
 COMFWIN            CON    0           MINUS IF FORCE UPPER AFTER, ELSE 0                  COMFWIN      407     A     
 COMFWIN   WINC     CON    0           SAVE OF X3                                          COMFWIN      408     A     
 COMFWIN   WIND     BSS    1           SAVE OF (X4)                                        COMFWIN      409     A     
 COMFWIN   BNW      SPACE  4,10                                                            COMFWIN      410     A     
 COMFWIN   .CG      IFEQ   .CG,.FAST                                                       FC50001       10     A     
 COMFWIN  **        BNW - BEGIN NEW WORD.                                                  COMFWIN      411     A     
 COMFWIN  *                                                                                COMFWIN      412     A     
 COMFWIN  *         EXIT   (PARCEL) = 0                                                    COMFWIN      413     A     
 COMFWIN  *                                                                                COMFWIN      414     A     
 COMFWIN  *         USES   X2,X3,A6  X2,X3,X6.                                             COMFWIN      415     A     
 COMFWIN                                                                                   COMFWIN      416     A     
 COMFWIN                                                                                   COMFWIN      417     A     
 COMFWIN   BNW      SUBR   0           ENTRY/EXIT...                                       COMFWIN      418     A     
 COMFWIN            SA2    PARCEL                                                          COMFWIN      419     A     
 COMFWIN            SA3    ORG                                                             COMFWIN      420     A     
 COMFWIN            ZR     X2,EXIT.    IF ALREADY AT TOP OF WORD                           COMFWIN      421     A     
 COMFWIN            MX6    0                                                               COMFWIN      422     A     
 COMFWIN            SA6    A2          (PARCEL) = 0                                        COMFWIN      423     A     
 COMFWIN            SX6    X3+B1                                                           COMFWIN      424     A     
 COMFWIN            SA6    A3          ADVANCE ORIGIN COUNTER                              COMFWIN      425     A     
 COMFWIN            EQ     EXIT.                                                           COMFWIN      426     A     
 COMFWIN                                                                                   FC50001       11     A     
 COMFWIN   .CG      ELSE                                                                   FC50001       12     A     
 COMFWIN                                                                                   FC50001       13     A     
 COMFWIN            EXT    FSU#        IN CGTM                                             FC50001       14     A     
 COMFWIN   BNW      EQU    FSU#                                                            FC50001       15     A     
 COMFWIN   .CG      ENDIF                                                                  FC50001       16     A     
 COMFWIN   DLT      SPACE  4,10                                                            COMFWIN      427     A     
 COMFWIN  **        DLT - DEFINE LABEL TAG.                                                COMFWIN      428     A     
 COMFWIN  *                                                                                COMFWIN      429     A     
 COMFWIN  *         ENTRY  (X1) = TAG TO DEFINE.                                           COMFWIN      430     A     
 COMFWIN  *                (X2) = NUMBER OF WORDS TO RESERVE.                              COMFWIN      431     A     
 COMFWIN  *                (ORG, CBI) = SET AS DESIRED FOR DEFINITION.                     COMFWIN      432     A     
 COMFWIN  *                (PARCEL)  ALREADY FORCED UPPER.                                 COMFWIN      433     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN  *                                                                                COMFWIN      434     A     
 COMFWIN  *         EXIT   (ORG) ADVANCED.                                                 COMFWIN      435     A     
 COMFWIN  *                                                                                COMFWIN      436     A     
 COMFWIN  *         CALLS  DPT                                                             COMFWIN      437     A     
 COMFWIN  *                                                                                COMFWIN      438     A     
 COMFWIN  *         CANNOT DESTROY  A0,4,5  X4,5  B2,4,5,6                                 COMFWIN      439     A     
 COMFWIN                                                                                   COMFWIN      440     A     
 COMFWIN                                                                                   COMFWIN      441     A     
 COMFWIN   DLT      SUBR   0           ENTRY/EXIT...                                       COMFWIN      442     A     
 COMFWIN            SA3    ORG                                                             COMFWIN      443     A     
 COMFWIN            IX6    X3+X2       ADVANCE ORIGIN COUNTER                              COMFWIN      444     A     
 COMFWIN            SA6    A3                                                              COMFWIN      445     A     
 COMFWIN            ZR     X1,EXIT.    IF NO TAG                                           COMFWIN      446     A     
 COMFWIN            MX0    -PB.ORDL                                                        COMFWIN      447     A     
 COMFWIN            LX1    PB.TAGP-PB.ORDP                                                 COMFWIN      448     A     
 COMFWIN            BX6    -X0*X1      ORD[TAG]                                            COMFWIN      449     A     
 COMFWIN            AX1    -PB.ORDP+PB.PFXP  ISOLATE (X1) = PFX[TAG]                       COMFWIN      450     A     
 COMFWIN            ERRMI  PB.PFXP-PB.ORDP   CODE ASSUMES [PFX] TO LEFT OF [ORD]           COMFWIN      451     A     
 COMFWIN            SA2    CBI                                                             COMFWIN      452     A     
 COMFWIN            SB7    X6          (B7) = ORDINAL OF TAG                               COMFWIN      453     A     
 COMFWIN            LX2    WC.RBP                                                          COMFWIN      454     A     
 COMFWIN            =X6    ML.PROG                                                         COMFWIN      455     A     
 COMFWIN            LX3    WC.RAP                                                          COMFWIN      456     A     
 COMFWIN            SB3    X1          (B3) = TAG PREFIX                                   COMFWIN      457     A     
 COMFWIN            LX6    WC.RLP                                                          COMFWIN      458     A     
 COMFWIN            BX2    X2+X3                                                           COMFWIN      459     A     
 COMFWIN            BX6    X2+X6       FORM ADDRESS DEFINITION WORD                        COMFWIN      460     A     
 COMFWIN            JP     B3+DLTA     PROCESS ACCORDING TO TAG PREFIX                     COMFWIN      461     A     
 COMFWIN                                                                                   COMFWIN      462     A     
 COMFWIN   DLTA     BSS    0           TAG TYPE JUMP VECTOR                                COMFWIN      463     A     
 COMFWIN            LOC    0                                                               COMFWIN      464     A     
 COMFWIN   K=SYM    SA1    =XT.SYM                                                         COMFWIN      465     A     
 COMFWIN            EQ     DLT2                                                            COMFWIN      466     A     
 COMFWIN   K=GL     EQ     DLT4                                                            COMFWIN      467     A     
 COMFWIN   K=AP     EQ     "BLOWUP"                                                        COMFWIN      468     A     
 COMFWIN   K=IO     EQ     "BLOWUP"                                                        COMFWIN      469     A     
 COMFWIN   K=LC     EQ     "BLOWUP"                                                        COMFWIN      470     A     
 COMFWIN   K=END    BSS    0           VERIFY VECTOR SYNCHRONIZATION                       COMFWIN      471     A     
 COMFWIN            LOC    *O                                                              COMFWIN      472     A     
 COMFWIN                                                                                   COMFWIN      473     A     
 COMFWIN                                                                                   COMFWIN      474     A     
 COMFWIN   DLT2     BSS                ... TAG IS IN SYMBOL TABLE                          COMFWIN      475     A     
 COMFWIN            SX2    B7+B7                                                           COMFWIN      476     A     
 COMFWIN            SX0    X2+B7       (X0) = INDEX = L.SYM * SYMORD                       COMFWIN      477     A     
 COMFWIN            ERRNZ  3-Z=SYM                                                         COMFWIN      478     A     
 COMFWIN            =B3    X1+WC.W                                                         COMFWIN      479     A     
 COMFWIN            SA2    X0+B3       FETCH SYMTAB ADDRESS WORD                           COMFWIN      480     A     
 COMFWIN                                                                                   COMFWIN      481     A     
 COMFWIN   .TEST    IFEQ   TEST,ON                                                         COMFWIN      482     A     
 COMFWIN            CLAS=  X3,WC,(RL,RB,RA)                                                COMFWIN      483     A     
 COMFWIN            BX1    X3*X2                                                           COMFWIN      484     A     
 COMFWIN            NZ     X1,"BLOWUP" IF PREVIOUSLY ASSIGNED ADDRESS                      COMFWIN      485     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFWIN 
  
 COMFWIN   .TEST    ENDIF                                                                  COMFWIN      486     A     
 COMFWIN                                                                                   COMFWIN      487     A     
 COMFWIN            BX6    X2+X6       SET ADDRESS FIELDS                                  COMFWIN      488     A     
 COMFWIN            SA6    A2                                                              COMFWIN      489     A     
 COMFWIN            EQ     EXIT.                                                           COMFWIN      490     A     
 COMFWIN                                                                                   COMFWIN      491     A     
 COMFWIN                                                                                   COMFWIN      492     A     
 COMFWIN   DLT4     BSS                ... TAG IS GENERATED LABEL                          COMFWIN      493     A     
 COMFWIN            SB3    B7                                                              COMFWIN      494     A     
 COMFWIN            CALL   DPT         DEFINE PROGRAM TAG                                  COMFWIN      495     A     
 COMFWIN            EQ     EXIT.                                                           COMFWIN      496     A     
 COMFWIN   COMFWIN  SPACE  4,10                                                            COMFWIN      497     A     
 COMFWIN   QUAL$    IF     -DEF,QUAL$,1                                                    COMFWIN      498     A     
 COMFWIN            QUAL   *                                                               COMFWIN      499     A     
 COMFWIN   WIN      EQU    /COMFWIN/WIN                                                    COMFWIN      500     A     
 COMFWIN   WTE      EQU    /COMFWIN/WTE                                                    COMFWIN      501     A     
 COMFWIN   PSTAB    EQU    /COMFWIN/PSTAB                                                  COMFWIN      502     A     
 COMFWIN   WINI     EQU    /COMFWIN/IPSUD                                                  COMFWIN      503     A     
 COMFWIN   WINOC    EQU    /COMFWIN/OCPSUD                                                 COMFWIN      504     A     
 COMFWIN   QUAL$    ENDIF                                                                  COMFWIN      505     A     
 COMFWIN   COMFWIN  ENDX                                                                   COMFWIN      506     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFWIN 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFWIN                    506       492
          FC5A158A                    28        28
          FC50001                     12        12
          FC50049                      1         1
          FC50264                      8         8
          FC50452                      5         5
          FC50545                      2         2
          FC50860                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSEIS 
  
 COMSEIS  *COMDECK  COMSEIS - SKELETON DESCRIPTION FOR QCG.                                COMSEIS        1     A     
 COMSEIS            CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                         COMSEIS        2     A     
 COMSEIS            SPACE  4,10                                                            COMSEIS        3     A     
 COMSEIS  **        SKELETON OP-CODE TYPE VALUES.                                          COMSEIS        4     A     
 COMSEIS                                                                                   COMSEIS        5     A     
 COMSEIS                                                                                   COMSEIS        6     A     
 COMSEIS   M.COND   EQU    0           CONDITIONAL                                         COMSEIS        7     A     
 COMSEIS   M.NORM   EQU    1           ARITHMETIC OP-CODES                                 COMSEIS        8     A     
 COMSEIS   M.INCR   EQU    2           LOAD REGISTER OP-CODES                              COMSEIS        9     A     
 COMSEIS   M.BRAN   EQU    3           BRANCH OP-CODES                                     COMSEIS       10     A     
 COMSEIS   M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                             COMSEIS       11     A     
 COMSEIS   M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO            COMSEIS       12     A     
 COMSEIS   M.INOOP  EQU    6           SPECIAL TYPE FOR NOOPS                              COMSEIS       13     A     
 COMSEIS   M.ISBRN  EQU    7           TYPE FOR A BRANCH TO OTHER SKELS                    COMSEIS       14     A     
 COMSEIS   M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                             COMSEIS       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSEIS 
  
 COMSEIS   M.RND    EQU    21B         M.NORM + THE ROUNDABLE BIT.                         COMSEIS       16     A     
 COMSEIS   M.IEND   EQU    40B         END OF SKELETON                                     COMSEIS       17     A     
 COMSEIS   P.IEND   EQU    59                                                              COMSEIS       18     A     
 COMSEIS   SK.      SPACE  4,10                                                            COMSEIS       19     A     
 COMSEIS  **        SK. - WORD FORMAT OF SKELETON INSTRUCTION.                             COMSEIS       20     A     
 COMSEIS                                                                                   COMSEIS       21     A     
 COMSEIS                                                                                   COMSEIS       22     A     
 COMSEIS            DESCRIBE  SK.,60                                                       COMSEIS       23     A     
 COMSEIS   END      DEFINE 1                                                               COMSEIS       24     A     
 COMSEIS   RND      DEFINE 1                                                               COMSEIS       25     A     
 COMSEIS   TYP      DEFINE 6,59                                                            COMSEIS       26     A     
 COMSEIS   GH       DEFINE 6                                                               COMSEIS       27     A     
 COMSEIS   OPC      DEFINE 9,53                                                            COMSEIS       28     A     
 COMSEIS   IF       DEFINE 11                                                              COMSEIS       29     A     
 COMSEIS   JF       DEFINE 11                                                              COMSEIS       30     A     
 COMSEIS   KF       DEFINE 11                                                              COMSEIS       31     A     
 COMSEIS   QF       DEFINE 12                                                              COMSEIS       32     A     
 COMSEIS   ATTR     DEFINE 18,53                                                           COMSEIS       33     A     
 COMSEIS   ARG      DEFINE 18                                                              COMSEIS       34     A     
 COMSEIS   JPAD     DEFINE 18                                                              COMSEIS       35     A     
 COMSEIS   SR       SPACE  4,10                                                            COMSEIS       36     A     
 COMSEIS  **        SR.      -- SKELETON REGISTER/CONSTANT FIELD --                        COMSEIS       37     A     
 COMSEIS  *                THE SR. STRUCTURE IS A SUB-STRUCTURE OF SK. IT                  COMSEIS       38     A     
 COMSEIS  *                RESIDES IN THE SK.I, SK.J, AND SK.K FIELDS.                     COMSEIS       39     A     
 COMSEIS  *                THESE FIELDS CONTROL THE CONSTRUCTION IF THE                    COMSEIS       40     A     
 COMSEIS  *                I, J, AND K/Q PORTION OF A PREBINARY WORD.                      COMSEIS       41     A     
 COMSEIS                                                                                   COMSEIS       42     A     
 COMSEIS            DESCRIBE   SR.,11                                                      COMSEIS       43     A     
 COMSEIS   OAD      DEFINE 5                                                               COMSEIS       44     A     
 COMSEIS   NUM      DEFINE 6                                                               COMSEIS       45     A     
 COMSEIS                                                                                   COMSEIS       46     A     
 COMSEIS            ENDX                                                                   COMSEIS       47     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSEIS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSEIS                     47        47
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSERR 
  
 COMSERR  *COMDECK  COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              COMSERR        1     A     
 COMSERR            CTEXT  COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR                COMSERR        2     A     
 COMSERR   VALUES   SPACE  4,20                                                            COMSERR        3     A     
 COMSERR  **        DISPLAY CODE VALUES OF ASSEMBLY CONSTANTS.                             COMSERR        4     A     
 COMSERR                                                                                   COMSERR        5     A     
 COMSERR                                                                                   COMSERR        6     A     
 COMSERR   ANS.CONT DECMIC ANS.CONT    MAX CONTINUATION LINES ALLOWED BY ANSI              COMSERR        7     A     
 COMSERR   L.IOBUF6 OCTMIC L.IOBUF6    DEFAULT IO BUFFER LENGTH                            COMSERR        8     A     
 COMSERR   MAX.BLK  DECMIC MAX.BLK     MAX COMMON BLOCKS ALLOWED                           COMSERR        9     A     
 COMSERR   MAX.BUFL OCTMIC MAX.BUFL    MAX IO BUFFER LENGTH                                COMSERR       10     A     
 COMSERR   MAX.DIM  DECMIC MAX.DIM     MAX DIMENSIONS ALLOWED                              COMSERR       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSERR 
  
 COMSERR   MAX.SARG DECMIC MAX.SARG    MAX SUBPROGRAM ARGUMENTS                            COMSERR       12     A     
 COMSERR   MAX.PARG DECMIC MAX.PARG    MAX MAIN PROGRAM ARGUMENTS                          COMSERR       13     A     
 COMSERR   MAX.LFN  DECMIC MAX.LFN     MAX CHARACTERS IN LOGICAL FILE NAME                 COMSERR       14     A     
 COMSERR   MAX.RECL MICRO  1,, 2**17-1 MAX RECORD LENGTH                                   COMSERR       15          I
          -FC5A145
 COMSERR            ERRNZ  1S17-1-MAX.RECL   MAX.RECL OUT OF SYNCH WITH TEXT               COMSERR       16          I
          -FC5A145
 COMSERR   MAX.RECL OCTMIC MAX.RECL    MAX RECORD LENGTH                                   FC5A145        4     A     
 COMSERR   NOR.RECL DECMIC NOR.RECL    NORMAL RECORD LENGTH                                COMSERR       17     A     
 COMSERR   MAX.CL   MICRO  1,, 2**15-1 MAX CHARACTER LENGTH                                COMSERR       18     A     
 COMSERR            ERRNZ  1S15-1-MAX.CL     MAX.CL OUT OF SYNCH WITH TEXT                 COMSERR       19     A     
 COMSERR   MAX.SPAN MICRO  1,, 2**23-1 MAX DIMENSION SPAN                                  COMSERR       20     A     
 COMSERR            ERRNZ  23-MAX.SPAN                                                     COMSERR       21     A     
 COMSERR   MAX.SPCM DECMIC MAX.SPCM                                                        COMSERR       22     A     
 COMSERR   MAX.SPLC DECMIC MAX.SPLC                                                        COMSERR       23     A     
 COMSERR   ERRSKEL  SPACE  4,10                                                            COMSERR       24     A     
 COMSERR  ****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.                         COMSERR       25     A     
 COMSERR  *                                                                                COMSERR       26     A     
 COMSERR  *         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE         COMSERR       27     A     
 COMSERR  *         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE             COMSERR       28     A     
 COMSERR  *         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS                  COMSERR       29     A     
 COMSERR  *         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.                           COMSERR       30     A     
 COMSERR                                                                                   COMSERR       31     A     
 COMSERR                                                                                   COMSERR       32     A     
 COMSERR   N.ER1ST  EQU    4                                                               COMSERR       33     A     
 COMSERR   N.ERREST EQU    6                                                               COMSERR       34     A     
 COMSERR            DESCRIBE ER.,60                                                        COMSERR       35     A     
 COMSERR   TYP      DEFINE 5,23        ERROR TYPE INDICATOR                                COMSERR       36     A     
 COMSERR   XIT      DEFINE 18          EXIT ADDRESS                                        COMSERR       37     A     
 COMSERR   ER.WORDL EQU    9           LENGTH OF EACH ORDINAL BYTE                         COMSERR       38     A     
 COMSERR   MORE     DEFINE 1,5         CONTINUATION FLAG                                   COMSERR       39     A     
 COMSERR  ****                                                                             COMSERR       40     A     
 COMSERR   L=ERWORD EQU    ER.WORDL                                                        COMSERR       41     A     
 COMSERR   L=ERTYPE EQU    ER.TYPL                                                         COMSERR       42     A     
 COMSERR   P=ERTYPE EQU    ER.TYPP+ER.TYPL                                                 COMSERR       43     A     
 COMSERR   L=ERMORE EQU    ER.TYPL                                                         COMSERR       44     A     
 COMSERR   L=ERXIT  EQU    ER.XITL                                                         COMSERR       45     A     
 COMSERR            NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT                     COMSERR       46     A     
 COMSERR   DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC                    COMSERR       47     A     
 COMSERR   COMSERR  ENDX                                                                   COMSERR       48     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSERR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSERR                     48        46
          FC5A145                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSIOC 
  
 COMSIOC  *COMDECK  COMSIOC - DEFINE I/O CONTROL CODE VALUES FOR FCL.                      COMSIOC        1     A     
 COMSIOC   COMSIOC  SPACE  4,10                                                            COMSIOC        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSIOC 
  
 COMSIOC  **        DEFINE I/O CONTROL CODES.                                              COMSIOC        3     A     
 COMSIOC                                                                                   COMSIOC        4     A     
 COMSIOC                                                                                   COMSIOC        5     A     
 COMSIOC            LOC    1                                                               COMSIOC        6     A     
 COMSIOC   IOCAD    EQU    *O                                                              COMSIOC        7     A     
 COMSIOC   UNT      ICDEF  UNIT=                                                           COMSIOC        8     A     
 COMSIOC   END      ICDEF  END=                                                            COMSIOC        9     A     
 COMSIOC   ERR      ICDEF  ERR=                                                            COMSIOC       10     A     
 COMSIOC   FMT      ICDEF  FMT=                                                            COMSIOC       11     A     
 COMSIOC   IOS      ICDEF  IOSTAT=                                                         COMSIOC       12     A     
 COMSIOC   REC      ICDEF  REC=                                                            COMSIOC       13     A     
 COMSIOC   SKP      ICDEF  SKIP                                                            COMSIOC       14     A     
 COMSIOC   NML      ICDEF  NAMELIST NAME (GROUP)                                           COMSIOC       15     A     
 COMSIOC            ICDEF                                                                  COMSIOC       16     A     
 COMSIOC            ICDEF                                                                  COMSIOC       17     A     
 COMSIOC            ICDEF                                                                  COMSIOC       18     A     
 COMSIOC   ACC      ICDEF  ACCESS=                                                         COMSIOC       19     A     
 COMSIOC   BLK      ICDEF  BLANK=                                                          COMSIOC       20     A     
 COMSIOC   BFL      ICDEF  BUFL=                                                           COMSIOC       21     A     
 COMSIOC   DIR      ICDEF  DIRECT=                                                         COMSIOC       22     A     
 COMSIOC   EXS      ICDEF  EXIST=                                                          COMSIOC       23     A     
 COMSIOC   FIL      ICDEF  FILE=                                                           COMSIOC       24     A     
 COMSIOC   FOR      ICDEF  FORM=                                                           COMSIOC       25     A     
 COMSIOC   FMD      ICDEF  FORMATTED=                                                      COMSIOC       26     A     
 COMSIOC   NAM      ICDEF  NAME=                                                           COMSIOC       27     A     
 COMSIOC   NMD      ICDEF  NAMED=                                                          COMSIOC       28     A     
 COMSIOC   NXT      ICDEF  NEXTREC=                                                        COMSIOC       29     A     
 COMSIOC   NUM      ICDEF  NUMBER=                                                         COMSIOC       30     A     
 COMSIOC   OPE      ICDEF  OPENED=                                                         COMSIOC       31     A     
 COMSIOC   RCL      ICDEF  RECL=                                                           COMSIOC       32     A     
 COMSIOC   SEQ      ICDEF  SEQUENTIAL=                                                     COMSIOC       33     A     
 COMSIOC   STA      ICDEF  STATUS=                                                         COMSIOC       34     A     
 COMSIOC   UNF      ICDEF  UNFORMATTED=                                                    COMSIOC       35     A     
 COMSIOC   BUF      ICDEF  BFFER I/O FWA AND LWA                                           COMSIOC       36     A     
 COMSIOC   CNT      ICDEF  ENCODE/DECODE COUNT                                             COMSIOC       37     A     
 COMSIOC   MOD      ICDEF  BUFFER I/O MODE                                                 COMSIOC       38     A     
 COMSIOC   STR      ICDEF  ENCODE/DECODE STRING ADDRESS                                    COMSIOC       39     A     
 COMSIOC   FMTA     ICDEF  ASSIGNED FORMAT                                                 COMSIOC       40     A     
 COMSIOC                                                                                   COMSIOC       41     A     
 COMSIOC            LOC    *O                                                              COMSIOC       42     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSIOC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSIOC                     42        42
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSLBT 
  
 COMSLBT  *COMDECK  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.                             COMSLBT        1     A     
 COMSLBT            CTEXT  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.                      COMSLBT        2     A     
 COMSLBT   LBLK     SPACE  4,10                                                            COMSLBT        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSLBT 
  
 COMSLBT  **        IF CALLER DOES NOT DEFINE *LBLK* MACRO, THEN THIS                      COMSLBT        4     A     
 COMSLBT  *         COMDECK DEFINES LOCAL BLOCK NUMBERS.                                   COMSLBT        5     A     
 COMSLBT                                                                                   COMSLBT        6     A     
 COMSLBT                                                                                   COMSLBT        7     A     
 COMSLBT   .MAC     IF     -MAC,LBLK                                                       COMSLBT        8     A     
 COMSLBT                                                                                   COMSLBT        9     A     
 COMSLBT            MACRO  LBLK,NR,NAM                                                     COMSLBT       10     A     
 COMSLBT   NR       SET    '?LBT#NN                                                        COMSLBT       11     A     
 COMSLBT   '?LBT#NN SET    '?LBT#NN+1                                                      COMSLBT       12     A     
 COMSLBT            ENDM                                                                   COMSLBT       13     A     
 COMSLBT                                                                                   COMSLBT       14     A     
 COMSLBT   '?LBT#NN SET                                                                    COMSLBT       15     A     
 COMSLBT                                                                                   COMSLBT       16     A     
 COMSLBT   .MAC     ENDIF                                                                  COMSLBT       17     A     
 COMSLBT   BN=      SPACE  4,10                                                            COMSLBT       18     A     
 COMSLBT   BN=STRT  LBLK   START.                                                          COMSLBT       19     A     
 COMSLBT   BN=CODE  LBLK   CODE.                                                           COMSLBT       20     A     
 COMSLBT   BN=CON   LBLK   LITERL.                                                         COMSLBT       21     A     
 COMSLBT   BN=FMT   LBLK   FORMAT.                                                         COMSLBT       22     A     
 COMSLBT   BN=TEM   LBLK   TEMPS.                                                          COMSLBT       23     A     
 COMSLBT   BN=APL   LBLK   APLST.                                                          COMSLBT       24     A     
 COMSLBT   BN=IOAP  LBLK   IOAPL.                                                          COMSLBT       25     A     
 COMSLBT   BN=NLST  LBLK   NAMLST.                                                         COMSLBT       26     A     
 COMSLBT   BN=VAR   LBLK   VARS.                                                           COMSLBT       27     A     
 COMSLBT   BN=SUB   LBLK   SUB.                                                            COMSLBT       28     A     
 COMSLBT   BN=SUB0  LBLK   SUB0.                                                           COMSLBT       29     A     
 COMSLBT   BN=BUF   LBLK   BUFER.                                                          COMSLBT       30     A     
 COMSLBT                                                                                   COMSLBT       31     A     
 COMSLBT            PURGMAC LBLK                                                           COMSLBT       32     A     
 COMSLBT                                                                                   COMSLBT       33     A     
 COMSLBT                                                                                   COMSLBT       34     A     
 COMSLBT            ENDX                                                                   COMSLBT       35     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSLBT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSLBT                     35        35
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQCG 
  
 COMSQCG  *COMDECK  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GENERATOR.              COMSQCG        1     A     
 COMSQCG            CTEXT  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.             COMSQCG        2     A     
 COMSQCG   COMSQCG  SPACE  4,10                                                            COMSQCG        3     A     
 COMSQCG  ***       COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GENERATOR.              COMSQCG        4     A     
 COMSQCG  *                                                                                COMSQCG        5     A     
 COMSQCG  *         COPYRIGHT CONTROL DATA CORP. 1977.                                     COMSQCG        6     A     
 COMSQCG   AT       SPACE  4,10                                                            COMSQCG        7     A     
 COMSQCG  **        AT - FORM FOR ATF CELL IN FUN                                          COMSQCG        8     A     
 COMSQCG  *         THIS CELL DRIVES APLIST GENERATION                                     COMSQCG        9     A     
 COMSQCG                                                                                   COMSQCG       10     A     
 COMSQCG                                                                                   COMSQCG       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQCG 
  
 COMSQCG            DESCRIBE AT.,60    ATF (APLIST TYPE INFO) WORD                         COMSQCG       12     A     
 COMSQCG   LEN      DEFINE             PROCESSING I/O LEN                                  COMSQCG       13     A     
 COMSQCG   IOC      DEFINE             PROCESSING I/O CONTROL CODE                         COMSQCG       14     A     
 COMSQCG   CHAR     DEFINE             CHAR TYPE APLIST FOR ASM                            COMSQCG       15     A     
 COMSQCG   NUL      DEFINE             THIS ITEM HAS NON-UNITY ARRAY LEN                   COMSQCG       16     A     
 COMSQCG   LEV0     DEFINE             LEVEL 0                                             COMSQCG       17     A     
 COMSQCG   SPR      DEFINE             SPACE PREVIOUSLY RESERVED                           COMSQCG       18     A     
 COMSQCG   MODE     DEFINE 5                                                               COMSQCG       19     A     
 COMSQCG            DEFINE 31                                                              COMSQCG       20     A     
 COMSQCG   FILL     DEFINE 17                                                              COMSQCG       21     A     
 COMSQCG   IO       DEFINE                                                                 COMSQCG       22     A     
 COMSQCG   OP.      SPACE  4,20                                                            COMSQCG       23     A     
 COMSQCG  **        OP. - OPERATOR DESCRIPTION WORD.                                       COMSQCG       24     A     
 COMSQCG  *                                                                                COMSQCG       25     A     
 COMSQCG  *         AT THE BEGINNING OF QCG, THE ROUTINE QUIK/DOW TRANSFORMS               COMSQCG       26     A     
 COMSQCG  *         THE (TH.) FORMAT RECEIVED IN THE INTERMEDIATE LANGUAGE FILE            COMSQCG       27     A     
 COMSQCG  *         INTO (OP.) FORM, SO THE REST OF QCG IS NOT AWARE OF (TH.).             COMSQCG       28     A     
 COMSQCG  *                                                                                COMSQCG       29     A     
 COMSQCG  *         AS CODE GENERATION PROCEEDS, THE (OP.) WORDS ARE RE-USED AS            COMSQCG       30     A     
 COMSQCG  *         STATUS WORDS FOR THE INTERMEDIATE THEY GIVE RISE TO.  IF THE           COMSQCG       31     A     
 COMSQCG  *         INTERMEDIATE SHOULD GET STORED OUT INTO A TEMP, THE STATUS             COMSQCG       32     A     
 COMSQCG  *         WORD IS REPLACED BY A (P2.) REPRESENTING THE TEMP.                     COMSQCG       33     A     
 COMSQCG                                                                                   COMSQCG       34     A     
 COMSQCG                                                                                   COMSQCG       35     A     
 COMSQCG            DESCRIBE  OP.                                                          COMSQCG       36     A     
 COMSQCG   SKEL     DEFINE 18 (16)     (RELATIVE) ADDRESS OF SKELETON                      COMSQCG       37          I
          -FC50104
 COMSQCG   LINE     DEFINE 14 (16)     LINE NUMBER, IF 1ST TURP OF STATEMENT               COMSQCG       38          I
          -FC50104
 COMSQCG   2ORD     DEQU   LINE                                                            COMSQCG       39          I
          -FC50104
 COMSQCG   SKEL     DEFINE 14          (RELATIVE) ADDRESS OF SKELETON                      FC50104        9     A     
 COMSQCG   LINE     DEFINE 18          LINE/SEQUENCE NO. (1ST TURPLE OF STATEMENT)         FC50104       10     A     
 COMSQCG            REDEF  LINE                                                            FC50104       11     A     
 COMSQCG            DEFINE 4                                                               FC50104       12     A     
 COMSQCG   2ORD     DEFINE 14                                                              FC50104       13     A     
 COMSQCG   CHIN     DEFINE 6                                                               COMSQCG       40     A     
 COMSQCG   MODE     DEFINE TH.MODEL                                                        COMSQCG       41     A     
 COMSQCG   2MOD     DEQU   MODE,WB.MODEL                                                   COMSQCG       42     A     
 COMSQCG            ERRMI  OP.MODEL-OP.2MODL                                               COMSQCG       43     A     
 COMSQCG            ERRMI  4-OP.MODEL                                                      COMSQCG       44     A     
 COMSQCG   QATR     DEFINE 4                                                               COMSQCG       45     A     
 COMSQCG   1ORD     DEFINE 14                                                              COMSQCG       46     A     
 COMSQCG            ERRNZ  OP.2ORDL-OP.1ORDL                                               COMSQCG       47     A     
 COMSQCG   TOT      DEFINE 18,17                                                           COMSQCG       48     A     
 COMSQCG   QATR     SPACE  4,7                                                             COMSQCG       49     A     
 COMSQCG            REDEF  QATR        QCG REFORMATTING ATTRIBUTES                         COMSQCG       50     A     
 COMSQCG            DEFINE 2                                                               COMSQCG       51          I
          -FC5A166
 COMSQCG            DEFINE 1                                                               FC5A166        5     A     
 COMSQCG   BSSI     DEFINE 1           BSS ISSUED BY *BOS*                                 FC5A166        6     A     
 COMSQCG   1DUC     DEFINE                                                                 COMSQCG       52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQCG 
  
 COMSQCG   2DUC     DEFINE                                                                 COMSQCG       53     A     
 COMSQCG   TOT      SPACE  4,7                                                             COMSQCG       54     A     
 COMSQCG            REDEF  TOT         USE TOTAL FIELDS FOR ACCURATE USE COUNTING          COMSQCG       55     A     
 COMSQCG   LTOT     DEFINE 9                                                               COMSQCG       56     A     
 COMSQCG   UTOT     DEFINE 9                                                               COMSQCG       57     A     
 COMSQCG   USE      DEQU   UTOT                                                            COMSQCG       58     A     
 COMSQCG            ERRNZ  OP.USEL-OP.LTOTL                                                COMSQCG       59     A     
 COMSQCG   P2.      SPACE  4,20                                                            COMSQCG       60     A     
 COMSQCG  **        P2. - PASS TWO TAG FORM.                                               COMSQCG       61     A     
 COMSQCG  *                                                                                COMSQCG       62     A     
 COMSQCG  *         A "P2. TAG-FORM" IS THE REPRESENTATION OF AN OPERAND USED              COMSQCG       63     A     
 COMSQCG  *         BY THE QUICK CODE GENERATOR.  AT THE BEGINNING OF QCG, THE             COMSQCG       64     A     
 COMSQCG  *         ROUTINE GEN/DUC TRANSFORMS THE (TP.) FORMAT RECEIVED IN THE            COMSQCG       65     A     
 COMSQCG  *         INTERMEDIATE LANGUAGE FILE INTO (P2.), SO THE REST OF QCG              COMSQCG       66     A     
 COMSQCG  *         NOT AWARE OF (TP.).                                                    COMSQCG       67     A     
 COMSQCG                                                                                   COMSQCG       68     A     
 COMSQCG                                                                                   COMSQCG       69     A     
 COMSQCG            DESCRIBE  P2.                                                          COMSQCG       70     A     
 COMSQCG   TAG      DEFINE 16          PREFIX + TABLE ORDINAL                              COMSQCG       71     A     
 COMSQCG   PFX      DEFINE 3,59                                                            COMSQCG       72     A     
 COMSQCG   ORD      DEFINE 13                                                              COMSQCG       73     A     
 COMSQCG   BIAS     DEFINE 24                                                              COMSQCG       74     A     
 COMSQCG   ORBI     DEQU   BIAS,P2.TAGL+P2.BIASL                                           COMSQCG       75     A     
 COMSQCG   2ATR     DEFINE 3           ATTRIBUTES KEPT THROUGH PASS 2                      COMSQCG       76     A     
 COMSQCG   IL.      DEFINE 17          FIELDS APPEARING IN IL                              COMSQCG       77     A     
 COMSQCG   ST.      DEQU   IL.         FIELDS USED FOR OPERAND STATUS  (T.OUS)             COMSQCG       78     A     
 COMSQCG   RG.      DEQU   IL.         FIELDS USED FOR REGISTER STATUS (REGFILE)           COMSQCG       79     A     
 COMSQCG            ERRNZ  P2.IL.P                                                         COMSQCG       80     A     
 COMSQCG                                                                                   COMSQCG       81     A     
 COMSQCG                                                                                   COMSQCG       82     A     
 COMSQCG            REDEF  IL.                                                             COMSQCG       83     A     
 COMSQCG   RSTS     DEFINE 3           STATUS DURING PASS 2                                COMSQCG       84     A     
 COMSQCG   CLAS     DEFINE 5           OPERAND CLASS                                       COMSQCG       85     A     
 COMSQCG   USE      DEFINE OP.USEL     COUNT OF USES OF OPERAND (PASS 2)                   COMSQCG       86     A     
 COMSQCG            ERRNZ  P2.USEP                                                         COMSQCG       87     A     
 COMSQCG                                                                                   COMSQCG       88     A     
 COMSQCG                                                                                   COMSQCG       89     A     
 COMSQCG            REDEF  2ATR                                                            COMSQCG       90     A     
 COMSQCG   LCM      DEFINE             OPERAND IN ECS/LCM                                  COMSQCG       91     A     
 COMSQCG   FP       DEFINE             OPERAND IS A FORMAL PARAMETER                       COMSQCG       92     A     
 COMSQCG   LONG     DEFINE             OPERAND IS DOUBLE/COMPLEX                           COMSQCG       93     A     
 COMSQCG                                                                                   COMSQCG       94     A     
 COMSQCG                                                                                   COMSQCG       95     A     
 COMSQCG            REDEF  RSTS                                                            COMSQCG       96     A     
 COMSQCG   TYP      DEFINE             (REGFILE) = REGISTER CONTAINS LOWER WORD            COMSQCG       97     A     
 COMSQCG   LST      DEFINE             (OUS, DUC) = LOWER WORD LOADED  (IN LREG)           COMSQCG       98     A     
 COMSQCG   UST      DEFINE             (OUS, DUC) = UPPER WORD LOADED  (IN UREG)           COMSQCG       99     A     
 COMSQCG                                                                                   COMSQCG      100     A     
 COMSQCG                                                                                   COMSQCG      101     A     
 COMSQCG            REDEF              THIS FORM USED FOR ODD-BALL TURPLES                 COMSQCG      102     A     
 COMSQCG   TAGU     DEFINE P2.TAGL                                                         COMSQCG      103     A     
 COMSQCG   TAGM     DEFINE P2.TAGL                                                         COMSQCG      104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQCG 
  
 COMSQCG            DEFINE 6                                                               COMSQCG      105     A     
 COMSQCG   TAGL     DEFINE P2.TAGL                                                         COMSQCG      106     A     
 COMSQCG   P2.CLAS  SPACE  4,8                                                             COMSQCG      107     A     
 COMSQCG  **        P2.CLAS - ATTRIBUTES OF OPERANDS.                                      COMSQCG      108     A     
 COMSQCG                                                                                   COMSQCG      109     A     
 COMSQCG                                                                                   COMSQCG      110     A     
 COMSQCG            REDEF  CLAS                                                            COMSQCG      111     A     
 COMSQCG   ARR      DEFINE             SUBSCRIPTED ARRAY REF                               COMSQCG      112     A     
 COMSQCG   SHRT     DEFINE             SHORT CONSTANT IN TAG FIELD                         COMSQCG      113     A     
 COMSQCG   ADDR     DEFINE             ADDRESS REFERENCE                                   COMSQCG      114     A     
 COMSQCG   INTR     DEFINE             OPERAND IS AN INTERMEDIATE (TAG = IL INDEX)         COMSQCG      115     A     
 COMSQCG   CNCT     DEFINE             OPERAND IS A CATENATION RESULT INTERMED             COMSQCG      116     A     
 COMSQCG   CAT      DEQU   CNCT                                                            COMSQCG      117     A     
 COMSQCG                                                                                   COMSQCG      118     A     
 COMSQCG                                                                                   COMSQCG      119     A     
 COMSQCG   P2=PFX   DECMIC P2.PFXP-P2.ORDP                                                 COMSQCG      120     A     
 COMSQCG   P2=PFX   EQU    "P2=PFX"                                                        COMSQCG      121     A     
 COMSQCG   P2=PFX   MICRO  1,,/1S"P2=PFX"/                                                 COMSQCG      122     A     
 COMSQCG   K2.GL    EQU    K=GL*"P2=PFX"                                                   COMSQCG      123     A     
 COMSQCG   K2.AP    EQU    K=AP*"P2=PFX"                                                   COMSQCG      124     A     
 COMSQCG   K2.IO    EQU    K=IO*"P2=PFX"                                                   COMSQCG      125     A     
 COMSQCG   T.OUS    SPACE  4,20                                                            COMSQCG      126     A     
 COMSQCG  **        T.OUS - OPERAND USAGE STATUS.                                          COMSQCG      127     A     
 COMSQCG  *                                                                                COMSQCG      128     A     
 COMSQCG  *         AT THE START OF TS MODE PASS 2, NON-INTERMEDIATE OPERANDS IN           COMSQCG      129     A     
 COMSQCG  *         THE *IL* SEGMENT TO BE PROCESSED ARE ENTERED INTO (T.OUS),             COMSQCG      130     A     
 COMSQCG  *         ALONG WITH THEIR USE COUNTS.  THE TAG-FIELD OF THE OPERAND IN          COMSQCG      131     A     
 COMSQCG  *         THE IL IS CHANGED INTO A C.OUS TAG, WHICH POINTS TO THE T.OUS          COMSQCG      132     A     
 COMSQCG  *         ENTRY FOR THAT OPERAND.                                                COMSQCG      133     A     
 COMSQCG  *                                                                                COMSQCG      134     A     
 COMSQCG  *         AS CODE GENERATION PROCEEDS, OPERAND STATUS ENTRIES IN (T.OUS)         COMSQCG      135     A     
 COMSQCG  *         ARE UPDATED TO REFLECT CURRENT REGISTER ASSIGNMENT AND                 COMSQCG      136     A     
 COMSQCG  *         NUMBER OF USES REMAINING.                                              COMSQCG      137     A     
 COMSQCG  *                                                                                COMSQCG      138     A     
 COMSQCG  *         THE UPPER FIELDS OF AN OPERAND STATUS ENTRY ARE (AND MUST BE)          COMSQCG      139     A     
 COMSQCG  *         THE SAME AS UPPER FIELDS OF AN *IL* OPERAND.  (SEE "P2."               COMSQCG      140     A     
 COMSQCG  *         STRUCTURE DECLARATION.                                                 COMSQCG      141     A     
 COMSQCG                                                                                   COMSQCG      142     A     
 COMSQCG                                                                                   COMSQCG      143     A     
 COMSQCG            DESCRIBE  ST.,P2.ST.L                                                  COMSQCG      144     A     
 COMSQCG   STAT     DEFINE 3           STATUS OF OPERAND (SEE BELOW)                       COMSQCG      145     A     
 COMSQCG            DEFINE 2                                                               COMSQCG      146     A     
 COMSQCG   LREG     DEFINE 6           REGISTER CONTAINING LOWER WORD                      COMSQCG      147     A     
 COMSQCG   UREG     DEFINE 6           REGISTER CONTAINING UPPER WORD                      COMSQCG      148     A     
 COMSQCG            ERRNZ  P2.ST.P                                                         COMSQCG      149     A     
 COMSQCG                                                                                   COMSQCG      150     A     
 COMSQCG            REDEF  STAT                                                            COMSQCG      151     A     
 COMSQCG            DEFINE                                                                 COMSQCG      152     A     
 COMSQCG   LST      DEFINE             LOWER STATUS                                        COMSQCG      153     A     
 COMSQCG   UST      DEFINE             UPPER STATUS                                        COMSQCG      154     A     
 COMSQCG            SPACE  4,10                                                            COMSQCG      155     A     
 COMSQCG            REDEF                                                                  COMSQCG      156     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQCG 
  
 COMSQCG   CST      DEFINE 3           CHARACTER STATUS FIELD                              COMSQCG      157     A     
 COMSQCG   ORD1     DEFINE 12          ORIGINAL (NON-EQIV) ORDINAL OF CHARACTER            COMSQCG      158     A     
 COMSQCG                                                                                   COMSQCG      159     A     
 COMSQCG                                                                                   COMSQCG      160     A     
 COMSQCG            REDEF  CST                                                             COMSQCG      161     A     
 COMSQCG   CTM      DEFINE ON IF IN TEMPORARY STORAGE                                      COMSQCG      162     A     
 COMSQCG   CAC      DEFINE ON IF CAC ENTRY EXISTS                                          COMSQCG      163     A     
 COMSQCG            DEFINE                                                                 COMSQCG      164          I
          -FC5A243
 COMSQCG   UKL      DEFINE 1           UNKNOWN-LENGTH CONCAT.                              FC5A243        8     A     
 COMSQCG   RG.      SPACE  4,20                                                            COMSQCG      165     A     
 COMSQCG  **        RG. - QCG REGISTER ALLOCATION FIELDS.                                  COMSQCG      166     A     
 COMSQCG                                                                                   COMSQCG      167     A     
 COMSQCG                                                                                   COMSQCG      168     A     
 COMSQCG            DESCRIBE  RG.,P2.RG.L                                                  COMSQCG      169     A     
 COMSQCG   TYP      DEFINE             REGISTER CONTAINS LOWER WORD OF OPERAND             COMSQCG      170     A     
 COMSQCG            DEFINE 7                                                               COMSQCG      171     A     
 COMSQCG   USE      DEFINE P2.USEL     NUMBER OF REMAINING USES OF OPERAND                 COMSQCG      172     A     
 COMSQCG            ERRNZ  P2.USEP-RG.USEP                                                 COMSQCG      173     A     
 COMSQCG            ERRNZ  P2.RG.P                                                         COMSQCG      174     A     
 COMSQCG   A        DECMIC RG.USEL                                                         COMSQCG      175     A     
 COMSQCG   MAX.USEC EQU    1S"A"-1     MAXIMUM USE COUNT                                   COMSQCG      176     A     
 COMSQCG   RLOCK    EQU    1S"A"/2     REGISTER LOCKED BIT                                 COMSQCG      177     A     
 COMSQCG   RS.      SPACE  4,10                                                            COMSQCG      178     A     
 COMSQCG  **        RS. - REGISTER SCAN WORDS.                                             COMSQCG      179     A     
 COMSQCG                                                                                   COMSQCG      180     A     
 COMSQCG                                                                                   COMSQCG      181     A     
 COMSQCG            DESCRIBE  RS.                                                          COMSQCG      182     A     
 COMSQCG   INS      DEFINE PB.GHL      MACHINE OPCODE TO LOAD REGISTER                     COMSQCG      183     A     
 COMSQCG   MSK      DEFINE 18          WIDTH OF SCAN FIELD                                 COMSQCG      184     A     
 COMSQCG   NUM      DEFINE 18          NUMBER OF REGS IN SCAN                              COMSQCG      185     A     
 COMSQCG   TYP      DEFINE 18          TYPE OF REGS IN SCAN (FORM - 0T0)                   COMSQCG      186     A     
 COMSQCG            ERRNZ  RS.TYPP                                                         COMSQCG      187     A     
 COMSQCG                                                                                   COMSQCG      188     A     
 COMSQCG                                                                                   COMSQCG      189     A     
 COMSQCG   COMSQCG  ENDX                                                                   COMSQCG      190     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSQCG 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSQCG                    190       185
          FC5A166                      2         2
          FC5A243                      1         1
          FC50104                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQRF 
  
 COMSQRF  *COMDECK  COMSQRF - QCG REGISTER ASSOCIATES.                                     COMSQRF        1     A     
 COMSQRF            CTEXT  COMSQRF - QCG REGISTER ASSOCIATES.                              COMSQRF        2     A     
 COMSQRF   COMSQRF  SPACE  4,10                                                            COMSQRF        3     A     
 COMSQRF  ***       COMSQRF - QCG REGISTER ASSOCIATES.                                     COMSQRF        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSQRF 
  
 COMSQRF  *                                                                                COMSQRF        5     A     
 COMSQRF  *         COPYRIGHT CONTROL DATA CORP. 1977.                                     COMSQRF        6     A     
 COMSQRF   RGFILE   SPACE  4,10                                                            COMSQRF        7     A     
 COMSQRF  **        RGFILE - QCG REGISTER ASSOCIATES.                                      COMSQRF        8     A     
 COMSQRF  *                                                                                COMSQRF        9     A     
 COMSQRF  *         NOTE -- THESE EQUATES ARE USED TO INDEX INTO THE REGISTER              COMSQRF       10     A     
 COMSQRF  *         FILE.  IF THE ACTUAL CELLS ARE TO BE ADDRESSED, USE THE SYMBOL         COMSQRF       11     A     
 COMSQRF  *         *=XREGFILE*, PLUS ONE OF THE FOLLOWING OFFSETS.                        COMSQRF       12     A     
 COMSQRF                                                                                   COMSQRF       13     A     
 COMSQRF                                                                                   COMSQRF       14     A     
 COMSQRF            USE    /RGFILE/                                                        COMSQRF       15     A     
 COMSQRF   REGFILE  BSS                BASE ADDRESS                                        COMSQRF       16     A     
 COMSQRF            LOC    0                                                               COMSQRF       17     A     
 COMSQRF                                                                                   COMSQRF       18     A     
 COMSQRF   REG.B    BSS                *B* REGISTERS                                       COMSQRF       19     A     
 COMSQRF   R.B0     BSS    1                                                               COMSQRF       20     A     
 COMSQRF   R.B1     BSS    1                                                               COMSQRF       21     A     
 COMSQRF   R.B2     BSS    1                                                               COMSQRF       22     A     
 COMSQRF   R.B3     BSS    1                                                               COMSQRF       23     A     
 COMSQRF   R.B4     BSS    1                                                               COMSQRF       24     A     
 COMSQRF   R.B5     BSS    1                                                               COMSQRF       25     A     
 COMSQRF   R.B6     BSS    1                                                               COMSQRF       26     A     
 COMSQRF   R.B7     BSS    1                                                               COMSQRF       27     A     
 COMSQRF                                                                                   COMSQRF       28     A     
 COMSQRF   REG.A    BSS                *A* REGISTERS                                       COMSQRF       29     A     
 COMSQRF   R.A0     BSS    1                                                               COMSQRF       30     A     
 COMSQRF   R.A1     BSS    1                                                               COMSQRF       31     A     
 COMSQRF   R.A2     BSS    1                                                               COMSQRF       32     A     
 COMSQRF   R.A3     BSS    1                                                               COMSQRF       33     A     
 COMSQRF   R.A4     BSS    1                                                               COMSQRF       34     A     
 COMSQRF   R.A5     BSS    1                                                               COMSQRF       35     A     
 COMSQRF   R.A6     BSS    1                                                               COMSQRF       36     A     
 COMSQRF   R.A7     BSS    1                                                               COMSQRF       37     A     
 COMSQRF                                                                                   COMSQRF       38     A     
 COMSQRF   REG.X    BSS                *X* REGISTERS                                       COMSQRF       39     A     
 COMSQRF   R.X0     BSS    1                                                               COMSQRF       40     A     
 COMSQRF   R.X1     BSS    1                                                               COMSQRF       41     A     
 COMSQRF   R.X2     BSS    1                                                               COMSQRF       42     A     
 COMSQRF   R.X3     BSS    1                                                               COMSQRF       43     A     
 COMSQRF   R.X4     BSS    1                                                               COMSQRF       44     A     
 COMSQRF   R.X5     BSS    1                                                               COMSQRF       45     A     
 COMSQRF   R.X6     BSS    1                                                               COMSQRF       46     A     
 COMSQRF   R.X7     BSS    1                                                               COMSQRF       47     A     
 COMSQRF                                                                                   COMSQRF       48     A     
 COMSQRF   L.RGFILE BSS                LENGTH OF REGISTER FILE                             COMSQRF       49     A     
 COMSQRF            LOC    *O                                                              COMSQRF       50     A     
 COMSQRF            USE    *                                                               COMSQRF       51     A     
 COMSQRF                                                                                   COMSQRF       52     A     
 COMSQRF                                                                                   COMSQRF       53     A     
 COMSQRF   COMSQRF  ENDX                                                                   COMSQRF       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 224    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSQRF 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSQRF                     54        54
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSPBD 
  
 COMSPBD  *COMDECK  COMSPBD - PREBINARY STRUCTURE DECLARATIONS.                            COMSPBD        1     A     
 COMSPBD   PREBIN   TITLE  PREBINARY STRUCTURE DECLARATIONS                                COMSPBD        2     A     
 COMSPBD   K.TAG    SPACE  4,30                                                            COMSPBD        3     A     
 COMSPBD  **        K.TAG - VALUES OF TAG PREFIXES.                                        COMSPBD        4     A     
 COMSPBD  *                                                                                COMSPBD        5     A     
 COMSPBD  *         IN THE BACK END (PASSES 2 + 3), OPERANDS ARE REPRESENTED               COMSPBD        6     A     
 COMSPBD  *         AS "TAGS".  A TAG CONSISTS OF TWO PARTS, A PREFIX AND AN               COMSPBD        7     A     
 COMSPBD  *         ORDINAL.  THE PREFIX DETERMINES HOW THE ORDINAL IS TO BE               COMSPBD        8     A     
 COMSPBD  *         INTERPRETED.                                                           COMSPBD        9     A     
 COMSPBD                                                                                   COMSPBD       10     A     
 COMSPBD                                                                                   COMSPBD       11     A     
 COMSPBD   P=PFX    EQU    15          POSITION OF PREFIX RELATIVE TO TAG FIELD            COMSPBD       12     A     
 COMSPBD   P=PFX    DECMIC P=PFX                                                           COMSPBD       13     A     
 COMSPBD   K=PFX    EQU    1S"P=PFX"   PREFIX MULTIPLIER FOR SHIFT                         COMSPBD       14     A     
 COMSPBD                                                                                   COMSPBD       15     A     
 COMSPBD                                                                                   COMSPBD       16     A     
 COMSPBD            LOC    0                         -- ORD FIELD IS --                    COMSPBD       17     A     
 COMSPBD   K=SYM    BSS    1                 T.SYM   SYMBOL TABLE ORDINAL                  COMSPBD       18     A     
 COMSPBD   K=GL     BSS    1                 T.GL    GENERATED LABEL                       COMSPBD       19     A     
 COMSPBD   K=AP     BSS    1                 T.API   AP-LIST INDEX                         COMSPBD       20     A     
 COMSPBD   K=IO     BSS    1                 T.IOI   I/O APL INDEX                         COMSPBD       21     A     
 COMSPBD   K=LC     BSS    1                 T.LCA   LCM POINTER WORD INDEX                COMSPBD       22     A     
 COMSPBD   K=END    BSS    0                                                               COMSPBD       23     A     
 COMSPBD            LOC    *O                                                              COMSPBD       24     A     
 COMSPBD                                                                                   COMSPBD       25     A     
 COMSPBD                                                                                   COMSPBD       26     A     
 COMSPBD   K.SYM    EQU    K=SYM*K=PFX                                                     COMSPBD       27     A     
 COMSPBD   K.GL     EQU    K=GL*K=PFX                                                      COMSPBD       28     A     
 COMSPBD   K.AP     EQU    K=AP*K=PFX                                                      COMSPBD       29     A     
 COMSPBD   K.IO     EQU    K=IO*K=PFX                                                      COMSPBD       30     A     
 COMSPBD   K.LC     EQU    K=LC*K=PFX                                                      COMSPBD       31     A     
 COMSPBD   T.PB     SPACE  4,10                                                            COMSPBD       32     A     
 COMSPBD  **        T.PB - PREBINARY TABLE.                                                COMSPBD       33     A     
 COMSPBD  *                                                                                COMSPBD       34     A     
 COMSPBD  *         AS INSTRUCTIONS ARE COMPILED THEY ARE ENTERED INTO THE                 COMSPBD       35     A     
 COMSPBD  *         *PREBINARY* ONE INSTRUCTION PER WORD.  THE *K* PORTION OF A            COMSPBD       36     A     
 COMSPBD  *         30 BIT INSTRUCTION WILL CONTAIN A *SHORT CONSTANT* OR A TAG.           COMSPBD       37     A     
 COMSPBD  *         WHEN THE END OF A SOURCE PROGRAM UNIT IS ENCOUNTERED, THE              COMSPBD       38     A     
 COMSPBD  *         *PREBINARY* (AND CONTENTS OF APPROPRIATE TABLES) ARE USED TO           COMSPBD       39     A     
 COMSPBD  *         GENERATE ACTUAL LOADER TEXT.                                           COMSPBD       40     A     
 COMSPBD  *                                                                                COMSPBD       41     A     
 COMSPBD  *         THE DIFFERENT ENTRY FORMATS ARE DESCRIBED BELOW --                     COMSPBD       42     A     
 COMSPBD   PB/SHORT SPACE  4,10                                                            COMSPBD       43     A     
 COMSPBD  *  1.     15 BIT INSTRUCTIONS                                                    COMSPBD       44     A     
 COMSPBD  *         +--------------+---------------------------------------------+         COMSPBD       45     A     
 COMSPBD  *         +              +/////////////////////////////////////////////+         COMSPBD       46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSPBD 
  
 COMSPBD  *         +   I N S T    +/////////////////////////////////////////////+         COMSPBD       47     A     
 COMSPBD  *         +              +/////////////////////////////////////////////+         COMSPBD       48     A     
 COMSPBD  *         +--------------+---------------------------------------------+         COMSPBD       49     A     
 COMSPBD  *                15                         45                                   COMSPBD       50     A     
 COMSPBD  *         THE *BXI  XJ* (10B) INSTRUCTION IS COMPILED AS 10IJ0 AND               COMSPBD       51     A     
 COMSPBD  *         CHANGED LATER TO 10IJJ.                                                COMSPBD       52     A     
 COMSPBD                                                                                   COMSPBD       53     A     
 COMSPBD            DESCRIBE PB.       PB(GH,I,J,K)                                        COMSPBD       54     A     
 COMSPBD   INST     DEFINE 15          (GHIJK) = SHORT INSTRUCTION                         COMSPBD       55     A     
 COMSPBD            DEFINE 45                                                              COMSPBD       56     A     
 COMSPBD                                                                                   COMSPBD       57     A     
 COMSPBD            REDEF INST                                                             COMSPBD       58     A     
 COMSPBD   GH       DEFINE 6           OPCODE                                              COMSPBD       59     A     
 COMSPBD   I        DEFINE 3           I-REG                                               COMSPBD       60     A     
 COMSPBD   J        DEFINE 3           J-REG                                               COMSPBD       61     A     
 COMSPBD   K        DEFINE 3           K-REG                                               COMSPBD       62     A     
 COMSPBD   PB/LONG  SPACE  4,20                                                            COMSPBD       63     A     
 COMSPBD  **  2.    LONG INSTRUCTIONS.                                                     COMSPBD       64     A     
 COMSPBD  *         +-----------+-----------------+-----------------+------------+         COMSPBD       65     A     
 COMSPBD  *         +           +                 +                 +////////////+         COMSPBD       66     A     
 COMSPBD  *         +  G,H,I,J  +                 +                 +////////////+         COMSPBD       67     A     
 COMSPBD  *         +  OP-CODE  +     T  A  G     +    B  I  A  S   +////////////+         COMSPBD       68     A     
 COMSPBD  *         +           +                 +                 +////////////+         COMSPBD       69     A     
 COMSPBD  *         +-----------+-----------------+-----------------+------------+         COMSPBD       70     A     
 COMSPBD  *              12             18                 18             12               COMSPBD       71     A     
 COMSPBD                                                                                   COMSPBD       72     A     
 COMSPBD                                                                                   COMSPBD       73     A     
 COMSPBD            REDEF                                                                  COMSPBD       74     A     
 COMSPBD   GHIJ     DEFINE 12          OPCODE                                              COMSPBD       75     A     
 COMSPBD   TAG      DEFINE 18          SYMBOL (*IH* AND ORDINAL)                           COMSPBD       76     A     
 COMSPBD   BIAS     DEFINE 18                                                              COMSPBD       77     A     
 COMSPBD   H2       DEFINE 12          SYMORD OF ADDRESS DECREMENT                         COMSPBD       78     A     
 COMSPBD   BJR      DEQU   H2,3        B-REG FOR INDEXED JUMP                              COMSPBD       79     A     
 COMSPBD                                                                                   COMSPBD       80     A     
 COMSPBD                                                                                   COMSPBD       81     A     
 COMSPBD  **        (PB.TAG) IS THE REPRESENTATION OF AN OPERAND.                          COMSPBD       82     A     
 COMSPBD  *         SEE DEFINITION OF (K.TAG) ABOVE.                                       COMSPBD       83     A     
 COMSPBD                                                                                   COMSPBD       84     A     
 COMSPBD                                                                                   COMSPBD       85     A     
 COMSPBD            REDEF  TAG                                                             COMSPBD       86     A     
 COMSPBD   PFX      DEFINE 3           PREFIX                                              COMSPBD       87     A     
 COMSPBD            DEFINE 3                                                               COMSPBD       88          I
          -FC51078
 COMSPBD   ORD      DEFINE 12          ORDINAL                                             COMSPBD       89          I
          -FC51078
 COMSPBD            DEFINE 1                                                               FC51078        6     A     
 COMSPBD   ORD      DEFINE 14          ORDINAL                                             FC51078        7     A     
 COMSPBD            ERRNZ  PB.PFXP-PB.ORDP-P=PFX                                           COMSPBD       90     A     
 COMSPBD   PB/PSU   SPACE  4,20                                                            COMSPBD       91     A     
 COMSPBD  **  3.    PSEUDO-INSTRUCTIONS.                                                   COMSPBD       92     A     
 COMSPBD  *                                                                                COMSPBD       93     A     
 COMSPBD  *         WHEN (PB.GH) = 0, IT DOES NOT REPRESENT A "PS" INSTRUCTION             COMSPBD       94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSPBD 
  
 COMSPBD  *         (HARDWARE 00), RATHER IT IS A DIRECTIVE TO THE ASSEMBLER,              COMSPBD       95     A     
 COMSPBD  *         COMMONLY TERMED A "PSEUDO-INSTRUCTION".                                COMSPBD       96     A     
 COMSPBD  *                                                                                COMSPBD       97     A     
 COMSPBD  *         THE FORMAT OF A PSEUDO-INSTRUCTION IS THE SAME AS FOR LONG             COMSPBD       98     A     
 COMSPBD  *         INSTRUCTIONS.  THE TAG, BIAS, AND BJR FIELDS CONTAIN THE               COMSPBD       99     A     
 COMSPBD  *         VARIOUS PARAMETERS.  SEE THE GID FOR PARTICULARS.                      COMSPBD      100     A     
 COMSPBD   T.IOA    SPACE  4,20                                                            COMSPBD      101     A     
 COMSPBD  ***       T.IOA - I/O APLIST TABLE.                                              COMSPBD      102     A     
 COMSPBD  *                FORMAT DEFINED AS IA. .                                         COMSPBD      103     A     
 COMSPBD                                                                                   COMSPBD      104     A     
 COMSPBD   Z=IOA    EQU    2           WORDS PER ENTRY                                     COMSPBD      105     A     
 COMSPBD                                                                                   COMSPBD      106     A     
 COMSPBD                                                                                   COMSPBD      107     A     
 COMSPBD  ***       T.CLW - I/O CHARACTER LENGTH ARRAY ITEM LENGTH.                        COMSPBD      108     A     
 COMSPBD  *                FORMAT DEFINED AS IA. .                                         COMSPBD      109     A     
 COMSPBD                                                                                   COMSPBD      110     A     
 COMSPBD   Z=CLW    EQU    2           WORDS PER ENTRY                                     COMSPBD      111     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSPBD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSPBD                    111       109
          FC51078                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM  *COMDECK  COMSSYM - SYMBOL NAME AND ATTRIBUTE DISCRIPTIORS.                      COMSSYM        1     A     
 COMSSYM   COMSSYM  TITLE  COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.                COMSSYM        2     A     
 COMSSYM   COMSSYM  SPACE  4,8                                                             COMSSYM        3     A     
 COMSSYM  ***       COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.                       COMSSYM        4     A     
 COMSSYM  *                                                                                COMSSYM        5     A     
 COMSSYM  *         THIS COMDECK CONTAINS SYMBOL DEFINITIONS FOR THE                       COMSSYM        6     A     
 COMSSYM  *         FORTRAN 5 SYMBOL TABLE.                                                COMSSYM        7     A     
 COMSSYM   T.SYM    SPACE  4,8                                                             COMSSYM        8     A     
 COMSSYM  ***       T.SYM - SYMBOL NAMES AND ATTRIBUTES.                                   COMSSYM        9     A     
 COMSSYM  *                                                                                COMSSYM       10     A     
 COMSSYM  *         THE SYMBOL TABLE CONTAINS ALL SYMBOLS REFERENCED BY THE                COMSSYM       11     A     
 COMSSYM  *         PROGRAMMER OR INVENTED BY THE COMPILER, AS WELL AS ALL                 COMSSYM       12     A     
 COMSSYM  *         STATEMENT LABELS.                                                      COMSSYM       13     A     
 COMSSYM  *                                                                                COMSSYM       14     A     
 COMSSYM  *         A SYMBOL TABLE ENTRY CONSISTS OF 3 WORDS, CALLED THE                   COMSSYM       15     A     
 COMSSYM  *         (WA.), (WB.), AND (WC.) WORDS.  THE FIRST WORD IS                      COMSSYM       16     A     
 COMSSYM  *         THE SAME FOR SYMBOLS AND STATEMENT LABELS.  INTERPRETATION             COMSSYM       17     A     
 COMSSYM  *         OF THE SECOND AND THIRD WORDS DEPENDS ON WB.LAB -- IT IS ZERO          COMSSYM       18     A     
 COMSSYM  *         FOR A SYMBOL, AND ONE FOR A LABEL.  THE FIELDS CONTAINED IN A          COMSSYM       19     A     
 COMSSYM  *         SYMBOL ENTRY ARE DESCRIBED BELOW, FOLLOWED BY THE DESCRIPTION          COMSSYM       20     A     
 COMSSYM  *         OF A LABEL ENTRY.                                                      COMSSYM       21     A     
 COMSSYM  *                                                                                COMSSYM       22     A     
 COMSSYM  *                                                                                COMSSYM       23     A     
 COMSSYM  *         SYMBOL TABLE - SYMBOL FORMAT                                           COMSSYM       24     A     
 COMSSYM  *                                                                                COMSSYM       25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM  *                                                                                COMSSYM       26     A     
 COMSSYM  *         1ST WORD - WA.                                                         COMSSYM       27     A     
 COMSSYM  *                                                                                COMSSYM       28     A     
 COMSSYM  *         +-----------------------------------------+-----------------+          COMSSYM       29     A     
 COMSSYM  *         +                                         +                 +          COMSSYM       30     A     
 COMSSYM  *         +      S  Y  M  B  O  L                   +  HASH POINTER   +          COMSSYM       31     A     
 COMSSYM  *         +                                         +                 +          COMSSYM       32     A     
 COMSSYM  *         +-----------------------------------------+-----------------+          COMSSYM       33     A     
 COMSSYM  *                             42                             18                  COMSSYM       34     A     
 COMSSYM  *                                                                                COMSSYM       35     A     
 COMSSYM  *                                                                                COMSSYM       36     A     
 COMSSYM  *         2ND WORD - WB.                                                         COMSSYM       37     A     
 COMSSYM  *                                                                                COMSSYM       38     A     
 COMSSYM  *         +------------+--+-----------+-----------------------+-+-+---+          COMSSYM       39     A     
 COMSSYM  *         +            + L+    BASE   +                       +C+L+ M +          COMSSYM       40     A     
 COMSSYM  *         +   POINTER  + E+ --------- +   C L A S S   B I T S +G+A+ O +          COMSSYM       41     A     
 COMSSYM  *         +            + V+    FPNO   +                       +S+B+ D +          COMSSYM       42     A     
 COMSSYM  *         +------------+--+-----------+-----------------------+-+-+---+          COMSSYM       43     A     
 COMSSYM  *               13       2      12                28           1 1  3            COMSSYM       44     A     
 COMSSYM  *                                                                                COMSSYM       45     A     
 COMSSYM  *                                                                                COMSSYM       46     A     
 COMSSYM  *         3RD WORD - WC.                                                         COMSSYM       47     A     
 COMSSYM  *                                                                                COMSSYM       48     A     
 COMSSYM  *         +----------+-----------------+-+-+---+----------------------+          COMSSYM       49     A     
 COMSSYM  *         +   FUNI   +   CHAR LENGTH   +C+/+ B +                      +          COMSSYM       50     A     
 COMSSYM  *         + -------- + --------------- +T+/+ C +         RA           +          COMSSYM       51     A     
 COMSSYM  *         + REL BLK  +    ENTRY GL     +Y+/+ P +                      +          COMSSYM       52     A     
 COMSSYM  *         +----------+-----------------+-+-+---+----------------------+          COMSSYM       53     A     
 COMSSYM  *              12             18        1 1  4           24                      COMSSYM       54     A     
 COMSSYM  *                                                                                COMSSYM       55     A     
 COMSSYM  *                                                                                COMSSYM       56     A     
 COMSSYM  *                                                                                COMSSYM       57     A     
 COMSSYM  *         SYMBOL TABLE - STATEMENT LABEL FORMAT                                  COMSSYM       58     A     
 COMSSYM  *                                                                                COMSSYM       59     A     
 COMSSYM  *                                                                                COMSSYM       60     A     
 COMSSYM  *         1ST WORD - WA.                                                         COMSSYM       61     A     
 COMSSYM  *                                                                                COMSSYM       62     A     
 COMSSYM  *         +-----------------------------------------+-----------------+          COMSSYM       63     A     
 COMSSYM  *         +                                         +                 +          COMSSYM       64     A     
 COMSSYM  *         +   S T A T E M E N T       L A B E L     +   HASH POINTER  +          COMSSYM       65     A     
 COMSSYM  *         +                                         +                 +          COMSSYM       66     A     
 COMSSYM  *         +-----------------------------------------+-----------------+          COMSSYM       67     A     
 COMSSYM  *                             42                             18                  COMSSYM       68     A     
 COMSSYM  *                                                                                COMSSYM       69     A     
 COMSSYM  *                                                                                COMSSYM       70     A     
 COMSSYM  *         2ND WORD - WB.                                                         COMSSYM       71          I
          -FC50096
 COMSSYM  *         2ND WORD - WB. (NON FORMAT LABEL)                                      FC50096        6     A     
 COMSSYM  *                                                                                COMSSYM       72     A     
 COMSSYM  *         +--------------+------------+------------------------+-+-+--+          COMSSYM       73          I
          -FC50096
 COMSSYM  *         + LINE NUMBER  +   FORMAT   +                        +C+L+//+          COMSSYM       74          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
          -FC50096
 COMSSYM  *         + OF FIRST     +   LENGTH   +         CLASS          +G+A+//+          COMSSYM       75          I
          -FC50096
 COMSSYM  *         + REFERENCE    +   (FDEF)   +                        +S+B+//+          COMSSYM       76          I
          -FC50096
 COMSSYM  *         +--------------+------------+------------------------+-+-+--+          COMSSYM       77          I
          -FC50096
 COMSSYM  *                15            12                28              1 1  3          COMSSYM       78          I
          -FC50096
 COMSSYM  *         +------------------+--------+------------------------+-+-+--+          FC50096        7     A     
 COMSSYM  *         +    LINE NUMBER   +////////+                        +C+L+//+          FC50096        8     A     
 COMSSYM  *         +    OF FIRST      +////////+         CLASS          +G+A+//+          FC50096        9     A     
 COMSSYM  *         +    REFERENCE     +////////+                        +S+B+//+          FC50096       10     A     
 COMSSYM  *         +------------------+--------+------------------------+-+-+--+          FC50096       11     A     
 COMSSYM  *                   18           9               28              1 1  3          FC50096       12     A     
 COMSSYM                                                                                   FC50096       13     A     
 COMSSYM  *         2ND WORD - WB. (FORMAT LABEL)                                          FC50096       14     A     
 COMSSYM                                                                                   FC50096       15     A     
 COMSSYM  *         +--------------+------------+------------------------+-+-+--+          FC50096       16     A     
 COMSSYM  *         +//////////////+   FORMAT   +                        +C+L+//+          FC50096       17     A     
 COMSSYM  *         +//////////////+   LENGTH   +         CLASS          +G+A+//+          FC50096       18     A     
 COMSSYM  *         +//////////////+            +                        +S+B+//+          FC50096       19     A     
 COMSSYM  *         +--------------+------------+------------------------+-+-+--+          FC50096       20     A     
 COMSSYM  *                15            12                28              1 1  3          FC50096       21     A     
 COMSSYM  *                                                                                COMSSYM       79     A     
 COMSSYM  *                                                                                COMSSYM       80     A     
 COMSSYM  *         3RD WORD - WC.                                                         COMSSYM       81     A     
 COMSSYM  *                                                                                COMSSYM       82     A     
 COMSSYM  *         +-----------+-----------------+-----+-----------------------+          COMSSYM       83     A     
 COMSSYM  *         +           +                 +/////+                       +          COMSSYM       84     A     
 COMSSYM  *         +  FORMAT   +  LINE NUMBER    +/////+         RA            +          COMSSYM       85          I
          -FC50096
 COMSSYM  *         +  LENGTH   +                 +/////+                       +          COMSSYM       86          I
          -FC50096
 COMSSYM  *         +  REL BLK  +  LINE NUMBER    +/////+         RA            +          FC50096       22     A     
 COMSSYM  *         +           +                 +/////+                       +          FC50096       23     A     
 COMSSYM  *         +-----------+-----------------+-----+-----------------------+          COMSSYM       87     A     
 COMSSYM  *              12             18           6            24                       COMSSYM       88     A     
 COMSSYM                                                                                   COMSSYM       89     A     
 COMSSYM                                                                                   COMSSYM       90     A     
 COMSSYM   PSYM     EQU    7           LOG(2) OF SYMBOL TABLE HASH BASE                    COMSSYM       91     A     
 COMSSYM   PSYM     DECMIC PSYM        ( = NUMBER OF BITS TO HASH)                         COMSSYM       92     A     
 COMSSYM   Z.HASH   EQU    1S"PSYM"    LENGTH OF HASH TABLE                                COMSSYM       93     A     
 COMSSYM                                                                                   COMSSYM       94     A     
 COMSSYM   Z=SYM    EQU    3           WORDS PER ENTRY                                     COMSSYM       95     A     
 COMSSYM   CHAR     EQU    6                                                               COMSSYM       96     A     
 COMSSYM                                                                                   COMSSYM       97     A     
 COMSSYM                                                                                   COMSSYM       98     A     
 COMSSYM            DESCRIBE WA.,,,0                                                       COMSSYM       99     A     
 COMSSYM                                                                                   COMSSYM      100     A     
 COMSSYM   SYM      DEFINE 7*CHAR      SYMBOL NAME     (-0L- FORMAT)                       COMSSYM      101     A     
 COMSSYM   NAME     DEQU   SYM                                                             COMSSYM      102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM            REDEF  SYM                                                             COMSSYM      103     A     
 COMSSYM            DEFINE 1*CHAR                                                          COMSSYM      104     A     
 COMSSYM   STL      DEFINE 5*CHAR      STATEMENT LABEL (-0R- FORMAT)                       COMSSYM      105     A     
 COMSSYM            DEFINE 1*CHAR                                                          COMSSYM      106     A     
 COMSSYM   HASH     DEFINE 18          HASH LINK TO NEXT ENTRY IN THE CHAIN                COMSSYM      107          I
          -FC5A192
 COMSSYM   NFP      DEFINE 1           CANNOT BE AN FP                                     FC5A192        5     A     
 COMSSYM            DEFINE 5                                                               FC5A192        6     A     
 COMSSYM   HASH     DEFINE 12                                                              FC5A192        7     A     
 COMSSYM            REDEF  HASH                                                            COMSSYM      108     A     
 COMSSYM            DEFINE 6                                                               COMSSYM      109          I
          -FC5A192
 COMSSYM   BN       DEFINE 12                                                              COMSSYM      110     A     
 COMSSYM                                                                                   COMSSYM      111     A     
 COMSSYM                                                                                   COMSSYM      112     A     
 COMSSYM   VERR.    MICRO  1,, ILL-SYM       NO SUCH USER SYMBOL                           COMSSYM      113     A     
 COMSSYM   SYM/WB   SPACE  4,30                                                            COMSSYM      114     A     
 COMSSYM  **        SYM/WB - ATTRIBUTE WORD.                                               COMSSYM      115     A     
 COMSSYM                                                                                   COMSSYM      116     A     
 COMSSYM                                                                                   COMSSYM      117     A     
 COMSSYM            DESCRIBE WB.,,,1                                                       COMSSYM      118     A     
 COMSSYM                                                                                   COMSSYM      119     A     
 COMSSYM   FR       DEFINE 18          (LAB) = LINE NUMBER OF FIRST REFERENCE              FC50096       24     A     
 COMSSYM                                                                                   FC50096       25     A     
 COMSSYM            REDEF  FR                                                              FC50096       26     A     
 COMSSYM   STFP     DEFINE 15          (STF) = T.STF INDEX OF DEFINITION SKELETON          COMSSYM      120     A     
 COMSSYM   FR       DEQU   STFP        (LAB) = LINE NUMBER OF FIRST REFERENCE              COMSSYM      121          I
          -FC50096
 COMSSYM   DI       DEQU   STFP        (DOGL) DO INDEX VARIABLE ORDINAL                    COMSSYM      122     A     
 COMSSYM                                                                                   COMSSYM      123     A     
 COMSSYM            REDEF  STFP                                                            COMSSYM      124     A     
 COMSSYM   PNT      DEFINE 13          (ARY)  = T.DIM INDEX OF DIMS                        COMSSYM      125     A     
 COMSSYM                               (NLST GRP NAME) = T.NLST INDEX OF GROUP             COMSSYM      126     A     
 COMSSYM   JPF      DEQU   PNT,9       (INTF) = F.INTF INDEX                               COMSSYM      127     A     
 COMSSYM   LEVN     DEFINE 2           LEVEL NUMBER                                        COMSSYM      128     A     
 COMSSYM   BASE     DEFINE 12          SYMORD OF EQUIVALENCE CLASS BASE MEMBER             COMSSYM      129     A     
 COMSSYM   FPNO     DEQU   BASE,9      FORMAL PARAMETER NUMBER                             COMSSYM      130     A     
 COMSSYM   FPO      DEQU   FPNO                                                            COMSSYM      131     A     
 COMSSYM   FMTL     DEQU   BASE        (FDEF) = FORMAT LENGTH, CHARACTERS                  COMSSYM      132     A     
 COMSSYM   TL       DEQU   BASE        (DOGL) ORDINAL OF DO TERMINAL LABEL                 COMSSYM      133     A     
 COMSSYM   CLAS     DEFINE 28          SYMBOL CLASS BITS (SEE BELOW)                       COMSSYM      134     A     
 COMSSYM   CGS      DEFINE             COMPILER GENERATED SYMBOL                           COMSSYM      135     A     
 COMSSYM   LAB      DEFINE             = 0 FOR A SYMBOL                                    COMSSYM      136     A     
 COMSSYM                               = 1 FOR A LABEL   (SEE BELOW)                       COMSSYM      137     A     
 COMSSYM   MODE     DEFINE 3           MODE (TYPE)       (SEE BELOW)                       COMSSYM      138     A     
 COMSSYM                                                                                   FC50096       27     A     
 COMSSYM            REDEF  PNT,8       *PROPERTY* BITS FOR FILES                           COMSSYM      139     A     
 COMSSYM   FMT      DEFINE             A FORMATTED OPERATION APPEARED                      COMSSYM      140     A     
 COMSSYM   BIN      DEFINE             A NON-FORMATTED OPERATION APPEARED                  COMSSYM      141     A     
 COMSSYM   DIR      DEFINE             A DIRECT-ACCESS OPERATION APPEARED                  COMSSYM      142     A     
 COMSSYM   SEQ      DEFINE             A SEQUENTIAL OPERATION APPEARED                     COMSSYM      143     A     
 COMSSYM   BUF      DEFINE             A BUFFER-IN OR BUFFER-OUT OPERATION                 COMSSYM      144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM   EQU      DEFINE             AN EQUIVALENCED FILE                                COMSSYM      145     A     
 COMSSYM   AUX      DEFINE             AN AUXILLARY I/O OPERATION APPEARED                 COMSSYM      146     A     
 COMSSYM   UDC      DEFINE             FILE UNIT DESIGNATOR IS CONSTANT                    COMSSYM      147     A     
 COMSSYM   WB.CLAS  SPACE  4,8                                                             COMSSYM      148     A     
 COMSSYM  **        WB.CLAS - CLASSIFICATION OF SYMBOL.                                    COMSSYM      149     A     
 COMSSYM  *                                                                                COMSSYM      150     A     
 COMSSYM  *         WHEN (WB.LAB) = 0, THE (WB.CLAS) IS INTERPRETED AS FOLLOWS --          COMSSYM      151     A     
 COMSSYM  *                                                                                COMSSYM      152     A     
 COMSSYM  *         IF ANY OF THESE ARE SET, (WB.VAR) WILL BE SET --                       COMSSYM      153     A     
 COMSSYM  *                BMEM, EQV, PARM, ARY, COM                                       COMSSYM      154          I
          -FC50252
 COMSSYM  *                DOIX, MAT, SAVE, LCM, LEV, FPS,                                 COMSSYM      155          I
          -FC50252
 COMSSYM  *                BMEM, EQV, ARY, COM, MAT, SAVE, LCM, LEV, VDS                   FC50252        6     A     
 COMSSYM  *         IF ANY OF THESE ARE SET, (WB.NVAR) WILL BE SET --                      COMSSYM      156     A     
 COMSSYM  *                INTF, GENF, XTER, DEXT, SUB, FUN, NLST, ENT                     COMSSYM      157          I
          -FC50252
 COMSSYM  *                INTF, GENF, XTER, DEXT, SUB, FUN, NLST, ENT, PARM               FC50252        7     A     
 COMSSYM  *         ATTRIBUTE OR PROPERTY.                                                 COMSSYM      158     A     
 COMSSYM                                                                                   COMSSYM      159     A     
 COMSSYM                                                                                   COMSSYM      160     A     
 COMSSYM            REDEF  CLAS                                                            COMSSYM      161     A     
 COMSSYM   DOIX     DEFINE             LOOP INDEX OF ACTIVE DO                             COMSSYM      162          I
          -FC5A211
 COMSSYM            DEFINE             (SPARE)                                             FC5A211        6          I
          -FC50326
 COMSSYM   SFA      DEFINE             STATEMENT FUNCTION DUMMY ARGUMENT                   FC50326        7     A     
 COMSSYM   1REF     DEFINE             STRAY NAME                                          COMSSYM      163     A     
 COMSSYM   MAT      DEFINE             MATERIALIZED, STORAGE REQUIRED                      COMSSYM      164     A     
 COMSSYM   SAVE     DEFINE             DECLARED *SAVE*                                     COMSSYM      165     A     
 COMSSYM   NLST     DEFINE             NAMELIST GROUP NAME                                 COMSSYM      166     A     
 COMSSYM                                                                                   COMSSYM      167     A     
 COMSSYM  *         DATR - ATTRIBUTES DURING DECLARATIVES                                  COMSSYM      168     A     
 COMSSYM   LEV      DEFINE             LEVELED -- (WB.LEVN) = LEVEL NUMBER                 COMSSYM      169     A     
 COMSSYM   VDS      DEFINE             VARIABLE DIMENSION MUST BE INTEGER                  COMSSYM      170          I
          -FC50252
 COMSSYM   VDS      DEFINE             VARIABLE DIMENSION MUST BE INTEGER, FP/COM          FC50252        8     A     
 COMSSYM   TYP      DEFINE             WAS EXPLICITLY TYPED                                COMSSYM      171     A     
 COMSSYM            DEFINE             (SPARE)                                             COMSSYM      172          I
          -FC5A184
 COMSSYM   AGN      DEFINE             VARIABLE APPEARED IN *ASSIGN* STATEMENT             FC5A184        5     A     
 COMSSYM                                                                                   COMSSYM      173     A     
 COMSSYM   INTF     DEFINE             DECLARED *INTRINSIC*                                COMSSYM      174     A     
 COMSSYM   DEXT     DEFINE             DECLARED *EXTERNAL*                                 COMSSYM      175     A     
 COMSSYM   GENF     DEFINE             GENERIC FUNCTION NAME                               COMSSYM      176     A     
 COMSSYM   LDO      DEFINE             LOAD-ONLY VARIABLE                (CCG DAP)         COMSSYM      177     A     
 COMSSYM   SFX      DEQU   LDO         USED WHILE PARSING ST. FUNCTIONS                    COMSSYM      178     A     
 COMSSYM   AGO2    DEQU   LDO         VARIABLE WAS OBJECT OF ASSIGNED *GOTO*               FC5A184        6          I
          -FC50252
 COMSSYM   AGO2     DEQU   LDO         VARIABLE WAS OBJECT OF ASSIGNED GOTO                FC50252        9     A     
 COMSSYM   AL       DEQU   LDO         LEVN SET AUTOMATICALLY(DECL PHASE ONLY)             FC5A444       30     A     
 COMSSYM   BMEM     DEFINE             BASE MEMBER OF AN EQUIVALENCE CLASS                 COMSSYM      179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM   LOCF     DEFINE             IRREDUCIBLE REFS                  (CCG DAP)         COMSSYM      180     A     
 COMSSYM                                                                                   COMSSYM      181     A     
 COMSSYM   CCGV     DEFINE 5           ORDERED FIELD                     (CCG DAP)         COMSSYM      182     A     
 COMSSYM            REDEF  CCGV                                                            COMSSYM      183     A     
 COMSSYM   LCM      DEFINE             RESIDES IN LARGE CORE                               COMSSYM      184     A     
 COMSSYM   FP       DEFINE             IS A FORMAL PARAMETER                               COMSSYM      185     A     
 COMSSYM   AET      DEQU   FP,2                                                            COMSSYM      186     A     
 COMSSYM   COM      DEFINE             IS IN A /COMMON/ BLOCK                              COMSSYM      187     A     
 COMSSYM   EXT      DEFINE             EXTERNAL NAME                                       COMSSYM      188     A     
 COMSSYM   ENT      DEFINE             ENTRY POINT                                         COMSSYM      189     A     
 COMSSYM                                                                                   COMSSYM      190     A     
 COMSSYM   FUN      DEFINE             FUNCTION = SEE (WC.FUNT)                            COMSSYM      191     A     
 COMSSYM   SUB      DEFINE             SUBROUTINE                                          COMSSYM      192     A     
 COMSSYM   ARY      DEFINE             ARRAY                                               COMSSYM      193     A     
 COMSSYM   EQV      DEFINE                                                                 COMSSYM      194     A     
 COMSSYM   PARM     DEFINE             NAME IS A *PARAMETER*                               COMSSYM      195     A     
 COMSSYM   MDF      DEQU   PARM        *MUST DEFINE* FLAG (VALUE. SYMBOLS ONLY)            FC5A191        5     A     
 COMSSYM   DEF      DEFINE             (VAR) = GETS STORED INTO                            COMSSYM      196     A     
 COMSSYM                               (SUB, FUN) = ARG COUNT DETERMINED                   COMSSYM      197     A     
 COMSSYM   NVAR     DEFINE             NOT A VARIABLE                                      COMSSYM      198     A     
 COMSSYM   VAR      DEFINE             IS A VARIABLE                                       COMSSYM      199     A     
 COMSSYM                                                                                   COMSSYM      200     A     
 COMSSYM   M.SYSXT  MICRO  1,, NVAR,EXT,CGS  ATTRIBUTES FOR FCL ROUTINES                   COMSSYM      201     A     
 COMSSYM   WB.MODE  SPACE  4,8                                                             COMSSYM      202     A     
 COMSSYM  **        WB.MODE - FORTRAN TYPE OF SYMBOL.                                      COMSSYM      203     A     
 COMSSYM                                                                                   COMSSYM      204     A     
 COMSSYM                                                                                   COMSSYM      205     A     
 COMSSYM   MD.MODE  EQU    7           UPPER LIMIT VALUE OF MODE                           COMSSYM      206     A     
 COMSSYM                                                                                   COMSSYM      207     A     
 COMSSYM   M.BOOL   EQU    0           BOOLEAN                                             COMSSYM      208     A     
 COMSSYM   M.LOG    EQU    1           LOGICAL                                             COMSSYM      209     A     
 COMSSYM   M.INT    EQU    2           INTEGER                                             COMSSYM      210     A     
 COMSSYM   M.REAL   EQU    3           REAL                                                COMSSYM      211     A     
 COMSSYM   M.DBL    EQU    4           DOUBLE PRECISION                                    COMSSYM      212     A     
 COMSSYM   M.CPLX   EQU    5           COMPLEX                                             COMSSYM      213     A     
 COMSSYM            ERRNZ  M.DBL+1-M.CPLX                                                  COMSSYM      214     A     
 COMSSYM   M.CHAR   EQU    6           CHARACTER                                           COMSSYM      215     A     
 COMSSYM                                                                                   COMSSYM      216     A     
 COMSSYM   N.TYPE   EQU    M.CHAR+1    NUMBER OF TYPES                                     COMSSYM      217     A     
 COMSSYM   LABELS   SPACE  4,8                                                             COMSSYM      218     A     
 COMSSYM  **        WB.CLAS - CLASSIFICATION OF STATEMENT LABEL.                           COMSSYM      219     A     
 COMSSYM  *                                                                                COMSSYM      220     A     
 COMSSYM  *         WHEN (WB.LAB) = 1, THE (WB.CLAS) IS INTERPRETED AS FOLLOWS --          COMSSYM      221     A     
 COMSSYM                                                                                   COMSSYM      222     A     
 COMSSYM                                                                                   COMSSYM      223     A     
 COMSSYM            REDEF  CLAS                                                            COMSSYM      224     A     
 COMSSYM            DEFINE             (RESERVED FOR UNTERM DO LAB)                        COMSSYM      225     A     
 COMSSYM   1REF     DEFINE             STRAY NAME                                          COMSSYM      226     A     
 COMSSYM            DEFINE 3                                                               COMSSYM      227          I
          -FC50015
 COMSSYM            DEFINE 2                                                               FC50015        7          I
          -FC51356
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM   ALRN     DEFINE 1           LABEL REFERENCED BY A *ALTERNATE RETURN*            FC51356        7     A     
 COMSSYM   GOTO     DEFINE 1           LABEL REFERENCED(NOT AN *ALTERNATE RETURN*)         FC51356        8     A     
 COMSSYM   INDO     DEFINE             LABEL IN DO WHICH HAS EXIT                          FC50015        8     A     
 COMSSYM   NIN      DEFINE             DO LOOP HAS (POSSIBLE) NEG. INCREMENT               COMSSYM      228     A     
 COMSSYM   DLPE     DEFINE             LABEL IS POSSIBLE ENTRY OF DO LOOP                  COMSSYM      229     A     
 COMSSYM   DLC      DEFINE             DO LOOP HAS BEEN CLOSED                             COMSSYM      230     A     
 COMSSYM   LC       DEFINE             CCG INTERNAL                      (CCG DAP)         COMSSYM      231     A     
 COMSSYM   NDEF     DEFINE             APPEARED AS LABEL ON NON-EXECUTABLE                 COMSSYM      232     A     
 COMSSYM   UDEF     DEFINE             UNDEFINED                                           COMSSYM      233     A     
 COMSSYM                                                                                   COMSSYM      234     A     
 COMSSYM  *                                  (ATTRIBUTES OF FORMATS)                       COMSSYM      235     A     
 COMSSYM   FREF     DEFINE             REFERENCED AS FORMAT                                COMSSYM      236     A     
 COMSSYM   FDEF     DEFINE             DEFINED AS FORMAT                                   COMSSYM      237     A     
 COMSSYM   PRD      DEFINE             DO PARAMETER RE-DEFINED IN THIS LOOP                COMSSYM      238     A     
 COMSSYM                                                                                   COMSSYM      239     A     
 COMSSYM  *                                  (DO-LOOP PROPERTIES)                          COMSSYM      240     A     
 COMSSYM   DLNO     DEFINE 5           (CCG)  LOOP IS NOT OPTIMIZABLE                      COMSSYM      241     A     
 COMSSYM            REDEF  DLNO                                                            COMSSYM      242     A     
 COMSSYM   DLBB     DEFINE             LOOP CONTAINS A BACKWARD BRANCH                     COMSSYM      243     A     
 COMSSYM   DLEN     DEFINE             LOOP CONTAINS AN ENTRY                              COMSSYM      244     A     
 COMSSYM   DLEX     DEFINE             LOOP HAS AN EXIT                                    COMSSYM      245     A     
 COMSSYM   DLNI     DEFINE             LOOP IS NOT INNERMOST                               COMSSYM      246     A     
 COMSSYM   DLER     DEFINE             LOOP CONTAINS EXTERNAL REFERENCES                   COMSSYM      247     A     
 COMSSYM   DOGL     DEFINE             GENERATED LABEL FOR DO-TOP                          COMSSYM      248     A     
 COMSSYM   DMAT     DEFINE             (CCG)  LOOP INDEX TO BE MATERIALIZED                COMSSYM      249     A     
 COMSSYM   ACT      DEFINE             LABEL IS ACTIVE (WILL BE EXECUTED)                  COMSSYM      250     A     
 COMSSYM   INA      DEFINE             LABEL IS INACTIVE (CANNOT BE REFERENCED)            COMSSYM      251     A     
 COMSSYM                                                                                   COMSSYM      252     A     
 COMSSYM  *                                  (NORMAL STATEMENT LABELS)                     COMSSYM      253     A     
 COMSSYM   SLEN     DEFINE             IS ENTRY TO A DO-LOOP                               COMSSYM      254     A     
 COMSSYM   SLEX     DEFINE             IS EXIT FROM A DO-LOOP                              COMSSYM      255     A     
 COMSSYM   DEF      DEFINE             INSURE SAME POSITION                                COMSSYM      256     A     
 COMSSYM   SDEF     DEQU   DEF         DEFINED AS EXECUTABLE LABEL                         COMSSYM      257     A     
 COMSSYM   SREF     DEFINE             REFERENCED AS EXECUTABLE LABEL                      COMSSYM      258     A     
 COMSSYM   DOT      DEFINE             LABEL IS A DO-TERMINAL                              COMSSYM      259     A     
 COMSSYM                                                                                   COMSSYM      260     A     
 COMSSYM            ERRNZ  WB.DOTP-WB.CLASP                                                COMSSYM      261     A     
 COMSSYM   SYM/WC   SPACE  4,8                                                             COMSSYM      262     A     
 COMSSYM  **        SYM/WC - THIRD WORD.                                                   COMSSYM      263     A     
 COMSSYM                                                                                   COMSSYM      264     A     
 COMSSYM                                                                                   COMSSYM      265     A     
 COMSSYM            DESCRIBE WC.,,,2                                                       COMSSYM      266     A     
 COMSSYM                                                                                   COMSSYM      267     A     
 COMSSYM   FUNI     DEFINE 12          FUNCTION INFO         (SEE BELOW)                   COMSSYM      268     A     
 COMSSYM   RLRB     DEQU   FUNI        RELOCATION GROUP      (SEE BELOW)                   COMSSYM      269     A     
 COMSSYM   CLIF     DEFINE 19          CHARACTER LENGTH INFORMATION                        COMSSYM      270     A     
 COMSSYM            REDEF  CLIF                                                            COMSSYM      271     A     
 COMSSYM   CLEN     DEFINE 18          CHARACTER LENGTH                                    COMSSYM      272     A     
 COMSSYM   LINE     DEQU   CLEN        (LAB) = LINE NUMBER OF DEFINITION                   COMSSYM      273     A     
 COMSSYM   DVP      DEQU   CLEN        DATA VALUE POINTER (TO T.DVV)                       COMSSYM      274     A     
 COMSSYM   MRL      DEQU   CLEN        FILE MAXIMUM RECORD LENGTH                          COMSSYM      275     A     
 COMSSYM   EGL      DEQU   CLEN,15     GL FOR ENTRY POINT                                  COMSSYM      276     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM   CTYP     DEFINE             CHARACTER LENGTH TYPE                               COMSSYM      277     A     
 COMSSYM                               0 = CONSTANT LENGTH                                 COMSSYM      278     A     
 COMSSYM                               1 = *                                               COMSSYM      279     A     
 COMSSYM            DEFINE                                                                 COMSSYM      280     A     
 COMSSYM   BCP      DEFINE 4           BEGINNING CHARACTER POSITION                        COMSSYM      281     A     
 COMSSYM   RA       DEFINE 24          BLOCK-RELATIVE ADDRESS                              COMSSYM      282     A     
 COMSSYM   BRAD     DEQU   RA,18       BRANCH ADDRESS FOR DO. (CONRED/*SED*)               COMSSYM      283     A     
 COMSSYM   BFL      DEQU   RA,18       FILE BUFFER LENGTH                                  COMSSYM      284     A     
 COMSSYM   IEF      DEQU   RA,18       SYMTAB INDEX OF EQUIVALENCED FILE                   COMSSYM      285     A     
 COMSSYM   LDTL     DEQU   RA,13       LINK (SYMORD) TO DO-TOP LABEL (LABELS ONLY)         COMSSYM      286     A     
 COMSSYM   WC.FUNI  SPACE  4,8                                                             COMSSYM      287     A     
 COMSSYM  **        WC.FUNI - FUNCTION INFORMATION.                                        COMSSYM      288     A     
 COMSSYM  *                                                                                COMSSYM      289     A     
 COMSSYM  *         INTERPRET WHEN (WB.FUN) SET.                                           COMSSYM      290     A     
 COMSSYM                                                                                   COMSSYM      291     A     
 COMSSYM                                                                                   COMSSYM      292     A     
 COMSSYM            REDEF  FUNI                                                            COMSSYM      293     A     
 COMSSYM   FUNT     DEFINE 3           FUNCTION TYPE  (SEE MF.XXX)                         COMSSYM      294     A     
 COMSSYM   ARGC     DEFINE 9                                                               COMSSYM      295     A     
 COMSSYM                                                                                   COMSSYM      296     A     
 COMSSYM   MF.USER  EQU    0           USER EXTERNAL FUNCTION                              COMSSYM      297     A     
 COMSSYM   MF.STF   EQU    1           USER STATEMENT FUNCTION                             COMSSYM      298     A     
 COMSSYM   MF.LIB   EQU    2           LIBRARY FUNCTION   (..QQ..)                         COMSSYM      299     A     
 COMSSYM   MF.BEF   EQU    3           INTRINSIC EXTERNAL FUNCTION                         COMSSYM      300     A     
 COMSSYM   MF.INL   EQU    4           INTRINSIC INLINE FUNCTION                           COMSSYM      301     A     
 COMSSYM                                                                                   COMSSYM      302     A     
 COMSSYM                                                                                   COMSSYM      303     A     
 COMSSYM  *         FOR AN EXTERNAL INTRINSIC (MF.BEF), THE FOLLOWING                      COMSSYM      304     A     
 COMSSYM  *         FIELDS ARE ALSO USED.                                                  COMSSYM      305     A     
 COMSSYM                                                                                   COMSSYM      306     A     
 COMSSYM                                                                                   COMSSYM      307     A     
 COMSSYM            REDEF  RA                                                              COMSSYM      308     A     
 COMSSYM   SHC      DEFINE 6           SHIFT COUNT FOR APPENDING SUFFIX                    COMSSYM      309     A     
 COMSSYM            DEFINE 10                                                              COMSSYM      310     A     
 COMSSYM   BRP      DEFINE 8           +/ 2**(B-REG PRESERVED)                             COMSSYM      311     A     
 COMSSYM   WC.RLRB  SPACE  4,8                                                             COMSSYM      312     A     
 COMSSYM  **        WC.RLRB - RELOCATION GROUP INFO.                                       COMSSYM      313     A     
 COMSSYM  *                                                                                COMSSYM      314     A     
 COMSSYM  *         THIS FIELD PER CCG SPEC.                                               COMSSYM      315     A     
 COMSSYM                                                                                   COMSSYM      316     A     
 COMSSYM                                                                                   COMSSYM      317     A     
 COMSSYM            REDEF  RLRB                                                            COMSSYM      318     A     
 COMSSYM   RL       DEFINE 2           RELOCATION TYPE       (SEE ML.XXX)                  COMSSYM      319     A     
 COMSSYM            DEFINE                                                                 COMSSYM      320          I
          -FC50933
 COMSSYM   RB       DEFINE 9           RELOCATION BASE = BLOCK NUMBER                      COMSSYM      321          I
          -FC50933
 COMSSYM   RB       DEFINE 10          RELOCATION BASE = BLOCK INDEX                       FC50933        7     A     
 COMSSYM                                                                                   COMSSYM      322     A     
 COMSSYM   ML.ABS   EQU    0           ABSOLUTE                                            COMSSYM      323     A     
 COMSSYM   ML.PROG  EQU    1           PROGRAM                                             COMSSYM      324     A     
 COMSSYM   ML.COM   EQU    2           COMMON                                              COMSSYM      325     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM   ML.EXT   EQU    3           EXTERNAL                                            COMSSYM      326     A     
 COMSSYM   VARDIM   SPACE  4,8                                                             COMSSYM      327     A     
 COMSSYM  **        VD. - VARDIM TABLE.                                                    COMSSYM      328     A     
 COMSSYM  *         DEFINE VD. (FORMAT OF VARDIM INFORMATION TABLE)                        COMSSYM      329     A     
 COMSSYM                                                                                   COMSSYM      330     A     
 COMSSYM                                                                                   COMSSYM      331     A     
 COMSSYM  *         +-+-+----+----------------+----------------+----------------+          COMSSYM      332     A     
 COMSSYM  *         +M+A+////+   INDEX (FE)   +     FIRST      +     NUMBER     +          COMSSYM      333     A     
 COMSSYM  *         +A+L+////+----------------+     TURPLE     +       OF       +          COMSSYM      334     A     
 COMSSYM  *         +T+O+////+   BIAS  (CG)   +     ORDINAL    +     TURPLES    +          COMSSYM      335     A     
 COMSSYM  *         +-+-+----+----------------+----------------+----------------+          COMSSYM      336     A     
 COMSSYM  *          1 1   4         18               18               18                  COMSSYM      337     A     
 COMSSYM                                                                                   COMSSYM      338     A     
 COMSSYM                                                                                   COMSSYM      339     A     
 COMSSYM            DESCRIBE VD.                                                           COMSSYM      340     A     
 COMSSYM   MAT      DEFINE 1           THIS VD. CELL USED BY GEN. CODE                     COMSSYM      341     A     
 COMSSYM   ALO      DEFINE 1           THIS CELL ALLOWED IN THIS ENTRY (*OTC*/*OVC         COMSSYM      342     A     
 COMSSYM   MA       DEQU   ALO,2                                                           COMSSYM      343     A     
 COMSSYM            DEFINE 4                                                               COMSSYM      344     A     
 COMSSYM   CA       DEFINE 18          ACTUAL BIAS FOR THIS CELL (CODE GENERATOR)          COMSSYM      345     A     
 COMSSYM   IND      DEQU   CA          INDEX OF VD. STORE OPERAND (FRONT END)              COMSSYM      346     A     
 COMSSYM   PNT      DEFINE 18          ORDINAL TO VARDIM TURPLE TABLE                      COMSSYM      347     A     
 COMSSYM   LEN      DEFINE 18          NUMBER OF TURPLES                                   COMSSYM      348     A     
 COMSSYM   FORPAR   SPACE  4,8                                                             COMSSYM      349     A     
 COMSSYM  **        FP. - FORMAL PARAMETER TABLE.                                          COMSSYM      350     A     
 COMSSYM  *         DEFINE FP. (FORMAT OF FORMAL PARAMETER INFORMATION TABLE).             COMSSYM      351     A     
 COMSSYM                                                                                   FC5A231       13     A     
 COMSSYM                                                                                   FC5A231       14     A     
 COMSSYM  *         +-+-+-+-+--+----------------+-----------------+--------------+         FC5A231       15          I
          -FC50252
 COMSSYM  *         +V+L+V+L+//+                +                 +              +         FC5A231       16          I
          -FC50252
 COMSSYM  *         +D+C+D+E+//+       LEN      +       SUB0      +     PNT      +         FC5A231       17          I
          -FC50252
 COMSSYM  *         +S+ + +V+//+                +                 +              +         FC5A231       18          I
          -FC50252
 COMSSYM  *         +-+-+-+-+--+----------------+-----------------+--------------+         FC5A231       19          I
          -FC50252
 COMSSYM  *          1 1 1 1  2         18               18              18                FC5A231       20          I
          -FC50252
 COMSSYM  *         +-+-+-+-+-----+-------------+-----------------+--------------+         FC50252       10     A     
 COMSSYM  *         +V+L+V+L+     +             +                 +              +         FC50252       11     A     
 COMSSYM  *         +D+C+D+E+ CA  +     LEN     +       SUB0      +     PNT      +         FC50252       12     A     
 COMSSYM  *         +S+ + +V+     +             +                 +              +         FC50252       13     A     
 COMSSYM  *         +-+-+-+-+-----+-------------+-----------------+--------------+         FC50252       14     A     
 COMSSYM  *          1 1 1 1   6         14              18              18                FC50252       15     A     
 COMSSYM                                                                                   FC5A231       21     A     
 COMSSYM                                                                                   COMSSYM      352     A     
 COMSSYM            DESCRIBE FP.                                                           COMSSYM      353     A     
 COMSSYM   VDS      DEFINE 1           USED IN VARDIM                                      COMSSYM      354     A     
 COMSSYM   LC       DEFINE 1           IF CCG MADE LOCAL COPY                              COMSSYM      355     A     
 COMSSYM   VD       DEFINE 1           USED IN ISSUED VARDIM                               COMSSYM      356     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM   LEV0     DEFINE 1           IF LEVEL 0 F.P.                                     COMSSYM      357     A     
 COMSSYM            DEFINE 2                                                               COMSSYM      358          I
          -FC50252
 COMSSYM   LEN      DEFINE 18          NUMBER OF SUB REFERENCES FOR THIS FP                COMSSYM      359          I
          -FC50252
 COMSSYM   CA       DEFINE 6           BIAS OF LOCAL COPY (CCG ASSIGNED)                   FC50252       16     A     
 COMSSYM   LEN      DEFINE 14          NUMBER OF SUB REFERENCES FOR THIS FP                FC50252       17     A     
 COMSSYM   SUB      DEQU   LEN         INDEX INTO SUB TABLE                                COMSSYM      360     A     
 COMSSYM   CA       DEQU   LEN         BIAS OF LOCAL COPY (CCG ASSIGNED)                   COMSSYM      361          I
          -FC50252
 COMSSYM   SUB0     DEFINE 18          NUMBER OF LEVEL 0 REFERENCES                        COMSSYM      362     A     
 COMSSYM   PNT      DEFINE 18          SYMBOL TABLE ORDINAL OF THIS FP.                    COMSSYM      363     A     
 COMSSYM   T.BLKS   SPACE  4,8                                                             COMSSYM      364     A     
 COMSSYM  ***       T.BLKS - COMMON BLOCK NAME TABLE.                                      COMSSYM      365     A     
 COMSSYM  *                                                                                COMSSYM      366     A     
 COMSSYM  *         CONTAINS COMMON BLOCK NAMES AND LENGTHS.                               COMSSYM      367     A     
 COMSSYM  *         ZEROTH ENTRY IS NOT USED:  IT IS A PSUEDO-BLOCK FOR PROGRAM-           COMSSYM      368     A     
 COMSSYM  *                RELATIVE ADDRESS GAMES.                                         COMSSYM      369     A     
 COMSSYM  *                                                                                COMSSYM      370     A     
 COMSSYM  *         THERE IS 1 POINTER WORD FOR EACH ECS/LCM COMMON BLOCK.  IT             COMSSYM      371     A     
 COMSSYM  *                IS REFERENCED VIA THE LCA TAG STORED IN *CB.TAG*.               COMSSYM      372     A     
 COMSSYM  *         THE CNFL BIT IS ON IF NAMES IN THE COMMON BLOCK ARE ASSIGNED           COMSSYM      373     A     
 COMSSYM  *                TO CONFLICTING LEVELS.                                          COMSSYM      374     A     
 COMSSYM  *         THE DFLT BIT IS ON IF ONE OR MORE NAMES ARE DEFAULTED TO THE           COMSSYM      375     A     
 COMSSYM  *                LEVEL ESTABLISHED FOR THE BLOCK.                                COMSSYM      376     A     
 COMSSYM  *         THE CHAR BIT IS ON IF FIRST MEMBER OF THE COMMON BLOCK IS              COMSSYM      377     A     
 COMSSYM  *                DECLARED MODE CHARACTER.                                        COMSSYM      378     A     
 COMSSYM  *         THE NAC BIT IS ON IF SUBSEQUENT NAMES IN THE COMMON BLOCK              COMSSYM      379     A     
 COMSSYM  *                HAVE CONFLICTING CHAR/ NON-CHAR MODES WITH THE FIRST.           COMSSYM      380     A     
 COMSSYM  *                                                                                COMSSYM      381     A     
 COMSSYM  *                                                                                COMSSYM      382     A     
 COMSSYM  *         1ST WORD - CA.                                                         COMSSYM      383     A     
 COMSSYM  *                                                                                COMSSYM      384     A     
 COMSSYM  *         +--------------------------------------+-+-+----+-----------+          COMSSYM      385     A     
 COMSSYM  *         +                                      +C+N+ L  +   LAST    +          COMSSYM      386     A     
 COMSSYM  *         +                BLOCK NAME            +H+A+ V  +  MEMBER   +          COMSSYM      387     A     
 COMSSYM  *         +                                      +R+C+ L  +   INDEX   +          COMSSYM      388     A     
 COMSSYM  *         +--------------------------------------+-+-+----+-----------+          COMSSYM      389     A     
 COMSSYM  *                              42                 1 1  4        12               COMSSYM      390     A     
 COMSSYM  *                                                                                COMSSYM      391     A     
 COMSSYM  *                                                                                COMSSYM      392     A     
 COMSSYM  *         2ND WORD - CB.                                                         COMSSYM      393     A     
 COMSSYM  *                                                                                COMSSYM      394     A     
 COMSSYM  *         +-+-+----+-----------+---------------+----------------------+          COMSSYM      395     A     
 COMSSYM  *         +L+S+  R +   FIRST   +      LCM      +                      +          COMSSYM      396     A     
 COMSSYM  *         +C+A+  N +   MEMBER  +    POINTER    +       LENGTH         +          COMSSYM      397     A     
 COMSSYM  *         +M+V+  C +   INDEX   +      TAG      +                      +          COMSSYM      398     A     
 COMSSYM  *         +-+-+----+-----------+---------------+----------------------+          COMSSYM      399     A     
 COMSSYM  *          1 1   4       12            18                24                      COMSSYM      400     A     
 COMSSYM                                                                                   COMSSYM      401     A     
 COMSSYM                                                                                   COMSSYM      402     A     
 COMSSYM   Z=BLKS   EQU    2           WORDS PER BLOCK TABLE ENTRY                         COMSSYM      403     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYM 
  
 COMSSYM                                                                                   COMSSYM      404     A     
 COMSSYM                                                                                   COMSSYM      405     A     
 COMSSYM            DESCRIBE CA.,,,0                                                       COMSSYM      406     A     
 COMSSYM   BNAM     DEFINE 7*6         BLOCK NAME                                          COMSSYM      407     A     
 COMSSYM   CHAR     DEFINE 1           BLOCK HAS CHARACTER ENTITIES                        COMSSYM      408     A     
 COMSSYM   NAC      DEFINE 1           CHARACTER CONFLICT                                  COMSSYM      409     A     
 COMSSYM   LVL      DEFINE 4           LEVEL FIELDS                                        COMSSYM      410     A     
 COMSSYM            REDEF  LVL                                                             COMSSYM      411     A     
 COMSSYM   CNFL     DEFINE 1           LEVEL CONFLICT                                      COMSSYM      412     A     
 COMSSYM   DFLT     DEFINE 1           LEVEL DEFAULT                                       COMSSYM      413     A     
 COMSSYM   BLVL     DEFINE 2           BLOCK LEVEL                                         COMSSYM      414     A     
 COMSSYM   LMI      DEFINE 12          INDEX OF LAST MEMBER OF BLOCK IN T.COMM             COMSSYM      415     A     
 COMSSYM                                                                                   COMSSYM      416     A     
 COMSSYM                                                                                   COMSSYM      417     A     
 COMSSYM            DESCRIBE CB.,,,1                                                       COMSSYM      418     A     
 COMSSYM   LCM      DEFINE 1           BLOCK RESIDES IN ECS/LCM                            COMSSYM      419     A     
 COMSSYM   SAVE     DEFINE 1           BLOCK APPEARED IN SAVE DECLARATION                  COMSSYM      420     A     
 COMSSYM   RNC      DEFINE 4           REMAIN. CHAR CNT BEFORE ROUNDING BLK LEN            COMSSYM      421     A     
 COMSSYM   FMI      DEFINE 12          INDEX OF FIRST MEMBER OF BLOCK IN T.COMM            COMSSYM      422     A     
 COMSSYM   TAG      DEFINE 18          ECS/LCM POINTER TAG (K=LC)                          COMSSYM      423     A     
 COMSSYM   BLEN     DEFINE 24          LENGTH (WORDS IN BLOCK, ROUNDED)                    COMSSYM      424     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSSYM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSSYM                    424       400
          FC50015                      2         1
          FC5A184                      2         1
          FC5A191                      1         1
          FC5A192                      3         3
          FC5A211                      1         0
          FC5A231                      9         3
          FC50096                     22        22
          FC50252                     12        12
          FC50326                      1         1
          FC50933                      1         1
          FC5A444                      1         1
          FC51356                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYC 
  
 COMSSYC  *COMDECK  COMSSYC - NAMES OF SYMBOL CLASS BITS.                                  COMSSYC        1     A     
 COMSSYC   COMSSYC  CTEXT  COMSSYC - NAMES OF SYMBOL CLASS BITS.                           COMSSYC        2     A     
 COMSSYC                                                                                   COMSSYC        3     A     
 COMSSYC                                                                                   COMSSYC        4     A     
 COMSSYC  ***              COMSSYC PROVIDES HOLLERITH NAMES OF SYMTAB CLASS BITS.          COMSSYC        5     A     
 COMSSYC  *                                                                                COMSSYC        6     A     
 COMSSYC  *         THE NAMES ARE SAVED IN A MICRO STRING AND THEN FED TO THE              COMSSYC        7     A     
 COMSSYC  *         USERS MACRO IN REVERSE ORDER (LOWEST BIT NUMBER FIRST).                COMSSYC        8     A     
 COMSSYC  *         THE USER MUST MATERIALIZE THE SAVED DEFINITIONS WITH A                 COMSSYC        9     A     
 COMSSYC  *                "CLASS  HERE"                                                   COMSSYC       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYC 
  
 COMSSYC  *         INSTRUCTION, AFTER CALLING THIS COMDECK.                               COMSSYC       11     A     
 COMSSYC   CLASS    SPACE  4,10                                                            COMSSYC       12     A     
 COMSSYC  ***       CLAS - USER MACRO TO MATERIALIZE NAMES.                                COMSSYC       13     A     
 COMSSYC  *                                                                                COMSSYC       14     A     
 COMSSYC  *         CLAS   ADDR,NAME                                                       COMSSYC       15     A     
 COMSSYC   CL=NAM   SPACE  4,10                                                            COMSSYC       16     A     
 COMSSYC  **        CL=NAM - MACRO TO NAME SYMBOL CLASS BITS.                              COMSSYC       17     A     
 COMSSYC  *                                                                                COMSSYC       18     A     
 COMSSYC  * SYM     CL=NAM NAM                                                             COMSSYC       19     A     
 COMSSYC  *                                                                                COMSSYC       20     A     
 COMSSYC  *         ENTRY  SYM = SUFFIX OF (WB.) FOR THIS BIT.                             COMSSYC       21     A     
 COMSSYC  *                NAM = EXTERNAL NAME, FOR ERROR MESSAGES AND MAP.                COMSSYC       22     A     
 COMSSYC                                                                                   COMSSYC       23     A     
 COMSSYC                                                                                   COMSSYC       24     A     
 COMSSYC            MACRO  CL=NAM,SYM,NAM                                                  COMSSYC       25     A     
 COMSSYC            LOCAL  ADDR                                                            COMSSYC       26     A     
 COMSSYC   CLAS1    MICRO  1,, ADDR-WB.SYM                                                 COMSSYC       27     A     
 COMSSYC  *                                                                                COMSSYC       28     A     
 COMSSYC   CL=BIT   SET    CL=BIT-1                                                        COMSSYC       29     A     
 COMSSYC     IFC    NE, SYM  ,1                                                            COMSSYC       30     A     
 COMSSYC     ERRNZ  CL=BIT-WB.SYM_P    ERRLIT OUT OF SYNCH   ["SEQUENCE"]_________         COMSSYC       31     A     
 COMSSYC  *                                                                                COMSSYC       32     A     
 COMSSYC   CL=MIC   MICRO  1,,)ADDR,NAM "CL=MIC")                                          COMSSYC       33     A     
 COMSSYC   CL=NAM   ENDM                                                                   COMSSYC       34     A     
 COMSSYC                                                                                   COMSSYC       35     A     
 COMSSYC                                                                                   COMSSYC       36     A     
 COMSSYC   CL=BIT   SET    WB.CLASP+WB.CLASL                                               COMSSYC       37     A     
 COMSSYC   CL=MIC   MICRO                                                                  COMSSYC       38     A     
 COMSSYC                                                                                   COMSSYC       39     A     
 COMSSYC                                                                                   COMSSYC       40     A     
 COMSSYC   CLASS    RMT                CALL USER MACRO TO MATERIALIZE NAMES                COMSSYC       41     A     
 COMSSYC   CL=.1    DUP    WB.CLASL+2                                                      COMSSYC       42     A     
 COMSSYC   CL=N     MICRO  1,, "CL=MIC"                                                    COMSSYC       43     A     
 COMSSYC   CL=L     MICCNT CL=N                                                            COMSSYC       44     A     
 COMSSYC   CL=MIC   MICRO  CL=L+2,,)"CL=MIC")                                              COMSSYC       45     A     
 COMSSYC            CLAS   "CL=N"                                                          COMSSYC       46     A     
 COMSSYC   CL=.1    ENDD                                                                   COMSSYC       47     A     
 COMSSYC   CLASS    RMT                                                                    COMSSYC       48     A     
 COMSSYC   ERRLIT   SPACE  4,10                                                            COMSSYC       49     A     
 COMSSYC  ****      ERROR LITERALS FOR CLASS BITS --                                       COMSSYC       50     A     
 COMSSYC  *                                                                                COMSSYC       51     A     
 COMSSYC  *         NOTE   ANY CHANGES TO THE CLASS BIT DEFINITIONS IN (COMSSYM)           COMSSYC       52     A     
 COMSSYC  *                MUST ALSO BE REFLECTED IN THE ORDER OF THE FOLLOWING            COMSSYC       53     A     
 COMSSYC  *                VECTOR.                                                         COMSSYC       54     A     
 COMSSYC                                                                                   COMSSYC       55     A     
 COMSSYC                                                                                   COMSSYC       56     A     
 COMSSYC   DOIX     CL=NAM DO-INDEX    LOOP INDEX OF ACTIVE DO                             COMSSYC       57          I
          -FC5A211
 COMSSYC            CL=NAM --ERR--     (SPARE)                                             FC5A211        7          I
          -FC50326
 COMSSYC   SFA      CL=NAM STF-DARG    STATEMENT FUNCTION DUMMY ARGUMENT                   FC50326        8     A     
 COMSSYC   1REF     CL=NAM STRAY       STRAY NAME                                          COMSSYC       58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYC 
  
 COMSSYC   MAT      CL=NAM MATERIAL    STORAGE REQUIRED                                    COMSSYC       59     A     
 COMSSYC   SAVE     CL=NAM SAVE        DECLARED *SAVE*                                     COMSSYC       60     A     
 COMSSYC   NLST     CL=NAM NAMELIST    NAMELIST GROUP NAME                                 COMSSYC       61     A     
 COMSSYC                                                                                   COMSSYC       62     A     
 COMSSYC  *         DATR - ATTRIBUTES DURING DECLARATIVES                                  COMSSYC       63     A     
 COMSSYC   LEV      CL=NAM LEVELED     LEVELED -- (WB.LEVN) = LEVEL NUMBER                 COMSSYC       64     A     
 COMSSYC   VDS      CL=NAM TY=INTEGER  MUST BE INTEGER                                     COMSSYC       65     A     
 COMSSYC   TYP      CL=NAM TYPED       WAS EXPLICITLY TYPED                                COMSSYC       66     A     
 COMSSYC            CL=NAM --ERR--     (SPARE)                                             COMSSYC       67          I
          -FC5A211
 COMSSYC   AGN      CL=NAM ASSIGN      VARIABLE APPEARED IN ASSIGN STATEMENT               FC5A211        8     A     
 COMSSYC   INTF     CL=NAM INTRINSIC   DECLARED *INTRINSIC*                                COMSSYC       68     A     
 COMSSYC   DEXT     CL=NAM EXTERNAL    DECLARED *EXTERNAL*                                 COMSSYC       69     A     
 COMSSYC   GENF     CL=NAM GENERIC     GENERIC FUNCTION NAME                               COMSSYC       70     A     
 COMSSYC   LDO      CL=NAM LOAD-ONLY   LOAD-ONLY VARIABLE                (CCG DAP)         COMSSYC       71     A     
 COMSSYC   BMEM     CL=NAM EQUIV-BASE  BASE MEMBER OF AN EQUIVALENCE CLASS                 COMSSYC       72     A     
 COMSSYC   LOCF     CL=NAM LOCF        IRREDUCIBLE REFS                  (CCG DAP)         COMSSYC       73     A     
 COMSSYC                                                                                   COMSSYC       74     A     
 COMSSYC  * CCGV    CL=NAM             ORDERED FIELD                     (CCG DAP)         COMSSYC       75     A     
 COMSSYC  *         REDEF  CCGV                                                            COMSSYC       76     A     
 COMSSYC   LCM      CL=NAM "LCM"       RESIDES IN LARGE CORE                               COMSSYC       77     A     
 COMSSYC   FP       CL=NAM DUMMY-ARG   IS A FORMAL PARAMETER                               COMSSYC       78     A     
 COMSSYC   COM      CL=NAM COMMON      IS IN A /COMMON/ BLOCK                              COMSSYC       79     A     
 COMSSYC   EXT      CL=NAM =XTERNAL    EXTERNAL NAME                                       COMSSYC       80          I
          -FC5A255
 COMSSYC   EXT      CL=NAM EXTERNAL.   EXTERNAL NAME                                       FC5A255        5     A     
 COMSSYC   ENT      CL=NAM ENTRY                                                           COMSSYC       81     A     
 COMSSYC                                                                                   COMSSYC       82     A     
 COMSSYC   FUN      CL=NAM FUNCTION    SEE (WC.FUNT)                                       COMSSYC       83     A     
 COMSSYC   SUB      CL=NAM SUBROUTINE                                                      COMSSYC       84     A     
 COMSSYC   ARY      CL=NAM ARRAY                                                           COMSSYC       85     A     
 COMSSYC   EQV      CL=NAM EQUIV.      NON-BASE MEMBER                                     COMSSYC       86     A     
 COMSSYC   PARM     CL=NAM PARAMETER   NAME IS A *PARAMETER*                               COMSSYC       87     A     
 COMSSYC   DEF      CL=NAM DEFINED     (VAR) = GETS STORED INTO                            COMSSYC       88     A     
 COMSSYC                               (SUB, FUN) = ARG COUNT DETERMINED                   COMSSYC       89     A     
 COMSSYC   NVAR     CL=NAM NOT-VAR     NOT A VARIABLE                                      COMSSYC       90     A     
 COMSSYC   VAR      CL=NAM VARIABLE    IS A VARIABLE                                       COMSSYC       91     A     
 COMSSYC   CGS      CL=NAM -INTERNAL-  COMPILER GENERATED SYMBOL                           COMSSYC       92     A     
 COMSSYC   LAB      CL=NAM LABEL       IS A STATEMENT LABEL                                COMSSYC       93     A     
 COMSSYC  ****                                                                             COMSSYC       94     A     
 COMSSYC            PURGMAC CL=NAM                                                         COMSSYC       95     A     
 COMSSYC                                                                                   COMSSYC       96     A     
 COMSSYC   COMSSYC  ENDX                                                                   COMSSYC       97     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSSYC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSSYC                     97        94
          FC5A211                      2         1
          FC5A255                      1         1
          FC50326                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSSYC 
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSTAB 
  
 COMSTAB  *COMDECK  COMSTAB - CCG COMMUNICATION TABLES.                                    COMSTAB        1     A     
 COMSTAB   COMSTAB  CTEXT              DEFINE TABLES SHARED WITH CCG.                      COMSTAB        2     A     
 COMSTAB                                                                                   COMSTAB        3     A     
 COMSTAB  *CALL COMSTAD                                                                    COMSTAB        4     A     
 COMSTAB  *CALL COMSTAS                                                                    COMSTAB        5     A     
 COMSTAB                                                                                   COMSTAB        6     A     
 COMSTAB   COMSTAB  ENDX                                                                   COMSTAB        7     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSTAB 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSTAB                      7         7
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSTAD 
  
 COMSTAD  *COMDECK  COMSTAD - CCG COMMUNICATION DYNAMIC TABLES.                            COMSTAD        1     A     
 COMSTAD   COMSTAD  CTEXT              DEFINE TABLES SHARED WITH CCG.                      COMSTAD        2     A     
 COMSTAD                                                                                   COMSTAD        3     A     
 COMSTAD  ***       COMSTAD CONTAINS A "TABSH" MACRO CALL FOR EACH TABLE                   COMSTAD        4     A     
 COMSTAD  *         WHICH IS SHARED WITH CCG.                                              COMSTAD        5     A     
 COMSTAD  *                                                                                COMSTAD        6     A     
 COMSTAD  * FEN     TABSH  RATE,INIT,CGN                                                   COMSTAD        7     A     
 COMSTAD  *                                                                                COMSTAD        8     A     
 COMSTAD  *         WHERE  *FEN* = FRONT END NAME (SUFFIX) FOR THE TABLE.                  COMSTAD        9     A     
 COMSTAD  *                *RATE* = PARAMETER FOR FRONT END DECLARATION.                   COMSTAD       10     A     
 COMSTAD  *                *INIT* = PARAMETER FOR FRONT END DECLARATION.                   COMSTAD       11     A     
 COMSTAD  *                *CGN* = CCG NAME (SUFFIX) FOR TABLE.                            COMSTAD       12     A     
 COMSTAD  *                IF *CGN* IS OMITTED, THE CCG SUFFIX IS SAME AS *FEN*.           COMSTAD       13     A     
 COMSTAD                                                                                   COMSTAD       14     A     
 COMSTAD                                                                                   COMSTAD       15     A     
 COMSTAD   CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST)         COMSTAD       16     A     
 COMSTAD   CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND          COMSTAD       17     A     
 COMSTAD   APL      TABSH  3           ACTUAL PARAMETER LISTS                              COMSTAD       18          I
          -FC5A128
 COMSTAD   IOA      TABSH  3           I/O APLISTS (MUST FOLLOW APL)                       COMSTAD       19          I
          -FC5A128
 COMSTAD   API      TABSH  0,,APT                                                          COMSTAD       20          I
          -FC5A128
 COMSTAD   IOI      TABSH  0,,IOT      I/O APLIST INDICES (MUST FOLLOW API)                COMSTAD       21          I
          -FC5A128
 COMSTAD   APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                              FC5A128        7     A     
 COMSTAD   IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)                       FC5A128        8     A     
 COMSTAD   API      TABSH  1,,APT      APLIST INIDICES                                     FC5A128        9     A     
 COMSTAD   IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)                FC5A128       10     A     
 COMSTAD   GL       TABSH  2,,GLT      GENERATED LABELS                                    COMSTAD       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSTAD 
  
 COMSTAD   ASG      TABSH  1           ASSIGN STATEMENT INFO                               COMSTAD       23     A     
 COMSTAD   CON      TABSH  3,,CVT                                                          COMSTAD       24          I
          -FC5A128
 COMSTAD   CON      TABSH  3,,CVT      CONSTANT VALUES                                     FC5A128       11     A     
 COMSTAD   CUT      TABSH  0           CON. BIASES FOR PASS 3                              COMSTAD       25     A     
 COMSTAD                                                                                   COMSTAD       26     A     
 COMSTAD   COMSTAD  ENDX                                                                   COMSTAD       27     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSTAD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSTAD                     27        22
          FC5A128                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMSTAS 
  
 COMSTAS  *COMDECK  COMSTAS                                                                COMSTAS        1     A     
 COMSTAS   COMSTAS  CTEXT              DEFINE STATIC TABLES SHARED WITH CCG.               COMSTAS        2     A     
 COMSTAS                                                                                   COMSTAS        3     A     
 COMSTAS  *         A STATIC TABLE IS ONE WHICH DOES NOT GROW OR SHRINK IN                 COMSTAS        4     A     
 COMSTAS  *         BRIDGE/PASS 2.                                                         COMSTAS        5     A     
 COMSTAS                                                                                   COMSTAS        6     A     
 COMSTAS   SYM      TABSH  3,50*Z=SYM  SYMBOL TABLE      (INITAL LENGTH IS AD HOC,         COMSTAS        7          I
          -FC5A128
 COMSTAS                                                BUT SHOULD EXCEED Z.SYMIL)         COMSTAS        8          I
          -FC5A128
 COMSTAS   SYM      TABSH  3,50*Z=SYM,,(DECL,EXU)  SYMBOL TABLE                            FC5A128       12     A     
 COMSTAS  *         (INITIAL LENGTH IS AD HOC BUT SHOULD NOT EXCEED Z.SYMIL)               FC5A128       13     A     
 COMSTAS   BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                            COMSTAS        9     A     
 COMSTAS   NLST     TABSH  3           NAMELIST INFORMATION                                COMSTAS       10          I
          -FC5A128
 COMSTAS   DIM      TABSH  1           DIMENSION DESCRIPTORS                               COMSTAS       11          I
          -FC5A128
 COMSTAS   NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                                FC5A128       14     A     
 COMSTAS   DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                               FC5A128       15     A     
 COMSTAS   ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS                       COMSTAS       12     A     
 COMSTAS   FPI      TABSH  1           FORMAL PARAMETER INFORMATION                        COMSTAS       13     A     
 COMSTAS   VDI      TABSH  1           VARDIM INFORMATION                                  COMSTAS       14     A     
 COMSTAS                                                                                   COMSTAS       15     A     
 COMSTAS   COMSTAS  ENDX                                                                   COMSTAS       16     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMSTAS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMSTAS                     16        12
          FC5A128                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEFINS  
  
 DEFINS   *COMDECK  DEFINS - DEFINE MACHINE OPCODES.                                       DEFINS         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEFINS  
  
 DEFINS             CTEXT  DEFINS - DEFINE MACHINE OPCODES.                                DEFINS         2     A     
 DEFINS    DEFINS   SPACE  4,10                                                            DEFINS         3     A     
 DEFINS   *         PSUEDO-OPS WHICH OCCUR BETWEEN BMI/EMI.                                DEFINS         4     A     
 DEFINS                                                                                    DEFINS         5     A     
 DEFINS   **        HARD NUMBERS ARE USED FOR FLOATING POINT                               DEFINS         6     A     
 DEFINS   *         OPCODES IN THE ROUNDABLE OPCODE PLUGGING                               DEFINS         7     A     
 DEFINS   *         ROUTINE, ROR (IN COMFROR). IT WAS FELT THAT                            DEFINS         8     A     
 DEFINS   *         A DEFINS CALL FOR THE EXPRESSED PURPOSE OF                             DEFINS         9     A     
 DEFINS   *         SYMBOLICALLY DEFINING 4 PERMANT CONSTANTS                              DEFINS        10     A     
 DEFINS   *         WOULD BE EXCESSIVE.                                                    DEFINS        11     A     
 DEFINS                                                                                    DEFINS        12     A     
 DEFINS                                                                                    DEFINS        13     A     
 DEFINS    JPQ      DEFPO  I.JPI       INDEXED JUMP                                        DEFINS        14     A     
 DEFINS    RJ3      DEFPO  I.RJ3       30-BIT RETURN JUMP                                  DEFINS        15     A     
 DEFINS    UJP      DEFPO  I.UJP       UNCONDITIONAL JUMP                                  DEFINS        16     A     
 DEFINS    LABL     DEFPO  I.BSS       DEFINE LABEL TAG                                    DEFINS        17     A     
 DEFINS                                                                                    DEFINS        18     A     
 DEFINS                                                                                    DEFINS        19     A     
 DEFINS   *         DIRECT ACCESS LCM.                                                     DEFINS        20     A     
 DEFINS                                                                                    DEFINS        21     A     
 DEFINS    DRL      DEFINS 014,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE            DEFINS        22     A     
 DEFINS    DWL      DEFINS 015,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE            DEFINS        23     A     
 DEFINS                                                                                    DEFINS        24     A     
 DEFINS                                                                                    DEFINS        25     A     
 DEFINS   *                            CONDITIONAL BRANCHES.                               DEFINS        26     A     
 DEFINS                                                                                    DEFINS        27     A     
 DEFINS    ZR       DEFINS 030,M.BRAN                                                      DEFINS        28     A     
 DEFINS    NZ       DEFINS 031,M.BRAN                                                      DEFINS        29     A     
 DEFINS    PL       DEFINS 032,M.BRAN                                                      DEFINS        30     A     
 DEFINS    MI       DEFINS 033,M.BRAN                                                      DEFINS        31     A     
 DEFINS                                                                                    DEFINS        32     A     
 DEFINS    IR       DEFINS 034,M.BRAN                                                      DEFINS        33     A     
 DEFINS    ORJ      DEFINS 035,M.BRAN                                                      DEFINS        34     A     
 DEFINS    DFJ      DEFINS 036,M.BRAN                                                      DEFINS        35     A     
 DEFINS    IDJ      DEFINS 037,M.BRAN                                                      DEFINS        36     A     
 DEFINS                                                                                    DEFINS        37     A     
 DEFINS    EQB      DEFINS 040,M.BRAN                                                      DEFINS        38     A     
 DEFINS    NEB      DEFINS 050,M.BRAN                                                      DEFINS        39     A     
 DEFINS    LEB      DEFINS 060,M.BRAN                                                      DEFINS        40     A     
 DEFINS    GEB      DEFINS 060,M.BRAN                                                      DEFINS        41     A     
 DEFINS    LTB      DEFINS 070,M.BRAN                                                      DEFINS        42     A     
 DEFINS    GTB      DEFINS 070,M.BRAN                                                      DEFINS        43     A     
 DEFINS                                                                                    DEFINS        44     A     
 DEFINS                                                                                    DEFINS        45     A     
 DEFINS   *                            BOOLEAN UNIT.                                       DEFINS        46     A     
 DEFINS                                                                                    DEFINS        47     A     
 DEFINS    XMT      DEFINS 10,M.SHIF                                                       DEFINS        48     A     
 DEFINS    AND      DEFINS 11,M.NORM                                                       DEFINS        49     A     
 DEFINS    OR       DEFINS 12,M.NORM                                                       DEFINS        50     A     
 DEFINS    XOR      DEFINS 13,M.NORM                                                       DEFINS        51     A     
 DEFINS    NEQV     DEFINS 13,M.NORM                                                       FC51485       13     A     
 DEFINS    CLR      DEFINS 13,M.NORM                                                       DEFINS        52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEFINS  
  
 DEFINS    XMTC     DEFINS 14,M.NORM                                                       DEFINS        53     A     
 DEFINS    STR      DEFINS 15,M.NORM                                                       DEFINS        54     A     
 DEFINS    IMP      DEFINS 16,M.NORM                                                       DEFINS        55     A     
 DEFINS    EQV      DEFINS 17,M.NORM                                                       DEFINS        56     A     
 DEFINS                                                                                    DEFINS        57     A     
 DEFINS                                                                                    DEFINS        58     A     
 DEFINS   *                            SHIFT UNIT.                                         DEFINS        59     A     
 DEFINS                                                                                    DEFINS        60     A     
 DEFINS    KLS      DEFINS 20,M.SHIF                                                       DEFINS        61     A     
 DEFINS    KRS      DEFINS 21,M.SHIF                                                       DEFINS        62     A     
 DEFINS    ILS      DEFINS 22,M.SHIF                                                       DEFINS        63     A     
 DEFINS    IRS      DEFINS 23,M.SHIF                                                       DEFINS        64     A     
 DEFINS    NR       DEFINS 24,M.NORM                                                       DEFINS        65     A     
 DEFINS    RNR      DEFINS 25,M.NORM                                                       DEFINS        66     A     
 DEFINS    UP       DEFINS 26,M.NORM                                                       DEFINS        67     A     
 DEFINS    PK       DEFINS 27,M.NORM                                                       DEFINS        68     A     
 DEFINS    FMA      DEFINS 43,M.NORM                                                       DEFINS        69     A     
 DEFINS                                                                                    DEFINS        70     A     
 DEFINS   *                            ADD UNIT.                                           DEFINS        71     A     
 DEFINS                                                                                    DEFINS        72     A     
 DEFINS    FA       DEFINS 30,M.NORM                                                       DEFINS        73     A     
 DEFINS    FS       DEFINS 31,M.NORM                                                       DEFINS        74     A     
 DEFINS    FAR      DEFINS 30,M.RND                                                        DEFINS        75     A     
 DEFINS    FSR      DEFINS 31,M.RND                                                        DEFINS        76     A     
 DEFINS    DFA      DEFINS 32,M.NORM                                                       DEFINS        77     A     
 DEFINS    DFS      DEFINS 33,M.NORM                                                       DEFINS        78     A     
 DEFINS    RFA      DEFINS 34,M.NORM                                                       DEFINS        79     A     
 DEFINS    RFS      DEFINS 35,M.NORM                                                       DEFINS        80     A     
 DEFINS                                                                                    DEFINS        81     A     
 DEFINS                                                                                    DEFINS        82     A     
 DEFINS   *                            LONG ADD UNIT.                                      DEFINS        83     A     
 DEFINS                                                                                    DEFINS        84     A     
 DEFINS    IA       DEFINS 36,M.NORM                                                       DEFINS        85     A     
 DEFINS    IS       DEFINS 37,M.NORM                                                       DEFINS        86     A     
 DEFINS                                                                                    DEFINS        87     A     
 DEFINS                                                                                    DEFINS        88     A     
 DEFINS   *                            MULTIPLY UNIT.                                      DEFINS        89     A     
 DEFINS                                                                                    DEFINS        90     A     
 DEFINS    FM       DEFINS 40,M.NORM                                                       DEFINS        91     A     
 DEFINS    FMR      DEFINS 40,M.RND                                                        DEFINS        92     A     
 DEFINS    RFM      DEFINS 41,M.NORM                                                       DEFINS        93     A     
 DEFINS    DFM      DEFINS 42,M.NORM                                                       DEFINS        94     A     
 DEFINS    IM       DEFINS 42,M.NORM                                                       DEFINS        95     A     
 DEFINS                                                                                    DEFINS        96     A     
 DEFINS                                                                                    DEFINS        97     A     
 DEFINS   *                            DIVIDE UNIT.                                        DEFINS        98     A     
 DEFINS                                                                                    DEFINS        99     A     
 DEFINS    FD       DEFINS 44,M.NORM                                                       DEFINS       100     A     
 DEFINS    FDR      DEFINS 44,M.RND                                                        DEFINS       101     A     
 DEFINS    RFD      DEFINS 45,M.NORM                                                       DEFINS       102     A     
 DEFINS    NOP      DEFINS 46,M.NORM                                                       DEFINS       103     A     
 DEFINS    CX       DEFINS 47,M.NORM                                                       DEFINS       104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEFINS  
  
 DEFINS                                                                                    DEFINS       105     A     
 DEFINS                                                                                    DEFINS       106     A     
 DEFINS   *                            INCREMENT UNIT.                                     DEFINS       107     A     
 DEFINS                                                                                    DEFINS       108     A     
 DEFINS    SA=AK    DEFINS 50,M.INCR                                                       DEFINS       109     A     
 DEFINS    SA=BK    DEFINS 51,M.INCR                                                       DEFINS       110     A     
 DEFINS    SA=XK    DEFINS 52,M.INCR                                                       DEFINS       111     A     
 DEFINS    SA=XB    DEFINS 53,M.INCR                                                       DEFINS       112     A     
 DEFINS    SA=AB    DEFINS 54,M.INCR                                                       DEFINS       113     A     
 DEFINS    SA=AMB   DEFINS 55,M.INCR                                                       DEFINS       114     A     
 DEFINS    SA=BB    DEFINS 56,M.INCR                                                       DEFINS       115     A     
 DEFINS    SA=BMB   DEFINS 57,M.INCR                                                       DEFINS       116     A     
 DEFINS                                                                                    DEFINS       117     A     
 DEFINS    SB=AK    DEFINS 60,M.INCR                                                       DEFINS       118     A     
 DEFINS    SB=BK    DEFINS 61,M.INCR                                                       DEFINS       119     A     
 DEFINS    SB=XK    DEFINS 62,M.INCR                                                       DEFINS       120     A     
 DEFINS    SB=XB    DEFINS 63,M.INCR                                                       DEFINS       121     A     
 DEFINS    SB=AB    DEFINS 64,M.INCR                                                       DEFINS       122     A     
 DEFINS    SB=AMB   DEFINS 65,M.INCR                                                       DEFINS       123     A     
 DEFINS    SB=BB    DEFINS 66,M.INCR                                                       DEFINS       124     A     
 DEFINS    SB=BMB   DEFINS 67,M.INCR                                                       DEFINS       125     A     
 DEFINS                                                                                    DEFINS       126     A     
 DEFINS                                                                                    DEFINS       127     A     
 DEFINS    SX=AK    DEFINS 70,M.INCR                                                       DEFINS       128     A     
 DEFINS    SX=BK    DEFINS 71,M.INCR                                                       DEFINS       129     A     
 DEFINS    SX=XK    DEFINS 72,M.INCR                                                       DEFINS       130     A     
 DEFINS    SX=XB    DEFINS 73,M.INCR                                                       DEFINS       131     A     
 DEFINS    SX=AB    DEFINS 74,M.INCR                                                       DEFINS       132     A     
 DEFINS    SX=AMB   DEFINS 75,M.INCR                                                       DEFINS       133     A     
 DEFINS    SX=BB    DEFINS 76,M.INCR                                                       DEFINS       134     A     
 DEFINS    SX=BMB   DEFINS 77,M.INCR                                                       DEFINS       135     A     
 DEFINS                                                                                    DEFINS       136     A     
 DEFINS    LD       DEFINS 50,M.LOAD                                                       DEFINS       137     A     
 DEFINS    LDB      DEFINS 60,M.LOAD                                                       DEFINS       138     A     
 DEFINS    ST       DEFINS 50,M.LOAD                                                       DEFINS       139     A     
 DEFINS                                                                                    DEFINS       140     A     
 DEFINS                                                                                    DEFINS       141     A     
 DEFINS             ENDX                                                                   DEFINS       142     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DEFINS  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DEFINS                     142       142
          FC51485                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE   *COMDECK FSCALE                                                                  FSCALE         1     A     
 FSCALE             CTEXT  FSCALE - FLOATING DP CONVERSION.                                FSCALE         2     A     
 FSCALE                                                                                    FSCALE         3     A     
 FSCALE                                                                                    FSCALE         4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE   **        FSCALE  -  CONVERT INTEGER CONSTANT WITH OR WITHOUT                    FSCALE         5     A     
 FSCALE   *                    FLOATING CONSTANT.                                          FSCALE         6     A     
 FSCALE   *                    EXPONENT TO SINGLE OR DOUBLE PRECISION                      FSCALE         7     A     
 FSCALE   *                                                                                FSCALE         8     A     
 FSCALE   *         RICK JAMES.   (AUTHOR).                                                FSCALE         9     A     
 FSCALE   *                                                                                FSCALE        10     A     
 FSCALE   *         ENTRY  (X0) = HIGH ORDER PART OF INTEGER CONSTANT                      FSCALE        11     A     
 FSCALE   *                       IN BITS 58-00.                                           FSCALE        12     A     
 FSCALE   *                (X1) = LOW ORDER PART OF INTEGER CONSTANT                       FSCALE        13     A     
 FSCALE   *                       IN BITS 54-00.                                           FSCALE        14     A     
 FSCALE   *                (X5) = 1RX WHERE X = + OR - (SIGN OF RESULT).                   FSCALE        15     A     
 FSCALE   *                (B1) = 1.                                                       FSCALE        16     A     
 FSCALE   *                (B3) = POWER OF 10.                                             FSCALE        17     A     
 FSCALE   *                (B4) = 0, SINGLE PRECISION.                                     FSCALE        18     A     
 FSCALE   *                (B4) = 1, DOUBLE PRECISION.                                     FSCALE        19     A     
 FSCALE   *                                                                                FSCALE        20     A     
 FSCALE   *         EXIT   (X1) = HIGH ORDER BITS DP CONSTANT.                             FSCALE        21     A     
 FSCALE   *                (X2) = LOW ORDER BITS DP CONSTANT.                              FSCALE        22     A     
 FSCALE   *                (B1) = 1.                                                       FSCALE        23     A     
 FSCALE   *                (B4) = 0, CONVERSION OK.                                        FSCALE        24     A     
 FSCALE   *                (B4) = -1, ERROR OVERFLOW.                                      FSCALE        25     A     
 FSCALE   *                                                                                FSCALE        26     A     
 FSCALE   *         ACTION 1.  CONVERT INTEGER TO TRIPLE PRECISION                         FSCALE        27     A     
 FSCALE   *                    FLOATING POINT.                                             FSCALE        28     A     
 FSCALE   *                2.  SCALE BY BIG POWER OF 5 OR 10 (TRIPLE                       FSCALE        29     A     
 FSCALE   *                    MULTIPLY, X432 * X017).                                     FSCALE        30     A     
 FSCALE   *                3.  MULTIPLY BY 1E20 AS NEEDED.                                 FSCALE        31     A     
 FSCALE   *                4.  FINISH CONVERSION BY MULTIPLYING BY N                       FSCALE        32     A     
 FSCALE   *                    WHERE 1E20 .GE. N .LE. 1.                                   FSCALE        33     A     
 FSCALE   *                5.  ROUND RESULT.                                               FSCALE        34     A     
 FSCALE   *                6.  SET SIGN.                                                   FSCALE        35     A     
 FSCALE   *                7.  ADJUST BY POWER OF 2 AND CHECK.                             FSCALE        36     A     
 FSCALE   *                                                                                FSCALE        37     A     
 FSCALE   *         USES   A. -,-,-,3,4,-,-,-                                              FSCALE        38     A     
 FSCALE   *                B. -,-,2,3,4,5,-,7                                              FSCALE        39     A     
 FSCALE   *                X. 0,1,2,3,4,5,6,7                                              FSCALE        40     A     
 FSCALE                                                                                    FSCALE        41     A     
 FSCALE    FSCALE   SUBR               ENTRY/EXIT                                          FSCALE        42     A     
 FSCALE             MX7    -18                                                             FSCALE        43     A     
 FSCALE             BX4    -X7*X1      BOT                                                 FSCALE        44     A     
 FSCALE             SB2    18                                                              FSCALE        45     A     
 FSCALE             PX4    B0,X4                                                           FSCALE        46     A     
 FSCALE             SB7    B4                                                              FSCALE        47     A     
 FSCALE             SB4    B0          CLEAR ERROR FLAG                                    FSCALE        48     A     
 FSCALE             AX1    18          LOW MID                                             FSCALE        49     A     
 FSCALE             ZR     X0,CIF      IF NO HIGH ORDER BITS                               FSCALE        50     A     
 FSCALE             MX7    -11                                                             FSCALE        51     A     
 FSCALE             BX2    -X7*X0      HI MID                                              FSCALE        52     A     
 FSCALE             NX4    B0,X4                                                           FSCALE        53     A     
 FSCALE             SB5    66                                                              FSCALE        54     A     
 FSCALE             LX2    37                                                              FSCALE        55     A     
 FSCALE             AX0    11          TOP                                                 FSCALE        56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             BX1    X1+X2       MID                                                 FSCALE        57     A     
 FSCALE             PX0    X0,B5                                                           FSCALE        58     A     
 FSCALE             PX1    B2                                                              FSCALE        59     A     
 FSCALE             NX0    B0,X0       TOP                                                 FSCALE        60     A     
 FSCALE             NX1    B0,X1                                                           FSCALE        61     A     
 FSCALE             DX2    X0+X1                                                           FSCALE        62     A     
 FSCALE             FX0    X0+X1       UPPER                                               FSCALE        63     A     
 FSCALE             DX7    X2+X4       LOWER                                               FSCALE        64     A     
 FSCALE             FX1    X2+X4       MIDDLE                                              FSCALE        65     A     
 FSCALE             EQ     CIF1                                                            FSCALE        66     A     
 FSCALE                                                                                    FSCALE        67     A     
 FSCALE    CIF      PX1    B2,X1                                                           FSCALE        68     A     
 FSCALE             NO                                                                     FSCALE        69     A     
 FSCALE             NX4    B0,X4                                                           FSCALE        70     A     
 FSCALE             NX1    B0,X1                                                           FSCALE        71     A     
 FSCALE             FX0    X1+X4       UPPER                                               FSCALE        72     A     
 FSCALE             DX1    X1+X4       MIDDLE                                              FSCALE        73     A     
 FSCALE             NO                                                                     FSCALE        74     A     
 FSCALE             DX7    X1+X1       LOWER (PACKED ZERO)                                 FSCALE        75     A     
 FSCALE                                                                                    FSCALE        76     A     
 FSCALE    CIF1     SB2    B7-B1                                                           FSCALE        77     A     
 FSCALE             ZR     B2,CIF2     IF DOUBLE PRECISION                                 FSCALE        78     A     
 FSCALE             MX7    0           TO INDICATE ONLY SINGLE NEEDED                      FSCALE        79     A     
 FSCALE                                                                                    FSCALE        80     A     
 FSCALE    CIF2     SX4    B3                                                              FSCALE        81     A     
 FSCALE             SX3    B3+320                                                          FSCALE        82     A     
 FSCALE             AX4    8                                                               FSCALE        83     A     
 FSCALE             NZ     X4,CIF16    IF NOT WITHIN 1E-256 TO 1E+256                      FSCALE        84     A     
 FSCALE             AX3    6           EXP/64+4                                            FSCALE        85     A     
 FSCALE             SB7    B0                                                              FSCALE        86     A     
 FSCALE             SA4    CIFB+X3                                                         FSCALE        87     A     
 FSCALE             ZR     X4,CIF5     IF EXP IS 0 TO 64                                   FSCALE        88     A     
 FSCALE             BX3    -X3                                                             FSCALE        89     A     
 FSCALE             SB3    B3+320                                                          FSCALE        90     A     
 FSCALE             LX3    6                                                               FSCALE        91     A     
 FSCALE             SB3    B3+X3                                                           FSCALE        92     A     
 FSCALE                                                                                    FSCALE        93     A     
 FSCALE   *         TRIPLE OR DOUBLE MULTIPLY.                                             FSCALE        94     A     
 FSCALE                                                                                    FSCALE        95     A     
 FSCALE    CIF3     SB5    10                                                              FSCALE        96     A     
 FSCALE             SA3    A4+10       M                                                   FSCALE        97     A     
 FSCALE             ZR     X7,CIF4     IF ONLY SINGLE PRECISION                            FSCALE        98     A     
 FSCALE             SA2    A3+B5       L                                                   FSCALE        99     A     
 FSCALE             FX7    X4*X7       L=U*L                                               FSCALE       100     A     
 FSCALE             FX2    X2*X0       L=L*U                                               FSCALE       101     A     
 FSCALE             FX7    X7+X2       L                                                   FSCALE       102     A     
 FSCALE             DX2    X3*X0       L=M*U                                               FSCALE       103     A     
 FSCALE             DX6    X4*X1       L=U*M                                               FSCALE       104     A     
 FSCALE             FX7    X2+X7       L                                                   FSCALE       105     A     
 FSCALE             FX2    X3*X1       L=M*M                                               FSCALE       106     A     
 FSCALE             FX7    X7+X6       L                                                   FSCALE       107     A     
 FSCALE             FX7    X2+X7       LOWER                                               FSCALE       108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE                                                                                    FSCALE       109     A     
 FSCALE    CIF4     FX3    X3*X0       M=M*U                                               FSCALE       110     A     
 FSCALE             FX2    X4*X1       M=U*M                                               FSCALE       111     A     
 FSCALE             DX6    X4*X0       M=U*U                                               FSCALE       112     A     
 FSCALE             FX0    X4*X0       UPPER                                               FSCALE       113     A     
 FSCALE             FX4    X3+X2       M                                                   FSCALE       114     A     
 FSCALE             FX1    X6+X4       MIDDLE                                              FSCALE       115     A     
 FSCALE             ZR     X7,CIF5     IF ONLY SINGLE PRECISION                            FSCALE       116     A     
 FSCALE             DX3    X3+X2       L                                                   FSCALE       117     A     
 FSCALE             DX6    X6+X4       L                                                   FSCALE       118     A     
 FSCALE             FX7    X7+X3       L                                                   FSCALE       119     A     
 FSCALE             FX7    X7+X6       LOWER                                               FSCALE       120     A     
 FSCALE                                                                                    FSCALE       121     A     
 FSCALE   *         MULTIPLY BY 1E20 AS NEEDED.                                            FSCALE       122     A     
 FSCALE                                                                                    FSCALE       123     A     
 FSCALE    CIF5     SA4    CIFA+20                                                         FSCALE       124     A     
 FSCALE             SB2    20                                                              FSCALE       125     A     
 FSCALE             LT     B3,B2,CIF8  IF NO NEED TO MULTIPLY BY 1E20                      FSCALE       126     A     
 FSCALE                                                                                    FSCALE       127     A     
 FSCALE   *         1 * 3 OR 1 * 2 MULTIPLY.                                               FSCALE       128     A     
 FSCALE                                                                                    FSCALE       129     A     
 FSCALE    CIF6     FX3    X4*X1       M=U*M                                               FSCALE       130     A     
 FSCALE             DX2    X4*X0       M=U*U                                               FSCALE       131     A     
 FSCALE             ZR     X7,CIF7     IF ONLY SINGLE NEEDED                               FSCALE       132     A     
 FSCALE             FX7    X4*X7       L=U*L                                               FSCALE       133     A     
 FSCALE             DX6    X3+X2       L                                                   FSCALE       134     A     
 FSCALE             DX1    X4*X1       L=U*M                                               FSCALE       135     A     
 FSCALE             NO                                                                     FSCALE       136     A     
 FSCALE             FX7    X7+X6       L                                                   FSCALE       137     A     
 FSCALE             SB0    0                                                               FSCALE       138     A     
 FSCALE             FX7    X7+X1       LOWER                                               FSCALE       139     A     
 FSCALE                                                                                    FSCALE       140     A     
 FSCALE    CIF7     FX1    X3+X2       MIDDLE                                              FSCALE       141     A     
 FSCALE             FX0    X4*X0       UPPER                                               FSCALE       142     A     
 FSCALE             SB3    B3-B2                                                           FSCALE       143     A     
 FSCALE             NO                                                                     FSCALE       144     A     
 FSCALE             GE     B3,B2,CIF6  IF NEED TO MULTIPLY BY 1E20 AGAIN                   FSCALE       145     A     
 FSCALE                                                                                    FSCALE       146     A     
 FSCALE   *         MULTIPLY BY LESS THAN 1E20 IF NECESSARY.                               FSCALE       147     A     
 FSCALE                                                                                    FSCALE       148     A     
 FSCALE    CIF8     SA4    CIFA+B3                                                         FSCALE       149     A     
 FSCALE             GT     B3,CIF6     IF NECESSARY MULTIPLY BY .LT. 1E20                  FSCALE       150     A     
 FSCALE             LX5    -2                                                              FSCALE       151     A     
 FSCALE             AX5    60                                                              FSCALE       152     A     
 FSCALE                                                                                    FSCALE       153     A     
 FSCALE   *         DOUBLE COMBINE.                                                        FSCALE       154     A     
 FSCALE                                                                                    FSCALE       155     A     
 FSCALE             ZR     X7,CIF10    IF ONLY SINGLE NEEDED                               FSCALE       156     A     
 FSCALE             DX4    X1+X7                                                           FSCALE       157     A     
 FSCALE             FX1    X1+X7                                                           FSCALE       158     A     
 FSCALE             NO                                                                     FSCALE       159     A     
 FSCALE             DX3    X0+X1                                                           FSCALE       160     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             FX0    X0+X1                                                           FSCALE       161     A     
 FSCALE             RX1    X3+X4                                                           FSCALE       162     A     
 FSCALE             NO                                                                     FSCALE       163     A     
 FSCALE             FX3    X0+X1                                                           FSCALE       164     A     
 FSCALE             NO                                                                     FSCALE       165     A     
 FSCALE             BX7    X5-X3       UPPER SIGN FOR T.DBL                                FSCALE       166     A     
 FSCALE             DX0    X0+X1                                                           FSCALE       167     A     
 FSCALE             BX1    X1-X1                                                           FSCALE       168     A     
 FSCALE             UX3    B0,X0                                                           FSCALE       169     A     
 FSCALE             ZR     X3,CIF9     IF LOW ORDER DP MANTISSA .EQ. 0                     FSCALE       170     A     
 FSCALE             BX1    X5-X0       LOWER SIGN FOR T.DBL                                FSCALE       171     A     
 FSCALE                                                                                    FSCALE       172     A     
 FSCALE    CIF9     ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY                FSCALE       173     A     
 FSCALE             EQ     CIF11                                                           FSCALE       174     A     
 FSCALE                                                                                    FSCALE       175     A     
 FSCALE   *         SINGLE COMBINE.                                                        FSCALE       176     A     
 FSCALE                                                                                    FSCALE       177     A     
 FSCALE    CIF10    DX4    X0+X1                                                           FSCALE       178     A     
 FSCALE             FX0    X0+X1                                                           FSCALE       179     A     
 FSCALE             RX3    X0+X4                                                           FSCALE       180     A     
 FSCALE             BX7    X5-X3       SIGN FOR T.REL                                      FSCALE       181     A     
 FSCALE             ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY                FSCALE       182     A     
 FSCALE                                                                                    FSCALE       183     A     
 FSCALE                                                                                    FSCALE       184     A     
 FSCALE   *         CHECK FOR UNDER FLOW.                                                  FSCALE       185     A     
 FSCALE                                                                                    FSCALE       186     A     
 FSCALE    CIF11    PL     B7,CIF13                                                        FSCALE       187     A     
 FSCALE             SB5    -1777B                                                          FSCALE       188     A     
 FSCALE             UX1    B2,X1                                                           FSCALE       189     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       190     A     
 FSCALE             NO                                                                     FSCALE       191     A     
 FSCALE             PX1    B2,X1                                                           FSCALE       192     A     
 FSCALE             GE     B2,B5,CIF12 IF NOT UNDERFLOW                                    FSCALE       193     A     
 FSCALE             MX1    0           CLEAR LOW ORDER REGISTER                            FSCALE       194     A     
 FSCALE                                                                                    FSCALE       195     A     
 FSCALE    CIF12    UX7    B2,X7                                                           FSCALE       196     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       197     A     
 FSCALE             NO                                                                     FSCALE       198     A     
 FSCALE             PX7    B2,X7                                                           FSCALE       199     A     
 FSCALE             GE     B2,B5,CIF18 IF NO UNDERFLOW                                     FSCALE       200     A     
 FSCALE             SX7    0                                                               FSCALE       201     A     
 FSCALE             EQ     CIF18                                                           FSCALE       202     A     
 FSCALE                                                                                    FSCALE       203     A     
 FSCALE   *         CHECK FOR OVERFLOW.                                                    FSCALE       204     A     
 FSCALE                                                                                    FSCALE       205     A     
 FSCALE    CIF13    UX7    B2,X7                                                           FSCALE       206     A     
 FSCALE             SB5    1777B                                                           FSCALE       207     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       208     A     
 FSCALE             GT     B2,B5,CIF15 IF OVERFLOW                                         FSCALE       209          I
          -FC5A345
 FSCALE             GE     B2,B5,CIF15 IF OVERFLOW                                         FC5A345        5     A     
 FSCALE             PX7    B2,X7                                                           FSCALE       210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             UX1    B2,X1                                                           FSCALE       211     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       212     A     
 FSCALE             PX1    B2,X1                                                           FSCALE       213     A     
 FSCALE             EQ     CIF18                                                           FSCALE       214     A     
 FSCALE                                                                                    FSCALE       215     A     
 FSCALE    CIF14    SB2    B3-324                                                          FSCALE       216     A     
 FSCALE             SA4    CIFB+9      MULTIPLY BY 5**256                                  FSCALE       217     A     
 FSCALE             SB7    +256                                                            FSCALE       218     A     
 FSCALE             NO                                                                     FSCALE       219     A     
 FSCALE             SB3    B3-B7                                                           FSCALE       220     A     
 FSCALE             MI     B2,CIF3                                                         FSCALE       221     A     
 FSCALE                                                                                    FSCALE       222     A     
 FSCALE    CIF15    SB4    -1          ERROR RETURN ON OVERFLOW                            FSCALE       223     A     
 FSCALE             EQ     EXIT.                                                           FSCALE       224     A     
 FSCALE                                                                                    FSCALE       225     A     
 FSCALE    CIF16    PL     B3,CIF14                                                        FSCALE       226     A     
 FSCALE             SB2    B3+325                                                          FSCALE       227     A     
 FSCALE             MI     B2,CIF17                                                        FSCALE       228     A     
 FSCALE             SA4    CIFB                                                            FSCALE       229     A     
 FSCALE             SB7    -325                                                            FSCALE       230     A     
 FSCALE             NO                                                                     FSCALE       231     A     
 FSCALE             SB3    B3-B7                                                           FSCALE       232     A     
 FSCALE             EQ     CIF3                                                            FSCALE       233     A     
 FSCALE                                                                                    FSCALE       234     A     
 FSCALE    CIF17    SX7    0                                                               FSCALE       235     A     
 FSCALE             SX1    0                                                               FSCALE       236     A     
 FSCALE                                                                                    FSCALE       237     A     
 FSCALE    CIF18    BX2    X1                                                              FSCALE       238     A     
 FSCALE             BX1    X7                                                              FSCALE       239     A     
 FSCALE             EQ     EXIT.                                                           FSCALE       240     A     
 FSCALE                                                                                    FSCALE       241     A     
 FSCALE   *         WORKING CONSTANTS.                                                     FSCALE       242     A     
 FSCALE                                                                                    FSCALE       243     A     
 FSCALE    CIFA     BSS    0           1.0EN  WHERE N = 0 TO 20 INCLUSIVE                  FSCALE       244     A     
 FSCALE    CIFA1    SET    0                                                               FSCALE       245     A     
 FSCALE             DUP    21,3                                                            FSCALE       246     A     
 FSCALE    CIFA2    DECMIC CIFA1                                                           FSCALE       247     A     
 FSCALE             DATA   1.0E"CIFA2"                                                     FSCALE       248     A     
 FSCALE    CIFA1    SET    CIFA1+1                                                         FSCALE       249     A     
 FSCALE                                                                                    FSCALE       250     A     
 FSCALE    CIFB     BSS    0                                                               FSCALE       251     A     
 FSCALE             CON    03355134732416677076B   5**-325          UPPER                  FSCALE       252     A     
 FSCALE             CON    01756003050311261572B  10**-256          UPPER                  FSCALE       253     A     
 FSCALE             CON    05224437760335652043B  10**-192          UPPER                  FSCALE       254     A     
 FSCALE             CON    10466735010637062274B  10**-128          UPPER                  FSCALE       255     A     
 FSCALE             CON    13735207775211722471B  10** -64          UPPER                  FSCALE       256     A     
 FSCALE             CON    0                                                               FSCALE       257     A     
 FSCALE             CON    22456047403722377717B  10**  64          UPPER                  FSCALE       258     A     
 FSCALE             CON    25724473510762300351B  10** 128          UPPER                  FSCALE       259     A     
 FSCALE             CON    31167007036743234447B  10** 192          UPPER                  FSCALE       260     A     
 FSCALE             CON    30435247735376716771B   5** 256          UPPER                  FSCALE       261     A     
 FSCALE                                                                                    FSCALE       262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             CON    02554430410147521675B   5**-325         MIDDLE                  FSCALE       263     A     
 FSCALE             CON    01150623477244210525B  10**-256         MIDDLE                  FSCALE       264     A     
 FSCALE             CON    04426300317330603243B  10**-192         MIDDLE                  FSCALE       265     A     
 FSCALE             CON    07667112025437131766B  10**-128         MIDDLE                  FSCALE       266     A     
 FSCALE             CON    13137232247710714327B  10** -64         MIDDLE                  FSCALE       267     A     
 FSCALE             CON    0                                                               FSCALE       268     A     
 FSCALE             CON    21655155247457665561B  10**  64         MIDDLE                  FSCALE       269     A     
 FSCALE             CON    25124315770633631554B  10** 128         MIDDLE                  FSCALE       270     A     
 FSCALE             CON    30362526520556761123B  10** 192         MIDDLE                  FSCALE       271     A     
 FSCALE             CON    27636750673556710033B   5** 256         MIDDLE                  FSCALE       272     A     
 FSCALE                                                                                    FSCALE       273     A     
 FSCALE             CON    01751523413613350414B   5**-325          LOWER                  FSCALE       274     A     
 FSCALE             CON    00357757552302120270B  10**-256          LOWER                  FSCALE       275     A     
 FSCALE             CON    03622142373563615574B  10**-192          LOWER                  FSCALE       276     A     
 FSCALE             CON    07066405673367560600B  10**-128          LOWER                  FSCALE       277     A     
 FSCALE             CON    12332173154211024710B  10** -64          LOWER                  FSCALE       278     A     
 FSCALE             CON    0                                                               FSCALE       279     A     
 FSCALE             CON    21056166544576650371B  10**  64          LOWER                  FSCALE       280     A     
 FSCALE             CON    24321553040115601066B  10** 128          LOWER                  FSCALE       281     A     
 FSCALE             CON    27567507542405607432B  10** 192          LOWER                  FSCALE       282     A     
 FSCALE             CON    27034617735255702442B   5** 256          LOWER                  FSCALE       283     A     
 FSCALE                                                                                    FSCALE       284     A     
 FSCALE                                                                                    FSCALE       285     A     
 FSCALE    FSCALE   ENDX                                                                   FSCALE       286     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FSCALE  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FSCALE                     286       285
          FC5A345                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HCDEFS  
  
 HCDEFS   *COMDECK HCDEFS                                                                  HCDEFS         1     A     
 HCDEFS                                                                                    HCDEFS         2     A     
 HCDEFS    HC$ID    EQU    2                                                               HCDEFS         3     A     
 HCDEFS    HC$FPAS  EQU    1                                                               HCDEFS         4     A     
 HCDEFS    HC$MCIS  EQU    7                                                               HCDEFS         5     A     
 HCDEFS    HC$RJXJ  EQU    0                                                               HCDEFS         6     A     
 HCDEFS    HC$RJ6   EQU    1                                                               HCDEFS         7     A     
 HCDEFS    HC$RJTBN MICRO  1,,/S=TA0/                                                      HCDEFS         8     A     
 HCDEFS    HC$ROL   EQU    0                                                               HCDEFS         9     A     
 HCDEFS    HC$FRTP  MICRO  1,,/GL,AP,IO,LC/                                                HCDEFS        10          I
          -FC50457
 HCDEFS    HC$FRTP  MICRO  1,,/GL,AP,IO,LP/                                                FC50457        9     A     
 HCDEFS    HC$NDAT  EQU    4                                                               HCDEFS        11     A     
 HCDEFS    HC$STP   EQU    1                                                               HCDEFS        12     A     
 HCDEFS    HC$IA    EQU    0           DONT USE CGIA                                       HCDEFS        13     A     
 HCDEFS    HC$2OC   EQU    0                                                               HCDEFS        14     A     
 HCDEFS    HC$FLB   MICRO  1,,/DATA./                                                      HCDEFS        15     A     
 HCDEFS    HC$LNT   EQU    1                                                               HCDEFS        16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HCDEFS  
  
 HCDEFS    HC$UDVB  MICRO  1,,/DATA./                                                      HCDEFS        17     A     
 HCDEFS    LPNAME$  MICRO  1,,/FTN   /                                                     HCDEFS        18     A     
 HCDEFS    LPN$     MICRO  1,,/FTN/                                                        HCDEFS        19     A     
 HCDEFS    VER$     MICRO  1,,/5.0/                                                        HCDEFS        20     A     
 HCDEFS    MODLVL$  MICRO  1,5,/"MODLVL"     /                                             HCDEFS        21     A     
 HCDEFS    HC$NXLB  EQU    0                                                               FC5A399        4     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - HCDEFS  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          HCDEFS                      21        20
          FC50457                      1         1
          FC5A399                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FWACOM  
  
 FWACOM   *COMDECK  FWACOM                                                                 FWACOM         1     A     
 FWACOM             VFD    42/6LCLOSE2,18/=XB=CLOS2                                        FWACOM         2     A     
 FWACOM             FWA    MIO,MIO                                                         FWACOM         3     A     
 FWACOM             FWA    FBV,FBV                                                         FWACOM         4     A     
 FWACOM             FWA    GPO,GPO                                                         FWACOM         5     A     
 FWACOM             FWA    GRA,GRA                                                         FWACOM         6     A     
 FWACOM             FWA    PROSEQ,PROSQ                                                    FWACOM         7     A     
 FWACOM             FWA    POST,POST                                                       FWACOM         8     A     
 FWACOM             FWA    SQZ,SQZ                                                         FWACOM         9     A     
 FWACOM             FWA    MCG,MCG                                                         FWACOM        10     A     
 FWACOM             FWA    BDT,BDT                                                         FWACOM        11     A     
 FWACOM   *IF       DEF,TESTFTN                                                            FWACOM        12          I
          -FC5A370
 FWACOM   *IF DEF,TEST                                                                     FC5A370        5     A     
 FWACOM             VFD    42/7LDMPRLST,18/=XDMPRLST-3                                     FWACOM        13     A     
 FWACOM             VFD    42/7LDMPSIT ,18/=XDMPSIT-3                                      FWACOM        14     A     
 FWACOM             VFD    42/7LDMPTREE,18/=XDMPTREE-3                                     FWACOM        15     A     
 FWACOM             VFD    42/7LPRNTRLI,18/=XPRNTRLI-3                                     FWACOM        16     A     
 FWACOM             VFD    42/7LPRNTMCG,18/=XPRNTMCG-3                                     FWACOM        17     A     
 FWACOM   *ENDIF                                                                           FWACOM        18     A     
 FWACOM             FWA    PRE,PRE                                                         FWACOM        19     A     
 FWACOM             FWA    CFA,CFA                                                         FWACOM        20     A     
 FWACOM             FWA    UDT,UDT                                                         FWACOM        21     A     
 FWACOM             FWA    READRL,RRL                                                      FWACOM        22     A     
 FWACOM             FWA    MACROX,MACRX                                                    FWACOM        23     A     
 FWACOM             USE    //                                                              FWACOM        24     A     
 FWACOM    BLNKCOM  BSS    0                                                               FWACOM        25     A     
 FWACOM             USE    *                                                               FWACOM        26     A     
 FWACOM             VFD    42/7LBLNKCOM,18/BLNKCOM                                         FWACOM        27     A     
 FWACOM             DATA   0           TABLE TERMINATOR                                    FWACOM        28     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FWACOM  
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FWACOM  
  
          FWACOM                      28        27
          FC5A370                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *COMDECK, OPTIONS                                                                OPTIONS        1     A     
 OPTIONS   OPTIONS  TITLE  O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS           OPTIONS        2     A     
 OPTIONS   OPTIONS  SPACE  8                                                               OPTIONS        3     A     
 OPTIONS  ****                                                                             OPTIONS        4     A     
 OPTIONS  ***       O P T I O N S - FORTRAN EXTENDED INSTALLATION PARAMETERS.              OPTIONS        5     A     
 OPTIONS  *                                                                                OPTIONS        6     A     
 OPTIONS  *         REVISED AUGUST 1975 FOR THE CYBER 170 SERIES MACHINES.                 OPTIONS        7     A     
 OPTIONS  *                                                                                OPTIONS        8     A     
 OPTIONS  *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC             OPTIONS        9     A     
 OPTIONS  *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-          OPTIONS       10     A     
 OPTIONS  *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY           OPTIONS       11     A     
 OPTIONS  *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION            OPTIONS       12     A     
 OPTIONS  *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                                  OPTIONS       13     A     
 OPTIONS  *                                                                                OPTIONS       14     A     
 OPTIONS  *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN             OPTIONS       15     A     
 OPTIONS  *         THE PROGRAM DECK  < FTN > .                                            OPTIONS       16     A     
 OPTIONS   OPTIONS  SPACE  4,19                                                            OPTIONS       17     A     
 OPTIONS  *         **************************************************************         OPTIONS       18     A     
 OPTIONS  *         *                                                            *         OPTIONS       19     A     
 OPTIONS  *         *                                                            *         OPTIONS       20     A     
 OPTIONS  *         *   I N S T A L L A T I O N   W A R N I N G   N O T I C E    *         OPTIONS       21     A     
 OPTIONS  *         *                                                            *         OPTIONS       22     A     
 OPTIONS  *         *                                                            *         OPTIONS       23     A     
 OPTIONS  *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       *         OPTIONS       24     A     
 OPTIONS  *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         *         OPTIONS       25     A     
 OPTIONS  *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             *         OPTIONS       26     A     
 OPTIONS  *         *                                                            *         OPTIONS       27     A     
 OPTIONS  *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       *         OPTIONS       28     A     
 OPTIONS  *         *      BE CHANGED.                                           *         OPTIONS       29     A     
 OPTIONS  *         *                                                            *         OPTIONS       30     A     
 OPTIONS  *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    *         OPTIONS       31     A     
 OPTIONS  *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           *         OPTIONS       32     A     
 OPTIONS  *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      *         OPTIONS       33     A     
 OPTIONS  *         *                                                            *         OPTIONS       34     A     
 OPTIONS  *         *                                                            *         OPTIONS       35     A     
 OPTIONS  *         **************************************************************         OPTIONS       36     A     
 OPTIONS   MDV=     SPACE  3                                                               OPTIONS       37     A     
 OPTIONS  **        MDV= - SET VALUE OF MACHINE DEPENDENT SYMBOL.                          OPTIONS       38          I
          -F2950F5
 OPTIONS  *                                                                                OPTIONS       39          I
          -F2950F5
 OPTIONS  * VAL     MDV=   64V,66V,76V,175V                                                OPTIONS       40          I
          -F2950F5
 OPTIONS                                                                                   OPTIONS       41          I
          -F2950F5
 OPTIONS            MACRO  MDV=,SYM,V64,V66,V76,V175,V176                                  OPTIONS       42          I
          -F2950F5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS            IFLT   .CPU,74D,2                                                      OPTIONS       43          I
          -F2950F5
 OPTIONS   SYM      =      V64                                                             OPTIONS       44          I
          -F2950F5
 OPTIONS            SKIP   11                                                              OPTIONS       45          I
          -F2950F5
 OPTIONS            IFEQ   .CPU,74D,2                                                      OPTIONS       46          I
          -F2950F5
 OPTIONS   SYM      =      V66                                                             OPTIONS       47          I
          -F2950F5
 OPTIONS            SKIP   8                                                               OPTIONS       48          I
          -F2950F5
 OPTIONS            IFEQ   .CPU,76D,6                                                      OPTIONS       49          I
          -F2950F5
 OPTIONS   MDL1     MICRO  1,1, "MODEL"                                                    OPTIONS       50          I
          -F2950F5
 OPTIONS            IFC    EQ, "MDL1" 1 ,2                                                 OPTIONS       51          I
          -F2950F5
 OPTIONS   SYM      =      V176                                                            OPTIONS       52          I
          -F2950F5
 OPTIONS            SKIP   3                                                               OPTIONS       53          I
          -F2950F5
 OPTIONS   SYM      =      V76                                                             OPTIONS       54          I
          -F2950F5
 OPTIONS            SKIP   1                                                               OPTIONS       55          I
          -F2950F5
 OPTIONS   SYM      =      V175 V76                                                        OPTIONS       56          I
          -F2950F5
 OPTIONS   MDV=     ENDM                                                                   OPTIONS       57          I
          -F2950F5
 OPTIONS   OPTIONS  SPACE  3,37                                                            OPTIONS       58     A     
 OPTIONS  ***                                                                              OPTIONS       59     A     
 OPTIONS  *                                                                                OPTIONS       60     A     
 OPTIONS  *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE           OPTIONS       61     A     
 OPTIONS  *                                                                                OPTIONS       62     A     
 OPTIONS  *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A             OPTIONS       63     A     
 OPTIONS  *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS              OPTIONS       64     A     
 OPTIONS  *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE               OPTIONS       65     A     
 OPTIONS  *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND                  OPTIONS       66     A     
 OPTIONS  *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.            OPTIONS       67     A     
 OPTIONS  *                                                                                OPTIONS       68     A     
 OPTIONS  *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER              OPTIONS       69     A     
 OPTIONS  *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL               OPTIONS       70     A     
 OPTIONS  *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING                OPTIONS       71     A     
 OPTIONS  *                REQUIREMENTS.                                                   OPTIONS       72     A     
 OPTIONS  *                   1.  INSURE THAT THE TEXT CONTAINING THE                      OPTIONS       73     A     
 OPTIONS  *                       INSTALLATION PARAMETERS CONTAINS CYBER 76                OPTIONS       74     A     
 OPTIONS  *                       VALUES.                                                  OPTIONS       75     A     
 OPTIONS  *                   2.  SELECT THE DESIRED VALUE FOR THE "MODEL" MICRO           OPTIONS       76     A     
 OPTIONS  *                       DEFINED IN THE BOX ENTITLED -                            OPTIONS       77     A     
 OPTIONS  *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES              OPTIONS       78     A     
 OPTIONS  *                       MODEL."                                                  OPTIONS       79     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *                                                                                OPTIONS       80     A     
 OPTIONS  *         CAUTIONS -                                                             OPTIONS       81     A     
 OPTIONS  *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING            OPTIONS       82     A     
 OPTIONS  *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.              OPTIONS       83     A     
 OPTIONS  *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL             OPTIONS       84     A     
 OPTIONS  *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC".         OPTIONS       85     A     
 OPTIONS  *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.                OPTIONS       86     A     
 OPTIONS  *                                                                                OPTIONS       87     A     
 OPTIONS  ***                                                                              OPTIONS       88     A     
 OPTIONS   OPTIONS  SPACE  3,9                                                             OPTIONS       89     A     
 OPTIONS  ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                        OPTIONS       90     A     
 OPTIONS  *                                                                                OPTIONS       91     A     
 OPTIONS   PSR      MICRO  1,,$871$                                                        PSRLEVEL       1     A     
 OPTIONS   LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME                       OPTIONS       92     A     
 OPTIONS   VER      MICRO  1,3,/5.0/                                                       OPTIONS       93          I
          -F1037F5A 
 OPTIONS   VER      MICRO  1,3,/5.1/                                                       F1037F5A       5     A     
 OPTIONS            IF     MIC,PSR,2                                                       OPTIONS       94     A     
 OPTIONS   MODLVL   MICRO  1,9,$"PSR"         $                                            OPTIONS       95     A     
 OPTIONS            SKIP   1                                                               OPTIONS       96     A     
 OPTIONS   MODLVL   MICRO  1,9,$"MODLEVEL"         $                                       OPTIONS       97     A     
 OPTIONS   VALMDL   SPACE  2                                                               OPTIONS       98     A     
 OPTIONS  **        VALMDL - VALIDATE MODEL MICRO                                          OPTIONS       99     A     
 OPTIONS                                                                                   OPTIONS      100     A     
 OPTIONS            MACRO  VALMDL,MDL,MODEL,ONE7X                                          OPTIONS      101          I
          -F2950F5
 OPTIONS   CMDL     MICRO  1,,-"MODEL"-                                                    OPTIONS      102          I
          -F2950F5
 OPTIONS            ECHO   ,X=(71,72,73,74,76,171,172,173,174,175,176)                     OPTIONS      103          I
          -F2950F5
 OPTIONS            IFC    EQ,/X/"CMDL"/,3                                                 OPTIONS      104          I
          -F2950F5
 OPTIONS   MDL      MICRO  1,,/"CMDL"/                                                     OPTIONS      105          I
          -F2950F5
 OPTIONS            STOPDUP                                                                OPTIONS      106          I
          -F2950F5
 OPTIONS            SKIP   3                                                               OPTIONS      107          I
          -F2950F5
 OPTIONS            ENDD                                                                   OPTIONS      108          I
          -F2950F5
 OPTIONS            LIST   A                                                               OPTIONS      109          I
          -F2950F5
 OPTIONS            ERR    ILLEGAL VALUE OF MODEL MICRO = "MODEL"                          OPTIONS      110          I
          -F2950F5
 OPTIONS            IFC    EQ,/"MDL"/174/,1                                                OPTIONS      111          I
          -F2950F5
 OPTIONS   MDL      MICRO 1,,/173/     FOR *MCG*  ( SCHEDULING PURPOSES )                  OPTIONS      112          I
          -F2950F5
 OPTIONS   .1       MICRO  1,1,/"MDL"/                                                     OPTIONS      113          I
          -F2950F5
 OPTIONS            IFC    EQ,/".1"/1/,3                                                   OPTIONS      114          I
          -F2950F5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS   ONE7X    =      1                                                               OPTIONS      115          I
          -F2950F5
 OPTIONS   MDL      MICRO  2,,/"MDL"/                                                      OPTIONS      116          I
          -F2950F5
 OPTIONS            ELSE   1                                                               OPTIONS      117          I
          -F2950F5
 OPTIONS   ONE7X    =      0                                                               OPTIONS      118          I
          -F2950F5
 OPTIONS            ENDM                                                                   OPTIONS      119          I
          -F2950F5
 OPTIONS            MACRO  VALMDL,MDL,HFP                                                  F2950F5        4     A     
 OPTIONS   .1       MICCNT HFP                                                             F2950F5        5     A     
 OPTIONS   .2       MICRO  .1,1,/"HFP"/                                                    F2950F5        6     A     
 OPTIONS            IFC    EQ,/".2"/S/                                                     F2950F5        7     A     
 OPTIONS   MDL      MICRO  1,,/73/                                                         F2950F5        8     A     
 OPTIONS            ELSE                                                                   F2950F5        9     A     
 OPTIONS   MDL      MICRO  1,,/7".2"/                                                      F2950F5       10     A     
 OPTIONS            ENDIF                                                                  F2950F5       11     A     
 OPTIONS            IFC    NE,/"HFP"/P740/                                                 FC5A446        7     A     
 OPTIONS            IFC    NE,/"HFP"/P750/                                                 FC5A446        8     A     
 OPTIONS            IFC    NE,/"HFP"/P760/                                                 FC5A446        9     A     
 OPTIONS            ELSE                                                                   FC5A446       10     A     
 OPTIONS   MDL      MICRO  1,,/74/                                                         FC5A446       11     A     
 OPTIONS            ENDIF                                                                  FC5A446       12     A     
 OPTIONS            IFC    NE,/"HFP"/P990/                                                 FC5A478        7     A     
 OPTIONS            IFC    NE,/"HFP"/P994/                                                 FC5A521        6     A     
 OPTIONS            IFC    NE,/"HFP"/P995/                                                 FC5A521        7     A     
 OPTIONS            ELSE                                                                   FC5A478        8     A     
 OPTIONS   MDL      MICRO  1,,/76/                                                         FC5A478        9     A     
 OPTIONS   CPU990   MICRO  1,,/990/                                                        FC5A495        6     A     
 OPTIONS            ENDIF                                                                  FC5A478       10     A     
 OPTIONS            ENDM                                                                   F2950F5       12     A     
 OPTIONS   OPTIONS  SPACE  3,40                                                            OPTIONS      120     A     
 OPTIONS  ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                         OPTIONS      121     A     
 OPTIONS  *                                                                                OPTIONS      122     A     
 OPTIONS  *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS              OPTIONS      123     A     
 OPTIONS  *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT            OPTIONS      124     A     
 OPTIONS  *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE                 OPTIONS      125     A     
 OPTIONS  *                INSTALLED AND EXECUTED ON.                                      OPTIONS      126     A     
 OPTIONS  *                                                                                OPTIONS      127     A     
 OPTIONS            QUAL   IPARAM                                                          OPTIONS      128     A     
 OPTIONS            IPARAMS                                                                OPTIONS      129     A     
 OPTIONS            IF     -DEF,IP.PD,1                                                    OPTIONS      130     A     
 OPTIONS   IP.PD    EQU    6           TEMPORARY UNTIL OPERATING SYSTEM CONFORMS           OPTIONS      131     A     
 OPTIONS            IF     -DEF,IP.PS,1                                                    OPTIONS      132     A     
 OPTIONS   IP.PS    EQU    60          TEMPORARY UNTIL OPERATING SYSTEM CONFORMS           OPTIONS      133     A     
 OPTIONS            DEFINHF                                                                F2950F5       13     A     
 OPTIONS            QUAL   *                                                               OPTIONS      134     A     
 OPTIONS  *                                                                                OPTIONS      135     A     
 OPTIONS  *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE           OPTIONS      136     A     
 OPTIONS  *         PRECEDING CALL TO IPARAMS.                                             OPTIONS      137     A     
 OPTIONS  *                                                                                OPTIONS      138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO           OPTIONS      139     A     
 OPTIONS  *                THE FIRST TWO CHARACTERS OF THE CYBER "MODEL", I.E.             OPTIONS      140     A     
 OPTIONS  *                72, 73, 74, OR 76.  IT IS REFERENCED WHENEVER THE               OPTIONS      141     A     
 OPTIONS  *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST              OPTIONS      142     A     
 OPTIONS  *                BE KNOWN.                                                       OPTIONS      143     A     
 OPTIONS  *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1           OPTIONS      144     A     
 OPTIONS  *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING            OPTIONS      145     A     
 OPTIONS  *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.                   OPTIONS      146     A     
 OPTIONS  *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS             OPTIONS      147     A     
 OPTIONS  *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO           OPTIONS      148     A     
 OPTIONS  *                DETERMINE MACHINE DIFFERENCES.                                  OPTIONS      149     A     
 OPTIONS                                                                                   OPTIONS      150     A     
 OPTIONS   IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH                      OPTIONS      151     A     
 OPTIONS   IP.CSET  =      /IPARAM/IP.CSET                                                 OPTIONS      152     A     
 OPTIONS   IP.C63   =      /IPARAM/IP.C63                                                  OPTIONS      153     A     
 OPTIONS                                                                                   OPTIONS      154     A     
 OPTIONS   TPD      SET    0                                                               OPTIONS      155     A     
 OPTIONS            ECHO   2,A=(3,4,6,8),B=(6,8,6,8)                                       OPTIONS      156     A     
 OPTIONS            IFEQ   A,/IPARAM/IP.PD,1                                               OPTIONS      157     A     
 OPTIONS   TPD      SET    B                                                               OPTIONS      158     A     
 OPTIONS            ERRZR  TPD         IP.PD MUST BE 3, 4, 6, OR 8                         OPTIONS      159     A     
 OPTIONS   IP.PD    =      TPD         DEFAULT PRINT DENSITY                               OPTIONS      160     A     
 OPTIONS   IP.PS    =      /IPARAM/IP.PS     DEFAULT PAGE SIZE                             OPTIONS      161     A     
 OPTIONS                                                                                   OPTIONS      162     A     
 OPTIONS   MDL      VALMDL MODEL,CT.7X                                                     OPTIONS      163          I
          -F2950F5
 OPTIONS   MDL      VALMDL HF.P                                                            F2950F5       14     A     
 OPTIONS   CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                                    OPTIONS      164     A     
 OPTIONS                                                                                   OPTIONS      165     A     
 OPTIONS   .OT      SET    1           SET FOR NOS                                         OPTIONS      166     A     
 OPTIONS   #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                           OPTIONS      167     A     
 OPTIONS   .VER     MICRO  1,1,/"OS.VER"/                                                  OPTIONS      168     A     
 OPTIONS   .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                              OPTIONS      169     A     
 OPTIONS   #OS      ENDIF                                                                  OPTIONS      170     A     
 OPTIONS   .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM                       OPTIONS      171     A     
 OPTIONS  *                                                                                OPTIONS      172     A     
 OPTIONS  ***                                                                              OPTIONS      173     A     
 OPTIONS   OPTIONS  SPACE  3,24                                                            OPTIONS      174     A     
 OPTIONS  ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                          OPTIONS      175     A     
 OPTIONS                                                                                   OPTIONS      176     A     
 OPTIONS                                                                                   OPTIONS      177     A     
 OPTIONS  *         **************************************************************         OPTIONS      178     A     
 OPTIONS  *         *                                                            *         OPTIONS      179     A     
 OPTIONS  *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     *         OPTIONS      180     A     
 OPTIONS  *         *                                                            *         OPTIONS      181     A     
 OPTIONS  *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       *         OPTIONS      182     A     
 OPTIONS  *         *            ----                       ----                 *         OPTIONS      183     A     
 OPTIONS  *         *                                                            *         OPTIONS      184     A     
 OPTIONS  *         *            71                         6400                 *         OPTIONS      185     A     
 OPTIONS  *         *            72                         6200                 *         OPTIONS      186     A     
 OPTIONS  *         *            73                         6400                 *         OPTIONS      187     A     
 OPTIONS  *         *            73-2                       6500                 *         OPTIONS      188     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         *            74                         6600                 *         OPTIONS      189     A     
 OPTIONS  *         *            74-2                       6700                 *         OPTIONS      190     A     
 OPTIONS  *         *            76                         7600                 *         OPTIONS      191     A     
 OPTIONS  *         *            171                        6400                 *         OPTIONS      192     A     
 OPTIONS  *         *            172                        6400                 *         OPTIONS      193     A     
 OPTIONS  *         *            173                        6400                 *         OPTIONS      194     A     
 OPTIONS  *         *            174                        6400                 *         OPTIONS      195     A     
 OPTIONS  *         *            175                        CYBER 175 CPU        *         OPTIONS      196     A     
 OPTIONS  *         *            176                        7600                 *         OPTIONS      197     A     
 OPTIONS  *         *                                                            *         OPTIONS      198     A     
 OPTIONS  *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  *         OPTIONS      199     A     
 OPTIONS  *         *      IGNORED.  TO BUILD A CROSS-MODEL COMPILER, SELECT A   *         OPTIONS      200          I
          -F1037F5
 OPTIONS  *         *      VALUE FROM THE LIST ABOVE, REMOVE THE ASTERISK, AND   *         OPTIONS      201          I
          -F2950F5  -F1037F5
 OPTIONS  *         *      VALUE FROM THE LIST ABOVE, REMOVE BOTH ASTERISKS, AND *         F2950F5       15          I
          -F1037F5
 OPTIONS  *         *      INSERT THE PROPER VALUE ON THE FOLLOWING  LINE.       *         OPTIONS      202          I
          -F1037F5
 OPTIONS  *MODEL    MICRO  1,,$74$                                               *         OPTIONS      203          I
          -F2950F5  -F1037F5
 OPTIONS  *         DEFMOD 74                                                              F2950F5       16          I
          -F1037F5
 OPTIONS  *         DEFINHF                                                                F2950F5       17          I
          -F1037F5
 OPTIONS  *         *                                                            *         OPTIONS      204          I
          -F1037F5
 OPTIONS  *         *      IGNORED. TO BUILD A CROSS-MODEL COMPILER, DO ONE     *          F1037F5       82     A     
 OPTIONS  *         *      OF THE FOLLOWING :                                   *          F1037F5       83     A     
 OPTIONS  *         *                                                           *          F1037F5       84     A     
 OPTIONS  *         *      A) SELECT A VALUE FROM THE LIST ABOVE, REMOVE BOTH   *          F1037F5       85     A     
 OPTIONS  *         *         ASTERISKS, AND INSERT THE PROPER VALUE ON THE     *          F1037F5       86     A     
 OPTIONS  *         *         FOLLOWING LINE.                                              F1037F5       87     A     
 OPTIONS  *         DEFMOD 74                                                              F1037F5       88     A     
 OPTIONS  *         DEFINHF                                                                F1037F5       89     A     
 OPTIONS  *         *                                                           *          F1037F5       90     A     
 OPTIONS  *         *      B) EQUATE THE FOLLOWING PARAMETER TO 1. THIS WILL    *          F1037F5       91     A     
 OPTIONS  *         *         CAUSE A MODEL-INDEPENDENT COMPILER TO BE BUILT.   *          F1037F5       92     A     
 OPTIONS  *         *         (NOTE - THIS BUILD PROCEDURE IS INCOMPATIBLE      *          F1037F5       93     A     
 OPTIONS  *         *         WITH THE SCOPE 2 OPERATING SYSTEM)                *          F1037F5       94     A     
 OPTIONS   .MI      EQU    0                                                               F1037F5       95     A     
 OPTIONS  *         *                                                           *          F1037F5       96     A     
 OPTIONS  *         **************************************************************         OPTIONS      205     A     
 OPTIONS   OPTIONS  SPACE  3,11                                                            OPTIONS      206     A     
 OPTIONS  *         **************************************************************         OPTIONS      207     A     
 OPTIONS  *         *                                                            *         OPTIONS      208     A     
 OPTIONS  *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          *         OPTIONS      209     A     
 OPTIONS  *         *                                                            *         OPTIONS      210     A     
 OPTIONS  *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     *         OPTIONS      211     A     
 OPTIONS  *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      *         OPTIONS      212     A     
 OPTIONS  *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  *         OPTIONS      213     A     
 OPTIONS  *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    *         OPTIONS      214     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         *      PARAMETER TO ZERO.                                    *         OPTIONS      215     A     
 OPTIONS   .IWT     EQU    0                                                               OPTIONS      216     A     
 OPTIONS  *         *                                                            *         OPTIONS      217     A     
 OPTIONS  *         **************************************************************         OPTIONS      218     A     
 OPTIONS   OPTIONS  SPACE  3,17                                                            OPTIONS      219     A     
 OPTIONS  *         **************************************************************         OPTIONS      220     A     
 OPTIONS  *         *                                                            *         OPTIONS      221     A     
 OPTIONS  *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   *         OPTIONS      222     A     
 OPTIONS  *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         *         OPTIONS      223     A     
 OPTIONS  *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    *         OPTIONS      224     A     
 OPTIONS  *         *      VALUES ARE --                                         *         OPTIONS      225     A     
 OPTIONS  *         *                                                            *         OPTIONS      226     A     
 OPTIONS  *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    *         OPTIONS      227     A     
 OPTIONS  *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       *         OPTIONS      228     A     
 OPTIONS  *         *                                                            *         OPTIONS      229     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         OPTIONS      230     A     
 OPTIONS  *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    *         OPTIONS      231     A     
 OPTIONS  *         *      THE FOLLOWING LINE.                                   *         OPTIONS      232     A     
 OPTIONS  *CP#RM    =      0                                                     *         OPTIONS      233     A     
 OPTIONS  *         *                                                            *         OPTIONS      234     A     
 OPTIONS  *         **************************************************************         OPTIONS      235     A     
 OPTIONS            SPACE  4,8                                                             OPTIONS      236     A     
 OPTIONS  *         **************************************************************         OPTIONS      237     A     
 OPTIONS  *         *                                                            *         OPTIONS      238     A     
 OPTIONS  *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    *         OPTIONS      239     A     
 OPTIONS  *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   *         OPTIONS      240     A     
 OPTIONS  *         *      VALUES ARE -                                          *         OPTIONS      241     A     
 OPTIONS  *         *                                                            *         OPTIONS      242     A     
 OPTIONS  *         *                  1 = ECS AVAILABLE                         *         OPTIONS      243     A     
 OPTIONS  *         *                  0 = NO ECS AVAILABLE                      *         OPTIONS      244     A     
 OPTIONS  *         *                                                            *         OPTIONS      245     A     
 OPTIONS  *         *                  LOWER CYBER DEFAULT =                     *         OPTIONS      246     A     
 OPTIONS  *         *                        0  FOR KRONOS OPERATING SYSTEM      *         OPTIONS      247     A     
 OPTIONS  *         *                        /IPARAM/IP.MECS  FOR SCOPE          *         OPTIONS      248     A     
 OPTIONS  *         *                  CYBER 76 DEFAULT IS 1                     *         OPTIONS      249     A     
 OPTIONS  *         *                                                            *         OPTIONS      250     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         OPTIONS      251     A     
 OPTIONS  *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    *         OPTIONS      252     A     
 OPTIONS  *         *      THE FOLLOWING LINE.                                   *         OPTIONS      253     A     
 OPTIONS  *CT.ECS   EQU    0                                                     *         OPTIONS      254     A     
 OPTIONS  *         *                                                            *         OPTIONS      255     A     
 OPTIONS  *         **************************************************************         OPTIONS      256     A     
 OPTIONS   OPTIONS  SPACE  3,12                                                            OPTIONS      257     A     
 OPTIONS  *         **************************************************************         OPTIONS      258     A     
 OPTIONS  *         *                                                            *         OPTIONS      259     A     
 OPTIONS  *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  *         OPTIONS      260     A     
 OPTIONS  *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    *         OPTIONS      261     A     
 OPTIONS  *         *      NOT ZERO, THEN WHEN OPT = 3 IS SELECTED, THE                    OPTIONS      262     A     
 OPTIONS  *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN *         OPTIONS      263     A     
 OPTIONS  *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     *         OPTIONS      264     A     
 OPTIONS  *         *      SUCH AS SIN, SQRT, EXP, ETC.                                    OPTIONS      265     A     
 OPTIONS  *         *                                                            *         OPTIONS      266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS   .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY               OPTIONS      267     A     
 OPTIONS  *         *                                                            *         OPTIONS      268     A     
 OPTIONS  *         **************************************************************         OPTIONS      269     A     
 OPTIONS            SPACE  4,8                                                             OPTIONS      270     A     
 OPTIONS  *         **************************************************************         OPTIONS      271     A     
 OPTIONS  *         *                                                            *         OPTIONS      272     A     
 OPTIONS  *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     *         OPTIONS      273     A     
 OPTIONS  *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  *         OPTIONS      274     A     
 OPTIONS  *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      *         OPTIONS      275     A     
 OPTIONS  *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN *         OPTIONS      276     A     
 OPTIONS  *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    *         OPTIONS      277     A     
 OPTIONS  *         *      VALUES ARE --                                         *         OPTIONS      278     A     
 OPTIONS  *         *                                                            *         OPTIONS      279     A     
 OPTIONS  *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    *         OPTIONS      280     A     
 OPTIONS  *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       *         OPTIONS      281     A     
 OPTIONS  *         *                                                            *         OPTIONS      282     A     
 OPTIONS  *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        *         OPTIONS      283     A     
 OPTIONS  *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   *         OPTIONS      284     A     
 OPTIONS  *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    *         OPTIONS      285     A     
 OPTIONS  *         *      VALUE ON THE FOLLOWING LINE.                          *         OPTIONS      286     A     
 OPTIONS  *OT#RM    =      6                                                               OPTIONS      287     A     
 OPTIONS  *         *                                                            *         OPTIONS      288     A     
 OPTIONS  *         **************************************************************         OPTIONS      289     A     
 OPTIONS  OPTIONS   SPACE  4,8                                                             FC5A180       11     A     
 OPTIONS  *         **************************************************************         FC5A180       12     A     
 OPTIONS  *         *                                                            *         FC5A180       13     A     
 OPTIONS  *         *      SELECT MINIMUM FIELD LENGTH INSTALLATION.             *         FC5A180       14     A     
 OPTIONS  *         *      THIS OPTION FORCES ALL BUFFERS INTO MINIMAL           *         FC5A180       15     A     
 OPTIONS  *         *      ALLOCATIONS IN ORDER TO COMPILE IN AN                 *         FC5A180       16     A     
 OPTIONS  *         *      ABSOLUTE MINIMUM FIELD LENGTH.  THIS IS               *         FC5A180       17     A     
 OPTIONS  *         *      ACCOMPLISHED AT THE EXPENSE OF COMPILE SPEED, AND     *         FC5A180       18     A     
 OPTIONS  *         *      IS RECOMMENDED ONLY FOR 32K SCM 7600-STYLE SYSTEMS.   *         FC5A180       19     A     
 OPTIONS  *         *                                                            *         FC5A180       20     A     
 OPTIONS  *         *      TO SELECT THIS OPTION, SET .MINFL TO 1 ON THE         *         FC5A180       21     A     
 OPTIONS  *         *      FOLLOWING LINE.                                       *         FC5A180       22     A     
 OPTIONS   .MINFL   =      0                                                               FC5A180       23     A     
 OPTIONS  *         *                                                            *         FC5A180       24     A     
 OPTIONS  *         **************************************************************         FC5A180       25     A     
 OPTIONS   OPTIONS  SPACE  3,8                                                             OPTIONS      290     A     
 OPTIONS  *         **************************************************************         OPTIONS      291     A     
 OPTIONS  *         *                                                            *         OPTIONS      292     A     
 OPTIONS  *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      *         OPTIONS      293     A     
 OPTIONS  *         *                                                            *         OPTIONS      294     A     
 OPTIONS   FC       MICRO  1,,/#/                                                          OPTIONS      295     A     
 OPTIONS  *         *                                                            *         OPTIONS      296     A     
 OPTIONS  *         **************************************************************         OPTIONS      297     A     
 OPTIONS   OPTIONS  SPACE  3,16                                                            OPTIONS      298     A     
 OPTIONS  *         **************************************************************         OPTIONS      299     A     
 OPTIONS  *         *                                                            *         OPTIONS      300     A     
 OPTIONS  *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  *         OPTIONS      301     A     
 OPTIONS  *         *                                                            *         OPTIONS      302     A     
 OPTIONS  *         *                  6RM VALUES                                *         OPTIONS      303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS   L.FIT6   =      19D+9D      FIT LENGTH                                          OPTIONS      304     A     
 OPTIONS   L.FET6   =      13D         FET LENGTH                                          OPTIONS      305     A     
 OPTIONS   L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                           OPTIONS      306     A     
 OPTIONS   L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB          OPTIONS      307     A     
 OPTIONS   L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB         OPTIONS      308     A     
 OPTIONS  *         *                                                            *         OPTIONS      309     A     
 OPTIONS  *         *                  7RM VALUES                                *         OPTIONS      310     A     
 OPTIONS   L.FIT7   =      16D         FIT LENGTH                                          OPTIONS      311          I
          -FC50729
 OPTIONS   L.FIT7   =      22D         FIT LENGTH                                          FC50729        6     A     
 OPTIONS   L.FET7   =      0           FET LENGTH                                          OPTIONS      312     A     
 OPTIONS   L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                           OPTIONS      313     A     
 OPTIONS  *         *                                                            *         OPTIONS      314     A     
 OPTIONS  *         **************************************************************         OPTIONS      315     A     
 OPTIONS   OPTIONS  SPACE  3,13                                                            OPTIONS      316     A     
 OPTIONS  *         **************************************************************         OPTIONS      317     A     
 OPTIONS  *         *                                                            *         OPTIONS      318     A     
 OPTIONS  *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         *         OPTIONS      319     A     
 OPTIONS  *         *                                                            *         OPTIONS      320     A     
 OPTIONS  *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, *CONRED* WILL   *         OPTIONS      321     A     
 OPTIONS  *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    *         OPTIONS      322     A     
 OPTIONS  *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        *         OPTIONS      323     A     
 OPTIONS  *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       *         OPTIONS      324     A     
 OPTIONS  *         *                                                            *         OPTIONS      325     A     
 OPTIONS   NOINVERT EQU    0                                                               OPTIONS      326     A     
 OPTIONS  *         *                                                            *         OPTIONS      327     A     
 OPTIONS  *         **************************************************************         OPTIONS      328     A     
 OPTIONS   OPTIONS  SPACE  3                                                               FC5A483        9     A     
 OPTIONS  *         **************************************************************         FC5A483       10     A     
 OPTIONS  *         *                                                            *         FC5A483       11     A     
 OPTIONS  *         *      SELECT RUN TIME CHECK FOR INTEGER DIVIDE BY ZERO      *         FC5A483       12     A     
 OPTIONS  *         *                                                            *         FC5A483       13     A     
 OPTIONS  *         *      WHEN THE FOLLOWING PARAMETER IS SET TO 1, INTEGER     *         FC5A483       14     A     
 OPTIONS  *         *      DIVIDE BY ZERO WILL BE TRAPPED AT RUN TIME AND        *         FC5A483       15     A     
 OPTIONS  *         *      THE RUNNING JOB WILL BE STOPPED. THE COST FOR         *         FC5A483       16     A     
 OPTIONS  *         *      THIS WILL BE TWO ADDITIONAL INSTRUCTIONS FOR          *         FC5A483       17     A     
 OPTIONS  *         *      EVERY INTEGER DIVIDE. THIS FEATURE SHOULD NOT BE      *         FC5A483       18     A     
 OPTIONS  *         *      USED FOR AN APPLICATION JOB THAT IS INTEGER DIVIDE    *         FC5A483       19     A     
 OPTIONS  *         *      INTENSIVE OR IF IT IS FELT THAT PERFORMANCE           *         FC5A483       20     A     
 OPTIONS  *         *      OF THE APPLICATION JOB WILL BE ADVERSELY AFFECTED.    *         FC5A483       21     A     
 OPTIONS  *         *                                                            *         FC5A483       22     A     
 OPTIONS   .IDC     EQU    0                                                               FC5A483       23     A     
 OPTIONS  *         *                                                            *         FC5A483       24     A     
 OPTIONS  *         **************************************************************         FC5A483       25     A     
 OPTIONS   OPTIONS  SPACE  2                                                               OPTIONS      329     A     
 OPTIONS  ***   ***   THERE ARE NO INSTALLATION OPTIONS BELOW THIS LINE ***   ***          OPTIONS      330     A     
 OPTIONS   DEFAULTS TITLE  INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                      OPTIONS      331     A     
 OPTIONS  ***                                                                              OPTIONS      332     A     
 OPTIONS  *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF             OPTIONS      333     A     
 OPTIONS  *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE            OPTIONS      334     A     
 OPTIONS  *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF            OPTIONS      335     A     
 OPTIONS  *         THE *MODEL* MICRO OBTAINED FROM A CALL TO *IPARAMS* AT THE             OPTIONS      336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         BEGINNING OF *OPTIONS*.                                                OPTIONS      337     A     
 OPTIONS  *                                                                                OPTIONS      338     A     
 OPTIONS  *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE           OPTIONS      339     A     
 OPTIONS  *                *OPTIONS* COMDECK.                                              OPTIONS      340     A     
 OPTIONS  *                                                                                OPTIONS      341     A     
 OPTIONS  *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR             OPTIONS      342     A     
 OPTIONS  *                OPT=2 USE DURING COMPILATIONS.                                  OPTIONS      343     A     
 OPTIONS                                                                                   OPTIONS      344     A     
 OPTIONS   #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                                    OPTIONS      345     A     
 OPTIONS   #MD      IFEQ   .OS,2                                                           OPTIONS      346     A     
 OPTIONS                                                                                   OPTIONS      347     A     
 OPTIONS  *         CYBER 76 DEFAULT VALUES.                                               OPTIONS      348     A     
 OPTIONS                                                                                   OPTIONS      349     A     
 OPTIONS   #RM      IF     -DEF,CP#RM                                                      OPTIONS      350     A     
 OPTIONS   CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                             OPTIONS      351     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      352     A     
 OPTIONS                                                                                   OPTIONS      353     A     
 OPTIONS   #ECS     IF     -DEF,CT.ECS                                                     OPTIONS      354     A     
 OPTIONS   CT.ECS   EQU    1           USE LCM AT COMPILE TIME                             OPTIONS      355     A     
 OPTIONS   #ECS     ENDIF                                                                  OPTIONS      356     A     
 OPTIONS                                                                                   FC5A158A      54     A     
 OPTIONS   .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE              FC5A158A      55     A     
 OPTIONS                                                                                   OPTIONS      357     A     
 OPTIONS   #MD      ELSE                                                                   OPTIONS      358     A     
 OPTIONS                                                                                   OPTIONS      359     A     
 OPTIONS  *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.                       OPTIONS      360     A     
 OPTIONS                                                                                   OPTIONS      361     A     
 OPTIONS   #RM      IF     -DEF,CP#RM                                                      OPTIONS      362     A     
 OPTIONS   CP#RM    EQU    0           USE CIO AT COMPILE-TIME                             OPTIONS      363     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      364     A     
 OPTIONS                                                                                   OPTIONS      365     A     
 OPTIONS   #ECS     IF     -DEF,CT.ECS,4                                                   OPTIONS      366     A     
 OPTIONS   #ECS     IF     DEF,/IPARAM/IP.MECS,2                                           OPTIONS      367     A     
 OPTIONS   CT.ECS   EQU    /IPARAM/IP.MECS                                                 OPTIONS      368     A     
 OPTIONS   #ECS     SKIP   1                                                               OPTIONS      369     A     
 OPTIONS   CT.ECS   EQU    0                                                               OPTIONS      370     A     
 OPTIONS   #ECS     ENDIF                                                                  OPTIONS      371     A     
 OPTIONS                                                                                   FC5A158A      56     A     
 OPTIONS   .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE                     FC5A158A      57     A     
 OPTIONS                                                                                   OPTIONS      372     A     
 OPTIONS   #MD      ENDIF                                                                  OPTIONS      373     A     
 OPTIONS   DEFAULTS SPACE  4,10                                                            F1037F5       97     A     
 OPTIONS  **        IF .MI HAS BEEN EQUATED TO 1, FORCE A 176 STYLE BUILD, AND             F1037F5       98     A     
 OPTIONS  *         CAUSE AN ASSEMBLY ERROR IF .OS = 2 (SCOPE 2).                          F1037F5       99     A     
 OPTIONS                                                                                   F1037F5      100     A     
 OPTIONS            IFEQ   .MI,1,3                                                         F1037F5      101     A     
 OPTIONS            ERRZR  .OS-2                                                           F1037F5      102     A     
 OPTIONS            DEFMOD 176                                                             F1037F5      103     A     
 OPTIONS            DEFINHF                                                                F1037F5      104     A     
 OPTIONS                                                                                   F1037F5      105     A     
 OPTIONS   DEFAULTS SPACE  4,8                                                             OPTIONS      374     A     
 OPTIONS  *         SELECT SYSTEM- OR TEST-MODE COMPILER CONFIGURATION.                    OPTIONS      375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS                                                                                   OPTIONS      376     A     
 OPTIONS  *IF       DEF,TESTFTN,1                                                          OPTIONS      377          I
          -FC5A370
 OPTIONS  *IF DEF,TEST,1                                                                   FC5A370        6     A     
 OPTIONS   TEST     =      1           ASSEMBLE COMPILER IN TEST MODE                      OPTIONS      378     A     
 OPTIONS  *IF       -DEF,TESTFTN,1                                                         OPTIONS      379          I
          -FC5A370
 OPTIONS  *IF -DEF,TEST,1                                                                  FC5A370        7     A     
 OPTIONS   TEST     =      0           ASSEMBLE COMPILER IN SYSTEM MODE                    OPTIONS      380     A     
 OPTIONS                                                                                   OPTIONS      381     A     
 OPTIONS   .SPY     =      TEST                                                            OPTIONS      382          I
          -FC5A158A 
 OPTIONS   SC2ZERO  SET    .OS-2                                                           FC5A158A      58     A     
 OPTIONS   .SPY     =      SC2ZERO/SC2ZERO*TEST                                            FC5A158A      59     A     
 OPTIONS  *                                                                                OPTIONS      383     A     
 OPTIONS  ***                                                                              OPTIONS      384     A     
 OPTIONS   DEFAULTS EJECT                                                                  OPTIONS      385     A     
 OPTIONS  ***                                                                              OPTIONS      386     A     
 OPTIONS  *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF              OPTIONS      387     A     
 OPTIONS  *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN            OPTIONS      388     A     
 OPTIONS  *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF              OPTIONS      389     A     
 OPTIONS  *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME                  OPTIONS      390     A     
 OPTIONS  *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH             OPTIONS      391     A     
 OPTIONS  *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.                      OPTIONS      392     A     
 OPTIONS  *                                                                                OPTIONS      393     A     
 OPTIONS  *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE            OPTIONS      394     A     
 OPTIONS  *                FIRST TWO CHARACTERS OF THE *MODEL* MICRO, I.E. 72,             OPTIONS      395     A     
 OPTIONS  *                73, 74, OR 76.  IT IS TO BE USED FOR OBJECT-TIME                OPTIONS      396     A     
 OPTIONS  *                HARDWARE DIFFERENCES ONLY.                                      OPTIONS      397     A     
 OPTIONS  *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS             OPTIONS      398     A     
 OPTIONS  *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF            OPTIONS      399     A     
 OPTIONS  *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,              OPTIONS      400     A     
 OPTIONS  *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY              OPTIONS      401     A     
 OPTIONS  *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.                OPTIONS      402     A     
 OPTIONS  *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE            OPTIONS      403     A     
 OPTIONS  *                *OPTIONS* COMDECK.                                              OPTIONS      404     A     
 OPTIONS                                                                                   OPTIONS      405     A     
 OPTIONS   MDL      VALMDL MODEL,OT.7X                                                     OPTIONS      406          I
          -F2950F5
 OPTIONS   MDL      VALMDL HF.P                                                            F2950F5       18     A     
 OPTIONS                                                                                   OPTIONS      407     A     
 OPTIONS   .CPU     EQU    "MDL"       OBJECT TIME CPU                                     OPTIONS      408     A     
 OPTIONS   L.STACK  MDV=   0,8,11,11,11                                                    OPTIONS      409          I
          -F2950F5
 OPTIONS   .DAL     MDV=   0,0,1,0,1                                                       OPTIONS      410          I
          -F2950F5
 OPTIONS            IF     -DEF,.NRFCO,1                                                   OPTIONS      411          I
          -F2950F5
 OPTIONS   .NRFCO   MDV=   1,1,0,1,1                                                       OPTIONS      412          I
          -F2950F5
 OPTIONS            IF     -MIC,HF.S                                                       F2950F5       19     A     
 OPTIONS   L.STACK  EQU    0                                                               F2950F5       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS            ELSE                                                                   F2950F5       21     A     
 OPTIONS   .1       MICRO  2,,/"HF.S"/                                                     F2950F5       22     A     
 OPTIONS   L.STACK  EQU    ".1"+1                                                          F2950F5       23     A     
 OPTIONS            ENDIF                                                                  F2950F5       24     A     
 OPTIONS            IF     MIC,HF.L                                                        F2950F5       25     A     
 OPTIONS   .DAL     EQU    1                                                               F2950F5       26     A     
 OPTIONS            ELSE                                                                   F2950F5       27     A     
 OPTIONS   .DAL     EQU    0                                                               F2950F5       28     A     
 OPTIONS            ENDIF                                                                  F2950F5       29     A     
 OPTIONS                                                                                   OPTIONS      413     A     
 OPTIONS   #MD      IFEQ   .CPU,76                                                         OPTIONS      414     A     
 OPTIONS                                                                                   OPTIONS      415     A     
 OPTIONS  *         CYBER 76 DEFAULT VALUES.                                               OPTIONS      416     A     
 OPTIONS                                                                                   OPTIONS      417     A     
 OPTIONS   #RM      IF     -DEF,OT#RM                                                      OPTIONS      418     A     
 OPTIONS   #OS      IFEQ   .OS,2                                                           OPTIONS      419     A     
 OPTIONS   OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                         OPTIONS      420     A     
 OPTIONS   #OS      ELSE                                                                   OPTIONS      421     A     
 OPTIONS   OT#RM    =      6                                                               OPTIONS      422     A     
 OPTIONS   #OS      ENDIF                                                                  OPTIONS      423     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      424     A     
 OPTIONS                                                                                   OPTIONS      425     A     
 OPTIONS   SCM      MICRO  1,,/SCM/                                                        OPTIONS      426     A     
 OPTIONS   LCM      MICRO  1,,/LCM/                                                        OPTIONS      427     A     
 OPTIONS                                                                                   OPTIONS      428     A     
 OPTIONS   #MD      ELSE                                                                   OPTIONS      429     A     
 OPTIONS                                                                                   OPTIONS      430     A     
 OPTIONS  *         LOWER CYBER DEFAULT VALUES.                                            OPTIONS      431     A     
 OPTIONS                                                                                   OPTIONS      432     A     
 OPTIONS   #RM      IF     -DEF,OT#RM                                                      OPTIONS      433     A     
 OPTIONS   OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                         OPTIONS      434     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      435     A     
 OPTIONS                                                                                   OPTIONS      436     A     
 OPTIONS   SCM      MICRO  1,,/CM/                                                         OPTIONS      437     A     
 OPTIONS   LCM      MICRO  1,,/ECS/                                                        OPTIONS      438     A     
 OPTIONS                                                                                   OPTIONS      439     A     
 OPTIONS   #MD      ENDIF                                                                  OPTIONS      440     A     
 OPTIONS  ****                                                                             OPTIONS      441     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OPTIONS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OPTIONS                    441       386
          F2950F5                     26        23
          FC5A158A                     6         6
          FC5A180                     15        15
          F1037F5                     24        24
          F1037F5A                     1         1
          FC5A370                      2         2
          FC50729                      1         1
          FC5A446                      6         6
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
          FC5A478                      4         4
          FC5A483                     17        17
          FC5A495                      1         1
          FC5A521                      2         2
          PSRLEVEL                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL  *COMDECK  PARSKEL - SKELETON SELECTION TABLES FOR PARSER.                        PARSKEL        1     A     
 PARSKEL            CTEXT  PARSKEL - SKELETON SELECTION TABLES FOR PARSER.                 PARSKEL        2     A     
 PARSKEL                                                                                   PARSKEL        3     A     
 PARSKEL                                                                                   PARSKEL        4     A     
 PARSKEL  **        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.                        PARSKEL        5     A     
 PARSKEL  *                                                                                PARSKEL        6     A     
 PARSKEL  *         ALL TABLES NECESSARY FOR THE PARSER TO SELECT PARTICULAR               PARSKEL        7     A     
 PARSKEL  *         SKELETONS RESIDE IN THIS DECK BECAUSE RELATIVE ADDRESSES               PARSKEL        8     A     
 PARSKEL  *         ARE USED.                                                              PARSKEL        9     A     
 PARSKEL   BASES    SPACE  4,10                                                            PARSKEL       10     A     
 PARSKEL  **        EQUATES FOR PARSER.                                                    PARSKEL       11     A     
 PARSKEL  *                                                                                PARSKEL       12     A     
 PARSKEL  *         FOLLOWING SYMBOLS MUST BE BASE SKELETON OF THE INDICATED               PARSKEL       13     A     
 PARSKEL  *         GROUP.  IT IS NOT ALWAYS POSSIBLE TO VERIFY THIS CONSTRAINT            PARSKEL       14     A     
 PARSKEL  *         AT ASSEMBLY TIME, ALTHOUGH IF THESE SYMBOLS ARE NOT SET                PARSKEL       15     A     
 PARSKEL  *         PROPERLY, THE COMILER WILL MALFUNCTION.                                PARSKEL       16     A     
 PARSKEL                                                                                   PARSKEL       17     A     
 PARSKEL                                                                                   PARSKEL       18     A     
 PARSKEL   OM=CONV  EQUENT V=ITOR-1    FIRST MODE CONVERSION SKELETON, -1                  PARSKEL       19     A     
 PARSKEL   OM=IF    EQUENT V=I123      FIRST IF-SKELETON                                   PARSKEL       20     A     
 PARSKEL   OM=INL   EQUENT OM=CONV     FIRST INLINE INTRINSIC                              PARSKEL       21     A     
 PARSKEL   DMOD     SPACE  4,10                                                            PARSKEL       22     A     
 PARSKEL  **        DMOD - BUILD MODE SELECTION VECTOR.                                    PARSKEL       23     A     
 PARSKEL  *                                                                                PARSKEL       24     A     
 PARSKEL  * TYPE    DMOD   B,L,I,R,D,C,H                                                   PARSKEL       25     A     
 PARSKEL  *                                                                                PARSKEL       26     A     
 PARSKEL  *         ENTRY  TYPE = GENERIC NAME OF THE OPERATION.                           PARSKEL       27     A     
 PARSKEL  *                B, L, I, R, D, C = SUFFIX LETTER FOR TYPED OPERATION.           PARSKEL       28     A     
 PARSKEL  *                            = "-" IF ERROR.                                     PARSKEL       29     A     
 PARSKEL  *                H = SUFFIX LETTER FOR TYPE CHARACTER OPERATION,                 PARSKEL       30     A     
 PARSKEL  *                            OMITTED IF CHARACTER NOT PERMITTED.                 PARSKEL       31     A     
 PARSKEL  *                                                                                PARSKEL       32     A     
 PARSKEL  *         NOTE THAT MODE SELECTION WORD DOES NOT HAVE SYMBOLIC                   PARSKEL       33     A     
 PARSKEL  *         FIELD DESCRIPTIONS.  THE FORMAT IS INHERENT TO THE USING               PARSKEL       34     A     
 PARSKEL  *         ROUTINES.  SEE PAR/SDM, OMC.                                           PARSKEL       35     A     
 PARSKEL                                                                                   PARSKEL       36     A     
 PARSKEL                                                                                   PARSKEL       37     A     
 PARSKEL            MACRO  DMOD,TYPE,U,L,I,R,D,C,H                                         PARSKEL       38     A     
 PARSKEL   E        MICRO                                                                  PARSKEL       39     A     
 PARSKEL   F        SET    1S17                                                            PARSKEL       40     A     
 PARSKEL  *                                                                                PARSKEL       41     A     
 PARSKEL   .1       ECHO   ,P=(C,D,R,I,L,U)                                                PARSKEL       42     A     
 PARSKEL            IFC    EQ,/P/-/,2                                                      PARSKEL       43     A     
 PARSKEL   E        MICRO  1,,$"E"8/-0,$                                                   PARSKEL       44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL            SKIP   2                                                               PARSKEL       45     A     
 PARSKEL   E        MICRO  1,,$"E"8/V=TYPE.P-F,$                                           PARSKEL       46     A     
 PARSKEL   F        MIN    F,V=TYPE.P                                                      PARSKEL       47     A     
 PARSKEL   .1       ENDD                                                                   PARSKEL       48     A     
 PARSKEL  *                            PASTE IT TOGETHER                                   PARSKEL       49     A     
 PARSKEL   OM=TYPE  VFD    12/F,"E"                                                        PARSKEL       50     A     
 PARSKEL            IFC    NE,/H//,1                                                       PARSKEL       51     A     
 PARSKEL            VFD    42/0,18/V=TYPE.H                                                PARSKEL       52     A     
 PARSKEL            ENTRY  OM=TYPE                                                         PARSKEL       53     A     
 PARSKEL            ENDM                                                                   PARSKEL       54     A     
 PARSKEL                                                                                   PARSKEL       55     A     
 PARSKEL                                                                                   PARSKEL       56     A     
 PARSKEL  *                                  ARITHMETIC.                                   PARSKEL       57     A     
 PARSKEL   ADD      DMOD   I,-,I,R,D,C                                                     PARSKEL       58     A     
 PARSKEL   SUB      DMOD   I,-,I,R,D,C                                                     PARSKEL       59     A     
 PARSKEL   MUL      DMOD   I,-,I,R,D,C                                                     PARSKEL       60     A     
 PARSKEL   DIV      DMOD   I,-,I,R,D,C                                                     PARSKEL       61     A     
 PARSKEL   UMI      DMOD   I,-,I,R,D,C                                                     PARSKEL       62     A     
 PARSKEL                                                                                   PARSKEL       63     A     
 PARSKEL  *                                  RELATIONS.                                    PARSKEL       64     A     
 PARSKEL   LT       DMOD   B,-,I,R,D,-,H                                                   PARSKEL       65     A     
 PARSKEL   GE       DMOD   B,-,I,R,D,-,H                                                   PARSKEL       66     A     
 PARSKEL   NE       DMOD   B,-,I,R,D,D,H                                                   PARSKEL       67     A     
 PARSKEL   EQ       DMOD   B,-,I,R,D,D,H                                                   PARSKEL       68     A     
 PARSKEL                                                                                   PARSKEL       69     A     
 PARSKEL  *                                  MASKING / LOGICAL.                            PARSKEL       70     A     
 PARSKEL   NOT      DMOD   B,L,B,B,B,B                                                     PARSKEL       71     A     
 PARSKEL   AND      DMOD   B,L,B,B,B,B                                                     PARSKEL       72     A     
 PARSKEL   OR       DMOD   B,L,B,B,B,B                                                     PARSKEL       73     A     
 PARSKEL   EQV      DMOD   B,L,B,B,B,B                                                     PARSKEL       74     A     
 PARSKEL   XOR      DMOD   B,L,B,B,B,B                                                     PARSKEL       75     A     
 PARSKEL                                                                                   PARSKEL       76     A     
 PARSKEL  *                                  MISCELLEANEOUS.                               PARSKEL       77     A     
 PARSKEL   STR      DMOD   I,I,I,I,D,D,H                                                   PARSKEL       78     A     
 PARSKEL   DOC      DMOD   -,-,S,R,D,-       SHORT LOOPS                                   PARSKEL       79     A     
 PARSKEL            LOC    OM=DOC                  ****  KLUDGE  ****                      PARSKEL       80     A     
 PARSKEL   DOC      DMOD   -,-,L,R,D,-       LONG LOOPS                                    PARSKEL       81     A     
 PARSKEL            LOC    *O                                                              PARSKEL       82     A     
 PARSKEL   MODECON  SPACE  4,10                                                            PARSKEL       83     A     
 PARSKEL  **        MCTBL - GENERATE ONE ROW OF MODE CONVERSION MATRIX.                    PARSKEL       84     A     
 PARSKEL  *                                                                                PARSKEL       85     A     
 PARSKEL  * TYPE    MCTBL  B,L,I,R,D,C                                                     PARSKEL       86     A     
 PARSKEL                                                                                   PARSKEL       87     A     
 PARSKEL                                                                                   PARSKEL       88     A     
 PARSKEL            MACRO  MCTBL,TYPE,B,L,I,R,D,Z,H                                        PARSKEL       89     A     
 PARSKEL   E        MICRO                                                                  PARSKEL       90     A     
 PARSKEL   .1       ECHO   ,P=(H,Z,D,R,I,L,B)                                              PARSKEL       91     A     
 PARSKEL            IFC    EQ,/P/----/,2                                                   PARSKEL       92     A     
 PARSKEL   E        MICRO  1,,$"E",8/-0$                                                   PARSKEL       93     A     
 PARSKEL            SKIP   5                                                               PARSKEL       94     A     
 PARSKEL            IFC    EQ,/P/****/,2                                                   PARSKEL       95     A     
 PARSKEL   E        MICRO  1,,$"E",8/0$                                                    PARSKEL       96     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL            SKIP   2                                                               PARSKEL       97     A     
 PARSKEL   R        ERRMI  V=P-OM=CONV       RE-ORDER SKELS                                PARSKEL       98     A     
 PARSKEL   E        MICRO  1,,$"E",8/V=P-OM=CONV$                                          PARSKEL       99     A     
 PARSKEL   .1       ENDD                                                                   PARSKEL      100     A     
 PARSKEL  *                                                                                PARSKEL      101     A     
 PARSKEL   M.TYPE   VFD    4/0"E"                                                          PARSKEL      102     A     
 PARSKEL   MCTBL    ENDM                                                                   PARSKEL      103     A     
 PARSKEL   F.MODC   SPACE  4,10                                                            PARSKEL      104     A     
 PARSKEL  **        F.MODC - MODE CONVERSION MATRIX.                                       PARSKEL      105     A     
 PARSKEL  *                                                                                PARSKEL      106     A     
 PARSKEL  *         ROW (WORD) INDEXED BY TYPE OF OPERAND.                                 PARSKEL      107     A     
 PARSKEL  *         COLUMN (BYTE) INDEXED BY DOMINANT MODE.                                PARSKEL      108     A     
 PARSKEL  *                                                                                PARSKEL      109     A     
 PARSKEL  *         ----  =>  ERROR.                                                       PARSKEL      110     A     
 PARSKEL  *         ****  =>  OKAY, NO CONVERSION NEEDED.                                  PARSKEL      111     A     
 PARSKEL  *         MTON  =>  OKAY = OFFSET OF MODE CONVERSION SKELETON.                   PARSKEL      112     A     
 PARSKEL                                                                                   PARSKEL      113     A     
 PARSKEL                                                                                   PARSKEL      114     A     
 PARSKEL   F.MODC   BSSENT             ADDRESS OF TABLE                                    PARSKEL      115     A     
 PARSKEL            LOC    0                                                               PARSKEL      116     A     
 PARSKEL  *                BOOL LOG  INT  REAL DBL  CPLX CHAR                              PARSKEL      117     A     
 PARSKEL   BOOL     MCTBL  ****,----,****,****,RTOD,RTOC,----                              PARSKEL      118     A     
 PARSKEL   LOG      MCTBL  ----,****,----,----,----,----,----                              PARSKEL      119     A     
 PARSKEL   INT      MCTBL  ****,----,****,ITOR,ITOD,ITOC,----                              PARSKEL      120     A     
 PARSKEL   REAL     MCTBL  ****,----,RTOI,****,RTOD,RTOC,----                              PARSKEL      121     A     
 PARSKEL   DBL      MCTBL  DTOR,----,DTOI,DTOR,****,DTOC,----                              PARSKEL      122     A     
 PARSKEL   CPLX     MCTBL  CTOR,----,CTOI,CTOR,CTOD,****,----                              PARSKEL      123     A     
 PARSKEL   CHAR     MCTBL  ----,----,----,----,----,----,****                              PARSKEL      124     A     
 PARSKEL   .T       IFEQ   TEST,ON,1                                                       PARSKEL      125     A     
 PARSKEL   NONE     MCTBL  ----,----,----,----,----,----,----                              PARSKEL      126     A     
 PARSKEL            LOC    *O                                                              PARSKEL      127     A     
 PARSKEL   F.IFT    SPACE  4,30                                                            PARSKEL      128     A     
 PARSKEL  **        F.IFT - TABLES FOR SELECTING IF SKELETON.                              PARSKEL      129     A     
 PARSKEL                                                                                   PARSKEL      130     A     
 PARSKEL                                                                                   PARSKEL      131     A     
 PARSKEL            MACRO  IFTBL,PRE,B,L,I,R,D,C,H                                         PARSKEL      132     A     
 PARSKEL   E        MICRO                                                                  PARSKEL      133     A     
 PARSKEL   .1       ECHO   ,P=(B,L,I,R,D,C,H)                                              PARSKEL      134     A     
 PARSKEL            IFC    EQ,/P/-/,2                                                      PARSKEL      135     A     
 PARSKEL   E        MICRO  1,,$"E"8/-1,$                                                   PARSKEL      136     A     
 PARSKEL            SKIP   2                                                               PARSKEL      137     A     
 PARSKEL   R        ERRMI  V=P_PRE-OM=IF     (IF_P_PRE) SKEL OUT OF ORDER                  PARSKEL      138     A     
 PARSKEL   E        MICRO  1,,$"E"8/V=_P_PRE-OM=IF,$                                       PARSKEL      139     A     
 PARSKEL   .1       ENDD                                                                   PARSKEL      140     A     
 PARSKEL  *                                                                                PARSKEL      141     A     
 PARSKEL            VFD    "E"*P/0                                                         PARSKEL      142     A     
 PARSKEL            ENDM                                                                   PARSKEL      143     A     
 PARSKEL                                                                                   PARSKEL      144     A     
 PARSKEL                                                                                   PARSKEL      145     A     
 PARSKEL  *                                  NEXT LABEL NOT REFERENCED.                    PARSKEL      146     A     
 PARSKEL   F.IFS    BSSENT                                                                 PARSKEL      147     A     
 PARSKEL   123      IFTBL  I,-,I,I,D,-,-                                                   PARSKEL      148     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   113      IFTBL  I,-,I,R,D,-,-                                                   PARSKEL      149     A     
 PARSKEL   122      IFTBL  I,-,I,I,D,-,-                                                   PARSKEL      150     A     
 PARSKEL   121      IFTBL  I,-,I,I,I,-,-                                                   PARSKEL      151     A     
 PARSKEL                                                                                   PARSKEL      152     A     
 PARSKEL  *                                  NEXT LABEL REFERENCED ONCE.                   PARSKEL      153     A     
 PARSKEL   N23      IFTBL  I,-,I,I,D,-,-                                                   PARSKEL      154     A     
 PARSKEL   1N3      IFTBL  I,-,I,R,D,-,-                                                   PARSKEL      155     A     
 PARSKEL   12N      IFTBL  I,-,I,I,D,-,-                                                   PARSKEL      156     A     
 PARSKEL                                                                                   PARSKEL      157     A     
 PARSKEL  *                                  NEXT LABEL REFERENCED 2 OR 3 TIMES.           PARSKEL      158     A     
 PARSKEL   F.IFN    BSSENT                                                                 PARSKEL      159     A     
 PARSKEL   NN3      IFTBL  I,-,I,R,D,-,-                                                   PARSKEL      160     A     
 PARSKEL   11N      IFTBL  I,-,I,R,D,-,-                                                   PARSKEL      161     A     
 PARSKEL   N22      IFTBL  I,-,I,R,D,-,-                                                   PARSKEL      162     A     
 PARSKEL   1NN      IFTBL  I,-,I,R,D,-,-                                                   PARSKEL      163     A     
 PARSKEL   1N1      IFTBL  I,-,I,I,I,-,-                                                   PARSKEL      164     A     
 PARSKEL   N2N      IFTBL  I,-,I,I,I,-,-                                                   PARSKEL      165     A     
 PARSKEL            TITLE  INTRINSIC FUNCTION DEFINITIONS.                                 PARSKEL      166     A     
 PARSKEL   F.INTF   SPACE  4,10                                                            PARSKEL      167     A     
 PARSKEL  ***       F.INTF - TABLE OF ALL KNOWN INTRINSIC FUNCTIONS.                       PARSKEL      168     A     
 PARSKEL  *                                                                                PARSKEL      169     A     
 PARSKEL  *         SEE FTN5TXT FOR FORMAT.                                                PARSKEL      170     A     
 PARSKEL  *                                                                                PARSKEL      171     A     
 PARSKEL  *         NAMES WHICH ARE GENERIC ONLY (THAT IS, A NAME WHICH IS NOT             PARSKEL      172     A     
 PARSKEL  *         ALSO A SPECIFIC NAME), ARE SPECIFIED AS 'EXTBF' SO AS NOT              PARSKEL      173     A     
 PARSKEL  *         TO REFER TO A NON-EXISTANT SKELETON.                                   PARSKEL      174     A     
 PARSKEL  *         A GENERIC FUNCTION HAS A SELECTOR WORD INSERTED IN THIS                PARSKEL      175     A     
 PARSKEL  *         TABLE IMMEDIATELY FOLLOWING ITS ENTRY.                                 PARSKEL      176     A     
 PARSKEL  *                                                                                PARSKEL      177     A     
 PARSKEL  *         SEE X3J3/90, TABLE 5.                                                  PARSKEL      178     A     
 PARSKEL                                                                                   PARSKEL      179     A     
 PARSKEL                                                                                   PARSKEL      180     A     
 PARSKEL            MACRO  NLINE,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                           PARSKEL      181     A     
 PARSKEL   .C       MICRO  1,,$NAME$                                                       PARSKEL      182     A     
 PARSKEL   .D       MICRO  1,, V=".C"-OM=INL                                               PARSKEL      183          I
          -FC50168
 PARSKEL   .CD      MICRO  1,,._NAME_.                                                     FC50168        5     A     
 PARSKEL   .D       MICRO  1,, V=".CD"-OM=INL                                              FC50168        6     A     
 PARSKEL   R        ERRMI  ".D"        SKEL OUT OF ORDER _________________________         PARSKEL      184     A     
 PARSKEL   NAME     INTF=  ".C",ARGTYP,FUNTYP,NOARGS,(FLAGS)                               PARSKEL      185     A     
 PARSKEL            ENDM                                                                   PARSKEL      186     A     
 PARSKEL                                                                                   PARSKEL      187     A     
 PARSKEL                                                                                   PARSKEL      188     A     
 PARSKEL            MACRO  NPAR,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                            PARSKEL      189     A     
 PARSKEL   .D       MICRO  1,9, =XES=NAME                                                  PARSKEL      190     A     
 PARSKEL   NAME     INTF=  NAME,ARGTYP,FUNTYP,NOARGS,(PAR,FLAGS)                           PARSKEL      191     A     
 PARSKEL            ENDM                                                                   PARSKEL      192     A     
 PARSKEL                                                                                   PARSKEL      193     A     
 PARSKEL                                                                                   PARSKEL      194     A     
 PARSKEL            MACRO  EXTBF,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS,BREG                      PARSKEL      195     A     
 PARSKEL   .D       MICRO  1,, 0                                                           PARSKEL      196     A     
 PARSKEL            IRP    BREG                                                            PARSKEL      197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   .D       DECMIC ".D"+1S_BREG                                                    PARSKEL      198     A     
 PARSKEL            IRP                                                                    PARSKEL      199     A     
 PARSKEL   NAME     INTF=  NAME,ARGTYP,FUNTYP,NOARGS,(EXT,FLAGS)                           PARSKEL      200     A     
 PARSKEL            ENDM                                                                   PARSKEL      201     A     
 PARSKEL   F.INTF   SPACE  4,20                                                            PARSKEL      202     A     
 PARSKEL  **        INLINE INTRINSICS.                                                     PARSKEL      203     A     
 PARSKEL                                                                                   PARSKEL      204     A     
 PARSKEL                                                                                   PARSKEL      205     A     
 PARSKEL   F.INTF   BSSENT 0                                                               PARSKEL      206     A     
 PARSKEL                                                                                   PARSKEL      207     A     
 PARSKEL            QUAL   INTF                                                            PARSKEL      208     A     
 PARSKEL            NOREF  .A,.B,.G                                                        PARSKEL      209     A     
 PARSKEL            LOC    0                                                               PARSKEL      210     A     
 PARSKEL   ERR$     EXTBF  BOOL,BOOL         DEFAULT ILLEGAL ENTRY                         PARSKEL      211          I
          -FC50168
 PARSKEL                                                                                   PARSKEL      212          I
          -FC50168
 PARSKEL   BTOR$    NLINE  BOOL,REAL,1       INVISIBLE SPECIFIC NAMES                      PARSKEL      213          I
          -FC50168
 PARSKEL   BTOD$    NLINE  BOOL,DBL,1                                                      PARSKEL      214          I
          -FC50168
 PARSKEL   BTOC$    NLINE  BOOL,CPLX,1                                                     PARSKEL      215          I
          -FC50168
 PARSKEL   ITOD$    NLINE  INT,DBL,1                                                       PARSKEL      216          I
          -FC50168
 PARSKEL   ITOC$    NLINE  INT,CPLX,1                                                      PARSKEL      217          I
          -FC50168
 PARSKEL   RTOB$    NLINE  REAL,BOOL,1                                                     PARSKEL      218          I
          -FC50168
 PARSKEL   RTOC$    NLINE  REAL,CPLX,1                                                     PARSKEL      219          I
          -FC50168
 PARSKEL   DTOB$    NLINE  DBL,BOOL,1                                                      PARSKEL      220          I
          -FC50168
 PARSKEL   DTOC$    NLINE  DBL,CPLX,1                                                      PARSKEL      221          I
          -FC50168
 PARSKEL   CTOB$    NLINE  CPLX,BOOL,1                                                     PARSKEL      222          I
          -FC50168
 PARSKEL   CTOI$    NLINE  CPLX,INT,1                                                      PARSKEL      223          I
          -FC50168
 PARSKEL   CTOD$    NLINE  CPLX,DBL,1                                                      PARSKEL      224          I
          -FC50168
 PARSKEL   ERR.     EXTBF  BOOL,BOOL   DEFAULT ILLEGAL ENTRY                               FC50168        7     A     
 PARSKEL                                                                                   FC50168        8     A     
 PARSKEL   BTOR.    NLINE  BOOL,REAL,1 INVISIBLE SPECIFIC NAMES                            FC50168        9     A     
 PARSKEL   BTOD.    NLINE  BOOL,DBL,1                                                      FC50168       10     A     
 PARSKEL   BTOC.    NLINE  BOOL,CPLX,1                                                     FC50168       11     A     
 PARSKEL   ITOD.    NLINE  INT,DBL,1                                                       FC50168       12     A     
 PARSKEL   ITOC.    NLINE  INT,CPLX,1                                                      FC50168       13     A     
 PARSKEL   RTOB.    NLINE  REAL,BOOL,1                                                     FC50168       14     A     
 PARSKEL   RTOC.    NLINE  REAL,CPLX,1                                                     FC50168       15     A     
 PARSKEL   DTOB.    NLINE  DBL,BOOL,1                                                      FC50168       16     A     
 PARSKEL   DTOC.    NLINE  DBL,CPLX,1                                                      FC50168       17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   CTOB.    NLINE  CPLX,BOOL,1                                                     FC50168       18     A     
 PARSKEL   CTOI.    NLINE  CPLX,INT,1                                                      FC50168       19     A     
 PARSKEL   CTOD.    NLINE  CPLX,DBL,1                                                      FC50168       20     A     
 PARSKEL                                                                                   PARSKEL      225     A     
 PARSKEL   AMAX0    NLINE  INT,REAL                                                        PARSKEL      226     A     
 PARSKEL   AMAX1    NLINE  REAL,REAL                                                       PARSKEL      227     A     
 PARSKEL   AMIN0    NLINE  INT,REAL                                                        PARSKEL      228     A     
 PARSKEL   AMIN1    NLINE  REAL,REAL                                                       PARSKEL      229     A     
 PARSKEL   AND      NLINE  BOOL,BOOL,,(NONANSI)                                            PARSKEL      230     A     
 PARSKEL   BOOL$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                                 PARSKEL      231          I
          -FC50168
 PARSKEL   BOOL$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                                 FC50168       21     A     
 PARSKEL   BOOL     NLINE  INT,BOOL,1,(GENERIC)                                            PARSKEL      232          I
          -FC5A227
 PARSKEL   BOOL     NLINE  INT,BOOL,1,(GENERIC,GNO)                                        FC5A227        6     A     
 PARSKEL   CHAR     EXTBF  INT,CHAR,1,(BYN,CHAR)                                           PARSKEL      233     A     
 PARSKEL   CMPL$    EXTBF  BOOL,CPLX,1,(GENERIC)   MUST BE AT CMPLX-2, SEE PAR/VIL         PARSKEL      234          I
          -FC50168
 PARSKEL   CMPL.    EXTBF  BOOL,CPLX,1,(GENERIC)   MUST BE CMPLX-2 (PAR/VIL)               FC50168       22     A     
 PARSKEL   CMPLX    NPAR   REAL,CPLX,2,(GENERIC)   SEE PAR/ESF                             PARSKEL      235          I
          -FC5A227
 PARSKEL   DBLE     NLINE  REAL,DBL,1,(GENERIC)                                            PARSKEL      236          I
          -FC5A227
 PARSKEL   CMPLX    NPAR   REAL,CPLX,2,(GENERIC,GNO)                                       FC5A227        7     A     
 PARSKEL   DBLE     NLINE  REAL,DBL,1,(GENERIC,GNO)                                        FC5A227        8     A     
 PARSKEL   DMAX1    NLINE  DBL,DBL                                                         PARSKEL      237     A     
 PARSKEL   DMIN1    NLINE  DBL,DBL                                                         PARSKEL      238     A     
 PARSKEL   EQV      NLINE  BOOL,BOOL,,(NONANSI)                                            PARSKEL      239     A     
 PARSKEL   FLOAT    NLINE  INT,REAL,1                                                      PARSKEL      240     A     
 PARSKEL   ICHAR    EXTBF  CHAR,INT,1,(BYN,CHAR)                                           PARSKEL      241     A     
 PARSKEL   IDINT    NLINE  DBL,INT,1                                                       PARSKEL      242     A     
 PARSKEL   IFIX     NLINE  REAL,INT,1                                                      PARSKEL      243     A     
 PARSKEL   INT      NLINE  REAL,INT,1,(GENERIC)                                            PARSKEL      244     A     
 PARSKEL   LGE      NPAR   CHAR,LOG,2,(BYN)                                                PARSKEL      245     A     
 PARSKEL   LGT      NPAR   CHAR,LOG,2,(BYN)                                                PARSKEL      246     A     
 PARSKEL   LLE      NPAR   CHAR,LOG,2,(BYN)                                                PARSKEL      247     A     
 PARSKEL   LLT      NPAR   CHAR,LOG,2,(BYN)                                                PARSKEL      248     A     
 PARSKEL   MAX      EXTBF  INT,INT,,(GENERIC)                                              PARSKEL      249          I
          -FC5A227
 PARSKEL   LOCF$    EXTBF  CHAR,BOOL,1,(BYN)       **FCL ANY B-REGS ?                      FC5A227        9          I
          -FC50168
 PARSKEL   LOCF$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                                 FC50168       23     A     
 PARSKEL   LOCF     NPAR   BOOL,BOOL,1,(GEN,NANS)                                          FC5A227       10     A     
 PARSKEL   MAX      EXTBF  INT,INT,,(GENERIC,GNO)                                          FC5A227       11     A     
 PARSKEL   MAX0     NLINE  INT,INT                                                         PARSKEL      250     A     
 PARSKEL   MAX1     NLINE  REAL,INT                                                        PARSKEL      251     A     
 PARSKEL   MIN      EXTBF  INT,INT,,(GENERIC)                                              PARSKEL      252          I
          -FC5A227
 PARSKEL   MIN      EXTBF  INT,INT,,(GENERIC,GNO)                                          FC5A227       12     A     
 PARSKEL   MIN0     NLINE  INT,INT                                                         PARSKEL      253     A     
 PARSKEL   MIN1     NLINE  REAL,INT                                                        PARSKEL      254     A     
 PARSKEL   NEQV     NLINE  BOOL,BOOL,,(NONANSI)                                            PARSKEL      255     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   OR       NLINE  BOOL,BOOL,,(NONANSI)                                            PARSKEL      256     A     
 PARSKEL   REAL     NLINE  CPLX,REAL,1,(GENERIC)                                           PARSKEL      257     A     
 PARSKEL   SNGL     NLINE  DBL,REAL,1                                                      PARSKEL      258     A     
 PARSKEL   XOR      NLINE  BOOL,BOOL,,(NONANSI)                                            PARSKEL      259     A     
 PARSKEL   LOG      EXTBF  REAL,REAL,1,(GENERIC,GNO)                                       FC5A227       13     A     
 PARSKEL   LOG10    EXTBF  REAL,REAL,1,(GENERIC,GNO)                                       FC5A227       14     A     
 PARSKEL   SUM1S    NLINE  BOOL,BOOL,1,(NONANSI)                                           FC5A496        8     A     
 PARSKEL            QUAL                                                                   PARSKEL      260     A     
 PARSKEL   Z.INTA   BSSENT 0           ABOVE CANNOT BE ACTUAL ARGUMENTS                    PARSKEL      261     A     
 PARSKEL            QUAL   *                                                               PARSKEL      262     A     
 PARSKEL                                                                                   PARSKEL      263     A     
 PARSKEL   ABS      NLINE  REAL,REAL,1,(GENERIC)                                           PARSKEL      264     A     
 PARSKEL   AIMAG    NLINE  CPLX,REAL,1                                                     PARSKEL      265     A     
 PARSKEL   AINT     NLINE  REAL,REAL,1,(GENERIC)                                           PARSKEL      266     A     
 PARSKEL   AMOD     NLINE  REAL,REAL,2                                                     PARSKEL      267     A     
 PARSKEL   ANINT    NLINE  REAL,REAL,1,(GENERIC)                                           PARSKEL      268     A     
 PARSKEL   CABS     EXTBF  CPLX,REAL,1                                                     PARSKEL      269     A     
 PARSKEL   COMPL    NLINE  BOOL,BOOL,1,(NONANSI)                                           PARSKEL      270     A     
 PARSKEL   CONJG    NLINE  CPLX,CPLX,1                                                     PARSKEL      271     A     
 PARSKEL   DABS     NLINE  DBL,DBL,1                                                       PARSKEL      272     A     
 PARSKEL   DDIM     NLINE  DBL,DBL,2                                                       PARSKEL      273     A     
 PARSKEL   DIM      NLINE  REAL,REAL,2,(GENERIC)                                           PARSKEL      274     A     
 PARSKEL   DINT     NLINE  DBL,DBL,1                                                       PARSKEL      275     A     
 PARSKEL   DMOD     EXTBF  DBL,DBL,2                                                       PARSKEL      276     A     
 PARSKEL   DNINT    NLINE  DBL,DBL,1                                                       PARSKEL      277     A     
 PARSKEL   DPROD    NLINE  REAL,DBL,2                                                      PARSKEL      278     A     
 PARSKEL   DSIGN    NLINE  DBL,DBL,2                                                       PARSKEL      279     A     
 PARSKEL   IABS     NLINE  INT,INT,1                                                       PARSKEL      280     A     
 PARSKEL   IDIM     NLINE  INT,INT,2                                                       PARSKEL      281     A     
 PARSKEL   V=IDNINT EQU    V=IDNIN                                                         PARSKEL      282     A     
 PARSKEL   IDNINT   NLINE  DBL,INT,1                                                       PARSKEL      283     A     
 PARSKEL   INDEX    EXTBF  CHAR,INT,2,(BYN)                                                PARSKEL      284     A     
 PARSKEL   ISIGN    NLINE  INT,INT,2                                                       PARSKEL      285     A     
 PARSKEL   LEN$     EXTBF  CHAR,INT,1,(BYN)        **FCL ANY B-REGS ?                      PARSKEL      286          I
          -FC50168
 PARSKEL   LEN$     EXTBF  CHAR,INT,1,(BYN),(2,3,4,5,6,7)                                  FC50168       24     A     
 PARSKEL   LEN      NPAR   CHAR,INT,1                                                      PARSKEL      287     A     
 PARSKEL   LOCF$    EXTBF  CHAR,BOOL,1,(BYN)       **FCL ANY B-REGS ?                      PARSKEL      288          I
          -FC5A227
 PARSKEL   LOCF     NPAR   BOOL,BOOL,1,(GEN,NANS)                                          PARSKEL      289          I
          -FC5A227
 PARSKEL   MASK     NPAR   INT,BOOL,1,(NONANSI)                                            PARSKEL      290     A     
 PARSKEL   MOD      NLINE  INT,INT,2,(GENERIC)                                             PARSKEL      291     A     
 PARSKEL   NINT     NLINE  REAL,INT,1,(GENERIC)                                            PARSKEL      292     A     
 PARSKEL   RANF     NPAR   BOOL,REAL,0,(NONANSI)                                           PARSKEL      293     A     
 PARSKEL   SECOND   EXTBF  BOOL,REAL,0,(BYN,NANS),(2,3,4,5,6,7)                            PARSKEL      294     A     
 PARSKEL   SHIFT    NPAR   BOOL,BOOL,2,(NONANSI)                                           PARSKEL      295     A     
 PARSKEL   SIGN     NLINE  REAL,REAL,2,(GENERIC)                                           PARSKEL      296     A     
 PARSKEL                                                                                   PARSKEL      297     A     
 PARSKEL  *                            MATH LIBRARY INTRINSICS.                            PARSKEL      298     A     
 PARSKEL                                                                                   PARSKEL      299     A     
 PARSKEL   SQRT     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   DSQRT    EXTBF  DBL,DBL,1                                                       PARSKEL      301     A     
 PARSKEL   CSQRT    EXTBF  CPLX,CPLX,1                                                     PARSKEL      302     A     
 PARSKEL   EXP      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      303     A     
 PARSKEL   DEXP     EXTBF  DBL,DBL,1,,(5,6,7)                                              PARSKEL      304     A     
 PARSKEL   CEXP     EXTBF  CPLX,CPLX,1                                                     PARSKEL      305     A     
 PARSKEL   LOG      EXTBF  REAL,REAL,1,(GENERIC)                                           PARSKEL      306          I
          -FC5A227
 PARSKEL   ALOG     EXTBF  REAL,REAL,1,,(5,6,7)                                            PARSKEL      307     A     
 PARSKEL   DLOG     EXTBF  DBL,DBL,1                                                       PARSKEL      308     A     
 PARSKEL   CLOG     EXTBF  CPLX,CPLX,1                                                     PARSKEL      309     A     
 PARSKEL   LOG10    EXTBF  REAL,REAL,1,(GENERIC)                                           PARSKEL      310          I
          -FC5A227
 PARSKEL   ALOG10   EXTBF  REAL,REAL,1,,(5,6,7)                                            PARSKEL      311     A     
 PARSKEL   DLOG10   EXTBF  DBL,DBL,1                                                       PARSKEL      312     A     
 PARSKEL                                                                                   PARSKEL      313     A     
 PARSKEL   SIN      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      314     A     
 PARSKEL   DSIN     EXTBF  DBL,DBL,1                                                       PARSKEL      315     A     
 PARSKEL   CSIN     EXTBF  CPLX,CPLX,1                                                     PARSKEL      316     A     
 PARSKEL   SIND     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS                  PARSKEL      317     A     
 PARSKEL   COS      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      318     A     
 PARSKEL   DCOS     EXTBF  DBL,DBL,1                                                       PARSKEL      319     A     
 PARSKEL   CCOS     EXTBF  CPLX,CPLX,1                                                     PARSKEL      320     A     
 PARSKEL   COSD     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS                  PARSKEL      321     A     
 PARSKEL   TAN      EXTBF  REAL,REAL,1,(GENERIC)                                           PARSKEL      322     A     
 PARSKEL   DTAN     EXTBF  DBL,DBL,1                                                       PARSKEL      323     A     
 PARSKEL   TAND     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS                  PARSKEL      324     A     
 PARSKEL                                                                                   PARSKEL      325     A     
 PARSKEL   ASIN     EXTBF  REAL,REAL,1,(GENERIC),(6,7)                                     PARSKEL      326     A     
 PARSKEL   DASIN    EXTBF  DBL,DBL,1                                                       PARSKEL      327     A     
 PARSKEL   ACOS     EXTBF  REAL,REAL,1,(GENERIC),(6,7)                                     PARSKEL      328     A     
 PARSKEL   DACOS    EXTBF  DBL,DBL,1                                                       PARSKEL      329     A     
 PARSKEL   ATAN     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      330     A     
 PARSKEL   DATAN    EXTBF  DBL,DBL,1                                                       PARSKEL      331     A     
 PARSKEL   ATAN2    EXTBF  REAL,REAL,2,(GENERIC),(5,6,7)                                   PARSKEL      332     A     
 PARSKEL   DATAN2   EXTBF  DBL,DBL,2                                                       PARSKEL      333     A     
 PARSKEL                                                                                   PARSKEL      334     A     
 PARSKEL   SINH     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      335     A     
 PARSKEL   DSINH    EXTBF  DBL,DBL,1,,(6,7)                                                PARSKEL      336     A     
 PARSKEL   COSH     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                                   PARSKEL      337     A     
 PARSKEL   DCOSH    EXTBF  DBL,DBL,1,,(6,7)                                                PARSKEL      338     A     
 PARSKEL   TANH     EXTBF  REAL,REAL,1,(GENERIC)                                           PARSKEL      339     A     
 PARSKEL   DTANH    EXTBF  DBL,DBL,1,,(6,7)                                                PARSKEL      340     A     
 PARSKEL   ATANH    EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS                  PARSKEL      341     A     
 PARSKEL                                                                                   PARSKEL      342     A     
 PARSKEL   ERF      EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS                  PARSKEL      343     A     
 PARSKEL   ERFC     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS                  PARSKEL      344     A     
 PARSKEL                                                                                   PARSKEL      345     A     
 PARSKEL            QUAL   *                                                               PARSKEL      346     A     
 PARSKEL   Z.INTF   BSSENT 0           LENGTH OF INTRINSIC TABLE                           PARSKEL      347     A     
 PARSKEL            LOC    *O                                                              PARSKEL      348     A     
 PARSKEL   OMI=CPX  EQUENT /INTF/CMPLX                                                     PARSKEL      349     A     
 PARSKEL   OMI=LEN  EQUENT /INTF/LEN$                                                      PARSKEL      350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   OMI=SHF  EQUENT /INTF/SHIFT                                                     PARSKEL      351     A     
 PARSKEL   OMI=LCF  EQUENT /INTF/LOCF$                                                     PARSKEL      352     A     
 PARSKEL   GENF     SPACE  4,10                                                            PARSKEL      353     A     
 PARSKEL  **        GENF - MODE SELECTION VECTORS FOR GENERIC INTRINSICS.                  PARSKEL      354     A     
 PARSKEL  *                                                                                PARSKEL      355     A     
 PARSKEL  * NAME    GENF   B,I,R,D,Z,H,L                                                   PARSKEL      356     A     
 PARSKEL  *                                                                                PARSKEL      357     A     
 PARSKEL  *         ENTRY  B,I,R,D,Z,H,L = SPECIFIC NAME FOR EACH TYPE --                  PARSKEL      358     A     
 PARSKEL  *                            BOOL, INT, REAL, DBL, CPLX, CHAR, LOG.              PARSKEL      359     A     
 PARSKEL  *                NOTE THAT TRAILING ILLEGAL ENTRIES MAY BE OMITTED.              PARSKEL      360     A     
 PARSKEL  *                                                                                PARSKEL      361     A     
 PARSKEL  *         THIS MACRO FILLS IN THE SLOT LEFT IN (F.INTF), AFTER THE ENTRY         PARSKEL      362     A     
 PARSKEL  *         FOR THE GENERIC NAME, WITH A MODE SELECTION VECTOR.                    PARSKEL      363     A     
 PARSKEL  *         OBVIOUSLY THEN, THERE MUST BE A *GENF* MACRO CALL FOR EACH             PARSKEL      364     A     
 PARSKEL  *         INTRINSIC FUNCTION MARKED *GENERIC*.                                   PARSKEL      365     A     
 PARSKEL                                                                                   PARSKEL      366     A     
 PARSKEL                                                                                   PARSKEL      367     A     
 PARSKEL            MACRO  GENF,NAM,B,I,R,D,Z,H,L                                          PARSKEL      368     A     
 PARSKEL   E        MICRO                                                                  PARSKEL      369     A     
 PARSKEL  *                                                                                PARSKEL      370     A     
 PARSKEL   .1       ECHO   ,P=(H,Z,D,R,I,L,B)                                              PARSKEL      371     A     
 PARSKEL            IFC    NE,/P//,1                                                       PARSKEL      372     A     
 PARSKEL            IFC    EQ,/P/-/,2                                                      PARSKEL      373     A     
 PARSKEL   E        MICRO  1,,\"E"8/-0,\                                                   PARSKEL      374     A     
 PARSKEL            SKIP   4                                                               PARSKEL      375     A     
 PARSKEL            IFC    EQ,/P/****/,2                                                   PARSKEL      376     A     
 PARSKEL   E        MICRO  1,,\"E"8/0,\                                                    PARSKEL      377     A     
 PARSKEL            SKIP   1                                                               PARSKEL      378     A     
 PARSKEL   E        MICRO  1,,\"E"8//INTF/P,\                                              PARSKEL      379     A     
 PARSKEL   .1       ENDD                                                                   PARSKEL      380     A     
 PARSKEL  *                                                                                PARSKEL      381     A     
 PARSKEL            ORG    F.INTF+/INTF/NAM+1                                              PARSKEL      382     A     
 PARSKEL            VFD    4/,"E"                                                          PARSKEL      383     A     
 PARSKEL            ENDM                                                                   PARSKEL      384     A     
 PARSKEL                                                                                   PARSKEL      385     A     
 PARSKEL                                                                                   PARSKEL      386     A     
 PARSKEL   BOOL     GENF   ****,****,****,DTOB$,CTOB$,BOOL$                                PARSKEL      387          I
          -FC50168
 PARSKEL   INT      GENF   ****,****,INT,IDINT,CTOI$,-                                     PARSKEL      388          I
          -FC50168
 PARSKEL   BOOL     GENF   ****,****,****,DTOB.,CTOB.,BOOL$                                FC50168       25     A     
 PARSKEL   INT      GENF   ****,****,INT,IDINT,CTOI.,-                                     FC50168       26     A     
 PARSKEL   REAL     GENF   ****,FLOAT,****,SNGL,REAL,-                                     PARSKEL      389     A     
 PARSKEL   DBLE     GENF   BTOD$,ITOD$,DBLE,****,CTOD$,-                                   PARSKEL      390          I
          -FC50168
 PARSKEL   CMPL$    GENF   BTOC$,ITOC$,RTOC$,DTOC$,****,-                                  PARSKEL      391          I
          -FC50168
 PARSKEL   DBLE     GENF   BTOD.,ITOD.,DBLE,****,CTOD.,-                                   FC50168       27     A     
 PARSKEL   CMPL.    GENF   BTOC.,ITOC.,RTOC.,DTOC.,****,-                                  FC50168       28     A     
 PARSKEL   CMPLX    GENF   CMPLX,CMPLX,CMPLX,CMPLX,-,-                                     PARSKEL      392     A     
 PARSKEL  *                            MODE CONVERSION FOR CMPLX DONE IN PAR/ESF.          PARSKEL      393     A     
 PARSKEL                                                                                   PARSKEL      394     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
 PARSKEL   ABS      GENF   IABS,IABS,ABS,DABS,CABS,-                                       PARSKEL      395     A     
 PARSKEL   AINT     GENF   -,-,AINT,DINT,-,-                                               PARSKEL      396     A     
 PARSKEL   ANINT    GENF   -,-,ANINT,DNINT,-,-                                             PARSKEL      397     A     
 PARSKEL   DIM      GENF   DIM,IDIM,DIM,DDIM,-,-                                           PARSKEL      398     A     
 PARSKEL   LOCF     GENF   LOCF,LOCF,LOCF,LOCF,LOCF,LOCF,LOCF                              PARSKEL      399     A     
 PARSKEL   MOD      GENF   MOD,MOD,AMOD,DMOD,-,-                                           PARSKEL      400     A     
 PARSKEL   MAX      GENF   MAX0,MAX0,AMAX1,DMAX1,-,-                                       PARSKEL      401     A     
 PARSKEL   MIN      GENF   MIN0,MIN0,AMIN1,DMIN1,-,-                                       PARSKEL      402     A     
 PARSKEL   NINT     GENF   -,-,NINT,IDNINT,-,-                                             PARSKEL      403     A     
 PARSKEL   SIGN     GENF   ISIGN,ISIGN,SIGN,DSIGN,-,-                                      PARSKEL      404     A     
 PARSKEL                                                                                   PARSKEL      405     A     
 PARSKEL   SQRT     GENF   -,-,SQRT,DSQRT,CSQRT,-                                          PARSKEL      406     A     
 PARSKEL   EXP      GENF   -,-,EXP,DEXP,CEXP,-                                             PARSKEL      407     A     
 PARSKEL   LOG      GENF   -,-,ALOG,DLOG,CLOG,-                                            PARSKEL      408     A     
 PARSKEL   LOG10    GENF   -,-,ALOG10,DLOG10,-,-                                           PARSKEL      409     A     
 PARSKEL   SIN      GENF   -,-,SIN,DSIN,CSIN,-                                             PARSKEL      410     A     
 PARSKEL   COS      GENF   -,-,COS,DCOS,CCOS,-                                             PARSKEL      411     A     
 PARSKEL   TAN      GENF   -,-,TAN,DTAN,-,-                                                PARSKEL      412     A     
 PARSKEL   ASIN     GENF   -,-,ASIN,DASIN,-,-                                              PARSKEL      413     A     
 PARSKEL   ACOS     GENF   -,-,ACOS,DACOS,-,-                                              PARSKEL      414     A     
 PARSKEL   ATAN     GENF   -,-,ATAN,DATAN,-,-                                              PARSKEL      415     A     
 PARSKEL   ATAN2    GENF   -,-,ATAN2,DATAN2,-,-                                            PARSKEL      416     A     
 PARSKEL   SINH     GENF   -,-,SINH,DSINH,-,-                                              PARSKEL      417     A     
 PARSKEL   COSH     GENF   -,-,COSH,DCOSH,-,-                                              PARSKEL      418     A     
 PARSKEL   TANH     GENF   -,-,TANH,DTANH,-,-                                              PARSKEL      419     A     
 PARSKEL            ORG    F.INTF+Z.INTF                                                   PARSKEL      420     A     
 PARSKEL   F.IMCV   SPACE  4,10                                                            PARSKEL      421     A     
 PARSKEL  **        F.IMCV - TABLE OF INTRINSICS REQUIRING MODE CONVERSION.                PARSKEL      422     A     
 PARSKEL  *                                                                                PARSKEL      423     A     
 PARSKEL  *         THE ARITHMETIC FOR THE FOLLOWING INLINE INTRINSICS IS                  PARSKEL      424     A     
 PARSKEL  *         PERFORMED IN THE MODE OF THE ARGUMENTS.  THE PARTIAL                   PARSKEL      425     A     
 PARSKEL  *         RESULT MUST THEREFORE BE CONVERTED INTO THE RESULT MODE                PARSKEL      426     A     
 PARSKEL  *         OF THE FUNCTION.                                                       PARSKEL      427     A     
 PARSKEL  *                                                                                PARSKEL      428     A     
 PARSKEL  *         PAR/VIL SCANS THIS TABLE TO DETERMINE IF SUCH ACTION IS                PARSKEL      429     A     
 PARSKEL  *         REQUIRED, AND, IF SO, WHAT CONVERSION SKELETON TO USE.                 PARSKEL      430     A     
 PARSKEL                                                                                   PARSKEL      431     A     
 PARSKEL                                                                                   PARSKEL      432     A     
 PARSKEL   F.IMCV   BSSENT             INTRINSICS TO MODE CONVERT                          PARSKEL      433     A     
 PARSKEL            VFD    24//INTF/AMAX0,18/V=ITOR-OM=CONV,18/M.REAL                      PARSKEL      434     A     
 PARSKEL            VFD    24//INTF/AMIN0,18/V=ITOR-OM=CONV,18/M.REAL                      PARSKEL      435     A     
 PARSKEL            VFD    24//INTF/_MAX1,18/V=RTOI-OM=CONV,18/M.INT                       PARSKEL      436     A     
 PARSKEL            VFD    24//INTF/_MIN1,18/V=RTOI-OM=CONV,18/M.INT                       PARSKEL      437     A     
 PARSKEL   Z.IMCV   EQUENT *-F.IMCV                                                        PARSKEL      438     A     
 PARSKEL                                                                                   PARSKEL      439     A     
 PARSKEL                                                                                   PARSKEL      440     A     
 PARSKEL   PARSKEL  ENDX                                                                   PARSKEL      441     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PARSKEL 
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSKEL 
  
          PARSKEL                    441       410
          FC5A227                      9         8
          FC50168                     24        24
          FC5A496                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL     *COMDECK  SKEL - INSTRUCTION SKELETON EXPANSIONS.                                SKEL           1     A     
 SKEL               CTEXT  SKEL - INSTRUCTION SKELETON EXPANSIONS.                         SKEL           2     A     
 SKEL                                                                                      SKEL           3     A     
 SKEL                                                                                      SKEL           4     A     
 SKEL     ***       SKEL - INSTRUCTION SKELETON EXPANSIONS.                                SKEL           5     A     
 SKEL     *                                                                                SKEL           6     A     
 SKEL     *         THE SKELETONS DESCRIBE TO PASS 2 (QCG OR BRIDGE) WHAT                  SKEL           7     A     
 SKEL     *         PREBINARY INSTRUCTIONS SHOULD BE ISSUED IN RESPONSE TO                 SKEL           8     A     
 SKEL     *         A PARTICULAR TURPLE.                                                   SKEL           9     A     
 SKEL                                                                                      SKEL          10     A     
 SKEL     ILL       SKEL                                                                   SKEL          11     A     
 SKEL               CALL   ILL                                                             SKEL          12     A     
 SKEL               ENDS                                                                   SKEL          13     A     
 SKEL                                                                                      SKEL          14     A     
 SKEL                                                                                      SKEL          15     A     
 SKEL                                                                                      SKEL          16     A     
 SKEL                                                                                      SKEL          17     A     
 SKEL      ADD.I    SKEL                                                                   SKEL          18     A     
 SKEL               IA     R1,L1,L2                                                        SKEL          19     A     
 SKEL               ENDS                                                                   SKEL          20     A     
 SKEL                                                                                      SKEL          21     A     
 SKEL      ADD.R    SKEL                                                                   SKEL          22     A     
 SKEL               FAR    T1,L1,L2                                                        SKEL          23     A     
 SKEL               NR     R1,0,T1                                                         SKEL          24     A     
 SKEL               ENDS                                                                   SKEL          25     A     
 SKEL                                                                                      SKEL          26     A     
 SKEL      ADD.D    SKEL                                                                   SKEL          27     A     
 SKEL               FA     T1,LU1,LU2                                                      SKEL          28     A     
 SKEL               DFA    T2,LU1,LU2                                                      SKEL          29     A     
 SKEL               FA     T3,LL1,LL2                                                      SKEL          30     A     
 SKEL      ADD.D1   NR     T4,0,T1                                                         SKEL          31     A     
 SKEL               FA     T5,T2,T3                                                        SKEL          32     A     
 SKEL               FA     T6,T4,T5                                                        SKEL          33     A     
 SKEL               NR     T7,0,T6                                                         SKEL          34     A     
 SKEL               DFA    T8,T4,T5                                                        SKEL          35     A     
 SKEL               NR     T9,0,T8                                                         SKEL          36     A     
 SKEL               FA     RU1,T7,T9                                                       SKEL          37     A     
 SKEL               DFA    RL1,T7,T9                                                       SKEL          38     A     
 SKEL               ENDS                                                                   SKEL          39     A     
 SKEL                                                                                      SKEL          40     A     
 SKEL      ADD.C    SKEL                                                                   SKEL          41     A     
 SKEL               FAR    T1,LU1,LU2                                                      SKEL          42     A     
 SKEL               NR     RU1,0,T1                                                        SKEL          43     A     
 SKEL               FAR    T2,LL1,LL2                                                      SKEL          44     A     
 SKEL               NR     RL1,0,T2                                                        SKEL          45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               ENDS                                                                   SKEL          46     A     
 SKEL                                                                                      SKEL          47     A     
 SKEL      ADD.B    SKEQU  ADD.I                                                           SKEL          48     A     
 SKEL      SUBTR.   SPACE  4,8                                                             SKEL          49     A     
 SKEL     *         SUBTRACT INSTRUCTIONS.                                                 SKEL          50     A     
 SKEL                                                                                      SKEL          51     A     
 SKEL                                                                                      SKEL          52     A     
 SKEL      SUB.I    SKEL                                                                   SKEL          53     A     
 SKEL               IS     R1,L1,L2                                                        SKEL          54     A     
 SKEL               ENDS                                                                   SKEL          55     A     
 SKEL                                                                                      SKEL          56     A     
 SKEL      SUB.R    SKEL                                                                   SKEL          57     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL          58     A     
 SKEL               NR     R1,0,T1                                                         SKEL          59     A     
 SKEL               ENDS                                                                   SKEL          60     A     
 SKEL                                                                                      SKEL          61     A     
 SKEL      SUB.D    SKEL                                                                   SKEL          62     A     
 SKEL               FS     T1,LU1,LU2                                                      SKEL          63     A     
 SKEL               DFS    T2,LU1,LU2                                                      SKEL          64     A     
 SKEL               FS     T3,LL1,LL2                                                      SKEL          65     A     
 SKEL               BRANCH ADD.D1,(T1,T2,T3)                                               SKEL          66     A     
 SKEL               ENDS                                                                   SKEL          67     A     
 SKEL                                                                                      SKEL          68     A     
 SKEL      SUB.C    SKEL                                                                   SKEL          69     A     
 SKEL               FSR    T1,LU1,LU2                                                      SKEL          70     A     
 SKEL               NR     RU1,0,T1                                                        SKEL          71     A     
 SKEL               FSR    T2,LL1,LL2                                                      SKEL          72     A     
 SKEL               NR     RL1,0,T2                                                        SKEL          73     A     
 SKEL               ENDS                                                                   SKEL          74     A     
 SKEL                                                                                      SKEL          75     A     
 SKEL      SUB.B    SKEQU  SUB.I                                                           SKEL          76     A     
 SKEL      MULT.    SPACE  4,8                                                             SKEL          77     A     
 SKEL     *         MULTIPLY INSTRUCTIONS.                                                 SKEL          78     A     
 SKEL                                                                                      SKEL          79     A     
 SKEL                                                                                      SKEL          80     A     
 SKEL                                                                                      SKEL          81     A     
 SKEL      MUL.I    SKEL   IMVC                                                            SKEL          82     A     
 SKEL               CALL   IM                                                              SKEL          83     A     
 SKEL               ENDS                                                                   SKEL          84     A     
 SKEL                                                                                      SKEL          85     A     
 SKEL      IMVC     SUBSKEL                                                                SKEL          86     A     
 SKEL               IM     R1,L1,L2                                                        SKEL          87     A     
 SKEL               ENDS                                                                   SKEL          88     A     
 SKEL                                                                                      SKEL          89     A     
 SKEL      IMV      SUBEQU IMVC                                                            SKEL          90     A     
 SKEL                                                                                      SKEL          91     A     
 SKEL     *         OPERATIONS THAT UTILIZE THE SHIFT INSTRUCTION.                         SKEL          92     A     
 SKEL     *         INTEGER MULTIPLY SKELETONS.                                            SKEL          93     A     
 SKEL                                                                                      SKEL          94     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        FC5A128       16     A     
 SKEL      IM2      SUBSKEL                                                                SKEL          95     A     
 SKEL     *         MULTIPLY BY 2.                                                         SKEL          96     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               IA     R1,L1,L1                                                        SKEL          97     A     
 SKEL               ENDS                                                                   SKEL          98     A     
 SKEL      #CD      ENDIF                                                                  FC5A128       17     A     
 SKEL                                                                                      SKEL          99     A     
 SKEL      SHFC     SUBSKEL                                                                SKEL         100     A     
 SKEL     *         MULTIPLY POWER OF 2.                                                   SKEL         101     A     
 SKEL               KLS    T2,L1,GP1                                                       SKEL         102     A     
 SKEL               XMT    R1,T2                                                           SKEL         103     A     
 SKEL               ENDS                                                                   SKEL         104     A     
 SKEL                                                                                      SKEL         105     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        FC5A128       18     A     
 SKEL      SHFS     SUBSKEL                                                                SKEL         106     A     
 SKEL     *         MULTIPLY SUM OF TWO POWERS OF 2.                                       SKEL         107     A     
 SKEL               KLS    T2,L1,GP2                                                       SKEL         108     A     
 SKEL               IA     T3,T2,L1                                                        SKEL         109     A     
 SKEL               KLS    T5,T3,GP1                                                       SKEL         110     A     
 SKEL               XMT    R1,T5                                                           SKEL         111     A     
 SKEL               ENDS                                                                   SKEL         112     A     
 SKEL                                                                                      SKEL         113     A     
 SKEL      SHFD     SUBSKEL                                                                SKEL         114     A     
 SKEL     *         MULTIPLY DIFFERENCE OF TWO POWERS OF 2.                                SKEL         115     A     
 SKEL               KLS    T2,L1,GP1                                                       SKEL         116     A     
 SKEL               KLS    T4,L1,GP2                                                       SKEL         117     A     
 SKEL               IS     R1,T4,T2                                                        SKEL         118     A     
 SKEL               ENDS                                                                   SKEL         119     A     
 SKEL                                                                                      SKEL         120     A     
 SKEL      SHFS1    SUBSKEL                                                                SKEL         121     A     
 SKEL     *         MULTIPLY POWER OF 2 PLUS 1.                                            SKEL         122     A     
 SKEL               KLS    T2,L1,GP1                                                       SKEL         123     A     
 SKEL               IA     R1,T2,L1                                                        SKEL         124     A     
 SKEL               ENDS                                                                   SKEL         125     A     
 SKEL                                                                                      SKEL         126     A     
 SKEL      SHFD1    SUBSKEL                                                                SKEL         127     A     
 SKEL     *         MULTIPLY POWER OF 2 MINUS 1.                                           SKEL         128     A     
 SKEL               KLS    T2,L1,GP1                                                       SKEL         129     A     
 SKEL               IS     R1,T2,L1                                                        SKEL         130     A     
 SKEL               ENDS                                                                   SKEL         131     A     
 SKEL      #CD      ENDIF                                                                  FC5A128       19     A     
 SKEL                                                                                      SKEL         132     A     
 SKEL      MUL.R    SKEL                                                                   SKEL         133     A     
 SKEL               FMR    R1,L1,L2                                                        SKEL         134     A     
 SKEL               ENDS                                                                   SKEL         135     A     
 SKEL                                                                                      SKEL         136     A     
 SKEL      MUL.D    SKEL                                                                   SKEL         137     A     
 SKEL               FM     T1,LL1,LU2                                                      SKEL         138     A     
 SKEL               FM     T2,LU1,LL2                                                      SKEL         139     A     
 SKEL               FA     T3,T1,T2                                                        SKEL         140     A     
 SKEL               FM     T4,LU1,LU2                                                      SKEL         141     A     
 SKEL               DFM    T5,LU1,LU2                                                      SKEL         142     A     
 SKEL               FA     T6,T3,T5                                                        SKEL         143     A     
 SKEL               FA     RU1,T4,T6                                                       SKEL         144     A     
 SKEL               DFA    RL1,T4,T6                                                       SKEL         145     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               ENDS                                                                   SKEL         146     A     
 SKEL                                                                                      SKEL         147     A     
 SKEL      MUL.C    SKEL                                                                   SKEL         148     A     
 SKEL               FMR    T1,LU1,LU2                                                      SKEL         149     A     
 SKEL               FMR    T2,LL1,LL2                                                      SKEL         150     A     
 SKEL               FSR    T3,T1,T2                                                        SKEL         151     A     
 SKEL               NR     RU1,0,T3                                                        SKEL         152     A     
 SKEL               FMR    T4,LU1,LL2                                                      SKEL         153     A     
 SKEL               FMR    T5,LL1,LU2                                                      SKEL         154     A     
 SKEL               FAR    T6,T4,T5                                                        SKEL         155     A     
 SKEL               NR     RL1,0,T6                                                        SKEL         156     A     
 SKEL               ENDS                                                                   SKEL         157     A     
 SKEL                                                                                      SKEL         158     A     
 SKEL      MUL.B    SKEQU  MUL.I                                                           SKEL         159     A     
 SKEL      DIV.     SPACE  4,8                                                             SKEL         160     A     
 SKEL     *         DIVIDE INSTRUCTIONS.                                                   SKEL         161     A     
 SKEL                                                                                      SKEL         162     A     
 SKEL                                                                                      SKEL         163     A     
 SKEL                                                                                      SKEL         164     A     
 SKEL      DIV.I    SKEL   IDVC                                                            SKEL         165     A     
 SKEL               CALL   ID                                                              SKEL         166     A     
 SKEL               ENDS                                                                   SKEL         167     A     
 SKEL                                                                                      SKEL         168     A     
 SKEL      IDVC     SUBSKEL                                                                SKEL         169     A     
 SKEL               PK     T1,0,L2                                                         SKEL         170     A     
 SKEL               NR     T2,0,T1                                                         SKEL         171     A     
 SKEL               PK     T3,0,L1                                                         SKEL         172     A     
 SKEL               FDR    T4,T3,T2                                                        SKEL         173     A     
 SKEL               UP     T5,"TBR",T4                                                     SKEL         174          I
          -FC5A483
 SKEL               ILS    R1,"TBR",T5                                                     SKEL         175          I
          -FC5A483
 SKEL      .IDZ     IFEQ   .IDC,1                                                          FC5A483       26     A     
 SKEL               FMA    T5,60                                                           FC5A483       27     A     
 SKEL               FA     T6,T5,T4                                                        FC5A483       28     A     
 SKEL               UP     T7,"TBR",T6                                                     FC5A483       29     A     
 SKEL               ILS    R1,"TBR",T7                                                     FC5A483       30     A     
 SKEL      .IDZ     ELSE                                                                   FC5A483       31     A     
 SKEL               UP     T5,"TBR",T4                                                     FC5A483       32     A     
 SKEL               ILS    R1,"TBR",T5                                                     FC5A483       33     A     
 SKEL      .IDZ     ENDIF                                                                  FC5A483       34     A     
 SKEL               ENDS                                                                   SKEL         176     A     
 SKEL                                                                                      SKEL         177     A     
 SKEL      IDV      SUBEQU IDVC                                                            SKEL         178     A     
 SKEL                                                                                      SKEL         179     A     
 SKEL      IDP2     SUBSKEL                                                                SKEL         180     A     
 SKEL     *         INTEGER DIVIDE BY POWER OF 2 SKELETON.                                 SKEL         181     A     
 SKEL               KRS    T2,L1,GP1                                                       SKEL         182     A     
 SKEL               XMT    R1,T2                                                           SKEL         183     A     
 SKEL               ENDS                                                                   SKEL         184     A     
 SKEL                                                                                      SKEL         185     A     
 SKEL      DIV.R    SKEL                                                                   SKEL         186     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               FDR    R1,L1,L2                                                        SKEL         187     A     
 SKEL               ENDS                                                                   SKEL         188     A     
 SKEL                                                                                      SKEL         189     A     
 SKEL      DIV.D    SKEL                                                                   SKEL         190     A     
 SKEL               FD     T1,LU1,LU2                                                      SKEL         191     A     
 SKEL               FM     T2,T1,LU2                                                       SKEL         192     A     
 SKEL               FS     T3,LU1,T2                                                       SKEL         193     A     
 SKEL               DFS    T4,LU1,T2                                                       SKEL         194     A     
 SKEL               NR     T5,0,T3                                                         SKEL         195     A     
 SKEL               FA     T6,T4,T5                                                        SKEL         196     A     
 SKEL               DFM    T7,T1,LU2                                                       SKEL         197     A     
 SKEL               FS     T8,LL1,T7                                                       SKEL         198     A     
 SKEL               FA     T9,T6,T8                                                        SKEL         199     A     
 SKEL               FM     T10,T1,LL2                                                      SKEL         200     A     
 SKEL               FS     T11,T9,T10                                                      SKEL         201     A     
 SKEL               FD     T12,T11,LU2                                                     SKEL         202     A     
 SKEL               FA     T13,T1,T12                                                      SKEL         203     A     
 SKEL               NR     T14,0,T13                                                       SKEL         204     A     
 SKEL               DFA    T15,T1,T12                                                      SKEL         205     A     
 SKEL               FA     RU1,T15,T14                                                     SKEL         206     A     
 SKEL               DFA    RL1,T15,T14                                                     SKEL         207     A     
 SKEL               ENDS                                                                   SKEL         208     A     
 SKEL                                                                                      SKEL         209     A     
 SKEL      DIV.C    SKEL                                                                   SKEL         210     A     
 SKEL               FMR    T1,LU1,LL2                                                      SKEL         211     A     
 SKEL               FMR    T2,LL1,LU2                                                      SKEL         212     A     
 SKEL               FSR    T3,T2,T1                                                        SKEL         213     A     
 SKEL               NR     T4,0,T3                                                         SKEL         214     A     
 SKEL               FMR    T5,LU1,LU2                                                      SKEL         215     A     
 SKEL               FMR    T6,LL1,LL2                                                      SKEL         216     A     
 SKEL               FAR    T7,T5,T6                                                        SKEL         217     A     
 SKEL               NR     T8,0,T7                                                         SKEL         218     A     
 SKEL               FMR    T9,LU2,LU2                                                      SKEL         219     A     
 SKEL               FMR    T10,LL2,LL2                                                     SKEL         220     A     
 SKEL               FAR    T11,T9,T10                                                      SKEL         221     A     
 SKEL               NR     T12,0,T11                                                       SKEL         222     A     
 SKEL               FDR    RU1,T8,T12                                                      SKEL         223     A     
 SKEL               FDR    RL1,T4,T12                                                      SKEL         224     A     
 SKEL               ENDS                                                                   SKEL         225     A     
 SKEL                                                                                      SKEL         226     A     
 SKEL      DIV.B    SKEQU  DIV.I                                                           SKEL         227     A     
 SKEL                                                                                      FC5A150        8     A     
 SKEL      DVC.R    SKEL               SPECIAL COMPLEX/REAL                                FC5A150        9     A     
 SKEL               FDR    RU1,LU1,L2                                                      FC5A150       10     A     
 SKEL               FDR    RL1,LL1,L2                                                      FC5A150       11     A     
 SKEL               ENDS                                                                   FC5A150       12     A     
 SKEL                                                                                      FC5A150       13     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        FC5A150       14     A     
 SKEL      DIR.R    SKEL               SPECIAL REAL ROUNDED DIVIDE FOR 1/CON               FC5A150       15     A     
 SKEL               RFD    R1,L1,L2                                                        FC5A150       16     A     
 SKEL               ENDS                                                                   FC5A150       17     A     
 SKEL                                                                                      FC5A150       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      DIR.C    SKEL               SPECIAL ROUNDED DIVIDE FOR 1/CON                    FC5A150       19     A     
 SKEL               FMR    T1,LU1,LL2                                                      FC5A150       20     A     
 SKEL               FMR    T2,LL1,LU2                                                      FC5A150       21     A     
 SKEL               FSR    T3,T2,T1                                                        FC5A150       22     A     
 SKEL               NR     T4,0,T3                                                         FC5A150       23     A     
 SKEL               FMR    T5,LU1,LU2                                                      FC5A150       24     A     
 SKEL               FMR    T6,LL1,LL2                                                      FC5A150       25     A     
 SKEL               FAR    T7,T5,T6                                                        FC5A150       26     A     
 SKEL               NR     T8,0,T7                                                         FC5A150       27     A     
 SKEL               FMR    T9,LU2,LU2                                                      FC5A150       28     A     
 SKEL               FMR    T10,LL2,LL2                                                     FC5A150       29     A     
 SKEL               FAR    T11,T9,T10                                                      FC5A150       30     A     
 SKEL               NR     T12,0,T11                                                       FC5A150       31     A     
 SKEL               RFD    RU1,T8,T12                                                      FC5A150       32     A     
 SKEL               RFD    RL1,T4,T12                                                      FC5A150       33     A     
 SKEL               ENDS                                                                   FC5A150       34     A     
 SKEL      #CD      ENDIF                                                                  FC5A150       35     A     
 SKEL      UMIN.    SPACE  4,8                                                             SKEL         228     A     
 SKEL     *         UNARY MINUS INSTRUCTIONS.                                              SKEL         229     A     
 SKEL                                                                                      SKEL         230     A     
 SKEL                                                                                      SKEL         231     A     
 SKEL                                                                                      SKEL         232     A     
 SKEL      UMI.I    SKEL                                                                   SKEL         233     A     
 SKEL               XMTC   R1,L1                                                           SKEL         234     A     
 SKEL               ENDS                                                                   SKEL         235     A     
 SKEL                                                                                      SKEL         236     A     
 SKEL      UMI.R    SKEQU  UMI.I                                                           SKEL         237     A     
 SKEL                                                                                      SKEL         238     A     
 SKEL      UMI.D    SKEL                                                                   SKEL         239     A     
 SKEL               XMTC   RU1,LU1                                                         SKEL         240     A     
 SKEL               XMTC   RL1,LL1                                                         SKEL         241     A     
 SKEL               ENDS                                                                   SKEL         242     A     
 SKEL                                                                                      SKEL         243     A     
 SKEL      UMI.C    SKEQU  UMI.D                                                           SKEL         244     A     
 SKEL      RELAT    SPACE  4,8                                                             SKEL         245     A     
 SKEL     *         RELATIONAL OPERATORS.                                                  SKEL         246     A     
 SKEL     *                                                                                SKEL         247     A     
 SKEL     *             VAR1 .OP. VAR2 = PERFORM IN VAR MODE, RESULTS = LOGICAL            SKEL         248     A     
 SKEL     *             LOG1 .OP. LOG2 = ILLEGAL.                                          SKEL         249     A     
 SKEL                                                                                      SKEL         250     A     
 SKEL      LT.I     SKEL                                                                   SKEL         251     A     
 SKEL               IS     T1,L1,L2                                                        SKEL         252     A     
 SKEL               CLR    T2                                                              SKEL         253     A     
 SKEL               IAZ    R1,T1,T2                                                        SKEL         254     A     
 SKEL               ENDS                                                                   SKEL         255     A     
 SKEL                                                                                      SKEL         256     A     
 SKEL      LT.R     SKEL                                                                   SKEL         257     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL         258     A     
 SKEL               PNR    R1,0,T1                                                         SKEL         259     A     
 SKEL               ENDS                                                                   SKEL         260     A     
 SKEL                                                                                      SKEL         261     A     
 SKEL      LT.D     SKEL                                                                   SKEL         262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               FS     T1,LL1,LL2                                                      SKEL         263     A     
 SKEL               FS     T2,LU1,LU2                                                      SKEL         264     A     
 SKEL               PNR    T3,0,T2                                                         SKEL         265     A     
 SKEL               DFS    T4,LU1,LU2                                                      SKEL         266     A     
 SKEL               FA     T5,T1,T4                                                        SKEL         267     A     
 SKEL               FA     RU1,T3,T5                                                       SKEL         268     A     
 SKEL               ENDS                                                                   SKEL         269     A     
 SKEL                                                                                      SKEL         270     A     
 SKEL      LT.H     SKEL                                                                   SKEL         271     A     
 SKEL               CALL   HREL                                                            SKEL         272     A     
 SKEL      LTH1     DEF    R1,,"X6."                                                       SKEL         273     A     
 SKEL               ENDS                                                                   SKEL         274     A     
 SKEL                                                                                      SKEL         275     A     
 SKEL      LLT      SKEL               ASCII LT                                            SKEL         276     A     
 SKEL               CALL   HLEX                                                            SKEL         277     A     
 SKEL               BRANCH LTH1                                                            SKEL         278     A     
 SKEL               ENDS                                                                   SKEL         279     A     
 SKEL                                                                                      SKEL         280     A     
 SKEL      LT.B     SKEQU  LT.I                                                            SKEL         281     A     
 SKEL                                                                                      SKEL         282     A     
 SKEL      GE.I     SKEL                                                                   SKEL         283     A     
 SKEL               IS     T1,L1,L2                                                        SKEL         284     A     
 SKEL               CLR    T2                                                              SKEL         285     A     
 SKEL               IAZ    T3,T1,T2                                                        SKEL         286     A     
 SKEL               XMTC   R1,T3                                                           SKEL         287     A     
 SKEL               ENDS                                                                   SKEL         288     A     
 SKEL                                                                                      SKEL         289     A     
 SKEL      GE.R     SKEL                                                                   SKEL         290     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL         291     A     
 SKEL               PNR    T2,0,T1                                                         SKEL         292     A     
 SKEL               XMTC   R1,T2                                                           SKEL         293     A     
 SKEL               ENDS                                                                   SKEL         294     A     
 SKEL                                                                                      SKEL         295     A     
 SKEL      GE.D     SKEL                                                                   SKEL         296     A     
 SKEL               DFS    T1,LU1,LU2                                                      SKEL         297     A     
 SKEL               FS     T2,LU1,LU2                                                      SKEL         298     A     
 SKEL               PNR    T3,0,T2                                                         SKEL         299     A     
 SKEL               FS     T4,LL1,LL2                                                      SKEL         300     A     
 SKEL               FA     T5,T1,T4                                                        SKEL         301     A     
 SKEL               FA     T6,T3,T5                                                        SKEL         302     A     
 SKEL               XMTC   RU1,T6                                                          SKEL         303     A     
 SKEL               ENDS                                                                   SKEL         304     A     
 SKEL                                                                                      SKEL         305     A     
 SKEL      GE.B     SKEQU  GE.I                                                            SKEL         306     A     
 SKEL                                                                                      SKEL         307     A     
 SKEL      GE.H     SKEL                                                                   SKEL         308     A     
 SKEL               CALL   HREL                                                            SKEL         309     A     
 SKEL      GEH1     DEF    T1,,"X6."                                                       SKEL         310     A     
 SKEL               XMTC   R1,T1                                                           SKEL         311     A     
 SKEL               ENDS                                                                   SKEL         312     A     
 SKEL                                                                                      SKEL         313     A     
 SKEL      LGE      SKEL               ASCII GE                                            SKEL         314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               CALL   HLEX                                                            SKEL         315     A     
 SKEL               BRANCH GEH1                                                            SKEL         316     A     
 SKEL               ENDS                                                                   SKEL         317     A     
 SKEL                                                                                      SKEL         318     A     
 SKEL      NE.I     SKEL                                                                   SKEL         319     A     
 SKEL               CLR    T1                                                              SKEL         320     A     
 SKEL               IS     T2,L1,L2                                                        SKEL         321     A     
 SKEL               IAZ    T3,T2,T1                                                        SKEL         322     A     
 SKEL               ISZ    T4,T1,T3                                                        SKEL         323     A     
 SKEL               OR     R1,T4,T3                                                        SKEL         324     A     
 SKEL               ENDS                                                                   SKEL         325     A     
 SKEL                                                                                      SKEL         326     A     
 SKEL      NE.R     SKEL                                                                   SKEL         327     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL         328     A     
 SKEL               PNR    T2,0,T1                                                         SKEL         329     A     
 SKEL               CLR    T3                                                              SKEL         330     A     
 SKEL               ISZ    T4,T3,T2                                                        SKEL         331     A     
 SKEL               OR     R1,T2,T4                                                        SKEL         332     A     
 SKEL               ENDS                                                                   SKEL         333     A     
 SKEL                                                                                      SKEL         334     A     
 SKEL      NE.D     SKEL                                                                   SKEL         335     A     
 SKEL               FS     T1,LU1,LU2                                                      SKEL         336     A     
 SKEL               FS     T2,LL1,LL2                                                      SKEL         337     A     
 SKEL               PNR    T3,0,T1                                                         SKEL         338     A     
 SKEL               CLR    T4                                                              SKEL         339          I
          -FC51325
 SKEL               PNR    T5,0,T2                                                         SKEL         340          I
          -FC51325
 SKEL               OR     T6,T3,T5                                                        SKEL         341          I
          -FC51325
 SKEL               ISZ    T7,T4,T6                                                        SKEL         342          I
          -FC51325
 SKEL               OR     RU1,T7,T6                                                       SKEL         343          I
          -FC51325
 SKEL               DFS    T4,LU1,LU2                                                      FC51325        7     A     
 SKEL               PNR    T5,0,T4                                                         FC51325        8     A     
 SKEL               CLR    T6                                                              FC51325        9     A     
 SKEL               PNR    T7,0,T2                                                         FC51325       10     A     
 SKEL               OR     T8,T3,T7                                                        FC51325       11     A     
 SKEL               OR     T9,T8,T5                                                        FC51325       12     A     
 SKEL               ISZ    T10,T6,T9                                                       FC51325       13     A     
 SKEL               OR     RU1,T10,T9                                                      FC51325       14     A     
 SKEL               ENDS                                                                   SKEL         344     A     
 SKEL                                                                                      SKEL         345     A     
 SKEL      NE.C     SKEQU  NE.D                                                            SKEL         346     A     
 SKEL                                                                                      SKEL         347     A     
 SKEL      NE.B     SKEQU  NE.I                                                            SKEL         348     A     
 SKEL                                                                                      SKEL         349     A     
 SKEL      NE.H     SKEL                                                                   SKEL         350     A     
 SKEL               CALL   HREL                                                            SKEL         351     A     
 SKEL      NEH1     DEF    T1,,"X6."                                                       SKEL         352     A     
 SKEL               KLS    T3,T1,1                                                         SKEL         353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               XMT    R1,T3                                                           SKEL         354     A     
 SKEL               ENDS                                                                   SKEL         355     A     
 SKEL                                                                                      SKEL         356     A     
 SKEL      LNE      SKEL               ASCII NE                                            SKEL         357     A     
 SKEL               CALL   HLEX                                                            SKEL         358     A     
 SKEL               BRANCH NEH1                                                            SKEL         359     A     
 SKEL               ENDS                                                                   SKEL         360     A     
 SKEL                                                                                      SKEL         361     A     
 SKEL      EQ.I     SKEL                                                                   SKEL         362     A     
 SKEL               IS     T1,L1,L2                                                        SKEL         363     A     
 SKEL               CLR    T2                                                              SKEL         364     A     
 SKEL               IAZ    T3,T1,T2                                                        SKEL         365     A     
 SKEL               ISZ    T4,T2,T3                                                        SKEL         366     A     
 SKEL               EQV    R1,T3,T4                                                        SKEL         367     A     
 SKEL               ENDS                                                                   SKEL         368     A     
 SKEL                                                                                      SKEL         369     A     
 SKEL      EQ.R     SKEL                                                                   SKEL         370     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL         371     A     
 SKEL               PNR    T2,0,T1                                                         SKEL         372     A     
 SKEL               CLR    T3                                                              SKEL         373     A     
 SKEL               ISZ    T4,T3,T2                                                        SKEL         374     A     
 SKEL               EQV    R1,T4,T2                                                        SKEL         375     A     
 SKEL               ENDS                                                                   SKEL         376     A     
 SKEL                                                                                      SKEL         377     A     
 SKEL      EQ.D     SKEL                                                                   SKEL         378     A     
 SKEL               FS     T1,LU1,LU2                                                      SKEL         379     A     
 SKEL               PNR    T2,0,T1                                                         SKEL         380     A     
 SKEL               FS     T3,LL1,LL2                                                      SKEL         381          I
          -FC51325
 SKEL               CLR    T4                                                              SKEL         382          I
          -FC51325
 SKEL               PNR    T5,0,T3                                                         SKEL         383          I
          -FC51325
 SKEL               OR     T6,T2,T5                                                        SKEL         384          I
          -FC51325
 SKEL               ISZ    T7,T4,T6                                                        SKEL         385          I
          -FC51325
 SKEL               EQV    RU1,T6,T7                                                       SKEL         386          I
          -FC51325
 SKEL               DFS    T3,LU1,LU2                                                      FC51325       15     A     
 SKEL               PNR    T4,0,T3                                                         FC51325       16     A     
 SKEL               FS     T5,LL1,LL2                                                      FC51325       17     A     
 SKEL               CLR    T6                                                              FC51325       18     A     
 SKEL               PNR    T7,0,T5                                                         FC51325       19     A     
 SKEL               OR     T8,T2,T7                                                        FC51325       20     A     
 SKEL               OR     T9,T8,T4                                                        FC51325       21     A     
 SKEL               ISZ    T10,T6,T9                                                       FC51325       22     A     
 SKEL               EQV    RU1,T9,T10                                                      FC51325       23     A     
 SKEL               ENDS                                                                   SKEL         387     A     
 SKEL                                                                                      SKEL         388     A     
 SKEL      EQ.C     SKEQU  EQ.D                                                            SKEL         389     A     
 SKEL                                                                                      SKEL         390     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      EQ.B     SKEQU  EQ.I                                                            SKEL         391     A     
 SKEL                                                                                      SKEL         392     A     
 SKEL      EQ.H     SKEL                                                                   SKEL         393     A     
 SKEL               CALL   HREL                                                            SKEL         394     A     
 SKEL      EQH1     DEF    T1,,"X6."                                                       SKEL         395     A     
 SKEL               KLS    T3,T1,1                                                         SKEL         396     A     
 SKEL               XMTC   R1,T3                                                           SKEL         397     A     
 SKEL               ENDS                                                                   SKEL         398     A     
 SKEL                                                                                      SKEL         399     A     
 SKEL      LEQ      SKEL               ASCII EQ                                            SKEL         400     A     
 SKEL               CALL   HLEX                                                            SKEL         401     A     
 SKEL               BRANCH EQH1                                                            SKEL         402     A     
 SKEL               ENDS                                                                   SKEL         403     A     
 SKEL      STORES   SPACE  4,8                                                             SKEL         404     A     
 SKEL     *         STORE SKELETONS.                                                       SKEL         405     A     
 SKEL     *                                                                                SKEL         406     A     
 SKEL                                                                                      SKEL         407     A     
 SKEL                                                                                      SKEL         408     A     
 SKEL      STR.I    SKEL                                                                   SKEL         409     A     
 SKEL               ST     L2,L1                                                           SKEL         410     A     
 SKEL               ENDS                                                                   SKEL         411     A     
 SKEL                                                                                      SKEL         412     A     
 SKEL      STR.R    SKEQU  STR.I                                                           SKEL         413     A     
 SKEL                                                                                      SKEL         414     A     
 SKEL      STR.D    SKEL                                                                   SKEL         415     A     
 SKEL               XMT    T1,LL1                                                          FC5A164        7     A     
 SKEL               ST     LL2,T1                                                          FC50701        7     A     
 SKEL               ST     LU2,LU1                                                         SKEL         416     A     
 SKEL               ST     LL2,LL1                                                         SKEL         417          I
          -FC5A164
 SKEL               ST     LL2,T1                                                          FC5A164        8          I
          -FC50701
 SKEL               ENDS                                                                   SKEL         418     A     
 SKEL                                                                                      SKEL         419     A     
 SKEL      STR.H    SKEL                                                                   SKEL         420     A     
 SKEL               CALL   HSTO                                                            SKEL         421     A     
 SKEL               ENDS                                                                   SKEL         422     A     
 SKEL                                                                                      SKEL         423     A     
 SKEL      STR.C    SKEQU  STR.D                                                           SKEL         424     A     
 SKEL                                                                                      SKEL         425     A     
 SKEL      STR.B    SKEQU  STR.I                                                           SKEL         426     A     
 SKEL      CHAR     SPACE  4,10                                                            SKEL         427     A     
 SKEL     *         CHARACTER SUBSTRING, CATENATION SKELETONS.                             SKEL         428     A     
 SKEL                                                                                      SKEL         429     A     
 SKEL                                                                                      SKEL         430     A     
 SKEL      CAT      SKEL                                                                   SKEL         431     A     
 SKEL               CALL   HCAT                                                            SKEL         432     A     
 SKEL               ENDS                                                                   SKEL         433     A     
 SKEL                                                                                      SKEL         434     A     
 SKEL                                                                                      SKEL         435     A     
 SKEL      COLON    SKEL               (P1=FIRST, P2=LAST)                                 SKEL         436     A     
 SKEL               CALL   HCOL                                                            SKEL         437     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               ENDS                                                                   SKEL         438     A     
 SKEL                                                                                      SKEL         439     A     
 SKEL      SUBST    SKEL               (P1=SYMBOL, P2=COLON INTERMEDIATE)                  SKEL         440     A     
 SKEL               CALL   HSBS                                                            SKEL         441     A     
 SKEL               ENDS                                                                   SKEL         442     A     
 SKEL      MODECON  SPACE  4,10                                                            SKEL         443     A     
 SKEL     **        MODE CONVERSION SKELETONS.                                             SKEL         444     A     
 SKEL                                                                                      SKEL         445     A     
 SKEL                                                                                      SKEL         446     A     
 SKEL      ITOR     SKEL                                                                   SKEL         447     A     
 SKEL               PK     T1,0,L1     INTEGER TO REAL CONVERSION                          SKEL         448     A     
 SKEL               NR     R1,0,T1                                                         SKEL         449     A     
 SKEL               ENDS                                                                   SKEL         450     A     
 SKEL                                                                                      SKEL         451     A     
 SKEL      ITOB     SKEL               XMIT -- NO CONVERSION                               SKEL         452     A     
 SKEL               XMT    R1,LU1                                                          SKEL         453     A     
 SKEL               ENDS                                                                   SKEL         454     A     
 SKEL                                                                                      SKEL         455     A     
 SKEL      ITOD     SKEL                                                                   SKEL         456     A     
 SKEL               PK     T1,0,L1     INTEGER TO DOUBLE CONVERSION                        SKEL         457     A     
 SKEL               NR     RU1,0,T1                                                        SKEL         458     A     
 SKEL               CLR    RL1                                                             SKEL         459     A     
 SKEL               ENDS                                                                   SKEL         460     A     
 SKEL                                                                                      SKEL         461     A     
 SKEL      ITOC     SKEQU  ITOD        INTEGER TO COMPLEX CONVERSION                       SKEL         462     A     
 SKEL                                                                                      SKEL         463     A     
 SKEL                                                                                      SKEL         464     A     
 SKEL      RTOI     SKEL                                                                   SKEL         465     A     
 SKEL               UP     T1,"TBR",L1     REAL TO INTEGER CONVERSION                      SKEL         466     A     
 SKEL               ILS    R1,"TBR",T1                                                     SKEL         467     A     
 SKEL               ENDS                                                                   SKEL         468     A     
 SKEL                                                                                      SKEL         469     A     
 SKEL      RTOD     SKEL                                                                   SKEL         470     A     
 SKEL               XMT    RU1,L1      REAL TO DOUBLE CONVERSION                           SKEL         471     A     
 SKEL               CLR    RL1                                                             SKEL         472     A     
 SKEL               ENDS                                                                   SKEL         473     A     
 SKEL                                                                                      SKEL         474     A     
 SKEL      RTOC     SKEQU  RTOD                                                            SKEL         475     A     
 SKEL      RTOB     SKEQU  ITOB        XMIT                                                SKEL         476     A     
 SKEL                                                                                      SKEL         477     A     
 SKEL                                                                                      SKEL         478     A     
 SKEL      DTOI     SKEQU  RTOI                                                            SKEL         479     A     
 SKEL      DTOR     SKEQU  ITOB        XMIT                                                SKEL         480     A     
 SKEL      DTOB     SKEQU  DTOR                                                            SKEL         481     A     
 SKEL                                                                                      SKEL         482     A     
 SKEL      DTOC     SKEL                                                                   SKEL         483     A     
 SKEL               XMT    RU1,LU1     DOUBLE TO COMPLEX CONVERSION                        SKEL         484     A     
 SKEL               CLR    RL1                                                             SKEL         485     A     
 SKEL               ENDS                                                                   SKEL         486     A     
 SKEL                                                                                      FC5A140        5     A     
 SKEL      XMIT     SKEQU  ITOB                                                            FC5A140        6     A     
 SKEL                                                                                      SKEL         487     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL                                                                                      SKEL         488     A     
 SKEL      CTOI     SKEQU  DTOI                                                            SKEL         489     A     
 SKEL      CTOR     SKEQU  DTOR                                                            SKEL         490     A     
 SKEL      CTOB     SKEQU  CTOR                                                            SKEL         491     A     
 SKEL      CTOD     SKEQU  DTOC        COMPLEX TO DOUBLE                                   SKEL         492     A     
 SKEL                                                                                      SKEL         493     A     
 SKEL      BTOD     SKEQU  RTOD                                                            SKEL         494     A     
 SKEL      BTOR     SKEQU  ITOB        XMIT                                                SKEL         495     A     
 SKEL      BTOI     SKEQU  ITOB        XMIT                                                SKEL         496     A     
 SKEL      BTOC     SKEQU  RTOD                                                            SKEL         497     A     
 SKEL      LOGICAL  EJECT  4,20                                                            SKEL         498     A     
 SKEL     **        LOGICAL AND BOOLEAN OPERATORS.                                         SKEL         499     A     
 SKEL     *                                                                                SKEL         500     A     
 SKEL     *         MUST OCCUR BEFORE INLINE FUNCTION SKELS.                               SKEL         501     A     
 SKEL     *         MUST OCCUR AFTER MODE CONVERSION SKELS.                                SKEL         502     A     
 SKEL                                                                                      SKEL         503     A     
 SKEL                                                                                      SKEL         504     A     
 SKEL      NOT.L    SKEL                                                                   SKEL         505     A     
 SKEL               XMTC   R1,L1                                                           SKEL         506     A     
 SKEL               ENDS                                                                   SKEL         507     A     
 SKEL                                                                                      SKEL         508     A     
 SKEL      NOT.B    SKEQU  NOT.L                                                           SKEL         509     A     
 SKEL                                                                                      SKEL         510     A     
 SKEL                                                                                      SKEL         511     A     
 SKEL      AND.L    SKEL                                                                   SKEL         512     A     
 SKEL               AND    R1,L1,L2                                                        SKEL         513     A     
 SKEL               ENDS                                                                   SKEL         514     A     
 SKEL                                                                                      SKEL         515     A     
 SKEL      AND.B    SKEQU  AND.L                                                           SKEL         516     A     
 SKEL                                                                                      SKEL         517     A     
 SKEL                                                                                      SKEL         518     A     
 SKEL      EQV.L    SKEL                                                                   SKEL         519     A     
 SKEL               EQV    R1,L1,L2                                                        SKEL         520     A     
 SKEL               ENDS                                                                   SKEL         521     A     
 SKEL                                                                                      SKEL         522     A     
 SKEL      EQV.B    SKEQU  EQV.L                                                           SKEL         523     A     
 SKEL                                                                                      SKEL         524     A     
 SKEL                                                                                      SKEL         525     A     
 SKEL      OR.L     SKEL                                                                   SKEL         526     A     
 SKEL               OR     R1,L1,L2                                                        SKEL         527     A     
 SKEL               ENDS                                                                   SKEL         528     A     
 SKEL                                                                                      SKEL         529     A     
 SKEL      OR.B     SKEQU  OR.L                                                            SKEL         530     A     
 SKEL                                                                                      SKEL         531     A     
 SKEL                                                                                      SKEL         532     A     
 SKEL      XOR.L    SKEL                                                                   SKEL         533     A     
 SKEL               XOR    R1,L1,L2                                                        SKEL         534     A     
 SKEL               ENDS                                                                   SKEL         535     A     
 SKEL                                                                                      SKEL         536     A     
 SKEL      XOR.B    SKEQU  XOR.L                                                           SKEL         537     A     
 SKEL      NEQV.B   SKEQU  XOR.L                                                           FC51485       14     A     
 SKEL      NEQV.L   SKEQU  XOR.L                                                           FC51485       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      INTRINS  SPACE  4,20                                                            SKEL         538     A     
 SKEL     **        INTRINSIC FUNCTION SKELETONS.                                          SKEL         539     A     
 SKEL                                                                                      SKEL         540     A     
 SKEL                                                                                      SKEL         541     A     
 SKEL      ABS      SKEL                                                                   SKEL         542     A     
 SKEL               KRS    T2,L1,59                                                        SKEL         543     A     
 SKEL               XOR    R1,L1,T2                                                        SKEL         544     A     
 SKEL               ENDS                                                                   SKEL         545     A     
 SKEL                                                                                      SKEL         546     A     
 SKEL                                                                                      SKEL         547     A     
 SKEL      SUM1S    SKEL                                                                   FC5A496        9     A     
 SKEL               CX     R1,L1                                                           FC5A496       10     A     
 SKEL               ENDS                                                                   FC5A496       11     A     
 SKEL                                                                                      FC5A496       12     A     
 SKEL                                                                                      FC5A496       13     A     
 SKEL      AIMAG    SKEL                                                                   SKEL         548     A     
 SKEL               XMT    R1,LL1      IMAGINARY PART OF COMPLEX (1OP)                     SKEL         549     A     
 SKEL               ENDS                                                                   SKEL         550     A     
 SKEL                                                                                      SKEL         551     A     
 SKEL      AINT     SKEL                                                                   SKEL         552     A     
 SKEL               CLR    T1                                                              SKEL         553     A     
 SKEL               PK     T2,0,T1                                                         SKEL         554     A     
 SKEL               FA     T3,L1,T2                                                        SKEL         555     A     
 SKEL               NR     R1,0,T3                                                         SKEL         556     A     
 SKEL               ENDS                                                                   SKEL         557     A     
 SKEL                                                                                      SKEL         558     A     
 SKEL      ANINT    SKEL                                                                   SKEL         559     A     
 SKEL      ANINT1   KRS    T2,L1,59                                                        SKEL         560     A     
 SKEL               PK     T3,0,T2                                                         SKEL         561     A     
 SKEL               RFA    T4,L1,T3                                                        SKEL         562     A     
 SKEL               NR     R1,0,T4                                                         SKEL         563     A     
 SKEL               ENDS                                                                   SKEL         564     A     
 SKEL                                                                                      SKEL         565     A     
 SKEL                                                                                      SKEL         566     A     
 SKEL      MAX0     SKEL                                                                   SKEL         567     A     
 SKEL               IS     T1,L1,L2  I=MAX0(I1,I2)                                         SKEL         568     A     
 SKEL      MAX01    KRS    T3,T1,59                                                        SKEL         569     A     
 SKEL               XOR    T4,L1,L2                                                        SKEL         570     A     
 SKEL               AND    T5,T4,T3                                                        SKEL         571     A     
 SKEL               XOR    R1,T5,L1                                                        SKEL         572     A     
 SKEL               ENDS                                                                   SKEL         573     A     
 SKEL                                                                                      SKEL         574     A     
 SKEL      DMAX1    SKEL                                                                   SKEL         575     A     
 SKEL               FS     T1,LU1,LU2                                                      SKEL         576     A     
 SKEL               DFS    T2,LU1,LU2                                                      SKEL         577     A     
 SKEL               FS     T3,LL1,LL2                                                      SKEL         578     A     
 SKEL      DMAX11   NR     T4,0,T1                                                         SKEL         579     A     
 SKEL               FA     T5,T2,T3                                                        SKEL         580     A     
 SKEL               FA     T6,T4,T5                                                        SKEL         581     A     
 SKEL               KRS    T8,T6,59                                                        SKEL         582     A     
 SKEL               XOR    T9,LU1,LU2                                                      SKEL         583     A     
 SKEL               XOR    T10,LL1,LL2                                                     SKEL         584     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               AND    T11,T8,T9                                                       SKEL         585     A     
 SKEL               XOR    RU1,T11,LU1                                                     SKEL         586     A     
 SKEL               AND    T12,T8,T10                                                      SKEL         587     A     
 SKEL               XOR    RL1,T12,LL1                                                     SKEL         588     A     
 SKEL               ENDS                                                                   SKEL         589     A     
 SKEL                                                                                      SKEL         590     A     
 SKEL      MIN0     SKEL                                                                   SKEL         591     A     
 SKEL               IS     T1,L2,L1   I=MIN0(I1,I2)                                        SKEL         592     A     
 SKEL               BRANCH MAX01,(T1,L1,L2)                                                SKEL         593     A     
 SKEL               ENDS                                                                   SKEL         594     A     
 SKEL                                                                                      SKEL         595     A     
 SKEL      DMIN1    SKEL                                                                   SKEL         596     A     
 SKEL               FS     T1,LU2,LU1                                                      SKEL         597     A     
 SKEL               DFS    T2,LU2,LU1                                                      SKEL         598     A     
 SKEL               FS     T3,LL2,LL1                                                      SKEL         599     A     
 SKEL               BRANCH DMAX11,(T1,T2,T3,LL1,LL2,LU1,LU2)                               SKEL         600     A     
 SKEL               ENDS                                                                   SKEL         601     A     
 SKEL                                                                                      SKEL         602     A     
 SKEL      AMAX1    SKEL                                                                   SKEL         603     A     
 SKEL               FS     T1,L1,L2  R=AMAX1(R1,R2)                                        SKEL         604     A     
 SKEL               BRANCH MAX01,(T1,L1,L2)                                                SKEL         605     A     
 SKEL               ENDS                                                                   SKEL         606     A     
 SKEL                                                                                      SKEL         607     A     
 SKEL      AMIN1    SKEL                                                                   SKEL         608     A     
 SKEL               FS     T1,L2,L1  R=AMIN1(R1,R2)                                        SKEL         609     A     
 SKEL               BRANCH MAX01,(T1,L1,L2)                                                SKEL         610     A     
 SKEL               ENDS                                                                   SKEL         611     A     
 SKEL                                                                                      SKEL         612     A     
 SKEL      MAX1     SKEQU  AMAX1                                                           SKEL         613     A     
 SKEL      MIN1     SKEQU  AMIN1                                                           SKEL         614     A     
 SKEL      AMAX0    SKEQU  MAX0                                                            SKEL         615     A     
 SKEL      AMIN0    SKEQU  MIN0                                                            SKEL         616     A     
 SKEL                                                                                      SKEL         617     A     
 SKEL      AMOD     SKEL                                                                   SKEL         618     A     
 SKEL               FD     T1,L1,L2                                                        SKEL         619     A     
 SKEL               CLR    T2                                                              SKEL         620     A     
 SKEL               PK     T3,0,T2                                                         SKEL         621     A     
 SKEL               FA     T4,T1,T3                                                        SKEL         622     A     
 SKEL               NR     T5,0,T4                                                         SKEL         623     A     
 SKEL               FM     T6,T5,L2                                                        SKEL         624     A     
 SKEL               DFM    T7,T5,L2                                                        SKEL         625     A     
 SKEL               DFS    T8,L1,T6                                                        SKEL         626     A     
 SKEL               FS     T9,L1,T6                                                        SKEL         627     A     
 SKEL               FS     T10,T8,T7                                                       SKEL         628     A     
 SKEL               NR     T11,0,T9                                                        SKEL         629     A     
 SKEL               FA     T12,T10,T11                                                     SKEL         630     A     
 SKEL               NR     R1,0,T12                                                        SKEL         631     A     
 SKEL               ENDS                                                                   SKEL         632     A     
 SKEL                                                                                      SKEL         633     A     
 SKEL                                                                                      SKEL         634     A     
 SKEL      AND      SKEQU  AND.B                                                           SKEL         635     A     
 SKEL                                                                                      SKEL         636     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL                                                                                      SKEL         637     A     
 SKEL      BOOL     SKEQU  ITOB        BOOLEAN TO INTEGER                                  SKEL         638     A     
 SKEL                                                                                      SKEL         639     A     
 SKEL      COMPL    SKEQU  NOT.B                                                           SKEL         640     A     
 SKEL                                                                                      SKEL         641     A     
 SKEL                                                                                      SKEL         642     A     
 SKEL      CONJG    SKEL                                                                   SKEL         643     A     
 SKEL               XMT    RU1,LU1                                                         SKEL         644     A     
 SKEL               XMTC   RL1,LL1                                                         SKEL         645     A     
 SKEL               ENDS                                                                   SKEL         646     A     
 SKEL                                                                                      SKEL         647     A     
 SKEL                                                                                      SKEL         648     A     
 SKEL      CMPLX    SKEL                                                                   SKEL         649     A     
 SKEL               XMT    RU1,L1                                                          SKEL         650     A     
 SKEL               XMT    RL1,L2                                                          SKEL         651     A     
 SKEL               ENDS                                                                   SKEL         652     A     
 SKEL                                                                                      SKEL         653     A     
 SKEL                                                                                      SKEL         654     A     
 SKEL      DABS     SKEL                                                                   SKEL         655     A     
 SKEL               KRS    T2,LU1,59                                                       SKEL         656     A     
 SKEL               XOR    RU1,T2,LU1                                                      SKEL         657     A     
 SKEL               XOR    RL1,T2,LL1                                                      SKEL         658     A     
 SKEL               ENDS                                                                   SKEL         659     A     
 SKEL                                                                                      SKEL         660     A     
 SKEL                                                                                      SKEL         661     A     
 SKEL      DBLE     SKEQU  RTOD                                                            SKEL         662     A     
 SKEL                                                                                      SKEL         663     A     
 SKEL                                                                                      SKEL         664     A     
 SKEL      DDIM     SKEL                                                                   SKEL         665     A     
 SKEL                                                                                      SKEL         666     A     
 SKEL     *         MOST OF THIS SKEL IS SUB.D .  A VIABLE CALLSKEL                        SKEL         667     A     
 SKEL     *         WOULD BE USEFUL HERE.                                                  SKEL         668     A     
 SKEL                                                                                      SKEL         669     A     
 SKEL               FS     T1,LU1,LU2                                                      SKEL         670     A     
 SKEL               DFS    T2,LU1,LU2                                                      SKEL         671     A     
 SKEL               FS     T3,LL1,LL2                                                      SKEL         672     A     
 SKEL               NR     T4,0,T1                                                         SKEL         673     A     
 SKEL               FA     T5,T2,T3                                                        SKEL         674     A     
 SKEL               FA     T6,T4,T5                                                        SKEL         675     A     
 SKEL               NR     T7,0,T6                                                         SKEL         676     A     
 SKEL               DFA    T8,T4,T5                                                        SKEL         677     A     
 SKEL               NR     T9,0,T8                                                         SKEL         678     A     
 SKEL               FA     T10,T7,T9                                                       SKEL         679     A     
 SKEL               DFA    T11,T7,T9                                                       SKEL         680     A     
 SKEL               KRS    T13,T10,59                                                      SKEL         681     A     
 SKEL               STR    RU1,T13,T10                                                     SKEL         682     A     
 SKEL               STR    RL1,T13,T11                                                     SKEL         683     A     
 SKEL               ENDS                                                                   SKEL         684     A     
 SKEL                                                                                      SKEL         685     A     
 SKEL      DIM      SKEL                                                                   SKEL         686     A     
 SKEL               FS     T1,L1,L2                                                        SKEL         687     A     
 SKEL               NR     T2,0,T1                                                         SKEL         688     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               KRS    T4,T1,59                                                        SKEL         689     A     
 SKEL               STR    R1,T4,T2                                                        SKEL         690     A     
 SKEL               ENDS                                                                   SKEL         691     A     
 SKEL                                                                                      SKEL         692     A     
 SKEL                                                                                      SKEL         693     A     
 SKEL      DINT     SKEL                                                                   SKEL         694     A     
 SKEL               CLR    T1                                                              SKEL         695          I
          -FC51035
 SKEL               PK     T2,0,T1                                                         SKEL         696          I
          -FC51035
 SKEL               FA     T3,LU1,T2                                                       SKEL         697          I
          -FC51035
 SKEL               NR     RU1,0,T3                                                        SKEL         698          I
          -FC51035
 SKEL               XMT    RL1,T1                                                          SKEL         699          I
          -FC51035
 SKEL               ENDS                                                                   SKEL         700          I
          -FC51035
 SKEL               KRS    T2,LU1,59                                                       FC51035        5     A     
 SKEL               PK     T3,0,T2                                                         FC51035        6     A     
 SKEL               FA     T4,T3,LU1                                                       FC51035        7     A     
 SKEL               NR     T5,0,T4                                                         FC51035        8     A     
 SKEL               FA     T6,T3,LL1                                                       FC51035        9     A     
 SKEL               NR     T7,0,T6                                                         FC51035       10     A     
 SKEL               FA     RU1,T7,T5                                                       FC51035       11     A     
 SKEL               DFA    RL1,T7,T5                                                       FC51035       12     A     
 SKEL               ENDS                                                                   FC51035       13     A     
 SKEL                                                                                      SKEL         701     A     
 SKEL      DPROD    SKEL                                                                   SKEL         702     A     
 SKEL               FM     RU1,L1,L2                                                       SKEL         703     A     
 SKEL               DFM    RL1,L1,L2                                                       SKEL         704     A     
 SKEL               ENDS                                                                   SKEL         705     A     
 SKEL                                                                                      SKEL         706     A     
 SKEL      DNINT    SKEL                                                                   SKEL         707     A     
 SKEL               CLR    RL1                                                             SKEL         708          I
          -FC51035
 SKEL               BRANCH ANINT1                                                          SKEL         709          I
          -FC51035
 SKEL               ENDS                                                                   SKEL         710          I
          -FC51035
 SKEL               KRS    T2,LU1,59                                                       FC51035       14     A     
 SKEL               PK     T3,0,T2                                                         FC51035       15     A     
 SKEL               RFA    T4,T3,LU1                                                       FC51035       16     A     
 SKEL               NR     T5,0,T4                                                         FC51035       17     A     
 SKEL               RFA    T6,T3,LL1                                                       FC51035       18     A     
 SKEL               NR     T7,0,T6                                                         FC51035       19     A     
 SKEL               FA     RU1,T7,T5                                                       FC51035       20     A     
 SKEL               DFA    RL1,T7,T5                                                       FC51035       21     A     
 SKEL               ENDS                                                                   FC51035       22     A     
 SKEL                                                                                      SKEL         711     A     
 SKEL                                                                                      SKEL         712     A     
 SKEL      DSIGN    SKEL                                                                   SKEL         713     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               KRS    T2,LU1,59                                                       SKEL         714     A     
 SKEL               XOR    T3,T2,LU1                                                       SKEL         715     A     
 SKEL               XOR    T4,T2,LL1                                                       SKEL         716     A     
 SKEL               CLR    T5                                                              SKEL         717     A     
 SKEL               IAZ    T6,T5,LU2                                                       SKEL         718     A     
 SKEL               KRS    T8,T6,59                                                        SKEL         719     A     
 SKEL               XOR    RU1,T3,T8                                                       SKEL         720     A     
 SKEL               XOR    RL1,T4,T8                                                       SKEL         721     A     
 SKEL               ENDS                                                                   SKEL         722     A     
 SKEL                                                                                      SKEL         723     A     
 SKEL                                                                                      SKEL         724     A     
 SKEL      EQV      SKEQU  EQV.B                                                           SKEL         725     A     
 SKEL                                                                                      SKEL         726     A     
 SKEL                                                                                      SKEL         727     A     
 SKEL      FLOAT    SKEQU  ITOR                                                            SKEL         728     A     
 SKEL                                                                                      SKEL         729     A     
 SKEL                                                                                      SKEL         730     A     
 SKEL      IABS     SKEQU  ABS                                                             SKEL         731     A     
 SKEL                                                                                      SKEL         732     A     
 SKEL                                                                                      SKEL         733     A     
 SKEL      IDINT    SKEQU  RTOI                                                            SKEL         734     A     
 SKEL                                                                                      SKEL         735     A     
 SKEL      IDNINT   SKEL                                                                   SKEL         736     A     
 SKEL               KRS    T2,L1,59                                                        SKEL         737     A     
 SKEL               PK     T3,0,T2                                                         SKEL         738     A     
 SKEL               RFA    T4,T3,L1                                                        SKEL         739     A     
 SKEL               UP     R1,0,T4                                                         SKEL         740     A     
 SKEL               ENDS                                                                   SKEL         741     A     
 SKEL                                                                                      SKEL         742     A     
 SKEL                                                                                      SKEL         743     A     
 SKEL      IFIX     SKEQU  RTOI                                                            SKEL         744     A     
 SKEL                                                                                      SKEL         745     A     
 SKEL                                                                                      SKEL         746     A     
 SKEL      INT      SKEQU  RTOI                                                            SKEL         747     A     
 SKEL                                                                                      SKEL         748     A     
 SKEL                                                                                      SKEL         749     A     
 SKEL      ISIGN    SKEL                                                                   SKEL         750     A     
 SKEL               KRS    T2,L1,59                                                        SKEL         751     A     
 SKEL               XOR    T3,T2,L1                                                        SKEL         752     A     
 SKEL               CLR    T4                                                              SKEL         753     A     
 SKEL               IAZ    T5,T4,L2                                                        SKEL         754     A     
 SKEL               KRS    T7,T5,59                                                        SKEL         755     A     
 SKEL               XOR    R1,T7,T3                                                        SKEL         756     A     
 SKEL               ENDS                                                                   SKEL         757     A     
 SKEL                                                                                      SKEL         758     A     
 SKEL                                                                                      SKEL         759     A     
 SKEL      IDIM     SKEL                                                                   SKEL         760     A     
 SKEL               IS     T1,L1,L2                                                        SKEL         761     A     
 SKEL               KRS    T3,T1,59                                                        SKEL         762     A     
 SKEL               STR    R1,T3,T1                                                        SKEL         763     A     
 SKEL               ENDS                                                                   SKEL         764     A     
 SKEL                                                                                      SKEL         765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      MASK     SKEL                                                                   SKEL         766     A     
 SKEL               CALL   MASK                                                            SKEL         767     A     
 SKEL               ENDS                                                                   SKEL         768     A     
 SKEL                                                                                      SKEL         769     A     
 SKEL      MASKV    SUBSKEL                                                                SKEL         770     A     
 SKEL               FMA    T1,1                                                            SKEL         771     A     
 SKEL               SB=XK  "TBR",L1,-1                                                     SKEL         772     A     
 SKEL               IRS    T2,"TBR",T1                                                     SKEL         773     A     
 SKEL               KRS    T4,T2,59                                                        SKEL         774     A     
 SKEL               AND    R1,T4,T2                                                        SKEL         775     A     
 SKEL               ENDS                                                                   SKEL         776     A     
 SKEL                                                                                      SKEL         777     A     
 SKEL      MASKC    SUBSKEL                                                                SKEL         778     A     
 SKEL               FMA    R1,P1                                                           SKEL         779     A     
 SKEL               ENDS                                                                   SKEL         780     A     
 SKEL                                                                                      SKEL         781     A     
 SKEL      MOD      SKEL   MODG                                                            SKEL         782     A     
 SKEL               CALL   MOD                                                             SKEL         783     A     
 SKEL               ENDS                                                                   SKEL         784     A     
 SKEL                                                                                      SKEL         785     A     
 SKEL      MODG     SUBSKEL                                                                SKEL         786     A     
 SKEL               PK     T1,0,L2    I=MOD(J,K)                                           SKEL         787     A     
 SKEL               NR     T2,0,T1                                                         SKEL         788     A     
 SKEL               PK     T3,0,L1                                                         SKEL         789     A     
 SKEL               FD     T4,T3,T2                                                        SKEL         790     A     
 SKEL               UP     T5,"TBR",T4                                                     SKEL         791     A     
 SKEL               ILS    T6,"TBR",T5                                                     SKEL         792     A     
 SKEL               IM     T7,T6,L2                                                        SKEL         793     A     
 SKEL               IS     R1,L1,T7                                                        SKEL         794     A     
 SKEL               ENDS                                                                   SKEL         795     A     
 SKEL                                                                                      SKEL         796     A     
 SKEL      MODP2    SUBSKEL                                                                SKEL         797     A     
 SKEL               KRS    T2,L1,59                                                        SKEL         798     A     
 SKEL               XOR    T3,L1,T2                                                        SKEL         799     A     
 SKEL               FMA    T4,GP1                                                          SKEL         800     A     
 SKEL               STR    T5,T4,T3                                                        SKEL         801     A     
 SKEL               XOR    R1,T5,T2                                                        SKEL         802     A     
 SKEL               ENDS                                                                   SKEL         803     A     
 SKEL                                                                                      SKEL         804     A     
 SKEL                                                                                      SKEL         805     A     
 SKEL      NEQV     SKEQU  XOR.B                                                           SKEL         806     A     
 SKEL                                                                                      SKEL         807     A     
 SKEL      NINT     SKEQU  IDNINT                                                          SKEL         808     A     
 SKEL                                                                                      SKEL         809     A     
 SKEL                                                                                      SKEL         810     A     
 SKEL      OR       SKEQU  OR.B                                                            SKEL         811     A     
 SKEL                                                                                      SKEL         812     A     
 SKEL                                                                                      SKEL         813     A     
 SKEL      RANF     SKEL                                                                   SKEL         814     A     
 SKEL               DFM    T1,LL2,LU1                                                      SKEL         815     A     
 SKEL               ST     L1,T1                                                           SKEL         816     A     
 SKEL               NR     R1,0,T1                                                         SKEL         817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               ENDS                                                                   SKEL         818     A     
 SKEL                                                                                      SKEL         819     A     
 SKEL      REAL     SKEQU  CTOR        COMPLEX TO REAL                                     SKEL         820     A     
 SKEL                                                                                      SKEL         821     A     
 SKEL                                                                                      SKEL         822     A     
 SKEL      SIGN     SKEQU  ISIGN                                                           SKEL         823     A     
 SKEL                                                                                      SKEL         824     A     
 SKEL                                                                                      SKEL         825     A     
 SKEL      SNGL     SKEQU  REAL                                                            SKEL         826     A     
 SKEL                                                                                      SKEL         827     A     
 SKEL                                                                                      SKEL         828     A     
 SKEL      SHIFT    SKEL                                                                   SKEL         829          I
          -FC5A190
 SKEL      SHIFT    SKEL   SHIFV                                                           FC5A190        6     A     
 SKEL               CALL   SHIFT                                                           SKEL         830     A     
 SKEL               ENDS                                                                   SKEL         831     A     
 SKEL                                                                                      SKEL         832     A     
 SKEL      SHIFV    SUBSKEL                                                                SKEL         833     A     
 SKEL               SB=XB  "TBR",L2                                                        SKEL         834     A     
 SKEL               ILS    R1,"TBR",L1                                                     SKEL         835     A     
 SKEL               ENDS                                                                   SKEL         836     A     
 SKEL                                                                                      SKEL         837     A     
 SKEL      SHLC     SUBEQU SHFC                                                            SKEL         838     A     
 SKEL                                                                                      SKEL         839     A     
 SKEL      SHRC     SUBEQU IDP2                                                            SKEL         840     A     
 SKEL                                                                                      SKEL         841     A     
 SKEL                                                                                      SKEL         842     A     
 SKEL      XOR      SKEQU  NEQV                                                            SKEL         843     A     
 SKEL               EJECT                                                                  SKEL         844     A     
 SKEL     **        V=DOB - DO BEGIN EXPANSION.                                            SKEL         845     A     
 SKEL     *                (L1) = CONTROL INDEX    (I)                                     SKEL         846     A     
 SKEL     *                (L2) = NUMBER OF TRIPS  (TC)                                    SKEL         847     A     
 SKEL     *                (L3) = TRIP COUNTER     (DC.N)                                  SKEL         848     A     
 SKEL     *                (L4) = UPPER LIMIT      (M2)                                    SKEL         849     A     
 SKEL     *                (P5) = DOBEGIN LABEL                                            SKEL         850     A     
 SKEL     *                (P6) = DOEND LABEL      (ONLY IF ZERO-TRIP LOOP)                SKEL         851     A     
 SKEL     *         MEGATURPLE SIZE = 3 TURPLES.                                           SKEL         852     A     
 SKEL                                                                                      SKEL         853     A     
 SKEL                                                                                      SKEL         854     A     
 SKEL                                                                                      SKEL         855     A     
 SKEL      DOBS     SKEL               ONE-TRIP DO BEGIN                                   SKEL         856     A     
 SKEL               CALLC  DOO         SEE IF OPTIMIZABLE                                  SKEL         857     A     
 SKEL      DOBS1    CALL   DOBZ        GL1 = 1                                             SKEL         858     A     
 SKEL               IS     T1,L2,GL1                                                       SKEL         859     A     
 SKEL               ST     L3,T1                                                           SKEL         860     A     
 SKEL               CALLQ  CAR                                                             SKEL         861     A     
 SKEL               CALL   DOB,P5                                                          SKEL         862     A     
 SKEL               ENDS                                                                   SKEL         863     A     
 SKEL                                                                                      SKEL         864     A     
 SKEL      DOBL     SKEL                                                                   SKEL         865     A     
 SKEL               CALLC  DOL         FLAG LONG DO                                        SKEL         866     A     
 SKEL               BRANCH DOBS1                                                           SKEL         867     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               ENDS                                                                   SKEL         868     A     
 SKEL                                                                                      SKEL         869     A     
 SKEL      DOBZS    SKEL               ZERO-TRIP DO BEGIN, SHORT TRIP COUNT                SKEL         870     A     
 SKEL               CALLC  DZO         SEE IF OPTIMIZABLE                                  SKEL         871     A     
 SKEL               SX=XK  T1,L2,-1                                                        SKEL         872     A     
 SKEL               ST     L3,T1                                                           SKEL         873     A     
 SKEL      DOBZ1    MI     T1,P6       IF (TRIP COUNT) <= 0 THEN SKIP LOOP                 SKEL         874     A     
 SKEL               CALLC  DOZ,P5                                                          SKEL         875     A     
 SKEL               CALLQ  CAR                                                             SKEL         876     A     
 SKEL               CALL   DOB,P5                                                          SKEL         877     A     
 SKEL               ENDS                                                                   SKEL         878     A     
 SKEL                                                                                      SKEL         879     A     
 SKEL      DOBZL    SKEL               ZERO TRIP DO BEGIN, LONG COUNT                      SKEL         880     A     
 SKEL               CALLC  DOL         FLAG LONG DO                                        SKEL         881     A     
 SKEL               CALL   DOBZ        SET GL1 = -1                                        SKEL         882     A     
 SKEL               IS     T1,L2,GL1                                                       SKEL         883     A     
 SKEL               ST     L3,T1                                                           SKEL         884     A     
 SKEL               BRANCH DOBZ1,T1                                                        SKEL         885     A     
 SKEL               ENDS                                                                   SKEL         886     A     
 SKEL                                                                                      SKEL         887     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        SKEL         888     A     
 SKEL      DOBO     SUBSKEL                  OPTIMIZED (NO TRIP COUNT) LOOP                SKEL         889     A     
 SKEL               CALL   DOB,P5                                                          SKEL         890     A     
 SKEL               ENDS                                                                   SKEL         891     A     
 SKEL                                                                                      SKEL         892     A     
 SKEL      DOZO     SUBSKEL                  OPTIMIZED ZERO TRIP LOOP                      SKEL         893     A     
 SKEL               SX=XK  T1,L2,-1                                                        SKEL         894     A     
 SKEL               BRANCH DOBZ1,T1                                                        SKEL         895     A     
 SKEL               ENDS                                                                   SKEL         896     A     
 SKEL                                                                                      SKEL         897     A     
 SKEL      #CD      ENDIF                                                                  SKEL         898     A     
 SKEL      V=DOC    SPACE  4,10                                                            SKEL         899     A     
 SKEL     **        V=DOC - DO CONCLUSION CODE.                                            SKEL         900     A     
 SKEL     *                (L1) = CONTROL INDEX    (I)                                     SKEL         901     A     
 SKEL     *                (L2) = INCREMENT VALUE  (M3)                                    SKEL         902     A     
 SKEL     *                (P3) = DO BEGIN LABEL                                           SKEL         903     A     
 SKEL     *                (L4) = TRIP COUNTER     (DC.N)                                  SKEL         904     A     
 SKEL     *         MEGATURPLE LENGTH = 2 TURPLES.                                         SKEL         905     A     
 SKEL                                                                                      SKEL         906     A     
 SKEL                                                                                      SKEL         907     A     
 SKEL      DOC.S    SKEL               INTEGER, SHORT LOOP                                 SKEL         908     A     
 SKEL               CALL   DOC,0       SET (GL1) = INTEGER -1                              SKEL         909     A     
 SKEL               IA     T1,L2,L1                                                        SKEL         910     A     
 SKEL      DOCS1    ST     L1,T1       CONTROL = CONTROL + INCREMENT                       SKEL         911     A     
 SKEL               SX=XK  T3,L4,-1    DECREMENT TRIP COUNTER                              SKEL         912     A     
 SKEL      DOCS2    ST     L4,T3                                                           SKEL         913     A     
 SKEL               PL     T3,P3                                                           SKEL         914     A     
 SKEL               CALL   PDE                                                             SKEL         915     A     
 SKEL               ENDS                                                                   SKEL         916     A     
 SKEL                                                                                      SKEL         917     A     
 SKEL      DOC.O    SKEL                                                                   FC51364        8     A     
 SKEL               CALL   DOC,0                                                           FC51364        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               IA     T1,L2,L1                                                        FC51364       10     A     
 SKEL               ST     L1,T1       CONTROL = CONTROL + INCREMENT                       FC51364       11     A     
 SKEL               CALL   PDE                                                             FC51364       12     A     
 SKEL               ENDS                                                                   FC51364       13     A     
 SKEL                                                                                      FC51364       14     A     
 SKEL      DOC.K    SUBSKEL            INTEGER, SHORT LOOP, CONSTANT INCREMENT             SKEL         918     A     
 SKEL               SX=XK  T1,L1,P2                                                        SKEL         919     A     
 SKEL               BRANCH DOCS1,(T1)                                                      SKEL         920     A     
 SKEL               ENDS                                                                   SKEL         921     A     
 SKEL                                                                                      SKEL         922     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        SKEL         923     A     
 SKEL      DOC.1    SKEL                                                                   FC5A511       13     A     
 SKEL               IA     T1,L1,L2                                                        FC5A511       14     A     
 SKEL               ST     L1,T1       CONTROL = CONTROL + INCREMENT                       FC5A511       15     A     
 SKEL               CALL   PDE1                                                            FC5A511       16     A     
 SKEL               ENDS                                                                   FC5A511       17     A     
 SKEL                                                                                      FC5A511       18     A     
 SKEL      DC.OV    SUBSKEL            OPTIMIZED (NO TRIP COUNT), VAR. INCREMENT           SKEL         924     A     
 SKEL               IA     T1,L1,L2                                                        SKEL         925     A     
 SKEL      DC.O1    ST     L1,T1       I = I + INC                                         SKEL         926     A     
 SKEL               IS     T3,GL1,T1                                                       SKEL         927     A     
 SKEL               PL     T3,P3                                                           SKEL         928     A     
 SKEL               CALL   PDE                                                             SKEL         929     A     
 SKEL               ENDS                                                                   SKEL         930     A     
 SKEL                                                                                      SKEL         931     A     
 SKEL      DC.OC    SUBSKEL            OPTIMIZED (NO TRIP COUNT), CON. INCREMENT           SKEL         932     A     
 SKEL               SX=XK  T1,L1,P2                                                        SKEL         933     A     
 SKEL               BRANCH DC.O1 ,T1                                                       SKEL         934     A     
 SKEL               ENDS                                                                   SKEL         935     A     
 SKEL                                                                                      FC50136        6     A     
 SKEL      DC.OS    SUBSKEL                  OPTIMIZED, CON. INCREMENT AND ULIM            FC50136        7     A     
 SKEL               SX=XK  T1,L1,P2                                                        FC50136        8     A     
 SKEL               ST     L1,T1                                                           FC50136        9     A     
 SKEL               SX=XK  T2,T1,GP1                                                       FC50136       10     A     
 SKEL               MI     T2,P3                                                           FC50136       11     A     
 SKEL               CALL   PDE                                                             FC50136       12     A     
 SKEL               ENDS                                                                   FC50136       13     A     
 SKEL                                                                                      FC5A113        4     A     
 SKEL      DC.O1    SUBSKEL            OPTIMIZED FOR I=J,J                                 FC5A113        5     A     
 SKEL               IA     T1,L1,L2                                                        FC5A113        6     A     
 SKEL               ST     L1,T1       CV = CV + INC                                       FC5A113        7     A     
 SKEL               CALL   PDE1                                                            FC50130        5     A     
 SKEL               ENDS                                                                   FC5A113        8     A     
 SKEL                                                                                      SKEL         936     A     
 SKEL      #CD      ENDIF                                                                  SKEL         937     A     
 SKEL                                                                                      SKEL         938     A     
 SKEL                                                                                      SKEL         939     A     
 SKEL      DOC.L    SKEL               INTEGER, LONG LOOP                                  SKEL         940     A     
 SKEL               CALL   DOC,1                                                           SKEL         941     A     
 SKEL               IA     T1,L1,L2                                                        SKEL         942     A     
 SKEL      DOCL1    ST     L1,T1       CONTROL = CONTROL + INCREMENT                       SKEL         943     A     
 SKEL      DOCL2    IA     T3,L4,GL1   DECREMENT TRIP COUNTER                              SKEL         944     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               BRANCH DOCS2,(T3)                                                      SKEL         945     A     
 SKEL               ENDS                                                                   SKEL         946     A     
 SKEL                                                                                      SKEL         947     A     
 SKEL      DOC.R    SKEL               REAL, ALWAYS LONG                                   SKEL         948     A     
 SKEL               CALL   DOC,1                                                           SKEL         949     A     
 SKEL               FAR    T2,L1,L2                                                        SKEL         950     A     
 SKEL               NR     T1,0,T2                                                         SKEL         951     A     
 SKEL               BRANCH DOCL1,(T1)                                                      SKEL         952     A     
 SKEL               ENDS                                                                   SKEL         953     A     
 SKEL                                                                                      SKEL         954     A     
 SKEL      DOC.D    SKEL               DOUBLE, ALWAYS LONG                                 SKEL         955     A     
 SKEL               CALL   DOC,1                                                           SKEL         956     A     
 SKEL               FA     T1,LU1,LU2                                                      SKEL         957     A     
 SKEL               DFA    T2,LU1,LU2                                                      SKEL         958     A     
 SKEL               FA     T3,LL1,LL2                                                      SKEL         959     A     
 SKEL               NR     T4,0,T1                                                         SKEL         960     A     
 SKEL               FA     T5,T2,T3                                                        SKEL         961     A     
 SKEL               FA     T6,T4,T5                                                        SKEL         962     A     
 SKEL               NR     T7,0,T6                                                         SKEL         963     A     
 SKEL               DFA    T8,T4,T5                                                        SKEL         964     A     
 SKEL               NR     T9,0,T8                                                         SKEL         965     A     
 SKEL               FA     T10,T7,T9                                                       SKEL         966     A     
 SKEL               DFA    T11,T7,T9                                                       SKEL         967     A     
 SKEL               ST     LU1,T10                                                         SKEL         968     A     
 SKEL               ST     LL1,T11                                                         SKEL         969     A     
 SKEL               BRANCH DOCL2                                                           SKEL         970     A     
 SKEL               ENDS                                                                   SKEL         971     A     
 SKEL                                                                                      FC5A218        8     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        FC5A218        9     A     
 SKEL                                                                                      FC5A218       10     A     
 SKEL      IOLC     SKEL               IO LIST COLLAPSE                                    FC5A218       11     A     
 SKEL               CALL   IOLC                                                            FC5A218       12     A     
 SKEL               ENDS                                                                   FC5A218       13     A     
 SKEL                                                                                      FC5A218       14     A     
 SKEL      IOLC1    SUBSKEL                  ONE TRIP (OPTIMIZED) HEADER                   FC5A218       15     A     
 SKEL               IA     T1,L3,L4    CV = ULIM + INCR (1)                                FC5A218       16     A     
 SKEL               ST     L1,T1                                                           FC5A218       17     A     
 SKEL               ENDS                                                                   FC5A218       18     A     
 SKEL                                                                                      FC5A218       19     A     
 SKEL      IOLC0    SUBSKEL                  ZERO TRIP COLLAPSE HEADER                     FC5A218       20     A     
 SKEL      #CD      ELSE                                                                   FC5A218       21     A     
 SKEL      IOLC     SKEL               IO LIST COLLAPSE - DEFINE CONTROL VAR               FC5A218       22     A     
 SKEL      #CD      ENDIF                                                                  FC5A218       23     A     
 SKEL               IS     T1,L3,L2                                                        FC5A218       24     A     
 SKEL               KRS    T3,T1,59                                                        FC5A218       25     A     
 SKEL               IA     T4,L3,L4                                                        FC5A218       26     A     
 SKEL               AND    T5,T3,L2                                                        FC5A218       27     A     
 SKEL               STR    T6,T3,T4                                                        FC5A218       28     A     
 SKEL               OR     T7,T5,T6                                                        FC5A218       29     A     
 SKEL               ST     L1,T7                                                           FC5A218       30     A     
 SKEL               ENDS                                                                   FC5A218       31     A     
 SKEL                                                                                      FC5A248        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      LCIF     SKEL               PROTECT INNER CV DEFINITIONS                        FC5A248        7     A     
 SKEL               IS     T1,L3,L2                                                        FC5A248        8     A     
 SKEL               MI     T1,P1                                                           FC5A248        9     A     
 SKEL               CALLC  IF,1                                                            FC5A248       10     A     
 SKEL               ENDS                                                                   FC5A248       11     A     
 SKEL      GOTO     SPACE  4,10                                                            SKEL         972     A     
 SKEL     **        *GO TO* INSTRUCTIONS.                                                  SKEL         973     A     
 SKEL                                                                                      SKEL         974     A     
 SKEL                                                                                      SKEL         975     A     
 SKEL                                                                                      SKEL         976     A     
 SKEL      GOTO     SKEL                         UNCONDITIONAL GOTO                        SKEL         977     A     
 SKEL               UJP    P1                                                              SKEL         978     A     
 SKEL               CALLC  PGT                                                             SKEL         979     A     
 SKEL               ENDS                                                                   SKEL         980     A     
 SKEL                                                                                      SKEL         981     A     
 SKEL                                                                                      SKEL         982     A     
 SKEL      AGOTO    SKEL                         ASSIGNED GOTO                             SKEL         983     A     
 SKEL               IR     L1,=XS=BU                                                       SKEL         984     A     
 SKEL               SB=XK  "TBR",L1,=XS=TRACE                                              SKEL         985     A     
 SKEL               JIN    "TBR"                                                           SKEL         986     A     
 SKEL               CALLC  PAG                                                             SKEL         987     A     
 SKEL               ENDS                                                                   SKEL         988     A     
 SKEL                                                                                      SKEL         989     A     
 SKEL                                                                                      SKEL         990     A     
 SKEL      CGOTO    SKEL                         COMPUTED GOTO                             SKEL         991     A     
 SKEL     *                            (X1) = EXPRESSION VALUE                             SKEL         992     A     
 SKEL               SX=BK  T1,0,P2     SX6 N.BRANCHES                                      SKEL         993     A     
 SKEL               SX=XK  T2,L1,-1    SX0 X1-1                                            SKEL         994     A     
 SKEL               IS     T3,T2,T1    IX2 X0-X6                                           SKEL         995     A     
 SKEL               IMP    T4,T3,T2    BX3 -X2+X0                                          SKEL         996     A     
 SKEL               KRS    T6,T4,59    AX3 59                                              SKEL         997     A     
 SKEL               STR    T7,T6,T2    BX4 -X3*X0                                          SKEL         998     A     
 SKEL               AND    T8,T6,T1    BX5 X3*X6                                           SKEL         999     A     
 SKEL               IA     T9,T7,T8    BX6 X4+X5                                           SKEL        1000     A     
 SKEL               SB=XB  "TBR",T9    SB2 X6                                              SKEL        1001     A     
 SKEL               CALLQ  CAR                                                             SKEL        1002     A     
 SKEL               CALL   PCG,"TBR"                                                       SKEL        1003     A     
 SKEL               ENDS                                                                   SKEL        1004     A     
 SKEL                                                                                      SKEL        1005     A     
 SKEL      JGOTO    SKEL                         JUMP TO A COMPUTED GOTO BRANCH            SKEL        1006     A     
 SKEL               UJP    P1                                                              SKEL        1007     A     
 SKEL               CALLC  JGOC                                                            SKEL        1008     A     
 SKEL               ENDS                                                                   SKEL        1009     A     
 SKEL                                                                                      SKEL        1010     A     
 SKEL      RGOTO    SKEL               INDEXED JUMP TO ALTERNATE RETURN LABELS             SKEL        1011     A     
 SKEL               CALL   RGT                                                             SKEL        1012     A     
 SKEL               DEF    T1,,"X1."                                                       SKEL        1013     A     
 SKEL               SX=XK  T2,T1,-1                                                        SKEL        1014     A     
 SKEL               SX=XK  T3,T2,GP2                                                       SKEL        1015     A     
 SKEL               IMP    T4,T3,T2                                                        SKEL        1016     A     
 SKEL               KRS    T6,T4,59                                                        SKEL        1017     A     
 SKEL               STR    T7,T6,T1                                                        SKEL        1018     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               LOAD   T8,T7,GP1                                                       SKEL        1019     A     
 SKEL               SB=XB  "TBR",T8                                                        SKEL        1020     A     
 SKEL               CALLQ  CAR                                                             SKEL        1021     A     
 SKEL               JIN    "TBR"                                                           SKEL        1022     A     
 SKEL               ENDS                                                                   SKEL        1023     A     
 SKEL                                                                                      SKEL        1024     A     
 SKEL                                                                                      SKEL        1025     A     
 SKEL      ASSGN    SKEL                                                                   SKEL        1026     A     
 SKEL      #CD      IFEQ   .CG,.FAST                                                       SKEL        1027     A     
 SKEL               CALL   PASG         SETS GL1 TO LA.+K                                  SKEL        1028     A     
 SKEL               ST     L2,GL1                                                          SKEL        1029     A     
 SKEL                                                                                      SKEL        1030     A     
 SKEL      #CD      ELSE                                                                   SKEL        1031     A     
 SKEL               CALL   PASG,L1      ISSUES ST1 L1-TEMPA0.                              SKEL        1032     A     
 SKEL               ENDS                                                                   SKEL        1033     A     
 SKEL                                                                                      SKEL        1034     A     
 SKEL      ASLAB    SUBSKEL                  ASSIGN TO CODE LABEL                          SKEL        1035     A     
 SKEL                                                                                      SKEL        1036     A     
 SKEL     *         P=PASG DEFINES T1.                                                     SKEL        1037     A     
 SKEL                                                                                      SKEL        1038     A     
 SKEL               FMA    T2,1                                                            SKEL        1039     A     
 SKEL               OR     T3,T1,T2                                                        SKEL        1040     A     
 SKEL               ST     L2,T3                                                           SKEL        1041     A     
 SKEL               ENDS                                                                   SKEL        1042     A     
 SKEL                                                                                      SKEL        1043     A     
 SKEL      ASFMT    SUBSKEL                  ASSIGN TO FORMAT LABEL                        SKEL        1044     A     
 SKEL               ST     L2,T1                                                           SKEL        1045     A     
 SKEL      #CD      ENDIF                                                                  SKEL        1046     A     
 SKEL               ENDS                                                                   SKEL        1047     A     
 SKEL                                                                                      SKEL        1048     A     
 SKEL      BSS      SKEL                                                                   SKEL        1049     A     
 SKEL               CALL   PLA,P1                                                          SKEL        1050     A     
 SKEL               ENDS                                                                   SKEL        1051     A     
 SKEL                                                                                      SKEL        1052     A     
 SKEL      ARY      SKEL                     SUBSCRIPTED ARRAY LOAD                        SKEL        1053     A     
 SKEL               CALL   PAR         PROCESS ARRAY REFERENCE                             SKEL        1054     A     
 SKEL               ENDS                                                                   SKEL        1055     A     
 SKEL      APL      SPACE  4,10                                                            SKEL        1056     A     
 SKEL     **        AP-LIST CONSTRUCTION.                                                  SKEL        1057     A     
 SKEL                                                                                      SKEL        1058     A     
 SKEL                                                                                      SKEL        1059     A     
 SKEL      GAP      SKEL                                                                   SKEL        1060     A     
 SKEL               CALL   GAP         PROCESS GENERAL ACTUAL PARAMETER                    SKEL        1061     A     
 SKEL               ENDS                                                                   SKEL        1062     A     
 SKEL                                                                                      SKEL        1063     A     
 SKEL      FAP      SKEL                                                                   SKEL        1064     A     
 SKEL               CALL   FAP         FUNCTION APLIST FOLLOWS                             SKEL        1065     A     
 SKEL               ENDS                                                                   SKEL        1066     A     
 SKEL                                                                                      SKEL        1067     A     
 SKEL      IAP      SKEL                                                                   SKEL        1068     A     
 SKEL               CALL   IAP         PROCESS INTRINSIC ACTUAL PARAMETER                  SKEL        1069     A     
 SKEL               ENDS                                                                   SKEL        1070     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      V=RAG    SPACE  4,10                                                            SKEL        1071     A     
 SKEL     **        V=RAG - REGISTER ASSIGNEMENT AND LOAD FOR CALL BY VALUE SKELS.         SKEL        1072     A     
 SKEL     *                (1OP) = FIRST  ARGUMENT.                                        SKEL        1073     A     
 SKEL     *                (2OP) = SECOND ARGUMENT (OR NIL).                               SKEL        1074     A     
 SKEL     *         QCG ONLY.  CCG DOES THIS WITH REGISTER STORES.                         SKEL        1075     A     
 SKEL                                                                                      SKEL        1076     A     
 SKEL                                                                                      SKEL        1077     A     
 SKEL      #CD      IFEQ   .CG,.FAST                                                       SKEL        1078     A     
 SKEL                                                                                      SKEL        1079     A     
 SKEL      IAPS1    SUBSKEL                                                                SKEL        1080     A     
 SKEL               LD     L1,,+R.X1   FIRST ARGUMENT                                      SKEL        1081     A     
 SKEL               ENDS                                                                   SKEL        1082     A     
 SKEL                                                                                      SKEL        1083     A     
 SKEL      IAPD1    SUBSKEL                                                                SKEL        1084     A     
 SKEL               LD     LU1,,+R.X1  FIRST ARGUMENT, DOUBLE                              SKEL        1085     A     
 SKEL               LD     LL1,,+R.X2                                                      SKEL        1086     A     
 SKEL               ENDS                                                                   SKEL        1087     A     
 SKEL                                                                                      SKEL        1088     A     
 SKEL      IAPS2    SUBSKEL                                                                SKEL        1089     A     
 SKEL               LD     L1,,+R.X3   SECOND ARGUMENT                                     SKEL        1090     A     
 SKEL               ENDS                                                                   SKEL        1091     A     
 SKEL                                                                                      SKEL        1092     A     
 SKEL      IAPD2    SUBSKEL                                                                SKEL        1093     A     
 SKEL               LD     LU1,,+R.X3  SECOND ARGUMENT, DOUBLE                             SKEL        1094     A     
 SKEL               LD     LL1,,+R.X4                                                      SKEL        1095     A     
 SKEL               ENDS                                                                   SKEL        1096     A     
 SKEL      #CD      ENDIF                                                                  SKEL        1097     A     
 SKEL                                                                                      SKEL        1098     A     
 SKEL     **        CALL BY REFERENCE APLIST SETUP AND CODE  SKELETONS                     SKEL        1099     A     
 SKEL                                                                                      SKEL        1100     A     
 SKEL      APIOC    SKEL                                                                   SKEL        1101     A     
 SKEL               CALL   IOC         PROCESS I/O CONTROL PARAMETER                       SKEL        1102     A     
 SKEL               ENDS                                                                   SKEL        1103     A     
 SKEL                                                                                      SKEL        1104     A     
 SKEL      APIOD    SKEL                                                                   SKEL        1105     A     
 SKEL               CALL   IOD         PROCESS I/O DATA PARAMETER (LIST ITEM)              SKEL        1106     A     
 SKEL               ENDS                                                                   SKEL        1107     A     
 SKEL                                                                                      SKEL        1108     A     
 SKEL      APIOU    SKEL                                                                   SKEL        1109     A     
 SKEL               CALL   IOU         PROCESS I/O UNIT                                    SKEL        1110     A     
 SKEL               ENDS                                                                   SKEL        1111     A     
 SKEL                                                                                      SKEL        1112     A     
 SKEL                                                                                      SKEL        1113     A     
 SKEL      APSTR    SUBSKEL                                                                SKEL        1114     A     
 SKEL               ST     GL2,GL1                                                         SKEL        1115     A     
 SKEL               CALL   APRET                                                           SKEL        1116     A     
 SKEL               ENDS                                                                   SKEL        1117     A     
 SKEL                                                                                      SKEL        1118     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        FC5A128       20     A     
 SKEL      IPLUG    SUBSKEL                  MUST FOLLOW APSTR                             SKEL        1119     A     
 SKEL               FMA    T1,36       PLUG ADDRESS INTO I/O AP-LIST                       SKEL        1120     A     
 SKEL               AND    T2,T1,GL2                                                       SKEL        1121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               OR     T3,T2,GL1                                                       SKEL        1122     A     
 SKEL               ST     GL2,T3                                                          SKEL        1123     A     
 SKEL               CALL   APRET                                                           SKEL        1124     A     
 SKEL               ENDS                                                                   SKEL        1125     A     
 SKEL                                                                                      FC51544        7     A     
 SKEL      IPLG1    SUBSKEL                                                                FC51544        8     A     
 SKEL               FMA    T1,36                                                           FC51544        9     A     
 SKEL               AND    T2,T1,GL2                                                       FC51544       10     A     
 SKEL               STR    T3,T1,GL1                                                       FC51544       11     A     
 SKEL               OR     T4,T2,T3                                                        FC51544       12     A     
 SKEL               ST     GL2,T4                                                          FC51544       13     A     
 SKEL               CALL   APRET                                                           FC51544       14     A     
 SKEL               ENDS                                                                   FC51544       15     A     
 SKEL                                                                                      FC51544       16     A     
 SKEL      IPLG2    SUBSKEL                                                                FC51544       17     A     
 SKEL               FMA    T1,25                                                           FC51544       18     A     
 SKEL               KLS    T3,T1,24                                                        FC51544       19     A     
 SKEL               STR    T4,T3,GL2                                                       FC51544       20     A     
 SKEL               AND    T5,T3,GL1                                                       FC51544       21     A     
 SKEL               OR     T6,T4,T5                                                        FC51544       22     A     
 SKEL               ST     GL2,T6                                                          FC51544       23     A     
 SKEL               CALL   APRET                                                           FC51544       24     A     
 SKEL               ENDS                                                                   FC51544       25     A     
 SKEL      #CD      ENDIF                                                                  FC5A128       21     A     
 SKEL                                                                                      SKEL        1126     A     
 SKEL      IPLG0    SUBSKEL                  PLUG LEVEL 0 I/O APLIST                       SKEL        1127     A     
 SKEL               FMA    T1,25       MX1   25                                            SKEL        1128     A     
 SKEL               KLS    T3,T1,24    LX3   X1,24                                         SKEL        1129     A     
 SKEL               STR    T4,T3,GL2   BX4   -X1*X.GL2                                     SKEL        1130     A     
 SKEL               OR     T5,T4,GL1   BX5   X4+X.GL1                                      SKEL        1131     A     
 SKEL               ST     GL2,T5                                                          SKEL        1132     A     
 SKEL               CALL   APRET                                                           SKEL        1133     A     
 SKEL               ENDS                                                                   SKEL        1134     A     
 SKEL                                                                                      SKEL        1135     A     
 SKEL     *         CHARACTER APLIST STORES.                                               SKEL        1136     A     
 SKEL                                                                                      SKEL        1137     A     
 SKEL      CAPST    SUBSKEL            NON IO CHARACTER APSTORE                            SKEL        1138     A     
 SKEL               DEF    T1,,"X6."                                                       SKEL        1139     A     
 SKEL               ST     GL1,T1                                                          SKEL        1140     A     
 SKEL               CALL   SCRET                                                           SKEL        1141     A     
 SKEL               ENDS                                                                   SKEL        1142     A     
 SKEL                                                                                      SKEL        1143     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        FC5A128       22     A     
 SKEL      CISST    SUBSKEL            CHARACTER I/O SCALAR                                SKEL        1144     A     
 SKEL               DEF    T1,,"X6."                                                       SKEL        1145     A     
 SKEL               FMA    T2,12                                                           SKEL        1146          I
          -FC51351
 SKEL               AND    T3,T2,GL1                                                       SKEL        1147          I
          -FC51351
 SKEL               STR    T5,T2,T1                                                        SKEL        1148          I
          -FC51351
 SKEL               OR     T4,T3,T5                                                        SKEL        1149          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
          -FC51351
 SKEL               ST     GL1,T4                                                          SKEL        1150          I
          -FC51351
 SKEL               FMA    T2,49                                                           FC51351        6     A     
 SKEL               KLS    T4,T2,48                                                        FC51351        7     A     
 SKEL               STR    T5,T4,GL1                                                       FC51351        8     A     
 SKEL               AND    T7,T4,T1                                                        FC51351        9     A     
 SKEL               OR     T6,T7,T5                                                        FC51351       10     A     
 SKEL               ST     GL1,T6                                                          FC51351       11     A     
 SKEL               CALL   SCRET                                                           SKEL        1151     A     
 SKEL               ENDS                                                                   SKEL        1152     A     
 SKEL                                                                                      SKEL        1153     A     
 SKEL      CIAST    SUBSKEL            CHARACTER I/O ARRAY                                 SKEL        1154     A     
 SKEL               DEF    T1,,"X6."                                                       SKEL        1155     A     
 SKEL               FMA    T2,30                                                           SKEL        1156     A     
 SKEL               AND    T3,T2,GL1                                                       SKEL        1157     A     
 SKEL               STR    T4,T2,T1                                                        SKEL        1158     A     
 SKEL               OR     T5,T3,T4                                                        SKEL        1159     A     
 SKEL               ST     GL1,T5                                                          SKEL        1160     A     
 SKEL               CALL   SCRET                                                           SKEL        1161     A     
 SKEL               ENDS                                                                   SKEL        1162     A     
 SKEL      #CD      ENDIF                                                                  FC5A128       23     A     
 SKEL                                                                                      SKEL        1163     A     
 SKEL      CIS0S    SUBSKEL            CHARACTER I/O SCALAR (LEVEL 0)                      SKEL        1164     A     
 SKEL               DEF    T1,,"X6."                                                       SKEL        1165     A     
 SKEL               FMA    T2,49                                                           SKEL        1166     A     
 SKEL               KLS    T4,T2,48                                                        SKEL        1167     A     
 SKEL               STR    T5,T4,GL1                                                       SKEL        1168     A     
 SKEL               AND    T7,T4,T1                                                        SKEL        1169     A     
 SKEL               OR     T6,T7,T5                                                        SKEL        1170     A     
 SKEL               ST     GL1,T6                                                          SKEL        1171     A     
 SKEL               CALL   SCRET                                                           SKEL        1172     A     
 SKEL               ENDS                                                                   SKEL        1173     A     
 SKEL                                                                                      SKEL        1174     A     
 SKEL      CIA0S    SUBSKEL            CHARACTER I/O ARRAY (LEVEL 0)                       SKEL        1175     A     
 SKEL               DEF    T1,,"X6."                                                       SKEL        1176     A     
 SKEL               FMA    T2,31                                                           SKEL        1177     A     
 SKEL               KLS    T4,T2,30                                                        SKEL        1178     A     
 SKEL               AND    T5,T4,T1                                                        SKEL        1179     A     
 SKEL               STR    T6,T4,GL1                                                       SKEL        1180     A     
 SKEL               OR     T7,T5,T6                                                        SKEL        1181     A     
 SKEL               ST     GL1,T7                                                          SKEL        1182     A     
 SKEL               CALL   SCRET                                                           SKEL        1183     A     
 SKEL               ENDS                                                                   SKEL        1184     A     
 SKEL                                                                                      FC5A243        9     A     
 SKEL      #CD      IFEQ   .CG,.FAST                                                       FC5A243       10     A     
 SKEL      LUA      SUBSKEL                  LOAD UNKNOWN-LENGTH APLIST ITEM               FC5A243       11     A     
 SKEL               XMT    "X6.",GL1                                                       FC5A243       12     A     
 SKEL               CALL   LURET                                                           FC5A243       13     A     
 SKEL               ENDS                                                                   FC5A243       14     A     
 SKEL                                                                                      FC5A243       15     A     
 SKEL      SUA      SUBSKEL                  STORE UNKNOWN-LENGTH APLIST ITEM              FC5A243       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               DEF    T1,,"X6."                                                       FC5A243       17     A     
 SKEL               ST     GL1,T1                                                          FC5A243       18     A     
 SKEL               CALL   SURET                                                           FC5A243       19     A     
 SKEL               ENDS                                                                   FC5A243       20     A     
 SKEL      #CD      ENDIF                                                                  FC5A243       21     A     
 SKEL                                                                                      FC5A243       22     A     
 SKEL                                                                                      SKEL        1185     A     
 SKEL      SUBR     SKEL                                                                   SKEL        1186     A     
 SKEL               CALL   SUB         PROCESS SUBROUTINE                                  SKEL        1187     A     
 SKEL               ENDS                                                                   SKEL        1188     A     
 SKEL                                                                                      SKEL        1189     A     
 SKEL      FUNC     SKEL                                                                   SKEL        1190     A     
 SKEL               CALL   FUN         PROCESS GENERAL FUNCTION                            SKEL        1191     A     
 SKEL               ENDS                                                                   SKEL        1192     A     
 SKEL                                                                                      SKEL        1193     A     
 SKEL      LIBF     SKEL               LIBRARY FUNCTION (NO ZERO TERMINATOR)               SKEL        1194     A     
 SKEL               CALL   LIBF                                                            SKEL        1195     A     
 SKEL               ENDS                                                                   SKEL        1196     A     
 SKEL      INTF     SKEL                                                                   SKEL        1197     A     
 SKEL               CALL   INF         PROCESS INTRINSIC FUNCTION CALL                     SKEL        1198     A     
 SKEL               ENDS                                                                   SKEL        1199     A     
 SKEL                                                                                      SKEL        1200     A     
 SKEL      IOSUB    SKEL                                                                   SKEL        1201     A     
 SKEL               CALL   IOF         PROCESS I/O ROUTINE                                 SKEL        1202     A     
 SKEL               ENDS                                                                   SKEL        1203     A     
 SKEL                                                                                      SKEL        1204     A     
 SKEL      #CD      IFEQ   .CG,.OPT                                                        SKEL        1205     A     
 SKEL                                                                                      SKEL        1206     A     
 SKEL      DFRS     SUBSKEL            DEFINE SINGLE-VALUED FUNCTION RESULT                SKEL        1207     A     
 SKEL               DEF    R1,,"X6."                                                       SKEL        1208     A     
 SKEL               CALL   FRRET                                                           SKEL        1209     A     
 SKEL               ENDS                                                                   SKEL        1210     A     
 SKEL                                                                                      SKEL        1211     A     
 SKEL      DFRD     SUBSKEL            DOUBLE-VALUED FUNCTION RESULT                       SKEL        1212     A     
 SKEL               DEF    R1,,"X6."                                                       SKEL        1213     A     
 SKEL               DEF    RL1,,"X7."                                                      SKEL        1214     A     
 SKEL               CALL   FRRET                                                           SKEL        1215     A     
 SKEL               ENDS                                                                   SKEL        1216     A     
 SKEL                                                                                      SKEL        1217     A     
 SKEL      #CD      ENDIF                                                                  SKEL        1218     A     
 SKEL                                                                                      SKEL        1219     A     
 SKEL                                                                                      SKEL        1220     A     
 SKEL      ERR      SKEL                         SOURCE PROGRAM FATAL ERROR                SKEL        1221     A     
 SKEL               CALLQ  CDW         DRITE                                               SKEL        1222     A     
 SKEL               RJT    =XS=ERR                                                         SKEL        1223     A     
 SKEL               CALLQ  CAR         CLEAR REGS                                          SKEL        1224     A     
 SKEL               ENDS                                                                   SKEL        1225     A     
 SKEL      EXIT.    SPACE  4,10                                                            SKEL        1226     A     
 SKEL     **        SUBPROGRAM EXIT INSTRUCTIONS.                                          SKEL        1227     A     
 SKEL                                                                                      SKEL        1228     A     
 SKEL                                                                                      SKEL        1229     A     
 SKEL      STOP     SKEL                                                                   SKEL        1230     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               CALL   LIB                                                             SKEL        1231     A     
 SKEL               CALLC  PEX                                                             SKEL        1232     A     
 SKEL               ENDS                                                                   SKEL        1233     A     
 SKEL                                                                                      SKEL        1234     A     
 SKEL      PEND     SKEQU  STOP                                                            SKEL        1235     A     
 SKEL                                                                                      SKEL        1236     A     
 SKEL      PAUS     SKEL                                                                   SKEL        1237     A     
 SKEL               CALL   LIB                                                             SKEL        1238     A     
 SKEL               ENDS                                                                   SKEL        1239     A     
 SKEL                                                                                      SKEL        1240     A     
 SKEL      RET      SKEL                                                                   SKEL        1241     A     
 SKEL               CALLQ  CDW         DRITE                                               SKEL        1242     A     
 SKEL               UJP    =XS=EXIT                                                        SKEL        1243     A     
 SKEL               CALLC  PEX                                                             SKEL        1244     A     
 SKEL               ENDS                                                                   SKEL        1245     A     
 SKEL                                                                                      SKEL        1246     A     
 SKEL      RTNK     SKEL               ALTERNATE RETURN                                    SKEL        1247     A     
 SKEL               XMTL   X1,T1,L1                                                        SKEL        1248     A     
 SKEL               CALLQ  CDW         CALL DRITE                                          SKEL        1249     A     
 SKEL               UJP    =XS=AEXIT                                                       SKEL        1250     A     
 SKEL               CALLC  PEX                                                             SKEL        1251     A     
 SKEL               ENDS                                                                   SKEL        1252     A     
 SKEL      ENTRY.   SPACE  4,8                                                             SKEL        1253     A     
 SKEL     **        COMMON ENTRY DEFINITION CODE SKELETONS.                                SKEL        1254     A     
 SKEL     *                                                                                SKEL        1255     A     
 SKEL     *         V=ENTR PROCESS INITIAL REFERENCE TO AN ALT ENTRY                       SKEL        1256     A     
 SKEL     *         V=BVD  BEGIN VAR DIM CODE                                              SKEL        1257     A     
 SKEL     *         V=EVD  END VAR DIM CODE                                                SKEL        1258     A     
 SKEL                                                                                      SKEL        1259     A     
 SKEL                                                                                      SKEL        1260     A     
 SKEL      GPL      SKEL               GET PASSED LENGTH (OF FP)                           SKEL        1261     A     
 SKEL               FMA    T1,42                                                           SKEL        1262     A     
 SKEL               KRS    T3,L1,30                                                        SKEL        1263     A     
 SKEL               STR    R1,T1,T3                                                        SKEL        1264     A     
 SKEL               ENDS                                                                   SKEL        1265     A     
 SKEL                                                                                      SKEL        1266     A     
 SKEL      ENTR     SKEL                                                                   SKEL        1267     A     
 SKEL               CALL   ENT                                                             SKEL        1268     A     
 SKEL               ENDS                                                                   SKEL        1269     A     
 SKEL                                                                                      SKEL        1270     A     
 SKEL                                                                                      SKEL        1271     A     
 SKEL      BVD      SKEL               BEGIN VARDIM CODE                                   SKEL        1272     A     
 SKEL               CALL   BVD                                                             SKEL        1273     A     
 SKEL               ENDS                                                                   SKEL        1274     A     
 SKEL                                                                                      SKEL        1275     A     
 SKEL                                                                                      SKEL        1276     A     
 SKEL      EVD      SKEL               END VARDIM CODE                                     SKEL        1277     A     
 SKEL               CALL   EVD                                                             SKEL        1278     A     
 SKEL               ENDS                                                                   SKEL        1279     A     
 SKEL                                                                                      SKEL        1280     A     
 SKEL      #CD      IFEQ   .CG,.FAST                                                       SKEL        1281     A     
 SKEL                                                                                      SKEL        1282     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL     **        QCG PROLOGUE AND ENTRY CODE SKELETONS                                  SKEL        1283     A     
 SKEL     *                                                                                SKEL        1284     A     
 SKEL     *         V=PROM  - MAIN PROGRAM PROGLOGUE CODE.                                 SKEL        1285     A     
 SKEL     *         V=PROS  - SUB PROGRAM PROGLOGUE CODE.                                  SKEL        1286     A     
 SKEL     *                                                                                SKEL        1287     A     
 SKEL     *         V=MFPNT - FP CODE UNIQUE TO A MAIN ENTRY CODE OF A SUBR                SKEL        1288     A     
 SKEL     *         V=FUNT  - FUNCTION SUBPROGRAM RESULT CODE                              SKEL        1289     A     
 SKEL     *         V=DFENT - DOUBLE PRECISION FUNCTION CODE                               SKEL        1290     A     
 SKEL     *         V=TMENT - ENTRY/EXIT SETUP + A CALL TO GENERAL ENTRY FP CODE           SKEL        1291     A     
 SKEL     *         V=ALENT - NORMAL ALTERNATE ENTRY CODE                                  SKEL        1292     A     
 SKEL     *         V=TENT  - TERMINATE ALTERNATE ENTRY CODE                               SKEL        1293     A     
 SKEL     *         V=FPENT - FP CODE FOR ALL ENTRY POINTS INCLUDES ANY VARDIM             SKEL        1294     A     
 SKEL     *         V=VDENT - VAR DIM CODE EXPANSION (CALLS A NEW I. L.)                   SKEL        1295     A     
 SKEL                                                                                      SKEL        1296     A     
 SKEL      PROM     SUBSKEL                  MAIN PROGRAM PROLOG                           SKEL        1297     A     
 SKEL               LABL   =XS=ENTRY                                                       SKEL        1298     A     
 SKEL               XMTL   X1,T1,=XS=FILES                                                 SKEL        1299     A     
 SKEL               RJ3    =XS=INIT                                                        SKEL        1300     A     
 SKEL               CALL   FINX                                                            SKEL        1301     A     
 SKEL               ENDS                                                                   SKEL        1302     A     
 SKEL                                                                                      SKEL        1303     A     
 SKEL      PROS     SUBSKEL                  SUB PROGRAM PROLOG                            SKEL        1304     A     
 SKEL               CALL   GENT              GENERATE ALT ENT CODE(CALLS V=ALENT)          SKEL        1305     A     
 SKEL      PROS.M   CALL   MENT              MAIN ENT (CALLS V=MFPNT OR V=TMENT)           SKEL        1306     A     
 SKEL               ENDS                                                                   SKEL        1307     A     
 SKEL                                                                                      SKEL        1308     A     
 SKEL     *         MAIN ENTRY CODE SUBSKELETONS                                           SKEL        1309     A     
 SKEL                                                                                      SKEL        1310     A     
 SKEL      MFPNT    SUBSKEL                  RESET A0 FOR CALLER                           SKEL        1311     A     
 SKEL               SA=BK  A2,=XS=TA0                                                      SKEL        1312     A     
 SKEL               SA=XB  A0,X2                                                           SKEL        1313     A     
 SKEL               ENDF                                                                   SKEL        1314     A     
 SKEL                                                                                      SKEL        1315     A     
 SKEL      FUNT     SUBSKEL                  FUNCTION ENTRY CODE                           SKEL        1316     A     
 SKEL               CALL   FUNT                                                            SKEL        1317     A     
 SKEL               SA=BK  A4,=XS=VALUE                                                    SKEL        1318     A     
 SKEL               XMT    X6,X4                                                           SKEL        1319     A     
 SKEL               BRANCH TMENT1            TERMINATE MAIN ENTRY                          SKEL        1320     A     
 SKEL               ENDS                                                                   SKEL        1321     A     
 SKEL                                                                                      SKEL        1322     A     
 SKEL      DFENT    SUBSKEL                  DOUBLE PRECISION CODE                         SKEL        1323     A     
 SKEL               SA=BK  A4,=XS=VALUE                                                    SKEL        1324     A     
 SKEL               SA=AK  A3,A4,+1                                                        SKEL        1325     A     
 SKEL               XMT    X6,X4                                                           SKEL        1326     A     
 SKEL               ILS    X7,,X3                                                          SKEL        1327     A     
 SKEL               ENDF                                                                   SKEL        1328     A     
 SKEL                                                                                      SKEL        1329     A     
 SKEL      TMENT    SUBSKEL                  TERMINATE MAIN ENTRY CODE                     SKEL        1330     A     
 SKEL      TMENT1   LABL   =XS=ENTRY                                                       SKEL        1331     A     
 SKEL               UJP    =XS=ENTRY         RETURN ADDRESS WORD                           SKEL        1332     A     
 SKEL               CALL   FPENT             SET A0,ADD SUB, VARDIM                        SKEL        1333          I
          -F2950F5A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               CALL   FPHDR       PROCESS HEADER INITIAL CODE                         F2950F5A      11     A     
 SKEL               CALL   FINX                                                            SKEL        1334     A     
 SKEL               ENDS                                                                   SKEL        1335     A     
 SKEL                                                                                      SKEL        1336     A     
 SKEL     *         ALTERNATE ENTRY SUBSKELS                                               SKEL        1337     A     
 SKEL                                                                                      SKEL        1338     A     
 SKEL      ALENT    SUBSKEL                  STANDARD ALT-ENTRY CODE                       SKEL        1339     A     
 SKEL               LABL   GP1               GP1 IS ALENT TAG                              SKEL        1340     A     
 SKEL               UJP    GP1                                                             SKEL        1341     A     
 SKEL               SA=BK  A4,GP1                                                          SKEL        1342     A     
 SKEL               XMT    X6,X4                                                           SKEL        1343     A     
 SKEL               SA=BK  A6,=XS=ENTRY      STORE RETURN ADDR IN ENTRY/EXIT               SKEL        1344     A     
 SKEL               CALL   FPENT                                                           SKEL        1345     A     
 SKEL               ENDF                                                                   SKEL        1346     A     
 SKEL                                                                                      SKEL        1347     A     
 SKEL     *         FP CODE CAN SANDWICH IN HERE.                                          SKEL        1348     A     
 SKEL                                                                                      SKEL        1349     A     
 SKEL      TENT     SUBSKEL                  TERMINATE ALT ENT CODE                        SKEL        1350     A     
 SKEL               UJP    GP2               (GP2) = ENTRY GENERATED LABEL                 SKEL        1351     A     
 SKEL               CALL   GENTX             LOOP FOR NEXT ENTRY                           SKEL        1352     A     
 SKEL               BRANCH PROS.M            GENTERAT MAIN ENTRY CODE                      SKEL        1353     A     
 SKEL               ENDS                                                                   SKEL        1354     A     
 SKEL                                                                                      SKEL        1355     A     
 SKEL                                                                                      SKEL        1356     A     
 SKEL                                                                                      SKEL        1357     A     
 SKEL      #CD      ENDIF                                                                  SKEL        1358     A     
 SKEL      HDR      SPACE  4,10                                                            SKEL        1359     A     
 SKEL     **        IL STRUCTURE AND BOILER-PLATE.                                         SKEL        1360     A     
 SKEL                                                                                      SKEL        1361     A     
 SKEL                                                                                      SKEL        1362     A     
 SKEL      SEG      SKEL                                                                   SKEL        1363     A     
 SKEL               CALLC  SEG                                                             SKEL        1364     A     
 SKEL               ENDS                                                                   SKEL        1365     A     
 SKEL                                                                                      SKEL        1366     A     
 SKEL      NOOP     SKEL   ILL                                                             SKEL        1367     A     
 SKEL               CALLQ  NOOP                                                            SKEL        1368     A     
 SKEL               ENDS                                                                   SKEL        1369     A     
 SKEL                                                                                      SKEL        1370     A     
 SKEL      HDR      SKEL                         BEGIN NEW PROGRAM-UNIT                    SKEL        1371     A     
 SKEL               CALL   HDR                                                             SKEL        1372     A     
 SKEL               ENDS                                                                   SKEL        1373     A     
 SKEL                                                                                      SKEL        1374     A     
 SKEL      FILE     SKEL                                                                   SKEL        1375     A     
 SKEL               CALL   GFD         GENERATE FILE DECLARATION                           SKEL        1376     A     
 SKEL               ENDS                                                                   SKEL        1377     A     
 SKEL                                                                                      SKEL        1378     A     
 SKEL      PLIM     SKEL                     END OF FILE DECLARATIONS                      SKEL        1379     A     
 SKEL               CALL   PLIM                                                            SKEL        1380     A     
 SKEL               ENDS                                                                   SKEL        1381     A     
 SKEL                                                                                      SKEL        1382     A     
 SKEL      SEX      SKEL                         START OF EXECUTABLES                      SKEL        1383     A     
 SKEL               CALL   SEX                                                             SKEL        1384     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               ENDS                                                                   SKEL        1385     A     
 SKEL                                                                                      SKEL        1386     A     
 SKEL      CDLOO    SKEL               OBJECT LIST ON/OFF                                  SKEL        1387     A     
 SKEL               CALL   CDLOO                                                           SKEL        1388     A     
 SKEL               ENDS                                                                   SKEL        1389     A     
 SKEL                                                                                      SKEL        1390     A     
 SKEL      CDDOT    SKEL               ZERO/ONE-TRIP DO                                    SKEL        1391     A     
 SKEL               CALL   CDDOT                                                           SKEL        1392     A     
 SKEL               ENDS                                                                   SKEL        1393     A     
 SKEL                                                                                      SKEL        1394     A     
 SKEL      CDCS     SKEL               USER/FIXED COLLATE                                  SKEL        1395     A     
 SKEL               CALL   CDCS                                                            SKEL        1396     A     
 SKEL               ENDS                                                                   SKEL        1397     A     
 SKEL                                                                                      SKEL        1398     A     
 SKEL      DATA     SKEL               DATA TABLE INFO                                     SKEL        1399     A     
 SKEL               CALL   DATA                                                            SKEL        1400     A     
 SKEL               ENDS                                                                   SKEL        1401     A     
 SKEL                                                                                      SKEL        1402     A     
 SKEL      FIN      SKEL                         END OF IL                                 SKEL        1403     A     
 SKEL               CALLQ  CDW                                                             SKEL        1404     A     
 SKEL               CALLQ  CAR                                                             SKEL        1405     A     
 SKEL               CALL   FIN                                                             SKEL        1406     A     
 SKEL               ENDS                                                                   SKEL        1407     A     
 SKEL                                                                                      SKEL        1408     A     
 SKEL      LCC      SKEL                         LOADER CONTROL CARD                       SKEL        1409     A     
 SKEL               CALL   LCC                                                             SKEL        1410     A     
 SKEL               ENDS                                                                   SKEL        1411     A     
 SKEL                                                                                      SKEL        1412     A     
 SKEL      DVI      SKEL                                                                   SKEL        1413     A     
 SKEL               CALL   ILL                                                             SKEL        1414     A     
 SKEL               ENDS                                                                   SKEL        1415     A     
 SKEL                                                                                      SKEL        1416     A     
 SKEL      EXP.I    SKEL               I**J FOR DATA                                       SKEL        1417     A     
 SKEL               CALL   ILL                                                             SKEL        1418     A     
 SKEL               ENDS                                                                   SKEL        1419     A     
 SKEL                                                                                      SKEL        1420     A     
 SKEL      DOBD2    SKEL                                                                   SKEL        1421     A     
 SKEL               CALLQ  NOOP                                                            SKEL        1422     A     
 SKEL               ENDS                                                                   SKEL        1423     A     
 SKEL      IF       SPACE  4,10                                                            SKEL        1424     A     
 SKEL     *         *IF* INSTRUCTION SKELETONS.                                            SKEL        1425     A     
 SKEL                                                                                      SKEL        1426     A     
 SKEL                                                                                      SKEL        1427     A     
 SKEL      IFI123   SKEL                                                                   SKEL        1428     A     
 SKEL               ZR     L1,"N2"                                                         SKEL        1429          I
          -FC5A164
 SKEL               PL     L1,"N3"                                                         SKEL        1430          I
          -FC5A164
 SKEL               XMT    T1,L1                                                           FC5A164        9     A     
 SKEL               ZR     T1,"N2"                                                         FC5A164       10     A     
 SKEL               PL     T1,"N3"                                                         FC5A164       11     A     
 SKEL                                                                                      SKEL        1431     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               UJP    "N1"                                                            SKEL        1432     A     
 SKEL               CALLC  IF,3                                                            SKEL        1433     A     
 SKEL               ENDS                                                                   SKEL        1434     A     
 SKEL                                                                                      SKEL        1435     A     
 SKEL      IFI122   SKEL                                                                   SKEL        1436     A     
 SKEL               CLR    T1                                                              SKEL        1437     A     
 SKEL               IAZ    T2,T1,L1                                                        SKEL        1438     A     
 SKEL               PL     T2,"N2"                                                         SKEL        1439     A     
 SKEL               UJP    "N1"                                                            SKEL        1440     A     
 SKEL               CALLC  IF,2                                                            SKEL        1441     A     
 SKEL               ENDS                                                                   SKEL        1442     A     
 SKEL                                                                                      SKEL        1443     A     
 SKEL      IFR122   SKEL                                                                   SKEL        1444     A     
 SKEL               PNR    T1,0,L1                                                         SKEL        1445     A     
 SKEL               PL     T1,"N2"                                                         SKEL        1446     A     
 SKEL               UJP    "N1"                                                            SKEL        1447     A     
 SKEL               CALLC  IF,2                                                            SKEL        1448     A     
 SKEL               ENDS                                                                   SKEL        1449     A     
 SKEL                                                                                      SKEL        1450     A     
 SKEL      IFI113   SKEL                                                                   SKEL        1451     A     
 SKEL               CLR    T1                                                              SKEL        1452     A     
 SKEL               ISZ    T2,T1,L1                                                        SKEL        1453     A     
 SKEL               PL     T2,"N1"                                                         SKEL        1454     A     
 SKEL               UJP    "N3"                                                            SKEL        1455     A     
 SKEL               CALLC  IF,2                                                            SKEL        1456     A     
 SKEL               ENDS                                                                   SKEL        1457     A     
 SKEL                                                                                      SKEL        1458     A     
 SKEL      IFR113   SKEL                                                                   SKEL        1459     A     
 SKEL               XMTC   T1,L1                                                           SKEL        1460     A     
 SKEL               PNR    T2,0,T1                                                         SKEL        1461     A     
 SKEL               PL     T2,"N1"                                                         SKEL        1462     A     
 SKEL               UJP    "N3"                                                            SKEL        1463     A     
 SKEL               CALLC  IF,2                                                            SKEL        1464     A     
 SKEL               ENDS                                                                   SKEL        1465     A     
 SKEL                                                                                      SKEL        1466     A     
 SKEL      IFI121   SKEL                                                                   SKEL        1467     A     
 SKEL               ZR     L1,"N2"                                                         SKEL        1468     A     
 SKEL               UJP    "N1"                                                            SKEL        1469     A     
 SKEL               CALLC  IF,2                                                            SKEL        1470     A     
 SKEL               ENDS                                                                   SKEL        1471     A     
 SKEL                                                                                      SKEL        1472     A     
 SKEL      IFIN23   SKEL                                                                   SKEL        1473     A     
 SKEL               ZR     L1,"N2"                                                         SKEL        1474          I
          -FC5A164
 SKEL               PL     L1,"N3"                                                         SKEL        1475          I
          -FC5A164
 SKEL               XMT    T1,L1                                                           FC5A164       12     A     
 SKEL               ZR     T1,"N2"                                                         FC5A164       13     A     
 SKEL               PL     T1,"N3"                                                         FC5A164       14     A     
 SKEL               CALLC  IF,2                                                            SKEL        1476     A     
 SKEL               ENDS                                                                   SKEL        1477     A     
 SKEL                                                                                      SKEL        1478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      IFI1N3   SKEL                                                                   SKEL        1479     A     
 SKEL               CLR    T1                                                              SKEL        1480     A     
 SKEL               IAZ    T2,T1,L1                                                        SKEL        1481     A     
 SKEL               MI     T2,"N1"                                                         SKEL        1482     A     
 SKEL               NZ     T2,"N3"                                                         SKEL        1483     A     
 SKEL               CALLC  IF,2                                                            SKEL        1484     A     
 SKEL               ENDS                                                                   SKEL        1485     A     
 SKEL                                                                                      SKEL        1486     A     
 SKEL      IFR1N3   SKEL                                                                   SKEL        1487     A     
 SKEL               PNR    T1,0,L1                                                         SKEL        1488     A     
 SKEL               MI     T1,"N1"                                                         SKEL        1489     A     
 SKEL               NZ     T1,"N3"                                                         SKEL        1490     A     
 SKEL               CALLC  IF,2                                                            SKEL        1491     A     
 SKEL               ENDS                                                                   SKEL        1492     A     
 SKEL                                                                                      SKEL        1493     A     
 SKEL      IFI12N   SKEL                                                                   SKEL        1494     A     
 SKEL               ZR     L1,"N2"                                                         SKEL        1495          I
          -FC5A164
 SKEL               MI     L1,"N1"                                                         SKEL        1496          I
          -FC5A164
 SKEL               XMT    T1,L1                                                           FC5A164       15     A     
 SKEL               ZR     T1,"N2"                                                         FC5A164       16     A     
 SKEL               MI     T1,"N1"                                                         FC5A164       17     A     
 SKEL               CALLC  IF,2                                                            SKEL        1497     A     
 SKEL               ENDS                                                                   SKEL        1498     A     
 SKEL                                                                                      SKEL        1499     A     
 SKEL      IFIN22   SKEL                                                                   SKEL        1500     A     
 SKEL               CLR    T1                                                              SKEL        1501     A     
 SKEL               IAZ    T2,T1,L1                                                        SKEL        1502     A     
 SKEL               PL     T2,"N2"                                                         SKEL        1503     A     
 SKEL               CALLC  IF,1                                                            SKEL        1504     A     
 SKEL               ENDS                                                                   SKEL        1505     A     
 SKEL                                                                                      SKEL        1506     A     
 SKEL      IFRN22   SKEL                                                                   SKEL        1507     A     
 SKEL               PNR    T1,0,L1                                                         SKEL        1508     A     
 SKEL               PL     T1,"N2"                                                         SKEL        1509     A     
 SKEL               CALLC  IF,1                                                            SKEL        1510     A     
 SKEL               ENDS                                                                   SKEL        1511     A     
 SKEL                                                                                      SKEL        1512     A     
 SKEL      IFI1NN   SKEL                                                                   SKEL        1513     A     
 SKEL               CLR    T1                                                              SKEL        1514     A     
 SKEL               IAZ    T2,T1,L1                                                        SKEL        1515     A     
 SKEL               MI     T2,"N1"                                                         SKEL        1516     A     
 SKEL               CALLC  IF,1                                                            SKEL        1517     A     
 SKEL               ENDS                                                                   SKEL        1518     A     
 SKEL                                                                                      SKEL        1519     A     
 SKEL      IFR1NN   SKEL                                                                   SKEL        1520     A     
 SKEL               PNR    T1,0,L1                                                         SKEL        1521     A     
 SKEL               MI     T1,"N1"                                                         SKEL        1522     A     
 SKEL               CALLC  IF,1                                                            SKEL        1523     A     
 SKEL               ENDS                                                                   SKEL        1524     A     
 SKEL                                                                                      SKEL        1525     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      IFINN3   SKEL                                                                   SKEL        1526     A     
 SKEL               CLR    T1                                                              SKEL        1527     A     
 SKEL               ISZ    T2,T1,L1                                                        SKEL        1528     A     
 SKEL               MI     T2,"N3"                                                         SKEL        1529     A     
 SKEL               CALLC  IF,1                                                            SKEL        1530     A     
 SKEL               ENDS                                                                   SKEL        1531     A     
 SKEL                                                                                      SKEL        1532     A     
 SKEL      IFRNN3   SKEL                                                                   SKEL        1533     A     
 SKEL               XMTC   T1,L1                                                           SKEL        1534     A     
 SKEL               PNR    T2,0,T1                                                         SKEL        1535     A     
 SKEL               MI     T2,"N3"                                                         SKEL        1536     A     
 SKEL               CALLC  IF,1                                                            SKEL        1537     A     
 SKEL               ENDS                                                                   SKEL        1538     A     
 SKEL                                                                                      SKEL        1539     A     
 SKEL      IFI11N   SKEL                                                                   SKEL        1540     A     
 SKEL               CLR    T1                                                              SKEL        1541     A     
 SKEL               ISZ    T2,T1,L1                                                        SKEL        1542     A     
 SKEL               PL     T2,"N1"                                                         SKEL        1543     A     
 SKEL               CALLC  IF,1                                                            SKEL        1544     A     
 SKEL               ENDS                                                                   SKEL        1545     A     
 SKEL                                                                                      SKEL        1546     A     
 SKEL      IFR11N   SKEL                                                                   SKEL        1547     A     
 SKEL               XMTC   T1,L1                                                           SKEL        1548     A     
 SKEL               PNR    T2,0,T1                                                         SKEL        1549     A     
 SKEL               PL     T2,"N1"                                                         SKEL        1550     A     
 SKEL               CALLC  IF,1                                                            SKEL        1551     A     
 SKEL               ENDS                                                                   SKEL        1552     A     
 SKEL                                                                                      SKEL        1553     A     
 SKEL      IFIN2N   SKEL                                                                   SKEL        1554     A     
 SKEL               ZR     L1,"N2"                                                         SKEL        1555     A     
 SKEL               CALLC  IF,1                                                            SKEL        1556     A     
 SKEL               ENDS                                                                   SKEL        1557     A     
 SKEL                                                                                      SKEL        1558     A     
 SKEL      IFI1N1   SKEL                                                                   SKEL        1559     A     
 SKEL               NZ     L1,"N1"                                                         SKEL        1560     A     
 SKEL               CALLC  IF,1                                                            SKEL        1561     A     
 SKEL               ENDS                                                                   SKEL        1562     A     
 SKEL                                                                                      SKEL        1563     A     
 SKEL                                                                                      SKEL        1564     A     
 SKEL                                                                                      SKEL        1565     A     
 SKEL      IFIFT    SKEL               JUMP TO ("N3") IF (L1) TRUE                         SKEL        1566     A     
 SKEL               MI     L1,"N3"                                                         SKEL        1567     A     
 SKEL               CALLC  IF,1                                                            SKEL        1568     A     
 SKEL               ENDS                                                                   SKEL        1569     A     
 SKEL                                                                                      SKEL        1570     A     
 SKEL      IFIFF    SKEL               JUMP TO ("N3") IF (L1) FALSE                        SKEL        1571     A     
 SKEL               PL     L1,"N3"                                                         SKEL        1572     A     
 SKEL               CALLC  IF,1                                                            SKEL        1573     A     
 SKEL               ENDS                                                                   SKEL        1574     A     
 SKEL                                                                                      SKEL        1575     A     
 SKEL      IFI111   SKEL                                                                   SKEL        1576     A     
 SKEL               UJP    P2                                                              SKEL        1577     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               CALLC  PGT                                                             SKEL        1578     A     
 SKEL               ENDS                                                                   SKEL        1579     A     
 SKEL                                                                                      SKEL        1580     A     
 SKEL     *         IF SKELETON EQUIVALENTS.                                               SKEL        1581     A     
 SKEL                                                                                      SKEL        1582     A     
 SKEL     *         REAL                                                                   SKEL        1583     A     
 SKEL                                                                                      SKEL        1584     A     
 SKEL      IFRN2N   SKEQU  IFIN2N                                                          SKEL        1585     A     
 SKEL      IFRN23   SKEQU  IFIN23                                                          SKEL        1586     A     
 SKEL      IFR111   SKEQU  IFI111                                                          SKEL        1587     A     
 SKEL      IFR12N   SKEQU  IFI12N                                                          SKEL        1588     A     
 SKEL      IFR123   SKEQU  IFI123                                                          SKEL        1589     A     
 SKEL                                                                                      SKEL        1590     A     
 SKEL     *         DOUBLE PRECISION                                                       SKEL        1591     A     
 SKEL                                                                                      SKEL        1592     A     
 SKEL      IFDNN3   SKEQU  IFRNN3                                                          SKEL        1593     A     
 SKEL      IFDN2N   SKEQU  IFIN2N                                                          SKEL        1594     A     
 SKEL      IFDN22   SKEQU  IFRN22                                                          SKEL        1595     A     
 SKEL      IFDN23   SKEQU  IFIN23                                                          SKEL        1596     A     
 SKEL      IFD1NN   SKEQU  IFR1NN                                                          SKEL        1597     A     
 SKEL      IFD1N3   SKEQU  IFR1N3                                                          SKEL        1598     A     
 SKEL      IFD11N   SKEQU  IFR11N                                                          SKEL        1599     A     
 SKEL      IFD113   SKEQU  IFR113                                                          SKEL        1600     A     
 SKEL      IFD111   SKEQU  IFI111                                                          SKEL        1601     A     
 SKEL      IFD12N   SKEQU  IFI12N                                                          SKEL        1602     A     
 SKEL      IFD122   SKEQU  IFR122                                                          SKEL        1603     A     
 SKEL      IFD123   SKEQU  IFI123                                                          SKEL        1604     A     
 SKEL                                                                                      SKEL        1605     A     
 SKEL                                                                                      SKEL        1606     A     
 SKEL     *         IF(ONE RELATIONAL) SKELETONS.                                          SKEL        1607     A     
 SKEL     *         THESE MUST BE DEFINED IN PAIRS (EQ/NE OR LT/GE).                       SKEL        1608     A     
 SKEL                                                                                      SKEL        1609     A     
 SKEL      IEQ.I    SKEL                                                                   SKEL        1610     A     
 SKEL               IS     T1,L1,L2                                                        SKEL        1611     A     
 SKEL               ZR     T1,"N3"                                                         SKEL        1612     A     
 SKEL               CALLC  IF,1                                                            SKEL        1613     A     
 SKEL               ENDS                                                                   SKEL        1614     A     
 SKEL                                                                                      SKEL        1615     A     
 SKEL      IEQ.R    SKEL                                                                   SKEL        1616     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL        1617     A     
 SKEL               NR     T2,,T1                                                          SKEL        1618     A     
 SKEL               ZR     T2,"N3"                                                         SKEL        1619     A     
 SKEL               CALLC  IF,1                                                            SKEL        1620     A     
 SKEL               ENDS                                                                   SKEL        1621     A     
 SKEL                                                                                      SKEL        1622     A     
 SKEL      IEQ.D    SKEL                                                                   SKEL        1623     A     
 SKEL               FSR    T1,LU1,LU2                                                      SKEL        1624     A     
 SKEL               PNR    T2,,T1                                                          SKEL        1625     A     
 SKEL               FSR    T3,LL1,LL2                                                      SKEL        1626     A     
 SKEL               PNR    T4,,T3                                                          SKEL        1627     A     
 SKEL               OR     T5,T2,T4                                                        SKEL        1628     A     
 SKEL               ZR     T5,"N3"                                                         SKEL        1629     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL               CALLC  IF,1                                                            SKEL        1630     A     
 SKEL               ENDS                                                                   SKEL        1631     A     
 SKEL                                                                                      SKEL        1632     A     
 SKEL      IEQ.C    SKEL                                                                   SKEL        1633     A     
 SKEL               FSR    T1,LU1,LU2                                                      SKEL        1634     A     
 SKEL               PNR    T2,,T1                                                          SKEL        1635     A     
 SKEL               FSR    T3,LL1,LL2                                                      SKEL        1636     A     
 SKEL               PNR    T4,,T3                                                          SKEL        1637     A     
 SKEL               OR     T5,T2,T4                                                        SKEL        1638     A     
 SKEL               CLR    T6                                                              SKEL        1639     A     
 SKEL               ISZ    T7,T6,T5                                                        SKEL        1640     A     
 SKEL               EQV    T8,T6,T7                                                        SKEL        1641          I
          -FC50237
 SKEL               EQV    T8,T7,T5                                                        FC50237        6     A     
 SKEL               MI     T8,"N3"                                                         SKEL        1642     A     
 SKEL               CALLC  IF,1                                                            SKEL        1643     A     
 SKEL               ENDS                                                                   SKEL        1644     A     
 SKEL                                                                                      SKEL        1645     A     
 SKEL      INE.I    SKEL                                                                   SKEL        1646     A     
 SKEL               IS     T1,L1,L2                                                        SKEL        1647     A     
 SKEL               NZ     T1,"N3"                                                         SKEL        1648     A     
 SKEL               CALLC  IF,1                                                            SKEL        1649     A     
 SKEL               ENDS                                                                   SKEL        1650     A     
 SKEL                                                                                      SKEL        1651     A     
 SKEL      INE.R    SKEL                                                                   SKEL        1652     A     
 SKEL               FSR    T1,L1,L2                                                        SKEL        1653     A     
 SKEL               NR     T2,,T1                                                          SKEL        1654     A     
 SKEL               NZ     T2,"N3"                                                         SKEL        1655     A     
 SKEL               CALLC  IF,1                                                            SKEL        1656     A     
 SKEL               ENDS                                                                   SKEL        1657     A     
 SKEL                                                                                      SKEL        1658     A     
 SKEL      INE.D    SKEL                                                                   SKEL        1659     A     
 SKEL               FSR    T1,LU1,LU2                                                      SKEL        1660     A     
 SKEL               PNR    T2,,T1                                                          SKEL        1661     A     
 SKEL               FSR    T3,LL1,LL2                                                      SKEL        1662     A     
 SKEL               PNR    T4,,T3                                                          SKEL        1663     A     
 SKEL               OR     T5,T2,T4                                                        SKEL        1664     A     
 SKEL               NZ     T5,"N3"                                                         SKEL        1665     A     
 SKEL               CALLC  IF,1                                                            SKEL        1666     A     
 SKEL               ENDS                                                                   SKEL        1667     A     
 SKEL                                                                                      SKEL        1668     A     
 SKEL      INE.C    SKEL                                                                   SKEL        1669     A     
 SKEL               FSR    T1,LU1,LU2                                                      SKEL        1670     A     
 SKEL               NR     T2,,T1                                                          SKEL        1671     A     
 SKEL               FSR    T3,LL1,LL2                                                      SKEL        1672     A     
 SKEL               NR     T4,,T3                                                          SKEL        1673     A     
 SKEL               NZ     T2,"N3"                                                         SKEL        1674     A     
 SKEL               NZ     T4,"N3"                                                         SKEL        1675     A     
 SKEL               CALLC  IF,2                                                            SKEL        1676     A     
 SKEL               ENDS                                                                   SKEL        1677     A     
 SKEL                                                                                      SKEL        1678     A     
 SKEL                                                                                      SKEL        1679     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKEL    
  
 SKEL      SKEL     ENDX                                                                   SKEL        1680     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SKEL    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SKEL                      1680      1643
          FC5A113                      5         5
          FC5A128                      8         8
          F2950F5A                     1         1
          FC5A140                      2         2
          FC5A150                     28        28
          FC5A164                     11        10
          FC5A190                      1         1
          FC5A218                     24        24
          FC5A243                     14        14
          FC5A248                      6         6
          FC50130                      1         1
          FC50136                      8         8
          FC50237                      1         1
          FC50701                      1         1
          FC51035                     18        18
          FC5A483                      9         9
          FC5A496                      5         5
          FC51325                     17        17
          FC51351                      6         6
          FC51364                      7         7
          FC5A511                      6         6
          FC51485                      2         2
          FC51544                     19        19
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKOP    
  
 SKOP     *COMDECK  SKOP - EIS TO QSKEL LINKAGE.                                           SKOP           1     A     
 SKOP      SKOP     CTEXT                                                                  SKOP           2     A     
 SKOP                                                                                      SKOP           3     A     
 SKOP                                                                                      SKOP           4     A     
 SKOP      A        SKOP   AA,CA,RG                                                        SKOP           5     A     
 SKOP      B        SKOP   AB,CB,RG                                                        SKOP           6     A     
 SKOP      X        SKOP   AX,CX,RG                                                        SKOP           7     A     
 SKOP      L        SKOP   LNU,L,OP,,CON                                                   SKOP           8     A     
 SKOP      LU       SKOP   LNU,L,OP,L,CON                                                  SKOP           9     A     
 SKOP      LL       SKOP   LNL,LL,OP,,CON                                                  SKOP          10     A     
 SKOP      P        SKOP   P,P,OP                                                          SKOP          11     A     
 SKOP      R        SKOP   NONE,IR,OP,,CON                                                 SKOP          12     A     
 SKOP      RU       SKOP   NONE,IR,OP,R,CON                                                SKOP          13     A     
 SKOP      RL       SKOP   NONE,IRL,OP,,CON                                                SKOP          14     A     
 SKOP      GP       SKOP   GP,GP,GOP                                                       SKOP          15     A     
 SKOP      GL       SKOP   GLN,GL,GOP                                                      SKOP          16     A     
 SKOP      GLU      SKOP   GLN,GL,GOP,GL                                                   SKOP          17     A     
 SKOP      GLL      SKOP   GLNL,GLL,GOP                                                    SKOP          18     A     
 SKOP      T        SKOP   AT,CT,TMP,,CON                                                  SKOP          19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 311    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKOP    
  
 SKOP      Q        SKOP   Q,NONE,CON                                                      SKOP          20     A     
 SKOP      S        SKOP   S,NONE,CON                                                      SKOP          21     A     
 SKOP      K        SKOP   K,NONE,CON                                                      SKOP          22     A     
 SKOP               ENDX                                                                   SKOP          23     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SKOP    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SKOP                        23        23
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKPCONQ 
  
 SKPCONQ  *COMDECK SKPCONQ                                                                 SKPCONQ        1     A     
 SKPCONQ   SKPCONQ  CTEXT                                                                  SKPCONQ        2     A     
 SKPCONQ            SPACE  4,6                                                             SKPCONQ        3     A     
 SKPCONQ   RG       SKPSET 0,7,1,0                                                         SKPCONQ        4     A     
 SKPCONQ   OP       SKPSET 1,6,-Z=TURP,0                                                   SKPCONQ        5     A     
 SKPCONQ   TMP      SKPSET 1,20,1,-1                                                       SKPCONQ        6     A     
 SKPCONQ   CON      SKPSET 0,0,1,0                                                         SKPCONQ        7     A     
 SKPCONQ   GOP      SKPSET 1,6,1,-1                                                        SKPCONQ        8     A     
 SKPCONQ   SKPCONQ  ENDX                                                                   SKPCONQ        9     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SKPCONQ 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SKPCONQ                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SKPSET  
  
 SKPSET   *COMDECK SKPSET                                                                  SKPSET         1     A     
 SKPSET    SKPSET   CTEXT                                                                  SKPSET         2     A     
 SKPSET             SPACE  4,7                                                             SKPSET         3     A     
 SKPSET   **        SKPSET - SETS THE FTYP CONSTANTS WHICH DETERMINE THE                   SKPSET         4     A     
 SKPSET   *                  SK.NUM FIELDS. SEE SKOP MACRO DOCUMENTATION.                  SKPSET         5     A     
 SKPSET                                                                                    SKPSET         6     A     
 SKPSET             MACRO  SKPSET,FTYP,LL,UL,MODULES,OFFSET                                SKPSET         7     A     
 SKPSET    SKL.FTYP SET    LL                                                              SKPSET         8     A     
 SKPSET    SKU.FTYP SET    UL                                                              SKPSET         9     A     
 SKPSET    SKM.FTYP SET    MODULES                                                         SKPSET        10     A     
 SKPSET    SKO.FTYP SET    OFFSET                                                          SKPSET        11     A     
 SKPSET    SKPSET   ENDM                                                                   SKPSET        12     A     
 SKPSET    SKPSET   ENDX                                                                   SKPSET        13     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SKPSET  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SKPSET                      13        13
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SMACROS 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SMACROS 
  
 SMACROS  *COMDECK SMACROS                                                                 SMACROS        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SMACROS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SMACROS                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SYMDEFS 
  
 SYMDEFS  *COMDECK SYMDEFS                                                                 SYMDEFS        1     A     
 SYMDEFS   .FTN     SET    4                                                               SYMDEFS        2          I
          -FC5A275
 SYMDEFS   .FTN     =      5                                                               FC5A275        5     A     
 SYMDEFS  *CALL COMSSYM                                                                    SYMDEFS        3     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SYMDEFS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SYMDEFS                      3         2
          FC5A275                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ZZZCOM  
  
 ZZZCOM   *COMDECK  ZZZCOM - MARK END OF COMMON DECKS.                                     ZZZCOM         1     A     
 ZZZCOM   *         END OF COMMON DECKS.                                                   ZZZCOM         2     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ZZZCOM  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ZZZCOM                       2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *TEXTS* 
  
 *TEXTS*  *DECK *TEXTS*                                                                    *TEXTS*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *TEXTS* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *TEXTS*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *DECK     FTN5TXT - FRONT END ASSEMBLY TEXT.                                     FTN5TXT        1     A     
 FTN5TXT            IDENT  FTN5TXT                                                         FTN5TXT        2     A     
 FTN5TXT            STEXT                                                                  FTN5TXT        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            SYSCOM                                                                 FTN5TXT        4     A     
 FTN5TXT            LIST   F,X                                                             FTN5TXT        5     A     
 FTN5TXT   FTN5TXT  TITLE  FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.                 FTN5TXT        6     A     
 FTN5TXT            COMMENT          FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.                 FTN5TXT        7     A     
 FTN5TXT   FTN5TXT  SPACE  4                                                               FTN5TXT        8     A     
 FTN5TXT  ***       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.                        FTN5TXT        9     A     
 FTN5TXT  *                                                                                FTN5TXT       10     A     
 FTN5TXT  *                FTN5TXT IS THE GLOBAL TEXT FOR ASSEMBLY/INSTALLATION            FTN5TXT       11     A     
 FTN5TXT  *         OF THE FORTRAN 5 COMPILER.  IT CONTAINS DEFINITIONS OF                 FTN5TXT       12     A     
 FTN5TXT  *         MACROS, MICROS, SYMBOLS AND OPDEFS, ORGANIZED AS FOLLOWS ...           FTN5TXT       13     A     
 FTN5TXT  *                                                                                FTN5TXT       14     A     
 FTN5TXT  *         (OPTIONS)  COMPILER INSTALLATION OPTIONS.                              FTN5TXT       15     A     
 FTN5TXT  *                    ASSEMBLY CONSTANTS.                                         FTN5TXT       16     A     
 FTN5TXT  *         (FA=DEFS)  I/O MACROS (FOR UPPER AND LOWER CYBER).                     FTN5TXT       17     A     
 FTN5TXT  *         (COMADEF)  STRUCTURED WORD DECLARATION MACROS.                         FTN5TXT       18     A     
 FTN5TXT  *         (COMAIDP)  IDP ACCESS MACROS (TEST MODE ONLY).                         FTN5TXT       19     A     
 FTN5TXT  *         (COMACPU)  GENERAL CPU MACROS.                                         FTN5TXT       20     A     
 FTN5TXT  *         (COMAMGM)  MORE (LESS) GENERAL MACROS.                                 FTN5TXT       21     A     
 FTN5TXT  *                    COMPILER-SPECIFIC MACROS.                                   FTN5TXT       22     A     
 FTN5TXT  *                    SYMBOL AND MICRO DEFINITIONS.                               FTN5TXT       23     A     
 FTN5TXT  *         (COMSIOC)  I/O CONTROL CODE DEFINITIONS.                               FTN5TXT       24     A     
 FTN5TXT  *         (COMSPSU)  PSEUDO INSTRUCTION DEFINITIONS.                             FTN5TXT       25     A     
 FTN5TXT  *         (COMSPBD)  PREBINARY STRUCTURE DECLARATIONS.                           FTN5TXT       26     A     
 FTN5TXT  *         (COMSSYM)  SYMBOL TABLE STRUCTURE DECLARATIONS.                        FTN5TXT       27     A     
 FTN5TXT  *                    STRUCTURE DECLARATIONS AND TABLE DESCRIPTIONS.              FTN5TXT       28     A     
 FTN5TXT  *CALL     OPTIONS            COMPILER INSTALLATION OPTIONS.                      FTN5TXT       29     A     
 FTN5TXT            TITLE  ASSEMBLY CONSTANTS.                                             FTN5TXT       30     A     
 FTN5TXT   CONSTS   SPACE  4,10                                                            FTN5TXT       31     A     
 FTN5TXT  **        ASSEMBLY CONSTANTS.                                                    FTN5TXT       32     A     
 FTN5TXT                                                                                   FTN5TXT       33     A     
 FTN5TXT                                                                                   FTN5TXT       34     A     
 FTN5TXT            COL    30          COLUMN FOR COMMENT FIELD.                           FTN5TXT       35     A     
 FTN5TXT                                                                                   FTN5TXT       36     A     
 FTN5TXT   FLSZ     EQU    10          SAFETY ZONE BET. CURRENT FL AND CP.NFLS             FTN5TXT       37     A     
 FTN5TXT   IN.LCM   EQU    30000B      INITIAL LCM FL REQUEST                              FC5A119        7     A     
 FTN5TXT   MAX.DIM  EQU    7           MAXIMUM NUMBER OF DIMENSIONS PERMITTED              FTN5TXT       38     A     
 FTN5TXT   MAX.SPAN EQU    23          BIT COUNT - MAXIMUM DIMENSION SPAN SIZE             FTN5TXT       39     A     
 FTN5TXT   MAX.SPCM EQU    1S17-1      MAXIMUM DIMENSION SPAN - SCM                        FTN5TXT       40     A     
 FTN5TXT   MAX.SPLC EQU    1S20-8      MAXIMUM DIMENSION SPAN - LCM                        FTN5TXT       41     A     
 FTN5TXT   MAX.REPL EQU    77777B      MAXIMUM REPLICATION COUNT (DATA CONSTANTS)          FC50336        7     A     
 FTN5TXT                                                                                   FTN5TXT       42     A     
 FTN5TXT   ANS.CONT EQU    19D         MAX. NO. OF CONTIN. CARDS PERMITTED BY ANSI         FTN5TXT       43     A     
 FTN5TXT   MAX.CDL  EQU    10          MAXIMUM INPUT LINE (WORDS)                          FTN5TXT       44     A     
 FTN5TXT                                                                                   FTN5TXT       45     A     
 FTN5TXT   MAX.BLK  =      500D        MAXIMUM NUMBER OF COMMON BLOCKS                     FTN5TXT       46     A     
 FTN5TXT                                                                                   FTN5TXT       47     A     
 FTN5TXT   MAX.SARG   =    500         MAXIMUM NUMBER OF ARGUMENTS TO A SUBPROGRAM         FTN5TXT       48     A     
 FTN5TXT   MAX.PARG EQU    50D         MAXIMUM NUMBER OF ARGUMENTS TO MAIN PROGRAM         FTN5TXT       49          I
          -FC5A183
 FTN5TXT   MAX.PARG EQU    49          MAXIMUM NUMBER OF FILES ON *PROGRAM* STMT           FC5A183        4     A     
 FTN5TXT                                                                                   FTN5TXT       50     A     
 FTN5TXT   MAX.STN  EQU    5           NUMBER OF DIGITS TO ASSEMBLE FOR STMT. NO.          FTN5TXT       51     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   MAX.VAR  EQU    7           NUMBER OF CHARACTERS TO ASSEMBLE FOR                FTN5TXT       52     A     
 FTN5TXT                               TABBING PROCESS.                                    FTN5TXT       53     A     
 FTN5TXT   MAX.LFN  EQU    7           NUMBER OF CHARACTERS ALLOWED IN LOGICAL             FTN5TXT       54     A     
 FTN5TXT                               FILE NAME                                           FTN5TXT       55     A     
 FTN5TXT   BUFL.SM  EQU    1003B       DEFAULT BUFL (STATIC MODE)                          F1037F5      106     A     
 FTN5TXT   BUFL.DM  EQU    2003B       DEFAULT BUFL (DYNAMIC MODE)                         F1037F5      107     A     
 FTN5TXT   BUFL.ADD EQU    3           BUFFER LENGTH ADDENDUM                              F1037F5      108     A     
 FTN5TXT   MAX.BUFL EQU    360000B                                                         FTN5TXT       56     A     
 FTN5TXT   MAX.RECL EQU    1S17-1                                                          FTN5TXT       57     A     
 FTN5TXT   NOR.RECL EQU    137D        NOROMAL RECORD LENGTH                               FTN5TXT       58     A     
 FTN5TXT                                                                                   FTN5TXT       59     A     
 FTN5TXT   MAX.CL   EQU    1S15-1      MAXIMUM CHARACTER LENGTH (TYPE CHARACTER)           FTN5TXT       60     A     
 FTN5TXT                                                                                   FTN5TXT       61     A     
 FTN5TXT   MAX.SDL  EQU    1S17-1      MAXIMUM SHORT DO LOOP TRIP COUNT                    FTN5TXT       62     A     
 FTN5TXT   MEM.GOFL EQU    34000B      MEM DOWN FL FOR *GO* MODE                           FC5A158A      60     A     
 FTN5TXT   MIN.TABS EQU    1400B       MINIMUM TABLE SPACE                                 FTN5TXT       63          I
          -FC5A108
 FTN5TXT   MIN.TABS EQU    3000B       MINIMUM TABLE SPACE                                 FC5A108        5          I
          -FC5A172
 FTN5TXT   MIN.TABS EQU    2700B       MINIMUM TABLE SPACE                                 FC5A172        5          I
          -FC5A184
 FTN5TXT   MIN.TABS =      3000B                                                           FC5A184        7     A     
 FTN5TXT   NOM.INC  EQU    3000B       NOMINAL FL INCREMENT                                FC5A119        8     A     
 FTN5TXT                                                                                   FTN5TXT       64     A     
 FTN5TXT   EXT      MICRO  1,, .       SUFFIX FOR LIBRARY EXTERNALS                        FTN5TXT       65     A     
 FTN5TXT   XBYNAM   MICRO  1,, =       SUFFIX FOR CALL BY NAME EXTERNAL INTRINSIC          FTN5TXT       66     A     
 FTN5TXT   XBYVAL   MICRO  1,, .       SUFFIX FOR CALL BY VALUE EXTERNAL INTRINSIC         FTN5TXT       67     A     
 FTN5TXT   XUPNAM   MICRO  1,, $       SUFFIX FOR CALL BY NAME EXPONENTATION               FTN5TXT       68     A     
 FTN5TXT                                                                                   FTN5TXT       69     A     
 FTN5TXT                                                                                   FTN5TXT       70     A     
 FTN5TXT   CHAR     =      6           BITS PER CHARACTER                                  FTN5TXT       71     A     
 FTN5TXT   ON       =      1           CONDITIONAL SWITCH                                  FTN5TXT       72     A     
 FTN5TXT   OFF      =      0           CONDITIONAL SWITCH                                  FTN5TXT       73     A     
 FTN5TXT   BLOWUP   MICRO  1,, *O+4S15       OUT OF BOUNDS JUMP ADDRESS                    FTN5TXT       74     A     
 FTN5TXT                                                                                   FTN5TXT       75     A     
 FTN5TXT  **        ERROR LEVEL OPTION TRANSFORMATIONS                                     FTN5TXT       76     A     
 FTN5TXT                                                                                   FTN5TXT       77     A     
 FTN5TXT            LOC    1                                                               FTN5TXT       78          I
          -F1037F5
 FTN5TXT            LOC    2                                                               F1037F5      109     A     
 FTN5TXT            IFEQ   TEST,ON,1                                                       FTN5TXT       79     A     
 FTN5TXT   EL=D     BSS    1           DEBUG                                               FTN5TXT       80     A     
 FTN5TXT   EL=T     BSS    1           TRIVIAL                                             FTN5TXT       81     A     
 FTN5TXT   EL=W     BSS    1           WARNING                                             FTN5TXT       82     A     
 FTN5TXT   EL=F     BSS    1           FATAL                                               FTN5TXT       83     A     
 FTN5TXT   EL=C     BSS    1           CATASTROPHIC                                        FTN5TXT       84     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT       85     A     
 FTN5TXT   RA.      SPACE  4,10                                                            FTN5TXT       86     A     
 FTN5TXT  **        USAGE OF CELLS IN JOB COMMUNICATIONS AREA.                             FTN5TXT       87     A     
 FTN5TXT                                                                                   FTN5TXT       88     A     
 FTN5TXT                                                                                   FTN5TXT       89     A     
 FTN5TXT   RA.LDP   =      RA.SSW+17B - 21B  3 WORDS FOR LOADER CALL PARAM LIST            FTN5TXT       90     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   RA.JOT   =      66B         JOB ORIGIN TYPE BITS 24-35 OF RA+66                 FTN5TXT       91     A     
 FTN5TXT   L54      SPACE  4,10                                                            FTN5TXT       92     A     
 FTN5TXT  **        LOADER 54 TABLE OFFSETS.                                               FTN5TXT       93     A     
 FTN5TXT                                                                                   FTN5TXT       94     A     
 FTN5TXT                                                                                   FTN5TXT       95     A     
 FTN5TXT   L54.00   =      11B         LENGTH OF (0,0) 54 TABLE                            FTN5TXT       96     A     
 FTN5TXT   L54.NN   =      5           LENGTH OF (N,N) 54 TABLES                           FTN5TXT       97     A     
 FTN5TXT   L54.HDR  =      0           54 TABLE HEADER WORD                                FTN5TXT       98     A     
 FTN5TXT   L54.HHA  =      4           HIGHEST HIGH ADDRESS, BITS 0-17                     FTN5TXT       99     A     
 FTN5TXT   ALLOC    SPACE  4,10                                                            FTN5TXT      100     A     
 FTN5TXT  **        MEMORY MANAGEMENT CONSTANTS.                                           FTN5TXT      101     A     
 FTN5TXT                                                                                   FTN5TXT      102     A     
 FTN5TXT                                                                                   FTN5TXT      103     A     
 FTN5TXT   .CMLOD   EQU    0           NO COMPILE TO CORE                                  FTN5TXT      104     A     
 FTN5TXT   FUDGE    EQU    1           AMOUNT OF SLOP SPACE BETWEEN TABLES                 FTN5TXT      105     A     
 FTN5TXT   FLSLOP   =      4           AMOUNT OF SLOP FOR MANAGER =                        FTN5TXT      106     A     
 FTN5TXT  *                            (1/2**N)*(WIDTH OF TABLE AREA)                      FTN5TXT      107     A     
 FTN5TXT   FLSLUP   =      1000B       AMOUNT OF SLOP INCREMENT --                         FTN5TXT      108          I
          -FC5A128
 FTN5TXT   FLSLUP   =      1000B       AMOUNT OF SLOP (INITIAL FIELD LENGTH)               FC5A128       24     A     
 FTN5TXT   FLSLUP2  =      1400B       AMOUNT OF SLOP (AFTER *ALLOC* MEM)                  FC5A128       25     A     
 FTN5TXT  *                            (THRESH) = FLSLUP +  SLOP[PER FLSLOP]               FTN5TXT      109     A     
 FTN5TXT   INC.LTN  =      2000B       FIELD LENGTH INCREMENT WHEN FL .LT. NOM.FL          FTN5TXT      110     A     
 FTN5TXT   INC.GTN  =      4000B       FIELD LENGTH INCREMENT WHEN FL .GT. NOM.FL          FTN5TXT      111     A     
 FTN5TXT                                                                                   FTN5TXT      112     A     
 FTN5TXT   N.OPSTK  EQU    240B        NUM WORDS RESERVED FOR OPERAND STACK                FTN5TXT      113     A     
 FTN5TXT   N.ELSTK  EQU    240B        NUM WORDS RESERVED FOR ELEMENT STACK                FTN5TXT      114     A     
 FTN5TXT                                                                                   FC5A348        8     A     
 FTN5TXT   #ECS     IFNE   CT.ECS,0                                                        FC5A348        9     A     
 FTN5TXT   CT.EC    MICRO  1,, ON                                                          FC5A348       10     A     
 FTN5TXT   #ECS     ELSE                                                                   FC5A348       11     A     
 FTN5TXT   CT.EC    MICRO  1,, OFF                                                         FC5A348       12     A     
 FTN5TXT   #ECS     ENDIF                                                                  FC5A348       13     A     
 FTN5TXT  *CALL     FA=DEFS            I/O MACROS FOR UPPER AND LOWER CYBERS.              FTN5TXT      115     A     
 FTN5TXT  *CALL     COMADEF            STRUCTURED FIELD DECLARATION MACROS.                FTN5TXT      116     A     
 FTN5TXT            TITLE  DEBUG MACROS.                                                   FTN5TXT      117     A     
 FTN5TXT   .TEST    IFEQ   TEST,OFF    IF NOT TEST MODE                                    FTN5TXT      118     A     
 FTN5TXT                                                                                   FTN5TXT      119     A     
 FTN5TXT                                                                                   FTN5TXT      120     A     
 FTN5TXT  **        SNAP MACROS  - IF NO SNAP REQUESTED                                    FTN5TXT      121     A     
 FTN5TXT                                                                                   FTN5TXT      122     A     
 FTN5TXT                                                                                   FTN5TXT      123     A     
 FTN5TXT   BREAK    OPSYN  NIL                                                             FTN5TXT      124     A     
 FTN5TXT   CORE     OPSYN  NIL                                                             FTN5TXT      125     A     
 FTN5TXT   DUMPT    OPSYN  NIL                                                             FTN5TXT      126     A     
 FTN5TXT   REG      OPSYN  NIL                                                             FTN5TXT      127     A     
 FTN5TXT   REGS     OPSYN  NIL                                                             FTN5TXT      128     A     
 FTN5TXT   SNAP     OPSYN  NIL                                                             FTN5TXT      129     A     
 FTN5TXT   STRING   OPSYN  NIL                                                             FTN5TXT      130     A     
 FTN5TXT                                                                                   FTN5TXT      131     A     
 FTN5TXT   .TEST    ELSE               IF TEST MODE                                        FTN5TXT      132     A     
 FTN5TXT                                                                                   FTN5TXT      133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FTN5TXT      134     A     
 FTN5TXT   CORE     SPACE  4,10                                                            FTN5TXT      135     A     
 FTN5TXT  **        CORE - MACRO TO SNAPSHOT CORE.                                         FTN5TXT      136     A     
 FTN5TXT  *                                                                                FTN5TXT      137     A     
 FTN5TXT  *                                                                                FTN5TXT      138     A     
 FTN5TXT  * LABEL   CORE   FWA,LENGTH                                                      FTN5TXT      139     A     
 FTN5TXT  *                                                                                FTN5TXT      140     A     
 FTN5TXT  *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               FTN5TXT      141     A     
 FTN5TXT  *         CALLS  SNP=                                                            FTN5TXT      142     A     
 FTN5TXT                                                                                   FTN5TXT      143     A     
 FTN5TXT                                                                                   FTN5TXT      144     A     
 FTN5TXT            MACRO  CORE,NAM,FWA,LNG                                                FTN5TXT      145     A     
 FTN5TXT   NAM      SNAP   FWA,,LNG,NR                                                     FTN5TXT      146     A     
 FTN5TXT   CORE     ENDM                                                                   FTN5TXT      147     A     
 FTN5TXT   DUMPT    SPACE  4,10                                                            FTN5TXT      148     A     
 FTN5TXT  **        DUMPT- MACRO TO DUMP COMPILER TABLES.                                  FTN5TXT      149     A     
 FTN5TXT  *                                                                                FTN5TXT      150     A     
 FTN5TXT  *         CALLS THE *SNAP* PACKAGE TO DUMP SPECIFIED TABLES.                     FTN5TXT      151     A     
 FTN5TXT  *                                                                                FTN5TXT      152     A     
 FTN5TXT  * NAME    DUMPT  (P1,P2,...,PN)                                                  FTN5TXT      153     A     
 FTN5TXT  *                                                                                FTN5TXT      154     A     
 FTN5TXT  *                EACH PARAMETER IS THE NAME OF A TABLE.                          FTN5TXT      155     A     
 FTN5TXT  *                                                                                FTN5TXT      156     A     
 FTN5TXT  *  EXAMPLE --                                                                    FTN5TXT      157     A     
 FTN5TXT  *         DUMPT  (DO,REF,SYM)                                                    FTN5TXT      158     A     
 FTN5TXT  *                                                                                FTN5TXT      159     A     
 FTN5TXT  *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               FTN5TXT      160     A     
 FTN5TXT  *         CALLS  DMT=                                                            FTN5TXT      161     A     
 FTN5TXT                                                                                   FTN5TXT      162     A     
 FTN5TXT                                                                                   FTN5TXT      163     A     
 FTN5TXT            MACRO  DUMPT,NAME,TAB,LL,UL,INC,NUSE                                   FTN5TXT      164     A     
 FTN5TXT            LOCAL  RTN                                                             FTN5TXT      165     A     
 FTN5TXT            LOCAL  APL                                                             FTN5TXT      166     A     
 FTN5TXT  *                                                                                FTN5TXT      167     A     
 FTN5TXT   +        RJ     =XDMT=                                                          FTN5TXT      168     A     
 FTN5TXT   -        VFD    30/APL                                                          FTN5TXT      169     A     
 FTN5TXT  *                                                                                FTN5TXT      170     A     
 FTN5TXT   #NUSE    IFC    EQ,/NUSE//                                                      FTN5TXT      171     A     
 FTN5TXT            USE    DEBUG                                                           FTN5TXT      172     A     
 FTN5TXT  *                                                                                FTN5TXT      173     A     
 FTN5TXT   #NUSE    ELSE                                                                   FTN5TXT      174     A     
 FTN5TXT            EQ     RTN                                                             FTN5TXT      175     A     
 FTN5TXT   #NUSE    ENDIF                                                                  FTN5TXT      176     A     
 FTN5TXT  *                                                                                FTN5TXT      177     A     
 FTN5TXT   APL      BSS    0                                                               FTN5TXT      178     A     
 FTN5TXT            FRK=   (NAME),LL,UL,INC                                                FTN5TXT      179     A     
 FTN5TXT            IRP    TAB                                                             FTN5TXT      180     A     
 FTN5TXT   A        MICRO  1,,/TAB /                                                       FTN5TXT      181     A     
 FTN5TXT   B        MICRO  1,2,/"A"  /                                                     FTN5TXT      182     A     
 FTN5TXT            IFC    EQ,/"B"/=X/,2                                                   FTN5TXT      183     A     
 FTN5TXT   A        MICRO  3,,/"A"   /                                                     FTN5TXT      184     A     
 FTN5TXT   B        MICRO  1,2,/"A"  /                                                     FTN5TXT      185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            IFC    EQ,/"B"/T./,1                                                   FTN5TXT      186     A     
 FTN5TXT   A        MICRO  3,,/"A"   /                                                     FTN5TXT      187     A     
 FTN5TXT   A        MICRO  1,7,/"A"       /                                                FTN5TXT      188     A     
 FTN5TXT            VFD    42/7L"A",18/0                                                   FTN5TXT      189     A     
 FTN5TXT            IRP                                                                    FTN5TXT      190     A     
 FTN5TXT            VFD    60/0                                                            FTN5TXT      191     A     
 FTN5TXT  *                                                                                FTN5TXT      192     A     
 FTN5TXT   #NUSE    IFC    EQ,/NUSE//                                                      FTN5TXT      193     A     
 FTN5TXT            USE    *                                                               FTN5TXT      194     A     
 FTN5TXT  *                                                                                FTN5TXT      195     A     
 FTN5TXT   #NUSE    ELSE                                                                   FTN5TXT      196     A     
 FTN5TXT   RTN      BSS    0                                                               FTN5TXT      197     A     
 FTN5TXT   #NUSE    ENDIF                                                                  FTN5TXT      198     A     
 FTN5TXT  *                                                                                FTN5TXT      199     A     
 FTN5TXT   DUMPT    ENDM                                                                   FTN5TXT      200     A     
 FTN5TXT   STRING   SPACE  4,10                                                            FTN5TXT      201     A     
 FTN5TXT  **        STRING - FORMATTED SNAPSHOT OF STRING BUFFER.                          FTN5TXT      202     A     
 FTN5TXT  *                                                                                FTN5TXT      203     A     
 FTN5TXT  *                                                                                FTN5TXT      204     A     
 FTN5TXT  * NAME    STRING LL,UL,INC                                                       FTN5TXT      205     A     
 FTN5TXT  *                                                                                FTN5TXT      206     A     
 FTN5TXT  *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH           FTN5TXT      207     A     
 FTN5TXT  *                          EACH SNAP. (NR CHARS.LE.8)                            FTN5TXT      208     A     
 FTN5TXT  *                LL   =  LOWER LIMIT (DEFAULT=1)                                 FTN5TXT      209     A     
 FTN5TXT  *                UL   =  UPPER LIMIT (DEFAULT=100)                               FTN5TXT      210     A     
 FTN5TXT  *                INC  =  INCREMENT   (DEFAULT=1)                                 FTN5TXT      211     A     
 FTN5TXT  *                          SEE *FRK=* MACRO.                                     FTN5TXT      212     A     
 FTN5TXT  *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-            FTN5TXT      213     A     
 FTN5TXT  *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS             FTN5TXT      214     A     
 FTN5TXT  *                          ASSEMBLED AFTER *RJ*                                  FTN5TXT      215     A     
 FTN5TXT  *                                                                                FTN5TXT      216     A     
 FTN5TXT  *         EXIT   NONE                                                            FTN5TXT      217     A     
 FTN5TXT  *                                                                                FTN5TXT      218     A     
 FTN5TXT  *         USES   NONE                                                            FTN5TXT      219     A     
 FTN5TXT  *                                                                                FTN5TXT      220     A     
 FTN5TXT  *         CALLS  FRK=,SBD                                                        FTN5TXT      221     A     
 FTN5TXT                                                                                   FTN5TXT      222     A     
 FTN5TXT                                                                                   FTN5TXT      223     A     
 FTN5TXT            PURGMAC STRING                                                         FTN5TXT      224     A     
 FTN5TXT                                                                                   FTN5TXT      225     A     
 FTN5TXT            MACRO  STRING,NAME,LL,UL,INC,NUSE                                      FTN5TXT      226     A     
 FTN5TXT            LOCAL  RTN                                                             FTN5TXT      227     A     
 FTN5TXT            LOCAL  APL                                                             FTN5TXT      228     A     
 FTN5TXT  *                                                                                FTN5TXT      229     A     
 FTN5TXT   +        RJ     =XSBD                                                           FTN5TXT      230     A     
 FTN5TXT   -        VFD    30/APL                                                          FTN5TXT      231     A     
 FTN5TXT  *                                                                                FTN5TXT      232     A     
 FTN5TXT   #NUSE    IFC    EQ,/NUSE//                                                      FTN5TXT      233     A     
 FTN5TXT            USE    DEBUG                                                           FTN5TXT      234     A     
 FTN5TXT  *                                                                                FTN5TXT      235     A     
 FTN5TXT   #NUSE    ELSE                                                                   FTN5TXT      236     A     
 FTN5TXT            EQ     RTN                                                             FTN5TXT      237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   #NUSE    ENDIF                                                                  FTN5TXT      238     A     
 FTN5TXT  *                                                                                FTN5TXT      239     A     
 FTN5TXT   APL      BSS    0                                                               FTN5TXT      240     A     
 FTN5TXT            FRK=   (NAME),LL,UL,INC                                                FTN5TXT      241     A     
 FTN5TXT  *                                                                                FTN5TXT      242     A     
 FTN5TXT   #NUSE    IFC    EQ,/NUSE//                                                      FTN5TXT      243     A     
 FTN5TXT            USE    *                                                               FTN5TXT      244     A     
 FTN5TXT  *                                                                                FTN5TXT      245     A     
 FTN5TXT   #NUSE    ELSE                                                                   FTN5TXT      246     A     
 FTN5TXT   RTN      BSS    0                                                               FTN5TXT      247     A     
 FTN5TXT   #NUSE    ENDIF                                                                  FTN5TXT      248     A     
 FTN5TXT  *                                                                                FTN5TXT      249     A     
 FTN5TXT   STRING   ENDM                                                                   FTN5TXT      250     A     
 FTN5TXT                                                                                   FTN5TXT      251     A     
 FTN5TXT   .TEST    ENDIF                                                                  FTN5TXT      252     A     
 FTN5TXT   PRINT    SPACE  4,20                                                            FTN5TXT      253     A     
 FTN5TXT  **        PRINT - PRINT THE CONTENTS OF A LIST OF LOCATIONS.                     FTN5TXT      254     A     
 FTN5TXT  *                                                                                FTN5TXT      255     A     
 FTN5TXT  *                                                                                FTN5TXT      256     A     
 FTN5TXT  *         PRINT  LAB,FMT,(LIST)                                                  FTN5TXT      257     A     
 FTN5TXT  *                                                                                FTN5TXT      258     A     
 FTN5TXT  *         LAB - STATEMENT PRINTED IF *LAB* MENTIONED ON A *TRACER* LIST          FTN5TXT      259     A     
 FTN5TXT  *                IF BLANK, THEN UNCONDITIONALLY PRINT.                           FTN5TXT      260     A     
 FTN5TXT  *         FMT - PARENTHESIED FORTRAN FORMAT                                      FTN5TXT      261     A     
 FTN5TXT  *         LIST - PARENTHESIZED LIST OF NAMES AND OR REGISTERS TO BE              FTN5TXT      262     A     
 FTN5TXT  *                PRINTED.                                                        FTN5TXT      263     A     
 FTN5TXT  *                                                                                FTN5TXT      264     A     
 FTN5TXT  *         SAMPLE CALL --                                                         FTN5TXT      265     A     
 FTN5TXT  *         PRINT XXX,(* SIP,IIP =*,2I6),(SIP,IIP)   WILL PRODUCE -                FTN5TXT      266     A     
 FTN5TXT  *         XXX SIP,IIP = NNNNNN NNNNNN                                            FTN5TXT      267     A     
 FTN5TXT  *                                                                                FTN5TXT      268     A     
 FTN5TXT  *         THIS MACRO IS FOR INTERNAL DEBUGGING ONLY ( TEST MODE ).               FTN5TXT      269     A     
 FTN5TXT                                                                                   FTN5TXT      270     A     
 FTN5TXT                                                                                   FTN5TXT      271     A     
 FTN5TXT            PURGMAC PRINT                                                          FTN5TXT      272     A     
 FTN5TXT                                                                                   FTN5TXT      273     A     
 FTN5TXT   PRINT    MACRO  LAB,FMT,LIST                                                    FTN5TXT      274     A     
 FTN5TXT            LOCAL  APL,LFMT                                                        FTN5TXT      275     A     
 FTN5TXT   .P       IFC    NE,/LAB//,2                                                     FTN5TXT      276     A     
 FTN5TXT   .P       IF     -DEF,)LAB,1                                                     FTN5TXT      277     A     
 FTN5TXT   .P       IF     DEF,/DEBUG/LAB                                                  FTN5TXT      278     A     
 FTN5TXT  *                                                                                FTN5TXT      279     A     
 FTN5TXT            USE    DEBUG                                                           FTN5TXT      280     A     
 FTN5TXT   APL      CON    =XOUTPUT#                                                       FTN5TXT      281     A     
 FTN5TXT            CON    LFMT                                                            FTN5TXT      282     A     
 FTN5TXT            IRP    LIST                                                            FTN5TXT      283     A     
 FTN5TXT            IF     REG,LIST,4                                                      FTN5TXT      284     A     
 FTN5TXT   L        MICRO  1,1,/LIST/                                                      FTN5TXT      285     A     
 FTN5TXT   N        MICRO  2,1,/LIST/                                                      FTN5TXT      286     A     
 FTN5TXT            VFD    12/2,30/1S6,18/=XSV="L"+"N"                                     FTN5TXT      287     A     
 FTN5TXT            SKIP   1                                                               FTN5TXT      288     A     
 FTN5TXT            VFD    12/2,30/1S6,18/LIST                                             FTN5TXT      289     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            IRP                                                                    FTN5TXT      290     A     
 FTN5TXT  *                                                                                FTN5TXT      291     A     
 FTN5TXT   LFMT     CON    0                                                               FTN5TXT      292     A     
 FTN5TXT            DIS    ,$(* LAB *,FMT)$                                                FTN5TXT      293     A     
 FTN5TXT            USE    *                                                               FTN5TXT      294     A     
 FTN5TXT  *                                                                                FTN5TXT      295     A     
 FTN5TXT            RJ     =XSVR=                                                          FTN5TXT      296     A     
 FTN5TXT            SA1    APL                                                             FTN5TXT      297     A     
 FTN5TXT            RJ     =XOUTCI.                                                        FTN5TXT      298     A     
 FTN5TXT            RJ     =XRSR=                                                          FTN5TXT      299     A     
 FTN5TXT   .P       ENDIF                                                                  FTN5TXT      300     A     
 FTN5TXT   PRINT    ENDM                                                                   FTN5TXT      301     A     
 FTN5TXT                                                                                   FTN5TXT      302     A     
 FTN5TXT   USF=     SPACE  4,8                                                             FTN5TXT      303     A     
 FTN5TXT  **        USF= - GENERATE USER FLAG PARAMETER CELL                               FTN5TXT      304     A     
 FTN5TXT  *                                                                                FTN5TXT      305     A     
 FTN5TXT  *         USED BY REG AND SNAP MACROS.                                           FTN5TXT      306     A     
 FTN5TXT  *         USO= AND/OR URO= MUST ALSO BE DEFINED FOR *COMCIDP* CODE.              FTN5TXT      307     A     
 FTN5TXT  *                                                                                FTN5TXT      308     A     
 FTN5TXT  *         USF=   (ABCDEFG)                                                       FTN5TXT      309     A     
 FTN5TXT  *                                                                                FTN5TXT      310     A     
 FTN5TXT  *         ENTRY  (ABCDEFG) = STRING OF *SNAP=* CHARACTERS.                       FTN5TXT      311     A     
 FTN5TXT  *                                                                                FTN5TXT      312     A     
 FTN5TXT  *         EXIT   USER SNAP/IDP PARAMETER WORD GENERATED.                         FTN5TXT      313     A     
 FTN5TXT  *                                                                                FTN5TXT      314     A     
 FTN5TXT  *         USES   NONE                                                            FTN5TXT      315     A     
 FTN5TXT  *                                                                                FTN5TXT      316     A     
 FTN5TXT  *         CALLS  LETMIC                                                          FTN5TXT      317     A     
 FTN5TXT                                                                                   FTN5TXT      318     A     
 FTN5TXT                                                                                   FTN5TXT      319     A     
 FTN5TXT            PURGMAC USF=                                                           FTN5TXT      320     A     
 FTN5TXT                                                                                   FTN5TXT      321     A     
 FTN5TXT   USF=     MACRO  USF                                                             FTN5TXT      322     A     
 FTN5TXT   '?ID#001 IFC    NE, USF                                                         FTN5TXT      323     A     
 FTN5TXT   '?IDCS01 LETMIC (USF)                                                           FTN5TXT      324     A     
 FTN5TXT            CON    "'?IDCS01"                                                      FTN5TXT      325     A     
 FTN5TXT   '?ID#001 ELSE                                                                   FTN5TXT      326     A     
 FTN5TXT            CON    0                                                               FTN5TXT      327     A     
 FTN5TXT   '?ID#001 ENDIF                                                                  FTN5TXT      328     A     
 FTN5TXT   USF=     ENDM                                                                   FTN5TXT      329     A     
 FTN5TXT  *CALL     COMAIDP            IDP ACCESS MACROS                                   FTN5TXT      330     A     
 FTN5TXT                                                                                   FTN5TXT      331     A     
 FTN5TXT  *CALL     COMACPU            GENERAL CPU MACROS.                                 FTN5TXT      332     A     
 FTN5TXT                                                                                   FTN5TXT      333     A     
 FTN5TXT  *CALL     COMAMGM            MORE (LESS) GENERAL MACROS.                         FTN5TXT      334     A     
 FTN5TXT                                                                                   FTN5TXT      335     A     
 FTN5TXT                                                                                   FC5A128       26          I
          -FC5A231
 FTN5TXT            TITLE  COMPILER-SPECIFIC MACROS.                                       FC5A231       22     A     
 FTN5TXT   ACTTAB   SPACE  4,10                                                            FC5A231       23     A     
 FTN5TXT  **        ACTTAB - ACTIVATE A TABLE.                                             FC5A128       27     A     
 FTN5TXT  *                                                                                FC5A128       28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                                                                                FC5A128       29     A     
 FTN5TXT  *         ACTTAB TAB,PHASE                                                       FC5A128       30     A     
 FTN5TXT  *         (TAB) = TABLE TO BE ACTIVATED.                                         FC5A128       31     A     
 FTN5TXT  *         (PHASE) = PHASE WHERE TABLES ARE TO BE ACTIVATED.                      FC5A128       32     A     
 FTN5TXT  *                                                                                FC5A128       33     A     
 FTN5TXT  *         USES   A2,A7                                                           FC5A128       34     A     
 FTN5TXT  *         USES   X2,X3,X7                                                        FC5A128       35     A     
 FTN5TXT  *         USES   B7                                                              FC5A128       36     A     
 FTN5TXT  *                                                                                FC5A128       37     A     
 FTN5TXT                                                                                   FC5A128       38     A     
 FTN5TXT   ACTTAB   MACRO  TAB,PHASE                                                       FC5A128       39     A     
 FTN5TXT            SX3    B0                                                              FC5A128       40     A     
 FTN5TXT            IRP    TAB                                                             FC5A128       41     A     
 FTN5TXT            SA2    =XT.TAB                                                         FC5A128       42     A     
 FTN5TXT            SB7    =XBASES                                                         FC5A128       43     A     
 FTN5TXT            SX2    B1                                                              FC5A128       44     A     
 FTN5TXT            SB7    A2-B7                                                           FC5A128       45     A     
 FTN5TXT            LX2    B7,X2                                                           FC5A128       46     A     
 FTN5TXT            BX3    X2+X3                                                           FC5A128       47     A     
 FTN5TXT            IRP                                                                    FC5A128       48     A     
 FTN5TXT            IRP    PHASE                                                           FC5A128       49     A     
 FTN5TXT            SA2    =XTV=_PHASE                                                     FC5A128       50     A     
 FTN5TXT            BX7    X3+X2                                                           FC5A128       51     A     
 FTN5TXT            SA7    A2                                                              FC5A128       52     A     
 FTN5TXT            IRP                                                                    FC5A128       53     A     
 FTN5TXT   ACTTAB   ENDM                                                                   FC5A128       54     A     
 FTN5TXT            TITLE  COMPILER-SPECIFIC MACROS.                                       FTN5TXT      336          I
          -FC5A231
 FTN5TXT   ADDREF   SPACE  4,10                                                            FTN5TXT      337     A     
 FTN5TXT  **        ADDREF - ADD REFERENCE TO TABLE.                                       FTN5TXT      338     A     
 FTN5TXT  *                                                                                FTN5TXT      339     A     
 FTN5TXT  *                                                                                FTN5TXT      340     A     
 FTN5TXT  *         ADDREF TAG,TYPE,RETURN                                                 FTN5TXT      341     A     
 FTN5TXT  *         (TAG) = X-REGISTER CONTAINING THE TAG (X6)                             FTN5TXT      342     A     
 FTN5TXT  *                18/TAG,42/IGNORED                                               FTN5TXT      343     A     
 FTN5TXT  *                                                                                FTN5TXT      344     A     
 FTN5TXT  *         (TYPE) = TYPE OF REFERENCE (X1).                                       FTN5TXT      345     A     
 FTN5TXT  *                1R FORMAT CHARACTERS.  CALL SHOULD USE ONE OF THE               FTN5TXT      346     A     
 FTN5TXT  *                CR.XXX SYMBOLS.                                                 FTN5TXT      347     A     
 FTN5TXT  *                                                                                FTN5TXT      348     A     
 FTN5TXT  *         (RETURN) = RETURN ADDRESS (B7).                                        FTN5TXT      349     A     
 FTN5TXT  *                *+1 IF OMITTED.                                                 FTN5TXT      350     A     
 FTN5TXT                                                                                   FTN5TXT      351     A     
 FTN5TXT                                                                                   FTN5TXT      352     A     
 FTN5TXT   ADDREF   MACRO  TAG,TYPE,RETURN                                                 FTN5TXT      353     A     
 FTN5TXT            =X6    TAG                                                             FTN5TXT      354     A     
 FTN5TXT            =X1    TYPE                                                            FTN5TXT      355     A     
 FTN5TXT            =B7    RETURN  *+2-*P/60D                                              FTN5TXT      356     A     
 FTN5TXT            EQ     =XERT                                                           FTN5TXT      357     A     
 FTN5TXT   ADDREF   ENDM                                                                   FTN5TXT      358     A     
 FTN5TXT   ADSYM    SPACE  4,10                                                            FTN5TXT      359     A     
 FTN5TXT  **        ADSYM - ADD ENTRY TO SYMBOL TABLE.                                     FTN5TXT      360     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                                                                                FTN5TXT      361     A     
 FTN5TXT  *         ADSYM  T.SYM                                                           FTN5TXT      362     A     
 FTN5TXT  *                                                                                FTN5TXT      363     A     
 FTN5TXT  *         ENTRY  (X6) =  42/ SYMBOL TO ENTER,  12/ 0                             FTN5TXT      364     A     
 FTN5TXT  *                (X7) =  SECOND WORD OF ENTRY                                    FTN5TXT      365     A     
 FTN5TXT  *                (T.SYM) = ADDRESS OF T.SYM REQUIRED                             FTN5TXT      366     A     
 FTN5TXT  *         CALLS  ESY                                                             FTN5TXT      367     A     
 FTN5TXT                                                                                   FTN5TXT      368     A     
 FTN5TXT                                                                                   FTN5TXT      369     A     
 FTN5TXT   ADSYM    MACRO  TABL                                                            FTN5TXT      370     A     
 FTN5TXT            =A1    TABL                                                            FTN5TXT      371     A     
 FTN5TXT            RJ     =XESY                                                           FTN5TXT      372     A     
 FTN5TXT   ADSYM    ENDM                                                                   FTN5TXT      373     A     
 FTN5TXT   ADDWD    SPACE  4,10                                                            FTN5TXT      374     A     
 FTN5TXT  **        ADDWD- ADD WORD TO MANAGED TABLE                                       FTN5TXT      375     A     
 FTN5TXT  *                                                                                FTN5TXT      376     A     
 FTN5TXT  *         ADDWD  TNAM                                                            FTN5TXT      377     A     
 FTN5TXT  *                                                                                FTN5TXT      378     A     
 FTN5TXT  *         ENTRY  (X6) = WORD TO ADD.                                             FTN5TXT      379     A     
 FTN5TXT  *         CALLS  ADW.                                                            FTN5TXT      380     A     
 FTN5TXT                                                                                   FTN5TXT      381     A     
 FTN5TXT                                                                                   FTN5TXT      382     A     
 FTN5TXT   ADDWD    MACRO  TNAM                                                            FTN5TXT      383     A     
 FTN5TXT            =A1    TNAM                                                            FTN5TXT      384     A     
 FTN5TXT            RJ     =XADW                                                           FTN5TXT      385     A     
 FTN5TXT   ADDWD    ENDM                                                                   FTN5TXT      386     A     
 FTN5TXT   ALLOC    SPACE  4,10                                                            FTN5TXT      387     A     
 FTN5TXT  **        ALLOC - ALLOCATE ROOM FOR TABLE.                                       FTN5TXT      388     A     
 FTN5TXT  *                                                                                FTN5TXT      389     A     
 FTN5TXT  *                                                                                FTN5TXT      390     A     
 FTN5TXT  *         ALLOC  TNAM,ROOM         SCM TABLE                                     FTN5TXT      391     A     
 FTN5TXT  *         ALLOX  TNAM,ROOM         LCM TABLE                                     FTN5TXT      392     A     
 FTN5TXT  *                                                                                FTN5TXT      393     A     
 FTN5TXT  *         *TNAM* _ ORIGIN WORD OF TABLE TO BE ALLOCATED.                         FTN5TXT      394     A     
 FTN5TXT  *         *ROOM* = NUMBER OF WORDS TO EXPAND (OR SHRINK, IF NEGATIVE).           FTN5TXT      395     A     
 FTN5TXT                                                                                   FTN5TXT      396     A     
 FTN5TXT                                                                                   FTN5TXT      397     A     
 FTN5TXT   ALLOC    MACRO  T,R                                                             FTN5TXT      398     A     
 FTN5TXT            =A1    T                                                               FTN5TXT      399     A     
 FTN5TXT            =X0    R                                                               FTN5TXT      400     A     
 FTN5TXT            RJ     =XALC                                                           FTN5TXT      401     A     
 FTN5TXT   ALLOC    ENDM                                                                   FTN5TXT      402     A     
 FTN5TXT                                                                                   FTN5TXT      403     A     
 FTN5TXT   ALLOX    MACRO  T,R                                                             FTN5TXT      404     A     
 FTN5TXT            =A1    T                                                               FTN5TXT      405     A     
 FTN5TXT            =X0    R                                                               FTN5TXT      406     A     
 FTN5TXT            RJ     =XALE                                                           FTN5TXT      407     A     
 FTN5TXT   ALLOX    ENDM                                                                   FTN5TXT      408     A     
 FTN5TXT                                                                                   FC5A128       55     A     
 FTN5TXT  **        INATAB - INACTIVATE A TABLE.                                           FC5A128       56     A     
 FTN5TXT  *                                                                                FC5A128       57     A     
 FTN5TXT  *                                                                                FC5A128       58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *         INATAB TAB,PHASE                                                       FC5A128       59     A     
 FTN5TXT  *                                                                                FC5A128       60     A     
 FTN5TXT  *         (TAB) = TABLE TO BE DEACTIVATED.                                       FC5A128       61     A     
 FTN5TXT  *         (PHASE) = PHASES WHERE DEACTIVATION WILL TAKE PLACE.                   FC5A128       62     A     
 FTN5TXT  *                                                                                FC5A128       63     A     
 FTN5TXT  *         USES   A2,A7                                                           FC5A128       64     A     
 FTN5TXT  *         USES   X2,X3,X7                                                        FC5A128       65     A     
 FTN5TXT  *         USES   B7                                                              FC5A128       66     A     
 FTN5TXT  *                                                                                FC5A128       67     A     
 FTN5TXT                                                                                   FC5A128       68     A     
 FTN5TXT   INATAB   MACRO  TAB,PHASE                                                       FC5A128       69     A     
 FTN5TXT            SX3    B0                                                              FC5A128       70     A     
 FTN5TXT            IRP    TAB                                                             FC5A128       71     A     
 FTN5TXT            SA2    =XT.TAB                                                         FC5A128       72     A     
 FTN5TXT            SB7    =XBASES                                                         FC5A128       73     A     
 FTN5TXT            SX2    B1                                                              FC5A128       74     A     
 FTN5TXT            SB7    A2-B7                                                           FC5A128       75     A     
 FTN5TXT            LX2    B7,X2                                                           FC5A128       76     A     
 FTN5TXT            BX3    X2+X3                                                           FC5A128       77     A     
 FTN5TXT            IRP                                                                    FC5A128       78     A     
 FTN5TXT            IRP    PHASE                                                           FC5A128       79     A     
 FTN5TXT            SA2    =XTV=_PHASE                                                     FC5A128       80     A     
 FTN5TXT            BX7    -X3*X2      TURN OFF BIT                                        FC5A128       81     A     
 FTN5TXT            SA7    A2                                                              FC5A128       82     A     
 FTN5TXT            IRP                                                                    FC5A128       83     A     
 FTN5TXT   INATAB   ENDM                                                                   FC5A128       84     A     
 FTN5TXT                                                                                   FC5A128       85     A     
 FTN5TXT   ANSI     SPACE  4,10                                                            FTN5TXT      409     A     
 FTN5TXT  **        ANSI - MACRO TO PROCESS *ANSI* DIAGNOSTICS.                            FTN5TXT      410     A     
 FTN5TXT  *                                                                                FTN5TXT      411     A     
 FTN5TXT  *         ANSI   ARG                                                             FTN5TXT      412     A     
 FTN5TXT  *                                                                                FTN5TXT      413     A     
 FTN5TXT  *         *ARG*  = ADDRESS OF ERROR.                                             FTN5TXT      414     A     
 FTN5TXT                                                                                   FTN5TXT      415     A     
 FTN5TXT                                                                                   FTN5TXT      416     A     
 FTN5TXT   ANSI     MACRO  ARG                                                             FTN5TXT      417     A     
 FTN5TXT  *                                                                                FTN5TXT      418     A     
 FTN5TXT   A MICRO 1,, =X                                                                  FTN5TXT      419     A     
 FTN5TXT    IF -REG,ARG,2                                                                  FTN5TXT      420     A     
 FTN5TXT   B MICRO 1,2, ARG                                                                FTN5TXT      421     A     
 FTN5TXT    IFC EQ, "B" =X ,1                                                              FTN5TXT      422     A     
 FTN5TXT   A MICRO                                                                         FTN5TXT      423     A     
 FTN5TXT  *                                                                                FTN5TXT      424     A     
 FTN5TXT            =B7    "A"ARG                                                          FTN5TXT      425     A     
 FTN5TXT            RJ     =XANSI=                                                         FTN5TXT      426     A     
 FTN5TXT   ANSI     ENDM                                                                   FTN5TXT      427     A     
 FTN5TXT   CLAS=    SPACE  4,20                                                            FTN5TXT      428     A     
 FTN5TXT  ***       CLAS= - LOAD "CLASS" BITS INTO A REGISTER.                             FTN5TXT      429     A     
 FTN5TXT  *                                                                                FTN5TXT      430     A     
 FTN5TXT  *         CLAS=  REG,PFX,(BITS),TYPE                                             FTN5TXT      431     A     
 FTN5TXT  *                                                                                FTN5TXT      432     A     
 FTN5TXT  *         ENTRY  REG = REGISTER TO BE LOADED.                                    FTN5TXT      433     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                PFX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.               FTN5TXT      434     A     
 FTN5TXT  *                BITS = NAMES OF BITS TO BE SET.                                 FTN5TXT      435     A     
 FTN5TXT  *                TYPE = (OPTIONAL) TYPE TO SET INTO (PFX.MODE) FIELD.            FTN5TXT      436     A     
 FTN5TXT                                                                                   FTN5TXT      437     A     
 FTN5TXT                                                                                   FTN5TXT      438     A     
 FTN5TXT   CLAS=    MACRO  REG,PFX,(BITS),TYPE                                             FTN5TXT      439     A     
 FTN5TXT   T        MICRO  1,, 0                                                           FTN5TXT      440     A     
 FTN5TXT            IFC    NE, TYPE  ,3                                                    FTN5TXT      441     A     
 FTN5TXT            ERRNZ  PFX.MODEP   ["SEQUENCE"]_____________________                   FTN5TXT      442     A     
 FTN5TXT            ERRMI  7-M.TYPE    ["SEQUENCE"]_____________________                   FTN5TXT      443     A     
 FTN5TXT   T        OCTMIC M.TYPE,1                                                        FTN5TXT      444     A     
 FTN5TXT  *                            COUNT NUMBER OF BITS TO BE SET.                     FTN5TXT      445     A     
 FTN5TXT   A        SET                                                                    FTN5TXT      446     A     
 FTN5TXT            IRP    BITS                                                            FTN5TXT      447     A     
 FTN5TXT   A        SET    A+1                                                             FTN5TXT      448     A     
 FTN5TXT            IF     -DEF,PFX.BITS_P,2                                               FTN5TXT      449     A     
 FTN5TXT            ERR    (PFX.BITS) NOT DECLARED.    ["SEQUENCE"]_______________         FTN5TXT      450     A     
 FTN5TXT   A        SET    100                                                             FTN5TXT      451     A     
 FTN5TXT            IRP                                                                    FTN5TXT      452     A     
 FTN5TXT   .1       IFLT   A,100                                                           FTN5TXT      453     A     
 FTN5TXT  *                            CHECK FOR SIMPLE LOAD STYLE.                        FTN5TXT      454     A     
 FTN5TXT            IFEQ   A,0,2                                                           FTN5TXT      455     A     
 FTN5TXT            =REG   M.TYPE                                                          FTN5TXT      456     A     
 FTN5TXT   .1       SKIP                                                                   FTN5TXT      457     A     
 FTN5TXT            IFEQ   "T",,4                                                          FTN5TXT      458     A     
 FTN5TXT            IFEQ   A,1,3                                                           FTN5TXT      459     A     
 FTN5TXT            IFEQ   PFX.BITS_L,1,2                                                  FTN5TXT      460     A     
 FTN5TXT            LDBIT  REG,PFX.BITS_P                                                  FTN5TXT      461     A     
 FTN5TXT   .1       SKIP                                                                   FTN5TXT      462     A     
 FTN5TXT  *                            BIG VALUE, EVALUATE BITSTRING AND LOAD.             FTN5TXT      463     A     
 FTN5TXT   C        BFMIC  PFX,(BITS)                                                      FTN5TXT      464     A     
 FTN5TXT            IFC    NE, TYPE  ,2                                                    FTN5TXT      465     A     
 FTN5TXT   C        MICRO  1,19, "C"                                                       FTN5TXT      466     A     
 FTN5TXT   C        MICRO  1,, "C""T"B                                                     FTN5TXT      467     A     
 FTN5TXT            LDX    REG,"C"                                                         FTN5TXT      468     A     
 FTN5TXT   .1       ENDIF                                                                  FTN5TXT      469     A     
 FTN5TXT   CLAS=    ENDM                                                                   FTN5TXT      470     A     
 FTN5TXT   EMIT     SPACE  4,10                                                            FTN5TXT      471     A     
 FTN5TXT  **        EMIT - EMIT TURPLE TO IL.                                              FTN5TXT      472     A     
 FTN5TXT  *                                                                                FTN5TXT      473     A     
 FTN5TXT  *         EMIT   V=SKEL,USE,TAB        OR,                                       FTN5TXT      474     A     
 FTN5TXT  *         EMIT   SETOP,*,TAB                                                     FTN5TXT      475     A     
 FTN5TXT  *                                                                                FTN5TXT      476     A     
 FTN5TXT  *                SKEL = NAME OF A SKELETON.                                      FTN5TXT      477     A     
 FTN5TXT  *                SETOP = ADDRESS OF A SETOP WORD.                                FTN5TXT      478     A     
 FTN5TXT  *                USE = DUCABILITY OF OPERANDS.  PICK ONE OF --                   FTN5TXT      479     A     
 FTN5TXT  *                            [NONE, 1ST, 2ND, BOTH]                              FTN5TXT      480     A     
 FTN5TXT  *                TAB = TABLE TO EMIT TO.  IF OMITTED, (T.PAR) ASSUMED.           FTN5TXT      481     A     
 FTN5TXT  *                                                                                FTN5TXT      482     A     
 FTN5TXT  *         CALLS  EMT.                                                            FTN5TXT      483     A     
 FTN5TXT                                                                                   FTN5TXT      484     A     
 FTN5TXT                                                                                   FTN5TXT      485     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   EMIT     MACRO  SK,DU,TABLE                                                     FTN5TXT      486     A     
 FTN5TXT            IFC    NE,/TABLE//,3                                                   FTN5TXT      487     A     
 FTN5TXT   .A       SET    2S15                                                            FTN5TXT      488     A     
 FTN5TXT            =A1    TABLE                                                           FTN5TXT      489     A     
 FTN5TXT            SKIP   1                                                               FTN5TXT      490     A     
 FTN5TXT   .A       SET                                                                    FTN5TXT      491     A     
 FTN5TXT  *                                                                                FTN5TXT      492     A     
 FTN5TXT            IFC    EQ,/DU/*/,2                                                     FTN5TXT      493     A     
 FTN5TXT            SB3    4S15+.A+SK                                                      FTN5TXT      494     A     
 FTN5TXT            SKIP   1                                                               FTN5TXT      495     A     
 FTN5TXT            SB3    DUC=DU*1S12+.A+=X_SK                                            FTN5TXT      496     A     
 FTN5TXT  *                                                                                FTN5TXT      497     A     
 FTN5TXT            RJ     =XEMT                                                           FTN5TXT      498     A     
 FTN5TXT            ENDM                                                                   FTN5TXT      499     A     
 FTN5TXT   FATAL    SPACE  4,10                                                            FTN5TXT      500     A     
 FTN5TXT  **        FATAL - MACRO TO PRINT FATAL ERROR MESSAGES                            FTN5TXT      501     A     
 FTN5TXT  *                                                                                FTN5TXT      502     A     
 FTN5TXT  *         FATAL  E.ERR                                                           FTN5TXT      503     A     
 FTN5TXT  *                                                                                FTN5TXT      504     A     
 FTN5TXT  *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                          FTN5TXT      505     A     
 FTN5TXT  *                                                                                FTN5TXT      506     A     
 FTN5TXT  *         WILL PRINT THE SPECIFIED ERROR AND RETURN, WITHOUT CLOBBERING          FTN5TXT      507     A     
 FTN5TXT  *                MANY REGISTERS, PROVIDED THE EXIT ADDRESS FOR THAT              FTN5TXT      508     A     
 FTN5TXT  *                ERROR IS *PWE1*.  CALLS *PWE*.                                  FTN5TXT      509     A     
 FTN5TXT  *         SEE *PWE* FOR DETAILS.                                                 FTN5TXT      510     A     
 FTN5TXT                                                                                   FTN5TXT      511     A     
 FTN5TXT                                                                                   FTN5TXT      512     A     
 FTN5TXT   FATAL    MACRO  ADDR                                                            FTN5TXT      513     A     
 FTN5TXT  *                                                                                FTN5TXT      514     A     
 FTN5TXT   A MICRO 1,, =X                                                                  FTN5TXT      515     A     
 FTN5TXT    IF -REG,ADDR,2                                                                 FTN5TXT      516     A     
 FTN5TXT   B MICRO 1,2, ADDR                                                               FTN5TXT      517     A     
 FTN5TXT    IFC EQ, "B" =X ,1                                                              FTN5TXT      518     A     
 FTN5TXT   A MICRO                                                                         FTN5TXT      519     A     
 FTN5TXT  *                                                                                FTN5TXT      520     A     
 FTN5TXT            =B7    "A"ADDR                                                         FTN5TXT      521     A     
 FTN5TXT            RJ     =XPDM                                                           FTN5TXT      522     A     
 FTN5TXT   FATAL    ENDM                                                                   FTN5TXT      523     A     
 FTN5TXT   HEREIF   SPACE  4,10                                                            FTN5TXT      524     A     
 FTN5TXT  **        HEREIF - DECLARE ENTRY TO KEYWORD STATEMENT SCANNER.                   FTN5TXT      525     A     
 FTN5TXT                                                                                   FTN5TXT      526     A     
 FTN5TXT                                                                                   FTN5TXT      527     A     
 FTN5TXT            MACRO  HEREIF,LOCN,KEY                                                 FTN5TXT      528     A     
 FTN5TXT   .1       IFC    NE,/LOCN//                                                      FTN5TXT      529     A     
 FTN5TXT   KW=LOCN  BSSENT                                                                 FTN5TXT      530     A     
 FTN5TXT   .1       ELSE                                                                   FTN5TXT      531     A     
 FTN5TXT   A        MICRO  1,2,/KEY   /                                                    FTN5TXT      532     A     
 FTN5TXT   .2       IFC    EQ,/"A"/C$/                                                     FTN5TXT      533     A     
 FTN5TXT   B        MICRO  3,4,/KEY   /                                                    FTN5TXT      534     A     
 FTN5TXT   K$="B"   BSSENT                                                                 FTN5TXT      535     A     
 FTN5TXT   .2       ELSE                                                                   FTN5TXT      536     A     
 FTN5TXT   B        MICRO  1,4,/KEY   /                                                    FTN5TXT      537     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   KW="B"   BSSENT                                                                 FTN5TXT      538     A     
 FTN5TXT   .2       ENDIF                                                                  FTN5TXT      539     A     
 FTN5TXT   .1       ENDIF                                                                  FTN5TXT      540     A     
 FTN5TXT   HEREIF   ENDM                                                                   FTN5TXT      541     A     
 FTN5TXT   IFBIT    SPACE  4,30                                                            FTN5TXT      542          I
          -FC5A391
 FTN5TXT  **        IFBIT- MACRO TO TEST A BIT WHICH HAS A P.XXX DEFINITION.               FTN5TXT      543          I
          -FC5A391
 FTN5TXT  *                                                                                FTN5TXT      544          I
          -FC5A391
 FTN5TXT  *         IFBIT  XN,WHICH/OFFSET,WHERE                                           FTN5TXT      545          I
          -FC5A391
 FTN5TXT  *                                                                                FTN5TXT      546          I
          -FC5A391
 FTN5TXT  *         JUMPS TO "WHERE" IF BIT 2**"WHICH" IS ON (=1), UNLESS "WHICH"          FTN5TXT      547          I
          -FC5A391
 FTN5TXT  *         IS PRECEDED BY A MINUS WILL JUMP IF OFF (=0).                          FTN5TXT      548          I
          -FC5A391
 FTN5TXT  *         BIT TO BE TESTED IS IN "XN" AND HAS BEEN SHIFTED (CIRCULARLY)          FTN5TXT      549          I
          -FC5A391
 FTN5TXT  *         UNTIL BIT 2**("OFFSET") IS IN THE SIGN BIT POSITION.  THE              FTN5TXT      550          I
          -FC5A391
 FTN5TXT  *         "OFFSET" PARAMETER IS, OF COURSE, OMITTED IF "XN" IS IN                FTN5TXT      551          I
          -FC5A391
 FTN5TXT  *         NOMINAL POSITION.                                                      FTN5TXT      552          I
          -FC5A391
 FTN5TXT                                                                                   FTN5TXT      553          I
          -FC5A391
 FTN5TXT                                                                                   FTN5TXT      554          I
          -FC5A391
 FTN5TXT   IFBIT    MACRO  XN,WHICH,WHERE                                                  FTN5TXT      555          I
          -FC5A391
 FTN5TXT            SBIT   XN,WHICH                                                        FTN5TXT      556          I
          -FC5A391
 FTN5TXT  .1        IFC    NE,,WHERE,,                                                     FTN5TXT      557          I
          -FC5A391
 FTN5TXT   E        MICRO  2*B,2, *MIPL                                                    FTN5TXT      558          I
          -FC5A391
 FTN5TXT            "E"    XN,WHERE                                                        FTN5TXT      559          I
          -FC5A391
 FTN5TXT  .1        ENDIF                                                                  FTN5TXT      560          I
          -FC5A391
 FTN5TXT   IFBIT    ENDM                                                                   FTN5TXT      561          I
          -FC5A391
 FTN5TXT   INTF=    SPACE  4,10                                                            FC5A227       15     A     
 FTN5TXT  **        INTF= - MACRO TO CREATE INTRINSIC TABLE ENTRY.                         FC5A227       16     A     
 FTN5TXT  *                                                                                FC5A227       17     A     
 FTN5TXT  *         ENTRY  ".D" = (IT.JPAD) FIELD.                                         FC5A227       18     A     
 FTN5TXT                                                                                   FC5A227       19     A     
 FTN5TXT                                                                                   FC5A227       20     A     
 FTN5TXT   INTF=    MACRO  NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                                 FC5A227       21     A     
 FTN5TXT   .A       SET    2                                                               FC5A227       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   .B       SET    NOARGS                                                          FC5A227       23     A     
 FTN5TXT            IFC    EQ, NOARGS  ,1                                                  FC5A227       24     A     
 FTN5TXT   .B       SET    -0                                                              FC5A227       25     A     
 FTN5TXT  *                                                                                FC5A227       26     A     
 FTN5TXT            IRP    FLAGS                                                           FC5A227       27     A     
 FTN5TXT   .E       MICRO  1,3,/FLAGS/                                                     FC5A227       28     A     
 FTN5TXT   .G       SET    7777B                                                           FC5A227       29     A     
 FTN5TXT   .1       ECHO   ,KY=(,PAR,NON,NAN,EXT,GEN,BYN,CHA,GNO),VL=(,1,-2,-2,4,_         FC5A227       30     A     
 FTN5TXT  ,1S3,1S4,1S5,1S6)                                                                FC5A227       31     A     
 FTN5TXT            IFC    EQ,/".E"/KY/,2                                                  FC5A227       32     A     
 FTN5TXT   .G       SET    VL                                                              FC5A227       33     A     
 FTN5TXT   .1       STOPDUP                                                                FC5A227       34     A     
 FTN5TXT   .1       ENDD                                                                   FC5A227       35     A     
 FTN5TXT            IFNE   .G,7777B,2                                                      FC5A227       36     A     
 FTN5TXT   .A       SET    .A+.G                                                           FC5A227       37     A     
 FTN5TXT            SKIP   1                                                               FC5A227       38     A     
 FTN5TXT            ERR    NAME (FLAGS) ILLEGAL FLAG.                                      FC5A227       39     A     
 FTN5TXT            IRP                                                                    FC5A227       40     A     
 FTN5TXT  *                                                                                FC5A227       41     A     
 FTN5TXT   .C       MICRO  1,,$NAME$                                                       FC5A227       42     A     
 FTN5TXT            VFD    IT.DPCL/0L".C",7/.A,3/.B,8/".D",3/M.ARGTYP,3/M.FUNTYP           FC5A227       43     A     
 FTN5TXT  *                                                                                FC5A227       44     A     
 FTN5TXT  *                            RESERVE SLOT FOR GENERIC MODE SELECTOR              FC5A227       45     A     
 FTN5TXT   .G       SET    .A/1S3                                                          FC5A227       46     A     
 FTN5TXT            BSS    .G-.G/2*2                                                       FC5A227       47     A     
 FTN5TXT   INTF=    ENDM                                                                   FC5A227       48     A     
 FTN5TXT   JPQ      SPACE  4,10                                                            FTN5TXT      562     A     
 FTN5TXT  **        JPQ -  REDEFINE *JP* AS A *FAST JUMP* (04)                             FTN5TXT      563     A     
 FTN5TXT                                                                                   FTN5TXT      564     A     
 FTN5TXT                                                                                   FTN5TXT      565     A     
 FTN5TXT   JPQ      CPSYN  EQQ                                                             FTN5TXT      566     A     
 FTN5TXT   LITKEY   SPACE  4,10                                                            FTN5TXT      567     A     
 FTN5TXT  **        LITKEY - GENERATE KEYWORD LITERAL.                                     FTN5TXT      568     A     
 FTN5TXT  *                                                                                FTN5TXT      569     A     
 FTN5TXT  *                                                                                FTN5TXT      570     A     
 FTN5TXT  * LAB     LITKEY                                                                 FTN5TXT      571     A     
 FTN5TXT  *                                                                                FTN5TXT      572     A     
 FTN5TXT  *         ENTRY  '?KWCKEY = MICRO CONTAINING KEYWORD.                            FTN5TXT      573     A     
 FTN5TXT  *                '?KWSKEY = LEN OF '?KWCKEY (IN CHARS, I.E. *MICCNT*).           FTN5TXT      574     A     
 FTN5TXT  *                LAB      = LABEL FIELD FOR THIS KEYWORD.                        FTN5TXT      575     A     
 FTN5TXT  *                                                                                FTN5TXT      576     A     
 FTN5TXT  *         EXIT   NONE                                                            FTN5TXT      577     A     
 FTN5TXT  *                                                                                FTN5TXT      578     A     
 FTN5TXT  *         USES   NONE                                                            FTN5TXT      579     A     
 FTN5TXT  *                                                                                FTN5TXT      580     A     
 FTN5TXT  *         CALLS  NONE                                                            FTN5TXT      581     A     
 FTN5TXT                                                                                   FTN5TXT      582     A     
 FTN5TXT                                                                                   FTN5TXT      583     A     
 FTN5TXT            PURGMAC LITKEY                                                         FTN5TXT      584     A     
 FTN5TXT                                                                                   FTN5TXT      585     A     
 FTN5TXT            MACRO  LITKEY,LAB                                                      FTN5TXT      586     A     
 FTN5TXT            LOCAL  '?KW#001                                                        FTN5TXT      587     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                                                                                FTN5TXT      588     A     
 FTN5TXT   '?KWCS02 MICRO 1,, 0L                                                           FTN5TXT      589     A     
 FTN5TXT   '?KWS001 SET    '?KWSKEY/7+1                                                    FTN5TXT      590     A     
 FTN5TXT   '?KWS002 SET    1                                                               FTN5TXT      591     A     
 FTN5TXT  *                                                                                FTN5TXT      592     A     
 FTN5TXT   '?KW#001 DUP    '?KWS001                                                        FTN5TXT      593     A     
 FTN5TXT   '?KWCS01 MICRO  '?KWS002,7, "'?KWCKEY"                                          FTN5TXT      594     A     
 FTN5TXT   '?KWCS02 MICRO  1,, "'?KWCS02",0L"'?KWCS01"                                     FTN5TXT      595     A     
 FTN5TXT   '?KWS002 SET    '?KWS002+7                                                      FTN5TXT      596     A     
 FTN5TXT  *                                                                                FTN5TXT      597     A     
 FTN5TXT   '?KW#001 ENDD                                                                   FTN5TXT      598     A     
 FTN5TXT  *                                                                                FTN5TXT      599     A     
 FTN5TXT   LAB LIT "'?KWCS02"                                                              FTN5TXT      600     A     
 FTN5TXT  *                                                                                FTN5TXT      601     A     
 FTN5TXT   LITKEY   ENDM                                                                   FTN5TXT      602     A     
 FTN5TXT   LOVER    SPACE  4,10                                                            FTN5TXT      603     A     
 FTN5TXT  **        LOVER - LOAD FTN OVERLAY.                                              FTN5TXT      604     A     
 FTN5TXT  *                                                                                FTN5TXT      605     A     
 FTN5TXT  *         FORMS 3-WORD LOADER CALL AND EXITS TO LOAD REQUEST ROUTINE.            FTN5TXT      606     A     
 FTN5TXT  *                                                                                FTN5TXT      607     A     
 FTN5TXT  *                                                                                FTN5TXT      608     A     
 FTN5TXT  *         LOVER  (P,S),LDA                                                       FTN5TXT      609     A     
 FTN5TXT  *         LOVER  XR,LDA      LEVELS IN X-REG                                     FTN5TXT      610     A     
 FTN5TXT  *                                                                                FTN5TXT      611     A     
 FTN5TXT  *         ENTRY  P = OVERLAY PRIMARY LEVEL NUMBER                                FTN5TXT      612     A     
 FTN5TXT  *                S = OVERLAY SECONDARY LEVEL NUMBER                              FTN5TXT      613     A     
 FTN5TXT  *                LDA = FWA TO LOAD OVERLAY                                       FTN5TXT      614     A     
 FTN5TXT  *                XR = P*64+S       LEVELS IN X-REG                               FTN5TXT      615     A     
 FTN5TXT  *                (CP.NFLS) = LWA+1 OF LOAD                                       FTN5TXT      616     A     
 FTN5TXT  *                (FTNLFN) = LIBRARY OR FILE NAME 0L FORMAT                       FTN5TXT      617     A     
 FTN5TXT  *                (FTNLDR) = LOADER REQUEST FLAGS                                 FTN5TXT      618     A     
 FTN5TXT  *                                                                                FTN5TXT      619     A     
 FTN5TXT  *         EXIT   TO *LOVER* WITH --                                              FTN5TXT      620     A     
 FTN5TXT  *                (X2) = P*64+S = OVERLAY LEVELS.                                 FTN5TXT      621     A     
 FTN5TXT  *                (X7) = FWA LOAD.                                                FTN5TXT      622     A     
 FTN5TXT                                                                                   FTN5TXT      623     A     
 FTN5TXT                                                                                   FTN5TXT      624     A     
 FTN5TXT            PURGMAC LOVER                                                          FTN5TXT      625     A     
 FTN5TXT                                                                                   FTN5TXT      626     A     
 FTN5TXT   LOVER    MACRO  PS,LDA                                                          FTN5TXT      627     A     
 FTN5TXT            LOCAL  P,S                                                             FTN5TXT      628     A     
 FTN5TXT   P        MICRO  1,,,PS,                                                         FTN5TXT      629     A     
 FTN5TXT   A        MICCNT P                                                               FTN5TXT      630     A     
 FTN5TXT   S        MICRO  A+2,,/PS/                                                       FTN5TXT      631     A     
 FTN5TXT   .1       IFC    EQ,//"S"/   IF PS CONTAINED NO COMMA                            FTN5TXT      632     A     
 FTN5TXT            =X2    PS                                                              FTN5TXT      633     A     
 FTN5TXT   .1       ELSE                                                                   FTN5TXT      634     A     
 FTN5TXT            SX2    0"P"0"S"B                                                       FTN5TXT      635     A     
 FTN5TXT   .1       ENDIF                                                                  FTN5TXT      636     A     
 FTN5TXT  *                            SET (X7) = FWA OF LOAD                              FTN5TXT      637     A     
 FTN5TXT            =X7    LDA                                                             FTN5TXT      638     A     
 FTN5TXT            IFC    EQ,/LDA//,1                                                     FTN5TXT      639     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 328    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   8        ERR    LOAD ADDRESS REQUIRED ON LOVER CALL                             FTN5TXT      640     A     
 FTN5TXT            EQ     =XLOVER                                                         FTN5TXT      641     A     
 FTN5TXT   LOVER    ENDM                                                                   FTN5TXT      642     A     
 FTN5TXT   MDERR    SPACE  4,10                                                            F1037F5      110     A     
 FTN5TXT  **        MDERR - MACRO TO PROCESS MACHINE DEPENDENT DIAGNOSTICS.                F1037F5      111     A     
 FTN5TXT  *                                                                                F1037F5      112     A     
 FTN5TXT  *         MDERR  ARG                                                             F1037F5      113     A     
 FTN5TXT  *                                                                                F1037F5      114     A     
 FTN5TXT  *         *ARG* = ADDRESS OF ERROR.                                              F1037F5      115     A     
 FTN5TXT                                                                                   F1037F5      116     A     
 FTN5TXT   MDERR    MACRO  ARG                                                             F1037F5      117     A     
 FTN5TXT  *                                                                                F1037F5      118     A     
 FTN5TXT   A        MICRO  1,, =X                                                          F1037F5      119     A     
 FTN5TXT            IF     -REG,ARG,2                                                      F1037F5      120     A     
 FTN5TXT   B        MICRO  1,2, ARG                                                        F1037F5      121     A     
 FTN5TXT            IFC    EQ, "B" =X ,1                                                   F1037F5      122     A     
 FTN5TXT   A        MICRO                                                                  F1037F5      123     A     
 FTN5TXT  *                                                                                F1037F5      124     A     
 FTN5TXT            =B7    "A"ARG                                                          F1037F5      125     A     
 FTN5TXT            RJ     =XMDERR=                                                        F1037F5      126     A     
 FTN5TXT   MDERR    ENDM                                                                   F1037F5      127     A     
 FTN5TXT   PIA      SPACE  4,10                                                            FTN5TXT      643     A     
 FTN5TXT  **        PIA -  MACRO TO CONVERT INSTRUCTION ADDRESS FOR LISTING.               FTN5TXT      644     A     
 FTN5TXT  *                                                                                FTN5TXT      645     A     
 FTN5TXT  *         PIA    FROM,TO                                                         FTN5TXT      646     A     
 FTN5TXT  *                                                                                FTN5TXT      647     A     
 FTN5TXT  *         FROM   = ADDRESS OF VALUE TO BE CONVERTED.                             FTN5TXT      648     A     
 FTN5TXT  *                  *SA1 FROM* GENERATED IF NOT NULL                              FTN5TXT      649     A     
 FTN5TXT  *         TO     = ADDRESS OF CELL TO RECEIVE RESULT                             FTN5TXT      650     A     
 FTN5TXT  *                  *SA6 TO* GENERATED IF NOT NULL                                FTN5TXT      651     A     
 FTN5TXT  *         ENTRY  X1 = VALUE, @ 2**17-1                                           FTN5TXT      652     A     
 FTN5TXT  *         EXIT   X6 = DPC CONVERSION, SUITABLE FOR LISTING, LEADING              FTN5TXT      653     A     
 FTN5TXT  *                     ZEROES SUPPRESSED,                                         FTN5TXT      654     A     
 FTN5TXT  *                     FORMAT  " 123456B  "                                       FTN5TXT      655     A     
 FTN5TXT  *         CALLS PIA                                                              FTN5TXT      656     A     
 FTN5TXT                                                                                   FTN5TXT      657     A     
 FTN5TXT                                                                                   FTN5TXT      658     A     
 FTN5TXT            PURGMAC PIA                                                            FTN5TXT      659     A     
 FTN5TXT                                                                                   FTN5TXT      660     A     
 FTN5TXT   PIA      MACRO  F,T                                                             FTN5TXT      661     A     
 FTN5TXT            IFC    NE,**F*,1                                                       FTN5TXT      662     A     
 FTN5TXT            SA1    F                                                               FTN5TXT      663     A     
 FTN5TXT            RJ     =XPIA                                                           FTN5TXT      664     A     
 FTN5TXT            IFC    NE,**T*,1                                                       FTN5TXT      665     A     
 FTN5TXT            SA6    T                                                               FTN5TXT      666     A     
 FTN5TXT   PIA      ENDM                                                                   FTN5TXT      667     A     
 FTN5TXT   PLINE    SPACE  4,10                                                            FTN5TXT      668     A     
 FTN5TXT  **        PLINE- PRINT CODED LINE ON OUTPUT FILE.                                FTN5TXT      669     A     
 FTN5TXT  *                                                                                FTN5TXT      670     A     
 FTN5TXT  *         PLINE  ADDR,L,N                                                        FTN5TXT      671     A     
 FTN5TXT  *                                                                                FTN5TXT      672     A     
 FTN5TXT  *         *ADDR* = FWA OF LINE IN *C* FORMAT.                                    FTN5TXT      673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *         *L*    = NUMBER OF WORDS TO BE PRINTED                                 FTN5TXT      674     A     
 FTN5TXT  *         *N*    = NUMBER OF BLANK LINES BEFORE LINE.                            FTN5TXT      675     A     
 FTN5TXT  *                                                                                FTN5TXT      676     A     
 FTN5TXT  *         CALLS  WBL, WOF.                                                       FTN5TXT      677     A     
 FTN5TXT                                                                                   FTN5TXT      678     A     
 FTN5TXT                                                                                   FTN5TXT      679     A     
 FTN5TXT   PLINE    MACRO  ADDR,L,N                                                        FTN5TXT      680     A     
 FTN5TXT            =X1    ADDR                                                            FTN5TXT      681     A     
 FTN5TXT            =X2    L                                                               FTN5TXT      682     A     
 FTN5TXT            =B5    N+1                                                             FTN5TXT      683     A     
 FTN5TXT            RJ     =XWOF                                                           FTN5TXT      684     A     
 FTN5TXT   PLINE    ENDM                                                                   FTN5TXT      685     A     
 FTN5TXT   PLUG     SPACE  4,40                                                            FTN5TXT      686     A     
 FTN5TXT  **        PLUG - MODIFY COMPILER CODE DURING EXECUTION.                          FTN5TXT      687     A     
 FTN5TXT  *                                                                                FTN5TXT      688     A     
 FTN5TXT  *         SELF-MODIFYING (PLUGGING) CODE MAY SEEMINGLY FAIL ON CYBER             FTN5TXT      689     A     
 FTN5TXT  *         74 / 6600 AND LARGER MODELS, DUE TO THE HARDWARE INSTRUCTION           FTN5TXT      690     A     
 FTN5TXT  *         STACK AND 1- OR 2-WORD INSTRUCTION LOOKAHEAD.  BECAUSE OF THIS         FTN5TXT      691     A     
 FTN5TXT  *         PROBLEM, AND THE UNREADABILITY OF PLUGGED CODE, THE TECHNIQUE          FTN5TXT      692     A     
 FTN5TXT  *         IS NOT DESIRABLE FOR WIDE USAGE.  EFFICIENCY CONSIDERATIONS            FTN5TXT      693     A     
 FTN5TXT  *         ARE OCCASIONALLY MORE IMPORTANT, HOWEVER, SO WE FORMALIZE              FTN5TXT      694     A     
 FTN5TXT  *         PLUGGING WITH THE FOLLOWING MACRO.  IT INCLUDES A SAFEGUARD            FTN5TXT      695     A     
 FTN5TXT  *         AGAINST THE STACK/LOOKAHEAD PROBLEM, AND IS PREFERABLE TO              FTN5TXT      696     A     
 FTN5TXT  *         DIRECT CODE FOR READABILITY AND DEBUGGING EASE.                        FTN5TXT      697     A     
 FTN5TXT  *                                                                                FTN5TXT      698     A     
 FTN5TXT  *         TWO FORMS OF *PLUG* ARE AVAILABLE ...                                  FTN5TXT      699     A     
 FTN5TXT  *                                                                                FTN5TXT      700     A     
 FTN5TXT  *                                                                                FTN5TXT      701     A     
 FTN5TXT  *         FORM 1 - PLUGS A CALLER-PROVIDED WORD OF CODE.                         FTN5TXT      702     A     
 FTN5TXT  *                                                                                FTN5TXT      703     A     
 FTN5TXT  *         PLUG      AT=,FROM=,FREG=,SREG=,VOID=                                  FTN5TXT      704     A     
 FTN5TXT  *                                                                                FTN5TXT      705     A     
 FTN5TXT  *                                                                                FTN5TXT      706     A     
 FTN5TXT  *         FORM 2 - FABRICATES AND PLUGS AN -EQ- JUMP.                            FTN5TXT      707     A     
 FTN5TXT  *         RESTRICTION - THE 1-REGISTER METHOD USED FOR FORMING THE -EQ-          FTN5TXT      708     A     
 FTN5TXT  *         JUMP IS NOT VALID IF *TO* IS .GT. 177777B ABSOLUTE.  THIS IS           FTN5TXT      709     A     
 FTN5TXT  *         NOT A PROBLEM IN FTN, SINCE ALL ADDRESSES ARE .LT. 100000B.            FTN5TXT      710     A     
 FTN5TXT  *                                                                                FTN5TXT      711     A     
 FTN5TXT  *         PLUG      AT=,TO=,SREG=,VOID=                                          FTN5TXT      712     A     
 FTN5TXT  *                                                                                FTN5TXT      713     A     
 FTN5TXT  *                                                                                FTN5TXT      714     A     
 FTN5TXT  *         ENTRY  *AT*   = ADDRESS WHERE PLUG TO BE STORED.                       FTN5TXT      715     A     
 FTN5TXT  *                *FREG* = (FORM 1 ONLY) (OPTIONAL)  NUMBER OF A,X REG            FTN5TXT      716     A     
 FTN5TXT  *                         TO USE FOR FETCHING CODE WORD.  MUST BE 1-5.           FTN5TXT      717     A     
 FTN5TXT  *                         USES A1 AND X1 IF OMITTED.  IGNORED IF *FROM*          FTN5TXT      718     A     
 FTN5TXT  *                         SPECIFIES AN X-REGISTER.                               FTN5TXT      719     A     
 FTN5TXT  *                *FROM* = (FORM 1 ONLY)  SOURCE OF CODE WORD TO PLUG.            FTN5TXT      720     A     
 FTN5TXT  *                         MAY BE AN X-REGISTER CONTAINING THE CODE WORD          FTN5TXT      721     A     
 FTN5TXT  *                         ( E.G., FROM=X3 ), OR AN ADDRESS EXPRESSION.           FTN5TXT      722     A     
 FTN5TXT  *                *SREG* = (OPTIONAL)  NUMBER OF A,X REG TO USE FOR               FTN5TXT      723     A     
 FTN5TXT  *                         STORING PLUG.  MUST BE 6 OR 7.  USES X6 AND A6         FTN5TXT      724     A     
 FTN5TXT  *                         IF OMITTED.                                            FTN5TXT      725     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                *TO*   = (FORM 2 ONLY)  -EQ- JUMP ADDRESS.                      FTN5TXT      726     A     
 FTN5TXT  *                *VOID* = (OPTIONAL)                                             FTN5TXT      727     A     
 FTN5TXT  *                         *NO* = DO NOT GENERATE STACK-VOIDING CODE.             FTN5TXT      728     A     
 FTN5TXT  *                         ELSE OR OMITTED = GENERATE VOIDING CODE IF             FTN5TXT      729     A     
 FTN5TXT  *                            "MODEL" IS CYBER 74 / 6600 OR LARGER.               FTN5TXT      730     A     
 FTN5TXT  *                                                                                FTN5TXT      731     A     
 FTN5TXT  *         CALLS  NONE                                                            FTN5TXT      732     A     
 FTN5TXT  *                                                                                FTN5TXT      733     A     
 FTN5TXT  *         USES   AS ABOVE                                                        FTN5TXT      734     A     
 FTN5TXT                                                                                   FTN5TXT      735     A     
 FTN5TXT                                                                                   FTN5TXT      736     A     
 FTN5TXT            PURGMAC PLUG                                                           FTN5TXT      737     A     
 FTN5TXT                                                                                   FTN5TXT      738     A     
 FTN5TXT   PLUG     MACROE AT,TO,FROM,FREG,SREG,VOID                                       FTN5TXT      739     A     
 FTN5TXT            LOCAL  FN,SN                                                           FTN5TXT      740     A     
 FTN5TXT   SN       SET    SREG  6                                                         FTN5TXT      741     A     
 FTN5TXT            IFLT   SN,6,1                                                          FTN5TXT      742     A     
 FTN5TXT            ERR    STORE REG MUST BE 6 OR 7.   ["SEQUENCE"]_______________         FTN5TXT      743     A     
 FTN5TXT   .F1      IFC    EQ, TO                                                          FTN5TXT      744     A     
 FTN5TXT   .F1A     IF     REG,FROM                                                        FTN5TXT      745     A     
 FTN5TXT  *                            FORM 1A - CODE WORD IN AN X-REGISTER.               FTN5TXT      746     A     
 FTN5TXT   SN       OCTMIC SN,1                                                            FTN5TXT      747     A     
 FTN5TXT   SN       MICRO  1,, X"SN"                                                       FTN5TXT      748     A     
 FTN5TXT            IFC    NE, FROM "SN" ,1                                                FTN5TXT      749     A     
 FTN5TXT            BX.SN  FROM                                                            FTN5TXT      750     A     
 FTN5TXT   .F1A     ELSE                                                                   FTN5TXT      751     A     
 FTN5TXT  *                            FORM 1B - FETCH CODE WORD FROM *FROM*.              FTN5TXT      752     A     
 FTN5TXT   FN       SET    FREG  1                                                         FTN5TXT      753     A     
 FTN5TXT            IFGE   FN,1,2                                                          FTN5TXT      754     A     
 FTN5TXT            IFLE   FN,5,1                                                          FTN5TXT      755     A     
 FTN5TXT            SKIP   1                                                               FTN5TXT      756     A     
 FTN5TXT            ERR    FETCH REG NOT 1-5.  ["SEQUENCE"]____________________            FTN5TXT      757     A     
 FTN5TXT            SA.FN  FROM                                                            FTN5TXT      758     A     
 FTN5TXT            BX.SN  X.FN                                                            FTN5TXT      759     A     
 FTN5TXT   .F1A     ENDIF                                                                  FTN5TXT      760     A     
 FTN5TXT   .F1      ELSE                                                                   FTN5TXT      761     A     
 FTN5TXT  *                            FORM 2 - FABRICATE -EQ- JUMP TO *TO*.               FTN5TXT      762     A     
 FTN5TXT            SX.SN  TO                                                              FTN5TXT      763     A     
 FTN5TXT            LX.SN  2+30D                                                           FTN5TXT      764     A     
 FTN5TXT  *                            2000BS48+*JPADR*S32                                 FTN5TXT      765     A     
 FTN5TXT            PX.SN  X.SN,B0                                                         FTN5TXT      766     A     
 FTN5TXT  *                            0400BS48+*JPADR*S30                                 FTN5TXT      767     A     
 FTN5TXT            LX.SN  -2                                                              FTN5TXT      768     A     
 FTN5TXT   .F1      ENDIF                                                                  FTN5TXT      769     A     
 FTN5TXT  *                            STORE THE PLUG.                                     FTN5TXT      770     A     
 FTN5TXT            SA.SN  AT                                                              FTN5TXT      771     A     
 FTN5TXT  *                            GENERATE STACK-VOIDING CODE.                        FTN5TXT      772     A     
 FTN5TXT            IFC    NE, VOID NO ,3                                                  FTN5TXT      773     A     
 FTN5TXT            RJ     *+1                                                             FTN5TXT      774     A     
 FTN5TXT            EQ     *+1S17                                                          FTN5TXT      775     A     
 FTN5TXT            BSS    0                                                               FTN5TXT      776     A     
 FTN5TXT   PLUG     ENDM                                                                   FTN5TXT      777     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   SCAN     SPACE  4,10                                                            FTN5TXT      778     A     
 FTN5TXT  **        SCAN - MACRO TO CALL SCAN ROUTINES                                     FTN5TXT      779     A     
 FTN5TXT  *                                                                                FTN5TXT      780     A     
 FTN5TXT  *         SCAN   TABLE,TYPE                                                      FTN5TXT      781     A     
 FTN5TXT  *                                                                                FTN5TXT      782     A     
 FTN5TXT  *         ENTRY  TABLE = ORIGIN WORD OF TABLE TO BE SCANNED.                     FTN5TXT      783     A     
 FTN5TXT  *                TYPE = TYPE OF SCAN TO PERFORM (NAME OF ROUTINE).               FTN5TXT      784     A     
 FTN5TXT  *                                                                                FTN5TXT      785     A     
 FTN5TXT  *         FOR EXAMPLE,       SCAN   TS.NAM,BTR                                   FTN5TXT      786     A     
 FTN5TXT  *         GENERATES --       SA1    TS.NAM                                       FTN5TXT      787     A     
 FTN5TXT  *                            RJ     =XBTR                                        FTN5TXT      788     A     
 FTN5TXT                                                                                   FTN5TXT      789     A     
 FTN5TXT                                                                                   FTN5TXT      790     A     
 FTN5TXT   SCAN     MACRO  TABLE,TYPE                                                      FTN5TXT      791     A     
 FTN5TXT            =A1    TABLE                                                           FTN5TXT      792     A     
 FTN5TXT            RJ     =X_TYPE                                                         FTN5TXT      793     A     
 FTN5TXT   SCAN     ENDM                                                                   FTN5TXT      794     A     
 FTN5TXT   SECT     SPACE  4,10                                                            FTN5TXT      795     A     
 FTN5TXT  **        SECT - MACRO TO FORM COMMON GROUP 1 INSTRUCTIONS.                      FTN5TXT      796     A     
 FTN5TXT  *                                                                                FTN5TXT      797     A     
 FTN5TXT  *                SEE MACRO FOR GROUP 1 INSTRUCTIONS GENERATED.                   FTN5TXT      798     A     
 FTN5TXT  *                                                                                FTN5TXT      799     A     
 FTN5TXT  * NAM     SECT   (HEAD),RNAM,NOB1                                                FTN5TXT      800     A     
 FTN5TXT  *                                                                                FTN5TXT      801     A     
 FTN5TXT  *         *NAM*  NAME OF THIS DECK                                               FTN5TXT      802     A     
 FTN5TXT  *         *HEAD* TITLE FOR THIS DECK AND FOR LOADER COMMENT                      FTN5TXT      803     A     
 FTN5TXT  *         *RNAM* RPVDEF NAME IF DIFFERENT FROM DECK NAME                         FTN5TXT      804     A     
 FTN5TXT  *         *NOB1* IF NOT NULL, B1=1 WILL NOT BE DEFINED                           FTN5TXT      805     A     
 FTN5TXT                                                                                   FTN5TXT      806     A     
 FTN5TXT                                                                                   FTN5TXT      807     A     
 FTN5TXT   RPVDEF.  OPSYN  RPVDEF                                                          FTN5TXT      808     A     
 FTN5TXT            PURGMAC SECT                                                           FTN5TXT      809     A     
 FTN5TXT                                                                                   FTN5TXT      810     A     
 FTN5TXT            MACRO  SECT,NAM,HEAD,RNAM,NOB1                                         FTN5TXT      811     A     
 FTN5TXT            IFC    NE,/NOB1//,2                                                    FTN5TXT      812     A     
 FTN5TXT            SYSCOM                                                                 FTN5TXT      813     A     
 FTN5TXT            SKIP   1                                                               FTN5TXT      814     A     
 FTN5TXT            SYSCOM B1                                                              FTN5TXT      815     A     
 FTN5TXT            LIST   F,X                                                             FTN5TXT      816     A     
 FTN5TXT   NAM      TITLE  NAM - HEAD                                                      FTN5TXT      817     A     
 FTN5TXT            COMMENT  HEAD                                                          FTN5TXT      818     A     
 FTN5TXT   NAM      RPVDEF. RNAM                                                           FTN5TXT      819     A     
 FTN5TXT            NOREF  A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z             FTN5TXT      820     A     
 FTN5TXT            NOREF  ON,OFF                                                          FTN5TXT      821     A     
 FTN5TXT   SECT     ENDM                                                                   FTN5TXT      822     A     
 FTN5TXT   SHRINK   SPACE  4,10                                                            FTN5TXT      823     A     
 FTN5TXT  **        SHRINK - COLLAPSE TABLE TO GIVEN LENGTH.                               FTN5TXT      824     A     
 FTN5TXT  *                                                                                FTN5TXT      825     A     
 FTN5TXT  *         SHRINK TNAM,SIZE                                                       FTN5TXT      826     A     
 FTN5TXT  *                                                                                FTN5TXT      827     A     
 FTN5TXT  *         TNAM   _ LENGTH WORD FOR TABLE TO BE COLLAPSED.                        FTN5TXT      828     A     
 FTN5TXT  *         SIZE   = NEW SIZE.  (DISASTER IF SIZE .GT. CURRENT LENGTH.)            FTN5TXT      829     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 332    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FTN5TXT      830     A     
 FTN5TXT                                                                                   FTN5TXT      831     A     
 FTN5TXT   SHRINK   MACRO  TNAM,SIZE                                                       FTN5TXT      832     A     
 FTN5TXT            =X6    SIZE                                                            FTN5TXT      833     A     
 FTN5TXT  *                                                                                FTN5TXT      834     A     
 FTN5TXT   A MICRO 1,, =X                                                                  FTN5TXT      835     A     
 FTN5TXT    IF -REG,TNAM,2                                                                 FTN5TXT      836     A     
 FTN5TXT   B MICRO 1,2, TNAM                                                               FTN5TXT      837     A     
 FTN5TXT    IFC EQ, "B" =X ,1                                                              FTN5TXT      838     A     
 FTN5TXT   A MICRO                                                                         FTN5TXT      839     A     
 FTN5TXT  *                                                                                FTN5TXT      840     A     
 FTN5TXT            =A6 "A"TNAM                                                            FTN5TXT      841     A     
 FTN5TXT   SHRINK   ENDM                                                                   FTN5TXT      842     A     
 FTN5TXT   SUBKEY   SPACE  4,10                                                            FTN5TXT      843     A     
 FTN5TXT  **        SUBKEY - DEFINE SUB-KEYWORD.                                           FTN5TXT      844     A     
 FTN5TXT  *                                                                                FTN5TXT      845     A     
 FTN5TXT  *                                                                                FTN5TXT      846     A     
 FTN5TXT  *         THIS MACRO IS USED TO DEFINE ENTRIES IN THE VARIOUS                    FTN5TXT      847     A     
 FTN5TXT  *         SUB-KEYWORD TABLES.                                                    FTN5TXT      848     A     
 FTN5TXT  *                                                                                FTN5TXT      849     A     
 FTN5TXT  *         EXAMPLES --                                                            FTN5TXT      850     A     
 FTN5TXT  *                                                                                FTN5TXT      851     A     
 FTN5TXT  *         SUBKEY REAL,TYP=REAL                                                   FTN5TXT      852     A     
 FTN5TXT  *         SUBKEY INTEGER,TYP=INT                                                 FTN5TXT      853     A     
 FTN5TXT  *                                                                                FTN5TXT      854     A     
 FTN5TXT  *         FORM --                                                                FTN5TXT      855     A     
 FTN5TXT  *                                                                                FTN5TXT      856     A     
 FTN5TXT  *         SUBKEY KEY,INFO                                                        FTN5TXT      857     A     
 FTN5TXT  *                                                                                FTN5TXT      858     A     
 FTN5TXT  *         ENTRY  KEY  = KEYWORD.                                                 FTN5TXT      859     A     
 FTN5TXT  *                INFO = INFORMATION.  THE *INFO* FIELD CONTAINS                  FTN5TXT      860     A     
 FTN5TXT  *                       INFORMATION THAT CAN BE USED SOME WAY                    FTN5TXT      861     A     
 FTN5TXT  *                       TO UNIQUELY DISTINGUISH THIS SUB-KEYWORD,                FTN5TXT      862     A     
 FTN5TXT  *                       E.G. A SUB-KEYWORD TYPE CODE, OR A PROCESSOR             FTN5TXT      863     A     
 FTN5TXT  *                       ADDRESS.  THAT IS TO SAY, THE MEANING OF THE             FTN5TXT      864     A     
 FTN5TXT  *                       *INFO* FIELD IS DETERMINED ARBITRARILY BY                FTN5TXT      865     A     
 FTN5TXT  *                       ITS USER.                                                FTN5TXT      866     A     
 FTN5TXT  *                                                                                FTN5TXT      867     A     
 FTN5TXT  *         EXIT   NONE                                                            FTN5TXT      868     A     
 FTN5TXT  *                                                                                FTN5TXT      869     A     
 FTN5TXT  *         USES   NONE                                                            FTN5TXT      870     A     
 FTN5TXT  *                                                                                FTN5TXT      871     A     
 FTN5TXT  *         CALLS  LITKEY                                                          FTN5TXT      872     A     
 FTN5TXT                                                                                   FTN5TXT      873     A     
 FTN5TXT                                                                                   FTN5TXT      874     A     
 FTN5TXT            PURGMAC SUBKEY                                                         FTN5TXT      875     A     
 FTN5TXT                                                                                   FTN5TXT      876     A     
 FTN5TXT   SUBKEY   MACRO  KEY,INFO                                                        FTN5TXT      877     A     
 FTN5TXT            LOCAL  '?KW#001                                                        FTN5TXT      878     A     
 FTN5TXT  *                                                                                FTN5TXT      879     A     
 FTN5TXT   '?KWCKEY MICRO 1,, KEY                                                          FTN5TXT      880     A     
 FTN5TXT   '?KWSKEY MICCNT '?KWCKEY                                                        FTN5TXT      881     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                                                                                FTN5TXT      882     A     
 FTN5TXT   '?KWS001 SET 60-KW.INFOP-KW.INFOL                                               FTN5TXT      883     A     
 FTN5TXT   '?KWS002 SET KW.INFOP-KW.LENP-KW.LENL                                           FTN5TXT      884     A     
 FTN5TXT  *                                                                                FTN5TXT      885     A     
 FTN5TXT    VFD '?KWS001/0,KW.INFOL/INFO,'?KWS002/0,KW.LENL/'?KWSKEY*CHAR,________         FTN5TXT      886     A     
 FTN5TXT  ,KW.KEYL/'?KW#001                                                                FTN5TXT      887     A     
 FTN5TXT  *                                                                                FTN5TXT      888     A     
 FTN5TXT   '?KW#001 LITKEY                                                                 FTN5TXT      889     A     
 FTN5TXT  *                                                                                FTN5TXT      890     A     
 FTN5TXT   SUBKEY   ENDM                                                                   FTN5TXT      891     A     
 FTN5TXT   SYMASK   SPACE  4,10                                                            FTN5TXT      892     A     
 FTN5TXT  **        SYMASK - MACRO TO GENERATE MASKS OF SYMBOLIC FIELDS.                   FTN5TXT      893     A     
 FTN5TXT  *                                                                                FTN5TXT      894     A     
 FTN5TXT  * LOC     SYMASK (FIELD1,FIELD2,...,FIELDN)                                      FTN5TXT      895     A     
 FTN5TXT  *                                                                                FTN5TXT      896     A     
 FTN5TXT  *         *LOC*  = NAME OF THE LITERAL TO BE GENERATED.                          FTN5TXT      897     A     
 FTN5TXT  *                IF LOCATION FIELD IS BLANK, LITERAL WILL NOT BE CREATED         FTN5TXT      898     A     
 FTN5TXT  *                AND MICRO NAMED "E" CONTAINS THE 20-OCTAL DIGIT VALUE.          FTN5TXT      899     A     
 FTN5TXT  *         FIELD(I) ARE SYMBOLIC NAMES OF FIELDS TO BE SET.                       FTN5TXT      900     A     
 FTN5TXT  *                GENERATES A LITERAL WITH 1-BITS IN SPECIFIED FIELDS,            FTN5TXT      901     A     
 FTN5TXT  *                AND 0-BITS ELSEWHERE.  THE DESIGNATED FIELDS MUST HAVE          FTN5TXT      902     A     
 FTN5TXT  *                FIELD_P DEFINITIONS (SEE *DEFINE* MACRO).                       FTN5TXT      903     A     
 FTN5TXT                                                                                   FTN5TXT      904     A     
 FTN5TXT                                                                                   FTN5TXT      905     A     
 FTN5TXT            MACRO  SYMASK,LOC,FLD                                                  FTN5TXT      906     A     
 FTN5TXT   C        MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000         FTN5TXT      907     A     
 FTN5TXT  ,00000_0000000000                                                                FTN5TXT      908     A     
 FTN5TXT  *                                                                                FTN5TXT      909     A     
 FTN5TXT            IRP    FLD                                                             FTN5TXT      910     A     
 FTN5TXT  *                            NUMBER OF BITS IN THIS FIELD                        FTN5TXT      911     A     
 FTN5TXT   A        SET    1                                                               FTN5TXT      912     A     
 FTN5TXT            IF     DEF,FLD_L,1                                                     FTN5TXT      913     A     
 FTN5TXT   A        SET    FLD_L                                                           FTN5TXT      914     A     
 FTN5TXT   A        MICRO  1,A, 1111111111_1111111111_1111111111_1111111111_111111         FTN5TXT      915     A     
 FTN5TXT  ,1111_1111111111                                                                 FTN5TXT      916     A     
 FTN5TXT  *                            EXTRACT TRAILING BITS                               FTN5TXT      917     A     
 FTN5TXT   .1       IFEQ   FLD_P                                                           FTN5TXT      918     A     
 FTN5TXT   B        MICRO                                                                  FTN5TXT      919     A     
 FTN5TXT   .1       ELSE                                                                   FTN5TXT      920     A     
 FTN5TXT   B        MICRO  61-FLD_P,, "C"                                                  FTN5TXT      921     A     
 FTN5TXT   .1       ENDIF                                                                  FTN5TXT      922     A     
 FTN5TXT  *                            EXTRACT LEADING BITS                                FTN5TXT      923     A     
 FTN5TXT   .1       IFEQ   60-FLD_P-A                                                      FTN5TXT      924     A     
 FTN5TXT   D        MICRO                                                                  FTN5TXT      925     A     
 FTN5TXT   .1       ELSE                                                                   FTN5TXT      926     A     
 FTN5TXT   D        MICRO  1,60-FLD_P-A "C"                                                FTN5TXT      927     A     
 FTN5TXT   .1       ENDIF                                                                  FTN5TXT      928     A     
 FTN5TXT  *                            MERGE NEW PIECES                                    FTN5TXT      929     A     
 FTN5TXT   C        MICRO  1,60, "D""A""B"                                                 FTN5TXT      930     A     
 FTN5TXT            IRP                                                                    FTN5TXT      931     A     
 FTN5TXT  *                            CONVERT BINARY TO OCTAL                             FTN5TXT      932     A     
 FTN5TXT   E        MICRO                                                                  FTN5TXT      933     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   E        SET    0                                                               FTN5TXT      934     A     
 FTN5TXT   .1       DUP    60D/3                                                           FTN5TXT      935     A     
 FTN5TXT   E        SET    E+1                                                             FTN5TXT      936     A     
 FTN5TXT   F        MICRO  3*E-2,1, "C"                                                    FTN5TXT      937     A     
 FTN5TXT   G        MICRO  3*E-1,1, "C"                                                    FTN5TXT      938     A     
 FTN5TXT   H        MICRO  3*E-0,1, "C"                                                    FTN5TXT      939     A     
 FTN5TXT   F        OCTMIC "F"*4+"G"*2+"H",1                                               FTN5TXT      940     A     
 FTN5TXT   E        MICRO  1,, "E""F"                                                      FTN5TXT      941     A     
 FTN5TXT   .1       ENDD                                                                   FTN5TXT      942     A     
 FTN5TXT  *                                                                                FTN5TXT      943     A     
 FTN5TXT            IFC    NE,  LOC ,1                                                     FTN5TXT      944     A     
 FTN5TXT   LOC      LIT    "E"B                                                            FTN5TXT      945     A     
 FTN5TXT   SYMASK   ENDM                                                                   FTN5TXT      946     A     
 FTN5TXT   TAGSEX   SPACE  4,10                                                            FTN5TXT      947     A     
 FTN5TXT  **        TAGSEX - TAG INVENTED EXTERNAL.                                        FTN5TXT      948     A     
 FTN5TXT  *                                                                                FTN5TXT      949     A     
 FTN5TXT  *         TAGSEX (=0LNAME"EXT")                                                  FTN5TXT      950     A     
 FTN5TXT  *         TAGSEX ADDR                                                            FTN5TXT      951     A     
 FTN5TXT  *                                                                                FTN5TXT      952     A     
 FTN5TXT  *         ENTRY  ADDR = ADDRESS OF WORD CONTAINING NAME OF EXTERNAL              FTN5TXT      953     A     
 FTN5TXT  *                            WITH THE "EXT" SUFFIX PRESENT.                      FTN5TXT      954     A     
 FTN5TXT  *                            (-L- FORMAT).                                       FTN5TXT      955     A     
 FTN5TXT  *                IF *ADDR* IS *A1*, THEN (X1) MUST CONTAIN THE NAME.             FTN5TXT      956     A     
 FTN5TXT  *                                                                                FTN5TXT      957     A     
 FTN5TXT  *         TO BE USED FOR ENTERING ALL "INVISIBLE" EXTERNALS IN                   FTN5TXT      958     A     
 FTN5TXT  *         THE SYMBOL TABLE.                                                      FTN5TXT      959     A     
 FTN5TXT  *                                                                                FTN5TXT      960     A     
 FTN5TXT  *         CALLS  FEC/TSX.                                                        FTN5TXT      961     A     
 FTN5TXT                                                                                   FTN5TXT      962     A     
 FTN5TXT                                                                                   FTN5TXT      963     A     
 FTN5TXT   TAGSEX   MACRO  ADDR                                                            FTN5TXT      964     A     
 FTN5TXT            =A1    ADDR                                                            FTN5TXT      965     A     
 FTN5TXT            RJ     =XTSX                                                           FTN5TXT      966     A     
 FTN5TXT   TAGSEX   ENDM                                                                   FTN5TXT      967     A     
 FTN5TXT   TRIV     SPACE  4,10                                                            FTN5TXT      968     A     
 FTN5TXT  **        TRIV  - MACRO TO PRINT TRIVIAL ERROR MESSAGES                          FTN5TXT      969     A     
 FTN5TXT  *                                                                                FTN5TXT      970     A     
 FTN5TXT  *         TRIV   E.ERR                                                           FTN5TXT      971     A     
 FTN5TXT  *                                                                                FTN5TXT      972     A     
 FTN5TXT  *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                          FTN5TXT      973     A     
 FTN5TXT  *                                                                                FTN5TXT      974     A     
 FTN5TXT  *         SEE *FATAL* MACRO.                                                     FTN5TXT      975     A     
 FTN5TXT                                                                                   FTN5TXT      976     A     
 FTN5TXT                                                                                   FTN5TXT      977     A     
 FTN5TXT   TRIV     OPSYN  FATAL                                                           FTN5TXT      978     A     
 FTN5TXT   TRUBL    SPACE  4,20                                                            FTN5TXT      979     A     
 FTN5TXT  **        TRUBL - COMPILER MAL-FUNCTION FLAG.                                    FTN5TXT      980     A     
 FTN5TXT  *                                                                                FTN5TXT      981     A     
 FTN5TXT  *         TRUBL                                                                  FTN5TXT      982     A     
 FTN5TXT  *                                                                                FTN5TXT      983     A     
 FTN5TXT  *         GENERATES A JUMP OUT OF BOUNDS.                                        FTN5TXT      984     A     
 FTN5TXT                                                                                   FTN5TXT      985     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FTN5TXT      986     A     
 FTN5TXT   TRUBL    MACRO  NAM                                                             FTN5TXT      987     A     
 FTN5TXT            EQ     "BLOWUP"                                                        FTN5TXT      988     A     
 FTN5TXT   TRUBL    ENDM                                                                   FTN5TXT      989     A     
 FTN5TXT   WARN     SPACE  4,10                                                            FTN5TXT      990     A     
 FTN5TXT  **        WARN  - MACRO TO PRINT WARN ERROR MESSAGES                             FTN5TXT      991     A     
 FTN5TXT  *                                                                                FTN5TXT      992     A     
 FTN5TXT  *         WARN   E.ERR                                                           FTN5TXT      993     A     
 FTN5TXT  *                                                                                FTN5TXT      994     A     
 FTN5TXT  *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                          FTN5TXT      995     A     
 FTN5TXT  *                                                                                FTN5TXT      996     A     
 FTN5TXT  *         SEE *FATAL* MACRO.                                                     FTN5TXT      997     A     
 FTN5TXT                                                                                   FTN5TXT      998     A     
 FTN5TXT                                                                                   FTN5TXT      999     A     
 FTN5TXT   WARN     OPSYN  FATAL                                                           FTN5TXT     1000     A     
 FTN5TXT   WCODE    SPACE  4,10                                                            FTN5TXT     1001     A     
 FTN5TXT  **        WCODE - WRITE CODE TO PREBIN.                                          FTN5TXT     1002     A     
 FTN5TXT  *                                                                                FTN5TXT     1003     A     
 FTN5TXT  *         WCODE  XR                                                              FTN5TXT     1004     A     
 FTN5TXT  *         WCODE  XR,RETURN                                                       FTN5TXT     1005     A     
 FTN5TXT  *                                                                                FTN5TXT     1006     A     
 FTN5TXT  *         ENTRY  *XR* = AN *X* REGISTER IN (PB.) FORMAT.                         FTN5TXT     1007     A     
 FTN5TXT  *                       CAN ALSO BE ANY X-REG BOOLEAN EXPRESSION                 FTN5TXT     1008     A     
 FTN5TXT  *                       PERMITTED BY THE HARDWARE.                               FTN5TXT     1009     A     
 FTN5TXT  *                            (X7) IS NATURAL REGISTER.                           FTN5TXT     1010     A     
 FTN5TXT  *                *RETURN* = OPTIONAL RETURN ADDRESS.                             FTN5TXT     1011     A     
 FTN5TXT  *                *RETURN* OMITTED = CONTINUE IN LINE.                            FTN5TXT     1012     A     
 FTN5TXT  *                            (B2) IS NATURAL REGISTER.                           FTN5TXT     1013     A     
 FTN5TXT  *         CALLS  WIN.                                                            FTN5TXT     1014     A     
 FTN5TXT                                                                                   FTN5TXT     1015     A     
 FTN5TXT                                                                                   FTN5TXT     1016     A     
 FTN5TXT   WCODE    MACRO  XR,RET                                                          FTN5TXT     1017     A     
 FTN5TXT            IFC    NE,/X7/XR/,1                                                    FTN5TXT     1018     A     
 FTN5TXT            BX7    XR                                                              FTN5TXT     1019     A     
 FTN5TXT            =B2    RET  *+2-*P/60D                                                 FTN5TXT     1020     A     
 FTN5TXT            JP     =XWIN                                                           FTN5TXT     1021     A     
 FTN5TXT   WCODE    ENDM                                                                   FTN5TXT     1022     A     
 FTN5TXT   =XLIB    SPACE  4,8                                                             FTN5TXT     1023     A     
 FTN5TXT  **        =XLIB - DEFINE EXTERNAL ROUTINE NAME                                   FTN5TXT     1024     A     
 FTN5TXT  *                                                                                FTN5TXT     1025     A     
 FTN5TXT  *         APPENDS "EXT" TO  EXTERNAL ROUTINES THAT ARE USED BY GENERATED         FTN5TXT     1026     A     
 FTN5TXT  *         OBJECT CODE TO PROCESS FORTRAN STATEMENTS, IN ORDER TO ELIM-           FTN5TXT     1027     A     
 FTN5TXT  *         INATE RESERVED WORDS.                                                  FTN5TXT     1028     A     
 FTN5TXT                                                                                   FTN5TXT     1029     A     
 FTN5TXT                                                                                   FTN5TXT     1030     A     
 FTN5TXT            MACRO  =XLIB,LOC,NAME                                                  FTN5TXT     1031     A     
 FTN5TXT   LOC      DATA   L/NAME"EXT"/                                                    FTN5TXT     1032     A     
 FTN5TXT   =XLIB    ENDM                                                                   FTN5TXT     1033     A     
 FTN5TXT            TITLE  SYMBOL DEFINITIONS.                                             FTN5TXT     1034     A     
 FTN5TXT   PASS=    SPACE  4,10                                                            FTN5TXT     1035     A     
 FTN5TXT  **        PASS= - CONTROL ACTIONS OF TABLE MANAGER.                              FTN5TXT     1036     A     
 FTN5TXT                                                                                   FTN5TXT     1037     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FTN5TXT     1038     A     
 FTN5TXT            LOC    0                                                               FTN5TXT     1039     A     
 FTN5TXT   PASS=FE  BSS    1           FRONT END PROCESSING                                FTN5TXT     1040     A     
 FTN5TXT   PASS=QCG BSS    1           CODE GENERATION WITH QUICK CODE GENERATOR           FTN5TXT     1041     A     
 FTN5TXT   PASS=CCG BSS    1           CODE GENERATION WITH CYBER CODE GENERATOR           FTN5TXT     1042     A     
 FTN5TXT   PASS=END BSS    1           RELOCATE SYMBOL TABLES                              FTN5TXT     1043     A     
 FTN5TXT   PASS=MAP BSS    1           DURING REFERENCE MAP PROCESSING                     FTN5TXT     1044     A     
 FTN5TXT   PASS=FAS BSS    1           ASSEMBLING PREBINARY                                FTN5TXT     1045     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT     1046     A     
 FTN5TXT   IC.      SPACE  4,10                                                            FTN5TXT     1047     A     
 FTN5TXT  **        ICDEF - CREATE AN I/O CONTROL VALUE AND LABEL.                         FTN5TXT     1048     A     
 FTN5TXT  *                                                                                FTN5TXT     1049     A     
 FTN5TXT  *         ICDEF  ICN                                                             FTN5TXT     1050     A     
 FTN5TXT  *                                                                                FTN5TXT     1051     A     
 FTN5TXT  *         ENTRY  ICN = NAME OF I/O CODE TO BE DEFINED.                           FTN5TXT     1052     A     
 FTN5TXT                                                                                   FTN5TXT     1053     A     
 FTN5TXT                                                                                   FTN5TXT     1054     A     
 FTN5TXT            MACRO  ICDEF,NAME,NULL                                                 FTN5TXT     1055     A     
 FTN5TXT            IFC    EQ,  NAME ,2                                                    FTN5TXT     1056     A     
 FTN5TXT            BSS    1                                                               FTN5TXT     1057     A     
 FTN5TXT            SKIP   1                                                               FTN5TXT     1058     A     
 FTN5TXT   IC.NAME  BSS    1                                                               FTN5TXT     1059     A     
 FTN5TXT   ICDEF    ENDM                                                                   FTN5TXT     1060     A     
 FTN5TXT                                                                                   FTN5TXT     1061     A     
 FTN5TXT  *CALL     COMSIOC            DEFINE I/O CONTROL CODES                            FTN5TXT     1062     A     
 FTN5TXT                                                                                   FTN5TXT     1063     A     
 FTN5TXT   IC=LEN   EQU    IC.FMTA+1                                                       FTN5TXT     1064     A     
 FTN5TXT   O.       SPACE  4,30                                                            FTN5TXT     1065     A     
 FTN5TXT  **        ODEF - DEFINE TOKEN VALUES.                                            FTN5TXT     1066     A     
 FTN5TXT  *                                                                                FTN5TXT     1067     A     
 FTN5TXT  *         TOKENS ARE THE PRIMARY FORM OF INPUT TO THE FRONT END OF THE           FTN5TXT     1068     A     
 FTN5TXT  *         COMPILER PROPER.  *LEX* READS SOURCE LINES AND GENERATES               FTN5TXT     1069     A     
 FTN5TXT  *         THE TOKENS COMPRISING A STATEMENT INTO (T.TB), THE TOKEN               FTN5TXT     1070     A     
 FTN5TXT  *         BUFFER.  SEE GID AND LEX IMS FOR DETAIL CONTENTS OF TOKENS.            FTN5TXT     1071     A     
 FTN5TXT  *                                                                                FTN5TXT     1072     A     
 FTN5TXT  *         NOTICE THAT NOT ALL TOKENS CORRESPOND DIRECTLY TO FORTRAN              FTN5TXT     1073     A     
 FTN5TXT  *         SOURCE LANGUAGE CONSTRUCTS.  SOME ARE INVENTED INTERNALLY,             FTN5TXT     1074     A     
 FTN5TXT  *         BUT THEY ARE QUITE REAL TO THE PARSER.                                 FTN5TXT     1075     A     
 FTN5TXT  *                                                                                FTN5TXT     1076     A     
 FTN5TXT  *         SEVERAL PARALLEL TABLES MUST BE KEPT IN SYNCH WITH THESE               FTN5TXT     1077     A     
 FTN5TXT  *         VALUES:        (  LO  ..  HI  )         DECK --                        FTN5TXT     1078     A     
 FTN5TXT  *                CHARMAP (O.DEF .. O.ERR)         FEC                            FTN5TXT     1079     A     
 FTN5TXT  *                F.CONO  (O.DEF .. O.ILL)         PAR                            FTN5TXT     1080     A     
 FTN5TXT  *                F.POPNX (O.DEF .. O.ILL)         PAR                            FTN5TXT     1081     A     
 FTN5TXT  *                F.PRIOR (O.SEP .. O.ILL)         PAR                            FTN5TXT     1082     A     
 FTN5TXT                                                                                   FTN5TXT     1083     A     
 FTN5TXT   MAX.ORD  EQU    42D         BITS AVAILABLE IN (F.CONO)                          FTN5TXT     1084     A     
 FTN5TXT                                                                                   FTN5TXT     1085     A     
 FTN5TXT                                                                                   FTN5TXT     1086     A     
 FTN5TXT            MACRO  ODEF,NAME,EQUATE                                                FTN5TXT     1087     A     
 FTN5TXT            IFC    NE,  EQUATE ,2                                                  FTN5TXT     1088     A     
 FTN5TXT   O.NAME   EQU    O.EQUATE                                                        FTN5TXT     1089     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            SKIP   1                                                               FTN5TXT     1090     A     
 FTN5TXT   O.NAME   BSS    1                                                               FTN5TXT     1091     A     
 FTN5TXT   ODEF     ENDM                                                                   FTN5TXT     1092     A     
 FTN5TXT                                                                                   FTN5TXT     1093     A     
 FTN5TXT            LOC    0           INITIALIZE DEFINITION ORDINAL COUNTER               FTN5TXT     1094     A     
 FTN5TXT                                                                                   FTN5TXT     1095     A     
 FTN5TXT   DEF      ODEF               ---- BEGINNING OF TOKENS                            FTN5TXT     1096     A     
 FTN5TXT   EOS      ODEF   DEF                                                             FTN5TXT     1097     A     
 FTN5TXT   BOS      ODEF   DEF                                                             FTN5TXT     1098     A     
 FTN5TXT  *                            FOLLOWING ARE OPERANDS                              FTN5TXT     1099     A     
 FTN5TXT   HOLL     ODEF               "           HOLLERITH CONSTANT                      FTN5TXT     1100          I
          -FC5A258
 FTN5TXT   HOLL     ODEF               NH...       HOLLERITH CONSTANT                      FC5A258        6     A     
 FTN5TXT   QHOLL    ODEF               "           QUOTE HOLLERITH CONSTANT                FC5A258        7     A     
 FTN5TXT   RLCON    ODEF               R"          RIGHT ZERO FILLED HOLLERITH             FC5A258        8     A     
 FTN5TXT                               L"          LEFT ZERO FILLED HOLLERITH              FC5A258        9     A     
 FTN5TXT   CHAR     ODEF               '           CHARACTER CONSTANT                      FTN5TXT     1101     A     
 FTN5TXT   CONS     ODEF               0 .. 9      DECIMAL DIGITS                          FTN5TXT     1102     A     
 FTN5TXT   OCT      ODEF               O"          OCTAL DIGITS                            FTN5TXT     1103     A     
 FTN5TXT   HEX      ODEF               X"          HEXADECIMAL DIGITS                      FTN5TXT     1104     A     
 FTN5TXT   PERIOD   ODEF               .                                                   FTN5TXT     1105     A     
 FTN5TXT   VAR      ODEF               A .. Z      ALPHABETIC                              FTN5TXT     1106     A     
 FTN5TXT   TRUE     ODEF               .TRUE.      LOGICAL CONSTANTS                       FTN5TXT     1107     A     
 FTN5TXT   FALSE    ODEF               .FALSE.                                             FTN5TXT     1108     A     
 FTN5TXT                                                                                   FTN5TXT     1109     A     
 FTN5TXT   SEP      ODEF               ---- BEGINNING OF SEPARATORS                        FTN5TXT     1110     A     
 FTN5TXT  *                            FOLLOWING ARE OPERATORS TO CONRED                   FTN5TXT     1111     A     
 FTN5TXT   PL       ODEF   SEP                                                             FTN5TXT     1112     A     
 FTN5TXT   MIN      ODEF                                                                   FTN5TXT     1113     A     
 FTN5TXT   STAR     ODEF                                                                   FTN5TXT     1114     A     
 FTN5TXT   MULT     ODEF   STAR                                                            FTN5TXT     1115     A     
 FTN5TXT   SLASH    ODEF                                                                   FTN5TXT     1116     A     
 FTN5TXT   DIV      ODEF   SLASH                                                           FTN5TXT     1117     A     
 FTN5TXT   UMIN     ODEF               UNARY -                                             FTN5TXT     1118     A     
 FTN5TXT   EXP      ODEF               **                                                  FTN5TXT     1119     A     
 FTN5TXT   LT       ODEF                                                                   FTN5TXT     1120     A     
 FTN5TXT   GE       ODEF                                                                   FTN5TXT     1121     A     
 FTN5TXT   EQ       ODEF                                                                   FTN5TXT     1122     A     
 FTN5TXT   NE       ODEF                                                                   FTN5TXT     1123     A     
 FTN5TXT   LE       ODEF                                                                   FTN5TXT     1124     A     
 FTN5TXT   GT       ODEF                                                                   FTN5TXT     1125     A     
 FTN5TXT   NOT      ODEF                                                                   FTN5TXT     1126     A     
 FTN5TXT   AND      ODEF                                                                   FTN5TXT     1127     A     
 FTN5TXT   XOR      ODEF               .NEQV. SAME AS .XOR.                                FTN5TXT     1128          I
          -FC51485
 FTN5TXT   XOR      ODEF                                                                   FC51485       16     A     
 FTN5TXT   NEQV     ODEF                                                                   FC51485       17     A     
 FTN5TXT   EQV      ODEF                                                                   FTN5TXT     1129     A     
 FTN5TXT   OR       ODEF                                                                   FTN5TXT     1130     A     
 FTN5TXT   CAT      ODEF               //                                                  FTN5TXT     1131     A     
 FTN5TXT                                                                                   FTN5TXT     1132     A     
 FTN5TXT  *                            FOLLOWING DELIMIT EXPRESSIONS                       FTN5TXT     1133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   LP       ODEF                                                                   FTN5TXT     1134     A     
 FTN5TXT   (        ODEF   LP                                                              FTN5TXT     1135     A     
 FTN5TXT   RP       ODEF                                                                   FTN5TXT     1136     A     
 FTN5TXT   )        ODEF   RP                                                              FTN5TXT     1137     A     
 FTN5TXT   =        ODEF                                                                   FTN5TXT     1138     A     
 FTN5TXT   COMMA    ODEF                                                                   FTN5TXT     1139     A     
 FTN5TXT   SDEF     ODEF   COMMA                                                           FTN5TXT     1140     A     
 FTN5TXT   COLON    ODEF               :                                                   FTN5TXT     1141     A     
 FTN5TXT   SLP      ODEF               SPECIAL LEFT PAREN                                  FTN5TXT     1142     A     
 FTN5TXT   FLP      ODEF   SLP                                                             FTN5TXT     1143     A     
 FTN5TXT   ILP      ODEF   SLP                                                             FTN5TXT     1144     A     
 FTN5TXT   S(       ODEF   SLP                                                             FTN5TXT     1145          I
          -FC5A258
 FTN5TXT   STFA     ODEF               FORMAL PARAMETER TO USER STATEMENT FUNCTION         FTN5TXT     1146     A     
 FTN5TXT   ILL      ODEF               ---- END OF SEPARATORS                              FTN5TXT     1147     A     
 FTN5TXT                                                                                   FTN5TXT     1148     A     
 FTN5TXT  *         FOLLOWING TOKENS ARE NEVER PARSER INPUT, BUT CAN VALIDLY               FTN5TXT     1149     A     
 FTN5TXT  *         APPEAR FOLLOWING A LEGAL INPUT TOKEN.                                  FTN5TXT     1150     A     
 FTN5TXT                                                                                   FTN5TXT     1151     A     
 FTN5TXT   DOBI     ODEF               I/O DO BEGIN                                        FTN5TXT     1152     A     
 FTN5TXT   ENDNX    ODEF   DOBI        ---- END OF VALID FOLLOWERS                         FTN5TXT     1153     A     
 FTN5TXT                                                                                   FTN5TXT     1154     A     
 FTN5TXT  *         FOLLOWING TOKENS ARE NEVER SEEN AS PARSER INPUT, NOR ON                FTN5TXT     1155     A     
 FTN5TXT  *         THE PARSING STACKS.                                                    FTN5TXT     1156     A     
 FTN5TXT                                                                                   FTN5TXT     1157     A     
 FTN5TXT   DOCI     ODEF               I/O DO CONCLUSION                                   FTN5TXT     1158     A     
 FTN5TXT   DCBI     ODEF               I/O DO COLLAPSE BEGIN                               FTN5TXT     1159     A     
 FTN5TXT   DCCI     ODEF               I/O DO COLLAPSE CONCLUSION                          FTN5TXT     1160     A     
 FTN5TXT   SPACE    ODEF                                                                   FTN5TXT     1161     A     
 FTN5TXT   NONE     ODEF               (QCG) = NEITHER     OPERAND USE-COUNTED             FTN5TXT     1162     A     
 FTN5TXT   1ST      ODEF               (QCG) = ONLY FIRST  OPERAND USE-COUNTED             FTN5TXT     1163     A     
 FTN5TXT   2ND      ODEF               (QCG) = ONLY SECOND OPERAND USE-COUNTED             FTN5TXT     1164     A     
 FTN5TXT   BOTH     ODEF               (QCG) = BOTH       OPERANDS USE-COUNTED             FTN5TXT     1165     A     
 FTN5TXT   ARY      ODEF               SUBSCRIPTED ARRAY LOAD (PAR TO QCG)                 FTN5TXT     1166     A     
 FTN5TXT   MODC     ODEF               MODE CONVERSION (INFERNAL TO PARSER)                FTN5TXT     1167     A     
 FTN5TXT   MXP      ODEF               BOUNDARY MARKER (INTERNAL TO PARSER)                FTN5TXT     1168     A     
 FTN5TXT   SQOT     ODEF               SINGLE QUOTE    (INTERNAL TO LEX)                   FTN5TXT     1169     A     
 FTN5TXT   DQOT     ODEF               DOUBLE QUOTE    (INTERNAL TO LEX)                   FTN5TXT     1170     A     
 FTN5TXT   ERR      ODEF               SOURCE PROGRAM FATAL ERROR                          FTN5TXT     1171     A     
 FTN5TXT                               ---- O.ERR MUST BE LAST TOKEN VALUE                 FTN5TXT     1172     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT     1173     A     
 FTN5TXT   .1       SET    O.ERR-O.DEF       TOTAL NUMBER OF TOKENS                        FTN5TXT     1174     A     
 FTN5TXT            ERRMI  60-.1       TOO MANY TOTAL TOKEN TYPES                          FTN5TXT     1175     A     
 FTN5TXT   .1       SET    O.ENDNX-O.DEF     NUMBER OF PARSABLE TOKENS                     FTN5TXT     1176     A     
 FTN5TXT            ERRMI  MAX.ORD-.1  TOO MANY TOKEN TYPES                                FTN5TXT     1177     A     
 FTN5TXT   CH.      SPACE  4,10                                                            FTN5TXT     1178     A     
 FTN5TXT  **        CHARMAP DESCRIPTORS                                                    FTN5TXT     1179     A     
 FTN5TXT  *                                                                                FTN5TXT     1180     A     
 FTN5TXT                                                                                   FTN5TXT     1181     A     
 FTN5TXT            DESCRIBE CH.                                                           FTN5TXT     1182     A     
 FTN5TXT   DPC      DEFINE 7*CHAR      ALPHA DESCRIPTION OF CHARACTER                      FTN5TXT     1183     A     
 FTN5TXT   OPC      DEFINE 18          TOKEN TYPE                                          FTN5TXT     1184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   MICROS   SPACE  4,20                                                            FTN5TXT     1185     A     
 FTN5TXT  **        ALL GLOBAL MICROS.                                                     FTN5TXT     1186     A     
 FTN5TXT                                                                                   FTN5TXT     1187     A     
 FTN5TXT                                                                                   FTN5TXT     1188     A     
 FTN5TXT   CCROPS   BITMIC (O.PL,O.MIN,O.STAR,O.SLASH,O.UMIN)                              FTN5TXT     1189     A     
 FTN5TXT   C$*      LETMIC C$*         BIT MASK FOR CONTINUATION CARDS.                    FTN5TXT     1190     A     
 FTN5TXT   NUM09    LETMIC 0123456789  BIT MASK FOR NUMBERS *0 - 9*                        FTN5TXT     1191     A     
 FTN5TXT                                                                                   FTN5TXT     1192     A     
 FTN5TXT   INT      LETMIC IJKLMN                                                          FTN5TXT     1193     A     
 FTN5TXT   REAL     LETMIC ABCDEFGHOPQRSTUVWXYZ                                            FTN5TXT     1194     A     
 FTN5TXT                                                                                   FTN5TXT     1195     A     
 FTN5TXT   IOSEP    BITMIC (O.EOS,O.COMMA)                                                 FTN5TXT     1196     A     
 FTN5TXT   SPOP     BITMIC (O.SLP,O.LP)                                                    FTN5TXT     1197     A     
 FTN5TXT                                                                                   FTN5TXT     1198     A     
 FTN5TXT   O.BOS    MICRO  1,, B0                                                          FTN5TXT     1199     A     
 FTN5TXT            IFEQ   O.HOLL,1,1                                                      FTN5TXT     1200     A     
 FTN5TXT   O.HOLL   MICRO  1,, B1                                                          FTN5TXT     1201     A     
 FTN5TXT                                                                                   FTN5TXT     1202     A     
 FTN5TXT   M.CON    BITMIC (O.LP,O.MIN,O.PL,O.CONS,O.HOLL,O.PERIOD,O.TRUE,O.FALSE)         FTN5TXT     1203          I
          -FC5A258
 FTN5TXT   M.SEP    BITMIC (O.COMMA,O.SLASH,O.RP)                                          FTN5TXT     1204     A     
 FTN5TXT   M.SEP1   BITMIC (O.COMMA,O.SLASH,O.LP)                                          FTN5TXT     1205     A     
 FTN5TXT                                                                                   FTN5TXT     1206     A     
 FTN5TXT   LEGT     BITMIC (O.LE,O.GT)                                                     FTN5TXT     1207     A     
 FTN5TXT   PREUNAR  BITMIC (O.=,O.COMMA,O.LP,O.LT,O.LE,O.NE,O.EQ,O.GE,O.GT,O.AND,O         FTN5TXT     1208          I
          -FC5A230
 FTN5TXT  ,.NOT,O.OR,O.XOR,O.SLP)                                                          FTN5TXT     1209          I
          -FC5A172
 FTN5TXT  ,.NOT,O.OR,O.XOR,O.SLP,O.EOS)                                                    FC5A172        6          I
          -FC5A230
 FTN5TXT   DUC=     SPACE  4,10                                                            FTN5TXT     1210     A     
 FTN5TXT  **        SOME SYMBOLS FOR EMIT MACRO.                                           FTN5TXT     1211     A     
 FTN5TXT                                                                                   FTN5TXT     1212     A     
 FTN5TXT                                                                                   FTN5TXT     1213     A     
 FTN5TXT   DUC=     =      0           DUC.NONE                                            FTN5TXT     1214     A     
 FTN5TXT   DUC=NONE =      0           DUC.NONE                                            FTN5TXT     1215     A     
 FTN5TXT   DUC=1ST  =      1           DUC.1ST                                             FTN5TXT     1216     A     
 FTN5TXT   DUC=2ND  =      2           DUC.2ND                                             FTN5TXT     1217     A     
 FTN5TXT   DUC=BOTH =      3           DUC.BOTH                                            FTN5TXT     1218     A     
 FTN5TXT   PSUD     TITLE  PSEUDO-INSTRUCTION DEFINITIONS.                                 FTN5TXT     1219     A     
 FTN5TXT   PSUD     SPACE  4,10                                                            FTN5TXT     1220     A     
 FTN5TXT  **        PSUD - CREATE A PSEUDO INSTRUCTION LABEL AND VALUE.                    FTN5TXT     1221     A     
 FTN5TXT  *                                                                                FTN5TXT     1222     A     
 FTN5TXT  *         PSUD   PSN                                                             FTN5TXT     1223     A     
 FTN5TXT  *                                                                                FTN5TXT     1224     A     
 FTN5TXT  *         PSN -  NAME OF PSEUDO TO BE DEFINED.                                   FTN5TXT     1225     A     
 FTN5TXT  *                                                                                FTN5TXT     1226     A     
 FTN5TXT  *         SAMPLE CALL --                                                         FTN5TXT     1227     A     
 FTN5TXT  *                                                                                FTN5TXT     1228     A     
 FTN5TXT  *         PSUD   APL         WILL PRODUCE   OC$APL, WHERE  0<OC$APL<77B.         FTN5TXT     1229     A     
 FTN5TXT                                                                                   FTN5TXT     1230     A     
 FTN5TXT                                                                                   FTN5TXT     1231     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            PURGMAC PSUD                                                           FTN5TXT     1232     A     
 FTN5TXT                                                                                   FTN5TXT     1233     A     
 FTN5TXT   PSUD     MACRO  PSN                                                             FTN5TXT     1234     A     
 FTN5TXT   OC$PSN   BSS    1                                                               FTN5TXT     1235     A     
 FTN5TXT   PSUD     ENDM                                                                   FTN5TXT     1236     A     
 FTN5TXT                                                                                   FTN5TXT     1237     A     
 FTN5TXT   IPSUD    SPACE  4,10                                                            FTN5TXT     1238     A     
 FTN5TXT  **        IPSUD -            CREATE A PSEUDO INSTRUCTION LABEL AND VALUE         FTN5TXT     1239     A     
 FTN5TXT  *                                                                                FTN5TXT     1240     A     
 FTN5TXT  *         IPSUD  PSNAME                                                          FTN5TXT     1241     A     
 FTN5TXT  *                                                                                FTN5TXT     1242     A     
 FTN5TXT  *         PSNAME -           NAME OF PSEUDO TO BE DEFINED.                       FTN5TXT     1243     A     
 FTN5TXT  *                                                                                FTN5TXT     1244     A     
 FTN5TXT  *         SAMPLE CALL--                                                          FTN5TXT     1245     A     
 FTN5TXT  *                                                                                FTN5TXT     1246     A     
 FTN5TXT  *         IPSUD  UJP         WILL PRODUCE   I.UJP, WHERE  0<I.UJP<77B.           FTN5TXT     1247     A     
 FTN5TXT                                                                                   FTN5TXT     1248     A     
 FTN5TXT                                                                                   FTN5TXT     1249     A     
 FTN5TXT            PURGMAC IPSUD                                                          FTN5TXT     1250     A     
 FTN5TXT                                                                                   FTN5TXT     1251     A     
 FTN5TXT   IPSUD    MACRO  PSNAME                                                          FTN5TXT     1252     A     
 FTN5TXT   I.PSNAME BSS    1                                                               FTN5TXT     1253     A     
 FTN5TXT   IPSUD    ENDM                                                                   FTN5TXT     1254     A     
 FTN5TXT                                                                                   FTN5TXT     1255     A     
 FTN5TXT  *CALL     COMSPSU            PSEUDO INSTRUCTION DEFINITIONS                      FTN5TXT     1256     A     
 FTN5TXT                                                                                   FTN5TXT     1257     A     
 FTN5TXT  *CALL     COMSPBD            PREBINARY STRUCTURE DECLARATIONS.                   FTN5TXT     1258     A     
 FTN5TXT                                                                                   FTN5TXT     1259     A     
 FTN5TXT  *CALL     COMSSYM            SYMBOL TABLE STRUCTURE DECLARATIONS.                FTN5TXT     1260     A     
 FTN5TXT                                                                                   FTN5TXT     1261     A     
 FTN5TXT            TITLE  TABLE AND STRUCTURE DECLARATIONS.                               FTN5TXT     1262     A     
 FTN5TXT   TG.      SPACE  4,10                                                            FTN5TXT     1263     A     
 FTN5TXT  **        TG. - GENERAL TAG FIELD LAYOUT.                                        FTN5TXT     1264     A     
 FTN5TXT  *                                                                                FTN5TXT     1265     A     
 FTN5TXT  *         ****   THIS FORMAT IS OBSOLETE (AS OF FRAG 4).  SEE (PB.)              FTN5TXT     1266     A     
 FTN5TXT  *                DEFINITION FOR TAG FIELD LAYOUT.                                FTN5TXT     1267     A     
 FTN5TXT  *                THE (TG.) DEFINITIONS MAY BE REMOVED WHEN *QCG*                 FTN5TXT     1268     A     
 FTN5TXT  *                CONVERTS TO THE NEW WORLD.                                      FTN5TXT     1269     A     
 FTN5TXT                                                                                   FTN5TXT     1270     A     
 FTN5TXT                                                                                   FTN5TXT     1271     A     
 FTN5TXT            DESCRIBE  TG.,18                                                       FTN5TXT     1272     A     
 FTN5TXT   PFX      DEFINE 5                                                               FTN5TXT     1273     A     
 FTN5TXT   ORD      DEFINE 13                                                              FTN5TXT     1274     A     
 FTN5TXT   TB.      SPACE  4,10                                                            FTN5TXT     1275     A     
 FTN5TXT  **        T.TB - TOKEN BUFFER.                                                   FTN5TXT     1276     A     
 FTN5TXT                                                                                   FTN5TXT     1277     A     
 FTN5TXT                                                                                   FTN5TXT     1278     A     
 FTN5TXT            DESCRIBE TB.                                                           FTN5TXT     1279     A     
 FTN5TXT   TOC      DEFINE 42          TOKEN CHARACTER STRING                              FTN5TXT     1280     A     
 FTN5TXT   TOT      DEFINE 18          TOKEN TYPE (VALUE)                                  FTN5TXT     1281     A     
 FTN5TXT                                                                                   FTN5TXT     1282     A     
 FTN5TXT  *         FOR HOLLERITH CONSTANTS.                                               FTN5TXT     1283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FTN5TXT     1284     A     
 FTN5TXT            REDEF                                                                  FTN5TXT     1285     A     
 FTN5TXT   SHC      DEFINE 18          HOLLERITH CONSTANT TAG                              FTN5TXT     1286     A     
 FTN5TXT   CLCN     DEFINE 15          LENGTH (IN CHARACTERS)                              FTN5TXT     1287     A     
 FTN5TXT   LCON     DEFINE 9           LENGTH (IN WORDS)                                   FTN5TXT     1288     A     
 FTN5TXT   TOT      DEFINE 18          TOKEN TYPE (VALUE)                                  FTN5TXT     1289     A     
 FTN5TXT                                                                                   FTN5TXT     1290     A     
 FTN5TXT  *         FOR STATEMENT FUNCTION DUMMY ARG. TOKENS (O=STFA).                     FTN5TXT     1291     A     
 FTN5TXT                                                                                   FTN5TXT     1292     A     
 FTN5TXT            REDEF                                                                  FTN5TXT     1293     A     
 FTN5TXT   ORD      DEFINE 12          SYMORD OF FORMAL PARAMETER                          FTN5TXT     1294     A     
 FTN5TXT   DAC      DEFINE 12          DUMMY ARG. REFERENCE CHAIN                          FTN5TXT     1295     A     
 FTN5TXT   ACTE     DEFINE 18          ACTUAL PARAM. ADDRESS IN ESTACK                     FTN5TXT     1296     A     
 FTN5TXT   TOT      DEFINE 18          TOKEN TYPE (= O.STFA)                               FTN5TXT     1297     A     
 FTN5TXT                                                                                   FTN5TXT     1298     A     
 FTN5TXT  *         FOR PARENTHESES.                                                       FTN5TXT     1299     A     
 FTN5TXT  *                'IOIX' ONLY ON I/O LOOP LPAREN.                                 FTN5TXT     1300     A     
 FTN5TXT  *                'IOSP' ONLY ON I/O LOOP RPAREN.                                 FTN5TXT     1301     A     
 FTN5TXT  *                RPAREN HAS ONLY 'IOSP' AND 'TOT'.                               FTN5TXT     1302     A     
 FTN5TXT                                                                                   FTN5TXT     1303     A     
 FTN5TXT            REDEF                                                                  FTN5TXT     1304     A     
 FTN5TXT   COL      DEFINE             THIS PAREN LEVEL INCLUDES A COLON                   FTN5TXT     1305     A     
 FTN5TXT   EQL      DEFINE             THIS PAREN LEVEL INCLUDES AN EQUAL SIGN             FTN5TXT     1306     A     
 FTN5TXT   SBS      DEFINE             THIS IS AN ARRAY SUBSTRING LPAREN                   FTN5TXT     1307     A     
 FTN5TXT            DEFINE 3                                                               FTN5TXT     1308     A     
 FTN5TXT   IOCP     DEFINE 18          POINTER TO MATCHING PAREN                           FTN5TXT     1309     A     
 FTN5TXT   LLP      DEFINE 18          POINTER TO NEXT OUTER LEFT PAREN                    FTN5TXT     1310     A     
 FTN5TXT   IOIX     DEQU   LLP         POINTER TO LOOP INDEX                               FTN5TXT     1311     A     
 FTN5TXT   IOSP     DEQU   LLP         MARKS I/O LOOP RPAREN FOR PAR                       FTN5TXT     1312     A     
 FTN5TXT   TOT      DEFINE 18          TOKEN TYPE (VALUE)                                  FTN5TXT     1313     A     
 FTN5TXT                                                                                   FTN5TXT     1314     A     
 FTN5TXT  *         FOR I/O DO-COLLAPSE BEGIN.                                             FTN5TXT     1315     A     
 FTN5TXT                                                                                   FTN5TXT     1316     A     
 FTN5TXT            REDEF                                                                  FTN5TXT     1317     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1318     A     
 FTN5TXT   IBCP     DEFINE 18          POINTER TO CLOSING RIGHT PAREN                      FTN5TXT     1319     A     
 FTN5TXT   IBCC     DEFINE 18          POINTER TO COLLAPSE CONCLUSION TOKEN                FTN5TXT     1320     A     
 FTN5TXT   TOT      DEFINE 18          TOKEN TYPE (VALUE)                                  FTN5TXT     1321     A     
 FTN5TXT                                                                                   FTN5TXT     1322     A     
 FTN5TXT  *         FOR I/O DO-COLLAPSE CONCLUSION.                                        FTN5TXT     1323     A     
 FTN5TXT                                                                                   FTN5TXT     1324     A     
 FTN5TXT            REDEF                                                                  FTN5TXT     1325     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1326     A     
 FTN5TXT   ICIX     DEFINE 18          INDEX (SYMBOL TABLE ORDINAL)                        FTN5TXT     1327          I
          -FC5A211
 FTN5TXT   ICIX     DEFINE 18          INDEX (INTO TABLE OF CONTROL INDICIES)              FC5A211        9     A     
 FTN5TXT   ICCP     DEFINE 18          POINTER TO CLOSING RIGHT PAREN                      FTN5TXT     1328     A     
 FTN5TXT   TOT      DEFINE 18          TOKEN TYPE (VALUE)                                  FTN5TXT     1329     A     
 FTN5TXT   T.COMM   SPACE  4,20                                                            FTN5TXT     1330     A     
 FTN5TXT  **        T.COMM - COMMON TAG TABLE.                                             FTN5TXT     1331     A     
 FTN5TXT  *                                                                                FTN5TXT     1332     A     
 FTN5TXT  *         CONTAINS TRANSLATED *COMMON* STATEMENTS.  VARIABLE TAGS ARE            FTN5TXT     1333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *         ENTERED INTO (T.COMM) IN THE SAME ORDER AS THEY OCCUR IN THE           FTN5TXT     1334     A     
 FTN5TXT  *         *COMMON* STATEMENT(S).  AT CLOSE OF DECLARATIVES, THIS TABLE           FTN5TXT     1335     A     
 FTN5TXT  *         IS PROCESSED (BY DECL/MCA) TO YIELD ADDRESSES OF VARIABLES IN          FTN5TXT     1336     A     
 FTN5TXT  *         COMMON, AND TO RESOLVE LEVEL INFO FOR BLOCKS.  IT IS THEN              FTN5TXT     1337     A     
 FTN5TXT  *         THROWN AWAY.                                                           FTN5TXT     1338     A     
 FTN5TXT                                                                                   FC5A231       24     A     
 FTN5TXT                                                                                   FC5A231       25     A     
 FTN5TXT  *         +-----------------+------+------------+----------------------+         FC5A231       26     A     
 FTN5TXT  *         +                 +//////+            +                      +         FC5A231       27     A     
 FTN5TXT  *         +   SYMBOL TAG    +//////+   LINK     +          RA          +         FC5A231       28     A     
 FTN5TXT  *         +                 +//////+            +                      +         FC5A231       29     A     
 FTN5TXT  *         +-----------------+------+------------+----------------------+         FC5A231       30     A     
 FTN5TXT  *                  18           6        12                 24                   FC5A231       31     A     
 FTN5TXT                                                                                   FTN5TXT     1339     A     
 FTN5TXT                                                                                   FTN5TXT     1340     A     
 FTN5TXT            DESCRIBE CT.                                                           FTN5TXT     1341     A     
 FTN5TXT   TAG      DEFINE 18          SYMBOL TAG                                          FTN5TXT     1342     A     
 FTN5TXT            DEFINE 6           MUST BE ZERO                                        FTN5TXT     1343     A     
 FTN5TXT   LNK      DEFINE 12          POINTER TO NEXT MEMBER IN THIS BLOCK                FTN5TXT     1344     A     
 FTN5TXT   RA       DEFINE WC.RAL      BLOCK REL ADDR                                      FTN5TXT     1345     A     
 FTN5TXT   T.DIM    EJECT                                                                  FTN5TXT     1346     A     
 FTN5TXT  **        T.DIM - DIMENSION TABLE.                                               FTN5TXT     1347     A     
 FTN5TXT  *                                                                                FTN5TXT     1348     A     
 FTN5TXT  *         FOR EACH UNIQUE DIMENSIONALITY DESCRIPTION, ONE HEADER WORD            FTN5TXT     1349     A     
 FTN5TXT  *         WILL BE PRODUCED.                                                      FTN5TXT     1350     A     
 FTN5TXT  *                                                                                FTN5TXT     1351     A     
 FTN5TXT  *         FOR EACH DIMENSION OF A DESCRIPTOR, A PAIR OF DIMENSION WORDS          FTN5TXT     1352     A     
 FTN5TXT  *         WILL BE PRODUCED.                                                      FTN5TXT     1353     A     
 FTN5TXT  *                                                                                FTN5TXT     1354     A     
 FTN5TXT  *         HEADER WORD                                                            FTN5TXT     1355     A     
 FTN5TXT  *                                                                                FTN5TXT     1356     A     
 FTN5TXT  *         +-+-+-+-+--+----------------------+-------------------+-----+          FTN5TXT     1357     A     
 FTN5TXT  *         +V+A+V+M+//+                      +                   +     +          FTN5TXT     1358     A     
 FTN5TXT  *         +D+S+P+A+//+   PRODUCT OF SPANS   +        RA         + DIM +          FTN5TXT     1359     A     
 FTN5TXT  *         + + + +T+//+                      +                   +     +          FTN5TXT     1360     A     
 FTN5TXT  *         +-+-+-+-+--+----------------------+-------------------+-----+          FTN5TXT     1361     A     
 FTN5TXT  *          1 1 1 1 2             24                  24            6             FTN5TXT     1362     A     
 FTN5TXT  *                                                                                FTN5TXT     1363     A     
 FTN5TXT  *         DIMENSION WORD ONE                                                     FTN5TXT     1364     A     
 FTN5TXT  *                                                                                FTN5TXT     1365     A     
 FTN5TXT  *         +-----------------------------+-+-----+---------------------+          FTN5TXT     1366     A     
 FTN5TXT  *         +/////////////////////////////+T+/////+                     +          FTN5TXT     1367     A     
 FTN5TXT  *         +/////////////////////////////+D+/////+        SPAN         +          FTN5TXT     1368     A     
 FTN5TXT  *         +/////////////////////////////+M+/////+                     +          FTN5TXT     1369     A     
 FTN5TXT  *         +-----------------------------+-+-----+---------------------+          FTN5TXT     1370     A     
 FTN5TXT  *                        30              1   5            24                     FTN5TXT     1371     A     
 FTN5TXT  *                                                                                FTN5TXT     1372     A     
 FTN5TXT  *         DIMENSION WORD TWO                                                     FTN5TXT     1373     A     
 FTN5TXT  *                                                                                FTN5TXT     1374     A     
 FTN5TXT  *         +-+-----+---------------------+-+-----+---------------------+          FTN5TXT     1375     A     
 FTN5TXT  *         +T+/////+                     +T+/////+                     +          FTN5TXT     1376     A     
 FTN5TXT  *         +D+/////+     LOWER BOUND     +D+/////+     UPPER BOUND     +          FTN5TXT     1377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *         +M+/////+                     +M+/////+                     +          FTN5TXT     1378     A     
 FTN5TXT  *         +-+-----+---------------------+-+-----+---------------------+          FTN5TXT     1379     A     
 FTN5TXT  *          1   5             24          1                 24                    FTN5TXT     1380     A     
 FTN5TXT   DIM/DH.  SPACE  4,10                                                            FTN5TXT     1381     A     
 FTN5TXT  **        DIM/DH - HEADER WORD.                                                  FTN5TXT     1382     A     
 FTN5TXT                                                                                   FTN5TXT     1383     A     
 FTN5TXT                                                                                   FTN5TXT     1384     A     
 FTN5TXT            DESCRIBE  DH.                                                          FTN5TXT     1385     A     
 FTN5TXT                                                                                   FTN5TXT     1386     A     
 FTN5TXT   ATTR     DEFINE 6           DIMENSION TABLE ENTRY ATTRIBUTES                    FTN5TXT     1387     A     
 FTN5TXT   PS       DEFINE 24          PRODUCT OF SPANS                                    FTN5TXT     1388     A     
 FTN5TXT   RA       DEFINE 24          RELATIVE ADDRESS OF RUN TIME DIM TABLE              FTN5TXT     1389     A     
 FTN5TXT   DIM      DEFINE 6           NUMBER OF DIMENSIONS                                FTN5TXT     1390     A     
 FTN5TXT                                                                                   FTN5TXT     1391     A     
 FTN5TXT            REDEF  ATTR                                                            FTN5TXT     1392     A     
 FTN5TXT   VD       DEFINE             INDICATES ADJUSTABLE DIMENSION PRESENT              FTN5TXT     1393     A     
 FTN5TXT   AS       DEFINE             INDICATES ASSUMED SIZE ARRAY                        FTN5TXT     1394     A     
 FTN5TXT   VP       DEFINE             INDICATES VARIABLE PRODUCT OF SPANS                 FTN5TXT     1395     A     
 FTN5TXT   MAT      DEFINE             RUN TIME DIMENSION TABLE MUST MATERIALIZE           FTN5TXT     1396     A     
 FTN5TXT   DIM/D1.  SPACE  4,10                                                            FTN5TXT     1397     A     
 FTN5TXT  **        DIM/D1 - DIMENSION WORD ONE.                                           FTN5TXT     1398     A     
 FTN5TXT                                                                                   FTN5TXT     1399     A     
 FTN5TXT                                                                                   FTN5TXT     1400     A     
 FTN5TXT            DESCRIBE  D1.,,,0                                                      FTN5TXT     1401     A     
 FTN5TXT                                                                                   FTN5TXT     1402     A     
 FTN5TXT            DEFINE 30                                                              FTN5TXT     1403     A     
 FTN5TXT   SPAN     DEFINE 30          UB-LB+1      (DI. FORMAT)                           FTN5TXT     1404     A     
 FTN5TXT   DIM/D2.  SPACE  4,10                                                            FTN5TXT     1405     A     
 FTN5TXT  **        DIM/D2 - DIMENSION WORD TWO.                                           FTN5TXT     1406     A     
 FTN5TXT                                                                                   FTN5TXT     1407     A     
 FTN5TXT                                                                                   FTN5TXT     1408     A     
 FTN5TXT            DESCRIBE  D2.,,,1                                                      FTN5TXT     1409     A     
 FTN5TXT                                                                                   FTN5TXT     1410     A     
 FTN5TXT   LB       DEFINE 30          LOWER BOUND  (DI. FORMAT)                           FTN5TXT     1411     A     
 FTN5TXT   UB       DEFINE 30          UPPER BOUND  (DI. FORMAT)                           FTN5TXT     1412     A     
 FTN5TXT   DIM/DI.  SPACE  4,10                                                            FTN5TXT     1413     A     
 FTN5TXT  **        DI. - DIMENSION INFORMATION LAYOUT                                     FTN5TXT     1414     A     
 FTN5TXT                                                                                   FTN5TXT     1415     A     
 FTN5TXT                                                                                   FTN5TXT     1416     A     
 FTN5TXT            DESCRIBE  DI.,30                                                       FTN5TXT     1417          I
          -FC5A231
 FTN5TXT            DESCRIBE  DM.,30                                                       FC5A231       32     A     
 FTN5TXT                                                                                   FTN5TXT     1418     A     
 FTN5TXT   TD       DEFINE             =1 IF THIS DIMENSION VARIABLE                       FTN5TXT     1419     A     
 FTN5TXT                               =0 IF NOT                                           FTN5TXT     1420     A     
 FTN5TXT            DEFINE 5                                                               FTN5TXT     1421     A     
 FTN5TXT   INF      DEFINE 24          DIMENSION INFORMATION                               FTN5TXT     1422     A     
 FTN5TXT                               = CONSTANT IF TD=0                                  FTN5TXT     1423     A     
 FTN5TXT                               = VD. BIAS POINTER IF TD=1                          FTN5TXT     1424     A     
 FTN5TXT                                                                                   FTN5TXT     1425     A     
 FTN5TXT   Z=DD     EQU    2           LENGTH OF DIMENSION DESCRIPTOR                      FTN5TXT     1426     A     
 FTN5TXT   T.BLST   SPACE  4,20                                                            FTN5TXT     1427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  **        T.BLST - BLOCK STRUCTURE TABLE (DO LOOPS AND BLOCK IFS)                FTN5TXT     1428     A     
 FTN5TXT  *                                                                                FTN5TXT     1429     A     
 FTN5TXT  *         T.BLST IS A PARTITIONED TABLE, EACH SEGMENT PERTAINING TO A            FTN5TXT     1430     A     
 FTN5TXT  *         BLOCK STRUCTURE, WITH NESTING DEFINED BY THIS TABLE.  EACH             FTN5TXT     1431     A     
 FTN5TXT  *         SEGMENT CONSISTS OF THREE PARTS:                                       FTN5TXT     1432     A     
 FTN5TXT  *                                                                                FTN5TXT     1433     A     
 FTN5TXT  *         1. BLOCK DEFINITION TABLE (Z=BLST LENGTH)                              FTN5TXT     1434     A     
 FTN5TXT  *         2. LABEL LIST (VARIABLE LENGTH. ONE WORD FOR EACH LABEL                FTN5TXT     1435     A     
 FTN5TXT  *            DEFINED OR REFERENCED WITHIN THE BLOCK)                             FTN5TXT     1436     A     
 FTN5TXT  *         3. COUNT/ORIGIN WORD (ONE WORD)                                        FTN5TXT     1437     A     
 FTN5TXT                                                                                   FTN5TXT     1438     A     
 FTN5TXT                                                                                   FTN5TXT     1439     A     
 FTN5TXT  *         BLOCK DEFINITION TABLE.                                                FTN5TXT     1440     A     
 FTN5TXT                                                                                   FTN5TXT     1441     A     
 FTN5TXT  *         DO LOOP INFORMATION TABLE.                                             FTN5TXT     1442     A     
 FTN5TXT  *         (DOCI) MUST BE A SYMBOL TABLE ORDINAL.                                 FTN5TXT     1443     A     
 FTN5TXT  *         (DORT) IS SYMBOL TABLE ORDINAL OF CGS "DO.NNN".                        FTN5TXT     1444     A     
 FTN5TXT  *         (DOSI,DOLI AND DOII) ARE CGS TRIP COUNT SYMBOLS.                       FTN5TXT     1445     A     
 FTN5TXT                                                                                   FTN5TXT     1446     A     
 FTN5TXT            LOC    0                                                               FTN5TXT     1447     A     
 FTN5TXT   DOSI.W   BSS    1           (TP.)     M1  INITIAL VALUE                         FTN5TXT     1448     A     
 FTN5TXT   DOLI.W   BSS    1           (TP.)     M2  LIMIT VALUE                           FTN5TXT     1449     A     
 FTN5TXT   DOII.W   BSS    1           (TP.)     M3  INCREMENT VALUE, THEN (DI.N)          FTN5TXT     1450     A     
 FTN5TXT   DOCI.W   BSS    1           (TP.)         CONTROL INDEX                         FTN5TXT     1451     A     
 FTN5TXT   DORT.W   BSS    1           (TP.)         INVENTED LABEL OF LOOP-TOP            FTN5TXT     1452     A     
 FTN5TXT   DO.W     BSS    1           (DO.)         DO TERMINATING LABEL                  FTN5TXT     1453     A     
 FTN5TXT   DOTC.W   BSS    1           (TP.)         TRIP COUNT                            FTN5TXT     1454     A     
 FTN5TXT   DP.W     BSS    1           (DP.)         DOXL / DOTI / TURC                    FTN5TXT     1455     A     
 FTN5TXT                                                                                   FTN5TXT     1456     A     
 FTN5TXT   Z=BLST   BSS                LENGTH OF BLOCK STRUCTION BASIC ENTRY               FTN5TXT     1457     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT     1458     A     
 FTN5TXT                                                                                   FTN5TXT     1459     A     
 FTN5TXT                                                                                   FTN5TXT     1460     A     
 FTN5TXT                                                                                   FTN5TXT     1461     A     
 FTN5TXT  *         EQUIVALENCED SYMBOLS FOR BLOCK IF USAGE                                FTN5TXT     1462     A     
 FTN5TXT                                                                                   FTN5TXT     1463     A     
 FTN5TXT   BLIB.W   EQU    DOSI.W      (TP.) INVENTED LABEL OF BLOCK BOTTOM                FTN5TXT     1464     A     
 FTN5TXT                                     (ENDIF)                                       FTN5TXT     1465     A     
 FTN5TXT   BLIA.W   EQU    DOLI.W      (TP.) INVENTED LABEL OF NEXT FALSE BRANCH           FTN5TXT     1466     A     
 FTN5TXT                                     (ELSEIF, ELSE, ENDIF)                         FTN5TXT     1467     A     
 FTN5TXT   BLIC.W   EQU    DO.W        USED TO ZERO THIS LOCATION FOR BLOCK *IFS*          FC51501        7     A     
 FTN5TXT                                                                                   FTN5TXT     1468     A     
 FTN5TXT            DESCRIBE  DO.,,,DO.W                                                   FTN5TXT     1469     A     
 FTN5TXT   FLG      DEFINE 18          DO BEGIN TURPLE RELATIVE ADDRESS                    FTN5TXT     1470     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1471     A     
 FTN5TXT   TAG      DEFINE 18          DO TERMINATING LABEL, IF NOT I/O LOOP               FTN5TXT     1472     A     
 FTN5TXT   IOD      DEFINE 18          .NZ.,                 IF I/O LOOP                   FTN5TXT     1473     A     
 FTN5TXT                                                                                   FTN5TXT     1474     A     
 FTN5TXT                                                                                   FTN5TXT     1475     A     
 FTN5TXT            DESCRIBE  DP.,,,DP.W                                                   FTN5TXT     1476     A     
 FTN5TXT   DOXL     DEFINE 18          GL ORDINAL OF DO-EXIT, IF ZERO TRIP                 FTN5TXT     1477     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   DOTI     DEFINE 18          SYMORD OF TRIP COUNT VARIABLE                       FTN5TXT     1479     A     
 FTN5TXT   TURC     DEFINE 18          CONCLUSION SKELETON                                 FTN5TXT     1480     A     
 FTN5TXT                                                                                   FTN5TXT     1481     A     
 FTN5TXT                                                                                   FTN5TXT     1482     A     
 FTN5TXT  *         COUNT/ORIGIN WORD - LC.                                                FTN5TXT     1483     A     
 FTN5TXT                                                                                   FTN5TXT     1484     A     
 FTN5TXT  *         +------+----------------+-----------------+-----------------+          FTN5TXT     1485          I
          -FC5A127
 FTN5TXT  *         +//////+                +                 +    SEGMENT      +          FTN5TXT     1486          I
          -FC5A127
 FTN5TXT  *         +//////+    DO INDEX    +   ORIGIN LINE   +      WORD       +          FTN5TXT     1487          I
          -FC5A127
 FTN5TXT  *         +//////+                +                 +     COUNT       +          FTN5TXT     1488          I
          -FC5A127
 FTN5TXT  *         +------+----------------+-----------------+-----------------+          FTN5TXT     1489          I
          -FC5A127
 FTN5TXT  *             6         18                 18                18                  FTN5TXT     1490          I
          -FC5A127
 FTN5TXT  *         +-+----+----------------+-----------------+-----------------+          FC5A127        5     A     
 FTN5TXT  *         +G+////+                +                 +    SEGMENT      +          FC5A127        6     A     
 FTN5TXT  *         +L+////+    DO INDEX    +   ORIGIN LINE   +      WORD       +          FC5A127        7     A     
 FTN5TXT  *         +M+////+                +                 +     COUNT       +          FC5A127        8     A     
 FTN5TXT  *         +-+----+----------------+-----------------+-----------------+          FC5A127        9     A     
 FTN5TXT  *          1   5        18                 18                18                  FC5A127       10     A     
 FTN5TXT                                                                                   FTN5TXT     1491     A     
 FTN5TXT                                                                                   FTN5TXT     1492     A     
 FTN5TXT  *         LABEL WORD - LA.                                                       FTN5TXT     1493     A     
 FTN5TXT                                                                                   FTN5TXT     1494     A     
 FTN5TXT  *         +-+-+-+-+---------------------------------+-----------------+          FTN5TXT     1495     A     
 FTN5TXT  *         +D+R+E+E+/////////////////////////////////+                 +          FTN5TXT     1496     A     
 FTN5TXT  *         +E+E+X+N+/////////////////////////////////+  LABEL ORDINAL  +          FTN5TXT     1497     A     
 FTN5TXT  *         +F+F+T+T+/////////////////////////////////+                 +          FTN5TXT     1498     A     
 FTN5TXT  *         +-+-+-+-+---------------------------------+-----------------+          FTN5TXT     1499     A     
 FTN5TXT  *          1 1 1 1              38                           18                  FTN5TXT     1500     A     
 FTN5TXT                                                                                   FTN5TXT     1501     A     
 FTN5TXT                                                                                   FTN5TXT     1502     A     
 FTN5TXT  **        COUNT/ORIGIN WORD -LC                                                  FTN5TXT     1503          I
          -FC50299
 FTN5TXT  **        COUNT/ORIGIN WORD - LC.                                                FC50299        6     A     
 FTN5TXT                                                                                   FTN5TXT     1504     A     
 FTN5TXT            DESCRIBE LC.                                                           FTN5TXT     1505     A     
 FTN5TXT                                                                                   FTN5TXT     1506     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1507          I
          -FC5A127
 FTN5TXT   GLM      DEFINE             GENERATED LABEL MATERIALIZE (BOTTOM)                FC5A127       11     A     
 FTN5TXT            DEFINE 5                                                               FC5A127       12     A     
 FTN5TXT   DO       DEFINE 18          DO LOOP HEADER LABEL INDEX                          FTN5TXT     1508     A     
 FTN5TXT   LINE     DEFINE 18          BLOCK ORIGIN SOURCE LINE                            FTN5TXT     1509     A     
 FTN5TXT   CNT      DEFINE 18          WORDS IN CURRENT SEGMENT                            FTN5TXT     1510     A     
 FTN5TXT                               (Z=BLST + 1 + NO. OF LABELS IN BLOCK)               FTN5TXT     1511     A     
 FTN5TXT                                                                                   FTN5TXT     1512     A     
 FTN5TXT  **        LABEL WORD - LA.                                                       FTN5TXT     1513     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FTN5TXT     1514     A     
 FTN5TXT            DESCRIBE LA.                                                           FTN5TXT     1515     A     
 FTN5TXT                                                                                   FTN5TXT     1516     A     
 FTN5TXT   DEF      DEFINE 1           LABEL DEFINED IN STRUCTURE                          FTN5TXT     1517     A     
 FTN5TXT   REF      DEFINE 1           LABEL REFERENCED IN STRUCTURE                       FTN5TXT     1518     A     
 FTN5TXT   EXT      DEFINE 1           LABEL IS EXIT FOR DO LOOP                           FTN5TXT     1519     A     
 FTN5TXT   ENT      DEFINE 1           LABEL IS ENTRY FOR DO LOOP                          FTN5TXT     1520     A     
 FTN5TXT            DEFINE 38                                                              FTN5TXT     1521          I
          -FC51356
 FTN5TXT   ALRN     DEFINE 1           LABEL REFERENCED BY A *ALTERNATE RETURN*            FC51356        9     A     
 FTN5TXT   GOTO     DEFINE 1           LABEL REFERENCED(NOT AN *ALTERNATE RETURN*)         FC51356       10     A     
 FTN5TXT            DEFINE 36                                                              FC51356       11     A     
 FTN5TXT   ORD      DEFINE 18          LABEL SYMBOL TABLE ORDINAL                          FTN5TXT     1522     A     
 FTN5TXT   T.EC     SPACE  4,10                                                            FTN5TXT     1523     A     
 FTN5TXT  **        T.EC - EQUIVALENCE CLASS TABLE.                                        FTN5TXT     1524          I
          -FC50299
 FTN5TXT  **        T.ECT - EQUIVALENCE CLASS TABLE.                                       FC50299        7     A     
 FTN5TXT  *                                                                                FTN5TXT     1525     A     
 FTN5TXT  *         USED TO ACCUMULATE FINAL EQUIVALENCE CLASS INFORMATION DURING          FTN5TXT     1526     A     
 FTN5TXT  *         EQUIVALENCE PROCESSING AND KEPT UNTIL REFMAP TIME.                     FTN5TXT     1527     A     
 FTN5TXT                                                                                   FTN5TXT     1528     A     
 FTN5TXT                                                                                   FTN5TXT     1529     A     
 FTN5TXT            DESCRIBE EC.,60                                                        FTN5TXT     1530     A     
 FTN5TXT   SYM      DEFINE 12          ORDINAL OF SYMTAB WORD B                            FTN5TXT     1531     A     
 FTN5TXT   BIAS     DEFINE WC.RAL      BIAS OF MEMBER FROM CLASS BASE                      FTN5TXT     1532     A     
 FTN5TXT   SPAN     DEQU   BIAS        SPAN OF EQUIVALENCE CLASS                           FTN5TXT     1533     A     
 FTN5TXT   SIZE     DEFINE 24          LENGTH OF MEMBER                                    FTN5TXT     1534     A     
 FTN5TXT   NM       DEQU   SIZE        NUMBER OF MEMBERS IN THIS CLASS                     FTN5TXT     1535     A     
 FTN5TXT   T.EQUS   SPACE  4,10                                                            FTN5TXT     1536     A     
 FTN5TXT  **        T.EQUS - EQUIVALENCE TAG TABLE.                                        FTN5TXT     1537     A     
 FTN5TXT  *                                                                                FTN5TXT     1538     A     
 FTN5TXT  *         USED TO ACCUMULATE EQUIVALENCE INFORMATION DURING DECLARATIVE          FTN5TXT     1539     A     
 FTN5TXT  *         PROCESSING.  THROWN AWAY AFTER IT IS PROCESSED INTO THE                FTN5TXT     1540     A     
 FTN5TXT  *         THE SYMTAB AT CLOSE OF DECLARATIVE STATEMENT PROCESSING.               FTN5TXT     1541     A     
 FTN5TXT                                                                                   FTN5TXT     1542     A     
 FTN5TXT                                                                                   FTN5TXT     1543     A     
 FTN5TXT            DESCRIBE EQ.,60                                                        FTN5TXT     1544     A     
 FTN5TXT   LINK     DEFINE 12          2000B + ORDINAL OF MEMBER IN SOURCE GROUP           FTN5TXT     1545          I
          -FC50757
 FTN5TXT   LINK     DEFINE 12          INDEX OF MEMBER IN SOURCE GROUP                     FC50757        9     A     
 FTN5TXT   SUBS     DEFINE 48          ITH SUBSCRIPT OF THIS EQUIVALENCED ITEM             FTN5TXT     1546     A     
 FTN5TXT            REDEF  SUBS                                                            FTN5TXT     1547     A     
 FTN5TXT   STF      DEFINE WC.CLENL    SUBSTRING-FIRST (FOR CHARACTER ITEM)                FTN5TXT     1548     A     
 FTN5TXT   SYMI     DEFINE EQ.SUBSL-WC.CLENL WB INDEX OF SYMTAB                            FTN5TXT     1549          I
          -FC50299
 FTN5TXT   ISUB     DEFINE 1           IF ITEM SUBSCRIPTED                                 FC50299        8     A     
 FTN5TXT   SYMI     DEFINE 29          SYMBOL TABLE WB INDEX                               FC50299        9     A     
 FTN5TXT   T.ECT    SPACE  3,10                                                            FTN5TXT     1550     A     
 FTN5TXT  **        T.ECT - TEMPORARY EQUIVALENCE CLASS TABLE                              FTN5TXT     1551     A     
 FTN5TXT  *                 FOR REFMAP GENERATION.                                         FTN5TXT     1552     A     
 FTN5TXT                                                                                   FTN5TXT     1553     A     
 FTN5TXT            DESCRIBE  TE.,60                                                       FTN5TXT     1554     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   EOI      DEFINE 12          INDEX TO T.EOT OA.                                  FTN5TXT     1555     A     
 FTN5TXT            DEFINE 5           0                                                   FTN5TXT     1556     A     
 FTN5TXT   NB       DEFINE 1           NON - BASE BIT, .EQ. 1 IF NOT BASE MEMBER           FTN5TXT     1557     A     
 FTN5TXT   BIAS     DEFINE WC.RAL      BIAS OF MEMBER FROM CLASS BASE                      FTN5TXT     1558     A     
 FTN5TXT   SYMI     DEFINE 18          INDEX OF SYMTAB WA                                  FTN5TXT     1559     A     
 FTN5TXT   T.PAR    EJECT                                                                  FTN5TXT     1560     A     
 FTN5TXT  **        T.PAR - PARSED FILE (IL).                                              FTN5TXT     1561     A     
 FTN5TXT  *                                                                                FTN5TXT     1562     A     
 FTN5TXT  *         (T.PAR) ACCUMULATES THE INTERMEDIATE LANGUAGE TURPLES                  FTN5TXT     1563     A     
 FTN5TXT  *         GENERATED BY THE FRONT END.                                            FTN5TXT     1564     A     
 FTN5TXT                                                                                   FTN5TXT     1565     A     
 FTN5TXT                                                                                   FTN5TXT     1566     A     
 FTN5TXT  **        PARSED FILE ENTRY ORDINAL DEFINITIONS.                                 FTN5TXT     1567     A     
 FTN5TXT  *         ORDINALS ARE GIVEN RELATIVE TO EACH TURPLE.                            FTN5TXT     1568     A     
 FTN5TXT                                                                                   FTN5TXT     1569     A     
 FTN5TXT            LOC    0                                                               FTN5TXT     1570     A     
 FTN5TXT   OR.OPR   BSS    1           (TH.)     OPERATOR                                  FTN5TXT     1571     A     
 FTN5TXT   OR.1OP   BSS    1           (TP.)     (P1) = LEFT (OR ONLY) OPERAND             FTN5TXT     1572     A     
 FTN5TXT   OR.2OP   BSS    1           (TP.)     (P2) = RIGHT OPERAND                      FTN5TXT     1573     A     
 FTN5TXT                                                                                   FTN5TXT     1574     A     
 FTN5TXT   Z=TURP   BSS                LENGTH OF EACH TURPLE                               FTN5TXT     1575     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT     1576     A     
 FTN5TXT   TH.      SPACE  4,20                                                            FTN5TXT     1577     A     
 FTN5TXT  **        TH. - TURPLE HEADER FORMAT.                                            FTN5TXT     1578     A     
 FTN5TXT  *                                                                                FTN5TXT     1579     A     
 FTN5TXT  *         THE HEADER WORD OF EACH TURPLE DESCRIBES THE OPERATOR.                 FTN5TXT     1580     A     
 FTN5TXT                                                                                   FTN5TXT     1581     A     
 FTN5TXT                                                                                   FTN5TXT     1582     A     
 FTN5TXT            DESCRIBE  TH.,,,0                                                      FTN5TXT     1583     A     
 FTN5TXT   SKEL     DEFINE 18  (16)    SKELETON INDEX OR RELATIVE ADDRESS                  FTN5TXT     1584          I
          -FC50104
 FTN5TXT   LINE     DEFINE 14  (16)    LINE NUMBER, IF 1ST TURP OF STATEMENT               FTN5TXT     1585          I
          -FC50104
 FTN5TXT   SKEL     DEFINE 14          SKELETON INDEX OR RELATIVE ADDRESS                  FC50104       14     A     
 FTN5TXT   LINE     DEFINE 18          LINE/SEQUENCE NO. (1ST TURPLE OF STATEMENT)         FC50104       15     A     
 FTN5TXT   1ATR     DEQU   LINE        PARSING ATTRIBUTES (FROM SETOP)                     FTN5TXT     1586          I
          -FC50104
 FTN5TXT   QATR     DEFINE 4           ATTRIBUTES FOR QCG                                  FTN5TXT     1587     A     
 FTN5TXT   CATR     DEFINE 2           ATTRIBUTES FOR BRIDGE                               FTN5TXT     1588     A     
 FTN5TXT   MODE     DEFINE 4           TYPE OF RESULT                                      FTN5TXT     1589     A     
 FTN5TXT   STPR     DEFINE 9           STACK PRIORITY (FROM SETOP)                         FTN5TXT     1590          I
          -FC50104
 FTN5TXT   MODC     DEQU   STPR        MODE COERCION (IN POP)                              FTN5TXT     1591          I
          -FC50104
 FTN5TXT   TBPR     DEFINE 9           TOKEN BUFFER PRIORITY INDEX (O.DEF)                 FTN5TXT     1592          I
          -FC50104
 FTN5TXT            DEFINE 9                                                               FC50104       16     A     
 FTN5TXT   OVAL     DEFINE 9           OPERATOR VALUE INDEX (O.DEF)                        FC50104       17     A     
 FTN5TXT                                                                                   FTN5TXT     1593     A     
 FTN5TXT            REDEF  1ATR                                                            FTN5TXT     1594          I
          -FC50104
 FTN5TXT            REDEF  LINE                                                            FC50104       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   DVAL     DEFINE 24          DATA CONSTANT REDUCTION VALUE (T.DAR)               FTN5TXT     1595     A     
 FTN5TXT   DDEF     DEFINE             DATA DEFINED                                        FC5A111        5     A     
 FTN5TXT                                                                                   FTN5TXT     1596     A     
 FTN5TXT            REDEF  CATR                                                            FTN5TXT     1597     A     
 FTN5TXT   PAP      DEFINE             FIRST TURPLE OF AN ARGUMENT                         FTN5TXT     1598     A     
 FTN5TXT   PFP      DEFINE             FIRST PAP OF AN ARGUMENT LIST                       FTN5TXT     1599     A     
 FTN5TXT                                                                                   FTN5TXT     1600     A     
 FTN5TXT            REDEF  QATR                                                            FTN5TXT     1601     A     
 FTN5TXT   NSTD     DEFINE             (SKEL) IS A ROUTINE, NOT AN EXPANSION               FTN5TXT     1602     A     
 FTN5TXT   PLC      DEFINE             OPERAND IS CONCAT OF PASSED LENGTH ITEM             FTN5TXT     1603     A     
 FTN5TXT   1DUC     DEFINE             (1OP) IS REGISTER ALLOCATED                         FTN5TXT     1604     A     
 FTN5TXT   2DUC     DEFINE             (2OP) IS REGISTER ALLOCATED                         FTN5TXT     1605     A     
 FTN5TXT                                                                                   FTN5TXT     1606          I
          -FC50104
 FTN5TXT            REDEF  1ATR                                                            FTN5TXT     1607          I
          -FC50104
 FTN5TXT   NSQZ     DEFINE             TURPLE IS NOT SQUEEZABLE                            FTN5TXT     1608          I
          -FC50104
 FTN5TXT   UNAR     DEFINE             UNARY OPERATOR                                      FTN5TXT     1609          I
          -FC50104
 FTN5TXT   MDLS     DEFINE             MODELESS OPERATOR                                   FTN5TXT     1610          I
          -FC50104
 FTN5TXT   DIS      DEFINE             ALGEBRAICALLY DISTRIBUTIVE                          FTN5TXT     1611          I
          -FC50104
 FTN5TXT   COM      DEFINE             ALGEBRAICALLY COMMUTATIVE                           FTN5TXT     1612          I
          -FC50104
 FTN5TXT   AS       DEFINE             ALGEBRAICALLY ASSOCIATIVE                           FTN5TXT     1613          I
          -FC50104
 FTN5TXT   MASK     DEFINE             MASKING/LOGICAL OPERATOR                            FTN5TXT     1614          I
          -FC50104
 FTN5TXT   CHAR     DEFINE             CHARACTER OPERANDS ALLOWED                          FTN5TXT     1615          I
          -FC50104
 FTN5TXT   SMD      DEFINE             SPECIFIC MODE DETERMINED                            FTN5TXT     1616          I
          -FC50104
 FTN5TXT   BND      DEFINE             TURPLE OK FOR DIMENSION BOUND EXPRESSION            FTN5TXT     1617          I
          -FC50104
 FTN5TXT   SP.      SPACE  4,20                                                            FC50104       19     A     
 FTN5TXT  **        SP. - STACK (SETOP) TURPLE HEADER FORMAT.                              FC50104       20     A     
 FTN5TXT  *                                                                                FC50104       21     A     
 FTN5TXT  *         SP. IS THE FORMAT OF THE HEADER WORD USED DURING PARSING.              FC50104       22     A     
 FTN5TXT  *         THE SP. FORMAT WORD IS TRANSFORMED TO TH. FORMAT WHEN A TURPLE         FC50104       23     A     
 FTN5TXT  *         IS EMITTED.                                                            FC50104       24     A     
 FTN5TXT                                                                                   FC50104       25     A     
 FTN5TXT                                                                                   FC50104       26     A     
 FTN5TXT            DESCRIBE  SP.,,,0                                                      FC50104       27     A     
 FTN5TXT   SKEL     DEFINE 18          SKELETON INDEX OR RELATIVE ADDRESS                  FC50104       28     A     
 FTN5TXT   1ATR     DEFINE 14          PARSING ATTRIBUTES                                  FC50104       29     A     
 FTN5TXT            DEFINE 6                                                               FC50104       30     A     
 FTN5TXT   MODE     DEFINE 4           TYPE OF RESULT (FROM POPPER)                        FC50104       31     A     
 FTN5TXT   STPR     DEFINE 9           STACK PRIORITY                                      FC50104       32     A     
 FTN5TXT   MODC     DEQU   STPR        MODE COERCION (IN POP)                              FC50104       33     A     
 FTN5TXT   TBPR     DEFINE 9           TOKEN BUFFER PRIORITY INDEX (O.DEF)                 FC50104       34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT                                                                                   FC50104       35     A     
 FTN5TXT            REDEF  1ATR                                                            FC50104       36     A     
 FTN5TXT   NSQZ     DEFINE             TURPLE IS NOT SQUEEZABLE                            FC50104       37     A     
 FTN5TXT   UNAR     DEFINE             UNARY OPERATOR                                      FC50104       38     A     
 FTN5TXT   MDLS     DEFINE             MODELESS OPERATOR                                   FC50104       39     A     
 FTN5TXT   DIS      DEFINE             ALGEBRAICALLY DISTRIBUTIVE                          FC50104       40     A     
 FTN5TXT   COM      DEFINE             ALGEBRAICALLY COMMUTATIVE                           FC50104       41     A     
 FTN5TXT   AS       DEFINE             ALGEBRAICALLY ASSOCIATIVE                           FC50104       42     A     
 FTN5TXT   MASK     DEFINE             MASKING/LOGICAL OPERATOR                            FC50104       43     A     
 FTN5TXT   CHAR     DEFINE             CHARACTER OPERANDS ALLOWED                          FC50104       44     A     
 FTN5TXT   SMD      DEFINE             SPECIFIC MODE DETERMINED                            FC50104       45     A     
 FTN5TXT   BND      DEFINE             TURPLE OK FOR DIMENSION BOUND EXPRESSION            FC50104       46     A     
 FTN5TXT   TP.      SPACE  4,20                                                            FTN5TXT     1618     A     
 FTN5TXT  **        TP. - TURPLE PARAMETER FORMAT.                                         FTN5TXT     1619     A     
 FTN5TXT  *                                                                                FTN5TXT     1620     A     
 FTN5TXT  *         A (TP.) WORD IS THE REPRESENTATION OF AN OPERAND IN THE IL.            FTN5TXT     1621     A     
 FTN5TXT                                                                                   FTN5TXT     1622     A     
 FTN5TXT                                                                                   FTN5TXT     1623     A     
 FTN5TXT            DESCRIBE  TP.                                                          FTN5TXT     1624     A     
 FTN5TXT   ORD      DEFINE 16          ORDINAL OF OPERAND                                  FTN5TXT     1625     A     
 FTN5TXT   TAG      DEQU   ORD                                                             FTN5TXT     1626     A     
 FTN5TXT   BIAS     DEFINE 24          CONSTANT ADDEND (CA)                                FTN5TXT     1627     A     
 FTN5TXT   IOC      DEQU   BIAS        I/O CONTROL CODE                                    FTN5TXT     1628     A     
 FTN5TXT   ORBI     DEQU   BIAS,TP.ORDL+TP.BIASL                                           FTN5TXT     1629     A     
 FTN5TXT            ERRNZ  TP.BIASL+TP.BIASP-TP.ORDP                                       FTN5TXT     1630     A     
 FTN5TXT   ATTR     DEFINE 13          ATTRIBUTES XMITTED TO IL                            FTN5TXT     1631     A     
 FTN5TXT   1ATR     DEFINE 7           ATTRIBUTES DURING PASS 1    (SEE BELOW)             FTN5TXT     1632     A     
 FTN5TXT                                                                                   FTN5TXT     1633     A     
 FTN5TXT                                                                                   FTN5TXT     1634     A     
 FTN5TXT   TP.SHRTB EQU    18          NUMBER OF BITS ALLOWED IN A SHORT CONSTANT          FTN5TXT     1635     A     
 FTN5TXT            ERRMI  TP.BIASL-TP.SHRTB                                               FTN5TXT     1636     A     
 FTN5TXT   TP.ATTR  SPACE  4,10                                                            FTN5TXT     1637     A     
 FTN5TXT  **        TP.ATTR - ATTRIBUTES OF OPERANDS.                                      FTN5TXT     1638     A     
 FTN5TXT  *                                                                                FTN5TXT     1639     A     
 FTN5TXT  *         THESE ATTRIBUTES ARE TRANSMITTED TO THE INTERMEDIATE LANGUAGE          FTN5TXT     1640     A     
 FTN5TXT  *         FILE.  THEY SHOULD ALL BE DEFINED IN THE FTN 5 GID.                    FTN5TXT     1641     A     
 FTN5TXT                                                                                   FTN5TXT     1642     A     
 FTN5TXT            REDEF  ATTR                                                            FTN5TXT     1643     A     
 FTN5TXT                                                                                   FTN5TXT     1644     A     
 FTN5TXT   LCM      DEFINE             ECS/LCM RESIDENT                                    FTN5TXT     1645     A     
 FTN5TXT   FP       DEFINE             FORMAL PARAMETER                                    FTN5TXT     1646     A     
 FTN5TXT   EQV      DEFINE             OPERAND EQUIVALENCED                                FTN5TXT     1647     A     
 FTN5TXT   CPFX     DEFINE 3           TAG PREFIX FIELD                                    FTN5TXT     1648     A     
 FTN5TXT   ARR      DEFINE             ARRAY REFERENCE                                     FTN5TXT     1649     A     
 FTN5TXT   ARY      DEQU   ARR         ARRAY REFERENCE FOR BRIDGE                          FTN5TXT     1650     A     
 FTN5TXT   SHRT     DEFINE             SHORT CONSTANT IN BIAS                              FTN5TXT     1651     A     
 FTN5TXT   ADDR     DEFINE             ADDRESS REFERENCE (E.G. LOCF)                       FTN5TXT     1652     A     
 FTN5TXT   INTR     DEFINE             INTERMEDIATE OPERAND                                FTN5TXT     1653     A     
 FTN5TXT   CAT      DEFINE             CONCAT. OPERAND                                     FTN5TXT     1654     A     
 FTN5TXT   IODP     DEFINE 2                                                               FTN5TXT     1655     A     
 FTN5TXT            REDEF  IODP                                                            FTN5TXT     1656     A     
 FTN5TXT   IOD      DEFINE             I/O DEFINITION (SET FOR INPUT)                      FTN5TXT     1657     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   IOP      DEFINE             POTENTIALLY DEFINED (NAMELIST READ, ETC)            FTN5TXT     1658     A     
 FTN5TXT                                                                                   FTN5TXT     1659     A     
 FTN5TXT                                                                                   FTN5TXT     1660     A     
 FTN5TXT            REDEF  CPFX                                                            FTN5TXT     1661     A     
 FTN5TXT            DEFINE 2                                                               FTN5TXT     1662     A     
 FTN5TXT   GL       DEFINE             GENERATED LABEL =  CPFX = 1                         FTN5TXT     1663     A     
 FTN5TXT   TP.1ATR  SPACE  4,10                                                            FTN5TXT     1664     A     
 FTN5TXT  **        TP.1ATR - PASS 1 ATTRIBUTES.                                           FTN5TXT     1665     A     
 FTN5TXT  *                                                                                FTN5TXT     1666     A     
 FTN5TXT  *         THESE ARE DISCARDED AT *DUC* TIME, AND SO ARE NOT USED BY              FTN5TXT     1667     A     
 FTN5TXT  *         THE CODE GENERATOR PROPER.                                             FTN5TXT     1668     A     
 FTN5TXT                                                                                   FTN5TXT     1669     A     
 FTN5TXT                                                                                   FTN5TXT     1670     A     
 FTN5TXT            REDEF  1ATR                                                            FTN5TXT     1671     A     
 FTN5TXT   ARS      DEFINE             ARRAY SUBSCRIPT OPERAND                             FTN5TXT     1672     A     
 FTN5TXT   ARE      DEFINE             REFERENCE TO ENTIRE ARRAY                           FTN5TXT     1673     A     
 FTN5TXT   LCF      DEFINE             REFERENCE FOR *LOCF* INTRINSIC                      FTN5TXT     1674     A     
 FTN5TXT   EXPR     DEFINE             OPERAND WAS AN EXPRESSION (E.G., UNARY +)           FTN5TXT     1675     A     
 FTN5TXT   MODE     DEFINE WB.MODEL    MODE (TYPE) OF OPERAND                              FTN5TXT     1676     A     
 FTN5TXT   T.ASG    SPACE  4,10                                                            FTN5TXT     1677     A     
 FTN5TXT  **        T.ASG - TABLE OF "ASSIGN"ED STATEMENT LABELS.                          FTN5TXT     1678     A     
 FTN5TXT  *                                                                                FTN5TXT     1679     A     
 FTN5TXT  *         CONTAINS ONE ENTRY FOR EACH "ASSIGN" STATEMENT.                        FTN5TXT     1680     A     
 FTN5TXT  *         USED IN OPT > 0 TO DETERMINE FLOW CONTROL --                           FTN5TXT     1681     A     
 FTN5TXT  *         MUST KNOW ALL POSSIBLE TARGETS OF AN ASSIGNED                          FTN5TXT     1682     A     
 FTN5TXT  *         "GOTO" STATEMENT.                                                      FTN5TXT     1683     A     
 FTN5TXT                                                                                   FTN5TXT     1684     A     
 FTN5TXT                                                                                   FTN5TXT     1685     A     
 FTN5TXT            DESCRIBE  AG.                                                          FTN5TXT     1686     A     
 FTN5TXT   ORBI     DEFINE TP.ORBIL                                                        FTN5TXT     1687     A     
 FTN5TXT            ERRNZ  TP.ORBIP-AG.ORBIP                                               FTN5TXT     1688     A     
 FTN5TXT            REDEF  ORBI                                                            FTN5TXT     1689     A     
 FTN5TXT   ORD      DEFINE TP.ORDL     SYMORD OF ASSIGNED VARIABLE                         FTN5TXT     1690     A     
 FTN5TXT            ERRNZ  TP.ORDP-AG.ORDP                                                 FTN5TXT     1691     A     
 FTN5TXT   BIAS     DEFINE TP.BIASL    BIAS (FOR EQUIVALENCED VAR)                         FTN5TXT     1692     A     
 FTN5TXT            ERRNZ  AG.ORBIP-AG.BIASP                                               FTN5TXT     1693     A     
 FTN5TXT            DEFINE 4                                                               FTN5TXT     1694     A     
 FTN5TXT   LAB      DEFINE TP.ORDL     SYMORD OF LABEL ASSIGNED                            FTN5TXT     1695     A     
 FTN5TXT   T.NLST  SPACE  4,10                                                             FTN5TXT     1696     A     
 FTN5TXT  **        T.NLST - TABLE OF "NAMELIST" GROUPS.                                   FTN5TXT     1697     A     
 FTN5TXT                                                                                   FTN5TXT     1698     A     
 FTN5TXT  *         NAMELIST GROUP DEFINITIONS ARE STORED IN HERE.                         FTN5TXT     1699     A     
 FTN5TXT  *                                                                                FTN5TXT     1700     A     
 FTN5TXT  *         THE (WB.PNT) FIELD OF THE SYMTAB ENTRY FOR A NAMELIST                  FTN5TXT     1701     A     
 FTN5TXT  *         GROUP-NAME CONTAINS AN INDEX INTO THIS TABLE.                          FTN5TXT     1702     A     
 FTN5TXT  *                                                                                FTN5TXT     1703     A     
 FTN5TXT  *         THE ENTRY FOR EACH GROUP CONSISTS OF A SEQUENCE OF                     FTN5TXT     1704     A     
 FTN5TXT  *         BYTES.  AFTER THE (NMEM AND GROP) BYTES, THERE FOLLOWS                 FTN5TXT     1705     A     
 FTN5TXT  *         A SYMORD PER MEMBER.  A NEW GROUP STARTS ON A WORD                     FTN5TXT     1706     A     
 FTN5TXT  *         BOUNDARY.  ANY UNUSED (NG.ORD) BYTES CONTAIN ZERO.                     FTN5TXT     1707     A     
 FTN5TXT                                                                                   FTN5TXT     1708     A     
 FTN5TXT                                                                                   FTN5TXT     1709     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            DESCRIBE  NG.                                                          FTN5TXT     1710     A     
 FTN5TXT   NMEM     DEFINE 15          NUMBER OF MEMBERS                                   FTN5TXT     1711     A     
 FTN5TXT   GROP     DEFINE 15          SYMORD OF GROUP-NAME                                FTN5TXT     1712     A     
 FTN5TXT            DEFINE 15          SYMORD OF MEMBER 1                                  FTN5TXT     1713     A     
 FTN5TXT            DEFINE 15          SYMORD OF MEMBER 2                                  FTN5TXT     1714     A     
 FTN5TXT                                                                                   FTN5TXT     1715     A     
 FTN5TXT   NG.ORDL  EQU    NG.GROPL    LENGTH OF NAMELIST MEMBER SYMORDS                   FTN5TXT     1716     A     
 FTN5TXT   T.APL    SPACE  4,10                                                            FTN5TXT     1717     A     
 FTN5TXT  **        T.APL - TABLE OF ACTUAL PARAMETER LISTS.                               FTN5TXT     1718     A     
 FTN5TXT  *         ORDINALS OF *AL-TAGS* POINT INTO THIS TABLE.                           FTN5TXT     1719     A     
 FTN5TXT                                                                                   FTN5TXT     1720     A     
 FTN5TXT                                                                                   FTN5TXT     1721     A     
 FTN5TXT  *         TAG AND BIAS FIELDS MUST HAVE SAME POSITION RELATIVE TO EACH           FTN5TXT     1722     A     
 FTN5TXT  *                OTHER AS THEY DO IN THE LONG FILE.  MUST ALSO BE SAME           FTN5TXT     1723     A     
 FTN5TXT  *                LENGTH.                                                         FTN5TXT     1724     A     
 FTN5TXT  *         I/O  /  NON-I/O AP LIST FORMATS INPUT TO THE ASSEMBLER.                FTN5TXT     1725     A     
 FTN5TXT  *                                                                                FTN5TXT     1726     A     
 FTN5TXT                                                                                   FTN5TXT     1727     A     
 FTN5TXT                                                                                   FTN5TXT     1728     A     
 FTN5TXT            DESCRIBE   IA.,60                                                      FTN5TXT     1729     A     
 FTN5TXT   TAG      DEFINE PB.TAGL     SYMBOL (*IH* + ORD)                                 FTN5TXT     1730     A     
 FTN5TXT   LEFT     DEQU   TAG         LEFT SIDE ARGUMENT OF RELATIONAL HEADER             FTN5TXT     1731     A     
 FTN5TXT   BIAS     DEFINE 24                                                              FTN5TXT     1732     A     
 FTN5TXT   RITE     DEQU   BIAS        RIGHT SIDE ARGUMENT OF RELATIONAL HEADER            FTN5TXT     1733     A     
 FTN5TXT   ORBI     DEQU   BIAS,IA.TAGL+IA.BIASL   TAG+BIAS FIELD                          FTN5TXT     1734     A     
 FTN5TXT   MODE     DEFINE 6           MODE / I/O CONTROL CODE                             FTN5TXT     1735     A     
 FTN5TXT   IOC      DEFINE 1           THIS ENTRY IS CONTROL ITEM                          FTN5TXT     1736     A     
 FTN5TXT   ST       DEFINE 1           FWA STORED TO THIS ITEM                             FTN5TXT     1737     A     
 FTN5TXT   CHAR     DEFINE 1           GET (BCP,CLEN,BIAS) FROM T.CAC ENTRY                FTN5TXT     1738     A     
 FTN5TXT   CRH      DEFINE 1           CHARACTER RELATIONAL HEADER INDICATOR               FTN5TXT     1739     A     
 FTN5TXT   ASG      DEFINE 1           ASSIGNED FORMAT SPECIFIER                           FTN5TXT     1740     A     
 FTN5TXT   FP       DEFINE 1           ITME IS F.P.                                        FTN5TXT     1741          I
          -FC50299
 FTN5TXT   FP       DEFINE 1           ITEM IS F.P.                                        FC50299       10     A     
 FTN5TXT   VAR      DEFINE 1           VAR BIT (DOTRIP INDICATOR) FOR I/O DATA             FTN5TXT     1742     A     
 FTN5TXT            DEFINE 5                                                               FTN5TXT     1743     A     
 FTN5TXT   IO-APL   SPACE  4,10                                                            FTN5TXT     1744     A     
 FTN5TXT  **        AN OBJECT-LIBRARY (I/O) AP-LIST ENTRY HAS THE FOLLOWING FORMAT         FTN5TXT     1745     A     
 FTN5TXT  *                IN THE BINARY --                                                FTN5TXT     1746     A     
 FTN5TXT                                                                                   FTN5TXT     1747     A     
 FTN5TXT                                                                                   FTN5TXT     1748     A     
 FTN5TXT            DESCRIBE   OA.,60                                                      FTN5TXT     1749     A     
 FTN5TXT   LCM      DEFINE 1           ITEM IS LCM/ECS RESIDENT                            FTN5TXT     1750     A     
 FTN5TXT   FP       DEFINE 1           ITEM IS FORMAL PARAMETER                            FTN5TXT     1751     A     
 FTN5TXT   IND      DEFINE 1                                                               FTN5TXT     1752          I
          -FC50299
 FTN5TXT   IND      DEFINE 1           LENGTH FIELD IS POINTER                             FC50299       11     A     
 FTN5TXT   LST      DEFINE 1           ITEM IS CONTROL INFO SPECIFIER                      FTN5TXT     1753     A     
 FTN5TXT   VAR      DEFINE 1                                                               FTN5TXT     1754          I
          -FC50299
 FTN5TXT   VAR      DEFINE 1           INDICATION OF TYPE LOOP IN FORCE                    FC50299       12     A     
 FTN5TXT            DEFINE 1                                                               FTN5TXT     1755     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 352    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   TYP      DEFINE 6           MODE/UNIT CODE OF ITEM                              FTN5TXT     1756     A     
 FTN5TXT   LEN      DEFINE 18          LENGTH OF ITEM (NUMBER OF ELEMENTS)                 FTN5TXT     1757     A     
 FTN5TXT   ADDR     DEFINE 30                                                              FTN5TXT     1758     A     
 FTN5TXT                                                                                   FTN5TXT     1759     A     
 FTN5TXT            REDEF  ADDR        ---   IF TYP=CHAR                                   FTN5TXT     1760     A     
 FTN5TXT            DEFINE 2                                                               FTN5TXT     1761     A     
 FTN5TXT   BCP      DEFINE 4           BEGINNING CHARACTER POSITION OF ITEM                FTN5TXT     1762     A     
 FTN5TXT   ADR      DEFINE 24          ADDRESS OF ITEM                                     FTN5TXT     1763     A     
 FTN5TXT                                                                                   FTN5TXT     1764     A     
 FTN5TXT            REDEF  ADDR        ---   IF FP                                         FTN5TXT     1765     A     
 FTN5TXT   SUBS     DEFINE 21          OFFSET TO FORMAL PARAMETERS                         FTN5TXT     1766     A     
 FTN5TXT   ARG      DEFINE 9           FORMAL PARAMETER NUMBER OF ITEM - 1                 FTN5TXT     1767     A     
 FTN5TXT                                                                                   FTN5TXT     1768     A     
 FTN5TXT   OA.LEFTP EQU    OA.LENP                                                         FTN5TXT     1769     A     
 FTN5TXT   OA.RITEP EQU    OA.ADDRP                                                        FTN5TXT     1770     A     
 FTN5TXT   T.DATS   SPACE  4,15                                                            FTN5TXT     1771     A     
 FTN5TXT  **        T.DATS - DATA STATEMENT TABLE.                                         FTN5TXT     1772     A     
 FTN5TXT  *                                                                                FTN5TXT     1773     A     
 FTN5TXT  *         THE ENTRIES IN THIS TABLE ARE DIRECTIVES TO PASS 3 TO                  FTN5TXT     1774     A     
 FTN5TXT  *         OUTPUT THE NECESSARY LOADER TEXT.                                      FTN5TXT     1775     A     
 FTN5TXT  *                                                                                FTN5TXT     1776     A     
 FTN5TXT  *         EACH ENTRY CONSISTS OF A HEADER, FOLLOWED BY (WC) WORDS OF             FTN5TXT     1777     A     
 FTN5TXT  *         DATA.  THE HEADER IS ONE OR TWO WORDS LONG.  ALWAYS A (DA.)            FTN5TXT     1778     A     
 FTN5TXT  *         WORD, AND THEN A (DB.) WORD IF (DA.RP)=1.                              FTN5TXT     1779     A     
 FTN5TXT                                                                                   FTN5TXT     1780     A     
 FTN5TXT                                                                                   FTN5TXT     1781     A     
 FTN5TXT            DESCRIBE DA.,,,0                                                       FTN5TXT     1782     A     
 FTN5TXT                                                                                   FTN5TXT     1783     A     
 FTN5TXT   CH       DEFINE 1           IF CHARACTER FORMAT                                 FTN5TXT     1784     A     
 FTN5TXT   RP       DEFINE 1           IF REPLICATION NEEDED (DB. WORD PRESENT)            FTN5TXT     1785     A     
 FTN5TXT   ORD      DEFINE 16          SYMTAB ORDINAL OF FWA                               FTN5TXT     1786     A     
 FTN5TXT   BIAS     DEFINE 24          BIAS OF FWA (CHARS OR WORDS)                        FTN5TXT     1787     A     
 FTN5TXT   WC       DEFINE 18          WORD COUNT OF FOLLOWING DATA (NOT COUNTING          FTN5TXT     1788     A     
 FTN5TXT                                     DB. WORD, CHARS OR WORDS)                     FTN5TXT     1789     A     
 FTN5TXT                                                                                   FTN5TXT     1790     A     
 FTN5TXT            DESCRIBE DB.,,,1   ---   PRESENT WHEN RP=1                             FTN5TXT     1791     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1792     A     
 FTN5TXT   INC      DEFINE 24          INCREMENT (CHARS OR WORDS)                          FTN5TXT     1793     A     
 FTN5TXT            DEFINE 6                                                               FTN5TXT     1794     A     
 FTN5TXT   CNT      DEFINE 24          NUMBER OF COPIES + 1                                FTN5TXT     1795     A     
 FTN5TXT   DI.      SPACE  4,10                                                            FTN5TXT     1796     A     
 FTN5TXT  **        T.DATI -  DATA CONSTANT TABLE.                                         FTN5TXT     1797     A     
 FTN5TXT  *                BUILT BY *BIT* IN DATA.                                         FTN5TXT     1798     A     
 FTN5TXT  *                FORM (2) IS ALSO USED BY *PRM* OF DECL.                         FTN5TXT     1799     A     
 FTN5TXT  *                                                                                FTN5TXT     1800     A     
 FTN5TXT  *         FORM (1), (DI.REP) = 1  -  FOR REPLICATION HEADER.                     FTN5TXT     1801     A     
 FTN5TXT  *         FORM (2), (DI.REP) = 0  -  FOR DATA CONSTANT.                          FTN5TXT     1802     A     
 FTN5TXT                                                                                   FTN5TXT     1803     A     
 FTN5TXT                                                                                   FTN5TXT     1804     A     
 FTN5TXT            DESCRIBE DI.,60          FORM (1)                                      FTN5TXT     1805     A     
 FTN5TXT                                                                                   FTN5TXT     1806     A     
 FTN5TXT   REP      DEFINE 1           1 = REPETITION FLAG ENTRY                           FTN5TXT     1807     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            DEFINE 5           0                                                   FTN5TXT     1808          I
          -FC5A132
 FTN5TXT   RL       DEFINE 18          REPETITION LIST LENGTH                              FTN5TXT     1809          I
          -FC5A132
 FTN5TXT   NDX      DEFINE 18          INDEX TO END OF REP LIST                            FTN5TXT     1810          I
          -FC5A132
 FTN5TXT   RC       DEFINE 18          REPETITION COUNT                                    FTN5TXT     1811          I
          -FC5A132
 FTN5TXT            DEFINE 17                                                              FC5A132       23     A     
 FTN5TXT   RL       DEFINE 18          REPETITION LIST LENGTH                              FC5A132       24     A     
 FTN5TXT   RC       DEFINE 24          REPETITION COUNT                                    FC5A132       25     A     
 FTN5TXT                                                                                   FTN5TXT     1812     A     
 FTN5TXT                                                                                   FTN5TXT     1813     A     
 FTN5TXT            REDEF                    FORM (2)                                      FTN5TXT     1814     A     
 FTN5TXT                                                                                   FTN5TXT     1815     A     
 FTN5TXT   REP      DEFINE 1           0 = CONSTANT ITEM ENTRY                             FTN5TXT     1816     A     
 FTN5TXT            DEFINE 2           0                                                   FTN5TXT     1817     A     
 FTN5TXT   MODE     DEFINE WB.MODEL    MODE OF CONSTANT                                    FTN5TXT     1818     A     
 FTN5TXT            DEFINE 18          0                                                   FTN5TXT     1819     A     
 FTN5TXT   PNT      DEFINE 18          POINTER INTO TABLE CONTAINING CONSTANT              FTN5TXT     1820     A     
 FTN5TXT   DLEN     DEFINE 18          CONSTANT LENGTH (WORDS OR CHARACTERS)               FTN5TXT     1821     A     
 FTN5TXT   T.FPO    SPACE  4,20                                                            FTN5TXT     1822     A     
 FTN5TXT  **        T.FPO -  TABLE OF SUB/ SUB0 ORGINS FOR FORMAL PARAMETERS.              FTN5TXT     1823     A     
 FTN5TXT  *                                                                                FTN5TXT     1824     A     
 FTN5TXT  *         CREATED IN PASS 3 OF REC, CATAINS FOR EACH FORMAL PARAMETER,           FTN5TXT     1825     A     
 FTN5TXT  *         ITS POINTER INTO SUB/SUB0 TALBE.                                       FTN5TXT     1826     A     
 FTN5TXT  *         FORMATTED AS FP. .                                                     FTN5TXT     1827     A     
 FTN5TXT                                                                                   FTN5TXT     1828     A     
 FTN5TXT                                                                                   FTN5TXT     1829     A     
 FTN5TXT   T.ILI    SPACE  4,10                                                            FC5A141        7     A     
 FTN5TXT  **        T.ILI -  TABLE OF INPUT LIST ITEMS.                                    FC5A141        8     A     
 FTN5TXT  *                                                                                FC5A141        9     A     
 FTN5TXT  *         TP. OPERANDS OF INPUT ITEMS ARE REFORMATTED                            FC5A141       10     A     
 FTN5TXT  *         FOR ENTRY INTO THIS TABLE.                                             FC5A141       11     A     
 FTN5TXT                                                                                   FC5A141       12     A     
 FTN5TXT            DESCRIBE  II.                                                          FC5A141       13     A     
 FTN5TXT   ORD      DEFINE  16         ORDINAL OF OPERAND                                  FC5A141       14     A     
 FTN5TXT   BIAS     DEFINE  24         BIAS OF OPERAND                                     FC5A141       15     A     
 FTN5TXT            DEFINE  18                                                             FC5A141       16     A     
 FTN5TXT   CHAR     DEFINE  1          OPERAND IS TYPE CHARACTER                           FC5A141       17     A     
 FTN5TXT   ARY      DEFINE  1          OPERAND IS INDEXED ARRAY OR SUBSTRING               FC5A141       18     A     
 FTN5TXT   T.REF    SPACE  4,30                                                            FTN5TXT     1830     A     
 FTN5TXT  **        T.REF - CROSS REFERENCE TABLE.                                         FTN5TXT     1831     A     
 FTN5TXT                                                                                   FTN5TXT     1832     A     
 FTN5TXT                                                                                   FTN5TXT     1833     A     
 FTN5TXT            DESCRIBE XR.                                                           FTN5TXT     1834     A     
 FTN5TXT   TAG      DEFINE 18                                                              FTN5TXT     1835     A     
 FTN5TXT   MEDF     DEFINE 1           MAP ENTRY POINT DEFINITION FLAG                     FTN5TXT     1836     A     
 FTN5TXT            DEFINE 13                                                              FTN5TXT     1837     A     
 FTN5TXT   LINE     DEFINE 22          LINE NUM OF REF                                     FTN5TXT     1838     A     
 FTN5TXT   USE      DEFINE 6           USAGE LETTER                                        FTN5TXT     1839     A     
 FTN5TXT                                                                                   FTN5TXT     1840     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  **        POSSIBLE VALUES OF XR.USE                                              FTN5TXT     1841     A     
 FTN5TXT                                                                                   FTN5TXT     1842     A     
 FTN5TXT  *         STATEMENT LABELS                                                       FTN5TXT     1843     A     
 FTN5TXT                                                                                   FTN5TXT     1844     A     
 FTN5TXT   CR.AGN   EQU    1RA                                                             FTN5TXT     1845     A     
 FTN5TXT   CR.GOTO  EQU    1R                                                              FTN5TXT     1846     A     
 FTN5TXT   CR.DO    EQU    1RD                                                             FTN5TXT     1847     A     
 FTN5TXT   CR.IFN   EQU    1R          CONDITIONAL USAGE                                   FTN5TXT     1848     A     
 FTN5TXT   CR.DECD  EQU    1RR         DECODE STATEMENT                                    FTN5TXT     1849     A     
 FTN5TXT   CR.ENC   EQU    1RW         ENCODE STATEMENT                                    FTN5TXT     1850     A     
 FTN5TXT   CR.CNTL  EQU    1R                                                              FTN5TXT     1851     A     
 FTN5TXT   CR.LAB   EQU    1RL         LABEL DEFINITION                                    FC50514        6     A     
 FTN5TXT                                                                                   FTN5TXT     1852     A     
 FTN5TXT  *         VARIABLES/FUNCTIONS                                                    FTN5TXT     1853     A     
 FTN5TXT                                                                                   FTN5TXT     1854     A     
 FTN5TXT   CR.REF   EQU    1R                                                              FTN5TXT     1855     A     
 FTN5TXT   CR.STR   EQU    1RS         STORE                                               FTN5TXT     1856     A     
 FTN5TXT   CR.PAR   EQU    1RA                                                             FTN5TXT     1857     A     
 FTN5TXT   CR.CALL  EQU    1RA         CALL ARGUMENT.                                      FTN5TXT     1858     A     
 FTN5TXT   CR.DEC   EQU    1R          DECLARATIVE STATEMENT                               FTN5TXT     1859     A     
 FTN5TXT   CR.DAT   EQU    1RI         DATA INITIALIZED                                    FTN5TXT     1860     A     
 FTN5TXT   CR.VGOTO EQU    1R          VARIABLE USED IN GOTO                               FTN5TXT     1861     A     
 FTN5TXT   CR.INF   EQU    1RA         INSIDE FUNCTION.                                    FTN5TXT     1862     A     
 FTN5TXT   CR.INP   EQU    1RR         INPUT  STATEMENT                                    FTN5TXT     1863     A     
 FTN5TXT   CR.OUT   EQU    1RW         OUTPUT STATEMENT                                    FTN5TXT     1864     A     
 FTN5TXT   CR.SUB   EQU    1R                                                              FTN5TXT     1865     A     
 FTN5TXT   CR.DOI   EQU    1RC         DO LOOP CONTROL                                     FTN5TXT     1866     A     
 FTN5TXT   CR.IF    EQU    1R                                                              FTN5TXT     1867     A     
 FTN5TXT   CR.IOU   EQU    1RU         I/O UNIT                                            FTN5TXT     1868     A     
 FTN5TXT   CR.SRC   EQU    1RS         SOURCE LINE                                         FTN5TXT     1869     A     
 FTN5TXT   CR.DEF   EQU    1RD                                                             FTN5TXT     1870     A     
 FTN5TXT   CR.RET   EQU    1RR         SUBROUTINE RETURN                                   FC50451        5     A     
 FTN5TXT   T.ENT    SPACE  4,10                                                            FTN5TXT     1871     A     
 FTN5TXT  **        T.ENT - ENTRY POINT TABLE.                                             FTN5TXT     1872     A     
 FTN5TXT                                                                                   FTN5TXT     1873     A     
 FTN5TXT                                                                                   FTN5TXT     1874     A     
 FTN5TXT            DESCRIBE EP.                                                           FTN5TXT     1875     A     
 FTN5TXT   NAME     DEFINE 42          ENTRY POINT NAME                                    FTN5TXT     1876     A     
 FTN5TXT   ORD      DEFINE 18          ORDINAL IN SYMTAB                                   FTN5TXT     1877     A     
 FTN5TXT   T.ENTP   SPACE  4,20                                                            FTN5TXT     1878     A     
 FTN5TXT  **        T.ENTP - ENTRY PARAMETER LISTS.                                        FTN5TXT     1879     A     
 FTN5TXT  *                                                                                FTN5TXT     1880     A     
 FTN5TXT  *         EACH UNIQUE PARAMETER LIST IN THE PROGRAM-UNIT IS                      FTN5TXT     1881     A     
 FTN5TXT  *         REPRESENTED BY A (T.ENTP) ENTRY.  EACH ENTRY CONSISTS                  FTN5TXT     1882     A     
 FTN5TXT  *         OF A HEADER WORD (EH.), FOLLOWED BY A SERIES OF (EF.)                  FTN5TXT     1883     A     
 FTN5TXT  *         BYTES (4 PER WORD).  AN (EF.) BYTE CONTAINS THE SYMTAB                 FTN5TXT     1884     A     
 FTN5TXT  *         ORDINAL OF A FORMAL PARAMETER WHICH IS INCLUDED IN THIS                FTN5TXT     1885     A     
 FTN5TXT  *         PARAMETER LIST, IN ORDER.  THE LIST OF FP'S IS TERMINATED              FTN5TXT     1886     A     
 FTN5TXT  *         BY ZERO (EF.) BYTE(S).                                                 FTN5TXT     1887     A     
 FTN5TXT                                                                                   FTN5TXT     1888     A     
 FTN5TXT                                                                                   FTN5TXT     1889     A     
 FTN5TXT            DESCRIBE EH.                                                           FTN5TXT     1890     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   FPC      DEFINE 12          FORMAL PARAMETER COUNT                              FTN5TXT     1891     A     
 FTN5TXT   SUBI     DEFINE 15          *SUBI* (SUB INDEX TABLE) BIAS                       FTN5TXT     1892     A     
 FTN5TXT   SB0I     DEFINE 15          *SB0I* (LEVEL 0 SUB INDEX TABLE) BIAS               FTN5TXT     1893     A     
 FTN5TXT   BIAS     DEFINE 18          CPL. BIAS OF THIS LIST                              FTN5TXT     1894     A     
 FTN5TXT                                                                                   FTN5TXT     1895     A     
 FTN5TXT                                                                                   FTN5TXT     1896     A     
 FTN5TXT            DESCRIBE EF.                                                           FTN5TXT     1897     A     
 FTN5TXT   ORD      DEFINE 15          SYMORD OF FP(I)                                     FTN5TXT     1898     A     
 FTN5TXT            DEFINE 3*15                                                            FTN5TXT     1899     A     
 FTN5TXT   T.SUB    SPACE  4,10                                                            FTN5TXT     1900     A     
 FTN5TXT  **        T.SUB - *SUB*  BLOCK TABLE.                                            FTN5TXT     1901     A     
 FTN5TXT  *                                                                                FTN5TXT     1902     A     
 FTN5TXT  *         BUILT BY THE ASSEMBLER.  CONTAIN  *SUB*  BLOCKS FOR THE                FTN5TXT     1903     A     
 FTN5TXT  *         CURRENT PROGRAM UNIT.                                                  FTN5TXT     1904     A     
 FTN5TXT                                                                                   FTN5TXT     1905     A     
 FTN5TXT                                                                                   FTN5TXT     1906     A     
 FTN5TXT            DESCRIBE SB.,60                                                        FTN5TXT     1907     A     
 FTN5TXT   POS      DEFINE 12          INSTRUCTION PARCEL SHIFT COUNT + 2000B              FTN5TXT     1908     A     
 FTN5TXT  *                            = $+2001B - $/59*61                                 FTN5TXT     1909     A     
 FTN5TXT  *                            = POSITIVE FOR THE FIRST ENTRY FOR A PARAM,         FTN5TXT     1910     A     
 FTN5TXT  *                              OR IF A *DELAY* PRECEDED THIS *SUB*.              FTN5TXT     1911     A     
 FTN5TXT  *                              OTHERWISE POSC = POSC * -1.                       FTN5TXT     1912     A     
 FTN5TXT   FPNO     DEFINE WB.FPNOL    FORMAL PARAMETER NUMBER                             FTN5TXT     1913     A     
 FTN5TXT            DEFINE 3                                                               FTN5TXT     1914     A     
 FTN5TXT   BIAS     DEFINE PB.BIASL    BIAS ADDED                                          FTN5TXT     1915     A     
 FTN5TXT   ORG      DEFINE 18          ADDRESS OF INSTRUCTION TO *ADDSUB*                  FTN5TXT     1916     A     
 FTN5TXT   T.SUB0   SPACE  4,10                                                            FTN5TXT     1917     A     
 FTN5TXT  **        T.SUB0 - *SUB0* BLOCK TABLE.                                           FTN5TXT     1918     A     
 FTN5TXT  *                                                                                FTN5TXT     1919     A     
 FTN5TXT  *         BUILT BY THE ASSEMBLER. CONTAIN *SUB0* BLOCKS FOR THE                  FTN5TXT     1920     A     
 FTN5TXT  *         CURRENT PROGRAM UNIT.                                                  FTN5TXT     1921     A     
 FTN5TXT                                                                                   FTN5TXT     1922     A     
 FTN5TXT                                                                                   FTN5TXT     1923     A     
 FTN5TXT            DESCRIBE SZ.,60                                                        FTN5TXT     1924     A     
 FTN5TXT   POS      DEFINE 12          2036B + INSTRUCTION PARCEL SHIFT COUNT              FTN5TXT     1925     A     
 FTN5TXT            DEFINE 3           0                                                   FTN5TXT     1926     A     
 FTN5TXT   SLI      DEFINE 15          SCMI .XOR. LCMI                                     FTN5TXT     1927     A     
 FTN5TXT  *                            SCMI = SCM LOAD/STORE INSTRUCTION (53IJ0)           FTN5TXT     1928     A     
 FTN5TXT  *                            LCMI = LCM LOAD/STORE INSTRU.(014IJ ,015IJ)         FTN5TXT     1929     A     
 FTN5TXT            DEFINE 12          0                                                   FTN5TXT     1930     A     
 FTN5TXT   ORG      DEFINE 18          ADDRESS OF INSTRUCTION                              FTN5TXT     1931     A     
 FTN5TXT   T.SBI    SPACE  4,10                                                            FTN5TXT     1932     A     
 FTN5TXT  **        T.SBI - *SUB* BLOCK INDEX TABLE.                                       FTN5TXT     1933     A     
 FTN5TXT  *                                                                                FTN5TXT     1934     A     
 FTN5TXT  *         BUILT BY THE ASSEMBLER.  CONTAINS INDICIES INTO THE *SUB*              FTN5TXT     1935     A     
 FTN5TXT  *         BLOCK FOR THE CURRENT PROGRAM UNIT.                                    FTN5TXT     1936     A     
 FTN5TXT                                                                                   FTN5TXT     1937     A     
 FTN5TXT                                                                                   FTN5TXT     1938     A     
 FTN5TXT            DESCRIBE IS.,60                                                        FTN5TXT     1939     A     
 FTN5TXT   FPN      DEFINE 12          PACKED FPNO                                         FTN5TXT     1940     A     
 FTN5TXT   AD       DEFINE 48          ADDRESS (INDEX) OF  SUB  , THIS FP.                 FTN5TXT     1941     A     
 FTN5TXT   F.LBT    SPACE  4,10                                                            FTN5TXT     1942     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  **        F.LBT - LOCAL BLOCK TABLE (A FIXED TABLE).                             FTN5TXT     1943     A     
 FTN5TXT  *                                                                                FTN5TXT     1944     A     
 FTN5TXT  *         LB.ORG IS CALCULATED FROM  LB.PARC  AND  LB.BLEN  BY THE               FTN5TXT     1945     A     
 FTN5TXT  *         ASSEMBLER.                                                             FTN5TXT     1946     A     
 FTN5TXT  *         ROUTINE  *PIG*  KEEPS *LB.BLEN* STORED IN *LB.TBLN/LB.ORG*.            FTN5TXT     1947     A     
 FTN5TXT  *         ROUTINE  *END*  MOVES *LB.TBLN*  TO *LB.BLEN* BEFORE MERGING           FTN5TXT     1948     A     
 FTN5TXT  *         THE CALCULATED *LB.ORG* INTO THE WORD.                                 FTN5TXT     1949     A     
 FTN5TXT                                                                                   FTN5TXT     1950     A     
 FTN5TXT                                                                                   FTN5TXT     1951     A     
 FTN5TXT            DESCRIBE LB.,60                                                        FTN5TXT     1952     A     
 FTN5TXT   PARC     DEFINE 6           PARCEL COUNT                                        FTN5TXT     1953     A     
 FTN5TXT            DEFINE 18                                                              FTN5TXT     1954     A     
 FTN5TXT   BLEN     DEFINE 18          LENGTH OF BLOCK                                     FTN5TXT     1955     A     
 FTN5TXT   ORG      DEFINE 18          PROGRAM RELATIVE ADDRESS / ORG COUNTER              FTN5TXT     1956     A     
 FTN5TXT   TBLN     DEQU   ORG         TEMP BLEN STORAGE FOR PASS 2 (PIG)                  FTN5TXT     1957     A     
 FTN5TXT   F.PIK    SPACE  4,20                                                            FTN5TXT     1958     A     
 FTN5TXT  **        F.PIK - MACHINE OPERATION DESCRIPTION TABLE.                           FTN5TXT     1959     A     
 FTN5TXT  *                                                                                FTN5TXT     1960     A     
 FTN5TXT  *         EACH ENTRY DESCRIBES HOW TO FORMAT THE OBJECT LISTING, AS              FTN5TXT     1961     A     
 FTN5TXT  *         WELL AS ATTRIBUTES OF THE INSTRUCTION.                                 FTN5TXT     1962     A     
 FTN5TXT  ** FV     ****   NOTE - DO NOT BE MISLEAD BY SYMBOLIC DESCRIPTION;               FTN5TXT     1963     A     
 FTN5TXT  *                MANY HARD-NUMBER REFERENCES EXIST IN COMPILER.                  FTN5TXT     1964     A     
 FTN5TXT  *         IN PARTICULAR, (Q, BJMP, FUPA) SHOULD BE INSIDE THE (OD.ATR)           FTN5TXT     1965     A     
 FTN5TXT  *         FIELD, BUT THEY ARE NOT YET REFERRED TO SYMBOLICALLY.                  FTN5TXT     1966     A     
 FTN5TXT                                                                                   FTN5TXT     1967     A     
 FTN5TXT                                                                                   FTN5TXT     1968     A     
 FTN5TXT   OD.EDL   EQU    4           WIDTH OF EACH EDIT DESCRIPTOR                       FTN5TXT     1969     A     
 FTN5TXT   OD.EDN   EQU    9           NUMBER OF EDIT DESCRIPTORS ALLOWED                  FTN5TXT     1970     A     
 FTN5TXT                                                                                   FTN5TXT     1971     A     
 FTN5TXT                                                                                   FTN5TXT     1972     A     
 FTN5TXT            DESCRIBE OD.             OPERATION DESCRIPTION                         FTN5TXT     1973     A     
 FTN5TXT                                                                                   FTN5TXT     1974     A     
 FTN5TXT   Q        DEFINE             30-BIT INSTRUCTION                                  FTN5TXT     1975     A     
 FTN5TXT   BJMP     DEFINE             B-REGISTER JUMP INST                                FTN5TXT     1976     A     
 FTN5TXT   FUPA     DEFINE             FORCE UPPER AFTER                                   FTN5TXT     1977     A     
 FTN5TXT            DEFINE OD.EDN*OD.EDL                                                   FTN5TXT     1978     A     
 FTN5TXT   ATR      DEFINE 9           ATTRIBUTES      (SEE BELOW)                         FTN5TXT     1979     A     
 FTN5TXT   GH       DEFINE 2*6         LETTERS FOR COL 11+12                               FTN5TXT     1980     A     
 FTN5TXT            ERRNZ  OD.GHP                                                          FTN5TXT     1981     A     
 FTN5TXT                                                                                   FTN5TXT     1982     A     
 FTN5TXT                                                                                   FTN5TXT     1983     A     
 FTN5TXT            REDEF  ATR                                                             FTN5TXT     1984     A     
 FTN5TXT   IM       DEFINE             INTEGER MULTIPLY INSTRUCTION                        FTN5TXT     1985     A     
 FTN5TXT   UP       DEFINE             UNPACK INSTRUCTION                                  FTN5TXT     1986     A     
 FTN5TXT   PK       DEFINE             PACK INSTRUCTION                                    FTN5TXT     1987     A     
 FTN5TXT   BJ       DEFINE             (J) IS A *B* REGISTER                               FTN5TXT     1988     A     
 FTN5TXT   JKV      DEFINE             (JK) IS A 6-BIT VALUE                               FTN5TXT     1989     A     
 FTN5TXT   KJ       DEFINE             NEEDS (K) AND (J) INTERCHANGED                      FTN5TXT     1990     A     
 FTN5TXT   DIV      DEFINE             DIVIDE:  (X.J) CANNOT BE ZERO                       FTN5TXT     1991     A     
 FTN5TXT   FPA      DEFINE             FLOATING POINT ARITH (DO LEGVAR CHECK)              FTN5TXT     1992     A     
 FTN5TXT   COPY     DEFINE             NEEDS (K) SET TO (J)                                FTN5TXT     1993     A     
 FTN5TXT            ERRNZ  OD.COPYP-OD.ATRP                                                FTN5TXT     1994     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   MOD      SPACE  4,10                                                            FTN5TXT     1995     A     
 FTN5TXT  **        MOD - MODE OF PROGRAM-UNIT BEING COMPILED.                             FTN5TXT     1996     A     
 FTN5TXT  *                                                                                FTN5TXT     1997     A     
 FTN5TXT  *         THE FOLLOWING ARE USED IN CONJUNCTION WITH THE CELL *MOD* AND          FTN5TXT     1998     A     
 FTN5TXT  *         REFER TO MODE OF COMPILATION FOR THE CURRENT PROGRAM UNIT.             FTN5TXT     1999     A     
 FTN5TXT                                                                                   FTN5TXT     2000     A     
 FTN5TXT                                                                                   FTN5TXT     2001     A     
 FTN5TXT            DESCRIBE  MO.,60                                                       FTN5TXT     2002     A     
 FTN5TXT                                                                                   FTN5TXT     2003     A     
 FTN5TXT            DEFINE 12                                                              FTN5TXT     2004     A     
 FTN5TXT   CLIF     DEFINE 19          CHARACTER LENGTH INFORMATION                        FTN5TXT     2005     A     
 FTN5TXT            REDEF  CLIF                                                            FTN5TXT     2006     A     
 FTN5TXT   CLEN     DEFINE 18          CHARACTER LENGTH (CHARACTER FUNCTIONS ONLY)         FTN5TXT     2007     A     
 FTN5TXT   CTYP     DEFINE             CHARACTER LENGTH TYPE (AS PER WC.CTYP)              FTN5TXT     2008     A     
 FTN5TXT            DEFINE 17                                                              FTN5TXT     2009     A     
 FTN5TXT   PTYP     DEFINE 3           PROGRAM TYPE                                        FTN5TXT     2010     A     
 FTN5TXT   BLK      DEFINE 1           BLOCK DATA                                          FTN5TXT     2011     A     
 FTN5TXT   TYP      DEFINE             EXPLICITLY TYPED FUNCTION                           FTN5TXT     2012     A     
 FTN5TXT            DEFINE 4                                                               FTN5TXT     2013     A     
 FTN5TXT   MODE     DEFINE WB.MODEL    MODE, IF FUNCTION                                   FTN5TXT     2014     A     
 FTN5TXT                                                                                   FTN5TXT     2015     A     
 FTN5TXT                                                                                   FTN5TXT     2016     A     
 FTN5TXT  *         (MO.PTYP) HAS TO CONFORM TO PMDUMP INTERFACE SPEC.                     FTN5TXT     2017     A     
 FTN5TXT  *         SEE DAP S2762.  CODE IN FAS/DFD.                                       FTN5TXT     2018     A     
 FTN5TXT  *                (BT.TYP) = (MO.PTYP) / 2                                        FTN5TXT     2019     A     
 FTN5TXT                                                                                   FTN5TXT     2020     A     
 FTN5TXT            REDEF  PTYP                                                            FTN5TXT     2021     A     
 FTN5TXT   FUN      DEFINE 1           FUNCTION                                            FTN5TXT     2022     A     
 FTN5TXT   SUB      DEFINE 1           SUBROUTINE                                          FTN5TXT     2023     A     
 FTN5TXT   PRO      DEFINE 1           MAIN PROGRAM                                        FTN5TXT     2024     A     
 FTN5TXT   PARMODE  SPACE  4,10                                                            FTN5TXT     2025     A     
 FTN5TXT  **        PARMODE - SELECT SPECIAL PARSING MODE.                                 FTN5TXT     2026     A     
 FTN5TXT  *                                                                                FTN5TXT     2027     A     
 FTN5TXT  *         PARSER ALWAYS RESETS THIS CELL = 'EXPR' BEFORE EXITING.                FTN5TXT     2028     A     
 FTN5TXT                                                                                   FTN5TXT     2029     A     
 FTN5TXT                                                                                   FTN5TXT     2030     A     
 FTN5TXT            LOC    0                                                               FTN5TXT     2031     A     
 FTN5TXT   PM=EXPR  BSS    1           NORMAL EXECUTABLE EXPRESSION                        FTN5TXT     2032     A     
 FTN5TXT   PM=ICE   BSS    1           INTEGER CONSTANT EXPRESSION                         FTN5TXT     2033     A     
 FTN5TXT   PM=CXP   BSS    1           CONSTANT EXPRESSION                                 FTN5TXT     2034     A     
 FTN5TXT   PM=DIM   BSS    1           DIMENSION BOUND                                     FTN5TXT     2035     A     
 FTN5TXT   PM=IOD   BSS    1           PRE-SCAN OF IMPLIED LOOPS                           FTN5TXT     2036     A     
 FTN5TXT   PM=DATA  BSS    1           DATA ITEM LIST                                      FTN5TXT     2037     A     
 FTN5TXT   PM=DCON  BSS    1           DATA CONSTANT LIST                                  FTN5TXT     2038     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT     2039          I
          -FC5A156
 FTN5TXT   PM=PARM  EQU    PM=ICE                                                          FTN5TXT     2040          I
          -FC5A156
 FTN5TXT   PM=PARM  BSS    1           *PARAMETER* STATEMENT PROCESSING                    FC5A156        6     A     
 FTN5TXT            LOC    *O                                                              FC5A156        7     A     
 FTN5TXT   ARGMODE  SPACE  4,30                                                            FTN5TXT     2041     A     
 FTN5TXT  **        ARGMODE - PARSER CONTEXT STACK.                                        FTN5TXT     2042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                                                                                FTN5TXT     2043     A     
 FTN5TXT  *         THE PARSER MAINTAINS THREE CELLS FOR CURRENT CONTEXT INFO.             FTN5TXT     2044     A     
 FTN5TXT  *         ALL THREE ARE PUSHED AND POPPED ON THE OPSTACK AS PARENS,              FTN5TXT     2045          I
          -FC51075
 FTN5TXT  *         ALL THREE ARE PUSHED AND POPPED ON T.PCS AS PARENS,                    FC51075        8     A     
 FTN5TXT  *         ETC, ARE ENCOUNTERED.                                                  FTN5TXT     2046     A     
 FTN5TXT                                                                                   FTN5TXT     2047     A     
 FTN5TXT                                                                                   FTN5TXT     2048     A     
 FTN5TXT            LOC    0                                                               FTN5TXT     2049     A     
 FTN5TXT            QUAL   PSTACK                                                          FTN5TXT     2050     A     
 FTN5TXT   ARGMODE  BSS    1                                                               FTN5TXT     2051     A     
 FTN5TXT   ARGCOMA  BSS    1                                                               FTN5TXT     2052     A     
 FTN5TXT   ARGMISC  BSS    1                                                               FTN5TXT     2053     A     
 FTN5TXT            QUAL   *                                                               FTN5TXT     2054     A     
 FTN5TXT   Z=PSTACK BSS                LENGTH OF PAREN STACK FRAME                         FTN5TXT     2055     A     
 FTN5TXT            LOC    *O                                                              FTN5TXT     2056     A     
 FTN5TXT                                                                                   FTN5TXT     2057     A     
 FTN5TXT                                                                                   FTN5TXT     2058     A     
 FTN5TXT            DESCRIBE  AM.,,,/PSTACK/ARGMODE                                        FTN5TXT     2059     A     
 FTN5TXT                                                                                   FTN5TXT     2060     A     
 FTN5TXT   REF      DEFINE 12                                                              FTN5TXT     2061     A     
 FTN5TXT   ATR      DEFINE 12          ATTRIBUTES (SEE BELOW)                              FTN5TXT     2062     A     
 FTN5TXT   COM      DEFINE 18                                                              FTN5TXT     2063     A     
 FTN5TXT   PAD      DEFINE 18                                                              FTN5TXT     2064     A     
 FTN5TXT                                                                                   FTN5TXT     2065     A     
 FTN5TXT            REDEF  ATR                                                             FTN5TXT     2066     A     
 FTN5TXT            DEFINE 5                                                               FTN5TXT     2067     A     
 FTN5TXT   ARE      DEFINE             ALLOW UNSUBSCRIPTED ARRAY NAME                      FTN5TXT     2068     A     
 FTN5TXT   LEV3     DEFINE             ALLOW LEVEL 3 NAME                                  FTN5TXT     2069     A     
 FTN5TXT   COL      DEFINE             ALLOW COLON                                         FTN5TXT     2070     A     
 FTN5TXT   EQ       DEFINE             ALLOW *=*                                           FTN5TXT     2071     A     
 FTN5TXT   RP       DEFINE             INDICATE SPECIAL RIGHT PAREN PROCESSING             FTN5TXT     2072     A     
 FTN5TXT   EOS      DEFINE             ALLOW *EOS* TO UNSTACK LEFT PAREN                   FTN5TXT     2073     A     
 FTN5TXT   FUN      DEFINE             ALLOW FUNCTION REFERENCE WITHOUT *(*                FTN5TXT     2074     A     
 FTN5TXT                                                                                   FTN5TXT     2075     A     
 FTN5TXT                                                                                   FTN5TXT     2076     A     
 FTN5TXT            DESCRIBE  AC.,,,/PSTACK/ARGCOMA                                        FTN5TXT     2077     A     
 FTN5TXT                                                                                   FTN5TXT     2078     A     
 FTN5TXT                                                                                   FTN5TXT     2079     A     
 FTN5TXT  *                            -- WHEN PARSING ARRAY SUBSCRIPTS (C=ARRAY).         FTN5TXT     2080     A     
 FTN5TXT   VSUB     DEFINE 1           =1 IF ARRAY SUBSCR NOT CONST, =0 IF CONST           FTN5TXT     2081     A     
 FTN5TXT            DEFINE 5                                                               FTN5TXT     2082     A     
 FTN5TXT   SYM      DEFINE 18          T.SYM ORDINAL OF ARRAY                              FTN5TXT     2083     A     
 FTN5TXT   DIMI     DEFINE 18          T.DIM INDEX OF ARRAY                                FTN5TXT     2084     A     
 FTN5TXT   CNT      DEFINE 18          COUNT OF SUBSCR EXPR PARSED IN ARRAY REF            FTN5TXT     2085     A     
 FTN5TXT                                                                                   FTN5TXT     2086     A     
 FTN5TXT            REDEF              -- WHEN PARSING CALL OR FUNCTION ARG LIST,          FTN5TXT     2087     A     
 FTN5TXT                                  ( C=BIF, C=CALL, C=FUN ).                        FTN5TXT     2088          I
          -FC5A411
 FTN5TXT                                  ( C=CALL, C=FUN ).                               FC5A411       27     A     
 FTN5TXT            DEFINE 24                                                              FTN5TXT     2089     A     
 FTN5TXT   MODE     DEFINE 18                                                              FTN5TXT     2090     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT   CNT      DEFINE AC.CNTL     COUNT-1 OF ARGUMENTS                                FTN5TXT     2091     A     
 FTN5TXT                                                                                   FC5A411       28     A     
 FTN5TXT            REDEF              -- WHEN PARSING INTRINSIC ARG LIST.                 FC5A411       29     A     
 FTN5TXT   BOOL     DEFINE 1           =1 IF BOOLEAN ARGUMENT OCCURRED                     FC5A411       30     A     
 FTN5TXT            DEFINE 5                                                               FC5A411       31     A     
 FTN5TXT   MAXM     DEFINE 18          MAXIMUM ARGUMENT MODE                               FC5A411       32     A     
 FTN5TXT   MODE     DEFINE AC.MODEL    MODE OF INTRINSIC                                   FC5A411       33     A     
 FTN5TXT   CNT      DEFINE AC.CNTL     COUNT-1 OF ARGUMENTS                                FC5A411       34     A     
 FTN5TXT                                                                                   FTN5TXT     2092     A     
 FTN5TXT            REDEF              -- WHEN PARSING ST. FUNCT. ARGS.                    FTN5TXT     2093     A     
 FTN5TXT                                                                                   FTN5TXT     2094     A     
 FTN5TXT            DEFINE 24                                                              FTN5TXT     2095     A     
 FTN5TXT   EARG     DEFINE 18          ADDRESS OF ACTUAL ARG ON ESTACK                     FTN5TXT     2096     A     
 FTN5TXT   CNT      DEFINE AC.CNTL                                                         FTN5TXT     2097     A     
 FTN5TXT                                                                                   FTN5TXT     2098     A     
 FTN5TXT            REDEF              -- WHEN PARSING ST. FUNCT. BODY                     FTN5TXT     2099     A     
 FTN5TXT                                                                                   FTN5TXT     2100     A     
 FTN5TXT            DEFINE 42                                                              FTN5TXT     2101     A     
 FTN5TXT   TBR      DEFINE 18          B4 RESTORE                                          FTN5TXT     2102     A     
 FTN5TXT                                                                                   FTN5TXT     2103     A     
 FTN5TXT            REDEF              -- WHEN PARSING *DO* LOOP INDICES  ( C=DO )         FTN5TXT     2104     A     
 FTN5TXT            DEFINE 42          MUST CONTAIN ZERO  (SEE *PAR.PL*)                   FTN5TXT     2105     A     
 FTN5TXT   CNT      DEFINE AC.CNTL     *DO* PARAMETER INDEX  ( SEE *PAR/C=DO* )            FTN5TXT     2106     A     
 FTN5TXT                                                                                   FTN5TXT     2107     A     
 FTN5TXT            REDEF              -- WHEN PARSING CHARAC SUBSTRING  ( C=SBS )         FTN5TXT     2108     A     
 FTN5TXT            DEFINE 24                                                              FTN5TXT     2109     A     
 FTN5TXT   MODE     DEFINE AC.MODEL    MODE OF VARIABLE = M.CHAR                           FTN5TXT     2110     A     
 FTN5TXT            DEFINE AC.CNTL                                                         FTN5TXT     2111     A     
 FTN5TXT                                                                                   FTN5TXT     2112     A     
 FTN5TXT                                                                                   FTN5TXT     2113     A     
 FTN5TXT            DESCRIBE AS.,,,/PSTACK/ARGMISC                                         FTN5TXT     2114     A     
 FTN5TXT                                                                                   FTN5TXT     2115     A     
 FTN5TXT            REDEF              -- WHEN C=BIF --                                    FTN5TXT     2116     A     
 FTN5TXT   SYM      DEFINE 6*CHAR      NAME OF INTRINSIC                                   FTN5TXT     2117     A     
 FTN5TXT            DEFINE 1*CHAR                                                          FTN5TXT     2118     A     
 FTN5TXT   ORD      DEFINE 18          SYMTAB ORDINAL                                      FTN5TXT     2119     A     
 FTN5TXT            ERRMI  AS.ORDL-TP.ORDL                                                 FTN5TXT     2120     A     
 FTN5TXT                                                                                   FTN5TXT     2121     A     
 FTN5TXT            REDEF              -- WHEN PARSING ARRAY SUBSCRIPTS  (C=ARRAY)         FTN5TXT     2122     A     
 FTN5TXT   NAME     DEFINE WA.NAMEL    ARRAY NAME  ( -L- FORMAT )                          FTN5TXT     2123     A     
 FTN5TXT            DEFINE 60-WA.NAMEL MUST =0 FOR *PAR/A=ARRAY*, *FERRS/OSE*              FTN5TXT     2124     A     
 FTN5TXT   KW.      SPACE  4,10                                                            FTN5TXT     2125     A     
 FTN5TXT  **        KW. - STATEMENT *KEYW* TABLE STRUCTURE DEFINITIONS.                    FTN5TXT     2126     A     
 FTN5TXT  *                                                                                FTN5TXT     2127     A     
 FTN5TXT  *                                                                                FTN5TXT     2128     A     
 FTN5TXT  *         THE STATEMENT KEYWORD TABLE (DEFINED IN DECK *LEX* VIA                 FTN5TXT     2129     A     
 FTN5TXT  *         *KEYW* MACRO) CONTAINS INFORMATION THAT DEFINES ALL THE                FTN5TXT     2130     A     
 FTN5TXT  *         POSSIBLE TYPES OF STMTS THAT CAN OCCUR IN *FTN*, AND HOW               FTN5TXT     2131     A     
 FTN5TXT  *         CERTAIN STMT TYPES RELATE TO ONE ANOTHER.                              FTN5TXT     2132     A     
 FTN5TXT  *                                                                                FTN5TXT     2133     A     
 FTN5TXT  *         FIELDS WITHIN EACH INDIVIDUAL *KEYW* ENTRY ARE                         FTN5TXT     2134     A     
 FTN5TXT  *         DESCRIBE/DEFINED IN THE USUAL MANNER VIA SYMBOLS                       FTN5TXT     2135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *         OF THE FORM --                                                         FTN5TXT     2136     A     
 FTN5TXT  *                                                                                FTN5TXT     2137     A     
 FTN5TXT  *                KW.XXXL  AND  KW.XXXP                                           FTN5TXT     2138     A     
 FTN5TXT  *                                                                                FTN5TXT     2139     A     
 FTN5TXT  *         WHERE *KW.* IS A COMMON PREFIX AND *XXX* IS A UNIQUE FIELD             FTN5TXT     2140     A     
 FTN5TXT  *         NAME.                                                                  FTN5TXT     2141     A     
 FTN5TXT  *                                                                                FTN5TXT     2142     A     
 FTN5TXT  *         FIELDS *XXX* WITHIN *KW.* STRUCTURE ARE DESCRIBED BRIEFLY              FTN5TXT     2143     A     
 FTN5TXT  *         BELOW.  FOR MORE THOROUGH INFORMATION, SEE FTN KEYWORD                 FTN5TXT     2144     A     
 FTN5TXT  *         TABLE DEFINITION IN DECK *LEX* (AT ADDR *FW.KEYW*).                    FTN5TXT     2145     A     
 FTN5TXT  *                                                                                FTN5TXT     2146     A     
 FTN5TXT  *         KEY  = ADDR OF *LITKEY* LITERAL STRING FOR THIS KEYWORD.               FTN5TXT     2147     A     
 FTN5TXT  *                                                                                FTN5TXT     2148     A     
 FTN5TXT  *                NOTE THAT FOR SYNTACTICALLY DEFINED STMTS SUCH AS               FTN5TXT     2149     A     
 FTN5TXT  *                *DO*, *IF*, AND REPLACEMENT, THAT A KEYWORD SEARCH              FTN5TXT     2150     A     
 FTN5TXT  *                IS MEANINGLESS.  THEREFORE, THE *KEY* FIELD IS SET TO           FTN5TXT     2151     A     
 FTN5TXT  *                .MI. SO THAT INTERESTED PARTIES CAN KNOW THAT THIS IS           FTN5TXT     2152     A     
 FTN5TXT  *                A SYNTACTICALLY DEFINED STMT.                                   FTN5TXT     2153     A     
 FTN5TXT  *                                                                                FTN5TXT     2154     A     
 FTN5TXT  *         JMP  = ADDR OF THE STMT PROCESSOR THAT IS TO PROCESS A STMT            FTN5TXT     2155     A     
 FTN5TXT  *                DEFINED BY THIS *KEYW* ENTRY.                                   FTN5TXT     2156     A     
 FTN5TXT  *                                                                                FTN5TXT     2157     A     
 FTN5TXT  *         FEC  = *FEC* (FRONT END CONTROLLER) STAGE THAT A STMT                  FTN5TXT     2158     A     
 FTN5TXT  *                WITH THIS *KEYW* ENTRY CAN OCCUR IN.                            FTN5TXT     2159     A     
 FTN5TXT  *                                                                                FTN5TXT     2160     A     
 FTN5TXT  *         INFO = SPECIAL INFORMATION FIELD FOR REFERENCES TO A *SUBKEY*          FTN5TXT     2161     A     
 FTN5TXT  *                KEYWORD TABLE.  THIS FIELD COEXISTS (DEQU) WITH THE             FTN5TXT     2162     A     
 FTN5TXT  *                *JMP* FIELD, AND IS INTENDED FOR USE BY KEYWORD                 FTN5TXT     2163     A     
 FTN5TXT  *                PROCESSORS THAT REQUIRE MORE CONTROL OVER WHAT WE               FTN5TXT     2164     A     
 FTN5TXT  *                WILL CALL THE *KEYWORD TYPE*.                                   FTN5TXT     2165     A     
 FTN5TXT  *                                                                                FTN5TXT     2166     A     
 FTN5TXT  *         ATTR = ATTRIBUTES OF THIS STATEMENT.  *ATTR* FIELD CONSISTS            FTN5TXT     2167     A     
 FTN5TXT  *                OF A NUMBER OF BIT FLAGS THAT CONTAIN MISCELLANEOUS             FTN5TXT     2168     A     
 FTN5TXT  *                INFORMATION ABOUT THIS STMT.  SEE BELOW.                        FTN5TXT     2169     A     
 FTN5TXT  *                                                                                FTN5TXT     2170     A     
 FTN5TXT  *                                                                                FTN5TXT     2171     A     
 FTN5TXT  *         *ATTR* BIT FLAGS ARE --                                                FTN5TXT     2172     A     
 FTN5TXT  *                                                                                FTN5TXT     2173     A     
 FTN5TXT  *         DON  = 1 IF THIS STMT MAY NOT BE A *DO* TERMINAL, ELSE 0.              FTN5TXT     2174     A     
 FTN5TXT  *                                                                                FTN5TXT     2175     A     
 FTN5TXT  *         NIF  = 1 IF THIS STMT MAY NOT BE THE OBJECT OF A LOGICAL               FTN5TXT     2176     A     
 FTN5TXT  *                  *IF*, ELSE 0.                                                 FTN5TXT     2177     A     
 FTN5TXT  *                                                                                FTN5TXT     2178     A     
 FTN5TXT  *         LBL  = 1 IF THIS STMT MAY HAVE A REFERRABLE LABEL, ELSE 0.             FTN5TXT     2179     A     
 FTN5TXT  *                                                                                FTN5TXT     2180     A     
 FTN5TXT  *         GEN  = 1 IF THIS STMT GENERATES CODE, ELSE 0.                          FTN5TXT     2181     A     
 FTN5TXT  *                                                                                FTN5TXT     2182     A     
 FTN5TXT  *         BKD  = 1 IF THIS STMT IS LEGAL WITH A *BLOCKDATA*                      FTN5TXT     2183     A     
 FTN5TXT  *                  SUBPROGRAM, ELSE 0.                                           FTN5TXT     2184     A     
 FTN5TXT  *                                                                                FTN5TXT     2185     A     
 FTN5TXT  *         PWS  = 1 IF THIS STMT IS TO BE PROCESSED WHILE SKIPPING,               FTN5TXT     2186     A     
 FTN5TXT  *                  (STAGE = FEC=BY), ELSE 0.                                     FTN5TXT     2187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *                                                                                FTN5TXT     2188     A     
 FTN5TXT  *         IL   = 1 IF THIS STMT HAS IMPLIED LABEL (NOPATH INVALID),              FTN5TXT     2189     A     
 FTN5TXT  *                  ELSE 0.                                                       FTN5TXT     2190     A     
 FTN5TXT  *                                                                                FC50785        7     A     
 FTN5TXT  *         NBS  = 1 IF THIS STMT GENERATES TURPLES AND NO BOS IS TO BE            FC50785        8     A     
 FTN5TXT  *                  OUTPUT.  RELEVANT ONLY WHEN GEN=1.                            FC50785        9     A     
 FTN5TXT                                                                                   FTN5TXT     2191     A     
 FTN5TXT            DESCRIBE KW.                                                           FTN5TXT     2192     A     
 FTN5TXT   JMP      DEFINE 18                                                              FTN5TXT     2193     A     
 FTN5TXT   INFO     DEQU   JMP                                                             FTN5TXT     2194     A     
 FTN5TXT   ATTR     DEFINE 12                                                              FTN5TXT     2195     A     
 FTN5TXT   FEC      DEFINE 5                                                               FTN5TXT     2196     A     
 FTN5TXT   LEN      DEFINE 7                                                               FTN5TXT     2197     A     
 FTN5TXT   KEY      DEFINE 18                                                              FTN5TXT     2198     A     
 FTN5TXT                                                                                   FTN5TXT     2199     A     
 FTN5TXT            REDEF  ATTR                                                            FTN5TXT     2200     A     
 FTN5TXT   DON      DEFINE 1                                                               FTN5TXT     2201     A     
 FTN5TXT   NIF      DEFINE 1                                                               FTN5TXT     2202     A     
 FTN5TXT   LBL      DEFINE 1                                                               FTN5TXT     2203     A     
 FTN5TXT   GEN      DEFINE 1                                                               FTN5TXT     2204     A     
 FTN5TXT   BKD      DEFINE 1                                                               FTN5TXT     2205     A     
 FTN5TXT   PWS      DEFINE 1                                                               FTN5TXT     2206     A     
 FTN5TXT   IL       DEFINE 1                                                               FTN5TXT     2207     A     
 FTN5TXT   NBS      DEFINE 1                                                               FC50785       10     A     
 FTN5TXT   LF.      SPACE  4,10                                                            FTN5TXT     2208     A     
 FTN5TXT  **        LF. - *LEXFLG* FIELD DEFINITIONS.                                      FTN5TXT     2209     A     
 FTN5TXT  *                                                                                FTN5TXT     2210     A     
 FTN5TXT  *                                                                                FTN5TXT     2211     A     
 FTN5TXT  *         *LF.* SYMBOLS DEFINE FIELDS WITHIN *LEXFLG*, THE LEXICAL               FTN5TXT     2212     A     
 FTN5TXT  *         SCANNER MASTER CONTROL FLAG.  SEE *LEXFLG* IN DECK *LEX*.              FTN5TXT     2213     A     
 FTN5TXT  *                                                                                FTN5TXT     2214     A     
 FTN5TXT  *         FIELDS WITHIN *LEXFLG* ARE DESCRIBE/DEFINED VIA SYMBOLS                FTN5TXT     2215     A     
 FTN5TXT  *         OF THE FORM --                                                         FTN5TXT     2216     A     
 FTN5TXT  *                                                                                FTN5TXT     2217     A     
 FTN5TXT  *                LF.XXXP  AND  LF.XXXL                                           FTN5TXT     2218     A     
 FTN5TXT  *                                                                                FTN5TXT     2219     A     
 FTN5TXT  *         SEE *LEXFLG* IN DECK *LEX* FOR A DESCRIPTION OF *LF.*                  FTN5TXT     2220     A     
 FTN5TXT  *         FIELDS.                                                                FTN5TXT     2221     A     
 FTN5TXT                                                                                   FTN5TXT     2222     A     
 FTN5TXT                                                                                   FTN5TXT     2223     A     
 FTN5TXT            DESCRIBE LF.                                                           FTN5TXT     2224     A     
 FTN5TXT   HDR      DEFINE 1                                                               FTN5TXT     2225     A     
 FTN5TXT            DEFINE 2                                                               FTN5TXT     2226     A     
 FTN5TXT   INI      DEFINE 1                                                               FTN5TXT     2227     A     
 FTN5TXT            DEFINE 2                                                               FTN5TXT     2228     A     
 FTN5TXT   LAC      DEFINE 1                                                               FTN5TXT     2229     A     
 FTN5TXT            DEFINE 2                                                               FTN5TXT     2230     A     
 FTN5TXT   CHR      DEFINE 1           'CHARACTER *' FLAG                                  FTN5TXT     2231     A     
 FTN5TXT            DEFINE 2                                                               FTN5TXT     2232     A     
 FTN5TXT   QAC      DEFINE 1           QUOTE STRING ACTIVE FLAG                            FTN5TXT     2233          I
          -FC5A110
 FTN5TXT   TDE      DEFINE 1           TERMINAL DELIMITER ENCOUNTERED                      FC5A110        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT            DEFINE 2                                                               FTN5TXT     2234     A     
 FTN5TXT   FMT      DEFINE 1           FORMAT STATEMENT FLAG                               FTN5TXT     2235     A     
 FTN5TXT   LM.      SPACE  4,10                                                            FTN5TXT     2236     A     
 FTN5TXT  **        LM. - *LEXMODE* SYMBOL DEFINITIONS.                                    FTN5TXT     2237     A     
 FTN5TXT  *                                                                                FTN5TXT     2238     A     
 FTN5TXT  *                                                                                FTN5TXT     2239     A     
 FTN5TXT  *         *LM.* SYMBOLS DEFINE THE VARIOUS MODES THAT THE LEXICAL                FTN5TXT     2240     A     
 FTN5TXT  *         SCANNER, *LEX*, MAY BE PLACED IN.  A DESCRIPTION OF THESE              FTN5TXT     2241     A     
 FTN5TXT  *         MODES IS CONTAINED IN THE DECK *LEX*, AS IT WAS THOUGHT TO             FTN5TXT     2242     A     
 FTN5TXT  *         BE MORE APPROPRIATE/USEFUL PLACED THERE.                               FTN5TXT     2243     A     
 FTN5TXT                                                                                   FTN5TXT     2244     A     
 FTN5TXT                                                                                   FTN5TXT     2245     A     
 FTN5TXT   LM.NORM  =      0           *NORMAL* MODE                                       FTN5TXT     2246     A     
 FTN5TXT   LM.NTR   =      1           *NEED TO READ* MODE                                 FTN5TXT     2247     A     
 FTN5TXT   LM.1ST   =      2           *1ST LINE IN PROGRAM UNIT* MODE                     FTN5TXT     2248     A     
 FTN5TXT   SF.      SPACE  4,10                                                            FTN5TXT     2249     A     
 FTN5TXT  **        SF. - FORMAT OF STATEMENT FUNCTION HEADER.                             FTN5TXT     2250     A     
 FTN5TXT                                                                                   FTN5TXT     2251     A     
 FTN5TXT                                                                                   FTN5TXT     2252     A     
 FTN5TXT            DESCRIBE SF.                                                           FTN5TXT     2253     A     
 FTN5TXT            DEFINE 24                                                              FTN5TXT     2254          I
          -FC5A172
 FTN5TXT            DEFINE 6                                                               FC5A172        7     A     
 FTN5TXT   PEAR     DEFINE 18          PREVIOUS ELIST BASE FOR ACTUAL ARGS.                FTN5TXT     2255     A     
 FTN5TXT   DACP     DEFINE 18          DUMMY ARGUMENT REF. CHAIN HEAD                      FTN5TXT     2256     A     
 FTN5TXT   TOK      DEFINE 18          DUMMY TOKEN FOR PAR                                 FC5A172        8     A     
 FTN5TXT   VS.      SPACE  4,10                                                            FTN5TXT     2257     A     
 FTN5TXT  **        VS. - FORMAT OF SKELETON CONTROL TABLE.                                FTN5TXT     2258     A     
 FTN5TXT                                                                                   FTN5TXT     2259     A     
 FTN5TXT                                                                                   FTN5TXT     2260     A     
 FTN5TXT            DESCRIBE VS.                                                           FTN5TXT     2261     A     
 FTN5TXT                                                                                   FTN5TXT     2262     A     
 FTN5TXT   NKIL     DEFINE             TURPLE NOT KILLABLE IN QCGC/*KUT*                   FTN5TXT     2263     A     
 FTN5TXT   1DUC     DEFINE             USE COUNT 1OP                                       FTN5TXT     2264     A     
 FTN5TXT   2DUC     DEFINE             USE COUNT 2OP                                       FTN5TXT     2265     A     
 FTN5TXT            DEFINE 3                                                               FTN5TXT     2266     A     
 FTN5TXT   SBI      DEFINE 18          SKELETON START INDEX (U=)                           FTN5TXT     2267     A     
 FTN5TXT   DRA      DEFINE 18          DATA REDUCTION ADDRESS                              FTN5TXT     2268     A     
 FTN5TXT   CRA      DEFINE 18          CONSTANT REDUCTION ADDRESS (U=)                     FTN5TXT     2269     A     
 FTN5TXT   IT.      SPACE  4,30                                                            FTN5TXT     2270     A     
 FTN5TXT  ***       IT. - INTRINSIC FUNCTION DEFINITION.                                   FTN5TXT     2271     A     
 FTN5TXT  *                                                                                FTN5TXT     2272     A     
 FTN5TXT  *         TABLE INCLUDES BOTH INLINE AND EXTERNAL INTRINSICS.                    FTN5TXT     2273     A     
 FTN5TXT  *         THERE IS ONE WORD PER NAME, IN (IT.) FORMAT --                         FTN5TXT     2274     A     
 FTN5TXT  *                                                                                FTN5TXT     2275     A     
 FTN5TXT  *         +-----------------------------------+------+---+-------+--+--+         FTN5TXT     2276          I
          -FC5A227
 FTN5TXT  *         +                                   +   A  + A +       +A + M+         FTN5TXT     2277          I
          -FC5A227
 FTN5TXT  *         +    F U N C T I O N     N A M E    +   T  + R + WHERE +R + O+         FTN5TXT     2278          I
          -FC5A227
 FTN5TXT  *         +                                   +   R  + G +       +G + D+         FTN5TXT     2279          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
          -FC5A227
 FTN5TXT  *         +          ( IN  DPC )              + NGXAP+ C +       +M + E+         FTN5TXT     2280          I
          -FC5A227
 FTN5TXT  *         +-----------------------------------+------+---+-------+--+--+         FTN5TXT     2281          I
          -FC5A227
 FTN5TXT  *         +             36                    +   6  + 4 +   8   + 3+ 3+         FTN5TXT     2282          I
          -FC5A227
 FTN5TXT  *         +----------------------------------+-------+---+-------+--+--+         FC5A227       49     A     
 FTN5TXT  *         +                                  +   A   + A +       +A + M+         FC5A227       50     A     
 FTN5TXT  *         +    F U N C T I O N     N A M E   +   T   + R +  JPAD +R + O+         FC5A227       51     A     
 FTN5TXT  *         +                                  +       + G +       +G + D+         FC5A227       52     A     
 FTN5TXT  *         +                                  +OCNGXAP+ C +       +M + E+         FC5A227       53     A     
 FTN5TXT  *         +----------------------------------+-------+---+-------+--+--+         FC5A227       54     A     
 FTN5TXT  *                        36                      7     3     8    3  3           FC5A227       55     A     
 FTN5TXT  *                                                                                FTN5TXT     2283     A     
 FTN5TXT  *         (NAME) = NAME OF FUNCTION (-L- FORMAT).                                FTN5TXT     2284     A     
 FTN5TXT  *         (ATTR) =  1/ 0,  1/ N,  1/ G,  1/ X,  1/ A,  1/ P                      FTN5TXT     2285          I
          -FC5A227
 FTN5TXT  *         (AT)   = 1/O, 1/C, 1/N, 1/G, 1/X, 1/A, 1/P                             FC5A227       56     A     
 FTN5TXT  *                O = GENERIC INTRINSIC ONLY                                      FC5A227       57     A     
 FTN5TXT  *                C = CHARACTER INTRINSIC (SUFFIX DEPENDING ON COLLATE)           FC5A227       58     A     
 FTN5TXT  *                N = ALWAYS CALL-BY-NAME                                         FTN5TXT     2286     A     
 FTN5TXT  *                G = GENERIC NAME.                                               FTN5TXT     2287     A     
 FTN5TXT  *                X = EXTERNAL INTRINSIC.                                         FTN5TXT     2288     A     
 FTN5TXT  *                A = DEFINED IN ANS FORTRAN.                                     FTN5TXT     2289     A     
 FTN5TXT  *                P = PARSER HAS SPECIAL PROCESSING.                              FTN5TXT     2290     A     
 FTN5TXT  *         (WHERE) = WHERE FUNCTION IS DESCRIBED -- DEPENDS ON (ATTR).            FTN5TXT     2291          I
          -FC5A227
 FTN5TXT  *         (ARGC) = NUMBER OF ARGUMENTS REQUIRED.                                 FC5A227       59     A     
 FTN5TXT  *                  OMITTED IF INDETERMINATE ( 0 MEANS NO ARGUMENTS).             FC5A227       60     A     
 FTN5TXT  *         (JPAD) = HOW (WHERE) FUNCTION IS DESCRIBED.  DEPENDS ON (AT).          FC5A227       61     A     
 FTN5TXT  *                P -- INDEX OF PROCESSOR IN PARSER.                              FTN5TXT     2292     A     
 FTN5TXT  *                G -- INDEX OF DMOD VECTOR               (UNLESS *P*).           FTN5TXT     2293     A     
 FTN5TXT  *                X -- B REGS PRESERVED             (UNLESS *G* OR *P*).          FTN5TXT     2294     A     
 FTN5TXT  *         (ARGM) = REQUIRED MODE OF ARGUMENT.                                    FTN5TXT     2295     A     
 FTN5TXT  *         (NOARGS) = NUMBER OF ARGUMENTS.                                        FTN5TXT     2296          I
          -FC5A227
 FTN5TXT  *                  OMITTED IF INDETERMINATE.                                     FTN5TXT     2297          I
          -FC5A227
 FTN5TXT  *                  .ZR. MEANS ZERO ARGUMENTS.                                    FTN5TXT     2298          I
          -FC5A227
 FTN5TXT  *         (MODE) = RESULT MODE OF SPECIFIC FUNCTION.                             FTN5TXT     2299     A     
 FTN5TXT  *                                                                                FTN5TXT     2300     A     
 FTN5TXT  *         NAMES WHICH ARE GENERIC ONLY (THAT IS, A NAME WHICH IS NOT             FTN5TXT     2301          I
          -FC5A227
 FTN5TXT  *         ALSO A SPECIFIC NAME), ARE SPECIFIED AS 'EXTBF' SO AS NOT              FTN5TXT     2302          I
          -FC5A227
 FTN5TXT  *         TO REFER TO A NON-EXISTANT SKELETON.                                   FTN5TXT     2303          I
          -FC5A227
 FTN5TXT  *         A GENERIC FUNCTION HAS A SELECTOR WORD INSERTED IN THIS                FTN5TXT     2304     A     
 FTN5TXT  *         TABLE IMMEDIATELY FOLLOWING ITS ENTRY.                                 FTN5TXT     2305     A     
 FTN5TXT  *                                                                                FTN5TXT     2306     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
 FTN5TXT  *         THE TABLE ITSELF IS LOCATED IN PARSKEL.                                FTN5TXT     2307     A     
 FTN5TXT                                                                                   FTN5TXT     2308     A     
 FTN5TXT                                                                                   FTN5TXT     2309     A     
 FTN5TXT            DESCRIBE IT.                                                           FTN5TXT     2310     A     
 FTN5TXT                                                                                   FTN5TXT     2311     A     
 FTN5TXT   DPC      DEFINE 6*6         NAME OF FUNCTION                                    FTN5TXT     2312     A     
 FTN5TXT   ATTR     DEFINE 6           ATTRIBUTES OF FUNCTION   (SEE BELOW)                FTN5TXT     2313          I
          -FC5A227
 FTN5TXT   ARGC     DEFINE 4           REQUIRED NUMBER OF ARGS (-0 => INFINITY)            FTN5TXT     2314          I
          -FC5A227
 FTN5TXT   ATTR     DEFINE 7           ATTRIBUTES OF FUNCTION  (SEE BELOW)                 FC5A227       62     A     
 FTN5TXT   ARGC     DEFINE 3           REQUIRED NUMBER OF ARGUMENTS (-0 = INDEF)           FC5A227       63     A     
 FTN5TXT   JPAD     DEFINE 8           WHERE FUNC IS DEFINED                               FTN5TXT     2315     A     
 FTN5TXT   ARGM     DEFINE WB.MODEL    REQUIRED MODE OF ARGS                               FTN5TXT     2316     A     
 FTN5TXT   MODE     DEFINE WB.MODEL    RESULT MODE OF FUNCTION                             FTN5TXT     2317     A     
 FTN5TXT                                                                                   FTN5TXT     2318     A     
 FTN5TXT                                                                                   FTN5TXT     2319     A     
 FTN5TXT            REDEF  ATTR                                                            FTN5TXT     2320     A     
 FTN5TXT   GNO      DEFINE             GENERIC ONLY                                        FC5A227       64     A     
 FTN5TXT   CHAR     DEFINE             CHAR OR ICHAR (SUFFIX F IFF COLLATE=FIXED)          FTN5TXT     2321     A     
 FTN5TXT   BYN      DEFINE             ALWAYS CALL-BY-NAME                                 FTN5TXT     2322     A     
 FTN5TXT   GENF     DEFINE             GENERIC NAME                                        FTN5TXT     2323     A     
 FTN5TXT   XTER     DEFINE             EXTERNAL INTRINSIC                                  FTN5TXT     2324     A     
 FTN5TXT   ANSI     DEFINE             DEFINED IN ANS FORTRAN                              FTN5TXT     2325     A     
 FTN5TXT   PAR      DEFINE             PARSER HAS SPECIAL PROCESSING                       FTN5TXT     2326     A     
 FTN5TXT   INTF=    SPACE  4,10                                                            FTN5TXT     2327          I
          -FC5A227
 FTN5TXT  **        INTF= - MACRO TO CREATE INTRINSIC TABLE ENTRY.                         FTN5TXT     2328          I
          -FC5A227
 FTN5TXT  *                                                                                FTN5TXT     2329          I
          -FC5A227
 FTN5TXT  *         ENTRY  ".D" = (IT.JPAD) FIELD.                                         FTN5TXT     2330          I
          -FC5A227
 FTN5TXT  *                .A = PRESET FLAGS FOR (IT.ATTR).                                FTN5TXT     2331          I
          -FC5A227
 FTN5TXT                                                                                   FTN5TXT     2332          I
          -FC5A227
 FTN5TXT                                                                                   FTN5TXT     2333          I
          -FC5A227
 FTN5TXT   INTF=    MACRO  NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                                 FTN5TXT     2334          I
          -FC5A227
 FTN5TXT   .A       SET    2                                                               FTN5TXT     2335          I
          -FC5A227
 FTN5TXT   .B       SET    NOARGS                                                          FTN5TXT     2336          I
          -FC5A227
 FTN5TXT            IFC    EQ, NOARGS  ,1                                                  FTN5TXT     2337          I
          -FC5A227
 FTN5TXT   .B       SET    -0                                                              FTN5TXT     2338          I
          -FC5A227
 FTN5TXT  *                                                                                FTN5TXT     2339          I
          -FC5A227
 FTN5TXT            IRP    FLAGS                                                           FTN5TXT     2340          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
          -FC5A227
 FTN5TXT   .E       MICRO  1,3,/FLAGS/                                                     FTN5TXT     2341          I
          -FC5A227
 FTN5TXT   .G       SET    7777B                                                           FTN5TXT     2342          I
          -FC5A227
 FTN5TXT   .1       ECHO   ,KY=(,PAR,NON,NAN,EXT,GEN,BYN,CHA),VL=(,1,-2,-2,4,_____         FTN5TXT     2343          I
          -FC5A227
 FTN5TXT  ,1S3,1S4,1S5)                                                                    FTN5TXT     2344          I
          -FC5A227
 FTN5TXT            IFC    EQ,/".E"/KY/,2                                                  FTN5TXT     2345          I
          -FC5A227
 FTN5TXT   .G       SET    VL                                                              FTN5TXT     2346          I
          -FC5A227
 FTN5TXT   .1       STOPDUP                                                                FTN5TXT     2347          I
          -FC5A227
 FTN5TXT   .1       ENDD                                                                   FTN5TXT     2348          I
          -FC5A227
 FTN5TXT            IFNE   .G,7777B,2                                                      FTN5TXT     2349          I
          -FC5A227
 FTN5TXT   .A       SET    .A+.G                                                           FTN5TXT     2350          I
          -FC5A227
 FTN5TXT            SKIP   1                                                               FTN5TXT     2351          I
          -FC5A227
 FTN5TXT            ERR    NAME (FLAGS) ILLEGAL FLAG. ____________________________         FTN5TXT     2352          I
          -FC5A227
 FTN5TXT            IRP                                                                    FTN5TXT     2353          I
          -FC5A227
 FTN5TXT  *                                                                                FTN5TXT     2354          I
          -FC5A227
 FTN5TXT   .C       MICRO  1,,$NAME$                                                       FTN5TXT     2355          I
          -FC5A227
 FTN5TXT            VFD    IT.DPCL/0L".C",6/.A,4/.B,8/".D",3/M.ARGTYP,3/M.FUNTYP           FTN5TXT     2356          I
          -FC5A227
 FTN5TXT  *                                                                                FTN5TXT     2357          I
          -FC5A227
 FTN5TXT  *                            RESERVE SLOT FOR GENERIC MODE SELECTOR              FTN5TXT     2358          I
          -FC5A227
 FTN5TXT   .G       SET    .A/1S3                                                          FTN5TXT     2359          I
          -FC5A227
 FTN5TXT            BSS    .G-.G/2*2                                                       FTN5TXT     2360          I
          -FC5A227
 FTN5TXT   INTF=    ENDM                                                                   FTN5TXT     2361          I
          -FC5A227
 FTN5TXT                                                                                   FTN5TXT     2362          I
          -FC5A227
 FTN5TXT                                                                                   FTN5TXT     2363          I
          -FC5A227
 FTN5TXT            SPACE  4,10                                                            FC5A227       65     A     
 FTN5TXT            END                                                                    FTN5TXT     2364     A     
 FTN5TXT  *DECK     CWEOR1                                                                 CWEOR1         1          I
          -FC5A370
 FTN5TXT  *CWEOR    0                  (1)  END OF FTN5TXT.                                CWEOR1         2          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN5TXT 
  
          -FC5A370
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTN5TXT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTN5TXT                   2364      2233
          CWEOR1                       2         0
          FC5A108                      1         0
          FC5A110                      1         1
          FC5A111                      1         1
          FC5A119                      2         2
          FC5A127                      8         8
          FC5A128                     62        61
          FC5A132                      3         3
          FC5A141                     12        12
          FC5A156                      2         2
          FC5A158A                     1         1
          FC5A172                      4         2
          FC5A183                      1         1
          FC5A184                      1         1
          F1037F5                     22        22
          FC5A211                      1         1
          FC5A227                     51        51
          FC5A231                     11        11
          FC5A258                      4         4
          FC50104                     33        33
          FC5A348                      6         6
          FC50299                      7         7
          FC50336                      1         1
          FC50451                      1         1
          FC50514                      1         1
          FC5A411                      8         8
          FC50757                      1         1
          FC50785                      4         4
          FC51075                      1         1
          FC51356                      3         3
          FC51485                      2         2
          FC51501                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR1*  
  
 WEOR1*   *DECK WEOR1*                                                                     FC5A370        8     A     
 WEOR1*   *WEOR 0   (1)  END OF FTN5TXT.                                                   FC5A370        9     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR1*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A370                      2         2
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *FTN*   
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *FTN*   
  
 *FTN*    *DECK     *FTN*,COMPASS                                                          *FTN*          1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *FTN*   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *FTN*                        1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *DECK     FTN                FTN5 MAIN OVERLAY                                   FTN            1     A     
 FTN                IDENT  FTN                                                             FTN            2     A     
 FTN       FTN      SECT   (GLOBAL CELLS AND SYSTEM INTERFACE.)                            FTN            3     A     
 FTN       FORTRAN  SPACE  4,10                                                            FTN            4     A     
 FTN      ***       FORTRAN EXTENDED COMPILER - VERSION 5.                                 FTN            5     A     
 FTN      *                                                                                FTN            6     A     
 FTN      *         BASED ON ANSI X3.9-1978 FORTRAN.                                       FTN            7     A     
 FTN      *                                                                                FTN            8     A     
 FTN      *         CONTROL DATA  PROPRIETARY PRODUCT.                                     FTN            9     A     
 FTN      *         COPYRIGHT CONTROL DATA CORP, 1979.                                     FTN           10          I
          -FC5*80 
 FTN      *         COPYRIGHT CONTROL DATA CORP, 1979, 1980.                               FC5*80         4          I
          -FC5*81 
 FTN      *         COPYRIGHT CONTROL DATA CORP. 1979, 1980, 1981.                         FC5*81         4          I
          -FC5*82 
 FTN      *         COPYRIGHT CONTROL DATA CORP. 1979, 1980, 1981, 1982.                   FC5*82         4     A     
 FTN       FTN      SPACE  4                                                               FTN           11     A     
 FTN      ***       FTN - 0.0 OVERLAY OF THE FORTRAN EXTENDED COMPILER                     FTN           12     A     
 FTN      *                                                                                FTN           13     A     
 FTN      *         CONTENTS                                                               FTN           14     A     
 FTN      *                COMPILER INSTALLATION PARAMETERS                                FTN           15     A     
 FTN      *                INTERMIXED COMPASS COMMUNICATION CELLS                          FTN           16     A     
 FTN      *                SYSTEM INTERFACE SUBROUTINES                                    FTN           17     A     
 FTN      *                FILE MANAGEMENT TABLES                                          FTN           18     A     
 FTN      *                COMPILER GLOBAL CELLS                                           FTN           19     A     
 FTN      *                CONTROL STATEMENT OPTION CELLS                                  FTN           20     A     
 FTN      *                COMPILER OVERLAY LOADER                                         FTN           21     A     
 FTN      *                COMPILER TERMINATION ROUTINES                                   FTN           22     A     
 FTN       OPTIONS  TITLE  COMPILER INSTALLATION PARAMETERS                                FTN           23     A     
 FTN      ***       COMPILER INSTALLATION PARAMETERS.                                      FTN           24     A     
 FTN      *                                                                                FTN           25     A     
 FTN      *         THE FOLLOWING OPTIONS MAY BE CHANGED TO MEET INSTALLATION              FTN           26     A     
 FTN      *         NEEDS.  THEY ARE LOCATED HERE (RATHER THAN IN THE *OPTIONS*            FTN           27     A     
 FTN      *         COMDECK) TO REDUCE THE SIZE OF THE GLOBAL ASSEMBLY TEXT                FTN           28     A     
 FTN      *         *FTN5TXT* AND MINIMIZE THE FIELD LENGTH NEEDED FOR ASSEMBLY.           FTN           29     A     
 FTN       CONFIG   SPACE  4,10                                                            FTN           30     A     
 FTN      ***       COMPILER CONFIGURATION.                                                FTN           31     A     
 FTN      *                                                                                FTN           32     A     
 FTN      *                                                                                FTN           33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         FTN CAN BE ASSEMBLED IN A *SYSTEM* OR A *TEST* CONFIGURATION.          FTN           34     A     
 FTN      *                                                                                FTN           35     A     
 FTN      *         THE SYSTEM CONFIGURATION IS STANDARD, AND IS INTENDED FOR              FTN           36     A     
 FTN      *         CUSTOMER INSTALLATION.                                                 FTN           37     A     
 FTN      *                                                                                FTN           38     A     
 FTN      *         THE TEST CONFIGURATION IS INTENDED FOR COMPILER INTERNAL               FTN           39     A     
 FTN      *         DEBUGGING.  IT IS NOT STRUCTURED FOR SYSTEM INSTALLATION,              FTN           40     A     
 FTN      *         REQUIRES MORE FIELD LENGTH, AND COMPILES MORE SLOWLY IN THIS           FTN           41     A     
 FTN      *         MODE.  THUS, IT IS NEITHER SUITED TO NOR INTENDED FOR USE BY           FTN           42     A     
 FTN      *         CUSTOMERS.  CONTROL DATA CORP. WILL NOT BE RESPONSIBLE FOR             FTN           43     A     
 FTN      *         DEFICIENCIES IN TEST MODE COMPILER PERFORMANCE.                        FTN           44     A     
 FTN      *                                                                                FTN           45     A     
 FTN      *         COMPILER CONFIGURATION IS CONTROLLED BY THE DEFINITION OR              FTN           46     A     
 FTN      *         UNDEFINITION OF THE *UPDATE* SYMBOL *TESTFTN* AT COMPILER              FTN           47     A     
 FTN      *         INSTALLATION TIME.  NON-STANDARD PROCEDURES ARE NECESSARY FOR          FTN           48     A     
 FTN      *         INSTALLATION IN THE TEST CONFIGURATION.                                FTN           49     A     
 FTN       OPTIONS   SPACE 4,10                                                            FTN           50     A     
 FTN      ***       FTN CONTROL STATEMENT.                                                 FTN           51     A     
 FTN      *                                                                                FTN           52     A     
 FTN      *                                                                                FTN           53     A     
 FTN      *                                                                                FTN           54     A     
 FTN      *  THE  FTN CONTROL STATEMENT CONFORMS TO OPERATING SYSTEM REQUIREMENTS          FTN           55     A     
 FTN      *  FOR CONTROL STATEMENTS, HAVING  THE  KEYWORD  FTN  AND  AN  OPTIONAL          FTN           56     A     
 FTN      *  PARAMETER LIST.                                                               FTN           57     A     
 FTN      *                                                                                FTN           58     A     
 FTN      *         TERMINOLOGY                                                            FTN           59     A     
 FTN      *                                                                                FTN           60     A     
 FTN      *         -  PARAMETER   -  THE  KEYWORD  USED  IN  SPECIFYING  CONTROL          FTN           61     A     
 FTN      *            STATEMENT INFORMATION.                                              FTN           62     A     
 FTN      *                                                                                FTN           63     A     
 FTN      *         -  OPTION - ONE OF A SET OF VALUES ASSIGNED TO A PARAMETER.            FTN           64     A     
 FTN      *                                                                                FTN           65     A     
 FTN      *         -  FIRST DEFAULT (ABBREVIATED FD) - THE  DEFAULT  VALUE  USED          FTN           66     A     
 FTN      *            FOR  A PARAMETER WHEN THE PARAMETER DOES NOT APPEAR IN THE          FTN           67     A     
 FTN      *            CONTROL STATEMENT.  IT IS INSTALLATION CHANGEABLE.                  FTN           68     A     
 FTN      *                                                                                FTN           69     A     
 FTN      *         -  SECOND DEFAULT (ABBREVIATED SD) - THE DEFAULT  VALUE  USED          FTN           70     A     
 FTN      *            FOR  A  PARAMETER  WHEN  ONLY THE KEYWORD APPEARS ON THE            FTN           71     A     
 FTN      *            CONTROL STATEMENT.  IT IS NOT INSTALLATION CHANGEABLE.              FTN           72     A     
 FTN      *                                                                                FTN           73     A     
 FTN      *         -  INITIAL VALUE  (ABBREVIATED  IV)  -  THE  VALUE  INITIALLY          FTN           74     A     
 FTN      *            ASSIGNED TO A MULTIPLE BINARY VALUE PARAMETER (SEE BELOW).          FTN           75     A     
 FTN      *            IT IS INSTALLATION CHANGEABLE.                                      FTN           76     A     
 FTN      *                                                                                FTN           77     A     
 FTN      *         TYPES OF PARAMETERS                                                    FTN           78     A     
 FTN      *                                                                                FTN           79     A     
 FTN      *         THE CONTROL STATEMENT MAY CONTAIN THREE TYPES OF  PARAMETERS.          FTN           80     A     
 FTN      *                                                                                FTN           81     A     
 FTN      *         BINARY VALUE PARAMETER                                                 FTN           82     A     
 FTN      *                                                                                FTN           83     A     
 FTN      *         A  BINARY  VALUE  PARAMETER  HAS TWO POSSIBLE SETTINGS (ON OR          FTN           84     A     
 FTN      *         OFF).  THE FIRST DEFAULT IS USED  IF  THE  PARAMETER  IS  NOT          FTN           85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         SPECIFIED  ON  THE  CONTROL  STATEMENT.  SPECIFICATION OF THE          FTN           86     A     
 FTN      *         KEYWORD ALONE  TURNS  THE  PARAMETER  ON  REGARDLESS  OF  THE          FTN           87     A     
 FTN      *         DEFAULT.   SPECIFICATION OF "PARAMETER=0" TURNS THE PARAMETER          FTN           88     A     
 FTN      *         OFF REGARDLESS OF THE DEFAULT.                                         FTN           89     A     
 FTN      *                                                                                FTN           90     A     
 FTN      *         SPECIFIED VALUE PARAMETER                                              FTN           91     A     
 FTN      *                                                                                FTN           92     A     
 FTN      *         SPECIFIED VALUE PARAMETERS PROVIDE THE PROCESSOR WITH  VALUES          FTN           93     A     
 FTN      *         FOR  SUCH  THINGS  AS  FILE  NAMES, PAGE SIZE, ETC.  MULTIPLE          FTN           94     A     
 FTN      *         VALUES ARE SEPARATED BY SLASHES.                                       FTN           95     A     
 FTN      *                                                                                FTN           96     A     
 FTN      *         IF A SPECIFIED VALUE PARAMETER IS OMITTED THE  FIRST  DEFAULT          FTN           97     A     
 FTN      *         IS  USED.   IF  ONLY  THE  PARAMETER NAME IS SPECIFIED ON THE          FTN           98     A     
 FTN      *         CONTROL  STATEMENT  THE  SECOND  DEFAULT  IS  USED.  IF   THE          FTN           99     A     
 FTN      *         PARAMETER IS SPECIFIED WITH A VALUE, THE VALUE IS USED.                FTN          100     A     
 FTN      *                                                                                FTN          101     A     
 FTN      *         MULTIPLE BINARY VALUE PARAMETERS                                       FTN          102     A     
 FTN      *                                                                                FTN          103     A     
 FTN      *         IT  IS  CONVENIENT  TO  COMBINE  A  NUMBER  OF RELATED BINARY          FTN          104     A     
 FTN      *         PARAMETERS AS OPTIONS OF A SINGLE PARAMETER.   THIS  TYPE  OF          FTN          105     A     
 FTN      *         PARAMETER IS CALLED A MULTIPLE BINARY VALUE PARAMETER.                 FTN          106     A     
 FTN      *                                                                                FTN          107     A     
 FTN      *         THE FORM OF A MULTIPLE BINARY VALUE PARAMETER IS                       FTN          108     A     
 FTN      *                                                                                FTN          109     A     
 FTN      *             PARAMETER=OP/OP/OP...                                              FTN          110     A     
 FTN      *                                                                                FTN          111     A     
 FTN      *         IF THE  PARAMETER IS OMITTED THE FIRST DEFAULT VALUE IS USED.          FTN          112     A     
 FTN      *         IF ONLY THE PARAMETER NAME IS SPECIFIED, THE  SECOND  DEFAULT          FTN          113     A     
 FTN      *         IS  USED.   IF  THE  FULL  FORM  IS  PRESENT,  THE  FOLLOWING          FTN          114     A     
 FTN      *         ALGORITHM IS APPLIED                                                   FTN          115     A     
 FTN      *                                                                                FTN          116     A     
 FTN      *             1.  INITIALLY, INITIAL VALUE OPTIONS ARE SELECTED.                 FTN          117     A     
 FTN      *                                                                                FTN          118     A     
 FTN      *             2.  THE OPTION LIST IS SCANNED FROM LEFT TO RIGHT.                 FTN          119     A     
 FTN      *                                                                                FTN          120     A     
 FTN      *             3.  "-OP" DESELECTS THE SPECIFIED OPTION.                          FTN          121     A     
 FTN      *                                                                                FTN          122     A     
 FTN      *             4.  "OP" ADDS TO THE OPTIONS SELECTED.                             FTN          123     A     
 FTN      *                                                                                FTN          124     A     
 FTN      *             5.  "0" (ZERO) DESELECTS ALL PREVIOUSLY SELECTED OPTIONS.          FTN          125     A     
 FTN      *                                                                                FTN          126     A     
 FTN      *         MULTIPLE APPEARANCES                                                   FTN          127     A     
 FTN      *                                                                                FTN          128     A     
 FTN      *         IF A PARAMETER APPEARS MORE THAN ONCE IN A CONTROL STATEMENT,          FTN          129     A     
 FTN      *         THE CONTROL STATEMENT IS IN ERROR.  THE  PROCESSOR  WILL  NOT          FTN          130     A     
 FTN      *         PERFORM  THE  REQUESTED  ACTION  AND WILL ABORT TO AN EXIT(S)          FTN          131     A     
 FTN      *         WITH NO DUMP IF THE SYSTEM SUPPORTS THAT FACILITY.  THE  ONLY          FTN          132     A     
 FTN      *         EXCEPTIONS  TO  THIS  RULE  ARE THE G AND S PARAMETERS, WHERE          FTN          133     A     
 FTN      *         MULTIPLE APPEARANCES ADD TO THE SET OF TEXTS SPECIFIED.                FTN          134     A     
 FTN      *                                                                                FTN          135     A     
 FTN      *         THE FOLLOWING PARAMETERS ARE DEFINED.                                  FTN          136     A     
 FTN      *                                                                                FTN          137     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *          PARAMETER                   DESCRIPTION                               FTN          138     A     
 FTN      *                                                                                FTN          139     A     
 FTN      *           AL       THIS PARAMETER SELECTS PLACEMENT OF ALL COMMON              FC5A444       31     A     
 FTN      *                    BLOCKS IN LCM OR UEM UNLESS OVERRIDDEN BY AN EXPLICIT       FC5A444       32     A     
 FTN      *                    *LEVEL* STATEMENT.  ALL ELEMENTS OF SUCH A COMMON           FC5A444       33     A     
 FTN      *                    BLOCK ARE TREATED AS LEVEL 2 ITEMS. ALL DUMMY ARGS          FC5A444       34     A     
 FTN      *                    OF SUBROUTINES AND FUNCTIONS WILL BE TREATED AS IF          FC5A444       35     A     
 FTN      *                    LEVEL 0 HAD BEEN SPECIFIED FOR THEM UNLESS AN EXPLICIT      FC5A444       36     A     
 FTN      *                    *LEVEL* DECLARATION OVERRIDES.                              FC5A444       37     A     
 FTN      *                                                                                FC5A444       38     A     
 FTN      *                    BINARY VALUE PARAMETER: FD=0, SD=AUTOMATIC LEVEL 2 AND 0.   FC5A444       39     A     
 FTN      *                                                                                FC5A444       40     A     
 FTN      *           ANSI=OP  ANSI DIAGNOSTICS.                                           FTN          140     A     
 FTN      *                    THIS PARAMETER SPECIFIES WHETHER USE OF NON ANSI            FTN          141     A     
 FTN      *                    EXTENSIONS IS TO BE DIAGNOSED AND IF SO, HOW                FTN          142     A     
 FTN      *                    SEVERELY.  THE DEFINED VALUES OF "OP" ARE:                  FTN          143     A     
 FTN      *                                                                                FTN          144     A     
 FTN      *                     0   NO ANSI DIAGNOSTICS.                                   FTN          145     A     
 FTN      *                                                                                FTN          146     A     
 FTN      *                     T   TRIVIAL ERROR. ANSI ERRORS ARE TREATED AS              FTN          147     A     
 FTN      *                         ERRORS WITH THIS SEVERITY.                             FTN          148     A     
 FTN      *                                                                                FTN          149     A     
 FTN      *                     F   FATAL ERROR. NON-ANSI USAGES RESULT IN A FATAL         FTN          150     A     
 FTN      *                         ERROR.                                                 FTN          151     A     
 FTN      *                                                                                FTN          152     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=0, SD=T.                      FTN          153     A     
 FTN      *                                                                                FTN          154     A     
 FTN      *           ARG=ATTR ARGUMENT LIST ATTRIBUTES.                                   FTN          155     A     
 FTN      *                    THIS PARAMETER SPECIFIES ATTRIBUTES OF EXTERNAL             FTN          156     A     
 FTN      *                    PROCEDURE ARGUMENT LISTS GENERATED BY THE PROCESSOR         FTN          157     A     
 FTN      *                    THE DEFINED OPTIONS ARE:                                    FTN          158     A     
 FTN      *                                                                                FTN          159     A     
 FTN      *                    COMMON  ARGUMENT LISTS GENERATED FOR EXTERNAL               FTN          160     A     
 FTN      *                            PROCEDURES WILL BE OF THE FORM SPECIFIED            FTN          161     A     
 FTN      *                            FOR INTER-LANGUAGE COMMUNICATION. (SEE              FTN          162     A     
 FTN      *                            DAP DCS S1518)                                      FTN          163     A     
 FTN      *                                                                                FTN          164     A     
 FTN      *                    FIXED   FOR EACH EXTERNAL PROCEDURE IN THE                  FTN          165     A     
 FTN      *                            EXECUTABLE PROGRAM, ALL ITS REFERENCES HAVE         FTN          166     A     
 FTN      *                            THE SAME NUMBER OF ARGUMENTS.  (THE                 FTN          167     A     
 FTN      *                            PROCESSOR GENERATED ARGUMENT LISTS WILL NOT         FTN          168     A     
 FTN      *                            CONTAIN A ZERO TERMINATOR.)                         FTN          169     A     
 FTN      *                                                                                FTN          170     A     
 FTN      *                    MULTIPLE BINARY VALUE PARAMETER:  FD=0, SD=-COMMON/         FTN          171     A     
 FTN      *                    FIXED, IV=0.  COMMON IMPLIES -FIXED.  SPECIFICATION         FTN          172     A     
 FTN      *                    OF BOTH COMMON AND FIXED IS NOT PERMITTED.                  FTN          173     A     
 FTN      *                                                                                FTN          174     A     
 FTN      *           B=LFN    BINARY OUTPUT FILE.                                         FTN          175     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE FILE WHICH IS TO CONT-         FTN          176     A     
 FTN      *                    AIN THE BINARY OUTPUT INFORMATION.  B=0 INDICATES           FTN          177     A     
 FTN      *                    THAT NO BINARY SHOULD BE WRITTEN.                           FTN          178     A     
 FTN      *                                                                                FTN          179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=LGO, SD=BIN.                  FTN          180     A     
 FTN      *                                                                                FTN          181     A     
 FTN      *           BL       BURSTABLE LISTING.                                          FTN          182     A     
 FTN      *                    THIS PARAMETER CONTROLS PAGE EJECTS IN THE LISTING          FTN          183     A     
 FTN      *                    PRODUCED BY THE PROCESSOR. SETTING BL OFF MINIMIZES         FTN          184     A     
 FTN      *                    PAGE EJECTS AND CONSERVES PAPER. SETTING BL ON              FTN          185     A     
 FTN      *                    CAUSES PAGE EJECTS BETWEEN THE PROGRAM UNIT SOURCE          FTN          186     A     
 FTN      *                    LISTING, THE CROSS REFERENCE-ATTRIBUTES-MAP LISTING         FTN          187     A     
 FTN      *                    AND THE OBJECT CODE LISTING. IT ALSO ENSURES THAT           FTN          188     A     
 FTN      *                    EACH PROGRAM UNIT LISTING CONTAINS AN EVEN NUMBER           FTN          189     A     
 FTN      *                    OF PAGES, ISSUING A BLANK PAGE AT THE END, IF               FTN          190     A     
 FTN      *                    NECESSARY.                                                  FTN          191     A     
 FTN      *                                                                                FTN          192     A     
 FTN      *                    BINARY VALUE PARAMETER: FD=0, SD=ISSUE ALL PAGE             FTN          193     A     
 FTN      *                    EJECTS.                                                     FTN          194     A     
 FTN      *                                                                                FTN          195     A     
 FTN      *           CS=SEQ   COLLATING SEQUENCE.                                         FTN          196     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE WEIGHT TABLE TO BE             FTN          197     A     
 FTN      *                    USED FOR THE EVALUATION OF CHARACTER RELATIONAL             FTN          198     A     
 FTN      *                    EXPRESSIONS.  (SEE SECTION 3.1.5 AND APPENDIX A,            FTN          199     A     
 FTN      *                    ERS). THE DEFINED VALUES OF "SEQ" ARE:                      FTN          200     A     
 FTN      *                                                                                FTN          201     A     
 FTN      *                    USER     USER SPECIFIED WEIGHT TABLE.                       FTN          202     A     
 FTN      *                                                                                FTN          203     A     
 FTN      *                    FIXED    FIXED WEIGHT TABLE.                                FTN          204     A     
 FTN      *                                                                                FTN          205     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=USER, SD=FIXED.  THE          FTN          206     A     
 FTN      *                    EFFECT OF THIS PARAMETER CAN BE OVERRIDDEN BY USE           FTN          207     A     
 FTN      *                    OF THE COLLATE DIRECTIVE (3.7.3).                           FTN          208     A     
 FTN      *                                                                                FTN          209     A     
 FTN      *           DB=OP    DEBUGGING OPTION.                                           FTN          210     A     
 FTN      *                    THIS PARAMETER SELECTS DEBUGGING OPTIONS.  MULTIPLE         FTN          211     A     
 FTN      *                    OPTIONS MAY BE SPECIFIED.  THE FOLLOWING OPTIONS            FTN          212     A     
 FTN      *                    ARE AVAILABLE:                                              FTN          213     A     
 FTN      *                                                                                FTN          214     A     
 FTN      *                    TB  ERROR TRACEBACK.  THIS OPTION SELECTS ERROR             FTN          215     A     
 FTN      *                        TRACEBACK UPON DETECTION OF AN ERROR IN A               FTN          216     A     
 FTN      *                        LIBRARY ROUTINE.                                        FTN          217     A     
 FTN      *                                                                                FTN          218     A     
 FTN      *                    SB  SUBSCRIPT BOUNDS CHECK.  THIS OPTION SELECTS            FTN          219     A     
 FTN      *                        CHECKING OF ARRAY ELEMENT REFERENCES TO ENSURE          FTN          220     A     
 FTN      *                        THAT ALL REFERENCES ARE WITHIN THE ARRAY.               FTN          221     A     
 FTN      *                                                                                FTN          222     A     
 FTN      *                    SL  SUBSTRING LIMITS CHECK.  THIS OPTION SELECTS            FTN          223     A     
 FTN      *                        CHECKING OF CHARACTER SUBSTRING EXPRESSIONS             FTN          224     A     
 FTN      *                        TO ENSURE THAT THE SUBSTRING REFERENCES ARE             FTN          225     A     
 FTN      *                        WITHIN THE STRING.                                      FTN          226     A     
 FTN      *                                                                                FTN          227     A     
 FTN      *                    ER  ERROR RECOVERY.  THIS OPTION SELECTS OBJECT             FTN          228     A     
 FTN      *                        TIME REPRIEVE OF EXECUTION ERRORS DETECTED BY           FTN          229     A     
 FTN      *                        THE OPERATING SYSTEM.  THE ERROR MESSAGE IDENT-         FTN          230     A     
 FTN      *                        IFIES THE PROGRAM UNIT AND LINE NUMBER CONTAIN-         FTN          231     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                        ING THE ERROR.                                          FTN          232     A     
 FTN      *                                                                                FTN          233     A     
 FTN      *                    ID  INTERACTIVE DEBUG.  THIS OPTION SELECTS BOTH            FTN          234     A     
 FTN      *                        THE OBJECT CODE AND THE SYMBOL AND LINE NUMBER          FTN          235     A     
 FTN      *                        TABLES REQUIRED BY INTERACTIVE DEBUG.  THE              FTN          236     A     
 FTN      *                        TABLES ARE PRODUCED ON THE BINARY OUTPUT FILE.          FTN          237     A     
 FTN      *                        THESE ACTIONS ALSO TAKE PLACE IF THE PROCESSOR          FTN          238     A     
 FTN      *                        ENVIRONMENT HAS INTERACTIVE DEBUG SELECTED.             FTN          239     A     
 FTN      *                        DB=-ID WILL SUPPRESS THESE ACTIONS REGARDLESS           FTN          240     A     
 FTN      *                        OF THE PROCESSOR ENVIRONMENT.                           FTN          241     A     
 FTN      *                                                                                FTN          242     A     
 FTN      *                    PMD POST MORTEM DUMP.                                       FTN          243     A     
 FTN      *                                                                                FTN          244     A     
 FTN      *                    ST  SYMBOL TABLE TO BINARY.  THIS OPTION SPECIFIES          FTN          245     A     
 FTN      *                        THAT THE SYMBOL AND LINE NUMBER TABLES REQUIRED         FTN          246     A     
 FTN      *                        BY INTERACTIVE DEBUG ARE TO BE PRODUCED IN THE          FTN          247     A     
 FTN      *                        BINARY OUTPUT FILE.  THIS ACTION ALSO TAKES             FTN          248     A     
 FTN      *                        PLACE IF THE PROCESSOR ENVIRONMENT HAS INTER-           FTN          249     A     
 FTN      *                        ACTIVE DEBUG SELECTED.  DB=-ST WILL SUPPRESS            FTN          250     A     
 FTN      *                        SYMBOL AND LINE NUMBER TABLES REGARDLESS OF THE         FTN          251     A     
 FTN      *                        PROCESSOR ENVIRONMENT.                                  FTN          252     A     
 FTN      *                                                                                FTN          253     A     
 FTN      *                    MULTIPLE BINARY VALUE PARAMETER:  FD=0,                     FTN          254     A     
 FTN      *                    SD=TB/SB/SL/ER/ID/PMD/ST,                                   FTN          255          I
          -FC5A275
 FTN      *                    IV=TB/SB/SL/ER/ID/PMD/ST.                                   FTN          256          I
          -FC5A275
 FTN      *                    SD=TB/SB/SL/ER/PMD,                                         FC5A275        6     A     
 FTN      *                    IV=TB/SB/SL/ER/PMD.                                         FC5A275        7     A     
 FTN      *                                                                                FTN          257     A     
 FTN      *           DO=OP    DO LOOP CONTROL.                                            FTN          258     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE MANNER IN WHICH DO             FTN          259     A     
 FTN      *                    LOOPS ARE TO BE INTERPRETED BY THE PROCESSOR.  THE          FTN          260     A     
 FTN      *                    FOLLOWING OPTIONS ARE AVAIABLE:                             FTN          261     A     
 FTN      *                                                                                FTN          262     A     
 FTN      *                    LONG  LONG LOOPS. THIS OPTION SELECTS THE PROCESS-          FTN          263     A     
 FTN      *                          ING OF DO LOOPS THAT PERMITS THE TRIP COUNT           FTN          264     A     
 FTN      *                          COUNT TO EXCEED 131,071.                              FTN          265     A     
 FTN      *                                                                                FTN          266     A     
 FTN      *                    OT    ONE TRIP LOOPS. THIS OPTION SELECTS THE MINI-         FTN          267     A     
 FTN      *                          MUM TRIP COUNT FOR DO LOOPS TO BE ONE. SET-           FTN          268     A     
 FTN      *                          TING THIS OPTION FREQUENTLY RESULTS IN MORE           FTN          269     A     
 FTN      *                          EFFICIENT PROGRAM EXECUTION.  MOST DO LOOPS           FTN          270     A     
 FTN      *                          HAVE AN ITERATION COUNT OF AT LEAST ONE AND           FTN          271     A     
 FTN      *                          EXECUTE CORRECTLY UNDER EITHER SETTING OF THE         FTN          272     A     
 FTN      *                          DO PARAMETER, HOWEVER, IF A DO LOOP HAS AN            FTN          273     A     
 FTN      *                          ITERATION COUNT OF ZERO AND DO=OT IS SPECI-           FTN          274     A     
 FTN      *                          IFIED, THE PROGRAM MAY NOT EXECUTE CORRECTLY.         FTN          275     A     
 FTN      *                                                                                FTN          276     A     
 FTN      *                    MULTIPLE BINARY VALUE  PARAMETER:  FD=0, SD=OT,             FTN          277     A     
 FTN      *                    IV=0.  THE EFFECTS OF THESE OPTIONS CAN BE OVER-            FTN          278     A     
 FTN      *                    RIDDEN BY USE OF THE DO DIRECTIVE (ERS, 3.4.5).             FTN          279     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                                                                                FTN          280     A     
 FTN      *           DS       DIRECTIVE SUPPRESSION.                                      FTN          281     A     
 FTN      *                    THIS PARAMETER SUPPRESSES THE RECOGNITION OF C$             FTN          282     A     
 FTN      *                    DIRECTIVES, SO THAT THEY ARE TREATED AS COMMENTS.           FTN          283     A     
 FTN      *                                                                                FTN          284     A     
 FTN      *                    BINARY VALUE  PARAMETER:  FD=0,  SD=SUPPRESS                FTN          285     A     
 FTN      *                    DIRECTIVE RECOGNITION.                                      FTN          286     A     
 FTN      *                                                                                F1037F5      128     A     
 FTN      *           EC       USE EXTENDED MEMORY FOR OPT=2 COMPILE TIME TABLES.          F1037F5      129     A     
 FTN      *                    THIS OPTION ALLOWS CCG TO USE ECS/LCM AT COMPILE            F1037F5      130     A     
 FTN      *                    TIME TO AVOID RANDOM I/O MANAGEMENT FOR PROGRAM             F1037F5      131     A     
 FTN      *                    BLOCKS. CT.ECS MUST BE NONZERO (SEE *OPTIONS*) AT           F1037F5      132     A     
 FTN      *                    BUILD TIME FOR THIS OPTION TO BE MEANINGFUL.                F1037F5      133     A     
 FTN      *                                                                                F1037F5      134     A     
 FTN      *                    BINARY VALUE PARAMETER:  FD=USE AS AVAIL,  SD=FD.           F1037F5      135     A     
 FTN      *                                                                                FTN          287     A     
 FTN      *           E=LFN    ERROR FILE.                                                 FTN          288     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE FILE NAME TO RECEIVE           FTN          289     A     
 FTN      *                    ERROR LISTING INFORMATION.  IN THE EVENT OF AN              FTN          290     A     
 FTN      *                    ERROR (OF EL SPECIFIED SEVERITY OR HIGHER) THE              FTN          291     A     
 FTN      *                    ERROR LINE AND DIAGNOSTIC ARE WRITTEN TO THE E              FTN          292     A     
 FTN      *                    FILE.  IF FULL LISTING IS ON (L PARAMETER), THE             FTN          293     A     
 FTN      *                    ERROR LINE AND DIAGNOSTIC ARE ALSO WRITTEN TO THE L         FTN          294     A     
 FTN      *                    FILE.  IF THE LFN OF THE E FILE IS THE SAME LFN AS          FTN          295     A     
 FTN      *                    THE L FILE, THEN THE ERROR LINE AND DIAGNOSTIC ARE          FTN          296     A     
 FTN      *                    NOT WRITTEN TO THE E FILE.                                  FTN          297     A     
 FTN      *                                                                                FTN          298     A     
 FTN      *                    SPECIFIED VALUE PARAMETER:  FD=OUTPUT, SD=ERRS.             FTN          299     A     
 FTN      *                    E=0 IS AN ERROR.                                            FTN          300     A     
 FTN      *                                                                                FTN          301     A     
 FTN      *           EL=OP    ERROR LEVEL.                                                FTN          302     A     
 FTN      *                    THIS OPTION INDICATES THE SEVERITY LEVEL OF ERRORS          FTN          303     A     
 FTN      *                    TO BE PRINTED ON THE USER'S LISTING.  THE LEVELS            FTN          304     A     
 FTN      *                    ARE ORDERED BY INCREASING SERVERITY.  SPECIFICATION         FTN          305     A     
 FTN      *                    OF A PARTICULAR LEVEL SELECTS THAT LEVEL AND ALL            FTN          306     A     
 FTN      *                    MORE SEVERE LEVELS.  THE LEVELS IN INCREASING ORDER         FTN          307     A     
 FTN      *                    OF SEVERITY ARE:                                            FTN          308     A     
 FTN      *                                                                                FTN          309     A     
 FTN      *                    D   DEBUG.  THIS IS USED BY THE MAINTENANCE PROJECT         FTN          310     A     
 FTN      *                        TO FLAG COMPILER OPERATION.  TEST MODE ONLY.            FTN          311     A     
 FTN      *                                                                                FTN          312     A     
 FTN      *                    T   TRIVIAL.   THIS IS USED TO FLAG A SUSPICIOUS            FTN          313     A     
 FTN      *                        USAGE.  THE SYNTAX IS CORRECT BUT THE USAGE IS          FTN          314     A     
 FTN      *                        QUESTIONABLE.                                           FTN          315     A     
 FTN      *                                                                                FTN          316     A     
 FTN      *                    W   WARNING.  THIS IS AN ERROR WHERE THE SYNTAX IS          FTN          317     A     
 FTN      *                        INCORRECT BUT THE PROCESSOR HAS MADE AN ASSUMP-         FTN          318     A     
 FTN      *                        TION (SUCH AS ADDING A COMMA) AND CONTINUED.            FTN          319     A     
 FTN      *                                                                                FTN          320     A     
 FTN      *                    F   FATAL.  THIS IS AN ERROR WHICH PREVENTS THE             FTN          321     A     
 FTN      *                        PROCESSOR FROM PROCESSING THE STATEMENT IN              FTN          322     A     
 FTN      *                        WHICH IT OCCURS.  UNRESOLVABLE SEMANTIC ERRORS          FTN          323     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                        ALSO FALL INTO THIS CLASS. SUCH ERRORS MAY NOT          FTN          324     A     
 FTN      *                        RELATE TO A SPECIFIC STATEMENT IN THE PROGRAM           FTN          325     A     
 FTN      *                        UNIT.                                                   FTN          326     A     
 FTN      *                                                                                FTN          327     A     
 FTN      *                    C   CATASTROPHIC.  THIS CLASS OF ERROR IS FATAL TO          FTN          328     A     
 FTN      *                        COMPILATION. THE PROCESSOR IS UNABLE TO CONTIN-         FTN          329     A     
 FTN      *                        UE PROCESSING THE CURRENT PROGRAM UNIT. HOWEVER         FTN          330     A     
 FTN      *                        IT WILL ADVANCE TO THE END OF THE CURRENT PRO-          FTN          331     A     
 FTN      *                        GRAM UNIT AND ATTEMPT TO PROCESS A SUBSEQUENT           FTN          332     A     
 FTN      *                        UNIT.                                                   FTN          333     A     
 FTN      *                                                                                FTN          334     A     
 FTN      *                    SPECIFIED VALUE PARAMETER:  FD=T, SD=F.                     FTN          335     A     
 FTN      *                    EL=0 IS AN ERROR.                                           FTN          336     A     
 FTN      *                    ERROR.                                                      FTN          337     A     
 FTN      *                                                                                FTN          338     A     
 FTN      *           ET=OP    ERROR TERMINATE.                                            FTN          339     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE ACTION TO BE TAKEN BY          FTN          340     A     
 FTN      *                    THE PROCESSOR WHEN IT IS FINISHED  COMPILING.   ET          FTN          341     A     
 FTN      *                    MAY  BE  SPECIFIED  WITH  A VALUE OF T, W, F, OR C          FTN          342     A     
 FTN      *                    (SEE EL FOR MEANINGS).  IF  ET  IS  SELECTED,  AND          FTN          343     A     
 FTN      *                    THERE  WERE  ERRORS  OF  THE SPECIFIED SEVERITY OR          FTN          344     A     
 FTN      *                    HIGHER, ABORT THE JOB STEP TO AN EXIT(S).  IF ET=0          FTN          345     A     
 FTN      *                    IS  SELECTED,  DO  NOT  ABORT THE JOB STEP EVEN IF          FTN          346     A     
 FTN      *                    ERRORS ARE ENCOUNTERED.  T OR W ERRORS WILL ALWAYS          FTN          347     A     
 FTN      *                    PRODUCE  A  GOOD BINARY BUT THE ET PARAMETER STILL          FTN          348     A     
 FTN      *                    ALLOWS THE JOB STEP TO BE  ABORTED  IF  ERRORS  OF          FTN          349     A     
 FTN      *                    THIS  SEVERITY  OCCUR.   F  OR C LEVEL ERRORS WILL          FTN          350     A     
 FTN      *                    PRODUCE A SHORT, BAD BINARY  SUFFICIENT  TO  ABORT          FTN          351     A     
 FTN      *                    THE LOADER UNLESS THE B OPTION OF DB IS SPECIFIED.          FTN          352     A     
 FTN      *                                                                                FTN          353     A     
 FTN      *                    BINARY VALUE PARAMETER : FD=0, SD=F.                        FTN          354     A     
 FTN      *                                                                                FTN          355     A     
 FTN      *           G=GT     GET SYSTEMS TEXT FROM A FILE.                               FTN          356     A     
 FTN      *                    THE OPTION "GT" SPECIFIES THE NAME OF THE FILE TO           FTN          357     A     
 FTN      *                    BE READ TO OBTAIN A SYSTEM TEXT. THE OPTION "GT"            FTN          358     A     
 FTN      *                    MAY HAVE ONE OF THE FORMS:                                  FTN          359     A     
 FTN      *                                                                                FTN          360     A     
 FTN      *                        1.  LFN                                                 FTN          361     A     
 FTN      *                        2.  LFN-RECNAME                                         FTN          362     A     
 FTN      *                        3.  0                                                   FTN          363     A     
 FTN      *                                                                                FTN          364     A     
 FTN      *                    FORM 1 SPECIFIES THE FILE "LFN" AS THE SOURCE OF            FTN          365     A     
 FTN      *                    THE SYSTEMS TEXT. FORM 2 SPECIFIES THE NAME OF THE          FTN          366     A     
 FTN      *                    RECORD "RECNAME") ON FILE "LFN" WHIGH IS TO BE THE          FTN          367     A     
 FTN      *                    SOURCE OF THE SYSTEMS TEXT. MULTIPLE TEXT NAMES ARE         FTN          368     A     
 FTN      *                    SPECIFIED BY SEPARATING THEM WITH SLASHES.  NOTE            FTN          369     A     
 FTN      *                    THAT THE TOTAL NUMBER OF SYSTEM TEXTS ALLOWED (SEE          FTN          370     A     
 FTN      *                    S PARAMETER) FROM FILES AND THE SYSTEM IS RESTRICT-         FTN          371     A     
 FTN      *                    ED BY THE PROCESSOR TO SEVEN. IF G=0 IS SPECIFIED           FTN          372     A     
 FTN      *                    AND ANY OTHER G=GT IS SPECIFIED (IN ANY ORDER), THE         FTN          373     A     
 FTN      *                    G=0 IS IGNORED.                                             FTN          374     A     
 FTN      *                                                                                FTN          375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                    SPECIFIED VALUE PARAMETER WITH MULTIPLE VALUES:             FTN          376     A     
 FTN      *                    FD=0, SD=SYSTEXT AND NO RECORD NAME.                        FTN          377     A     
 FTN      *                                                                                FTN          378     A     
 FTN      *           GO       COMPILE AND EXECUTE.                                        FTN          379     A     
 FTN      *                    THIS PARAMETER SPECIFIES A COMPILE AND GO MODE OF           FTN          380     A     
 FTN      *                    OPERATION.  GO=0 SPECIFIES NO EXECUTION.  GO MEANS          FTN          381     A     
 FTN      *                    COMPILE AND GO.                                             FTN          382     A     
 FTN      *                                                                                FTN          383     A     
 FTN      *                    BINARY VALUE PARAMETER: FD=0, SD=COMPILE AND GO.            FTN          384     A     
 FTN      *                                                                                FTN          385     A     
 FTN      *           I=LFN    INPUT FILE.                                                 FTN          386     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE SOURCE INPUT FILE TO           FTN          387     A     
 FTN      *                    THE PROCESSOR.                                              FTN          388     A     
 FTN      *                                                                                FTN          389     A     
 FTN      *                    SPECIFIED VALUE PARAMETER:  FD=INPUT,  SD=COMPILE.          FTN          390     A     
 FTN      *                    I=0 IS AN ERROR.                                            FTN          391     A     
 FTN      *                                                                                FTN          392     A     
 FTN      *           L=LFN    LISTING FILE.                                               FTN          393     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE FILE WHERE THE PROCES-         FTN          394     A     
 FTN      *                    SOR WRITES THE SOURCE LISTING, DIAGNOSTICS, AND ANY         FTN          395     A     
 FTN      *                    ADDITIONAL LIST INFORMATION (SEE LO PARAMETER).             FTN          396     A     
 FTN      *                                                                                FTN          397     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=OUTPUT, SD=LIST.              FTN          398     A     
 FTN      *                    (L=0 SURPRESSES ALL LISTING).                               FTN          399     A     
 FTN      *                                                                                FTN          400     A     
 FTN      *           LCM=MODE LCM OR ECS STORAGE ACCESS.                                  FTN          401     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE REQUIREMENTS ON ADDR-          FTN          402     A     
 FTN      *                    ESS SIZE FOR DATA IN LCM OR ECS STORAGE. (SEE SECT.         FTN          403     A     
 FTN      *                    8.10 LEVEL STATEMENT.) THE DEFINED VALUES OF "MODE"         FTN          404     A     
 FTN      *                    ARE:                                                        FTN          405     A     
 FTN      *                                                                                FTN          406     A     
 FTN      *                    D   DIRECT MODE ADDRESSING. THIS IS THE MOST EFFIC-         FTN          407     A     
 FTN      *                        IENT MODE WHEN LCM OR ECS FIELD LENGTH DOES NOT         FTN          408     A     
 FTN      *                        EXCEED 131,071 WORDS.  IF LCM OR ECS FIELD              FTN          409     A     
 FTN      *                        LENGTH EXCEEDS 131,071 WORDS, D MODE ADDRESSING         FTN          410     A     
 FTN      *                        IS AN ERROR.                                            FTN          411     A     
 FTN      *                                                                                FTN          412     A     
 FTN      *                    I   INDIRECT MODE ADDRESSING. THIS IS THE MOST EFF-         FTN          413     A     
 FTN      *                        ICIENT MODE WHEN LCM OR ECS FIELD LENGTH EXCEED         FTN          414     A     
 FTN      *                        131,071 WORDS BUT NO SINGLE COMMON BLOCK IS             FTN          415     A     
 FTN      *                        LARGER THAN 131,071 WORDS. IF ANY COMMON BLOCK          FTN          416     A     
 FTN      *                        IS LARGER THAN 131,071 WORDS, I MODE ADDRESSING         FTN          417     A     
 FTN      *                        IS AN ERROR.                                            FTN          418     A     
 FTN      *                                                                                FTN          419     A     
 FTN      *                    G   GIANT MODE ADDRESSING. THIS IS THE MODE REQUIR-         FTN          420     A     
 FTN      *                        ED IF ANY SINGLE COMMON BLOCK IS LARGER THAN            FTN          421     A     
 FTN      *                        131,071 WORDS.  LCM=G IMPLIES DO=LONG.                  FTN          422     A     
 FTN      *                                                                                FTN          423     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=D, SD=I.                      FTN          424     A     
 FTN      *                                                                                FTN          425     A     
 FTN      *           LO=OP    LISTING OPTIONS.                                            FTN          426     A     
 FTN      *                    THE OPTIONS OF THIS PARAMETER SPECIFY WHAT INFORM-          FTN          427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                    ATION WILL APPEAR ON THE LIST FILE (L PARAMETER).           FTN          428     A     
 FTN      *                    MULTIPLE OPTIONS MAY BE SPECIFIED.  THE DEFINED             FTN          429     A     
 FTN      *                    OPTIONS ARE:                                                FTN          430     A     
 FTN      *                                                                                FTN          431     A     
 FTN      *                    A   ATTRIBUTES.  A LIST OF PROGRAM ENTITIES AND             FTN          432     A     
 FTN      *                        THEIR ATTRIBUTES (DATA TYPE, CLASS, ETC.)               FTN          433     A     
 FTN      *                                                                                FTN          434     A     
 FTN      *                    C   COMDECK.  LISTING CONTROL FOR COMDECKS.                 FTN          435     A     
 FTN      *                                                                                FTN          436     A     
 FTN      *                    M   MAP.  A CORRELATION OF PROGRAM ENTITIES AND             FTN          437     A     
 FTN      *                        PHYSICAL STORAGE.                                       FTN          438     A     
 FTN      *                                                                                FTN          439     A     
 FTN      *                    O   OBJECT CODE LISTING. A LISTING OF THE GENERATED         FTN          440     A     
 FTN      *                        OBJECT CODE WITH COMPASS MNEMONICS.                     FTN          441     A     
 FTN      *                                                                                FTN          442     A     
 FTN      *                    R   CROSS REFERENCE LISTING.  A CROSS REFERENCE OF          FTN          443     A     
 FTN      *                        PROGRAM ENTITIES SHOWING LOCATIONS OF DEFIN-            FTN          444     A     
 FTN      *                        ITION AND USE WITHIN THE PROGRAM.                       FTN          445     A     
 FTN      *                                                                                FTN          446     A     
 FTN      *                    S   SOURCE.  SOURCE LISTING OF THE PROGRAM.                 FTN          447     A     
 FTN      *                                                                                FTN          448     A     
 FTN      *                    MULTIPLE BINARY VALUE PARAMETER: FD=S/A, SD=S/A/R,          FTN          449     A     
 FTN      *                    IV=S/A.  THE EFFECTS OF THE SPECIFIED OPTIONS CAN           FTN          450     A     
 FTN      *                    BE CONTROLLED BY USE OF THE LIST DIRECTIVE (3.7.1).         FTN          451     A     
 FTN      *                                                                                FTN          452     A     
 FTN      *           ML=STR   MODLEVEL MICRO VALUE.                                       FTN          453     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE VALUE OF THE MODLEVEL          FTN          454     A     
 FTN      *                    MICRO USED BY COMPASS. THE STRING "STR" CONSISTS OF         FTN          455     A     
 FTN      *                    1 TO 9 LETTERS AND DIGITS. IF ML IS SPECIFIED WITH          FTN          456     A     
 FTN      *                    NO STRING, THE VALUE USED IS THE CURRENT JULIAN             FTN          457     A     
 FTN      *                    DATE IN THE FORM YYDDD, WHERE YY IS THE YEAR AND            FTN          458     A     
 FTN      *                    DDD IS THE NUMBER OF DAYS WITHIN THE YEAR.                  FTN          459     A     
 FTN      *                                                                                FTN          460     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=JULIAN DATE,                  FTN          461     A     
 FTN      *                    SD=JULIAN DATE.                                             FTN          462     A     
 FTN      *                                                                                F1037F5      136     A     
 FTN      *           MD=OP    MACHINE DEPENDENT DIAGNOSTICS.                              F1037F5      137     A     
 FTN      *                    THIS PARAMETER SPECIFIES WHETHER USE OF MACHINE             F1037F5      138     A     
 FTN      *                    DEPENDENT LANGUAGE FEATURES IS TO BE DIAGNOSED,             F1037F5      139     A     
 FTN      *                    AND IF SO, HOW SEVERLY. THE DEFINED VALUES                  F1037F5      140     A     
 FTN      *                    OF "OP" ARE :                                               F1037F5      141     A     
 FTN      *                                                                                F1037F5      142     A     
 FTN      *                    0   NO MACHINE DEPENDENT DIAGNOSTICS                        F1037F5      143     A     
 FTN      *                                                                                F1037F5      144     A     
 FTN      *                    T   TRIVIAL ERROR.  USES OF MACHINE DEPENDENT               F1037F5      145     A     
 FTN      *                        FEATURES ARE TREATED AS ERRORS WITH THIS                F1037F5      146     A     
 FTN      *                        SEVERITY.                                               F1037F5      147     A     
 FTN      *                                                                                F1037F5      148     A     
 FTN      *                    F   FATAL ERROR. USE OF MACHINE DEPENDENT                   F1037F5      149     A     
 FTN      *                        FEATURE RESULTS IN A FATAL ERROR.                       F1037F5      150     A     
 FTN      *                                                                                F1037F5      151     A     
 FTN      *                    SPECIFIED VALUE PARAMETER : FD=0, SD=T.                     F1037F5      152     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                                                                                FTN          463     A     
 FTN      *           OPT=N    OPTIMIZATION LEVEL.                                         FTN          464     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE LEVEL OF OPTIMIZATION          FTN          465     A     
 FTN      *                    PERFORMED BY THE PROCESSOR.  THE FOLLOWING OPTIONS          FTN          466     A     
 FTN      *                    ARE AVAILABLE:                                              FTN          467     A     
 FTN      *                                                                                FTN          468     A     
 FTN      *                    0   MINIMUM OPTIMIZATION.  FASTEST COMPILATION.             FTN          469     A     
 FTN      *                                                                                FTN          470     A     
 FTN      *                    1   INTERMEDIATE OPTIMIZATION.                              FTN          471     A     
 FTN      *                                                                                FTN          472     A     
 FTN      *                    2   MAXIMUM OPTIMIZATION.  SLOWEST COMPILATION.             FTN          473     A     
 FTN      *                                                                                FTN          474     A     
 FTN      *                    3   OPT 2, PLUS POTENTIALLY UNSAFE OPTIMIZATIONS.           FTN          475     A     
 FTN      *                                                                                FTN          476     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=0,SD=2.                       FTN          477     A     
 FTN      *                                                                                FTN          478     A     
 FTN      *           PD=N     PRINT DENSITY.                                              FTN          479     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE PRINT DENSITY FOR ALL          FTN          480     A     
 FTN      *                    PRINTABLE OUTPUT (L AND E FILES).  THE DESTINATION          FTN          481     A     
 FTN      *                    PRINTER MUST BE CAPABLE OF SUPPORTING THE SELECTED          FTN          482     A     
 FTN      *                    DENSITY. FOR CONNECTED INTERACTIVE TERMINALS, DEN-          FTN          483     A     
 FTN      *                    SITY SELECTION IS SUPPRESSED. THE DEFINED VALUES OF         FTN          484     A     
 FTN      *                    "N" ARE:                                                    FTN          485     A     
 FTN      *                                                                                FTN          486     A     
 FTN      *                        6   SIX LINES/INCH - SINGLE SPACED.                     FTN          487     A     
 FTN      *                                                                                FTN          488     A     
 FTN      *                        8   EIGHT LINES/INCH - SINGLE SPACED.                   FTN          489     A     
 FTN      *                                                                                FTN          490     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=6, SD=8.                      FTN          491          I
          -FC5A426
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=JOB DEFAULT, SD=8.            FC5A426       15     A     
 FTN      *                                                                                FTN          492     A     
 FTN      *           PL       PRINT LIMIT.                                                FTN          493     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF              FTN          494     A     
 FTN      *                    RECORDS (PRINT LINES) THAT THE EXECUTING PROGRAM            FTN          495     A     
 FTN      *                    MAY WRITE TO THE FILE OUTPUT.  THE LL PARAMETER IS          FTN          496     A     
 FTN      *                    OPERATIVE ONLY WHEN THE PROCESSOR RECEIVES A MAIN           FTN          497     A     
 FTN      *                    PROGRAM.                                                    FTN          498     A     
 FTN      *                                                                                FTN          499     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=5000, SD=50000.               FTN          500     A     
 FTN      *                                                                                FTN          501     A     
 FTN      *                                                                                FTN          502     A     
 FTN      *           PN       PAGINATION.                                                 FTN          503     A     
 FTN      *                    THIS PARAMETER SPECIFIES THAT PAGE NUMBERING OF THE         FTN          504     A     
 FTN      *                    OUTPUT LISTING IS CONTINUOUS FROM PROGRAM UNIT TO           FTN          505     A     
 FTN      *                    PROGRAM UNIT (INCLUDING INTERMIXED COMPASS OUTPUT).         FTN          506     A     
 FTN      *                    P=0  MEANS THAT PAGE NUMBERS BEGIN AT 1 FOR EACH            FTN          507     A     
 FTN      *                    PROGRAM UNIT.                                               FTN          508     A     
 FTN      *                                                                                FTN          509     A     
 FTN      *                    BINARY VALUE PARAMETER: FD=0, SD=CONTINUOUS PAGE            FTN          510     A     
 FTN      *                    NUMBERING.                                                  FTN          511     A     
 FTN      *                                                                                FTN          512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *           PS=N     PAGE SIZE.                                                  FTN          513     A     
 FTN      *                    THIS PARAMETER SPECIFES THE NUMBER OF LINES ON A            FTN          514     A     
 FTN      *                    PRINTER PAGE. THE VALUE OF "N" DOES NOT INCLUDE             FTN          515     A     
 FTN      *                    SPACE FOR TOP AND BOTTOM MARGINS. A VALUE OF "N"            FTN          516     A     
 FTN      *                    LESS THAN 4 IS AN ERROR.                                    FTN          517     A     
 FTN      *                                                                                FTN          518     A     
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=(PD*IP.PS)/IP.PD, SD          FTN          519          I
          -FC5A426
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=JOB DEFAULT, SD               FC5A426       16     A     
 FTN      *                    IS AN ERROR.                                                FTN          520     A     
 FTN      *                                                                                FTN          521     A     
 FTN      *           PW=N     PAGE WIDTH.                                                 FTN          522     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE WIDTH OF THE OUTPUT            FTN          523     A     
 FTN      *                    LINE. THE PROCESSOR WILL ACCOMODATE THE SHORTER             FTN          524     A     
 FTN      *                    LINE LENGTH BY REFORMATTING RATHER THAN STRICT              FTN          525     A     
 FTN      *                    TRUNCATION.  A VALUE OF "N" LESS THAN 50 OR GREATER         FTN          526     A     
 FTN      *                    THAN 136 IS AN ERROR.                                       FTN          527     A     
 FTN      *                                                                                FTN          528     A     
 FTN      *                    SPECIFIED VALUE PARAMETER, FD=136, SD=72.                   FTN          529          I
          -FC5A426
 FTN      *                    SPECIFIED VALUE PARAMETER: FD=JOB DEFAULT, SD=72.           FC5A426       17     A     
 FTN      *                                                                                FTN          530     A     
 FTN      *           QC       QUICK SYNTAX CHECK.                                         FTN          531     A     
 FTN      *                    THIS PARAMETER SPECIFIES THAT THE PROCESSOR IS TO           FTN          532     A     
 FTN      *                    PERFORM A SYNTAX CHECK OF THE PROGRAM. NO OBJECT            FTN          533     A     
 FTN      *                    CODE IS PRODUCED.                                           FTN          534     A     
 FTN      *                                                                                FTN          535     A     
 FTN      *                    BINARY  VALUE  PARAMETER:  FD=0,  SD=QUICK  SYNTAX          FTN          536     A     
 FTN      *                    CHECK.                                                      FTN          537     A     
 FTN      *                                                                                FTN          538     A     
 FTN      *           REW=P    REWIND FILES.                                               FTN          539     A     
 FTN      *                    THIS PARAMETER SPECIFIES WHICH FILES ARE TO BE RE-          FTN          540     A     
 FTN      *                    WOUND PRIOR TO PROCESSOR INVOCATION. EACH OPTION IS         FTN          541     A     
 FTN      *                    THE CONTROL STATEMENT PARAMETER ASSOCIATED WITH A           FTN          542     A     
 FTN      *                    FILE.  THE DEFINED OPTIONS ARE:                             FTN          543     A     
 FTN      *                                                                                FTN          544     A     
 FTN      *                    I  REWIND INPUT FILE.                                       FTN          545     A     
 FTN      *                                                                                FTN          546     A     
 FTN      *                    E  REWIND ERROR FILE.                                       FTN          547     A     
 FTN      *                                                                                FTN          548     A     
 FTN      *                    B  REWIND BINARY OUTPUT FILE.                               FTN          549     A     
 FTN      *                                                                                FTN          550     A     
 FTN      *                    L  REWIND OUTPUT FILE.                                      FTN          551     A     
 FTN      *                                                                                FTN          552     A     
 FTN      *                    MULTIPLE BINARY VALUE PARAMETER: FD=0, SD=I/B.              FTN          553     A     
 FTN      *                    IV=I/E/B.                                                   FTN          554     A     
 FTN      *                                                                                FTN          555     A     
 FTN      *           ROUND    ROUNDED ARITHMETIC.                                         FTN          556     A     
 FTN      *                    THIS PARAMETER SPECIFIES WHICH ARITHMETIC OPER-             FTN          557     A     
 FTN      *                    ATIONS ARE TO BE PERFORMED USING ROUNDED ARITHMETIC         FTN          558     A     
 FTN      *                    THE OPERATIONS CONTROLLED ARE THE ACTUAL MACHINE            FTN          559     A     
 FTN      *                    OPERATIONS, WHICH DO NOT IN ALL CASES CORRESPOND TO         FTN          560     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                    FTN LANGUAGE OPERATORS.  (FOR EXAMPLE, SOME EXPON-          FTN          561     A     
 FTN      *                    ENTIATIONS ARE TREATED AS MULTIPLICATIONS.)  THE            FTN          562     A     
 FTN      *                    DEFINED OPTIONS ARE:                                        FTN          563     A     
 FTN      *                                                                                FTN          564     A     
 FTN      *                    A   ADDITION.                                               FTN          565     A     
 FTN      *                                                                                FTN          566     A     
 FTN      *                    S   SUBTRACTION.                                            FTN          567     A     
 FTN      *                                                                                FTN          568     A     
 FTN      *                    M   MULTIPLICATION.                                         FTN          569     A     
 FTN      *                                                                                FTN          570     A     
 FTN      *                    D   DIVISION.                                               FTN          571     A     
 FTN      *                                                                                FTN          572     A     
 FTN      *                    MULTIPLE BINARY VALUE PARAMETER: FD=A/S/M, SD=A/S/          FTN          573     A     
 FTN      *                    M/D, IV=0.                                                  FTN          574     A     
 FTN      *                                                                                FTN          575     A     
 FTN      *           S=ST     SYSTEMS TEXT.                                               FTN          576     A     
 FTN      *                    THE OPTION "ST" SPECIFIES THE NAME OF THE SYSTEMS           FTN          577     A     
 FTN      *                    TEXT TO BE READ BY THE PROCESSOR. THE OPTION "ST"           FTN          578     A     
 FTN      *                    MAY HAVE ONE OF THE FORMS:                                  FTN          579     A     
 FTN      *                                                                                FTN          580     A     
 FTN      *                        1.  SNAME                                               FTN          581     A     
 FTN      *                        2.  LIB-SNAME                                           FTN          582     A     
 FTN      *                        3.  0                                                   FTN          583     A     
 FTN      *                                                                                FTN          584     A     
 FTN      *                    FORM 1 SPECIFIES THE SYSTEMS TEXT NAME TO BE                FTN          585     A     
 FTN      *                    "SNAME" AND SEARCHES THE GLOBAL LIBRARY SET.  FORM          FTN          586     A     
 FTN      *                    2 SPECIFIES THE NAME OF THE LIBRARY "LIB") IN WHICH         FTN          587     A     
 FTN      *                    SYSTEMS TEXT "SNAME" CAN BE FOUND.  MULTIPLE TEXT           FTN          588     A     
 FTN      *                    NAMES ARE SPECIFIED BY SEPARATING THEM WITH SLASHES         FTN          589     A     
 FTN      *                    NOTE THAT THE TOTAL NUMBER OF SYSTEM TEXTS ALLOWED          FTN          590     A     
 FTN      *                    (SEE G PARAMETER) FROM FILES AND THE SYSTEM IS RE-          FTN          591     A     
 FTN      *                    STRICTED TO SEVEN.  APPEARANCE OF A G PARAMETER             FTN          592     A     
 FTN      *                    WILL CHANGE THE FIRST DEFAULT OF S TO ZERO.  IF S=0         FTN          593     A     
 FTN      *                    S=0 IS SPECIFIED AND ANY OTHER S=ST IS SPECIFIED            FTN          594     A     
 FTN      *                    (IN ANY ORDER) THE S=0 IS IGNORED.                          FTN          595     A     
 FTN      *                                                                                FTN          596     A     
 FTN      *                    SPECIFIED VALUE PARAMETER WITH MULTIPLE VALUES:             FTN          597     A     
 FTN      *                    FD=SYSTEXT FOR "SNAME" AND GLOBAL LIBRARY SET, SD           FTN          598     A     
 FTN      *                    IS THE SAME AS FD.                                          FTN          599     A     
 FTN      *                                                                                FTN          600     A     
 FTN      *           SEQ      SEQUENCED INPUT.                                            FTN          601     A     
 FTN      *                    THIS PARAMETER SPECIFIES THAT THE PROGRAM IS IN             FTN          602     A     
 FTN      *                    SEQUENCED LINE FORMAT.                                      FTN          603     A     
 FTN      *                                                                                FTN          604     A     
 FTN      *                    BINARY VALUE  PARAMETER: FD=0, SD=SEQUENCED INPUT.          FTN          605     A     
 FTN      *                                                                                F1037F5      153     A     
 FTN      *           TM=OP    TARGET MACHINE.                                             F1037F5      154     A     
 FTN      *                    THE OPTIONS OF THIS PARAMETER SPECIFY ATTRIBUTES            F1037F5      155     A     
 FTN      *                    OF THE OBJECT TIME MACHINE.                                 F1037F5      156     A     
 FTN      *                                                                                F1037F5      157     A     
 FTN      *                    NOTE - THE TM PARAMETER IS AVAILABLE ONLY IF THE            F1037F5      158     A     
 FTN      *                           INSTALLATION PARAMETER .MI IS EQUATED TO 1 .         F1037F5      159     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                                                                                F1037F5      160     A     
 FTN      *                    THE DEFINED OPTIONS ARE :                                   F1037F5      161     A     
 FTN      *                                                                                F1037F5      162     A     
 FTN      *                    LCM   THE OBJECT TIME MACHINE WILL HAVE LCM.                F1037F5      163     A     
 FTN      *                          (I.E. LEVEL 2 VARIABLES WILL RESIDE IN LCM)           F1037F5      164     A     
 FTN      *                                                                                F1037F5      165     A     
 FTN      *                    MULTIPLE BINARY VALUE PARAMETER : SD=0, IV=0.               F1037F5      166     A     
 FTN      *                                                                                F1037F5      167     A     
 FTN      *                    FD CAUSES NO ACTION, I.E. THE ATTRIBUTES OF THE             F1037F5      168     A     
 FTN      *                    TARGET MACHINE ARE THE SAME AS THOSE OF THE COMPILE         F1037F5      169     A     
 FTN      *                    TIME MACHINE.                                               F1037F5      170     A     
 FTN      *                                                                                FTN          606     A     
 FTN      *           X=LFN    EXTERNAL TEXT FILE.                                         FTN          607     A     
 FTN      *                    THIS PARAMETER SPECIFIES THE NAME OF THE EXTERNAL           FTN          608     A     
 FTN      *                    TEXT FILE WHICH A PROCESSOR READS FROM WHEN IT EN-          FTN          609     A     
 FTN      *                    COUNTERS A DIRECTIVE IN THE SOURCE WHICH REQUIRES           FTN          610     A     
 FTN      *                    READING FROM SUCH AN EXTERNAL FILE.                         FTN          611     A     
 FTN      *                                                                                FTN          612     A     
 FTN      *                    SPECIFIED VALUE PARAMETER, FD=OLDPL, SD=OPL.                FTN          613     A     
 FTN      *                                                                                F1037F5      171     A     
 FTN      *           STATIC   STATIC LOADING MODE.                                        F1037F5      172     A     
 FTN      *                    THIS PARAMETER SPECIFIES STATIC LOADING OF                  F1037F5      173     A     
 FTN      *                    FORTRAN LIBRARY ROUTINES.                                   F1037F5      174     A     
 FTN      *                                                                                F1037F5      175     A     
 FTN      *                    BINARY VALUE PARAMETER : FD=0, SD= STATIC LOADING.          F1037F5      176     A     
 FTN       OPTIONS  SPACE  4,10                                                            FTN          614     A     
 FTN      **        INTERNAL DEBUGGING OPTIONS (TEST MODE ONLY)                            FTN          615     A     
 FTN      *                                                                                FTN          616     A     
 FTN      *         THE FOLLOWING OPTIONS ARE AVAILABLE IN TEST MODE ONLY.                 FTN          617     A     
 FTN      *                                                                                FTN          618     A     
 FTN      *         CONTROL STATEMENT PARAMETER OPTIONS --                                 FTN          619     A     
 FTN      *                                                                                FTN          620     A     
 FTN      *         BREAK=NN           CALLS INTERACTIVE DEBUG PACKAGE ON ENTRY            FTN          621     A     
 FTN      *                TO OVERLAY NN.  VALUES ARE -                                    FTN          622     A     
 FTN      *                00 - BREAK ON ENTRY TO QCG FRONT END, AFTER                     FTN          623     A     
 FTN      *                       FIRST TIME ONLY INITIALIZATION                           FTN          624     A     
 FTN      *                10 - BREAK ON ENTRY TO QCG FRONT END, AFTER                     FTN          625     A     
 FTN      *                       COMPASS CALLS                                            FTN          626     A     
 FTN      *                20 - BREAK ON LOADING CCG CRADLE                                FTN          627     A     
 FTN      *                21 - BREAK ON LOADING CCG FRONT END                             FTN          628     A     
 FTN      *                22 - BREAK ON LOADING CCG                                       FTN          629     A     
 FTN      *                23 - BREAK ON LOADING CCG REAR END                              FTN          630     A     
 FTN      *                OVERLAY NUMBERS MAY BE CONCATENATED.                            FTN          631     A     
 FTN      *                FD = NO BREAKS,  SD = ALL OVERLAYS                              FTN          632     A     
 FTN      *                                                                                FTN          633     A     
 FTN      *         CPL=N  COMPILE TIME PAGE LIMIT. USEFUL FOR UNPREDICTABLE               FTN          634     A     
 FTN      *                SNAPS AND LOOPS.  FD=200, SD=999 PAGES.                         FTN          635     A     
 FTN      *                IF (LO=O) IS ON, FD=500.                                        FTN          636     A     
 FTN      *                                                                                FTN          637     A     
 FTN      *         IDP=AANN   ENABLE COMPILER BREAKS                                      FTN          638     A     
 FTN      *                SAME AS *SNAP* BELOW BUT IF ENABLED, IDP IS CALLED              FTN          639     A     
 FTN      *                FOR AN INTERACTIVE SESSION.                                     FTN          640     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                                                                                FTN          641     A     
 FTN      *         RFL=NN INITIAL FIELD LENGTH (ASSUMED OCTAL).                           FTN          642     A     
 FTN      *                FD=(DEPENDS ON LOADER), SD=(MIN FL FOR CURRENT MODE)            FTN          643     A     
 FTN      *                                                                                FTN          644     A     
 FTN      *         SNAP=AANN          ENABLES COMPILER SNAPS                              FTN          645     A     
 FTN      *                AA - STRING OF ALPHABETICS DESIGNATING WHICH SNAPS              FTN          646     A     
 FTN      *                     TO ENABLE.                                                 FTN          647     A     
 FTN      *                NN - STRING OF NUMERICS DESIGNATING THE AREA TO SNAP.           FTN          648     A     
 FTN      *                (EG. SNAP=AB2, ENABLES SNAPS A AND B IN CCG)                    FTN          649     A     
 FTN      *                FD = NO SNAPS,  SD = SET BIT 59 OF CO.SNAP                      FTN          650     A     
 FTN      *                                                                                FTN          651     A     
 FTN      *         SPY=LL/UL    INVOKES SPY AND CALLS PRNTSPY TO PROCESS DOSSIER          FTN          652     A     
 FTN      *                LL - FWA OF AREA TO SPY (OCTAL)                                 FTN          653     A     
 FTN      *                UL - LWA OF AREA TO SPY (OCTAL)                                 FTN          654     A     
 FTN      *                FD = NO SPY,  SD = RA.ORG/100000                                FTN          655     A     
 FTN      *                     LL AND UL WILL BE TRUNCATED TO NEAREST 100B.               FTN          656     A     
 FTN      *                     THE SPY BINWIDTH WILL BE THE SMALLEST POWER OF 2           FTN          657     A     
 FTN      *                     WHICH WILL ALLOW THE RANGE BEING SPIED TO FIT              FTN          658     A     
 FTN      *                     IN THE 2046B SPY BINS.  I.E.  -BW-   -RANGE-               FTN          659     A     
 FTN      *                                                    1     1 TO 2046 WDS         FTN          660     A     
 FTN      *                                                    2     TO 4114               FTN          661     A     
 FTN      *                                                    10    TO 20460              FTN          662     A     
 FTN      *                                                    20    TO 41140              FTN          663     A     
 FTN      *                                                    40    TO 102300             FTN          664     A     
 FTN      *                                                                                FTN          665     A     
 FTN      *         SENSE SWITCH USAGES -                                                  FTN          666     A     
 FTN      *                                                                                FTN          667     A     
 FTN      *         SWITCH,5           CALL IDP IN (0,0) OVERLAY INITIALIZATION            FTN          668     A     
 FTN      *                IMMEDIATELY AFTER LOADER ENTRY AND X0,A0 HAVE                   FTN          669     A     
 FTN      *                BEEN SAVED.                                                     FTN          670     A     
 FTN      *         SWITCH,6           INHIBIT COMPILE TIME RPV.                           FTN          671     A     
 FTN       OPTIONS  SPACE  4,10                                                            FTN          672     A     
 FTN      *CALL     COMFCIP - COMPILER INSTALLATION PARAMETERS                             FTN          673     A     
 FTN       FILES    TITLE  INTERNAL FILE NAMES                                             FTN          674     A     
 FTN      **        INTERNAL FILE NAMES.                                                   FTN          675     A     
 FTN                                                                                       FTN          676     A     
 FTN       IN       MICRO  1,, "SV.I"                                                      FTN          677     A     
 FTN       ERRS     MICRO  1,, "SV.E"                                                      FTN          678     A     
 FTN                                                                                       FTN          679     A     
 FTN                IFC    EQ,/"SV.L"/0/,2                                                 FTN          680     A     
 FTN       OUT      MICRO  1,,                                                             FTN          681     A     
 FTN                SKIP   1                                                               FTN          682     A     
 FTN       OUT      MICRO  1,, "SV.L"                                                      FTN          683     A     
 FTN                                                                                       FTN          684     A     
 FTN                                                                                       FTN          685     A     
 FTN       EOUT     MICRO  1,, "SV.E"                                                      FTN          686     A     
 FTN                                                                                       FTN          687     A     
 FTN       LGO      MICRO  1,, "SV.B"                                                      FTN          688     A     
 FTN                                                                                       FTN          689     A     
 FTN       .TEST    IFEQ   TEST,OFF   IF NOT TEST MODE                                     FTN          690     A     
 FTN       IL       MICRO  1,, ZZZZZSA                                                     FTN          691     A     
 FTN       PB       MICRO  1,, ZZZZZSB                                                     FTN          692     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       REF      MICRO  1,, ZZZZZSC                                                     FTN          693     A     
 FTN       OPT      MICRO  1,, ZZZZZSD                                                     FTN          694     A     
 FTN       .TEST    ELSE                                                                   FTN          695     A     
 FTN       IL       MICRO  1,, FTNIL                                                       FTN          696     A     
 FTN       PB       MICRO  1,, FTNPB                                                       FTN          697     A     
 FTN       REF      MICRO  1,, FTNREF                                                      FTN          698     A     
 FTN       OPT      MICRO  1,, FTNOPT                                                      FTN          699     A     
 FTN       .TEST    ENDIF                                                                  FTN          700     A     
 FTN       COMPCOM  TITLE  /COMPCOM/ INTERFACE                                             FTN          701     A     
 FTN      **        PROVIDE DEFINITIONS FOR /COMPCOM/.                                     FTN          702     A     
 FTN                                                                                       FTN          703     A     
 FTN      **        DEFINE MICROS FOR /COMPCOM/.                                           FTN          704     A     
 FTN                                                                                       FTN          705     A     
 FTN                IFC    EQ,/"SV.ET"/0/,2                                                FTN          706     A     
 FTN       CP.ABORT MICRO  1,, 0                                                           FTN          707     A     
 FTN                SKIP   1                                                               FTN          708     A     
 FTN       CP.ABORT MICRO  1,, 1                                                           FTN          709     A     
 FTN                                                                                       FTN          710     A     
 FTN       CP.BLF   MICRO  1,, 1S59*"BV.BL"                                                FTN          711     A     
 FTN       CP.F=    MICRO  1,, -2      VALUE FOR PROCESSOR *F                              FTN          712          I
          -FC50322
 FTN       CP.F=    MICRO  1,, -3      VALUE OF PROCESSOR *F                               FC50322        5     A     
 FTN                                                                                       FTN          713     A     
 FTN                IFC    EQ,/"BV.PN"/OFF/,2                                              FTN          714     A     
 FTN       CP.PAGE  MICRO  1,, 0       DO NOT PROPAGATE PAGE NUMBERS                       FTN          715     A     
 FTN                SKIP   1                                                               FTN          716     A     
 FTN       CP.PAGE  MICRO  1,, 1S59    PROPAGATE PAGE NUMBERS                              FTN          717     A     
 FTN                                                                                       FTN          718     A     
 FTN                IFC    EQ,/"SV.L"/OFF/,2                                               FTN          719     A     
 FTN       CP.LISTF MICRO  1,, 0                                                           FTN          720     A     
 FTN                SKIP   1                                                               FTN          721     A     
 FTN       CP.LISTF MICRO  1,, 1                                                           FTN          722     A     
 FTN                                                                                       FTN          723     A     
 FTN       LISTRM   MICRO  1,, -       DO NOT LIST I/O SUBROUTINES                         FTN          724     A     
 FTN       COMPCOM  SPACE  4                                                               FTN          725     A     
 FTN      **        DEFINE FET MACRO FOR /COMPCOM/.                                        FTN          726     A     
 FTN                                                                                       FTN          727     A     
 FTN       .RM      IFEQ   CP#RM,0                                                         FTN          728     A     
 FTN       FET      MACRO                                                                  FTN          729     A     
 FTN                BSS    8                                                               FTN          730     A     
 FTN        ENDM                                                                           FTN          731     A     
 FTN                                                                                       FTN          732     A     
 FTN       .RM      ENDIF                                                                  FTN          733     A     
 FTN       COMPCOM  SPACE  4                                                               FTN          734     A     
 FTN                USE    /COMPCOM/                                                       FTN          735     A     
 FTN                                                                                       FTN          736     A     
 FTN      **        THE FOLLOWING BSS ALIGNS COMPCOM AND RESERVES 3 WORDS FOR              FTN          737     A     
 FTN      *         FUTURE 54 TABLE ENTRY POINTS.  PLEASE NOTE THAT ANY CHANGES            FTN          738     A     
 FTN      *         WILL AFFECT INTERMIXED COMPASS SUBPROGRAMS.                            FTN          739     A     
 FTN                                                                                       FTN          740     A     
 FTN       LDR.EP   =      3           RESERVED FOR ENTRY POINTS                           FTN          741     A     
 FTN                BSS    LDR.EP                                                          FTN          742     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                LIST   -F                                                              FTN          743     A     
 FTN      *CALL     COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.                     FTN          744     A     
 FTN       COMPCOM  TITLE  /COMPCOM/ INTERFACE                                             FTN          745     A     
 FTN      **        LINK FTN TO /COMPCOM/.                                                 FTN          746     A     
 FTN                                                                                       FTN          747     A     
 FTN                LIST   F,X                                                             FTN          748     A     
 FTN       COMPCOM  SPACE  4,10                                                            FTN          749     A     
 FTN      **        EQUATE FTN AND /COMPCOM/ LOCATIONS.                                    FTN          750     A     
 FTN                                                                                       FTN          751     A     
 FTN                                                                                       FTN          752     A     
 FTN       CP.ABT   EQUENT CP.ABORT    *ABORT IF FATAL ERRORS* FLAG                        FTN          753     A     
 FTN       CP.ERCT  EQUENT CP.ERRCT    TOTAL NUMBER OF (ET=) RELEVANT ERRORS               FTN          754     A     
 FTN       CP.FLIN  EQUENT CP.LINE+2   FTN SOURCE LISTING LINE FWA                         FTN          755     A     
 FTN       CP.IFMT  EQUENT CP.IFORM    SOURCE FILE FORMAT                                  FTN          756     A     
 FTN       CP.LSTF  EQUENT CP.LISTF    MASTER OUTPUT LISTING FLAG                          FTN          757     A     
 FTN       CP.MXFL  EQUENT CP.MAXFL    MAXIMUM FIELD LENGTH USED                           FTN          758     A     
 FTN       CP.STXT  EQUENT CP.STEXT    LIST OF SYSTEM TEXTS USED BY COMPASS                FTN          759     A     
 FTN       CP.XTXT  EQUENT CP.XNAME    COMPASS XTEXT NAME                                  FTN          760     A     
 FTN       CP.ILFL  EQUENT CP.CDC      INITIAL LCM FIELD LENGTH                            FC5A119        9     A     
 FTN                                                                                       FTN          761     A     
 FTN                ENTRY  CP.AFLL                                                         FTN          762     A     
 FTN                ENTRY  CP.AFLS                                                         FTN          763     A     
 FTN                ENTRY  CP.BLF                                                          FTN          764     A     
 FTN                ENTRY  CP.CARD                                                         FTN          765     A     
 FTN                ENTRY  CP.CPU                                                          FTN          766     A     
 FTN                ENTRY  CP.LCOM                                                         FTN          767     A     
 FTN                ENTRY  CP.LIB                                                          FTN          768     A     
 FTN                ENTRY  CP.MODL                                                         FTN          769     A     
 FTN                ENTRY  CP.NFLL                                                         FTN          770     A     
 FTN                ENTRY  CP.NFLS                                                         FTN          771     A     
 FTN                ENTRY  CP.PAGE                                                         FTN          772     A     
 FTN                ENTRY  CP.PCOM                                                         FTN          773     A     
 FTN                ENTRY  CP.PD                                                           FTN          774     A     
 FTN                ENTRY  CP.PS                                                           FTN          775     A     
 FTN                ENTRY  CP.PW                                                           FTN          776     A     
 FTN                ENTRY  CP.EPAG                                                         FC5A115        4     A     
 FTN                ENTRY  CP.ILFL                                                         FC5A119       10     A     
 FTN                                                                                       FTN          777     A     
 FTN                IFNE   CP#RM,7,1                                                       FTN          778     A     
 FTN                ENTRY  SYS=,RCL=,WNB=,MSG=                                             FTN          779     A     
 FTN       COMPCOM  SPACE  4,10                                                            FTN          780     A     
 FTN      **        DEFINE LOCAL NAMES FOR /COMPCOM/ FETS AND FITS.                        FTN          781     A     
 FTN                                                                                       FTN          782     A     
 FTN                                                                                       FTN          783     A     
 FTN       .RM      IFEQ   CP#RM,0     IF USING CIO I/O                                    FTN          784     A     
 FTN       F.IN     =      CP.IFET                                                         FTN          785     A     
 FTN       F.LGO    =      CP.BFET                                                         FTN          786     A     
 FTN       F.OUT    =      CP.OFET                                                         FTN          787     A     
 FTN       F.ERRS   =      CP.EFET                                                         FC5A115        5     A     
 FTN                                                                                       FTN          788     A     
 FTN       .RM      ELSE               IF USING 7RM I/O                                    FTN          789     A     
 FTN                                                                                       FTN          790     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       FI.ERRS  =      CP.EFIT                                                         FC5A158A      61     A     
 FTN       FI.IN    =      CP.IFIT                                                         FTN          791     A     
 FTN       FI.LGO   =      CP.BFIT                                                         FTN          792     A     
 FTN       FI.OUT   =      CP.OFIT                                                         FTN          793     A     
 FTN       FI.ERRS  =      CP.EFIT                                                         FC5A115        6     A     
 FTN       .RM      ENDIF                                                                  FTN          794     A     
 FTN       FLREQ    TITLE  COMPILER FIELD LENGTH REQUIREMENTS                              FTN          795     A     
 FTN      **        COMPILER FIELD LENGTH REQUIREMENTS.                                    FTN          796     A     
 FTN      *                                                                                FTN          797     A     
 FTN      *         THE FOLLOWING SYMBOLS AND MICROS SPECIFY THE MINIMUM CM/SCM            FTN          798     A     
 FTN      *         FIELD LENGTH REQUIREMENTS (WHICH VARY WITH COMPILER CONFIGU-           FTN          799     A     
 FTN      *         RATION) AND THE NOMINAL DEFAULT AND MAXIMUM FIELD LENGTHS              FTN          800     A     
 FTN      *         REQUESTED WHEN JOB FL IS SYSTEM-CONTROLLED.                            FTN          801     A     
 FTN                                                                                       FTN          802     A     
 FTN                                                                                       FTN          803     A     
 FTN       IB.FL    SET    Z.INB+Z.OUTB      ADD FOR CIO BUFFERS                           FTN          804     A     
 FTN       IB.FL    SET    IB.FL/100B*100B   TRUNCATE TO NEAREST 100B                      FTN          805     A     
 FTN                                                                                       FTN          806     A     
 FTN       IT.FL    =      12000B*TEST       INCREMENT FOR TEST MODE                       FTN          807     A     
 FTN                                                                                       FTN          808     A     
 FTN                                                                                       FTN          809          I
          -FC5A119
 FTN      **        MINIMUM COMPILER FIELD LENGTHS.                                        FTN          810          I
          -FC5A119
 FTN                                                                                       FTN          811          I
          -FC5A119
 FTN       MIN.FL0  EQUENT 52000B+IT.FL      OPT=0 (QCGC) MINIMUM FL                       FTN          812          I
          -FC5A119
 FTN                ERRMI  IP.MFL-MIN.FL0        QCG FL .GT. INSTALLATION LIMIT            FTN          813          I
          -FC5A119
 FTN                                                                                       FTN          814          I
          -FC5A119
 FTN       MIN.FL1  EQUENT 46000B+IT.FL      OPT=1 (CCG) MINIMUM FL                        FTN          815          I
          -FC5A119
 FTN                ERRMI  IP.MFL-MIN.FL1        OPT=1 FL .GT. INSTALLATION LIMIT          FTN          816          I
          -FC5A119
 FTN                                                                                       FTN          817          I
          -FC5A119
 FTN       MIN.FL2  EQUENT MIN.FL1+12000B        OPT=2 (CCG) MINIMUM FL                    FTN          818          I
          -FC5A119
 FTN                ERRMI  IP.MFL-MIN.FL2        OPT=2 FL .GT. INSTALLATION LIMIT          FTN          819          I
          -FC5A119
 FTN                                                                                       FTN          820          I
          -FC5A119
 FTN       MIN.FL   MIN    MIN.FL0,MIN.FL1,MIN.FL2  SMALLEST MINIMUM FL                    FTN          821          I
          -FC5A119
 FTN                                                                                       FTN          822          I
          -FC5A119
 FTN                                                                                       FTN          823          I
          -FC5A119
 FTN      **        NOMINAL FIELD LENGTHS (FOR MEMORY REQUESTS).                           FTN          824          I
          -FC5A119
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FTN          825          I
          -FC5A119
 FTN       NOM.FL0  MIN    MIN.FL0+IN.FL0,IP.MFL OPT=0 (QCG) NOMINAL FL                    FTN          826          I
          -FC5A119
 FTN                ENTRY  NOM.FL0                                                         FTN          827          I
          -FC5A119
 FTN                                                                                       FTN          828          I
          -FC5A119
 FTN       NOM.FL1  MIN    MIN.FL1+IN.FL1,IP.MFL OPT=1 (CCG) NOMINAL FL                    FTN          829          I
          -FC5A119
 FTN                ENTRY  NOM.FL1                                                         FTN          830          I
          -FC5A119
 FTN                                                                                       FTN          831          I
          -FC5A119
 FTN       NOM.FL2  MIN    MIN.FL2+IN.FL2,IP.MFL OPT=2 (CCG) NOMINAL FL                    FTN          832          I
          -FC5A119
 FTN                ENTRY  NOM.FL2                                                         FTN          833          I
          -FC5A119
 FTN                                                                                       FTN          834          I
          -FC5A119
 FTN       NOM.FLS  BSSENT                                                                 FTN          835          I
          -FC5A119
 FTN                CON    NOM.FL0,NOM.FL1,NOM.FL2                                         FTN          836          I
          -FC5A119
 FTN       MIN.FL   EQU    MIN.TABS+NOM.INC                                                FC5A119       11     A     
 FTN                                                                                       FTN          837     A     
 FTN      **        MEM DOWN FIELD LENGTH FOR *GO* MODE.                                   FTN          838          I
          -FC5A158A 
 FTN                                                                                       FTN          839          I
          -FC5A158A 
 FTN       MEM.GOFL EQU    34000B                                                          FTN          840          I
          -FC5A158A 
 FTN                                                                                       FTN          841     A     
 FTN      **        PROGRAM UNIT INITIAL FIELD LENGTH                                      FTN          842     A     
 FTN                                                                                       FTN          843     A     
 FTN       INT.FL   BSZENT            1                                                    FTN          844     A     
 FTN       FETS     TITLE  FILE MANAGEMENT TABLES                                          FTN          845     A     
 FTN      **        FET - A MACRO TO FORM FETS AND PSEUDO FETS                             FTN          846     A     
 FTN                                                                                       FTN          847     A     
 FTN                                                                                       FTN          848     A     
 FTN                PURGMAC FET                                                            FTN          849     A     
 FTN                                                                                       FTN          850     A     
 FTN       FET      MACRO  NAME,FIRST,MODE                                                 FTN          851     A     
 FTN                LOCAL  REORG                                                           FTN          852     A     
 FTN      *                                                                                FTN          853     A     
 FTN      *                                                                                FTN          854     A     
 FTN      **        FET FOR CIO I/O.                                                       FTN          855     A     
 FTN      *                                                                                FTN          856     A     
 FTN      *                                                                                FTN          857     A     
 FTN       .RM      IFEQ   CP#RM,0                                                         FTN          858     A     
 FTN       REORG    SET    0                                                               FTN          859     A     
 FTN      *         CHECK FOR EXISTING /COMPCOM/ FET DEFINITION.                           FTN          860     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       .CD      IF     DEF,F.NAME                                                      FTN          861     A     
 FTN       REORG    SET    1                                                               FTN          862     A     
 FTN      *         TO REDEFINE /COMPCOM/ FET.                                             FTN          863     A     
 FTN                ORG    F.NAME                                                          FTN          864     A     
 FTN       .CD      ELSE                                                                   FTN          865     A     
 FTN       F.NAME   BSS    0                                                               FTN          866     A     
 FTN       .CD      ENDIF                                                                  FTN          867     A     
 FTN      *                                                                                FTN          868     A     
 FTN      *         FORM FET.                                                              FTN          869     A     
 FTN      *                                                                                FTN          870     A     
 FTN                VFD    42/0L"NAME",18/MODE+1                                           FTN          871     A     
 FTN                VFD    36/0,6/3,18/FIRST                                               FTN          872     A     
 FTN                CON    FIRST                                                           FTN          873     A     
 FTN                CON    FIRST                                                           FTN          874     A     
 FTN                CON    FIRST+Z.NAME_B                                                  FTN          875     A     
 FTN      *         (I.CBSET)          PASS 1 BUFFER RESET PARAMS.                         FTN          876     A     
 FTN                VFD    24/0,18/Z.NAME_B,18/FIRST                                       FTN          877     A     
 FTN                BSSZ   2                 RANDOM FILE INFO                              FTN          878     A     
 FTN       .CD      IFEQ   REORG,1                                                         FTN          879     A     
 FTN      *         RETURN TO NOMINAL BLOCK.                                               FTN          880     A     
 FTN                USE    *                                                               FTN          881     A     
 FTN       .CD      ENDIF                                                                  FTN          882     A     
 FTN       .RM      ENDIF                                                                  FTN          883     A     
 FTN      *                                                                                FTN          884     A     
 FTN      *                                                                                FTN          885     A     
 FTN      **        PSEUDO FET FOR RECORD MANAGER I/O.                                     FTN          886     A     
 FTN      *                                                                                FTN          887     A     
 FTN      *                                                                                FTN          888     A     
 FTN       .RM      IFEQ   CP#RM,7                                                         FTN          889     A     
 FTN      *                            DEFINE PSEUDO-FET BASE ADDRESS.                     FTN          890     A     
 FTN       F.NAME   BSS    0                                                               FTN          891     A     
 FTN      *         (I.FIT)            FLAGS AND FIT POINTER.                              FTN          892     A     
 FTN      *                            1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR          FTN          893     A     
 FTN      *                *HOLDING BUFFER EXISTS* FLAG  ( 1=YES, 0=NO )                   FTN          894     A     
 FTN                VFD    1/1*Z.NAME_B/Z.NAME_B                                           FTN          895     A     
 FTN      *                *FILE SPILLED* FLAG           ( 1=YES, 0=NO )                   FTN          896     A     
 FTN                VFD    1/0                                                             FTN          897     A     
 FTN      *                RESERVED FOR CDC.                                               FTN          898     A     
 FTN                VFD    40/0                                                            FTN          899          I
          -FC5A158A 
 FTN                VFD    1/1         *UNCONDITIONAL FLUSH FLAG*                          FC5A158A      62     A     
 FTN                VFD    39/0        *RESERVED FOR CDC*                                  FC5A158A      63     A     
 FTN      *                FIT ADDRESS.                                                    FTN          900     A     
 FTN                VFD    18/FI.NAME                                                      FTN          901     A     
 FTN      *                            HOLDING BUFFER CONTROL PARAMETERS.                  FTN          902     A     
 FTN       .HB      IFNE   Z.NAME_B,0                                                      FTN          903     A     
 FTN      *         (I.FIRST), (I.IN), (I.OUT), (I.LIMIT)                                  FTN          904     A     
 FTN                DUP    4,1                                                             FTN          905     A     
 FTN                VFD    42/0,18/**                                                      FTN          906     A     
 FTN      *         (I.HBSET)          HOLDING BUFFER RESET VALUES.                        FTN          907     A     
 FTN                VFD    24/0,18/Z.NAME_B,18/**                                          FTN          908     A     
 FTN       .HB      ENDIF                                                                  FTN          909     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       .RM      ENDIF                                                                  FTN          910     A     
 FTN      *                                                                                FTN          911     A     
 FTN      *         DECLARE GLOBAL FILE SYMBOLS AS ENTRY POINTS.                           FTN          912     A     
 FTN                ENTRY  F.NAME                                                          FTN          913     A     
 FTN      *                                                                                FTN          914     A     
 FTN      *         FORM FILE VECTOR TABLE FOR JOB COMMUNICATIONS AREA (RA.ARG).           FTN          915     A     
 FTN      *                                                                                FTN          916     A     
 FTN      *         /FVEC-HERE/ APPEARS AT *FVTBL*.                                        FTN          917     A     
 FTN       FVEC     RMT                                                                    FTN          918     A     
 FTN                FVEC   NAME                                                            FTN          919     A     
 FTN       FVEC     RMT                                                                    FTN          920     A     
 FTN      *                                                                                FTN          921     A     
 FTN       FET      ENDM                                                                   FTN          922     A     
 FTN       FETS     SPACE  4                                                               FTN          923     A     
 FTN                                                                                       FTN          924     A     
 FTN      **        CIO CODE VALUES FOR FILE MODES.                                        FTN          925     A     
 FTN                                                                                       FTN          926     A     
 FTN                                                                                       FTN          927     A     
 FTN       BINARY   EQU    2                                                               FTN          928     A     
 FTN       CODED    EQU    0                                                               FTN          929     A     
 FTN       FET/FIT  SPACE  4,10                                                            FTN          930     A     
 FTN      **        SCRATCH FILE DISPOSITION.                                              FTN          931     A     
 FTN      *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)                    FTN          932     A     
 FTN      *                                                                                FTN          933     A     
 FTN      *         SELECT *CLOSE FLAG* (CF) PARAMETER FOR EACH SCRATCH FILE FIT.          FTN          934     A     
 FTN      *         THE PARAMETER MAY BE ALTERED DURING COMPILER INITIALIZATION,           FTN          935     A     
 FTN      *         TO COMPLY WITH CONTROL STATEMENT OPTION SELECTIONS.                    FTN          936     A     
 FTN                                                                                       FTN          937     A     
 FTN                                                                                       FTN          938     A     
 FTN       .RM      IFGE   CP#RM,6                                                         FTN          939     A     
 FTN       .TEST    IFEQ   TEST,OFF   IF NOT TEST MODE                                     FTN          940     A     
 FTN      *                SYSTEM MODE COMPILER - UNLOAD SCRATCH FILES.                    FTN          941     A     
 FTN       SFD      MICRO  1,, U                                                           FTN          942     A     
 FTN       .TEST    ELSE                                                                   FTN          943     A     
 FTN      *                TEST MODE COMPILER - REWIND SCRATCH FILES.                      FTN          944     A     
 FTN       SFD      MICRO  1,, R                                                           FTN          945     A     
 FTN       .TEST    ENDIF                                                                  FTN          946     A     
 FTN       .RM      ENDIF                                                                  FTN          947     A     
 FTN       FET/FIT  SPACE  4,10                                                            FTN          948     A     
 FTN      **        FET/FIT AREAS.                                                         FTN          949     A     
 FTN      *                                                                                FTN          950     A     
 FTN      *                                                                                FTN          951     A     
 FTN       INPUT    SPACE  4,10                                                            FTN          952     A     
 FTN      **        INPUT  -  FORTRAN SOURCE INPUT FILE.                                   FTN          953     A     
 FTN                                                                                       FTN          954     A     
 FTN                                                                                       FTN          955     A     
 FTN                FET    IN,IBUF,CODED                                                   FTN          956     A     
 FTN       OUTPUT   SPACE  4,10                                                            FTN          957     A     
 FTN      **        OUTPUT  -  LISTABLE OUTPUT FILE.                                       FTN          958     A     
 FTN                                                                                       FTN          959     A     
 FTN                                                                                       FTN          960     A     
 FTN                FET    OUT,OBUF,CODED                                                  FTN          961     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SPACE  4                                                               FTN          962     A     
 FTN      **        ERRS - ERROR LISTING FILE                                              FTN          963     A     
 FTN                                                                                       FTN          964     A     
 FTN                                                                                       FTN          965     A     
 FTN                FET    ERRS,0,CODED                                                    FTN          966     A     
 FTN       LGO      SPACE  4,10                                                            FTN          967     A     
 FTN      **        LGO  -  EXECUTABLE BINARY (LOAD-AND-GO) FILE.                          FTN          968     A     
 FTN                                                                                       FTN          969     A     
 FTN                                                                                       FTN          970     A     
 FTN                FET    LGO,0,BINARY                                                    FTN          971     A     
 FTN       PB       SPACE  4,10                                                            FTN          972     A     
 FTN      **        PB - PRE BINARY FILE.                                                  FTN          973     A     
 FTN                                                                                       FTN          974     A     
 FTN                                                                                       FTN          975     A     
 FTN                FET    PB,0,BINARY                                                     FTN          976     A     
 FTN       .RM      IFEQ   CP#RM,7                                                         FTN          977     A     
 FTN       FI.PB    FILE   LFN="PB",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=W          FTN          978     A     
 FTN                BSSZ   FI.PB+20D-*                                                     FTN          979     A     
 FTN       .RM      ENDIF                                                                  FTN          980     A     
 FTN       F.SLST   EQUENT F.PB        CCG INTERFACE NAME                                  FTN          981     A     
 FTN       IL       SPACE  4,10                                                            FTN          982     A     
 FTN      **        IL - INTERMEDIATE LANGUAGE.                                            FTN          983     A     
 FTN                                                                                       FTN          984     A     
 FTN                                                                                       FTN          985     A     
 FTN                FET    IL,0,BINARY                                                     FTN          986     A     
 FTN       .RM      IFEQ   CP#RM,7                                                         FTN          987     A     
 FTN       FI.IL    FILE   LFN="IL",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=W          FTN          988     A     
 FTN                BSSZ   FI.PB+20D-*                                                     FTN          989          I
          -FC5A158A 
 FTN                BSSZ   FI.IL+20D-*                                                     FC5A158A      64     A     
 FTN       .RM      ENDIF                                                                  FTN          990     A     
 FTN       REFMAP   SPACE  4,10                                                            FTN          991     A     
 FTN      **        REFMAP  -  LONG REFERENCE MAP SCRATCH FILE.                            FTN          992     A     
 FTN                                                                                       FTN          993     A     
 FTN                                                                                       FTN          994     A     
 FTN                FET    REF,0,BINARY                                                    FTN          995     A     
 FTN       .RM      IFEQ   CP#RM,7                                                         FTN          996     A     
 FTN       FI.REF   FILE   LFN="REF",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=W         FTN          997     A     
 FTN                BSSZ   FI.RMAP+20D-*                                                   FTN          998          I
          -FC5A158A 
 FTN                BSSZ   FI.REF+20D-*                                                    FC5A158A      65     A     
 FTN       .RM      ENDIF                                                                  FTN          999     A     
 FTN       FTNIO    SPACE  4,10                                                            FTN         1000     A     
 FTN      **        DEFINE OUTPUT FILE NAME FOR FORTRAN-CODED I/O.                         FTN         1001     A     
 FTN                                                                                       FTN         1002     A     
 FTN                                                                                       FTN         1003     A     
 FTN                IFEQ   TEST,ON,1   IF TEST MODE                                        FTN         1004     A     
 FTN       OUTPUT"FC" EQUENT F.OUT                                                         FTN         1005     A     
 FTN       CELLS    TITLE  CONSTANTS, DATA, FLAGS, TEMP STORAGE                            FTN         1006     A     
 FTN       CELLS    SPACE  4,10                                                            FTN         1007     A     
 FTN      **        MISCELLANEOUS FLAGS.                                                   FTN         1008     A     
 FTN                                                                                       FTN         1009     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FTN         1010     A     
 FTN                ENTRY  FTIFL                                                           FTN         1011     A     
 FTN       FTIFL    VFD    12/0,18/**,30/0   INITIAL CM/SCM FIELD LENGTH                   FTN         1012     A     
 FTN       JOT      CONENT 0           JOB ORIGIN TYPE (0 - BATCH, 1 - TERMINAL)           FTN         1013     A     
 FTN       LDRFL    VFD    12/0,18/MEM.GOFL,30/0   FIELD LENGTH FOR LOADING IN GO          FTN         1014          I
          -FC5A158A 
 FTN       MAX.FL   CONENT 7777777776BS30    JOB STEP MAX FL (-1 FOR MEMORY CALL)          FTN         1015     A     
 FTN       NOM.FL   CONENT 0           NOMINAL FL FOR THIS MODE                            FTN         1016     A     
 FTN       OT.DAL   CONENT .DAL        OBJECT TIME DIRECT-ACCESS LCM (0=NO, 1=YES)         FTN         1017     A     
 FTN       OT.RM    CONENT OT#RM-6     OBJECT TIME I/O (0=6RM, 1=7RM)                      FTN         1018     A     
 FTN       PAGES    BSZENT 2           TOTAL NUMBER PAGES LISTED, L AND E                  FTN         1019          I
          -FC5A164
 FTN                                                                                       FTN         1020          I
          -FC5A115
 FTN      *         TEMP UNTIL MOVED TO COMPCOM.                                           FTN         1021          I
          -FC5A115
 FTN                                                                                       FTN         1022          I
          -FC5A115
 FTN       CP.EPAG  BSZENT 1           NUMBER OF PAGES LISTED TO E-FILE                    FTN         1023          I
          -FC5A115
 FTN       RAPFLAG  CONENT 0           1S59 IF READ ALREADY PERFORMED, ELSE 0              FTN         1024     A     
 FTN       RS.PD    CONENT 0           JOB DEFAULT PRINT DENSITY IMAGE                     FC5A426       18     A     
 FTN       TIME0    CONENT 0           COMPILATION START TIME IN MILLISECONDS              FTN         1025     A     
 FTN       TIME1    CONENT 0           PROGRAM UNIT START TIME IN MILLISECONDS             FTN         1026     A     
 FTN       ENOT=L   CONENT 0           1 IF EFILE .NE. LFILE. 0 OTHERWISE                  FTN         1027     A     
 FTN       CO.CELLS SPACE  4,10                                                            FTN         1028     A     
 FTN      **        FLAGS ASSOCIATED WITH THE CONTROL STATEMENT OPTIONS.                   FTN         1029     A     
 FTN      *                                                                                FTN         1030     A     
 FTN      *         UNLESS OTHERWISE SPECIFIED, A FLAG IS *ON* (1S59) OR                   FTN         1031     A     
 FTN      *         *OFF* (0).                                                             FTN         1032     A     
 FTN                                                                                       FTN         1033     A     
 FTN                                                                                       FTN         1034     A     
 FTN       CO.AL    CONENT 1S59*"BV.AL"      ON IF AUTOMATIC LEVEL                         FC5A444       41     A     
 FTN       CO.ANSI  CONENT 1R"SV.ANSI"       ANSI (1R0,1RT,1RF)                            FTN         1035     A     
 FTN       CO.ARGC  CONENT 1S59*"BV.ARGC"    ON IF COMMON ARGUMENT LISTS                   FTN         1036     A     
 FTN       CO.ARGF  CONENT 1S59*"BV.ARGF"    ON IF FIXED LENGTH ARGUMENT LISTS             FTN         1037     A     
 FTN       CO.DBB   EQUENT CP.ERCT           ON IF BINARY REGARDLESS                       FTN         1038     A     
 FTN       CO.DBER  CONENT 2RER              ON IF ERROR RECOVERY                          FTN         1039     A     
 FTN       CO.DBID  CONENT 1S59*"BV.DBID"    ON IF INTERACTIVE DEBUG                       FTN         1040     A     
 FTN       CO.DBPM  CONENT 1S59*"BV.DBPM"    ON IF POST MORTEM DUMP                        FTN         1041     A     
 FTN       CO.DBSB  CONENT 1S59*"BV.DBSB"    ON IF SUBSCRIPT BOUNDS CHECKING               FTN         1042     A     
 FTN       CO.DBSL  CONENT 1S59*"BV.DBSL"    ON IF SUBSTRING LIMITS CHECKING               FTN         1043     A     
 FTN       CO.DBST  CONENT 1S59*"BV.DBST"    ON IF SYMBOL TABLE TO BINARY                  FTN         1044     A     
 FTN       CO.DBTB  CONENT 1S59*"BV.DBTB"    ON IF ERROR TRACEBACK                         FTN         1045     A     
 FTN       CO.DS    CONENT 1S59*"BV.DS"      ON IF DIRECTIVE SUPPRESSION                   FTN         1046     A     
 FTN       CO.EC    CONENT 1S59*"BV.EC"      ON IF ECS USE AT COMPILE TIME OK              F1037F5      177     A     
 FTN       CO.EL    CONENT 1R"SV.EL"         ERROR LEVEL (1RT,1RW,1RF,1RC)                 FTN         1047     A     
 FTN       CO.ET    CONENT 1R"SV.ET"         ERROR TERMINATE (1R0,1RT,1RW,1RF,1RC)         FTN         1048     A     
 FTN       CO.GO    CONENT 1S59*"BV.GO"      LFN IF GO SELECTED, ELSE 0                    FTN         1049     A     
 FTN       CO.LCM   CONENT 1R"SV.LCM"        LCM=(G,D,I) = (-1,0,+1)                       FTN         1050     A     
 FTN       CO.LL    CONENT "SV.LL"           OBJECT TIME LINE LIMIT                        FTN         1051     A     
 FTN       CO.MD    CONENT 1R"SV.MD"         MD=(1R0,1RT,1RF)                              F1037F5      178     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       CO.OPT   CONENT "SV.OPT"          (0, 1, 2)                                     FTN         1052     A     
 FTN       CO.PS    CONENT 1S59              1S59 IF PS NOT SELECTED                       FC5A107        6     A     
 FTN       CO.PW    CONENT "SV.PW"           PAGE WIDTH (NUMBER OF CHARS)                  FTN         1053     A     
 FTN       CO.PWE   CONENT "SV.PW"     MUST FOLLOW CO.PW                                   FTN         1054          I
          -FC5A107
 FTN       CO.PWE   CONENT "SV.PW"           MUST FOLLOW CO.PW                             FC5A107        7     A     
 FTN       CO.PWT   EQUENT "SV.PWT"          PAGE WIDTH FOR TTY                            FTN         1055     A     
 FTN       CO.REWB  CONENT 1S59*"BV.REWB"    ON IF REWIND B FILE                           FTN         1056     A     
 FTN       CO.REWE  CONENT 1S59*"BV.REWE"    ON IF REWIND E FILE                           FTN         1057     A     
 FTN       CO.REWI  CONENT 1S59*"BV.REWI"    ON IF REWIND I FILE                           FTN         1058     A     
 FTN       CO.REWL  CONENT 1S59*"BV.REWL"    ON IF REWIND L FILE                           FTN         1059     A     
 FTN       CO.RNDA  CONENT 1S59*"BV.RNDA"    ON IF ROUNDING ADDS                           FTN         1060     A     
 FTN       CO.RNDS  CONENT 1S59*"BV.RNDS"    ON IF ROUNDING SUBTRACTS                      FTN         1061     A     
 FTN       CO.RNDM  CONENT 1S59*"BV.RNDM"    ON IF ROUNDING MULTIPLIES                     FTN         1062     A     
 FTN       CO.RNDD  CONENT 1S59*"BV.RNDD"    ON IF ROUNDING DIVIDES                        FTN         1063     A     
 FTN       CO.SEQ   CONENT 1S59*"BV.SEQ"     ON IF SEQUENCED INPUT                         FTN         1064     A     
 FTN       CO.STAT  CONENT 1S59*"BV.STAT"    ON IF STATIC, ELSE 0                          F1037F5      179     A     
 FTN                IFEQ   .MI,1,1                                                         F1037F5      180     A     
 FTN       CO.TMLC  CONENT "BV.TMLC"+1       NZ IF TARGET MACHINE HAS LCM                  F1037F5      181     A     
 FTN       CO.UO    CONENT 1S59*"BV.UO"      ON IF UNSAFE OPT OK                           FTN         1065     A     
 FTN       CO.WPL   CONENT 0           PAGE WIDTH CONTROL WORD FOR L FILE                  FC5A426       19     A     
 FTN       CO.WPE   CONENT 0           PAGE WIDTH CONTROL WORD FOR E FILE                  FC5A426       20     A     
 FTN       CO.C$    SPACE  4,10                                                            FTN         1066     A     
 FTN      **        FLAGS ASSOCIATED WITH THE CONTROL STATEMENT OPTIONS WHICH MAY          FTN         1067     A     
 FTN      *         BE RESET BY C$ DIRECTIVES.                                             FTN         1068     A     
 FTN      *                                                                                FTN         1069     A     
 FTN      *         THESE FLAGS MUST STAY IN SYNCH WITH CORRESPONDING VALUES IN            FTN         1070     A     
 FTN      *         WO.C$ IN PUC.                                                          FTN         1071     A     
 FTN                                                                                       FTN         1072     A     
 FTN                                                                                       FTN         1073     A     
 FTN       CO.C$    BSSENT 0                                                               FTN         1074     A     
 FTN                                                                                       FTN         1075     A     
 FTN       CO.CS    CONENT 0L"SV.CS"         COLLATING SEQUENCE 0=FIXED,1=USER             FTN         1076     A     
 FTN       CO.DOLG  CONENT 1S59*"BV.DOLG"    ON IF LONG DO LOOPS                           FTN         1077     A     
 FTN       CO.DOOT  CONENT 1S59*"BV.DOOT"    ON IF ONE TRIP DO LOOPS                       FTN         1078     A     
 FTN       CO.LOA   CONENT 1S59*"BV.LOA"     ON IF ATTRIBUTE LIST                          FTN         1079     A     
 FTN       CO.LOC   CONENT 1S59*"BV.LOC"     ON IF COMDECKS TO BE LISTED                   FTN         1080          I
          -FC5A321
 FTN       CO.LOM   CONENT 1S59*"BV.LOM"     ON IF ADDRESS MAP                             FTN         1081     A     
 FTN       CO.LOO   CONENT 1S59*"BV.LOO"     ON IF OBJECT LIST                             FTN         1082     A     
 FTN       CO.LOR   CONENT 1S59*"BV.LOR"     ON IF CROSS REFERENCE                         FTN         1083     A     
 FTN       CO.LOS   CONENT 1S59*"BV.LOS"     ON IF SOURCE LISTING                          FTN         1084     A     
 FTN       CO.QC    CONENT 1S59*"BV.QC"      ON IF QUICK CHECK                             FTN         1085     A     
 FTN                                                                                       FTN         1086     A     
 FTN       L.C$     EQUENT *-CO.C$                                                         FTN         1087     A     
 FTN       TEST     SPACE  4,10                                                            FTN         1088     A     
 FTN      **        TEST MODE ONLY FLAGS.                                                  FTN         1089     A     
 FTN                                                                                       FTN         1090     A     
 FTN                                                                                       FTN         1091     A     
 FTN       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        FTN         1092     A     
 FTN       .OS2     IFNE   .OS,2                                                           FTN         1093     A     
 FTN       CO.BRK   CONENT 0           LIST OF OVERLAY NRS (0L FMT) AS SET UP BY           FTN         1094     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                              *BREAK* CS OPTION.                                FTN         1095     A     
 FTN      *                              E.G.  BREAK=2122  WOULD BE  4L2122                FTN         1096     A     
 FTN      *                              (CO.BRK) = 1 FOR BREAK *ALL*                      FTN         1097     A     
 FTN       .OS2     ENDIF                                                                  FTN         1098     A     
 FTN                                                                                       FTN         1099     A     
 FTN       CO.CPL   CONENT 200         COMPILE TIME PAGE LIMIT                             FTN         1100     A     
 FTN       CO.IDP   CONENT 0           IDP BREAK FLAGS                                     FTN         1101     A     
 FTN       CO.RFL   CONENT 0           COMPILER INITIAL FL                                 FTN         1102     A     
 FTN       CO.SNAP  CONENT 0           .NZ. IF SNAPS DESIRED                               FTN         1103     A     
 FTN       CO.SPP   CONENT 0           SYSTEM PROGRAMMER PACKAGE FLAG                      FTN         1104     A     
 FTN       .TEST    ENDIF                                                                  FTN         1105     A     
 FTN       LCMFLAGS SPACE  4,10                                                            FTN         1106     A     
 FTN      **        FLAGS ASSOCIATED WITH LCM USAGE ( OPT .GE. 2 )                         FTN         1107     A     
 FTN                                                                                       FTN         1108     A     
 FTN                                                                                       FTN         1109     A     
 FTN       LCM.OA   CONENT 0           ORIGIN OF ALLOCATABLE LCM                           FTN         1110     A     
 FTN       LCM.MM   CONENT 0           MEMORY MODE ( = 1S59 IF REDUCE MODE )               FTN         1111     A     
 FTN       LCM.MU   CONENT 0           MEMORY USED                                         FTN         1112     A     
 FTN       LCM.FL   EQUENT CP.AFLL     LCM FIELD LENGTH ( ACTUAL )                         FTN         1113     A     
 FTN       TEMPS    SPACE  4,10                                                            FTN         1114     A     
 FTN      **        GLOBAL TEMPORARY STORAGE CELLS.                                        FTN         1115     A     
 FTN      *                                                                                FTN         1116     A     
 FTN      *         THESE SCRATCH CELLS ARE AVAILABLE TO ANY USER AT ANY TIME.             FTN         1117     A     
 FTN      *         THEY ARE INTENDED FOR USE WITH IN-LINE CODE, AND SHOULD NOT            FTN         1118     A     
 FTN      *         BE EXPECTED TO SURVIVE OVER SUBROUTINE CALLS.                          FTN         1119     A     
 FTN                                                                                       FTN         1120     A     
 FTN                                                                                       FTN         1121     A     
 FTN       GT1      EQUENT CP.LINE                                                         FTN         1122     A     
 FTN       GT2      EQUENT CP.LINE+1                                                       FTN         1123     A     
 FTN       CCG      SPACE  4,10                                                            FTN         1124     A     
 FTN      **        CCG INTERFACE NAMES FOR VARIOUS CELLS.                                 FTN         1125     A     
 FTN                                                                                       FTN         1126     A     
 FTN                                                                                       FTN         1127     A     
 FTN       HO$ER    EQUENT CO.DBER                                                         FTN         1128     A     
 FTN       HO$TB    EQUENT CO.DBTB                                                         FC5A275        8     A     
 FTN       HO$IE    EQUENT CO.EL                                                           FTN         1129     A     
 FTN       HO$LCM   EQUENT CO.LCM                                                          FTN         1130     A     
 FTN       HO$LO$S  EQUENT CO.LOS                                                          FTN         1131     A     
 FTN       HO$MFLS  EQUENT MAX.FL                                                          FTN         1132     A     
 FTN       HO$OBL   EQUENT Z.ILB/2-1                                                       FTN         1133     A     
 FTN                IFEQ   TEST,ON,1                                                       FTN         1134     A     
 FTN       HO$SNAP  EQUENT CO.SNAP                                                         FTN         1135     A     
 FTN       HO$UO    EQUENT CO.UO                                                           FTN         1136     A     
 FTN       HO$ARGC  EQUENT CO.ARGC                                                         FC50818        5     A     
 FTN       OVERLAY  EJECT                                                                  FTN         1137     A     
 FTN      **        NAMES/FLAGS FOR OVERLAYS LOADED BY FTN.                                FTN         1138     A     
 FTN                                                                                       FTN         1139     A     
 FTN                                                                                       FTN         1140     A     
 FTN       FTNLFN   CONENT 0L"FTNOVL"  FTN LIBRARY OR FILE NAME                            FTN         1141     A     
 FTN                ENTRY  FTNLDR                                                          FTN         1142     A     
 FTN       FTNLDR   VFD    6/**,6/**,12/2140B,18/**,18/**    LOAD REQUEST WORD             FTN         1143     A     
 FTN       CMPSLDR  VFD    6/01,6/00,12/0140B,18/**,18/CP.ORG                              FTN         1144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       FTNHHA   CONENT 0           OVERLAY HHA                                         FTN         1145     A     
 FTN       FTNOVM   CONENT 0           OVERLAY MODE - 0 IF SHORT MODE, .NZ. IF NOT         FTN         1146          I
          -F1039  
 FTN       TITLE    SPACE  4,10                                                            FTN         1147     A     
 FTN      **        DEFINE MAIN TITLE LINE.                                                FTN         1148     A     
 FTN                                                                                       FTN         1149     A     
 FTN                                                                                       FTN         1150     A     
 FTN       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        FTN         1151     A     
 FTN       MODLVL   MICRO  1,, "MODLVL"                                                    FTN         1152     A     
 FTN       MODLVL   MICRO  1,9,$"MODLVL"*T*      $                                         FTN         1153     A     
 FTN       .TEST    ENDIF                                                                  FTN         1154     A     
 FTN                                                                                       FTN         1155     A     
 FTN       TARGET   MICRO  1,4,$"MODEL"    $                                               FTN         1156     A     
 FTN                                                                                       FTN         1157     A     
 FTN       O.TITL   BSSENT 0                                                               FTN         1158     A     
 FTN                                                                                       FTN         1159     A     
 FTN                LIST   A                                                               FTN         1160     A     
 FTN      *CALL COMFTTL                                                                    FTN         1161     A     
 FTN                LIST   *                                                               FTN         1162     A     
 FTN                                                                                       FTN         1163     A     
 FTN                                                                                       F1039         32     A     
 FTN      *         TEMPLET TO LIST CURRENT VALUES OF THE FOLLOWING FORTRAN                F1039         33     A     
 FTN      *         CONTROL CARD PARAMETERS.  (DO,ARG,CS,DB,PL)                            F1039         34     A     
 FTN      *         THESE VALUES APPEAR ON THE SECOND LINE OF THE FIRST PAGE               F1039         35     A     
 FTN      *         OF EACH PROGRAM UNIT OUTPUT LISTING.                                   F1039         36     A     
 FTN                                                                                       F1039         37     A     
 FTN       O.CPV    CONENT 10H                             SKIP TO NEXT LINE               F1039         38     A     
 FTN                DIS    2,DO= LONG/ OT,ARG= CO                                          F1039         39     A     
 FTN                DIS    2,MMON/ FIXED,CS= USER                                          F1039         40     A     
 FTN       O.TA     BSSENT 0                                                               F1039         41     A     
 FTN                DIS    2,/ FIXED,DB= TB/ SB/                                           F1039         42     A     
 FTN                DIS    2,SL/ ER/ ID/ PMD/ ST,                                          F1039         43     A     
 FTN                DIS    1,PL=                                                           F1039         44          I
          -FC5A444
 FTN                VFD    6/0,36/6HAL,PL=,18/0                                            FC5A444       42     A     
 FTN                DATA   10H                             PRINT LIMIT                     F1039         45     A     
 FTN       L.PWA    CONENT 10H                             USED WHEN IN PW MODE            F1039         46     A     
 FTN                                                                                       F1039         47     A     
 FTN       L.TWO    EQUENT *-O.CPV                                                         F1039         48     A     
 FTN       L.TA     EQUENT O.TA-O.CPV                      PW MODE                         F1039         49     A     
 FTN       L.TB     EQUENT *-O.TA                          PW MODE                         F1039         50     A     
 FTN                                                                                       F1039         51     A     
 FTN      *         THIRD LINE OF FIRST PAGE                                               F1039         52     A     
 FTN      *         OF EACH PROGRAM UNIT.    - FORTRAN CALL CARD                           F1039         53     A     
 FTN                                                                                       F1039         54     A     
 FTN       O.CC     CONENT 1H                             SKIP TO NEXT LINE                F1039         55     A     
 FTN                DATA   1H ,1H ,1H ,1H ,1H ,1H         FORTRAN CALL CARD                F1039         56     A     
 FTN       O.C      BSSENT 0                              FIRST 120                        F1039         57     A     
 FTN                DATA   1H ,1H ,1H ,1H ,1H ,1H         CHARACTERS                       F1039         58     A     
 FTN       L.PWB    CONENT 1H                             USED WHEN IN PW MODE             F1039         59     A     
 FTN                                                                                       F1039         60     A     
 FTN       L.TITL   EQUENT *-O.TITL                                                        FTN         1164          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -F1039  
 FTN       L.TTLA   EQUENT *-O.TTLA-1  FIRST TITLE LENGTH IN PW MODE                       FTN         1165          I
          -F1039  
 FTN       L.TTLB   EQUENT O.TTLA-TL.PTYP-1  2ND TITLE LENGTH IN PW MODE                   FTN         1166          I
          -F1039  
 FTN       L.TITL   EQUENT TL.PAGE+1-O.TITL                                                F1039         61     A     
 FTN       L.TTLA   EQUENT TL.PAGE+1-O.TTLA-1                                              F1039         62     A     
 FTN       L.TTLB   EQUENT O.TTLA-TL.PTYP     2ND TITLE LENGTH IN PW MODE                  F1039         63     A     
 FTN                                                                                       F1039         64     A     
 FTN       L.CC     EQUENT L.PWB-O.CC                                                      F1039         65     A     
 FTN       L.CCA    EQUENT O.C-O.CC                       PW MODE                          F1039         66     A     
 FTN       L.CCB    EQUENT *-O.C                          PW MODE                          F1039         67     A     
 FTN                                                                                       F1039         68     A     
 FTN      *         COMPUTE OFFSET INTO ERROR FILE                                         F1039         69     A     
 FTN                                                                                       F1039         70     A     
 FTN       ERFO     EQUENT L.TITL+L.TWO+L.CC+1                                             F1039         71     A     
 FTN                                                                                       F1039         72     A     
 FTN                SPACE  4,8                                                             FTN         1167     A     
 FTN      **        DEFINE ERROR LIST TITLE LINE.                                          FTN         1168     A     
 FTN                                                                                       FTN         1169     A     
 FTN                LOC    O.TITL                                                          FTN         1170     A     
 FTN                                                                                       FTN         1171     A     
 FTN                LIST   A                                                               FTN         1172     A     
 FTN      *CALL COMFTTL                                                                    FTN         1173     A     
 FTN                LOC    *O                                                              FTN         1174     A     
 FTN                LIST   *                                                               FTN         1175     A     
 FTN       LOVER    TITLE  LOAD OVERLAYS                                                   FTN         1176     A     
 FTN      **        LOAD OVERLAYS.                                                         FTN         1177     A     
 FTN       LDCOM    SPACE  4,10                                                            FTN         1178     A     
 FTN      **        FORM LOADER REQUEST FOR LOADING *COMPASS* ASSEMBLER                    FTN         1179     A     
 FTN      *         (1,0) OVERLAY.                                                         FTN         1180     A     
 FTN                                                                                       FTN         1181     A     
 FTN                                                                                       FTN         1182     A     
 FTN       LDCOM    BSSENT 0                                                               FTN         1183     A     
 FTN                SA5    LCM.FL                                                          FTN         1184     A     
 FTN                SA4    =0L"CP.NAME"      NAME OF COMPASS (1,0) OVERLAY                 FC5A119       12          I
          -FC5A262
 FTN                SA4    CPOVL       NAME OF COMPASS (1,0) OVERLAY                       FC5A262        8     A     
 FTN                BX6    X5                                                              FTN         1185     A     
 FTN                SA6    CP.NFLL     CP.NFLL = CP.AFLL , SO WE KEEP OUR LCM              FTN         1186     A     
 FTN                SA4    =0L"CP.NAME"      NAME OF COMPASS (1,0) OVERLAY                 FTN         1187          I
          -FC5A119
 FTN                BX6    X4                                                              FC5A119       13     A     
 FTN                SA1    CMPSLDR     OVERLAY LEVEL, LDR FLAGS, FWA LOAD                  FTN         1188     A     
 FTN                BX6    X4          OVERLAY NAME, 0L FORMAT                             FTN         1189          I
          -FC5A119
 FTN                EQ     LOV                                                             FTN         1190     A     
 FTN                                                                                       FC5A262        9     A     
 FTN       CPOVL    DATA   0L"CP.NAME"                                                     FC5A262       10     A     
 FTN       FTN5OVL  DATA   6LFTN500                                                        FC5A262       11     A     
 FTN       LOVER    SPACE  4,10                                                            FTN         1191     A     
 FTN      **        LOVER - LOAD COMPILER OVERLAY.                                         FTN         1192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                                                                                FTN         1193     A     
 FTN      *         ENTRY  (X2) = 64*P+S                                                   FTN         1194     A     
 FTN      *                (X7) = FWA LOAD.                                                FTN         1195     A     
 FTN      *                P = PRIMARY OVERLAY LEVEL.                                      FTN         1196     A     
 FTN      *                S = SECONDARY.                                                  FTN         1197     A     
 FTN      *                (FTNLDR) = LOADER REQUEST FLAGS.                                FTN         1198     A     
 FTN      *                (FTNLFN) = FILE OR LIBRARY NAME.                                FTN         1199     A     
 FTN                                                                                       FTN         1200     A     
 FTN                                                                                       FTN         1201     A     
 FTN       LOVER    BSSENT             ENTRY...                                            FTN         1202     A     
 FTN                SA5    =6LFTN500                                                       FTN         1203          I
          -FC5A262
 FTN                SA5    FTN5OVL                                                         FC5A262       12     A     
 FTN                SA3    FTNLDR                                                          FTN         1204     A     
 FTN                LX2    4*6                                                             FTN         1205     A     
 FTN                IX6    X5+X2       FORM OVERLAY NAME                                   FTN         1206     A     
 FTN                SA4    FTNLFN                                                          FTN         1207     A     
 FTN                LX2    -4*6+48     POSITION OVERLAY LEVELS                             FTN         1208     A     
 FTN                BX7    X7+X3                                                           FTN         1209     A     
 FTN                BX1    X2+X7       (X1) = 12/ 0P0S,  9/ FLAGS,  39/ FWA                FTN         1210     A     
 FTN      *         EQ     LOV                                                             FTN         1211     A     
 FTN       LOV      SPACE  4,10                                                            FTN         1212     A     
 FTN      **        LOV - REQUEST OVERLAY LOAD.                                            FTN         1213     A     
 FTN      *                                                                                FTN         1214     A     
 FTN      *         ENTRY  (X4) = LIBRARY OR FILE NAME, 0L FORMAT                          FTN         1215     A     
 FTN      *                        (OVERLAY NAME IF COMPASS OVERLAY)                       FTN         1216     A     
 FTN      *                (X6) = OVERLAY NAME, 0L FORMAT                                  FTN         1217     A     
 FTN      *                (X1) = LOADER REQUEST WORD 1, FORMAT --                         FTN         1218     A     
 FTN      *                       12/OVERLAY LEVEL (0P0S),                                 FTN         1219     A     
 FTN      *                        9/LOADER REQUEST FLAGS,                                 FTN         1220     A     
 FTN      *                        3/0,                                                    FTN         1221     A     
 FTN      *                       18/0       SET TO LWA+1 FOR LOAD                         FTN         1222     A     
 FTN      *                       18/FWA LOAD                                              FTN         1223     A     
 FTN      *                (CP.NFLS) = LWA+1 OF LOAD.                                      FTN         1224     A     
 FTN                                                                                       FTN         1225     A     
 FTN                                                                                       FTN         1226     A     
 FTN       LOV      SA5    CP.NFLS                                                         FTN         1227     A     
 FTN                LX5    18          SET LWA+1 AVAILABLE FOR LOAD                        FTN         1228     A     
 FTN                BX7    X1+X5                                                           FTN         1229     A     
 FTN                SA7    RA.ORG      SAVE (X7) = LDR REQUEST WORD 1                      FTN         1230     A     
 FTN                SA6    LOVOVR      SAVE OVERLAY NAME                                   FTN         1231     A     
 FTN       .T       IFEQ   TEST,ON                                                         FTN         1232          I
          -FC5A115
 FTN                SB7    1                                                               FTN         1233          I
          -FC5A115
 FTN                NE     B1,B7,"BLOWUP"                                                  FTN         1234          I
          -FC5A115
 FTN       .T       ENDIF                                                                  FTN         1235          I
          -FC5A115
 FTN                SA7    RA.LDP+1    OVL LVL, FLAGS, ADDR TO LDR REQUEST WORD 1          FTN         1236     A     
 FTN                SA6    A7+B1       OVERLAY NAME TO LDR REQUEST WORD 2                  FTN         1237     A     
 FTN                BX7    X4                                                              FTN         1238     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA7    A7-B1       LIBRARY OR FILE NAME TO LDR REQUEST WORD 0          FTN         1239     A     
 FTN                =X6    0                                                               FTN         1240     A     
 FTN                SA6    RA.LDR      CLEAR LOADER COMMUNICATIONS CELL                    FTN         1241     A     
 FTN                                                                                       FTN         1242     A     
 FTN                                                                                       FTN         1243     A     
 FTN      **        CANCEL REPRIEVE REQUEST                                                FTN         1244     A     
 FTN                                                                                       FTN         1245     A     
 FTN                RPVOFF GT1         TURN OFF REPRIEVE                                   FTN         1246     A     
 FTN                                                                                       FTN         1247     A     
 FTN                                                                                       FTN         1248     A     
 FTN      **        TURN OFF SPY.                                                          FTN         1249     A     
 FTN                                                                                       FTN         1250     A     
 FTN                IFEQ   .SPY,ON,1   IF SPY OPTION                                       FTN         1251     A     
 FTN                CALL   OFFSPY      TURN *SPY* OFF                                      FTN         1252     A     
 FTN                                                                                       FTN         1253     A     
 FTN                                                                                       FTN         1254     A     
 FTN      **        LOAD OVERLAY.                                                          FTN         1255     A     
 FTN                                                                                       FTN         1256     A     
 FTN                LOADREQ  RA.LDP,RCL  REQUEST OVERLAY LOAD                              FTN         1257     A     
 FTN                SA2    RA.LDP+1                                                        FTN         1258     A     
 FTN                SB7    X2          (B7) = ENTRY POINT ADDRESS IN NEW OVERLAY           FTN         1259     A     
 FTN                LX2    59-36       LOADER ERROR STATUS BIT TO B59                      FTN         1260     A     
 FTN                MI     X2,LOV3     IF LOADER COULD NOT LOAD OVERLAY                    FTN         1261     A     
 FTN                                                                                       FTN         1262     A     
 FTN                                                                                       FTN         1263     A     
 FTN      **        CALL P-MONITOR PPU PROGRAM *SPY*.                                      FTN         1264     A     
 FTN                                                                                       FTN         1265     A     
 FTN       .SPY     IFEQ   .SPY,ON     IF SPY OPTION                                       FTN         1266     A     
 FTN                SA1    LOVOVR      NAME OF OVERLAY LOADED                              FTN         1267     A     
 FTN                SA2    =0L"CP.NAME"      NAME OF COMPASS (1,0)                         FTN         1268          I
          -FC5A262
 FTN                SA2    CPOVL       NAME OF COMPASS (1,0) OVERLAY                       FC5A262       13     A     
 FTN                IX6    X1-X2                                                           FTN         1269     A     
 FTN                ZR     X6,LOV2     IF COMPASS OVERLAY                                  FTN         1270     A     
 FTN                CALL   ONSPY                                                           FTN         1271     A     
 FTN       .SPY     ENDIF                                                                  FTN         1272     A     
 FTN                                                                                       FTN         1273     A     
 FTN                                                                                       FTN         1274     A     
 FTN      **        TRANSFER CONTROL TO NEWLY-LOADED OVERLAY.                              FTN         1275     A     
 FTN                                                                                       FTN         1276     A     
 FTN       LOV2     JP     B7          TO NEW OVERLAY                                      FTN         1277     A     
 FTN                                                                                       FTN         1278     A     
 FTN                                                                                       FTN         1279     A     
 FTN      **        PROCESS ERROR IN LOADING OVERLAY.                                      FTN         1280     A     
 FTN                                                                                       FTN         1281     A     
 FTN       LOV3     MESSAGE LOVERM                                                         FTN         1282     A     
 FTN                EQ     ABTFTN      ABORT                                               FTN         1283     A     
 FTN                                                                                       FTN         1284     A     
 FTN       LOVERM   DIS    1, CANT LOAD                                                    FTN         1285     A     
 FTN       LOVOVR   BSSZ   1           SAVED NAME OF OVERLAY TO BE LOADED (0L FMT)         FTN         1286     A     
 FTN       STOP     SPACE  4,10                                                            FTN         1287     A     
 FTN      **        *COMPASS* ASSEMBLER RETURN POINT.                                      FTN         1288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FTN         1289     A     
 FTN       STOP     SA1    CP.IFMT                                                         FTN         1290          I
          -FC5A158A 
 FTN                SB1    1                                                               FTN         1291          I
          -FC5A158A 
 FTN       STOP     SB1    1                                                               FC5A158A      66     A     
 FTN                MX6    1                                                               FTN         1292     A     
 FTN                SA6    RAPFLAG     SET READ ALREADY PERFORMED FLAG                     FTN         1293     A     
 FTN                PL     X1,LDPRI    IF MORE TO COMPILE - RELOAD PRIMARY                 FTN         1294          I
          -FC5A158A 
 FTN                SA1    PAGES       TOTAL NUMBER OF FTN PAGES                           FTN         1295          I
          -FC5A158A 
 FTN                ZR     X1,ENDFTN   IF NOTHING ON OUTPUT                                FTN         1296          I
          -FC5A158A 
 FTN                SA2    CP.PD                                                           FTN         1297          I
          -FC5A158A 
 FTN                ZR     X2,ENDFTN   IF PD NOT ON CONTROL STATEMENT                      FTN         1298          I
          -FC5A158A 
 FTN       LDPRI    SPACE  4,10                                                            FTN         1299     A     
 FTN      **        LOAD *FTN* PRIMARY OVERLAY.                                            FTN         1300     A     
 FTN                                                                                       FTN         1301     A     
 FTN       LDPRI    BSSENT 0                                                               FTN         1302     A     
 FTN                SA4    CO.OPT      OPT LEVEL                                           FTN         1303          I
          -FC5A119
 FTN                SA2    CP.AFLS                                                         FTN         1304          I
          -FC5A244
 FTN                SA2    CP.NFLS                                                         FC5A244        6     A     
 FTN                SA1    FTNHHA                                                          FTN         1305     A     
 FTN                =X1    X1+1                                                            FTN         1306     A     
 FTN                IX2    X2-X1                                                           FTN         1307     A     
 FTN                PL     X2,LDP7     IF ROOM FOR PRIMARY                                 FTN         1308     A     
 FTN                SA2    MAX.FL                                                          FTN         1309     A     
 FTN                AX2    30                                                              FTN         1310     A     
 FTN                IX2    X2-X1                                                           FTN         1311     A     
 FTN                MI     X2,MEMERR   IF NOT ENOUGH MEMORY                                FTN         1312     A     
 FTN                SX1    X1+2*FLSZ                                                       FTN         1313     A     
 FTN                LX1    30                                                              FTN         1314     A     
 FTN                BX6    X1                                                              FTN         1315     A     
 FTN                SA6    GT1                                                             FTN         1316     A     
 FTN                MEMORY SCM,GT1,RCL                                                     FTN         1317     A     
 FTN                SA2    GT1         NEW FL                                              FTN         1318     A     
 FTN                AX2    30                                                              FTN         1319     A     
 FTN                SA3    X4+NOM.FLS                                                      FTN         1320          I
          -FC5A119
 FTN                BX7    X3                                                              FTN         1321          I
          -FC5A119
 FTN                SA7    NOM.FL      SET NOMINAL FL                                      FTN         1322          I
          -FC5A119
 FTN                BX6    X2                                                              FC5A119       14     A     
 FTN                SX7    X2-FLSZ     LEAVE A SAFETY ZONE                                 FTN         1323     A     
 FTN                SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL                     FTN         1324     A     
 FTN                BX6    X2                                                              FTN         1325          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FC5A119
 FTN                SA6    CP.AFLS     UPDATE TO CURRENT FL                                FTN         1326     A     
 FTN                SA2    CP.MXFL     CURRENT MAX FL USED                                 FTN         1327     A     
 FTN                MX7    X2+X6       SELECT LARGER OF CP.AFLS, CP.MXFL                   FTN         1328     A     
 FTN                SA7    CP.MXFL     UPDATE IT                                           FTN         1329     A     
 FTN                                                                                       FTN         1330     A     
 FTN       LDP7     SX2    0100B       (1,0)                                               FTN         1331     A     
 FTN                SA4    CO.OPT                                                          FC5A119       15     A     
 FTN      *         SX7    FWA10       (ASSUMES FWA10 = FWA20)                             FTN         1332     A     
 FTN                ZR     X4,LDP10    IF CALLING QCG                                      FTN         1333     A     
 FTN                SX2    0200B       (2,0)                                               FTN         1334     A     
 FTN                                                                                       FTN         1335     A     
 FTN       LDP10    LOVER  X2,=XFWA20                                                      FTN         1336     A     
 FTN       ENDFTN   TITLE  TERMINATE COMPILATION                                           FTN         1337     A     
 FTN      **        TERMINATE COMPILATION.                                                 FTN         1338          I
          -FC5A158A 
 FTN                                                                                       FTN         1339          I
          -FC5A158A 
 FTN                                                                                       FTN         1340          I
          -FC5A158A 
 FTN       ENDFTN   BSSENT 0           ...ENTER HERE TO TERMINATE COMPILATION              FTN         1341          I
          -FC5A158A 
 FTN       ENDFTN   SPACE  4,10                                                            FTN         1342          I
          -FC5A158A 
 FTN      **        SEND FL USED TO DAYFILE.                                               FTN         1343          I
          -FC5A158A 
 FTN                                                                                       FTN         1344          I
          -FC5A158A 
 FTN                SA1    CP.MXFL     MAX FL USED                                         FTN         1345          I
          -FC5A158A 
 FTN                CALL   COD         CONVERT OCTAL DIGITS                                FTN         1346          I
          -FC5A158A 
 FTN                SA6    FLUSED                                                          FTN         1347          I
          -FC5A158A 
 FTN                MESSAGE FLUSED,,RCL                                                    FTN         1348          I
          -FC5A158A 
 FTN                                                                                       FTN         1349          I
          -FC5A158A 
 FTN                                                                                       FTN         1350          I
          -FC5A158A 
 FTN      **        SEND COMPILATION TIME TO DAYFILE.                                      FTN         1351          I
          -FC5A158A 
 FTN                                                                                       FTN         1352          I
          -FC5A158A 
 FTN                SA2    TIME0       START OF COMPILATION TIME                           FTN         1353          I
          -FC5A158A 
 FTN                CALL   CPTIM       COMPUTE/CONVERT ELAPSED CPU TIME                    FTN         1354          I
          -FC5A158A 
 FTN                SA6    CPTMSG      TIME TO DAYFILE MESSAGE TEXT                        FTN         1355          I
          -FC5A158A 
 FTN                MESSAGE A6,,RCL                                                        FTN         1356          I
          -FC5A158A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FTN         1357          I
          -FC5A158A 
 FTN                                                                                       FTN         1358          I
          -FC5A158A 
 FTN      **        TURN OFF PPU PROGRAM SPY.                                              FTN         1359          I
          -FC5A158A 
 FTN                                                                                       FTN         1360          I
          -FC5A158A 
 FTN       .SPY     IFEQ   .SPY,ON     IF SPY OPTION                                       FTN         1361          I
          -FC5A158A 
 FTN                IFNE   .OS,2,1     IF NOT SCOPE 2                                      FTN         1362          I
          -FC5A158A 
 FTN                CALL   OFFSPY                                                          FTN         1363          I
          -FC5A158A 
 FTN       .SPY     ENDIF                                                                  FTN         1364          I
          -FC5A158A 
 FTN                                                                                       FTN         1365          I
          -FC5A158A 
 FTN                                                                                       FTN         1366          I
          -FC5A158A 
 FTN      **        PROCESS ABNORMAL TERMINATION CONDITIONS.                               FTN         1367          I
          -FC5A158A 
 FTN                                                                                       FTN         1368          I
          -FC5A158A 
 FTN                SA1    CP.ERCT                                                         FTN         1369          I
          -FC5A158A 
 FTN                SA2    CP.ABT                                                          FTN         1370          I
          -FC5A158A 
 FTN                MX3    1                                                               FTN         1371          I
          -FC5A158A 
 FTN                BX1    -X3*X1      CLEAR BINARY REGARDLESS FLAG                        FTN         1372          I
          -FC5A158A 
 FTN                LX3    59-29                                                           FTN         1373          I
          -FC5A158A 
 FTN                BX2    X2*X3                                                           FTN         1374          I
          -FC5A158A 
 FTN                ZR     X1,END4     IF NO COMPILATION OR ASSEMBLY ERRORS                FTN         1375          I
          -FC5A158A 
 FTN                ZR     X2,END4     IF ABORT (ET=0) OPTION OFF                          FTN         1376          I
          -FC5A158A 
 FTN                                                                                       FTN         1377          I
          -FC5A158A 
 FTN                IFEQ   CP#RM,0,1   IF USING CIO I/O                                    FTN         1378          I
          -FC5A158A 
 FTN                CALL   WFA         WAIT FILE ACTIONS                                   FTN         1379          I
          -FC5A158A 
 FTN                                                                                       FTN         1380     A     
 FTN       ABTFTN   BSSENT 0           HERE TO DIE...                                      FTN         1381     A     
 FTN                ABORT  ,NODUMP,S   TO *EXIT(S)* (WITHOUT DUMP)                         FTN         1382     A     
 FTN                                                                                       FTN         1383     A     
 FTN                                                                                       FTN         1384     A     
 FTN      **        PROCESS AUTO EXECUTE (GO-OPTION) REQUEST.                              FTN         1385          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FC5A158A 
 FTN                                                                                       FTN         1386          I
          -FC5A158A 
 FTN       END4     SA1    CO.GO                                                           FTN         1387          I
          -FC5A158A 
 FTN                ZR     X1,END5     IF GO-OPTION OFF                                    FTN         1388          I
          -FC5A158A 
 FTN                                                                                       FTN         1389          I
          -FC5A158A 
 FTN                BX6    X1                                                              FTN         1390          I
          -FC5A158A 
 FTN                SA6    RA.PGN      POST FILE/PROGRAM NAME FOR MSG AND LOADER           FTN         1391          I
          -FC5A158A 
 FTN                                                                                       FTN         1392          I
          -FC5A158A 
 FTN       .RM      IFEQ   CP#RM,0     IF USING *CIO* DIRECT I/O                           FTN         1393          I
          -FC5A158A 
 FTN                CALL   WFA         WAIT FILE ACTIONS -- ALL QUIET                      FTN         1394          I
          -FC5A158A 
 FTN       .RM      ENDIF                                                                  FTN         1395          I
          -FC5A158A 
 FTN                                                                                       FTN         1396          I
          -FC5A158A 
 FTN       .OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FTN         1397          I
          -FC5A158A 
 FTN                MEMORY SCM,LDRFL,RCL     RFL DOWN BEFORE CALLING LOADER                FTN         1398          I
          -FC5A158A 
 FTN       .OS      ENDIF                                                                  FTN         1399          I
          -FC5A158A 
 FTN                                                                                       FTN         1400          I
          -FC5A158A 
 FTN                RPVOFF GT1         CANCEL REPRIEVE REQUEST                             FTN         1401          I
          -FC5A158A 
 FTN                                                                                       FTN         1402          I
          -FC5A158A 
 FTN                MESSAGE RA.PGN,,RCL                                                    FTN         1403          I
          -FC5A158A 
 FTN                LOADREQ   0                                                            FTN         1404          I
          -FC5A158A 
 FTN      +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST                  FTN         1405          I
          -FC5A158A 
 FTN                                                                                       FTN         1406          I
          -FC5A158A 
 FTN                                                                                       FTN         1407          I
          -FC5A158A 
 FTN      **        TERMINATE COMPILATION NORMALLY.                                        FTN         1408          I
          -FC5A158A 
 FTN                                                                                       FTN         1409          I
          -FC5A158A 
 FTN       END5     BSS    0                                                               FTN         1410          I
          -FC5A158A 
 FTN                IFEQ   CP#RM,0,1   IF USING CIO I/O                                    FTN         1411          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FC5A158A 
 FTN                CALL   WFA         WAIT FILE ACTIONS                                   FTN         1412          I
          -FC5A158A 
 FTN                SA1    INT.FL      INITIAL FL                                          FTN         1413          I
          -FC5A158A 
 FTN                SA2    CP.AFLS     CURRENT FL                                          FTN         1414          I
          -FC5A158A 
 FTN                IX6    X1-X2                                                           FTN         1415          I
          -FC5A158A 
 FTN                ZR     X6,NOFTN    IF CURRENT = INITIAL FL                             FTN         1416          I
          -FC5A119  -FC5A158A 
 FTN                ZR     X6,END7     IF CURRENT = INITIAL FL                             FC5A119       16          I
          -FC5A158A 
 FTN                BX6    X1                                                              FTN         1417          I
          -FC5A158A 
 FTN                LX6    30                                                              FTN         1418          I
          -FC5A158A 
 FTN                SA6    GT1                                                             FTN         1419          I
          -FC5A158A 
 FTN                MEMORY SCM,GT1,RCL RETURN TO INITIAL FL                                FTN         1420          I
          -FC5A158A 
 FTN                                                                                       FTN         1421          I
          -FC5A158A 
 FTN       END7     SA1    CP.ILFL     INITIAL LCM FL                                      FC5A119       17          I
          -FC5A158A 
 FTN                SA2    CP.AFLL     CURRENT LCM FL                                      FC5A119       18          I
          -FC5A158A 
 FTN                IX6    X1-X2                                                           FC5A119       19          I
          -FC5A158A 
 FTN                ZR     X6,NOFTN    IF CURRENT = INITIAL LCM FL                         FC5A119       20          I
          -FC5A158A 
 FTN                BX6    X1                                                              FC5A119       21          I
          -FC5A158A 
 FTN                LX6    30                                                              FC5A119       22          I
          -FC5A158A 
 FTN                SA6    GT1                                                             FC5A119       23          I
          -FC5A158A 
 FTN                MEMORY LCM,GT1,R,,NOABT   RETURN TO INITIAL LCM FL                     FC5A119       24          I
          -FC5A158A 
 FTN       NOFTN    BSSENT 0           ...ENTER HERE WHEN NO COMPILATION                   FTN         1422          I
          -FC5A158A 
 FTN                ENDRUN                                                                 FTN         1423          I
          -FC5A158A 
 FTN                                                                                       FTN         1424          I
          -FC5A158A 
 FTN                                                                                       FTN         1425          I
          -FC5A158A 
 FTN      **        DAYFILE MESSAGES.                                                      FTN         1426          I
          -FC5A158A 
 FTN                                                                                       FTN         1427          I
          -FC5A158A 
 FTN       CPTMSG   DIS    ,/   NNN.NNN CP SECONDS COMPILATION TIME./                      FTN         1428          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FC5A158A 
 FTN       FLUSED   CON    0                                                               FTN         1429          I
          -FC5A158A 
 FTN                DIS    ,/ "SCM" STORAGE USED./                                         FTN         1430          I
          -FC5A158A 
 FTN       RESIDENT TITLE  RESIDENT SUBROUTINES                                            FTN         1431          I
          -FC5A158A 
 FTN       CPTIME   SPACE  4,10                                                            FTN         1432          I
          -FC5A158A 
 FTN      **        CPTIME - COMPUTE AND CONVERT ELAPSED CPU TIME.                         FTN         1433          I
          -FC5A158A 
 FTN      *                                                                                FTN         1434          I
          -FC5A158A 
 FTN      *         ENTRY  (X2) = CPU START TIME IN MILLISECONDS                           FTN         1435          I
          -FC5A158A 
 FTN      *                                                                                FTN         1436          I
          -FC5A158A 
 FTN      *         EXIT   (X6) = DPC ELAPSED TIME, F10.3 FORMAT                           FTN         1437          I
          -FC5A158A 
 FTN      *                                                                                FTN         1438          I
          -FC5A158A 
 FTN      *         CALLS  TIMER, CFD                                                      FTN         1439          I
          -FC5A158A 
 FTN                                                                                       FTN         1440          I
          -FC5A158A 
 FTN                                                                                       FTN         1441          I
          -FC5A158A 
 FTN       CPTIM    SUBR   =           ENTRY/EXIT...                                       FTN         1442          I
          -FC5A158A 
 FTN                CALL   TIMER       RETURNS (X6) = CURRENT CPTIME                       FTN         1443          I
          -FC5A158A 
 FTN                IX1    X6-X2       (X1) = ELAPSED TIME (BINARY)                        FTN         1444          I
          -FC5A158A 
 FTN                CALL   CFD         CONVERT FLOATING DIGITS TO F10.3                    FTN         1445          I
          -FC5A158A 
 FTN                EQ     EXIT.       EXIT...                                             FTN         1446          I
          -FC5A158A 
 FTN       MEMERR   SPACE  4,10                                                            FTN         1447     A     
 FTN      **        MEMERR - OUTPUT INSUFFICIENT MEMORY ERROR MESSAGE                      FTN         1448     A     
 FTN      *                                                                                FTN         1449     A     
 FTN      *         ENTRY  (X1) = AMOUNT OF MEMORY NEEDED                                  FTN         1450     A     
 FTN      *                                                                                FTN         1451     A     
 FTN      *         CALLS  COD                                                             FTN         1452     A     
 FTN      *                                                                                FTN         1453     A     
 FTN      *         USES   X - 1,2,6  A - 2,6                                              FTN         1454     A     
 FTN                                                                                       FTN         1455     A     
 FTN       MEMERR   BSSENT                                                                 FTN         1456     A     
 FTN                CALL   COD                                                             FTN         1457     A     
 FTN                SA2    MSG.FL+2                                                        FTN         1458     A     
 FTN                LX1    18                                                              FTN         1459          I
          -FC5A244
 FTN                MX1    60-36                                                           FC5A244        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                BX1    -X1*X6                                                          FC5A244        8     A     
 FTN                LX1    12                                                              FC5A244        9     A     
 FTN                IX6    X2+X1                                                           FTN         1460     A     
 FTN                SA6    A2          INSERT MIN FL IN ERROR MSG TEXT                     FTN         1461     A     
 FTN                MESSAGE MSG.FL     ISSUE DAYFILE MESSAGE                               FTN         1462     A     
 FTN                EQ     ABTFTN      ABORT                                               FTN         1463     A     
 FTN                                                                                       FTN         1464     A     
 FTN       MSG.FL   DIS    2,   FTN NEEDS AT LEAS                                          FTN         1465          I
          -FC5A244
 FTN                DIS    ,/T 77700B "SCM" FL./                                           FTN         1466          I
          -FC5A244
 FTN       MSG.FL   DIS    2,  FTN5 NEEDS AT LEAS                                          FC5A244       10     A     
 FTN                VFD    12/2RT ,36/0,12/2RB                                             FC5A244       11     A     
 FTN                DIS    ,/"SCM" FL./                                                    FC5A244       12     A     
 FTN       TIMER    SPACE  4,10                                                            FTN         1467     A     
 FTN      **        TIMER - OBTAIN ACCUMULATED CPU TIME.                                   FTN         1468          I
          -FC5A158A 
 FTN      *                                                                                FTN         1469          I
          -FC5A158A 
 FTN      *         TIME IS CONVERTED INTO AN INTEGRAL NUMBER OF MILLISECONDS.             FTN         1470          I
          -FC5A158A 
 FTN      *                                                                                FTN         1471          I
          -FC5A158A 
 FTN      *         ENTRY  NO REQUIREMENTS                                                 FTN         1472          I
          -FC5A158A 
 FTN      *                                                                                FTN         1473          I
          -FC5A158A 
 FTN      *         EXIT   (X6) = CURRENT CPU TIME IN MILLISECONDS                         FTN         1474          I
          -FC5A158A 
 FTN      *                                                                                FTN         1475          I
          -FC5A158A 
 FTN      *         USES   X - 0, 3, 4, 5, 6                                               FTN         1476          I
          -FC5A158A 
 FTN      *                A - 5                                                           FTN         1477          I
          -FC5A158A 
 FTN      *                B - NONE                                                        FTN         1478          I
          -FC5A158A 
 FTN      *                                                                                FTN         1479          I
          -FC5A158A 
 FTN      *         CALLS  TIME                                                            FTN         1480          I
          -FC5A158A 
 FTN                                                                                       FTN         1481          I
          -FC5A158A 
 FTN                                                                                       FTN         1482          I
          -FC5A158A 
 FTN       TIMER    SUBR   =           ENTRY/EXIT...                                       FTN         1483          I
          -FC5A158A 
 FTN                TIME   GT1                                                             FTN         1484          I
          -FC5A158A 
 FTN                SA5    GT1                                                             FTN         1485          I
          -FC5A158A 
 FTN                MX0    60-12                                                           FTN         1486          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FC5A158A 
 FTN                BX4    -X0*X5      MSEC                                                FTN         1487          I
          -FC5A158A 
 FTN                AX5    12                                                              FTN         1488          I
          -FC5A158A 
 FTN                SX3    1000D       SEC * 1000                                          FTN         1489          I
          -FC5A158A 
 FTN                MX0    60-24                                                           FTN         1490          I
          -FC5A158A 
 FTN                BX5    -X0*X5                                                          FTN         1491          I
          -FC5A158A 
 FTN                IX3    X5*X3                                                           FTN         1492          I
          -FC5A158A 
 FTN                IX6    X3+X4                                                           FTN         1493          I
          -FC5A158A 
 FTN                EQ     EXIT.       EXIT...                                             FTN         1494          I
          -FC5A158A 
 FTN       WFA      SPACE  4,10                                                            FTN         1495          I
          -FC5A158A 
 FTN      **        WFA - WAIT FILE ACTIONS.                                               FTN         1496          I
          -FC5A158A 
 FTN      *                                                                                FTN         1497          I
          -FC5A158A 
 FTN      *         WAIT FOR ALL FILES IDLE.                                               FTN         1498          I
          -FC5A158A 
 FTN      *                                                                                FTN         1499          I
          -FC5A158A 
 FTN      *         ENTRY  (RA.ARG) = FIRST WORD OF FILE VECTOR TABLE.                     FTN         1500          I
          -FC5A158A 
 FTN      *                                                                                FTN         1501          I
          -FC5A158A 
 FTN      *         CALLS  RECALL                                                          FTN         1502          I
          -FC5A158A 
 FTN                                                                                       FTN         1503          I
          -FC5A158A 
 FTN                                                                                       FTN         1504          I
          -FC5A158A 
 FTN       .RM      IFEQ   CP#RM,0     IF USING CIO I/O                                    FTN         1505          I
          -FC5A158A 
 FTN                                                                                       FTN         1506          I
          -FC5A158A 
 FTN       WFA      SUBR   0           ...ENTRY/EXIT...                                    FTN         1507          I
          -FC5A158A 
 FTN                =B2    0                                                               FTN         1508          I
          -FC5A158A 
 FTN       WFA1     SA5    B2+RA.ARG   (X5) = FILE VECTOR ENTRY                            FTN         1509          I
          -FC5A158A 
 FTN                =B2    B2+1                                                            FTN         1510          I
          -FC5A158A 
 FTN                MI     X5,EXIT.    IF END OF TABLE, EXIT...                            FTN         1511          I
          -FC5A158A 
 FTN                ZR     X5,WFA1     IF FILE DESELECTED                                  FTN         1512          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 404    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FC5A158A 
 FTN                SX2    X5                                                              FTN         1513          I
          -FC5A158A 
 FTN                RECALL X2                                                              FTN         1514          I
          -FC5A158A 
 FTN                EQ     WFA1        LOOP FOR MORE                                       FTN         1515          I
          -FC5A158A 
 FTN       .RM      ENDIF                                                                  FTN         1516          I
          -FC5A158A 
 FTN       TESTMODE TITLE  TESTMODE SUBROUTINES                                            FTN         1517     A     
 FTN       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        FTN         1518     A     
 FTN       .OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FTN         1519     A     
 FTN      IDPCHK    SPACE  4,10                                                            FTN         1520     A     
 FTN      **        IDPCHK - CHECKS IF CALL TO *IDP* VIA *BREAK=PS*                        FTN         1521     A     
 FTN      *                                                                                FTN         1522     A     
 FTN      *         ENTRY  (CO.BRK) = OVERLAY NRS (0P0S) FORM                              FTN         1523     A     
 FTN      *                (RA.ORG) = OVERLAY LAST LOADED                                  FTN         1524     A     
 FTN      *                                                                                FTN         1525     A     
 FTN      *         EXIT   (B7) = 0 IF IDP NOT REQUESTED, -1 IF REQUESTED                  FTN         1526     A     
 FTN      *                                                                                FTN         1527     A     
 FTN      *         USES   X - 0-4, 6, 7                                                   FTN         1528     A     
 FTN      *                A - 1, 2                                                        FTN         1529     A     
 FTN      *                B - NONE                                                        FTN         1530     A     
 FTN                                                                                       FTN         1531     A     
 FTN                                                                                       FTN         1532     A     
 FTN       IDPCHK   SUBR   =           ENTRY/EXIT...                                       FTN         1533     A     
 FTN                SA1    CO.BRK                                                          FTN         1534     A     
 FTN                SB7    0           FLAG NOT REQUESTED                                  FTN         1535          I
          -FC5A115
 FTN                =B7    0                                                               FC5A115        7     A     
 FTN                MX0    -2*CHAR                                                         FC5A115        8     A     
 FTN                ZR     X1,EXIT.    IF NO BREAKS                                        FTN         1536     A     
 FTN                =X6    X1-1                                                            FTN         1537     A     
 FTN                ZR     X6,IDP2     IF BREAK *ALL*                                      FTN         1538     A     
 FTN                SA2    RA.ORG                                                          FTN         1539     A     
 FTN                AX2    48-0                                                            FTN         1540     A     
 FTN                SX4    2R00                                                            FTN         1541     A     
 FTN                MX3    1                                                               FTN         1542     A     
 FTN                MX0    -2*CHAR                                                         FTN         1543          I
          -FC5A115
 FTN       IDP1     LX1    2*CHAR                                                          FTN         1544     A     
 FTN                BX6    -X0*X1                                                          FTN         1545     A     
 FTN                LX3    2*CHAR                                                          FTN         1546     A     
 FTN                ZR     X6,EXIT.    IF END OF OVR LIST OR (BREAK=PS) NOT SELECT         FTN         1547     A     
 FTN                MI     X3,EXIT.    IF FINISHED CHECKING ENTIRE WORD                    FTN         1548     A     
 FTN                IX7    X6-X4       (X7) = OVERLAY NRS IN (0P0S) FORM                   FTN         1549     A     
 FTN                BX6    X7-X2                                                           FTN         1550     A     
 FTN                NZ     X6,IDP1     IF NOT CALLING *IDP* FOR THIS OVERLAY               FTN         1551     A     
 FTN       IDP2     SB7    -1          SET TO *CALL IDP BEFORE OVERLAY START*              FTN         1552     A     
 FTN                EQ     EXIT.                                                           FTN         1553     A     
 FTN                                                                                       FTN         1554     A     
 FTN                                                                                       FTN         1555     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       .TEST    ENDIF                                                                  FTN         1556     A     
 FTN       OFFSPY   SPACE  4,10                                                            FTN         1557     A     
 FTN      **        OFFSPY - TURN OFF P-MONITOR PPU PROGRAM *SPY*.                         FTN         1558     A     
 FTN      *                                                                                FTN         1559     A     
 FTN      *         ENTRY  NO REGISTER REQUIREMENTS.                                       FTN         1560     A     
 FTN      *                                                                                FTN         1561     A     
 FTN      *         EXIT   *SPY* IS TURNED OFF.                                            FTN         1562     A     
 FTN      *                                                                                FTN         1563     A     
 FTN      *         USES   X - 1, 2, 6                                                     FTN         1564     A     
 FTN      *                A - 1, 6                                                        FTN         1565     A     
 FTN      *                B - NONE                                                        FTN         1566     A     
 FTN      *                                                                                FTN         1567     A     
 FTN      *         CALLS  RECALL (WNB=)                                                   FTN         1568     A     
 FTN                                                                                       FTN         1569     A     
 FTN                                                                                       FTN         1570     A     
 FTN       .SPY     IFEQ   .SPY,ON     IF SPY OPTION INSTALLED                             FTN         1571     A     
 FTN                                                                                       FTN         1572     A     
 FTN       OFFSPY   SUBR               ENTRY/EXIT...                                       FTN         1573          I
          -FC5A158A 
 FTN       OFFSPY   SUBR   =           ENTRY/EXIT...                                       FC5A158A      67     A     
 FTN                SA1    SPYP+1                                                          FTN         1574     A     
 FTN                ZR     X1,EXIT.    IF *SPY* NOT ON, EXIT...                            FTN         1575     A     
 FTN                MX6    1                                                               FTN         1576     A     
 FTN                SA6    A1          TELL *SPY* TO STOP                                  FTN         1577     A     
 FTN                RECALL A1                                                              FTN         1578     A     
 FTN                BX6    X6-X6                                                           FTN         1579     A     
 FTN                SA6    SPYP+1                                                          FTN         1580     A     
 FTN                EQ     EXIT.       EXIT...                                             FTN         1581     A     
 FTN       ONSPY    SPACE  4,11                                                            FTN         1582     A     
 FTN      **        ONSPY - TURN ON P-MONTITOR PPU PROGRAM *SPY*.                          FTN         1583     A     
 FTN      *                                                                                FTN         1584     A     
 FTN      *         ENTRY  NONE                                                            FTN         1585     A     
 FTN      *                                                                                FTN         1586     A     
 FTN      *         EXIT   *SPY* IS TURNED ON.                                             FTN         1587     A     
 FTN      *                                                                                FTN         1588     A     
 FTN      *         USES   X - 1, 2, 6, 7                                                  FTN         1589     A     
 FTN      *                A - 1, 2, 6, 7                                                  FTN         1590     A     
 FTN      *                B - NONE                                                        FTN         1591     A     
 FTN      *                                                                                FTN         1592     A     
 FTN      *         CALLS  SYS=                                                            FTN         1593     A     
 FTN                                                                                       FTN         1594     A     
 FTN                                                                                       FTN         1595     A     
 FTN       ONSPY    SUBR   =           ENTRY/EXIT...                                       FTN         1596     A     
 FTN                SA1    SPYW                                                            FTN         1597     A     
 FTN                SA2    RA.ORG      (X2) = SAVED OVERLAY CONTROL FLAGS, ETC.            FTN         1598     A     
 FTN                ZR     X1,EXIT.    IF *SPY* OPTION NOT SELECTED                        FTN         1599     A     
 FTN                AX2    48-0        (X2) = OVERLAY LEVEL                                FTN         1600     A     
 FTN                BX6    X1                                                              FTN         1601     A     
 FTN                SA1    SPYO                                                            FTN         1602     A     
 FTN                ZR     X2,SPY1     IF (0,0) OVERLAY                                    FTN         1603     A     
 FTN                SX2    X2+2R00                                                         FTN         1604     A     
 FTN                LX2    30                                                              FTN         1605     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       SPY1     BX7    X1+X2       5LFTN_P_S (3LFTN FOR (0,0))                         FTN         1606     A     
 FTN                SA6    A1-B1       LIMITS TO SPY PARAMETER LIST                        FTN         1607     A     
 FTN                SA7    SPYP        OVERLAY LEVEL TO LIST (SPYP)                        FTN         1608     A     
 FTN                SYSTEM SPY,RCL,A6                                                      FTN         1609     A     
 FTN                EQ     EXIT.                                                           FTN         1610     A     
 FTN                                                                                       FTN         1611     A     
 FTN       SPYW     BSZENT 1           CONTROL STATEMENT SPY PARAMS                        FTN         1612     A     
 FTN      *         *SPY* REQUEST PARAMETER LIST                                           FTN         1613     A     
 FTN       SPYP     BSSZ   1           7LOVL0P0S                                           FTN         1614     A     
 FTN                BSSZ   1           12/BINW,12/:,12/LO,12/HI,12/0                       FTN         1615     A     
 FTN       SPYO     DATA   3LFTN                                                           FTN         1616     A     
 FTN                                                                                       FTN         1617     A     
 FTN       .SPY     ENDIF                                                                  FTN         1618     A     
 FTN       .OS      ENDIF                                                                  FTN         1619     A     
 FTN      *CALL     COMCCFD            CONVERT FLOATING DIGITS TO F10.3                    FTN         1620          I
          -FC5A158A 
 FTN      *CALL     COMCCOD            CONVERT OCTAL DIGITS                                FTN         1621     A     
 FTN                ENTRY  COD                                                             FTN         1622     A     
 FTN       COD=     EQUENT COD                                                             FTN         1623     A     
 FTN                TITLE  BUFFERS AND FILE VECTOR SETUP AREA.                             FTN         1624     A     
 FTN       BUFFERS  EJECT  4,10                                                            FTN         1625     A     
 FTN      **        ALLOCATE SPACE FOR INPUT/OUTPUT BUFFERS.                               FTN         1626     A     
 FTN                                                                                       FTN         1627     A     
 FTN                                                                                       FTN         1628     A     
 FTN                USE    BUFFERS                                                         FTN         1629     A     
 FTN       BUFFERS  BSS    0           START OF BUFFER AREA                                FTN         1630     A     
 FTN                                                                                       FTN         1631     A     
 FTN       .RM      IFEQ   CP#RM,0     IF USING CIO                                        FTN         1632     A     
 FTN       IBUF     BSSENT "BUFL"                                                          FTN         1633     A     
 FTN       OBUF     BSSENT 0                                                               FTN         1634     A     
 FTN       .RM      ENDIF                                                                  FTN         1635          I
          -FC5A158A 
 FTN       .RM      ELSE                                                                   FC5A158A      68     A     
 FTN       IBUF     EQUENT 0                                                               FC5A158A      69     A     
 FTN       OBUF     EQUENT 0                                                               FC5A158A      70     A     
 FTN       .RM      ENDIF                                                                  FC5A158A      71     A     
 FTN       FIN.FTN  BSSENT 0                                                               FC5A158A      72     A     
 FTN                ORG    BUFFERS     RESET TO START OF BUFFER AREA                       FTN         1636     A     
 FTN       FVTBL    SPACE  4,10                                                            FTN         1637     A     
 FTN      **        FILE VECTOR TABLE.                                                     FTN         1638     A     
 FTN      *                                                                                FTN         1639     A     
 FTN      *         GENERATE TABLE OF DEFAULT FILE NAMES, FET/FIT POINTERS, AND            FTN         1640     A     
 FTN      *         TABLE ORDINALS.  THE TABLE IS MOVED TO THE JOB COMMUNICATIONS          FTN         1641     A     
 FTN      *         AREA, BEGINNING AT *RA.ARG*.                                           FTN         1642     A     
 FTN      *                                                                                FTN         1643     A     
 FTN      *         AFTER THE TABLE IS MOVED TO LOW CORE, THE ENTRY FOR A FILE             FTN         1644     A     
 FTN      *         CAN BE REFERENCED BY THE SYMBOL *FV.NAME*, WHERE *NAME* IS             FTN         1645     A     
 FTN      *         THE FILE NAME.                                                         FTN         1646     A     
 FTN      *                                                                                FTN         1647     A     
 FTN      *         THE TABLE IS FORMED BY THE *FVEC* MACRO, USING REMOTE CALLS            FTN         1648     A     
 FTN      *         ISSUED FROM THE *FET* MACRO.                                           FTN         1649     A     
 FTN       FVEC     SPACE  4,10                                                            FTN         1650     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      **        FVEC - MACRO TO FORM FILE VECTOR TABLE ENTRIES.                        FTN         1651     A     
 FTN      *                                                                                FTN         1652     A     
 FTN      *                                                                                FTN         1653     A     
 FTN      *         FVEC      FILE                                                         FTN         1654     A     
 FTN      *                                                                                FTN         1655     A     
 FTN      *         ENTRY  *FILE* = FILE NAME                                              FTN         1656     A     
 FTN      *                                                                                FTN         1657     A     
 FTN      *         EXIT   TABLE ENTRY IS FORMED.                                          FTN         1658     A     
 FTN      *                FV.*FILE* IS DEFINED AND DECLARED AN ENTRY POINT.               FTN         1659     A     
 FTN      *                                                                                FTN         1660     A     
 FTN      *         USES   NONE                                                            FTN         1661     A     
 FTN      *                                                                                FTN         1662     A     
 FTN      *         CALLS  NONE                                                            FTN         1663     A     
 FTN                                                                                       FTN         1664     A     
 FTN                                                                                       FTN         1665     A     
 FTN                PURGMAC FVEC                                                           FTN         1666     A     
 FTN                                                                                       FTN         1667     A     
 FTN       FVEC     MACRO  FILE                                                            FTN         1668     A     
 FTN       FV.FILE  BSSENT                                                                 FTN         1669     A     
 FTN       .RM      IFEQ   CP#RM,0                                                         FTN         1670     A     
 FTN                VFD    42/0L"FILE",18/F.FILE                                           FTN         1671     A     
 FTN       .RM      ELSE                                                                   FTN         1672     A     
 FTN                VFD    42/0L"FILE",18/FI.FILE                                          FTN         1673     A     
 FTN       .RM      ENDIF                                                                  FTN         1674     A     
 FTN       FVEC     ENDM                                                                   FTN         1675     A     
 FTN                                                                                       FTN         1676     A     
 FTN      *         FORM TABLE ENTRIES.                                                    FTN         1677     A     
 FTN                                                                                       FTN         1678     A     
 FTN       FVTBL    BSSENT 0           DEFINE FILE VECTOR TABLE BASE ADDRESS               FTN         1679     A     
 FTN                LOC    RA.ARG      ULTIMATE TABLE ADDRESS (AFTER MOVE)                 FTN         1680     A     
 FTN       RPV=FVT  BSSENT             DEFINE FWA VECTOR FOR RPV                           FTN         1681     A     
 FTN                                                                                       FTN         1682     A     
 FTN                LIST   D                                                               FTN         1683     A     
 FTN       FVEC     HERE               *RMT* GENERATED BY *FET* MACRO                      FTN         1684     A     
 FTN                CON    -1          END OF FILE VECTOR TABLE                            FTN         1685     A     
 FTN                LIST   *                                                               FTN         1686     A     
 FTN                                                                                       FTN         1687     A     
 FTN                DIS    4, COPYRIGHT CONTROL DATA CORP. 1979, 1980                      FC5*80         5          I
          -FC5*81 
 FTN                DIS    5, COPYRIGHT CONTROL DATA CORP. 1979, 1980, 1981                FC5*81         5          I
          -FC5*82 
 FTN                DIS    6, COPYRIGHT CONTROL DATA CORP. 1979, 1980, 1981, 1982          FC5*82         5     A     
 FTN                LOC    *O                                                              FTN         1688     A     
 FTN                USE    *                                                               FTN         1689     A     
 FTN                                                                                       FTN         1690     A     
 FTN      *         FVLEN, AS FOLLOWS, SHOULD ONLY BE USED BY INIT00                       FTN         1691     A     
 FTN      *         AS THE TABLE IS DYNAMIC.                                               FTN         1692     A     
 FTN                                                                                       FTN         1693     A     
 FTN       FVLEN    EQUENT *-FVTBL     DEFINE TABLE LENGTH                                 FTN         1694          I
          -FC5A158A 
 FTN                                                                                       FC5A115        9          I
          -FC5A158A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         VERIFY (0,0) RESIDENT INCLUDING I= AND L= BUFFERS FIT                  FC5A115       10          I
          -FC5A158A 
 FTN      *         BELOW COMPASS (1,0).                                                   FC5A115       11          I
          -FC5A158A 
 FTN                                                                                       FC5A115       12          I
          -FC5A158A 
 FTN                ERRPL  RA.ORG+L54.00+LDR.EP+CP.LCOM+OBUF-B=FTN+"BUFL"-CP.ORG-1         FC5A115       13          I
          -FC5A158A 
 FTN      ,-1                          (0,0) RESIDENT TOO LARGE                            FC5A115       14          I
          -FC5A158A 
 FTN       PRIMO    SPACE  4,2                                                             FTN         1695          I
          -FC5A158A 
 FTN       FVLEN    EQUENT *-FVTBL     DEFINE TABLE LENGTH                                 FC5A158A      73     A     
 FTN                ERRPL  RA.ORG+L54.00+LDR.EP+CP.LCOM+FIN.FTN-B=FTN+"BUFL"-CP.OR         FC5A158A      74     A     
 FTN      ,G-1-1                                                                           FC5A158A      75          I
          -FC5A262
 FTN      ,G                                                                               FC5A262       14     A     
 FTN                SPACE  4                                                               FC5A158A      76     A     
 FTN                LIST   D                                                               FTN         1696     A     
 FTN                END                                                                    FTN         1697     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTN     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTN                       1697      1460
          FC5A107                      2         2
          FC5A115                     11         5
          FC5A119                     16         6
          FC5A158A                    16        15
          FC5*80                       2         0
          F1037F5                     54        54
          FC5A244                      7         7
          FC5A262                      7         7
          FC5*81                       2         0
          FC5A275                      3         3
          FC50322                      1         1
          FC5*82                       2         2
          F1039                       41        40
          FC50818                      1         1
          FC5A426                      6         6
          FC5A444                     12        12
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UTILITY 
  
 UTILITY  *DECK     UTILITY            CPU UTILITY ROUTINES                                UTILITY        1     A     
 UTILITY            IDENT  UTILITY                                                         UTILITY        2     A     
 UTILITY   UTILITY  SECT   (COMMON UTILITY ROUTINES.)                                      UTILITY        3     A     
 UTILITY   UTILITY  SPACE  4,8                                                             UTILITY        4     A     
 UTILITY  *         IN FTN                                                                 UTILITY        5     A     
 UTILITY            EXT    MSG=,RCL=,RPV=FVT,SYS=,WNB=                                     UTILITY        6     A     
 UTILITY                                                                                   UTILITY        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UTILITY 
  
 UTILITY  *         IN IDP                                                                 UTILITY        8     A     
 UTILITY            EXT    IDP=COD                                                         UTILITY        9     A     
 UTILITY                                                                                   UTILITY       10     A     
 UTILITY  *         IN PUC                                                                 UTILITY       11     A     
 UTILITY            EXT    RPV=CLN,RPV=MSG,RPV=URP                                         UTILITY       12     A     
 UTILITY                                                                                   UTILITY       13     A     
 UTILITY  *         IN RPV10                                                               UTILITY       14     A     
 UTILITY            EXT    RPV=RNA                                                         UTILITY       15     A     
 UTILITY  *CALL     COMCCDD            CONVERT DECIMAL DIGITS                              UTILITY       16     A     
 UTILITY            ENTRY  CDD                                                             UTILITY       17     A     
 UTILITY   CDD=     EQUENT CDD                                                             UTILITY       18     A     
 UTILITY  *CALL     COMCDXB            DISPLAY CODE TO BINARY                              UTILITY       19     A     
 UTILITY            ENTRY  DXB                                                             UTILITY       20     A     
 UTILITY  *CALL FA=SET                                                                     UTILITY       21     A     
 UTILITY  *CALL     COMCMVE            MOVE BLOCK OF MEMORY                                UTILITY       22     A     
 UTILITY            ENTRY  MVE=                                                            UTILITY       23     A     
 UTILITY   CCOMRPV  SPACE  4,10                                                            UTILITY       24     A     
 UTILITY   RPV=LOL  =      RA.ORG      DEFINE *LAST OVERLAY LOADED* WORD                   UTILITY       25     A     
 UTILITY                                                                                   UTILITY       26     A     
 UTILITY   .TEST    IFEQ   TEST,ON     IF TEST MODE                                        UTILITY       27     A     
 UTILITY            QUAL   CCOMRPV                                                         UTILITY       28     A     
 UTILITY   COD      EQUEXT IDP=COD                                                         UTILITY       29     A     
 UTILITY            QUAL   *                                                               UTILITY       30     A     
 UTILITY   .TEST    ENDIF                                                                  UTILITY       31     A     
 UTILITY  *CALL     CCOMRPV            COMPILER REPRIEVE UTILITY                           UTILITY       32     A     
 UTILITY            ENTRY  FRA=,RPV=                                                       UTILITY       33     A     
 UTILITY  *CALL     COMCMNS            MOVE BITS, NO OVERLAP                               UTILITY       34     A     
 UTILITY            ENTRY  MNS=                                                            UTILITY       35     A     
 UTILITY  *CALL     COMCSBM            SET BLOCK OF MEMORY                                 UTILITY       36     A     
 UTILITY            ENTRY  SBM=                                                            UTILITY       37     A     
 UTILITY  *CALL     COMCSFN            SPACE FILL NAME                                     UTILITY       38     A     
 UTILITY            ENTRY  SFN                                                             UTILITY       39     A     
 UTILITY   SFN=     EQUENT SFN                                                             UTILITY       40     A     
 UTILITY  *CALL     COMCSST            SHELL SORT TABLE                                    UTILITY       41     A     
 UTILITY            ENTRY  SST                                                             UTILITY       42     A     
 UTILITY  *CALL     COMCWOD            WRITE OCTAL DIGITS                                  UTILITY       43     A     
 UTILITY            ENTRY  WOD                                                             UTILITY       44     A     
 UTILITY   #RM      IFEQ   CP#RM,0                                                         UTILITY       45          I
          -FC5A158A 
 UTILITY  *CALL     COMCZTB            CONVERT ZEROES TO BLANKS                            UTILITY       46     A     
 UTILITY            ENTRY  ZTB                                                             UTILITY       47     A     
 UTILITY   ZTB=     EQUENT ZTB         CCG INTERFACE                                       UTILITY       48     A     
 UTILITY   #RM      IFEQ   CP#RM,0                                                         FC5A158A      77     A     
 UTILITY  *CALL     COMCCIO            MACE I/O FUNCTIN PROCESSOR                          UTILITY       49     A     
 UTILITY            ENTRY  CIO=                                                            UTILITY       50     A     
 UTILITY  *CALL     COMCRDC            READ CODED LINE, -C- FORMAT                         UTILITY       51     A     
 UTILITY            ENTRY  RDC=                                                            UTILITY       52     A     
 UTILITY  *CALL     COMCRDW            READ WORDS TO WORKING BUFFER                        UTILITY       53     A     
 UTILITY            ENTRY  RDW=                                                            UTILITY       54     A     
 UTILITY  *CALL     COMCWTH            WRITE CODED LINE IN *H* FORMAT                      UTILITY       55     A     
 UTILITY            ENTRY  WTH=                                                            UTILITY       56     A     
 UTILITY  *CALL     COMCWTO            WRITE ONE WORD                                      UTILITY       57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UTILITY 
  
 UTILITY            ENTRY  WTO=                                                            UTILITY       58     A     
 UTILITY  *CALL     COMCWTW            WRITE WORDS FROM WORKING BUFFER                     UTILITY       59     A     
 UTILITY            ENTRY  WTW=                                                            UTILITY       60     A     
 UTILITY            ENTRY  DCB=,WTX=                                                       UTILITY       61     A     
 UTILITY            TITLE  FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.                    UTILITY       62     A     
 UTILITY   #RM      ELSE                                                                   UTILITY       63     A     
 UTILITY  *CALL     FA=CLO             CLOSE FILE (7RM PSEUDO MACE I/O)                    UTILITY       64     A     
 UTILITY            ENTRY  FA=CLO                                                          UTILITY       65     A     
 UTILITY  *CALL     FA=EOF             WRITE END-OF-FILE (7RM PSEUDO MACE I/O)             UTILITY       66     A     
 UTILITY            ENTRY  FA=EOF                                                          UTILITY       67     A     
 UTILITY  *CALL     FA=EOR             WRITE END-OF-RECORD (7RM PSEUDO MACE I/O)           UTILITY       68     A     
 UTILITY            ENTRY  FA=EOR                                                          UTILITY       69     A     
 UTILITY  *CALL     FA=FLSH            FLUSH FILE HOLDING BUFFER                           UTILITY       70     A     
 UTILITY            ENTRY  FA=FLSH                                                         UTILITY       71     A     
 UTILITY  *CALL     FA=OPE             OPEN FILE (7RM PSEUDO MACE I/O)                     UTILITY       72     A     
 UTILITY            ENTRY  FA=OPE                                                          UTILITY       73     A     
 UTILITY  *CALL     FA=RDC             7RM PSEUDO COMCRDC                                  UTILITY       74     A     
 UTILITY            ENTRY  FA=RDC                                                          UTILITY       75     A     
 UTILITY  *CALL     FA=RDW             7RM PSEUDO COMCRDW                                  UTILITY       76     A     
 UTILITY            ENTRY  FA=RDW                                                          UTILITY       77     A     
 UTILITY  *CALL     FA=RWX             REWIND FILE (7RM PSEUDO MACE I/O)                   UTILITY       78     A     
 UTILITY            ENTRY  FA=RWX                                                          UTILITY       79     A     
 UTILITY  *CALL     FA=WTC             7RM PSEUDO COMCWTC                                  UTILITY       80          I
          -FC50467
 UTILITY   WTH=     EQUENT FA=WTC                                                          FC5A158A      78          I
          -FC50467
 UTILITY   FA=WTH   EQUENT FA=WTC                                                          FC5A158A      79          I
          -FC50467
 UTILITY            ENTRY  FA=WTC                                                          UTILITY       81          I
          -FC50467
 UTILITY  *CALL     FA=WTH             7RM PSEUDO COMCWTH                                  FC50467        7     A     
 UTILITY                                                                                   FC50467        8     A     
 UTILITY            ENTRY  FA=WTH                                                          FC50467        9     A     
 UTILITY  *CALL     FA=WTW             7RM PSEUDO COMCWTW                                  UTILITY       82     A     
 UTILITY            ENTRY  FA=WTW                                                          UTILITY       83     A     
 UTILITY   #RM      ENDIF                                                                  UTILITY       84     A     
 UTILITY            LIST   D                                                               UTILITY       85     A     
 UTILITY            END                                                                    UTILITY       86     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - UTILITY 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          UTILITY                     86        83
          FC5A158A                     3         1
          FC50467                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK  *DECK,LISTLNK                                                                    FC5A150       36     A     
 LISTLNK            IDENT  LISTLNK                                                         FC5A150       37     A     
 LISTLNK   LISTLNK  SECT   (MISC OUTPUT ROUTINES)                                          FC5A150       38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK  **        LISTLNK EXISTS TO SHORTEN THE (0,0) OVERLAY, I.E., IT                  FC5A150       39     A     
 LISTLNK  *         RESIDES ON THE (1,0) AND THE (2,0) AFTER *UTILITY*.                    FC5A150       40     A     
 LISTLNK                                                                                   FC5A150       41     A     
 LISTLNK                                                                                   FC5A150       42     A     
 LISTLNK                                                                                   FC5A150       43     A     
 LISTLNK  *         IN FTN                                                                 FC5A150       44     A     
 LISTLNK            EXT    TIME1,TIMER,CPTIM                                               FC5A150       45     A     
 LISTLNK                                                                                   FC5A150       46     A     
 LISTLNK  *         IN PUC                                                                 FC5A150       47     A     
 LISTLNK            EXT    BLNKCOM,COMSIZ,CO.PS,PIA,SUM.LBT,T.BLKS,WO.LOA,LCNT             FC5A150       48     A     
 LISTLNK                                                                                   FC5A150       49     A     
 LISTLNK  *         IN UTILITY                                                             FC5A150       50     A     
 LISTLNK            EXT    CDD                                                             FC5A150       51     A     
 LISTLNK   OCTAL    SPACE  4,10                                                            FC5A150       52     A     
 LISTLNK  **        OCTAL - CONVERT AND FORMAT OCTAL STATISTIC.                            FC5A150       53     A     
 LISTLNK  *                                                                                FC5A150       54     A     
 LISTLNK  *         CONVERT NUMBER STORED AT *FROM* TO OCTAL DPC,FORMAT THE                FC5A150       55     A     
 LISTLNK  *         RESULT FOR PRINTING, STORE IT AT *TO*.                                 FC5A150       56     A     
 LISTLNK  *                                                                                FC5A150       57     A     
 LISTLNK  *         OCTAL  FROM,TO                                                         FC5A150       58     A     
 LISTLNK  *                                                                                FC5A150       59     A     
 LISTLNK  *         USES   A1-2,6,  X0-2,6-7,  B7.                                         FC5A150       60     A     
 LISTLNK  *         CALLS  PIA                                                             FC5A150       61     A     
 LISTLNK                                                                                   FC5A150       62     A     
 LISTLNK                                                                                   FC5A150       63     A     
 LISTLNK   OCTAL    MACRO  FROM,TO                                                         FC5A150       64     A     
 LISTLNK            =A1    FROM        FETCH NUMBER                                        FC5A150       65     A     
 LISTLNK            PIA                CONVERT IT                                          FC5A150       66     A     
 LISTLNK            LX6    CHAR                                                            FC5A150       67          I
          -FC5A231
 LISTLNK            =X0    1R=&1R                                                          FC5A150       68     A     
 LISTLNK            BX6    X0-X6       CHANGE LAST BLANK TO =                              FC5A150       69     A     
 LISTLNK            SA6    TO                                                              FC5A150       70     A     
 LISTLNK   OCTAL    ENDM                                                                   FC5A150       71     A     
 LISTLNK   DECML    SPACE  4,10                                                            FC5A150       72     A     
 LISTLNK  **        DECML - CONVERT AND FORMAT DECIMAL STATISTIC.                          FC5A150       73     A     
 LISTLNK  *                                                                                FC5A150       74     A     
 LISTLNK  *         CONVERT NUMBER STORED AT *FROM* TO DECML DPC, FORMAT                   FC5A150       75     A     
 LISTLNK  *         RESULT FOR PRINTING, STORE IT AT *TO*.                                 FC5A150       76     A     
 LISTLNK  *                                                                                FC5A150       77     A     
 LISTLNK  *         DECML  FROM,TO                                                         FC5A150       78     A     
 LISTLNK  *                                                                                FC5A150       79     A     
 LISTLNK  *         USES   X1,X4,X6,A1                                                     FC5A150       80     A     
 LISTLNK  *         CALLS  CDD                                                             FC5A150       81     A     
 LISTLNK                                                                                   FC5A150       82     A     
 LISTLNK                                                                                   FC5A150       83     A     
 LISTLNK   DECML    MACRO  FROM,TO                                                         FC5A150       84     A     
 LISTLNK            =A1    FROM                                                            FC5A150       85     A     
 LISTLNK            CALL   CDD                                                             FC5A150       86     A     
 LISTLNK            LX4    -2*CHAR                                                         FC5A150       87     A     
 LISTLNK            BX6    X4                                                              FC5A150       88     A     
 LISTLNK            SA6    TO                                                              FC5A150       89     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK   DECML    ENDM                                                                   FC5A150       90     A     
 LISTLNK   LUS      SPACE  4,10                                                            FC5A150       91     A     
 LISTLNK  **        LUS -  LIST UNIT STATISTICS.                                           FC5A150       92     A     
 LISTLNK  *                                                                                FC5A150       93     A     
 LISTLNK  *         ENTRY  (X1) = MAX CORE REQUIRED BY CURRENT PROGRAM UNIT.               FC5A150       94     A     
 LISTLNK  *                                                                                FC5A150       95     A     
 LISTLNK  *         USES   A0-4,A6-7,  X0-7,  B1-2,B6.                                     FC5A150       96     A     
 LISTLNK  *         CALLS  PLINE,CDD,PIA,CPTIM,TIMER,OCTAL,DECML                           FC5A150       97     A     
 LISTLNK                                                                                   FC5A150       98     A     
 LISTLNK                                                                                   FC5A150       99     A     
 LISTLNK   LUS      SUBR   =           ENTRY/EXIT...                                       FC5A150      100     A     
 LISTLNK            SA2    WO.LOA                                                          FC5A150      101     A     
 LISTLNK            ZR     X2,EXIT.    IF LO=-A                                            FC5A150      102     A     
 LISTLNK            MX7    0                                                               FC5A150      103     A     
 LISTLNK            SA7    LUSTL                                                           FC5A150      104     A     
 LISTLNK            SA7    LUSTS       INITIALIZE COMMON LENGTH STORAGE CELLS              FC5A150      105     A     
 LISTLNK            BX6    X1                                                              FC5A150      106     A     
 LISTLNK            SA6    LUSD+3      SAVE X1                                             FC5A150      107     A     
 LISTLNK            SA1    LCNT                                                            FC5A150      108          I
          -FC50492
 LISTLNK            SB7    7           BASE LENGTH OF STATISTICS                           FC50492        7     A     
 LISTLNK                                                                                   FC50492        8     A     
 LISTLNK   .TEST    IFEQ   TEST,ON     ACCOUNT FOR TEST MODE MESSAGES                      FC50492        9     A     
 LISTLNK            SB7    B7+B1       NR OF ALLOCS                                        FC50492       10     A     
 LISTLNK            SA1    MOVES                                                           FC50492       11     A     
 LISTLNK            ZR     X1,LUS02    IF NO TABLE CRASHES                                 FC50492       12     A     
 LISTLNK            SB7    B7+B1       NR OF TABLE CRASHES                                 FC50492       13     A     
 LISTLNK                                                                                   FC50492       14     A     
 LISTLNK   LUS02    SB7    B7+B1       LARGEST PARSED FILE LENGTH                          FC50492       15     A     
 LISTLNK   .TEST    ENDIF                                                                  FC50492       16     A     
 LISTLNK                                                                                   FC50492       17     A     
 LISTLNK            SA1    BLNKCOM                                                         FC50492       18     A     
 LISTLNK            MX2    0           SCM BLANK COMMON LENGTH                             FC50492       19     A     
 LISTLNK            MX3    0           LCM BLANK COMMON LENGTH                             FC50492       20     A     
 LISTLNK            ZR     X1,LUS06    IF NO BLANK COMMON                                  FC50492       21     A     
 LISTLNK            SX1    X1-2                                                            FC50492       22     A     
 LISTLNK            SA2    T.BLKS                                                          FC50492       23     A     
 LISTLNK            SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                                FC50492       24     A     
 LISTLNK            IX3    X2+X1       ADDRESS OF BLANK COMMON                             FC50492       25     A     
 LISTLNK            SA4    X3+CB.W     FETCH WORD B                                        FC50492       26     A     
 LISTLNK            BX5    X4          SAVE COPY                                           FC50492       27     A     
 LISTLNK            MX0    -CB.BLENL                                                       FC50492       28     A     
 LISTLNK            LX4    -CB.BLENP                                                       FC50492       29     A     
 LISTLNK            BX2    -X0*X4      ISOLATE SCM BLOCK LENGTH                            FC50492       30     A     
 LISTLNK            MX3    0                                                               FC50492       31     A     
 LISTLNK            HX5    CB.LCM                                                          FC50492       32     A     
 LISTLNK            PL     X5,LUS04    IF SCM                                              FC50492       33     A     
 LISTLNK            BX3    X2          SET LCM LENGTH                                      FC50492       34     A     
 LISTLNK            MX2    0           SET SCM LENGTH                                      FC50492       35     A     
 LISTLNK                                                                                   FC50492       36     A     
 LISTLNK   LUS04    SB7    B7+B1       BLANK COMMON MESSAGE                                FC50492       37     A     
 LISTLNK                                                                                   FC50492       38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK   LUS06    SA1    COMSIZ                                                          FC50492       39     A     
 LISTLNK            IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                        FC50492       40     A     
 LISTLNK            ZR     X1,LUS08    IF NO LABELLED SCM                                  FC50492       41     A     
 LISTLNK            SB7    B7+B1       SCM LABELLED COMMON MSG                             FC50492       42     A     
 LISTLNK                                                                                   FC50492       43     A     
 LISTLNK   LUS08    SA1    COMSIZ+B1                                                       FC50492       44     A     
 LISTLNK            IX1    X1-X3       SUBTRACT BLANK COMMON LENGTH                        FC50492       45     A     
 LISTLNK            ZR     X1,LUS09    IF NO LABELLED LCM                                  FC50492       46     A     
 LISTLNK            SB7    B7+B1       LCM LABELLED COMMON MSG                             FC50492       47     A     
 LISTLNK                                                                                   FC50492       48     A     
 LISTLNK   LUS09    SA1    LCNT                                                            FC50492       49     A     
 LISTLNK            SA2    CO.PS                                                           FC5A150      109     A     
 LISTLNK            IX1    X1-X2                                                           FC5A150      110     A     
 LISTLNK            SB2    X1+NUMLINES                                                     FC5A150      111          I
          -FC50492
 LISTLNK            SB2    X1+B7       ADD NUMBER OF LINES REQUIRED                        FC50492       50     A     
 LISTLNK            MI     B2,LUS10    IF SUFFICIENT ROOM                                  FC5A150      112     A     
 LISTLNK            SX7    X2+B1                                                           FC5A150      113     A     
 LISTLNK            SA7    A1                                                              FC5A150      114     A     
 LISTLNK   LUS10    PLINE  LUSF,2,2    PRINT HEADING                                       FC5A150      115     A     
 LISTLNK            SB2    =10H                                                            FC5A150      116     A     
 LISTLNK            PLINE  B2,1        PRINT BLANK LINE                                    FC5A150      117     A     
 LISTLNK   .TEST    IFEQ   TEST,ON     TEST MODE MESSAGES                                  FC5A150      118     A     
 LISTLNK            SA1    ALC=CNT     (X1) = NR OF *ALLOC*S                               FC5A150      119     A     
 LISTLNK            CALL   CDD         CONVERT BINARY TO DECIMAL DPC                       FC5A150      120     A     
 LISTLNK            LX4    -2*CHAR                                                         FC5A150      121     A     
 LISTLNK            BX6    X4                                                              FC5A150      122     A     
 LISTLNK            SA6    A1                                                              FC5A150      123     A     
 LISTLNK            PLINE  LUSAL,5     PRINT NR OF ALLOCS                                  FC5A150      124     A     
 LISTLNK                                                                                   FC5A150      125     A     
 LISTLNK            SA1    MOVES                                                           FC5A150      126     A     
 LISTLNK            ZR     X1,LUS20    IF NO TABLE CRASHES                                 FC5A150      127     A     
 LISTLNK            CALL   CDD                                                             FC5A150      128     A     
 LISTLNK            LX4    -2*CHAR     FORMAT PROPERLY                                     FC5A150      129     A     
 LISTLNK            BX6    X4                                                              FC5A150      130     A     
 LISTLNK            SA6    A1                                                              FC5A150      131     A     
 LISTLNK            PLINE  LUSTC,5      PRINT TABLE CRASHES                                FC5A150      132     A     
 LISTLNK   LUS20    DECML  PARSLEN,PARSLEN+B1   CONVERT PARSLEN TO DECML DPC               FC5A150      133     A     
 LISTLNK            OCTAL  PARSLEN,PARSLEN   CONVERT IT TO  OCTAL DPC                      FC5A150      134     A     
 LISTLNK            PLINE  LUSPF,5      OUTPUT THE MESSAGE                                 FC5A150      135     A     
 LISTLNK   .TEST    ENDIF                                                                  FC5A150      136     A     
 LISTLNK                                                                                   FC5A150      137     A     
 LISTLNK  **        PIECE TOGETHER AND OUTPUT PROGRAM UNIT LENGTH MESSAGE                  FC5A150      138     A     
 LISTLNK                                                                                   FC5A150      139     A     
 LISTLNK            OCTAL  SUM.LBT,LUSA+3   FORMAT AND PLACE OCTAL CONVERSION              FC5A150      140     A     
 LISTLNK            DECML SUM.LBT,LUSA+4   SAME FOR DECML CONVERSION                       FC5A150      141     A     
 LISTLNK            PLINE  LUSA,5                                                          FC5A150      142     A     
 LISTLNK                                                                                   FC5A150      143     A     
 LISTLNK  **        PIECE TOGETHER AND OUTPUT BLANK COMMON LENGTH MESSAGE                  FC5A150      144     A     
 LISTLNK                                                                                   FC5A150      145     A     
 LISTLNK            SA1    BLNKCOM                                                         FC5A150      146     A     
 LISTLNK            ZR     X1,LUS35    IF NO BLANK COMMON                                  FC5A150      147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK            SX1    X1-2                                                            FC5A150      148     A     
 LISTLNK            SA2    T.BLKS                                                          FC5A150      149     A     
 LISTLNK            SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                                FC5A150      150     A     
 LISTLNK            IX3    X2+X1       ADDRESS OF BLANK COMMON                             FC5A150      151     A     
 LISTLNK            SA4    X3+CB.W     FETCH WORD B                                        FC5A150      152     A     
 LISTLNK            BX5    X4          KEEP EXTRA COPY                                     FC5A150      153     A     
 LISTLNK            MX0    -CB.BLENL                                                       FC5A150      154     A     
 LISTLNK            LX4    -CB.BLENP                                                       FC5A150      155     A     
 LISTLNK            BX1    -X0*X4      ISOLATE BLOCK LENGTH                                FC5A150      156     A     
 LISTLNK            BX6    X1                                                              FC5A150      157     A     
 LISTLNK            SA6    LUSTS      SAVE COPY FOR LATER USE                              FC5A150      158     A     
 LISTLNK            HX5    CB.LCM                                                          FC5A150      159     A     
 LISTLNK            SB5    LUSB                                                            FC5A150      160     A     
 LISTLNK            SB6    B5+3        ASSUME BLOCK IS CM/SCM                              FC5A150      161     A     
 LISTLNK            PL     X5,LUS30    IF ASSUMPTION CORRECT...                            FC5A150      162     A     
 LISTLNK            SB5    LUSBB                                                           FC5A150      163     A     
 LISTLNK            SB6    B5+3        IF NOT                                              FC5A150      164     A     
 LISTLNK            SA6    LUSTL                                                           FC5A150      165     A     
 LISTLNK            MX6    0                                                               FC5A150      166     A     
 LISTLNK            SA6    LUSTS                                                           FC5A150      167     A     
 LISTLNK   LUS30    BX3    X1          SAVE COPY OF LENGTH                                 FC5A150      168     A     
 LISTLNK            OCTAL  A1,B6                                                           FC5A150      169     A     
 LISTLNK            BX1    X3                                                              FC5A150      170     A     
 LISTLNK            DECML  A1,B6+B1                                                        FC5A150      171     A     
 LISTLNK            PLINE  B5,5      OUTPUT MESSAGE                                        FC5A150      172     A     
 LISTLNK                                                                                   FC5A150      173     A     
 LISTLNK  **        PIECE TOGETHER AND OUTPUT LABELED COMMON LENGTH MESSAGE                FC5A150      174     A     
 LISTLNK                                                                                   FC5A150      175     A     
 LISTLNK   LUS35    SA1    COMSIZ                                                          FC5A150      176     A     
 LISTLNK            SA2    LUSTS                                                           FC5A150      177     A     
 LISTLNK            IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                        FC5A150      178     A     
 LISTLNK            ZR     X1,LUS40    IF NO SCM COMMON                                    FC5A150      179     A     
 LISTLNK            BX3    X1          PIA WONT DESTROY THIS REGISTER                      FC5A150      180     A     
 LISTLNK            OCTAL  A1,LUSC+3                                                       FC5A150      181     A     
 LISTLNK            BX1    X3                                                              FC5A150      182     A     
 LISTLNK            DECML  A1,LUSC+4                                                       FC5A150      183     A     
 LISTLNK            PLINE  LUSC,5                                                          FC5A150      184     A     
 LISTLNK   LUS40    SA1    COMSIZ+B1                                                       FC5A150      185     A     
 LISTLNK            SA2    LUSTL                                                           FC5A150      186     A     
 LISTLNK            IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                        FC5A150      187     A     
 LISTLNK            ZR     X1,LUS50    IF NO LCM COMMON                                    FC5A150      188     A     
 LISTLNK            BX3    X1          PIA WONT DESTROY THIS REG                           FC5A150      189     A     
 LISTLNK            OCTAL  A1,LUSCC+3                                                      FC5A150      190     A     
 LISTLNK            BX1    X3                                                              FC5A150      191     A     
 LISTLNK            DECML  A1,LUSCC+4                                                      FC5A150      192     A     
 LISTLNK            PLINE  LUSCC,5                                                         FC5A150      193     A     
 LISTLNK                                                                                   FC5A150      194     A     
 LISTLNK  **        PIECE TOGETHER AND OUTPUT STORAGE USED MESSAGE                         FC5A150      195     A     
 LISTLNK                                                                                   FC5A150      196     A     
 LISTLNK   LUS50    DECML  LUSD+3,LUSD+4                                                   FC5A150      197     A     
 LISTLNK            OCTAL  LUSD+3,LUSD+3                                                   FC5A150      198     A     
 LISTLNK            PLINE  LUSD,5                                                          FC5A150      199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK                                                                                   FC5A150      200     A     
 LISTLNK  **        PIECE TOGETHER AND OUTPUT CP TIME MESSAGE                              FC5A150      201     A     
 LISTLNK                                                                                   FC5A150      202     A     
 LISTLNK            SA2    TIME1       PROGRAM UNIT START TIME                             FC5A150      203     A     
 LISTLNK            CALL   CPTIM       ELAPSED TIME F10.3 FORMAT IN X6                     FC5A150      204     A     
 LISTLNK            BX7    X6                                                              FC5A150      205     A     
 LISTLNK            CALL   TIMER                                                           FC5A150      206     A     
 LISTLNK            SA6    TIME1       RESET START TIME                                    FC5A150      207     A     
 LISTLNK            BX6    X7                                                              FC5A150      208     A     
 LISTLNK            MX7    0                                                               FC5A150      209     A     
 LISTLNK            SA7    LUSE+2                                                          FC5A150      210     A     
 LISTLNK            SA7    A7+B1                                                           FC5A150      211     A     
 LISTLNK            SA7    A7+B1       ERASE PREVIOUS MESSAGE                              FC5A150      212     A     
 LISTLNK            MX0    3*CHAR                                                          FC5A150      213     A     
 LISTLNK            BX7    X0*X6       GRAB 3 LEFTMOST CHARACTERS                          FC5A150      214     A     
 LISTLNK            LX7    3*CHAR                                                          FC5A150      215     A     
 LISTLNK            SA1    =7L                                                             FC5A150      216     A     
 LISTLNK            BX7    X7+X1                                                           FC5A150      217     A     
 LISTLNK            SA7    LUSE+2      STORE THEM IN MESSAGE                               FC5A150      218     A     
 LISTLNK            BX6    -X0*X6      GRAB LAST 7 CHARACTERS                              FC5A150      219     A     
 LISTLNK            LX6    3*CHAR                                                          FC5A150      220     A     
 LISTLNK            SA1    =3R SE                                                          FC5A150      221     A     
 LISTLNK            BX6    X6+X1                                                           FC5A150      222     A     
 LISTLNK            SA6    A7+B1       STORE THEM IN MESSAGE                               FC5A150      223     A     
 LISTLNK            SA1    =10HCONDS                                                       FC5A150      224     A     
 LISTLNK            BX6    X1                                                              FC5A150      225     A     
 LISTLNK            SA6    A6+B1       COMPLETE THE MESSAGE                                FC5A150      226     A     
 LISTLNK            PLINE  LUSE,5      OUTPUT IT                                           FC5A150      227     A     
 LISTLNK            EQ     EXIT.       EXIT...                                             FC5A150      228     A     
 LISTLNK                                                                                   FC5A150      229     A     
 LISTLNK                                                                                   FC5A150      230     A     
 LISTLNK  **        MESSAGES AND CONSTANTS NEEDED TO PRODUCE STATISTICS OUTPUT             FC5A150      231     A     
 LISTLNK                                                                                   FC5A150      232     A     
 LISTLNK                                                                                   FC5A150      233     A     
 LISTLNK   .TEST    IFEQ   TEST,ON     IF TEST MODE                                        FC5A150      234     A     
 LISTLNK   LUSAL    DIS    4,   NR OF ALLOCS                                               FC5A150      235     A     
 LISTLNK   ALC=CNT  CONENT 0                                                               FC5A150      236     A     
 LISTLNK   LUSTC    DIS    4,   TABLE CRASHES                                              FC5A150      237     A     
 LISTLNK   MOVES    CONENT 0                                                               FC5A150      238     A     
 LISTLNK   LUSPF    DIS    3,   LARGEST PARSED FILE LENGTH                                 FC5A150      239     A     
 LISTLNK   PARSLEN  CONENT 0                                                               FC5A150      240     A     
 LISTLNK            CON    0                                                               FC5A150      241     A     
 LISTLNK   .TEST    ENDIF                                                                  FC5A150      242     A     
 LISTLNK                                                                                   FC5A150      243     A     
 LISTLNK   LUSA     DIS    3,   PROGRAM-UNIT LENGTH                                        FC5A150      244     A     
 LISTLNK           BSS    2                                                                FC5A150      245          I
          -FC5A231
 LISTLNK            BSS    2                                                               FC5A231       33     A     
 LISTLNK                                                                                   FC5A150      246     A     
 LISTLNK   LUSB     DIS    3,   "SCM" BLANK COMMON LENGTH                                  FC5A150      247     A     
 LISTLNK            BSS    2                                                               FC5A150      248     A     
 LISTLNK   LUSBB    DIS    3,   "LCM" BLANK COMMON LENGTH                                  FC5A150      249     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTLNK 
  
 LISTLNK            BSS    2                                                               FC5A150      250     A     
 LISTLNK                                                                                   FC5A150      251     A     
 LISTLNK   LUSC     DIS    3,   "SCM" LABELLED COMMON LENGTH                               FC5A150      252     A     
 LISTLNK            BSS    2                                                               FC5A150      253     A     
 LISTLNK   LUSCC    DIS    3,   "LCM" LABELLED COMMON LENGTH                               FC5A150      254     A     
 LISTLNK            BSS    2                                                               FC5A150      255     A     
 LISTLNK                                                                                   FC5A150      256     A     
 LISTLNK   LUSD     DIS    3,   "SCM" STORAGE USED                                         FC5A150      257     A     
 LISTLNK            BSS    2                                                               FC5A150      258     A     
 LISTLNK                                                                                   FC5A150      259     A     
 LISTLNK   LUSE     DIS    2,   COMPILE TIME                                               FC5A150      260     A     
 LISTLNK            BSS    3                                                               FC5A150      261     A     
 LISTLNK                                                                                   FC5A150      262     A     
 LISTLNK   LUSF     DIS    2, --STATISTICS--                                               FC5A150      263     A     
 LISTLNK                                                                                   FC5A150      264     A     
 LISTLNK   .TEST    IFEQ   TEST,ON                                                         FC5A150      265     A     
 LISTLNK   NUMLINES EQU    12                                                              FC5A150      266     A     
 LISTLNK   .TEST    ELSE                                                                   FC5A150      267     A     
 LISTLNK   NUMLINES EQU    10                                                              FC5A150      268     A     
 LISTLNK   .TEST    ENDIF                                                                  FC5A150      269     A     
 LISTLNK   LUSTS    BSSZ   1           TEMPORARY FOR LENGTH SCM BLANK COMMON               FC5A150      270     A     
 LISTLNK   LUSTL    BSSZ   1           TEMPORARY FOR LENGTH LCM BLANK COMMON               FC5A150      271     A     
 LISTLNK            END                                                                    FC5A150      272     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LISTLNK 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A150                    237       233
          FC5A231                      1         1
          FC50492                     44        44
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      *DECK     PUC    PROGRAM UNIT CONTROLLER                                         PUC            1     A     
 PUC                IDENT  PUC                                                             PUC            2     A     
 PUC       PUC      SECT   (PROGRAM UNIT CONTROLLER AND SUPPORT.)                          PUC            3     A     
 PUC       PUC      SPACE  4,10                                                            PUC            4     A     
 PUC      *         IN FTN                                                                 PUC            5          I
          -FC5A158A 
 PUC                EXT    COD,CO.ANSI,CO.CPL,CO.EL,CO.LOO,CO.OPT,CO.PW,CPTIM              PUC            6          I
          -FC5A158A 
 PUC                EXT    CP.AFLS,CP.BLF,CP.CARD,CP.EPAG,CP.IFMT,CP.LSTF,CP.MXFL          PUC            7          I
          -FC5A158A 
 PUC      *         IN FTN                                                                 FC5A158A      80     A     
 PUC                EXT    COD,CO.ANSI,CO.CPL,CO.EL,CO.LOO,CO.OPT,CO.PW                    FC5A158A      81          I
          -F1039  
 PUC                EXT    CP.AFLS,CP.BLF,CP.CARD,CP.EPAG,CP.IFMT,CP.LSTF,CP.MXFL          FC5A158A      82          I
          -F1039  
 PUC                EXT    CP.ILFL,CP.AFLL                                                 FC5A158A      83          I
          -F1039  
 PUC                EXT    CP.NFLS,CP.PAGE,CP.PD,CP.PS,ENDFTN,FV.LGO,FV.OUT,F.ERRS         PUC            8          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          -FC5A107
 PUC                EXT    CP.NFLS,CP.PAGE,CP.PD,CO.PS,ENDFTN,FV.LGO,FV.OUT,F.ERRS         FC5A107        8          I
          -FC5A158A 
 PUC                EXT    CP.NFLS,CP.PAGE,CP.PD,CO.PS,FV.LGO,FV.OUT,F.ERRS                FC5A158A      84          I
          -F1039  
 PUC                EXT    F.IL,F.IN,F.LGO,F.OUT,F.PB,F.REF,GT1,INT.FL,LDCOM               PUC            9          I
          -F1037F5
 PUC                EXT    F.IL,F.IN,F.LGO,F.OUT,F.PB,F.REF,GT1,INT.FL,LDCOM,CO.MD         F1037F5      182          I
          -F1039  
 PUC                EXT    L.TITL,L.TTLA,L.TTLB,MAX.FL,MSG=,O.TITL,O.TTLA,PAGES            PUC           10          I
          -FC5A164
 PUC                EXT    L.TITL,L.TTLA,L.TTLB,MAX.FL,MSG=,O.TITL,O.TTLA                  FC5A164       18          I
          -F1039  
 PUC                EXT    RAPFLAG,SPYW,SYS=,TIMER,TIME1,TL.PAGE,TL.PTYP,WNB=              PUC           11          I
          -FC5A158A 
 PUC                EXT    RAPFLAG,SPYW,SYS=,TL.PAGE,TL.PTYP,WNB=                          FC5A158A      85          I
          -F1039  
 PUC                EXT    CP.ERCT,CP.ABT,CO.GO,TIME0,TIME1                                FC5A158A      86          I
          -F1039  
 PUC                EXT    TL.EJCT,CO.PWE                                                  FC5A115       15          I
          -F1039  
 PUC                EXT    ABTFTN,COD,CO.ANSI,CO.GO,CO.LOO,CO.OPT,CO.PS,CO.PW              F1039         73     A     
 PUC                EXT    CO.PWE,CP.ABT,CP.AFLL,CP.AFLS,CP.BLF,CP.CARD,CP.EPAG            F1039         74     A     
 PUC                EXT    CP.ERCT,CP.IFMT,CP.ILFL,CP.LSTF,CP.MXFL,CP.NFLS,CP.PAGE         F1039         75     A     
 PUC                EXT    CP.PD,ERFO,FV.LGO,FV.OUT,F.ERRS,F.IL,F.IN,F.LGO,F.OUT           F1039         76     A     
 PUC                EXT    F.PB,F.REF,GT1,INT.FL,LDCOM,L.CC,L.CCA,L.CCB,L.TA,L.TB          F1039         77     A     
 PUC                EXT    L.TITL,L.TTLA,L.TTLB,L.TWO,MAX.FL,MSG=,OFFSPY,O.C,O.CC          F1039         78     A     
 PUC                EXT    O.CPV,O.TA,O.TITL,O.TTLA,RAPFLAG,SPYW,SYS=,TIME0,TIME1          F1039         79          I
          -FC5A426
 PUC                EXT    RAPFLAG,SPYW,SYS=,TL.EJCT,TL.PAGE,TL.PTYP,WNB=                  F1039         80          I
          -FC5A426
 PUC                EXT    O.CPV,O.TA,O.TITL,O.TTLA,RAPFLAG,RS.PD,SPYW,SYS=,               FC5A426       21     A     
 PUC                EXT    TIME0,TIME1,TL.EJCT,TL.PAGE,TL.PTYP,WNB=                        FC5A426       22     A     
 PUC                                                                                       PUC           12     A     
 PUC      *         IN LISTLNK                                                             FC5A150      273     A     
 PUC                EXT    LUS                                                             FC5A150      274     A     
 PUC                                                                                       FC5A150      275     A     
 PUC      *         IN QCGLINK                                                             PUC           13     A     
 PUC                EXT    CGL,FEL,REL                                                     PUC           14     A     
 PUC                                                                                       PUC           15     A     
 PUC      *         IN UTILITY                                                             PUC           16     A     
 PUC                EXT    CDD,CIO=,MVE=,RDC=,SFN,WTH=                                     PUC           17          I
          -F1039  
 PUC                EXT    CDD,CIO=,FA=SET,MVE=,RDC=,SFN,WTH=                              F1039         81     A     
 PUC                TITLE  GLOBAL TABLE DEFINITIONS.                                       PUC           18     A     
 PUC       SIZES    SPACE  4,10                                                            PUC           19     A     
 PUC      **        SIZES - AUX. MACRO FOR TABLE SIZE REMOTES.                             PUC           20     A     
 PUC      *                (FORCES MICRO EVALUATION)                                       PUC           21     A     
 PUC                                                                                       PUC           22     A     
 PUC                                                                                       PUC           23     A     
 PUC       SIZES    MACRO  NAME,RATE,INIT,DEFENT                                           PUC           24     A     
 PUC      *                                                                                PUC           25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       TABLE    RMT                                                                    PUC           26     A     
 PUC       T.NAME  DEFENT INIT                                                             PUC           27     A     
 PUC       TABLE    RMT                                                                    PUC           28     A     
 PUC      *                                                                                PUC           29     A     
 PUC       SIZES    RMT                                                                    PUC           30     A     
 PUC       T=NAME  DEFENT N.TABLES+T.NAME                                                  PUC           31     A     
 PUC       SIZES    RMT                                                                    PUC           32     A     
 PUC      *                                                                                PUC           33     A     
 PUC      .2        IFC    NE, = RATE                                                      PUC           34     A     
 PUC       RATES    RMT                                                                    PUC           35     A     
 PUC       X        OCTMIC RATE_BS30/L.TABLES,10                                           PUC           36     A     
 PUC       A        OCTMIC INIT,6                                                          PUC           37     A     
 PUC                VFD    60/0."X"B+"A"B    (NAME)   _______________________              PUC           38     A     
 PUC       RATES    RMT                                                                    PUC           39     A     
 PUC      *                                                                                PUC           40     A     
 PUC       NAMES    RMT                                                                    PUC           41     A     
 PUC                VFD    42/7L_NAME  ,18/-BASES+T.NAME         ____________              PUC           42     A     
 PUC       NAMES    RMT                                                                    PUC           43     A     
 PUC       .2       ELSE                                                                   PUC           44     A     
 PUC       ALTNAM   RMT                                                                    PUC           45     A     
 PUC                VFD    42/7L_NAME  ,18/INIT-BASES            ____________              PUC           46     A     
 PUC       ALTNAM   RMT                                                                    PUC           47     A     
 PUC      *                                                                                PUC           48     A     
 PUC       .2       ENDIF                                                                  PUC           49     A     
 PUC      *                                                                                PUC           50     A     
 PUC       SIZES    ENDM                                                                   PUC           51     A     
 PUC       TABLE    SPACE  4,10                                                            PUC           52     A     
 PUC      **        TABLE - MACRO TO FORM TABLE PARAMETER WORD FOR COMPILER TABLES         PUC           53     A     
 PUC      *                                                                                PUC           54     A     
 PUC      * TNAM    TABLE  RATE,INIT         (OR),                                         PUC           55     A     
 PUC      * TNAM    TABLE  =,SHARE                                                         PUC           56     A     
 PUC      *                                                                                PUC           57     A     
 PUC      * TNAM    =      TABLE NAME (WITHOUT PREFIX)                                     PUC           58     A     
 PUC      *         RATE   =  RELATIVE EXPANSION RATE OF TABLE.                            PUC           59     A     
 PUC      *                = 5   SUPER TABLE.  PLEASE USE DISCRETION.                      PUC           60     A     
 PUC      *                = 4   FAST EXPANDER.                                            PUC           61     A     
 PUC      *                = 3   NORMAL RATE.                                              PUC           62     A     
 PUC      *                = 2   SLOWER THAN MOST.                                         PUC           63     A     
 PUC      *                = 1   VERY INFREQUENTLY EXPANDED.                               PUC           64     A     
 PUC      *         INIT   =  INITIAL LENGTH OF TABLE IN EACH PROGRAM-UNIT.                PUC           65     A     
 PUC      *         SHARE  =  NAME OF TABLE TO SHARE SPACE WITH.                           PUC           66     A     
 PUC                                                                                       PUC           67     A     
 PUC                                                                                       PUC           68     A     
 PUC                MACRO  TABLE,NAM,RATE,INIT                                             PUC           69          I
          -FC5A128
 PUC                MACRO  TABLE,NAM,RATE,INIT,PHASE                                       FC5A128       86     A     
 PUC       A        MICRO  1,5,/NAM     /                                                  PUC           70     A     
 PUC      *                                                                                PUC           71     A     
 PUC       .1       IFC    NE, RATE =                                                      PUC           72     A     
 PUC       R        DECMIC RATE                                                            PUC           73     A     
 PUC       R        OCTMIC "R"*16                                                          PUC           74     A     
 PUC       MCNTAB   DECMIC   N.TABLES                                                      FC5A128       87     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                IRP    PHASE                                                           FC5A128       88     A     
 PUC       MC_PHASE MICRO    1,,/1S"MCNTAB"+"MC_PHASE"/                                    FC5A128       89     A     
 PUC                IRP                                                                    FC5A128       90     A     
 PUC       N.TABLES SET    N.TABLES+1                                                      PUC           75     A     
 PUC       L.TABLES SET    L.TABLES+"R"B                                                   PUC           76     A     
 PUC       L=TABLES SET    L=TABLES+INIT                                                   PUC           77     A     
 PUC                SIZES  ("A"),"R",INIT,CONENT                                           PUC           78     A     
 PUC      *                                                                                PUC           79     A     
 PUC       .1       ELSE                                                                   PUC           80     A     
 PUC      *                                                                                PUC           81     A     
 PUC                SIZES  ("A"),=,T.INIT,EQUENT                                           PUC           82     A     
 PUC       .1       ENDIF                                                                  PUC           83     A     
 PUC       TABLE    ENDM                                                                   PUC           84     A     
 PUC       TSECT    SPACE  4,10                                                            PUC           85     A     
 PUC      **        TSECT - MACRO TO MARK START OF TABLE SECTIONS.                         PUC           86     A     
 PUC      *                                                                                PUC           87     A     
 PUC      *         TSECT  SECTNAM,COMMENT                                                 PUC           88     A     
 PUC                                                                                       PUC           89     A     
 PUC                                                                                       PUC           90     A     
 PUC                MACRO  TSECT,NAM,COMMENT                                               PUC           91     A     
 PUC       AAA      MICRO  1,5,/NAM    /                                                   PUC           92     A     
 PUC       TABLE    RMT=   (O."AAA"  BSSENT             COMMENT)                           PUC           93     A     
 PUC       SIZES    RMT=   (L."AAA"  BSSENT             COMMENT)                           PUC           94     A     
 PUC       TSECT    ENDM                                                                   PUC           95     A     
 PUC       TABLES   SPACE  4,10                                                            PUC           96     A     
 PUC       L.TABLES SET    0                                                               PUC           97     A     
 PUC       L=TABLES SET    0                                                               PUC           98     A     
 PUC       N.TABLES SET    0           INITIALIZE TABLE ORDINAL                            PUC           99     A     
 PUC       MCDECL   MICRO                                                                  FC5A128       91     A     
 PUC       MCEXU    MICRO                                                                  FC5A128       92     A     
 PUC       MCEND    MICRO              INITIALIZE TABLE VECTOR MICROS                      FC5A128       93     A     
 PUC       TABLES   SPACE  4,10                                                            PUC          100     A     
 PUC      **        TABLE DEFINITIONS.                                                     PUC          101     A     
 PUC      *                                                                                PUC          102     A     
 PUC      *         THE TABLE VECTORS ARE DIVIDED INTO THREE SECTIONS.                     PUC          103     A     
 PUC      *         THE SECTION IN WHICH A TABLE PARAMETER RESIDES IS DEPENDENT            PUC          104     A     
 PUC      *         UPON THAT TABLES STATUS ACROSS CALLS TO THE CCG.                       PUC          105     A     
 PUC      *                                                                                PUC          106     A     
 PUC      *         SECTION 1 -- CONTAINS TABLES WHICH ARE NOT PRESERVED ACROSS            PUC          107     A     
 PUC      *                      CALLS TO CCG. *O.P2NUL*, *L.P2NUL* ARE THE                PUC          108     A     
 PUC      *                      ORIGIN AND LENGTH OF THE FIRST TABLE IN THIS              PUC          109     A     
 PUC      *                      SECTION.                                                  PUC          110     A     
 PUC      *                                                                                PUC          111     A     
 PUC      *         SECTION 2 -- CONTAINS TABLES WHICH ARE USED DURING CCG.                PUC          112     A     
 PUC      *                      *O.P2USE*, *L.P2USE* ARE THE ORIGIN AND LENGTH            PUC          113     A     
 PUC      *                      OF THE FIRST TABLE IN THIS SECTION.                       PUC          114     A     
 PUC      *                                                                                PUC          115     A     
 PUC      *         SECTION 3 -- CONTAINS TABLES WHICH ARE PRESERVED ACROSS CALLS          PUC          116     A     
 PUC      *                      TO THE CCG.  *O.P2SAV*, *L.P2SAV* ARE THE ORIGIN          PUC          117     A     
 PUC      *                      AND LENGTH OF THE FIRST TABLE IN THIS SECTION.            PUC          118     A     
 PUC                                                                                       PUC          119     A     
 PUC                                                                                       PUC          120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      **        SECTION 1 -- TABLES NOT PRESERVED ACROSS CCG.                          PUC          121     A     
 PUC                                                                                       PUC          122     A     
 PUC       P2NUL    TSECT  (SECTION 1 -- NOT PRESERVED BY CCG)                             PUC          123     A     
 PUC       TABLES   SPACE  4,10                                                            PUC          124     A     
 PUC      **        T.TB - TOKEN BUFFER.                                                   PUC          125     A     
 PUC      *                                                                                PUC          126     A     
 PUC      *                THIS TABLE MUST BE FIRST BECAUSE A0 POINTS TO THE               PUC          127     A     
 PUC      *                ORIGIN OF THE TABLE.  BEING THE FIRST TABLE THE ORIGIN          PUC          128     A     
 PUC      *                WILL ALWAYS REMAIN CONSTANT.                                    PUC          129     A     
 PUC      *                ITS SPACE IS REUSED FOR THE LGO BUFFER AT END TIME.             PUC          130     A     
 PUC                                                                                       PUC          131     A     
 PUC                                                                                       PUC          132     A     
 PUC       TB       TABLE  1,80        TOKEN BUFFER                                        PUC          133          I
          -FC5A128
 PUC       TB       TABLE  1,401B            TOKEN BUFFER                                  FC5A128       94     A     
 PUC       LGOB     TABLE  =,TB        LGO BUFFER                                          PUC          134     A     
 PUC       TABLES   SPACE  4,10                                                            PUC          135     A     
 PUC       ARG      TABLE  2           STACK OF ACTUAL PARAMETER TURPLES                   PUC          136          I
          -FC5A128
 PUC       ARG      TABLE  2,,(DECL,EXU,END) STACK OF ACTUAL PARAMETER TURPLES             FC5A128       95     A     
 PUC       PTXTR    TABLE  =,ARG       LOADER PTEXTR (3500) TABLE INFORMATION              PUC          137     A     
 PUC       STF      TABLE  2           STATEMENT FUNCTION SKELETONS                        PUC          138          I
          -FC5A128
 PUC       STF      TABLE  2,,(DECL,END)     STATEMENT FUNCTION SKELETONS                  FC5A128       96     A     
 PUC       EQUS     TABLE  =,STF       TRANSLATED EQUIVALENCE STATEMENTS                   PUC          139     A     
 PUC       LINK     TABLE  =,STF       LOADER LINK (4400) TABLE INFORMATION                PUC          140     A     
 PUC       EXT      TABLE  =,STF       NAMES OF EXTERNALS (PASS=MAP ONLY)                  PUC          141          I
          -F1039  
 PUC       COMM     TABLE  2,1         COMMON TAGS (DECLARATIVE PROCESSING ONLY)           PUC          142          I
          -FC5A128
 PUC       BLST     TABLE  2           BLOCK STRUCTURE (DO AND BLOCK IF) INFO              PUC          143          I
          -FC5A128
 PUC       COMM     TABLE  2,1,(DECL,EXU)    COMMON TAGS                                   FC5A128       97     A     
 PUC       BLST     TABLE  2,,(DECL,EXU)    BLOCK STRUCTURE (DO AND BLOCK IF) INFO         FC5A128       98     A     
 PUC       FPO      TABLE  =,COMM      SUB/SUB0 ORGINS FOR FORMAL PARAMETERS               PUC          144     A     
 PUC       DVV      TABLE  =,COMM      DATA VARIABLE VALUES IN CONRED/SED                  PUC          145     A     
 PUC       SLARG    TABLE  =,COMM      STATEMENT LABEL ARGUMENTS                           PUC          146     A     
 PUC       IOARG    TABLE  =,COMM      IO ARGUMENTS                                        PUC          147     A     
 PUC       DATI     TABLE  3           AUX DATA TABLE, LOCAL TO EACH DATA STMNT.           PUC          148          I
          -FC5A128
 PUC       DATI     TABLE  3,,(DECL,EXU,END) AUX DATA TABLE,LOCAL TO                       FC5A128       99     A     
 PUC                                         DATA STATEMENT                                FC5A128      100     A     
 PUC                                   CONTAINS CONSTANTS FOUND IN THE STATEMENT           PUC          149     A     
 PUC                                   AND REP FACTORS, PLUS OTHER GOODIES.                PUC          150     A     
 PUC       OUS      TABLE  =,DATI      OPERAND USAGE STATUS                                PUC          151     A     
 PUC       SCR      TABLE  =,DATI      SCRATCH TABLE.                                      PUC          152     A     
 PUC       PTXT     TABLE  =,DATI      LOADER PTEXT (3500) TABLE INFORMATION               PUC          153     A     
 PUC       DATL     TABLE  2           AUX DATA TABLE, LOCAL TO EACH DATA STMT             PUC          154          I
          -FC5A128
 PUC       DATL     TABLE  2,,(DECL,EXU,END) AUX DATA TABLE,LOCAL TO                       FC5A128      101     A     
 PUC                                         DATA STATEMENT                                FC5A128      102     A     
 PUC       EOT      TABLE  =,DATL      EQUIVALENCE OVERLAP TABLE                           PUC          155     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       FILL     TABLE  =,DATL      LOADER FILL BYTES  (PASS 3)                         PUC          156     A     
 PUC       ILI      TABLE  =,DATL      INPUT LIST ITEMS                                    PUC          157     A     
 PUC       SAP      TABLE  1           STACKED APLIST TABLE                                PUC          158          I
          -FC5A128
 PUC       SAP      TABLE  1,,(DECL,EXU,END)      STACKED APLIST TABLE                     FC5A128      103     A     
 PUC       DATS     TABLE  =,SAP       DATA ACCUMULATION TABLE                             PUC          159     A     
 PUC       IOLC     TABLE  =,SAP       I/O LIST COLLAPSE *CV* DEFINITION TURPLES           FC5A218       32     A     
 PUC       PAR      TABLE  3           I.L. (WRITTEN TO F.IL IN CCG MODE)                  PUC          160          I
          -FC5A128
 PUC       PAR      TABLE  3,,(DECL,EXU,END) I.L.(WRITTEN TO F.IL IN CCG)                  FC5A128      104     A     
 PUC       DAR      TABLE  =,PAR       DATA EXPANSION COPY OF (T.PAR)                      PUC          161     A     
 PUC       XFIL     TABLE  =,PAR       LOADER XFIL(4100) TABLE.                            PUC          162     A     
 PUC       PCS      TABLE  2,,(DECL,EXU)      PARSER CONTEXT STACK                         FC51075        9     A     
 PUC       STMT     TABLE  1           SOURCE STATEMENTS, DEFERRED LIST BUFFER             PUC          163          I
          -FC5A128
 PUC       STMT     TABLE  1,,(DECL,EXU)     SOURCE STATEMENTS,DEFER LIST BUFFER           FC5A128      105     A     
 PUC       BLKN     TABLE  =,STMT      BLOCK NAMES IN MAP                                  PUC          164          I
          -FC5A219
 PUC       CLWB     TABLE  =,STMT      IO CHAR ARRAY ITEM LENGTH BINARY (FAS/LIST)         FC5A219        4     A     
 PUC       SUB      TABLE  1           *SUB*  BLOCK TABLE                                  PUC          165     A     
 PUC       VDIM     TABLE  1           VARIABLE DIMENSION TURPLES.                         PUC          166     A     
 PUC       SUB0     TABLE  =,VDIM      SUB0 BLOCK TABLE                                    PUC          167     A     
 PUC       C$IF     TABLE  1           C$ CONDITIONAL DIRECTIVE TABLE                      PUC          168     A     
 PUC       TABLES   SPACE  4,10                                                            PUC          169     A     
 PUC      **        SECTION 2 -- TABLES USED DURING CCG.                                   PUC          170     A     
 PUC                                                                                       PUC          171     A     
 PUC                                                                                       PUC          172     A     
 PUC       P2USE    TSECT  (SECTION 2 -- USED BY CCG)                                      PUC          173     A     
 PUC                                                                                       PUC          174     A     
 PUC                MACRO  TABSH,PASS1,RATE,INIT,PASS2                                     PUC          175          I
          -FC5A128
 PUC       PASS1    TABLE  RATE,INIT                                                       PUC          176          I
          -FC5A128
 PUC                MACRO  TABSH,PASS1,RATE,INIT,PASS2,PHASE                               FC5A128      106     A     
 PUC       PASS1    TABLE  RATE,INIT,(PHASE)                                               FC5A128      107     A     
 PUC       TABLE    RMT=   (O=PASS1  EQUENT T.PASS1)                                       PUC          177     A     
 PUC       SIZES    RMT=   (L=PASS1  EQUENT T=PASS1)                                       PUC          178     A     
 PUC                ENDM                                                                   PUC          179     A     
 PUC                                                                                       PUC          180     A     
 PUC      *CALL COMSTAB                                                                    PUC          181     A     
 PUC       LA       TABLE  =,CUT       (QCG ONLY)  LABELS ASSIGN-ED TO                     PUC          182     A     
 PUC       TABLES   SPACE  4,10                                                            PUC          183     A     
 PUC      **        SECTION 3 -- TABLES PRESERVED BY CCG.                                  PUC          184     A     
 PUC                                                                                       PUC          185     A     
 PUC       P2SAV    TSECT  (SECTION 3 -- PRESERVED BY CCG)                                 PUC          186     A     
 PUC                                                                                       PUC          187     A     
 PUC       REF      TABLE  1           CROSS-REFERENCE TABLE (REFMAP FILE)                 PUC          188     A     
 PUC                                   MAY SPILL TO DISK AND SHRINK TO 0                   PUC          189     A     
 PUC       LCA      TABLE  1           LCM POINTER CELLS                                   PUC          190     A     
 PUC       ECT      TABLE  1           EQUIVALENCE CLASS TABLE                             PUC          191     A     
 PUC       ENT      TABLE  1                                                               PUC          192     A     
 PUC       LNT      TABLE  2           LINE NUMBER TABLE (FOR  FID)                        PUC          193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       LCC      TABLE  0           LOADER DIRECTIVES                                   PUC          194     A     
 PUC       FMT      TABLE  3                                                               PUC          195          I
          -FC5A128
 PUC       FMT      TABLE  3,,(DECL,EXU)     FORMAT                                        FC5A128      108     A     
 PUC       END      TABLE  0           DUMMY FOR MANAGER                                   PUC          196     A     
 PUC                                                                                       PUC          197     A     
 PUC                PURGMAC SIZES                                                          PUC          198     A     
 PUC                PURGMAC TABLE                                                          PUC          199     A     
 PUC                PURGMAC TSECT                                                          PUC          200     A     
 PUC                                                                                       PUC          201     A     
 PUC      *         USED FOR EXTERNAL REFERENCE INTERFACES                                 PUC          202     A     
 PUC                                                                                       PUC          203     A     
 PUC       L=TABLE  EQUENT L=TABLES                                                        PUC          204     A     
 PUC       N.TABLE  EQUENT N.TABLES                                                        PUC          205     A     
 PUC       TABLES   EJECT                                                                  PUC          206     A     
 PUC      **        TABLES - ACTUAL TABLE PARAMETER WORDS ARE HERE.                        PUC          207     A     
 PUC                                                                                       PUC          208     A     
 PUC                LIST   D           *ORIGINS*                                           PUC          209     A     
 PUC                                                                                       PUC          210     A     
 PUC       ORIGINS  BSSENT 0           ORIGINS OF TABLES                                   PUC          211     A     
 PUC       BASES    BSSENT 0           BASE ADDRESSES OF TABLES                            PUC          212     A     
 PUC                                                                                       PUC          213     A     
 PUC       TABLE    HERE               ACTUAL TABLE PARAMETER WORDS                        PUC          214     A     
 PUC                                                                                       PUC          215     A     
 PUC                                                                                       PUC          216     A     
 PUC       SIZES    BSSENT 0           SIZES OF TABLES                                     PUC          217     A     
 PUC                                                                                       PUC          218     A     
 PUC       SIZES    HERE                                                                   PUC          219     A     
 PUC                                                                                       PUC          220     A     
 PUC                LIST   *           *SIZES*                                             PUC          221     A     
 PUC       RATES    BSSENT 0           EXPANSION RATES OF TABLES                           PUC          222     A     
 PUC                LIST   G           *RATES*                                             PUC          223     A     
 PUC                                                                                       PUC          224     A     
 PUC       RATES    HERE                                                                   PUC          225     A     
 PUC                                                                                       PUC          226     A     
 PUC                LIST   *           *RATES*                                             PUC          227     A     
 PUC                                                                                       PUC          228     A     
 PUC       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        PUC          229     A     
 PUC       NAMES    BSSENT 0           TABLE NAMES (TEST MODE ONLY)                        PUC          230     A     
 PUC                LIST   G                                                               PUC          231     A     
 PUC                                                                                       PUC          232     A     
 PUC       NAMES    HERE                                                                   PUC          233     A     
 PUC                                                                                       PUC          234     A     
 PUC       ALTNAM   BSSENT 0           ALTERNATE TABLE NAMES                               PUC          235     A     
 PUC                                                                                       PUC          236     A     
 PUC       ALTNAM   HERE                                                                   PUC          237     A     
 PUC                DATA   0           END OF TABLE MARKER                                 PUC          238     A     
 PUC                                                                                       PUC          239     A     
 PUC                LIST   *           TABLE NAMES                                         PUC          240     A     
 PUC       .TEST    ENDIF                                                                  PUC          241     A     
 PUC                                                                                       FC5A128      109     A     
 PUC      *                TABLE VECTORS                                                   FC5A128      110     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       FC5A128      111     A     
 PUC       TV=DECL  CONENT "MCDECL"                                                        FC5A128      112     A     
 PUC       TV=EXU   CONENT "MCEXU"                                                         FC5A128      113     A     
 PUC       TV=END   CONENT "MCEND"                                                         FC5A128      114     A     
 PUC       TV=CUR   CONENT 0                                                               FC5A128      115     A     
 PUC                                                                                       FC5A128      116     A     
 PUC                TITLE  GLOBAL SYMBOL DEFINITIONS.                                      PUC          242     A     
 PUC       LBT      SPACE  4,20                                                            PUC          243     A     
 PUC      **        LBT - LOCAL BLOCK TABLE.                                               PUC          244     A     
 PUC      *                                                                                PUC          245     A     
 PUC      *         N.B. --  ORDER MUST BE MAINTAINED.                                     PUC          246     A     
 PUC      *                (LOCAL) MUST BE FIRST CELL AFTER (LBT).                         PUC          247     A     
 PUC                                                                                       PUC          248     A     
 PUC                                                                                       PUC          249     A     
 PUC                MACRO  LBLK,NR,NAM                                                     PUC          250     A     
 PUC       NR   BSSENT 1         (NAM)                                                     PUC          251     A     
 PUC                ENDM                                                                   PUC          252     A     
 PUC                                                                                       PUC          253     A     
 PUC                                                                                       PUC          254     A     
 PUC       F.LBT    BSSENT 0           FWA LOCAL BLOCK TABLE                               PUC          255     A     
 PUC                LOC    0                                                               PUC          256     A     
 PUC                LIST   -X,G                                                            PUC          257     A     
 PUC      *CALL     COMSLBT            DEFINE LOCAL BLOCK TABLE                            PUC          258     A     
 PUC                LIST   *                                                               PUC          259     A     
 PUC       Z.LBT    BSSENT 0           NUMBER OF LOCAL BLOCKS                              PUC          260     A     
 PUC                LOC    *O                                                              PUC          261     A     
 PUC       SUM.LBT  CONENT 0           LOCAL LENGTH OF PROGRAM-UNIT                        PUC          262     A     
 PUC       COMSIZ   CONENT 0           LENGTH OF SCM COMMON                                PUC          263     A     
 PUC                CON    0           LENGTH OF LCM COMMON                                PUC          264     A     
 PUC       F$LBT    EQUENT F.LBT       CCG INTERFACE NAME                                  PUC          265     A     
 PUC       Z$LBT    EQUENT Z.LBT       CCG INTERFACE NAME                                  PUC          266     A     
 PUC       N$LBT    EQUENT Z.LBT       CCG INTERFACE NAME                                  FC5A399        5     A     
 PUC       CELLS    EJECT                                                                  PUC          267     A     
 PUC      **        COMMON CELL DEFINITIONS.                                               PUC          268     A     
 PUC                                                                                       PUC          269     A     
 PUC       ALC.PAR  CONENT 0           MINIMUM ALLOCATION FOR PAR                          FC5A128      117     A     
 PUC                                                                                       PUC          270     A     
 PUC       BINIO    CONENT -1          -1 = CCG MODE OR F.PB FLUSHED                       PUC          271     A     
 PUC                                    0 = OTHERWISE                                      PUC          272     A     
 PUC                                                                                       PUC          273     A     
 PUC       BLNKCOM  CONENT 0           BLOCK NUMBER OF BLANK COMMON                        PUC          274     A     
 PUC                                                                                       PUC          275     A     
 PUC       CBI      CONENT 0           CURRENT INDEX TO  T.BLKS                            PUC          276     A     
 PUC                                                                                       PUC          277     A     
 PUC       CHARDCL  CONENT 0           CHARACTER DECLARATION PRESENT                       PUC          278     A     
 PUC                                                                                       PUC          279     A     
 PUC       ERRORS   CONENT 0           NUMBER OF FATAL ERRORS APPEARING IN CURRENT         PUC          280     A     
 PUC                                   SUBPROGRAM.  CP.ERCT CONTAINS TOTAL ERROR           PUC          281     A     
 PUC                                   COUNT.  INCLUDING ALL OF ET=LEVEL.                  PUC          282     A     
 PUC                                                                                       F2950F5A      12     A     
 PUC       ENTRJ    CONENT 0           NZ IF THIS ENTRY POINT CODE HAS RJ YET              F2950F5A      13     A     
 PUC                                                                                       PUC          283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       N$FERR   EQUENT ERRORS      CCG INTERFACE NAME                                  PUC          284     A     
 PUC                                                                                       PUC          285     A     
 PUC       FAILSFT  CONENT 0           NON-ZERO IF TABLES OVERLAP CATASTROPHICALLY         PUC          286     A     
 PUC                                                                                       PUC          287     A     
 PUC       O.TABS   BSSENT  1          FWA OF MANAGED TABLE AREA                           PUC          288     A     
 PUC                                                                                       PUC          289     A     
 PUC       IDENT1   CONENT 10H         USED TO DISPLAY *COMPILING* MESSAGE                 PUC          290     A     
 PUC       HO$MSG   CONENT 10HCOMPILING                                                    PUC          291     A     
 PUC       IDENT    CONENT 0           ROUTINE NAME 0L FORMAT                              PUC          292     A     
 PUC       HO$PRGN  EQUENT IDENT       CCG INTERFACE NAME                                  PUC          293     A     
 PUC                                                                                       PUC          294     A     
 PUC       IO.TEM   CONENT 0           MAX TEMPORARY USED BY IO IN EACH PROGRAM            PUC          295     A     
 PUC      *                            UNIT.                                               PUC          296     A     
 PUC                                                                                       PUC          297     A     
 PUC       LCNT     BSZENT 2           LINE COUNT  L/E FILES                               PUC          298     A     
 PUC       N$LINES  EQUENT LCNT        CCG INTERFACE NAME                                  PUC          299     A     
 PUC                                                                                       PUC          300     A     
 PUC       LEVEL    BSSENT 1           LEVEL STATEMENT ENCOUNTERED                         PUC          301     A     
 PUC       LEVEL0   BSSENT 1           LEVEL0 STATEMENT ENCOUNTERED                        PUC          302     A     
 PUC       LEVEL2   CONENT 0           IF ANY LCM/ECS RESIDENT DECLARATIONS                PUC          303     A     
 PUC       HO$LVL2  EQUENT LEVEL2                                                          PUC          304     A     
 PUC                                                                                       PUC          305     A     
 PUC                BSSZ   1           LINEBUF-1 USED BY *MAP*                             PUC          306     A     
 PUC       LINEBUF  BSZENT 14          GENERAL PRINT LINE WORKING AREA                     PUC          307     A     
 PUC                                                                                       PUC          308     A     
 PUC       LINES    CONENT 0           CURRENT SOURCE LINE NUMBER                          PUC          309     A     
 PUC       CARDS    EQUENT LINES                                                           PUC          310     A     
 PUC       LINENR   EQUENT LINES                                                           PUC          311     A     
 PUC       HO$CSN   EQUENT LINES       CCG INTERFACE NAME                                  PUC          312     A     
 PUC                                                                                       PUC          313     A     
 PUC       LOSTREF  CONENT 0           1.  BEFORE REF-MAP PROCESSING, IT IS A              PUC          314     A     
 PUC                                   COUNT OF NUM OF REFS FOUND.                         PUC          315     A     
 PUC                                   2.  DURING REF-MAP, IT WILL BE SET TO NUM           PUC          316     A     
 PUC                                   OF REFS LOST DUE TO CORE LIMITATIONS.               PUC          317     A     
 PUC                                                                                       PUC          318     A     
 PUC       MOD      CONENT 0           SUBPROGRAM MODE  (SET BY *1ST CARD* SCANS)          PUC          319     A     
 PUC                                                                                       PUC          320     A     
 PUC       NARGS    CONENT 0           PROGRAM-UNIT ARGUMENT COUNT.                        PUC          321     A     
 PUC                                                                                       PUC          322     A     
 PUC       NOLIST   CONENT 1S59        =1S59 IF C/-LIST,ALL ACTIVE                         PUC          323     A     
 PUC                                   =0    IF C/-LIST,NONE ACTIVE                        PUC          324     A     
 PUC                                                                                       PUC          325     A     
 PUC       NREXT    CONENT 0           COUNT OF EXTERNALS REFERENCED IN CURRENT            PUC          326     A     
 PUC                                   PROGRAM-UNIT.  COMPUTED BY *END*.                   PUC          327     A     
 PUC                                                                                       PUC          328     A     
 PUC       NSQZLH   BSSENT 1           CCG DONT SQUEEZE LONG HOLLERITHS FLAG               FC5A415        7     A     
 PUC                                                                                       FC5A415        8     A     
 PUC       N.AP     BSSENT 1           NUMBER OF ACTUAL-PARAMETER LISTS                    PUC          329     A     
 PUC                                                                                       PUC          330     A     
 PUC       N.ARP    CONENT 0           .NZ. = AN ALTERNATE RETURN PARAMETER LIST           PUC          331     A     
 PUC                                   OCCURRED IN THIS PROGRAM UNIT.  NOT SET             PUC          332     A     
 PUC                                   UNTIL PASS 1 IS COMPLETE.                           PUC          333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       PUC          334     A     
 PUC       N.BUF    BSZENT 1           FIT LENGTHS, BUFL'S, MRL'S FOR USER FILES           F1037F5      183     A     
 PUC       N.CPL    BSSENT 1           LENGTH OF (CP.) ARRAY                               PUC          335     A     
 PUC                                                                                       PUC          336     A     
 PUC       N.CON    BSSENT 1           LENGTH OF RUN-TIME CONSTANT TABLE                   PUC          337     A     
 PUC       N.CT     BSSENT 1           LENGTH OF (CT.) AREA, IN WORDS                      PUC          338     A     
 PUC       N.CTMAX  BSSENT 1           MAX (CT.) WORDS IN ANY SEGMENT                      PUC          339     A     
 PUC                                                                                       PUC          340     A     
 PUC       N.DOB    BSSENT 1           NUMBER OF INVENTED DO-BEGIN LABELS                  PUC          341     A     
 PUC                                                                                       PUC          342     A     
 PUC       N.EPL    CONENT 0           .NZ. IF MULTIPLE UNIQUE PARAMETER LISTS             PUC          343     A     
 PUC       N$SEP    EQUENT N.EPL       CCG INTERFACE NAME                                  PUC          344     A     
 PUC                                                                                       PUC          345     A     
 PUC       N.FP     CONENT 0           NUMBER OF FORMAL PARAMETER                          PUC          346     A     
 PUC                                   .ZR. IF NOT PROCEDURAL SUBPROGRAM                   PUC          347     A     
 PUC       N$FPS    EQUENT N.FP        CCG INTERFACE NAME                                  PUC          348     A     
 PUC                                                                                       PUC          349     A     
 PUC       N.GL     BSSENT 1           NUMBER OF GENERATED LABELS                          PUC          350     A     
 PUC                                                                                       PUC          351     A     
 PUC       N.MAXIL  CONENT 100*Z=TURP  THRESHOLD SIZE OF IL SEGMENT                        PUC          352     A     
 PUC                                   TRY TO FLUSH WHEN IT GETS THIS BIG                  PUC          353     A     
 PUC      ** FV            SHOULD ABOVE DEPEND ON FL??                                     PUC          354     A     
 PUC                                                                                       PUC          355     A     
 PUC       N$LC     CONENT 0           NUMBER OF FP LOCAL COPY CELLS                       PUC          356     A     
 PUC                                                                                       PUC          357     A     
 PUC       N.ST     BSSENT 1           NUMBER OF TEMPS IN ONE STATEMENT                    PUC          358     A     
 PUC       N.STMAX  BSSENT 1           MAX NUMBER OF STATEMENT TEMPS                       PUC          359     A     
 PUC                                                                                       PUC          360     A     
 PUC       N.VD     BSSENT 1           NUMBER OF VARDIM EXPRESSIONS                        PUC          361     A     
 PUC       N$VD     EQUENT N.VD        CCG INTERFACE NAME                                  PUC          362     A     
 PUC                                                                                       PUC          363     A     
 PUC       O.STITL  CONENT 0           ADDR AND LEN OF SUBTITLE - 30/LEN,30/ADDR           PUC          364     A     
 PUC                                                                                       PUC          365     A     
 PUC       PU.MFL   CONENT 0           PROGRAM UNIT MAX FL                                 PUC          366     A     
 PUC       HO$PMLS  EQUENT PU.MFL      CCG INTERFACE NAME                                  PUC          367     A     
 PUC                                                                                       PUC          368     A     
 PUC       PASS     CONENT 0           CONTROLS ACTIONS OF TABLE MANAGER.                  PUC          369     A     
 PUC                                                                                       PUC          370     A     
 PUC       PWBUF    BSSENT 13          LIST BUFFER FOR PW MODE                             PUC          371     A     
 PUC                                                                                       PUC          372     A     
 PUC       WOF=ERR  BSZENT 1           0 = LIST TO L  1 = LIST TO E                        PUC          373     A     
 PUC                                                                                       PUC          374     A     
 PUC                                                                                       PUC          375     A     
 PUC       REFIO    CONENT -1          -1 = T.REF TABLE IS ON DISK                         PUC          376     A     
 PUC                                   0  = T.REF TABLE IS IN SCM                          PUC          377     A     
 PUC                                                                                       PUC          378     A     
 PUC       RPV=CLN  EQUENT LINES       CURRENT LINE NUMBER                                 PUC          379     A     
 PUC       RPV=MSG  EQUENT IDENT1      RPV COMPILING MESSAGE                               PUC          380     A     
 PUC       RPV=URP  CONENT 0           USER REPRIEVE PROCESSOR                             PUC          381     A     
 PUC       HO$RDR   EQUENT RPV=URP     CCG INTERFACE NAME                                  PUC          382     A     
 PUC                                                                                       PUC          383     A     
 PUC       SAVE     CONENT  0          SAVE INDICATOR                                      PUC          384     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       PUC          385     A     
 PUC       THRESH   CONENT 0           THRESHHOLD FOR ALLOC BEFORE MEM REQUEST             PUC          386     A     
 PUC                                                                                       PUC          387     A     
 PUC       USAVE    CONENT 0           UNIVERSAL SAVE INDICATOR                            PUC          388     A     
 PUC                                                                                       PUC          389     A     
 PUC       L.TABS   CONENT 1S17        WIDTH OF MANAGED TABLE AREA                         PUC          390     A     
 PUC       SCRATCH  SPACE  4,10                                                            PUC          391     A     
 PUC      **        SCRATCH AREA.                                                          PUC          392     A     
 PUC                                                                                       PUC          393     A     
 PUC       SCR      BSSENT 10          GENERAL SCRATCH AREA. NEVER TO BE USED BY           PUC          394     A     
 PUC      *                            TABLE SECTION. SHOULD BE USED ONLY BY LOCAL         PUC          395     A     
 PUC      *                            ROUTINES.                                           PUC          396     A     
 PUC       LSTWRKG  SPACE  4,10                                                            PUC          397     A     
 PUC      **        WORKING COPY OF OPTIONS RESET BY C$ DIRECTIVES.                        PUC          398     A     
 PUC      *                                                                                PUC          399     A     
 PUC      *         THESE CELLS MUST MAINTAIN THE SAME ORDER AS THE CO. CELLS IN           PUC          400     A     
 PUC      *         CO.C$.                                                                 PUC          401     A     
 PUC                                                                                       PUC          402     A     
 PUC                                                                                       PUC          403     A     
 PUC       WO.C$    BSSENT 0           DIRECTIVE CONTROL                                   PUC          404     A     
 PUC                                                                                       PUC          405     A     
 PUC       WO.CS    BSSENT 1           COLLATE = USER WEIGHT TABLE                         PUC          406     A     
 PUC       WO.DOLG  BSSENT 1           DO = LONG                                           PUC          407     A     
 PUC       WO.DOOT  BSSENT 1           DO = OT (ONE TRIP)                                  PUC          408     A     
 PUC       WO.LOA   BSSENT 1           LO = S                                              PUC          409     A     
 PUC       WO.LOC   BSSENT 1           LO = C                                              PUC          410          I
          -FC5A321
 PUC       WO.LOM   BSSENT 1           LO = M                                              PUC          411     A     
 PUC       WO.LOO   BSSENT 1           LO = O                                              PUC          412     A     
 PUC       WO.LOR   BSSENT 1           LO = R                                              PUC          413     A     
 PUC       WO.LOS   BSSENT 1           LO = S                                              PUC          414     A     
 PUC       WO.QC    BSSENT 1           QC - SET TO QUICK CHECK AFTER FATAL ERRORS          PUC          415     A     
 PUC       WO.LCM   BSSENT 1                                                               FC5A132       26     A     
 PUC       CELLS    SPACE  4,20                                                            PUC          416     A     
 PUC      **        MISCELLANEOUS SHORT CONSTANTS USED WHEN PROCESSING A STATEMENT         PUC          417     A     
 PUC                                                                                       PUC          418     A     
 PUC                                                                                       PUC          419     A     
 PUC                MACRO  CONST,LAB,NUM,CMOD                                              PUC          420     A     
 PUC                IFC    NE,/LAB//,1                                                     PUC          421     A     
 PUC       LAB      BSSENT 0                                                               PUC          422     A     
 PUC                VFD    TP.ORDL/0,TP.BIASL/NUM                                          PUC          423     A     
 PUC                POS    TP.SHRTP+1                                                      PUC          424     A     
 PUC                VFD    1/1                                                             PUC          425     A     
 PUC                POS    TP.MODEL                                                        PUC          426     A     
 PUC                VFD    TP.MODEL/M._CMOD                                                PUC          427     A     
 PUC       CONST    ENDM                                                                   PUC          428     A     
 PUC                                                                                       PUC          429     A     
 PUC                                                                                       PUC          430     A     
 PUC       CONONE   CONST  1,INT                                                           PUC          431     A     
 PUC       CONZER   CONST  0,BOOL                                                          PUC          432     A     
 PUC       CONZERI  CONST  0,INT                                                           PUC          433     A     
 PUC       VTRUE    CONST  -1,LOG                                                          PUC          434     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       VFALSE   CONST  0,LOG                                                           PUC          435     A     
 PUC                PURGMAC CONST                                                          PUC          436     A     
 PUC       F.SORD   SPACE  4,10                                                            PUC          437     A     
 PUC      **        F.SORD - CELLS CONTAINING SYMTAB ORDINALS.                             PUC          438     A     
 PUC      *                                                                                PUC          439     A     
 PUC      *         SEE TABLE (SYM.NAM) IN FEC FOR LIST OF CELLS WHICH ARE ALWAYS          PUC          440     A     
 PUC      *         PRESET IN SYMBOL TABLE.  NAMES NOT IN THAT LIST ARE OPTIONAL,          PUC          441     A     
 PUC      *         BEING CREATED IN RESPONSE TO SOME FEATURE OF THE SOURCE                PUC          442     A     
 PUC      *         PROGRAM.  IF A NAME HAS NOT YET BEEN ENTERED IN THE SYMTAB,            PUC          443     A     
 PUC      *         THE CORRESPONDING (S=CELL) WILL CONTAIN ZERO.                          PUC          444     A     
 PUC      *         THESE CELLS ARE INITIALIZED BY FEC/PUP.                                PUC          445     A     
 PUC      *                                                                                PUC          446     A     
 PUC      *         (S$NAME) CELLS ARE FOR USE ONLY BY THE COMMON CODE GENERATOR.          PUC          447     A     
 PUC      *         (S=NAME) WILL BE USED BY ALL FORTRAN CODE (INCLUDING BRIDGE).          PUC          448     A     
 PUC                                                                                       PUC          449     A     
 PUC                                                                                       PUC          450     A     
 PUC       F.SORD   BSSENT                                                                 PUC          451     A     
 PUC                                                                                       PUC          452     A     
 PUC       S=AEXIT  BSSENT 1           AEXIT.    ALTERNATE RETURN EXIT LABEL               PUC          453     A     
 PUC       S=BU     BSSENT 1           *O+4S15   "BLOWUP"                                  PUC          454     A     
 PUC       S=BUFIN  BSSENT 1           BUFIN.    FCL - BUFFER IN ROUTINE                   PUC          455     A     
 PUC       S=BUF    BSSENT 1           FITS, BUFFERS, ETC. FOR USER FILES                  F1037F5      184     A     
 PUC       S=CES    BSSENT 1           CES.      FCL - CHECK + EVALUATE SUBSCRIPT          PUC          456     A     
 PUC       S=CL     BSSENT 1           CL.       CHARACTER LENGTH DESCRIPTORS              PUC          457     A     
 PUC       S=CON    BSSENT 1           CON.      NUMERIC LITERALS                          PUC          458     A     
 PUC       S=CP     BSSENT 1           CP.       APL FOR COPY AP CALL                      PUC          459     A     
 PUC       S=CPL    BSSENT 1           CPL.      FCL - COPY AP LIST                        PUC          460     A     
 PUC       S=CT     BSSENT 1           CT.         CHARACTER TEMPS                         PUC          461     A     
 PUC       S=ENTRY  BSSENT 1           ENTRY.    MAIN ENTRY POINT                          PUC          462     A     
 PUC       S=ERR    CONENT 0           FERR.     SOURCE PROGRAM FATAL ERROR                PUC          463     A     
 PUC       S=EXIT   CONENT 0           EXIT.     SUBROUTINE EXIT LABEL                     PUC          464     A     
 PUC       S=FAR    BSSENT 1           FARC.     FCL - FORM ARRAY REFERENCE                PUC          465     A     
 PUC       S=FAS    BSSENT 1           FASC.     FCL - FORM ARRAY SUBSTRING                PUC          466     A     
 PUC       S=FID    BSSENT 1           FID.      CID - FORTRAN INTERACTIVE DEBUG           PUC          467     A     
 PUC       S=FMC    BSSENT 1           FMC.      FCL - FIXED MULTIPLE COMPARE              PUC          468     A     
 PUC                BSSENT 1           UMC.      FCL - USER MULTIPLE COMPARE               PUC          469     A     
 PUC       S=FVS    BSSENT 1           FVSC.     FCL - FORM VARIABLE SUBSTRING             PUC          470     A     
 PUC       S=FILES  BSSENT 1           FILVEC.   VECTOR OF FILE POINTERS                   PUC          471     A     
 PUC       S=GPL    BSSENT 1           GPL.      GLOBAL PARAMETER LIST                     PUC          472     A     
 PUC       S=LA     BSSENT 1           LA.       LABEL ASSIGN-ED WORDS                     PUC          473     A     
 PUC       S=LC     BSSENT 1           LC.       LOCAL COPIES OF FP VALUES                 PUC          474     A     
 PUC       S=LENP   BSSENT 1           LENP.     PROGRAM-UNIT LENGTH                       PUC          475     A     
 PUC       S=LMC    BSSENT 1           LMC.      FCL - LEXICAL MULTIPLE COMPARE            PUC          476     A     
 PUC       S=MMC    BSSENT 1           MMC.      FCL - MOVE MULTIPLE CHARACTER             PUC          477     A     
 PUC       S=IT     BSSENT 1           IT.       OPTIMIZER TEMPS                           PUC          478     A     
 PUC       S=INIT   BSSENT 1           QXNTRY    FCL - INITIALIZATION                      PUC          479     A     
 PUC       S=OT     BSSENT 1           OT.       OPTIMIZER TEMPS                           PUC          480     A     
 PUC       S=RD     BSSENT 1           RD.       RUN-TIME DIM TABLE                        PUC          481     A     
 PUC       S=SA1    BSSENT 1           SAVEA1                                              PUC          482     A     
 PUC       S=SA0    BSSENT 1           SAVEA0                                              FC5A436       16     A     
 PUC       S=SLI    BSSENT 1           SLI.  FCL - SUB LEVEL0 INSTRUCTS.                   PUC          483     A     
 PUC       S=SPA    BSSENT 1           SP5.      FCL - SUBSTITUTE PARAMETER ADDRS          PUC          484     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       S=ST     BSSENT 1           ST.       STATEMENT TEMPORARIES                     PUC          485     A     
 PUC       S=SUB    BSSENT 1           SUB.      ARRAY OF ADDSUB DESCRIPTORS               PUC          486     A     
 PUC       S=SUBI   BSSENT 1           SUBI.     ARRAY OF ADDSUB INDICES                   PUC          487     A     
 PUC       S=SUB0I  BSSENT 1           SUB0I.    ARRAY OF ADDSUB0 INDICES                  PUC          488     A     
 PUC       S=TRACE  BSSENT 1           TRACE.    TRACEBACK WORD                            PUC          489     A     
 PUC       S=TA0    CONENT 0           TEMPA0.   REMEMBER (A0) FROM ENTRY                  PUC          490     A     
 PUC       S=UPW    BSSENT 1           UNIT POINTER WORD                                   PUC          491     A     
 PUC       S=VALUE  BSSENT 1           VALUE.    FUNCTION RESULT                           PUC          492     A     
 PUC       S=VD     CONENT 0           VD.       VARDIM TEMPS                              PUC          493     A     
 PUC                                                                                       PUC          494     A     
 PUC       Z.SORD   EQUENT *-F.SORD                                                        PUC          495     A     
 PUC                                                                                       PUC          496     A     
 PUC                                                                                       PUC          497     A     
 PUC       S$CON    EQUENT S=CON       THESE SYNONYMS FOR CCG                              PUC          498     A     
 PUC       S$IT     EQUENT S=IT                                                            PUC          499     A     
 PUC       S$LC     EQUENT S=LC                                                            PUC          500     A     
 PUC       S$OT     EQUENT S=OT                                                            PUC          501     A     
 PUC       S$VD     EQUENT S=VD                                                            PUC          502     A     
 PUC                TITLE  ERROR TYPE DEFINITIONS.                                         PUC          503     A     
 PUC       ERRTYP   SPACE  4,10                                                            PUC          504     A     
 PUC      **        ERRTYP - MACRO TO SETUP ERROR TYPES AND LISTING FLAGS                  PUC          505     A     
 PUC      *                                                                                PUC          506     A     
 PUC      *                                                                                PUC          507     A     
 PUC      * TYPE    ERRTYP EL,(WORD)                                                       PUC          508     A     
 PUC      *                                                                                PUC          509     A     
 PUC      *         *TYPE* = TYPE OF THE ERROR AS USED IN *ERROR* MACRO CALLS.             PUC          510     A     
 PUC      *                  ONLY THE FIRST LETTER WILL BE USED.                           PUC          511     A     
 PUC      *         *EL*   = ERROR LEVEL VALUE FOR THE CLASS OF ERROR.  COMPARED           PUC          512     A     
 PUC      *                  WITH CO.EL TO DETERMINE IF THE *TYPE* OF ERROR JUST           PUC          513     A     
 PUC      *                  SELECTED IS TO BE PRINTED.                                    PUC          514     A     
 PUC      *         (WORD) = BANNER WORD PRINTED WITH ERROR OF THIS *TYPE*.                PUC          515     A     
 PUC                                                                                       PUC          516     A     
 PUC                                                                                       PUC          517     A     
 PUC                MACRO  ERRTYP,T,E,W                                                    PUC          518     A     
 PUC       A        MICRO  1,9,$_W         $                                               PUC          519     A     
 PUC       B        MICRO  1,1, T                                                          PUC          520     A     
 PUC       C        MICRO  1,1,/"A" /                                                      PUC          521     A     
 PUC                ENTRY  ERR."B"                                                         PUC          522     A     
 PUC       ERR."B"  VFD    24/4R"C" * ,18/=10H "A",18/E                                    PUC          523     A     
 PUC       ERRTYP   RMT=   (ERR="B"    CONENT 0)                                           PUC          524     A     
 PUC       ERRTYP   ENDM                                                                   PUC          525     A     
 PUC       ERRTYP   SPACE  4,10                                                            PUC          526     A     
 PUC      **        ERRTYP - TABLE OF ERROR FLAG WORDS.                                    PUC          527     A     
 PUC                                                                                       PUC          528     A     
 PUC       ERRTYP   BSSENT 0           TABLE OF ERROR FLAG WORDS                           PUC          529     A     
 PUC                LOC    0                                                               PUC          530     A     
 PUC      ****                                                                             PUC          531     A     
 PUC       ANSI     ERRTYP ,(ANSI)                                                         PUC          532     A     
 PUC       MDERR    ERRTYP ,(MDEP)                                                         F1037F5      185     A     
 PUC                IFEQ   TEST,ON,1                                                       PUC          533     A     
 PUC       DEBUG    ERRTYP EL=D,(DEBUG)                                                    PUC          534     A     
 PUC       TRIVIAL  ERRTYP EL=T,(TRIVIAL)                                                  PUC          535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       WARNING  ERRTYP EL=W,(WARNING)                                                  PUC          536     A     
 PUC       FATAL    ERRTYP EL=F,(FATAL)                                                    PUC          537     A     
 PUC       KILL     ERRTYP EL=C,(CATASTROPH)                                               PUC          538     A     
 PUC       CONTINUE ERRTYP ,( )                                                            PUC          539     A     
 PUC      ****                                                                             PUC          540     A     
 PUC       N.ERRT   BSSENT 0           NUMBER OF ERROR TYPES                               PUC          541     A     
 PUC                LOC    *O                                                              PUC          542     A     
 PUC       ERRTYP   HERE                                                                   PUC          543     A     
 PUC       E=TOTAL  CONENT 0           COUNT OF ALL ERRORS IN STATEMENT                    PUC          544     A     
 PUC                PURGMAC ERRTYP                                                         PUC          545     A     
 PUC                                                                                       FC5A158A      87     A     
 PUC      **        MEM DOWN FIELD LENGTH FOR *GO* MODE.                                   FC5A158A      88     A     
 PUC                                                                                       FC5A158A      89     A     
 PUC       LDRFL    VFD    12/0,18/MEM.GOFL,30/0                                           FC5A158A      90     A     
 PUC       PUC      TITLE  PROGRAM UNIT CONTROLLER.                                        PUC          546     A     
 PUC       PUC      SPACE  4,10                                                            PUC          547     A     
 PUC      **        PUC - PROGRAM UNIT CONTROLLER.                                         PUC          548     A     
 PUC      *                                                                                PUC          549     A     
 PUC      *         ENTRY - FROM OVERLAY INITIALIZATION OR WHEN PREVIOUS                   PUC          550     A     
 PUC      *                COMPILATION IS COMPLETE OR ABANDONED.                           PUC          551     A     
 PUC      *                DECIDES WHETHER TO TERMINATE COMPILATION,                       PUC          552     A     
 PUC      *                PASS CONTROL TO COMPASS, OR BEGIN ANOTHER                       PUC          553     A     
 PUC      *                PROGRAM UNIT.                                                   PUC          554     A     
 PUC      *                                                                                PUC          555     A     
 PUC      *         EXITS  TO *ENDFTN* - IF END OF RECORD.                                 PUC          556     A     
 PUC      *                TO *LDCOM* - IF INTERMIXED ASSEMBLY.                            PUC          557     A     
 PUC      *                                                                                PUC          558     A     
 PUC      *         CALLS  CAF,CDD,CGL,CLOSE,FEL,MESSAGE,                                  PUC          559     A     
 PUC      *                PLINE,PUP,RECALL,REL,WRITER,WRITEC                              PUC          560     A     
 PUC                                                                                       PUC          561     A     
 PUC                                                                                       PUC          562     A     
 PUC       PUC      BSSENT 0           ENTRY...                                            PUC          563     A     
 PUC                                                                                       PUC          564     A     
 PUC                                                                                       PUC          565     A     
 PUC      **        SET UP LISTING PAGE FOR NEXT PROGRAM UNIT.                             PUC          566     A     
 PUC                                                                                       PUC          567     A     
 PUC                SA4    CP.PS                                                           PUC          568          I
          -FC5A107
 PUC                SA4    CO.PS                                                           FC5A107        9     A     
 PUC                SA2    CP.LSTF                                                         PUC          569     A     
 PUC                SA3    CP.PAGE                                                         PUC          570     A     
 PUC                SA1    CP.BLF                                                          FC5A261        5     A     
 PUC                SX7    X4+B1                                                           PUC          571     A     
 PUC                SA7    LCNT        SET EMPTY PAGE                                      PUC          572     A     
 PUC                SA7    A7+B1       EMPTY PAGE ON E-FILE                                PUC          573     A     
 PUC                SA1    CP.BLF                                                          PUC          574          I
          -FC5A261
 PUC                LX1    1                                                               FC5A261        6     A     
 PUC                BX2    X2*X3       EXTRACT EVEN/ODD PAGE COUNT IF LISTING ON           PUC          575     A     
 PUC                BX1    X1*X2                                                           PUC          576     A     
 PUC                IX6    X3+X1                                                           PUC          577     A     
 PUC                PL     X3,PUC1     IF PROPAGATING PAGE COUNT                           PUC          578     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                MX6    1                                                               PUC          579          I
          -FC5A164
 PUC                MX6    2                                                               FC5A164       19     A     
 PUC                BX6    X6*X3                                                           FC5A164       20     A     
 PUC                                                                                       F1039         82     A     
 PUC       PUC1     SA6    A3          UPDATE/RESET PAGE COUNT                             PUC          580     A     
 PUC                SX7    B1                                                              F1039         83     A     
 PUC                SA7    NPU         RESET NEXT PROGRAM UNIT FLAG                        F1039         84     A     
 PUC                ZR     X1,PUC2     IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)             PUC          581     A     
 PUC                WRITEH F.OUT,(=2L1 ),1  MAINTAIN PAGE PARITY                           PUC          582     A     
 PUC                                                                                       PUC          583     A     
 PUC                                                                                       PUC          584     A     
 PUC      **        CLEAN UP SCRATCH FILES.                                                PUC          585     A     
 PUC                                                                                       PUC          586     A     
 PUC       PUC2     SA1    CP.IFMT                                                         PUC          587     A     
 PUC                MI     X1,PUC3     IF EOR ON LAST READ                                 PUC          588     A     
 PUC                BX6    0                                                               PUC          589     A     
 PUC                SA2    RAPFLAG     READ ALREADY PERFORMED FLAG                         PUC          590     A     
 PUC                SA6    A2          RESET RAP FLAG                                      PUC          591     A     
 PUC                NZ     X2,PUC4     IF READ ALREADY PERFORMED                           PUC          592     A     
 PUC                                                                                       PUC          593          I
          -F1039  
 PUC                READC  F.IN,CP.CARD,16  GET NEXT INPUT LINE                            PUC          594     A     
 PUC                ZR     X1,PUC4     IF NOT EOR ON INPUT                                 PUC          595     A     
 PUC                                                                                       F1039         85     A     
 PUC       PUC3     BSS                                                                    PUC          596     A     
 PUC                RJ     CAF         CLOSE ALL FILES                                     PUC          597     A     
 PUC                EQ     ENDFTN      TERMINATE COMPILATION                               PUC          598     A     
 PUC                                                                                       PUC          599     A     
 PUC       PUC4     SA2    FV.LGO                                                          PUC          600          I
          -FC50090
 PUC       PUC4     SA2    CO.OPT                                                          FC50090        5     A     
 PUC                ZR     X2,PUC4A    IF NOT CCG MODE                                     FC50090        6     A     
 PUC                CLOSE  F.IL,UNLOAD                                                     FC50090        7     A     
 PUC                                                                                       F1039         86     A     
 PUC       .RM      IFNE   CP#RM,0,1                                                       FC50090        8     A     
 PUC                OPEN   F.IL                                                            FC50090        9     A     
 PUC                                                                                       FC50090       10     A     
 PUC       PUC4A    SA2    FV.LGO                                                          FC50090       11     A     
 PUC                SA1    CO.LOO                                                          PUC          601     A     
 PUC                BX3    X1+X2                                                           PUC          602     A     
 PUC                ZR     X3,PUC7     IF NEITHER BINARY NOR OBJECT LISTING                PUC          603     A     
 PUC                ZR     X2,PUC5     IF NO BINARY                                        PUC          604     A     
 PUC                                                                                       PUC          605     A     
 PUC                IFEQ   CP#RM,0,1   IF USING DIRECT CIO                                 PUC          606     A     
 PUC                RECALL F.LGO                                                           PUC          607     A     
 PUC                                                                                       PUC          608     A     
 PUC       PUC5     SA4    BINIO                                                           PUC          609     A     
 PUC                SA2    CO.OPT                                                          PUC          610     A     
 PUC                SX6    0                                                               PUC          611     A     
 PUC                ZR     X2,PUC6     IF NOT CCG MODE                                     PUC          612     A     
 PUC                CLOSE  F.IL,UNLOAD                                                     PUC          613          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          -FC50090
 PUC       .RM      IFNE   CP#RM,0,1                                                       FC5A158A      91          I
          -FC50090
 PUC                OPEN   F.IL                                                            FC5A158A      92          I
          -FC50090
 PUC                SX6    -1                                                              PUC          614          I
          -FC50090
 PUC                SX6    -1                                                              FC50090       12     A     
 PUC                                                                                       F1039         87     A     
 PUC       PUC6     SA6    A4          RESET (BINIO)                                       PUC          615     A     
 PUC                BX0    X4                                                              PUC          616     A     
 PUC                SA1    CO.OPT                                                          FC5A158A      93     A     
 PUC                NZ     X1,PUC6A    IF NOT QCG MODE                                     FC5A158A      94     A     
 PUC                SETFIL FILE=F.PB,MODE=RESET    MAKE F.PB LOOK REWOUND                  PUC          617     A     
 PUC                                                                                       F1039         88     A     
 PUC                ZR     X0,PUC7     IF ACTUAL I/O NOT PERFORMED                         PUC          618          I
          -FC5A158A 
 PUC      PUC6A     ZR     X0,PUC7     IF ACTUAL I/O NOT PERFORMED                         FC5A158A      95          I
          -FC5A261
 PUC       PUC6A    ZR     X0,PUC7     IF ACTUAL I/O NOT PERFORMED                         FC5A261        7     A     
 PUC                CLOSE  F.PB,UNLOAD                                                     PUC          619     A     
 PUC                                                                                       F1039         89     A     
 PUC       .RM      IFNE   CP#RM,0,1                                                       FC5A158A      96     A     
 PUC                OPEN   F.PB                                                            FC5A158A      97     A     
 PUC       PUC7     SA1    WO.LOR                                                          PUC          620          I
          -FC5A132
 PUC                PL     X1,PUC8     IF REF NOT SELECTED                                 PUC          621          I
          -FC5A132
 PUC                SA2    REFIO                                                           PUC          622          I
          -FC5A132
 PUC                                                                                       FC5A132       27     A     
 PUC       PUC7     SA2    REFIO                                                           FC5A132       28     A     
 PUC                PL     X2,PUC8     IF REF NOT SPILLED TO DISK                          PUC          623     A     
 PUC                MX6    0                                                               PUC          624     A     
 PUC                SA6    A2                                                              PUC          625     A     
 PUC                CLOSE  F.REF,UNLOAD                                                    PUC          626     A     
 PUC                                                                                       F1039         90     A     
 PUC       .RM      IFNE   CP#RM,0,1                                                       FC5A158A      98     A     
 PUC                OPEN   F.REF                                                           FC5A158A      99     A     
 PUC                                                                                       F1039         91     A     
 PUC                SA1    CO.OPT                                                          FC5A158A     100     A     
 PUC                NZ     X1,PUC8     IF NOT QCG MODE                                     FC5A158A     101     A     
 PUC                SETFIL FILE=F.REF,MODE=RESET   MAKE F.REF LOOK REWOUND                 FC5A109        4     A     
 PUC                                                                                       PUC          627     A     
 PUC                                                                                       PUC          628     A     
 PUC      **        CHECK FOR COMPASS *IDENT*.                                             PUC          629     A     
 PUC                                                                                       PUC          630     A     
 PUC       PUC8     SA5    =1H                                                             PUC          631     A     
 PUC                SA2    CP.CARD                                                         PUC          632     A     
 PUC                MX0    6*CHAR                                                          PUC          633     A     
 PUC                SA3    A2+B1                                                           PUC          634     A     
 PUC                SA4    =6LIDENT                                                        PUC          635     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                IX1    X2-X5                                                           PUC          636     A     
 PUC                NZ     X1,PUC9     IF COLS. 1-10 NOT BLANK                             PUC          637     A     
 PUC                BX6    X0*X3                                                           PUC          638     A     
 PUC                IX4    X4-X6                                                           PUC          639     A     
 PUC                NZ     X4,PUC9     IF COL 11-16 NOT *IDENT *                           PUC          640     A     
 PUC                SA2    PAGES       NUMBER OF FTN PAGES PRINTED                         PUC          641          I
          -FC5A164
 PUC                ZR     X2,PUC85    IF NOT LIST OUTPUT                                  PUC          642          I
          -FC5A164
 PUC                WRITER F.OUT,RCL                                                       PUC          643          I
          -FC5A164
 PUC                                                                                       PUC          644          I
          -FC5A164
 PUC       PUC85    SA2    PAGES+1                                                         PUC          645          I
          -FC5A164
 PUC                ZR     X2,LDCOM    IF NO ERROR LIST OUTPUT                             PUC          646          I
          -FC5A164
 PUC                SA2    CP.PAGE                                                         FC5A164       21     A     
 PUC                LX2    59-58                                                           FC5A164       22     A     
 PUC                PL     X2,PUC85    IF NOT LIST OUTPUT                                  FC5A164       23     A     
 PUC                WRITER F.OUT,RCL                                                       FC5A164       24     A     
 PUC                                                                                       FC5A164       25     A     
 PUC       PUC85    SA2    CP.EPAG                                                         FC5A164       26     A     
 PUC                LX2    59-58                                                           FC5A164       27     A     
 PUC                PL     X2,LDCOM    IF NO ERROR LIST OUTPUT                             FC5A164       28     A     
 PUC                WRITER =XF.ERRS,RCL                                                    PUC          647     A     
 PUC                EQ     LDCOM       LOAD COMPASS (1,0)...                               PUC          648     A     
 PUC                                                                                       PUC          649     A     
 PUC                                                                                       PUC          650     A     
 PUC                                                                                       PUC          651     A     
 PUC      **        PROCESS NEXT PROGRAM UNIT.                                             PUC          652          I
          -FC5A115
 PUC                                                                                       PUC          653          I
          -FC5A115
 PUC       PUC9     CALL   FEL         FRONT END LOADER                                    PUC          654          I
          -FC5A115
 PUC      **        ADJUST CARRIAGE CONTROL FOR EFILE.                                     FC5A115       16     A     
 PUC                                                                                       FC5A115       17     A     
 PUC       PUC9     SA5    CP.EPAG                                                         FC5A115       18     A     
 PUC                ZR     X5,PUC11    IF EFILE NOT WRITTEN ON BY COMPASS                  FC5A115       19     A     
 PUC                SA5    CO.PWE                                                          FC5A115       20     A     
 PUC                SA2    =10H-                                                           FC5A115       21     A     
 PUC                BX6    X2                                                              FC5A115       22     A     
 PUC                SX2    TL.EJCT                                                         FC5A115       23     A     
 PUC                SX2    X2+L.TITL   X2 = ADDRESS FOR STORE                              FC5A115       24          I
          -F1039  
 PUC                SX2    X2+ERFO     X2 = ADDRESS FOR STORE                              F1039         92     A     
 PUC                SX5    X5-136                                                          FC5A115       25          I
          -FC5A420
 PUC                SX5    X5-126                                                          FC5A420       11     A     
 PUC                PL     X5,PUC10    IF EFILE NOT IN PW MODE                             FC5A115       26     A     
 PUC                SX2    O.TTLA                                                          FC5A115       27     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                SA2    X2+L.TITL                                                       FC5A115       28          I
          -F1039  
 PUC                SA2    X2+ERFO                                                         F1039         93     A     
 PUC                MX6    2*CHAR                                                          FC5A115       29     A     
 PUC                BX6    -X6*X2      ERASE PREVIOUS CARRIAGE CONTROL                     FC5A115       30     A     
 PUC                SA3    =2L-                                                            FC5A115       31     A     
 PUC                BX6    X6+X3       MERGE NEW ONE                                       FC5A115       32     A     
 PUC                SX2    A2          X2 = ADDRESS FOR STORE                              FC5A115       33     A     
 PUC                                                                                       FC5A115       34     A     
 PUC       PUC10    SA6    X2          UPDATE CARRIAGE CONTROL                             FC5A115       35     A     
 PUC                                                                                       FC5A115       36     A     
 PUC                                                                                       FC5A115       37     A     
 PUC      **        PROCESS NEXT PROGRAM UNIT.                                             FC5A115       38     A     
 PUC                                                                                       FC5A115       39     A     
 PUC       PUC11    CALL   FEL         FRONT END LOADER                                    FC5A115       40     A     
 PUC                CALL   CGL         CODE GENERATOR LOADER                               PUC          655     A     
 PUC                CALL   REL         REAR END LOADER                                     PUC          656     A     
 PUC                                                                                       PUC          657     A     
 PUC                                                                                       PUC          658     A     
 PUC      **        UPDATE STORAGE USED.                                                   PUC          659     A     
 PUC                                                                                       PUC          660     A     
 PUC                SA1    CP.AFLS                                                         PUC          661     A     
 PUC                SA2    PU.MFL      PROGRAM UNIT MAX FL                                 PUC          662     A     
 PUC                MX6    X1+X2       MAX USED FOR PROGRAM UNIT                           PUC          663     A     
 PUC                SA3    CP.MXFL                                                         PUC          664     A     
 PUC                SX1    X6+77B                                                          PUC          665     A     
 PUC                AX1    6                                                               PUC          666     A     
 PUC                LX1    6           ROUND UP TO NEAREST 100B                            PUC          667     A     
 PUC                BX2    X1                                                              PUC          668     A     
 PUC                MX6    X2+X3       MAX CORE USED BY ANY PROGRAM UNIT                   PUC          669     A     
 PUC                SA6    A3                                                              PUC          670     A     
 PUC                                                                                       PUC          671     A     
 PUC       .SPY     IFEQ   .SPY,ON     IF SPYING                                           PUC          672     A     
 PUC                SA1    SPYW                                                            PUC          673     A     
 PUC                ZR     X1,PUC11    IF NOT SPYING THIS TIME                             PUC          674          I
          -FC5A115
 PUC                ZR     X1,PUC13    IF NOT SPYING THIS TIME                             FC5A115       41     A     
 PUC                SA1    CP.AFLS                                                         PUC          675     A     
 PUC                CALL   COD                                                             PUC          676     A     
 PUC                LX6    12                                                              PUC          677     A     
 PUC                SX5    2R  -2RB                                                        PUC          678     A     
 PUC                IX6    X6-X5                                                           PUC          679     A     
 PUC                SA6    PUCA+1      FL USED                                             PUC          680     A     
 PUC                SA1    IDENT                                                           PUC          681     A     
 PUC                CALL   SFN         SPACE FILE PROGRAM NAME                             PUC          682     A     
 PUC                SA6    PUCA                                                            PUC          683     A     
 PUC                MESSAGE PUCA,,R    PROGNAM  NNNNNNB CM USED                            PUC          684     A     
 PUC                                                                                       F1039         94     A     
 PUC       PUC11    BSS                                                                    PUC          685          I
          -FC5A115
 PUC       PUC13    BSS                                                                    FC5A115       42     A     
 PUC       .SPY     ENDIF                                                                  PUC          686     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       PUC          687     A     
 PUC                                                                                       PUC          688     A     
 PUC      **        LIST PROGRAM UNIT STATISTICS.                                          PUC          689     A     
 PUC                                                                                       PUC          690     A     
 PUC                SA1    CP.AFLS                                                         PUC          691     A     
 PUC                CALL   LUS         LIST UNIT STATISTICS                                PUC          692     A     
 PUC                                                                                       PUC          693     A     
 PUC                                                                                       PUC          694     A     
 PUC      **        RETURN TO INITIAL FIELD LENGTH.                                        PUC          695          I
          -FC5A132
 PUC                                                                                       PUC          696          I
          -FC5A132
 PUC       PUC15    SA3    INT.FL                                                          PUC          697          I
          -FC5A132
 PUC      **        RESET PROGRAM UNIT START TIME.                                         FC5A132       29     A     
 PUC                                                                                       FC5A132       30     A     
 PUC       PUC15    CALL   TIMER                                                           FC5A132       31          I
          -F1039  
 PUC                CALL   TIMER                                                           F1039         95     A     
 PUC                SA6    TIME1                                                           FC5A132       32     A     
 PUC                                                                                       FC5A132       33     A     
 PUC      **        RETURN TO INITIAL FIELD LENGTH.                                        FC5A132       34     A     
 PUC                                                                                       FC5A132       35     A     
 PUC                SA3    INT.FL                                                          FC5A132       36     A     
 PUC                SA2    O.TABS                                                          PUC          698     A     
 PUC                SX2    X2+MIN.TABS                                                     PUC          699          I
          -FC5A132
 PUC                SX2    X2+MIN.TABS+10                                                  FC5A132       37     A     
 PUC                MX1    X2+X3       SELECT MAX OF TWO VALUES                            PUC          700     A     
 PUC                SX1    X1+77B                                                          FC5A132       38     A     
 PUC                AX1    6                                                               FC5A132       39     A     
 PUC                LX1    6           ROUND UP TO NEXT 100B                               FC5A132       40     A     
 PUC                SA2    CP.AFLS     CURRENT FL                                          PUC          701     A     
 PUC                IX6    X1-X2                                                           PUC          702     A     
 PUC                ZR     X6,PUC20    IF CURRENT = INITIAL                                PUC          703     A     
 PUC                RJ     GMC         RETURN TO INITIAL FL                                PUC          704     A     
 PUC                                                                                       PUC          705     A     
 PUC                IFEQ   TEST,ON,1   IF TEST MODE                                        PUC          706     A     
 PUC                NE     B7,B1,"BLOWUP"    IF REQUEST NOT HONORED                        PUC          707     A     
 PUC                                                                                       PUC          708     A     
 PUC                SA1    O.TABS      ORIGIN OF TABLE AREA                                PUC          709     A     
 PUC                IX6    X6-X1                                                           PUC          710     A     
 PUC                SA6    L.TABS      LENGTH OF TABLE AREA                                PUC          711     A     
 PUC                AX6    FLSLOP                                                          PUC          712     A     
 PUC                SX6    X6+FLSLUP                                                       PUC          713     A     
 PUC                SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                          PUC          714     A     
 PUC                                                                                       PUC          715     A     
 PUC                                                                                       PUC          716     A     
 PUC      **        SEND ERROR MESSAGE TO DAYFILE + CONSOLE.                               PUC          717          I
          -F1037F5
 PUC                                                                                       PUC          718          I
          -F1037F5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       PUC20    SA5    ERR=A                                                           PUC          719          I
          -F1037F5
 PUC                SA4    CO.EL                                                           PUC          720          I
          -F1037F5
 PUC                SA2    CO.ANSI                                                         PUC          721          I
          -F1037F5
 PUC                                                                                       PUC          722          I
          -F1037F5
 PUC      **        NOTE - FOLLOWING IS A KLUDGE (OF SORTS) TO ALLOW ANSI ERROR            PUC          723          I
          -F1037F5
 PUC      *         TOTALS TO BE OUTPUT WHEN USER HAS ANSI = T OR ANSI = F                 PUC          724          I
          -F1037F5
 PUC      *         ON THE CONTROL STATEMENT.  IT AVOIDS HAVING TO DUPLICATE CODE          PUC          725          I
          -F1037F5
 PUC      *         IN THE LOOP BELOW.                                                     PUC          726          I
          -F1037F5
 PUC                                                                                       PUC          727          I
          -F1037F5
 PUC                =X6    0                                                               PUC          728          I
          -F1037F5
 PUC                BX5    X4                                                              PUC          729          I
          -F1037F5
 PUC                SB4    X5                                                              PUC          730          I
          -F1037F5
 PUC                ZR     X2,PUC20A   IF ANSI = 0                                         PUC          731          I
          -F1037F5
 PUC                =B4    0                                                               PUC          732          I
          -F1037F5
 PUC                =X6    1                                                               PUC          733          I
          -F1037F5
 PUC                =X5    0                                                               PUC          734          I
          -F1037F5
 PUC                                                                                       PUC          735          I
          -F1037F5
 PUC       PUC20A   SA6    PUCB                                                            PUC          736          I
          -F1037F5
 PUC                                                                                       PUC          737          I
          -F1037F5
 PUC       PUC21    SA1    B4+A5       FETCH ERROR COUNT, THIS LEVEL                       PUC          738          I
          -F1037F5
 PUC                ZR     X1,PUC23    IF NO ERRORS THIS LEVEL                             PUC          739          I
          -F1037F5
 PUC                SB6    X1          SAVE NUMBER OF ERRORS                               PUC          740          I
          -F1037F5
 PUC                CALL   CDD         CONVERT TO DPC                                      PUC          741          I
          -F1037F5
 PUC                LX6    CHAR        SHIFT FOR SPACING                                   PUC          742          I
          -F1037F5
 PUC                SA2    X5+ERRTYP   ERROR TYPE INFORMATION                              PUC          743          I
          -F1037F5
 PUC                AX2    18                                                              PUC          744          I
          -F1037F5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                SA1    X2          ERROR TYPE DPC                                      PUC          745          I
          -F1037F5
 PUC                SA6    LINEBUF                                                         PUC          746          I
          -F1037F5
 PUC                SA3    =20L ERROR IN  ERRORS IN                                        PUC          747          I
          -F1037F5
 PUC                SA2    IDENT                                                           PUC          748          I
          -F1037F5
 PUC                BX7    X1                                                              PUC          749          I
          -F1037F5
 PUC                LE     B6,B1,PUC22 IF ONLY ONE ERROR                                   PUC          750          I
          -F1037F5
 PUC                =A3    A3+1                                                            PUC          751          I
          -F1037F5
 PUC       PUC22    =A7    A6+1        +1 = (ERROR TYPE DPC)                               PUC          752          I
          -F1037F5
 PUC                SX1    1R                                                              PUC          753          I
          -F1037F5
 PUC                LX6    X3                                                              PUC          754          I
          -F1037F5
 PUC                BX7    X2+X1                                                           PUC          755          I
          -F1037F5
 PUC                =A6    A7+1        +2 = ERROR(S) IN                                    PUC          756          I
          -F1037F5
 PUC                LX7    -CHAR       SHIFT FOR SPACING                                   PUC          757          I
          -F1037F5
 PUC                =A7    A6+1        +3 = (IDENT)                                        PUC          758          I
          -F1037F5
 PUC                MESSAGE LINEBUF,,RCL                                                   PUC          759          I
          -F1037F5
 PUC                PLINE  LINEBUF,4,1                                                     PUC          760          I
          -F1037F5
 PUC                                                                                       PUC          761          I
          -F1037F5
 PUC       PUC23    =X5    X5+1                                                            PUC          762          I
          -F1037F5
 PUC                SA1    PUCB                                                            PUC          763          I
          -F1037F5
 PUC                ZR     X1,PUC24    IF X5 OK                                            PUC          764          I
          -F1037F5
 PUC                SA1    CO.EL                                                           PUC          765          I
          -F1037F5
 PUC                BX5    X1          START OUT AT PROPER ERROR LEVEL                     PUC          766          I
          -F1037F5
 PUC                =X6    0                                                               PUC          767          I
          -F1037F5
 PUC                SA6    PUCB                                                            PUC          768          I
          -F1037F5
 PUC                                                                                       PUC          769          I
          -F1037F5
 PUC       PUC24    SB4    X5                                                              PUC          770          I
          -F1037F5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                SB2    EL=C                                                            PUC          771          I
          -F1037F5
 PUC                LE     B4,B2,PUC21 IF MORE ERROR TYPES                                 PUC          772          I
          -F1037F5
 PUC      **        SEND ANSI AND MACHINE DEPENDENT ERROR                                  F1037F5      186     A     
 PUC      *         SUMMARIES TO DAYFILE AND CONSOLE.                                      F1037F5      187     A     
 PUC                                                                                       F1037F5      188     A     
 PUC       PUC20    =X5    ERR.A       STARTING OFFSET                                     F1037F5      189     A     
 PUC                SA1    CO.ANSI                                                         F1037F5      190     A     
 PUC                NZ     X1,PUC30    IF ANSI DIAGNOSTICS DESIRED                         F1037F5      191     A     
 PUC                SX5    ERR.M       AVOID ANSI DIAGNOSTICS                              F1037F5      192     A     
 PUC                                                                                       F1037F5      193     A     
 PUC       PUC30    =X6    ERR.M       ENDING OFFSET                                       F1037F5      194     A     
 PUC                ERRNZ  ERR.M-ERR.A-1     MUST BE CONSECUTIVE                           F1037F5      195     A     
 PUC                RJ     PES         PRINT ERROR SUMMARY                                 F1037F5      196     A     
 PUC                                                                                       F1037F5      197     A     
 PUC      **        SEND REST OF ERROR SUMMARIES TO DAYFILE AND CONSOLE.                   F1037F5      198     A     
 PUC                                                                                       F1037F5      199     A     
 PUC                =X5    ERR.M+1     STARTING OFFSET                                     F1037F5      200     A     
 PUC                =X6    ERR.C       ENDING OFFSET                                       F1037F5      201     A     
 PUC                ERRPL  ERR.T-ERR.C                                                     F1037F5      202     A     
 PUC                RJ     PES         PRINT ERROR SUMMARY                                 F1037F5      203     A     
 PUC                EQ     PUC         LOOP FOR NEXT PROGRAM UNIT...                       PUC          773     A     
 PUC                                                                                       PUC          774     A     
 PUC       ENDFTN   TITLE  TERMINATE COMPILATION                                           FC5A158A     102     A     
 PUC      **        TERMINATE COMPILATION.                                                 FC5A158A     103     A     
 PUC                                                                                       FC5A158A     104     A     
 PUC                                                                                       FC5A158A     105     A     
 PUC       ENDFTN   BSSENT 0           ...ENTER HERE TO TERMINATE COMPILATION              FC5A158A     106          I
          -FC5A404
 PUC       ENDFTN   BSS    0           ...ENTER HERE TO TERMINATE COMPILATION              FC5A404        5          I
          -FC51347
 PUC       ENDFTN   BSSENT 0           ...ENTER HERE TO TERMINATE COMPILATION              FC51347        6     A     
 PUC       ENDFTN   SPACE  4,10                                                            FC5A158A     107     A     
 PUC      **        SEND FL USED TO DAYFILE.                                               FC5A158A     108     A     
 PUC                                                                                       FC5A158A     109     A     
 PUC                SA1    CP.MXFL     MAX FL USED                                         FC5A158A     110     A     
 PUC                CALL   COD         CONVERT OCTAL DIGITS                                FC5A158A     111     A     
 PUC                SA6    FLUSED                                                          FC5A158A     112     A     
 PUC                MESSAGE FLUSED,,RCL                                                    FC5A158A     113     A     
 PUC                                                                                       FC5A158A     114     A     
 PUC                                                                                       FC5A158A     115     A     
 PUC      **        SEND COMPILATION TIME TO DAYFILE.                                      FC5A158A     116     A     
 PUC                                                                                       FC5A158A     117     A     
 PUC                SA2    TIME0       START OF COMPILATION TIME                           FC5A158A     118     A     
 PUC                CALL   CPTIM       COMPUTE/CONVERT ELAPSED CPU TIME                    FC5A158A     119     A     
 PUC                SA6    CPTMSG      TIME TO DAYFILE MESSAGE TEXT                        FC5A158A     120     A     
 PUC                MESSAGE CPTMSG,,RCL                                                    FC5A158A     121     A     
 PUC                                                                                       FC5A158A     122     A     
 PUC                                                                                       FC5A158A     123     A     
 PUC      **        TURN OFF PPU PROGRAM SPY.                                              FC5A158A     124     A     
 PUC                                                                                       FC5A158A     125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       .SPY     IFEQ   .SPY,ON     IF SPY OPTION                                       FC5A158A     126     A     
 PUC                IFNE   .OS,2,1     IF NOT SCOPE 2                                      FC5A158A     127     A     
 PUC                CALL   OFFSPY                                                          FC5A158A     128     A     
 PUC       .SPY     ENDIF                                                                  FC5A158A     129     A     
 PUC                                                                                       FC5A158A     130     A     
 PUC                                                                                       FC5A158A     131     A     
 PUC      **        PROCESS ABNORMAL TERMINATION CONDITIONS.                               FC5A158A     132     A     
 PUC                                                                                       FC5A158A     133     A     
 PUC                SA1    CP.ERCT                                                         FC5A158A     134     A     
 PUC                SA2    CP.ABT                                                          FC5A158A     135     A     
 PUC                MX3    1                                                               FC5A158A     136     A     
 PUC                BX1    -X3*X1      CLEAR BINARY REGARDLESS FLAG                        FC5A158A     137     A     
 PUC                LX3    59-29                                                           FC5A158A     138     A     
 PUC                BX2    X2*X3                                                           FC5A158A     139     A     
 PUC                ZR     X1,END4     IF NO COMPILATION OR ASSEMBLY ERRORS                FC5A158A     140     A     
 PUC                ZR     X2,END4     IF ABORT (ET=0) OPTION OFF                          FC5A158A     141     A     
 PUC                                                                                       FC5A158A     142     A     
 PUC                IFEQ   CP#RM,0,1   IF USING CIO I/O                                    FC5A158A     143     A     
 PUC                CALL   WFA         WAIT FILE ACTIONS                                   FC5A158A     144     A     
 PUC                EQ     =XABTFTN                                                        FC5A158A     145     A     
 PUC                                                                                       FC5A158A     146     A     
 PUC      **        PROCESS AUTO EXECUTE (GO-OPTION) REQUEST.                              FC5A158A     147     A     
 PUC                                                                                       FC5A158A     148     A     
 PUC       END4     SA1    CO.GO                                                           FC5A158A     149     A     
 PUC                ZR     X1,END5     IF GO-OPTION OFF                                    FC5A158A     150     A     
 PUC                                                                                       FC5A158A     151     A     
 PUC                BX6    X1                                                              FC5A158A     152     A     
 PUC                SA6    RA.PGN      POST FILE/PROGRAM NAME FOR MSG AND LOADER           FC5A158A     153     A     
 PUC                                                                                       FC5A158A     154     A     
 PUC       .RM      IFEQ   CP#RM,0     IF USING *CIO* DIRECT I/O                           FC5A158A     155     A     
 PUC                CALL   WFA         WAIT FILE ACTIONS -- ALL QUIET                      FC5A158A     156     A     
 PUC       .RM      ENDIF                                                                  FC5A158A     157     A     
 PUC                                                                                       FC5A158A     158     A     
 PUC       .OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FC5A158A     159     A     
 PUC                MEMORY SCM,LDRFL,RCL     RFL DOWN BEFORE CALLING LOADER                FC5A158A     160     A     
 PUC       .EC      IFNE   CT.ECS,0                                                        FC5A404        6     A     
 PUC                SA1    CP.ILFL                                                         FC5A404        7     A     
 PUC                BX6    X1                                                              FC5A404        8     A     
 PUC                LX6    30                                                              FC5A404        9     A     
 PUC                SA6    GT1         INITIAL LCM FIELD LENGTH                            FC5A404       10     A     
 PUC                MEMORY LCM,GT1,R,,NOABT  RETURN TO INITIAL LCM FL                      FC5A404       11     A     
 PUC       .EC      ENDIF                                                                  FC5A404       12     A     
 PUC       .OS      ENDIF                                                                  FC5A158A     161     A     
 PUC                                                                                       FC5A158A     162     A     
 PUC                RPVOFF GT1         CANCEL REPRIEVE REQUEST                             FC5A158A     163     A     
 PUC                                                                                       FC5A158A     164     A     
 PUC                MESSAGE RA.PGN,,RCL                                                    FC5A158A     165     A     
 PUC                LOADREQ   0                                                            FC5A158A     166     A     
 PUC      +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST                  FC5A158A     167     A     
 PUC                                                                                       FC5A158A     168     A     
 PUC                                                                                       FC5A158A     169     A     
 PUC      **        TERMINATE COMPILATION NORMALLY.                                        FC5A158A     170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       FC5A158A     171     A     
 PUC       END5     BSS    0                                                               FC5A158A     172     A     
 PUC                IFEQ   CP#RM,0,1   IF USING CIO I/O                                    FC5A158A     173     A     
 PUC                CALL   WFA         WAIT FILE ACTIONS                                   FC5A158A     174     A     
 PUC                SA1    INT.FL      INITIAL FL                                          FC5A158A     175     A     
 PUC                SA2    CP.AFLS     CURRENT FL                                          FC5A158A     176     A     
 PUC                IX6    X1-X2                                                           FC5A158A     177     A     
 PUC                ZR     X6,END10    IF CURRENT = INITIAL FL                             FC5A158A     178     A     
 PUC                BX6    X1                                                              FC5A158A     179     A     
 PUC                LX6    30                                                              FC5A158A     180     A     
 PUC                SA6    GT1                                                             FC5A158A     181     A     
 PUC                MEMORY SCM,GT1,RCL RETURN TO INITIAL FL                                FC5A158A     182     A     
 PUC                                                                                       FC5A158A     183     A     
 PUC       END10    SA1    CP.ILFL     INITIAL LCM FL                                      FC5A158A     184     A     
 PUC                SA2    CP.AFLL     CURRENT LCM FL                                      FC5A158A     185     A     
 PUC                IX6    X1-X2                                                           FC5A158A     186     A     
 PUC                ZR     X6,NOFTN    IF CURRENT = INITIAL LCM FL                         FC5A158A     187          I
          -FC50314
 PUC                ZR     X6,END15    IF CURRENT = INITIAL LCM FL                         FC50314        6     A     
 PUC                BX6    X1                                                              FC5A158A     188     A     
 PUC                LX6    30                                                              FC5A158A     189     A     
 PUC                SA6    GT1                                                             FC5A158A     190     A     
 PUC                MEMORY LCM,GT1,R,,NOABT  RETURN TO INITIAL LCM FL                      FC5A158A     191     A     
 PUC                                                                                       FC5A158A     192     A     
 PUC       NOFTN    BSSENT 0           ...ENTER HERE WHEN NO COMPILATION                   FC5A158A     193          I
          -FC50314
 PUC                ENDRUN                                                                 FC5A158A     194          I
          -FC50314
 PUC       END15    ENDRUN                                                                 FC50314        7     A     
 PUC                                                                                       FC5A158A     195     A     
 PUC                                                                                       FC5A158A     196     A     
 PUC      **        DAYFILE MESSAGES.                                                      FC5A158A     197     A     
 PUC                                                                                       FC5A158A     198     A     
 PUC       CPTMSG   DIS    ,/   NNN.NNN CP SECONDS COMPILATION TIME./                      FC5A158A     199     A     
 PUC       FLUSED   CON    0                                                               FC5A158A     200     A     
 PUC                DIS    ,/ "SCM" STORAGE USED./                                         FC5A158A     201     A     
 PUC       CPTIME   SPACE  4,10                                                            FC5A158A     202     A     
 PUC      **        CPTIME - COMPUTE AND CONVERT ELAPSED CPU TIME.                         FC5A158A     203     A     
 PUC      *                                                                                FC5A158A     204     A     
 PUC      *         ENTRY  (X2) = CPU START TIME IN MILLISECONDS                           FC5A158A     205     A     
 PUC      *                                                                                FC5A158A     206     A     
 PUC      *         EXIT   (X6) = DPC ELAPSED TIME, F10.3 FORMAT                           FC5A158A     207     A     
 PUC      *                                                                                FC5A158A     208     A     
 PUC      *         CALLS  TIMER, CFD                                                      FC5A158A     209     A     
 PUC                                                                                       FC5A158A     210     A     
 PUC                                                                                       FC5A158A     211     A     
 PUC       CPTIM    SUBR   =           ENTRY/EXIT...                                       FC5A158A     212     A     
 PUC                CALL   TIMER       RETURNS (X6) = CURRENT CPTIME                       FC5A158A     213     A     
 PUC                IX1    X6-X2       (X1) = ELAPSED TIME (BINARY)                        FC5A158A     214     A     
 PUC                CALL   CFD         CONVERT FLOATING DIGITS TO F10.3                    FC5A158A     215     A     
 PUC                EQ     EXIT.       EXIT...                                             FC5A158A     216     A     
 PUC       TIMER    SPACE  4,10                                                            FC5A158A     217     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      **        TIMER - OBTAIN ACCUMULATED CPU TIME.                                   FC5A158A     218     A     
 PUC      *                                                                                FC5A158A     219     A     
 PUC      *         TIME IS CONVERTED INTO AN INTEGRAL NUMBER OF MILLISECONDS.             FC5A158A     220     A     
 PUC      *                                                                                FC5A158A     221     A     
 PUC      *         ENTRY  NO REQUIREMENTS                                                 FC5A158A     222     A     
 PUC      *                                                                                FC5A158A     223     A     
 PUC      *         EXIT   (X6) = CURRENT CPU TIME IN MILLISECONDS                         FC5A158A     224     A     
 PUC      *                                                                                FC5A158A     225     A     
 PUC      *         USES   X - 0, 3, 4, 5, 6                                               FC5A158A     226     A     
 PUC      *                A - 5                                                           FC5A158A     227     A     
 PUC      *                B - NONE                                                        FC5A158A     228     A     
 PUC      *                                                                                FC5A158A     229     A     
 PUC      *         CALLS  TIME                                                            FC5A158A     230     A     
 PUC                                                                                       FC5A158A     231     A     
 PUC                                                                                       FC5A158A     232     A     
 PUC       TIMER    SUBR   =           ENTRY/EXIT...                                       FC5A158A     233     A     
 PUC                TIME   GT1                                                             FC5A158A     234     A     
 PUC                SA5    GT1                                                             FC5A158A     235     A     
 PUC                MX0    60-12                                                           FC5A158A     236     A     
 PUC                BX4    -X0*X5      MSEC                                                FC5A158A     237     A     
 PUC                AX5    12                                                              FC5A158A     238     A     
 PUC                SX3    1000D       SEC * 1000                                          FC5A158A     239     A     
 PUC                MX0    60-24                                                           FC5A158A     240     A     
 PUC                BX5    -X0*X5                                                          FC5A158A     241     A     
 PUC                IX3    X5*X3                                                           FC5A158A     242     A     
 PUC                IX6    X3+X4                                                           FC5A158A     243     A     
 PUC                EQ     EXIT.       EXIT...                                             FC5A158A     244     A     
 PUC       WFA      SPACE  4,10                                                            FC5A158A     245     A     
 PUC      **        WFA - WAIT FILE ACTIONS.                                               FC5A158A     246     A     
 PUC      *                                                                                FC5A158A     247     A     
 PUC      *         WAIT FOR ALL FILES IDLE.                                               FC5A158A     248     A     
 PUC      *                                                                                FC5A158A     249     A     
 PUC      *         ENTRY  (RA.ARG) = FIRST WORD OF FILE VECTOR TABLE.                     FC5A158A     250     A     
 PUC      *                                                                                FC5A158A     251     A     
 PUC      *         CALLS  RECALL                                                          FC5A158A     252     A     
 PUC                                                                                       FC5A158A     253     A     
 PUC                                                                                       FC5A158A     254     A     
 PUC       .RM      IFEQ   CP#RM,0     IF USING CIO I/O                                    FC5A158A     255     A     
 PUC                                                                                       FC5A158A     256     A     
 PUC       WFA      SUBR   0           ENTRY/EXIT...                                       FC5A158A     257     A     
 PUC                =B2    0                                                               FC5A158A     258     A     
 PUC       WFA1     SA5    B2+RA.ARG   (X5) = FILE VECTOR ENTRY                            FC5A158A     259     A     
 PUC                =B2    B2+1                                                            FC5A158A     260     A     
 PUC                MI     X5,EXIT.    IF END OF TABLE, EXIT...                            FC5A158A     261     A     
 PUC                ZR     X5,WFA1     IF FILE DESELECTED                                  FC5A158A     262     A     
 PUC                SX2    X5                                                              FC5A158A     263     A     
 PUC                RECALL X2                                                              FC5A158A     264     A     
 PUC                EQ     WFA1        LOOP FOR MORE                                       FC5A158A     265     A     
 PUC       .RM      ENDIF                                                                  FC5A158A     266     A     
 PUC      *CALL COMCCFD                                                                    FC5A158A     267     A     
 PUC                IFEQ   .SPY,ON,1                                                       PUC          775     A     
 PUC       PUCA     DATA   0,0,7LCM USED                                                   PUC          776     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       PUCB     BSS    1                                                               PUC          777     A     
 PUC       CAF      TITLE  PUC SUPPORT ROUTINES                                            PUC          778     A     
 PUC       CAF      SPACE  4,10                                                            PUC          779     A     
 PUC      **        CAF - CLOSE ALL FILES.                                                 PUC          780     A     
 PUC      *                                                                                PUC          781     A     
 PUC      *         ENTRY  EOR ON INPUT                                                    PUC          782     A     
 PUC      *                                                                                PUC          783     A     
 PUC      *         CALLS  CLOSE,FA=CLO,RECALL,WRITEC,WRITER                               PUC          784     A     
 PUC                                                                                       PUC          785     A     
 PUC                                                                                       PUC          786     A     
 PUC       CAF      SUBR   0           ...ENTRY/EXIT...                                    PUC          787          I
          -FC51347
 PUC       CAF      SUBR   =           ...ENTRY/EXIT...                                    FC51347        7     A     
 PUC                                                                                       PUC          788     A     
 PUC                =X0    0                                                               PUC          789     A     
 PUC                RJ     COF         CLOSE OUTPUT FILE                                   PUC          790     A     
 PUC                =X0    1                                                               PUC          791     A     
 PUC                RJ     COF         CLOSE ERROR FILE                                    PUC          792     A     
 PUC                                                                                       PUC          793     A     
 PUC                                                                                       PUC          794     A     
 PUC      **        WRITE EOR ON LGO.                                                      PUC          795     A     
 PUC                                                                                       PUC          796     A     
 PUC       CAF2     SA2    FV.LGO                                                          PUC          797          I
          -F1039  
 PUC                SA2    FV.LGO                                                          F1039         96     A     
 PUC                ZR     X2,CAF3     IF BINARY OUTPUT SUPPRESSED (B=0)                   PUC          798     A     
 PUC                WRITER F.LGO,RCL                                                       PUC          799          I
          -FC50055
 PUC                WRITEF F.LGO                                                           FC50055        5     A     
 PUC                BKSP   F.LGO                                                           PUC          800     A     
 PUC                                                                                       PUC          801     A     
 PUC                                                                                       PUC          802     A     
 PUC      **        EVICT SCRATCH FILES                                                    PUC          803     A     
 PUC                                                                                       PUC          804     A     
 PUC       CAF3     BSS    0                                                               PUC          805     A     
 PUC                                                                                       PUC          806     A     
 PUC       .TEST    IFEQ   TEST,OFF    IF NOT TEST MODE                                    PUC          807     A     
 PUC                SA1    BINIO                                                           PUC          808     A     
 PUC                PL     X1,CAF35    IF PREBIN FILE NOT USED                             PUC          809     A     
 PUC                CLOSE  F.PB,UNLOAD                                                     PUC          810     A     
 PUC       CAF35    BSS                                                                    PUC          811          I
          -FC5A132
 PUC       .TEST    ENDIF                                                                  PUC          812          I
          -FC5A132
 PUC                                                                                       PUC          813          I
          -FC5A132
 PUC                                                                                       PUC          814          I
          -FC5A132
 PUC       .TEST    IFEQ   TEST,OFF    IF NOT TEST MODE                                    PUC          815          I
          -FC5A132
 PUC                                                                                       FC5A132       41     A     
 PUC       CAF35    SA1    CO.OPT                                                          FC5A132       42     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                ZR     X1,CAF36    IF QCG MODE                                         FC5A132       43     A     
 PUC                CLOSE  F.IL,UNLOAD                                                     FC5A132       44     A     
 PUC                                                                                       FC5A132       45     A     
 PUC       CAF36    BSS    0                                                               FC5A132       46     A     
 PUC                SA2    REFIO                                                           PUC          816     A     
 PUC                PL     X2,CAF4     IF REF FILE NOT USED                                PUC          817     A     
 PUC                CLOSE  F.REF,UNLOAD                                                    PUC          818     A     
 PUC       CAF4     BSS    0                                                               PUC          819     A     
 PUC       .TEST    ENDIF                                                                  PUC          820     A     
 PUC                                                                                       PUC          821     A     
 PUC       #RM      IFEQ   CP#RM,7     IF 7RM I/O                                          PUC          822     A     
 PUC                =B2    0                                                               PUC          823     A     
 PUC       CAF5     SA2    RA.ARG+B2   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE           PUC          824     A     
 PUC                =B2    B2+1                                                            PUC          825     A     
 PUC                MI     X2,CAF6     IF END OF TABLE                                     PUC          826     A     
 PUC                ZR     X2,CAF5     IF FILE DESELECTED                                  PUC          827     A     
 PUC                CLOSE  A2                                                              PUC          828     A     
 PUC                EQ     CAF5        LOOP FOR MORE                                       PUC          829     A     
 PUC                                                                                       PUC          830     A     
 PUC       CAF6     BSS    0                                                               PUC          831     A     
 PUC       #RM      ENDIF                                                                  PUC          832     A     
 PUC                                                                                       PUC          833     A     
 PUC                                                                                       PUC          834     A     
 PUC                EQ     EXIT.       EXIT...                                             PUC          835     A     
 PUC                SPACE  4,8                                                             PUC          836     A     
 PUC      **        COF - CLOSE OUTPUT FILE.                                               PUC          837     A     
 PUC      *                                                                                PUC          838     A     
 PUC      *         ENTRY  X0 = 0/1  OUTPUT/ERRS                                           PUC          839     A     
 PUC                                                                                       PUC          840     A     
 PUC       COF      SUBR                                                                   PUC          841     A     
 PUC                                                                                       PUC          842     A     
 PUC      *         RESET PRINT DENSITY IF NECCESARY.                                      PUC          843          I
          -FC50353
 PUC      *         RESET PRINT DENSITY IF NECESSARY.                                      FC50353        6     A     
 PUC                                                                                       PUC          844     A     
 PUC                SA1    PAGES+X0    TOTAL NUMBER OF PAGES ON OUTPUT                     PUC          845          I
          -FC5A164
 PUC                ZR     X1,EXIT.    IF NO LINES WRITTEN                                 PUC          846          I
          -FC5A164
 PUC                SA1    PAGELOC+X0  TOTAL NUMBER OF PAGES ON OUTPUT                     FC5A164       29     A     
 PUC                SA1    X1                                                              FC5A164       30     A     
 PUC                LX1    59-58                                                           FC5A164       31     A     
 PUC                PL     X1,EXIT.    IF NO LINES WRITTEN                                 FC5A164       32     A     
 PUC                SA2    FV.OUT+X0                                                       PUC          847     A     
 PUC                SX2    X2                                                              PUC          848          I
          -FC5A158A 
 PUC       .RM      IFEQ   CP#RM,0                                                         FC5A158A     268     A     
 PUC                SX2    X2                                                              FC5A158A     269     A     
 PUC       .RM      ELSE                                                                   FC5A158A     270     A     
 PUC                SX2    A2                                                              FC5A158A     271     A     
 PUC       .RM      ENDIF                                                                  FC5A158A     272     A     
 PUC                SA1    CP.PD                                                           PUC          849          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          -FC5A426
 PUC                ZR     X1,COF10    IF PD NOT FOUND ON CONTROL CARD                     PUC          850          I
          -FC5A426
 PUC                SA1    CO.PW+X0                                                        FC5A187        7     A     
 PUC                MI     X1,COF10    IF FILE CONNECTED                                   FC5A187        8     A     
 PUC                                                                                       PUC          851     A     
 PUC      #PD       IFEQ   IP.PD,6                                                         PUC          852          I
          -FC5A187
 PUC                SX6    1RS                                                             PUC          853          I
          -FC5A187
 PUC      #PD       ELSE                                                                   PUC          854          I
          -FC5A187
 PUC                SX6    1RT                                                             PUC          855          I
          -FC5A187
 PUC      #PD       ENDIF                                                                  PUC          856          I
          -FC5A187
 PUC      *         THIS ASSUMES SYSTEM PRINTER DEFAULT IS ALWAYS PD=6.                    FC5A187        9          I
          -FC5A426
 PUC      *         CHANGE TO RESET 1RT IF SYSTEM DEF. ALLOWS PD=8 .                       FC5A187       10          I
          -FC5A426
 PUC                                                                                       FC5A187       11          I
          -FC5A426
 PUC                SX6    1RS                                                             FC5A187       12          I
          -FC5A426
 PUC                                                                                       PUC          857          I
          -FC5A426
 PUC                LX6    -CHAR                                                           PUC          858          I
          -FC5A426
 PUC                SA1    CP.PD                                                           FC5A426       23     A     
 PUC                SA3    RS.PD       JOB DEFAULT PRINT DENSITY CHAR                      FC5A426       24     A     
 PUC                BX1    X1-X3                                                           FC5A426       25     A     
 PUC                ZR     X1,COF10    IF JOB DEFAULT IN USE                               FC5A426       26     A     
 PUC                BX6    X3                                                              FC5A426       27     A     
 PUC                SA6    GT1                                                             PUC          859     A     
 PUC                SA2    FV.OUT+X0                                                       PUC          860          I
          -FC5A158A 
 PUC       .RM      IFEQ   CP#RM,0                                                         FC5A158A     273     A     
 PUC                SA2    FV.OUT+X0                                                       FC5A158A     274     A     
 PUC       .RM      ELSE                                                                   FC5A158A     275     A     
 PUC                SX2    FV.OUT+X0                                                       FC5A158A     276     A     
 PUC       .RM      ENDIF                                                                  FC5A158A     277     A     
 PUC                WRITEH X2,GT1,1    RESET DENSITY                                       PUC          861     A     
 PUC                                                                                       PUC          862     A     
 PUC       COF10    WRITER X2                                                              PUC          863     A     
 PUC                EQ     EXIT.                                                           PUC          864     A     
 PUC                TITLE  LIST UNIT STATISTICS.                                           PUC          865          I
          -FC5A150
 PUC       OCTAL    SPACE  4,10                                                            PUC          866          I
          -FC5A150
 PUC      **        OCTAL - CONVERT AND FORMAT OCTAL STATISTIC.                            PUC          867          I
          -FC5A150
 PUC      *                                                                                PUC          868          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          -FC5A150
 PUC      *         CONVERT NUMBER STORED AT *FROM* TO OCTAL DPC,FORMAT THE                PUC          869          I
          -FC5A150
 PUC      *         RESULT FOR PRINTING, STORE IT AT *TO*.                                 PUC          870          I
          -FC5A150
 PUC      *                                                                                PUC          871          I
          -FC5A150
 PUC      *         OCTAL  FROM,TO                                                         PUC          872          I
          -FC5A150
 PUC      *                                                                                PUC          873          I
          -FC5A150
 PUC      *         USES   A1-2,6,  X0-2,6-7,  B7.                                         PUC          874          I
          -FC5A150
 PUC      *         CALLS  PIA                                                             PUC          875          I
          -FC5A150
 PUC                                                                                       PUC          876          I
          -FC5A150
 PUC                                                                                       PUC          877          I
          -FC5A150
 PUC       OCTAL    MACRO  FROM,TO                                                         PUC          878          I
          -FC5A150
 PUC                =A1    FROM        FETCH NUMBER                                        PUC          879          I
          -FC5A150
 PUC                PIA                CONVERT IT                                          PUC          880          I
          -FC5A150
 PUC                LX6    CHAR                                                            PUC          881          I
          -FC5A150
 PUC                =X0    1R=&1R                                                          PUC          882          I
          -FC5A150
 PUC                BX6    X0-X6       CHANGE LAST BLANK TO =                              PUC          883          I
          -FC5A150
 PUC                SA6    TO                                                              PUC          884          I
          -FC5A150
 PUC       OCTAL    ENDM                                                                   PUC          885          I
          -FC5A150
 PUC       DECML    SPACE  4,10                                                            PUC          886          I
          -FC5A150
 PUC      **        DECML - CONVERT AND FORMAT DECIMAL STATISTIC.                          PUC          887          I
          -FC5A150
 PUC      *                                                                                PUC          888          I
          -FC5A150
 PUC      *         CONVERT NUMBER STORED AT *FROM* TO DECML DPC, FORMAT                   PUC          889          I
          -FC5A150
 PUC      *         RESULT FOR PRINTING, STORE IT AT *TO*.                                 PUC          890          I
          -FC5A150
 PUC      *                                                                                PUC          891          I
          -FC5A150
 PUC      *         DECML  FROM,TO                                                         PUC          892          I
          -FC5A150
 PUC      *                                                                                PUC          893          I
          -FC5A150
 PUC      *         USES   X1,X4,X6,A1                                                     PUC          894          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          -FC5A150
 PUC      *         CALLS  CDD                                                             PUC          895          I
          -FC5A150
 PUC                                                                                       PUC          896          I
          -FC5A150
 PUC                                                                                       PUC          897          I
          -FC5A150
 PUC       DECML    MACRO  FROM,TO                                                         PUC          898          I
          -FC5A150
 PUC                =A1    FROM                                                            PUC          899          I
          -FC5A150
 PUC                CALL   CDD                                                             PUC          900          I
          -FC5A150
 PUC                LX4    -2*CHAR                                                         PUC          901          I
          -FC5A150
 PUC                BX6    X4                                                              PUC          902          I
          -FC5A150
 PUC                SA6    TO                                                              PUC          903          I
          -FC5A150
 PUC       DECML    ENDM                                                                   PUC          904          I
          -FC5A150
 PUC      *CALL     COMFECB            EVALUATE CONSTANT SUBSTRING AND BIAS                PUC          905     A     
 PUC       GCL      SPACE   4,10                                                           PUC          906     A     
 PUC      **        GCL - GET CHARACTER LENGTH.                                            PUC          907     A     
 PUC      *                                                                                PUC          908     A     
 PUC      *         ENTRY  X1 = ORD, SYMTAB ORDINAL                                        PUC          909     A     
 PUC      *                                                                                PUC          910     A     
 PUC      *         EXIT   X1 = WC.CLEN[ORD]                                               PUC          911     A     
 PUC      *                X2 = -0 IF CTYP=1, ELSE +0                                      PUC          912     A     
 PUC      *                X3 = VD. TAG IF CTYP=1, ELSE 0                                  PUC          913     A     
 PUC      *                                                                                PUC          914     A     
 PUC      *         USES   A2,A3, X0,X2,X1,X3,X5, B2                                       PUC          915     A     
 PUC                                                                                       PUC          916     A     
 PUC       GCL      SUBR   =                                                               PUC          917     A     
 PUC                LX2    B1,X1                                                           PUC          918     A     
 PUC                SA3    =XT.SYM                                                         PUC          919     A     
 PUC                IX5    X1+X2                                                           PUC          920     A     
 PUC                MX0    -WC.CLENL                                                       PUC          921     A     
 PUC                SB2    X3+WC.W                                                         PUC          922     A     
 PUC                SA2    B2+X5                                                           PUC          923     A     
 PUC                LX2    -WC.CLENP                                                       PUC          924     A     
 PUC                BX1    -X0*X2                                                          PUC          925     A     
 PUC                SA3    =XS=VD                                                          PUC          926     A     
 PUC                LX2    WC.CLENP-1-WC.CTYPP                                             PUC          927     A     
 PUC                AX2    59                                                              PUC          928     A     
 PUC                BX3    X2*X3                                                           PUC          929     A     
 PUC                EQ     EXIT.                                                           PUC          930     A     
 PUC                TITLE  PROGRAM UNIT SUPPORT ROUTINES                                   PUC          931     A     
 PUC       LUS      SPACE  4,10                                                            PUC          932          I
          -FC5A150
 PUC      **        LUS -  LIST UNIT STATISTICS.                                           PUC          933          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      *                                                                                PUC          934          I
          -FC5A150
 PUC      *         ENTRY  (X1) = MAX CORE REQUIRED BY CURRENT PROGRAM UNIT.               PUC          935          I
          -FC5A150
 PUC      *                                                                                PUC          936          I
          -FC5A150
 PUC      *         USES   A0-4,A6-7,  X0-7,  B1-2,B6.                                     PUC          937          I
          -FC5A150
 PUC      *         CALLS  PLINE,CDD,PIA,CPTIM,TIMER,OCTAL,DECML                           PUC          938          I
          -FC5A150
 PUC                                                                                       PUC          939          I
          -FC5A150
 PUC                                                                                       PUC          940          I
          -FC5A150
 PUC       LUS      SUBR   0           ENTRY/EXIT...                                       PUC          941          I
          -FC5A150
 PUC                SA2    WO.LOA                                                          PUC          942          I
          -FC5A150
 PUC                ZR     X2,EXIT.    IF LO=-A                                            PUC          943          I
          -FC5A150
 PUC                MX7    0                                                               PUC          944          I
          -FC5A150
 PUC                SA7    LUSTL                                                           PUC          945          I
          -FC5A150
 PUC                SA7    LUSTS       INITIALIZE COMMON LENGTH STORAGE CELLS              PUC          946          I
          -FC5A150
 PUC                BX6    X1                                                              PUC          947          I
          -FC5A150
 PUC                SA6    LUSD+3      SAVE X1                                             PUC          948          I
          -FC5A150
 PUC                SA1    LCNT                                                            PUC          949          I
          -FC5A150
 PUC                SA2    CP.PS                                                           PUC          950          I
          -FC5A107  -FC5A150
 PUC                SA2    CO.PS                                                           FC5A107       10          I
          -FC5A150
 PUC                IX1    X1-X2                                                           PUC          951          I
          -FC5A150
 PUC                SB2    X1+NUMLINES                                                     PUC          952          I
          -FC5A150
 PUC                MI     B2,LUS10    IF SUFFICIENT ROOM                                  PUC          953          I
          -FC5A150
 PUC                SX7    X2+B1                                                           PUC          954          I
          -FC5A150
 PUC                SA7    A1                                                              PUC          955          I
          -FC5A150
 PUC       LUS10    PLINE  LUSF,2,2    PRINT HEADING                                       PUC          956          I
          -FC5A150
 PUC                SB2    =10H                                                            PUC          957          I
          -FC5A150
 PUC                PLINE  B2,1        PRINT BLANK LINE                                    PUC          958          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       .TEST    IFEQ   TEST,ON     TEST MODE MESSAGES                                  PUC          959          I
          -FC5A150
 PUC                SA1    ALC=CNT     (X1) = NR OF *ALLOC*S                               PUC          960          I
          -FC5A150
 PUC                CALL   CDD         CONVERT BINARY TO DECIMAL DPC                       PUC          961          I
          -FC5A150
 PUC                LX4    -2*CHAR                                                         PUC          962          I
          -FC5A150
 PUC                BX6    X4                                                              PUC          963          I
          -FC5A150
 PUC                SA6    A1                                                              PUC          964          I
          -FC5A150
 PUC                PLINE  LUSAL,5     PRINT NR OF ALLOCS                                  PUC          965          I
          -FC5A150
 PUC                                                                                       PUC          966          I
          -FC5A150
 PUC                SA1    MOVES                                                           PUC          967          I
          -FC5A150
 PUC                ZR     X1,LUS20    IF NO TABLE CRASHES                                 PUC          968          I
          -FC5A150
 PUC                CALL   CDD                                                             PUC          969          I
          -FC5A150
 PUC                LX4    -2*CHAR     FORMAT PROPERLY                                     PUC          970          I
          -FC5A150
 PUC                BX6    X4                                                              PUC          971          I
          -FC5A150
 PUC                SA6    A1                                                              PUC          972          I
          -FC5A150
 PUC                PLINE  LUSTC,5      PRINT TABLE CRASHES                                PUC          973          I
          -FC5A150
 PUC       LUS20    DECML  PARSLEN,PARSLEN+B1   CONVERT PARSLEN TO DECML DPC               PUC          974          I
          -FC5A150
 PUC                OCTAL  PARSLEN,PARSLEN   CONVERT IT TO  OCTAL DPC                      PUC          975          I
          -FC5A150
 PUC                PLINE  LUSPF,5      OUTPUT THE MESSAGE                                 PUC          976          I
          -FC5A150
 PUC       .TEST    ENDIF                                                                  PUC          977          I
          -FC5A150
 PUC                                                                                       PUC          978          I
          -FC5A150
 PUC      **        PIECE TOGETHER AND OUTPUT PROGRAM UNIT LENGTH MESSAGE                  PUC          979          I
          -FC5A150
 PUC                                                                                       PUC          980          I
          -FC5A150
 PUC                OCTAL  SUM.LBT,LUSA+3   FORMAT AND PLACE OCTAL CONVERSION              PUC          981          I
          -FC5A150
 PUC                DECML SUM.LBT,LUSA+4   SAME FOR DECML CONVERSION                       PUC          982          I
          -FC5A150
 PUC                PLINE  LUSA,5                                                          PUC          983          I
          -FC5A150
 PUC                                                                                       PUC          984          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      **        PIECE TOGETHER AND OUTPUT BLANK COMMON LENGTH MESSAGE                  PUC          985          I
          -FC5A150
 PUC                                                                                       PUC          986          I
          -FC5A150
 PUC                SA1    BLNKCOM                                                         PUC          987          I
          -FC5A150
 PUC                ZR     X1,LUS35    IF NO BLANK COMMON                                  PUC          988          I
          -FC5A150
 PUC                SX1    X1-2                                                            PUC          989          I
          -FC5A150
 PUC                SA2    T.BLKS                                                          PUC          990          I
          -FC5A150
 PUC                SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                                PUC          991          I
          -FC5A150
 PUC                IX3    X2+X1       ADDRESS OF BLANK COMMON                             PUC          992          I
          -FC5A150
 PUC                SA4    X3+CB.W     FETCH WORD B                                        PUC          993          I
          -FC5A150
 PUC                BX5    X4          KEEP EXTRA COPY                                     PUC          994          I
          -FC5A150
 PUC                MX0    -CB.BLENL                                                       PUC          995          I
          -FC5A150
 PUC                LX4    -CB.BLENP                                                       PUC          996          I
          -FC5A150
 PUC                BX1    -X0*X4      ISOLATE BLOCK LENGTH                                PUC          997          I
          -FC5A150
 PUC                BX6    X1                                                              PUC          998          I
          -FC5A150
 PUC                SA6    LUSTS      SAVE COPY FOR LATER USE                              PUC          999          I
          -FC5A150
 PUC                HX5    CB.LCM                                                          PUC         1000          I
          -FC5A150
 PUC                SB5    LUSB                                                            PUC         1001          I
          -FC5A150
 PUC                SB6    B5+3        ASSUME BLOCK IS CM/SCM                              PUC         1002          I
          -FC5A150
 PUC                PL     X5,LUS30    IF ASSUMPTION CORRECT...                            PUC         1003          I
          -FC5A150
 PUC                SB5    LUSBB                                                           PUC         1004          I
          -FC5A150
 PUC                SB6    B5+3        IF NOT                                              PUC         1005          I
          -FC5A150
 PUC                SA6    LUSTL                                                           PUC         1006          I
          -FC5A150
 PUC                MX6    0                                                               PUC         1007          I
          -FC5A150
 PUC                SA6    LUSTS                                                           PUC         1008          I
          -FC5A150
 PUC       LUS30    BX3    X1          SAVE COPY OF LENGTH                                 PUC         1009          I
          -FC5A150
 PUC                OCTAL  A1,B6                                                           PUC         1010          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                BX1    X3                                                              PUC         1011          I
          -FC5A150
 PUC                DECML  A1,B6+B1                                                        PUC         1012          I
          -FC5A150
 PUC                PLINE  B5,5      OUTPUT MESSAGE                                        PUC         1013          I
          -FC5A150
 PUC                                                                                       PUC         1014          I
          -FC5A150
 PUC      **        PIECE TOGETHER AND OUTPUT LABELED COMMON LENGTH MESSAGE                PUC         1015          I
          -FC5A150
 PUC                                                                                       PUC         1016          I
          -FC5A150
 PUC       LUS35    SA1    COMSIZ                                                          PUC         1017          I
          -FC5A150
 PUC                SA2    LUSTS                                                           PUC         1018          I
          -FC5A150
 PUC                IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                        PUC         1019          I
          -FC5A150
 PUC                ZR     X1,LUS40    IF NO SCM COMMON                                    PUC         1020          I
          -FC5A150
 PUC                BX3    X1          PIA WONT DESTROY THIS REGISTER                      PUC         1021          I
          -FC5A150
 PUC                OCTAL  A1,LUSC+3                                                       PUC         1022          I
          -FC5A150
 PUC                BX1    X3                                                              PUC         1023          I
          -FC5A150
 PUC                DECML  A1,LUSC+4                                                       PUC         1024          I
          -FC5A150
 PUC                PLINE  LUSC,5                                                          PUC         1025          I
          -FC5A150
 PUC       LUS40    SA1    COMSIZ+B1                                                       PUC         1026          I
          -FC5A150
 PUC                SA2    LUSTL                                                           PUC         1027          I
          -FC5A150
 PUC                IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                        PUC         1028          I
          -FC5A150
 PUC                ZR     X1,LUS50    IF NO LCM COMMON                                    PUC         1029          I
          -FC5A150
 PUC                BX3    X1          PIA WONT DESTROY THIS REG                           PUC         1030          I
          -FC5A150
 PUC                OCTAL  A1,LUSCC+3                                                      PUC         1031          I
          -FC5A150
 PUC                BX1    X3                                                              PUC         1032          I
          -FC5A150
 PUC                DECML  A1,LUSCC+4                                                      PUC         1033          I
          -FC5A150
 PUC                PLINE  LUSCC,5                                                         PUC         1034          I
          -FC5A150
 PUC                                                                                       PUC         1035          I
          -FC5A150
 PUC      **        PIECE TOGETHER AND OUTPUT STORAGE USED MESSAGE                         PUC         1036          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       PUC         1037          I
          -FC5A150
 PUC       LUS50    DECML  LUSD+3,LUSD+4                                                   PUC         1038          I
          -FC5A150
 PUC                OCTAL  LUSD+3,LUSD+3                                                   PUC         1039          I
          -FC5A150
 PUC                PLINE  LUSD,5                                                          PUC         1040          I
          -FC5A150
 PUC                                                                                       PUC         1041          I
          -FC5A150
 PUC      **        PIECE TOGETHER AND OUTPUT CP TIME MESSAGE                              PUC         1042          I
          -FC5A150
 PUC                                                                                       PUC         1043          I
          -FC5A150
 PUC                SA2    TIME1       PROGRAM UNIT START TIME                             PUC         1044          I
          -FC5A150
 PUC                CALL   CPTIM       ELAPSED TIME F10.3 FORMAT IN X6                     PUC         1045          I
          -FC5A150
 PUC                BX7    X6                                                              PUC         1046          I
          -FC5A150
 PUC                CALL   TIMER                                                           PUC         1047          I
          -FC5A150
 PUC                SA6    TIME1       RESET START TIME                                    PUC         1048          I
          -FC5A150
 PUC                BX6    X7                                                              PUC         1049          I
          -FC5A150
 PUC                MX7    0                                                               PUC         1050          I
          -FC5A150
 PUC                SA7    LUSE+2                                                          PUC         1051          I
          -FC5A150
 PUC                SA7    A7+B1                                                           PUC         1052          I
          -FC5A150
 PUC                SA7    A7+B1       ERASE PREVIOUS MESSAGE                              PUC         1053          I
          -FC5A150
 PUC                MX0    3*CHAR                                                          PUC         1054          I
          -FC5A150
 PUC                BX7    X0*X6       GRAB 3 LEFTMOST CHARACTERS                          PUC         1055          I
          -FC5A150
 PUC                LX7    3*CHAR                                                          PUC         1056          I
          -FC5A150
 PUC                SA1    =7L                                                             PUC         1057          I
          -FC5A150
 PUC                BX7    X7+X1                                                           PUC         1058          I
          -FC5A150
 PUC                SA7    LUSE+2      STORE THEM IN MESSAGE                               PUC         1059          I
          -FC5A150
 PUC                BX6    -X0*X6      GRAB LAST 7 CHARACTERS                              PUC         1060          I
          -FC5A150
 PUC                LX6    3*CHAR                                                          PUC         1061          I
          -FC5A150
 PUC                SA1    =3R SE                                                          PUC         1062          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                BX6    X6+X1                                                           PUC         1063          I
          -FC5A150
 PUC                SA6    A7+B1       STORE THEM IN MESSAGE                               PUC         1064          I
          -FC5A150
 PUC                SA1    =10HCONDS                                                       PUC         1065          I
          -FC5A150
 PUC                BX6    X1                                                              PUC         1066          I
          -FC5A150
 PUC                SA6    A6+B1       COMPLETE THE MESSAGE                                PUC         1067          I
          -FC5A150
 PUC                PLINE  LUSE,5      OUTPUT IT                                           PUC         1068          I
          -FC5A150
 PUC                EQ     EXIT.       EXIT...                                             PUC         1069          I
          -FC5A150
 PUC                                                                                       PUC         1070          I
          -FC5A150
 PUC                                                                                       PUC         1071          I
          -FC5A150
 PUC      **        MESSAGES AND CONSTANTS NEEDED TO PRODUCE STATISTICS OUTPUT             PUC         1072          I
          -FC5A150
 PUC                                                                                       PUC         1073          I
          -FC5A150
 PUC                                                                                       PUC         1074          I
          -FC5A150
 PUC       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        PUC         1075          I
          -FC5A150
 PUC       LUSAL    DIS    4,   NR OF ALLOCS                                               PUC         1076          I
          -FC5A150
 PUC       ALC=CNT  CONENT 0                                                               PUC         1077          I
          -FC5A150
 PUC       LUSTC    DIS    4,   TABLE CRASHES                                              PUC         1078          I
          -FC5A150
 PUC       MOVES    CONENT 0                                                               PUC         1079          I
          -FC5A150
 PUC       LUSPF    DIS    3,   LARGEST PARSED FILE LENGTH                                 PUC         1080          I
          -FC5A150
 PUC       PARSLEN  CONENT 0                                                               PUC         1081          I
          -FC5A150
 PUC                CON    0                                                               PUC         1082          I
          -FC5A150
 PUC       .TEST    ENDIF                                                                  PUC         1083          I
          -FC5A150
 PUC                                                                                       PUC         1084          I
          -FC5A150
 PUC       LUSA     DIS    3,   PROGRAM-UNIT LENGTH                                        PUC         1085          I
          -FC5A150
 PUC               BSS    2                                                                PUC         1086          I
          -FC5A150
 PUC                                                                                       PUC         1087          I
          -FC5A150
 PUC       LUSB     DIS    3,   "SCM" BLANK COMMON LENGTH                                  PUC         1088          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                BSS    2                                                               PUC         1089          I
          -FC5A150
 PUC       LUSBB    DIS    3,   "LCM" BLANK COMMON LENGTH                                  PUC         1090          I
          -FC5A150
 PUC                BSS    2                                                               PUC         1091          I
          -FC5A150
 PUC                                                                                       PUC         1092          I
          -FC5A150
 PUC       LUSC     DIS    3,   "SCM" LABELLED COMMON LENGTH                               PUC         1093          I
          -FC5A150
 PUC                BSS    2                                                               PUC         1094          I
          -FC5A150
 PUC       LUSCC    DIS    3,   "LCM" LABELLED COMMON LENGTH                               PUC         1095          I
          -FC5A150
 PUC                BSS    2                                                               PUC         1096          I
          -FC5A150
 PUC                                                                                       PUC         1097          I
          -FC5A150
 PUC       LUSD     DIS    3,   "SCM" STORAGE USED                                         PUC         1098          I
          -FC5A150
 PUC                BSS    2                                                               PUC         1099          I
          -FC5A150
 PUC                                                                                       PUC         1100          I
          -FC5A150
 PUC       LUSE     DIS    2,   COMPILE TIME                                               PUC         1101          I
          -FC5A150
 PUC                BSS    3                                                               PUC         1102          I
          -FC5A150
 PUC                                                                                       PUC         1103          I
          -FC5A150
 PUC       LUSF     DIS    2, --STATISTICS--                                               PUC         1104          I
          -FC5A150
 PUC                                                                                       PUC         1105          I
          -FC5A150
 PUC       .TEST    IFEQ   TEST,ON                                                         PUC         1106          I
          -FC5A150
 PUC       NUMLINES EQU    12                                                              PUC         1107          I
          -FC5A150
 PUC       .TEST    ELSE                                                                   PUC         1108          I
          -FC5A150
 PUC       NUMLINES EQU    10                                                              PUC         1109          I
          -FC5A150
 PUC       .TEST    ENDIF                                                                  PUC         1110          I
          -FC5A150
 PUC       LUSTS   BSSZ   1           TEMPORARY FOR LENGTH SCM BLANK COMMON                PUC         1111          I
          -FC5A150
 PUC       LUSTL   BSSZ   1           TEMPORARY FOR LENGTH LCM BLANK COMMON                PUC         1112          I
          -FC5A150
 PUC                TITLE  PROGRAM UNIT SUPPORT ROUTINES                                   PUC         1113     A     
 PUC       GMC      SPACE  4,10                                                            PUC         1114     A     
 PUC      **        GMC - GET MORE CORE.                                                   PUC         1115     A     
 PUC      *                                                                                PUC         1116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      *         IF THE CURRENT FL + INCREMENT IS .LE. THE MAX FL FOR                   PUC         1117     A     
 PUC      *         THIS JOBSTEP, THE REQUEST IS HONORED. IF THE REQUEST                   PUC         1118     A     
 PUC      *         IS GREATER THAN MAX FL, THEN MAX FL IS REQUESTED. IF                   PUC         1119     A     
 PUC      *         MAX FL = CURRENT FL THE CALLER IS INFORMED. IN ANY                     PUC         1120     A     
 PUC      *         CASE, CP.AFLS AND CP.NFLS ARE UPDATED.                                 PUC         1121     A     
 PUC      *                                                                                PUC         1122     A     
 PUC      *         ENTRY  (X6) = INCREMENT                                                PUC         1123     A     
 PUC      *                                                                                PUC         1124     A     
 PUC      *         EXIT   (B7) = -1 IF MAXFL WAS REACHED THIS TIME                        PUC         1125     A     
 PUC      *                        0 IF CURRENT FL ALREADY WAS MAXFL                       PUC         1126     A     
 PUC      *                       +1 IF REQUESTED INCREMENT HONORED                        PUC         1127     A     
 PUC      *                (X6) = ACTUAL FL                                                PUC         1128     A     
 PUC      *                (X7) = NOMINAL FL (ACTUAL - 10)                                 PUC         1129     A     
 PUC      *                (CP.AFLS) = ACTUAL FL                                           PUC         1130     A     
 PUC      *                (CP.NFLS) = NOMINAL FL (ACTUAL - 10)                            PUC         1131     A     
 PUC      *                                                                                PUC         1132     A     
 PUC      *         CALLS  MEMORY, PCS                                                     PUC         1133     A     
 PUC                                                                                       PUC         1134     A     
 PUC                                                                                       PUC         1135     A     
 PUC       GMC      SUBR   =           ...ENTRY/EXIT...                                    PUC         1136     A     
 PUC                SA1    MAX.FL      MAX FL FOR JOB STEP                                 PUC         1137     A     
 PUC                SA3    CP.AFLS     ACTUAL CURRENT FL                                   PUC         1138     A     
 PUC                AX1    30                                                              PUC         1139     A     
 PUC                IX6    X3+X6       CURRENT FL + INCREMENT                              PUC         1140     A     
 PUC                =B7    1           FLAG HONORED REQUEST                                PUC         1141     A     
 PUC                IX4    X1-X6       MAXFL - NEWFL                                       PUC         1142     A     
 PUC                PL     X4,GMC10    IF NEWFL .LE. MAXFL                                 PUC         1143     A     
 PUC                                                                                       PUC         1144     A     
 PUC                SB7    -1          FLAG MAXFL REQUESTED                                PUC         1145     A     
 PUC                IX2    X3-X1       CURRENT FL - MAXFL                                  PUC         1146     A     
 PUC                PL     X2,GMC20    IF MAXFL .LE. CURRENT FL, DIE                       PUC         1147     A     
 PUC                                                                                       PUC         1148     A     
 PUC                BX6    X1          NEWFL = MAXFL                                       PUC         1149     A     
 PUC       GMC10    LX6    30                                                              PUC         1150     A     
 PUC                SA6    GT1                                                             PUC         1151     A     
 PUC                MEMORY SCM,GT1,RCL                                                     PUC         1152     A     
 PUC                                                                                       PUC         1153     A     
 PUC       .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                        PUC         1154     A     
 PUC                RJ     PCS         PRINT CORE STATISTICS                               PUC         1155     A     
 PUC                                                                                       PUC         1156     A     
 PUC                SA1    GT1                                                             PUC         1157     A     
 PUC                AX1    30                                                              PUC         1158     A     
 PUC                BX6    X1                                                              PUC         1159     A     
 PUC                SA6    CP.AFLS     SET ACTUAL FL                                       PUC         1160     A     
 PUC                SX6    X6-10                                                           PUC         1161     A     
 PUC                SA6    CP.NFLS     SET NOMINAL FL                                      PUC         1162     A     
 PUC                EQ     EXIT.       EXIT...                                             PUC         1163     A     
 PUC                                                                                       PUC         1164     A     
 PUC      *         HERE IF NO MORE ROOM.                                                  PUC         1165     A     
 PUC                                                                                       PUC         1166     A     
 PUC       GMC20    =B7    0           FLAG NO MORE ROOM                                   PUC         1167     A     
 PUC                SA1    CP.AFLS                                                         PUC         1168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                BX6    X1          SET ACTUAL FL                                       PUC         1169     A     
 PUC                SA2    CP.NFLS                                                         PUC         1170     A     
 PUC                BX7    X2          SET NOMINAL FL                                      PUC         1171     A     
 PUC                EQ     EXIT.       EXIT...                                             PUC         1172     A     
 PUC       LJS      SPACE  4,10                                                            PUC         1173     A     
 PUC      **        LJS -  LEFT JUSTIFY (AND REFORMAT) STATEMENT LABEL.                    PUC         1174     A     
 PUC      *                                                                                PUC         1175     A     
 PUC      *         ENTRY  (X5) = DPC STATEMENT LABEL (0RNNNNN).                           PUC         1176     A     
 PUC      *                                                                                PUC         1177     A     
 PUC      *         EXIT   (X6) = DPC STATEMENT LABEL (0H.NNNNN).                          PUC         1178     A     
 PUC      *                                                                                PUC         1179     A     
 PUC      *         USES   A1,A2,A3,A6  B2,B3,B7  X1,X2,X3,X5,X6                           PUC         1180     A     
 PUC      *                                                                                PUC         1181     A     
 PUC      *         CALLS  SFN.                                                            PUC         1182     A     
 PUC                                                                                       PUC         1183     A     
 PUC                                                                                       PUC         1184     A     
 PUC       LJS      SUBR   =           ...ENTRY/EXIT...                                    PUC         1185     A     
 PUC                                                                                       PUC         1186     A     
 PUC                IFEQ   TEST,ON,1                                                       PUC         1187     A     
 PUC                ZR     X5,"BLOWUP" IF ZERO -- COMPILER ERROR                           PUC         1188     A     
 PUC                                                                                       PUC         1189     A     
 PUC                MX2    CHAR                                                            PUC         1190     A     
 PUC                SX3    2R.*-1R*    (X3) = 1R. SHIFTED 6                                PUC         1191     A     
 PUC       LJS4     BX6    X2*X5                                                           PUC         1192     A     
 PUC                LX5    CHAR                                                            PUC         1193     A     
 PUC                ZR     X6,LJS4     IF (X5) NOT LEFT JUSTIFIED                          PUC         1194     A     
 PUC                BX1    X5+X3       PREFIX PERIOD TO LABEL                              PUC         1195     A     
 PUC                LX1    -2*CHAR     0L.NNNNN  FORMAT                                    PUC         1196     A     
 PUC                CALL   SFN         SPACE FILL NAME                                     PUC         1197     A     
 PUC                EQ     EXIT.                                                           PUC         1198     A     
 PUC       MTD      SPACE  4,10                                                            PUC         1199     A     
 PUC      **        MTD -  MOVE ALL TABLES TO LOW CORE.                                    PUC         1200     A     
 PUC      *                                                                                PUC         1201     A     
 PUC      *         PACKS UP ALL TABLES AT LOWER END OF MANAGED SPACE.                     PUC         1202     A     
 PUC      *                                                                                PUC         1203     A     
 PUC      *         ENTRY  (X0) = ADDRESS TO PLACE LOWEST TABLE                            PUC         1204     A     
 PUC      *                                                                                PUC         1205     A     
 PUC      *         EXIT   (X0) = LWA+1 OF LAST TABLE                                      PUC         1206     A     
 PUC      *                                                                                PUC         1207     A     
 PUC      *         USES   A1,2,4,6,7  X0-4,6,7  B3,7                                      PUC         1208     A     
 PUC      *                                                                                PUC         1209     A     
 PUC      *         CALLS  MOVE                                                            PUC         1210     A     
 PUC                                                                                       PUC         1211     A     
 PUC                                                                                       PUC         1212     A     
 PUC       MTD      SUBR   =           ...ENTRY/EXIT...                                    PUC         1213     A     
 PUC                SB3    N.TABLE-1                                                       PUC         1214     A     
 PUC                SB3    -B3                                                             PUC         1215     A     
 PUC                                                                                       PUC         1216     A     
 PUC       MTD1     SX1    B3+N.TABLE-1      NEXT ORDINAL IN TABLE VECTOR                  PUC         1217     A     
 PUC                SA2    X1+BASES    (X2) = FWA OF CURRENT TABLE                         PUC         1218     A     
 PUC                SA1    X1+SIZES    (X1) = LENGTH OF CURRENT TABLE                      PUC         1219     A     
 PUC                LX3    X0          (X3) = NEW FWA OF CURRENT TABLE                     PUC         1220     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                IX0    X0+X1       (X0) = FUTURE FWA OF NEXT TABLE                     PUC         1221     A     
 PUC                LX7    X3                                                              PUC         1222     A     
 PUC                SA7    A2          UPDATE FWA OF CURRENT TABLE                         PUC         1223     A     
 PUC                SB3    B3+1        POINT TO NEXT HIGHER TABLE                          PUC         1224     A     
 PUC                MOVE   X1,X2,X3    MOVE CURRENT TABLE DOWN                             PUC         1225     A     
 PUC                NZ     B3,MTD1     IF MORE TABLES TO MOVE                              PUC         1226     A     
 PUC                EQ     EXIT.       DONE...                                             PUC         1227     A     
 PUC       MTU      SPACE  4,10                                                            PUC         1228     A     
 PUC      **        MTU - MOVE ALL TABLES TO HIGH CORE.                                    PUC         1229     A     
 PUC      *                                                                                PUC         1230     A     
 PUC      *         PACKS ALL TABLES TOWARD HIGHER END OF MANAGED SPACE.                   PUC         1231     A     
 PUC      *                                                                                PUC         1232     A     
 PUC      *         ENTRY  (X0) = LWA OF NEW TABLE AREA                                    PUC         1233     A     
 PUC      *                                                                                PUC         1234     A     
 PUC      *         EXIT   (X0) = FWA-1 OF LOWEST TABLE                                    PUC         1235     A     
 PUC      *                                                                                PUC         1236     A     
 PUC      *         USES   A1,2,4,6,7 X0-4,6,7 B3,7                                        PUC         1237     A     
 PUC      *                                                                                PUC         1238     A     
 PUC      *         CALLS  MOVE                                                            PUC         1239     A     
 PUC                                                                                       PUC         1240     A     
 PUC                                                                                       PUC         1241     A     
 PUC       MTU      SUBR   =           ...ENTRY/EXIT...                                    PUC         1242     A     
 PUC                SB3    N.TABLE-1   NUMBER OF TABLES TO MOVE                            PUC         1243     A     
 PUC                                                                                       PUC         1244     A     
 PUC       MTU1     SA2    B3+BASES-1  (X2) = FWA OF CURRENT TABLE                         PUC         1245     A     
 PUC                SA1    B3+SIZES-1  (X1) = LENGTH OF CURRENT TABLE                      PUC         1246     A     
 PUC                IX0    X0-X1       (X0) = FUTURE LWA OF NEXT TABLE                     PUC         1247     A     
 PUC                SX3    X0+1        (X3) = NEW FWA OF CURRENT TABLE                     PUC         1248     A     
 PUC                LX7    X3                                                              PUC         1249     A     
 PUC                SA7    A2          UPDATE FWA OF CURRENT TABLE                         PUC         1250     A     
 PUC                =B3    B3-1        POIN TO NEXT LOWER TABLE                            PUC         1251     A     
 PUC                MOVE   X1,X2,X3    MOVE CURRENT TABLE UP                               PUC         1252     A     
 PUC                NZ     B3,MTU1     IF MOVE TABLES TO MOVE                              PUC         1253     A     
 PUC                EQ     EXIT.       DONE...                                             PUC         1254     A     
 PUC       PES      SPACE  4,10                                                            F1037F5      204     A     
 PUC      **        PES - PRINT ERROR SUMMARY.                                             F1037F5      205     A     
 PUC      *                                                                                F1037F5      206     A     
 PUC      *         SENDS SUMMARIES OF THE VARIOUS ERROR TYPES                             F1037F5      207     A     
 PUC      *         THAT OCCURED IN THE CURRENT PROGRAM UNIT TO                            F1037F5      208     A     
 PUC      *         THE DAYFILE AND THE CONSOLE.                                           F1037F5      209     A     
 PUC      *                                                                                F1037F5      210     A     
 PUC      *         ENTRY  (X5) = STARTING OFFSET INTO *ERRTYP* .                          F1037F5      211     A     
 PUC      *                (X6) = ENDING OFFSET INTO *ERRTYP* .                            F1037F5      212     A     
 PUC      *                                                                                F1037F5      213     A     
 PUC      *         EXIT   ERROR SUMMARIES OUTPUT.                                         F1037F5      214     A     
 PUC      *                                                                                F1037F5      215     A     
 PUC      *         CALLS  CDD,MESSAGE,PLINE.                                              F1037F5      216     A     
 PUC      *                                                                                F1037F5      217     A     
 PUC      *         USES   ALL REGISTERS.                                                  F1037F5      218     A     
 PUC                                                                                       F1037F5      219     A     
 PUC                                                                                       F1037F5      220     A     
 PUC       PES      SUBR               ENTRY/EXIT...                                       F1037F5      221     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                SA6    PESA        PRESERVE ENDING OFFSET                              F1037F5      222     A     
 PUC                                                                                       F1037F5      223     A     
 PUC       PES10    SA1    ERR=A+X5    X1 = ERROR COUNT THIS LEVEL                         F1037F5      224     A     
 PUC                ZR     X1,PES30    IF NO ERRORS THIS LEVEL                             F1037F5      225     A     
 PUC                SB6    X1          SAVE NUMBER OF ERRORS                               F1037F5      226     A     
 PUC                CALL   CDD         CONVERT TO DPC                                      F1037F5      227     A     
 PUC                LX6    CHAR                                                            F1037F5      228     A     
 PUC                SA2    X5+ERRTYP   X2 = ERROR TYPE INFO                                F1037F5      229     A     
 PUC                AX2    18                                                              F1037F5      230     A     
 PUC                SA1    X2          ERROR TYPE DPC                                      F1037F5      231     A     
 PUC                SA6    LINEBUF                                                         F1037F5      232     A     
 PUC                SA3    =20L ERROR IN  ERRORS IN                                        F1037F5      233     A     
 PUC                SA2    IDENT                                                           F1037F5      234     A     
 PUC                BX7    X1                                                              F1037F5      235     A     
 PUC                LE     B6,B1,PES20 IF ONLY ONE ERROR                                   F1037F5      236     A     
 PUC                =A3    A3+1                                                            F1037F5      237     A     
 PUC                                                                                       F1037F5      238     A     
 PUC       PES20    =A7    A6+1        +1 = (ERROR TYPE DPC)                               F1037F5      239     A     
 PUC                SX1    1R                                                              F1037F5      240     A     
 PUC                LX6    X3                                                              F1037F5      241     A     
 PUC                BX7    X2+X1                                                           F1037F5      242     A     
 PUC                =A6    A7+1        +2 = ERROR(S) IN                                    F1037F5      243     A     
 PUC                LX7    -CHAR                                                           F1037F5      244     A     
 PUC                =A7    A6+1        +3 = (IDENT)                                        F1037F5      245     A     
 PUC                MESSAGE  LINEBUF,,RCL                                                  F1037F5      246     A     
 PUC                PLINE  LINEBUF,4,1                                                     F1037F5      247     A     
 PUC                                                                                       F1037F5      248     A     
 PUC       PES30    SA1    PESA                                                            F1037F5      249     A     
 PUC                =X5    X5+1                                                            F1037F5      250     A     
 PUC                IX6    X1-X5                                                           F1037F5      251     A     
 PUC                PL     X6,PES10    IF MORE ERROR TYPES                                 F1037F5      252     A     
 PUC                EQ     EXIT.                                                           F1037F5      253     A     
 PUC                                                                                       F1037F5      254     A     
 PUC       PESA     EQU    SCR         PRESERVE LOOP LIMIT HERE                            F1037F5      255     A     
 PUC       PIA      SPACE  4,10                                                            PUC         1255     A     
 PUC      **        PIA - PROCESS INSTRUCTION ADDRESS.                                     PUC         1256     A     
 PUC      *                                                                                PUC         1257     A     
 PUC      *                CONVERTS A BINARY NUMBER TO OCTAL DPC WITH LEADING              PUC         1258     A     
 PUC      *         ZERO SUPPRESSION.                                                      PUC         1259     A     
 PUC      *                                                                                PUC         1260     A     
 PUC      *         NOTE-- INTENDED FOR CONVERTING A NUMBER WITH .LE. TO 6 BINARY          PUC         1261     A     
 PUC      *         (3 BIT) DIGITS. NO ERROR CONDITION IS FLAGGED IF .GT. 6 DIGITS         PUC         1262     A     
 PUC      *         ARE CONVERTED.                                                         PUC         1263     A     
 PUC      *                                                                                PUC         1264     A     
 PUC      *         ENTRY  (X1) = BINARY NR TO BE CONVERTED                                PUC         1265     A     
 PUC      *                                                                                PUC         1266     A     
 PUC      *         EXIT   (X2) = NR CONVERTED TO OCTAL DPC, RIGHT JUSTIFIED TO            PUC         1267     A     
 PUC      *                         BIT 18, WITH BLANK FILL--  (.=BLANK(55B))              PUC         1268     A     
 PUC      *                         CHAR POS 10 9 8 7 6 5 4 3 2 1                          PUC         1269     A     
 PUC      *                         CONV NR   . 1 2 3 4 5 6 . . .                          PUC         1270     A     
 PUC      *                (X6) = SAME AS ABOVE WITH -B- SUFFIX--                          PUC         1271     A     
 PUC      *                                   . 1 2 3 4 5 6 B . .                          PUC         1272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      *                (B7) = NR OF DIGITS*6 CONVERTED + 2*6  (NOT INCLUDING           PUC         1273     A     
 PUC      *                         -B- SUFFIX). TO LEFT JUSTIFY NR IN X2 OR X6 --         PUC         1274     A     
 PUC      *                SB7    B7-9*CHAR                                                PUC         1275     A     
 PUC      *                AX2    X2,B7                                                    PUC         1276     A     
 PUC      *                                                                                PUC         1277     A     
 PUC      *         USES   X - 1,2,6,7                                                     PUC         1278     A     
 PUC      *                A - 2                                                           PUC         1279     A     
 PUC      *                B - 7                                                           PUC         1280     A     
 PUC      *                                                                                PUC         1281     A     
 PUC      *         CALLS  NONE                                                            PUC         1282     A     
 PUC                                                                                       PUC         1283     A     
 PUC       PIA      SUBR   =           ** ENTRY/EXIT **                                    PUC         1284     A     
 PUC                SA2    =10H                                                            PUC         1285     A     
 PUC                SB7    2*CHAR                                                          PUC         1286     A     
 PUC                                                                                       PUC         1287     A     
 PUC       PIA2     MX7    -3                                                              PUC         1288     A     
 PUC                SB7    B7+CHAR                                                         PUC         1289     A     
 PUC                BX6    -X7*X1                                                          PUC         1290     A     
 PUC                LX2    -CHAR                                                           PUC         1291     A     
 PUC                SX6    X6+1R0-1R                                                       PUC         1292     A     
 PUC                AX1    3                                                               PUC         1293     A     
 PUC                IX2    X2+X6                                                           PUC         1294     A     
 PUC                NZ     X1,PIA2     IF NOT FINISHED ASSEMBLING NR                       PUC         1295     A     
 PUC                LX2    X2,B7       (X2) = NR IN OCTAL DPC, RT JUST TO BIT 18           PUC         1296     A     
 PUC                SX1    1R -1RB                                                         PUC         1297     A     
 PUC                LX1    2*CHAR                                                          PUC         1298     A     
 PUC                IX6    X2-X1       (X6) = SAME AS (X2) W/ -B- SUFFIX                   PUC         1299     A     
 PUC                EQ     EXIT.                                                           PUC         1300     A     
 PUC       PCS      SPACE  4,10                                                            PUC         1301     A     
 PUC      **        PCS - PRINT CORE STATISTICS.                                           PUC         1302     A     
 PUC      *                                                                                PUC         1303     A     
 PUC      *         PRINT REQUESTED CORE EACH ALLOC MEMORY REQUEST.                        PUC         1304     A     
 PUC      *                                                                                PUC         1305     A     
 PUC      *         ENTRY  (GT1) = 30/FL, 30/UNUSED                                        PUC         1306     A     
 PUC      *                                                                                PUC         1307     A     
 PUC      *         USES   ALL BUT (B7).                                                   PUC         1308     A     
 PUC                                                                                       PUC         1309     A     
 PUC                                                                                       PUC         1310     A     
 PUC       .TEST    IFEQ   TEST,ON                                                         FC5A128      118     A     
 PUC       PCS      SUBR               ...ENTRY/EXIT...                                    PUC         1311     A     
 PUC                SA1    GT1                                                             PUC         1312     A     
 PUC                SX5    B7          REMEMBER (B7)                                       PUC         1313     A     
 PUC                AX1    30                                                              PUC         1314     A     
 PUC                CALL   COD         CONVERT OCTAL DIGITS                                PUC         1315     A     
 PUC                BX6    X4                                                              PUC         1316     A     
 PUC                SA6    PCSB                                                            PUC         1317     A     
 PUC                PLINE  PCSA,PCSC                                                       PUC         1318     A     
 PUC                SB7    X5          RESTORE (B7)                                        PUC         1319     A     
 PUC                EQ     EXIT.       EXIT...                                             PUC         1320     A     
 PUC                                                                                       PUC         1321     A     
 PUC       PCSA     DIS    3, -----    *         NEW FL IS                                 PUC         1322     A     
 PUC       PCSB     CON    0           FL                                                  PUC         1323     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       PCSC     EQU    *-PCSA                                                          PUC         1324     A     
 PUC       .TEST    ENDIF                                                                  FC5A128      119     A     
 PUC       WHL      SPACE  4,10                                                            PUC         1325     A     
 PUC      **        WHL - WRITE HEADER LINES.                                              PUC         1326     A     
 PUC      *                                                                                PUC         1327     A     
 PUC      *         USES   A1-A4,A6,A7                                                     PUC         1328     A     
 PUC      *                X1-X4,X6,X7                                                     PUC         1329     A     
 PUC      *                B1-B7                                                           PUC         1330     A     
 PUC                                                                                       PUC         1331     A     
 PUC                                                                                       PUC         1332     A     
 PUC       WHL      SUBR   0           ENTRY/EXIT...                                       PUC         1333     A     
 PUC                SA1    WOF=ERR                                                         PUC         1334     A     
 PUC                SX2    L.TITL                                                          PUC         1335          I
          -F1039  
 PUC                SX2    ERFO                                                            F1039         97     A     
 PUC                IX6    X1*X2                                                           PUC         1336     A     
 PUC                SA6    TTLOFF                                                          PUC         1337     A     
 PUC                SA2    PAGES+X1                                                        PUC         1338          I
          -FC5A164
 PUC                =X6    X2+1                                                            PUC         1339          I
          -FC5A164
 PUC                SA6    A2          FLAG NOT FIRST HEADER FOR L/E FILE                  PUC         1340          I
          -FC5A164
 PUC                NZ     X2,WHL1     IF NOT FIRST TIME IN                                PUC         1341          I
          -FC5A164
 PUC                SA2    PAGELOC+X1                                                      FC5A164       33     A     
 PUC                SA2    X2                                                              FC5A164       34     A     
 PUC                LX2    59-58                                                           FC5A164       35     A     
 PUC                MI     X2,WHL1     IF NOT FIRST TIME IN                                FC5A164       36     A     
 PUC                MX6    1                                                               FC5A164       37     A     
 PUC                BX6    X6+X2                                                           FC5A164       38     A     
 PUC                LX6    58-59                                                           FC5A164       39     A     
 PUC                SA6    A2                                                              FC5A164       40     A     
 PUC                SA1    CO.PW+X1                                                        FC5A187       13     A     
 PUC                MI     X1,WHL1     IF FILE CONNECTED                                   FC5A187       14     A     
 PUC                SA1    CP.PD                                                           PUC         1342     A     
 PUC                ZR     X1,WHL1     IF PD NOT ON CONTROL CARD                           PUC         1343     A     
 PUC                SA2    WOFB                                                            PUC         1344     A     
 PUC                WRITEH X2,CP.PD,1  SET PAGE DENSITY                                    PUC         1345     A     
 PUC       WHL1     SX6    3                                                               PUC         1346          I
          -FC50029
 PUC                                                                                       FC50029        4     A     
 PUC       WHL1     =X6    0                                                               FC50029        5     A     
 PUC                SA1    WOF=ERR                                                         PUC         1347     A     
 PUC                SA4    PAGELOC+X1                                                      PUC         1348     A     
 PUC                SA4    X4                                                              PUC         1349     A     
 PUC                SA6    LCNT+X1     RESET LINE COUNT                                    PUC         1350     A     
 PUC                =X3    1                                                               PUC         1351     A     
 PUC                IX7    X4+X3                                                           PUC         1352     A     
 PUC                SX1    X7                                                              PUC         1353     A     
 PUC                SA7    A4          UPDATE PAGE COUNT                                   PUC         1354     A     
 PUC                                                                                       PUC         1355          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          -FC5A144
 PUC       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        PUC         1356          I
          -FC5A144
 PUC                SA2    CO.CPL      COMPILER PAGE LIMIT                                 PUC         1357          I
          -FC5A144
 PUC                IX6    X1-X2                                                           PUC         1358          I
          -FC5A144
 PUC                MI     X6,WHL2     IF PAGE LIMIT NOT EXCEEDED                          PUC         1359          I
          -FC5A144
 PUC                WRITEH F.OUT,(=C/ ***** PAGE LIMIT EXCEEDED *****/),4                  PUC         1360          I
          -FC5A144
 PUC                MESSAGE (=C/ ***** PAGE LIMIT EXCEEDED *****/),,RCL                    PUC         1361          I
          -FC5A144
 PUC                EQ     "BLOWUP"    EXIT THROUGH RPV TO FLUSH FILES                     PUC         1362          I
          -FC5A144
 PUC       WHL2     BSS                                                                    PUC         1363          I
          -FC5A144
 PUC       .TEST    ENDIF                                                                  PUC         1364          I
          -FC5A144
 PUC                                                                                       PUC         1365          I
          -FC5A144
 PUC                CALL   CDD         CONVERT PAGE NUMBER                                 PUC         1366     A     
 PUC                SA3    WOF=ERR                                                         PUC         1367     A     
 PUC                SA1    CO.PW+X3                                                        PUC         1368     A     
 PUC                SX1    X1-136                                                          PUC         1369          I
          -FC50353
 PUC                SX1    X1-126                                                          FC50353        7     A     
 PUC                SA2    WOFB                                                            PUC         1370     A     
 PUC                SA3    TTLOFF                                                          PUC         1371     A     
 PUC                NZ     X1,WHL5     IF PW MODE                                          PUC         1372          I
          -FC50353
 PUC                MI     X1,WHL5     IF PW MODE                                          FC50353        8     A     
 PUC                LX6    10*CHAR-6*CHAR                                                  PUC         1373     A     
 PUC                =A6    TL.PAGE+X3                                                      PUC         1374     A     
 PUC                WRITEH X2,O.TITL+X3,L.TITL                                             PUC         1375     A     
 PUC                SA1    WOF=ERR                                                         F1039         98     A     
 PUC                SA3    NPU+X1                                                          F1039         99     A     
 PUC                ZR     X3,WHL2     IF SECOND PAGE OF PROGRAM UNIT                      F1039        100     A     
 PUC                NZ     X1,WHL2     IF E FILE WRITE                                     F1039        101     A     
 PUC                SX6    2                                                               F1039        102     A     
 PUC                SA3    TTLOFF                                                          F1039        103     A     
 PUC                SA6    HLC         SET HEADER LINE COUNT                               F1039        104     A     
 PUC                WRITEH X2,O.CPV+X3,L.TWO  SECOND LINE                                  F1039        105     A     
 PUC                SA3    TTLOFF                                                          F1039        106     A     
 PUC                WRITEH X2,O.CC+X3,L.CC    THIRD LINE                                   F1039        107     A     
 PUC                                                                                       F1039        108     A     
 PUC       WHL2     BSS    0                                                               F1039        109     A     
 PUC                SA3    WOF=ERR                                                         PUC         1376     A     
 PUC                NZ     X3,WHL7     IF E-FILE WRITE                                     PUC         1377     A     
 PUC                SA2    O.STITL                                                         PUC         1378     A     
 PUC                SB2    X2                                                              PUC         1379     A     
 PUC                AX2    30                                                              PUC         1380     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                SB3    X2                                                              PUC         1381          I
          -FC5A158A 
 PUC                WRITEH F.OUT,B2,B3                                                     PUC         1382          I
          -FC5A158A 
 PUC                SB4    X2                                                              FC5A158A     278     A     
 PUC                SX2    F.OUT                                                           FC5A158A     279     A     
 PUC                WRITEH X2,B2,B4                                                        FC5A158A     280     A     
 PUC                EQ     WHL7                                                            PUC         1383     A     
 PUC                                                                                       PUC         1384     A     
 PUC       WHL5     SA1    TL.PAGE-1+X3                                                    PUC         1385     A     
 PUC                MX4    -6*6                                                            PUC         1386     A     
 PUC                BX1    X4*X1                                                           PUC         1387     A     
 PUC                BX6    -X4*X6                                                          PUC         1388     A     
 PUC                BX6    X6+X1                                                           PUC         1389     A     
 PUC                SA6    A1          10HPAGE 12345                                       PUC         1390     A     
 PUC                WRITEH X2,O.TTLA+X3,L.TTLA                                             PUC         1391     A     
 PUC                SA3    TTLOFF                                                          PUC         1392     A     
 PUC                WRITEH X2,TL.PTYP+X3,L.TTLB                                            PUC         1393     A     
 PUC                SA1    WOF=ERR                                                         F1039        110     A     
 PUC                SA3    NPU+X1                                                          F1039        111     A     
 PUC                ZR     X3,WHL7     IF SECOND PAGE OF PROGRAM UNIT                      F1039        112     A     
 PUC                NZ     X1,WHL7     IF E FILE WRITE                                     F1039        113     A     
 PUC                SX6    4           HEADER LINE COUNT                                   F1039        114     A     
 PUC                SA3    TTLOFF                                                          F1039        115     A     
 PUC                SA6    HLC         SET HEADER LINE COUNT                               F1039        116     A     
 PUC                WRITEH X2,O.CPV+X3,L.TA                                                F1039        117     A     
 PUC                SA3    TTLOFF                                                          F1039        118     A     
 PUC                WRITEH X2,O.TA+X3,L.TB                                                 F1039        119     A     
 PUC                SA3    TTLOFF                                                          F1039        120     A     
 PUC                WRITEH X2,O.CC+X3,L.CCA                                                F1039        121     A     
 PUC                SA3    TTLOFF                                                          F1039        122     A     
 PUC                WRITEH X2,O.C+X3,L.CCB                                                 F1039        123     A     
 PUC                                                                                       PUC         1394     A     
 PUC       WHL7     WRITEH X2,HDRBL,1                                                      PUC         1395     A     
 PUC                EQ     EXIT.       EXIT...                                             PUC         1396     A     
 PUC                                                                                       PUC         1397     A     
 PUC       TTLOFF   BSS    1                                                               PUC         1398     A     
 PUC       PAGELOC  CON    CP.PAGE,CP.EPAG   LOCS OF PAGE COUNTS                           PUC         1399     A     
 PUC       NPU      CON    0,1         NEXT PROGRAM UNIT FLAG // HEADER LINE FLAG          F1039        124     A     
 PUC      *                            FOR ERROR FILE.                                     F1039        125     A     
 PUC       HLC      CON    0           HEADER LINE COUNT - 2 OR 4                          F1039        126     A     
 PUC       WOF      SPACE  4,12                                                            PUC         1400     A     
 PUC      **        WOF -  WRITE OUTPUT FILE                                               PUC         1401     A     
 PUC      *                                                                                PUC         1402     A     
 PUC      *         ENTRY  (X1) _ FWA OF LINE IN H FORMAT                                  PUC         1403     A     
 PUC      *                (X2) = LINE LENGTH IN WORDS                                     PUC         1404     A     
 PUC      *         (B5) = 1 + NUMBER OF BLANK LINES TO OUTPUT BEFORE LINE                 PUC         1405     A     
 PUC      *                                                                                PUC         1406     A     
 PUC      *         USES   A1-4,A6,A7                                                      PUC         1407     A     
 PUC      *                X1-4,X6,X7                                                      PUC         1408     A     
 PUC      *                B1-7                                                            PUC         1409     A     
 PUC      *                                                                                PUC         1410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      *         CALLS  WHL, WRITEH                                                     PUC         1411     A     
 PUC                                                                                       PUC         1412     A     
 PUC                                                                                       PUC         1413     A     
 PUC       WOF      SUBR   =           ENTRY/EXIT...                                       PUC         1414     A     
 PUC                SX6    B4                                                              PUC         1415     A     
 PUC                SA6    WOFC                                                            PUC         1416     A     
 PUC                SA4    WOF=ERR                                                         PUC         1417     A     
 PUC                SA3    FV.OUT+X4                                                       PUC         1418     A     
 PUC                BX6    X3                                                              PUC         1419     A     
 PUC                ZR     X3,EXIT.    IF L=0                                              PUC         1420     A     
 PUC       #RM      IFNE   CP#RM,0,1                                                       FC5A158A     281     A     
 PUC                SX6    A3          POINT TO FIT FOR RM MACRO                           FC5A158A     282     A     
 PUC                SA6    WOFB        FET FOR OUT/ERR                                     PUC         1421     A     
 PUC                SA3    LCNT+X4                                                         PUC         1422     A     
 PUC                SA4    CP.PS                                                           PUC         1423          I
          -FC5A107
 PUC                SA4    CO.PS                                                           FC5A107       11     A     
 PUC                SX6    X3+B5                                                           PUC         1424     A     
 PUC                IX7    X4-X6                                                           PUC         1425     A     
 PUC                SA6    A3          UPDATE LINE COUNT                                   PUC         1426     A     
 PUC                SB6    X1                                                              PUC         1427     A     
 PUC                PL     X7,WOF1     IF PAGE NOT FULL                                    PUC         1428     A     
 PUC                                                                                       PUC         1429     A     
 PUC      *         WRITE HEADER LINE.                                                     PUC         1430     A     
 PUC                                                                                       PUC         1431     A     
 PUC                LX2    30                                                              PUC         1432     A     
 PUC                IX6    X1+X2                                                           PUC         1433     A     
 PUC                SA6    WOFA        SAVE FWA AND LENGTH OF LINE                         PUC         1434     A     
 PUC                RJ     WHL         WRITE HEADER LINES                                  PUC         1435     A     
 PUC                SA1    WOF=ERR                                                         PUC         1436     A     
 PUC                LX4    X1                                                              F1039        127     A     
 PUC                SA1    LCNT+X1                                                         PUC         1437     A     
 PUC                =X6    X1+1                                                            PUC         1438     A     
 PUC                SA2    NPU+X4     X4  =  WOF=ERR                                       F1039        128     A     
 PUC                ZR     X2,WOF0    IF NOT FIRST PAGE OF PROGRAM UNIT                    F1039        129     A     
 PUC                SX7    X2-1                                                            F1039        130     A     
 PUC                SA7    A2         NEXT PROGRAM UNIT FLAG                               F1039        131     A     
 PUC                SA2    HLC        HEADER LINE COUNT                                    F1039        132     A     
 PUC                IX6    X6+X2      ACCOUNT FOR HEADER LINES                             F1039        133     A     
 PUC                                                                                       F1039        134     A     
 PUC       WOF0     BSS    0                                                               F1039        135     A     
 PUC                SA6    A1                                                              PUC         1439     A     
 PUC                EQ     WOF3        WRITE REQUESTED LINES                               PUC         1440     A     
 PUC                                                                                       PUC         1441     A     
 PUC      *         WRITE BLANK LINES BEFORE REQUESTED LINE.                               PUC         1442     A     
 PUC                                                                                       PUC         1443     A     
 PUC       WOF1     EQ     B5,B1,WOF4  IF NO BLANKS TO WRITE                               PUC         1444     A     
 PUC                LX2    30                                                              PUC         1445     A     
 PUC                IX6    X1+X2                                                           PUC         1446     A     
 PUC                IFEQ   TEST,ON,2   IF TEST MODE                                        PUC         1447     A     
 PUC                SB7    4                                                               PUC         1448     A     
 PUC                GT     B5,B7,"BLOWUP" ONLY 4 BLANK LINES PROVIDED                      PUC         1449     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                                                                                       PUC         1450     A     
 PUC                SB7    B5-1                                                            PUC         1451     A     
 PUC                                                                                       PUC         1452     A     
 PUC                SA6    WOFA        SAVE FWA AND LENGTH                                 PUC         1453     A     
 PUC                SA2    WOFB                                                            PUC         1454     A     
 PUC                WRITEH X2,HDRBL,B7                                                     PUC         1455     A     
 PUC       WOF3     SA2    WOFA                                                            PUC         1456     A     
 PUC                SB6    X2          RESTORE FWA                                         PUC         1457     A     
 PUC                AX2    30          RESTORE LENGTH                                      PUC         1458     A     
 PUC                                                                                       PUC         1459     A     
 PUC      *         WRITE REQUESTED LINE.                                                  PUC         1460     A     
 PUC                                                                                       PUC         1461     A     
 PUC       WOF4     NZ     B6,WOF5     IF LINE TO WRITE                                    PUC         1462     A     
 PUC                SA1    WOF=ERR                                                         PUC         1463     A     
 PUC                SA1    LCNT+X1                                                         PUC         1464     A     
 PUC                =X6    X1-1                                                            PUC         1465     A     
 PUC                SA6    A1                                                              PUC         1466     A     
 PUC                EQ     WOF7                                                            PUC         1467     A     
 PUC                                                                                       PUC         1468     A     
 PUC       WOF5     SB7    X2+                                                             PUC         1469     A     
 PUC                                                                                       PUC         1470     A     
 PUC       .T       IFEQ   TEST,ON                                                         PUC         1471     A     
 PUC                ZR     B7,"BLOWUP" REQUEST WITHOUT LENGTH NFG                          PUC         1472     A     
 PUC       .T       ENDIF                                                                  PUC         1473     A     
 PUC                                                                                       PUC         1474     A     
 PUC                SA2    WOFB                                                            PUC         1475     A     
 PUC                WRITEH X2,B6,B7                                                        PUC         1476     A     
 PUC       WOF7     SA1    WOFC                                                            PUC         1477     A     
 PUC                SB4    X1+         RESTORE B4                                          PUC         1478     A     
 PUC                EQ     EXIT.       DONE...                                             PUC         1479     A     
 PUC                                                                                       PUC         1480     A     
 PUC       WOFC     BSS    1           SAVE B4                                             PUC         1481     A     
 PUC       WOFA     BSS    1           SAVE FWA AND LENGTH                                 PUC         1482     A     
 PUC       WOFB     BSS    1           FET FOR OUTPUT/ERRORS                               PUC         1483     A     
 PUC                                                                                       PUC         1484     A     
 PUC                                                                                       PUC         1485     A     
 PUC       HDRBL    LIT    2L  ,2L  ,2L  ,2L                                               PUC         1486     A     
 PUC                ENTRY  HDRBL                                                           PUC         1487     A     
 PUC                TITLE  INSTRUCTION SKELETON TABLE.                                     PUC         1488     A     
 PUC       INST     SPACE  4,10                                                            PUC         1489     A     
 PUC      **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                        PUC         1490     A     
 PUC      *                                                                                PUC         1491     A     
 PUC      *         GENERATES TABLE OF INSTRUCTION SKELETONS USED TO BY *LIST*             PUC         1492     A     
 PUC      *                TO CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR              PUC         1493     A     
 PUC      *                THE OBJECT CODE LISTING.                                        PUC         1494     A     
 PUC      *                                                                                PUC         1495     A     
 PUC      *         INST   (KEY),(ATTRS)                                                   PUC         1496     A     
 PUC      *                                                                                PUC         1497     A     
 PUC      *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*          PUC         1498     A     
 PUC      *                  HAS MEANING AS FOLLOWS --                                     PUC         1499     A     
 PUC      *                            I   I-PORTION OF INSTRUCTION                        PUC         1500     A     
 PUC      *                            J   J-PORTION OF INSTRUCTION                        PUC         1501     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC      *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)          PUC         1502     A     
 PUC      *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST)         PUC         1503     A     
 PUC      *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS            PUC         1504     A     
 PUC      *                                            NOT A ZERO,                         PUC         1505     A     
 PUC      *                                            ELSE, SKIP THE NEXT 2 ITEMS         PUC         1506     A     
 PUC      *                            + - * / A B X , AND BLANK ALL STAND FOR             PUC         1507     A     
 PUC      *                                            THEMSELVES.                         PUC         1508     A     
 PUC      *         *ATTRS* = LIST OF ATTRIBUTES.  SEE (OD.) DATA STRUCTURE.               PUC         1509     A     
 PUC                                                                                       PUC         1510     A     
 PUC                                                                                       PUC         1511     A     
 PUC       M        EQU    OD.ATRL                                                         PUC         1512     A     
 PUC                ERRNZ  59-OD.QP    ASSUMPTIONS IN MACRO                                PUC         1513     A     
 PUC                ERRNZ  58-OD.BJMPP                                                     PUC         1514     A     
 PUC                ERRNZ  57-OD.FUPAP                                                     PUC         1515     A     
 PUC                ERRNZ  4-OD.EDL                                                        PUC         1516     A     
 PUC                ERRNZ  12-OD.GHL                                                       PUC         1517     A     
 PUC                ERRMI  30-OD.ATRL  OCTMIC WON'T WORK RIGHT                             PUC         1518     A     
 PUC                                                                                       PUC         1519     A     
 PUC                                                                                       PUC         1520     A     
 PUC       INST     MACRO  KEY,ATTRS                                                       PUC         1521     A     
 PUC      *                            INIT AND SET (C) = NUMBER OF DESCRIPTORS.           PUC         1522     A     
 PUC       A        MICRO  3,1,=KEY=                                                       PUC         1523     A     
 PUC       B        MICRO  5,,=KEY=                                                        PUC         1524     A     
 PUC       B        MICRO  1,,="A""B"=                                                     PUC         1525     A     
 PUC       C        MICCNT B                                                               PUC         1526     A     
 PUC       1        ERRPL  C-OD.EDN    DESCRIPTOR (KEY) IS TOO LONG                        PUC         1527     A     
 PUC       E        MICRO  1,,-3/L-                                                        PUC         1528     A     
 PUC      *                            MARK AS LONG IF LAST DESRIPTOR IS Q                 PUC         1529     A     
 PUC       A        MICRO  C+3,1,=KEY=                                                     PUC         1530     A     
 PUC       L        SET    0                                                               PUC         1531     A     
 PUC                IFC    EQ,="A"=Q=,1                                                    PUC         1532     A     
 PUC       L        SET    L+4                                                             PUC         1533     A     
 PUC      *                            DECODE EXPLICIT ATTRIBUTES.                         PUC         1534     A     
 PUC       F        MICRO  1,, 0                                                           PUC         1535     A     
 PUC                IRP    ATTRS                                                           PUC         1536     A     
 PUC                IFC    EQ,=ATTRS=BJMP=,2                                               PUC         1537     A     
 PUC       L        SET    L+2                                                             PUC         1538     A     
 PUC       .3       SKIP                                                                   PUC         1539     A     
 PUC                IFC    EQ,=ATTRS=FUPA=,2                                               PUC         1540     A     
 PUC       L        SET    L+1                                                             PUC         1541     A     
 PUC       .3       SKIP                                                                   PUC         1542     A     
 PUC       G        DECMIC OD.ATTRS_P-OD.ATRP                                              PUC         1543     A     
 PUC       F        OCTMIC "F"B+1S"G"                                                      PUC         1544     A     
 PUC       .3       ENDIF                                                                  PUC         1545     A     
 PUC                IRP                                                                    PUC         1546     A     
 PUC      *                            TRANSLATE EDIT DESCRIPTORS INTO NUMBERS.            PUC         1547     A     
 PUC       D        SET    0                                                               PUC         1548     A     
 PUC       .1       DUP    OD.EDN                                                          PUC         1549     A     
 PUC       D        SET    D+1                                                             PUC         1550     A     
 PUC       A        MICRO  D,1,="B"...........=                                            PUC         1551     A     
 PUC       A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U         PUC         1552     A     
 PUC      ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=140900/                           PUC         1553     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC       E        MICRO  1,,="E",4/"A"=                                                  PUC         1554     A     
 PUC      .1        ENDD                                                                   PUC         1555     A     
 PUC      *                            PASTE IT ALL TOGETHER.                              PUC         1556     A     
 PUC       A        MICRO  1,2, KEY                                                        PUC         1557     A     
 PUC       +        VFD    "E",M/"F"B,12/2R"A"                                             PUC         1558     A     
 PUC       INST     ENDM                                                                   PUC         1559     A     
 PUC       F.PIK    SPACE  4,30                                                            PUC         1560     A     
 PUC      **        F.PIK - INSTRUCTION DESCRIPTION VECTOR.                                PUC         1561     A     
 PUC                                                                                       PUC         1562     A     
 PUC                                                                                       PUC         1563     A     
 PUC       F.PIK    BSSENT 0           MACHINE OP DESCRIPTION VECTOR                       PUC         1564     A     
 PUC       PIK=PS   BSSENT 0           **** OLD NAME TEMP ****                             PUC         1565     A     
 PUC                LOC    00                                                              PUC         1566     A     
 PUC                INST   (PS  Q)                 00    (FAKE)                            PUC         1567     A     
 PUC                INST   (RWI XJ,XK)             01    (FAKE)  LCM DIRECT ONLY           PUC         1568     A     
 PUC                INST   (JP  CI+Q),(FUPA)       02                                      PUC         1569     A     
 PUC                INST   (JXI XJ,Q)              03I    (FAKE)                           PUC         1570     A     
 PUC       PIK.EQ   INST   (EQ  CI,CJ,Q),(BJMP)    04                                      PUC         1571     A     
 PUC                INST   (NE  CI,CJ,Q),(BJMP)    05                                      PUC         1572     A     
 PUC                INST   (GE  CI,CJ,Q),(BJMP)    06                                      PUC         1573     A     
 PUC                INST   (LT  CI,CJ,Q),(BJMP)    07                                      PUC         1574     A     
 PUC                                                                                       PUC         1575     A     
 PUC                INST   (BXI XJ),(COPY)         10                                      PUC         1576     A     
 PUC                INST   (BXI XJ*XK)             11                                      PUC         1577     A     
 PUC                INST   (BXI XJ+XK)             12                                      PUC         1578     A     
 PUC                INST   (BXI XJ-XK)             13                                      PUC         1579     A     
 PUC                INST   (BXI -XJ),(COPY)        14                                      PUC         1580     A     
 PUC                INST   (BXI -XK*XJ),(KJ)       15                                      PUC         1581     A     
 PUC                INST   (BXI -XK+XJ),(KJ)       16                                      PUC         1582     A     
 PUC                INST   (BXI -XK-XJ),(KJ)       17                                      PUC         1583     A     
 PUC                                                                                       PUC         1584     A     
 PUC                INST   (LXI JKB),(JKV)         20                                      PUC         1585     A     
 PUC                INST   (AXI JKB),(JKV)         21                                      PUC         1586     A     
 PUC                INST   (LXI CJ,XK),(BJ)        22                                      PUC         1587     A     
 PUC                INST   (AXI CJ,XK),(BJ)        23                                      PUC         1588     A     
 PUC                INST   (NXI CJ,XK),(BJ)        24                                      PUC         1589     A     
 PUC                INST   (ZXI CJ,XK),(BJ)        25                                      PUC         1590     A     
 PUC                INST   (UXI CJ,XK),(BJ,UP)     26                                      PUC         1591     A     
 PUC                INST   (PXI CJ,XK),(BJ,PK)     27                                      PUC         1592     A     
 PUC                                                                                       PUC         1593     A     
 PUC                INST   (FXI XJ+XK),(FPA)       30                                      PUC         1594     A     
 PUC                INST   (FXI XJ-XK),(FPA)       31                                      PUC         1595     A     
 PUC                INST   (DXI XJ+XK),(FPA)       32                                      PUC         1596     A     
 PUC                INST   (DXI XJ-XK),(FPA)       33                                      PUC         1597     A     
 PUC                INST   (RXI XJ+XK),(FPA)       34                                      PUC         1598     A     
 PUC                INST   (RXI XJ-XK),(FPA)       35                                      PUC         1599     A     
 PUC                INST   (IXI XJ+XK)             36                                      PUC         1600     A     
 PUC                INST   (IXI XJ-XK)             37                                      PUC         1601     A     
 PUC                                                                                       PUC         1602     A     
 PUC                INST   (FXI XJ*XK),(FPA)       40                                      PUC         1603     A     
 PUC                INST   (RXI XJ*XK),(FPA)       41                                      PUC         1604     A     
 PUC                INST   (DXI XJ*XK),(FPA,IM)    42                                      PUC         1605     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                INST   (MXI JKB),(JKV)         43                                      PUC         1606     A     
 PUC                INST   (FXI XJ/XK),(FPA,DIV)   44                                      PUC         1607     A     
 PUC                INST   (RXI XJ/XK),(FPA,DIV)   45                                      PUC         1608     A     
 PUC                INST   (NO  IJKB)              46                                      PUC         1609     A     
 PUC                INST   (CXI XK),(COPY)         47                                      PUC         1610     A     
 PUC                                                                                       PUC         1611     A     
 PUC                INST   (SAI AJ+Q)            50                                        PUC         1612     A     
 PUC                INST   (SAI CJ+Q)            51                                        PUC         1613     A     
 PUC                INST   (SAI XJ+Q)            52                                        PUC         1614     A     
 PUC                INST   (SAI CK+XJ)           53                                        PUC         1615     A     
 PUC                INST   (SAI CK+AJ)           54                                        PUC         1616     A     
 PUC                INST   (SAI AJ-BK)           55                                        PUC         1617     A     
 PUC                INST   (SAI CK+BJ)           56                                        PUC         1618     A     
 PUC                INST   (SAI BJ-BK)             57                                      PUC         1619     A     
 PUC                                                                                       PUC         1620     A     
 PUC                INST   (SBI AJ+Q)            60                                        PUC         1621     A     
 PUC                INST   (SBI CJ+Q)            61                                        PUC         1622     A     
 PUC                INST   (SBI XJ+Q)            62                                        PUC         1623     A     
 PUC                INST   (SBI CK+XJ)           63                                        PUC         1624     A     
 PUC                INST   (SBI CK+AJ)           64                                        PUC         1625     A     
 PUC                INST   (SBI AJ-BK)           65                                        PUC         1626     A     
 PUC                INST   (SBI CK+BJ)           66                                        PUC         1627     A     
 PUC                INST   (SBI BJ-BK)             67                                      PUC         1628     A     
 PUC                                                                                       PUC         1629     A     
 PUC                INST   (SXI AJ+Q)            70                                        PUC         1630     A     
 PUC                INST   (SXI CJ+Q)            71                                        PUC         1631     A     
 PUC                INST   (SXI XJ+Q)            72                                        PUC         1632     A     
 PUC                INST   (SXI CK+XJ)           73                                        PUC         1633     A     
 PUC                INST   (SXI CK+AJ)           74                                        PUC         1634     A     
 PUC                INST   (SXI AJ-BK)           75                                        PUC         1635     A     
 PUC                INST   (SXI CK+BJ)           76                                        PUC         1636     A     
 PUC                INST   (SXI BJ-BK)             77                                      PUC         1637     A     
 PUC                LOC    *O                                                              PUC         1638     A     
 PUC       PIK=EQ   EQUENT PIK.EQ+F.PIK                                                    PUC         1639     A     
 PUC                                                                                       PUC         1640     A     
 PUC       .DAL     IFEQ   .DAL,.DAL   DIRECT ACCESS LCM INSTRUCTIONS                      PUC         1641     A     
 PUC       PIK=LCM  BSSENT 0                                                               PUC         1642     A     
 PUC                INST   (RXJ XK)                014   DRL                               PUC         1643     A     
 PUC                INST   (WXJ XK)                015   DWL                               PUC         1644     A     
 PUC       .DAL     ENDIF                                                                  PUC         1645     A     
 PUC                                                                                       PUC         1646     A     
 PUC       PIK=XJP  BSSENT 0           X-REGISTER JUMPS                                    PUC         1647     A     
 PUC                INST   (ZR  XJ,Q)              030                                     PUC         1648     A     
 PUC                INST   (NZ  XJ,Q)            031                                       PUC         1649     A     
 PUC                INST   (PL  XJ,Q)            032                                       PUC         1650     A     
 PUC                INST   (MI  XJ,Q)            033                                       PUC         1651     A     
 PUC                INST   (IR  XJ,Q)            034                                       PUC         1652     A     
 PUC                INST   (OR  XJ,Q)            035                                       PUC         1653     A     
 PUC                INST   (DF  XJ,Q)            036                                       PUC         1654     A     
 PUC                INST   (ID  XJ,Q)            037                                       PUC         1655     A     
 PUC                                                                                       PUC         1656     A     
 PUC       PIK=PI   BSSENT 0           PSEUDO-INST SKELETON TABLE                          PUC         1657     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
 PUC                INST   (RJK Q),(FUPA)          0001  RJT                               PUC         1658     A     
 PUC                INST   (RJ  Q),(FUPA)          0002  SHORT RJ                          PUC         1659     A     
 PUC                INST   (JP  CI+Q),(FUPA)       0003                                    PUC         1660     A     
 PUC                INST   (EQ  Q),(FUPA)          0004                                    PUC         1661     A     
 PUC                                                                                       PUC         1662          I
          -FC5A132
 PUC                                                                                       PUC         1663          I
          -FC5A132
 PUC       PIK=TAG  BSZENT 4           TEMP HOLDING (DPC) TAG AND OFFSET                   PUC         1664          I
          -FC5A132
 PUC                                                                                       PUC         1665          I
          -FC5A132
 PUC       PIK=BL   CONENT (1L +3R   )  THE WORD BEFORE *PIK=I* MUST BE NEGATIVE           PUC         1666          I
          -FC5A132
 PUC       PIK=I    CONENT 0           *I* REGISTER OF INSTRUCTION                         PUC         1667          I
          -FC5A132
 PUC       PIK=J    CONENT 0           *J* REGISTER OF INSTRUCTION                         PUC         1668          I
          -FC5A132
 PUC                DATA   0           *K* REGISTER OF INSTRUCTION                         PUC         1669          I
          -FC5A132
 PUC                DATA   -1          FLAG TO INDICATE 18-BIT *K* PORTION                 PUC         1670          I
          -FC5A132
 PUC                DATA   1R+         PLUS                                                PUC         1671          I
          -FC5A132
 PUC                DATA   1R-         MINUS                                               PUC         1672          I
          -FC5A132
 PUC                DATA   1R*         STAR                                                PUC         1673          I
          -FC5A132
 PUC                DATA   1R/         SLASH                                               PUC         1674          I
          -FC5A132
 PUC                DATA   1R,         COMMA                                               PUC         1675          I
          -FC5A132
 PUC                DATA   1RA                                                             PUC         1676          I
          -FC5A132
 PUC                DATA   1RB                                                             PUC         1677          I
          -FC5A132
 PUC                DATA   -0          FLAG TO INDICATE CONDITIONAL *B* REGISTER           PUC         1678          I
          -FC5A132
 PUC                DATA   1RX                                                             PUC         1679          I
          -FC5A132
 PUC                DATA   1R          BLANK                                               PUC         1680          I
          -FC5A132
 PUC                                                                                       PUC         1681     A     
 PUC                PURGMAC INST                                                           PUC         1682     A     
 PUC                SPACE  4,10                                                            PUC         1683     A     
 PUC                LIST   D                                                               PUC         1684     A     
 PUC                END                                                                    PUC         1685     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PUC     
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUC     
  
          PUC                       1685      1294
          FC5A107                      4         2
          FC5A109                      1         1
          FC5A115                     28        24
          FC5A128                     34        34
          FC5A132                     21        20
          F2950F5A                     2         2
          FC5A150                      3         3
          FC5A158A                   203       190
          FC5A164                     23        22
          FC5A187                      8         4
          FC50029                      2         2
          F1037F5                     74        73
          FC5A218                      1         1
          FC5A219                      1         1
          FC5A261                      3         3
          FC50055                      1         1
          FC50090                      8         8
          FC50314                      2         2
          FC50353                      3         3
          F1039                       63        61
          FC5A399                      1         1
          FC5A404                      8         7
          FC5A415                      2         2
          FC5A420                      1         1
          FC5A426                      7         7
          FC5A436                      1         1
          FC51075                      1         1
          FC51347                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGLINK 
  
 QCGLINK  *DECK     QCGLINK            QCG MODE LINKAGE ROUTINES                           QCGLINK        1     A     
 QCGLINK            IDENT  QCGLINK                                                         QCGLINK        2     A     
 QCGLINK   QCGLINK  SECT   (QCG MODE LINKAGE ROUTINES.)                                    QCGLINK        3     A     
 QCGLINK   QCGLINK  SPACE  4,10                                                            QCGLINK        4     A     
 QCGLINK  *         IN FEC                                                                 QCGLINK        5     A     
 QCGLINK            EXT    FEC,OIL                                                         QCGLINK        6     A     
 QCGLINK                                                                                   QCGLINK        7     A     
 QCGLINK  *         IN FTN                                                                 QCGLINK        8     A     
 QCGLINK            EXT    F.PB                                                            QCGLINK        9     A     
 QCGLINK                                                                                   QCGLINK       10     A     
 QCGLINK  *         IN PUC                                                                 QCGLINK       11     A     
 QCGLINK            EXT    BINIO,PASS                                                      QCGLINK       12          I
          -FC5A158A 
 QCGLINK            EXT    BINIO,PASS,CO.QC                                                FC5A158A     283     A     
 QCGLINK                                                                                   QCGLINK       13     A     
 QCGLINK  *         IN QCGC                                                                QCGLINK       14     A     
 QCGLINK            EXT    CAI                                                             QCGLINK       15     A     
 QCGLINK                                                                                   QCGLINK       16     A     
 QCGLINK  *         IN REC                                                                 QCGLINK       17     A     
 QCGLINK            EXT    REC                                                             QCGLINK       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGLINK 
  
 QCGLINK                                                                                   QCGLINK       19     A     
 QCGLINK  *         IN UTILITY                                                             QCGLINK       20     A     
 QCGLINK            EXT    CIO=                                                            QCGLINK       21     A     
 QCGLINK   FEL      TITLE  FRONT END LOADER                                                QCGLINK       22     A     
 QCGLINK   FEL      SPACE  4,10                                                            QCGLINK       23     A     
 QCGLINK  **        FEL - FRONT END LOADER.                                                QCGLINK       24     A     
 QCGLINK  *                                                                                QCGLINK       25     A     
 QCGLINK  *         THE QCG FRONT END RESIDES IN THE SAME OVERLAY                          QCGLINK       26     A     
 QCGLINK  *         AS THE PROGRAM UNIT CONTROLLER.                                        QCGLINK       27     A     
 QCGLINK                                                                                   QCGLINK       28     A     
 QCGLINK                                                                                   QCGLINK       29     A     
 QCGLINK   FEL      SUBR   =           ...ENTRY/EXIT...                                    QCGLINK       30     A     
 QCGLINK            EQ     FEC         TRANSFER TO FRONT END CONTROLLER                    QCGLINK       31     A     
 QCGLINK   FEL.RTN  BSSENT 0           ...RETURN FROM FRONT END CONTROLLER                 QCGLINK       32     A     
 QCGLINK            EQ     EXIT.       THATS ALL FOLKS...                                  QCGLINK       33     A     
 QCGLINK   CGE      SPACE  4,10                                                            QCGLINK       34     A     
 QCGLINK  **        CGE -  CHECK (CODE) GENERATOR ERRORS                                   QCGLINK       35     A     
 QCGLINK  *                                                                                QCGLINK       36     A     
 QCGLINK  *         THIS IS A STUB FOR OPT=0 PROCESSING.  NO ACTION                        QCGLINK       37     A     
 QCGLINK                                                                                   QCGLINK       38     A     
 QCGLINK                                                                                   QCGLINK       39     A     
 QCGLINK   CGE      SUBR   =           ...ENTRY/EXIT...                                    QCGLINK       40     A     
 QCGLINK            EQ     EXIT.                                                           QCGLINK       41     A     
 QCGLINK   BBC      SPACE  4,10                                                            QCGLINK       42          I
          -FC5A141
 QCGLINK  **        BBC -  BASE/BIAS CONVERSION.                                           QCGLINK       43          I
          -FC5A141
 QCGLINK  *                                                                                QCGLINK       44          I
          -FC5A141
 QCGLINK  *         THIS IS A STUB FOR OPT = 0 PROCESSING                                  QCGLINK       45          I
          -FC5A141
 QCGLINK                                                                                   QCGLINK       46          I
          -FC5A141
 QCGLINK                                                                                   QCGLINK       47          I
          -FC5A141
 QCGLINK   BBC      EQUENT CGE                                                             QCGLINK       48          I
          -FC5A141
 QCGLINK   DER      SPACE  4,10                                                            QCGLINK       49     A     
 QCGLINK  **        DER -  DETECT EXTENDED RANGE DO LOOPS.                                 QCGLINK       50     A     
 QCGLINK  *                                                                                QCGLINK       51     A     
 QCGLINK  *         THIS IS A STUB FOR OPT = 0 PROCESSING. NO ACTION                       QCGLINK       52     A     
 QCGLINK                                                                                   QCGLINK       53     A     
 QCGLINK                                                                                   QCGLINK       54     A     
 QCGLINK   DER      EQUENT CGE                                                             QCGLINK       55     A     
 QCGLINK   LPE      SPACE  4,10                                                            QCGLINK       56     A     
 QCGLINK  **        LPE -  LINK POSSIBLE ENTRY DO LOOPS.                                   QCGLINK       57     A     
 QCGLINK  *                                                                                QCGLINK       58     A     
 QCGLINK  *         THIS IS A STUB FOR OPT = 0 PROCESSING. NO ACTION.                      QCGLINK       59     A     
 QCGLINK                                                                                   QCGLINK       60     A     
 QCGLINK                                                                                   QCGLINK       61     A     
 QCGLINK   LPE      EQUENT CGE                                                             QCGLINK       62     A     
 QCGLINK   MDD      SPACE  4,10                                                            QCGLINK       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGLINK 
  
 QCGLINK  **        MDD -  MARK DO PARAMETERS DEFINED.                                     QCGLINK       64     A     
 QCGLINK  *                                                                                QCGLINK       65     A     
 QCGLINK  *         THIS IS A STUB FOR OPT = 0 PROCESSING.                                 QCGLINK       66     A     
 QCGLINK                                                                                   QCGLINK       67     A     
 QCGLINK                                                                                   QCGLINK       68     A     
 QCGLINK   MDD      EQUENT CGE                                                             QCGLINK       69     A     
 QCGLINK   PDC      SPACE  4,10                                                            FC5A150      276     A     
 QCGLINK  **        PDC - PROCESS DIVIDE BY CONSTANT.                                      FC5A150      277     A     
 QCGLINK  *                                                                                FC5A150      278     A     
 QCGLINK  *         THIS IS A STUB FOR OPT=0 PROCESSING.                                   FC5A150      279     A     
 QCGLINK                                                                                   FC5A150      280     A     
 QCGLINK   PDC      EQUENT CGE                                                             FC5A150      281     A     
 QCGLINK   BCT      SPACE  4,8                                                             FC5A128      120     A     
 QCGLINK  **        BCT - BLANCH CONSTANT TABLE.  DUMMY FOR OPT=0.                         FC5A128      121     A     
 QCGLINK                                                                                   FC5A128      122     A     
 QCGLINK   BCT      EQUENT CGE                                                             FC5A128      123     A     
 QCGLINK   MAL      SPACE  4,8                                                             FC5A177        5     A     
 QCGLINK  **        MAL - MARK LOOPS POSSIBLY ENTERED VIA ASSIGNED GOTO.                   FC5A177        6     A     
 QCGLINK                                                                                   FC5A177        7     A     
 QCGLINK   MAL      EQUENT CGE                                                             FC5A177        8     A     
 QCGLINK   PCA      SPACE  4,8                                                             FC5A128      124     A     
 QCGLINK  **        PCA - PROCESS *CAC* TABLE.  DUMMY FOR OPT=0.                           FC5A128      125     A     
 QCGLINK                                                                                   FC5A128      126     A     
 QCGLINK   PCA      EQUENT CGE                                                             FC5A128      127     A     
 QCGLINK   PAT      SPACE  4,8                                                             FC5A128      128     A     
 QCGLINK  **        PAT - PREPROCESS APLIST TABLE.  DUMMY FOR OPT=0.                       FC5A128      129     A     
 QCGLINK                                                                                   FC5A128      130     A     
 QCGLINK   PAT      EQUENT CGE                                                             FC5A128      131     A     
 QCGLINK   CGL      TITLE  CODE GENERATOR LOADER                                           QCGLINK       70     A     
 QCGLINK   CGL      SPACE  4,10                                                            QCGLINK       71     A     
 QCGLINK  **        CGL - CODE GENERATOR LOADER.                                           QCGLINK       72     A     
 QCGLINK  *                                                                                QCGLINK       73     A     
 QCGLINK  *         IN QCG MODE EVERYTHING RESIDES IN ONE OVERLAY.                         QCGLINK       74     A     
 QCGLINK  *         THE FRONT END CONTROLLER *FEC* HAS BEEN PASSING                        QCGLINK       75     A     
 QCGLINK  *         IL OFF TO THE CODE GENERATOR A LITTLE AT A                             QCGLINK       76     A     
 QCGLINK  *         TIME. THE CODE GENERATOR THEREFORE HAS BEEN LOADED                     QCGLINK       77     A     
 QCGLINK  *         AND ALL THAT IS LEFT IS A LITTLE CLEANUP.                              QCGLINK       78     A     
 QCGLINK                                                                                   QCGLINK       79     A     
 QCGLINK                                                                                   QCGLINK       80     A     
 QCGLINK   CGL      SUBR   =           ...ENTRY/EXIT...                                    QCGLINK       81          I
          -FC5A128
 QCGLINK            EQ     EXIT.       EXIT...                                             QCGLINK       82          I
          -FC5A128
 QCGLINK   CGL      EQUENT CGE                                                             FC5A128      132     A     
 QCGLINK   REL      TITLE  REAR END LOADER                                                 QCGLINK       83     A     
 QCGLINK   REL      SPACE  4,10                                                            QCGLINK       84     A     
 QCGLINK  **        REL - REAR END LOADER.                                                 QCGLINK       85     A     
 QCGLINK  *                                                                                QCGLINK       86     A     
 QCGLINK  *         THIS IS THE LOADER FOR THE END, MAP, OBJECT LIST,                      QCGLINK       87     A     
 QCGLINK  *         AND ASSEMBLY PROCESSORS.                                               QCGLINK       88     A     
 QCGLINK  *         THERE IS ONLY ONE OVERLAY IN QCG MODE. THEREFORE, CONTROL              QCGLINK       89     A     
 QCGLINK  *         GOES TO THE REAR END CONTROLLER.                                       QCGLINK       90     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGLINK 
  
 QCGLINK                                                                                   QCGLINK       91     A     
 QCGLINK                                                                                   QCGLINK       92     A     
 QCGLINK   REL      SUBR   =           ...ENTRY/EXIT...                                    QCGLINK       93     A     
 QCGLINK   .RM      IFNE   CP#RM,7                                                         FC5A158A     284     A     
 QCGLINK            SA1    F.PB+I.FET  X1 = CODE/STATUS WORD OF F.PB FET                   QCGLINK       94     A     
 QCGLINK            LX1    59-2                                                            QCGLINK       95     A     
 QCGLINK            =X6    0                                                               QCGLINK       96     A     
 QCGLINK            PL     X1,REL5     IF PHYSICAL I/O HAS NOT OCCURED                     QCGLINK       97     A     
 QCGLINK   .RM      ELSE                                                                   FC5A158A     285     A     
 QCGLINK            SA1    CO.QC                                                           FC5A158A     286     A     
 QCGLINK            MX6    0                                                               FC5A158A     287     A     
 QCGLINK            MI     X1,REL5     IF IN *QC* MODE                                     FC5A158A     288     A     
 QCGLINK   .RM      ENDIF                                                                  FC5A158A     289     A     
 QCGLINK            WRITER F.PB        FLUSH PRE-BINARY                                    QCGLINK       98     A     
 QCGLINK            =X6    -1                                                              QCGLINK       99     A     
 QCGLINK   REL5     SA6    BINIO                                                           QCGLINK      100     A     
 QCGLINK            EQ     REC                                                             QCGLINK      101     A     
 QCGLINK                                                                                   QCGLINK      102     A     
 QCGLINK   REL.RTN  BSSENT 0           ...RETURN FROM REAR END CONTROLLER                  QCGLINK      103     A     
 QCGLINK            EQ     EXIT.       EXIT...                                             QCGLINK      104     A     
 QCGLINK   PDI      SPACE  4,10                                                            QCGLINK      105     A     
 QCGLINK  **        PDI - PUBLISH DATA TO IL FILE.                                         QCGLINK      106     A     
 QCGLINK  *                                                                                QCGLINK      107     A     
 QCGLINK  *         LIKE *PIS*, BELOW, THIS ROUTINE EXISTS IN QCG AND CCG.                 QCGLINK      108     A     
 QCGLINK  *         IN QCG MODE, CAI IS CALLED TO COPY (T.DATS) TO (F.PB).                 QCGLINK      109     A     
 QCGLINK                                                                                   QCGLINK      110     A     
 QCGLINK                                                                                   QCGLINK      111     A     
 QCGLINK   PDI      SUBR   =           ENTRY/EXIT...                                       QCGLINK      112     A     
 QCGLINK            CALL   OIL         OUTPUT IL SEGMENT                                   QCGLINK      113     A     
 QCGLINK            EQ     EXIT.                                                           QCGLINK      114     A     
 QCGLINK   PIS      SPACE  4,10                                                            QCGLINK      115     A     
 QCGLINK  **        PIS - PUBLISH IL SEGMENT.                                              QCGLINK      116     A     
 QCGLINK  *                                                                                QCGLINK      117     A     
 QCGLINK  *         THERE ARE TWO VERSIONS OF THIS ROUTINE.                                QCGLINK      118     A     
 QCGLINK  *         IN QCG MODE, CAI IS CALLED TO COMPILE ALL INSTRUCTIONS                 QCGLINK      119     A     
 QCGLINK  *            TO T.PB.                                                            QCGLINK      120     A     
 QCGLINK  *         IN CCG MODE, THE IL IS WRITTEN TO A FILE FOR LATER                     QCGLINK      121     A     
 QCGLINK  *            PROCESSING BY THE BRIDGE.                                           QCGLINK      122     A     
 QCGLINK                                                                                   QCGLINK      123     A     
 QCGLINK                                                                                   QCGLINK      124     A     
 QCGLINK   PIS      SUBR   =           ENTRY/EXIT...                                       QCGLINK      125     A     
 QCGLINK            =X6    PASS=QCG                                                        QCGLINK      126     A     
 QCGLINK            SA6    PASS                                                            QCGLINK      127     A     
 QCGLINK            CALL   CAI         COMPILE ALL INSTRUCTIONS                            QCGLINK      128     A     
 QCGLINK            EQ     EXIT.                                                           QCGLINK      129     A     
 QCGLINK                                                                                   QCGLINK      130     A     
 QCGLINK                                                                                   QCGLINK      131     A     
 QCGLINK            LIST   D                                                               QCGLINK      132     A     
 QCGLINK            END                                                                    QCGLINK      133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 471    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - QCGLINK 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          QCGLINK                    133       123
          FC5A128                     13        13
          FC5A150                      6         6
          FC5A158A                     7         7
          FC5A177                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
 CCGLINK  *DECK     CCGLINK            CCG MODE LINKAGE ROUTINES                           CCGLINK        1     A     
 CCGLINK            IDENT  CCGLINK                                                         CCGLINK        2     A     
 CCGLINK   CCGLINK  SECT   (CCG MODE LINKAGE ROUTINES.)                                    CCGLINK        3     A     
 CCGLINK   CCGLINK  SPACE  4,10                                                            CCGLINK        4     A     
 CCGLINK            EXT    CO.LOR,CO.SNAP,CP.NFLS,F.IL,F.PB                                CCGLINK        5          I
          -FC50616
 CCGLINK  *         IN FTN                                                                 FC50616        5     A     
 CCGLINK            EXT    CO.LOO,CO.LOR,CO.SNAP,CP.NFLS,FV.LGO,F.IL,F.PB                  FC50616        6     A     
 CCGLINK            EXT    F.REF,LOVER,N.TABLE,WNB=                                        CCGLINK        6     A     
 CCGLINK                                                                                   CCGLINK        7     A     
 CCGLINK  *         IN IDP                                                                 CCGLINK        8     A     
 CCGLINK            EXT    PTO                                                             CCGLINK        9     A     
 CCGLINK                                                                                   CCGLINK       10     A     
 CCGLINK  *         IN INIT20                                                              CCGLINK       11     A     
 CCGLINK            EXT    FWA21,FWA22,FWA23                                               CCGLINK       12     A     
 CCGLINK                                                                                   CCGLINK       13     A     
 CCGLINK  *         IN PUC                                                                 CCGLINK       14     A     
 CCGLINK            EXT    BASES,GMC,L.P2SAV,MTD,MTU,O.P2SAV,O.P2USE                       CCGLINK       15     A     
 CCGLINK            EXT    O.TABS,REFIO,SIZES,T=API,T=APL,T=ASG,T=BLKS,T=CON               CCGLINK       16     A     
 CCGLINK            EXT    T=END,T=GL,T=IOA,T=IOI,T=NLST,T=REF,T=SYM,T.END                 CCGLINK       17     A     
 CCGLINK            EXT    T=CAC,T=CLW,T=CUT,T=DIM,T=ENTP,T=FPI,T=VDI,T.REF,WOF            CCGLINK       18     A     
 CCGLINK            EXT    WO.QC,BINIO                                                     CCGLINK       19     A     
 CCGLINK                                                                                   CCGLINK       20     A     
 CCGLINK  *         IN UTILITY                                                             CCGLINK       21     A     
 CCGLINK            EXT    CIO=,WTW=                                                       CCGLINK       22     A     
 CCGLINK   VALUES   SPACE  4,10                                                            CCGLINK       23     A     
 CCGLINK  **        CCG LINKAGE VALUES.                                                    CCGLINK       24     A     
 CCGLINK                                                                                   CCGLINK       25     A     
 CCGLINK                                                                                   CCGLINK       26     A     
 CCGLINK   N$EXST   CONENT 0           NUMBER OF *BOS*ES IN ENTIRE IL                      CCGLINK       27     A     
 CCGLINK   APCON    CONENT 0           NZ IFF CON. IN APLIST                               CCGLINK       28     A     
 CCGLINK                                                                                   CCGLINK       29     A     
 CCGLINK   N.IL     CONENT 0           LENGTH OF IL FILE (WORDS)                           CCGLINK       30     A     
 CCGLINK                                                                                   CCGLINK       31     A     
 CCGLINK   O=FE     CONENT 0           ORIGIN OF TABLES PRESERVED ACROSS PASS 2.           CCGLINK       32     A     
 CCGLINK   L=FE     CONENT 0           LENGTH DITTO                                        CCGLINK       33     A     
 CCGLINK                                                                                   CCGLINK       34     A     
 CCGLINK   Z.IFL2   EQU    5000B       MINIMUM FL INCREMENT FOR CCG STARTUP                CCGLINK       35          I
          -FC5A128
 CCGLINK                                                                                   CCGLINK       36     A     
 CCGLINK   ERR22    CONENT 0           NZ WHEN ERROR DIAGNOSED IN (2,2) OVERLAY            CCGLINK       37     A     
 CCGLINK   FEL      TITLE  FRONT END LOADER                                                CCGLINK       38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
 CCGLINK   FEL      SPACE  4,10                                                            CCGLINK       39     A     
 CCGLINK  **        FEL - FRONT END LOADER.                                                CCGLINK       40     A     
 CCGLINK  *                                                                                CCGLINK       41     A     
 CCGLINK  *         THIS ROUTINE LOADS THE CCG FRONT END WHICH RESIDES                     CCGLINK       42     A     
 CCGLINK  *         IN THE (2,1) OVERLAY.  CONTROL IS GIVEN TO THE                         CCGLINK       43     A     
 CCGLINK  *         OVERLAY INITIALIZER WHICH TRANSFERS TO                                 CCGLINK       44     A     
 CCGLINK  *         THE FRONT END CONTROLLER WHO RETURNS HERE                              CCGLINK       45     A     
 CCGLINK  *         AT FEL.RTN.                                                            CCGLINK       46     A     
 CCGLINK                                                                                   CCGLINK       47     A     
 CCGLINK                                                                                   CCGLINK       48     A     
 CCGLINK   FEL      SUBR   =           ...ENTRY/EXIT...                                    CCGLINK       49     A     
 CCGLINK                                                                                   CCGLINK       50     A     
 CCGLINK            LOVER  (2,1),=XFWA21                                                   CCGLINK       51     A     
 CCGLINK                                                                                   CCGLINK       52     A     
 CCGLINK   FEL.RTN  BSSENT 0           ...RETURN FROM FRONT END CONTROLLER                 CCGLINK       53     A     
 CCGLINK            EQ     EXIT.       EXIT...                                             CCGLINK       54     A     
 CCGLINK            TITLE  CODE GENERATOR LOADER                                           CCGLINK       55     A     
 CCGLINK   CGL      SPACE  4,10                                                            CCGLINK       56     A     
 CCGLINK  **        CGL - CODE GENERATOR LOADER.                                           CCGLINK       57     A     
 CCGLINK  *                                                                                CCGLINK       58     A     
 CCGLINK  *         *CGL* DOES THE FOLLOWING --                                            CCGLINK       59     A     
 CCGLINK  *         FLUSH FILES AND MOVE TABLES TO HIGH CORE.                              CCGLINK       60     A     
 CCGLINK  *         LOAD CCG OVERLAY AND GIVE CONTROL TO INIT22 WHICH                      CCGLINK       61     A     
 CCGLINK  *         TRANSFERS TO CCG CONTROLLER (*CCGC*) WHO RETURNS                       CCGLINK       62     A     
 CCGLINK  *         TO     CGL.RTN.                                                        CCGLINK       63     A     
 CCGLINK                                                                                   CCGLINK       64     A     
 CCGLINK                                                                                   CCGLINK       65     A     
 CCGLINK   CGL      SUBR   =           ...ENTRY/EXIT...                                    CCGLINK       66     A     
 CCGLINK                                                                                   CCGLINK       67     A     
 CCGLINK  *         CHECK IF CCG LOAD CAN BE SKIPPED.                                      CCGLINK       68     A     
 CCGLINK                                                                                   CCGLINK       69     A     
 CCGLINK            SA1    WO.QC                                                           CCGLINK       70     A     
 CCGLINK            MI     X1,CGL6     IF QUICK CHECK (OR ERRORS), SKIP CCG                CCGLINK       71     A     
 CCGLINK            SA1    FV.LGO                                                          FC50616        7     A     
 CCGLINK            SA4    CO.LOO                                                          FC50616        8     A     
 CCGLINK            BX1    X1+X4                                                           FC50616        9     A     
 CCGLINK            ZR     X1,CGL6     IF LO=-O AND B=0                                    FC50616       10     A     
 CCGLINK                                                                                   CCGLINK       72     A     
 CCGLINK  *         CCG MUST BE LOADED.                                                    CCGLINK       73     A     
 CCGLINK  *         FLUSH IL AND REF FILES.                                                CCGLINK       74     A     
 CCGLINK                                                                                   CCGLINK       75     A     
 CCGLINK            WRITER F.IL                                                            CCGLINK       76     A     
 CCGLINK            SA4    CO.LOR      FETCH MASTER REFERENCE FLAG                         CCGLINK       77     A     
 CCGLINK            ZR     X4,CGL3     IF REFMAP NOT SELECTED                              CCGLINK       78     A     
 CCGLINK            SA1    =XREFIO                                                         CCGLINK       79     A     
 CCGLINK            MI     X1,CGL2     IF ALREADY ON DISK                                  CCGLINK       80     A     
 CCGLINK            MX7    -1                                                              CCGLINK       81     A     
 CCGLINK            SA7    A1          INDICATE (T.REF) ON DISK                            CCGLINK       82     A     
 CCGLINK                                                                                   CCGLINK       83     A     
 CCGLINK            IFEQ   CP#RM,7,1   IF 7RM I/O                                          CCGLINK       84     A     
 CCGLINK            OPEN   =XF.REF                                                         CCGLINK       85     A     
 CCGLINK                                                                                   CCGLINK       86     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
 CCGLINK   CGL2     SA3    =XT=REF                                                         CCGLINK       87     A     
 CCGLINK            SA1    =XT.REF                                                         CCGLINK       88     A     
 CCGLINK            WRITEW F.REF,X1,X3                                                     CCGLINK       89     A     
 CCGLINK            WRITER =XF.REF     FLUSH REF                                           CCGLINK       90     A     
 CCGLINK            SHRINK T=REF,0                                                         CCGLINK       91     A     
 CCGLINK                                                                                   CCGLINK       92     A     
 CCGLINK  *         MOVE TABLES UP AND LOAD CCG                                            CCGLINK       93     A     
 CCGLINK                                                                                   CCGLINK       94     A     
 CCGLINK   CGL3     SA1    =XO.P2SAV                                                       CCGLINK       95     A     
 CCGLINK            BX6    X1                                                              CCGLINK       96     A     
 CCGLINK            SA6    O=FE                                                            CCGLINK       97     A     
 CCGLINK            RJ     MAT         MOVE ALL TABLES                                     CCGLINK       98     A     
 CCGLINK            SA1    ERR22                                                           CCGLINK       99     A     
 CCGLINK            NZ     X1,EXIT.    IF ERROR IN MAT                                     CCGLINK      100     A     
 CCGLINK            RECALL =XF.REF                                                         CCGLINK      101     A     
 CCGLINK            REWIND =XF.IL,RCL                                                      CCGLINK      102     A     
 CCGLINK            LOVER  (2,2),=XFWA22                                                   CCGLINK      103     A     
 CCGLINK                                                                                   CCGLINK      104     A     
 CCGLINK   CGL.RTN  BSSENT 0           ...RETURN FROM CCG CONTROLLER                       CCGLINK      105     A     
 CCGLINK            CALL   UTP         UPDATE TABLE POINTERS                               CCGLINK      106     A     
 CCGLINK            EQ     EXIT.       EXIT...                                             CCGLINK      107     A     
 CCGLINK                                                                                   CCGLINK      108     A     
 CCGLINK  *         SKIP CCG.  PREPARE FOR GOING DIRECTLY TO (2,3).                        CCGLINK      109     A     
 CCGLINK                                                                                   CCGLINK      110     A     
 CCGLINK   CGL6     SA4    CO.LOR      FETCH MASTER REFERENCE FLAG                         CCGLINK      111     A     
 CCGLINK            SA1    REFIO                                                           CCGLINK      112     A     
 CCGLINK            ZR     X4,CGL7     IF REFMAP NOT SELECTED                              CCGLINK      113     A     
 CCGLINK            PL     X1,CGL7     IF REFMAP NOT ON DISK                               CCGLINK      114     A     
 CCGLINK            SA3    T=REF                                                           CCGLINK      115     A     
 CCGLINK            SA1    T.REF                                                           CCGLINK      116     A     
 CCGLINK            WRITEW F.REF,X1,X3                                                     CCGLINK      117     A     
 CCGLINK            WRITER X2,RCL                                                          CCGLINK      118     A     
 CCGLINK   CGL7     BSS                                                                    CCGLINK      119     A     
 CCGLINK            EQ     EXIT.                                                           CCGLINK      120     A     
 CCGLINK            TITLE  REAR END LOADER                                                 CCGLINK      121     A     
 CCGLINK   REL      SPACE  4,10                                                            CCGLINK      122     A     
 CCGLINK  **        REL - REAR END LOADER.                                                 CCGLINK      123     A     
 CCGLINK  *                                                                                CCGLINK      124     A     
 CCGLINK  *         LOAD END, MAP, ASSEMBLY PROCESSORS.                                    CCGLINK      125     A     
 CCGLINK                                                                                   CCGLINK      126     A     
 CCGLINK                                                                                   CCGLINK      127     A     
 CCGLINK   REL      SUBR   =           ...ENTRY/EXIT...                                    CCGLINK      128     A     
 CCGLINK            =X6    -1                                                              CCGLINK      129     A     
 CCGLINK            SA6    BINIO                                                           CCGLINK      130     A     
 CCGLINK            IFEQ   CP#RM,7,2                                                       FC5A158A     290          I
          -FC50616
 CCGLINK            SA1    =XCO.QC                                                         FC5A158A     291          I
          -FC50616
 CCGLINK                                                                                   FC50616       11     A     
 CCGLINK   #RM      IFEQ   CP#RM,7                                                         FC50616       12     A     
 CCGLINK            SA1    WO.QC                                                           FC50616       13     A     
 CCGLINK            MI     X1,REL10    IF FATAL ERRORS OR *QC* MODE                        FC5A158A     292     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
 CCGLINK            SA1    CO.LOO                                                          FC50616       14     A     
 CCGLINK            SA2    FV.LGO                                                          FC50616       15     A     
 CCGLINK            BX1    X1+X2                                                           FC50616       16     A     
 CCGLINK            ZR     X1,REL10    IF LO=-O AND B=0                                    FC50616       17     A     
 CCGLINK   #RM      ENDIF                                                                  FC50616       18     A     
 CCGLINK                                                                                   FC50616       19     A     
 CCGLINK            WRITER =XF.PB,RCL  FLUSH PREBINARY                                     CCGLINK      131     A     
 CCGLINK            LOVER  (2,3),=XFWA23                                                   CCGLINK      132          I
          -FC5A158A 
 CCGLINK                                                                                   FC5A158A     293     A     
 CCGLINK   REL10    LOVER  (2,3),=XFWA23                                                   FC5A158A     294     A     
 CCGLINK   REL.RTN  BSSENT 0           ...RETURN FROM REAR END CONTROLLER                  CCGLINK      133     A     
 CCGLINK            EQ     EXIT.       EXIT...                                             CCGLINK      134     A     
 CCGLINK            TITLE  LINKAGE SUPPORT                                                 CCGLINK      135     A     
 CCGLINK   MAT      SPACE  4,10                                                            CCGLINK      136     A     
 CCGLINK  **        MAT - MOVE ALL TABLES.                                                 CCGLINK      137     A     
 CCGLINK  *                                                                                CCGLINK      138     A     
 CCGLINK  *         PACKS ALL TABLES AND MOVES THEM ABOVE HIGHEST HIGH ADDRESS,            CCGLINK      139     A     
 CCGLINK  *         RESERVING (2/3)*L(SYM) BETWEEN HIGHEST TABLE AND NOMINAL FL.           CCGLINK      140     A     
 CCGLINK                                                                                   CCGLINK      141     A     
 CCGLINK                                                                                   CCGLINK      142     A     
 CCGLINK   MAT      SUBR               ...ENTRY/EXIT...                                    CCGLINK      143     A     
 CCGLINK                                                                                   CCGLINK      144     A     
 CCGLINK  *         CHECK TRASHED TABLE SIZES.                                             CCGLINK      145     A     
 CCGLINK                                                                                   CCGLINK      146     A     
 CCGLINK            SB6    =XSIZES     START OF TABLE SIZE VECTOR                          CCGLINK      147     A     
 CCGLINK            SB7    =XL.P2SAV   START OF TABLES SAVED ACROSS CCG                    CCGLINK      148     A     
 CCGLINK            SX6    0+          INITIALIZE LENGTH                                   CCGLINK      149     A     
 CCGLINK   MAT1     SA1    B6          (X1) = NEXT TABLE SIZE                              CCGLINK      150     A     
 CCGLINK            SB6    B6+1        POINT TO NEXT TABLE SIZE                            CCGLINK      151     A     
 CCGLINK            IX6    X6+X1       ADD SIZE TO TOTAL                                   CCGLINK      152     A     
 CCGLINK            LT     B6,B7,MAT1  IF MORE TABLES TO GO                                CCGLINK      153     A     
 CCGLINK            SA6    MATA        SAVE SIZE OF COMMUNICATED TABLES                    CCGLINK      154     A     
 CCGLINK                                                                                   CCGLINK      155     A     
 CCGLINK   .TEST    IFEQ   TEST,ON     IF TESTMODE                                         CCGLINK      156     A     
 CCGLINK                                                                                   CCGLINK      157     A     
 CCGLINK                                                                                   CCGLINK      158     A     
 CCGLINK  *         SUBTRACT TABLES PASSED TO CCG.                                         CCGLINK      159     A     
 CCGLINK                                                                                   CCGLINK      160     A     
 CCGLINK            MACRO  TABSH,PASS1,D1,D2,PASS2                                         CCGLINK      161     A     
 CCGLINK            SA1    =XT=PASS1                                                       CCGLINK      162     A     
 CCGLINK            IX6    X6-X1                                                           CCGLINK      163     A     
 CCGLINK            ENDM                                                                   CCGLINK      164     A     
 CCGLINK                                                                                   CCGLINK      165     A     
 CCGLINK  *CALL COMSTAB                                                                    CCGLINK      166     A     
 CCGLINK                                                                                   CCGLINK      167     A     
 CCGLINK            ZR     X6,MAT2     IF ALL TRASHED TABLES EMPTY                         CCGLINK      168     A     
 CCGLINK            PLINE  MATB,5                                                          CCGLINK      169     A     
 CCGLINK            EQ     MAT3        PRINT TABLE STATISTICS                              CCGLINK      170     A     
 CCGLINK                                                                                   CCGLINK      171     A     
 CCGLINK   MAT2     SA1    =XCO.SNAP                                                       CCGLINK      172     A     
 CCGLINK            LX1    1RT                                                             CCGLINK      173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
 CCGLINK            PL     X1,MAT4     IF SNAP NOT DESIRED                                 CCGLINK      174     A     
 CCGLINK   MAT3     PLINE  MATC,5                                                          CCGLINK      175     A     
 CCGLINK            CALL   PTO         PRINT TABLE ORIGINS                                 CCGLINK      176     A     
 CCGLINK   MAT4     BSS                                                                    CCGLINK      177     A     
 CCGLINK   .TEST    ENDIF                                                                  CCGLINK      178     A     
 CCGLINK                                                                                   CCGLINK      179     A     
 CCGLINK  *         SUM PRESERVED TABLE SIZES.                                             CCGLINK      180     A     
 CCGLINK                                                                                   CCGLINK      181     A     
 CCGLINK            SB6    =XL.P2SAV   START OF TABLES SAVED ACROSS CCG                    CCGLINK      182     A     
 CCGLINK            SB7    =XT=END     LAST TABLE SIZE WORD                                CCGLINK      183     A     
 CCGLINK            SX6    0+          INITIALIZE LENGTH                                   CCGLINK      184     A     
 CCGLINK   MAT5     SA1    B6          (X1) = NEXT TABLE SIZE                              CCGLINK      185     A     
 CCGLINK            SB6    B6+1        POIN TO NEXT TABLE SIZE                             CCGLINK      186     A     
 CCGLINK            IX6    X6+X1       ADD SIZE TO LENGTH                                  CCGLINK      187     A     
 CCGLINK            LT     B6,B7,MAT5  IF MORE TABLES TO GO                                CCGLINK      188     A     
 CCGLINK            SA6    L=FE        SAVE LENGTH OF PRESERVED TABLES                     CCGLINK      189     A     
 CCGLINK            SA1    MATA                                                            CCGLINK      190     A     
 CCGLINK            IX6    X1+X6       ROOM FOR PRESERVED AND COMMUNICATED TABLES          CCGLINK      191     A     
 CCGLINK            SX2    Z.IFL2      MINIMUM PASS 2 FL INCREMENT                         CCGLINK      192          I
          -FC5A128
 CCGLINK            IX6    X6+X2       AMOUNT NEEDED + SLOP                                CCGLINK      193          I
          -FC5A128
 CCGLINK                                                                                   CCGLINK      194     A     
 CCGLINK  *         INSURE ENOUGH ROOM ABOVE HHA.                                          CCGLINK      195     A     
 CCGLINK                                                                                   CCGLINK      196     A     
 CCGLINK            SA2    RA.ORG+L54.HHA    (X2) = HIGHEST HIGH ADDRESS                   CCGLINK      197     A     
 CCGLINK            SA3    =XCP.NFLS   (X3) = NOMINAL FL                                   CCGLINK      198     A     
 CCGLINK            IX4    X3-X2       (X4) = AVAILABLE SPACE                              CCGLINK      199     A     
 CCGLINK            IX6    X6-X4       (X5) = NEEDED-AVAILABLE                             CCGLINK      200     A     
 CCGLINK            MI     X6,MAT6     IF ENOUGH ROOM                                      CCGLINK      201     A     
 CCGLINK            CALL   GMC         GET MORE CORE                                       CCGLINK      202     A     
 CCGLINK            GT     B7,MAT6     IF REQUEST HONORED                                  CCGLINK      203     A     
 CCGLINK            SX6    2                                                               CCGLINK      204     A     
 CCGLINK            SA6    ERR22       INDICATE FL TYPE ERROR                              CCGLINK      205     A     
 CCGLINK            EQ     EXIT.                                                           CCGLINK      206     A     
 CCGLINK                                                                                   CCGLINK      207     A     
 CCGLINK  *         PACK TABLES UP ABOVE HHA.                                              CCGLINK      208     A     
 CCGLINK                                                                                   CCGLINK      209     A     
 CCGLINK   MAT6     SA2    =XCP.NFLS                                                       CCGLINK      210     A     
 CCGLINK            SX0    X2-1        FUTURE LWA OF RESERVED TABLES                       CCGLINK      211     A     
 CCGLINK            SA4    =XT.END-1   (X4) = FWA OF LAST TABLE                            CCGLINK      212     A     
 CCGLINK            SA2    =XT=END-1   (X2) = LENGTH OF LAST TABLE                         CCGLINK      213     A     
 CCGLINK            IX4    X4+X2       (X4) = LWA+1 OF LAST TABLE                          CCGLINK      214     A     
 CCGLINK            IX6    X0-X4                                                           CCGLINK      215     A     
 CCGLINK            PL     X6,MAT7     IF NO MOVE DOWN NEEDED                              CCGLINK      216     A     
 CCGLINK            BX7    X0                                                              CCGLINK      217     A     
 CCGLINK            SA2    =XO.TABS    (X2) = START OF TABLE AREA                          CCGLINK      218     A     
 CCGLINK            SA7    MATA        SAVE FUTURE LWA OF PRESERVED TABLES                 CCGLINK      219     A     
 CCGLINK            BX0    X2          (X0) = FWA TO MOVE TO                               CCGLINK      220     A     
 CCGLINK            CALL   MTD         MOVE TABLES DOWN                                    CCGLINK      221     A     
 CCGLINK            SA2    MATA                                                            CCGLINK      222     A     
 CCGLINK            BX0    X2          (X0) = LWA FOR MOVE UP                              CCGLINK      223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
 CCGLINK   MAT7     CALL   MTU         MOVE TABLES UP                                      CCGLINK      224     A     
 CCGLINK            SA1    =XO.P2SAV                                                       CCGLINK      225     A     
 CCGLINK            BX6    X1                                                              CCGLINK      226     A     
 CCGLINK            SA6    O=FE        START OF PRESERVED TABLES                           CCGLINK      227     A     
 CCGLINK            EQ     EXIT.                                                           CCGLINK      228     A     
 CCGLINK                                                                                   CCGLINK      229     A     
 CCGLINK   MATA     CON    0           TEMP SAVE CELL                                      CCGLINK      230     A     
 CCGLINK                                                                                   CCGLINK      231     A     
 CCGLINK   .T       IFEQ   TEST,ON                                                         CCGLINK      232     A     
 CCGLINK   MATB     DIS    5,  -----    *         TRASHED TABLES NOT ALL EMPTY             CCGLINK      233     A     
 CCGLINK   MATC     DIS    5,   TABLE STATISTICS ON ENTRY TO THE BRIDGE --                 CCGLINK      234     A     
 CCGLINK   .T       ENDIF                                                                  CCGLINK      235     A     
 CCGLINK   UTP      SPACE  4,10                                                            CCGLINK      236     A     
 CCGLINK  **        UTP - UPDATE TABLE POINTERS.                                           CCGLINK      237     A     
 CCGLINK  *                                                                                CCGLINK      238     A     
 CCGLINK  *         UPDATES POINTER FOR TABLES NOT USED DURING CCG.                        CCGLINK      239     A     
 CCGLINK  *         IF NECESSARY MOVES TABLES ABOVE HHA.                                   CCGLINK      240          I
          -FC5A128
 CCGLINK                                                                                   CCGLINK      241     A     
 CCGLINK                                                                                   CCGLINK      242     A     
 CCGLINK   UTP      SUBR               ...ENTRY/EXIT...                                    CCGLINK      243     A     
 CCGLINK                                                                                   CCGLINK      244     A     
 CCGLINK  *         SET FWA OF ALL TABLES BELOW O.P2USE TO SAME ORIGIN.                    CCGLINK      245     A     
 CCGLINK                                                                                   CCGLINK      246     A     
 CCGLINK            SB6    =XO.P2USE                                                       CCGLINK      247     A     
 CCGLINK            SB7    =XBASES                                                         CCGLINK      248     A     
 CCGLINK            SA1    B6          (X1) = FWA OF FIRST (USED) TABLE                    CCGLINK      249     A     
 CCGLINK            BX6    X1                                                              CCGLINK      250     A     
 CCGLINK   UTP1     SA6    B7                                                              CCGLINK      251     A     
 CCGLINK            =B7    B7+1                                                            CCGLINK      252     A     
 CCGLINK            LT     B7,B6,UTP1  IF MORE TO GO                                       CCGLINK      253     A     
 CCGLINK                                                                                   CCGLINK      254     A     
 CCGLINK  *         UPDATE FWA OF PRESERVED TABLES.                                        CCGLINK      255     A     
 CCGLINK                                                                                   CCGLINK      256     A     
 CCGLINK            SA1    O=FE                                                            CCGLINK      257     A     
 CCGLINK            SB7    =XO.P2SAV                                                       CCGLINK      258     A     
 CCGLINK            SB6    =XBASES                                                         CCGLINK      259     A     
 CCGLINK            SX6    X1                                                              CCGLINK      260     A     
 CCGLINK            SB7    B7-B6                                                           CCGLINK      261     A     
 CCGLINK            SB6    =XN.TABLE                                                       CCGLINK      262     A     
 CCGLINK   UTP2     SA6    B7+=XBASES                                                      CCGLINK      263     A     
 CCGLINK            SA1    B7+=XSIZES                                                      CCGLINK      264     A     
 CCGLINK            =B7    B7+1                                                            CCGLINK      265     A     
 CCGLINK            IX6    X6+X1                                                           CCGLINK      266     A     
 CCGLINK            LT     B7,B6,UTP2                                                      CCGLINK      267     A     
 CCGLINK                                                                                   CCGLINK      268          I
          -FC5A128
 CCGLINK  *         INSURE TABLES ARE ABOVE HIGHEST HIGH ADDRESS.                          CCGLINK      269          I
          -FC5A128
 CCGLINK                                                                                   CCGLINK      270          I
          -FC5A128
 CCGLINK            SA1    RA.ORG+L54.HHA    (X1) = HHA                                    CCGLINK      271          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGLINK 
  
          -FC5A128
 CCGLINK            SA2    =XO.P2USE   (X2) = FWA OF TABLE AREA                            CCGLINK      272          I
          -FC5A128
 CCGLINK            IX3    X2-X1                                                           CCGLINK      273          I
          -FC5A128
 CCGLINK            PL     X3,EXIT.    IF TABLES ALL ABOVE HHA                             CCGLINK      274          I
          -FC5A128
 CCGLINK            SA1    =XCP.NFLS                                                       CCGLINK      275          I
          -FC5A128
 CCGLINK            IX2    X1-X6       (X2) = AVAILABLE SPACE                              CCGLINK      276          I
          -FC5A128
 CCGLINK            IX3    X2+X3       (X3) = AVAILABLE-NEEDED                             CCGLINK      277          I
          -FC5A128
 CCGLINK            PL     X3,UTP3     IF ENOUGH ROOM                                      CCGLINK      278          I
          -FC5A128
 CCGLINK            BX6    -X3                                                             CCGLINK      279          I
          -FC5A128
 CCGLINK            SX6    X6+100B     ADD SOME SLOP                                       CCGLINK      280          I
          -FC5A128
 CCGLINK            CALL   GMC         GET MORE CORE                                       CCGLINK      281          I
          -FC5A128
 CCGLINK            GT     B7,UTP3     IF REQUEST HONORED                                  CCGLINK      282          I
          -FC5A128
 CCGLINK            SX6    2                                                               CCGLINK      283          I
          -FC5A128
 CCGLINK            SA6    ERR22       INDICATE FL TYPE ERROR                              CCGLINK      284          I
          -FC5A128
 CCGLINK            EQ     EXIT.                                                           CCGLINK      285          I
          -FC5A128
 CCGLINK                                                                                   CCGLINK      286          I
          -FC5A128
 CCGLINK   UTP3     SA1    =XCP.NFLS                                                       CCGLINK      287          I
          -FC5A128
 CCGLINK            SX0    X1+                                                             CCGLINK      288          I
          -FC5A128
 CCGLINK            CALL   MTU         MOVE TABLES UP                                      CCGLINK      289          I
          -FC5A128
 CCGLINK            EQ     EXIT.       DONE...                                             CCGLINK      290     A     
 CCGLINK                                                                                   CCGLINK      291     A     
 CCGLINK                                                                                   CCGLINK      292     A     
 CCGLINK            LIST   D                                                               CCGLINK      293     A     
 CCGLINK            END                                                                    CCGLINK      294     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CCGLINK 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CCGLINK                    294       266
          FC5A158A                     5         3
          FC50616                     15        15
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSNAP   
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSNAP   
  
 CSNAP    *DECK     CSNAP - BRIDGE TEST MODE SNAP PACKAGE.                                 CSNAP          1     A     
 CSNAP    **IF DEF,TEST                                                                    FC5A388        6     A     
 CSNAP    *IF DEF,TEST                                                                     FC5A388        7     A     
 CSNAP              IDENT  CSNAP                                                           CSNAP          2     A     
 CSNAP     CSNAP    SECT   (BRIDGE TEST MODE SNAP PACKAGE.)                                CSNAP          3     A     
 CSNAP     CSNAP    SPACE  4                                                               CSNAP          4     A     
 CSNAP    ***              CSNAP PROVIDES SNAPSHOT AND DEBUGGING ROUTINES SPECIFIC         CSNAP          5     A     
 CSNAP    *         TO PASS TWO / BRIDGE.                                                  CSNAP          6     A     
 CSNAP                                                                                     CSNAP          7     A     
 CSNAP                                                                                     CSNAP          8     A     
 CSNAP     #SNAP    IFEQ   TEST,ON                                                         CSNAP          9     A     
 CSNAP                                                                                     CSNAP         10     A     
 CSNAP                                                                                     CSNAP         11     A     
 CSNAP                                                                                     CSNAP         12     A     
 CSNAP     7        ERR    THIS WILL NOT YET ASSEMBLE.                                     CSNAP         13     A     
 CSNAP     #CSNAP   SKIP               **** TEMP ****                                      CSNAP         14     A     
 CSNAP                                                                                     CSNAP         15     A     
 CSNAP    *         IN WHERE                                                               CSNAP         16     A     
 CSNAP     ORIGINS  EQU    ****                                                            CSNAP         17     A     
 CSNAP     IDP      SPACE  4,10                                                            CSNAP         18     A     
 CSNAP    ***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.                                 CSNAP         19     A     
 CSNAP    *                                                                                CSNAP         20     A     
 CSNAP    *                                                                                CSNAP         21     A     
 CSNAP                                                                                     CSNAP         22     A     
 CSNAP                                                                                     CSNAP         23     A     
 CSNAP     CAD      EQUEXT IDP=CAD                                                         CSNAP         24     A     
 CSNAP     CHK      EQUEXT IDP=CHK                                                         CSNAP         25     A     
 CSNAP     FLL      EQUEXT IDP=FLL                                                         CSNAP         26     A     
 CSNAP     FRK      EQUEXT IDP=FRK                                                         CSNAP         27     A     
 CSNAP     HDR      EQUEXT IDP=HDR                                                         CSNAP         28     A     
 CSNAP     PAS      EQUEXT IDP=PAS                                                         CSNAP         29     A     
 CSNAP     PAT      EQUEXT IDP=PAT                                                         CSNAP         30     A     
 CSNAP     SKT      EQUEXT IDP=SKT                                                         CSNAP         31     A     
 CSNAP     SOB      EQUEXT IDP=SOB                                                         CSNAP         32     A     
 CSNAP                                                                                     CSNAP         33     A     
 CSNAP                                                                                     CSNAP         34     A     
 CSNAP     CDD      EQUEXT IDP=CDD                                                         CSNAP         35     A     
 CSNAP     COD      EQUEXT IDP=COD                                                         CSNAP         36     A     
 CSNAP     DXB      EQUEXT IDP=DXB                                                         CSNAP         37     A     
 CSNAP     MCS      EQUEXT IDP=MCS                                                         CSNAP         38     A     
 CSNAP     SFN      EQUEXT IDP=SFN                                                         CSNAP         39     A     
 CSNAP     SYS=     EQUEXT IDP=SYS                                                         CSNAP         40     A     
 CSNAP     WOD      EQUEXT IDP=WOD                                                         CSNAP         41     A     
 CSNAP     ZTB      EQUEXT IDP=ZTB                                                         CSNAP         42     A     
 CSNAP     MISC     SPACE  4,10                                                            CSNAP         43     A     
 CSNAP    **        MISCELLANEOUS SYMBOL DEFINITIONS.                                      CSNAP         44     A     
 CSNAP    *                                                                                CSNAP         45     A     
 CSNAP    *                                                                                CSNAP         46     A     
 CSNAP                                                                                     CSNAP         47     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSNAP   
  
 CSNAP                                                                                     CSNAP         48     A     
 CSNAP     SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER            CSNAP         49     A     
 CSNAP                                                                                     CSNAP         50     A     
 CSNAP                                                                                     CSNAP         51     A     
 CSNAP     IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                                  CSNAP         52     A     
 CSNAP     PRBDO    SPACE  4,10                                                            CSNAP         53     A     
 CSNAP    **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                            CSNAP         54     A     
 CSNAP                                                                                     CSNAP         55     A     
 CSNAP              PURGMAC PRBDO                                                          CSNAP         56     A     
 CSNAP                                                                                     CSNAP         57     A     
 CSNAP     PRBDO    OPSYN  PLINE                                                           CSNAP         58     A     
 CSNAP     TEXTS    SPACE  4,10                                                            CSNAP         59     A     
 CSNAP    ***       TEXTS - INTERFACE TEXTS.                                               CSNAP         60     A     
 CSNAP    *                                                                                CSNAP         61     A     
 CSNAP                                                                                     CSNAP         62     A     
 CSNAP                                                                                     CSNAP         63     A     
 CSNAP              QUAL   IDP                                                             CSNAP         64     A     
 CSNAP     QUAL$    =      1           DESELECT QUALS IN /IDP/                             CSNAP         65     A     
 CSNAP              LIST   -L          *COMSIDP* IS LISTED IN DECK *IDP*                   CSNAP         66     A     
 CSNAP    *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       CSNAP         67     A     
 CSNAP              LIST   *                                                               CSNAP         68     A     
 CSNAP              QUAL   *                                                               CSNAP         69     A     
 CSNAP     DATA     SPACE  4,10                                                            CSNAP         70     A     
 CSNAP    ***       DATA STRUCTURES.                                                       CSNAP         71     A     
 CSNAP    *                                                                                CSNAP         72     A     
 CSNAP    *                                                                                CSNAP         73     A     
 CSNAP    *         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE                CSNAP         74     A     
 CSNAP    *         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE                   CSNAP         75     A     
 CSNAP    *         ROUTINES IN *CSNAP*.                                                   CSNAP         76     A     
 CSNAP     FI=      SPACE  4,10                                                            CSNAP         77     A     
 CSNAP    **        FI= - FTN/IDP CELLS.                                                   CSNAP         78     A     
 CSNAP    *                                                                                CSNAP         79     A     
 CSNAP    *         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED                   CSNAP         80     A     
 CSNAP    *         FOR FTN/IDP COMMUNICATION.                                             CSNAP         81     A     
 CSNAP     FI=BRLI  SPACE  4,10                                                            CSNAP         82     A     
 CSNAP    **        FI=BRLI - *BRLINE NR* CELL.                                            CSNAP         83     A     
 CSNAP    *                                                                                CSNAP         84     A     
 CSNAP    *         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED                 CSNAP         85     A     
 CSNAP    *         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS                CSNAP         86     A     
 CSNAP    *         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS                  CSNAP         87     A     
 CSNAP    *         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN                  CSNAP         88     A     
 CSNAP    *         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END                   CSNAP         89     A     
 CSNAP    *         MASTER LOOP.                                                           CSNAP         90     A     
 CSNAP                                                                                     CSNAP         91     A     
 CSNAP                                                                                     CSNAP         92     A     
 CSNAP     FI=BRLI  CONENT 0                                                               CSNAP         93     A     
 CSNAP              TITLE  FTN5 SNAPPING ROUTINES.                                         CSNAP         94     A     
 CSNAP     ST=      SPACE  4,10                                                            CSNAP         95     A     
 CSNAP    ***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.               CSNAP         96     A     
 CSNAP    *                                                                                CSNAP         97     A     
 CSNAP    *                                                                                CSNAP         98     A     
 CSNAP    *         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC              CSNAP         99     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSNAP   
  
 CSNAP    *         STMT PROCESSORS FOR IDP COMMANDS.                                      CSNAP        100     A     
 CSNAP     UKT=CG   SPACE  4,10                                                            CSNAP        101     A     
 CSNAP    **        UKT=CG - USER IDP KEYWORD TABLE FOR *BRIDGE*.                          CSNAP        102     A     
 CSNAP                                                                                     CSNAP        103     A     
 CSNAP                                                                                     CSNAP        104     A     
 CSNAP     UKT=CG   BSSENT 0           ** FWA OF KEYWORD TABLE **                          CSNAP        105     A     
 CSNAP              QUAL   IDP                                                             CSNAP        106     A     
 CSNAP     BRL      KEYW   (BRLINE NR)                                                     CSNAP        107     A     
 CSNAP     DMT      KEYW   (DUMPT FWA,LWA,LEN)                                             CSNAP        108     A     
 CSNAP              QUAL   *                                                               CSNAP        109     A     
 CSNAP              DATA   0           ** END OF TABLE MARK **                             CSNAP        110     A     
 CSNAP     UKT=LNK  DATA   0           ** LINK WORD **                                     CSNAP        111     A     
 CSNAP     ST=BRL   SPACE  4,10                                                            CSNAP        112     A     
 CSNAP    **        ST=BRL - HERE TO PROCESS *BRLINE NR*.                                  CSNAP        113     A     
 CSNAP                                                                                     CSNAP        114     A     
 CSNAP                                                                                     CSNAP        115     A     
 CSNAP     ST=BRL   BSS    0           ** ENTRY **                                         CSNAP        116     A     
 CSNAP              RJ     PAS         PARSE SUBEXPRESSION                                 CSNAP        117     A     
 CSNAP              SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT                 CSNAP        118     A     
 CSNAP              EQ     IDP=MN                                                          CSNAP        119     A     
 CSNAP     CTEXT    SPACE  4,10                                                            CSNAP        120     A     
 CSNAP    *         COMMON DECKS.                                                          CSNAP        121     A     
 CSNAP                                                                                     CSNAP        122     A     
 CSNAP                                                                                     CSNAP        123     A     
 CSNAP    *CALL     COMDDMT            DEBUG UTILITY TO DUMP TABLES                        CSNAP        124     A     
 CSNAP                                                                                     CSNAP        125     A     
 CSNAP     CSNAP    SPACE  4,10                                                            CSNAP        126     A     
 CSNAP     #CSNAP   ENDIF              **** TEMP ****                                      CSNAP        127     A     
 CSNAP     #SNAP    ENDIF                                                                  CSNAP        128     A     
 CSNAP              LIST   D                                                               CSNAP        129     A     
 CSNAP     ENDSNAP  END                MARK END OF SNAP DECK                               CSNAP        130     A     
 CSNAP    **ENDIF TEST                                                                     FC5A388        8     A     
 CSNAP    *ENDIF TEST                                                                      FC5A388        9     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CSNAP   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CSNAP                      130       130
          FC5A388                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM      *DECK     PEM    PRINT ERROR MESSAGES                                            PEM            1     A     
 PEM                IDENT  PEM                                                             PEM            2     A     
 PEM       PEM      SECT   (PRINT ERROR MESSAGES.)                                         PEM            3     A     
 PEM       PEM      SPACE  4,10                                                            PEM            4     A     
 PEM      *         IN FEC                                                                 PEM            5     A     
 PEM                EXT    CHARMAP                                                         PEM            6     A     
 PEM                                                                                       PEM            7     A     
 PEM      *         IN FERRS                                                               PEM            8     A     
 PEM                EXT    DICT,FILL.,L.FILL                                               PEM            9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM                                                                                       PEM           10     A     
 PEM      *         IN FTN                                                                 PEM           11     A     
 PEM                EXT    CO.EL,CO.ET,CO.PW,CP.ERCT,CP.PW,ENOT=L                          PEM           12          I
          -FC5A426
 PEM                EXT    CO.EL,CO.ET,CO.PW,CO.WPL,CO.WPE,CP.ERCT,CP.PW,ENOT=L            FC5A426       28     A     
 PEM                                                                                       PEM           13     A     
 PEM      *         IN LEX                                                                 PEM           14     A     
 PEM                EXT    BLL,LDB                                                         PEM           15     A     
 PEM                                                                                       PEM           16     A     
 PEM      *         IN PUC                                                                 PEM           17     A     
 PEM                EXT    ERRORS,ERRTYP,ERR.C,E=TOTAL,LINEBUF,N.ERRT,PASS,PWBUF           PEM           18     A     
 PEM                EXT    T.CON,WOF,WOF=ERR,WO.LOS,WO.QC                                  PEM           19     A     
 PEM                                                                                       PEM           20     A     
 PEM      *         IN UTILITY                                                             PEM           21     A     
 PEM                EXT    MVE=,SFN                                                        PEM           22     A     
 PEM      *CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              PEM           23     A     
 PEM                TITLE  FORMAT AND PRINT ROUTINES.                                      PEM           24     A     
 PEM      **        ANSI - CHECK ANSI-LISTING FLAG.                                        PEM           25     A     
 PEM      *         ENTRY  (B7) _ ERROR ADDRESS.                                           PEM           26     A     
 PEM      *         USES   SAME AS *PWE*.                                                  PEM           27     A     
 PEM      *         CALLS  PWE.                                                            PEM           28     A     
 PEM                                                                                       PEM           29     A     
 PEM                                                                                       PEM           30     A     
 PEM       ANSI8    RJ     PDM         PRINT ANSI DIAGNOSTIC                               PEM           31     A     
 PEM                                                                                       PEM           32     A     
 PEM       ANSI=    SUBR   =           ENTRY/EXIT...                                       PEM           33     A     
 PEM       ANSI.SW  BSSENT 0           FLIP-FLOP FOR *EL=A* OPTION                         PEM           34     A     
 PEM                EQ     ANSIX       IF OFF                                              PEM           35     A     
 PEM       -        EQ     ANSI8       IF ON                                               PEM           36     A     
 PEM       MDERR=   SPACE  4,10                                                            F1037F5      256     A     
 PEM      **        MDERR= - CHECK MDERR-LISTING FLAG.                                     F1037F5      257     A     
 PEM      *         ENTRY  (B7) = ERROR ADDRESS.                                           F1037F5      258     A     
 PEM      *         USES   SAME AS *PDM*.                                                  F1037F5      259     A     
 PEM      *         CALLS  PDM.                                                            F1037F5      260     A     
 PEM                                                                                       F1037F5      261     A     
 PEM       MDERR5   RJ     PDM         PRINT MACHINE DEPENDENT DIAGNOSTIC                  F1037F5      262     A     
 PEM                                                                                       F1037F5      263     A     
 PEM       MDERR=   SUBR   =           ENTRY/EXIT...                                       F1037F5      264     A     
 PEM       MDER.SW  BSSENT 0           FLIP-FLOP FOR *MD* OPTION                           F1037F5      265     A     
 PEM                EQ     EXIT.       IF OFF                                              F1037F5      266     A     
 PEM      -         EQ     MDERR5      IF ON                                               F1037F5      267     A     
 PEM       PEM      SPACE  4,10                                                            PEM           37     A     
 PEM      **        PEM -  PRINT ERROR MESSAGES.                                           PEM           38     A     
 PEM      *                                                                                PEM           39     A     
 PEM      *         CALLING CODE FOR DIAGNOSTIC OUTPUT EXPECTS NO TABLE MOVEMENT           PEM           40     A     
 PEM      *         TO OCCUR IN THIS ROUTINE.                                              PEM           41     A     
 PEM      *                                                                                PEM           42     A     
 PEM      *         PEM    IF NORMAL ERROR.                                                PEM           43     A     
 PEM      *         PEMS   IF DIAGNOSTIC PRESETS *FILL.N*.                                 PEM           44     A     
 PEM      *         PEMV   IF NEEDS FILLER FROM *TB*                                       PEM           45     A     
 PEM      *                                                                                PEM           46     A     
 PEM      *         ENTRY  (B7) _ FWA OF MESSAGE TO BE PRINTED.                            PEM           47     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM      *                IF ENTERED THRU *PEMV*, (B4) _ START OF FILLER.                 PEM           48     A     
 PEM      *                UP TO 10 CHARACTERS WILL BE PUT INTO "FILL.".                   PEM           49     A     
 PEM      *                IF ENTERED THRU *PEMS*, *FILL.N* WORDS WILL BE                  PEM           50     A     
 PEM      *                FORMATTED FOR ERROR.                                            PEM           51     A     
 PEM      *         EXIT   FWA OF MESSAGE (B7) POINTS TO EXIT ADDRESS                      PEM           52     A     
 PEM      *                ALL REGISTERS SAVED AND RESTORED                                PEM           53     A     
 PEM      *         CALLS  WOF                                                             PEM           54     A     
 PEM                                                                                       PEM           55     A     
 PEM                                                                                       PEM           56     A     
 PEM      **        HERE IF DIAGNOSTIC _S TYPE.                                            PEM           57     A     
 PEM      *         *FILL.N* WORDS WILL BE CONVERTED TO PROPER FORM FOR ERROR              PEM           58     A     
 PEM      *                SKELETON.                                                       PEM           59     A     
 PEM                                                                                       PEM           60     A     
 PEM       PEMS     BSSENT 0           ...ENTRY                                            PEM           61     A     
 PEM                RJ     SVR=       SAVE ALL REGS (RJ MUST BE ALONE IN 1ST WORD)         PEM           62     A     
 PEM      +         MX5    WA.SYML                                                         PEM           63     A     
 PEM                SB3    L.FILL                                                          PEM           64     A     
 PEM                MX0    -CHAR                                                           PEM           65     A     
 PEM                                                                                       FC50353        9     A     
 PEM       PEMS1    SA1    B3+FILL.-1                                                      PEM           66     A     
 PEM                BX3    X5*X1                                                           PEM           67     A     
 PEM                SX4    B0                                                              PEM           68     A     
 PEM                BX2    -X0*X1                                                          PEM           69     A     
 PEM                LX6    X1                                                              PEM           70     A     
 PEM                NZ     X2,PEMS5    IF WORD ALREADY PACKED.                             PEM           71     A     
 PEM                SX2    65B         FIRST CHARACTER FOR FILL.                           PEM           72     A     
 PEM                NO                                                                     PEM           73     A     
 PEM                IX6    X2+X3                                                           PEM           74     A     
 PEM                SX4    DT.BIAS+11                                                      PEM           75     A     
 PEM                LX6    60-CHAR                                                         PEM           76     A     
 PEM                ZR     X1,PEMS4    IF EMPTY WORD                                       PEM           77     A     
 PEM                                                                                       FC50353       10     A     
 PEM       PEMS3    BX2    -X0*X1                                                          PEM           78     A     
 PEM                AX1    CHAR                                                            PEM           79     A     
 PEM                NZ     X2,PEMS5    IF END                                              PEM           80     A     
 PEM                SX4    X4-1        UPDATE BIAS                                         PEM           81     A     
 PEM                EQ     PEMS3       LOOP                                                PEM           82     A     
 PEM                                                                                       PEM           83     A     
 PEM       PEMS4    SX6    1R                                                              PEM           84     A     
 PEM                SX4    DT.BIAS+1                                                       PEM           85     A     
 PEM                LX6    -CHAR                                                           PEM           86     A     
 PEM      *         EQ     PEMS5                                                           PEM           87     A     
 PEM                                                                                       PEM           88     A     
 PEM      *         PUT BIASED WORD BACK INTO FILL. REGION                                 PEM           89     A     
 PEM                                                                                       PEM           90     A     
 PEM       PEMS5    BX6    X4+X6                                                           PEM           91     A     
 PEM                SB3    B3-B1                                                           PEM           92     A     
 PEM                SA6    A1          RESET FILL.                                         PEM           93     A     
 PEM                NZ     B3,PEMS1    IF NOT END OF *FILL.S*                              PEM           94     A     
 PEM                EQ     PEM1        CONTINUE...                                         PEM           95     A     
 PEM                                                                                       PEM           96     A     
 PEM                                                                                       PEM           97     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM      **        HERE IF DIAGNOSTIC _V TYPE.                                            PEM           98     A     
 PEM      *         NEXT 10 CHARACTERS FROM *TB*, STARTING AT (B4) WILL BE                 PEM           99     A     
 PEM      *         ASSEMBLED INTO *FILL.*                                                 PEM          100     A     
 PEM      *                                                                                PEM          101     A     
 PEM      *         NOTE -                                                                 PEM          102     A     
 PEM      *                WORKS ONLY ON A NORMALIZED *TB*                                 PEM          103     A     
 PEM                                                                                       PEM          104     A     
 PEM       PEMV     BSSENT 0           ...ENTRY                                            PEM          105     A     
 PEM                RJ     SVR=       SAVE ALL REGS (RJ MUST BE ALONE IN 1ST WORD)         PEM          106     A     
 PEM                SA3    B4                                                              PEM          107     A     
 PEM                SB6    9*CHAR                                                          PEM          108     A     
 PEM                MX0    -CHAR                                                           PEM          109     A     
 PEM                SB2    DT.BIAS+1                                                       PEM          110     A     
 PEM                SB3    X3                                                              PEM          111     A     
 PEM                SX6    65B         FIRST CHARACTER FOR FILL. = _.                      PEM          112     A     
 PEM                SA1    B3+CHARMAP                                                      PEM          113     A     
 PEM                BX2    X1                                                              PEM          114     A     
 PEM                BX1    X3                                                              PEM          115     A     
 PEM                ZR     X2,PEMV10   IF O.(VAR,CONS,OCT,HEX,ILL)                         PEM          116     A     
 PEM                SA4    =0LSTRING                                                       PEM          117     A     
 PEM                BX4    X2-X4                                                           PEM          118     A     
 PEM                BX1    X2                                                              PEM          119     A     
 PEM                NZ     X4,PEMV10   IF NOT O.(HOLL,CHAR)                                PEM          120     A     
 PEM                SA2    T.CON                                                           PEM          121     A     
 PEM                LX3    -TB.SHCP                                                        PEM          122     A     
 PEM                MX4    -TB.SHCL                                                        PEM          123     A     
 PEM                BX4    -X4*X3      EXTRACT DPC OF TOKEN                                PEM          124     A     
 PEM                SB3    X4                                                              PEM          125     A     
 PEM                SA1    X2+B3       X1 = DPC OF TOKEN                                   PEM          126     A     
 PEM                                                                                       PEM          127     A     
 PEM       PEMV10   MX2    7*CHAR                                                          PEM          128     A     
 PEM                BX1    X2*X1       X1 = 7 CHARS MAXIMUM                                PEM          129     A     
 PEM                                                                                       PEM          130     A     
 PEM       PEMV20   LX1    CHAR                                                            PEM          131     A     
 PEM                BX2    -X0*X1                                                          PEM          132     A     
 PEM                ZR     X2,PEMV30   IF END OF DPC                                       PEM          133     A     
 PEM                LX6    CHAR                                                            PEM          134     A     
 PEM                BX6    X2+X6                                                           PEM          135     A     
 PEM                SB6    B6-CHAR                                                         PEM          136     A     
 PEM                =B2    B2+1                                                            PEM          137     A     
 PEM                EQ     PEMV20                                                          PEM          138     A     
 PEM                                                                                       PEM          139     A     
 PEM       PEMV30   SX0    B2          BIAS ADD-ON                                         PEM          140     A     
 PEM                LX6    B6,X6       LEFT JUSTIFY                                        PEM          141     A     
 PEM                BX6    X6+X0                                                           PEM          142     A     
 PEM                SA6    FILL.       SET FILLER                                          PEM          143     A     
 PEM                EQ     PEM1                                                            PEM          144     A     
 PEM                                                                                       PEM          145     A     
 PEM                                                                                       PEM          146     A     
 PEM      **        HERE TO PRINT ALL DIAGNOSTICS.                                         PEM          147     A     
 PEM                                                                                       PEM          148     A     
 PEM       PEM      BSSENT 0           ...ENTRY                                            PEM          149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM                RJ     SVR=       SAVE ALL REGS (RJ MUST BE ALONE IN 1ST WORD)         PEM          150     A     
 PEM                                                                                       PEM          151     A     
 PEM       PEM1     SA1    B7                                                              PEM          152     A     
 PEM                SX6    B7                                                              PEM          153     A     
 PEM                SA6    PEMA        SAVE ERROR WORD ADDRESS.                            PEM          154     A     
 PEM                LX1    -ER.TYPP                                                        PEM          155     A     
 PEM                =A6    A6+1                                                            PEM          156     A     
 PEM                MX0    -ER.TYPL                                                        PEM          157     A     
 PEM                BX4    -X0*X1      ISOLATE ERROR TYPE ORDINAL                          PEM          158     A     
 PEM                SA3    X4+ERRTYP                                                       PEM          159     A     
 PEM                SA2    CO.EL                                                           PEM          160     A     
 PEM                SB3    X3          ERROR LEVEL OF CURRENT DIAGNOSTIC                   PEM          161     A     
 PEM                SB2    X2          ERROR LEVEL FOR THE CURRENT COMPILATION             PEM          162     A     
 PEM                AX3    18                                                              PEM          163     A     
 PEM                SA1    X3          FETCH TYPE BANNER WORD                              PEM          164     A     
 PEM                SB6    ERR.C                                                           PEM          165     A     
 PEM                SA4    B6+ERRTYP                                                       PEM          166     A     
 PEM                MX0    -18                                                             PEM          167     A     
 PEM                BX6    X0*X4       CLEAR OLD ERROR LEVEL                               PEM          168     A     
 PEM                BX6    X6+X2       INSERT CURRENT VALUE                                PEM          169     A     
 PEM                SA6    A4          RESET CONTINUATION ERROR SELECTOR                   PEM          170     A     
 PEM                SA5    A3+N.ERRT                                                       PEM          171     A     
 PEM                =X6    X5+1                                                            PEM          172          I
          -FC50636
 PEM                SA6    A5          COUNT UP THIS TYPE                                  PEM          173          I
          -FC50636
 PEM                =X7    X5+1                                                            FC50636        5     A     
 PEM                SX6    B3                                                              PEM          174     A     
 PEM                SA6    UECA        SAVE CURRENT ERROR LEVEL                            PEM          175     A     
 PEM                LT     B3,B2,PEM72 IF THIS TYPE NOT SELECTED                           PEM          176     A     
 PEM                BX6    X1                                                              PEM          177     A     
 PEM                SA7    A5          INCREMENT COUNT OF THIS TYPE                        FC50636        6     A     
 PEM                SA1    =1H*                                                            PEM          178     A     
 PEM                SA6    LINEBUF                                                         PEM          179     A     
 PEM                BX6    X1                                                              PEM          180     A     
 PEM                SA6    A6+B1                                                           PEM          181     A     
 PEM                MX6    0                                                               PEM          182     A     
 PEM                SA6    A6+B1       POINT TO 1ST WORD FOR ERROR MESSAGE                 PEM          183     A     
 PEM                SB3    B0          SET TO NO CHARACTERS USED IN WORD                   PEM          184     A     
 PEM                                                                                       PEM          185     A     
 PEM      *         OUTPUT THE ERROR LINE                                                  PEM          186     A     
 PEM                                                                                       PEM          187     A     
 PEM                SA1    B7          RELOAD FIRST POINTER WORD                           PEM          188     A     
 PEM                SX7    N.ER1ST                                                         PEM          189     A     
 PEM                SB6    10*CHAR                                                         PEM          190     A     
 PEM                LX0    X1                                                              PEM          191     A     
 PEM                                                                                       PEM          192     A     
 PEM       PEM30    MX4    ER.WORDL                                                        PEM          193     A     
 PEM                SB2    B0                                                              PEM          194     A     
 PEM                BX3    X4*X0       LOAD NEXT POINTER WORD BYTE                         PEM          195     A     
 PEM                ZR     X3,PEM65    IF ZERO BYTE POINTER                                PEM          196     A     
 PEM                LX3    ER.WORDL                                                        PEM          197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM                SA1    X3+DICT-1                                                       PEM          198     A     
 PEM                MX3    -CHAR                                                           PEM          199     A     
 PEM                BX4    -X3*X1                                                          PEM          200     A     
 PEM                SX4    X4-DT.BIAS  GET CHARACTER COUNT                                 PEM          201     A     
 PEM                PL     X4,PEM35    IF LESS THAN 10 CHARACTERS                          PEM          202     A     
 PEM                SX3    X4+DT.BIAS                                                      PEM          203          I
          -FC5A144
 PEM                SX3    X4+DT.BIAS-1R:                                                  FC5A144        6     A     
 PEM                ZR     X3,PEM33    IF GREATER THAN 10 CHARACTERS                       PEM          204     A     
 PEM                SX4    10                                                              PEM          205     A     
 PEM                EQ     PEM35       EXACTLY 10 CHARACTERS                               PEM          206     A     
 PEM                                                                                       PEM          207     A     
 PEM       PEM33    SB2    B1          FLAG CONTINUED WORD                                 PEM          208     A     
 PEM                SX4    9                                                               PEM          209     A     
 PEM                                                                                       FC50353       11     A     
 PEM       PEM35    BX3    X4                                                              PEM          210     A     
 PEM                LX4    2           MULT BY 4                                           PEM          211     A     
 PEM                LX3    1           MULT BY 2                                           PEM          212     A     
 PEM                IX6    X3+X4       NUMBER OF BITS IN DATA                              PEM          213     A     
 PEM                SA5    A6                                                              PEM          214     A     
 PEM                                                                                       PEM          215     A     
 PEM      *         PROCESS DATA WORD INTO OUTPUT BUFFER                                   PEM          216     A     
 PEM                                                                                       PEM          217     A     
 PEM                SB5    B6-B3                                                           PEM          218     A     
 PEM                SB7    X6                                                              PEM          219     A     
 PEM                LT     B5,B7,PEM45       IF SPLIT NECESSARY                            PEM          220     A     
 PEM                                                                                       PEM          221     A     
 PEM      *         PROCESS DATA WORD ( NO SPLIT NECESSARY )                               PEM          222     A     
 PEM                                                                                       PEM          223     A     
 PEM       PEM40    MX4    1                                                               PEM          224     A     
 PEM                SB7    B7-B1                                                           PEM          225     A     
 PEM                AX6    X4,B7       BUILD MASK FOR DATA WORD                            PEM          226     A     
 PEM                BX3    X6*X1       GET DATA WORD ONLY                                  PEM          227     A     
 PEM                LX5    X5,B3                                                           PEM          228     A     
 PEM                SB7    B3+B7                                                           PEM          229     A     
 PEM                BX4    -X6*X5      MASK IN PAST PARCEL                                 PEM          230     A     
 PEM                SB3    B7+B1                                                           PEM          231     A     
 PEM                BX3    X4+X3       ADD PAST AND PRESENT TOGETHER                       PEM          232     A     
 PEM                LX6    X3,B5                                                           PEM          233     A     
 PEM                ZR     B2,PEM50    ADD BLANK IF END OF WORD                            PEM          234     A     
 PEM                SA6    A5                                                              PEM          235     A     
 PEM                EQ     PEM60       CONTINUE..                                          PEM          236     A     
 PEM                                                                                       PEM          237     A     
 PEM      *         PROCESS SPLIT WORD                                                     PEM          238     A     
 PEM                                                                                       PEM          239     A     
 PEM       PEM45    MX4    1                                                               PEM          240     A     
 PEM                SB3    B3-B1                                                           PEM          241     A     
 PEM                LX1    X1,B5                                                           PEM          242     A     
 PEM                SB7    B7-B5                                                           PEM          243     A     
 PEM                SB5    B6                                                              PEM          244     A     
 PEM                AX3    X4,B3                                                           PEM          245     A     
 PEM                BX6    -X3*X1                                                          PEM          246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM                SB3    B0                                                              PEM          247     A     
 PEM                BX3    X3*X5                                                           PEM          248     A     
 PEM                SA5    A5+B1                                                           PEM          249     A     
 PEM                BX6    X3+X6                                                           PEM          250     A     
 PEM                SA6    A6                                                              PEM          251     A     
 PEM                BX5    0           PRESET FOR PROCESSING REMAINDER                     PEM          252     A     
 PEM                EQ     PEM40       PROCESS REMAINDER                                   PEM          253     A     
 PEM                                                                                       PEM          254     A     
 PEM      *         ADD IN SPACE BETWEEN WORDS                                             PEM          255     A     
 PEM                                                                                       PEM          256     A     
 PEM       PEM50    SX5    1R                                                              PEM          257     A     
 PEM                SB5    9*CHAR                                                          PEM          258     A     
 PEM                LX5    9*CHAR                                                          PEM          259     A     
 PEM                LE     B3,B5,PEM55 IF ENOUGH ROOM FOR SPACE                            PEM          260     A     
 PEM                SA6    A5                                                              PEM          261     A     
 PEM                BX6    X5                                                              PEM          262     A     
 PEM                SB3    CHAR        SET NUMBER OF BITS IN OUTPUT WORD                   PEM          263     A     
 PEM                SA6    A6+B1       STORE IN OUTPUT BUFFER                              PEM          264     A     
 PEM                EQ     PEM60       CONTINUE..                                          PEM          265     A     
 PEM                                                                                       PEM          266     A     
 PEM       PEM55    SB5    B6-B3                                                           PEM          267     A     
 PEM                LX4    B5,X5       ADJUST 1R                                           PEM          268     A     
 PEM                IX6    X6+X4                                                           PEM          269     A     
 PEM                SA6    A5                                                              PEM          270     A     
 PEM                SB3    B3+CHAR     ADJUST BIT COUNT                                    PEM          271     A     
 PEM                                                                                       FC50353       12     A     
 PEM       PEM60    LX0    9                                                               PEM          272     A     
 PEM                SX7    X7-1                                                            PEM          273     A     
 PEM                NZ     X7,PEM30    LOOP ON PRESENT POINTER WORD                        PEM          274     A     
 PEM                                                                                       PEM          275     A     
 PEM      *         CHECK FOR CONTINUATION CARDS                                           PEM          276     A     
 PEM                                                                                       PEM          277     A     
 PEM                LX0    ER.MOREP                                                        PEM          278     A     
 PEM                PL     X0,PEM65    IF NO CONTINUATION CARDS                            PEM          279     A     
 PEM                                                                                       PEM          280          I
          -FC50353
 PEM                                                                                       PEM          281          I
          -FC50353
 PEM                SA3    PEMA+1                                                          PEM          282     A     
 PEM                SX4    A7                                                              PEM          283     A     
 PEM                =X7    X3+1                                                            PEM          284     A     
 PEM                =A1    X3+1        LOAD NEXT POINTER WORD                              PEM          285     A     
 PEM                SA7    A3                                                              PEM          286     A     
 PEM                SA2    X4                                                              PEM          287     A     
 PEM                BX7    X2          RESTORE (A7)                                        PEM          288     A     
 PEM                SA7    A2                                                              PEM          289     A     
 PEM                SX7    N.ERREST    RESET NUMBER OF BYTES PER WORD                      PEM          290     A     
 PEM                BX0    X1                                                              PEM          291     A     
 PEM                EQ     PEM30       PROCESS NTH CARD                                    PEM          292     A     
 PEM                                                                                       PEM          293     A     
 PEM      *         END OF THIS MESSAGE, PRINT IT.                                         PEM          294     A     
 PEM                                                                                       PEM          295     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM       PEM65    SA1    A6                                                              PEM          296     A     
 PEM                CALL   SFN         SPACE FILL LAST WORD                                PEM          297     A     
 PEM                SA6    A1                                                              PEM          298     A     
 PEM                SA5    A1          REMEMBER (A5) = LWA OF DIAGNOSTIC                   PEM          299     A     
 PEM                =X6    0                                                               PEM          300     A     
 PEM                SA6    PEMB                                                            PEM          301     A     
 PEM                SA1    ENOT=L                                                          PEM          302     A     
 PEM                BX6    X1                                                              PEM          303     A     
 PEM                SA6    WOF=ERR     LIST TO E-FILE IF UNIQUE                            PEM          304     A     
 PEM                SX6    A5                                                              PEM          305     A     
 PEM                SA6    PEMC        SAVE LWA OF MESSAGE                                 PEM          306     A     
 PEM                                                                                       PEM          307     A     
 PEM      *         LIST THE STATEMENT THAT WAS FOUND TO BE IN ERROR.                      PEM          308     A     
 PEM                                                                                       PEM          309     A     
 PEM       PEM66    SA1    PASS                                                            PEM          310     A     
 PEM                NZ     X1,PEM67    IF NOT FRONT END                                    PEM          311     A     
 PEM                ERRNZ  PASS=FE                                                         PEM          312     A     
 PEM                CALL   LDB         LIST DEFERRED BUFFER                                PEM          313     A     
 PEM                                                                                       FC50353       13     A     
 PEM       PEM67    SB2    LINEBUF-1                                                       PEM          314     A     
 PEM                SX2    A5-B2                                                           PEM          315     A     
 PEM                SA4    WOF=ERR                                                         PEM          316     A     
 PEM                SA4    CO.PW+X4                                                        PEM          317     A     
 PEM                SX4    X4-136                                                          PEM          318          I
          -FC50353
 PEM                SX4    X4-126                                                          FC50353       14     A     
 PEM                SX1    B2+B1       FWA OF DIAGNOSTIC                                   PEM          319     A     
 PEM                ZR     X4,PEM71    IF NOT IN PW MODE                                   PEM          320          I
          -FC50353
 PEM                PL     X4,PEM71    IF NOT PW MODE                                      FC50353       15     A     
 PEM                SA4    WOF=ERR                                                         PEM          321     A     
 PEM                SX1    X2-2                                                            PEM          322     A     
 PEM                ZR     X4,PEM68    IF NOT LISTING TO E-FILE                            PEM          323     A     
 PEM                BX5    X2          SAVE LENGTH                                         PEM          324     A     
 PEM                MOVE   X1,LINEBUF+2,PWBUF+1  MOVE LINE TO PWBUF                        PEM          325     A     
 PEM                BX2    X5          RESTORE FULL LINE LENGTH                            PEM          326     A     
 PEM                SB2    PWBUF-2     FWA OF LINE - 2                                     PEM          327     A     
 PEM                                                                                       PEM          328     A     
 PEM       PEM68    SA1    LINEBUF                                                         PEM          329     A     
 PEM                MX0    8*CHAR                                                          PEM          330     A     
 PEM                SX4    2R*                                                             PEM          331     A     
 PEM                BX6    X0*X1                                                           PEM          332     A     
 PEM                BX7    X4+X6                                                           PEM          333     A     
 PEM                =B2    B2+1                                                            PEM          334     A     
 PEM                =A7    B2+1        SHORT SEVERITY HEADER                               PEM          335     A     
 PEM                SX1    A7                                                              PEM          336     A     
 PEM                =X2    X2-1                                                            PEM          337     A     
 PEM      *         EQ     PEM71                                                           PEM          338     A     
 PEM                SA4    CP.PW                                                           PEM          339          I
          -FC5A426
 PEM                SA4    WOF=ERR                                                         FC5A426       29     A     
 PEM                SA4    CO.WPL+X4   GET WIDTH CONTROL WORD                              FC5A426       30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM                SB3    X2-1                                                            PEM          340     A     
 PEM                SB5    X4          PAGE WIDTH IN WORDS                                 PEM          341     A     
 PEM                SB3    B3-B5                                                           PEM          342     A     
 PEM                LE     B3,PEM71    IF LENGTH LESS THAN PAGE WIDTH                      PEM          343     A     
 PEM                SB6    B2+X2       LWA = FWA-1+LEN                                     PEM          344     A     
 PEM                SA2    X4+B2                                                           PEM          345     A     
 PEM                BX3    X2                                                              PEM          346     A     
 PEM                SB3    -1R                                                             PEM          347     A     
 PEM                MX0    9*CHAR                                                          PEM          348     A     
 PEM                SB5    9*CHAR                                                          PEM          349     A     
 PEM                                                                                       FC50353       16     A     
 PEM       PEM69    BX6    -X0*X3                                                          PEM          350     A     
 PEM                SX4    X6+B3                                                           PEM          351     A     
 PEM                ZR     X4,PEM70    IF BLANK CHARACTER                                  PEM          352     A     
 PEM                LX3    B5,X2                                                           PEM          353     A     
 PEM                SB5    B5-CHAR                                                         PEM          354     A     
 PEM                GE     B5,PEM69    IF STILL MORE CHARACTERS IN WORD                    PEM          355     A     
 PEM                SA2    A2-B1                                                           PEM          356     A     
 PEM                EQ     PEM69       TRY NEXT WORD BACK                                  PEM          357     A     
 PEM                                                                                       PEM          358     A     
 PEM       PEM70    CALL   BLL         BREAK LONG LINE                                     PEM          359     A     
 PEM                                                                                       PEM          360     A     
 PEM       PEM71    PLINE  X1,X2                                                           PEM          361     A     
 PEM                SA4    WO.LOS                                                          PEM          362     A     
 PEM                SA2    ENOT=L                                                          PEM          363     A     
 PEM                SA5    PEMC                                                            PEM          364     A     
 PEM                SA5    X5                                                              PEM          365     A     
 PEM                =X6    0                                                               PEM          366     A     
 PEM                SA6    WOF=ERR     LIST TO L-FILE                                      PEM          367     A     
 PEM                ZR     X2,PEM72    IF NO UNIQUE E-FILE                                 PEM          368     A     
 PEM                ZR     X4,PEM72    IF NOT LISTING SOURCE                               PEM          369     A     
 PEM                SA4    PEMB                                                            PEM          370     A     
 PEM                MX6    1                                                               PEM          371     A     
 PEM                SA6    A4                                                              PEM          372     A     
 PEM                ZR     X4,PEM66    IF FIRST TIME THROUGH                               PEM          373     A     
 PEM                                                                                       PEM          374     A     
 PEM      *         EXIT.                                                                  PEM          375     A     
 PEM                                                                                       PEM          376     A     
 PEM       PEM72    RJ     UEC         UPDATE ERROR COUNTS                                 PEM          377     A     
 PEM                SA1    PEMA                                                            PEM          378     A     
 PEM                SA2    X1                                                              PEM          379     A     
 PEM                SB7    X2          SET *EXIT* ADDRESS.                                 PEM          380     A     
 PEM                SX6    B7                                                              PEM          381     A     
 PEM                SA6    SV=B+7                                                          PEM          382     A     
 PEM                MI     B7,PDM1     IF *RJ* STYLE ERROR                                 PEM          383     A     
 PEM                RJ     RSR=        RESTORE ALL REGS                                    PEM          384     A     
 PEM                JP     B7          EXIT                                                PEM          385     A     
 PEM                                                                                       PEM          386     A     
 PEM       PEMA     BSS    1           SAVE ERROR WORD ADDRESS                             PEM          387     A     
 PEM                CON    0                                                               PEM          388     A     
 PEM       PEMB     BSS    1                                                               PEM          389     A     
 PEM       PEMC     BSS    1                                                               PEM          390     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM       PDM      SPACE  4,10                                                            PEM          391     A     
 PEM      **        PDM - PRINT DIAGNOSTIC MESSAGE                                         PEM          392     A     
 PEM      *                                                                                PEM          393     A     
 PEM      *                                                                                PEM          394     A     
 PEM      *         ENTRY  (B7) = ADDR OF DIAGNOSTIC TO ISSUE                              PEM          395     A     
 PEM      *                                                                                PEM          396     A     
 PEM      *         EXIT   NONE                                                            PEM          397     A     
 PEM      *                                                                                PEM          398     A     
 PEM      *         USES   B7          (ALL OTHER REGISTERS SAVED AND RESTORED)            PEM          399     A     
 PEM      *                                                                                PEM          400     A     
 PEM      *         CALLS  RSR=,SVR=                                                       PEM          401     A     
 PEM                                                                                       PEM          402     A     
 PEM                                                                                       PEM          403     A     
 PEM       PDM      SUBR   =           ** ENTRY/EXIT **                                    PEM          404     A     
 PEM                RJ     SVR=        SAVE ALL REGISTERS                                  PEM          405     A     
 PEM                SA1    SV=B+7      (X1) = ADDR OF ERR MSG                              PEM          406     A     
 PEM                SB7    X1                                                              PEM          407     A     
 PEM                SA2    X1          (X2) = ADDR OF ERROR PROCESSOR                      PEM          408     A     
 PEM                SB2    X2                                                              PEM          409     A     
 PEM                JP     B2-4S15+1   BEGIN APPROPRIATE ERROR FORMATTER...                PEM          410     A     
 PEM                                                                                       PEM          411     A     
 PEM       PDM1     BSS    0           ** RETURN FROM ERROR PROCESSING **                  PEM          412     A     
 PEM                RJ     RSR=        RESTORE ALL REGISTERS                               PEM          413     A     
 PEM                EQ     EXIT.                                                           PEM          414     A     
 PEM       UEC      SPACE  4,10                                                            PEM          415     A     
 PEM      **        UEC -  UPDATE ERROR COUNT.                                             PEM          416     A     
 PEM      *                                                                                PEM          417     A     
 PEM      *         ENTRY  (UECA)    = ERROR LEVEL OF CURRENT DIAGNOSTIC                   PEM          418     A     
 PEM      *                (ERRORS)  = COUNT OF PROGRAM UNIT BINARY FATAL ERRORS           PEM          419     A     
 PEM      *                (E=TOTAL) = COUNT OF STATEMENT BINARY FATAL ERRORS              PEM          420     A     
 PEM      *                (CP.ERCT) = COUNT OF ET= ERRORS                                 PEM          421     A     
 PEM      *                                                                                PEM          422     A     
 PEM      *         EXIT   (ERRORS), (E=TOTAL), (CP.ERCT) UPDATED AS RELEVANT              PEM          423     A     
 PEM      *                                                                                PEM          424     A     
 PEM      *         USES   A1,A2,A3,A6,A7  X1,X2,X3,X6,X7                                  PEM          425     A     
 PEM                                                                                       PEM          426     A     
 PEM                                                                                       PEM          427     A     
 PEM       UEC      SUBR               ...ENTRY/EXIT...                                    PEM          428     A     
 PEM                SA1    UECA                                                            PEM          429     A     
 PEM                SA2    ERRORS                                                          PEM          430     A     
 PEM                SA3    E=TOTAL                                                         PEM          431     A     
 PEM                SB2    X1-EL=F                                                         PEM          432     A     
 PEM                MI     B2,UEC1     IF DIAGNOSTIC NOT FATAL TO BINARY                   PEM          433     A     
 PEM                =X6    X2+1                                                            PEM          434     A     
 PEM                =X7    X3+1                                                            PEM          435     A     
 PEM                SA6    A2          UPDATE ERRORS                                       PEM          436     A     
 PEM                SA7    A3          UPDATE E=TOTAL                                      PEM          437     A     
 PEM                MX6    1                                                               PEM          438     A     
 PEM                SA6    WO.QC       GO INTO QUICK CHECK MODE AFTER FATAL ERROR          PEM          439     A     
 PEM                                                                                       PEM          440     A     
 PEM       UEC1     SA2    CO.ET                                                           PEM          441     A     
 PEM                ZR     X2,EXIT.    IF NO ERROR TERMINATION                             PEM          442     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PEM     
  
 PEM                IX1    X1-X2                                                           PEM          443     A     
 PEM                MI     X1,EXIT.    IF NOT ET=LEVEL OR HIGHER                           PEM          444     A     
 PEM                =X1    1                                                               PEM          445     A     
 PEM                SA2    CP.ERCT                                                         PEM          446     A     
 PEM                IX6    X1+X2                                                           PEM          447     A     
 PEM                SA6    A2          UPDATE CP.ERCT                                      PEM          448     A     
 PEM                EQ     EXIT.                                                           PEM          449     A     
 PEM                                                                                       PEM          450     A     
 PEM       UECA     BSS    1           ERROR LEVEL OF CURRENT DIAGNOSTIC                   PEM          451     A     
 PEM      *CALL     COMQSVR                                                                PEM          452     A     
 PEM                                                                                       PEM          453     A     
 PEM                LIST   D                                                               PEM          454     A     
 PEM                END                                                                    PEM          455     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PEM     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PEM                        455       446
          FC5A144                      1         1
          F1037F5                     12        12
          FC50353                      8         8
          FC50636                      2         2
          FC5A426                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *DECK     ALLOC                                                                  ALLOC          1     A     
 ALLOC              IDENT  ALLOC                                                           ALLOC          2     A     
 ALLOC     ALLOC    SECT   (TABLE ALLOCATION.)                                             ALLOC          3     A     
 ALLOC     ALLOC    SPACE  4                                                               ALLOC          4     A     
 ALLOC    *         IN FAS/INIT21                                                          ALLOC          5     A     
 ALLOC              EXT    DLF                                                             ALLOC          6     A     
 ALLOC                                                                                     ALLOC          7     A     
 ALLOC    *         IN FEC                                                                 ALLOC          8     A     
 ALLOC              EXT    FEC=BY,FEC.RTN,STAGE                                            ALLOC          9     A     
 ALLOC                                                                                     ALLOC         10     A     
 ALLOC    *         IN FERRS                                                               ALLOC         11     A     
 ALLOC              EXT    E.MO2,E.MO4,E.MO5,E.MO6,E.MO7,E.TC1,FILL.,FILL.2                ALLOC         12     A     
 ALLOC                                                                                     ALLOC         13     A     
 ALLOC    *         IN FTN                                                                 ALLOC         14     A     
 ALLOC              EXT    ABTFTN,COD,CO.SNAP,CP.AFLS,F.LGO,F.OUT,F.PB,F.REF               ALLOC         15     A     
 ALLOC              EXT    MAX.FL,MSG=,NOM.FL                                              ALLOC         16     A     
 ALLOC                                                                                     ALLOC         17     A     
 ALLOC    *         IN IDP                                                                 ALLOC         18     A     
 ALLOC              EXT    PTO                                                             ALLOC         19     A     
 ALLOC                                                                                     FC50889        5     A     
 ALLOC    *         IN LEX                                                                 FC50889        6     A     
 ALLOC              EXT    LDB,LEXFLG                                                      FC50889        7     A     
 ALLOC                                                                                     ALLOC         20     A     
 ALLOC    *         IN LISTLNK                                                             FC5A150      282     A     
 ALLOC              EXT    ALC=CNT,MOVES                                                   FC5A150      283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     FC5A150      284     A     
 ALLOC    *         IN PEM                                                                 ALLOC         21     A     
 ALLOC              EXT    PDM                                                             ALLOC         22     A     
 ALLOC                                                                                     ALLOC         23     A     
 ALLOC    *         IN PUC                                                                 ALLOC         24     A     
 ALLOC              EXT    ALC=CNT,BASES,BINIO,FAILSFT,GMC,IDENT,L.TABS,MOVES,MTD          ALLOC         25          I
          -FC5A150
 ALLOC              EXT    BASES,BINIO,FAILSFT,GMC,IDENT,L.TABS,MTD                        FC5A150      285     A     
 ALLOC              EXT    NAMES,NREXT,N.TABLE,O.TABS,PASS,REFIO,SIZES,THRESH              ALLOC         26     A     
 ALLOC              EXT    T=APL,T=BLKS,T=BLST,T=CON,T=DATS,T=DIM,T=ENT,T=EQUS             ALLOC         27     A     
 ALLOC              EXT    T=FILL,T=FMT,T=GL,T=LINK,T=NLST,T=PAR,T=REF,T=SCR               ALLOC         28     A     
 ALLOC              EXT    T=STF,T=XFIL,T.PAR,T.REF,T.STF,WOF                              ALLOC         29          I
          -FC50889
 ALLOC              EXT    T=STF,T=STMT,T=XFIL,T.PAR,T.REF,T.STF,WOF                       FC50889        8     A     
 ALLOC                                                                                     ALLOC         30     A     
 ALLOC    *         IN UTILITY                                                             ALLOC         31     A     
 ALLOC              EXT    CIO=,FRA=,MVE=,WTW=                                             ALLOC         32     A     
 ALLOC     ADW      SPACE  4,20                                                            ALLOC         33     A     
 ALLOC    **        ADW -  ADD ONE WORD TO END OF MANAGED TABLE.                           ALLOC         34     A     
 ALLOC    *                                                                                ALLOC         35     A     
 ALLOC    *         THE MACRO CALL *ADDWD* SHOULD ALWAYS BE USED.                          ALLOC         36     A     
 ALLOC    *                                                                                ALLOC         37     A     
 ALLOC    *         ENTRY  (X6) = DATUM.                                                   ALLOC         38     A     
 ALLOC    *                (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC         39     A     
 ALLOC    *                                                                                ALLOC         40     A     
 ALLOC    *         EXIT   (X1) = ORIGIN OF TABLE.                                         ALLOC         41     A     
 ALLOC    *                (X2) = NEW LENGTH OF TABLE                                      ALLOC         42     A     
 ALLOC    *                (X3) = DATUM.                                                   ALLOC         43     A     
 ALLOC    *                (X6) = DATUM.                                                   ALLOC         44     A     
 ALLOC    *                (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC         45     A     
 ALLOC    *                (A2) _ LENGTH WORD OF TABLE.                                    ALLOC         46     A     
 ALLOC    *                (A6) _ LWA OF TABLE, WHERE *DATUM* WAS JUST STORED.             ALLOC         47     A     
 ALLOC    *                (B7) = LWA + 1 OF TABLE                                         ALLOC         48     A     
 ALLOC    *                                                                                ALLOC         49     A     
 ALLOC    *         USES   A1,A2,A3,A6,A7  B7  X0,X1,X2,X3,X6,X7                           ALLOC         50     A     
 ALLOC    *                                                                                ALLOC         51     A     
 ALLOC    *         CALLS  ALC                                                             ALLOC         52     A     
 ALLOC                                                                                     ALLOC         53     A     
 ALLOC                                                                                     ALLOC         54     A     
 ALLOC     ADW      SUBR   =           ...ENTRY/EXIT...                                    ALLOC         55     A     
 ALLOC              SA2    A1+N.TABLE  L(T), CURRENT SIZE                                  FC5A112        4     A     
 ALLOC              =A3    A1+1        F(T+1), ORIGIN OF NEXT                              FC5A112        5     A     
 ALLOC              =X2    X2+1        L(T)=L(T)+D, NEW SIZE                               FC5A112        6     A     
 ALLOC              SX7    X1+FUDGE    F(T)+K                                              FC5A112        7     A     
 ALLOC              IX0    X3-X7       F(T+1)-(F(T)+K)                                     FC5A112        8     A     
 ALLOC              BX7    X2          (X7) = L(T)+D                                       FC5A112        9     A     
 ALLOC              IX3    X1+X2       F(T)+L(T)+D                                         FC5A112       10     A     
 ALLOC              IX0    X0-X2       F(T+1)-(F(T)+K+L(T)+D)                              FC5A112       11     A     
 ALLOC              SB7    X3          (B7) = LWA+1 OF TABLE                               FC5A112       12     A     
 ALLOC              MI     X0,ADW10    IF CRASH                                            FC5A112       13     A     
 ALLOC              =A6    B7-1                                                            FC5A112       14     A     
 ALLOC              BX3    X6                                                              FC5A112       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA7    A2                                                              FC5A112       16     A     
 ALLOC              EQ     EXIT.                                                           FC5A112       17     A     
 ALLOC                                                                                     FC5A112       18     A     
 ALLOC     ADW10    BSS    0                                                               FC5A112       19     A     
 ALLOC              SX0    1                                                               ALLOC         56     A     
 ALLOC              SA6    ADWT        SAVE DATUM                                          ALLOC         57     A     
 ALLOC              RJ     ALC                                                             ALLOC         58     A     
 ALLOC     ADW.ALC  BSSENT 0           USED BY SNAP TO DETERMINE ALC CALLER                ALLOC         59     A     
 ALLOC              SA3    ADWT                                                            ALLOC         60     A     
 ALLOC              BX6    X3                                                              ALLOC         61     A     
 ALLOC              =A6    B7-1                                                            ALLOC         62     A     
 ALLOC              EQ     EXIT.       EXIT...                                             ALLOC         63     A     
 ALLOC                                                                                     ALLOC         64     A     
 ALLOC     ADWT     BSSENT 4           TEMPORARY SAVE CELLS FOR ADWT AND CALLERS           ALLOC         65     A     
 ALLOC     ALC      SPACE  4,40                                                            ALLOC         66     A     
 ALLOC    **        ALC -  TABLE MANAGER AND ALLOCATOR.                                    ALLOC         67     A     
 ALLOC    *                                                                                ALLOC         68     A     
 ALLOC    *         ALLOCATOR WILL MOVE TABLES TO ACQUIRE ROOM.  ALSO MAY DUMP             ALLOC         69     A     
 ALLOC    *         PREBINARY OR CROSS-REFERENCES ONTO SCRATCH FILE.                       ALLOC         70     A     
 ALLOC    *         A MEMORY REQUEST WILL BE PERFORMED IF NECESSARY.                       ALLOC         71     A     
 ALLOC    *         THE MACRO CALL *ALLOC* SHOULD ALWAYS BE USED.                          ALLOC         72     A     
 ALLOC    *         ALLOC WILL DIFFERENTIATE BETWEEN HIGH AND LOW ACTIVITY TABLES.         FC5A128      133     A     
 ALLOC    *         THE HIGH ACTIVITY TABLES WIIL RECIEVE 13/16 OF THE AVAILABLE           FC5A128      134     A     
 ALLOC    *         SPACE.  THREE TABLE VECTORS CORRESPONDING TO THREE COMPILATION         FC5A128      135     A     
 ALLOC    *         PHASES INDICATE WHICH TABLES ARE ACTIVE (SEE PUC).  TV=CUR             FC5A128      136     A     
 ALLOC    *         WILL ALWAYS CONTAIN THE TABLE VECTOR OF THE CURRENT PHASE.             FC5A128      137     A     
 ALLOC    *                                                                                ALLOC         73     A     
 ALLOC    *         STOLEN FROM *COMPASS VER 2.0*                                          ALLOC         74     A     
 ALLOC    *                                                                                ALLOC         75     A     
 ALLOC    *         ENTRY  (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC         76     A     
 ALLOC    *                (X0) = CHANGE (+ OR -) TO TABLE SIZE.                           ALLOC         77     A     
 ALLOC    *                                                                                ALLOC         78     A     
 ALLOC    *         EXIT   (X1) = ORIGIN OF TABLE.                                         ALLOC         79     A     
 ALLOC    *                (X2) = NEW LENGTH OF TABLE.                                     ALLOC         80     A     
 ALLOC    *                (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC         81     A     
 ALLOC    *                (A2) _ LENGTH WORD OF TABLE.                                    ALLOC         82     A     
 ALLOC    *                (B7) = LWA + 1 OF TABLE                                         ALLOC         83     A     
 ALLOC    *                                                                                ALLOC         84     A     
 ALLOC    *         NOTE SPECIAL DEAL FOR REGISTER RELOCATION --                           ALLOC         85     A     
 ALLOC    *                AT CERTAIN TIMES A PARTICULAR REGISTER MAY BE                   ALLOC         86     A     
 ALLOC    *                POINTING TO SOME TABLE, WHICH WE ARE ABOUT TO MOVE.             ALLOC         87     A     
 ALLOC    *                TO AVOID THE EMBARASSMENT WHICH MIGHT OTHERWISE OCCUR,          ALLOC         88     A     
 ALLOC    *                THE MANAGER WILL RELOCATE A REGISTER RELATIVE TO A              ALLOC         89     A     
 ALLOC    *                DESIGNATED TABLE.  THIS IS INDICATED BY SETTING                 ALLOC         90     A     
 ALLOC    *                (ALC.REG) =  24/ 0,  18/ REG,  18/ TABLE                        ALLOC         91     A     
 ALLOC    *                    (REG) = ADDRESS OF CELL WHERE DESIRED REGISTER IS           ALLOC         92     A     
 ALLOC    *                            SAVED BY *ALC*.                                     ALLOC         93     A     
 ALLOC    *                    (TAB) = ADDRESS OF TABLE ORIGIN WORD.                       ALLOC         94     A     
 ALLOC    *                THIS CAN ONLY BE DONE FOR A REGISTER WHICH IS SAVED AND         ALLOC         95     A     
 ALLOC    *                RESTORED BY THE MANAGER.                                        ALLOC         96     A     
 ALLOC    *                                                                                ALLOC         97     A     
 ALLOC    *         COMMENTS WILL USE THE FOLLOWING CONVENTIONS -                          ALLOC         98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                                                                                ALLOC         99     A     
 ALLOC    *                A = AMOUNT OF AVAILABLE (UNUSED) CORE.                          ALLOC        100     A     
 ALLOC    *                F = FWA OF MANAGABLE STORAGE (O.TABS).                          ALLOC        101     A     
 ALLOC    *                K = NUMBER OF UNUSED WORDS GUARANTEED BETWEEN                   ALLOC        102     A     
 ALLOC    *                      TABLES (FUDGE).                                           ALLOC        103     A     
 ALLOC    *                N = NUMBER OF TABLES TO MANAGE (N.TABLE)-1                      ALLOC        104     A     
 ALLOC    *                NACT = NUMBER OF HIGH ACTIVITY TABLES.                          FC5A128      138     A     
 ALLOC    *                S = SIZE OF MANAGABLE STORAGE (L.TABS).                         ALLOC        105     A     
 ALLOC    *                                                                                ALLOC        106     A     
 ALLOC    *                TWO VECTORS OF LENGTH N+1 (0.LE.I.LE.N-1) --                    ALLOC        107     A     
 ALLOC    *                F(I) = I-TH TABLE ORDINAL (SIZES)                               ALLOC        108     A     
 ALLOC    *                L(I) = I-TH TABLE LENGTH (BASES)                                ALLOC        109     A     
 ALLOC    *                F(N) = F+S                                                      ALLOC        110     A     
 ALLOC    *                L(N) = 0                                                        ALLOC        111     A     
 ALLOC    *                L = TOTAL LENGTH OF ALL TABLES (SUM L(I))                       ALLOC        112     A     
 ALLOC    *                LACT = LENGTH OF ACTIVE TABLES.                                 FC5A128      139     A     
 ALLOC    *                F(T), L(T) = REQUESTING TABLE ORIGIN AND LENGTH.                ALLOC        113     A     
 ALLOC    *                D = NUMBER OF WORDS DEMANDED FOR L(T).                          ALLOC        114     A     
 ALLOC    *                                                                                ALLOC        115     A     
 ALLOC    *         USES   A1-A3,A6,A7  B7  X0-X3,X6,X7                                    ALLOC        116          I
          -FC5A128
 ALLOC    *         USES   A1-A3,A6,A7  B7  X0-X3,X6,X7                                    FC5A128      140     A     
 ALLOC    *                                                                                ALLOC        117     A     
 ALLOC    *         KEEPS  A0,A4,A5  B2-B6  X4,X5                                          ALLOC        118     A     
 ALLOC    *                                                                                ALLOC        119     A     
 ALLOC    *         CALLS  GMR, MTD, MOVE, PTS                                             ALLOC        120     A     
 ALLOC                                                                                     ALLOC        121     A     
 ALLOC                                                                                     ALLOC        122     A     
 ALLOC     ALC      SUBR   =           ...ENTRY/EXIT...                                    ALLOC        123     A     
 ALLOC                                                                                     ALLOC        124     A     
 ALLOC     .T       IFEQ   TEST,ON                                                         ALLOC        125     A     
 ALLOC              SA2    ALC=CNT                                                         ALLOC        126     A     
 ALLOC              SX6    X2+B1                                                           ALLOC        127     A     
 ALLOC              SA6    A2                                                              ALLOC        128     A     
 ALLOC    .T        ENDIF                                                                  ALLOC        129     A     
 ALLOC                                                                                     ALLOC        130     A     
 ALLOC              SA2    A1+N.TABLE  L(T), CURRENT SIZE                                  ALLOC        131     A     
 ALLOC              =A3    A1+1        F(T+1), ORIGIN OF NEXT                              ALLOC        132     A     
 ALLOC              IX2    X0+X2       L(T)=L(T)+D, NEW SIZE                               ALLOC        133     A     
 ALLOC              SX6    X1+FUDGE    F(T)+K                                              ALLOC        134     A     
 ALLOC              IX7    X3-X6       F(T+1)-(F(T)+K)                                     ALLOC        135     A     
 ALLOC              BX6    X2          (X6) = L(T)+D                                       ALLOC        136     A     
 ALLOC              IX3    X1+X2       F(T)+L(T)+D                                         ALLOC        137     A     
 ALLOC              SA6    A2          UPDATE L(T)                                         ALLOC        138     A     
 ALLOC              IX7    X7-X2       F(T+1)-(F(T)+K+L(T)+D)                              ALLOC        139     A     
 ALLOC              SB7    X3          (B7) = LWA+1 OF TABLE                               ALLOC        140     A     
 ALLOC                                                                                     ALLOC        141     A     
 ALLOC                                                                                     ALLOC        142     A     
 ALLOC    **               TABLES HAVE CRASHED WHEN --                                     ALLOC        143     A     
 ALLOC    *         F(T) + L(T) + D + K .GT. F(T+1)                                        ALLOC        144     A     
 ALLOC                                                                                     ALLOC        145     A     
 ALLOC     .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                        ALLOC        146     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              MI     X2,"BLOWUP" IF L(T) .LT. 0                                      ALLOC        147     A     
 ALLOC              PL     X7,EXIT.    IF NO CRASH, EXIT...                                ALLOC        148     A     
 ALLOC                                                                                     ALLOC        149     A     
 ALLOC                                                                                     ALLOC        150     A     
 ALLOC    **        WE HAVE A CRASH AND MUST REALLOCATE -- PREPARE TO DO SO.               ALLOC        151     A     
 ALLOC    *                SAVE REGISTERS.                                                 ALLOC        152     A     
 ALLOC                                                                                     ALLOC        153     A     
 ALLOC              IX6    X2-X0       L(T)=L(T)-D (BACK AGAIN)                            ALLOC        154     A     
 ALLOC              BX7    X5                                                              ALLOC        155     A     
 ALLOC              SA6    A2          RESTORE ORIGINAL SIZE, TEMPORARILY                  ALLOC        156     A     
 ALLOC              LX6    X4                                                              ALLOC        157     A     
 ALLOC    *                            (ALCA)                                              ALLOC        158     A     
 ALLOC              SA7    ALCA+8      +8 = (X5)                                           ALLOC        159     A     
 ALLOC              =A6    A7-1        +7 = (X4)                                           ALLOC        160     A     
 ALLOC              SX7    A5                                                              ALLOC        161     A     
 ALLOC              SX6    A4                                                              ALLOC        162     A     
 ALLOC              =A7    A6-1        +6 = (A5)                                           ALLOC        163     A     
 ALLOC              =A6    A7-1        +5 = (A4)                                           ALLOC        164     A     
 ALLOC              SX7    B6-B0                                                           ALLOC        165     A     
 ALLOC              SX6    B5-B0                                                           ALLOC        166     A     
 ALLOC              =A7    A6-1        +4 = (B6)                                           ALLOC        167     A     
 ALLOC              =A6    A7-1        +3 = (B5)                                           ALLOC        168     A     
 ALLOC              SX7    B4-B0                                                           ALLOC        169     A     
 ALLOC              SX6    B3-B0                                                           ALLOC        170     A     
 ALLOC              =A7    A6-1        +2 = (B4)                                           ALLOC        171     A     
 ALLOC              =A6    A7-1        +1 = (B3)                                           ALLOC        172     A     
 ALLOC              SX7    B2-B0                                                           ALLOC        173     A     
 ALLOC              SB2    BASES                                                           ALLOC        174     A     
 ALLOC              SB2    A1-B2                                                           ALLOC        175     A     
 ALLOC              =A7    A6-1        +0 = (B2)                                           ALLOC        176     A     
 ALLOC                                                                                     ALLOC        177     A     
 ALLOC    **        SAVE THE BASE ADDRESS OF THE TABLE DESIGNATED BY (ALC.REG) FOR         ALLOC        178     A     
 ALLOC    *                THE *RELATIVE-REGISTER* FEATURE.                                ALLOC        179     A     
 ALLOC                                                                                     ALLOC        180     A     
 ALLOC              SA2    ALC.REG                                                         ALLOC        181     A     
 ALLOC              SA1    X2          FETCH OLD BASE                                      ALLOC        182     A     
 ALLOC              BX6    X1                                                              ALLOC        183     A     
 ALLOC              =A6    A2+1                                                            ALLOC        184     A     
 ALLOC                                                                                     ALLOC        185     A     
 ALLOC     .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                        ALLOC        186     A     
 ALLOC              CALL   PTS         PRINT TABLE STATISTICS                              ALLOC        187     A     
 ALLOC                                                                                     ALLOC        188     A     
 ALLOC                                                                                     ALLOC        189     A     
 ALLOC    **        COMPUTE --                                                             ALLOC        190     A     
 ALLOC    *                (L) = SPACE CURRENTLY OCCUPIED BY TABLES.                       ALLOC        191     A     
 ALLOC    *                    = SIGMA (0.LT. I .LT. N,  L(I) )                            ALLOC        192          I
          -FC5A128
 ALLOC    *                    = SIGMA(0.LT. I .LT. N, L(I)) + D                           FC5A128      141          I
          -FC5A158A 
 ALLOC    *                    = SIGMA(0.LT. I .LT. N, L(I)) + D                           FC5A158A     295     A     
 ALLOC    *                (LACT) =LENGTH OF HIGH ACTIVITY TABLES(+ D,IF T ACTIVE)         FC5A128      142     A     
 ALLOC    *                (A) = ALLOCATABLE SPACE CURRENTLY UNNEEDED.                     ALLOC        193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                    = S - N*K - ( L + D )                                       ALLOC        194          I
          -FC5A128
 ALLOC                                                                                     ALLOC        195          I
          -FC5A128
 ALLOC     ALC10    SA2    L.TABS      MANAGABLE CORE SIZE                                 ALLOC        196          I
          -FC5A128
 ALLOC              SB4    N.TABLE*FUDGE-FUDGE   N*K, AMOUNT OF TOTAL FUDGE                ALLOC        197          I
          -FC5A128
 ALLOC              SB7    N.TABLE-1   I=N, NUMBER OF TABLES                               ALLOC        198          I
          -FC5A128
 ALLOC              SX3    X0+B4       L=N*K+D, START WITH DEMAND AND FUDGE                ALLOC        199          I
          -FC5A128
 ALLOC     ALC20    SA1    SIZES+B7    L(I)                                                ALLOC        200          I
          -FC5A128
 ALLOC              SB7    B7-B1       I=I-1                                               ALLOC        201          I
          -FC5A128
 ALLOC              IX3    X3+X1       L=L+L(I)                                            ALLOC        202          I
          -FC5A128
 ALLOC              PL     B7,ALC20    IF ALL TABLES NOT SUMMED                            ALLOC        203          I
          -FC5A128
 ALLOC                                                                                     ALLOC        204          I
          -FC5A128
 ALLOC              IX6    X2-X3       (X6) = A = S - N*K - (L+D)                          ALLOC        205          I
          -FC5A128
 ALLOC              SB4    X3          (B4) = L+D+N*K, TOTAL LENGTH                        ALLOC        206          I
          -FC5A128
 ALLOC    *                    = S - N*K - (L + D) - 168                                   FC5A128      143     A     
 ALLOC    *                      168 IS ADDITIONAL SLOP ALLOCATED FOR TB                   FC5A128      144     A     
 ALLOC                                                                                     FC5A128      145     A     
 ALLOC     ALC10    SA2    =XTV=CUR    TV */TABLE VECTOR,=1 IF ACTIVE                      FC5A128      146     A     
 ALLOC              SX3    B1                                                              FC5A128      147     A     
 ALLOC              MX7    0                                                               FC5A128      148     A     
 ALLOC              LX3    B2,X3       (X3) = TV MASK FOR BIT POSITION T                   FC5A128      149     A     
 ALLOC              BX1    X2*X3                                                           FC5A128      150     A     
 ALLOC              ZR     X1,ALC14    IF T NOT ACTIVE                                     FC5A128      151     A     
 ALLOC              BX7    X0          LACT = D                                            FC5A128      152     A     
 ALLOC                                                                                     FC5A128      153     A     
 ALLOC     ALC14    LX3    X0          L = D                                               FC5A128      154     A     
 ALLOC              SB5    59                                                              FC5A128      155     A     
 ALLOC              SB7    N.TABLE-1   I=N,NUMBER OF TABLES                                FC5A128      156     A     
 ALLOC              SB4    B5-B7                                                           FC5A128      157     A     
 ALLOC              LX2    B4,X2       LEFT SHIFT 59-N                                     FC5A128      158     A     
 ALLOC                                                                                     FC5A128      159     A     
 ALLOC     ALC20    SA1    SIZES+B7    = L(I)                                              FC5A128      160     A     
 ALLOC              SB7    B7-B1       I = I - 1                                           FC5A128      161     A     
 ALLOC              IX3    X3+X1       L = L + L(I)                                        FC5A128      162     A     
 ALLOC              PL     X2,ALC22    IF I NOT ACTIVE                                     FC5A128      163     A     
 ALLOC              IX7    X7+X1       LACT = LACT + L(I)                                  FC5A128      164     A     
 ALLOC                                                                                     FC5A128      165     A     
 ALLOC     ALC22    LX2    1                                                               FC5A128      166     A     
 ALLOC              PL     B7,ALC20    LOOP FOR ALL TABLES                                 FC5A128      167     A     
 ALLOC                                                                                     FC5A128      168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA2    L.TABS      = S                                                 FC5A128      169     A     
 ALLOC              SB3    X7          (B3) = LACT                                         FC5A128      170     A     
 ALLOC              SX7    X3+N.TABLE*FUDGE-FUDGE+84+84  +2 STATEMENTS OF TB SLOP          FC5A128      171     A     
 ALLOC              IX6    X2-X7       (X6) = A = S - N*K - (L+D) - 168                    FC5A128      172     A     
 ALLOC              SB4    X3          (B4) = L                                            FC5A128      173     A     
 ALLOC                                                                                     ALLOC        207     A     
 ALLOC    *         RESERVE SPACE FOR MINIMUM ALLOCATION OF T.PAR .                        ALLOC        208     A     
 ALLOC                                                                                     ALLOC        209     A     
 ALLOC              MX7    0                                                               ALLOC        210     A     
 ALLOC              SB5    SIZES                                                           FC5A128      174     A     
 ALLOC              SA2    T=PAR                                                           ALLOC        211     A     
 ALLOC              SX2    X2-400B                                                         ALLOC        212          I
          -FC5A128
 ALLOC              PL     X2,ALC21    IF T=PAR GT 500B                                    ALLOC        213          I
          -FC5A128
 ALLOC              SA3    =XALC.PAR                                                       FC5A128      175     A     
 ALLOC              IX2    X2-X3                                                           FC5A128      176     A     
 ALLOC              SB5    A2-B5       (B5) = INDEX FOR PAR                                FC5A128      177     A     
 ALLOC              PL     X2,ALC26    IF T=PAR GT ALCPAR                                  FC5A128      178     A     
 ALLOC              BX7    -X2                                                             ALLOC        214     A     
 ALLOC                                                                                     ALLOC        215     A     
 ALLOC     ALC21    SA2    THRESH                                                          ALLOC        216          I
          -FC5A128
 ALLOC     ALC26    SA2    THRESH                                                          FC5A128      179     A     
 ALLOC              IX2    X2+X7       RESERVED FOR T.PAR MIN                              ALLOC        217     A     
 ALLOC              SA7    =SALCB                                                          ALLOC        218     A     
 ALLOC              IX1    X6-X2       SUBTRACT THRESHOLD AMOUNT                           ALLOC        219     A     
 ALLOC              PL     X1,ALC30    IF ENOUGH ROOM FOR TABLE                            ALLOC        220     A     
 ALLOC                                                                                     ALLOC        221     A     
 ALLOC              RJ     GMR         GET MORE ROOM                                       ALLOC        222     A     
 ALLOC              EQ     ALC10       CHECK IF ENOUGH NOW                                 ALLOC        223     A     
 ALLOC                                                                                     ALLOC        224     A     
 ALLOC                                                                                     ALLOC        225          I
          -FC5A128
 ALLOC    **        PACK ALL TABLES DOWN TO BOTTOM OF TABLE SPACE.                         ALLOC        226          I
          -FC5A128
 ALLOC                                                                                     ALLOC        227          I
          -FC5A128
 ALLOC     ALC30    SB6    X0          (B6) = D, DEMANDED CHANGE                           ALLOC        228          I
          -FC5A128
 ALLOC              IX7    X6-X7                                                           ALLOC        229          I
          -FC5A128
 ALLOC              SB5    X7                                                              ALLOC        230          I
          -FC5A128
 ALLOC              SB4    B4+X7       TOTAL = TOTAL + P                                   ALLOC        231          I
          -FC5A128
 ALLOC    *                ADJUST L,LACT,AND A FOR T.PAR ADJUSTMENT                        FC5A128      180     A     
 ALLOC                                                                                     FC5A128      181     A     
 ALLOC     ALC30    SA2    =XTV=CUR                                                        FC5A128      182     A     
 ALLOC              SX1    B1                                                              FC5A128      183     A     
 ALLOC              SB4    B4+X7       L = L + P                                           FC5A128      184     A     
 ALLOC              LX1    B5,X1                                                           FC5A128      185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              IX6    X6-X7       A = A - P                                           FC5A128      186     A     
 ALLOC              BX3    X1*X2                                                           FC5A128      187     A     
 ALLOC              ZR     X3,ALC32    IF PAR NOT ACTIVE                                   FC5A128      188     A     
 ALLOC              SB3    B3+X7       LACT = LACT + P                                     FC5A128      189     A     
 ALLOC                                                                                     FC5A128      190     A     
 ALLOC    *         PARTITION AVAILABLE SPACE BETWEEN ACTIVE AND INACTIVE TABLES.          FC5A128      191     A     
 ALLOC    *                AA = A * 13/16    */AVAILABLE SPACE FOR ACTIVE TABLES           FC5A128      192     A     
 ALLOC    *                AI = A * 3/16     */AVAILABLE SPACE FOR INACTIVE TABS           FC5A128      193     A     
 ALLOC                                                                                     FC5A128      194     A     
 ALLOC     ALC32    BX3    X6                                                              FC5A128      195     A     
 ALLOC              AX3    3                                                               FC5A128      196     A     
 ALLOC              AX1    B1,X3                                                           FC5A128      197     A     
 ALLOC              IX1    X1+X3       (X1) = AI = 3/16 * A                                FC5A128      198     A     
 ALLOC              IX6    X6-X1       (X6) = AA = 13/16 * A                               FC5A128      199     A     
 ALLOC                                                                                     FC5A128      200     A     
 ALLOC    *         SLOP SPACE ALLOCATED TO A TABLE IS EQUALLY DEPENDENT ON TWO            FC5A128      201     A     
 ALLOC    *         FACTORS, D1 AND D2.  FOR A GIVEN PERCENTAGE OF AVAILABLE               FC5A128      202     A     
 ALLOC    *         MEMORY AM, D1 IS A FUNCTION OF THE TOTAL NUMBER OF TABLES THAT         FC5A128      203     A     
 ALLOC    *         SHARE AM.  WHILE D2 IS A FUNCTION OF THE RELATIVE LENGTHS OF           FC5A128      204     A     
 ALLOC    *         OF THE TABLES THAT SHARE AM.  THEREFORE HALF OF AM IS EQUALLY          FC5A128      205     A     
 ALLOC    *         SHARED BETWEEN ALL TABLES ACCORDING TO D1, AND  THE OTHER HALF         FC5A128      206     A     
 ALLOC    *         OF AM IS SHARED ACCORDING TO THE RELATIVE LENGTHS OF THE               FC5A128      207     A     
 ALLOC    *         TABLES BY D2, THE LARGER RECIEVING THE MOST OF AM.                     FC5A128      208     A     
 ALLOC                                                                                     FC5A128      209     A     
 ALLOC    *         CALCULATE D1 AND D2 FOR ACTIVE TABLES.                                 FC5A128      210     A     
 ALLOC    *         IF LACT = 0        D1 = AA * 1/NAT                                     FC5A128      211     A     
 ALLOC    *                            D2 = 0                                              FC5A128      212     A     
 ALLOC    *         OTHERWISE          D1 = AA * 1/2 * 1/NAT                               FC5A128      213     A     
 ALLOC    *                            D2 = AA * 1/2 * 1/LACT                              FC5A128      214     A     
 ALLOC                                                                                     FC5A128      215     A     
 ALLOC              CX3    X2          = NAT                                               FC5A128      216     A     
 ALLOC              ZR     B3,ALC33    IF LACT = 0                                         FC5A128      217     A     
 ALLOC              AX6    1                                                               FC5A128      218     A     
 ALLOC              IX7    X6/X3                                                           FC5A128      219     A     
 ALLOC              SX5    B3                                                              FC5A128      220     A     
 ALLOC              SA7    ALCD1+1     D1 = AA * 1/2 * 1/NAT                               FC5A128      221     A     
 ALLOC              PX5    X5                                                              FC5A128      222     A     
 ALLOC              NX5    X5                                                              FC5A128      223     A     
 ALLOC              FX7    X6/X5                                                           FC5A128      224     A     
 ALLOC              SA7    ALCD2+1     D2 = AA * 1/2 * 1/LACT                              FC5A128      225     A     
 ALLOC              EQ     ALC36                                                           FC5A128      226     A     
 ALLOC                                                                                     FC5A128      227     A     
 ALLOC     ALC33    IX7    X6/X3                                                           FC5A128      228     A     
 ALLOC              MX6    0                                                               FC5A128      229     A     
 ALLOC              SA7    ALCD1+1     D1 = AA * 1/NAT                                     FC5A128      230     A     
 ALLOC              PX6    X6                                                              FC5A128      231     A     
 ALLOC              SA6    ALCD2+1     D2 = 0                                              FC5A128      232     A     
 ALLOC                                                                                     FC5A128      233     A     
 ALLOC    *         CALCULATE D1 AND D2 FOR INACTIVE TABLES.                               FC5A128      234     A     
 ALLOC    *         IF L - LACT = 0    D1 = AI * 1/(N-NAT)                                 FC5A128      235     A     
 ALLOC    *                            D2 = 0                                              FC5A128      236     A     
 ALLOC    *         OTHERWISE          D1 = AI * 1/2 * 1/(N-NAT)                           FC5A128      237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                            D2 = AI * 1/2 * 1/(L-LACT)                          FC5A128      238     A     
 ALLOC                                                                                     FC5A128      239     A     
 ALLOC     ALC36    SX7    N.TABLE-1                                                       FC5A128      240     A     
 ALLOC              CX3    X2                                                              FC5A128      241     A     
 ALLOC              SX5    B4-B3       = L - LACT                                          FC5A128      242     A     
 ALLOC              IX3    X7-X3       N - NAT                                             FC5A128      243     A     
 ALLOC              ZR     X5,ALC37    IF L - LACT = 0                                     FC5A128      244     A     
 ALLOC              AX1    1                                                               FC5A128      245     A     
 ALLOC              IX7    X1/X3                                                           FC5A128      246     A     
 ALLOC              PX5    X5                                                              FC5A128      247     A     
 ALLOC              SA7    ALCD1       D1 = AI * 1/2 * 1/(N-NAT)                           FC5A128      248     A     
 ALLOC              NX5    X5                                                              FC5A128      249     A     
 ALLOC              FX7    X1/X5                                                           FC5A128      250     A     
 ALLOC              SA7    ALCD2       D2 = AI * 1/2 * 1/(L-LACT)                          FC5A128      251     A     
 ALLOC              EQ     ALC38                                                           FC5A128      252     A     
 ALLOC                                                                                     FC5A128      253     A     
 ALLOC     ALC37    MX6    0                                                               FC5A128      254     A     
 ALLOC              IX7    X1/X3                                                           FC5A128      255     A     
 ALLOC              PX6    X6                                                              FC5A128      256     A     
 ALLOC              SA7    ALCD1       D1 = AI * 1/(N-NAT)                                 FC5A128      257     A     
 ALLOC              SA6    ALCD2       D2 = 0                                              FC5A128      258     A     
 ALLOC                                                                                     FC5A128      259     A     
 ALLOC    **               PACK ALL TABLES DOWN TO BOTTOM OF TABLE SPACE                   FC5A128      260     A     
 ALLOC                                                                                     FC5A128      261     A     
 ALLOC     ALC38    SB6    X0          (B6) = D, DEMANDED CHANGE                           FC5A128      262     A     
 ALLOC              SA2    O.TABS                                                          ALLOC        232     A     
 ALLOC              BX0    X2                                                              ALLOC        233     A     
 ALLOC              RJ     MTD         MOVE TABLES DOWN TO LOW CORE                        ALLOC        234     A     
 ALLOC              SA3    B2+SIZES    (X3) = L(T), REQUESTING TABLE SIZE                  ALLOC        235     A     
 ALLOC              SX6    X3+B6       L(T)=L(T)+D                                         ALLOC        236     A     
 ALLOC              SA6    A3          UPDATE L(T)                                         ALLOC        237     A     
 ALLOC              SA1    T=PAR                                                           ALLOC        238     A     
 ALLOC              SA2    ALCB                                                            ALLOC        239     A     
 ALLOC              IX6    X1+X2                                                           ALLOC        240     A     
 ALLOC              SA6    A1          ALLOCATE MIN FOR T.PAR                              ALLOC        241     A     
 ALLOC              SA1    O.TABS                                                          ALLOC        242     A     
 ALLOC              SA2    L.TABS                                                          ALLOC        243     A     
 ALLOC              IX5    X1+X2       (X5) = F+S, LWA+1 OF CORE                           ALLOC        244     A     
 ALLOC              SB3    N.TABLE-1                                                       ALLOC        245     A     
 ALLOC                                                                                     ALLOC        246     A     
 ALLOC     .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                        ALLOC        247     A     
 ALLOC              ZR     B4,"BLOWUP" IF NO LENGTH                                        ALLOC        248     A     
 ALLOC                                                                                     ALLOC        249     A     
 ALLOC                                                                                     ALLOC        250     A     
 ALLOC    **        REALLOCATE AND MOVE TABLE (I) TO ITS NEW POSITION.                     ALLOC        251     A     
 ALLOC    *                --  N .GT. I .GT. 0   --                                        ALLOC        252     A     
 ALLOC    *                F(I) = F(I+1) - L(I) - D1 - D2 - FUDGE                          ALLOC        253          I
          -FC5A128
 ALLOC    *                D1 = (1/2)*(A) / (N)                                            ALLOC        254          I
          -FC5A128
 ALLOC    *                D2 = (1/2)*(A) * (L(I)/L)                                       ALLOC        255          I
          -FC5A128
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                F(I) = F(I+1) - L(I) - D1 - D2 * L(I) - FUDGE                   FC5A128      263     A     
 ALLOC                                                                                     FC5A128      264     A     
 ALLOC              SA3    =XTV=CUR                                                        FC5A128      265     A     
 ALLOC              SB5    61                                                              FC5A128      266     A     
 ALLOC              SB4    B5-B3                                                           FC5A128      267     A     
 ALLOC              LX0    B4,X3       SHIFT 60-N+1                                        FC5A128      268     A     
 ALLOC                                                                                     FC5A128      269     A     
 ALLOC                                                                                     ALLOC        256     A     
 ALLOC     ALC40    SB3    B3-B1       DECREMENT TABLE POINTER                             ALLOC        257     A     
 ALLOC              SA2    B3+BASES    (X2) = F(I),  TABLE ORIGIN                          ALLOC        258     A     
 ALLOC              SX0    B5          A, SPACE AVAILABLE                                  ALLOC        259          I
          -FC5A128
 ALLOC              SA1    A2+N.TABLE  (X1) = L(I)                                         ALLOC        260     A     
 ALLOC              SX3    N.TABLE-1                                                       ALLOC        261          I
          -FC5A128
 ALLOC              AX7    X0,B1                                                           ALLOC        262          I
          -FC5A128
 ALLOC              IX6    X0/X3       = A / N                                             ALLOC        263          I
          -FC5A128
 ALLOC              SX3    B4          TOTAL LENGTH                                        ALLOC        264          I
          -FC5A128
 ALLOC              IX7    X7*X1       = A/2 * L(I)                                        ALLOC        265          I
          -FC5A128
 ALLOC              AX6    1                                                               ALLOC        266          I
          -FC5A128
 ALLOC              IX7    X7/X3       = A/2 * (L(I)/(L+D))                                ALLOC        267          I
          -FC5A128
 ALLOC              IX6    X6+X7                                                           ALLOC        268          I
          -FC5A128
 ALLOC              SX7    B1                                                              FC5A128      270     A     
 ALLOC              BX6    X0*X7       = 1 IF ACTIVE, = 0 IF INACTIVE                      FC5A128      271     A     
 ALLOC              SA3    ALCD2+X6    = D2                                                FC5A128      272     A     
 ALLOC              PX1    X1                                                              FC5A128      273     A     
 ALLOC              SA4    ALCD1+X6                                                        FC5A128      274     A     
 ALLOC              NX1    X1                                                              FC5A128      275     A     
 ALLOC              FX7    X3*X1       = D2 * L(I)                                         FC5A128      276     A     
 ALLOC              LX0    1           SHIFT VECTOR FOR NEXT ITERATION                     FC5A128      277     A     
 ALLOC              UX7    B4,X7                                                           FC5A128      278     A     
 ALLOC              LX7    B4,X7                                                           FC5A128      279     A     
 ALLOC              IX6    X7+X4       = D1 + D2 * L(I)                                    FC5A128      280     A     
 ALLOC              =X6    X6+FUDGE    = K, AMOUNT OF SLOP ABOVE THIS TABLE                ALLOC        269     A     
 ALLOC              IX6    X5-X6       = F(I+1) - (K + (A*L(I)/(L+D)/2) + (A/2/N)          ALLOC        270     A     
 ALLOC              UX1    X1                                                              ALLOC        271          I
          -FC5A128
 ALLOC              UX1    B4,X1                                                           FC5A128      281     A     
 ALLOC              LX1    B4,X1                                                           FC5A128      282     A     
 ALLOC              IX7    X6-X1       F(I) = (X6) - L(I)                                  ALLOC        272     A     
 ALLOC              BX3    X7                                                              ALLOC        273     A     
 ALLOC              SA7    A2          SET NEW ORIGIN                                      ALLOC        274     A     
 ALLOC              LX5    X7                                                              ALLOC        275     A     
 ALLOC              ZR     X1,ALC50    IF EMPTY TABLE                                      ALLOC        276     A     
 ALLOC              MOVE   X1,X2,X3                                                        ALLOC        277     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC     ALC50    NE     B3,B1,ALC40 IF MORE TABLES TO ALLOCATE                          ALLOC        278     A     
 ALLOC                                                                                     ALLOC        279     A     
 ALLOC                                                                                     ALLOC        280     A     
 ALLOC    **        SET THE LOWEST TABLE TO THE BEGINNING OF TABLE SPACE, TO               ALLOC        281     A     
 ALLOC    *                RECLAIM THE SPACE LOST THRU TRUNCATION --                       ALLOC        282     A     
 ALLOC    *                F(0) = F = (LOCORE)                                             ALLOC        283     A     
 ALLOC                                                                                     ALLOC        284     A     
 ALLOC              SA3    T=PAR                                                           ALLOC        285     A     
 ALLOC              SA2    ALCB                                                            ALLOC        286     A     
 ALLOC              IX6    X3-X2       DEALLOCATE T.PAR FUDGE                              ALLOC        287     A     
 ALLOC              SA6    A3                                                              ALLOC        288     A     
 ALLOC              SA3    O.TABS                                                          ALLOC        289     A     
 ALLOC              SA2    BASES       FETCH FWA                                           ALLOC        290     A     
 ALLOC              SA1    SIZES       FETCH SIZE                                          ALLOC        291     A     
 ALLOC              LX6    X3                                                              ALLOC        292     A     
 ALLOC              BX4    X3-X2                                                           ALLOC        293     A     
 ALLOC              SA6    A2                                                              ALLOC        294     A     
 ALLOC              ZR     X4,ALC60    IF LOWEST TABLE NOT MOVED                           ALLOC        295     A     
 ALLOC              MOVE   X1,X2,X3                                                        ALLOC        296     A     
 ALLOC                                                                                     ALLOC        297     A     
 ALLOC                                                                                     ALLOC        298     A     
 ALLOC    **        RESTORE THE BASE ADDRESS OF THE TABLE DESIGNATED BY (ALC.REG)          ALLOC        299     A     
 ALLOC                                                                                     ALLOC        300     A     
 ALLOC     ALC60    SA2    ALC.REG                                                         ALLOC        301     A     
 ALLOC              =A1    A2+1        = OLD ORIGIN                                        ALLOC        302     A     
 ALLOC              SA3    X2          = NEW ORIGIN                                        ALLOC        303     A     
 ALLOC              AX2    18                                                              ALLOC        304     A     
 ALLOC              IX6    X3-X1       = DISPLACEMENT                                      ALLOC        305     A     
 ALLOC              SA2    X2          = OLD REGISTER VALUE                                ALLOC        306     A     
 ALLOC              IX6    X2+X6                                                           ALLOC        307     A     
 ALLOC              SA6    A2          STORE NEW REGISTER VALUE                            ALLOC        308     A     
 ALLOC                                                                                     ALLOC        309     A     
 ALLOC     .TEST    IFEQ   TEST,ON                                                         ALLOC        310     A     
 ALLOC              SA1    CO.SNAP                                                         ALLOC        311     A     
 ALLOC              LX1    1RU                                                             ALLOC        312     A     
 ALLOC              PL     X1,ALC61    IF SNAP=U NOT SELECTED                              ALLOC        313     A     
 ALLOC              SA1    B2+NAMES                                                        ALLOC        314     A     
 ALLOC              MX6    42                                                              ALLOC        315     A     
 ALLOC              BX6    X6*X1                                                           ALLOC        316     A     
 ALLOC              SA6    FILL.                                                           ALLOC        317     A     
 ALLOC              TRIV   E.TC1       ISSUE CRASH MESSAGE                                 ALLOC        318     A     
 ALLOC                                                                                     ALLOC        319     A     
 ALLOC     ALC61    BSS    0                                                               ALLOC        320     A     
 ALLOC     .TEST    ENDIF                                                                  ALLOC        321     A     
 ALLOC                                                                                     ALLOC        322     A     
 ALLOC              SA1    B2+BASES    RECLAIM F(T), TABLE ORIGIN WORD                     ALLOC        323     A     
 ALLOC                                                                                     ALLOC        324     A     
 ALLOC    **        WE PROMISED TO PRESERVE MANY REGISTERS.  IT IS TIME TO RESTORE         ALLOC        325     A     
 ALLOC    *                THEM.                                                           ALLOC        326     A     
 ALLOC                                                                                     ALLOC        327     A     
 ALLOC    *                            (ALCA)                                              ALLOC        328     A     
 ALLOC                                                                                     ALLOC        329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA5    ALCA        +0 = (B2)                                           ALLOC        330     A     
 ALLOC              SB2    X5                                                              ALLOC        331     A     
 ALLOC              =A4    A5+1        +1 = (B3)                                           ALLOC        332     A     
 ALLOC              SB3    X4                                                              ALLOC        333     A     
 ALLOC              =A3    A4+1        +2 = (B4)                                           ALLOC        334     A     
 ALLOC              SB4    X3                                                              ALLOC        335     A     
 ALLOC              =A2    A3+1        +3 = (B5)                                           ALLOC        336     A     
 ALLOC              SB5    X2                                                              ALLOC        337     A     
 ALLOC              =A5    A2+1        +4 = (B6)                                           ALLOC        338     A     
 ALLOC              SB6    X5                                                              ALLOC        339     A     
 ALLOC                                                                                     ALLOC        340     A     
 ALLOC              =A4    A5+1        +5 = (A4)                                           ALLOC        341     A     
 ALLOC              =A3    A4+1        +6 = (A5)                                           ALLOC        342     A     
 ALLOC              =A2    A3+1        +7 = (X4)                                           ALLOC        343     A     
 ALLOC              SA4    X4                                                              ALLOC        344     A     
 ALLOC              SA5    X3                                                              ALLOC        345     A     
 ALLOC              =A3    A2+1        +8 = (X5)                                           ALLOC        346     A     
 ALLOC              BX4    X2                                                              ALLOC        347     A     
 ALLOC              LX5    X3                                                              ALLOC        348     A     
 ALLOC                                                                                     ALLOC        349     A     
 ALLOC              SA2    A1+N.TABLE  RECLAIM L(T), TABLE LENGTH WORD                     ALLOC        350     A     
 ALLOC              IX6    X1+X2       F(T)+L(T)                                           ALLOC        351     A     
 ALLOC              SB7    X6          (B7) = LWA + 1 OF TABLE                             ALLOC        352     A     
 ALLOC              EQ     EXIT.       EXIT...                                             ALLOC        353     A     
 ALLOC                                                                                     ALLOC        354     A     
 ALLOC    *                            SAVE CELLS DURING TABLE MOVES --                    ALLOC        355     A     
 ALLOC     ALCA     BSS    1           (B2)                                                ALLOC        356     A     
 ALLOC              BSS    1           (B3)                                                ALLOC        357     A     
 ALLOC     ALC=B4   BSS    1           (B4)                                                ALLOC        358     A     
 ALLOC     ALC=B5   BSS    1           (B5)                                                ALLOC        359     A     
 ALLOC              BSS    1           (B6)                                                ALLOC        360     A     
 ALLOC              BSS    1           (A4)                                                ALLOC        361     A     
 ALLOC     ALC=A5   BSS    1           (A5)                                                ALLOC        362     A     
 ALLOC              BSS    1           (X4)                                                ALLOC        363     A     
 ALLOC              BSS    1           (X5)                                                ALLOC        364     A     
 ALLOC                                                                                     ALLOC        365     A     
 ALLOC     ALC=00   EQU    ALCA-1      FAKE, USED TO NO-OP RELATIVE REGISTER               ALLOC        366     A     
 ALLOC                                                                                     ALLOC        367     A     
 ALLOC     ALC.REG  VFD    24/0,18/ALC=00,18/BASES                                         ALLOC        368     A     
 ALLOC              ENTRY  ALC.REG                                                         ALLOC        369     A     
 ALLOC              BSS    1           SAVE CELL FOR ORIGIN OF RELATIVE TABLE              ALLOC        370     A     
 ALLOC                                                                                     ALLOC        371     A     
 ALLOC     ALC.00   VFD    24/0,18/ALC=00,18/BASES                                         ALLOC        372     A     
 ALLOC              ENTRY  ALC.00                                                          ALLOC        373     A     
 ALLOC     ALC.STF  VFD    24/0,18/ALC=B4,18/T.STF                                         ALLOC        374     A     
 ALLOC              ENTRY  ALC.STF                                                         ALLOC        375     A     
 ALLOC     ALC.CAI  VFD    24/0,18/ALC=B4,18/T.PAR                                         ALLOC        376     A     
 ALLOC              ENTRY  ALC.CAI                                                         ALLOC        377     A     
 ALLOC     ALCD1    BSS    2           CELL FOR D1 (ACTIVE AND INACTIVE)                   FC5A128      283     A     
 ALLOC                                                                                     FC5A128      284     A     
 ALLOC     ALCD2    BSS    2           CELL FOR D2 (ACTIVE AND INACTIVE)                   FC5A128      285     A     
 ALLOC     GMR      SPACE  4,8                                                             ALLOC        378     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    **        GMR - GET MORE ROOM.                                                   ALLOC        379     A     
 ALLOC    *                                                                                ALLOC        380     A     
 ALLOC    *         CORE OVERFLOW -- IT BECOMES NECESSARY (OR DESIRABLE) TO SPILL          ALLOC        381     A     
 ALLOC    *         TO DISK OR ASK FOR MORE CORE.  IF FIELD LENGTH IS GREATER              ALLOC        382     A     
 ALLOC    *         THAN NOMINAL FIELD LENGTH WE WILL SPILL TO DISK.  IF NOT               ALLOC        383     A     
 ALLOC    *         OR IF WE ALREADY SPILLED WE GET MORE CORE.                             ALLOC        384     A     
 ALLOC    *                                                                                ALLOC        385     A     
 ALLOC    *         ENTRY  (X1) = -(AMOUNT OF CORE NEEDED) INCLUDING THRESHOLD             ALLOC        386     A     
 ALLOC    *                                                                                ALLOC        387     A     
 ALLOC    *         KEEPS  B2, X0                                                          ALLOC        388     A     
 ALLOC    *                                                                                ALLOC        389     A     
 ALLOC    *         CALLS  DLF, GMC, NOTE, OPEN, READ, REWIND, WRITER, WRITEW              ALLOC        390     A     
 ALLOC                                                                                     ALLOC        391     A     
 ALLOC                                                                                     ALLOC        392     A     
 ALLOC     GMR      SUBR   ...ENTRY/EXIT...                                                ALLOC        393     A     
 ALLOC              SX6    B2          SAVE ENTRY CALL VALUES                              ALLOC        394     A     
 ALLOC              BX7    X0                                                              ALLOC        395     A     
 ALLOC              SA6    GMRA        REQUESTING TABLE ORIGIN WORD ORDINAL                ALLOC        396     A     
 ALLOC              =A7    A6+1        CHANGE TO TABLE SIZE                                ALLOC        397     A     
 ALLOC              BX6    X1                                                              ALLOC        398     A     
 ALLOC              =A6    A7+1        -(AMOUNT OF CORE REQUIRED) INCLUDES THRESH          ALLOC        399     A     
 ALLOC                                                                                     ALLOC        400     A     
 ALLOC    *         IF WE ARE IN END PROCESSING (ASSEMBLY PHASE) TRY DUMPING               ALLOC        401     A     
 ALLOC    *         THE LINK AND FILL TABLES.                                              ALLOC        402     A     
 ALLOC                                                                                     ALLOC        403     A     
 ALLOC              SA1    PASS                                                            ALLOC        404     A     
 ALLOC              SA2    T=LINK                                                          ALLOC        405     A     
 ALLOC              =B2    X1-PASS=FAS                                                     ALLOC        406     A     
 ALLOC              SA3    T=FILL                                                          ALLOC        407     A     
 ALLOC              NZ     B2,GMR20    IF NOT IN ASSEMBLY PHASE                            ALLOC        408     A     
 ALLOC                                                                                     ALLOC        409     A     
 ALLOC              SA1    NREXT                                                           ALLOC        410     A     
 ALLOC              IX0    X2+X3                                                           ALLOC        411     A     
 ALLOC              IX7    X0-X1                                                           ALLOC        412     A     
 ALLOC              SA3    T=XFIL                                                          ALLOC        413     A     
 ALLOC              IX7    X7+X3                                                           ALLOC        414     A     
 ALLOC              SB7    X7-2                                                            ALLOC        415     A     
 ALLOC              LE     B7,GMR20    IF NO ROOM TO BUY                                   ALLOC        416     A     
 ALLOC                                                                                     ALLOC        417     A     
 ALLOC     .TEST    IFEQ   TEST,ON     IF TEST MODE                                        ALLOC        418     A     
 ALLOC              SA1    CO.SNAP                                                         ALLOC        419     A     
 ALLOC              LX1    1RT                                                             ALLOC        420     A     
 ALLOC              PL     X1,GMR10    IF NO TABLE SNAP REQUESTED                          ALLOC        421     A     
 ALLOC              TRIV   E.MO7       LINK AND FILL DUMPED                                ALLOC        422     A     
 ALLOC     .TEST    ENDIF                                                                  ALLOC        423     A     
 ALLOC                                                                                     ALLOC        424     A     
 ALLOC     GMR10    CALL   DLF         DUMP LINK AND FILL                                  ALLOC        425     A     
 ALLOC              EQ     GMR80       TRY AGAIN...                                        ALLOC        426     A     
 ALLOC                                                                                     ALLOC        427     A     
 ALLOC                                                                                     ALLOC        428     A     
 ALLOC    **        NO HELP ON LINK/FILL.  TRY TO OVERFLOW PREBINARY.                      ALLOC        429     A     
 ALLOC    *                IF IN MAP PROCESSING, WE ARE AT THE END OF OUR ROPE.            ALLOC        430     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        431     A     
 ALLOC     GMR20    =B7    PASS=MAP-PASS=FAS                                               ALLOC        432          I
          -FC5A132
 ALLOC              SA3    CP.AFLS     TOTAL FIELD LENGTH                                  ALLOC        433          I
          -FC5A132
 ALLOC              SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL         ALLOC        434          I
          -FC5A132
 ALLOC              EQ     B7,B2,GMR70 IF IN REF MAP PASS, GET MORE CORE                   ALLOC        435          I
          -FC5A132
 ALLOC                                                                                     ALLOC        436          I
          -FC5A132
 ALLOC              SA4    NOM.FL                                                          ALLOC        437          I
          -FC5A132
 ALLOC              IX2    X4-X3       NOMINAL - ACTUAL FIELD LENGTH                       ALLOC        438          I
          -FC5A132
 ALLOC              PL     X2,GMR70    IF FL .LT. NOMINAL GET MORE CORE                    ALLOC        439          I
          -FC5A132
 ALLOC                                                                                     ALLOC        440          I
          -FC5A132
 ALLOC    **        TRY TO DUMP REFERENCES.                                                ALLOC        441          I
          -FC5A132
 ALLOC                                                                                     ALLOC        442          I
          -FC5A132
 ALLOC     GMR50    SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL         ALLOC        443          I
          -FC5A132
 ALLOC              SA2    T=REF                                                           ALLOC        444          I
          -FC5A132
 ALLOC     GMR20    SA4    NOM.FL                                                          FC5A132       47     A     
 ALLOC              SA3    CP.AFLS     TOTAL FIELD LENGTH                                  FC5A132       48     A     
 ALLOC              SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL         FC5A132       49     A     
 ALLOC              IX2    X4-X3                                                           FC5A132       50     A     
 ALLOC              PL     X2,GMR30    IF FL .LT. NOMINAL                                  FC5A132       51     A     
 ALLOC              SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL         FC5A132       52     A     
 ALLOC                                                                                     FC5A132       53     A     
 ALLOC     GMR30    =B7    PASS=MAP-PASS=FAS                                               FC5A132       54     A     
 ALLOC              EQ     B7,B2,GMR70 IF IN REF MAP PASS, GET MORE CORE                   FC5A132       55     A     
 ALLOC              SA2    T=REF                                                           FC5A132       56     A     
 ALLOC              SA1    GMRA+2      (X1) = - (AMOUNT NEEDED)                            ALLOC        445     A     
 ALLOC              IX2    X2+X1                                                           ALLOC        446     A     
 ALLOC              MI     X2,GMR70    IF NO ROOM TO BUY                                   ALLOC        447     A     
 ALLOC                                                                                     ALLOC        448     A     
 ALLOC              SA1    REFIO                                                           ALLOC        449     A     
 ALLOC              MI     X1,GMR70    IF REFS ALREADY SPILLED                             ALLOC        450     A     
 ALLOC              MX7    -1                                                              ALLOC        451     A     
 ALLOC              SA7    A1          INDICATE (T.REF) ON DISK                            ALLOC        452     A     
 ALLOC              INATAB REF,(DECL,EXU,CUR)      DEACTIVATE REF                          FC5A128      286     A     
 ALLOC                                                                                     ALLOC        453     A     
 ALLOC     .RM      IFEQ   CP#RM,7,1   IF 7RM I/O                                          ALLOC        454     A     
 ALLOC              OPEN   F.REF                                                           ALLOC        455     A     
 ALLOC                                                                                     ALLOC        456     A     
 ALLOC     GMR60    SA3    T=REF                                                           ALLOC        457     A     
 ALLOC              SA1    T.REF                                                           ALLOC        458     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SHRINK A3                                                              ALLOC        459     A     
 ALLOC              WRITEW F.REF,X1,X3                                                     ALLOC        460     A     
 ALLOC                                                                                     ALLOC        461     A     
 ALLOC     .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                        ALLOC        462     A     
 ALLOC              TRIV   E.MO5       CROSS REFERENCE GOES TO DISK                        ALLOC        463     A     
 ALLOC                                                                                     ALLOC        464     A     
 ALLOC              EQ     GMR80       TRY AGAIN...                                        ALLOC        465     A     
 ALLOC                                                                                     ALLOC        466     A     
 ALLOC                                                                                     ALLOC        467     A     
 ALLOC    **        WE NEED MORE CORE.                                                     ALLOC        468     A     
 ALLOC                                                                                     ALLOC        469     A     
 ALLOC     GMR70    RJ     GMC         GET MORE CORE                                       ALLOC        470     A     
 ALLOC              ZR     B7,GMR90    IF REQUEST FAILED                                   ALLOC        471     A     
 ALLOC                                                                                     ALLOC        472     A     
 ALLOC              SA1    O.TABS      BEGINNING OF TABLES                                 ALLOC        473     A     
 ALLOC              SA6    =XT.END                                                         FC5A128      287     A     
 ALLOC              IX6    X6-X1                                                           ALLOC        474     A     
 ALLOC              SA6    L.TABS      AMOUNT OF CORE TO BE MANAGED                        ALLOC        475     A     
 ALLOC              AX6    FLSLOP                                                          ALLOC        476     A     
 ALLOC              SX6    X6+FLSLUP                                                       ALLOC        477          I
          -FC5A128
 ALLOC              SX6    X6+FLSLUP2                                                      FC5A128      288     A     
 ALLOC              SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                          ALLOC        478     A     
 ALLOC                                                                                     ALLOC        479     A     
 ALLOC                                                                                     ALLOC        480     A     
 ALLOC    **        SOMETHING WAS SUCCESSFULLY DUMPED --                                   ALLOC        481     A     
 ALLOC    *                RETRIEVE ENTRY VALUES AND TRY AGAIN.                            ALLOC        482     A     
 ALLOC                                                                                     ALLOC        483     A     
 ALLOC     GMR80    SA3    GMRA+1      RESTORE TABLE SIZE                                  ALLOC        484     A     
 ALLOC              =A2    A3-1        AND ORDINAL                                         ALLOC        485     A     
 ALLOC              BX0    X3                                                              ALLOC        486     A     
 ALLOC              SB2    X2                                                              ALLOC        487     A     
 ALLOC              EQ     EXIT.       EXIT...                                             ALLOC        488     A     
 ALLOC                                                                                     ALLOC        489     A     
 ALLOC                                                                                     ALLOC        490     A     
 ALLOC    **        IT WAS ALL TO NO AVAIL.  REPORT FAILURE AND ABORT.                     ALLOC        491     A     
 ALLOC                                                                                     ALLOC        492     A     
 ALLOC     GMR90    SA1    GMRA+2      -(AMOUNT NEEDED)                                    ALLOC        493     A     
 ALLOC              SA2    THRESH                                                          ALLOC        494     A     
 ALLOC              IX1    X2+X1                                                           ALLOC        495     A     
 ALLOC              MI     X1,GMR92    IF NOT THRESHOLD ALARM                              ALLOC        496     A     
 ALLOC                                                                                     ALLOC        497     A     
 ALLOC     .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                        ALLOC        498     A     
 ALLOC              CALL   PTA         PRINT THRESHOLD ALARM                               ALLOC        499     A     
 ALLOC                                                                                     ALLOC        500     A     
 ALLOC              MX6    0                                                               ALLOC        501     A     
 ALLOC              SA6    THRESH      ALLOW USE OF THRESH AREA                            ALLOC        502     A     
 ALLOC              EQ     EXIT.       EXIT...                                             ALLOC        503          I
          -FC50007
 ALLOC              EQ     GMR80                                                           FC50007        6     A     
 ALLOC                                                                                     ALLOC        504     A     
 ALLOC     GMR92    SA2    FAILSFT                                                         ALLOC        505     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              NZ     X2,GMR94    IF ALREADY HAD OVERFLOW                             ALLOC        506     A     
 ALLOC              SA1    PASS                                                            FC50889        9     A     
 ALLOC              NZ     X1,GMR93    IF NOT FRONT END PROCESSING                         FC50889       10     A     
 ALLOC              ERRNZ  PASS=FE                                                         FC50889       11     A     
 ALLOC              SA1    LEXFLG                                                          FC50889       12     A     
 ALLOC              HX1    LF.HDR                                                          FC50889       13     A     
 ALLOC              PL     X1,GMR93    IF NOT HEADER DELAY                                 FC50889       14     A     
 ALLOC              SA1    T=STMT                                                          FC50889       15     A     
 ALLOC              ZR     X1,GMR93    IF NOTHING TO TRASH                                 FC50889       16     A     
 ALLOC              CALL   LDB         LIST THE DEFFERED BUFFER                            FC50889       17     A     
 ALLOC              SHRINK T=STMT,0                                                        FC50889       18     A     
 ALLOC              EQ     GMR80                                                           FC50889       19     A     
 ALLOC                                                                                     ALLOC        507     A     
 ALLOC              BX6    0                                                               ALLOC        508          I
          -FC50889
 ALLOC     GMR93    BX6    0                                                               FC50889       20     A     
 ALLOC              =X7    X2+1                                                            ALLOC        509     A     
 ALLOC              SHRINK T=STF,X6                                                        ALLOC        510     A     
 ALLOC              SA7    A2          SET FAILSOFT FLAG                                   ALLOC        511     A     
 ALLOC              SHRINK T=DIM,X6                                                        ALLOC        512     A     
 ALLOC              SHRINK T=SCR,X6                                                        ALLOC        513     A     
 ALLOC              SHRINK T=CON,X6                                                        ALLOC        514     A     
 ALLOC              SHRINK T=BLST,X6                                                       ALLOC        515     A     
 ALLOC              SHRINK T=EQUS,X6                                                       ALLOC        516     A     
 ALLOC              SHRINK T=FMT,X6                                                        ALLOC        517     A     
 ALLOC              SHRINK T=PAR,X6                                                        ALLOC        518     A     
 ALLOC              SHRINK T=NLST,X6                                                       ALLOC        519     A     
 ALLOC              SHRINK T=APL,X6                                                        ALLOC        520     A     
 ALLOC              SHRINK T=GL,X6                                                         ALLOC        521     A     
 ALLOC              SHRINK T=DATS,X6                                                       ALLOC        522     A     
 ALLOC              SHRINK T=REF,X6                                                        ALLOC        523     A     
 ALLOC              =X7    FEC=BY                                                          ALLOC        524     A     
 ALLOC              SHRINK T=BLKS,X6                                                       ALLOC        525     A     
 ALLOC              SHRINK T=ENT,X6                                                        ALLOC        526     A     
 ALLOC              SA7    STAGE       BYPASS REST OF PROGRAM                              ALLOC        527     A     
 ALLOC              FATAL  E.MO2                                                           ALLOC        528     A     
 ALLOC              SA1    PASS                                                            ALLOC        529     A     
 ALLOC              SX1    X1-PASS=END                                                     ALLOC        530     A     
 ALLOC              MI     X1,FEC.RTN  IF NOT IN END OR MAP PROCESSING                     ALLOC        531     A     
 ALLOC       EQ  "BLOWUP"  *** FRAG4, REPLACE WITH ERRORS BINARY TURPLE CALL ***           ALLOC        532          I
          -FC50007
 ALLOC     .FIX     SET    --          REPLACE WITH ERRORS BINARY TURPLE CALL              ALLOC        533          I
          -FC50007
 ALLOC                                                                                     ALLOC        534     A     
 ALLOC                                                                                     ALLOC        535     A     
 ALLOC    **        NOT EVEN ENOUGH ROOM TO SKIP TO AN *END* CARD --                       ALLOC        536     A     
 ALLOC    *                DAYFILE MESSAGE AND ABORT JOB                                   ALLOC        537     A     
 ALLOC                                                                                     ALLOC        538     A     
 ALLOC     GMR94    SA1    IDENT       ROUTINE NAME 0L FORMAT                              ALLOC        539     A     
 ALLOC              BX6    X1                                                              ALLOC        540     A     
 ALLOC              SA6    GMRC                                                            ALLOC        541     A     
 ALLOC              PLINE  GMRB,3,2                                                        ALLOC        542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              MESSAGE GMRB,,RCL                                                      ALLOC        543     A     
 ALLOC              WRITER F.OUT                                                           ALLOC        544     A     
 ALLOC              WRITER F.LGO                                                           ALLOC        545     A     
 ALLOC              EQ     ABTFTN      EXIT TO ABORT JOBSTEP...                            ALLOC        546     A     
 ALLOC                                                                                     ALLOC        547     A     
 ALLOC     GMRA     DATA   0,0         TEMPORARY STORAGE FOR OVERFLOW                      ALLOC        548     A     
 ALLOC              CON    0           SAVE CORE REQUIRED                                  ALLOC        549     A     
 ALLOC     GMRB     DIS    2, TABLE OVERFLOW IN                                            ALLOC        550     A     
 ALLOC     GMRC     CON    0           ROUTINE NAME 0L FORMAT                              ALLOC        551     A     
 ALLOC     PTA      SPACE  4,10                                                            ALLOC        552     A     
 ALLOC     .TEST    IFEQ   TEST,ON     IF TEST MODE                                        ALLOC        553     A     
 ALLOC    **        PTA - PRINT THRESHOLD ALARM.                                           ALLOC        554     A     
 ALLOC    *                                                                                ALLOC        555     A     
 ALLOC    *         CALLED WHEN ONLY SPACE ABOVE THRESHOLD IS AVAILABLE.                   ALLOC        556     A     
 ALLOC    *                                                                                ALLOC        557     A     
 ALLOC    *         ENTRY  (THRESH) = CORE LEFT                                            ALLOC        558     A     
 ALLOC    *                (MAX.FL) = FL NOW IN USE                                        ALLOC        559     A     
 ALLOC    *                                                                                ALLOC        560     A     
 ALLOC    *         USES   ALL                                                             ALLOC        561     A     
 ALLOC                                                                                     ALLOC        562     A     
 ALLOC                                                                                     ALLOC        563     A     
 ALLOC     PTA      SUBR   =           ...ENTRY/EXIT...                                    ALLOC        564     A     
 ALLOC              SA1    THRESH                                                          ALLOC        565     A     
 ALLOC              CALL   COD         CONVERT OCTAL DIGITS                                ALLOC        566     A     
 ALLOC              BX6    X4                                                              ALLOC        567     A     
 ALLOC              SA6    FILL.                                                           ALLOC        568     A     
 ALLOC              SA1    MAX.FL                                                          ALLOC        569     A     
 ALLOC              AX1    30                                                              ALLOC        570     A     
 ALLOC              CALL   COD         CONVERT OCTAL DIGITS                                ALLOC        571     A     
 ALLOC              BX6    X4                                                              ALLOC        572     A     
 ALLOC              SA6    FILL.2                                                          ALLOC        573     A     
 ALLOC              TRIV   E.MO6       THRESHOLD REACHED                                   ALLOC        574     A     
 ALLOC              EQ     EXIT.       EXIT...                                             ALLOC        575     A     
 ALLOC     PTS      SPACE  4,8                                                             ALLOC        576     A     
 ALLOC    **        PTS -  PRINT TABLE STATISTICS.                                         ALLOC        577     A     
 ALLOC    *                                                                                ALLOC        578     A     
 ALLOC    *         ENTRY  (B2) = CURRENT TABLE ORDINAL                                    ALLOC        579     A     
 ALLOC    *                (X0) = INCREMENT TO TABLE                                       ALLOC        580     A     
 ALLOC    *                                                                                ALLOC        581     A     
 ALLOC    *         KEEPS  A0, B2, X0                                                      ALLOC        582     A     
 ALLOC                                                                                     ALLOC        583     A     
 ALLOC                                                                                     ALLOC        584     A     
 ALLOC     PTS      SUBR   =           ** ENTRY/EXIT **                                    ALLOC        585     A     
 ALLOC              BX6    X0                                                              ALLOC        586     A     
 ALLOC              SA6    PTSA        SAVE X0                                             ALLOC        587     A     
 ALLOC              SX6    B2                                                              ALLOC        588     A     
 ALLOC              =A6    A6+1        SAVE B2                                             ALLOC        589     A     
 ALLOC              SX6    A0                                                              ALLOC        590     A     
 ALLOC              =A6    A6+1        SAVE A0                                             ALLOC        591     A     
 ALLOC              SA3    MOVES                                                           ALLOC        592     A     
 ALLOC              SA2    CO.SNAP                                                         ALLOC        593     A     
 ALLOC              LX2    1RT                                                             ALLOC        594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SX6    X3+B1       COUNT TABLE CRASHES                                 ALLOC        595     A     
 ALLOC              SA6    A3                                                              ALLOC        596     A     
 ALLOC              PL     X2,EXIT.    IF SNAP NOT DESIRED                                 ALLOC        597     A     
 ALLOC              SA2    ALC                                                             ALLOC        598     A     
 ALLOC              AX2    30                                                              ALLOC        599     A     
 ALLOC              SB7    ADW.ALC     SEE IF CALLED BY ADW                                ALLOC        600     A     
 ALLOC              SB7    -B7                                                             ALLOC        601     A     
 ALLOC              SB7    X2+B7                                                           ALLOC        602     A     
 ALLOC              NZ     B7,PTS2     IF NOT CALLED FROM ADDWORD                          ALLOC        603     A     
 ALLOC              PLINE  PTSB,PTSBL                                                      ALLOC        604     A     
 ALLOC              SA2    ADW                                                             ALLOC        605     A     
 ALLOC              AX2    30                                                              ALLOC        606     A     
 ALLOC     PTS2     SX1    X2                                                              ALLOC        607     A     
 ALLOC              SB7    PTS3        RETURN ADDRESS                                      ALLOC        608     A     
 ALLOC              EQ     FRA=        FIND RELATIVE ADDRESS                               ALLOC        609     A     
 ALLOC     PTS3     SA6    PTSC1                                                           ALLOC        610     A     
 ALLOC              =A7    A6+1                                                            ALLOC        611     A     
 ALLOC              PLINE  PTSC,PTSCL                                                      ALLOC        612     A     
 ALLOC                                                                                     ALLOC        613     A     
 ALLOC              SA1    PTSA+1      (X1) = TABLE ORDINAL                                ALLOC        614     A     
 ALLOC              SB5    X1                                                              ALLOC        615     A     
 ALLOC              CALL   COD         CONVERT OCTAL DIGITS                                ALLOC        616     A     
 ALLOC              SA6    PTSE1       TABLE NUMBER                                        ALLOC        617     A     
 ALLOC              SA1    PTSA        (X1) = INCREMENT TO TABLE SIZE                      ALLOC        618     A     
 ALLOC              RJ     COD         CONVERT INCREMENT                                   ALLOC        619     A     
 ALLOC              SA6    PTSE2                                                           ALLOC        620     A     
 ALLOC              SA1    B5+SIZES                                                        ALLOC        621     A     
 ALLOC              RJ     COD         CONVERT PREVIOUS SIZE                               ALLOC        622     A     
 ALLOC              SA6    PTSE3                                                           ALLOC        623     A     
 ALLOC              PLINE  PTSE,PTSEL                                                      ALLOC        624     A     
 ALLOC              CALL   PTO         PRINT TABLE ORIGINS                                 ALLOC        625     A     
 ALLOC              SA2    PTSA        (X2) = INCREMENT                                    ALLOC        626     A     
 ALLOC              IX1    X0+X2       TOTAL TABLE SPACE USED                              ALLOC        627     A     
 ALLOC              RJ     COD         CONVERT NECESSARY STORAGE                           ALLOC        628     A     
 ALLOC              SA6    PTSF1                                                           ALLOC        629     A     
 ALLOC              SA1    L.TABS                                                          ALLOC        630     A     
 ALLOC              RJ     COD                                                             ALLOC        631     A     
 ALLOC              SA6    PTSF2                                                           ALLOC        632     A     
 ALLOC              PLINE  PTSF,PTSFL                                                      ALLOC        633     A     
 ALLOC              SA1    PTSA                                                            ALLOC        634     A     
 ALLOC              BX0    X1          RESTORE X0                                          ALLOC        635     A     
 ALLOC              =A2    A1+1                                                            ALLOC        636     A     
 ALLOC              SB2    X2          RESTORE B2                                          ALLOC        637     A     
 ALLOC              =A1    A2+1                                                            ALLOC        638     A     
 ALLOC              SA0    X1          RESTORE A0                                          ALLOC        639     A     
 ALLOC              EQ     EXIT.       EXIT...                                             ALLOC        640     A     
 ALLOC                                                                                     ALLOC        641     A     
 ALLOC     PTSA     BSS    3           X0, B2, A0                                          ALLOC        642     A     
 ALLOC                                                                                     ALLOC        643     A     
 ALLOC     PTSB     DATA   H/          CALLED FROM *ADDWD*./                               ALLOC        644     A     
 ALLOC     PTSBL    EQU    *-PTSB                                                          ALLOC        645     A     
 ALLOC                                                                                     ALLOC        646     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC     PTSC     DATA   H/          CALLED FROM /                                       ALLOC        647     A     
 ALLOC     PTSC1    DATA   0,0         *NNNNNN IN ROUTINENAME*                             ALLOC        648     A     
 ALLOC     PTSCL    EQU    *-PTSC                                                          ALLOC        649     A     
 ALLOC                                                                                     ALLOC        650     A     
 ALLOC     PTSE     DIS    2,  TABLE NUMBER                                                ALLOC        651     A     
 ALLOC     PTSE1    DATA   0           TABLE ORDINAL                                       ALLOC        652     A     
 ALLOC              DIS    1, ADDING                                                       ALLOC        653     A     
 ALLOC     PTSE2    DATA   0           INCREMENT TO SIZE                                   ALLOC        654     A     
 ALLOC              DIS    1, TO PREV                                                      ALLOC        655     A     
 ALLOC     PTSE3    DATA   0           ORIGINAL TABLE LENGTH                               ALLOC        656     A     
 ALLOC     PTSEL    EQU    *-PTSE                                                          ALLOC        657     A     
 ALLOC                                                                                     ALLOC        658     A     
 ALLOC     PTSF     DIS    2,  NOW USING                                                   ALLOC        659     A     
 ALLOC     PTSF1    DATA   0           TOTAL USED, INCLUDING INCREMENT                     ALLOC        660     A     
 ALLOC              DIS    1, OUT OF                                                       ALLOC        661     A     
 ALLOC     PTSF2    DATA   0           SIZE OF TABLE AREA                                  ALLOC        662     A     
 ALLOC     PTSFL    EQU    *-PTSF                                                          ALLOC        663     A     
 ALLOC     .TEST    ENDIF                                                                  ALLOC        664     A     
 ALLOC                                                                                     ALLOC        665     A     
 ALLOC                                                                                     ALLOC        666     A     
 ALLOC              LIST   D                                                               ALLOC        667     A     
 ALLOC              END                                                                    ALLOC        668     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ALLOC   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ALLOC                      668       610
          FC5A112                     16        16
          FC5A128                    156       155
          FC5A132                     10        10
          FC5A150                      4         4
          FC5A158A                     1         1
          FC50007                      1         1
          FC50889                     16        16
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP      *DECK IDP                                                                        IDP            1     A     
 IDP      **IF,DEF,TESTFTN                   (NEXT LINE)                                   IDP            2          I
          -FC5A370
 IDP      *IF,DEF,TESTFTN                                                                  IDP            3          I
          -FC5A370
 IDP      **IF DEF,TEST    (NEXT LINE)                                                     FC5A370       10     A     
 IDP      *IF DEF,TEST                                                                     FC5A370       11     A     
 IDP                IDENT  IDP                                                             IDP            4     A     
 IDP       IDP      SECT   (INTERACTIVE DEBUG PACKAGE)                                     IDP            5     A     
 IDP       IDP      SPACE  4                                                               IDP            6     A     
 IDP      *         IN FTN                                                                 IDP            7     A     
 IDP                EXT    CO.SNAP,CP.NFLS,F.IN,F.OUT                                      IDP            8     A     
 IDP                                                                                       IDP            9     A     
 IDP      *         IN PUC                                                                 IDP           10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                EXT    ALTNAM,BASES,NAMES,N.TABLE,SIZES,WOF                            IDP           11     A     
 IDP                                                                                       IDP           12     A     
 IDP      *         IN RPV10                                                               IDP           13     A     
 IDP                EXT    RPV=RNA                                                         IDP           14     A     
 IDP                                                                                       IDP           15     A     
 IDP      *         IN UTILITY                                                             IDP           16     A     
 IDP                EXT    FRA=                                                            IDP           17     A     
 IDP       IDP      SPACE  4,10                                                            IDP           18     A     
 IDP      ***       IDP - INTERACTIVE DEBUGGING PACKAGE.                                   IDP           19     A     
 IDP      *                                                                                IDP           20     A     
 IDP      *                                                                                IDP           21     A     
 IDP      *         THIS IS THE IDP PACKAGE THAT IS COMMON TO ALL FTN 5 OVERLAYS.          IDP           22     A     
 IDP      *         IT **SHOULD** NOT CONTAIN ANY OVERLAY SPECIFIC STUFF.  IT              IDP           23     A     
 IDP      *         IS INTENDED TO BE COMMON TO ALL OVERLAYS, AND BECAUSE IT               IDP           24     A     
 IDP       IDP      SPACE  4,10                                                            IDP           25     A     
 IDP      ***       DEFINE IDP LINKAGE SYMBOLS.                                            IDP           26     A     
 IDP      *                                                                                IDP           27     A     
 IDP      *                                                                                IDP           28     A     
 IDP                                                                                       IDP           29     A     
 IDP       F.BDO    EQUEXT F.OUT                                                           IDP           30     A     
 IDP                                                                                       IDP           31     A     
 IDP                ENTRY  IDP=,REG=,SNP=                                                  IDP           32          I
          -FC5A158A 
 IDP       #IDPOS   IFNE   .OS,2,1                                                         FC5A158A     296     A     
 IDP                ENTRY  IDP=                                                            FC5A158A     297     A     
 IDP                                                                                       FC5A158A     298     A     
 IDP                ENTRY  REG=,SNP=                                                       FC5A158A     299     A     
 IDP                                                                                       IDP           33     A     
 IDP                ENTRY  ROL=,RSR=                                                       IDP           34     A     
 IDP                ENTRY  SNAPLNE,SOB,SVR=                                                IDP           35     A     
 IDP       IDPENT   SPACE  4,10                                                            IDP           36     A     
 IDP      **        IDPENT - DECLARE IDP ENTRY POINT.                                      IDP           37     A     
 IDP      *                                                                                IDP           38     A     
 IDP      *                                                                                IDP           39     A     
 IDP      * LOC     IDPENT SYM                                                             IDP           40     A     
 IDP      *                                                                                IDP           41     A     
 IDP      *         ENTRY  LOC = OPTIONAL LOCATION FIELD FOR SYMBOL TO BE DECLARED         IDP           42     A     
 IDP      *                      AN ENTRY POINT.                                           IDP           43     A     
 IDP      *                                                                                IDP           44     A     
 IDP      *                SYM = /IDP/SYM TO BE DECLARED AS AN ENTRY POINT.                IDP           45     A     
 IDP      *                                                                                IDP           46     A     
 IDP      *                                                                                IDP           47     A     
 IDP      *         EXIT   NONE                                                            IDP           48     A     
 IDP      *                                                                                IDP           49     A     
 IDP      *         USES   NONE                                                            IDP           50     A     
 IDP      *                                                                                IDP           51     A     
 IDP      *         CALLS  EQUENT                                                          IDP           52     A     
 IDP                                                                                       IDP           53     A     
 IDP                                                                                       IDP           54     A     
 IDP                PURGMAC IDPENT                                                         IDP           55     A     
 IDP                                                                                       IDP           56     A     
 IDP                MACRO  IDPENT,LOC,SYM                                                  IDP           57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 510    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP       SYM = /IDP/SYM                                                                  IDP           58     A     
 IDP       '?ID#001 IFC EQ, LOC                                                            IDP           59     A     
 IDP       IDP=SYM EQUENT SYM                                                              IDP           60     A     
 IDP       '?ID#001 ELSE                                                                   IDP           61     A     
 IDP       LOC EQUENT SYM                                                                  IDP           62     A     
 IDP       '?ID#001 ENDIF                                                                  IDP           63     A     
 IDP       IDPENT   ENDM                                                                   IDP           64     A     
 IDP       OI.      SPACE  4,10                                                            IDP           65     A     
 IDP      **        OI. - DEFINE/SET UP IDP OPTIONS.                                       IDP           66     A     
 IDP      *                                                                                IDP           67     A     
 IDP      *                                                                                IDP           68     A     
 IDP      *CALL COMATOK                                                                    IDP           69          I
          -FC5A158A 
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     300     A     
 IDP      *CALL COMATOK                                                                    FC5A158A     301     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     302     A     
 IDP       IDP      SPACE  4,10                                                            IDP           70     A     
 IDP                QUAL   IDP                                                             IDP           71     A     
 IDP                                                                                       IDP           72     A     
 IDP                                                                                       IDP           73     A     
 IDP       QUAL$    =      1           DESELECT COMDECK QUALS                              IDP           74     A     
 IDP                                                                                       IDP           75     A     
 IDP       TEST     =      0           DESELECT *TEST* MODE FOR IDP                        IDP           76     A     
 IDP      *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       IDP           77     A     
 IDP      *CALL COMSTOK                                                                    IDP           78          I
          -FC5A158A 
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     303     A     
 IDP      *CALL COMSTOK                                                                    FC5A158A     304     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     305     A     
 IDP       IDP      SPACE  4,10                                                            IDP           79     A     
 IDP                QUAL   *                                                               IDP           80     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     306     A     
 IDP       OWNCODE  TITLE  FTN 5 OWNCODE SUPPORT FOR IDP.                                  IDP           81     A     
 IDP      ***       FTN 5 OWNCODE SUPPORT FOR IDP.                                         IDP           82     A     
 IDP      *                                                                                IDP           83     A     
 IDP      *                                                                                IDP           84     A     
 IDP      *         THE FOLLOWING SECTION CONTAINS FTN 5 OWNCODE SUPPORT                   IDP           85     A     
 IDP      *         AND INTERFACES TO IDP.  THIS SECTION IS INTENDED FOR                   IDP           86     A     
 IDP      *         **GENERAL** FTN USE, AND THEREFORE, SHOULD NOT CONTAIN                 IDP           87     A     
 IDP      *         ANY OVERLAY SPECIFIC STUFF.                                            IDP           88     A     
 IDP       UKT=     SPACE  4,10                                                            IDP           89     A     
 IDP      **        UKT= - USER KEYWORD TABLE.                                             IDP           90     A     
 IDP      *                                                                                IDP           91     A     
 IDP      *                                                                                IDP           92     A     
 IDP      *         *UKT=* IS THE 1ST FTN USER KEYWORD TABLE IN IDP.S LINKED               IDP           93     A     
 IDP      *         LIST OF USER KEYWORD TABLES.  IT CONTAINS PROCESSORS/KEYWORDS          IDP           94     A     
 IDP      *         THAT CAN BE USED ANYWHERE DURING A FTN COMPILATION (I.E. NO            IDP           95     A     
 IDP      *         OVERLAY SPECIFIC KEYWORDS).                                            IDP           96     A     
 IDP      *                                                                                IDP           97     A     
 IDP      *         ANY KEYWORD PROCESSORS FOR HIGHER OVERLAYS WILL BE DYNAMICALLY         IDP           98     A     
 IDP      *         LINKED WHEN THAT OVERLAY IS LOADED BY STORING THE NEXT                 IDP           99     A     
 IDP      *         KEYWORD LINK ADDR INTO (UKT=LNK).                                      IDP          100     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                                                                                       IDP          101     A     
 IDP                                                                                       IDP          102     A     
 IDP       UKT=     BSS    0           ** FWA **                                           IDP          103     A     
 IDP                QUAL   IDP                                                             IDP          104     A     
 IDP       ABT      KEYW   ABT                                                             IDP          105     A     
 IDP       ABT      KEYW   ABORT                                                           IDP          106     A     
 IDP                QUAL   *                                                               IDP          107     A     
 IDP                DATA   0           ** END OF TABLE **                                  IDP          108     A     
 IDP       UKT=LNK  CONENT 0                                                               IDP          109     A     
 IDP       STMTPROC SPACE  10,20                                                           IDP          110     A     
 IDP      ***       FTN 5 IDP OWNCODE STMT PROCESSORS.                                     IDP          111     A     
 IDP      *                                                                                IDP          112     A     
 IDP      *                                                                                IDP          113     A     
 IDP      *         THE FOLLOWING ARE STMT PROCESSORS FOR PROCESSING                       IDP          114     A     
 IDP      *         THE KEYWORDS IN *UKT=* (USER KEYWORD TABLE).                           IDP          115     A     
 IDP       ST=ABT   SPACE  4,10                                                            IDP          116     A     
 IDP      **        ST=ABT - ABORT FROM IDP.                                               IDP          117     A     
 IDP      *                                                                                IDP          118     A     
 IDP      *                                                                                IDP          119     A     
 IDP                                                                                       IDP          120     A     
 IDP                                                                                       IDP          121     A     
 IDP       ST=ABT   BSS    0           ** ENTRY **                                         IDP          122     A     
 IDP                RJ     RSR=        RESTORE REGISTERS                                   IDP          123     A     
 IDP                ABORT                                                                  IDP          124     A     
 IDP       +        EQ     *           WAIT...                                             IDP          125     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     307     A     
 IDP       SUBR     SPACE  10,20                                                           IDP          126     A     
 IDP      ***       FTN 5 SUPPORT SUBROUTINES.                                             IDP          127     A     
 IDP      *                                                                                IDP          128     A     
 IDP      *         THE FOLLOWING ARE SUBROUTINES THAT INTERFACE TO IDP.                   IDP          129     A     
 IDP       DXP=     SPACE  4,8                                                             IDP          130     A     
 IDP      **        DXP= - DUMP EXCHANGE PACKAGE.                                          IDP          131     A     
 IDP      *                                                                                IDP          132     A     
 IDP      *                                                                                IDP          133     A     
 IDP      *                BECAUSE SCOPE 2 REPRIEVE HAS NO RESET, THE SYSTEM DUMPS         IDP          134     A     
 IDP      *         ALL REGISTERS AS THEY WERE DURING REPRIEVE PROCESSING; AND             IDP          135     A     
 IDP      *         BECAUSE THIS IS NOT USEFUL, THIS ROUTINE DUMPS ALL REGISTERS           IDP          136     A     
 IDP      *         AS THEY WERE WHEN REPRIEVE WAS CALLED. IT ALSO DUMPS 100               IDP          137     A     
 IDP      *         WORDS EITHER SIDE OF WHAT THE -P- REGISTER WAS WHEN REPRIEVE           IDP          138     A     
 IDP      *         WAS CALLED.                                                            IDP          139     A     
 IDP      *                                                                                IDP          140     A     
 IDP      *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE                 IDP          141     A     
 IDP      *                                                                                IDP          142     A     
 IDP      *         EXIT   NONE                                                            IDP          143     A     
 IDP      *                                                                                IDP          144     A     
 IDP      *         USES   ALL BUT A0,A5,X5                                                IDP          145     A     
 IDP      *                                                                                IDP          146     A     
 IDP      *         CALLS  COD,DAR,DCM,PRIDP,TEX                                           IDP          147     A     
 IDP                                                                                       IDP          148     A     
 IDP       .OS      IFEQ   .OS,2       IF SCOPE 2                                          IDP          149     A     
 IDP                                                                                       IDP          150     A     
 IDP       DXP=     SUBR   =           ** ENTRY/EXIT **                                    IDP          151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                RJ     TEX         TRANSFER EXCHANGE PACKAGE REGISTERS                 IDP          152     A     
 IDP                                                                                       IDP          153     A     
 IDP      *         DUMP P,RA,FL,EM,RE,FE, AND MA.                                         IDP          154     A     
 IDP                                                                                       IDP          155     A     
 IDP       DXP2     SA3    DXPB                                                            IDP          156     A     
 IDP                SX6    X3-6                                                            IDP          157     A     
 IDP                ZR     X6,DXP3     IF DONE                                             IDP          158     A     
 IDP                SX6    X3+B1                                                           IDP          159     A     
 IDP                SA6    A3                                                              IDP          160     A     
 IDP                SA2    DXPA+X3     (X2) = .......XX.   (.=BLANK(55B))                  IDP          161     A     
 IDP                SA1    HARDREG+X3  (X1) = SAVED CONTENTS OF HARDWARE REGISTER          IDP          162     A     
 IDP                BX6    X2                                                              IDP          163     A     
 IDP                SA6    =XSNAPLNE                                                       IDP          164     A     
 IDP                RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         IDP          165     A     
 IDP                LX6    3*CHAR      (X6) = .NNNNNN...                                   IDP          166     A     
 IDP                SA6    A6+B1                                                           IDP          167     A     
 IDP                MX7    0                                                               IDP          168     A     
 IDP                SA7    A6+B1       MARK EOL                                            IDP          169     A     
 IDP                PRIDP  SNAPLNE,3                                                       IDP          170     A     
 IDP                EQ     DXP2                                                            IDP          171     A     
 IDP                                                                                       IDP          172     A     
 IDP      *         HERE TO DUMP ALL REGISTERS.                                            IDP          173     A     
 IDP                                                                                       IDP          174     A     
 IDP       DXP3     RJ     DAR         DUMP ALL REGISTERS                                  IDP          175     A     
 IDP                                                                                       IDP          176     A     
 IDP      *         HERE TO DUMP 100B WORDS EITHER SIDE OF -P- REGISTER                    IDP          177     A     
 IDP                                                                                       IDP          178     A     
 IDP                SA1    HARDREG     (X1) = -P- REGISTER                                 IDP          179     A     
 IDP                SX4    200B        (X4) = NR OF WORDS TO DUMP (LEN)                    IDP          180     A     
 IDP                NZ     X1,DXP4     IF -P- REGISTER NONZERO                             IDP          181     A     
 IDP                SA1    B0          EXTRACT -P- FROM RA+0                               IDP          182     A     
 IDP                LX1    59-47+18                                                        IDP          183     A     
 IDP                                                                                       IDP          184     A     
 IDP       DXP4     MX0    -18                                                             IDP          185     A     
 IDP                BX1    -X0*X1                                                          IDP          186     A     
 IDP                SX2    X1-100B     (X2) = FWA TO DUMP                                  IDP          187     A     
 IDP                RJ     DCM         DUMP CENTRAL MEMORY                                 IDP          188     A     
 IDP                EQ     EXIT.                                                           IDP          189     A     
 IDP                                                                                       IDP          190     A     
 IDP                                                                                       IDP          191     A     
 IDP       DXPA     DATA   10H1       P  NNNNNN                                            IDP          192     A     
 IDP                DATA   10H       RA  NNNNNN                                            IDP          193     A     
 IDP                DATA   10H       FL  NNNNNN                                            IDP          194     A     
 IDP                DATA   10H       EM  NNNNNN                                            IDP          195     A     
 IDP                DATA   10H       RE  NNNNNN                                            IDP          196     A     
 IDP                DATA   10H       FE  NNNNNN                                            IDP          197     A     
 IDP                DATA   10H       MA  NNNNNN                                            IDP          198     A     
 IDP                                                                                       IDP          199     A     
 IDP       DXPB     BSSZ   1                                                               IDP          200     A     
 IDP       .OS      ENDIF                                                                  IDP          201     A     
 IDP       PTO      SPACE  4,8                                                             IDP          202     A     
 IDP      **        PTO - PRINT TABLE ORIGINS.                                             IDP          203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP      *                                                                                IDP          204     A     
 IDP      *                                                                                IDP          205     A     
 IDP      *                PRINTS TABLE STATISTICS IN THE FOLLOWING FORMAT--               IDP          206     A     
 IDP      *     COL 1         1         1         1         (.=BLANK(55B))                 IDP          207     A     
 IDP      *         ..........TABLE.......ORIGIN......SIZE.....SLOP...                     IDP          208     A     
 IDP      *         ......NN..NAME........NNNNNN....NNNNNN...NNNNNN...                     IDP          209     A     
 IDP      *                                                                                IDP          210     A     
 IDP      *         ENTRY  NONE                                                            IDP          211     A     
 IDP      *                                                                                IDP          212     A     
 IDP      *         EXIT   (X0) = TOTAL LENGTH OF ALL TABLES                               IDP          213     A     
 IDP      *                                                                                IDP          214     A     
 IDP      *         USES   ALL                                                             IDP          215     A     
 IDP      *                                                                                IDP          216     A     
 IDP      *         CALLS  COD,PLINE                                                       IDP          217     A     
 IDP                                                                                       IDP          218     A     
 IDP                                                                                       IDP          219     A     
 IDP       PTO      SUBR   =                                                               IDP          220     A     
 IDP                SA0    B0          (A0) = TABLE ORDINAL                                IDP          221     A     
 IDP                =X0    0                                                               IDP          222     A     
 IDP                PLINE  PTOA,5,1                                                        IDP          223     A     
 IDP                                                                                       IDP          224     A     
 IDP       PTO2     SX1    A0                                                              IDP          225     A     
 IDP                RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- TABLE ORD            IDP          226     A     
 IDP                SA1    =XNAMES+A0  (X1) = 42/7LNAME,18/ORDINAL                         IDP          227     A     
 IDP                MX4    7*6                                                             IDP          228     A     
 IDP                SA5    =3R                                                             IDP          229     A     
 IDP                BX2    X4*X1       REMOVE TABLE ORDINAL                                IDP          230     A     
 IDP                LX6    2*CHAR      (X6) = ......NN..   (.=BLANK(55B))                  IDP          231     A     
 IDP                BX7    X2+X5                                                           IDP          232     A     
 IDP                SA6    =XSNAPLNE                                                       IDP          233     A     
 IDP                SA1    =XBASES+A0  (X1) = TABLE ORIGIN                                 IDP          234     A     
 IDP                SA7    A6+B1                                                           IDP          235     A     
 IDP                =X5    X1+FUDGE    (X5) = ORIGIN + FUDGE                               IDP          236     A     
 IDP                RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ORIGIN               IDP          237     A     
 IDP                LX6    2*CHAR                                                          IDP          238     A     
 IDP                SA6    A7+B1       (X6) = ..NNNNNN..   (.=BLANK(55B))                  IDP          239     A     
 IDP                                                                                       IDP          240     A     
 IDP                SA3    A1+B1       (X3) = ORIGIN OF NEXT TABLE                         IDP          241     A     
 IDP                SA1    A0+=XSIZES  (X1) = TABLE LENGTH                                 IDP          242     A     
 IDP                IX0    X0+X1       TOTAL LENGTH                                        IDP          243     A     
 IDP                IX5    X5+X1                                                           IDP          244     A     
 IDP                IX5    X3-X5       (X5) = AMOUNT OF SLOP SPACE                         IDP          245     A     
 IDP                RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- LENGTH               IDP          246     A     
 IDP                LX6    2*CHAR      (X6) = ..NNNNNN..   (.=BLANK(55B))                  IDP          247     A     
 IDP                SA6    A6+B1                                                           IDP          248     A     
 IDP                                                                                       IDP          249     A     
 IDP                BX1    X5                                                              IDP          250     A     
 IDP                RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- SLOP                 IDP          251     A     
 IDP                LX6    2*CHAR                                                          IDP          252     A     
 IDP                SA6    A6+B1                                                           IDP          253     A     
 IDP                BX5    X0          SAVE X0                                             IDP          254     A     
 IDP                SX6    =XALTNAM    START OF ALTERNATE NAME TABLE                       IDP          255     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                SA6    PTOB        SAVE IT                                             IDP          256     A     
 IDP                SX2    5           LENGTH FOR WOF                                      IDP          257     A     
 IDP       PTO3     PLINE  SNAPLNE,X2                                                      IDP          258     A     
 IDP                SA1    PTOB                                                            IDP          259     A     
 IDP                SB6    X1          CURRENT POSITION IN ALTERNAME NAME TABLE            IDP          260     A     
 IDP                MX0    18                                                              IDP          261     A     
 IDP                LX0    18                                                              IDP          262     A     
 IDP                SX1    A0          ORDINAL TO SEARCH FOR                               IDP          263     A     
 IDP                CALL   SKT         FIND ALTERNATE NAME                                 IDP          264     A     
 IDP                ZR     X2,PTO4     IF NO ALTERNATES                                    IDP          265     A     
 IDP                                                                                       IDP          266     A     
 IDP                MX4    42                                                              IDP          267     A     
 IDP                BX6    X4*X2       REMOVE ORDINAL                                      IDP          268     A     
 IDP                SA1    =10H                                                            IDP          269     A     
 IDP                BX7    X1                                                              IDP          270     A     
 IDP                SA7    =XSNAPLNE                                                       IDP          271     A     
 IDP                SA6    A7+B1                                                           IDP          272     A     
 IDP                =X6    A2+1        NEXT WORD IN ALTNAM TABLE                           IDP          273     A     
 IDP                SA6    PTOB        SAVE IT                                             IDP          274     A     
 IDP                SX2    2           LENGTH FOR WOF                                      IDP          275     A     
 IDP                EQ     PTO3        FIND MORE ALTERNATES                                IDP          276     A     
 IDP                                                                                       IDP          277     A     
 IDP       PTO4     BX0    X5          RESTORE X0                                          IDP          278     A     
 IDP                SB6    =XN.TABLE-1                                                     IDP          279     A     
 IDP                SA0    A0+B1                                                           IDP          280     A     
 IDP                SB7    A0                                                              IDP          281     A     
 IDP                LT     B7,B6,PTO2  IF MORE TABLES TO GO                                IDP          282     A     
 IDP                EQ     EXIT.                                                           IDP          283     A     
 IDP                                                                                       IDP          284     A     
 IDP                                                                                       IDP          285     A     
 IDP       PTOA     DIS    5,          TABLE      ORIGIN      SIZE     SLOP                IDP          286     A     
 IDP       PTOB     CON    0           SAVE WORD FOR ALTNAM POINTER                        IDP          287     A     
 IDP       TEX      SPACE  4,8                                                             IDP          288     A     
 IDP      **        TEX - TRANSFER EXCHANGE PACKAGE REGISTERS.                             IDP          289     A     
 IDP      *                                                                                IDP          290     A     
 IDP      *                                                                                IDP          291     A     
 IDP      *                THIS ROUTINE WILL TRANSFER THE CONTENTS OF THE                  IDP          292     A     
 IDP      *         REGISTERS IN THE SAVED EXCHANGE PACKAGE TO THE REGISTER SAVE           IDP          293     A     
 IDP      *         AREA (SVB,SVA,SVX -- AS SET UP BY *COMCSVR*). A SUBSEQUENT             IDP          294     A     
 IDP      *         CALL TO *RSR=* WOULD RESTORE ALL REGISTERS TO THEIR VALUES             IDP          295     A     
 IDP      *         AT THE TIME OF THE EXCHANGE.                                           IDP          296     A     
 IDP      *                                                                                IDP          297     A     
 IDP      *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE                 IDP          298     A     
 IDP      *                                                                                IDP          299     A     
 IDP      *         EXIT   NONE                                                            IDP          300     A     
 IDP      *                                                                                IDP          301     A     
 IDP      *         USES   X - 0,1,6,7                                                     IDP          302     A     
 IDP      *                A - 1,6,7                                                       IDP          303     A     
 IDP      *                B - 2,3,4,5,7                                                   IDP          304     A     
 IDP      *                                                                                IDP          305     A     
 IDP      *         CALLS  NONE                                                            IDP          306     A     
 IDP                                                                                       IDP          307     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                                                                                       IDP          308     A     
 IDP                SA1    HARDREG     P-REGISTER                                          IDP          309     A     
 IDP                SX6    X1-2                                                            IDP          310     A     
 IDP                PL     X1,EXIT.    IF P-REGISTER NOT CLEARED                           IDP          311     A     
 IDP                MX0    -17                                                             IDP          312     A     
 IDP                =A5    0                                                               IDP          313     A     
 IDP                LX5    59-47+18                                                        IDP          314     A     
 IDP                BX6    -X0*X5                                                          IDP          315     A     
 IDP                SA6    HARDREG     SET UP P-REGISTER                                   IDP          316     A     
 IDP       TEX      SUBR               ** ENTRY/EXIT **                                    IDP          317     A     
 IDP                SA1    A1+16-1     (X1) = LAST WORD OF 16 WORD EXCHANGE PKG            IDP          318     A     
 IDP                SB2    =XSVB                                                           IDP          319     A     
 IDP                SB3    =XSVA                                                           IDP          320     A     
 IDP                SB4    =XSVX                                                           IDP          321     A     
 IDP                SB5    HARDREG                                                         IDP          322     A     
 IDP                SB7    7           (B7) = LOOP COUNT -N-                               IDP          323     A     
 IDP                MX0    -18                                                             IDP          324     A     
 IDP                                                                                       IDP          325     A     
 IDP      *         RESTORE -X- REGISTERS.                                                 IDP          326     A     
 IDP                                                                                       IDP          327     A     
 IDP       TEX2     BX6    X1                                                              IDP          328     A     
 IDP                SA6    B4+B7                                                           IDP          329     A     
 IDP                SB7    B7-B1       N-1                                                 IDP          330     A     
 IDP                SA1    A1-B1                                                           IDP          331     A     
 IDP                GE     B7,B0,TEX2  IF MORE -X- REGS TO GO                              IDP          332     A     
 IDP                                                                                       IDP          333     A     
 IDP      *         RESTORE -B- AND -A- REGS, AND SAVE P,RA,FL,EM,RE,FE,MA.                IDP          334     A     
 IDP                                                                                       IDP          335     A     
 IDP                SB7    7           (B7) = LOOP COUNT -N-                               IDP          336     A     
 IDP                                                                                       IDP          337     A     
 IDP       TEX3     BX6    -X0*X1      (X6) = (B-N-)                                       IDP          338     A     
 IDP                LX1    -18                                                             IDP          339     A     
 IDP                BX7    -X0*X1      (X7) = (A-N-)                                       IDP          340     A     
 IDP                SA6    B2+B7                                                           IDP          341     A     
 IDP                SA7    B3+B7                                                           IDP          342     A     
 IDP                LX1    -18                                                             IDP          343     A     
 IDP                BX6    -X0*X1      (X6) = P,RA,FL,EM,RE,FE,OR MA                       IDP          344     A     
 IDP                SA6    B5+B7                                                           IDP          345     A     
 IDP                SB7    B7-B1       N-1                                                 IDP          346     A     
 IDP                SA1    A1-B1                                                           IDP          347     A     
 IDP                GE     B7,B0,TEX3  IF NOT DONE                                         IDP          348     A     
 IDP                EQ     EXIT.                                                           IDP          349     A     
 IDP                                                                                       IDP          350     A     
 IDP                                                                                       IDP          351     A     
 IDP       HARDREG  BSSZ   8           SAVED HARDWARE REGISTERS                            IDP          352     A     
 IDP      *         BSSZ   1           SAVED P                                             IDP          353     A     
 IDP      *         BSSZ   1           SAVED RA                                            IDP          354     A     
 IDP      *         BSSZ   1           SAVED FL                                            IDP          355     A     
 IDP      *         BSSZ   1           SAVED EM                                            IDP          356     A     
 IDP      *         BSSZ   1           SAVED RE                                            IDP          357     A     
 IDP      *         BSSZ   1           SAVED FE                                            IDP          358     A     
 IDP      *         BSSZ   1           SAVED MA                                            IDP          359     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP      *         BSSZ   1           DUMMY FOR CONSISTENCY                               IDP          360     A     
 IDP       UIO=     SPACE  4,8                                                             IDP          361     A     
 IDP      **        UIO= - USER IDP OWNCODE.                                               IDP          362     A     
 IDP      *                                                                                IDP          363     A     
 IDP      *                                                                                IDP          364     A     
 IDP      *         ENTRY  (RA.ORG) =  12/LAST OVERLAY LOADED (0P0S FMT),48/OTHER          IDP          365     A     
 IDP      *                (UIOA)   =  48/0,12/LAST OVERLAY LOADED ON PREVIOUS             IDP          366     A     
 IDP      *                              IDP CALL (0P0S FMT)                               IDP          367     A     
 IDP      *                                                                                IDP          368     A     
 IDP      *         EXIT   (X1)     =  .MI., I.E. HONOR BREAK                              IDP          369     A     
 IDP      *                                                                                IDP          370     A     
 IDP      *                WARNING -- IF THE USER HAS NOT ALLOTTED ENOUGH SPACE            IDP          371     A     
 IDP      *                  FOR THE USER *SET* NAME TABLE *IDPSET* TO CONTAIN             IDP          372     A     
 IDP      *                  ALL THE DEFAULT *SET* NMAES, THEN *ADZ* (CALLED BY            IDP          373     A     
 IDP      *                  *IST*) WILL SENSE TABLE OVERFLOW AND XIT TO *IDP=ER*.         IDP          374     A     
 IDP      *                  THIS CONDITION SHOULD BE AVOIDED.                             IDP          375     A     
 IDP      *                                                                                IDP          376     A     
 IDP      *         USES   X - 0,1,2,3,6,7   (INCLUDES ALL CALLS)                          IDP          377     A     
 IDP      *                A - 1,2,6                                                       IDP          378     A     
 IDP      *                B - 6,7                                                         IDP          379     A     
 IDP      *                                                                                IDP          380     A     
 IDP      *         CALLS  CLZ,IST                                                         IDP          381     A     
 IDP                                                                                       IDP          382     A     
 IDP       #OS      IFNE   .OS,2                                                           IDP          383     A     
 IDP                                                                                       IDP          384     A     
 IDP       UIO=     SUBR   =           ** ENTRY/EXIT **                                    IDP          385     A     
 IDP                SA2    RA.ORG                                                          IDP          386     A     
 IDP                SA3    UIOA                                                            IDP          387     A     
 IDP                MX1    1           SET TO *HONOR BREAK*                                IDP          388     A     
 IDP                AX2    48-0                                                            IDP          389     A     
 IDP                IX7    X2-X3                                                           IDP          390     A     
 IDP                BX6    X2                                                              IDP          391     A     
 IDP                ZR     X7,EXIT.    IF WE ARE STILL IN THE SAME OVERLAY                 IDP          392     A     
 IDP                SA6    A3                                                              IDP          393     A     
 IDP                SB6    /IDP/IDPBA                                                      IDP          394     A     
 IDP                RJ     CLZ         CLEAR IDP TABLE -- BREAK ADDRESSES                  IDP          395     A     
 IDP                MX1    1           SET TO *HONOR BREAK*                                IDP          396     A     
 IDP                EQ     EXIT.                                                           IDP          397     A     
 IDP                                                                                       IDP          398     A     
 IDP                                                                                       IDP          399     A     
 IDP       UIOA     BSSZ   1           USED TO TELL WHETHER OR NOT A NEW OVERLAY           IDP          400     A     
 IDP      *                              HAS BEEN LOADED SINCE THE LAST *IDP*              IDP          401     A     
 IDP      *                              CALL-- CONTAINS THE MOST RECENT OVERLAY           IDP          402     A     
 IDP      *                              LOADED NR FROM *RA.ORG* -- 48/0,12/0P0S           IDP          403     A     
 IDP       #OS      ENDIF                                                                  IDP          404     A     
 IDP       URO=     SPACE  4,8                                                             IDP          405     A     
 IDP      **        URO= - USER REG= OWNCODE.                                              IDP          406     A     
 IDP      *                                                                                IDP          407     A     
 IDP      *         ENTRY  (X5) = FWA OF *REG=* PARAMETER LIST                             IDP          408     A     
 IDP      *                                                                                IDP          409     A     
 IDP      *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.                    IDP          410     A     
 IDP      *                                                                                IDP          411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP      *         USES   ALL                                                             IDP          412     A     
 IDP      *                                                                                IDP          413     A     
 IDP      *         CALLS  NONE                                                            IDP          414     A     
 IDP                                                                                       IDP          415     A     
 IDP                                                                                       IDP          416     A     
 IDP       URO=     SUBR   =           ** ENTRY/EXIT **                                    IDP          417     A     
 IDP                SA2    =XCO.SNAP                                                       IDP          418     A     
 IDP                SA3    X5+/IDP/SN=URF  (X3) = USER *REG* FLAGS                         IDP          419     A     
 IDP                BX1    -X2                                                             IDP          420     A     
 IDP                LX1    1RG                                                             IDP          421     A     
 IDP                PL     X1,EXIT.    IF *SNAP=G* SELECTED, NO SNAPS...                   IDP          422     A     
 IDP                ZR     X3,EXIT.    IF *USF* WORD IS .ZR., SELECT SNAPS...              IDP          423     A     
 IDP                                                                                       IDP          424     A     
 IDP                BX6    X2*X3                                                           IDP          425     A     
 IDP                NZ     X6,EXIT.    IF A MATCH SOMEWHERE, SELECT SNAPS...               IDP          426     A     
 IDP                BX1    X1-X1       SET TO *DESELECT SNAPS*                             IDP          427     A     
 IDP                EQ     EXIT.                                                           IDP          428     A     
 IDP       USO=     SPACE  4,10                                                            IDP          429     A     
 IDP      **        USO= - USER SNP= OWNCODE.                                              IDP          430     A     
 IDP      *                                                                                IDP          431     A     
 IDP      *         ENTRY  (X5) = FWA OF *SNP=* PARAMETER LIST                             IDP          432     A     
 IDP      *                                                                                IDP          433     A     
 IDP      *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.                    IDP          434     A     
 IDP      *                                                                                IDP          435     A     
 IDP      *         USES   ALL                                                             IDP          436     A     
 IDP      *                                                                                IDP          437     A     
 IDP      *         CALLS  NONE                                                            IDP          438     A     
 IDP                                                                                       IDP          439     A     
 IDP                                                                                       IDP          440     A     
 IDP       USO=     SUBR   =           ** ENTRY/EXIT **                                    IDP          441     A     
 IDP                SA2    =XCO.SNAP                                                       IDP          442     A     
 IDP                SA3    X5+/IDP/SN=USF  (X3) = USER *SNP* FLAGS                         IDP          443     A     
 IDP                BX1    -X2                                                             IDP          444     A     
 IDP                LX1    1RG                                                             IDP          445     A     
 IDP                PL     X1,EXIT.    IF *SNAP=G* SELECTED, NO SNAPS...                   IDP          446     A     
 IDP                ZR     X3,EXIT.    IF *USF* WORD IS .ZR., SELECT SNAPS...              IDP          447     A     
 IDP                                                                                       IDP          448     A     
 IDP                BX6    X2*X3                                                           IDP          449     A     
 IDP                NZ     X6,EXIT.    IF A MATCH SOMEWHERE, SELECT SNAPS...               IDP          450     A     
 IDP                BX1    X1-X1       SET TO *DESELECT SNAPS*                             IDP          451     A     
 IDP                EQ     EXIT.                                                           IDP          452     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     308     A     
 IDP      **        USY= - USER IDP SYMBOL SEARCH.                                         IDP          453     A     
 IDP      *                                                                                IDP          454     A     
 IDP      *                                                                                IDP          455     A     
 IDP      *         *USY=* PROVIDES A LINKAGE TO AN IDP SYMBOL SEARCH                      IDP          456     A     
 IDP      *         ROUTINE IN ANOTHER (POSSIBLY HIGHER) OVERLAY.  THIS                    IDP          457     A     
 IDP      *         IS DONE BY CONSTRUCTING AN *RJ* TO THE ADDRESS                         IDP          458     A     
 IDP      *         OF A SUBROUTINE THAT WAS PREVIOUSLY SET UP DURING                      IDP          459     A     
 IDP      *         OVERLAY INITIALIZATION.  SEE *USY=* IN COMCIDP, AND THE                IDP          460     A     
 IDP      *         *INITXX*S.                                                             IDP          461     A     
 IDP      *                                                                                IDP          462     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP      *         ENTRY  (X1) = SYMBOL TO SEARCH FOR, -L- FMT.                           IDP          463     A     
 IDP      *                                                                                IDP          464     A     
 IDP      *         EXIT   (X1) = .NZ. IF A FIND, ELSE .ZR.                                IDP          465     A     
 IDP      *                (X6) = BINARY VALUE FOR SYMBOL.                                 IDP          466     A     
 IDP      *                                                                                IDP          467     A     
 IDP      *         USES   ALL BUT A0,X0,A5,X5                                             IDP          468     A     
 IDP      *                                                                                IDP          469     A     
 IDP      *         CALLS  USY=XX(VIA CONSTRUCTED *RJ*)                                    IDP          470     A     
 IDP                                                                                       IDP          471     A     
 IDP                                                                                       IDP          472     A     
 IDP       USY=     SUBR               ** ENTRY/EXIT **                                    IDP          473     A     
 IDP                SA2    IDP=USY     (X2) = ADDR OF *USY=XX* SUBROUTINE                  IDP          474     A     
 IDP                SB2    X2                                                              IDP          475     A     
 IDP                BX6    X1                                                              IDP          476     A     
 IDP                SA6    USYA        SAVE (X1)                                           IDP          477     A     
 IDP                RJ     /IDP/CHK    CHECK CM ADDRESS                                    IDP          478     A     
 IDP                BX1    X1-X1       PRESET TO *NO FIND*                                 IDP          479     A     
 IDP                SX3    B2                                                              IDP          480     A     
 IDP                LE     B2,B0,EXIT. IF USER DID NOT PROVIDE *USY=XX*                    IDP          481     A     
 IDP                                                                                       IDP          482     A     
 IDP                SA1    USYA                                                            IDP          483     A     
 IDP                SA2    USYB        (X2) = *RJ* SKELETON                                IDP          484     A     
 IDP                LX3    30                                                              IDP          485     A     
 IDP                BX6    X2+X3       CONSTRUCT *RJ USY=XX*                               IDP          486     A     
 IDP                SA6    USY=RJ                                                          IDP          487     A     
 IDP                                                                                       IDP          488     A     
 IDP       USY=RJ   BSSZ   1                                                               IDP          489     A     
 IDP                EQ     EXIT.                                                           IDP          490     A     
 IDP                                                                                       IDP          491     A     
 IDP                                                                                       IDP          492     A     
 IDP       USYA     BSSZ   1           SAVED (X1)                                          IDP          493     A     
 IDP                                                                                       IDP          494     A     
 IDP       USYB     RJ     0           RJ SKELETON                                         IDP          495     A     
 IDP                                                                                       IDP          496     A     
 IDP                                                                                       IDP          497     A     
 IDP       IDP=USY  CONENT "BLOWUP"    ADDR OF *USY=XX* SUBROUTINE                         IDP          498     A     
 IDP       UFT=     SPACE  4,8                                                             IDP          499     A     
 IDP      **        UFT= - USER FILE NAME TABLE.                                           IDP          500     A     
 IDP                                                                                       IDP          501     A     
 IDP       #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      IDP          502          I
          -FC5A158A 
 IDP                                                                                       IDP          503     A     
 IDP       UFT=     BSS    0                                                               IDP          504     A     
 IDP                VFD    42/0LINPUT,18/=XF.IN                                            IDP          505     A     
 IDP                VFD    42/0LF.OUT,18/=XF.OUT                                           IDP          506     A     
 IDP                VFD    42/0LOUTPUT,18/=XF.OUT                                          IDP          507     A     
 IDP                DATA   0           END OF TABLE MARK                                   IDP          508     A     
 IDP       #OS      ENDIF                                                                  IDP          509          I
          -FC5A158A 
 IDP      *CALL     COMCLFM                  LOCAL FILE MANAGER                            IDP          510     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     309     A     
 IDP       QUAL     SPACE  4,10                                                            IDP          511     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                QUAL   IDP                                                             IDP          512     A     
 IDP      *CALL     COMCIDP - INTERACTIVE DEBUG PACKAGE                                    IDP          513     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     310     A     
 IDP      *CALL COMCBUB                                                                    IDP          514     A     
 IDP      *CALL COMCBUN                                                                    IDP          515     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     311     A     
 IDP      *CALL COMCCDD                                                                    IDP          516     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     312     A     
 IDP      *CALL COMCCIO                                                                    IDP          517     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     313     A     
 IDP      *CALL COMCCOD                                                                    IDP          518     A     
 IDP      *CALL COMCDXB                                                                    IDP          519     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     314     A     
 IDP      *CALL COMCMCS                                                                    IDP          520     A     
 IDP      *CALL COMCRDC                                                                    IDP          521     A     
 IDP      *CALL COMCRDW                                                                    IDP          522     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     315     A     
 IDP      *CALL     COMCRSR            RESTORE REGISTERS VIA CPU                           IDP          523     A     
 IDP      *CALL COMCSBM                                                                    IDP          524     A     
 IDP      *CALL COMCSFN                                                                    IDP          525     A     
 IDP      *CALL     COMCSVR            SAVE REGISTERS VIA CPU                              IDP          526     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     316     A     
 IDP      *CALL COMCSYS                                                                    IDP          527     A     
 IDP      *CALL COMCTOK                                                                    IDP          528     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     317     A     
 IDP      *CALL COMCWOD                                                                    IDP          529     A     
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     318     A     
 IDP      *CALL COMCWTC                                                                    IDP          530     A     
 IDP      *CALL COMCWTW                                                                    IDP          531     A     
 IDP      *CALL     COMCXJR            RESTORE REGISTERS VIA *XJR*                         IDP          532     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     319     A     
 IDP      *CALL COMCZTB                                                                    IDP          533     A     
 IDP       IDP      SPACE  4,10                                                            IDP          534     A     
 IDP                QUAL   *                                                               IDP          535     A     
 IDP       ENTRY    SPACE  4,10                                                            IDP          536     A     
 IDP      ***       DEFINE IDP LINKAGE/ENTRY SYMBOLS.                                      IDP          537     A     
 IDP      *                                                                                IDP          538     A     
 IDP      *                                                                                IDP          539     A     
 IDP                                                                                       IDP          540     A     
 IDP                                                                                       IDP          541     A     
 IDP       IDP=     IDPENT IDP=                                                            IDP          542          I
          -FC5A158A 
 IDP       IDP=MN   IDPENT IDP=MN                                                          IDP          543          I
          -FC5A158A 
 IDP       IDP=ER   IDPENT IDP=ER                                                          IDP          544          I
          -FC5A158A 
 IDP       IDP=ERR  IDPENT IDP=ERR                                                         IDP          545          I
          -FC5A158A 
 IDP                                                                                       IDP          546          I
          -FC5A158A 
 IDP       IDP=SVB  IDPENT IDP=SVB                                                         IDP          547          I
          -FC5A158A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP       IDP=SVA  IDPENT IDP=SVA                                                         IDP          548          I
          -FC5A158A 
 IDP       IDP=SVX  IDPENT IDP=SVX                                                         IDP          549          I
          -FC5A158A 
 IDP                                                                                       IDP          550          I
          -FC5A158A 
 IDP       IDPFLG   IDPENT IDPFLG                                                          IDP          551          I
          -FC5A158A 
 IDP       REG=     IDPENT REG=                                                            IDP          552          I
          -FC5A158A 
 IDP       ROL=     IDPENT ROL=                                                            IDP          553          I
          -FC5A158A 
 IDP       SNP=     IDPENT SNP=                                                            IDP          554          I
          -FC5A158A 
 IDP       SNAPLNE  IDPENT SNAPLNE                                                         IDP          555          I
          -FC5A158A 
 IDP       FW=IDPL  IDPENT FW=PARM                                                         IDP          556          I
          -FC5A158A 
 IDP                                                                                       IDP          557          I
          -FC5A158A 
 IDP                                                                                       IDP          558          I
          -FC5A158A 
 IDP                IDPENT CAD                                                             IDP          559          I
          -FC5A158A 
 IDP                IDPENT CHK                                                             IDP          560          I
          -FC5A158A 
 IDP                IDPENT CLZ                                                             IDP          561          I
          -FC5A158A 
 IDP                IDPENT DAR                                                             IDP          562          I
          -FC5A158A 
 IDP       DCM=     IDPENT DCM                                                             IDP          563          I
          -FC5A158A 
 IDP                IDPENT FLL                                                             IDP          564          I
          -FC5A158A 
 IDP                IDPENT FRK                                                             IDP          565          I
          -FC5A158A 
 IDP                IDPENT HDR                                                             IDP          566          I
          -FC5A158A 
 IDP                IDPENT PAS                                                             IDP          567          I
          -FC5A158A 
 IDP                IDPENT PAT                                                             IDP          568          I
          -FC5A158A 
 IDP       PAT#FWA  IDPENT PAT#FWA                                                         IDP          569          I
          -FC5A158A 
 IDP       PAT#LEN  IDPENT PAT#LEN                                                         IDP          570          I
          -FC5A158A 
 IDP                IDPENT SKT                                                             IDP          571          I
          -FC5A158A 
 IDP                IDPENT SOB                                                             IDP          572          I
          -FC5A158A 
 IDP                                                                                       IDP          573          I
          -FC5A158A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                                                                                       IDP          574          I
          -FC5A158A 
 IDP       IDP=CDD  IDPENT CDD                                                             IDP          575          I
          -FC5A158A 
 IDP       IDP=COD  IDPENT COD                                                             IDP          576          I
          -FC5A158A 
 IDP       IDP=DXB  IDPENT DXB                                                             IDP          577          I
          -FC5A158A 
 IDP       IDP=MCS  IDPENT MCS                                                             IDP          578          I
          -FC5A158A 
 IDP       IDP=SFN  IDPENT SFN                                                             IDP          579          I
          -FC5A158A 
 IDP       IDP=SYS  IDPENT SYS=                                                            IDP          580          I
          -FC5A158A 
 IDP       IDP=WOD  IDPENT WOD                                                             IDP          581          I
          -FC5A158A 
 IDP       IDP=ZTB  IDPENT ZTB                                                             IDP          582          I
          -FC5A158A 
 IDP       #IDPOS   IFNE   .OS,2                                                           FC5A158A     320     A     
 IDP       IDP=     IDPENT IDP=                                                            FC5A158A     321     A     
 IDP       IDP=MN   IDPENT IDP=MN                                                          FC5A158A     322     A     
 IDP       IDP=ER   IDPENT IDP=ERR                                                         FC5A158A     323     A     
 IDP                                                                                       FC5A158A     324     A     
 IDP                IDPENT CLZ                                                             FC5A158A     325     A     
 IDP                IDPENT FLL                                                             FC5A158A     326     A     
 IDP                IDPENT PAS                                                             FC5A158A     327     A     
 IDP                IDPENT PAT                                                             FC5A158A     328     A     
 IDP       PAT#FWA  IDPENT PAT#FWA                                                         FC5A158A     329     A     
 IDP       PAT#LEN  IDPENT PAT#LEN                                                         FC5A158A     330     A     
 IDP                                                                                       FC5A158A     331     A     
 IDP       IDP=DXB  IDPENT DXB                                                             FC5A158A     332     A     
 IDP       IDP=MCS  IDPENT MCS                                                             FC5A158A     333     A     
 IDP       IDP=SFN  IDPENT SFN                                                             FC5A158A     334     A     
 IDP       IDP=SYS  IDPENT SYS=                                                            FC5A158A     335     A     
 IDP       #IDPOS   ENDIF                                                                  FC5A158A     336     A     
 IDP                                                                                       FC5A158A     337     A     
 IDP                                                                                       FC5A158A     338     A     
 IDP       IDP=SVB  IDPENT IDP=SVB                                                         FC5A158A     339     A     
 IDP       IDP=SVA  IDPENT IDP=SVA                                                         FC5A158A     340     A     
 IDP       IDP=SVX  IDPENT IDP=SVX                                                         FC5A158A     341     A     
 IDP                                                                                       FC5A158A     342     A     
 IDP       IDPFLG   IDPENT IDPFLG                                                          FC5A158A     343     A     
 IDP       REG=     IDPENT REG=                                                            FC5A158A     344     A     
 IDP       ROL=     IDPENT ROL=                                                            FC5A158A     345     A     
 IDP       SNP=     IDPENT SNP=                                                            FC5A158A     346     A     
 IDP       SNAPLNE  IDPENT SNAPLNE                                                         FC5A158A     347     A     
 IDP       FW=IDPL  IDPENT FW=PARM                                                         FC5A158A     348     A     
 IDP                                                                                       FC5A158A     349     A     
 IDP                IDPENT CAD                                                             FC5A158A     350     A     
 IDP                IDPENT CHK                                                             FC5A158A     351     A     
 IDP                IDPENT DAR                                                             FC5A158A     352     A     
 IDP       DCM=     IDPENT DCM                                                             FC5A158A     353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP                IDPENT FRK                                                             FC5A158A     354     A     
 IDP                IDPENT HDR                                                             FC5A158A     355     A     
 IDP                IDPENT SKT                                                             FC5A158A     356     A     
 IDP                IDPENT SOB                                                             FC5A158A     357     A     
 IDP                                                                                       FC5A158A     358     A     
 IDP       IDP=CDD  IDPENT CDD                                                             FC5A158A     359     A     
 IDP       IDP=COD  IDPENT COD                                                             FC5A158A     360     A     
 IDP       IDP=WOD  IDPENT WOD                                                             FC5A158A     361     A     
 IDP       IDP=ZTB  IDPENT ZTB                                                             FC5A158A     362     A     
 IDP                                                                                       FC5A158A     363     A     
 IDP                                                                                       FC5A158A     364     A     
 IDP      **        THE FOLLOWING SYMBOL DEFINITIONS ARE **TEMPORARY**, I.E. THEY          FC5A158A     365     A     
 IDP      *         SHOULD BE REMOVED WHEN ALL OF THE REFERENCES TO THEM IN THE            FC5A158A     366     A     
 IDP      *         FTN5 COMPILER CAN BE DELETED WHEN WE ARE BEING ASSEMBLED ON SC         FC5A158A     367     A     
 IDP                                                                                       FC5A158A     368     A     
 IDP       #OS      IFEQ   .OS,2                                                           FC5A158A     369     A     
 IDP       IDP=ER   BSSENT                                                                 FC5A158A     370     A     
 IDP       IDP=FLL  BSSENT                                                                 FC5A158A     371     A     
 IDP       IDP=MCS  BSSENT                                                                 FC5A158A     372     A     
 IDP       IDP=MN   BSSENT                                                                 FC5A158A     373     A     
 IDP       IDP=PAS  BSSENT                                                                 FC5A158A     374     A     
 IDP       IDP=PAT  BSSENT                                                                 FC5A158A     375     A     
 IDP       IDP=SFN  BSSENT                                                                 FC5A158A     376     A     
 IDP       IDP=     BSSENT                                                                 FC5A158A     377     A     
 IDP       IDPCHK   BSSENT                                                                 FC5A158A     378     A     
 IDP       IDP=USY  BSSENT                                                                 FC5A158A     379     A     
 IDP       UKT=LNK  BSSENT                                                                 FC5A158A     380     A     
 IDP                EQ     *+4S15      IN CASE SOMEBODY JUMPS HERE                         FC5A158A     381     A     
 IDP       #OS      ENDIF                                                                  FC5A158A     382     A     
 IDP       COMCSVR  SPACE  4,10                                                            IDP          583     A     
 IDP      **        COMCSVR - SAVE AND RESTORE REGISTERS.                                  IDP          584     A     
 IDP      *                                                                                IDP          585     A     
 IDP      *                                                                                IDP          586     A     
 IDP      *         PROVIDE A GLOBAL FTN/NON-IDP VERSION OF RSR=/SVR=.                     IDP          587     A     
 IDP      *CALL     COMQSVR                                                                IDP          588     A     
 IDP       COMCSVR  SPACE  4,10                                                            IDP          589     A     
 IDP                ENTRY  RSR=,SVR=                                                       IDP          590     A     
 IDP       RSR      EQUENT RSR=                                                            IDP          591     A     
 IDP       SVR      EQUENT SVR=                                                            IDP          592     A     
 IDP       RESET=   EQUENT RSR=                                                            IDP          593     A     
 IDP                                                                                       IDP          594     A     
 IDP       #SVR     IF     -DEF,#SVR   IF LOCAL REGISTER SAVE AREA                         IDP          595     A     
 IDP                ECHO   4,R=(B,A,X)                                                     IDP          596     A     
 IDP       SV_R     =      /COMQSVR/SVREG+/COMQSVR/SV_R                                    IDP          597     A     
 IDP       SAV.R    =      SV_R                                                            IDP          598     A     
 IDP                ENTRY  SV_R,SAV.R                                                      IDP          599     A     
 IDP                ENTRY  SV=R                                                            IDP          600     A     
 IDP       #SVR     ENDIF                                                                  IDP          601     A     
 IDP       IDP      SPACE  4,10                                                            IDP          602     A     
 IDP                LIST   D                                                               IDP          603     A     
 IDP      **ENDIF   TESTFTN            (FOLLOWS END CARD)                                  IDP          604     A     
 IDP                END                                                                    IDP          605     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IDP     
  
 IDP      *ENDIF                                                                           IDP          606     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - IDP     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          IDP                        606       558
          FC5A158A                    87        87
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   *DECK     INIT00             FIRST TIME ONLY INITIALIZATION                      INIT00         1     A     
 INIT00             IDENT  INIT00                                                          INIT00         2     A     
 INIT00    INIT00   SECT   (FIRST TIME ONLY INITIALIZATION.)                               INIT00         3     A     
 INIT00    INIT00   SPACE  4,10                                                            INIT00         4     A     
 INIT00   *         IN FEC                                                                 INIT00         5     A     
 INIT00             EXT    ERT,ERT=OFF,ERT=ON                                              INIT00         6          I
          -F1039  
 INIT00             EXT    ERT,ERT=OFF,ERT=ON,OSTACK                                       F1039        136          I
          -FC50744
 INIT00             EXT    OSTACK                                                          FC50744       10     A     
 INIT00                                                                                    INIT00         7     A     
 INIT00   *         IN FTN                                                                 INIT00         8     A     
 INIT00             EXT    ABTFTN,CO.ANSI,CO.ARGC,CO.ARGF,CO.BRK,CO.CPL,CO.CS              INIT00         9          I
          -F1039  
 INIT00             EXT    CO.DBB,CO.DBER,CO.DBID,CO.DBPM,CO.DBSB,CO.DBSL,CO.DBST          INIT00        10          I
          -F1039  
 INIT00             EXT    CO.DBTB,CO.DOLG,CO.DOOT,CO.DS,CO.EL,CO.ET,CO.GO,CO.IDP          INIT00        11          I
          -F1039  
 INIT00             EXT    CO.LCM,CO.LL,CO.LOA,CO.LOC,CO.LOM,CO.LOO,CO.LOR,CO.LOS          INIT00        12          I
          -F1039  
 INIT00             EXT    CO.OPT,CO.PW,CO.PWT,CO.QC,CO.REWB,CO.REWE,CO.REWI               INIT00        13          I
          -FC5A107
 INIT00             EXT    CO.OPT,CO.PS,CO.PW,CO.PWT,CO.QC,CO.REWB,CO.REWE,CO.REWI         FC5A107       12          I
          -F1039  
 INIT00             EXT    CO.REWL,CO.RFL,CO.RNDA,CO.RNDD,CO.RNDM,CO.RNDS,CO.SEQ           INIT00        14          I
          -F1039  
 INIT00             EXT    CO.SNAP,CO.SPP,CO.UO,CP.ABT,CP.AFLL,CP.AFLS,CP.BLF              INIT00        15          I
          -F1039  
 INIT00             EXT    CP.CARD,CP.CPU,CP.LIB,CP.LSTF,CP.MODL,CP.MXFL,CP.NFLL           INIT00        16          I
          -F1039  
 INIT00             EXT    CP.NFLS,CP.PAGE,CP.PCOM,CP.PD,CP.PS,CP.PW,CP.STXT               INIT00        17          I
          -F1039  
 INIT00             EXT    CP.XTXT,ENOT=L,FTIFL,FTNHHA,FTNLDR,FTNLFN,FTNOVM,FVLEN          INIT00        18          I
          -F1039  
 INIT00             EXT    FVTBL,FV.IN,FV.ERRS,FV.LGO,FV.OUT,F.IN,F.ERRS,F.LGO             INIT00        19          I
          -F1039  
 INIT00             EXT    F.OUT,F.PB,F.REF,GT1,IBUF,IDPCHK,INT.FL,JOT,LDPRI               INIT00        20          I
          -F1039  
 INIT00             EXT    L.TITL,MAX.FL,MSG=,MEMERR,NOFTN,NOM.FL,NOM.FLS,O.TTLA           INIT00        21          I
          -FC5A119
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             EXT    L.TITL,MAX.FL,MSG=,MEMERR,NOFTN,NOM.FL,O.TTLA                   FC5A119       25          I
          -FC50314
 INIT00             EXT    L.TITL,MAX.FL,MSG=,MEMERR,NOM.FL,O.TTLA                         FC50314        8          I
          -F1039  
 INIT00             EXT    ONSPY,RAPFLAG,SPYW,SYS=,TIMER,TIME0,TIME1,TL.CPU                INIT00        22          I
          -F1039  
 INIT00             EXT    TL.CSOP,TL.DATE,TL.PAGE,TL.PNAM,TL.TIME,WNB=                    INIT00        23          I
          -FC5A119
 INIT00             EXT    TL.CSOP,TL.DATE,TL.PAGE,TL.PNAM,TL.TIME,WNB=                    FC5A119       26          I
          -F1039  
 INIT00             EXT    CP.ILFL                                                         FC5A119       27          I
          -F1037F5
 INIT00             EXT    CP.ILFL,CO.MD,CO.STAT                                           F1037F5      268          I
          -F1039  
 INIT00             EXT    ABTFTN,CO.ANSI,CO.ARGC,CO.ARGF,CO.BRK,CO.CPL,CO.CS              F1039        137          I
          -FC5A444
 INIT00             EXT    CO.DBER,CO.DBID,CO.DBPM,CO.DBSB,CO.DBSL,CO.DBST,CO.DBTB         F1039        138          I
          -FC5A444
 INIT00             EXT    CO.AL,ABTFTN,CO.ANSI,CO.ARGC,CO.ARGF,CO.BRK,CO.CPL              FC5A444       43     A     
 INIT00             EXT    CO.CS,CO.DBER,CO.DBID,CO.DBPM                                   FC5A444       44     A     
 INIT00             EXT    CO.DBSB,CO.DBSL,CO.DBST,CO.DBTB                                 FC5A444       45     A     
 INIT00             EXT    CO.DOLG,CO.DOOT,CO.DS,CO.EC,CO.EL,CO.ET,CO.GO,CO.IDP            F1039        139     A     
 INIT00             EXT    CO.LCM,CO.LL,CO.LOA,CO.LOC,CO.LOM,CO.LOO,CO.LOR,CO.LOS          F1039        140     A     
 INIT00             EXT    CO.MD,CO.OPT,CO.PS,CO.PW,CO.PWT,CO.QC,CO.REWB,CO.REWE           F1039        141     A     
 INIT00             EXT    CO.REWI,CO.REWL,CO.RFL,CO.RNDA,CO.RNDD,CO.RNDM,CO.RNDS          F1039        142     A     
 INIT00             EXT    CO.SEQ,CO.SNAP,CO.SPP,CO.STAT,CO.TMLC,CO.UO,CP.ABT              F1039        143          I
          -FC5A426
 INIT00             EXT    CO.SEQ,CO.SNAP,CO.SPP,CO.STAT,CO.TMLC,CO.UO                     FC5A426       31     A     
 INIT00             EXT    CO.WPL,CO.WPE,CP.ABT                                            FC5A426       32     A     
 INIT00             EXT    CP.AFLL,CP.AFLS,CP.BLF,CP.CARD,CP.CPU,CP.ILFL,CP.LIB            F1039        144     A     
 INIT00             EXT    CP.LSTF,CP.MODL,CP.MXFL,CP.NFLL,CP.NFLS,CP.PAGE,CP.PCOM         F1039        145     A     
 INIT00             EXT    CP.PD,CP.PS,CP.PW,CP.STXT,CP.XTXT,ENOT=L,ERFO,FTIFL             F1039        146     A     
 INIT00             EXT    FTNHHA,FTNLDR,FTNLFN,FVLEN,FVTBL,FV.IN,FV.ERRS                  F1039        147     A     
 INIT00             EXT    FV.LGO,FV.OUT,F.IN,F.ERRS,F.LGO,F.OUT,F.PB,F.REF,GT1            F1039        148     A     
 INIT00             EXT    IBUF,IDPCHK,INT.FL,JOT,LDPRI,L.PWA,L.PWB,MAX.FL,MSG=            F1039        149     A     
 INIT00             EXT    MEMERR,NOM.FL,ONSPY,O.C,O.CC,O.CPV,O.TA,O.TTLA,RAPFLAG          F1039        150     A     
 INIT00             EXT    SPYW,SYS=,TIMER,TIME0,TIME1,TL.CPU,TL.CSOP,TL.DATE              F1039        151     A     
 INIT00             EXT    TL.PAGE,TL.PNAM,TL.TIME,WNB=                                    F1039        152     A     
 INIT00                                                                                    INIT00        24     A     
 INIT00   *         IN IDP                                                                 INIT00        25     A     
 INIT00             EXT    IDP=,IDP=USY,UKT=FE,UKT=LNK                                     INIT00        26     A     
 INIT00                                                                                    INIT00        27     A     
 INIT00   *         IN LIST                                                                INIT00        28     A     
 INIT00             EXT    FIN.OL                                                          INIT00        29     A     
 INIT00                                                                                    INIT00        30     A     
 INIT00   *         IN MAP                                                                 INIT00        31     A     
 INIT00             EXT    FIN,FIN.MAP                                                     INIT00        32     A     
 INIT00                                                                                    INIT00        33     A     
 INIT00   *         IN PEM                                                                 INIT00        34     A     
 INIT00             EXT    ANSI.SW                                                         INIT00        35     A     
 INIT00                                                                                    INIT00        36     A     
 INIT00   *         IN PUC                                                                 INIT00        37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             EXT    ERRTYP,L.TABS,O.TABS,PUC,THRESH                                 INIT00        38          I
          -FC50844
 INIT00             EXT    ERRTYP,L.TABS,O.TABS,PUC,SCR,THRESH                             FC50844        8     A     
 INIT00             EXT    RS.PD                                                           FC5A426       33     A     
 INIT00                                                                                    INIT00        39     A     
 INIT00   *         IN QCGC                                                                INIT00        40     A     
 INIT00             EXT    WIN                                                             INIT00        41          I
          -F1039  
 INIT00             EXT    WIN,WTE                                                         F1039        153     A     
 INIT00                                                                                    INIT00        42     A     
 INIT00   *         IN QSKEL                                                               INIT00        43     A     
 INIT00             EXT    F.SKEL                                                          INIT00        44     A     
 INIT00                                                                                    INIT00        45     A     
 INIT00   *         IN UTILITY                                                             INIT00        46     A     
 INIT00             EXT    CIO=,DXB,MVE=,RDC=,RPV=,SFN=                                    INIT00        47          I
          -F1039  
 INIT00             EXT    CDD,CIO=,DXB,FA=SET,MVE=,RDC=,RPV=,SFN=                         F1039        154     A     
 INIT00    INIT00   SPACE  4,10                                                            INIT00        48     A     
 INIT00   **        (DC.) - BITS IN O.S. LOADER CONTROL WORD.                              INIT00        49     A     
 INIT00                                                                                    INIT00        50          I
          -FC50844
 INIT00                                                                                    INIT00        51     A     
 INIT00             DESCRIBE  DC.                                                          INIT00        52     A     
 INIT00             DEFINE 24                                                              INIT00        53     A     
 INIT00    FID      DEFINE             SYSTEM GLOBAL DEBUG SWITCH                          INIT00        54     A     
 INIT00             DEFINE 35                                                              INIT00        55     A     
 INIT00                                                                                    INIT00        56     A     
 INIT00                                                                                    FC50844        9     A     
 INIT00   **        (MC.) - BITS IN REPLY FROM *GETMC* MACRO CALL.                         FC50844       10     A     
 INIT00                                                                                    FC50844       11     A     
 INIT00             DESCRIBE  MC.                                                          FC50844       12     A     
 INIT00             DEFINE 39                                                              FC50844       13     A     
 INIT00    800      DEFINE             SET IF CPU IS MODEL 800                             FC50844       14     A     
 INIT00    176      DEFINE 2           NZ IF CPU IS MODEL 176                              FC50844       15     A     
 INIT00             DEFINE 18                                                              FC50844       16     A     
 INIT00                                                                                    FC50844       17     A     
 INIT00                                                                                    FC50844       18     A     
 INIT00             LIST   -X          COMFCIP IS LISTED IN DECK *FTN*                     INIT00        57     A     
 INIT00   *CALL     COMFCIP            COMPILER INSTALLATION PARAMETERS                    INIT00        58     A     
 INIT00             LIST   *                                                               INIT00        59     A     
 INIT00    FTN      SPACE  4,10                                                            INIT00        60     A     
 INIT00   **        FTN - INITIALIZATION MAIN LOOP.                                        INIT00        61     A     
 INIT00   *                                                                                INIT00        62     A     
 INIT00   *         THE OPERATING SYSTEM RESPONDS TO AN *FTN* CONTROL STATEMENT            INIT00        63     A     
 INIT00   *         BY LOADING THE (0,0) OVERLAY AND TRANSFERRING CONTROL HERE.            INIT00        64     A     
 INIT00   *                                                                                INIT00        65     A     
 INIT00   *         THIS CONTROLLER CALLS A SERIES OF INITIALIZATION SUBROUTINES           INIT00        66     A     
 INIT00   *         AND TRANSFERS CONTROL TO THE PRIMARY OVERLAY.  IF OPT=0 A              INIT00        67     A     
 INIT00   *         COPY OF THE PRIMARY HAS ALREADY BEEN LOADED AS AN EXTENSION            INIT00        68     A     
 INIT00   *         TO THE MAIN OVERLAY.                                                   INIT00        69     A     
 INIT00   *                                                                                INIT00        70     A     
 INIT00   *         ENTRY  (A0) =  CM/SCM FIELD LENGTH                                     INIT00        71     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   *                (X0) = ECS/LCM FIELD LENGTH                                     INIT00        72     A     
 INIT00   *                                                                                INIT00        73     A     
 INIT00   *         EXIT   TO PRIMARY OVERLAY LOADER (OPT=1,2)                             INIT00        74     A     
 INIT00   *                TO MAIN BATCH CONTROL (OPT=0)                                   INIT00        75     A     
 INIT00   *                (B1) = 1                                                        INIT00        76     A     
 INIT00   *                                                                                INIT00        77     A     
 INIT00   *         CALLS  CFL, GOI, IDPCHK, MIA, MIB, ONSPY, PAC                          INIT00        78     A     
 INIT00                                                                                    INIT00        79     A     
 INIT00                                                                                    INIT00        80     A     
 INIT00    FTN      BSSENT 0           ** SYSTEM LOADER ENTRY POINT **                     INIT00        81     A     
 INIT00                                                                                    INIT00        82     A     
 INIT00             SB1    1                                                               INIT00        83     A     
 INIT00             SA1    CP.NFLS     LWA                                                 FC5A146       10     A     
 INIT00             SA2    FTNLDR      LOADER BITS                                         FC5A146       11     A     
 INIT00             LX1    18                                                              FC5A146       12     A     
 INIT00             BX7    X2+X1                                                           FC5A146       13     A     
 INIT00             SA7    RA.ORG      DUMMY LOADER REQUEST FOR (0,0)                      FC5A146       14     A     
 INIT00             RJ     MIA         MISCELLANEOUS INITIALIZATION, PART A                INIT00        84     A     
 INIT00             RJ     GPP         INITIATE PRINT PARAMETERS                           FC5A426       34     A     
 INIT00                                                                                    F1039        155     A     
 INIT00   **        MOVE CONTROL CARD IMAGE TO TEMPLET FOR OUTPUT ON THIRD LINE            F1039        156     A     
 INIT00                                                                                    F1039        157     A     
 INIT00             SB3    8-1                                                             F1039        158     A     
 INIT00             SA2    RA.CCD                                                          F1039        159     A     
 INIT00             LX6    X2                                                              F1039        160     A     
 INIT00             SA6    O.CC+1                                                          F1039        161     A     
 INIT00                                                                                    F1039        162     A     
 INIT00    FTN.1    SA2    A2+1                                                            F1039        163     A     
 INIT00             ZR     X2,FTN.2    IF ZERO WORD                                        F1039        164     A     
 INIT00             LX6    X2                                                              F1039        165     A     
 INIT00             SB3    B3-B1                                                           F1039        166     A     
 INIT00             SA6    A6+1                                                            F1039        167     A     
 INIT00             NZ     B3,FTN.1    IF NOT EIGHT WORDS                                  F1039        168     A     
 INIT00                                                                                    F1039        169     A     
 INIT00    FTN.2    MX0    9*CHAR                                                          F1039        170     A     
 INIT00             BX2    -X0*X6                                                          F1039        171     A     
 INIT00             ZR     X2,FTN.3    IF AT LEAST ONE ZERO BYTE                           F1039        172     A     
 INIT00             MX6    0                                                               F1039        173     A     
 INIT00             SA6    A6+1                                                            F1039        174     A     
 INIT00                                                                                    F1039        175     A     
 INIT00    FTN.3    SX7    A6                                                              F1039        176     A     
 INIT00             SA7    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET           F1039        177     A     
 INIT00                                                                                    F1039        178     A     
 INIT00             SX1    KEYS        PARAMETER TABLE FWA                                 INIT00        85     A     
 INIT00             SX2    Z.KEYS      PARAMETER TABLE LENGTH                              INIT00        86     A     
 INIT00             BX5    0           STANDARD FIRST PARAMETER PROCESSOR                  INIT00        87     A     
 INIT00             MX6    0           STANDARD ERROR PROCESSING                           INIT00        88     A     
 INIT00             SX7    0           STANDARD CONTINUATION PROCESSING                    INIT00        89     A     
 INIT00             RJ     PAC         PROCESS ARGUMENTS FROM CONTROL STATEMENT            INIT00        90     A     
 INIT00                                                                                    F1039        179     A     
 INIT00   **        BLANK FILL LAST WORD OF CONTROL CARD IN TEMPLET                        F1039        180     A     
 INIT00                                                                                    F1039        181     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SA2    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET           F1039        182     A     
 INIT00             SA3    X2                                                              F1039        183     A     
 INIT00             SB4    60-6+1                                                          F1039        184     A     
 INIT00             MX6    -1                                                              F1039        185     A     
 INIT00             IX4    X3+X6                                                           F1039        186     A     
 INIT00             SA2    =40404040404040404040B                                          F1039        187     A     
 INIT00             SA1    =10H                                                            F1039        188     A     
 INIT00             BX6    -X4+X3                                                          F1039        189     A     
 INIT00             BX4    X6*X2                                                           F1039        190     A     
 INIT00             LX6    X4,B4                                                           F1039        191     A     
 INIT00             IX2    X4-X6                                                           F1039        192     A     
 INIT00             BX6    X4+X2                                                           F1039        193     A     
 INIT00             BX1    -X6*X1                                                          F1039        194     A     
 INIT00             IX6    X3+X1                                                           F1039        195     A     
 INIT00             SA6    A3                                                              F1039        196     A     
 INIT00             SA1    CO.OPT                                                          INIT00        91     A     
 INIT00             SB3    X1-4                                                            INIT00        92     A     
 INIT00             PL     B3,E.OPT    IF OPT .GT. 3                                       INIT00        93     A     
 INIT00                                                                                    F1039        197     A     
 INIT00    FTN1     RJ     CFL         CHECK FIELD LENGTH                                  INIT00        94     A     
 INIT00             RJ     MIB         MISCELLANEOUS INITIALIZATION, PART B                INIT00        95     A     
 INIT00             RJ     CPV         UPDATE CURRENT VALUES OF SELECTED CONTROL           F1039        198     A     
 INIT00                                CARD PARAMETERS                                     F1039        199     A     
 INIT00             SA1    FTNOVM      OVERLAY MODE FLAG                                   INIT00        96     A     
 INIT00             NZ     X1,LDPRI    EXIT TO LOAD PRIMARY OVERLAY...                     INIT00        97     A     
 INIT00                                                                                    INIT00        98     A     
 INIT00                                                                                    INIT00        99     A     
 INIT00   **        FOR OPT=0 A COPY OF THE (1,0) EXISTS ON THE (0,0)                      INIT00       100     A     
 INIT00   *         OVERLAY.  THEREFORE NO OVERLAY LOAD NEED BE DONE.                      INIT00       101     A     
 INIT00                                                                                    INIT00       102     A     
 INIT00             SA1    CP.NFLS     LWA                                                 INIT00       103          I
          -FC5A146
 INIT00             SA2    FTNLDR      LOADER BITS                                         INIT00       104          I
          -FC5A146
 INIT00             LX1    18                                                              INIT00       105          I
          -FC5A146
 INIT00             BX7    X2+X1                                                           INIT00       106          I
          -FC5A146
 INIT00             SA7    RA.ORG      DUMMY LOADER REQUEST FOR (0,0)                      INIT00       107          I
          -FC5A146
 INIT00                                                                                    INIT00       108          I
          -FC5A146
 INIT00             IFEQ   .SPY,ON,1   IF USING SPY                                        INIT00       109     A     
 INIT00             CALL   ONSPY       TURN ON PP PROGRAM SPY                              INIT00       110     A     
 INIT00                                                                                    INIT00       111     A     
 INIT00             RJ     GOI         GLOBAL OVERLAY INITIALIZATION (QCG ONLY)            INIT00       112     A     
 INIT00                                                                                    INIT00       113     A     
 INIT00   *         CHECK FOR IDP BREAK REQUEST.                                           INIT00       114     A     
 INIT00   *                                                                                INIT00       115     A     
 INIT00   *         LINK *FRONT END* IDP USER KEYWORD TABLE.                               INIT00       116     A     
 INIT00                                                                                    INIT00       117     A     
 INIT00    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT00       118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    #OS      IFNE   .OS,2                                                           FC5A158A     383     A     
 INIT00             SX6    UKT=FE      FWA OF *FRONT END* IDP KEYWORD TABLE                INIT00       119     A     
 INIT00             SA6    UKT=LNK                                                         INIT00       120     A     
 INIT00             SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR               INIT00       121     A     
 INIT00             SA6    IDP=USY                                                         INIT00       122     A     
 INIT00             CALL   IDPCHK                                                          INIT00       123     A     
 INIT00             PL     B7,FTN2     IF IDP NOT REQUESTED                                INIT00       124     A     
 INIT00    FTN00    BREAK                                                                  INIT00       125     A     
 INIT00    FTN2     BSS    0                                                               INIT00       126     A     
 INIT00    #OS      ENDIF                                                                  FC5A158A     384     A     
 INIT00    .TEST    ENDIF                                                                  INIT00       127     A     
 INIT00                                                                                    INIT00       128     A     
 INIT00             EQ     PUC         EXIT TO PROGRAM UNIT CONTROLLER...                  INIT00       129     A     
 INIT00                                                                                    F1039        200     A     
 INIT00    FTNOVM   BSS    1           OVERLAY MODE                                        F1039        201     A     
 INIT00   *CALL     COMCPAC            PROCESS ARGUMENTS FROM CONTROL STATEMENT            INIT00       130     A     
 INIT00    KEYS     TITLE  CONTROL STATEMENT PARAMETER TABLE                               INIT00       131     A     
 INIT00    KEYS     SPACE  4,10                                                            INIT00       132     A     
 INIT00   **        KEYS - CONTROL CARD PARAMETER KEYWORD DEFINITIONS.                     INIT00       133     A     
 INIT00                                                                                    INIT00       134     A     
 INIT00                                                                                    INIT00       135     A     
 INIT00    LFN      MICRO  1,, AT=2                                                        INIT00       136     A     
 INIT00    DECIMAL  MICRO  1,, AT=3                                                        INIT00       137     A     
 INIT00    OCTAL    MICRO  1,, AT=4                                                        INIT00       138     A     
 INIT00    SWITCH   MICRO  1,, SD=-1                                                       INIT00       139     A     
 INIT00    MBV      MICRO  1,, MBV=/MBV/                                                   INIT00       140     A     
 INIT00    CO       MICRO  1,, POA==XCO.                                                   INIT00       141     A     
 INIT00    SPECIAL  MICRO  1,, POA=-PAC=                                                   INIT00       142     A     
 INIT00    IGNORE   MICRO  1,, POA=IGNORE                                                  INIT00       143     A     
 INIT00                                                                                    INIT00       144     A     
 INIT00    KEYS     BSS                START OF PARAMETER KEYWORD TABLE                    INIT00       145     A     
 INIT00             QUAL   KEYS                                                            INIT00       146     A     
 INIT00                                                                                    INIT00       147     A     
 INIT00    AL       PARAM  "CO"AL,"SWITCH"                                                 FC5A444       46     A     
 INIT00    ANSI     PARAM  "CO"ANSI,SD=(=1RT),AT=1                                         INIT00       148     A     
 INIT00    ARG      PARAM  "MBV"ARG,NOP=2                                                  INIT00       149     A     
 INIT00    B        PARAM  "CO"B,SD=(=3LBIN),"LFN"                                         INIT00       150     A     
 INIT00    BL       PARAM  POA=CP.BLF,"SWITCH"                                             INIT00       151     A     
 INIT00    CS       PARAM  "CO"CS,SD=(=5LFIXED)                                            INIT00       152     A     
 INIT00    DB       PARAM  "MBV"DB,NOP=8                                                   INIT00       153          I
          -FC5A282
 INIT00    DB       PARAM  "MBV"DB,NOP=7                                                   FC5A282        4     A     
 INIT00    DO       PARAM  "MBV"DO,NOP=2                                                   INIT00       154     A     
 INIT00    DS       PARAM  "CO"DS,"SWITCH"                                                 INIT00       155     A     
 INIT00    EC       PARAM  "CO"EC,"SWITCH"                                                 F1037F5      269     A     
 INIT00    E        PARAM  "CO"E,SD=(=4LERRS),"LFN"                                        INIT00       156     A     
 INIT00    EL       PARAM  "CO"EL,SD=(=1RF),AT=1                                           INIT00       157     A     
 INIT00    ET       PARAM  "CO"ET,SD=(=1RF),AT=1                                           INIT00       158     A     
 INIT00    G        PARAM  "SPECIAL"G,SD=(=7LSYSTEXT)                                      INIT00       159     A     
 INIT00    GO       PARAM  "CO"GO,"SWITCH"                                                 INIT00       160     A     
 INIT00    I        PARAM  "CO"I,SD=(=7LCOMPILE),"LFN"                                     INIT00       161     A     
 INIT00                                                                                    INIT00       162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             IFEQ   TEST,ON,2                                                       INIT00       163     A     
 INIT00    L        PARAM  "CO"L,SD=(=7LZZZZZVO),"LFN"                                     INIT00       164     A     
 INIT00             SKIP   1                                                               INIT00       165     A     
 INIT00    L        PARAM  "CO"L,SD=(=4LLIST),"LFN"                                        INIT00       166     A     
 INIT00                                                                                    INIT00       167     A     
 INIT00    LCM      PARAM  "CO"LCM,SD=(=1RI),AT=1                                          INIT00       168     A     
 INIT00    PL       PARAM  "CO"LL,SD=(=50000),"DECIMAL"                                    INIT00       169     A     
 INIT00    LO       PARAM  "MBV"LO,NOP=6                                                   INIT00       170          I
          -FC5A321
 INIT00    LO       PARAM  "MBV"LO,NOP=5                                                   FC5A321        8     A     
 INIT00    MD       PARAM  "CO"MD,SD=(=1RT),AT=1                                           F1037F5      270     A     
 INIT00    ML       PARAM  POA=CP.MODL,SD=CP.MODL,AT=STRING,NOP=9                          INIT00       171     A     
 INIT00    OPT      PARAM  "CO"OPT,SD=(=2),"DECIMAL"                                       INIT00       172     A     
 INIT00    PC       PARAM  POA=CP.PCOM,SD=CP.PCOM,AT=STRING,NOP=30                         INIT00       173     A     
 INIT00    PD       PARAM  "CO"PD,SD=(=8),"DECIMAL"                                        INIT00       174     A     
 INIT00    PN       PARAM  POA=CP.PAGE,"SWITCH"                                            INIT00       175     A     
 INIT00    PS       PARAM  "CO"PS,"DECIMAL"                                                INIT00       176     A     
 INIT00    PW       PARAM  "CO"PW,SD=(=72),"DECIMAL"                                       INIT00       177     A     
 INIT00    QC       PARAM  "CO"QC,"SWITCH"                                                 INIT00       178     A     
 INIT00    REW      PARAM  "MBV"REW,NOP=4                                                  INIT00       179     A     
 INIT00    ROUND    PARAM  "MBV"ROUND,NOP=4                                                INIT00       180     A     
 INIT00    S        PARAM  "SPECIAL"S,SD=(=7LSYSTEXT)                                      INIT00       181     A     
 INIT00    SEQ      PARAM  "CO"SEQ,"SWITCH"                                                INIT00       182     A     
 INIT00    STATIC   PARAM  "CO"STAT,"SWITCH"                                               F1037F5      271     A     
 INIT00             IFEQ   .MI,1,1                                                         F1037F5      272     A     
 INIT00    TM       PARAM  "MBV"TM,NOP=1                                                   F1037F5      273     A     
 INIT00    X        PARAM  POA=CP.XTXT,SD=(=3LOPL),"LFN"                                   INIT00       183     A     
 INIT00                                                                                    INIT00       184     A     
 INIT00   *         TEST MODE ONLY KEYWORDS.                                               INIT00       185     A     
 INIT00                                                                                    INIT00       186     A     
 INIT00    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT00       187     A     
 INIT00             IFNE   .OS,2,1     IF NOT SCOPE 2                                      INIT00       188     A     
 INIT00    BREAK    PARAM  "CO"BRK,SD=(=1)                                                 INIT00       189     A     
 INIT00    CPL      PARAM  "CO"CPL,SD=(=999),"DECIMAL"                                     INIT00       190     A     
 INIT00    IDP      PARAM  "SPECIAL"IDP,SD=(=1)                                            INIT00       191     A     
 INIT00    RFL      PARAM  "CO"RFL,SD=(=0),"OCTAL"                                         INIT00       192     A     
 INIT00    SNAP     PARAM  "SPECIAL"SNAP,SD=(=1)                                           INIT00       193     A     
 INIT00    SPP      PARAM  "CO"SPP,"SWITCH"                                                INIT00       194     A     
 INIT00                                                                                    INIT00       195     A     
 INIT00   ** FV            REMOVE FOR RELEASE.                                             INIT00       196     A     
 INIT00    .TEST    ELSE               **** FOR SVL ONLY ****                              INIT00       197     A     
 INIT00    CPL      PARAM  "IGNORE",SD=(=999),"DECIMAL"                                    INIT00       198     A     
 INIT00    .TEST    ENDIF                                                                  INIT00       199     A     
 INIT00                                                                                    INIT00       200     A     
 INIT00             IFEQ   .SPY,ON,2   IF USING SPY OPTION                                 INIT00       201     A     
 INIT00             IFNE   .OS,2,1     IF NOT SCOPE 2                                      INIT00       202     A     
 INIT00    SPY      PARAM  "CO"SPY,SD=SD.SPY,AT=(4,4),NOP=2                                INIT00       203     A     
 INIT00                                                                                    INIT00       204     A     
 INIT00             QUAL   *                                                               INIT00       205     A     
 INIT00    Z.KEYS   EQU    *-KEYS      LENGTH OF KEYWORD TABLE                             INIT00       206     A     
 INIT00                                                                                    INIT00       207     A     
 INIT00             PURGMAC PARAM                                                          INIT00       208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    MBVOPS   SPACE  4,10                                                            INIT00       209     A     
 INIT00   **        MULTIPLE BINARY VALUE OPTION DESCRIPTIONS.                             INIT00       210     A     
 INIT00                                                                                    INIT00       211     A     
 INIT00                                                                                    INIT00       212     A     
 INIT00             QUAL   MBV                                                             INIT00       213     A     
 INIT00                                                                                    INIT00       214     A     
 INIT00    ARG      BSS                                                                    INIT00       215     A     
 INIT00    COMMON   MBVOP  CO.ARGC,OFF,"IV.ARGC"                                           INIT00       216     A     
 INIT00    FIXED    MBVOP  CO.ARGF,ON,"IV.ARGF"                                            INIT00       217     A     
 INIT00                                                                                    INIT00       218     A     
 INIT00    DB       BSS                                                                    INIT00       219     A     
 INIT00    B        MBVOP  CO.DBB,OFF,"IV.DBB"                                             INIT00       220          I
          -FC5A282
 INIT00    ER       MBVOP  CO.DBER,ON,"IV.DBER0"                                           INIT00       221     A     
 INIT00    ID       MBVOP  CO.DBID,OFF,"IV.DBID"                                           INIT00       222     A     
 INIT00    PMD      MBVOP  CO.DBPM,ON,"IV.DBPM"                                            INIT00       223     A     
 INIT00    SB       MBVOP  CO.DBSB,ON,"IV.DBSB"                                            INIT00       224     A     
 INIT00    SL       MBVOP  CO.DBSL,ON,"IV.DBSL"                                            INIT00       225     A     
 INIT00    ST       MBVOP  CO.DBST,ON,"IV.DBST"                                            INIT00       226          I
          -FC5A155
 INIT00    ST       MBVOP  CO.DBST,OFF,"IV.DBST"                                           FC5A155        5     A     
 INIT00    TB       MBVOP  CO.DBTB,ON,"IV.DBTB"                                            INIT00       227     A     
 INIT00                                                                                    INIT00       228     A     
 INIT00    DO       BSS                                                                    INIT00       229     A     
 INIT00    LONG     MBVOP  CO.DOLG,OFF,"IV.DOLG"                                           INIT00       230     A     
 INIT00    OT       MBVOP  CO.DOOT,ON,"IV.DOOT"                                            INIT00       231     A     
 INIT00                                                                                    INIT00       232     A     
 INIT00    LO       BSS                                                                    INIT00       233     A     
 INIT00    A        MBVOP  CO.LOA,ON,"IV.LOA"                                              INIT00       234     A     
 INIT00    C        MBVOP  CO.LOC,OFF,"IV.LOC"                                             INIT00       235          I
          -FC5A321
 INIT00    M        MBVOP  CO.LOM,OFF,"IV.LOM"                                             INIT00       236     A     
 INIT00    O        MBVOP  CO.LOO,OFF,"IV.LOO"                                             INIT00       237     A     
 INIT00    R        MBVOP  CO.LOR,ON,"IV.LOR"                                              INIT00       238     A     
 INIT00    S        MBVOP  CO.LOS,ON,"IV.LOS"                                              INIT00       239     A     
 INIT00                                                                                    INIT00       240     A     
 INIT00    REW      BSS                                                                    INIT00       241     A     
 INIT00    B        MBVOP  CO.REWB,ON,"IV.REWB"                                            INIT00       242     A     
 INIT00    E        MBVOP  CO.REWE,OFF,"IV.REWE"                                           INIT00       243     A     
 INIT00    I        MBVOP  CO.REWI,ON,"IV.REWI"                                            INIT00       244     A     
 INIT00    L        MBVOP  CO.REWL,OFF,"IV.REWL"                                           INIT00       245     A     
 INIT00                                                                                    INIT00       246     A     
 INIT00    ROUND    BSS                                                                    INIT00       247     A     
 INIT00    A        MBVOP  CO.RNDA,ON,"IV.RNDA"                                            INIT00       248     A     
 INIT00    S        MBVOP  CO.RNDS,ON,"IV.RNDS"                                            INIT00       249     A     
 INIT00    M        MBVOP  CO.RNDM,ON,"IV.RNDM"                                            INIT00       250     A     
 INIT00    D        MBVOP  CO.RNDD,ON,"IV.RNDD"                                            INIT00       251     A     
 INIT00                                                                                    F1037F5      274     A     
 INIT00             IFEQ   .MI,1,2                                                         F1037F5      275     A     
 INIT00    TM       BSS                                                                    F1037F5      276     A     
 INIT00    LCM      MBVOP  =XCO.TMLC,OFF,"IV.TMLC"                                         F1037F5      277     A     
 INIT00                                                                                    INIT00       252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             QUAL   *                                                               INIT00       253     A     
 INIT00             PURGMAC MBVOP                                                          INIT00       254     A     
 INIT00    SPECIAL  TITLE  PROCESS SPECIAL ARGUMENTS                                       INIT00       255     A     
 INIT00    ARGDEFS  SPACE  4,10                                                            INIT00       256     A     
 INIT00   **        VARIOUS CELLS/VALUES NEEDED BY THE ARGUMENT PROCESSORS.                INIT00       257     A     
 INIT00                                                                                    INIT00       258     A     
 INIT00             IFC    NE,/"SV.B"/0/,2                                                 INIT00       259     A     
 INIT00    CO.B     CON    0L"SV.B"    LGO FILE NAME                                       INIT00       260     A     
 INIT00             SKIP   1                                                               INIT00       261     A     
 INIT00    CO.B     CON    0           (NO LGO FILE)                                       INIT00       262     A     
 INIT00                                                                                    INIT00       263     A     
 INIT00    CO.E     CON    0L"SV.E"    ERROR FILE NAME                                     INIT00       264     A     
 INIT00    CO.I     CON    0L"SV.I"    INPUT FILE NAME                                     INIT00       265     A     
 INIT00                                                                                    INIT00       266     A     
 INIT00             IFC    NE,/"SV.L"/0/,2                                                 INIT00       267     A     
 INIT00    CO.L     CON    0L"SV.L"    LISTING FILE NAME                                   INIT00       268     A     
 INIT00             SKIP   1                                                               INIT00       269     A     
 INIT00    CO.L     CON    0                                                               INIT00       270     A     
 INIT00                                                                                    INIT00       271          I
          -FC5A426
 INIT00             IFC    NE,/"SV.PD"/IP.PD/,2                                            INIT00       272          I
          -FC5A164
 INIT00   *         IFNE   "SV.PD",IP.PD,2                                                 FC5A164       41          I
          -FC5A426
 INIT00             IFNE   "SV.PD",6,2                                                     FC5A164       42          I
          -FC5A426
 INIT00    CO.PD    CON    "SV.PD"     PRINT DENSITY                                       INIT00       273          I
          -FC5A426
 INIT00             SKIP   1                                                               INIT00       274          I
          -FC5A426
 INIT00    CO.PD    CON    0                                                               INIT00       275     A     
 INIT00                                                                                    INIT00       276     A     
 INIT00    CO.PS    CON    1S59        PAGE SIZE                                           INIT00       277          I
          -FC5A107
 INIT00                                                                                    INIT00       278          I
          -FC5A107
 INIT00    .SPY     IFEQ   .SPY,ON     IF SPY OPTION                                       INIT00       279     A     
 INIT00    CO.SPY   DATA   -1,-1       SPY LOW, HIGH                                       INIT00       280     A     
 INIT00    SD.SPY   CON    RA.ORG      LOWER LIMIT                                         INIT00       281     A     
 INIT00             CON    FIN.OL      UPPER LIMIT                                         INIT00       282     A     
 INIT00    Z.BINS   =      2046B       NUMBER OF SPY BINS                                  INIT00       283     A     
 INIT00    .SPY     ENDIF                                                                  INIT00       284     A     
 INIT00                                                                                    INIT00       285     A     
 INIT00    IGNORE   BSS    1           GENERAL WASTE CELL                                  INIT00       286     A     
 INIT00                                                                                    INIT00       287     A     
 INIT00    WARN     CON    8L WARNING                                                      FC5A426       35     A     
 INIT00                                                                                    FC5A426       36     A     
 INIT00    GP.PAGE  BSS    0           PRINT PARAMETER BLOCK                               FC5A426       37     A     
 INIT00    GP.JPD   BSS    1           JOB DEFAULT PD                                      FC5A426       38          I
          -FC5A480
 INIT00    GP.JPS   BSS    1                       PS                                      FC5A426       39          I
          -FC5A480
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    GP.JPW   BSS    1                       PW                                      FC5A426       40          I
          -FC5A480
 INIT00    GP.JPD   BSSZ   1           JOB DEFAULT PD                                      FC5A480        8     A     
 INIT00    GP.JPS   BSSZ   1                       PS                                      FC5A480        9     A     
 INIT00    GP.JPW   BSSZ   1                       PW                                      FC5A480       10     A     
 INIT00                                                                                    FC5A426       41     A     
 INIT00    Z.TXTS   EQU    7           NUMBER OF S AND G TEXTS ALLOWED                     INIT00       288     A     
 INIT00    PAC=G    SPACE  4,10                                                            INIT00       289     A     
 INIT00   **        PROCESS G PARAMETER.                                                   INIT00       290     A     
 INIT00   *                                                                                INIT00       291     A     
 INIT00   *         1.  G                                                                  INIT00       292     A     
 INIT00   *         2.  G=0                                                                INIT00       293     A     
 INIT00   *         3.  G=ST1/.../STN                                                      INIT00       294     A     
 INIT00   *               WHERE ST(I) IS EITHER *LFN* OR *LFN-OVL1...-OVLN*                INIT00       295     A     
 INIT00                                                                                    INIT00       296     A     
 INIT00                                                                                    INIT00       297     A     
 INIT00    PAC=G    BSS                                                                    INIT00       298     A     
 INIT00             SA1    X1          DEFAULT LFN                                         INIT00       299     A     
 INIT00             MX6    0           DEFAULT OVL NAME = NONE                             INIT00       300     A     
 INIT00             BX7    X1                                                              INIT00       301     A     
 INIT00             NZ     X3,PACG3    IF NO =                                             INIT00       302     A     
 INIT00             SX0    B1          .GT. 10 CHAR NOT ALLOWED                            FC5A173        4     A     
 INIT00             RJ     GNA         GET NEXT ITEM                                       FC5A173        5     A     
 INIT00             SB7    B0                                                              FC5A173        6     A     
 INIT00             NZ     X6,PACG1A   IF NOT FOLLOWED BY SEP. OR TERM.                    FC5A173        7     A     
 INIT00             EQ     B4,B1,PAC.RET     IF G=,                                        FC5A173        8     A     
 INIT00             EQ     PACG1A                                                          FC5A173        9     A     
 INIT00    PACG1    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS                     INIT00       303     A     
 INIT00             RJ     GNA         GET FILE NAME                                       INIT00       304     A     
 INIT00             ZR     X6,E.IGS    IF NO LFN                                           INIT00       305     A     
 INIT00             BX1    X6                                                              INIT00       306          I
          -FC5A173
 INIT00                                                                                    FC5A173       10     A     
 INIT00    PACG1A   BX1    X6                                                              FC5A173       11     A     
 INIT00             RJ     CFV         CHECK FILENAME VALIDITY                             INIT00       307     A     
 INIT00             NZ     X4,E.IGS    IF ILLEGAL FILE NAME                                INIT00       308     A     
 INIT00             BX7    X6          LFN                                                 INIT00       309     A     
 INIT00             SB7    /COMCPAC/O.MINUS                                                INIT00       310     A     
 INIT00             MX6    0           OVL                                                 INIT00       311     A     
 INIT00             NE     B7,B4,PACG3 IF NO *-*                                           INIT00       312     A     
 INIT00             ZR     X7,E.IGS    IF ILLEGAL SYNTAX                                   INIT00       313     A     
 INIT00    PACG2    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS                     INIT00       314     A     
 INIT00             RJ     GNA         GET OVERLAY NAME                                    INIT00       315     A     
 INIT00    PACG3    ZR     X7,PACG4    IF G=0, IGNORE                                      INIT00       316     A     
 INIT00             SX2    B1                                                              INIT00       317     A     
 INIT00             BX6    X6+X2       SET *G* FLAG                                        INIT00       318     A     
 INIT00             SA2    CP.STXT     COUNT OF TEXTS                                      INIT00       319     A     
 INIT00             SB6    X2-Z.TXTS                                                       INIT00       320     A     
 INIT00             SB7    X2+B1                                                           INIT00       321     A     
 INIT00             ZR     B6,E.S7     IF MORE THAN 7 TEXTS SPECIFIED                      INIT00       322     A     
 INIT00             SA6    A2+B7       STORE OVERLAY NAME                                  INIT00       323     A     
 INIT00             SA7    CP.LIB+B7   STORE FILE NAME                                     INIT00       324     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SX6    B7                                                              INIT00       325     A     
 INIT00             SA6    A2          UPDATE COUNT                                        INIT00       326     A     
 INIT00    PACG4    SB7    /COMCPAC/O.MINUS                                                INIT00       327     A     
 INIT00             EQ     B7,B4,PACG2 IF *-* IS NEXT                                      INIT00       328     A     
 INIT00             SB7    /COMCPAC/O.SLASH                                                INIT00       329     A     
 INIT00             EQ     B7,B4,PACG1 IF */* IS NEXT                                      INIT00       330     A     
 INIT00             SB7    B0                                                              INIT00       331     A     
 INIT00             EQ     PAC.RET     RETURN TO MAIN LOOP...                              INIT00       332     A     
 INIT00    PAC=IDP  SPACE  4,10                                                            INIT00       333     A     
 INIT00   **        PROCESS IDP OPTION (TEST MODE ONLY).                                   INIT00       334     A     
 INIT00                                                                                    INIT00       335     A     
 INIT00                                                                                    INIT00       336     A     
 INIT00    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT00       337     A     
 INIT00    PAC=IDP  SA1    X1                                                              INIT00       338     A     
 INIT00             BX6    X1          GET DEFAULT                                         INIT00       339     A     
 INIT00             NZ     X3,PACIDP2  IF NO =                                             INIT00       340     A     
 INIT00             BX6    0                                                               INIT00       341     A     
 INIT00             MX7    1                                                               INIT00       342     A     
 INIT00    PACIDP1  RJ     GNC         GET NEXT CHARACTER                                  INIT00       343     A     
 INIT00             NZ     B4,PACIDP3  IF SEPARATOR                                        INIT00       344     A     
 INIT00             SB7    X4-60                                                           INIT00       345     A     
 INIT00             AX3    X7,B7       SET BIT 2**(59-CHARACTER)                           INIT00       346     A     
 INIT00             BX6    X6+X3                                                           INIT00       347     A     
 INIT00             EQ     PACIDP1                                                         INIT00       348     A     
 INIT00                                                                                    INIT00       349     A     
 INIT00    PACIDP2  LX6    59-0                                                            INIT00       350     A     
 INIT00    PACIDP3  SA6    CO.IDP                                                          INIT00       351     A     
 INIT00             SB7    B0                                                              INIT00       352     A     
 INIT00             EQ     PAC.RET     RETURN MAIN LOOP...                                 INIT00       353     A     
 INIT00    .TEST    ENDIF                                                                  INIT00       354     A     
 INIT00    PAC=S    SPACE  4,10                                                            INIT00       355     A     
 INIT00   **        PROCESS S PARAMETER.                                                   INIT00       356     A     
 INIT00   *                                                                                INIT00       357     A     
 INIT00   *         1.  S                                                                  INIT00       358     A     
 INIT00   *         2.  S=0                                                                INIT00       359     A     
 INIT00   *         3.  S=ST1/.../STN                                                      INIT00       360     A     
 INIT00   *               WHERE ST(I) IS EITHER *OVL* OR *LIB-OVL1...-OVLN*                INIT00       361     A     
 INIT00                                                                                    INIT00       362     A     
 INIT00                                                                                    INIT00       363     A     
 INIT00    PAC=S    BSS                                                                    INIT00       364     A     
 INIT00             SA1    X1          DEFAULT OVL                                         INIT00       365     A     
 INIT00             MX7    0           DEFAULT LIB = NONE                                  INIT00       366     A     
 INIT00             BX6    X1                                                              INIT00       367     A     
 INIT00             NZ     X3,PACS3    IF NO *=*                                           INIT00       368     A     
 INIT00             SX0    B1          .GT. 10 CHAR NOT ALLOWED                            FC5A173       12     A     
 INIT00             RJ     GNA         GET NEXT ITEM                                       FC5A173       13     A     
 INIT00             SB7    B0                                                              FC5A173       14     A     
 INIT00             NZ     X6,PACS1A   IF NOT FOLLOWD BY SEP. OR TERM.                     FC5A173       15     A     
 INIT00             EQ     PACS1A                                                          FC5A173       16          I
          -FC50626
 INIT00             EQ     B4,B1,PAC.RET     IF S=,                                        FC5A173       17     A     
 INIT00             EQ     PACS1A                                                          FC50626        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    FC50626        7     A     
 INIT00    PACS1    SX0    B1          .GT. 10 CHAR NOT ALLOWED                            INIT00       369     A     
 INIT00             RJ     GNA         GET LIB OR OVL NAME                                 INIT00       370     A     
 INIT00             ZR     X6,E.ISS    IF NULL OPTION                                      INIT00       371     A     
 INIT00             BX1    X6                                                              INIT00       372          I
          -FC5A173
 INIT00                                                                                    FC5A173       18     A     
 INIT00    PACS1A   BX1    X6                                                              FC5A173       19     A     
 INIT00             RJ     CFV         CHECK FILENAME VALIDITY                             INIT00       373     A     
 INIT00             NZ     X4,E.ISS    IF ILLEGAL FILE NAME                                INIT00       374     A     
 INIT00             SX7    0           DEFAULT = NO LIB                                    FC50626        8     A     
 INIT00             SB7    /COMCPAC/O.MINUS                                                INIT00       375     A     
 INIT00             NE     B7,B4,PACS3 IF NO *-*                                           INIT00       376     A     
 INIT00             ZR     X6,E.ISS    IF NO LIB (S=-OVL)                                  INIT00       377     A     
 INIT00             BX7    X6          SET LIB NAME                                        INIT00       378     A     
 INIT00                                                                                    FC50626        9     A     
 INIT00    PACS2    SX0    B1          .GT. 10 CHAR NOT ALLOWED                            INIT00       379     A     
 INIT00             RJ     GNA         GET OVL NAME                                        INIT00       380     A     
 INIT00                                                                                    FC50626       10     A     
 INIT00    PACS3    NZ     X6,PACS4    IF NOT S=0                                          INIT00       381     A     
 INIT00             SA6    CP.LIB      SET S=0 FLAG                                        INIT00       382     A     
 INIT00             EQ     PACS5       CONTINUE                                            INIT00       383     A     
 INIT00                                                                                    INIT00       384     A     
 INIT00    PACS4    SA2    CP.STXT                                                         INIT00       385     A     
 INIT00             SB6    X2-Z.TXTS                                                       INIT00       386     A     
 INIT00             SB7    X2+B1                                                           INIT00       387     A     
 INIT00             ZR     B6,E.S7     IF MORE THAN 7 TEXTS SPECIFIED                      INIT00       388     A     
 INIT00             SA6    A2+B7       STORE OVERLAY NAME                                  INIT00       389     A     
 INIT00             SA7    CP.LIB+B7   STORE LIB NAME                                      INIT00       390     A     
 INIT00             SX6    B7                                                              INIT00       391     A     
 INIT00             SA6    A2          UPDATE COUNT                                        INIT00       392     A     
 INIT00                                                                                    FC50626       11     A     
 INIT00    PACS5    SB7    /COMCPAC/O.MINUS                                                INIT00       393     A     
 INIT00             EQ     B7,B4,PACS2 IF *-* IS NEXT                                      INIT00       394     A     
 INIT00             SB7    /COMCPAC/O.SLASH                                                INIT00       395     A     
 INIT00             EQ     B7,B4,PACS1 IF */* IS NEXT                                      INIT00       396     A     
 INIT00             SB7    B0                                                              INIT00       397     A     
 INIT00             EQ     PAC.RET     RETURN TO MAIN LOOP...                              INIT00       398     A     
 INIT00    PAC=SNAP SPACE  4,10                                                            INIT00       399     A     
 INIT00   **        PROCESS SNAP OPTION (TEST MODE ONLY).                                  INIT00       400     A     
 INIT00                                                                                    INIT00       401     A     
 INIT00    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT00       402     A     
 INIT00    PAC=SNAP BSS                                                                    INIT00       403     A     
 INIT00             SA1    X1                                                              INIT00       404     A     
 INIT00             BX6    X1          GET DEFAULT                                         INIT00       405     A     
 INIT00             NZ     X3,PACSNP2  IF NO =                                             INIT00       406     A     
 INIT00             BX6    0                                                               INIT00       407     A     
 INIT00             MX7    1                                                               INIT00       408     A     
 INIT00    PACSNP1  RJ     GNC         GET NEXT CHARACTER                                  INIT00       409     A     
 INIT00             NZ     B4,PACSNP3  IF SEPARATOR                                        INIT00       410     A     
 INIT00             SB7    X4-60                                                           INIT00       411     A     
 INIT00             AX3    X7,B7       SET BIT 2**(59-CHARACTER)                           INIT00       412     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             BX6    X6+X3                                                           INIT00       413     A     
 INIT00             EQ     PACSNP1                                                         INIT00       414     A     
 INIT00                                                                                    INIT00       415     A     
 INIT00    PACSNP2  LX6    59-0                                                            INIT00       416     A     
 INIT00    PACSNP3  SA6    CO.SNAP                                                         INIT00       417     A     
 INIT00             SB7    B0                                                              INIT00       418     A     
 INIT00             EQ     PAC.RET     RETURN MAIN LOOP...                                 INIT00       419     A     
 INIT00    .TEST    ENDIF                                                                  INIT00       420     A     
 INIT00    CSERRS   TITLE  CONTROL STATEMENT ERRORS                                        INIT00       421     A     
 INIT00   *         ERROR MESSAGES.                                                        INIT00       422     A     
 INIT00                                                                                    INIT00       423     A     
 INIT00                                                                                    INIT00       424     A     
 INIT00    E.ANSI   CSERR  (ANSI MUST BE 0, T OR F)                                        INIT00       425     A     
 INIT00             EQ     MIB4        CONTINUE INITIALIZATION                             INIT00       426     A     
 INIT00                                                                                    INIT00       427     A     
 INIT00    E.ARG    CSERR  (ARG CANT BE BOTH COMMON AND FIXED)                             INIT00       428          I
          -FC5A333
 INIT00    E.ARG    SA6    ERR.FLD                                                         FC5A333        5     A     
 INIT00             CSERR  (ARG CANT BE BOTH COMMON AND FIXED)                             FC5A333        6     A     
 INIT00             EQ     MIB10                                                           INIT00       429          I
          -F1037F5
 INIT00             EQ     MIB7                                                            F1037F5      278     A     
 INIT00                                                                                    INIT00       430     A     
 INIT00    E.BGO    CSERR  (B=0 AND GO IS INCONSISTENT)                                    INIT00       431          I
          -FC5A333
 INIT00    E.BGO    SA6    ERR.FLD                                                         FC5A333        7     A     
 INIT00             CSERR  (B=0 AND GO IS INCONSISTENT)                                    FC5A333        8     A     
 INIT00             EQ     MIB35                                                           INIT00       432     A     
 INIT00                                                                                    INIT00       433     A     
 INIT00    E.CS     CSERR  (CS MUST BE USER OR FIXED)                                      INIT00       434          I
          -FC5A333
 INIT00    E.CS     SA6    ERR.FLD                                                         FC5A333        9     A     
 INIT00             CSERR  (CS MUST BE USER OR FIXED)                                      FC5A333       10     A     
 INIT00             SX6    1                                                               INIT00       435     A     
 INIT00             EQ     MIB55                                                           INIT00       436     A     
 INIT00                                                                                    INIT00       437     A     
 INIT00    E.ID     MX6    0                                                               FC5A155        6     A     
 INIT00             SA6    ERR.FLD                                                         FC5A155        7     A     
 INIT00             CSERR  (INTERACTIVE DEBUG REQUIRES OPT=0)                              FC5A155        8     A     
 INIT00             EQ     MIB100                                                          FC5A155        9     A     
 INIT00                                                                                    FC5A333       11     A     
 INIT00    E.EF     CSERR  (E=0 IS ILLEGAL)                                                INIT00       438     A     
 INIT00             EQ     MIB125                                                          INIT00       439     A     
 INIT00                                                                                    INIT00       440     A     
 INIT00             IFEQ   TEST,ON,2                                                       INIT00       441     A     
 INIT00    E.EL     CSERR  (EL MUST BE D, T, W, F, OR C)                                   INIT00       442     A     
 INIT00             SKIP   1                                                               INIT00       443     A     
 INIT00    E.EL     CSERR  (EL MUST BE T, W, F, OR C)                                      INIT00       444     A     
 INIT00             EQ     MIB2        CONTINUE INITIALIZATION                             INIT00       445     A     
 INIT00                                                                                    INIT00       446     A     
 INIT00    E.ET     CSERR  (ET MUST BE 0, T, W, F, OR C)                                   INIT00       447     A     
 INIT00             EQ     MIB22       CONTINUE INITIALIZATION                             INIT00       448     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    FC5A333       12     A     
 INIT00    E.LFNC   CSERR  (FILE USE CONFLICT)                                             FC50022        5     A     
 INIT00             EQ     MIB125                                                          FC50022        6     A     
 INIT00                                                                                    FC50022        7     A     
 INIT00                                                                                    FC5A173       20     A     
 INIT00    E.IZ     CSERR  (I=0 IS NOT ALLOWED)                                            FC5A173       21     A     
 INIT00             EQ     MIB125                                                          FC5A173       22     A     
 INIT00                                                                                    FC5A173       23     A     
 INIT00    E.XZ     CSERR  (X=0 IS NOT ALLOWED)                                            FC5A173       24     A     
 INIT00             EQ     MIB125                                                          FC5A173       25     A     
 INIT00                                                                                    INIT00       449     A     
 INIT00    E.IGS    CSERR  (ILLEGAL G OPTION SYNTAX)                                       INIT00       450          I
          -FC5A333
 INIT00    E.IGS    SX6    0                                                               FC5A333       13     A     
 INIT00             SA6    ERR.FLD                                                         FC5A333       14     A     
 INIT00             CSERR  (ILLEGAL G OPTION SYNTAX)                                       FC5A333       15     A     
 INIT00             EQ     PAC.RET                                                         INIT00       451     A     
 INIT00                                                                                    INIT00       452     A     
 INIT00    E.ISS    CSERR  (ILLEGAL S OPTION SYNTAX)                                       INIT00       453          I
          -FC5A333
 INIT00    E.ISS    SX6    0                                                               FC5A333       16     A     
 INIT00             SA6    ERR.FLD                                                         FC5A333       17     A     
 INIT00             CSERR  (ILLEGAL S OPTION SYNTAX)                                       FC5A333       18     A     
 INIT00             EQ     PAC.RET                                                         INIT00       454     A     
 INIT00                                                                                    INIT00       455     A     
 INIT00    E.LCM    CSERR  (LCM OPTION MUST BE G, I OR D)                                  INIT00       456     A     
 INIT00             EQ     MIB53                                                           INIT00       457     A     
 INIT00                                                                                    INIT00       458     A     
 INIT00    E.MD     CSERR  (MD MUST BE 0, T OR F)                                          F1037F5      279     A     
 INIT00             EQ     MIB10                                                           F1037F5      280     A     
 INIT00                                                                                    F1037F5      281     A     
 INIT00    E.OPT    =X6    2                                                               INIT00       459     A     
 INIT00             SA6    A1          RESET CO.OPT TO OPT=2                               INIT00       460     A     
 INIT00             SX6    0                                                               FC5A333       19     A     
 INIT00             SA6    ERR.FLD                                                         FC5A333       20     A     
 INIT00             CSERR  (OPT LEVEL NOT 0,1,2, OR 3)                                     INIT00       461     A     
 INIT00             EQ     FTN1                                                            INIT00       462     A     
 INIT00                                                                                    INIT00       463     A     
 INIT00    E.PD     CSERR  (PD ARGUMENT NOT 6 OR 8)                                        INIT00       464          I
          -FC5A333
 INIT00    E.PD     SA6    ERR.FLD                                                         FC5A333       21     A     
 INIT00             CSERR  (PD ARGUMENT NOT 6 OR 8)                                        FC5A333       22     A     
 INIT00             EQ     MIB72                                                           INIT00       465     A     
 INIT00                                                                                    FC50049        8     A     
 INIT00    E.PL     CSERR  (PL MUST NOT EXCEED 999999999)                                  FC50049        9          I
          -FC5A333
 INIT00    E.PL     SX6    0                                                               FC5A333       23     A     
 INIT00             SA6    ERR.FLD                                                         FC5A333       24     A     
 INIT00             CSERR  (PL MUST NOT EXCEED 999999999)                                  FC5A333       25     A     
 INIT00             EQ     MIB80                                                           FC50049       10     A     
 INIT00                                                                                    INIT00       466     A     
 INIT00    E.PS     CSERR  (PS .LT. 4)                                                     INIT00       467          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
          -FC5A333
 INIT00    E.PS     SX6    0                                                               FC5A333       26          I
          -FC5A426
 INIT00             SA6    ERR.FLD                                                         FC5A333       27          I
          -FC5A426
 INIT00             CSERR  (PS .LT. 4)                                                     FC5A333       28          I
          -FC5A426
 INIT00             SX6    IP.PS                                                           INIT00       468          I
          -FC5A426
 INIT00    E.PS     SA1    WARN                                                            FC5A426       42     A     
 INIT00             BX6    X1                                                              FC5A426       43     A     
 INIT00             SA6    ERR.FLD     ADD WARN MESSAGE                                    FC5A426       44     A     
 INIT00             CSERR  (PAGE SIZE RANGE .GT. 3)                                        FC5A426       45     A     
 INIT00             SX6    0                                                               FC5A426       46     A     
 INIT00             SA6    ERR.FLD                                                         FC5A426       47     A     
 INIT00             SA1    ERR.CNT                                                         FC5A426       48     A     
 INIT00             SX6    X1-1                                                            FC5A426       49     A     
 INIT00             SA6    A1          DONT COUNT IT                                       FC5A426       50     A     
 INIT00             SX6    4           SET TO LOW LIMIT                                    FC5A426       51     A     
 INIT00             EQ     MIB75                                                           INIT00       469     A     
 INIT00                                                                                    INIT00       470     A     
 INIT00    E.PW     CSERR  (PW .LT. 50)                                                    INIT00       471          I
          -FC5A174
 INIT00             EQ     MIB70                                                           INIT00       472          I
          -FC5A174
 INIT00    E.PW     CSERR  (PW .LT. 50 OR .GT. 136)                                        FC5A174        7          I
          -FC5A426
 INIT00             EQ     MIB140                                                          FC5A174        8          I
          -FC5A426
 INIT00    E.PW     SB2    X6          SAVE FILE ORDINAL                                   FC5A426       52     A     
 INIT00             SB3    X1          NEG. IF VALUE TO LOW                                FC5A426       53     A     
 INIT00             SA1    WARN                                                            FC5A426       54     A     
 INIT00             BX6    X1                                                              FC5A426       55     A     
 INIT00             SA6    ERR.FLD                                                         FC5A426       56     A     
 INIT00             CSERR  (PAGE WIDTH RANGE 50 - 136)                                     FC5A426       57     A     
 INIT00             SA1    ERR.CNT                                                         FC5A426       58     A     
 INIT00             SX6    X1-1                                                            FC5A426       59     A     
 INIT00             SA6    A1                                                              FC5A426       60     A     
 INIT00             SX6    B2                                                              FC5A426       61     A     
 INIT00             SX2    50          LOW LIMIT OF WIDTH                                  FC5A426       62     A     
 INIT00             MI     B3,PPW60.1  IF TOO LOW                                          FC5A426       63     A     
 INIT00             SX2    136         SET TO HIGH LIMIT                                   FC5A426       64     A     
 INIT00             EQ     PPW60.1                                                         FC5A426       65     A     
 INIT00                                                                                    INIT00       473     A     
 INIT00    E.SW     CSERR  (SPY BINWIDTH MUST BE A POWER OF TWO)                           INIT00       474          I
          -FC5A333
 INIT00             EQ     ABTFTN      ABORT                                               INIT00       475          I
          -FC5A333
 INIT00                                                                                    INIT00       476          I
          -FC5A333
 INIT00    E.S7     CSERR  (ONLY 7 SYSTEMS TEXTS ALLOWED)                                  INIT00       477          I
          -FC5A333
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    E.S7     SX6    0                                                               FC5A333       29     A     
 INIT00             SA6    ERR.FLD                                                         FC5A333       30     A     
 INIT00             CSERR  (ONLY 7 SYSTEMS TEXTS ALLOWED)                                  FC5A333       31     A     
 INIT00             EQ     PAC.RET                                                         INIT00       478     A     
 INIT00             PURGMAC CSERR                                                          INIT00       479     A     
 INIT00    SUBRS    TITLE  COMPILER INITIALIZATION SUBROUTINES                             INIT00       480     A     
 INIT00    CFL      SPACE  4,10                                                            INIT00       481     A     
 INIT00   **        CFL - CHECK FIELD LENGTH.                                              INIT00       482     A     
 INIT00   *                                                                                INIT00       483     A     
 INIT00   *         COMPARES CURRENT FIELD LENGTH VS. MINIMUM FIELD LENGTH.                INIT00       484     A     
 INIT00   *         EXITS IF CURRENT FL IS ABOVE MINIMUM. OTHERWISE, REQUESTS              INIT00       485     A     
 INIT00   *         FIELD LENGTH EQUAL TO THE NOMINAL FIELD LENGTH FOR THIS MODE           INIT00       486     A     
 INIT00   *         (I.E. OPT=0,1,2) OR THE MAXIMUM FOR THIS JOB STEP - WHICHEVER          INIT00       487     A     
 INIT00   *         IS SMALLER.                                                            INIT00       488     A     
 INIT00   *                                                                                INIT00       489     A     
 INIT00   *         ENTRY  (CP.AFLS) = CURRENT FL.                                         INIT00       490     A     
 INIT00   *                                                                                INIT00       491     A     
 INIT00   *         EXITS  NORMAL--    RETURNS TO CALLER VIA ENTRY POINT.                  INIT00       492     A     
 INIT00   *                            (CP.AFLS) = NEW CURRENT FL.                         INIT00       493     A     
 INIT00   *                            (CP.NFLS) = (CP.AFLS)-10                            INIT00       494     A     
 INIT00   *                            (CP.MXFL) = (CP.AFLS)                               INIT00       495     A     
 INIT00   *                                                                                INIT00       496     A     
 INIT00   *                ERROR--     ABORTS JOB.                                         INIT00       497     A     
 INIT00   *                                                                                INIT00       498     A     
 INIT00   *         USES   ALL                                                             INIT00       499     A     
 INIT00   *                                                                                INIT00       500     A     
 INIT00   *         CALLS  ABTFTN, COD, DXB, MEMORY, MESSAGE                               INIT00       501     A     
 INIT00                                                                                    INIT00       502     A     
 INIT00                                                                                    INIT00       503     A     
 INIT00    CFL      SUBR               ...ENTRY/EXIT...                                    INIT00       504     A     
 INIT00                                                                                    INIT00       505     A     
 INIT00             MEMORY SCM,MAX.FL,RCL    GET MAXIMUM FL                                INIT00       506     A     
 INIT00             SA1    CP.AFLS                                                         INIT00       507     A     
 INIT00             SB6    X1          INITIAL FL                                          INIT00       508     A     
 INIT00             SX6    B6                                                              INIT00       509     A     
 INIT00                                                                                    INIT00       510     A     
 INIT00   *         IF TEST MODE - SUBSTITUTE RFL VALUE IF REQUESTED.                      INIT00       511     A     
 INIT00                                                                                    INIT00       512     A     
 INIT00    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT00       513     A     
 INIT00             SA5    CO.RFL                                                          INIT00       514     A     
 INIT00             ZR     X5,CFL5     IF NO RFL ON CONTROL STATEMENT                      INIT00       515     A     
 INIT00             SB7    0           ASSUME OCTAL FOR DXB                                INIT00       516     A     
 INIT00             CALL   DXB         CONVERT REQUESTED FL                                INIT00       517     A     
 INIT00             ZR     X6,CFL3     IF DEFAULT RFL                                      INIT00       518     A     
 INIT00             SB6    X6          NEW FL                                              INIT00       519     A     
 INIT00    .TEST    ENDIF                                                                  INIT00       520     A     
 INIT00                                                                                    INIT00       521     A     
 INIT00    CFL3     SA1    MAX.FL                                                          INIT00       522     A     
 INIT00             AX1    30                                                              INIT00       523     A     
 INIT00             SB7    X1                                                              INIT00       524     A     
 INIT00             SX6    B7-B6                                                           INIT00       525     A     
 INIT00             MI     X6,MEMERR   IF NOT ENOUGH MEMORY                                INIT00       526     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SX6    B6                                                              INIT00       527     A     
 INIT00                                                                                    INIT00       528     A     
 INIT00   *         REQUEST MORE MEMORY.                                                   INIT00       529     A     
 INIT00                                                                                    INIT00       530     A     
 INIT00             LX6    30                                                              INIT00       531     A     
 INIT00             SA6    GT1                                                             INIT00       532     A     
 INIT00             MEMORY SCM,GT1,RCL                                                     INIT00       533     A     
 INIT00             SA1    GT1           GET NEW FL                                        INIT00       534     A     
 INIT00             AX1    30                                                              INIT00       535     A     
 INIT00             BX6    X1                                                              INIT00       536     A     
 INIT00                                                                                    INIT00       537     A     
 INIT00   *         UPDATE FIELD LENGTH CELLS.                                             INIT00       538     A     
 INIT00                                                                                    INIT00       539     A     
 INIT00    CFL5     SX7    X6-FLSZ     LEAVE 10 WORD SAFETY ZONE                           INIT00       540     A     
 INIT00             SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL                     INIT00       541     A     
 INIT00             SA6    CP.AFLS     UPDATE TO CURRENT FL                                INIT00       542     A     
 INIT00             SA6    CP.MXFL     INITIALIZE MAX FL USED                              INIT00       543     A     
 INIT00                                                                                    FC5A348       14     A     
 INIT00   *         CHECK LCM AVAILABILITY.                                                FC5A348       15     A     
 INIT00                                                                                    FC5A348       16     A     
 INIT00             SA1    CO.EC                                                           FC5A348       17     A     
 INIT00             ZR     X1,EXIT.    IF NO OPT=2 LCM REQUIRED                            FC5A348       18     A     
 INIT00             MX6    29          (-1, BITS 50-30)                                    FC5A348       19     A     
 INIT00             SA6    GT1         MEMORY REQUEST WORD                                 FC5A348       20     A     
 INIT00             MEMORY LCM,GT1,RCL                                                     FC5A348       21     A     
 INIT00             SA1    GT1                                                             FC5A348       22     A     
 INIT00             AX1    30                                                              FC5A348       23     A     
 INIT00             BX6    X1                                                              FC5A348       24     A     
 INIT00             NZ     X1,EXIT.    IF LCM AVAILABLE                                    FC5A348       25     A     
 INIT00             SA6    CO.EC       OTHERWISE, TURN OFF                                 FC5A348       26     A     
 INIT00                                                                                    INIT00       544          I
          -FC5A119
 INIT00    .MD      IFEQ   CT.CPU,76                                                       INIT00       545          I
          -FC5A119
 INIT00                                                                                    INIT00       546          I
          -FC5A119
 INIT00   *         CHECK LCM FL , REQUEST SOME IF OPT .GE. 2                              INIT00       547          I
          -FC5A119
 INIT00                                                                                    INIT00       548          I
          -FC5A119
 INIT00             MEMORY LCM,=XLCM.MM,R                                                  INIT00       549          I
          -FC5A119
 INIT00             SA1    =XLCM.MM                                                        INIT00       550          I
          -FC5A119
 INIT00             BX6    X1                                                              INIT00       551          I
          -FC5A119
 INIT00             LX6    59-1        LCM.MM = 1S59 IF REDUCE MODE                        INIT00       552          I
          -FC5A119
 INIT00             SA6    A1                                                              INIT00       553          I
          -FC5A119
 INIT00             AX1    30                                                              INIT00       554          I
          -FC5A119
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             PL     X6,CFL7     IF FIXED FL MODE                                    INIT00       555          I
          -FC5A119
 INIT00             SA4    CO.OPT                                                          INIT00       556          I
          -FC5A119
 INIT00             SX5    X4-2                                                            INIT00       557          I
          -FC5A119
 INIT00             MI     X5,CFL7     IF OPTLVL .LT. 2                                    INIT00       558          I
          -FC5A119
 INIT00             SX7    =XIN.LCM                                                        INIT00       559          I
          -FC5A119
 INIT00             IX3    X1-X7                                                           INIT00       560          I
          -FC5A119
 INIT00             LX7    30                                                              INIT00       561          I
          -FC5A119
 INIT00             PL     X3,CFL7     IF LCM.FL .GE. IN.LCM                               INIT00       562          I
          -FC5A119
 INIT00             SA7    GT1                                                             INIT00       563          I
          -FC5A119
 INIT00             MEMORY LCM,GT1,R,,NOABT                                                INIT00       564          I
          -FC5A119
 INIT00             SA1    GT1                                                             INIT00       565          I
          -FC5A119
 INIT00             AX1    30                                                              INIT00       566          I
          -FC5A119
 INIT00    CFL7     BX7    X1                                                              INIT00       567          I
          -FC5A119
 INIT00             SA7    CP.AFLL     CP.AFLL = LCM.FL                                    INIT00       568          I
          -FC5A119
 INIT00    .MD      ENDIF                                                                  INIT00       569          I
          -FC5A119
 INIT00                                                                                    INIT00       570          I
          -FC5A119
 INIT00             EQ     EXIT.       EXIT...                                             INIT00       571     A     
 INIT00    CFN      SPACE  4,10                                                            INIT00       572     A     
 INIT00   **        CFN - CHANGE FILE NAME.                                                INIT00       573     A     
 INIT00   *                                                                                INIT00       574     A     
 INIT00   *         CHANGES OR CLEARS ENTRY IN THE FILE VECTOR TABLE .                     INIT00       575     A     
 INIT00   *         EXITS WITHOUT ACTION IF THE VECTOR TABLE ENTRY IS ZERO.                INIT00       576     A     
 INIT00   *                                                                                INIT00       577     A     
 INIT00   *         (CIO I/O) - CHANGES OR CLEARS FILE NAME IN FET.                        INIT00       578     A     
 INIT00   *         FOR A NAME CHANGE, THE EXISTING FET FILE MODE BIT IS RETAINED          INIT00       579     A     
 INIT00   *         AND THE CIO COMPLETE BIT IS SET.                                       INIT00       580     A     
 INIT00   *         FOR A NAME CLEAR, FET WORD 1 IS CLEARED TO ZERO.                       INIT00       581     A     
 INIT00   *                                                                                INIT00       582     A     
 INIT00   *         (7RM I/O) - CHANGES OR CLEARS FILE NAME IN FIT.                        INIT00       583     A     
 INIT00   *                                                                                INIT00       584     A     
 INIT00   *         ENTRY  (X2) = FILE VECTOR TABLE ENTRY                                  INIT00       585     A     
 INIT00   *                (A2) = ADDRESS OF (X2) ENTRY                                    INIT00       586     A     
 INIT00   *                (X6) = NEW NAME, MAX 7 CHARACTERS, LEFT ADJUSTED                INIT00       587     A     
 INIT00   *                       ACTION REQUEST --                                        INIT00       588     A     
 INIT00   *                       .ZR. = CLEAR ENTRY                                       INIT00       589     A     
 INIT00   *                       .NZ. = CHANGE NAME; KEEP PREVIOUS FET/FIT ADDR           INIT00       590     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   *                                                                                INIT00       591     A     
 INIT00   *         USES   B - 6                                                           INIT00       592     A     
 INIT00   *                A - 1, 3, 6, 7                                                  INIT00       593     A     
 INIT00   *                X - 1, 3, 6, 7                                                  INIT00       594     A     
 INIT00   *                                                                                INIT00       595     A     
 INIT00   *         CALLS  STORE (7RM I/O ONLY)                                            INIT00       596     A     
 INIT00                                                                                    INIT00       597     A     
 INIT00                                                                                    INIT00       598     A     
 INIT00    CFN      SUBR               ...ENTRY/EXIT...                                    INIT00       599     A     
 INIT00             ZR     X2,EXIT.    IF EMPTY TABLE ENTRY, DONE...                       INIT00       600     A     
 INIT00             MX7    0                                                               INIT00       601     A     
 INIT00             SX3    X2          FET/FIT ADDRESS                                     INIT00       602     A     
 INIT00             ZR     X6,CFN2     IF CLEARING NAME                                    INIT00       603     A     
 INIT00             IX7    X6+X3       42/NEW NAME, 18/FET OR FIT ADDRESS                  INIT00       604     A     
 INIT00    CFN2     SA7    A2          UPDATE TABLE                                        INIT00       605     A     
 INIT00                                                                                    INIT00       606     A     
 INIT00    .RM      IFEQ   CP#RM,0     IF CIO I/O                                          INIT00       607     A     
 INIT00             ZR     X6,CFN3     IF NAME TO BE CLEARED                               INIT00       608     A     
 INIT00             SA3    X2          (X3) = FET WORD 1                                   INIT00       609     A     
 INIT00             SX7    2                                                               INIT00       610     A     
 INIT00             BX3    X7*X3       EXTRACT FILE MODE BIT                               INIT00       611     A     
 INIT00             SX7    X3+1        TURN CIO COMPLETE BIT ON                            INIT00       612     A     
 INIT00             IX6    X6+X7       42/NEW FILE NAME,16/0,1/OLD MODE BIT,1/1            INIT00       613     A     
 INIT00    CFN3     SA6    X2          UPDATE FET WORD 1                                   INIT00       614     A     
 INIT00                                                                                    INIT00       615     A     
 INIT00    .RM      ELSE               IF 7RM I/O                                          INIT00       616     A     
 INIT00                                                                                    INIT00       617     A     
 INIT00             SA1    A5          SAVE (A5) AND (X5)                                  INIT00       618     A     
 INIT00             BX3    X5                                                              INIT00       619     A     
 INIT00             SB6    B5          SAVE (B5)                                           INIT00       620     A     
 INIT00             STORE  X2,LFN=X6   NEW NAME TO FIT                                     INIT00       621     A     
 INIT00             SA5    A1          RESTORE (A5) AND (X5)                               INIT00       622     A     
 INIT00             BX5    X3                                                              INIT00       623     A     
 INIT00             SB5    B6          RESTORE (B5)                                        INIT00       624     A     
 INIT00    .RM      ENDIF                                                                  INIT00       625     A     
 INIT00                                                                                    INIT00       626     A     
 INIT00             EQ     EXIT.       DONE...                                             INIT00       627     A     
 INIT00    MIA      SPACE  4,10                                                            INIT00       628     A     
 INIT00   **        MIA - MISCELLANEOUS INITIALIZATION, PART A.                            INIT00       629     A     
 INIT00   *                                                                                INIT00       630     A     
 INIT00   *         ENTRY  (X0) = ECS/LCM FIELD LENGTH                                     INIT00       631     A     
 INIT00   *                (A0) = CM /SCM FIELD LENGTH                                     INIT00       632     A     
 INIT00   *                (B1) = 1                                                        INIT00       633     A     
 INIT00   *                                                                                INIT00       634     A     
 INIT00   *         EXIT   (B1) = 1                                                        INIT00       635     A     
 INIT00   *                                                                                INIT00       636     A     
 INIT00   *         USES   X - 0, 1, 6, 7                                                  INIT00       637     A     
 INIT00   *                A - 1, 6, 7                                                     INIT00       638     A     
 INIT00   *                B - 2, 3                                                        INIT00       639     A     
 INIT00   *                                                                                INIT00       640     A     
 INIT00   *         CALLS  TIMER, DATE, CLOCK                                              INIT00       641     A     
 INIT00                                                                                    INIT00       642     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00       643     A     
 INIT00    MIA      SUBR               ...ENTRY/EXIT...                                    INIT00       644     A     
 INIT00                                                                                    INIT00       645     A     
 INIT00   **        SAVE HHA                                                               INIT00       646     A     
 INIT00                                                                                    INIT00       647     A     
 INIT00             SA1    104B        FWA 5400 TABLE + 4                                  INIT00       648          I
          -FC5A262
 INIT00             SA1    RA.ORG+4    FWA 5400 TABLE + 4 (HHA)                            FC5A262       15     A     
 INIT00             MX6    -18                                                             INIT00       649     A     
 INIT00             BX6    -X6*X1      X6 = HHA                                            INIT00       650     A     
 INIT00             SA6    FTNHHA                                                          INIT00       651     A     
 INIT00                                                                                    INIT00       652     A     
 INIT00   **        SAVE FIELD LENGTHS.                                                    INIT00       653     A     
 INIT00                                                                                    INIT00       654     A     
 INIT00             SX6    A0          CM/SCM FIELD LENGTH                                 INIT00       655     A     
 INIT00             SX7    X0          ECS/LCM FIELD LENGTH                                INIT00       656          I
          -FC5A158A 
 INIT00             BX7    X0          ECS/LCM FIELD LENGTH                                FC5A158A     385     A     
 INIT00             SA6    CP.AFLS                                                         INIT00       657     A     
 INIT00             SA7    CP.AFLL     SAVE FOR *COMPASS*                                  INIT00       658     A     
 INIT00             SA6    CP.NFLS                                                         INIT00       659     A     
 INIT00             SA7    CP.NFLL     SAVE FOR *COMPASS*                                  INIT00       660     A     
 INIT00             SA7    CP.ILFL                                                         FC5A119       28     A     
 INIT00             NO                                                                     INIT00       661     A     
 INIT00             LX6    30                                                              INIT00       662     A     
 INIT00             SA6    FTIFL       SAVE FOR EXIT RESTORATION                           INIT00       663     A     
 INIT00                                                                                    INIT00       664     A     
 INIT00                                                                                    INIT00       665     A     
 INIT00   **        OBTAIN CURRENT SENSE SWITCH VALUES (CYBER 76/ 7600 ONLY.)              INIT00       666     A     
 INIT00                                                                                    INIT00       667     A     
 INIT00    .OS      IFEQ   .OS,2       IF SCOPE 2                                          INIT00       668     A     
 INIT00             SSW                UPDATE RA.SSW                                       INIT00       669     A     
 INIT00    .OS      ENDIF                                                                  INIT00       670     A     
 INIT00                                                                                    INIT00       671     A     
 INIT00                                                                                    INIT00       672     A     
 INIT00   **        IF SWITCH 5 IS SET - CALL IDP                                          INIT00       673     A     
 INIT00                                                                                    INIT00       674     A     
 INIT00    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT00       675     A     
 INIT00             SA1    RA.SSW                                                          INIT00       676     A     
 INIT00             LX1    59-5-5                                                          INIT00       677     A     
 INIT00             PL     X1,MIA2     IF SWITCH 5 IS OFF                                  INIT00       678     A     
 INIT00                                                                                    INIT00       679     A     
 INIT00    #OS      IFNE   .OS,2,1                                                         FC5A158A     386     A     
 INIT00    INIT00   BREAK                                                                  INIT00       680     A     
 INIT00                                                                                    INIT00       681     A     
 INIT00    MIA2     BSS    0                                                               INIT00       682     A     
 INIT00             LX1    10-5-6                                                          INIT00       683     A     
 INIT00             MI     X1,MIA4     IF SWITCH 6 ON, SKIP *RPV* REQUEST                  INIT00       684     A     
 INIT00    .TEST    ENDIF                                                                  INIT00       685     A     
 INIT00                                                                                    INIT00       686     A     
 INIT00             RPVON              TURN ON REPRIEVE                                    INIT00       687     A     
 INIT00    MIA4     BSS    0                                                               INIT00       688     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00       689     A     
 INIT00                                                                                    INIT00       690     A     
 INIT00   **        INSERT DATE AND TIME IN HEADER LINE                                    INIT00       691     A     
 INIT00                                                                                    INIT00       692     A     
 INIT00             DATE   TL.DATE                                                         INIT00       693     A     
 INIT00             CLOCK  TL.TIME                                                         INIT00       694     A     
 INIT00                                                                                    INIT00       695     A     
 INIT00   *         INSERT DATE AND TIME IN ERR-LIST HEADER.                               INIT00       696     A     
 INIT00                                                                                    INIT00       697     A     
 INIT00             SA1    TL.DATE                                                         INIT00       698     A     
 INIT00             SA2    TL.TIME                                                         INIT00       699     A     
 INIT00             BX6    X1                                                              INIT00       700     A     
 INIT00             LX7    X2                                                              INIT00       701     A     
 INIT00             SA6    A1+L.TITL                                                       INIT00       702          I
          -F1039  
 INIT00             SA7    A2+L.TITL                                                       INIT00       703          I
          -F1039  
 INIT00             SA6    A1+ERFO                                                         F1039        202     A     
 INIT00             SA6    A2+ERFO                                                         F1039        203     A     
 INIT00                                                                                    INIT00       704     A     
 INIT00                                                                                    INIT00       705     A     
 INIT00   **        SAVE CPU START TIME.                                                   INIT00       706     A     
 INIT00                                                                                    INIT00       707     A     
 INIT00             CALL   TIMER                                                           INIT00       708     A     
 INIT00             SA6    TIME0       SAVE START TIME                                     INIT00       709          I
          -FC5A132
 INIT00             SA6    TIME1                                                           INIT00       710          I
          -FC5A132
 INIT00             SA6    TIME0       SAVE COMPILATION START TIME                         FC5A132       57     A     
 INIT00                                                                                    INIT00       711     A     
 INIT00                                                                                    INIT00       712     A     
 INIT00   **        CHANGE NAME OF FTN OVERLAY LIBRARY IF (0,0) OVERLAY LOADED             INIT00       713     A     
 INIT00   *         FROM A NON-STANDARD LIBRARY OR FILE.                                   INIT00       714     A     
 INIT00                                                                                    INIT00       715     A     
 INIT00             SA1    RA.LWP      (X1) = LOADER REPLY WORD                            INIT00       716     A     
 INIT00             SA2    RA.PGN      (X2) = ACTUAL LIBRARY NAME                          INIT00       717     A     
 INIT00             LX1    59-18       LIBRARY FLAG TO B59                                 INIT00       718     A     
 INIT00             MX6    42                                                              INIT00       719     A     
 INIT00             MI     X1,MIA6     IF FTN LOADED FROM LIBRARY FILE                     INIT00       720     A     
 INIT00             SX7    2040B       CLEAR LIBRARY BIT                                   INIT00       721     A     
 INIT00             LX7    36                                                              INIT00       722     A     
 INIT00             SA7    FTNLDR      RESET LOAD REQUEST WORD                             INIT00       723     A     
 INIT00    MIA6     SA3    =0L"FTNMAIN"      (X3) = STANDARD SYSTEM LIBRARY NAME           INIT00       724     A     
 INIT00             BX6    X6*X2                                                           INIT00       725     A     
 INIT00             IX2    X6-X3                                                           INIT00       726     A     
 INIT00             ZR     X2,MIA8     IF USER DID NOT CHANGE NAME                         INIT00       727     A     
 INIT00             SA6    FTNLFN      SAVE FOR *LOVER* CALLS                              INIT00       728     A     
 INIT00    MIA8     BSS    0                                                               INIT00       729     A     
 INIT00                                                                                    INIT00       730     A     
 INIT00                                                                                    INIT00       731     A     
 INIT00   **        MOVE FILE VECTOR TABLE TO JOB COMMUNICATIONS AREA, BEGINNING           INIT00       732     A     
 INIT00   *         AT *RA.ARG*.                                                           INIT00       733     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 544    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00       734     A     
 INIT00             MOVE   FVLEN,FVTBL,RA.ARG                                              INIT00       735     A     
 INIT00                                                                                    INIT00       736     A     
 INIT00                                                                                    INIT00       737     A     
 INIT00   **        DEFAULT (CO.DBID) = VALUE OF SYSTEM GLOBAL DEBUG SWITCH.               INIT00       738     A     
 INIT00                                                                                    INIT00       739     A     
 INIT00    #FID     IFEQ   .FID,ON                                                         FC5A158A     387     A     
 INIT00             GETLC  CO.DBID                                                         INIT00       740     A     
 INIT00             SA1    CO.DBID                                                         INIT00       741     A     
 INIT00             MX7    1                                                               INIT00       742     A     
 INIT00             HX1    DC.FID      EXTRACT VALUE OF SWITCH                             INIT00       743     A     
 INIT00             BX6    X7*X1                                                           INIT00       744     A     
 INIT00             SA6    A1                                                              INIT00       745     A     
 INIT00    #FID     ENDIF                                                                  FC5A158A     388     A     
 INIT00                                                                                    INIT00       746     A     
 INIT00                                                                                    INIT00       747     A     
 INIT00   **        OBTAIN  JOB ORIGIN TYPE FROM BITS 24-35 OF RA+66.  IF VALUE IS         INIT00       748     A     
 INIT00   *         0, 1, OR 2, JOT IS TYPE BATCH.  IF GREATER, JOT IS TYPE                INIT00       749     A     
 INIT00   *         TERMINAL.                                                              INIT00       750     A     
 INIT00                                                                                    INIT00       751     A     
 INIT00             SA1    RA.JOT                                                          INIT00       752     A     
 INIT00             MX0    -12                                                             INIT00       753     A     
 INIT00             AX1    24          RIGHT JUSTIFY JOT                                   INIT00       754     A     
 INIT00             BX1    -X0*X1      ISOLATE THAT FIELD                                  INIT00       755     A     
 INIT00             MX7    0                                                               INIT00       756     A     
 INIT00             SX1    X1-3                                                            INIT00       757     A     
 INIT00             MI     X1,MIA10    IF JOT LESS THAN 3 (BATCH)                          INIT00       758     A     
 INIT00             SX7    1           JOT FOR TERMINAL JOB                                INIT00       759     A     
 INIT00    MIA10    SA7    JOT         STORE JOB ORIGIN TYPE                               INIT00       760     A     
 INIT00             EQ     EXIT.       DONE...                                             INIT00       761     A     
 INIT00    MIB      SPACE  4,10                                                            INIT00       762     A     
 INIT00   **        MIB - MISCELLANEOUS INITIALIZATION, PART B.                            INIT00       763     A     
 INIT00   *                                                                                INIT00       764     A     
 INIT00   *         ENTRY  (B1) = 1                                                        INIT00       765     A     
 INIT00   *                                                                                INIT00       766     A     
 INIT00   *         EXIT   (B1) = 1                                                        INIT00       767     A     
 INIT00   *                                                                                INIT00       768     A     
 INIT00   *         USES   ALL                                                             INIT00       769     A     
 INIT00                                                                                    INIT00       770     A     
 INIT00                                                                                    INIT00       771     A     
 INIT00    MIB      SUBR               ...ENTRY/EXIT...                                    INIT00       772     A     
 INIT00                                                                                    F1037F5      282     A     
 INIT00   **        SET A FLAG THAT INDICATES WHETHER OR NOT THE OBJECT TIME               F1037F5      283     A     
 INIT00   *         MACHINE WILL HAVE LCM. (ONLY IF .MI = 1)                               F1037F5      284     A     
 INIT00                                                                                    F1037F5      285     A     
 INIT00    #MI      IFEQ   .MI,1                                                           F1037F5      286     A     
 INIT00             SA1    =XCO.TMLC                                                       F1037F5      287          I
          -FC50844
 INIT00             MX6    0                                                               FC50844       19     A     
 INIT00             SA6    MIBA        (*GETMC* EXPECTS CELL TO CONTAIN ZERO)              FC50844       20     A     
 INIT00             GETMC  MIBA        GET MACHINE CHARACTERISTICS                         FC50844       21     A     
 INIT00             SA2    MIBA                                                            FC50844       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             HX2    MC.800                                                          FC50844       23     A     
 INIT00             MX6    -3*CHAR                                                         FC50844       24     A     
 INIT00             PL     X2,MIB.5    IF NOT 800-SERIES MODEL                             FC50844       25     A     
 INIT00             SX3    3R800       CHANGE TITLE LINE TO INDICATE                       FC50844       26     A     
 INIT00             BX3    -X6*X3       TARGET MACHINE OF 800-SERIES                       FC50844       27     A     
 INIT00             LX6    2*CHAR                                                          FC50844       28     A     
 INIT00             SA1    TL.CPU      *  70/176  *                                        FC50844       29     A     
 INIT00             BX6    X6*X1                                                           FC50844       30     A     
 INIT00             LX3    2*CHAR                                                          FC50844       31     A     
 INIT00             BX6    X6+X3                                                           FC50844       32     A     
 INIT00             SA6    A1                                                              FC50844       33     A     
 INIT00                                                                                    FC50844       34     A     
 INIT00    MIB.5    SA1    CO.TMLC                                                         FC50844       35     A     
 INIT00             ZR     X1,MIB0     IF TM= OR TM OR TM=-LCM APPEARED                    F1037F5      288     A     
 INIT00             MI     X1,MIB0     IF TM=LCM APPEARED ON CONTROL CARD                  F1037F5      289     A     
 INIT00             MX6    0                                                               F1037F5      290          I
          -FC50844
 INIT00             SA6    =XCO.TMLC   (GETMC EXPECTS CELL TO CONTAIN ZERO)                F1037F5      291          I
          -FC50844
 INIT00             GETMC  =XCO.TMLC                                                       F1037F5      292          I
          -FC50844
 INIT00             SA1    =XCO.TMLC                                                       F1037F5      293          I
          -FC50844
 INIT00             MX0    -2                                                              F1037F5      294          I
          -FC50844
 INIT00             LX0    19-1                                                            F1037F5      295          I
          -FC50844
 INIT00             BX6    -X0*X1      X6 = 0 IF NOT 176 MACHINE                           F1037F5      296          I
          -FC50844
 INIT00             SA6    A1          UPDATE THE CELL                                     F1037F5      297          I
          -FC50844
 INIT00             SA2    MIBA                                                            FC50844       36     A     
 INIT00             MX0    -MC.176L-1  MASK SIZE OF (MC.176L + 1)                          FC50844       37     A     
 INIT00             LX0    MC.176P                                                         FC50844       38     A     
 INIT00             BX6    -X0*X2      NZ IF EITHER 176 OR 800-SERIES                      FC50844       39     A     
 INIT00             SA6    A1                                                              FC50844       40     A     
 INIT00    #MI      ENDIF                                                                  F1037F5      298     A     
 INIT00                                                                                    INIT00       773     A     
 INIT00   **        SET NOM.FL                                                             INIT00       774          I
          -FC5A119
 INIT00                                                                                    INIT00       775          I
          -FC5A119
 INIT00             SA1    CO.OPT                                                          INIT00       776          I
          -FC5A119
 INIT00             SA2    NOM.FLS+X1                                                      INIT00       777          I
          -FC5A119
 INIT00             BX6    X2                                                              INIT00       778          I
          -FC5A119
 INIT00             SA6    NOM.FL                                                          INIT00       779          I
          -FC5A119
 INIT00                                                                                    INIT00       780          I
          -FC5A119
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   **        PROCESS EL OPTION.  TRANSFORM EL= T, W, F OR C INTO NUMERIC            INIT00       781     A     
 INIT00   *         VALUES.                                                                INIT00       782     A     
 INIT00                                                                                    INIT00       783     A     
 INIT00             SA1    CO.EL       ERROR LEVEL (ALPHABETIC)                            INIT00       784          I
          -F1037F5
 INIT00    MIB0     SA1    CO.EL       ERROR LEVEL (ALPHABETIC)                            F1037F5      299     A     
 INIT00             BX7    X1                                                              FC5A333       32     A     
 INIT00             LX7    -CHAR                                                           FC5A333       33     A     
 INIT00             SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                             FC5A333       34     A     
 INIT00             SX6    EL=C                                                            INIT00       785     A     
 INIT00             SX3    X1-1RC                                                          INIT00       786     A     
 INIT00             ZR     X3,MIB1     IF EL=CATISTROPHIC                                  INIT00       787     A     
 INIT00             =X6    X6-EL=C+EL=F                                                    INIT00       788     A     
 INIT00             SX3    X1-1RF                                                          INIT00       789     A     
 INIT00             ZR     X3,MIB1     IF EL=FATAL                                         INIT00       790     A     
 INIT00             =X6    X6-EL=F+EL=W                                                    INIT00       791     A     
 INIT00             SX3    X1-1RW                                                          INIT00       792     A     
 INIT00             ZR     X3,MIB1     IF EL=WARNING                                       INIT00       793     A     
 INIT00             =X6    X6-EL=W+EL=T                                                    INIT00       794     A     
 INIT00             SX3    X1-1RT                                                          INIT00       795     A     
 INIT00                                                                                    INIT00       796     A     
 INIT00    .T       IFEQ   TEST,ON                                                         INIT00       797     A     
 INIT00             ZR     X3,MIB1     IF EL=TRIVIAL                                       INIT00       798     A     
 INIT00             =X6    X6-EL=T+EL=D                                                    INIT00       799     A     
 INIT00             SX3    X1-1RD                                                          INIT00       800     A     
 INIT00    .T       ENDIF                                                                  INIT00       801     A     
 INIT00                                                                                    INIT00       802     A     
 INIT00             NZ     X3,E.EL     IF EL= IS IN ERROR                                  INIT00       803     A     
 INIT00                                                                                    FC5A333       35     A     
 INIT00    MIB1     SA6    A1          RESET CO.EL WITH NUMERIC TRANSFORMATION             INIT00       804     A     
 INIT00                                                                                    INIT00       805     A     
 INIT00   **        PROCESS ANSI OPTION.  TRANSFORM ANSI= 0, T OR F INTO NUMERIC           INIT00       806     A     
 INIT00   *         VALUES.                                                                INIT00       807     A     
 INIT00                                                                                    INIT00       808     A     
 INIT00    MIB2     SA1    CO.ANSI     ANSI OPTION (ALPHANUMERIC)                          INIT00       809     A     
 INIT00             BX7    X1                                                              FC5A333       36     A     
 INIT00             LX7    -CHAR                                                           FC5A333       37     A     
 INIT00             SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                             FC5A333       38     A     
 INIT00             =X6    OFF                                                             INIT00       810     A     
 INIT00             SX3    X1-1R0                                                          INIT00       811     A     
 INIT00             ZR     X3,MIB3     IF ANSI=0 (OFF)                                     INIT00       812     A     
 INIT00             =X6    EL=T                                                            INIT00       813     A     
 INIT00             SX3    X1-1RT                                                          INIT00       814     A     
 INIT00             ZR     X3,MIB3     IF ANSI=T                                           INIT00       815     A     
 INIT00             =X6    EL=F                                                            INIT00       816     A     
 INIT00             SX3    X1-1RF                                                          INIT00       817     A     
 INIT00             NZ     X3,E.ANSI   IF ANSI= IN ERROR                                   INIT00       818     A     
 INIT00                                                                                    FC5A333       39     A     
 INIT00    MIB3     SA6    A1          RESET CO.ANSI WITH NUMERIC TRANSFORMATION           INIT00       819     A     
 INIT00                                                                                    INIT00       820     A     
 INIT00   **        IF QUICK CHECK (QC OPTION) SELECTED, CLEAR BINARY                      INIT00       821     A     
 INIT00   *         OUTPUT FILE NAME.                                                      INIT00       822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00       823     A     
 INIT00    MIB4     SA1    CO.QC                                                           INIT00       824     A     
 INIT00             ZR     X1,MIB5     IF QC OPTION OFF                                    INIT00       825     A     
 INIT00             BX6    OFF                                                             INIT00       826     A     
 INIT00             SA6    CO.B        CLEAR BINARY OUTPUT FILE NAME                       INIT00       827     A     
 INIT00                                                                                    INIT00       828     A     
 INIT00   **        RESOLVE ANY CONFLICT IN ARG=COMMON/FIXED.                              INIT00       829     A     
 INIT00                                                                                    INIT00       830     A     
 INIT00    MIB5     SA1    CO.ARGC                                                         INIT00       831     A     
 INIT00             SA2    CO.ARGF                                                         INIT00       832     A     
 INIT00             MX6    0                                                               FC5A333       40     A     
 INIT00             BX1    X1*X2                                                           INIT00       833     A     
 INIT00             NZ     X1,E.ARG    IF BOTH COMMON AND FIXED SPECIFIED                  INIT00       834     A     
 INIT00                                                                                    INIT00       835     A     
 INIT00   **        PROCESS THE MD OPTION. TRANSFORM MD= 0, T, OR F INTO                   F1037F5      300     A     
 INIT00   *         NUMERIC VALUES.                                                        F1037F5      301     A     
 INIT00                                                                                    F1037F5      302     A     
 INIT00    MIB7     SA1    CO.MD       MD OPTION (ALPHANUMERIC)                            F1037F5      303     A     
 INIT00             BX7    X1                                                              FC5A333       41     A     
 INIT00             LX7    -CHAR                                                           FC5A333       42     A     
 INIT00             SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                             FC5A333       43     A     
 INIT00             =X6    OFF                                                             F1037F5      304     A     
 INIT00             SX3    X1-1R0                                                          F1037F5      305     A     
 INIT00             ZR     X3,MIB9     IF MD = 0  (OFF)                                    F1037F5      306     A     
 INIT00             =X6    EL=T                                                            F1037F5      307     A     
 INIT00             SX3    X1-1RT                                                          F1037F5      308     A     
 INIT00             ZR     X3,MIB9     IF MD = T                                           F1037F5      309     A     
 INIT00             =X6    EL=F                                                            F1037F5      310     A     
 INIT00             SX3    X1-1RF                                                          F1037F5      311     A     
 INIT00             NZ     X3,E.MD     IF MD= IN ERROR                                     F1037F5      312     A     
 INIT00                                                                                    F1037F5      313     A     
 INIT00    MIB9     SA6    A1          RESET CO.MD WITH NUMERIC TRANSFORMATION             F1037F5      314     A     
 INIT00                                                                                    F1037F5      315     A     
 INIT00   **        IF L=0 TURN OFF ALL LIST OPTIONS.                                      INIT00       836     A     
 INIT00                                                                                    INIT00       837     A     
 INIT00    MIB10    BSS                                                                    INIT00       838     A     
 INIT00             SA1    CO.L                                                            INIT00       839     A     
 INIT00             NZ     X1,MIB12    IF L NOT 0                                          INIT00       840     A     
 INIT00             BX6    OFF                                                             INIT00       841     A     
 INIT00             SA6    CP.LSTF                                                         INIT00       842     A     
 INIT00             SA6    CO.LOA                                                          INIT00       843     A     
 INIT00             SA6    CO.LOM                                                          INIT00       844     A     
 INIT00             SA6    CO.LOO                                                          INIT00       845     A     
 INIT00             SA6    CO.LOR                                                          INIT00       846     A     
 INIT00             SA6    CO.LOS                                                          INIT00       847     A     
 INIT00             EQ     MIB20                                                           INIT00       848     A     
 INIT00                                                                                    INIT00       849     A     
 INIT00    MIB12    SX6    1                                                               INIT00       850     A     
 INIT00             SA6    CP.LSTF                                                         INIT00       851     A     
 INIT00                                                                                    INIT00       852     A     
 INIT00                                                                                    INIT00       853     A     
 INIT00   **        SET OVERLAY MODE                                                       INIT00       854     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00       855     A     
 INIT00    MIB20    SA1    CO.OPT                                                          INIT00       856     A     
 INIT00             SA2    CO.LOO                                                          INIT00       857     A     
 INIT00             SA3    CO.LOM                                                          INIT00       858     A     
 INIT00             SA4    CO.LOA                                                          INIT00       859     A     
 INIT00             SA5    CO.LOR                                                          INIT00       860     A     
 INIT00             BX6    X1+X2                                                           INIT00       861     A     
 INIT00             BX6    X6+X3                                                           INIT00       862     A     
 INIT00             BX6    X6+X4                                                           INIT00       863     A     
 INIT00             BX6    X6+X5                                                           INIT00       864     A     
 INIT00             SA6    FTNOVM      .EQ. 0 IF SHORT MODE, .NZ. IF LONG MODE             INIT00       865     A     
 INIT00                                                                                    INIT00       866     A     
 INIT00                                                                                    INIT00       867     A     
 INIT00   **        PROCESS ET OPTION.  TRANSFORM ET= 0, T, W, F OR C INTO NUMERIC         INIT00       868     A     
 INIT00   *         VALUES.                                                                INIT00       869     A     
 INIT00                                                                                    INIT00       870     A     
 INIT00             SA1    CO.ET       ERROR TERMINATION (ALPHANUMERIC)                    INIT00       871     A     
 INIT00             MX7    OFF                                                             INIT00       872     A     
 INIT00             =X6    OFF                                                             INIT00       873     A     
 INIT00             SX3    X1-1R0                                                          INIT00       874     A     
 INIT00             ZR     X3,MIB21    IF ET=0 (OFF)                                       INIT00       875     A     
 INIT00             BX6    X1                                                              FC5A333       44     A     
 INIT00             LX6    -CHAR                                                           FC5A333       45     A     
 INIT00             SA6    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                             FC5A333       46     A     
 INIT00             MX7    ON                                                              INIT00       876     A     
 INIT00             SX6    EL=C                                                            INIT00       877     A     
 INIT00             SX3    X1-1RC                                                          INIT00       878     A     
 INIT00             ZR     X3,MIB21    IF ET=CATASTROPHIC                                  INIT00       879     A     
 INIT00             SX6    X6-EL=C+EL=F                                                    INIT00       880     A     
 INIT00             SX3    X1-1RF                                                          INIT00       881     A     
 INIT00             ZR     X3,MIB21    IF ET=FATAL                                         INIT00       882     A     
 INIT00             SX6    X6-EL=F+EL=W                                                    INIT00       883     A     
 INIT00             SX3    X1-1RW                                                          INIT00       884     A     
 INIT00             ZR     X3,MIB21    IF ET=WARNING                                       INIT00       885     A     
 INIT00             SX6    X6-EL=W+EL=T                                                    INIT00       886     A     
 INIT00             SX3    X1-1RT                                                          INIT00       887     A     
 INIT00             NZ     X3,E.ET     IF ET= IS IN ERROR                                  INIT00       888     A     
 INIT00                                                                                    FC5A333       47     A     
 INIT00    MIB21    SA6    A1          RESET CO.ET WITH NUMERIC TRANSFORMATION             INIT00       889     A     
 INIT00             LX7    59-29                                                           INIT00       890     A     
 INIT00             SA1    CP.ABT                                                          INIT00       891     A     
 INIT00             MX3    59                                                              INIT00       892     A     
 INIT00             LX3    29                                                              INIT00       893     A     
 INIT00             BX1    X3*X1                                                           INIT00       894     A     
 INIT00             BX7    X1+X7       ADD IN ABORT FLAG                                   INIT00       895     A     
 INIT00             SA7    A1                                                              INIT00       896     A     
 INIT00                                                                                    INIT00       897     A     
 INIT00   **        CHANGE FILE NAMES.                                                     INIT00       898     A     
 INIT00                                                                                    INIT00       899     A     
 INIT00    MIB22    BSS                                                                    INIT00       900     A     
 INIT00                                                                                    INIT00       901     A     
 INIT00                                                                                    INIT00       902     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    .CFN     ECHO   ,A=(B,I,L,E),B=(LGO,IN,OUT,ERRS)                                INIT00       903     A     
 INIT00             SA1    =XCO._A                                                         INIT00       904     A     
 INIT00             SA2    =XFV._B                                                         INIT00       905     A     
 INIT00             BX6    X1                                                              INIT00       906     A     
 INIT00             RJ     CFN                                                             INIT00       907     A     
 INIT00    .CFN     ENDD                                                                   INIT00       908     A     
 INIT00                                                                                    INIT00       909     A     
 INIT00                                                                                    INIT00       910     A     
 INIT00   **        ADJUST OPT LEVEL                                                       INIT00       911     A     
 INIT00                                                                                    INIT00       912     A     
 INIT00             SA2    CO.OPT                                                          INIT00       913     A     
 INIT00             SX2    X2-3                                                            INIT00       914     A     
 INIT00             NZ     X2,MIB30    IF OPT .NE. 3                                       INIT00       915     A     
 INIT00             =X6    ON                                                              INIT00       916     A     
 INIT00             SA6    CO.UO       TURN UO ON                                          INIT00       917     A     
 INIT00             =X6    2                                                               INIT00       918     A     
 INIT00             SA6    A2          SET OPT = 2                                         INIT00       919     A     
 INIT00                                                                                    INIT00       920     A     
 INIT00                                                                                    INIT00       921     A     
 INIT00   **        CHECK FOR B=0 AND GO SELECTION.                                        INIT00       922     A     
 INIT00                                                                                    INIT00       923     A     
 INIT00    MIB30    BSS                                                                    INIT00       924     A     
 INIT00             SA2    CO.GO                                                           INIT00       925     A     
 INIT00             ZR     X2,MIB40    IF GO NOT SELECTED                                  INIT00       926     A     
 INIT00             SA3    FV.LGO                                                          INIT00       927     A     
 INIT00             NZ     X3,MIB35    IF B SELECTED                                       INIT00       928     A     
 INIT00             SX6    0                                                               FC5A333       48     A     
 INIT00             EQ     E.BGO       B=0 AND GO IS INCONSISTENT                          INIT00       929     A     
 INIT00                                                                                    INIT00       930     A     
 INIT00                                                                                    INIT00       931     A     
 INIT00   **        IF AUTOMATIC EXECUTION (GO) SELECTED, MOVE THE BINARY                  INIT00       932     A     
 INIT00   *         OUTPUT FILE NAME TO THE GO FLAG CELL.                                  INIT00       933     A     
 INIT00                                                                                    INIT00       934     A     
 INIT00    MIB35    SA2    FV.LGO                                                          INIT00       935     A     
 INIT00             MX1    7*CHAR                                                          INIT00       936     A     
 INIT00             BX6    X1*X2                                                           INIT00       937     A     
 INIT00             SA6    CO.GO       UPDATE GO NAME                                      INIT00       938     A     
 INIT00                                                                                    INIT00       939     A     
 INIT00                                                                                    INIT00       940     A     
 INIT00   **        SET UP DB=ER OPTION.                                                   INIT00       941     A     
 INIT00                                                                                    INIT00       942     A     
 INIT00    MIB40    BSS                                                                    INIT00       943     A     
 INIT00             SX0    2RER                                                            INIT00       944     A     
 INIT00             SA1    CO.DBER                                                         INIT00       945     A     
 INIT00             IX2    X0-X1                                                           INIT00       946     A     
 INIT00             ZR     X2,MIB41    IF DB=ER NOT ON CONTROL STATEMENT                   INIT00       947     A     
 INIT00             BX6    X1                                                              INIT00       948     A     
 INIT00             EQ     MIB43       SET ER OPTION                                       INIT00       949     A     
 INIT00                                                                                    INIT00       950     A     
 INIT00    MIB41    SA2    CO.OPT                                                          INIT00       951     A     
 INIT00             SB7    X2+MIB42                                                        INIT00       952     A     
 INIT00             JP     B7                                                              INIT00       953     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 550    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00       954     A     
 INIT00    MIB42    BSS                                                                    INIT00       955     A     
 INIT00   +         MX6    "BV.DBER0"  OPT=0                                               INIT00       956     A     
 INIT00             EQ     MIB43                                                           INIT00       957     A     
 INIT00   +         MX6    "BV.DBER1"  OPT=1                                               INIT00       958     A     
 INIT00             EQ     MIB43                                                           INIT00       959     A     
 INIT00   +         MX6    "BV.DBER2"  OPT=2                                               INIT00       960     A     
 INIT00                                                                                    INIT00       961     A     
 INIT00    MIB43    SA6    CO.DBER                                                         INIT00       962     A     
 INIT00                                                                                    INIT00       963     A     
 INIT00                                                                                    INIT00       964     A     
 INIT00   **        CONVERT LCM OPTION VALUE. (G,D,I) = (-1,0,+1)                          INIT00       965     A     
 INIT00                                                                                    INIT00       966     A     
 INIT00    MIB50    BSS                                                                    INIT00       967     A     
 INIT00             SA1    CO.LCM                                                          INIT00       968     A     
 INIT00             BX7    X1                                                              FC5A333       49     A     
 INIT00             LX7    -CHAR                                                           FC5A333       50     A     
 INIT00             SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                             FC5A333       51     A     
 INIT00             SX6    1                                                               INIT00       969     A     
 INIT00             SX3    X1-1RI                                                          INIT00       970     A     
 INIT00             ZR     X3,MIB51    IF I                                                INIT00       971     A     
 INIT00             BX6    0                                                               INIT00       972     A     
 INIT00             SX3    X1-1RD                                                          INIT00       973     A     
 INIT00             ZR     X3,MIB51    IF D                                                INIT00       974     A     
 INIT00             SX6    -1                                                              INIT00       975     A     
 INIT00             SX3    X1-1RG                                                          INIT00       976     A     
 INIT00             NZ     X3,E.LCM    IF NOT G                                            INIT00       977     A     
 INIT00                                                                                    FC5A333       52     A     
 INIT00    MIB51    SA6    CO.LCM      STORE CONVERTED VALUE                               INIT00       978     A     
 INIT00                                                                                    INIT00       979          I
          -FC5A333
 INIT00             =B2    X6+1                                                            INIT00       980     A     
 INIT00             MX6    ON                                                              INIT00       981     A     
 INIT00             NZ     B2,MIB53    IF NOT LCM=G                                        INIT00       982     A     
 INIT00             SA6    CO.DOLG     LCM=G IMPLIES DO=LONG                               INIT00       983     A     
 INIT00                                                                                    INIT00       984     A     
 INIT00   **        CONVERT CS OPTION VALUE.  USER=1, FIXED=0.                             INIT00       985     A     
 INIT00                                                                                    INIT00       986     A     
 INIT00    MIB53    SA1    CO.CS                                                           INIT00       987     A     
 INIT00             SA2    =4LUSER                                                         INIT00       988     A     
 INIT00             =X6    1                                                               INIT00       989     A     
 INIT00             IX3    X1-X2                                                           INIT00       990     A     
 INIT00             ZR     X3,MIB55    IF USER                                             INIT00       991     A     
 INIT00             SA2    =5LFIXED                                                        INIT00       992     A     
 INIT00             =X6    0                                                               INIT00       993     A     
 INIT00             IX3    X1-X2                                                           INIT00       994     A     
 INIT00             NZ     X3,E.CS     IF NOT FIXED                                        INIT00       995     A     
 INIT00                                                                                    FC5A333       53     A     
 INIT00    MIB55    SA6    CO.CS       STORE CONVERTED VALUE                               INIT00       996     A     
 INIT00                                                                                    INIT00       997     A     
 INIT00   **        TOGLE CP.PAGE BIT 59 TO KEEP COMPASS PAGINATION CONSISTENT             INIT00       998     A     
 INIT00   *         WITH FTN5 PAGINATION.                                                  INIT00       999     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    INIT00      1000     A     
 INIT00    MIB70    SA4    CP.PAGE                                                         INIT00      1001     A     
 INIT00             MX7    1                                                               INIT00      1002     A     
 INIT00             BX7    X7-X4                                                           INIT00      1003     A     
 INIT00             SA7    A4                                                              INIT00      1004     A     
 INIT00                                                                                    INIT00      1005     A     
 INIT00                                                                                    INIT00      1006     A     
 INIT00                                                                                    INIT00      1007     A     
 INIT00   **        CONVERT PD AND PS OPTIONS.                                             INIT00      1008     A     
 INIT00                                                                                    INIT00      1009     A     
 INIT00             SA4    CO.PD                                                           INIT00      1010     A     
 INIT00             ZR     X4,MIB72    IF DID NOT APPEAR                                   INIT00      1011          I
          -FC5A426
 INIT00             SX1    1RS                                                             INIT00      1012          I
          -FC5A187
 INIT00             SX1    0           SYSTEM ALWAYS 6                                     FC5A187       15          I
          -FC5A426
 INIT00             SX1    1RS                                                             FC5A426       66     A     
 INIT00             SX3    6                                                               INIT00      1013     A     
 INIT00             IX2    X4-X3                                                           INIT00      1014     A     
 INIT00             ZR     X2,MIB71    IF PD = 6                                           INIT00      1015     A     
 INIT00             SX1    1RT                                                             INIT00      1016     A     
 INIT00             SX3    8                                                               INIT00      1017     A     
 INIT00             IX2    X4-X3                                                           INIT00      1018     A     
 INIT00             MX6    0                                                               FC5A333       54     A     
 INIT00             ZR     X2,MIB71    IF PD = 8                                           INIT00      1019     A     
 INIT00             EQ     E.PD                                                            INIT00      1020     A     
 INIT00                                                                                    INIT00      1021     A     
 INIT00    MIB71    LX1    -CHAR                                                           INIT00      1022     A     
 INIT00             BX6    X1                                                              INIT00      1023     A     
 INIT00             SA6    CP.PD                                                           INIT00      1024     A     
 INIT00             SA2    CO.PS                                                           INIT00      1025          I
          -FC5A426
 INIT00    MIB72    SA2    CO.PS                                                           FC5A426       67     A     
 INIT00             BX6    X2                                                              INIT00      1026     A     
 INIT00             PL     X2,MIB73    IF PS ALREADY PROCESSED                             INIT00      1027          I
          -FC5A426
 INIT00             SX1    IP.PS                                                           INIT00      1028          I
          -FC5A426
 INIT00             SX2    IP.PD                                                           INIT00      1029          I
          -FC5A426
 INIT00             IX1    X1/X2                                                           INIT00      1030          I
          -FC5A426
 INIT00             IX6    X1*X3                                                           INIT00      1031          I
          -FC5A426
 INIT00             SA6    CP.PS       PS = PD*(IP.PS/IP.PD)                               INIT00      1032          I
          -FC5A107
 INIT00             SA6    CO.PS       PS = PD*(IP.PS/IP.PD)                               FC5A107       13          I
          -FC5A426
 INIT00                                                                                    FC5A333       55          I
          -FC5A426
 INIT00    MIB72    SA5    CO.PS                                                           INIT00      1033          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
          -FC5A426
 INIT00             BX6    X5                                                              INIT00      1034          I
          -FC5A426
 INIT00             PL     X5,MIB73    IF PS SET                                           INIT00      1035          I
          -FC5A426
 INIT00             SX6    IP.PS                                                           INIT00      1036          I
          -FC5A426
 INIT00                                                                                    FC5A333       56          I
          -FC5A426
 INIT00    MIB73    SX6    X6-3        ALLOW FOR HEADER                                    INIT00      1037          I
          -FC5A107
 INIT00    MIB73    BX7    -X6         FOR COMPASS                                         FC5A107       14          I
          -FC5A426
 INIT00             BX7    -X6         FOR COMPASS                                         FC5A426       68     A     
 INIT00             SX6    X6-3        ALLOW FOR HEADER (FTN5)                             FC5A107       15     A     
 INIT00             ZR     X6,E.PS     IF PS .LT. 4                                        FC5A282        5     A     
 INIT00             MI     X6,E.PS     IF PS .LT. 4                                        INIT00      1038     A     
 INIT00                                                                                    FC5A333       57     A     
 INIT00    MIB75    SA6    CP.PS                                                           INIT00      1039          I
          -FC5A107
 INIT00    MIB75    SA6    CO.PS                                                           FC5A107       16     A     
 INIT00             SA7    CP.PS                                                           FC5A107       17     A     
 INIT00                                                                                    INIT00      1040     A     
 INIT00   *         DIAGNOSE OUT-OF-RANGE PRINT LIMIT.                                     FC50049       11     A     
 INIT00                                                                                    FC50049       12     A     
 INIT00             SA1    CO.LL                                                           FC50049       13     A     
 INIT00             SA2    =999999999                                                      FC50049       14     A     
 INIT00             IX6    X2-X1                                                           FC50049       15     A     
 INIT00             MI     X6,E.PL     IF PL GT 999999999                                  FC50049       16     A     
 INIT00                                                                                    FC50049       17     A     
 INIT00    MIB80    BSS    0                                                               FC50049       18     A     
 INIT00                                                                                    INIT00      1041     A     
 INIT00   **        CONVERT DO OPTION FLAGS FROM SWITCHES TO VALUES.                       INIT00      1042     A     
 INIT00                                                                                    INIT00      1043     A     
 INIT00             SA1    CO.DOLG                                                         INIT00      1044     A     
 INIT00             SA2    CO.DOOT                                                         INIT00      1045     A     
 INIT00             LX6    X1,B1                                                           INIT00      1046     A     
 INIT00             LX7    X2,B1                                                           INIT00      1047     A     
 INIT00             SA6    A1                                                              INIT00      1048     A     
 INIT00             SA7    A2                                                              INIT00      1049     A     
 INIT00                                                                                    INIT00      1050     A     
 INIT00                                                                                    FC5A155       10     A     
 INIT00   **        DETECT INTERACTIVE DEBUG WITHOUT OPT=0.                                FC5A155       11     A     
 INIT00                                                                                    FC5A155       12     A     
 INIT00             SA2    CO.OPT                                                          FC5A155       13     A     
 INIT00             ZR     X2,MIB100   IF OPT=0                                            FC5A155       14     A     
 INIT00             SA2    CO.DBID                                                         FC5A155       15     A     
 INIT00             SA3    CO.DBST                                                         FC5A155       16     A     
 INIT00             BX3    X2+X3                                                           FC5A155       17     A     
 INIT00             NZ     X3,E.ID     ** INTERACTIVE DEBUG REQUIRES OPT=0                 FC5A155       18     A     
 INIT00                                                                                    FC5A155       19     A     
 INIT00                                                                                    INIT00      1051     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   **        MOVE OPT LEVEL TO TITLE LINE.                                          INIT00      1052     A     
 INIT00                                                                                    INIT00      1053     A     
 INIT00    MIB100   BSS                                                                    INIT00      1054     A     
 INIT00             SA3    =4LOPT=                                                         INIT00      1055          I
          -F1039  
 INIT00             SA3    TL.CSOP                                                         F1039        204     A     
 INIT00             SA2    CO.OPT      OPTIMIZATION LEVEL                                  INIT00      1056     A     
 INIT00             SA1    CO.UO                                                           INIT00      1057     A     
 INIT00             ZR     X1,MIB102   IF OPT = 3 NOT SELECTED                             INIT00      1058     A     
 INIT00             SX2    3                                                               INIT00      1059     A     
 INIT00                                                                                    INIT00      1060     A     
 INIT00    MIB102   SX1    1R0                                                             INIT00      1061     A     
 INIT00             MX0    1*CHAR                                                          F1039        205     A     
 INIT00             IX1    X1+X2                                                           INIT00      1062     A     
 INIT00             LX0    6*CHAR                                                          F1039        206     A     
 INIT00             LX1    5*CHAR                                                          INIT00      1063     A     
 INIT00             BX3    -X0*X3                                                          F1039        207     A     
 INIT00             BX6    X3+X1                                                           INIT00      1064     A     
 INIT00             SA1    =5R                                                             INIT00      1065          I
          -F1039  
 INIT00             BX6    X6+X1                                                           INIT00      1066          I
          -F1039  
 INIT00             SA6    TL.CSOP                                                         INIT00      1067     A     
 INIT00             SA6    A6+L.TITL   INSERT OPTIONS INTO E-LIST HEADER                   INIT00      1068          I
          -F1039  
 INIT00             SA6    A6+ERFO     INSERT OPTIONS INTO E-LIST HEADER                   F1039        208     A     
 INIT00                                                                                    INIT00      1069     A     
 INIT00                                                                                    INIT00      1070     A     
 INIT00   **        DETERMINE PRESENT COMPUTER MODEL AND PLACE IN TITLE LINE.              INIT00      1071     A     
 INIT00                                                                                    INIT00      1072     A     
 INIT00             MX1    1                                                               INIT00      1073     A     
 INIT00             SB2    1S6                                                             INIT00      1074     A     
 INIT00             AX1    B2                                                              INIT00      1075     A     
 INIT00             SX3    6                                                               INIT00      1076     A     
 INIT00             MI     X1,MIB112   IF MODEL 76 / 7600                                  INIT00      1077     A     
 INIT00             SX6    0220B                                                           INIT00      1078     A     
 INIT00             SB2    MIB112                                                          INIT00      1079     A     
 INIT00             LX6    48                                                              INIT00      1080     A     
 INIT00   +         SA6    *+1         STORE *JP B2* INSTRUCTION                           INIT00      1081          I
          -FC5A464
 INIT00             BX4    X6          FORM  +         JP     B2                           FC5A464       10     A     
 INIT00             LX4    30                -         JP     B2                           FC5A464       11     A     
 INIT00             BX6    X4+X6                                                           FC5A464       12     A     
 INIT00   +         SA6    *+1         STORE *JP B2* (BOTH UPPER AND LOWER)                FC5A464       13     A     
 INIT00             SX3    3                                                               INIT00      1082     A     
 INIT00   +         SX3    4           EXECUTE IF MODEL 74/6600, JUMP IF 73/6400           INIT00      1083     A     
 INIT00                                                                                    FC5A333       58     A     
 INIT00    MIB112   SA1    TL.CPU        *  70/7X   *                                      INIT00      1084     A     
 INIT00             LX3    6*6                                                             INIT00      1085     A     
 INIT00             IX6    X1+X3                                                           INIT00      1086     A     
 INIT00             SA6    A1          CURRENT CPU TYPE TO TITLE LINE                      INIT00      1087     A     
 INIT00             SA6    A6+L.TITL   INSERT TYPE INTO ERROR LIST HEADER                  INIT00      1088          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
          -F1039  
 INIT00             SA6    A6+ERFO     INSERT TYPE INTO ERROR LIST HEADER                  F1039        209     A     
 INIT00             SX4    2R70                                                            INIT00      1089     A     
 INIT00             LX4    8*CHAR                                                          INIT00      1090     A     
 INIT00             LX3    2*CHAR                                                          INIT00      1091     A     
 INIT00             IX6    X3+X4                                                           INIT00      1092     A     
 INIT00             SA6    CP.CPU                                                          INIT00      1093     A     
 INIT00                                                                                    INIT00      1094     A     
 INIT00                                                                                    INIT00      1095     A     
 INIT00   **        REMOVE PERIOD FROM END OF TIME IN TITLE LINE.                          INIT00      1096     A     
 INIT00                                                                                    INIT00      1097     A     
 INIT00             SA1    TL.TIME                                                         INIT00      1098     A     
 INIT00             SX2    1R                                                              INIT00      1099     A     
 INIT00             MX3    9*CHAR                                                          INIT00      1100     A     
 INIT00             BX1    X3*X1                                                           INIT00      1101     A     
 INIT00             BX6    X1+X2                                                           INIT00      1102     A     
 INIT00             SA6    A1          BLANK FINAL PERIOD IN TIME                          INIT00      1103     A     
 INIT00             SA6    A1+L.TITL   ALSO IN ERROR LIST HEADER                           INIT00      1104          I
          -F1039  
 INIT00             SA6    A6+ERFO     ALSO IN ERROR LIST HEADER                           F1039        210     A     
 INIT00                                                                                    INIT00      1105     A     
 INIT00                                                                                    INIT00      1106     A     
 INIT00    .RM      IFEQ   CP#RM,0     IF CIO I/O                                          INIT00      1107     A     
 INIT00                                                                                    INIT00      1108     A     
 INIT00                                                                                    INIT00      1109     A     
 INIT00   *         IF IN SHORT OVERLAY MODE, MINIMIZE INPUT AND OUTPUT BUFFER LEN         INIT00      1110     A     
 INIT00                                                                                    INIT00      1111     A     
 INIT00             SA1    FTNOVM                                                          INIT00      1112     A     
 INIT00             NZ     X1,MIB120   IF LONG MODE                                        INIT00      1113     A     
 INIT00             SX7    Z.INSB      INPUT BUFFER LENGTH                                 INIT00      1114     A     
 INIT00             SX6    Z.OUTSB     OUTPUT BUFFER LENGTH                                INIT00      1115     A     
 INIT00             LX7    18                                                              INIT00      1116     A     
 INIT00             LX6    18                                                              INIT00      1117     A     
 INIT00             SA7    F.IN+I.CBSET                                                    INIT00      1118     A     
 INIT00             SA6    F.OUT+I.CBSET                                                   INIT00      1119     A     
 INIT00             SB2    IBUF+Z.INSB                                                     INIT00      1120     A     
 INIT00             SETFIL FILE=F.OUT,MODE=INIT,FWA=B2                                     INIT00      1121     A     
 INIT00             SETFIL FILE=F.IN,MODE=INIT,FWA=IBUF                                    INIT00      1122     A     
 INIT00    .RM      ENDIF                                                                  FC5A158A     389     A     
 INIT00                                                                                    INIT00      1123     A     
 INIT00                                                                                    INIT00      1124     A     
 INIT00   *         CARVE SPACE FOR EFILE BUFFER IF EFILE .NE. LFILE.                      INIT00      1125     A     
 INIT00                                                                                    INIT00      1126     A     
 INIT00    MIB120   SA1    CO.L                                                            INIT00      1127          I
          -FC50022
 INIT00    CLFN     MACRO  LFN1,LFN2                                                       FC50022        8     A     
 INIT00             LOCAL  EXIT                                                            FC50022        9     A     
 INIT00             SA1    CO.LFN1                                                         FC50022       10     A     
 INIT00             SA2    CO.LFN2                                                         FC50022       11     A     
 INIT00             ZR     X1,EXIT     IF LFN1 = 0                                         FC50022       12     A     
 INIT00             ZR     X2,EXIT     IF LFN2 = 0                                         FC50022       13     A     
 INIT00             BX1    X1-X2                                                           FC50022       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             ZR     X1,E.LFNC   IF LFN1 = LFN2                                      FC50022       15     A     
 INIT00    EXIT     BSS    0                                                               FC50022       16     A     
 INIT00    CLFN     ENDM                                                                   FC50022       17     A     
 INIT00                                                                                    FC50022       18     A     
 INIT00    CO.X     EQU    CP.XTXT                                                         FC50022       19     A     
 INIT00                                                                                    FC50022       20     A     
 INIT00    MIB120   BSS    0                                                               FC50022       21     A     
 INIT00             SX6    0                                                               FC5A333       59     A     
 INIT00             SA6    ERR.FLD     CLEAR FOR DIAGNOSTICS                               FC5A333       60     A     
 INIT00             CLFN   B,I                                                             FC50022       22     A     
 INIT00             CLFN   B,L                                                             FC50022       23     A     
 INIT00             CLFN   B,E                                                             FC50022       24     A     
 INIT00             CLFN   I,L                                                             FC50022       25     A     
 INIT00             CLFN   I,E                                                             FC50022       26     A     
 INIT00             CLFN   X,B                                                             FC50022       27     A     
 INIT00             CLFN   X,L                                                             FC50022       28     A     
 INIT00             CLFN   X,I                                                             FC50022       29     A     
 INIT00             CLFN   X,E                                                             FC50022       30     A     
 INIT00             SA1    CO.L                                                            FC50022       31     A     
 INIT00             SA2    CO.E                                                            INIT00      1128     A     
 INIT00             ZR     X2,E.EF     E=0 IS ILLEGAL                                      INIT00      1129     A     
 INIT00             SA3    CO.I                                                            FC5A173       26     A     
 INIT00             ZR     X3,E.IZ     E=0 ILLEGAL                                         FC5A173       27     A     
 INIT00             SA3    CP.XTXT                                                         FC5A173       28     A     
 INIT00             ZR     X3,E.XZ     X=0 ILLEGAL                                         FC5A173       29     A     
 INIT00             BX1    X1-X2                                                           INIT00      1130     A     
 INIT00             =X6    1                                                               INIT00      1131     A     
 INIT00             ZR     X1,MIB125   IF EFILE = LFILE                                    INIT00      1132     A     
 INIT00             SA6    ENOT=L      SET FLAG                                            INIT00      1133     A     
 INIT00                                                                                    FC5A158A     390     A     
 INIT00    .RM      IFEQ   CP#RM,0     IF CIO I/O                                          FC5A158A     391     A     
 INIT00             SA1    F.OUT+I.CBSET     X1 = OLD LENGTH OF LFILE BUFFER               INIT00      1134     A     
 INIT00             LX1    -18                                                             INIT00      1135     A     
 INIT00             SX1    X1                                                              INIT00      1136     A     
 INIT00             SA2    A1-I.CBSET+I.FIRST                                              INIT00      1137     A     
 INIT00             SX2    X2          X2 = FWA OF LFILE BUFFER                            INIT00      1138     A     
 INIT00             BX7    X1                                                              INIT00      1139     A     
 INIT00             AX7    1           X7 =  LENGTH OF EFILE BUFFER                        INIT00      1140     A     
 INIT00             IX6    X1-X7       X6 = NEW LENGTH OF LFILE BUFFER                     INIT00      1141     A     
 INIT00             IX5    X2+X6       X5 = FWA OF EFILE BUFFER, LWA+1 OF LFILE            INIT00      1142     A     
 INIT00             LX6    18                                                              INIT00      1143     A     
 INIT00             LX7    18                                                              INIT00      1144     A     
 INIT00             SA6    F.OUT+I.CBSET                                                   INIT00      1145     A     
 INIT00             SA7    F.ERRS+I.CBSET                                                  INIT00      1146     A     
 INIT00             SETFIL FILE=F.ERRS,MODE=INIT,FWA=X5                                    INIT00      1147     A     
 INIT00             SETFIL FILE=F.OUT,MODE=INIT,LWA1=X5                                    INIT00      1148     A     
 INIT00   .RM       ENDIF                                                                  INIT00      1149     A     
 INIT00                                                                                    INIT00      1150     A     
 INIT00                                                                                    INIT00      1151     A     
 INIT00   *         IF QCG WAS SELECTED, RESET BUFFER SIZES.                               INIT00      1152     A     
 INIT00                                                                                    INIT00      1153     A     
 INIT00    MIB125   SA1    CO.OPT                                                          INIT00      1154     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             NZ     X1,MIB130   IF CCG SELECTED                                     INIT00      1155     A     
 INIT00             SX6    Z.LGOQB     QCG MINIMAL BUFFER LENGTH                           INIT00      1156     A     
 INIT00             LX6    18                                                              INIT00      1157     A     
 INIT00                                                                                    INIT00      1158     A     
 INIT00             IFEQ   CP#RM,0,2   IF CIO I/O                                          INIT00      1159     A     
 INIT00             SA6    F.LGO+I.CBSET                                                   INIT00      1160     A     
 INIT00             SKIP   1           SKIP 7RM CODE                                       INIT00      1161     A     
 INIT00             SA6    F.LGO+I.HBSET                                                   INIT00      1162     A     
 INIT00                                                                                    INIT00      1163     A     
 INIT00             SX6    Z.PBQB      QCG MINIMAL BUFFER LENGTH                           INIT00      1164     A     
 INIT00             LX6    18                                                              INIT00      1165     A     
 INIT00             IFEQ   CP#RM,0,2   IF CIO I/O                                          FC50735        4     A     
 INIT00             SA6    F.PB+I.CBSET                                                    INIT00      1166     A     
 INIT00             SKIP   1           SKIP 7RM CODE                                       INIT00      1167     A     
 INIT00             SA6    F.PB+I.HBSET                                                    INIT00      1168     A     
 INIT00             SX6    Z.REFQB     MINIMAL QCG BUFFER LENGTH                           INIT00      1169     A     
 INIT00             LX6    18                                                              INIT00      1170     A     
 INIT00                                                                                    INIT00      1171     A     
 INIT00             IFEQ   CP#RM,0,2   IF CIO I/O                                          INIT00      1172     A     
 INIT00             SA6    F.REF+I.CBSET                                                   INIT00      1173     A     
 INIT00             SKIP   1           SKIP 7RM CODE                                       INIT00      1174     A     
 INIT00             SA6    F.REF+I.HBSET                                                   INIT00      1175     A     
 INIT00                                                                                    INIT00      1176     A     
 INIT00   *         FORCE LCM=I FOR QCG.                                                   INIT00      1177          I
          -FC5A132
 INIT00                                                                                    INIT00      1178          I
          -FC5A132
 INIT00             SX6    -1                                                              INIT00      1179          I
          -FC5A132
 INIT00             SA6    CO.LCM                                                          INIT00      1180          I
          -FC5A132
 INIT00                                                                                    INIT00      1181          I
          -FC5A132
 INIT00    MIB130   BSS                                                                    INIT00      1182     A     
 INIT00                                                                                    INIT00      1183     A     
 INIT00   *         PROCESS PW OPTION FOR L AND E FILES.                                   INIT00      1184     A     
 INIT00                                                                                    INIT00      1185     A     
 INIT00             SA1    CO.PW                                                           INIT00      1186     A     
 INIT00             NZ     X1,MIB135   IF PW OPTION ON CONTROL STATEMENT                   FC50982       10     A     
 INIT00             SA1    GP.JPW      INSTALLATION JOB DEFAULT                            FC50982       11     A     
 INIT00             BX6    X1                                                              FC50982       12     A     
 INIT00             SA6    CO.PW       SET JOB DEFAULT                                     FC50982       13     A     
 INIT00             EQ     MIB136                                                          FC50982       14     A     
 INIT00    MIB135   SX6    1           FLAG FOR PW OPTION ON CONTROL CARD                  FC50982       15     A     
 INIT00             SA6    CO.PWU                                                          FC50982       16     A     
 INIT00                                                                                    FC50982       17     A     
 INIT00    MIB136   SA1    CO.PW                                                           FC50982       18     A     
 INIT00             BX6    X1                                                              INIT00      1187     A     
 INIT00             =A6    A1+1        CO.PWE = CO.PW                                      INIT00      1188     A     
 INIT00             =X6    0                                                               INIT00      1189     A     
 INIT00             RJ     PPW         PROCESS PW (L=FILE)                                 INIT00      1190     A     
 INIT00             SA1    ENOT=L                                                          INIT00      1191     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             ZR     X1,MIB140   IF NO UNIQUE EFILE                                  INIT00      1192     A     
 INIT00             =X6    1                                                               INIT00      1193     A     
 INIT00             RJ     PPW         PROCESS PW (E=FILE)                                 INIT00      1194     A     
 INIT00                                                                                    INIT00      1195     A     
 INIT00                                                                                    INIT00      1196     A     
 INIT00   *         OPEN INPUT AND OUTPUT FILES (SCOPE 2 ONLY).                            INIT00      1197     A     
 INIT00                                                                                    INIT00      1198     A     
 INIT00    MIB140   BSS                                                                    INIT00      1199     A     
 INIT00                                                                                    INIT00      1200     A     
 INIT00   **        CHECK FOR CONTROL STATEMENT ERRORS.                                    FC5A158A     392     A     
 INIT00                                                                                    FC5A158A     393     A     
 INIT00             SA1    ERR.CNT                                                         FC5A158A     394     A     
 INIT00             ZR     X1,MIB140A  IF NO ERRORS                                        FC5A158A     395     A     
 INIT00             MESSAGE (=C/**  NO COMPILATION./),,RCL                                 FC5A158A     396     A     
 INIT00             EQ     NOFTN       END FTN...                                          FC5A158A     397          I
          -FC50314
 INIT00             EQ     ABTFTN      ABORT                                               FC50314        9     A     
 INIT00                                                                                    FC5A158A     398     A     
 INIT00    MIB140A  BSS    0                                                               FC5A158A     399     A     
 INIT00    .RM      IFNE   CP#RM,0                                                         INIT00      1201     A     
 INIT00             OPEN   F.IN                                                            INIT00      1202     A     
 INIT00             STORE  X2,MRL=100D                                                     INIT00      1203     A     
 INIT00             SA1    FV.OUT                                                          FC5A158A     400     A     
 INIT00             ZR     X1,MIB141   IF NO OUTPUT FILE                                   FC5A158A     401     A     
 INIT00             OPEN   F.OUT                                                           INIT00      1204     A     
 INIT00    MIB141   BSS    0                                                               FC5A158A     402     A     
 INIT00             OPEN   F.ERRS                                                          INIT00      1205     A     
 INIT00    .RM      ENDIF                                                                  INIT00      1206     A     
 INIT00                                                                                    INIT00      1207     A     
 INIT00   *         IF *REW* OPTION IS ON, REWIND INPUT, OUTPUT, AND ERROR FILES.          INIT00      1208     A     
 INIT00                                                                                    INIT00      1209     A     
 INIT00             SA1    CO.REWI                                                         INIT00      1210     A     
 INIT00             PL     X1,MIB142   NO REW OF I                                         INIT00      1211     A     
 INIT00                                                                                    FC5A433        6     A     
 INIT00    .RM      IFEQ   CP#RM,0                                                         FC5A433        7     A     
 INIT00             REWIND F.IN                                                            INIT00      1212          I
          -FC50735
 INIT00             SX2    F.IN                                                            FC50735        5     A     
 INIT00             RJ     STF         SEE IF INPUT FILE CONNECTED                         FC50735        6     A     
 INIT00             ZR     X6,MIB142   IF CONNECTED INPUT                                  FC50735        7     A     
 INIT00             REWIND X2                                                              FC50735        8     A     
 INIT00    .RM      ELSE                                                                   FC5A433        8     A     
 INIT00             REWIND F.IN                                                            FC5A433        9     A     
 INIT00    .RM      ENDIF                                                                  FC5A433       10     A     
 INIT00                                                                                    FC5A333       61     A     
 INIT00    MIB142   SA1    CO.REWL                                                         INIT00      1213     A     
 INIT00             PL     X1,MIB143   IF NO REW OF L                                      INIT00      1214     A     
 INIT00                                                                                    FC5A433       11     A     
 INIT00    .RM      IFEQ   CP#RM,0                                                         FC5A433       12     A     
 INIT00             REWIND F.OUT                                                           INIT00      1215          I
          -FC50735
 INIT00             SX2    F.OUT                                                           FC50735        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             RJ     STF         SEE IF OUTPUT FILE CONNECTED                        FC50735       10     A     
 INIT00             ZR     X6,MIB143   IF CONNECTED OUTPUT                                 FC50735       11     A     
 INIT00             REWIND X2                                                              FC50735       12     A     
 INIT00    .RM      ELSE                                                                   FC5A433       13     A     
 INIT00             REWIND F.OUT                                                           FC5A433       14     A     
 INIT00    .RM      ENDIF                                                                  FC5A433       15     A     
 INIT00                                                                                    FC5A333       62     A     
 INIT00    MIB143   SA1    CO.REWE                                                         INIT00      1216     A     
 INIT00             SA2    ENOT=L                                                          FC5A173       30     A     
 INIT00             ZR     X2,MIB144   IF NO UNIQUE E-FILE                                 FC5A173       31     A     
 INIT00             PL     X1,MIB144   IF NO REW OF E                                      INIT00      1217     A     
 INIT00                                                                                    FC5A433       16     A     
 INIT00    .RM      IFEQ   CP#RM,0                                                         FC5A433       17     A     
 INIT00             REWIND F.ERRS                                                          INIT00      1218          I
          -FC50735
 INIT00             SX2    F.ERRS                                                          FC50735       13     A     
 INIT00             RJ     STF         SEE IF ERRORS FILE CONNECTED                        FC50735       14     A     
 INIT00             ZR     X6,MIB144   IF ERRORS CONNECTED                                 FC50735       15     A     
 INIT00             REWIND X2                                                              FC50735       16     A     
 INIT00    .RM      ELSE                                                                   FC5A433       18     A     
 INIT00             REWIND F.ERRS                                                          FC5A433       19     A     
 INIT00    .RM      ENDIF                                                                  FC5A433       20     A     
 INIT00                                                                                    INIT00      1219     A     
 INIT00   *         OPEN LGO AND REWIND IF REQUESTED.                                      INIT00      1220     A     
 INIT00                                                                                    INIT00      1221     A     
 INIT00    MIB144   SA1    FV.LGO                                                          INIT00      1222     A     
 INIT00             ZR     X1,MIB150   IF B=0                                              INIT00      1223     A     
 INIT00                                                                                    INIT00      1224     A     
 INIT00             IFNE   CP#RM,0,1                                                       INIT00      1225     A     
 INIT00             OPEN   F.LGO                                                           INIT00      1226     A     
 INIT00                                                                                    INIT00      1227     A     
 INIT00             SA1    CO.REWB                                                         INIT00      1228     A     
 INIT00             PL     X1,MIB150   IF NO REWIND                                        INIT00      1229     A     
 INIT00             REWIND F.LGO                                                           INIT00      1230     A     
 INIT00                                                                                    INIT00      1231     A     
 INIT00                                                                                    INIT00      1232     A     
 INIT00   **        IF *SPY* IS SELECTED, SET UP PARAMETER LIST.                           INIT00      1233     A     
 INIT00                                                                                    INIT00      1234     A     
 INIT00    MIB150   BSS                                                                    INIT00      1235     A     
 INIT00                                                                                    INIT00      1236     A     
 INIT00    .SPY     IFEQ   .SPY,ON     IF USING SPY OPTION                                 INIT00      1237     A     
 INIT00    .OS      IFNE   .OS,2       IF NOT SCOPE 2                                      INIT00      1238     A     
 INIT00             SA1    CO.SPY      SPY LOWER LIMIT                                     INIT00      1239     A     
 INIT00             MI     X1,MIB166   IF NO SPY                                           INIT00      1240     A     
 INIT00             NZ     X1,MIB162   IF LOWER LIMIT GIVEN                                INIT00      1241     A     
 INIT00             SA1    SD.SPY      USE SECOND DEFAULT                                  INIT00      1242     A     
 INIT00                                                                                    FC5A333       63     A     
 INIT00    MIB162   AX1    6           IN HUNDREDS                                         INIT00      1243     A     
 INIT00             SA2    CO.SPY+1    UPPER LIMIT                                         INIT00      1244     A     
 INIT00             NZ     X2,MIB163   IF UPPER LIMIT GIVEN                                INIT00      1245     A     
 INIT00             SA2    SD.SPY+1    USE SECOND DEFAULT                                  INIT00      1246     A     
 INIT00                                                                                    FC5A333       64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 559    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    MIB163   AX2    6           IN HUNDREDS                                         INIT00      1247     A     
 INIT00             IX3    X2-X1       HIGH-LOW                                            INIT00      1248     A     
 INIT00             LX3    6           TIMES 100                                           INIT00      1249     A     
 INIT00             SX4    Z.BINS      MAX NUMBER OF BINS                                  INIT00      1250     A     
 INIT00             SX3    X3+Z.BINS-1                                                     INIT00      1251     A     
 INIT00             IX5    X3/X4       BIN WIDTH (NOT POWER OF 2 YET)                      INIT00      1252     A     
 INIT00             MX0    9                                                               INIT00      1253     A     
 INIT00             LX5    59-8                                                            INIT00      1254     A     
 INIT00             BX5    X0*X5                                                           INIT00      1255     A     
 INIT00             SB6    8+48        POSITION FOR BINWIDTH FIELD                         INIT00      1256     A     
 INIT00             ZR     X5,"BLOWUP" IF BINWIDTH BAD                                     INIT00      1257     A     
 INIT00                                                                                    FC5A333       65     A     
 INIT00    MIB164   LX5    1                                                               INIT00      1258     A     
 INIT00             SB6    B6-1                                                            INIT00      1259     A     
 INIT00             PL     X5,MIB164   IF NOT SET YET                                      INIT00      1260     A     
 INIT00             CX3    X5                                                              INIT00      1261     A     
 INIT00             SB7    X3                                                              INIT00      1262     A     
 INIT00             EQ     B7,B1,MIB165      IF POWER OF 2                                 INIT00      1263     A     
 INIT00             SB6    B6+1        NEXT POWER OF 2                                     INIT00      1264     A     
 INIT00                                                                                    FC5A333       66     A     
 INIT00    MIB165   SX5    1                                                               INIT00      1265     A     
 INIT00             LX5    B6          POSITION BINWIDTH                                   INIT00      1266     A     
 INIT00             LX1    24          POSITION LOWER                                      INIT00      1267     A     
 INIT00             BX7    X1+X5                                                           INIT00      1268     A     
 INIT00             LX2    12          POSITION UPPER                                      INIT00      1269     A     
 INIT00             BX7    X7+X2                                                           INIT00      1270     A     
 INIT00             SA2    =0LPRNTSPY  NAME OF REPORT GENERATOR                            INIT00      1271     A     
 INIT00             SA7    SPYW        STORE PARAMETER WORD                                INIT00      1272     A     
 INIT00             BX6    X2                                                              INIT00      1273     A     
 INIT00             SA6    CO.GO       POST CALL (SIMULATED GO OPTION)                     INIT00      1274     A     
 INIT00                                                                                    FC5A333       67     A     
 INIT00    MIB166   BSS                                                                    INIT00      1275     A     
 INIT00    .OS      ENDIF                                                                  INIT00      1276     A     
 INIT00    .SPY     ENDIF                                                                  INIT00      1277     A     
 INIT00                                                                                    INIT00      1278          I
          -FC5A158A 
 INIT00                                                                                    INIT00      1279          I
          -FC5A158A 
 INIT00   **        CHECK FOR CONTROL STATEMENT ERRORS.                                    INIT00      1280          I
          -FC5A158A 
 INIT00                                                                                    INIT00      1281          I
          -FC5A158A 
 INIT00             SA1    ERR.CNT                                                         INIT00      1282          I
          -FC5A158A 
 INIT00             ZR     X1,MIB200   IF NO ERRORS                                        INIT00      1283          I
          -FC5A158A 
 INIT00             MESSAGE (=C/**  NO COMPILATION./),,RCL                                 INIT00      1284          I
          -FC5A158A 
 INIT00             EQ     NOFTN       END FTN...                                          INIT00      1285          I
          -FC5A158A 
 INIT00                                                                                    INIT00      1286     A     
 INIT00                                                                                    INIT00      1287     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   **        READ IN FIRST LINE.                                                    INIT00      1288     A     
 INIT00                                                                                    INIT00      1289     A     
 INIT00    MIB200   BSS                                                                    INIT00      1290     A     
 INIT00             IFEQ   CP#RM,0,2                                                       INIT00      1291     A     
 INIT00             RECALL F.IN                                                            INIT00      1292     A     
 INIT00             READ   F.IN        PRIME THE PUMP                                      INIT00      1293     A     
 INIT00                                                                                    INIT00      1294          I
          -FC5A333
 INIT00             READC  F.IN,CP.CARD,16                                                 INIT00      1295     A     
 INIT00             MX6    1                                                               INIT00      1296     A     
 INIT00             SA6    RAPFLAG     SET READ ALREADY PERFORMED FLAG                     INIT00      1297     A     
 INIT00             ZR     X1,EXIT.    IF NOT EOR, EXIT...                                 INIT00      1298     A     
 INIT00                                                                                    INIT00      1299          I
          -FC5A333
 INIT00             MESSAGE (=C/ EMPTY INPUT FILE.  NO COMPILATION./),,RCL                 INIT00      1300     A     
 INIT00                                                                                    FC50657        5     A     
 INIT00    .RM      IFNE   CP#RM,0                                                         FC50657        6     A     
 INIT00             CLOSE  F.IN                                                            FC50657        7     A     
 INIT00             SA1    FV.OUT                                                          FC50657        8     A     
 INIT00             ZR     X1,MIB201   IF NO OUTPUT FILE                                   FC50657        9     A     
 INIT00             CLOSE  F.OUT                                                           FC50657       10     A     
 INIT00             EQ     MIB202                                                          FC50657       11     A     
 INIT00                                                                                    FC50657       12     A     
 INIT00    MIB201   CLOSE  F.ERRS                                                          FC50657       13     A     
 INIT00                                                                                    FC50657       14     A     
 INIT00    MIB202   SA1    FV.LGO                                                          FC50657       15     A     
 INIT00             ZR     X1,ABTFTN   IF NO LGO FILE, ABORT EXIT                          FC50657       16     A     
 INIT00             CLOSE  F.LGO                                                           FC50657       17     A     
 INIT00    .RM      ENDIF                                                                  FC50657       18     A     
 INIT00                                                                                    FC50657       19     A     
 INIT00             EQ     NOFTN       EXIT, NO COMPILATION...                             INIT00      1301          I
          -FC50314
 INIT00             EQ     ABTFTN      ABORT                                               FC50314       10     A     
 INIT00                                                                                    FC50844       41     A     
 INIT00             IFEQ   .MI,1,1                                                         FC50844       42     A     
 INIT00    MIBA     EQU    SCR         TEMPORARY STORAGE                                   FC50844       43     A     
 INIT00    PPW      SPACE  4,8                                                             INIT00      1302     A     
 INIT00   **        PPW - PROCESS PW OPTION FOR AN OUTPUT FILE.                            INIT00      1303     A     
 INIT00   *                                                                                INIT00      1304     A     
 INIT00   *         ENTRY  X6 = 0 FOR L FILE, 1 FOR E FILE                                 INIT00      1305     A     
 INIT00                                                                                    INIT00      1306     A     
 INIT00    PPW      SUBR                                                                   INIT00      1307     A     
 INIT00             SA6    PPWA        SAVE FLAG                                           INIT00      1308     A     
 INIT00             SA2    CO.PW+X6                                                        INIT00      1309     A     
 INIT00                                                                                    INIT00      1310     A     
 INIT00    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      INIT00      1311     A     
 INIT00             NZ     X2,PPW60    IF PW OPTION ON CONTROL STATEMENT                   INIT00      1312          I
          -FC5A426
 INIT00             SA2    PPWB+X6                                                         INIT00      1313     A     
 INIT00             RECALL X2                                                              INIT00      1314     A     
 INIT00             CALL   STF         SEE IF TERMINAL FILE                                INIT00      1315     A     
 INIT00             SA2    PPWA                                                            INIT00      1316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SA2    CO.PW+X2                                                        INIT00      1317     A     
 INIT00             ZR     X6,PPW57    IF TTY                                              INIT00      1318     A     
 INIT00             SX6    136                                                             INIT00      1319          I
          -FC5A426
 INIT00             SA6    A2          PUTS CO.PW IN FORM NEEDED BY REFMAP                 INIT00      1320          I
          -FC5A426
 INIT00             EQ     EXIT.                                                           INIT00      1321          I
          -FC5A426
 INIT00             EQ     PPW60       SET JOB DEFAULT                                     FC5A426       69     A     
 INIT00                                                                                    INIT00      1322     A     
 INIT00    PPW57    SX2    CO.PWT      TTY PRINT WIDTH                                     INIT00      1323          I
          -FC50982
 INIT00    PPW57    SA3    CO.PWU                                                          FC50982       19     A     
 INIT00             NZ     X3,PPW58    IF PW OPTION ON CONTROL STATEMENT                   FC50982       20     A     
 INIT00             SX2    CO.PWT      SET JOB DEFAULT FOR TTY                             FC50982       21     A     
 INIT00    PPW58    BSS                                                                    FC50982       22     A     
 INIT00             IFEQ   .OS,1,1     IF OPERATING SYSTEM IS NOS                          INIT00      1324          I
          -FC50982
 INIT00             SX2    X2-1        ADJUST FOR LACK OF CARRIAGE CONTROL                 INIT00      1325          I
          -FC50982
 INIT00             IFEQ   .OS,1,4     IF OPERATING SYSTEM IS NOS                          FC50982       23     A     
 INIT00             SX3    X2-50       LOW LIMIT BOUNDARY CHECK                            FC50982       24     A     
 INIT00             NZ     X3,PPW59    IF NOT ON THE LOW BOUNDARY                          FC50982       25     A     
 INIT00             SX2    51          ALLOW SPACE FOR CARRIAGE RETURN                     FC50982       26     A     
 INIT00    PPW59    SX2    X2-1        ADJUST FOR LACK OF CARRIAGE RETURN                  FC50982       27     A     
 INIT00             SX6    X2+1                                                            INIT00      1326     A     
 INIT00             MX3    1                                                               FC5A187       16     A     
 INIT00             BX6    X3+X6       MARK FILE CONNECTED                                 FC5A187       17     A     
 INIT00             SA6    A2          PUTS CO.PW IN FORM NEEDED BY REFMAP                 INIT00      1327     A     
 INIT00                                                                                    INIT00      1328     A     
 INIT00             EQ     PPW61                                                           INIT00      1329          I
          -FC50982
 INIT00             EQ     PPW60                                                           FC50982       28     A     
 INIT00    #OS      ELSE                                                                   INIT00      1330     A     
 INIT00             SX6    136         ASSUME PW NOT ON CONTROL CARD                       INIT00      1331     A     
 INIT00             NZ     X2,PPW60    IF ASSUMPTION WRONG                                 INIT00      1332     A     
 INIT00             SA6    A2          PUTS CO.PW IN FORM NEEDED BY REFMAP                 INIT00      1333     A     
 INIT00             EQ     EXIT.                                                           INIT00      1334     A     
 INIT00    #OS      ENDIF                                                                  INIT00      1335     A     
 INIT00                                                                                    INIT00      1336     A     
 INIT00    PPW60    SX1    X2-50                                                           INIT00      1337     A     
 INIT00             MI     X1,E.PW     IF .LT. 50                                          INIT00      1338     A     
 INIT00             SX1    X2-137                                                          FC5A174        9     A     
 INIT00             PL     X1,E.PW     IF PW .GE. 137                                      FC5A174       10     A     
 INIT00             SX1    X2-126                                                          INIT00      1339          I
          -FC5A426
 INIT00    PPW60.1  SX1    X2-126                                                          FC5A426       70          I
          -FC51015
 INIT00             EQ     PPW60.2                                                         FC51015        7     A     
 INIT00                                                                                    FC51015        8     A     
 INIT00    PPW60.1  BX6    X2          (X6) -> DEFAULT LIMIT                               FC51015        9     A     
 INIT00             SA1    PPWA                                                            FC51015       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SA6    CO.PW+X1    DEFAULT LIMIT TO CO.PW                              FC51015       11     A     
 INIT00             SA1    CO.PW                                                           FC50982       29     A     
 INIT00             =A6    A1+1        MAKE THE ADJUSTMENT FOR E FILE                      FC50982       30     A     
 INIT00                                                                                    FC51015       12     A     
 INIT00    PPW60.2  SX1    X2-126                                                          FC51015       13     A     
 INIT00             PL     X1,PPW63    IF PW .GE. 126                                      INIT00      1340          I
          -FC50353
 INIT00             PL     X1,EXIT.    IF PW .GE. 126                                      FC50353       17     A     
 INIT00                                                                                    FC50353       18     A     
 INIT00    PPW61    SA3    PPWA                                                            INIT00      1341     A     
 INIT00             MX0    2*CHAR                                                          INIT00      1342     A     
 INIT00             SX1    L.TITL                                                          INIT00      1343          I
          -F1039  
 INIT00             SX1    ERFO                                                            F1039        211     A     
 INIT00             SA1    TL.PNAM+1+X1                                                    INIT00      1344     A     
 INIT00             SX6    L.TITL                                                          INIT00      1345          I
          -F1039  
 INIT00             SX6    ERFO                                                            F1039        212     A     
 INIT00             NZ     X3,PPW62     IF ERROR FILE CALL                                 INIT00      1346     A     
 INIT00             SA1    O.TTLA-1                                                        INIT00      1347     A     
 INIT00             SA4    =2L1         SET FOR PAGE EJECT                                 INIT00      1348     A     
 INIT00             =A3    A1+1                                                            INIT00      1349     A     
 INIT00             BX5    -X0*X3                                                          INIT00      1350     A     
 INIT00             BX6    X5+X4                                                           INIT00      1351     A     
 INIT00             SA6    A3          ADD CARRIAGE CONTROL TO O.TTLA                      INIT00      1352     A     
 INIT00             MX6    0                                                               INIT00      1353     A     
 INIT00                                                                                    INIT00      1354     A     
 INIT00    PPW62    SX2    X2+B1       ADD 1 CHARACTER FOR CARRIAGE CONTROL                INIT00      1355          I
          -FC5A115
 INIT00    PPW62    SA4    =2L1        SET FOR PAGE EJECT                                  FC5A115       43     A     
 INIT00             =A3    O.TTLA+X6                                                       FC5A115       44     A     
 INIT00             BX5    -X0*X3                                                          FC5A115       45     A     
 INIT00             BX7    X5+X4                                                           FC5A115       46     A     
 INIT00             SA7    A3          ADD CARRIAGE CONTROL TO O.TTLA                      FC5A115       47     A     
 INIT00             SX2    X2+B1       ADD 1 CHARACTER FOR CARRIAGE CONTROL                FC5A115       48          I
          -FC5A420
 INIT00             SX0    52429                                                           INIT00      1356     A     
 INIT00             SA1    TL.PAGE-1+X6   (X1) = ......PAGE   (.=BLANK(55B))               INIT00      1357     A     
 INIT00             IX3    X2*X0                                                           INIT00      1358     A     
 INIT00             AX3    19          (X3) = [PAGE WIDTH/10]                              INIT00      1359     A     
 INIT00             SX4    10                                                              INIT00      1360     A     
 INIT00             IX5    X4*X3                                                           INIT00      1361     A     
 INIT00             LX1    10*CHAR-4*CHAR                                                  INIT00      1362     A     
 INIT00             IX2    X2-X5       (X2) = REMAINDER AFTER DIVIDE BY 10                 INIT00      1363     A     
 INIT00             SX4    CHAR                                                            INIT00      1364     A     
 INIT00             IX2    X2*X4       (X2) = REMAINDER IN BITS                            INIT00      1365     A     
 INIT00             BX7    X1          (X7) = PAGE......   (.=BLANK(55B))                  INIT00      1366     A     
 INIT00             LX2    30                                                              INIT00      1367     A     
 INIT00             BX6    X3+X2                                                           INIT00      1368     A     
 INIT00             SA7    A1                                                              INIT00      1369     A     
 INIT00             SA6    CP.PW       CP.PW = 30/CHARACTERS,30/WORDS                      INIT00      1370          I
          -FC5A426
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SA3    PPWA        GET FILE ORDINAL (E/L)                              FC5A426       71     A     
 INIT00             SA6    CO.WPL+X3   (X6) = 30/CHAR,30 WORDS                             FC5A426       72     A     
 INIT00             EQ     EXIT.       DONE...                                             INIT00      1371     A     
 INIT00                                                                                    INIT00      1372     A     
 INIT00    PPW63    MX6    0                                                               INIT00      1373          I
          -FC5A174
 INIT00             SA6    CP.PW       TURN OFF PW MODE                                    INIT00      1374          I
          -FC5A174
 INIT00                                EQ    EXIT.                                         INIT00      1375          I
          -FC5A174
 INIT00    PPW63    SX6    136                                                             FC5A174       11          I
          -FC50353
 INIT00             SA6    A2          TURN OFF PW MODE                                    FC5A174       12          I
          -FC50353
 INIT00             EQ     EXIT.                                                           FC5A174       13          I
          -FC50353
 INIT00                                                                                    INIT00      1376          I
          -FC50353
 INIT00    PPWA     BSS    1                                                               INIT00      1377     A     
 INIT00    CO.PWU   BSSZ   1                                                               FC50982       31     A     
 INIT00    PPWB     CON    F.OUT,F.ERRS                                                    INIT00      1378     A     
 INIT00    GPP      SPACE  4,10                                                            FC5A426       73     A     
 INIT00   **        GPP - INITIALIZE PAGE SIZE PARAMETER BLOCK, GP.PAGE                    FC5A426       74     A     
 INIT00   *               AND SET INITIAL VALUES FOR PD, PS, AND PW.                       FC5A426       75     A     
 INIT00   *                                                                                FC5A426       76     A     
 INIT00   *         ENTRY  (B1) = 1                                                        FC5A426       77     A     
 INIT00   *                                                                                FC5A426       78     A     
 INIT00   *         EXIT   PS, PD, AND PW INITIALIZED WITH JOB DEFAULT VALUES              FC5A426       79     A     
 INIT00   *                                                                                FC5A426       80     A     
 INIT00   *         CALLS  CPM=                                                            FC5A426       81     A     
 INIT00                                                                                    FC5A426       82     A     
 INIT00    GPP      SUBR               ...ENTRY/EXIT...                                    FC5A426       83     A     
 INIT00             GETPAGE GP.PAGE    GET PAGE SIZE PARAMETERS                            FC5A426       84     A     
 INIT00             SA1    GP.PAGE                                                         FC5A426       85     A     
 INIT00             MX0    -8                                                              FC5A426       86     A     
 INIT00             AX1    12          POSITION FOR *PW*                                   FC5A426       87     A     
 INIT00             BX6    -X0*X1                                                          FC5A426       88     A     
 INIT00             SA6    CO.PW                                                           FC5A426       89          I
          -FC50982
 INIT00             SA6    GP.JPW                                                          FC5A426       90     A     
 INIT00             AX1    8           POSITION FOR *PS*                                   FC5A426       91     A     
 INIT00             BX6    -X0*X1                                                          FC5A426       92     A     
 INIT00             SA6    CO.PS                                                           FC5A426       93     A     
 INIT00             SA6    GP.JPS                                                          FC5A426       94     A     
 INIT00             MX0    -4                                                              FC5A426       95     A     
 INIT00             AX1    8           POSITION FOR *PD*                                   FC5A426       96     A     
 INIT00             BX6    -X0*X1                                                          FC5A426       97     A     
 INIT00             SA6    CO.PD                                                           FC5A426       98     A     
 INIT00             SA6    GP.JPD                                                          FC5A426       99     A     
 INIT00             SX7    1RS         6LPI                                                FC5A426      100     A     
 INIT00             SX6    X6-6                                                            FC5A426      101     A     
 INIT00             ZR     X6,GPP1     IF 6LPI                                             FC5A426      102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SX7    1RT         8LPI                                                FC5A426      103     A     
 INIT00                                                                                    FC5A426      104     A     
 INIT00    GPP1     LX7    -CHAR                                                           FC5A426      105     A     
 INIT00             SA7    RS.PD       STORE *RESTORE* PD                                  FC5A426      106     A     
 INIT00             EQ     EXIT.       RETURN                                              FC5A426      107     A     
 INIT00                                                                                    FC5A426      108     A     
 INIT00    #OS      IFNE   .OS,2                                                           FC5A445        5     A     
 INIT00   *CALL COMCCPM                                                                    FC5A426      109     A     
 INIT00    #OS      ENDIF                                                                  FC5A445        6     A     
 INIT00    CPV      SPACE  4,10                                                            F1039        213     A     
 INIT00   **        CPV - CURRENT PARAMETER VALUES                                         F1039        214     A     
 INIT00   *                                                                                F1039        215     A     
 INIT00   *         UPDATE CURRENT VALUES OF THE FOLLOWING FORTRAN CALL CARD               F1039        216     A     
 INIT00   *         PARAMETERS - ARG,CS,DB,DO,DS,PL AND ROUND ON THE FIRST AND             F1039        217     A     
 INIT00   *         SECOND LINES OF THE FIRST PAGE AND THE FIRST 120 CHARACTERS            F1039        218     A     
 INIT00   *         OF THE FORTRAN CALL CARD ON THE THIRD LINE OF THE FIRST PAGE           F1039        219     A     
 INIT00   *         OF EACH PROGRAM UNIT OUTPUT LISTING.                                   F1039        220     A     
 INIT00   *                                                                                F1039        221     A     
 INIT00   *         ENTRY - NO ENTRY REQUIRENTS                                            F1039        222     A     
 INIT00   *                                                                                F1039        223     A     
 INIT00   *         USES   B - 3                                                           F1039        224     A     
 INIT00   *                A - 1,4                                                         F1039        225     A     
 INIT00   *                X - 2,3,4,6                                                     F1039        226          I
          -FC5A444
 INIT00   *                X - 2,3,4,6,7                                                   FC5A444       47     A     
 INIT00   *                                                                                F1039        227     A     
 INIT00   *         CALLS  NONE                                                            F1039        228     A     
 INIT00                                                                                    F1039        229     A     
 INIT00                                                                                    F1039        230     A     
 INIT00    IFON     MACRO  CCOPT,ADD                                                       F1039        231     A     
 INIT00             SA4    =X_CCOPT                                                        F1039        232     A     
 INIT00             NZ     X4,ADD                                                          F1039        233     A     
 INIT00             ENDM                                                                   F1039        234     A     
 INIT00                                                                                    F1039        235     A     
 INIT00    SETOFF   MACRO  SHIFT                                                           F1039        236     A     
 INIT00             BX4    X3          X3 PRESET TO 7                                      F1039        237     A     
 INIT00             IFNE   SHIFT,0,1   IF SHIFT COUNT NOT ZERO                             F1039        238     A     
 INIT00             LX4    SHIFT_*CHAR                                                     F1039        239     A     
 INIT00             BX6    X6+X4                                                           F1039        240     A     
 INIT00             ENDM                                                                   F1039        241     A     
 INIT00                                                                                    F1039        242     A     
 INIT00    CPV      SUBR               ...ENTRY/EXIT...                                    F1039        243     A     
 INIT00             MX6    0                                                               F1039        244     A     
 INIT00             SX3    7                                                               F1039        245     A     
 INIT00                                                                                    F1039        246     A     
 INIT00   **        CURRENT VALUES OF ROUNDING OPTIONS                                     F1039        247     A     
 INIT00                                                                                    F1039        248     A     
 INIT00             IFON   CO.RNDA,CPV2     IF ROUNDING ADDS IS ON                         F1039        249     A     
 INIT00             SETOFF 7                ELSE SET CURRENT VALUE TO OFF                  F1039        250     A     
 INIT00                                                                                    F1039        251     A     
 INIT00    CPV2     IFON  CO.RNDS,CPV4      IF ROUNDING SUBTRACT IS ON                     F1039        252     A     
 INIT00             SETOFF 4                ELSE SET CURRENT VALUE TO OFF                  F1039        253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00                                                                                    F1039        254     A     
 INIT00    CPV4     IFON  CO.RNDM,CPV6      IF ROUNDING MULTIPLY IS ON                     F1039        255     A     
 INIT00             SETOFF 1                ELSE SET CURRENT VALUE TO OFF                  F1039        256     A     
 INIT00                                                                                    F1039        257     A     
 INIT00    CPV6     ZR     X6,CPV8          IF CURRENT VALUES ON                           F1039        258     A     
 INIT00             SA1    TL.CSOP+1                                                       F1039        259     A     
 INIT00             IX6    X1-X6            MERGE VALUES WITH TEMPLET                      F1039        260     A     
 INIT00             SA6    A1                                                              F1039        261     A     
 INIT00             SA6    A6+ERFO          E-LIST                                         F1039        262     A     
 INIT00             MX6    0                                                               F1039        263     A     
 INIT00                                                                                    F1039        264     A     
 INIT00   **        CURRENT VALUES OF ROUNDING DIVIDE AND DIRECTIVE SUPPRESSION            F1039        265     A     
 INIT00                                                                                    F1039        266     A     
 INIT00    CPV8     IFON   CO.RNDD,CPV10    IF ROUNDING DIVIDE IS ON                       F1039        267     A     
 INIT00             SETOFF 8                ELSE SET CURRENT VALUE TO OFF                  F1039        268     A     
 INIT00                                                                                    F1039        269     A     
 INIT00    CPV10    IFON   CO.DS,CPV12      IF DIRECTIVE SUPPRESSION IS ON                 F1039        270     A     
 INIT00             SETOFF 5                ELSE SET CURRENT VALUE TO OFF                  F1039        271     A     
 INIT00                                                                                    F1039        272     A     
 INIT00    CPV12    ZR     X6,CPV14         IF VALUES ON                                   F1039        273     A     
 INIT00             SA1    TL.CSOP+2                                                       F1039        274     A     
 INIT00             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET              F1039        275     A     
 INIT00             SA6    A1                                                              F1039        276     A     
 INIT00             SA6    A6+ERFO          E-LIST                                         F1039        277     A     
 INIT00             MX6    0                                                               F1039        278     A     
 INIT00                                                                                    F1039        279     A     
 INIT00   **        CURRENT DO PARAMETER VALUES                                            F1039        280     A     
 INIT00                                                                                    F1039        281     A     
 INIT00    CPV14    IFON   CO.DOLG,CPV16    IF DO LOOP TRIP COUNT LESS THEN 131072         F1039        282     A     
 INIT00             SETOFF 6                ELSE SET CURRENT VALUE OFF                     F1039        283     A     
 INIT00                                                                                    F1039        284     A     
 INIT00    CPV16    IFON   CO.DOOT,CPV18    IF ONE TRIP DO LOOPS                           F1039        285     A     
 INIT00             SETOFF 0                ELSE SET CURRENT VALUE OFF                     F1039        286     A     
 INIT00                                                                                    F1039        287     A     
 INIT00    CPV18    ZR     X6,CPV20         IF VALUES ON                                   F1039        288     A     
 INIT00             SA1    O.CPV+1                                                         F1039        289     A     
 INIT00             IX6    X1-X6            MERGE VALUES WITH TEMPLET                      F1039        290     A     
 INIT00             SA6    A1                                                              F1039        291     A     
 INIT00             MX6    0                                                               F1039        292     A     
 INIT00                                                                                    F1039        293     A     
 INIT00   **        CURRENT ARG VALUES                                                     F1039        294     A     
 INIT00                                                                                    F1039        295     A     
 INIT00    CPV20    IFON   CO.ARGC,CPV22    IF NOT COMMON ARGUMENT LISTS                   F1039        296     A     
 INIT00             SETOFF 2                ELSE SET CURRENT VALUE OFF                     F1039        297     A     
 INIT00             SA1    O.CPV+2                                                         F1039        298     A     
 INIT00             IX6    X1-X6            MERGE WITH TEMPLET                             F1039        299     A     
 INIT00             SA6    A1                                                              F1039        300     A     
 INIT00             MX6    0                                                               F1039        301     A     
 INIT00                                                                                    F1039        302     A     
 INIT00    CPV22    IFON   CO.ARGF,CPV24    IF NOT FIXED LENGTH ARGUMENT LISTS             F1039        303     A     
 INIT00             SETOFF 4                ELSE SET CURRENT VALUE OFF                     F1039        304     A     
 INIT00             SA1    O.CPV+3                                                         F1039        305     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             IX6    X1-X6            MERGE WITH TEMPLET                             F1039        306     A     
 INIT00             SA6    A1                                                              F1039        307     A     
 INIT00             MX6    0                                                               F1039        308     A     
 INIT00                                                                                    F1039        309     A     
 INIT00   **        CURRENT COLLATING SEQUENCE VALUE                                       F1039        310     A     
 INIT00                                                                                    F1039        311     A     
 INIT00    CPV24    IFON   CO.CS,CPV26      IF COLLATING SEQUENCE USER                     F1039        312     A     
 INIT00             SA1    O.CPV+4                                                         F1039        313     A     
 INIT00             SETOFF 4                USER COLLATING SEQUENCE IS OFF                 F1039        314     A     
 INIT00             EQ     CPV28                                                           F1039        315     A     
 INIT00                                                                                    F1039        316     A     
 INIT00    CPV26    SETOFF 8                FIXED COLLATING SEQUENCE IS OFF                F1039        317     A     
 INIT00             SA1    O.TA                                                            F1039        318     A     
 INIT00                                                                                    F1039        319     A     
 INIT00    CPV28    IX6    X1-X6            MERGE WITH TEMPLET                             F1039        320     A     
 INIT00             SA6    A1                                                              F1039        321     A     
 INIT00             MX6    0                                                               F1039        322     A     
 INIT00                                                                                    F1039        323     A     
 INIT00   **        CURRENT VALUES OF DEBUG OPTIONS                                        F1039        324     A     
 INIT00                                                                                    F1039        325     A     
 INIT00             IFON   CO.DBTB,CPV30    IF FULL ERROR TRACEBACK ON                     F1039        326     A     
 INIT00             SETOFF 8                ELSE SET CURRENT VALUE OFF                     F1039        327     A     
 INIT00                                                                                    F1039        328     A     
 INIT00    CPV30    IFON   CO.DBSB,CPV32    IF SUBSCRIPT BOUNDS CHECKING IS ON             F1039        329     A     
 INIT00             SETOFF 4                ELSE SET CURRENT VALUE OFF                     F1039        330     A     
 INIT00                                                                                    F1039        331     A     
 INIT00    CPV32    IFON   CO.DBSL,CPV34    IF SUBSTRING LIMITS CHECKING IS ON             F1039        332     A     
 INIT00             SETOFF 0                ELSE SET CURRENT VALUE OFF                     F1039        333     A     
 INIT00                                                                                    F1039        334     A     
 INIT00    CPV34    ZR     X6,CPV36         IF VALUES ON                                   F1039        335     A     
 INIT00             SA1    O.TA+1                                                          F1039        336     A     
 INIT00             IX6    X1-X6            MERGE VALUES WITH TEMPLET                      F1039        337     A     
 INIT00             SA6    A1                                                              F1039        338     A     
 INIT00             MX6    0                                                               F1039        339     A     
 INIT00                                                                                    F1039        340     A     
 INIT00    CPV36    IFON   CO.DBER,CPV38    IF OBJECT TIME REPRIEVE OF EXCUTION            F1039        341     A     
 INIT00                                     ERRORS IS ON                                   F1039        342     A     
 INIT00             SETOFF 6                ELSE SET CURRENT VALUE OFF                     F1039        343     A     
 INIT00                                                                                    F1039        344     A     
 INIT00    CPV38    IFON   CO.DBID,CPV40    IF INTERACTIVE DEBUG IS ON                     F1039        345     A     
 INIT00             SETOFF 2                ELSE SET CURRENT VALUE OFF                     F1039        346     A     
 INIT00                                                                                    F1039        347     A     
 INIT00    CPV40    ZR     X6,CPV42         IF CURRENT VALUES ON                           F1039        348     A     
 INIT00             SA1    O.TA+2                                                          F1039        349     A     
 INIT00             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET              F1039        350     A     
 INIT00             SA6    A1                                                              F1039        351     A     
 INIT00             MX6    0                                                               F1039        352     A     
 INIT00                                                                                    F1039        353     A     
 INIT00    CPV42    IFON   CO.DBPM,CPV44    IF POST MORTEM DUMP ON                         F1039        354     A     
 INIT00             SETOFF 8                ELSE SET CURRENT VALUE OFF                     F1039        355     A     
 INIT00                                                                                    F1039        356     A     
 INIT00    CPV44    IFON   CO.DBST,CPV46    IF SYMBOL TABLE TO BINARY                      F1039        357     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SETOFF 3                ELSE SET CURRENT VALUE OFF                     F1039        358     A     
 INIT00                                                                                    F1039        359     A     
 INIT00    CPV46    ZR     X6,CPV48         IF CURRENT VALUES ON                           F1039        360     A     
 INIT00             SA1    O.TA+3                                                          F1039        361     A     
 INIT00             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET              F1039        362     A     
 INIT00             SA6    A1                                                              F1039        363     A     
 INIT00                                                                                    F1039        364     A     
 INIT00   **        CURRENT PRINT LIMIT                                                    F1039        365     A     
 INIT00                                                                                    F1039        366     A     
 INIT00    CPV48    SA1    CO.LL                                                           F1039        367     A     
 INIT00             CALL   CDD                                                             F1039        368     A     
 INIT00             AX4    1*CHAR      XXXXXXXXX0  -  !XXXXXXXXX                           F1039        369     A     
 INIT00             MX0    3*CHAR      XXX0000000                                          F1039        370          I
          -FC5A444
 INIT00             LX0    2*CHAR      X0000000XX                                          F1039        371          I
          -FC5A444
 INIT00             BX6    -X0*X4      0XXXXXXX00                                          F1039        372          I
          -FC5A444
 INIT00             AX6    2*CHAR      000XXXXXXX                                          F1039        373          I
          -FC5A444
 INIT00             SA1    =3LPL=      PL=0000000                                          F1039        374          I
          -FC5A444
 INIT00             BX7    X6+X1       PL=XXXXXXX                                          F1039        375          I
          -FC5A444
 INIT00             SA7    O.TA+4                                                          F1039        376          I
          -FC5A444
 INIT00             MX0    8*CHAR      XXXXXXXX00                                          F1039        377          I
          -FC5A444
 INIT00             BX6    -X0*X4      00000000XX                                          F1039        378          I
          -FC5A444
 INIT00             LX6    8*CHAR      XX00000000                                          F1039        379          I
          -FC5A444
 INIT00             SA1    =8R         00BBBBBBBB                                          F1039        380          I
          -FC5A444
 INIT00             BX7    X6+X1       XXBBBBBBBB                                          F1039        381          I
          -FC5A444
 INIT00             MX0    7*CHAR      XXXXXXX000                                          FC5A444       48     A     
 INIT00             LX0    6*CHAR      X000XXXXXX                                          FC5A444       49     A     
 INIT00             BX2    -X0*X4      0XXX000000                                          FC5A444       50     A     
 INIT00             AX2    6*CHAR      0000000XXX                                          FC5A444       51     A     
 INIT00             SX6    1R                                                              FC5A444       52     A     
 INIT00             SA1    CO.AL                                                           FC5A444       53     A     
 INIT00             NZ     X1,CPV50    IF AUTOMATIC LEVEL IS ON                            FC5A444       54     A     
 INIT00             SX6    1R-                                                             FC5A444       55     A     
 INIT00    CPV50    LX6    -CHAR                                                           FC5A444       56     A     
 INIT00             SA1    O.TA+4       AL,PL=000                                          FC5A444       57     A     
 INIT00             BX7    X2+X1        AL,PL=XXX                                          FC5A444       58     A     
 INIT00             BX7    X7+X6       ?AL,PL=XXX                                          FC5A444       59     A     
 INIT00             SA7    A1                                                              FC5A444       60     A     
 INIT00             MX0    4*CHAR      XXXX000000                                          FC5A444       61     A     
 INIT00             BX6    -X0*X4      0000XXXXXX                                          FC5A444       62     A     
 INIT00             LX6    4*CHAR      XXXXXX0000                                          FC5A444       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00             SA1    =4R         000000BBBB                                          FC5A444       64     A     
 INIT00             BX7    X6+X1       XXXXXXBBBB                                          FC5A444       65     A     
 INIT00             SA7    O.TA+5                                                          F1039        382     A     
 INIT00                                                                                    F1039        383     A     
 INIT00   **        CHECK FOR PAGE WIDTH MODE                                              F1039        384     A     
 INIT00                                                                                    F1039        385     A     
 INIT00             SA2    =XWOF=ERR                                                       F1039        386     A     
 INIT00             SA1    CO.PW+X2                                                        F1039        387     A     
 INIT00             SX1    X1-126                                                          F1039        388     A     
 INIT00             PL     X1,EXIT.    IF NOT PAGE WIDTH MODE                              F1039        389     A     
 INIT00                                                                                    F1039        390     A     
 INIT00   *         PW MODE BREAK UP SECOND LINE.                                          F1039        391     A     
 INIT00                                                                                    F1039        392     A     
 INIT00             SA2    L.PWA       PRELOAD                                             F1039        393     A     
 INIT00             LX7    X2          BLANKS                                              F1039        394     A     
 INIT00             SB2    6           LOOP CONTROL                                        F1039        395     A     
 INIT00                                                                                    F1039        396     A     
 INIT00    CPV52    SA2    A2-1                                                            F1039        397     A     
 INIT00             BX6    X2                                                              F1039        398     A     
 INIT00             SB2    B2-B1                                                           F1039        399     A     
 INIT00             SA6    A2+B1                                                           F1039        400     A     
 INIT00             NE     B2,B0,CPV52 IF NOT FINISHED                                     F1039        401     A     
 INIT00             SA7    O.TA        FIRST WORD = 1H  FOR CARRAGE CONTROL                F1039        402     A     
 INIT00                                                                                    F1039        403     A     
 INIT00   *         PW MODE BREAK UP THIRD LINE                                            F1039        404     A     
 INIT00                                                                                    F1039        405     A     
 INIT00             SA2    L.PWB                                                           F1039        406     A     
 INIT00             LX7    X2                                                              F1039        407     A     
 INIT00             SB2    6          LOOP CONTROL                                         F1039        408     A     
 INIT00                                                                                    F1039        409     A     
 INIT00    CPV54    SA2    A2-1                                                            F1039        410     A     
 INIT00             BX6    X2                                                              F1039        411     A     
 INIT00             SB2    B2-B1                                                           F1039        412     A     
 INIT00             SA6    A2+B1                                                           F1039        413     A     
 INIT00             NE     B2,B0,CPV54  IF NOT FINISHED                                    F1039        414     A     
 INIT00             SA7    O.C                                                             F1039        415     A     
 INIT00             EQ     EXIT.                                                           F1039        416     A     
 INIT00                                                                                    F1039        417     A     
 INIT00    FCA      SPACE  4,10                                                            F1039        418     A     
 INIT00   **        FIND CHARACTER ADDRESS                                                 F1039        419     A     
 INIT00   *                                                                                F1039        420     A     
 INIT00   *         FIND NEXT AVAILABLE CHARACTER POSITION IN CONTROL CARD TEMPLET         F1039        421     A     
 INIT00   *                                                                                F1039        422     A     
 INIT00   *         ENTRY - CELL NXA CONTAINS LAST WORD ADDRESS STORED IN TEMPLET          F1039        423     A     
 INIT00   *                                                                                F1039        424     A     
 INIT00   *         USES   B - 3                                                           F1039        425     A     
 INIT00   *                A - 2,3,6                                                       F1039        426     A     
 INIT00   *                X - 0,1,2,3,6                                                   F1039        427     A     
 INIT00   *                                                                                F1039        428     A     
 INIT00   *         CALLS  NONE                                                            F1039        429     A     
 INIT00                                                                                    F1039        430     A     
 INIT00                                                                                    F1039        431     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    FCA      SUBR               ...ENTRY/EXIT...                                    F1039        432     A     
 INIT00             MX0    9*CHAR                                                          F1039        433     A     
 INIT00             SB4    B0                                                              F1039        434     A     
 INIT00             SA2    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET           F1039        435     A     
 INIT00             SA3    X2                                                              F1039        436     A     
 INIT00             ZR     X3,FCA7     IF LAST WORD STORED IS ZERO                         F1039        437     A     
 INIT00                                                                                    F1039        438     A     
 INIT00    FCA1     LX1    X0,B4                                                           F1039        439     A     
 INIT00             BX2    -X1*X3                                                          F1039        440     A     
 INIT00             NZ     X2,FCA2     IF NON ZERO BYTE                                    F1039        441     A     
 INIT00             SB4    B4+CHAR                                                         F1039        442     A     
 INIT00             EQ     FCA1                                                            F1039        443     A     
 INIT00                                                                                    F1039        444     A     
 INIT00    FCA2     LX2    X2,-B4                                                          F1039        445     A     
 INIT00             SX2    X2-1R                                                           F1039        446     A     
 INIT00             NZ     X2,FCA4     IF NOT BLANK                                        F1039        447     A     
 INIT00             BX6    X1*X3       BLANK GET RID OF IT.                                F1039        448     A     
 INIT00             SA6    A3                                                              F1039        449     A     
 INIT00             SX6    B4                                                              F1039        450     A     
 INIT00                                                                                    F1039        451     A     
 INIT00    FCA3     SA6    CP          SHIFT REQUIRED TO STORE NEXT CHARACTER.             F1039        452     A     
 INIT00             EQ     EXIT.                                                           F1039        453     A     
 INIT00                                                                                    F1039        454     A     
 INIT00    FCA4     SX6    B4-CHAR                                                         F1039        455     A     
 INIT00             EQ     FCA3                                                            F1039        456     A     
 INIT00                                                                                    F1039        457     A     
 INIT00    FCA6     SX6    9*CHAR                                                          F1039        458     A     
 INIT00             EQ     FCA3                                                            F1039        459     A     
 INIT00                                                                                    F1039        460     A     
 INIT00    FCA7     SA3    A3-1        GET PREVIOUS WORD                                   F1039        461     A     
 INIT00             BX2    -X0*X3                                                          F1039        462     A     
 INIT00             SX2    X2-1R                                                           F1039        463     A     
 INIT00             NZ     X2,FCA6     IF NOT BLANK                                        F1039        464     A     
 INIT00             BX6    X0*X3       GET RID OF BLANK                                    F1039        465     A     
 INIT00             SA6    A3          STORE LAST WORD                                     F1039        466     A     
 INIT00             SA2    =10H                                                            F1039        467     A     
 INIT00             LX6    X2                                                              F1039        468     A     
 INIT00             SA6    A3+1        BLANKS TO LWA + 1                                   F1039        469     A     
 INIT00             SX6    A3                                                              F1039        470     A     
 INIT00             SA6    NXA         LWA OF LAST STORE IN TEMPLET                        F1039        471     A     
 INIT00             MX6    0           SHIFT REQUIRED TO STORE NEXT CHARACTER              F1039        472     A     
 INIT00             EQ     FCA3                                                            F1039        473     A     
 INIT00                                                                                    F1039        474     A     
 INIT00    CP       CON    0           SHIFT REQUIRED TO STORE NEXT CHARACTER              F1039        475     A     
 INIT00   *                            IN CONTROL CARD TEMPLET.                            F1039        476     A     
 INIT00    NXA      CON    0           LWA STORED IN CONTROL CARD TEMPLET                  F1039        477     A     
 INIT00    TCC      SPACE  4,10                                                            F1039        478     A     
 INIT00   **        TRANSFER CONTINUATION CONTROL CARD TO TEMPLET                          F1039        479     A     
 INIT00   *                                                                                F1039        480     A     
 INIT00   *         ENTRY - NO ENTRY REQUIRENTS                                            F1039        481     A     
 INIT00   *                                                                                F1039        482     A     
 INIT00   *         USES   B - 4,5    RESTORES B5                                          F1039        483     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00   *                A - 0,1,2,3,4,6    RESTORES A0                                  F1039        484     A     
 INIT00   *                X - 0,1,2,3,4,6                                                 F1039        485     A     
 INIT00   *                                                                                F1039        486     A     
 INIT00   *         CALLS NONE                                                             F1039        487     A     
 INIT00                                                                                    F1039        488     A     
 INIT00                                                                                    F1039        489     A     
 INIT00    TCC      SUBR               ...ENTRY/EXIT...                                    F1039        490     A     
 INIT00             SA2    TFF                                                             F1039        491     A     
 INIT00             NZ     X2,EXIT.    IF TEMPLET FULL                                     F1039        492     A     
 INIT00             SX6    B5                                                              F1039        493     A     
 INIT00             SA6    SB5         SAVE B5                                             F1039        494     A     
 INIT00             SX6    A0                                                              F1039        495     A     
 INIT00             SA6    SA0         SAVE A0                                             F1039        496     A     
 INIT00             SA1    RA.CCD                                                          F1039        497     A     
 INIT00             SB5    9*CHAR                                                          F1039        498     A     
 INIT00             MX0    9*CHAR                                                          F1039        499     A     
 INIT00             SA3    CP                                                              F1039        500     A     
 INIT00             SB4    X3          SHIFT REQUIRED TO STORE NEXT CHARACTER              F1039        501     A     
 INIT00   *                            IN CONTROL CARD TEMPLET.                            F1039        502     A     
 INIT00             SA3    NXA                                                             F1039        503     A     
 INIT00             SA4    X3          LWA OF STORE IN TEMPLET                             F1039        504     A     
 INIT00             SA0    A4-1        NEXT LOCATION - 1 TO STORE IN TEMPLET               F1039        505     A     
 INIT00             LX6    X4                                                              F1039        506     A     
 INIT00                                                                                    F1039        507     A     
 INIT00    TCC2     AX2    X1,B5                                                           F1039        508     A     
 INIT00             BX2    -X0*X2                                                          F1039        509     A     
 INIT00             GT     B5,B0,TCC4  IF MORE CHARACTERS IN WORD                          F1039        510     A     
 INIT00             SA1    A1+1                                                            F1039        511     A     
 INIT00             SB5    10*CHAR                                                         F1039        512     A     
 INIT00                                                                                    F1039        513     A     
 INIT00    TCC4     SB5    B5-CHAR                                                         F1039        514     A     
 INIT00             AX3    X1,B5                                                           F1039        515     A     
 INIT00             BX3    -X0*X3                                                          F1039        516     A     
 INIT00             NZ     X3,TCC5     IF CHARACTER FOLLOWING CURRENT CHARACTER            F1039        517     A     
 INIT00   *                            NOT ZERO.                                           F1039        518     A     
 INIT00             SX3    X2-1R                                                           F1039        519     A     
 INIT00             ZR     X3,TCC6     IF CURRENT CHARACTER BLANK - FINISHED               F1039        520     A     
 INIT00                                                                                    F1039        521     A     
 INIT00    TCC5     ZR     X2,TCC6     IF CURRENT CHARACTER ZERO  - FINISHED.              F1039        522     A     
 INIT00             LX2    X2,B4                                                           F1039        523     A     
 INIT00             BX6    X6+X2                                                           F1039        524     A     
 INIT00             SB4    B4-CHAR                                                         F1039        525     A     
 INIT00             PL     B4,TCC2     IF CURRENT WORD NOT FULL                            F1039        526     A     
 INIT00             SB4    L.PWB-1                                                         F1039        527     A     
 INIT00             SX2    A0-B4                                                           F1039        528     A     
 INIT00             PL     X2,TCC8     IF CONTROL CARD TEMPLET FULL                        F1039        529     A     
 INIT00             SB4    9*CHAR                                                          F1039        530     A     
 INIT00             SA0    A0+1                                                            F1039        531     A     
 INIT00             SA6    A0          STORE CURRENT WORD IN CC TEMPLET                    F1039        532     A     
 INIT00             MX6    0                                                               F1039        533     A     
 INIT00             EQ     TCC2                                                            F1039        534     A     
 INIT00                                                                                    F1039        535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
 INIT00    TCC6     SB5    L.PWB-1                                                         F1039        536     A     
 INIT00             SX2    A0-B5                                                           F1039        537     A     
 INIT00             PL     X2,TCC8     IF CC TEMPLET FULL                                  F1039        538     A     
 INIT00             SA0    A0+1                                                            F1039        539     A     
 INIT00             SA6    A0          SAVE CURRENT WORD                                   F1039        540     A     
 INIT00                                                                                    F1039        541     A     
 INIT00    TCC7     SX6    A0                                                              F1039        542     A     
 INIT00             SA6    NXA         SAVE CURRENT ADDRESS                                F1039        543     A     
 INIT00             SX6    B4                                                              F1039        544     A     
 INIT00             SA6    CP          SAVE CURRENT CHARACTER POSITION                     F1039        545     A     
 INIT00             EQ     TCC10                                                           F1039        546     A     
 INIT00                                                                                    F1039        547     A     
 INIT00    TCC8     SX6    A0                                                              F1039        548     A     
 INIT00             SA6    NXA         SAVE CURRENT ADDRESS                                F1039        549     A     
 INIT00             MX6    1                                                               F1039        550     A     
 INIT00             SA6    TFF         TEMPLET FULL FLAG                                   F1039        551     A     
 INIT00                                                                                    F1039        552     A     
 INIT00    TCC10    SA2    SB5                                                             F1039        553     A     
 INIT00             SB5    X2          RESTORE B5                                          F1039        554     A     
 INIT00             SA2    SA0                                                             F1039        555     A     
 INIT00             SA0    X2          RESTORE A0                                          F1039        556     A     
 INIT00             EQ     EXIT.                                                           F1039        557     A     
 INIT00                                                                                    F1039        558     A     
 INIT00    TFF      CON    0           TEMPLET FULL FLAG                                   F1039        559     A     
 INIT00    SB5      CON    0           B5 SAVED HERE                                       F1039        560     A     
 INIT00    SA0      CON    0           A0 SAVED HERE                                       F1039        561     A     
 INIT00   *CALL     COMCSTF            SET TERMINAL FILE                                   INIT00      1379     A     
 INIT00   *CALL     COMFGOI            GLOBAL OVERLAY INITIALIZATION (QCG ONLY)            INIT00      1380     A     
 INIT00                                                                                    INIT00      1381     A     
 INIT00   *CALL     COMFFEI                  FRONT END INITIALIZATION                      INIT00      1382     A     
 INIT00                                                                                    INIT00      1383     A     
 INIT00   *CALL     COMSEIS            DEFINE SK. DATA STRUCTURE                           INIT00      1384     A     
 INIT00   *CALL     COMFROR            RESET OPCODE OF ROUNDABLES                          INIT00      1385     A     
 INIT00             LIST   D                                                               INIT00      1386     A     
 INIT00             ENTRY  B=LWA00                                                         INIT00      1387     A     
 INIT00    B=LWA00  END                MARK LWA OF OVERLAY FOR RPV                         INIT00      1388     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT00  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          INIT00                    1388      1232
          FC5A107                      6         3
          FC5A115                      6         5
          FC5A119                      4         1
          FC5A132                      1         1
          FC5A146                      5         5
          FC5A155                     15        15
          FC5A158A                    20        19
          FC5A164                      2         0
          FC5A173                     28        27
          FC5A174                      7         2
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT00  
  
          FC5A187                      3         2
          FC50022                     27        27
          F1037F5                     48        38
          FC5A262                      1         1
          FC50049                     11        10
          FC5A282                      2         2
          FC50314                      3         2
          FC5A321                      1         1
          FC5A333                     63        58
          FC5A348                     13        13
          FC50353                      2         2
          F1039                      426       409
          FC50626                      6         6
          FC50657                     15        15
          FC50735                     13        13
          FC50744                      1         1
          FC5A426                     79        74
          FC50844                     36        36
          FC5A433                     15        15
          FC5A445                      2         2
          FC5A444                     23        23
          FC5A464                      4         4
          FC51015                      7         7
          FC5A480                      3         3
          FC50982                     22        22
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT10  
  
 INIT10   *DECK     INIT10             SECONDARY INITIALIZATION - AFTER COMPASS            INIT10         1     A     
 INIT10             IDENT  INIT10                                                          INIT10         2     A     
 INIT10    INIT10   SECT   (REINITIALIZATION / AFTER COMPASS ASSEMBLY.)                    INIT10         3     A     
 INIT10    INIT10   SPACE  4,8                                                             INIT10         4     A     
 INIT10   *         IN FEC                                                                 INIT10         5     A     
 INIT10             EXT    ERT,ERT=OFF,ERT=ON                                              INIT10         6          I
          -FC50744
 INIT10             EXT    OSTACK                                                          FC50744       11     A     
 INIT10                                                                                    INIT10         7     A     
 INIT10   *         IN FTN                                                                 INIT10         8     A     
 INIT10             EXT    CO.ANSI,CO.LOA,CO.LOO,CO.LOR,CO.RNDA,CO.RNDD,CO.RNDM            INIT10         9     A     
 INIT10             EXT    CO.RNDS,CP.AFLS,CP.IFMT,CP.NFLS,FV.LGO,F.LGO,F.PB,F.REF         INIT10        10     A     
 INIT10             EXT    IDPCHK,SYS=,WNB=,CO.LOM,NOM.FL,NOM.FL0,NOM.FL1,NOM.FL2          INIT10        11          I
          -FC5A119
 INIT10             EXT    IDPCHK,SYS=,WNB=,CO.LOM,NOM.FL                                  FC5A119       29     A     
 INIT10             EXT    CO.OPT,CP.MXFL,MAX.FL,MEMERR,NOM.FLS,INT.FL                     INIT10        12     A     
 INIT10                                                                                    INIT10        13     A     
 INIT10   *         IN IDP                                                                 INIT10        14     A     
 INIT10             EXT    IDP=,IDP=USY,UKT=FE,UKT=LNK                                     INIT10        15     A     
 INIT10                                                                                    INIT10        16     A     
 INIT10   *         IN LABEL                                                               INIT10        17     A     
 INIT10             EXT    WIN                                                             INIT10        18     A     
 INIT10                                                                                    INIT10        19     A     
 INIT10   *         IN LIST                                                                INIT10        20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT10  
  
 INIT10             EXT    FIN.OL                                                          INIT10        21     A     
 INIT10                                                                                    INIT10        22     A     
 INIT10   *         IN MAP                                                                 INIT10        23     A     
 INIT10             EXT    FIN.MAP,FIN                                                     INIT10        24     A     
 INIT10                                                                                    INIT10        25     A     
 INIT10   *         IN PEM                                                                 INIT10        26     A     
 INIT10             EXT    ANSI.SW                                                         INIT10        27     A     
 INIT10                                                                                    INIT10        28     A     
 INIT10   *         IN PUC                                                                 INIT10        29     A     
 INIT10             EXT    ERRTYP,L.TABS,O.TABS,PUC,THRESH                                 INIT10        30     A     
 INIT10                                                                                    INIT10        31     A     
 INIT10   *         IN QSKEL                                                               INIT10        32     A     
 INIT10             EXT    F.SKEL                                                          INIT10        33     A     
 INIT10                                                                                    INIT10        34     A     
 INIT10   *         IN UTILITY                                                             INIT10        35     A     
 INIT10             EXT    RPV=                                                            INIT10        36     A     
 INIT10    FCA      SPACE  4,8                                                             INIT10        37     A     
 INIT10   **        FCA -  FINISHED WITH COMPASS ASSEMBLY.                                 INIT10        38     A     
 INIT10   *                                                                                INIT10        39     A     
 INIT10   *         ENTRY  THE (1,0) HAS JUST BEEN RELOADED AFTER RETURNING FROM           INIT10        40     A     
 INIT10   *                *COMPASS*, AND THE INPUT FILE IS NOT FINISHED.                  INIT10        41     A     
 INIT10   *                                                                                INIT10        42     A     
 INIT10   *         EXIT   TO PROGRAM UNIT CONTROLLER *PUC*.                               INIT10        43     A     
 INIT10   *                                                                                INIT10        44     A     
 INIT10   *         CALLS  FNL, GOI                                                        INIT10        45     A     
 INIT10                                                                                    INIT10        46     A     
 INIT10                                                                                    INIT10        47     A     
 INIT10    FTN10    BSSENT 0                                                               INIT10        48     A     
 INIT10                                                                                    INIT10        49     A     
 INIT10   *         TURN ON REPRIEVE.                                                      INIT10        50     A     
 INIT10                                                                                    INIT10        51     A     
 INIT10    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT10        52     A     
 INIT10             SA1    RA.SSW      SENSE SWITCH WORD                                   INIT10        53     A     
 INIT10             LX1    59-5-6      GET SWITCH 6                                        INIT10        54     A     
 INIT10             MI     X1,INI1     IF SWITCH 6 ON                                      INIT10        55     A     
 INIT10    .TEST    ENDIF                                                                  INIT10        56     A     
 INIT10                                                                                    INIT10        57     A     
 INIT10             RPVON              TURN ON REPRIEVE                                    INIT10        58     A     
 INIT10                                                                                    INIT10        59     A     
 INIT10   *         CHECK FOR IDP BREAK REQUEST.                                           INIT10        60     A     
 INIT10   *                                                                                INIT10        61     A     
 INIT10   *         LINK *FRONT END* IDP USER KEYWORD TABLE.                               INIT10        62     A     
 INIT10                                                                                    INIT10        63     A     
 INIT10    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT10        64     A     
 INIT10    INI1     SX6    =XUKT=FE    (X6) = FWA OF *FRONT END* IDP KEYWORD TBL           INIT10        65          I
          -FC5A158A 
 INIT10    INI1     BSS    0                                                               FC5A158A     403     A     
 INIT10    #OS      IFNE   .OS,2                                                           FC5A158A     404     A     
 INIT10             SX6    =XUKT=FE    (X6) = FWA OF *FRONT END* IDP KEYWORD TBL           FC5A158A     405     A     
 INIT10             SA6    =XUKT=LNK                                                       INIT10        66     A     
 INIT10             SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR               INIT10        67     A     
 INIT10             SA6    =XIDP=USY                                                       INIT10        68     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT10  
  
 INIT10             CALL   IDPCHK      CHECK FOR IDP REQUEST                               INIT10        69     A     
 INIT10             PL     B7,INI2     IF IDP NOT REQUESTED                                INIT10        70     A     
 INIT10    FTN10    BREAK                                                                  INIT10        71     A     
 INIT10    #OS      ENDIF                                                                  FC5A158A     406     A     
 INIT10    .TEST    ENDIF                                                                  INIT10        72     A     
 INIT10                                                                                    INIT10        73     A     
 INIT10   *         INITIALIZE OVERLAY.                                                    INIT10        74     A     
 INIT10                                                                                    INIT10        75     A     
 INIT10    INI2     SA1    =XCP.IFMT                                                       INIT10        76     A     
 INIT10             MI     X1,=XPUC    IF EOR, LET PUC CLEAN UP...                         INIT10        77     A     
 INIT10                                                                                    INIT10        78     A     
 INIT10             RJ     GOI         GLOBAL OVERLAY INITIALIZATION                       INIT10        79     A     
 INIT10             EQ     =XPUC       EXIT TO PROGRAM UNIT CONTROLLER...                  INIT10        80     A     
 INIT10             SPACE  4,4                                                             INIT10        81     A     
 INIT10             LIST   -X          COMFGOI, COMFFEI, COMSEIS, COMFROR AND              INIT10        82     A     
 INIT10                                FA=SET ARE LISTED IN DECK INIT00.                   INIT10        83     A     
 INIT10                                                                                    INIT10        84     A     
 INIT10   *CALL     COMFGOI            GLOBAL OVERLAY INITIALIZATION (QCG)                 INIT10        85     A     
 INIT10                                                                                    INIT10        86     A     
 INIT10   *CALL     COMFFEI                  FRONT END INITIALIZATION                      INIT10        87     A     
 INIT10                                                                                    INIT10        88     A     
 INIT10   *CALL     COMSEIS            DEFINE THE SK. DATA STRUCTURE                       INIT10        89     A     
 INIT10                                                                                    INIT10        90     A     
 INIT10   *CALL     COMFROR            RESET OPCODE OF ROUNDABLES                          INIT10        91     A     
 INIT10                                                                                    INIT10        92     A     
 INIT10             SPACE  4,10                                                            INIT10        93     A     
 INIT10             LIST   D                                                               INIT10        94     A     
 INIT10             ENTRY  B=LWA10                                                         INIT10        95     A     
 INIT10    B=LWA10  END                MARK END OF OVERLAY FOR RPV                         INIT10        96     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT10  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          INIT10                      96        93
          FC5A119                      1         1
          FC5A158A                     4         4
          FC50744                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT20  
  
 INIT20   *DECK     INIT20 (2,0) OVERLAY INITIALIZATION                                    INIT20         1     A     
 INIT20             IDENT  INIT20                                                          INIT20         2     A     
 INIT20    INIT20   SECT   (INITIALIZE CONTROLLER OVERLAY.),INI20                          INIT20         3     A     
 INIT20    INIT20   SPACE  4,10                                                            INIT20         4     A     
 INIT20   *         IN FTN                                                                 INIT20         5     A     
 INIT20             EXT    CP.AFLS,IDPCHK,SYS=,INT.FL                                      INIT20         6          I
          -FC50518
 INIT20             EXT    CP.AFLS,CP.IFMT,FV.LGO,F.LGO,IDPCHK,SYS=,INT.FL                 FC50518        7     A     
 INIT20                                                                                    INIT20         7     A     
 INIT20   *         IN IDP                                                                 INIT20         8     A     
 INIT20             EXT    IDP=                                                            INIT20         9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT20  
  
 INIT20                                                                                    INIT20        10     A     
 INIT20   *         IN PUC                                                                 INIT20        11     A     
 INIT20             EXT    PUC                                                             INIT20        12     A     
 INIT20                                                                                    INIT20        13     A     
 INIT20   *         IN UTILITY                                                             INIT20        14     A     
 INIT20             EXT    RPV=                                                            INIT20        15     A     
 INIT20    END20    SPACE  4,10                                                            INIT20        16     A     
 INIT20    END20    BSS    0           ALL CODE PAST HERE IS OVERLAYED                     INIT20        17     A     
 INIT20    INIT20   SPACE  4,10                                                            INIT20        18     A     
 INIT20   **        INIT20 - INITIALIZE CONTROLLER OVERLAY.                                INIT20        19     A     
 INIT20   *                                                                                INIT20        20     A     
 INIT20   *         ENTRY  THE (2,0) HAS JUST BEEN LOADED.                                 INIT20        21     A     
 INIT20   *                                                                                INIT20        22     A     
 INIT20   *         EXIT   TO *PUC* TO BEGIN NEXT PROGRAM UNIT.                            INIT20        23     A     
 INIT20                                                                                    INIT20        24     A     
 INIT20    FTN20    BSSENT                                                                 INIT20        25     A     
 INIT20                                                                                    INIT20        26     A     
 INIT20   *         TURN ON REPRIEVE.                                                      INIT20        27     A     
 INIT20                                                                                    INIT20        28     A     
 INIT20    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT20        29     A     
 INIT20             SA1    RA.SSW      SENSE SWITCH WORD                                   INIT20        30     A     
 INIT20             LX1    59-5-6      GET SWITCH 6                                        INIT20        31     A     
 INIT20             MI     X1,INI1     IF SWITCH 6 ON                                      INIT20        32     A     
 INIT20    .TEST    ENDIF                                                                  INIT20        33     A     
 INIT20                                                                                    INIT20        34     A     
 INIT20             RPVON              TURN ON REPRIEVE                                    INIT20        35     A     
 INIT20                                                                                    INIT20        36     A     
 INIT20   *         CHECK FOR IDP BREAK REQUEST.                                           INIT20        37     A     
 INIT20                                                                                    INIT20        38     A     
 INIT20    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT20        39     A     
 INIT20    INI1     CALL   IDPCHK      CHECK FOR IDP REQUEST                               INIT20        40          I
          -FC5A158A 
 INIT20    INI1     BSS    0                                                               FC5A158A     407     A     
 INIT20    #OS      IFNE   .OS,2                                                           FC5A158A     408     A     
 INIT20             CALL   IDPCHK      CHECK FOR IDP REQUEST                               FC5A158A     409     A     
 INIT20             PL     B7,INI2     IF IDP NOT REQUESTED                                INIT20        41     A     
 INIT20    FTN20    BREAK                                                                  INIT20        42     A     
 INIT20    #OS      ENDIF                                                                  FC5A158A     410     A     
 INIT20    .TEST    ENDIF                                                                  INIT20        43     A     
 INIT20                                                                                    INIT20        44     A     
 INIT20   *         INITIALIZE OVERLAY.                                                    INIT20        45     A     
 INIT20                                                                                    INIT20        46     A     
 INIT20    INI2     SA1    CP.AFLS     CURRENT FL                                          INIT20        47     A     
 INIT20             BX6    X1                                                              INIT20        48     A     
 INIT20             SA6    INT.FL      SAVE INITIAL FL                                     INIT20        49     A     
 INIT20             SA1    CP.IFMT                                                         FC50518        8     A     
 INIT20             PL     X1,PUC      IF NOT EOR, LAST READ                               FC50518        9     A     
 INIT20             SA1    FV.LGO                                                          FC50518       10     A     
 INIT20             ZR     X1,PUC      IF NO BINARY FILE                                   FC50518       11     A     
 INIT20             SETFIL FILE=F.LGO,MODE=INIT,FWA=END20                                  FC50518       12     A     
 INIT20             EQ     PUC         EXIT TO PROGRAM UNIT CONTROLLER...                  INIT20        50     A     
 INIT20             SPACE  4                                                               INIT20        51     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT20  
  
 INIT20             LIST   -X          COMFCIP IS LISTED IN *FTN*                          INIT20        52     A     
 INIT20   *CALL     COMFCIP            COMPILER INSTALLATION PARAMETERS                    INIT20        53     A     
 INIT20             LIST   *                                                               INIT20        54     A     
 INIT20    OVERLAY  SPACE  4,10                                                            INIT20        55     A     
 INIT20   **        SET UP FWA OF SECONDARY OVERLAYS.                                      INIT20        56     A     
 INIT20                                                                                    INIT20        57     A     
 INIT20                                                                                    INIT20        58     A     
 INIT20    FWA21    EQUENT END20       SET START OF (2,1) TO END OF (2,0)                  INIT20        59     A     
 INIT20    FWA22    EQUENT END20+Z.ILB+Z.PBB SET START OF (2,2) AFTER BUFFERS              INIT20        60     A     
 INIT20    FW.ILB   EQUENT END20       SET IL BUFFER TO END OF (2,0)                       INIT20        61     A     
 INIT20    FW.PBB   EQUENT FW.ILB+Z.ILB      PUT PB BUFFER AFTER IL BUFFER                 INIT20        62     A     
 INIT20    FWA23    EQUENT END20       SET START OF (2,3) TO END OF (2,0)                  INIT20        63     A     
 INIT20                                                                                    INIT20        64     A     
 INIT20                                                                                    INIT20        65     A     
 INIT20             LIST   D                                                               INIT20        66     A     
 INIT20             ENTRY  B=LWA20                                                         INIT20        67     A     
 INIT20    B=LWA20  END                MARK LWA OF OVERLAY FOR RPV                         INIT20        68     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT20  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          INIT20                      68        66
          FC5A158A                     4         4
          FC50518                      6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT21  
  
 INIT21   *DECK     INIT21 (2,1) OVERLAY INITIALIZATION                                    INIT21         1     A     
 INIT21             IDENT  INIT21                                                          INIT21         2     A     
 INIT21    INIT21   SECT   (INITIALIZE FRONT END OVERLAY.),INI21                           INIT21         3     A     
 INIT21    INIT21   SPACE  4,10                                                            INIT21         4     A     
 INIT21   *         IN FEC                                                                 FC50744       12     A     
 INIT21             EXT    FEC                                                             FC50744       13     A     
 INIT21                                                                                    FC50744       14     A     
 INIT21   *         IN FSNAP                                                               INIT21         5     A     
 INIT21             EXT    ERT,ERT=OFF,ERT=ON,FEC,UKT=FE                                   INIT21         6          I
          -FC50744
 INIT21             EXT    UKT=FE                                                          FC50744       15     A     
 INIT21                                                                                    INIT21         7     A     
 INIT21   *         IN FSKEL                                                               INIT21         8     A     
 INIT21             EXT    F.SKEL                                                          INIT21         9     A     
 INIT21                                                                                    INIT21        10     A     
 INIT21   *         IN FTN                                                                 INIT21        11     A     
 INIT21             EXT    CO.ANSI,CO.LOR,CO.RNDA,CO.RNDS,CO.RNDM,CO.RNDD,CP.NFLS          INIT21        12     A     
 INIT21             EXT    F.IL,F.REF,IDPCHK,SYS=,WNB=                                     INIT21        13     A     
 INIT21                                                                                    INIT21        14     A     
 INIT21   *         IN IDP                                                                 INIT21        15     A     
 INIT21             EXT    IDP=,IDP=USY,UKT=LNK                                            INIT21        16     A     
 INIT21                                                                                    INIT21        17     A     
 INIT21   *         IN PAR                                                                 INIT21        18     A     
 INIT21             EXT    SQZ                                                             INIT21        19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT21  
  
 INIT21                                                                                    INIT21        20     A     
 INIT21   *         IN PEM                                                                 INIT21        21     A     
 INIT21             EXT    ANSI.SW,ERRTYP                                                  INIT21        22     A     
 INIT21                                                                                    INIT21        23     A     
 INIT21   *         IN PUC                                                                 INIT21        24     A     
 INIT21             EXT    L.TABS,N.MAXIL,O.TABS,THRESH                                    INIT21        25     A     
 INIT21                                                                                    INIT21        26     A     
 INIT21   *         IN RPV20                                                               INIT21        27     A     
 INIT21             EXT    RPV2N                                                           INIT21        28     A     
 INIT21                                                                                    INIT21        29     A     
 INIT21   *         IN RPV21                                                               INIT21        30     A     
 INIT21             EXT    RPV21                                                           INIT21        31     A     
 INIT21                                                                                    INIT21        32     A     
 INIT21   *         IN UTILITY                                                             INIT21        33     A     
 INIT21             EXT    RPV=                                                            INIT21        34     A     
 INIT21    INIT21   SPACE  4,10                                                            INIT21        35     A     
 INIT21   **        INIT21 - INITIALIZE FRONT END OVERLAY.                                 INIT21        36     A     
 INIT21   *                                                                                INIT21        37     A     
 INIT21   *         ENTRY  THE (2,1) HAS JUST BEEN LOADED.                                 INIT21        38     A     
 INIT21   *                                                                                INIT21        39     A     
 INIT21   *         EXIT   TO FRONT END CONTROLLER *FEC* TO BEGIN                          INIT21        40     A     
 INIT21   *                NEXT PROGRAM UNIT.                                              INIT21        41     A     
 INIT21                                                                                    INIT21        42     A     
 INIT21    FTN21    BSSENT                                                                 INIT21        43     A     
 INIT21                                                                                    INIT21        44     A     
 INIT21   *         LINK RPV TABLES.                                                       INIT21        45     A     
 INIT21                                                                                    INIT21        46     A     
 INIT21             BX6    X6-X6                                                           INIT21        47     A     
 INIT21             SX7    RPV21       (X7) = FWA OF (2,1) RNA TABLE                       INIT21        48     A     
 INIT21             SA6    RPV2N       MARK END-OF-(2,0) RNA TABLE                         INIT21        49     A     
 INIT21             SA7    A6+1        STORE LINK TO (2,1) RNA TABLE                       INIT21        50     A     
 INIT21                                                                                    INIT21        51     A     
 INIT21   *         TURN ON REPRIEVE.                                                      INIT21        52     A     
 INIT21                                                                                    INIT21        53     A     
 INIT21    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT21        54     A     
 INIT21             SA1    RA.SSW      SENSE SWITCH WORD                                   INIT21        55     A     
 INIT21             LX1    59-5-6      GET SWITCH 6                                        INIT21        56     A     
 INIT21             MI     X1,INI1     IF SWITCH 6 ON                                      INIT21        57     A     
 INIT21    .TEST    ENDIF                                                                  INIT21        58     A     
 INIT21                                                                                    INIT21        59     A     
 INIT21             RPVON              TURN ON REPRIEVE                                    INIT21        60     A     
 INIT21                                                                                    INIT21        61     A     
 INIT21   *         CHECK FOR IDP BREAK REQUEST.                                           INIT21        62     A     
 INIT21   *                                                                                INIT21        63     A     
 INIT21   *         IF THERE ARE ANY IDP KEYWORDS THAT ARE (2,1) SPECIFIC,                 INIT21        64     A     
 INIT21   *         THEN THIS IS THE PLACE TO LINK IDP TO THEM BY STORING                  INIT21        65     A     
 INIT21   *         THE FWA OF THE (2,1) IDP KEYWORD TABLE AT (UKT=LNK).                   INIT21        66     A     
 INIT21   *         SEE *UKT=LNK* IN DECK *IDP*.                                           INIT21        67     A     
 INIT21                                                                                    INIT21        68     A     
 INIT21    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT21        69     A     
 INIT21    INI1     BSS    0                                                               FC5A158A     411     A     
 INIT21    #OS      IFNE   .OS,2                                                           FC5A158A     412     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT21  
  
 INIT21             SX6    UKT=FE                                                          INIT21        70     A     
 INIT21             SA6    UKT=LNK                                                         INIT21        71     A     
 INIT21             SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR               INIT21        72     A     
 INIT21             SA6    =XIDP=USY                                                       INIT21        73     A     
 INIT21    INI1     CALL   IDPCHK      CHECK FOR IDP REQUEST                               INIT21        74          I
          -FC5A158A 
 INIT21             CALL   IDPCHK      CHECK FOR IDP REQUEST                               FC5A158A     413     A     
 INIT21             PL     B7,INI2     IF IDP NOT REQUESTED                                INIT21        75     A     
 INIT21    FTN21    BREAK                                                                  INIT21        76     A     
 INIT21    #OS      ENDIF                                                                  FC5A158A     414     A     
 INIT21    .TEST    ENDIF                                                                  INIT21        77     A     
 INIT21                                                                                    INIT21        78     A     
 INIT21   *         INITIALIZE OVERLAY.                                                    INIT21        79     A     
 INIT21                                                                                    INIT21        80     A     
 INIT21    INI2     SB3    FTN21       END OF CODE IN OVERLAY                              INIT21        81     A     
 INIT21             SA2    CO.LOR      MASTER REFERENCE MAP FLAG                           INIT21        82     A     
 INIT21             PL     X2,INI3     IF NO MAP                                           INIT21        83     A     
 INIT21             SETFIL FILE=F.REF,MODE=INIT,FWA=B3  SET MAP BUFFER                     INIT21        84     A     
 INIT21    INI3     SETFIL FILE=F.IL,MODE=INIT,FWA=B3   SET IL BUFFER                      INIT21        85     A     
 INIT21             SX6    B3          LWA+1 OF IL BUFFER                                  INIT21        86     A     
 INIT21             SA6    O.TABS      SET ORIGIN OF MANAGED TABLES                        INIT21        87     A     
 INIT21             SA2    CP.NFLS                                                         INIT21        88     A     
 INIT21             IX6    X2-X6                                                           INIT21        89     A     
 INIT21             SA6    L.TABS      SET SIZE OF TABLE AREA                              INIT21        90     A     
 INIT21             AX6    FLSLOP                                                          INIT21        91     A     
 INIT21             SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                          INIT21        92     A     
 INIT21             RJ     FEI         FRONT END INITIALIZATION                            INIT21        93     A     
 INIT21             SB2    F.SKEL                                                          INIT21        94     A     
 INIT21             RJ     ROR         RESET OPCODE OF ROUNDABLES                          INIT21        95     A     
 INIT21                                                                                    INIT21        96     A     
 INIT21   **        SET (N.MAXIL) = ZERO IN CCG MODE.  THIS CAUSES AN IL                   INIT21        97     A     
 INIT21   *         SEGMENT FLUSH AS OFTEN AS POSSIBLE.  CCG DIES IF SQUEEZE               INIT21        98     A     
 INIT21   *         CROSSES STATEMENT BOUNDARIES.                                          INIT21        99     A     
 INIT21                                                                                    INIT21       100     A     
 INIT21    INI5     MX7    0                                                               INIT21       101     A     
 INIT21             SA7    N.MAXIL     FORCE MINIMAL IL SEGMENTS                           INIT21       102     A     
 INIT21             EQ     FEC         TRANSFER TO FRONT END CONTROLLER                    INIT21       103     A     
 INIT21    DLF      SPACE  4,10                                                            INIT21       104     A     
 INIT21   **        DLF - DUMP LINK AND FILL TABLES.                                       INIT21       105     A     
 INIT21   *                                                                                INIT21       106     A     
 INIT21   *         THIS IS A DUMMY ENTRY POINT FOR ALLOC.                                 INIT21       107     A     
 INIT21                                                                                    INIT21       108     A     
 INIT21    DLF      BSSENT 0           SATISFY EXTERNAL FOR ALLOC                          INIT21       109     A     
 INIT21             IFEQ   TEST,ON,1   IF TEST MODE                                        INIT21       110     A     
 INIT21             EQ     "BLOWUP"    CAN'T CALL DLF IN PASS 1.                           INIT21       111     A     
 INIT21                                                                                    INIT21       112     A     
 INIT21                                                                                    INIT21       113     A     
 INIT21             LIST   -X          FA=SET, COMFFEI, COMSEIS AND COMFROR ARE            INIT21       114     A     
 INIT21                                LISTED IN DECK INIT00.                              INIT21       115     A     
 INIT21                                                                                    INIT21       116     A     
 INIT21                                                                                    INIT21       117     A     
 INIT21   *CALL     COMFFEI                  FRONT END INITIALIZATION                      INIT21       118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT21  
  
 INIT21                                                                                    INIT21       119     A     
 INIT21   *CALL COMSEIS                                                                    INIT21       120     A     
 INIT21                                                                                    INIT21       121     A     
 INIT21   *CALL COMFROR                                                                    INIT21       122     A     
 INIT21                                                                                    INIT21       123     A     
 INIT21                                                                                    INIT21       124     A     
 INIT21             LIST   D                                                               INIT21       125     A     
 INIT21             ENTRY  B=LWA21                                                         INIT21       126     A     
 INIT21    B=LWA21  END                MARK LWA OF OVERLAY FOR RPV                         INIT21       127     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT21  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          INIT21                     127       125
          FC5A158A                     4         4
          FC50744                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT23  
  
 INIT23   *DECK     INIT23 (2,3) OVERLAY INITIALIZATION                                    INIT23         1     A     
 INIT23             IDENT  INIT23                                                          INIT23         2     A     
 INIT23    INIT23   SECT   (INITIALIZE REAR END OVERLAY.),INI23                            INIT23         3     A     
 INIT23    INIT23   SPACE  4,10                                                            INIT23         4     A     
 INIT23   *         IN FTN                                                                 INIT23         5     A     
 INIT23             EXT    CO.LOR,CO.SNAP,CP.NFLS,FV.LGO,F.LGO,F.PB,F.REF,IDPCHK           INIT23         6     A     
 INIT23             EXT    SYS=,WNB=                                                       INIT23         7     A     
 INIT23                                                                                    INIT23         8     A     
 INIT23   *         IN IDP                                                                 INIT23         9     A     
 INIT23             EXT    IDP=,IDP=USY,PTO,UKT=LNK                                        INIT23        10     A     
 INIT23                                                                                    INIT23        11     A     
 INIT23   *         IN PUC                                                                 INIT23        12     A     
 INIT23             EXT    BASES,L.TABS,O.TABS,RPV=URP,SIZES,THRESH,WOF                    INIT23        13     A     
 INIT23                                                                                    INIT23        14     A     
 INIT23   *         IN REC                                                                 INIT23        15     A     
 INIT23             EXT    REC                                                             INIT23        16     A     
 INIT23                                                                                    INIT23        17     A     
 INIT23   *         IN RPV20                                                               INIT23        18     A     
 INIT23             EXT    RPV2N                                                           INIT23        19     A     
 INIT23                                                                                    INIT23        20     A     
 INIT23   *         IN RPV23                                                               INIT23        21     A     
 INIT23             EXT    RPV23                                                           INIT23        22     A     
 INIT23                                                                                    INIT23        23     A     
 INIT23   *         IN RSNAP                                                               INIT23        24     A     
 INIT23             EXT    UKT=RE                                                          INIT23        25     A     
 INIT23                                                                                    INIT23        26     A     
 INIT23   *         IN UTILITY                                                             INIT23        27     A     
 INIT23             EXT    RPV=                                                            INIT23        28     A     
 INIT23    INIT23   SPACE  4,10                                                            INIT23        29     A     
 INIT23   **        INIT23 - INITIALIZE REAR END OVERLAY.                                  INIT23        30     A     
 INIT23   *                                                                                INIT23        31     A     
 INIT23   *         ENTRY  THE (2,3) HAS JUST BEEN LOADED.                                 INIT23        32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT23  
  
 INIT23   *                                                                                INIT23        33     A     
 INIT23   *         EXIT   TO *REC* TO BEGIN ASSEMBLY AND MAP PROCESSING.                  INIT23        34     A     
 INIT23                                                                                    INIT23        35     A     
 INIT23    FTN23    BSSENT                                                                 INIT23        36     A     
 INIT23                                                                                    INIT23        37     A     
 INIT23   *         LINK RPV TABLES.                                                       INIT23        38     A     
 INIT23                                                                                    INIT23        39     A     
 INIT23             SX6    0                                                               INIT23        40     A     
 INIT23             SX7    RPV23       (X7) = FWA OF (2,3) RNA TABLE                       INIT23        41     A     
 INIT23             SA6    RPV2N       MARK END-OF-(2,0) RNA TABLE                         INIT23        42     A     
 INIT23             SA7    A6+1        STORE LINK TO (2,3) RNA TABLE                       INIT23        43     A     
 INIT23                                                                                    INIT23        44     A     
 INIT23   *         TURN ON REPRIEVE.                                                      INIT23        45     A     
 INIT23                                                                                    INIT23        46     A     
 INIT23    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT23        47     A     
 INIT23             =X6    0                                                               INIT23        48     A     
 INIT23             SA6    RPV=URP     CLEAR USER REPRIEVE PROCESSING                      INIT23        49     A     
 INIT23             SA1    RA.SSW      SENSE SWITCH WORD                                   INIT23        50     A     
 INIT23             LX1    59-5-6      GET SWITCH 6                                        INIT23        51     A     
 INIT23             MI     X1,INI1     IF SWITCH 6 ON                                      INIT23        52     A     
 INIT23    .TEST    ENDIF                                                                  INIT23        53     A     
 INIT23                                                                                    INIT23        54     A     
 INIT23             RPVON              TURN ON REPRIEVE                                    INIT23        55     A     
 INIT23                                                                                    INIT23        56     A     
 INIT23   *         CHECK FOR IDP BREAK REQUEST.                                           INIT23        57     A     
 INIT23   *         LINK (2,3) SPECIFIC IDP KEYWORDS TO ROOT LIST.                         INIT23        58     A     
 INIT23   *         SEE *UKT=LNK* IN (2,0) DECK *IDP*.                                     INIT23        59     A     
 INIT23                                                                                    INIT23        60     A     
 INIT23    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT23        61     A     
 INIT23    INI1     BSS    0                                                               FC5A158A     415     A     
 INIT23    #OS      IFNE   .OS,2                                                           FC5A158A     416     A     
 INIT23             SX6    UKT=RE                                                          INIT23        62     A     
 INIT23             SA6    UKT=LNK                                                         INIT23        63     A     
 INIT23                                                                                    INIT23        64     A     
 INIT23             SX6    =YUSY=RE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR               INIT23        65     A     
 INIT23             SA6    IDP=USY                                                         INIT23        66     A     
 INIT23                                                                                    INIT23        67     A     
 INIT23    INI1     CALL   IDPCHK      CHECK FOR IDP REQUEST                               INIT23        68          I
          -FC5A158A 
 INIT23             CALL   IDPCHK      CHECK FOR IDP REQUEST                               FC5A158A     417     A     
 INIT23             PL     B7,INI2     IF IDP NOT REQUESTED                                INIT23        69     A     
 INIT23    FTN23    BREAK                                                                  INIT23        70     A     
 INIT23    #OS      ENDIF                                                                  FC5A158A     418     A     
 INIT23    .TEST    ENDIF                                                                  INIT23        71     A     
 INIT23                                                                                    INIT23        72     A     
 INIT23   *         INITIALIZE OVERLAY.                                                    INIT23        73     A     
 INIT23                                                                                    INIT23        74     A     
 INIT23    INI2     SB3    FTN23       END OF CODE IN OVERLAY                              INIT23        75     A     
 INIT23             SA2    CO.LOR      MASTER REFERENCE MAP FLAG                           INIT23        76     A     
 INIT23             PL     X2,INI3     IF NO MAP                                           INIT23        77     A     
 INIT23             SETFIL FILE=F.REF,MODE=INIT,FWA=B3  SET MAP BUFFER                     INIT23        78     A     
 INIT23    INI3     SETFIL FILE=F.PB,MODE=INIT,FWA=B3   SET PB BUFFER                      INIT23        79     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT23  
  
 INIT23             SA1    FV.LGO                                                          INIT23        80     A     
 INIT23             SX6    B3                                                              INIT23        81     A     
 INIT23             ZR     X1,INI3A    IF NO LGO                                           INIT23        82     A     
 INIT23             SETFIL FILE=F.LGO,MODE=INIT,FWA=B3  SET LGO BUFFER                     INIT23        83     A     
 INIT23             SX6    B2          FWA OF LGO                                          INIT23        84     A     
 INIT23    INI3A    SA6    O.TABS      SET ORIGIN OF MANAGED TABLES                        INIT23        85     A     
 INIT23             SA6    BASES       SET START OF FIRST TABLE                            INIT23        86     A     
 INIT23                                                                                    INIT23        87     A     
 INIT23    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT23        88     A     
 INIT23             SA1    SIZES                                                           INIT23        89     A     
 INIT23             ZR     X1,INI4     IF FIRST TABLE EMPTY                                INIT23        90     A     
 INIT23             PLINE  INIA,5                                                          INIT23        91     A     
 INIT23             EQ     INI5        PRINT TABLE STATISTICS                              INIT23        92     A     
 INIT23                                                                                    INIT23        93     A     
 INIT23    INI4     SA1    CO.SNAP                                                         INIT23        94     A     
 INIT23             LX1    1RT                                                             INIT23        95     A     
 INIT23             PL     X1,INI6     IF NO SNAP DESIRED                                  INIT23        96     A     
 INIT23    INI5     PLINE  INIB,5                                                          INIT23        97     A     
 INIT23             CALL   PTO         PRINT TABLE ORIGINS                                 INIT23        98     A     
 INIT23    INI6     SA1    O.TABS                                                          INIT23        99     A     
 INIT23             BX6    X1          RESTORE (X6) AFTER SNAPS                            INIT23       100     A     
 INIT23    .TEST    ENDIF                                                                  INIT23       101     A     
 INIT23                                                                                    INIT23       102     A     
 INIT23             SA2    CP.NFLS                                                         INIT23       103     A     
 INIT23             IX6    X2-X6                                                           INIT23       104     A     
 INIT23             SA6    L.TABS      SET SIZE OF TABLE AREA                              INIT23       105     A     
 INIT23             AX6    FLSLOP                                                          INIT23       106     A     
 INIT23             SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                          INIT23       107     A     
 INIT23             SA1    FV.LGO                                                          INIT23       108          I
          -FC50681
 INIT23             ZR     X1,REC      IF B=0, EXIT TO REAR END CONTROLLER...              INIT23       109          I
          -FC50681
 INIT23                                                                                    INIT23       110          I
          -FC50681
 INIT23             IFNE   CP#RM,0,1   IF 7RM I/O                                          INIT23       111          I
          -FC50681
 INIT23             OPEN   F.LGO                                                           INIT23       112          I
          -FC50681
 INIT23                                                                                    INIT23       113          I
          -FC50681
 INIT23             EQ     REC         TRANSFER TO REAR END CONTROLLER...                  INIT23       114     A     
 INIT23                                                                                    INIT23       115     A     
 INIT23    .T       IFEQ   TEST,ON                                                         INIT23       116     A     
 INIT23    INIA     DIS    5,  -----    *         TRASHED TABLES NOT ALL EMPTY.            INIT23       117     A     
 INIT23    INIB     DIS    5,   TABLE STATISTICS ON ENTRY TO PASS THREE --                 INIT23       118     A     
 INIT23    .T       ENDIF                                                                  INIT23       119     A     
 INIT23                                                                                    INIT23       120     A     
 INIT23                                                                                    INIT23       121     A     
 INIT23                                                                                    INIT23       122     A     
 INIT23                                                                                    INIT23       123     A     
 INIT23             LIST   D                                                               INIT23       124     A     
 INIT23             ENTRY  B=LWA23                                                         INIT23       125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT23  
  
 INIT23    B=LWA23  END                MARK LWA OF OVERLAY FOR RPV                         INIT23       126     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT23  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          INIT23                     126       119
          FC5A158A                     4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *FRONT* 
  
 *FRONT*  *DECK *FRONT*                                                                    *FRONT*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *FRONT* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *FRONT*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *DECK     FEC                FRONT END CONTROLLER                                FEC            1     A     
 FEC                IDENT  FEC                                                             FEC            2     A     
 FEC       FEC      SECT   (FRONT END CONTROLLER AND SUPPORT.)                             FEC            3     A     
 FEC       FEC      SPACE  4                                                               FEC            4     A     
 FEC      *         IN ALLOC                                                               FEC            5     A     
 FEC                EXT    ADWT,ALC.REG,ALC.00,ALC                                         FEC            6     A     
 FEC                                                                                       FC5A337        6          I
          -FC50785
 FEC      *         IN DATA                                                                FC5A337        7          I
          -FC50785
 FEC                EXT    KW=DATA                                                         FC5A337        8          I
          -FC50785
 FEC                                                                                       FEC            7     A     
 FEC      *         IN DECL                                                                FEC            8     A     
 FEC                EXT    PCD                                                             FEC            9     A     
 FEC                                                                                       FEC           10     A     
 FEC      *         IN FERRS                                                               FEC           11     A     
 FEC                EXT    CLASS,E.ANS2,E.C$15,E.DM03,E.DM04,E.DO09,E.FM,E.IF17            FEC           12          I
          -FC5A335
 FEC                EXT    E.LV6,E.MA,E.MB,E.MD,E.MDO,E.MH,E.MI,E.MS,E.NP,E.SU04           FEC           13          I
          -FC5A335
 FEC                EXT    E.SU06,E.TY7,E.VA00,E.VA02,E.VA09,E.VA10,FILL.                  FEC           14          I
          -FC5A335
 FEC                EXT    FILL.2,MOD.DPC                                                  FEC           15          I
          -FC5A184
 FEC                EXT    FILL.2,MOD.DPC,E.AS6                                            FC5A184        8          I
          -FC5A335
 FEC                EXT    CLASS,E.ANS1,E.ANS2,E.AS6,E.CM8,E.C$15,E.DM03,E.DM04            FC5A335        4     A     
 FEC                EXT    E.DO09,E.FM,E.IF17,E.LV6,E.MA,E.MB,E.MD,E.MDO,E.MH,E.MI         FC5A335        5     A     
 FEC                EXT    E.MS,E.NP,E.SEQ,E.SU04,E.SU06,E.TY7,E.VA00,E.VA02               FC5A335        6     A     
 FEC                EXT    E.VA09,E.VA10,FILL.,FILL.2,MOD.DPC                              FC5A335        7          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
          -FC51347
 FEC                EXT    E.VA09,E.VA10,FILL.,FILL.2,MOD.DPC,E.STO                        FC51347        8     A     
 FEC                                                                                       FEC           16     A     
 FEC      *         IN FSNAP                                                               FEC           17     A     
 FEC                EXT    FI=BRLI,SN.PAR                                                  FEC           18     A     
 FEC                                                                                       FEC           19     A     
 FEC      *         IN FTN                                                                 FEC           20     A     
 FEC                EXT    CO.C$,CO.LOS,CO.SEQ,CO.SNAP,CP.FLIN,F.REF,L.C$,L.TITL           FEC           21          I
          -FC5A255
 FEC                EXT    TL.PTYP                                                         FEC           22          I
          -FC5A255
 FEC                EXT    CO.ANSI,CO.C$,CO.LOS,CO.SEQ,CO.SNAP,CP.FLIN,F.REF,L.C$          FC5A255        6     A     
 FEC                EXT    L.TITL,TL.PTYP                                                  FC5A255        7     A     
 FEC                EXT    ERFO                                                            F1039        562     A     
 FEC                                                                                       FEC           23     A     
 FEC      *         IN GEN/BRIDGE                                                          FEC           24     A     
 FEC                EXT    BN=CON,BN=FMT,BN=IOAP,BN=NLST                                   FEC           25     A     
 FEC                                                                                       FEC           26     A     
 FEC      *         IN HEADER                                                              FEC           27     A     
 FEC                EXT    PSF                                                             FEC           28     A     
 FEC                                                                                       FEC           29     A     
 FEC      *         IN IDP                                                                 FEC           30     A     
 FEC                EXT    IDP=SVX,IDP=,REG=                                               FEC           31     A     
 FEC                                                                                       FEC           32     A     
 FEC      *         IN KEY                                                                 FEC           33     A     
 FEC                EXT    INIF,KW=CONT                                                    FEC           34     A     
 FEC                                                                                       FEC           35     A     
 FEC      *         IN LABEL                                                               FEC           36     A     
 FEC                EXT    GSL,PDA,PSL                                                     FEC           37          I
          -FC50110
 FEC                EXT    GSL,PDA                                                         FC50110        6     A     
 FEC                                                                                       FEC           38     A     
 FEC      *         IN LEX                                                                 FEC           39     A     
 FEC                EXT    LDB,LEX,LEXFLG,LEXMODE,SB=LINC,SB=LORD,TB=LABL,TB=LABR          FEC           40     A     
 FEC                EXT    TB=NUML,TB=TYPE,TB=1ST                                          FEC           41     A     
 FEC                                                                                       FEC           42     A     
 FEC      *         IN LISTLNK                                                             FC5A150      286     A     
 FEC                EXT    ALC=CNT,MOVES,PARSLEN                                           FC5A150      287     A     
 FEC                                                                                       FC5A150      288     A     
 FEC      *         IN PAR                                                                 FEC           43     A     
 FEC                EXT    CURST,EMT,OPBOS,OPBSS                                           FEC           44          I
          -FC50128
 FEC                EXT    CURST,EMT,OPBOS,OPBSS,PARNOW                                    FC50128        6          I
          -FC50104
 FEC                EXT    CURST,EMT,OPBSS,PARNOW                                          FC50104       47     A     
 FEC                                                                                       FEC           45     A     
 FEC      *         IN PEM                                                                 FEC           46     A     
 FEC                EXT    ANSI=,PDM                                                       FEC           47     A     
 FEC                                                                                       FEC           48     A     
 FEC      *         IN PUC                                                                 FEC           49     A     
 FEC                EXT    ALC=CNT,BASES,BLNKCOM,CHARDCL,ERRORS,ERRTYP,ERR=K               FEC           50          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                EXT    BASES,BLNKCOM,CHARDCL,ERRORS,ERRTYP,ERR=K                       FC5A150      289     A     
 FEC                EXT    E=TOTAL,FAILSFT,F.LBT,F.SORD,HDRBL,IO.TEM,LEVEL,LEVEL0          FEC           51     A     
 FEC                EXT    LEVEL2,LINES,LJS,LOSTREF,L=TABLE,L.TABS,MOD,MOVES,NARGS         FEC           52          I
          -FC5A150
 FEC                EXT    LEVEL2,LINES,LJS,LOSTREF,L=TABLE,L.TABS,MOD,NARGS               FC5A150      290          I
          -FC50567
 FEC                EXT    LEVEL2,LINES,LJS,LOSTREF,L=TABLE,L.TABS,MOD,NARGS,N.FP          FC50567        5     A     
 FEC                EXT    NOLIST,N.AP,N.ARP,N.CPL,N.CT,N.CTMAX,N.DOB,N.EPL,N.ERRT         FEC           53     A     
 FEC                EXT    N.GL,N.MAXIL,N.ST,N.STMAX,N.TABLE,N.VD,O.STITL,O.TABS           FEC           54     A     
 FEC                EXT    PARSLEN,PASS,RATES,REFIO,SAVE,SCR,SIZES,S=BU,S=CL,S=CON         FEC           55          I
          -FC5A150
 FEC                EXT    PASS,RATES,REFIO,SAVE,SCR,SIZES,S=BU,S=CL,S=CON                 FC5A150      291     A     
 FEC                EXT    S=CT,S=ENTRY,S=FAR,S=FAS,S=FID,S=FMC,S=FVS,S=IT,S=LA            FEC           56     A     
 FEC                EXT    S=LC,S=LENP,S=LMC,S=MMC,S=OT,S=RD,S=SA1,S=ST,S=TA0              FEC           57     A     
 FEC                EXT    S=TRACE,S=VD,S=VALUE,T=BLKS,T=BLST,T=CON,T=C$IF,T=PAR           FEC           58     A     
 FEC                EXT    T=PAR,T=REF,T=SCR,T=STMT,T=STF,T=SYM,T=TB,T=VDIM,T.BLKS         FEC           59     A     
 FEC                EXT    T.BLST,T.COMM,T.DIM,T.END,T.FPI,T.PAR,T.REF,T.SYM               FEC           60     A     
 FEC                EXT    T.VDIM,USAVE,WO.C$,WO.LOR,WO.LOS,WO.QC,Z.LBT,Z.SORD             FEC           61     A     
 FEC                EXT    S=SA0                                                           FC5A436       17          I
          -FC51347
 FEC                EXT    S=SA0,ENDFTN,CAF                                                FC51347        9     A     
 FEC                EXT    S=BUF,N.BUF                                                     F1037F5      316          I
          -FC50686
 FEC                EXT    S=BUF,N.BUF,N$LC                                                FC50686        7          I
          -FC5A415
 FEC                EXT    NSQZLH,N.BUF,N$LC,S=BUF                                         FC5A415        9     A     
 FEC                                                                                       FEC           62     A     
 FEC      *         IN QCGC                                                                FEC           63     A     
 FEC                EXT    DUC.,DUC.BTH,DUC.1ST,DUC.2ND,QCP                                FEC           64     A     
 FEC                                                                                       FEC           65     A     
 FEC      *         IN QCGLINK                                                             FEC           66     A     
 FEC                EXT    FEL.RTN,PIS                                                     FEC           67     A     
 FEC                                                                                       FEC           68     A     
 FEC      *         IN QSKEL                                                               FEC           69          I
          -FC50104
 FEC                EXT    F.INTF,V=BVD,V=EVD,V=FIN,Z.INTF                                 FEC           70          I
          -FC50104
 FEC      *         IN QSKEL/FSKEL                                                         FC50104       48     A     
 FEC                EXT    F.INTF,V=BVD,V=EVD,V=FIN,V=NOOP,Z.INTF                          FC50104       49     A     
 FEC                                                                                       FEC           71     A     
 FEC      *         IN TYPE                                                                FEC           72     A     
 FEC                EXT    TYPD                                                            FEC           73     A     
 FEC                                                                                       FEC           74     A     
 FEC      *         IN UTILITY                                                             FEC           75     A     
 FEC                EXT    CDD,DXB,MVE=,SBM=,WTW=                                          FEC           76     A     
 FEC       FETABS   TITLE  FRONT END TABLE/SYMBOL DEFINITIONS.                             FEC           77     A     
 FEC       CELLS    EJECT                                                                  FEC           78     A     
 FEC      **        DEFINITIONS OF CELLS USED BY THE FRONT END.                            FEC           79     A     
 FEC                                                                                       FEC           80     A     
 FEC                                                                                       FEC           81     A     
 FEC       PSTACK   BSS    Z=PSTACK    TOP STACK FRAME FOR LEFT PARENTHESIS                FEC           82     A     
 FEC       ARGCOMA  EQUENT AC.W+PSTACK       SEE TEXT FOR FORMAT                           FEC           83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC       ARGMODE  EQUENT AM.W+PSTACK       SEE PAR  FOR USAGE                            FEC           84     A     
 FEC       ARGMIS   EQUENT AS.W+PSTACK                                                     FEC           85     A     
 FEC                                                                                       FEC           86     A     
 FEC       ASSTAG   BSSENT 1           *ASSIGN* STATEMENT LABEL                            FEC           87     A     
 FEC                                                                                       FEC           88     A     
 FEC       CALLTAG  EQUENT ASSTAG      *CALL* STATEMENT LABEL                              FEC           89     A     
 FEC                                                                                       FEC           90     A     
 FEC       CSLTAG   CONENT 0           CURRENT STATEMENT LABEL TAG. (SET BY *GSL*)         FEC           91          I
          -FC5A337
 FEC       CSLTAG   CONENT 0           CURRENT STATEMENT LABEL SYMTAB ORDINAL              FC5A337        9     A     
 FEC                                                                                       FEC           92     A     
 FEC       DATFLG   BSSENT 1           DATA-STATEMENT FLAG.  ROYAL KLUDGE.                 FEC           93     A     
 FEC                                   AFFECTS MISCELLANEOUS ACTIVITIES INVOLVED           FEC           94     A     
 FEC                                   IN ISSUING (T.DATS).                                FEC           95     A     
 FEC                                                                                       FEC           96     A     
 FEC       DOSL     CONENT 0           CONTAINS LATEST *DO* LABEL                          FEC           97          I
          -FC5A231
 FEC                                                                                       FEC           98          I
          -FC5A231
 FEC       DTI      CONENT 0           DO-TERMINATION INDICATOR                            FEC           99     A     
 FEC                                   CONTAINS TAG OF THIS STATEMENTS LABEL, IF           FEC          100     A     
 FEC                                   IT IS A DO-TERMINATOR.                              FEC          101     A     
 FEC                                   = 0  IF THIS STATEMENT IS NOT A DO-TERMINAL         FEC          102     A     
 FEC                                                                                       FEC          103     A     
 FEC                USE    /RGFILE/                                                        FC5A171A       9     A     
 FEC       OSTACK   BSSENT N.OPSTK     OPERATOR STACK  (BEFORE ESTACK)                     FEC          104     A     
 FEC                                                                                       FEC          105     A     
 FEC       ESTACK   BSSENT N.ELSTK     ELEMENT STACK   (AFTER OSTACK)                      FEC          106     A     
 FEC                USE    0                                                               FC5A171A      10     A     
 FEC                                                                                       FEC          107     A     
 FEC       FLOW     BSSENT 1           = 0  IF CONTROL FLOWS INTO THIS STATEMENT.          FEC          108     A     
 FEC                                   " 0  IF THIS IS IN-ACCESSIBLE CODE.                 FEC          109     A     
 FEC                                   SET FROM (NOPATH) OF PREVIOUS STATEMENT.            FEC          110     A     
 FEC                                                                                       FEC          111     A     
 FEC       FORSKEL  EQUENT OSTACK      SKELETON AREA FOR PACKING FORMAT                    FEC          112     A     
 FEC                                                                                       FEC          113     A     
 FEC       HANGER   CONENT 0           HANGING COMPILATION INDICATOR.                      FEC          114     A     
 FEC                                   = 0  PREVIOUS STATEMENT COMPLETELY                  FEC          115     A     
 FEC                                         PROCESSED ALREADY.                            FEC          116     A     
 FEC                                   " 0  ADDRESS OF ROUTINE WHO WILL BE ENTERED         FEC          117     A     
 FEC                                         WHEN THE NEXT CODE-GENERATING STATE-          FEC          118     A     
 FEC                                         MENT IS ENCOUNTERED AND IT IS KNOWN           FEC          119     A     
 FEC                                         WHAT THE STATEMENT LABEL IS.                  FEC          120     A     
 FEC                                                                                       FEC          121     A     
 FEC       IFLEVEL  CONENT 0           CURRENT BLOCK IF LEVEL                              FEC          122     A     
 FEC                                                                                       FEC          123     A     
 FEC       INSTF    CONENT 0           INDICATES FROM WHERE PARSER INPUT IS COMING         FEC          124     A     
 FEC                                   = 0 -- FROM *TB* (NORMAL)                           FEC          125     A     
 FEC                                   " 0 -- FROM *STF* (STMT FUNCT EXPANSION)            FEC          126     A     
 FEC                                                                                       FEC          127     A     
 FEC       LASTOP   CONENT 0           SET = TO LAST OPERATOR IN PARSED FILE UPON          FEC          128          I
          -FC50612
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                                   ENTRY TO POP.                                       FEC          129          I
          -FC50612
 FEC       LASTAD   CONENT 0           SET = TO LAST ADDRESS OF PARSE FILE UPON            FEC          130          I
          -FC50612
 FEC                                   ENTRY TO POP.                                       FEC          131          I
          -FC50612
 FEC                                                                                       FEC          132          I
          -FC50612
 FEC       LDEAD    CONENT 0           INITIAL LENGTH OF PARSED FILE UPON ENTRY TO         FEC          133     A     
 FEC                                   *PAR*.  USED WHEN *FLOW* = 0 TO RESET               FEC          134     A     
 FEC                                   LENGTH OF PARSED FILE UPON EXIT -- THUS             FEC          135     A     
 FEC                                   ELIMINATING PARSED CODE FOR DEAD REGIONS OF         FEC          136     A     
 FEC                                   SOURCE CODE.                                        FEC          137     A     
 FEC                                                                                       FEC          138     A     
 FEC       L.CARD   CONENT 0           NR OF WORDS IN SOURCE LINE IMAGE AT                 FEC          139     A     
 FEC      *                              (CP.CARD) ET SEQ  (INCLUDES FULL ZERO             FEC          140     A     
 FEC      *                              WORD EOL MARK)                                    FEC          141     A     
 FEC                                                                                       FEC          142     A     
 FEC       NOPATH   CONENT 0           IF " 0 INDICATES STATEMENT MUST HAVE A              FEC          143     A     
 FEC                                   STATEMENT LABEL FIELD.  IF SET AND NO LABEL         FEC          144     A     
 FEC      *                            *GSN* WILL OUTPUT *NO PATH* WARNING MESSAGE         FEC          145     A     
 FEC                                                                                       FEC          146     A     
 FEC       NTRCNT   CONENT 0           COUNT OF *ENTRY* STATEMENTS WHICH APPEARED          FEC          147     A     
 FEC                                   IN THIS SUBPROGRAM.  USED TO DETERMINE WHAT         FEC          148     A     
 FEC                                   SUBPROGRAM EXIT CODE TO COMPILE.                    FEC          149     A     
 FEC                                                                                       FEC          150     A     
 FEC       PARMODE  CONENT 0           PARSE MODE = 0, NORMAL PROCESSING                   FEC          151     A     
 FEC                                              " 0, SPECIAL PROCESSING                  FEC          152     A     
 FEC                                                                                       FEC          153     A     
 FEC       PARAMC   BSSENT 1           COUNT OF PARAMETERS (SYMBOLIC CONSTANTS)            FC5A225        5     A     
 FEC                                                                                       FC5A225        6     A     
 FEC       REFLIN   CONENT 0           REFERENCE LINE NUMBER                               FEC          154     A     
 FEC                                                                                       FEC          155     A     
 FEC       REFNUM   BSZENT 2           STATEMENT LABEL REFERENCE.                          FEC          156     A     
 FEC                                   TYPE OF CROSS REFERENCE SYMBOL PROCESSING.          FEC          157     A     
 FEC                                   SHOULD BE PRESET FOR ALL PROCESSORS THAT            FEC          158     A     
 FEC                                   CALL *ISN* TO TRANSLATE A STATEMENT LABEL           FEC          159     A     
 FEC                                   REFERENCE.                                          FEC          160     A     
 FEC       REFVAR   EQUENT REFNUM+1    SYMBOL REFERENCE.                                   FEC          161     A     
 FEC                                   TYPE OF CROSS REFERENCE SYMBOL PROCESSING.          FEC          162     A     
 FEC                                   SHOULD BE PRESET FOR ALL PROCESSORS THAT            FEC          163     A     
 FEC                                   CALL *TRE* TO TRANSLATE A STATEMENT LABEL           FEC          164     A     
 FEC                                   REFERENCE.                                          FEC          165     A     
 FEC                                   (*TRE* = *TRV*,*TNK* AND *TSF*)                     FEC          166     A     
 FEC                                                                                       FEC          167     A     
 FEC       ROUTNAM  CONENT 0           NAME OF ROUTINE TO BE CALLED. USED BY               FEC          168     A     
 FEC                                   I/O STATEMENT PROCESSORS.                           FEC          169     A     
 FEC                                                                                       FEC          170     A     
 FEC       RTNCNT   CONENT 0           COUNT OF NUMBER OF *RETURN* STATEMENTS IN           FEC          171     A     
 FEC                                   SUBPROGRAM.  COMPLEMENTED IF *END* IS               FEC          172     A     
 FEC                                   IMMEDIATELY PRECEDED BY *RETURN*.  USED BY          FEC          173     A     
 FEC                                   *RTU* TO DETERMINE WHAT CODE NEED BE                FEC          174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                                   GENERATED.                                          FEC          175     A     
 FEC                                                                                       FEC          176     A     
 FEC       STAGE    CONENT 0           CURRENT SOURCE PROGRAM STAGE.  VALUES ARE           FEC          177     A     
 FEC                                   *FEC=XXX*.  SEE DISCUSSION IN *FEC*.                FEC          178     A     
 FEC                                                                                       FEC          179     A     
 FEC       TRLINE   CONENT 0           LINE NO. (OCTAL) FOR TRACEBACK ON RJT.              FEC          180     A     
 FEC                                                                                       FEC          181     A     
 FEC       T=CONB   BSSENT 1           SAVE CON LEN AT BOS                                 FEC          182     A     
 FEC       WANFP    BSSENT 1           OR'ED INTO *WA* BY *SSY* AND *ESY*                  FC5A192        8     A     
 FEC       CELLS    SPACE  4,10                                                            FEC          183     A     
 FEC      **        SCRATCH AREA.                                                          FEC          184     A     
 FEC                                                                                       FEC          185     A     
 FEC       SCR2     BSSENT MAX.DIM+1   GENERAL SCRATCH AREA 2                              FEC          186     A     
 FEC       TAB      SPACE  4                                                               FEC          187     A     
 FEC      **        CELLS SET UP BY *TAB* FOR CLASSIFYING A STATEMENT.                     FEC          188     A     
 FEC                                                                                       FEC          189     A     
 FEC       ZLEQUAL  CONENT 0           IF = 0 NO ZERO LEVEL *=* FOUND.                     FEC          190     A     
 FEC       ZLCOMMA  CONENT 0           IF = 0 NO ZERO LEVEL *,* FOUND.                     FEC          191     A     
 FEC       ZLPAREN  CONENT 0           1ST ZERO LEVEL *)* FOUND.                           FEC          192     A     
 FEC       ZLE      CONENT 0           LOCAL *ZLEQUAL* POINTER USED DURING PARSE.          FEC          193     A     
 FEC       ZLCOLON  CONENT 0           .NZ. IF A COLON AT PAREN LEVEL 1 OCCURRED,          FEC          194     A     
 FEC                                   ELSE .ZR.  SEE *CST* (CLASSIFY STMT)                FEC          195     A     
 FEC                                   IN DECK *LEX*.                                      FEC          196     A     
 FEC       SYMTAB   SPACE  4,10                                                            FEC          197     A     
 FEC      **        SYMBOL TABLE INITIALIZATION DATA.                                      FEC          198     A     
 FEC      *                                                                                FEC          199     A     
 FEC      *         WHEN A NEW PROGRAM-UNIT IS STARTED, FEC/PUP PRESTORES THE              FEC          200     A     
 FEC      *         FOLLOWING ENTRIES IN THE SYMBOL TABLE.                                 FEC          201     A     
 FEC                                                                                       FEC          202     A     
 FEC                                                                                       FEC          203     A     
 FEC                MACRO  SYMT,NAM,CELL,ATTR,BLOCK,FUNK                                   FEC          204     A     
 FEC                LOCAL  ORD                                                             FEC          205     A     
 FEC       ORD      EQU    */Z=SYM                                                         FEC          206     A     
 FEC       .B       BFMIC  WB,(ATTR)                                                       FEC          207     A     
 FEC                DATA   L-NAM-,".B"                                                     FEC          208     A     
 FEC                IFC    NE,/BLOCK//,2                                                   FEC          209     A     
 FEC                VFD    WC.RLL/ML.PROG,1/0,WC.RBL/=XBN=BLOCK,*P/0                       FEC          210          I
          -FC50933
 FEC                VFD    WC.RLL/ML.PROG,WC.RBL/=XBN=BLOCK,*P/0                           FC50933        8     A     
 FEC                SKIP   4                                                               FEC          211     A     
 FEC                IFC    NE,/FUNK//,2                                                    FEC          212     A     
 FEC                VFD    WC.FUNTL/MF.FUNK,*P/0                                           FEC          213     A     
 FEC                SKIP   1                                                               FEC          214     A     
 FEC                CON    0                                                               FEC          215     A     
 FEC      *                            SAVE CODE TO STORE ORDINAL                          FEC          216     A     
 FEC                IFC    NE,/CELL//,4                                                    FEC          217     A     
 FEC       SORD     RMT                                                                    FEC          218     A     
 FEC                =X6    ORD                                                             FEC          219     A     
 FEC                SA6    =XS=CELL                                                        FEC          220     A     
 FEC       SORD     RMT                                                                    FEC          221     A     
 FEC                ENDM                                                                   FEC          222     A     
 FEC                                                                                       FEC          223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                                                                                       FEC          224     A     
 FEC       F.SYMIL  BSSENT 0           BASE OF INITIAL SYMBOL TABLE IMAGE                  FEC          225     A     
 FEC                LOC    0                                                               FEC          226     A     
 FEC                BSSZ   Z=SYM             ORDINAL 0 = ALWAYS CLEAR                      FEC          227     A     
 FEC       *O+4S15  SYMT   BU,(CGS,NVAR)                                                   FEC          228     A     
 FEC       BUF.     SYMT   BUF,(CGS,VAR,DEF)                                               F1037F5      317     A     
 FEC       CL.      SYMT   CL,(CGS,VAR,DEF,ARY),IOAP                                       FEC          229     A     
 FEC       CON.     SYMT   CON,(CGS,VAR,DEF,ARY),CON                                       FEC          230     A     
 FEC       CT.      SYMT   CT,(CGS,VAR,DEF)                                                FEC          231     A     
 FEC       LA.      SYMT   LA,(CGS,VAR,DEF,ARY),FMT                                        FEC          232     A     
 FEC       LENP.    SYMT   LENP,(CGS,LAB,DEF)                                              FEC          233     A     
 FEC       SAVEA1.  SYMT   SA1,(CGS,VAR,DEF)                                               FEC          234     A     
 FEC       SAVEA0.  SYMT  SA0,(CGS,VAR,DEF)                                                FC5A436       18     A     
 FEC       ST.      SYMT   ST,(CGS,VAR,DEF,ARY)                                            FEC          235     A     
 FEC       TEMPA0.  SYMT   TA0,(CGS,VAR,DEF)                                               FEC          236     A     
 FEC       TRACE.   SYMT   TRACE,(CGS,VAR,DEF)                                             FEC          237     A     
 FEC       VD.      SYMT   VD,(CGS,VAR,DEF,ARY)                                            FEC          238     A     
 FEC       IT.      SYMT   IT,(CGS,VAR,DEF,ARY)                                            FEC          239     A     
 FEC       OT.      SYMT   OT,(CGS,VAR,DEF,ARY)                                            FEC          240     A     
 FEC       LC.      SYMT   LC,(CGS,VAR,DEF,ARY)                                            FEC          241     A     
 FEC       RD.      SYMT   RD,(CGS,VAR,DEF,ARY,MAT),NLST                                   FEC          242     A     
 FEC                                                                                       FEC          243     A     
 FEC       DBUG.LN  SYMT   FID,(CGS,NVAR,DEF,SUB,EXT),,LIB                                 FEC          244     A     
 FEC       FMC.     SYMT   FMC,(CGS,NVAR,DEF,SUB,EXT),,BEF                                 FEC          245     A     
 FEC       UMC.     SYMT   FMC+1,(CGS,NVAR,DEF,SUB,EXT),,BEF                               FEC          246     A     
 FEC       MMC.     SYMT   MMC,(CGS,NVAR,DEF,SUB,EXT),,BEF                                 FEC          247     A     
 FEC       LMC.     SYMT   LMC,(CGS,NVAR,DEF,SUB,EXT),,BEF                                 FEC          248     A     
 FEC                                                                                       FEC          249     A     
 FEC       Z.SYMVP  BSSENT 0           FIRST VALUE. SYMBOL                                 FEC          250     A     
 FEC       VALUE.   SYMT   VALUE,(CGS,VAR,BMEM)                                            FEC          251     A     
 FEC       VALUL.   SYMT   ,(VAR,EQV,CGS)                                                  FEC          252     A     
 FEC       VALUI.   SYMT   ,(VAR,EQV,CGS)                                                  FEC          253     A     
 FEC       VALUR.   SYMT   ,(VAR,EQV,CGS)                                                  FEC          254     A     
 FEC       VALUD.   SYMT   ,(VAR,EQV,CGS)                                                  FEC          255     A     
 FEC       VALUC.   SYMT   ,(VAR,EQV,CGS)                                                  FEC          256     A     
 FEC       VALUH.   SYMT   ,(VAR,EQV,CGS)                                                  FEC          257     A     
 FEC                                                                                       FEC          258     A     
 FEC       Z.SYMDB  BSSENT 0           FIRST ENTRY WHICH DEPENDS ON (CO.DBSL)              FEC          259     A     
 FEC       FASC.    SYMT   FAS,(CGS,NVAR,DEF,SUB,EXT),,LIB                                 FEC          260     A     
 FEC       FARC.    SYMT   FAR,(CGS,NVAR,DEF,SUB,EXT),,LIB                                 FEC          261     A     
 FEC       FVSC.    SYMT   FVS,(CGS,NVAR,DEF,SUB,EXT),,LIB                                 FEC          262     A     
 FEC                                                                                       FEC          263     A     
 FEC       Z.SYMIL  BSSENT 1           LENGTH OF INITIAL SYMTAB LOAD                       FEC          264     A     
 FEC                LOC    *O                                                              FEC          265     A     
 FEC       SYMTAB   SPACE  4,10                                                            FEC          266     A     
 FEC      *         HASH VECTOR FOR T.SYM.                                                 FEC          267     A     
 FEC                USE    /HASH/                                                          FEC          268     A     
 FEC       HASHTBL  BSSENT Z.HASH                                                          FEC          269     A     
 FEC                USE    *                                                               FEC          270     A     
 FEC       CHARMAP  EJECT  4,30                                                            FEC          271     A     
 FEC      **        CHARMAP - CHARACTER MAPPING FOR OUTPUT OF ORIGINAL SYMBOL.             FEC          272     A     
 FEC      *                                                                                FEC          273     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *         MAPPING FOR CHARACTERS/OPERATORS USED THRU-OUT THE COMPILER.           FEC          274     A     
 FEC      *                                                                                FEC          275     A     
 FEC      *         ANY ONE WISHING TO CHANGE THESE EQUS SHOULD LOOK AT                    FEC          276     A     
 FEC      *         GENERAL LEXICAL ROUTINES LIKE --                                       FEC          277     A     
 FEC      *         A.  TAB - NORMALIZE STATEMENT.                                         FEC          278     A     
 FEC      *         B.  ASN - ASSEMBLE NUMBER.                                             FEC          279     A     
 FEC      *         C.  ASV - ASSEMBLE VARIABLE.(NOTE SPECIAL MASK FOR KLUDGED 64          FEC          280     A     
 FEC      *                   CHARACTER SET).                                              FEC          281     A     
 FEC      *                                                                                FEC          282     A     
 FEC      *         ALSO NOTE ROUTINES LIKE --                                             FEC          283     A     
 FEC      *                                                                                FEC          284     A     
 FEC      *         A.  PAR - PARSE STATEMENT.                                             FEC          285     A     
 FEC      *         B.  TRE,TRV,TNK,TSF - TRANSLATE ELEMENT.                               FEC          286     A     
 FEC      *         C.  LST, IOL, ETC. -- I/O LISTS.                                       FEC          287     A     
 FEC      *                                                                                FEC          288     A     
 FEC      *         MOST OF MAPPING CRITERIA IS FOR CONVENIENCE OF JUMP TABLES AND         FEC          289     A     
 FEC      *         PROCESSING OF THE GIVEN OPERATOR WITH THESE ROUTINES.                  FEC          290     A     
 FEC                                                                                       FEC          291     A     
 FEC                                                                                       FEC          292     A     
 FEC       CHMAP    MACRO  DPC,OPERS                                                       FEC          293     A     
 FEC       .3       IFC    EQ, DPC                                                         FEC          294     A     
 FEC                CON    0                                                               FEC          295     A     
 FEC       .3       ELSE                                                                   FEC          296     A     
 FEC       A        MICRO  1,,\_DPC_\                                                      FEC          297     A     
 FEC       B        MICCNT A                                                               FEC          298     A     
 FEC       B        DECMIC B                                                               FEC          299     A     
 FEC                VFD    CH.DPCL/"B"L_DPC,CH.OPCL/DUC.OPERS                              FEC          300     A     
 FEC       .3       ENDIF                                                                  FEC          301     A     
 FEC       CHMAP    ENDM                                                                   FEC          302     A     
 FEC                                                                                       FEC          303     A     
 FEC                                                                                       FEC          304     A     
 FEC       CH=      MACRO                                                                  FEC          305     A     
 FEC                BSS    0                                                               FEC          306     A     
 FEC       CH=      ENDM                                                                   FEC          307     A     
 FEC                                                                                       FEC          308     A     
 FEC       CHARMAP  EJECT                                                                  FEC          309     A     
 FEC      **        CHARMAP - CHARACTER MAPPING FOR PRINTING/ DISPLAYING.                  FEC          310     A     
 FEC                                                                                       FEC          311     A     
 FEC      *                                                                                FEC          312     A     
 FEC      *         *FORTRAN* DEFINED OPERATORS.                                           FEC          313     A     
 FEC                                                                                       FEC          314     A     
 FEC       CHARMAP  EQUENT *-O.DEF                                                         FEC          315     A     
 FEC                LOC    O.DEF                                                           FEC          316     A     
 FEC                                                                                       FEC          317     A     
 FEC       O.EOS    CHMAP  -EOS-       END OF STATEMENT                                    FEC          318     A     
 FEC       O.HOLL   CHMAP  STRING       ALL HOLLERITH CONSTANTS                            FEC          319          I
          -FC5A258
 FEC       O.CHAR   CHMAP  STRING       TYPE CHARACTER CONSTANTS                           FEC          320          I
          -FC5A258
 FEC       O.HOLL   CHMAP  STRING      HOLLERITH CONSTANTS                                 FC5A258       10     A     
 FEC       O.QHOLL  CHMAP  STRING      "" DELIMITED HOLLERITHS                             FC5A258       11     A     
 FEC       O.RLCON  CHMAP  STRING      R"" OR L"" HOLLERITHS                               FC5A258       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC       O.CHAR   CHMAP  STRING      TYPE CHARACTER CONSTANTS                            FC5A258       13     A     
 FEC       O.CONS   CHMAP              ALL NUMERIC STRINGS                                 FEC          321     A     
 FEC       O.OCT    CHMAP                                                                  FEC          322     A     
 FEC       O.HEX    CHMAP                                                                  FEC          323     A     
 FEC       PERIOD   CHMAP  .           DECIMAL POINT                                       FEC          324     A     
 FEC       O.VAR    CHMAP              ALL ALPHANUMERIC STRINGS                            FEC          325     A     
 FEC       O.TRUE   CHMAP  .TRUE.      LOGICAL CONSTANTS                                   FEC          326     A     
 FEC       O.FALSE  CHMAP  .FALSE.                                                         FEC          327     A     
 FEC                                                                                       FEC          328     A     
 FEC       O.SEP    CH=                ---- BEGINNING OF SEPARATORS                        FEC          329     A     
 FEC       O.PL     CHMAP  +,BTH                                                           FEC          330     A     
 FEC       O.MIN    CHMAP  -,BTH                                                           FEC          331     A     
 FEC       O.STAR   CHMAP  *,BTH                                                           FEC          332     A     
 FEC       O.SLASH  CHMAP  /,BTH                                                           FEC          333     A     
 FEC       O.UMIN   CHMAP  -,1ST                                                           FEC          334     A     
 FEC       O.EXP    CHMAP  **,BTH                                                          FEC          335     A     
 FEC       O.LT     CHMAP  .LT.,BTH                                                        FEC          336     A     
 FEC       O.GE     CHMAP  .GE.,BTH                                                        FEC          337     A     
 FEC       O.EQ     CHMAP  .EQ.,BTH                                                        FEC          338     A     
 FEC       O.NE     CHMAP  .NE.,BTH                                                        FEC          339     A     
 FEC       O.LE     CHMAP  .LE.,BTH    REVERSED TO O.GE                                    FEC          340     A     
 FEC       O.GT     CHMAP  .GT.,BTH    REVERSED TO O.LT                                    FEC          341     A     
 FEC       O.NOT    CHMAP  .NOT.,1ST                                                       FEC          342     A     
 FEC       O.AND    CHMAP  .AND.,BTH                                                       FEC          343     A     
 FEC       O.XOR    CHMAP  .NEQV.,BTH  AKA .XOR.                                           FEC          344          I
          -FC51485
 FEC       O.XOR    CHMAP  .XOR.,BTH                                                       FC51485       18     A     
 FEC       O.NEQV   CHMAP  .NEQV.,BTH                                                      FC51485       19     A     
 FEC       O.EQV    CHMAP  .EQV.,BTH                                                       FEC          345     A     
 FEC       O.OR     CHMAP  .OR.,BTH                                                        FEC          346     A     
 FEC       O.CAT    CHMAP  //,BTH                                                          FEC          347     A     
 FEC      *                            ---- FOLLOWING DELIMIT EXPRESSIONS                  FEC          348     A     
 FEC       O.LP     CHMAP  ()(                                                             FEC          349     A     
 FEC       O.RP     CHMAP  )                                                               FEC          350     A     
 FEC       O.=      CHMAP  (=),BTH                                                         FEC          351     A     
 FEC                                                                                       FEC          352     A     
 FEC       O.SDEF   CH=                START OF SPECIAL OPERATORS                          FEC          353     A     
 FEC       O.COMMA  CHMAP  (,),1ST                                                         FEC          354     A     
 FEC       O.COLON  CHMAP  (: ),BTH                                                        FEC          355     A     
 FEC       O.SLP    CHMAP  ()(                                                             FEC          356     A     
 FEC       O.STFA   CHMAP  STF-ARG     STATEMENT FUNCTION ARGUMENT                         FEC          357     A     
 FEC       O.ILL    CHMAP                                                                  FEC          358     A     
 FEC                                                                                       FEC          359     A     
 FEC      *         FOLLOWING CHARACTERS SERVE MISCELLEANOUS PURPOSES                      FEC          360     A     
 FEC                                                                                       FEC          361     A     
 FEC       O.DOBI   CHMAP  IODOB       I/O DO BEGIN                                        FEC          362     A     
 FEC       O.DOCI   CHMAP  IODOC       I/O DO CONCLUSION                                   FEC          363     A     
 FEC       O.DCBI   CHMAP  IODCB       I/O DO COLLAPSE BEGIN                               FEC          364     A     
 FEC       O.DCCI   CHMAP  IODCC       I/O DO COLLAPSE CONCLUSION                          FEC          365     A     
 FEC       O.SPACE  CHMAP  SPACE                                                           FEC          366     A     
 FEC       O.NONE   CHMAP  -NONE-                                                          FEC          367     A     
 FEC       O.1ST    CHMAP  -1ST-,1ST                                                       FEC          368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC       O.2ND    CHMAP  -2ND-,2ND                                                       FEC          369     A     
 FEC       O.BOTH   CHMAP  -BOTH-,BTH                                                      FEC          370     A     
 FEC       O.ARY    CHMAP  ARY-LOD,2ND       SUBSCRIPTED ARRAY LOAD                        FEC          371     A     
 FEC       O.MODC   CHMAP  MODE-CV,1ST       MODE CONVERSION                               FEC          372     A     
 FEC       O.MXP    CHMAP  ..MXP..     BOUNDARY MARKER (INTERNAL TO PARSER)                FEC          373     A     
 FEC       O.SQOT   CHMAP  (')         SINGLE QUOTE (INTERNAL TO LEX)                      FEC          374     A     
 FEC       O.DQOT   CHMAP  (")         DOUBLE QUOTE (INTERNAL TO LEX)                      FEC          375     A     
 FEC       O.ERR    CHMAP  ERROR       SOURCE PROGRAM FATAL ERROR                          FEC          376     A     
 FEC                                                                                       FEC          377     A     
 FEC                LOC    *O                                                              FEC          378     A     
 FEC                                                                                       FEC          379     A     
 FEC                                                                                       FEC          380     A     
 FEC       Z.CHMAP  EQUENT *-CHARMAP                                                       FEC          381     A     
 FEC                                                                                       FEC          382     A     
 FEC                PURGMAC CH=                                                            FEC          383     A     
 FEC                PURGMAC CHMAP                                                          FEC          384     A     
 FEC                TITLE  FRONT END CONTROLLER.                                           FEC          385     A     
 FEC       FEC=     SPACE  4,15                                                            FEC          386     A     
 FEC      **        FEC= - STAGE VECTORS ARE ROWS IN A TRANSITION TABLE WHICH              FEC          387     A     
 FEC      *                DESCRIBES THE ACTION NECESSARY (AS A JUMP ADDRESS) UPON         FEC          388     A     
 FEC      *                ENCOUNTERING A STATEMENT WITH (SFEC) = ROW WHEN                 FEC          389     A     
 FEC      *                (STAGE) = COLUMN.                                               FEC          390     A     
 FEC      *         THE FIRST 7 ENTRIES ARE ORDER DEPENDENT (ONE FOR EACH VALUE OF         FEC          391     A     
 FEC      *                *STAGE*).  FURTHER ENTRIES ARE ADDED FOR STATEMENTS NOT         FEC          392     A     
 FEC      *                ACCURATELY DESCRIBED BY ANY PREVIOUS ROW.                       FEC          393     A     
 FEC      *                                                                                FEC          394     A     
 FEC      *         SEE ANSI 3.5, AND FIGURE 1.                                            FEC          395     A     
 FEC                                                                                       FEC          396     A     
 FEC                                                                                       FEC          397     A     
 FEC                MACRO  FEC=,NAM,FST,IMP,DEC,STF,EXU                                    FEC          398     A     
 FEC       FEC=NAM  VFD    4/0,8/FEC.BY,8/FEC.BY,8/FEC.EXU,8/FEC.STF,8/FEC.DEC,___         FEC          399     A     
 FEC      ,8/FEC.IMP,8/FEC.FST                                                             FEC          400     A     
 FEC                ENTRY  FEC=NAM                                                         FEC          401     A     
 FEC       FEC=     ENDM                                                                   FEC          402     A     
 FEC                                                                                       FEC          403     A     
 FEC       FEC=     BSS    0                                                               FEC          404     A     
 FEC                LOC    0                                                               FEC          405     A     
 FEC      ****             (1ST IMP DEC STF EXU)                                           FEC          406     A     
 FEC       1ST      FEC=    OK_,EMH,EMH,EMH,EMH                                            FEC          407     A     
 FEC       IMP      FEC=    IMP,OK_,EMI,EMI,EMI                                            FEC          408     A     
 FEC       DEC      FEC=    IMP,DEC,OK_,EMD,EMD                                            FEC          409     A     
 FEC       STF      FEC=    IMP,DEC,STF,OK_,EMA                                            FEC          410     A     
 FEC       EXU      FEC=    IMP,DEC,STF,EXU,OK_                                            FEC          411     A     
 FEC       END      FEC=    IMP,DEC,STF,EXU,OK_                                            FEC          412     A     
 FEC       BY       FEC=    BY_,BY_,BY_,BY_,BY_                                            FEC          413     A     
 FEC                                                                                       FEC          414     A     
 FEC       DAT      FEC=    IMP,DEC,STF,OK_,OK_                                            FEC          415     A     
 FEC       FMT      FEC=    IMP,FMT,FMT,FMT,FMT                                            FEC          416     A     
 FEC       ENT      FEC=    IMP,OK_,OK_,OK_,OK_                                            FEC          417     A     
 FEC       TYP      FEC=    OK_,DEC,OK_,EMD,EMD                                            FEC          418     A     
 FEC       PRM      FEC=    IMP,OK_,OK_,EMD,EMD                                            FEC          419     A     
 FEC       OK       FEC=    OK_,OK_,OK_,OK_,OK_                                            FEC          420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      ****                                                                             FEC          421     A     
 FEC                LOC    *O                                                              FEC          422     A     
 FEC       FEC      EJECT                                                                  FEC          423     A     
 FEC      **        FEC - FRONT END CONTROLLER.                                            FEC          424     A     
 FEC      *                                                                                FEC          425     A     
 FEC      *         CALLED BY OVERLAY INITIALIZER.                                         FEC          426     A     
 FEC      *                                                                                FEC          427     A     
 FEC      *         EXITS TO FRONT END LOADER.                                             FEC          428     A     
 FEC      *                                                                                FEC          429     A     
 FEC      *         PROGRAM UNIT PRESETS (PUP) SHOULD HAVE LOGICALLY BEEN                  FEC          430     A     
 FEC      *         CALLED BY THE PROGRAM UNIT CONTROLLER (PUC), BUT,                      FEC          431     A     
 FEC      *         CERTAIN HIGHER LEVEL OVERLAY INITIALIZATION HAD TO BE                  FEC          432     A     
 FEC      *         DONE FIRST SO DO IT NOW.                                               FEC          433     A     
 FEC      *         THEN, FOR THE SAME REASON, CALL QUICK CODEGENERATOR                    FEC          434     A     
 FEC      *         PRESETS (QCP). THIS IS A NOOP IN CCG MODE. FRAP.                       FEC          435     A     
 FEC                                                                                       FEC          436     A     
 FEC                                                                                       FEC          437     A     
 FEC       FEC      BSSENT 0           ...ENTRY                                            FEC          438     A     
 FEC                CALL   PUP         PROGRAM UNIT PRESETS                                FEC          439     A     
 FEC                CALL   QCP         QUICK CODE PRESETS                                  FEC          440     A     
 FEC                RJ     FEP         FRONT END PRESETS                                   FEC          441     A     
 FEC       FEC.RTN  SPACE  4,10                                                            FEC          442     A     
 FEC      **        FEC.RTN - RETURN FROM STATEMENT PROCESSING.                            FEC          443     A     
 FEC      *                                                                                FEC          444     A     
 FEC      *         MOST STATEMENT PROCESSORS RETURN TO THE FRONT END CONTROLLER.          FEC          445     A     
 FEC                                                                                       FEC          446     A     
 FEC                                                                                       FEC          447     A     
 FEC       FEC.RTN  BSSENT 0                                                               FEC          448     A     
 FEC                RJ     RSC         RESET STATEMENT CELLS                               FEC          449     A     
 FEC                                                                                       FEC          450     A     
 FEC      *         CHECK FOR *BRLI* REQUEST.                                              FEC          451     A     
 FEC                                                                                       FEC          452     A     
 FEC       .T       IFEQ   TEST,ON                                                         FEC          453     A     
 FEC                SA1    LINES       (X1) = LINE NR WITHIN THIS PGM UNIT                 FEC          454     A     
 FEC                SA2    FI=BRLI     (X2) = *BRLI* LINE NR, IF REQUESTED                 FEC          455     A     
 FEC                IX3    X1-X2                                                           FEC          456     A     
 FEC                BX6    X6-X6                                                           FEC          457     A     
 FEC                ZR     X2,FEC1     IF NO *BRLI* REQUESTED                              FEC          458     A     
 FEC                MI     X3,FEC1     IF NOT AT OR PAST SELECTED LINE NR                  FEC          459     A     
 FEC                SA6    A2+         CLEAR *BRLI* LINE NR                                FEC          460     A     
 FEC                                                                                       FEC          461     A     
 FEC       BRLI     BREAK                                                                  FEC          462     A     
 FEC       FEC1     BSS    0                                                               FEC          463     A     
 FEC       .T       ENDIF                                                                  FEC          464     A     
 FEC                                                                                       FEC          465     A     
 FEC      *         CHECK TO SEE IF WE NEED TO LIST ANY LINES IN *T.STMT*                  FEC          466     A     
 FEC      *         THAT WERE SAVED IN *BEFORE HEADER* MODE.                               FEC          467     A     
 FEC      *         SEE *LEXFLG/HDR* IN DECK *LEX* FOR MORE INFORMATION.                   FEC          468     A     
 FEC                                                                                       FEC          469     A     
 FEC                SA1    STAGE                                                           FEC          470     A     
 FEC                SA2    LEXFLG                                                          FEC          471     A     
 FEC                SX6    X1-FEC=1ST                                                      FEC          472     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                LX2    59-LF.HDRP                                                      FEC          473     A     
 FEC                ZR     X6,FEC1A    IF WE ARE IN *HEADER* STAGE                         FEC          474     A     
 FEC                PL     X2,FEC1A    IF NOT IN *HEADER DELAY* MODE                       FEC          475     A     
 FEC                CALL   LDB         LIST DEFERRED BUFFER                                FEC          476     A     
 FEC                                                                                       FEC          477     A     
 FEC      *         CALL THE LEXICAL SCANNER TO ENTOKEN THE NEXT SOURCE STATEMENT.         FEC          478     A     
 FEC                                                                                       FEC          479     A     
 FEC       FEC1A    CALL   LEX         LEXICAL SCANNER                                     FEC          480     A     
 FEC                                                                                       FEC          481     A     
 FEC      *         SET UP REFERENCE LINE NUMBER OF INITIAL LINE OF STMT                   FEC          482     A     
 FEC      *         FOR REF MAP GENERATION  (SEE *ERT*).                                   FEC          483     A     
 FEC                                                                                       FEC          484     A     
 FEC                SA5    TB=NUML     (X5) = LINE NR OF INITIAL LINE OF STMT,             FEC          485     A     
 FEC      *                                   -L- FORMAT                                   FEC          486     A     
 FEC                SB7    B1+         SET TO *DECIMAL CONVERSION*                         FEC          487     A     
 FEC                CALL   DXB         CONVERT DECIMAL DPC TO BINARY                       FEC          488     A     
 FEC                                                                                       FEC          489     A     
 FEC                IFEQ   TEST,ON,1                                                       FEC          490     A     
 FEC                NZ     X4,"BLOWUP" IF ERROR IN CONVERSION                              FEC          491     A     
 FEC                                                                                       FEC          492     A     
 FEC                SA1    REFLIN                                                          FC50096       28     A     
 FEC                LX6    XR.LINEP-0                                                      FEC          493     A     
 FEC                SA6    REFLIN                                                          FEC          494          I
          -FC50096
 FEC                IX1    X1-X6                                                           FC50096       29     A     
 FEC                MI     X1,FEC1B    IF SEQUENCE/LINE NUMBER IS ASCENDING                FC50096       30     A     
 FEC                FATAL  E.SEQ       ** SEQUENCE NUMBER OUT OF ORDER                     FC50096       31     A     
 FEC                SX6    0           RESTART THE SEQUENCE NUMBERS                        FC50096       32     A     
 FEC                                                                                       FC50096       33     A     
 FEC       FEC1B    SA6    REFLIN                                                          FC50096       34     A     
 FEC                SA1    STAGE                                                           FC50798        6     A     
 FEC                SX1    X1-FEC=BY                                                       FC50798        7     A     
 FEC                ZR     X1,FEC.+FEC.BY  IF IN BYPASS MODE                               FC50798        8     A     
 FEC                SA5    TB=TYPE                                                         FEC          495     A     
 FEC                NZ     X5,FEC2     IF NOT UNTYPED                                      FEC          496     A     
 FEC                SA1    T=CONB                                                          FEC          497     A     
 FEC                BX6    X1                                                              FEC          498     A     
 FEC                SHRINK T=CON,X6    RESTORE T=CON                                       FEC          499     A     
 FEC                EQ     E.FM        UNRECOGNIZED STATEMENT DIAG.                        FEC          500     A     
 FEC       FEC.RTN  SPACE  4,10                                                            FEC          501     A     
 FEC      ***       NOW FOR MISCELLANEOUS CHECKS ON THE PROPERTIES OF THE STMT.            FEC          502     A     
 FEC      *                                                                                FEC          503     A     
 FEC      *         SEE *KEYW* MACRO (IN DECK *LEX*) AND *KW.* STRUCTURE                   FEC          504     A     
 FEC      *         DEFINITIONS (IN *FTN5TXT*) FOR DEFINITIONS AND A DESCRIPTION           FEC          505     A     
 FEC      *         OF ATTRIBUTES.                                                         FEC          506     A     
 FEC                                                                                       FEC          507     A     
 FEC                                                                                       FEC          508     A     
 FEC      **        DIAGNOSE ILLEGAL STATEMENTS IN *BLOCKDATA* SUBPROGRAMS.                FEC          509     A     
 FEC                                                                                       FEC          510     A     
 FEC       FEC2     SA1    MOD                                                             FEC          511     A     
 FEC                SX4    MO.BLKM                                                         FEC          512     A     
 FEC                BX4    X4*X1       FORM MASK (=1 IF BLOCKDATA)                         FEC          513     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SBIT   X4,MO.BLKP/KW.BKDP                                              FEC          514     A     
 FEC                BX4    -X5*X4      ISOLATE *LEGAL IN BKD* BIT (IF IN BKD)              FEC          515     A     
 FEC                ZR     X4,FEC3     IF NO BLOCK DATA PROBLEM                            FEC          516     A     
 FEC                FATAL  E.MB                                                            FEC          517     A     
 FEC       FEC.     SPACE  4,10                                                            FEC          518     A     
 FEC      **        FEC. - STATEMENT TRANSITION TABLE EXECUTIVE.                           FEC          519     A     
 FEC      *                                                                                FEC          520     A     
 FEC      *         INSURE THAT THIS STATEMENT IS IN ITS PROPER PLACE.                     FEC          521     A     
 FEC                                                                                       FEC          522     A     
 FEC                                                                                       FEC          523     A     
 FEC       FEC3     SA5    TB=TYPE                                                         FEC          524     A     
 FEC                BX3    X5                                                              FEC          525     A     
 FEC                MX0    -KW.FECL                                                        FEC          526     A     
 FEC                SA4    STAGE                                                           FEC          527     A     
 FEC                LX3    -KW.FECP                                                        FEC          528     A     
 FEC                BX2    -X0*X3      ISOLATE STATEMENT STAGE NUMBER                      FEC          529     A     
 FEC                SA1    X2+FEC=     FETCH STAGE VECTOR                                  FEC          530     A     
 FEC                LX4    3           = ACTUAL (STAGE) * 8                                FEC          531     A     
 FEC                SB7    X4                                                              FEC          532     A     
 FEC                MX0    -8                                                              FEC          533     A     
 FEC                AX1    B7                                                              FEC          534     A     
 FEC                BX2    -X0*X1      ISOLATE COLUMN                                      FEC          535     A     
 FEC                SB2    X2                                                              FEC          536     A     
 FEC                JP     B2+FEC.                                                         FEC          537     A     
 FEC                                                                                       FEC          538     A     
 FEC       FEC.     BSS    0           BASE OF STAGE ACTIONS TABLE.                        FEC          539     A     
 FEC                LOC    0                                                               FEC          540     A     
 FEC                                                                                       FEC          541     A     
 FEC       FEC.IMP  CALL   PSF         SET STAGE = IMP                                     FEC          542     A     
 FEC                EQ     FEC3                                                            FEC          543     A     
 FEC                                                                                       FEC          544     A     
 FEC       FEC.DEC  =X6    FEC=DEC     SET STAGE = DEC                                     FEC          545     A     
 FEC                SA6    A4                                                              FEC          546     A     
 FEC                EQ     FEC3                                                            FEC          547     A     
 FEC                                                                                       FEC          548     A     
 FEC       FEC.STF  CALL   PCD         SET STAGE = STF                                     FEC          549     A     
 FEC                RJ     OIL         OUTPUT IL FOR PRE-EXECUTABLES                       FEC          550     A     
 FEC                EQ     FEC3                                                            FEC          551     A     
 FEC                                                                                       FEC          552     A     
 FEC       FEC.EXU  =X6    FEC=EXU     SET STAGE = EXU                                     FEC          553     A     
 FEC                SA6    A4                                                              FEC          554     A     
 FEC                SA1    =XTV=EXU                                                        FC5A128      289     A     
 FEC                BX7    X1                                                              FC5A128      290     A     
 FEC                SA7    =XTV=CUR    SET CURRENT PHASE TO EXU (FOR ALLOC)                FC5A128      291     A     
 FEC                MX6    1                                                               FC51554        6     A     
 FEC                LX6    1+WA.NFPP                                                       FC51554        7     A     
 FEC                SA6    WANFP       SET CANNOT BE *FP* FLAG                             FC51554        8     A     
 FEC                EQ     FEC3                                                            FEC          555     A     
 FEC                                                                                       FEC          556     A     
 FEC                                                                                       FEC          557     A     
 FEC       FEC.EMA  EQ     E.MA        MISPLACED STATEMENT FUNCTION                        FEC          558     A     
 FEC       FEC.EMD  EQ     E.MD        MISPLACED DECLARATIVE STATEMENT                     FEC          559     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC       FEC.EMH  EQ     E.MH        MISPLACED HEADER STATEMENT                          FEC          560     A     
 FEC       FEC.EMI  EQ     E.MI        MISPLACED IMPLICIT STATEMENT                        FEC          561     A     
 FEC                                                                                       FEC          562     A     
 FEC       FEC.BY   SA1    =5A--       SKIP BY THIS STATEMENT                              FEC          563          I
          -FC50600
 FEC                BX6    X1                                                              FEC          564          I
          -FC50600
 FEC                SA6    CP.FLIN                                                         FEC          565          I
          -FC50600
 FEC                SA1    TB=TYPE                                                         FEC          566          I
          -FC50600
 FEC       FEC.BY   SA1    TB=TYPE                                                         FC50600        4     A     
 FEC                SBIT   X1,KW.PWSP                                                      FEC          567     A     
 FEC                PL     X1,FEC.RTN  IF NOT PROCESS ALWAYS STATEMENT                     FEC          568     A     
 FEC                                                                                       FEC          569     A     
 FEC       FEC.FMT  BSS    0                                                               FEC          570     A     
 FEC       FEC.OK   BSS    0           PROPERLY POSITIONED.                                FEC          571     A     
 FEC                LOC    *O                                                              FEC          572     A     
 FEC                SA1    TB=LABR                                                         FEC          573     A     
 FEC                ZR     X1,FEC3A    IF NO LABEL                                         FEC          574     A     
 FEC                SA3    TB=LABL                                                         FEC          575     A     
 FEC                BX6    X1                                                              FEC          576     A     
 FEC                BX7    X3                                                              FEC          577     A     
 FEC                SA7    FILL.                                                           FEC          578     A     
 FEC                CALL   GSL         GET STATEMENT LABEL                                 FEC          579     A     
 FEC                                                                                       FEC          580     A     
 FEC      **               IF THIS IS A CODE-GENERATING STATEMENT, INVOKE *CUS* TO         FEC          581     A     
 FEC      *         FINISH UP ANY INCOMPLETE STUFF FROM PREVIOUS STATEMENT,                FEC          582     A     
 FEC      *         AND PROCESS THE LABEL.                                                 FEC          583     A     
 FEC                                                                                       FEC          584     A     
 FEC       FEC3A    SA5    TB=TYPE                                                         FEC          585     A     
 FEC                SBIT   X5,KW.GENP                                                      FEC          586     A     
 FEC                PL     X5,FEC4     IF A GENERATOR                                      FEC          587          I
          -FC50069
 FEC                                                                                       FEC          588          I
          -FC50069
 FEC                PL     X5,FEC4     IF STATEMENT DOES NOT GENERATE TURPLES              FC50069        5     A     
 FEC                RJ     CUS         CHECK UPCOMING STATEMENT                            FEC          589     A     
 FEC                                                                                       FC50069        6     A     
 FEC       FEC4     SA5    TB=TYPE                                                         FEC          590     A     
 FEC                SA1    DTI                                                             FEC          591     A     
 FEC                SBIT   X5,KW.DONP                                                      FEC          592     A     
 FEC                ZR     X1,FEC5     IF NO DO TERMINATION                                FEC          593     A     
 FEC                PL     X5,FEC5     IF NOT DO TERMINAL                                  FEC          594     A     
 FEC                FATAL  E.MDO       *ILLEGAL DO TERMINAL*                               FEC          595     A     
 FEC       FEC5     BSS    0                                                               FEC          596     A     
 FEC                                                                                       FEC          597     A     
 FEC                                                                                       FEC          598     A     
 FEC      **               LOGICAL (1-BRANCH) IF PROCESSOR RETURNS TO HERE AFTER           FEC          599     A     
 FEC      *         DETERMINING STATEMENT TYPE AND LEGALITY.                               FEC          600     A     
 FEC                                                                                       FEC          601     A     
 FEC       FEC.RIF  BSSENT 0           ...RETURN FROM 1-BRANCH IF.                         FEC          602     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA1    TB=1ST                                                          FEC          603     A     
 FEC                =B4    X1                                                              FEC          604     A     
 FEC                                                                                       FEC          605     A     
 FEC                                                                                       FEC          606     A     
 FEC      **        JUMP - TO COMPILE THE STATEMENT.                                       FEC          607     A     
 FEC                                                                                       FEC          608     A     
 FEC                SA5    TB=TYPE                                                         FEC          609     A     
 FEC                LX5    0-KW.JMPP                                                       FEC          610     A     
 FEC                SB6    X5                                                              FEC          611     A     
 FEC                JP     B6          COMPILE STATEMENT, RETURN TO FEC THROUGH            FEC          612     A     
 FEC                                   ENTRIES OF THE FORM *FEC.RXX*                       FEC          613     A     
 FEC       FEC.RTF  SPACE  4,10                                                            FEC          614     A     
 FEC      **        FEC.RTF - RETURN TO TERMINATE FRONT END PROCESSING.                    FEC          615     A     
 FEC                                                                                       FEC          616     A     
 FEC                                                                                       FEC          617     A     
 FEC       FEC.RTF  BSSENT 0           ...RETURN TO TERMINATE FRONT END                    FEC          618     A     
 FEC                SA1    WO.LOS      SOURCE LISTING FLAG (WORKING)                       FEC          619     A     
 FEC                ZR     X1,FEC7     IF NOT IN *LIST* MODE                               FEC          620     A     
 FEC                CALL   LDB         LIST DEFERRED BUFFER                                FEC          621     A     
 FEC                                                                                       FEC          622     A     
 FEC       FEC7     RJ     OIL         FLUSH I.L.                                          FEC          623     A     
 FEC                RJ     CLU         CHECK LEVEL USAGE                                   FC5A129        4     A     
 FEC                CALL   FVD         FLUSH VARIABLE DIMENSIONS                           FEC          624     A     
 FEC                BX4    0                                                               FEC          625     A     
 FEC                MX5    0                                                               FEC          626     A     
 FEC                EMIT   V=FIN       OUTPUT FINIS TURPLE                                 FEC          627     A     
 FEC                CALL   OIL         OUTPUT REMAINING IL                                 FEC          628     A     
 FEC                SHRINK T=STF,0                                                         FEC          629     A     
 FEC                SHRINK T=TB,X6                                                         FEC          630     A     
 FEC                SHRINK T=SCR,X6                                                        FEC          631     A     
 FEC                RJ     CAC         CHECK ASSUMED LENGTH CHARACTER                      FEC          632     A     
 FEC                RJ     CUF         CHECK UNDEFINED FUNCTION                            FEC          633     A     
 FEC                RJ     CUL         CHECK UNDEFINED LABELS                              FEC          634     A     
 FEC                RJ     SSU         SET SAVE BIT FOR UNIVERSAL SAVE                     FEC          635     A     
 FEC                RJ     RLS         RELOCATE LOCAL SAVED VARIABLES                      FEC          636     A     
 FEC                RJ     CLU         CHECK LEVEL USAGE                                   FEC          637          I
          -FC5A129
 FEC                RJ     CVD         CHECK VARIABLE DIMENSION IRREGULARITIES             FEC          638     A     
 FEC                CALL   MAL         MARK ASSIGN GOTO/ED LOOPS WITH ENTRIES              FC5A177        9     A     
 FEC                SHRINK T=STMT,0                                                        FEC          639     A     
 FEC                SA6    SB=LINC                                                         FEC          640     A     
 FEC                SA6    SB=LORD                                                         FEC          641     A     
 FEC                SA1    CO.ANSI                                                         FC5A255        8     A     
 FEC                ZR     X1,FEL.RTN  IF ANSI NOT REQUESTED                               FC5A255        9     A     
 FEC                RJ     CBN         CHECK COMMON BLOCK NAME MISUSE                      FC5A255       10     A     
 FEC                SA1    CO.SEQ                                                          FC5A335        8     A     
 FEC                ZR     X1,FEL.RTN  IF NOT SEQ MODE                                     FC5A335        9     A     
 FEC                ANSI   E.ANS1      **SEQ MODE NON ANSI                                 FC5A335       10     A     
 FEC                EQ     FEL.RTN     EXIT TO FRONT END LOADER...                         FEC          642     A     
 FEC                TITLE  SUBROUTINES.                                                    FEC          643     A     
 FEC       ASK      SPACE  4,30                                                            FEC          644     A     
 FEC      **        ASK -  ADJUST STATEMENT KEYWORD.                                       FEC          645     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *                                                                                FEC          646     A     
 FEC      *         REMOVES A KEYWORD FROM THE TOKEN BUFFER, *T.TB*,                       FEC          647     A     
 FEC      *         AND ADJUSTS THE REMAINING CHARACTERS.                                  FEC          648     A     
 FEC      *                                                                                FEC          649     A     
 FEC      *                ** IMPORTANT MESSAGE **                                         FEC          650     A     
 FEC      *                                                                                FEC          651     A     
 FEC      *         THIS ROUTINE EXISTS ONLY SO THAT *ASL* CAN CALL IT                     FEC          652     A     
 FEC      *         TO STRIP OFF THE LABEL FOR THE *DO* AND *ASSIGN* STMTS.                FEC          653     A     
 FEC      *         THE NEW SCANNER (LEX) DOES NOT REQUIRE *ASK* AND IT EXISTS             FEC          654     A     
 FEC      *         ONLY BECAUSE I (PXC) DID NOT WANT TO DEAL WITH THIS                    FEC          655     A     
 FEC      *         SPECIAL *ASL/ASK* INTERFACE AT THE CURRENT TIME.  THAT IS,             FEC          656     A     
 FEC      *         I INTEND ON CLEANING THIS UP, AND REMOVING *ASK* ALL TOGETHER.         FEC          657     A     
 FEC      *                                                                                FEC          658     A     
 FEC      *         **NOTE - MRR**  ASK IS CALLED BY ASSIGN AND TYPE DECLARATIONS          FEC          659     A     
 FEC      *         TO ADJUST IMBEDDED KEYWORDS (*TO* AND *FUNCTION*). THUS ASK,           FEC          660     A     
 FEC      *         OR SOME SUBSTITUTE WILL BE NEEDED.                                     FEC          661     A     
 FEC      *         ***************                                                        FEC          662     A     
 FEC      *                                                                                FEC          663     A     
 FEC      *         V E R Y   I M P O R T A N T   M E S S A G E                            FEC          664     A     
 FEC      *                                                                                FEC          665     A     
 FEC      *         IF U CALL THIS ROUTINE, U ***MUST*** MANUFACTURE A DUMMY               FEC          666     A     
 FEC      *         *JUMPTO.* WORD.  ***DONT*** USE THIS ROUTINE.                          FEC          667     A     
 FEC      *                                                                                FEC          668     A     
 FEC      *         ***************                                                        FEC          669     A     
 FEC      *                                                                                FEC          670     A     
 FEC      *                           * * *                                                FEC          671     A     
 FEC      *                                                                                FEC          672     A     
 FEC      *         ENTRY  (X5) = (JUMPTO. TABLE ENTRY)                                    FEC          673     A     
 FEC      *                (B4) _ KEYWORD IN *TB*                                          FEC          674     A     
 FEC      *                                                                                FEC          675     A     
 FEC      *         EXIT   (B4) _ *TB* ENTRY PAST KEYWORD                                  FEC          676     A     
 FEC      *                (B3) = JUMP ADDRESS FOR THE STATEMENT PROCESSOR                 FEC          677     A     
 FEC      *                (X3) = 0 IFF KEYWORD WAS CORRECTLY SPELLED.                     FEC          678     A     
 FEC      *                                                                                FEC          679     A     
 FEC      *         USES   X - ALL                                                         FEC          680     A     
 FEC      *                A - 2,4,6                                                       FEC          681     A     
 FEC      *                B - ALL BUT B5                                                  FEC          682     A     
 FEC      *                                                                                FEC          683     A     
 FEC      *         CALLS  NONE                                                            FEC          684     A     
 FEC                                                                                       FEC          685     A     
 FEC                                                                                       FEC          686     A     
 FEC      *         HERE WE THROW AWAY INTEGERAL WORDS (MULTIPLES OF 7 CHARS).             FEC          687     A     
 FEC                                                                                       FEC          688     A     
 FEC       ASK8     SB2    B7-B1       BIT COUNT = BITCOUNT MINUS 7CHARS                   FEC          689     A     
 FEC                SB4    B4+B1                                                           FEC          690     A     
 FEC                BX6    X7*X2                                                           FEC          691     A     
 FEC                IX3    X3-X6       COMPARE KEYWORD (1ST 7 CHAR)                        FEC          692     A     
 FEC                NZ     B7,ASK2     IF MORE THAN 7 CHARACTERS IN KEY                    FEC          693     A     
 FEC                                                                                       FEC          694     A     
 FEC       ASK      SUBR   =           ENTRY/EXIT...                                       FEC          695     A     
 FEC                MX0    4*CHAR                                                          FEC          696     A     
 FEC                SB3    X5                                                              FEC          697     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA4    B3-B1       HIJKLMNEFG  WHERE A-N ARE CHARS IN KEYWORD          FEC          698     A     
 FEC                BX3    X0*X5       ABCD------                                          FEC          699     A     
 FEC                LX5    -18         *** KLUDGE ***                                      FEC          700     A     
 FEC                SX1    X4          -------EFG                                          FEC          701     A     
 FEC                MX2    -9          *** KLUDGE ***                                      FEC          702     A     
 FEC                IX6    X4-X1       HIJKLMN---                                          FEC          703     A     
 FEC                BX7    -X2*X5      ISOLATE BIT COUNT                                   FEC          704     A     
 FEC                SB2    X7-4*CHAR                                                       FEC          705     A     
 FEC                MI     B2,ASK1     IF 4 CHARACTER KEYWORD (OR LESS)                    FEC          706     A     
 FEC                MX0    7*CHAR                                                          FEC          707     A     
 FEC                SA2    B4                                                              FEC          708     A     
 FEC                BX2    X0*X2                                                           FEC          709     A     
 FEC                BX2    X2-X3                                                           FEC          710     A     
 FEC                ZR     X2,E.FM     IF NOT ACTUALLY KEYWORD                             FEC          711     A     
 FEC       ASK1     SB2    X7                                                              FEC          712     A     
 FEC                LX1    3*CHAR      ----EFG---                                          FEC          713     A     
 FEC                BX4    X1+X3       ABCDEFG---                                          FEC          714     A     
 FEC                SA6    FILL.2      SAVE KEYWORD FOR POSSIBLE ERROR MSG                 FEC          715     A     
 FEC                IX3    X4+X6                                                           FEC          716     A     
 FEC                MX7    7*CHAR                                                          FEC          717     A     
 FEC                BX6    X4                                                              FEC          718     A     
 FEC                SA6    A6-B1                                                           FEC          719     A     
 FEC                                                                                       FEC          720     A     
 FEC       ASK2     SA2    B4                                                              FEC          721     A     
 FEC                SB7    B2-7*CHAR+1                                                     FEC          722     A     
 FEC                SB6    X2-O.VAR                                                        FEC          723     A     
 FEC                SX1    X2-O.CONS                                                       FEC          724     A     
 FEC                ZR     B6,ASK3     IF ALPHA STRING                                     FEC          725     A     
 FEC                ZR     X1,ASK3     IF DIGIT STRING                                     FEC          726     A     
 FEC                EQ     EXIT.                                                           FEC          727     A     
 FEC                                                                                       FEC          728     A     
 FEC       ASK3     PL     B7,ASK8     IF SEVEN OR MORE CHARACTERS                         FEC          729     A     
 FEC                MX4    1                                                               FEC          730     A     
 FEC                SB6    B4                                                              FEC          731     A     
 FEC                AX0    X4,B2       MASK FOR UPPER PART                                 FEC          732     A     
 FEC                BX1    X0*X2                                                           FEC          733     A     
 FEC                IX3    X3-X1       COMPARE KEYWORD                                     FEC          734     A     
 FEC                SB7    B2+18+1                                                         FEC          735     A     
 FEC                SB2    B2+B1                                                           FEC          736     A     
 FEC                BX7    X7-X0       MASK FOR MIDDLE PART                                FEC          737     A     
 FEC                BX1    X7*X2                                                           FEC          738     A     
 FEC                LX6    X1,B2                                                           FEC          739     A     
 FEC                BX1    X6                                                              FEC          740     A     
 FEC                LX6    6                                                               FEC          741     A     
 FEC                =X4    O.VAR                                                           FEC          742     A     
 FEC                SX6    X6-1R0                                                          FEC          743     A     
 FEC                MI     X6,ASK4     IF LETTER                                           FEC          744     A     
 FEC                =X4    O.CONS                                                          FEC          745     A     
 FEC                                                                                       FEC          746     A     
 FEC      *         NOW AN OFFSET CHARACTER MOVE UNTIL WE RUN INTO A SEPARATOR.            FEC          747     A     
 FEC                                                                                       FEC          748     A     
 FEC       ASK4     SA2    B6+B1                                                           FEC          749     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SX6    X2-O.VAR                                                        FEC          750     A     
 FEC                ZR     X6,ASK5     IF ALPHA STRING                                     FEC          751     A     
 FEC                SX6    X2-O.CONS                                                       FEC          752     A     
 FEC                ZR     X6,ASK5     IF DIGIT STRING                                     FEC          753     A     
 FEC                EQ     ASK6                                                            FEC          754     A     
 FEC                                                                                       FEC          755     A     
 FEC       ASK5     BX6    X0*X2                                                           FEC          756     A     
 FEC                LX6    B7          MOVE NEXT UPPER TO RESULT MIDDLE                    FEC          757     A     
 FEC                IX6    X6+X1                                                           FEC          758     A     
 FEC                SB6    B6+B1                                                           FEC          759     A     
 FEC                BX6    X6+X4       RESTORE O.VAR (OR O.CONS)                           FEC          760     A     
 FEC                SA6    B6-B1                                                           FEC          761     A     
 FEC                BX6    X7*X2                                                           FEC          762     A     
 FEC                LX1    X6,B2       MOVE CURRENT MIDDLE TO RESULT UPPER                 FEC          763     A     
 FEC                EQ     ASK4                                                            FEC          764     A     
 FEC                                                                                       FEC          765     A     
 FEC      *         HAVE FOUND A STOPPER, IS A MOVE NEEDED QQQ.                            FEC          766     A     
 FEC                                                                                       FEC          767     A     
 FEC       ASK6     BX6    X4+X1                                                           FEC          768     A     
 FEC                SA6    B6          STORE ANY REMAINING PARTIAL WORD                    FEC          769     A     
 FEC                NZ     X1,EXIT.    IF THERE WAS ANYTHING IN THE PARTIAL WORD           FEC          770     A     
 FEC                                                                                       FEC          771     A     
 FEC                =B4    B4+1        *TB* MUST BE ADJUSTED                               FEC          772     A     
 FEC       ASK7     SA2    B6-B1                                                           FEC          773     A     
 FEC                SB6    B6-B1       COUNT DOWN THE AUXILLARY COUNTER                    FEC          774     A     
 FEC                BX6    X2                                                              FEC          775     A     
 FEC                SA6    A2+B1                                                           FEC          776     A     
 FEC                GE     B6,B4,ASK7        IF NOT YET TO FRONT OF STRING                 FEC          777     A     
 FEC                EQ     EXIT.                                                           FEC          778     A     
 FEC       ASL      SPACE  4,15                                                            FEC          779     A     
 FEC      **        ASL -  ADJUST STATEMENT LABEL.                                         FEC          780     A     
 FEC      *                                                                                FEC          781     A     
 FEC      *         SPECIAL KLUDGE FOR *DO* AND *ASSIGN* STATEMENTS.  DETERMINES           FEC          782     A     
 FEC      *         LENGTH OF STATEMENT LABEL IN *TB*, AND CALLS *ASK* TO REMOVE           FEC          783     A     
 FEC      *         IT FROM THE STRING.  THUS, THESE POOR STATEMENTS CAN GET AT            FEC          784     A     
 FEC      *         THE NEXT ELEMENT OF THE STATEMENT IN THE USUAL FASHION.                FEC          785     A     
 FEC      *                                                                                FEC          786     A     
 FEC      *         ENTRY  (B4) _ LABEL IN *TB*                                            FEC          787     A     
 FEC      *                                                                                FEC          788     A     
 FEC      *         EXIT   (B4) _ TOKEN (LOGICAL) FOLLOWING STATEMENT LABEL                FEC          789     A     
 FEC      *                (X1) = 0L_LABEL + O.CON.                                        FEC          790     A     
 FEC      *                *TB* ADJUSTED, AS DEFINED BY *ASK*                              FEC          791     A     
 FEC      *                                                                                FEC          792     A     
 FEC      *         USES   ALL BUT A0.                                                     FEC          793     A     
 FEC      *                (SCR).                                                          FEC          794     A     
 FEC      *         CALLS  ASK.                                                            FEC          795     A     
 FEC                                                                                       FEC          796     A     
 FEC                                                                                       FEC          797     A     
 FEC       ASL      SUBR   =           ENTRY/EXIT...                                       FEC          798     A     
 FEC                SB5    -O.CONS                                                         FEC          799     A     
 FEC                SA2    =05050505050505BS18                                             FEC          800     A     
 FEC                SA3    =40404040404040BS18                                             FEC          801     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SB6    B0          INITIALIZE *SB* POINTER                             FEC          802     A     
 FEC                SA1    B4          (X1) = START OF LABEL                               FEC          803     A     
 FEC       ASL1     IX4    X1+X2       SET SIGN BITS OF DIGITS                             FEC          804     A     
 FEC                BX7    -X3+X4      ISOLATE NON-DIGITS                                  FEC          805     A     
 FEC                NZ     X7,ASL2     IF NOT 7-DIGITS                                     FEC          806     A     
 FEC                =B6    B6+B1       UPDATE *SB* POINTER                                 FEC          807     A     
 FEC                SA1    B4+B6       PICK UP NEXT *SB* ENTRY                             FEC          808     A     
 FEC                SX5    X1+B5                                                           FEC          809     A     
 FEC                ZR     X5,ASL1     IF STILL A CONSTANT                                 FEC          810     A     
 FEC                =B2    -1                                                              FEC          811     A     
 FEC                EQ     ASL3                                                            FEC          812     A     
 FEC                                                                                       FEC          813     A     
 FEC       ASL2     LX7    -12                                                             FEC          814     A     
 FEC                NX2,B2 X7          LOCATE FIRST NON-DIGIT                              FEC          815     A     
 FEC                =B2    B2-1                                                            FEC          816     A     
 FEC                MX0    1                                                               FEC          817     A     
 FEC                AX4    X0,B2       MASK LENGTH = DIGIT LENGTH                          FEC          818     A     
 FEC                ZR     B6,ASL4     IF LABEL ONLY 1 WORD LONG                           FEC          819     A     
 FEC       ASL3     MX4    7*CHAR                                                          FEC          820     A     
 FEC                SA1    B4          RESET (X1) = START OF LABEL                         FEC          821     A     
 FEC                SB4    B4+B6       SET B4 TO LAST WORD OF LABEL                        FEC          822     A     
 FEC       ASL4     BX6    X4*X1                                                           FEC          823     A     
 FEC                MI     B2,ASL5     IF LABEL MULTIPLE OF 7 CHARACTERS                   FEC          824     A     
 FEC                SX3    B2                                                              FEC          825     A     
 FEC                MX4    -9          *** KLUDGE ***                                      FEC          826     A     
 FEC                SX5    1+=0                                                            FEC          827     A     
 FEC                BX3    -X4*X3                                                          FEC          828     A     
 FEC                LX3    18          *** KLUDGE ***                                      FEC          829     A     
 FEC                SA6    SCR                                                             FEC          830     A     
 FEC                IX5    X5+X3       MANUFACTURE DUMMY *SATTR* WORD FOR *ASK*            FEC          831     A     
 FEC                RJ     ASK         ADJUST OFF THE LABEL                                FEC          832     A     
 FEC                SA1    SCR                                                             FEC          833     A     
 FEC                EQ     EXIT.                                                           FEC          834     A     
 FEC                                                                                       FEC          835     A     
 FEC       ASL5     SA1    B4                                                              FEC          836     A     
 FEC                SX5    X1+B5                                                           FEC          837     A     
 FEC                NZ     X5,ASL6     IF NOT CONSTANT                                     FEC          838     A     
 FEC                SX4    O.VAR-O.CONS                                                    FEC          839     A     
 FEC                IX7    X1+X4                                                           FEC          840     A     
 FEC                SA7    B4                                                              FEC          841     A     
 FEC       ASL6     BX1    X6                                                              FEC          842     A     
 FEC                EQ     EXIT.                                                           FEC          843     A     
 FEC       CAC      SPACE  4,10                                                            FEC          844     A     
 FEC      **        CAC -  CHECK ASSUMED LENGTH CHARACTER DECLARATIONS                     FEC          845     A     
 FEC      *                                                                                FEC          846     A     
 FEC      *         OUTPUTS DIAGNOSTIC FOR ILLEGAL ASSUMED LENGTH CHARACTER.               FEC          847     A     
 FEC                                                                                       FEC          848     A     
 FEC                                                                                       FEC          849     A     
 FEC       CAC      SUBR   0           ...ENTRY/EXIT...                                    FEC          850     A     
 FEC                SA1    CHARDCL                                                         FEC          851     A     
 FEC                ZR     X1,EXIT.    IF NO TYPE CHARACTER DECLARATIONS                   FEC          852     A     
 FEC                SA3    T.SYM                                                           FEC          853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA2    T=SYM                                                           FEC          854     A     
 FEC                SB3    Z=SYM                                                           FEC          855     A     
 FEC                SA4    X3-Z=SYM+WB.W     INITIALIZE FETCH REGISTER                     FEC          856     A     
 FEC                SB4    X2                                                              FEC          857     A     
 FEC                MX0    -WB.MODEL                                                       FEC          858     A     
 FEC                SA1    S=ENTRY                                                         FEC          859          I
          -FC51048
 FEC                SB6    X1                                                              FEC          860          I
          -FC51048
 FEC                LX1    1                                                               FEC          861          I
          -FC51048
 FEC                SX1    X1+B6       CONVERT ORDINAL TO INDEX                            FEC          862          I
          -FC51048
 FEC                ERRNZ  3-Z=SYM                                                         FEC          863          I
          -FC51048
 FEC                =B6    X1-WA.W+WB.W                                                    FEC          864          I
          -FC51048
 FEC                SA1    S=VALUE                                                         FEC          865     A     
 FEC                SB5    X1                                                              FEC          866     A     
 FEC                LX1    1                                                               FEC          867     A     
 FEC                SX1    X1+B5       CONVERT ORDINAL TO INDEX                            FEC          868     A     
 FEC                ERRNZ  3-Z=SYM                                                         FEC          869     A     
 FEC                =B5    X1-WA.W+WB.W                                                    FEC          870     A     
 FEC                SB5    B5+X3       ADD IN T.SYM ADDR                                   FEC          871     A     
 FEC                SB6    B6+X3       ADD IN T.SYM ADDR                                   FEC          872          I
          -FC51048
 FEC                                                                                       FEC          873     A     
 FEC       CAC1     SA4    A4+B3                                                           FEC          874     A     
 FEC                ZR     B4,EXIT.    IF TABLE EXHAUSTED                                  FEC          875     A     
 FEC                SB4    B4-B3                                                           FEC          876     A     
 FEC                LX4    -WB.MODEP                                                       FEC          877     A     
 FEC                BX3    -X0*X4      EXTRACT MODE                                        FEC          878     A     
 FEC                LX4    WB.MODEP                                                        FEC          879     A     
 FEC                SB2    X3-M.CHAR                                                       FEC          880     A     
 FEC                NZ     B2,CAC1     IF NOT TYPE CHARACTER                               FEC          881     A     
 FEC                =A1    A4-WB.W+WC.W                                                    FEC          882     A     
 FEC                HX1    WC.CTYP                                                         FEC          883     A     
 FEC                PL     X1,CAC1     IF NOT ASSUMED LENGTH                               FEC          884     A     
 FEC                HX4    WB.FP                                                           FEC          885     A     
 FEC                MI     X4,CAC1     IF FORMAL PARAMETER                                 FEC          886     A     
 FEC                SB2    A4-B6                                                           FEC          887          I
          -FC51048
 FEC                SBIT   X4,WB.ENTP/WB.FPP                                               FC51048        8     A     
 FEC                MI     X4,CAC1     IF ENTRY POINT                                      FC51048        9     A     
 FEC                SB7    A4-B5                                                           FEC          888     A     
 FEC                ZR     B2,CAC1     IF MAIN ENTRY                                       FEC          889          I
          -FC51048
 FEC                NZ     B7,CAC5     IF NOT 1ST VALUE. SYMBOL                            FEC          890     A     
 FEC                SA4    A4+Z=SYM*M.CHAR   SKIP OVER REST OF VALUE. SYMBOLS              FEC          891     A     
 FEC                EQ     CAC1                                                            FEC          892     A     
 FEC                                                                                       FEC          893     A     
 FEC       CAC5     =A1    A4-WB.W+WA.W                                                    FEC          894     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                MX3    WA.SYML                                                         FEC          895     A     
 FEC                BX6    X3*X1       NAME ONLY                                           FEC          896     A     
 FEC                SA6    FILL.                                                           FEC          897     A     
 FEC                FATAL  E.TY7                                                           FEC          898     A     
 FEC                EQ     CAC1                                                            FEC          899     A     
 FEC       CBN      SPACE  4,10                                                            FC5A255       11     A     
 FEC      **        CBN -  CHECK COMMON BLOCK NAMES                                        FC5A255       12     A     
 FEC      *                                                                                FC5A255       13     A     
 FEC      *         CHECK FOR NON-ANSI USAGE OF COMMON BLOCK NAMES IN PROGRAM UNIT         FC5A255       14     A     
 FEC      *                                                                                FC5A255       15     A     
 FEC      *         CALLS  SSY                                                             FC5A255       16     A     
 FEC                                                                                       FC5A255       17     A     
 FEC                                                                                       FC5A255       18     A     
 FEC       CBN      SUBR               ...ENTRY/EXIT...                                    FC5A255       19     A     
 FEC                SA1    T=BLKS                                                          FC5A255       20     A     
 FEC                SB3    X1-Z=BLKS                                                       FC5A255       21     A     
 FEC                SA5    T.BLKS                                                          FC5A255       22     A     
 FEC                                                                                       FC5A255       23     A     
 FEC       CBN1     SA1    X5+B3                                                           FC5A255       24     A     
 FEC                ZR     B3,EXIT.    IF FINISHED                                         FC5A255       25     A     
 FEC                SB3    B3-Z=BLKS                                                       FC5A255       26     A     
 FEC                MX0    CA.BNAML                                                        FC5A255       27     A     
 FEC                BX6    X0*X1                                                           FC5A255       28     A     
 FEC                ERRNZ  CA.BNAML-WA.SYML                                                FC5A255       29     A     
 FEC                SA6    FILL.                                                           FC5A255       30     A     
 FEC                RJ     SSY         SCAN SYMBOL TABLE                                   FC5A255       31     A     
 FEC                MI     B7,CBN1     IF SYMBOL NOT USED (EXCEPT AS COMMON BLOCK)         FC5A255       32     A     
 FEC                CLAS=  X3,WB,(INTF,DEXT,GENF,EXT,ENT,FUN,SUB,PARM)                     FC5A255       33     A     
 FEC                BX3    X3*X2                                                           FC5A255       34     A     
 FEC                ZR     X3,CBN1     IF NO INVALID USAGE                                 FC5A255       35     A     
 FEC                NX3,B7                                                                 FC5A255       36     A     
 FEC                SB2    CLASS+47                                                        FC5A255       37          I
          -FC50608
 FEC                SBIT   X2,WB.FUNP                                                      FC50608        5     A     
 FEC                PL     X2,CBN2     IF NOT FUNCTION                                     FC50608        6     A     
 FEC                =A2    A2-WB.W+WC.W                                                    FC50608        7     A     
 FEC                MX0    -WC.FUNTL                                                       FC50608        8     A     
 FEC                LX2    -WC.FUNTP                                                       FC50608        9     A     
 FEC                BX2    -X0*X2      EXTRACT FUNCTION TYPE                               FC50608       10     A     
 FEC                SX2    X2-MF.STF                                                       FC50608       11     A     
 FEC                ZR     X2,CBN1     IF STATEMENT FUNCTION, NO CONFLICT                  FC50608       12     A     
 FEC                                                                                       FC50608       13     A     
 FEC       CBN2     SB2    CLASS+47                                                        FC50608       14     A     
 FEC                SA3    B2-B7       FETCH ERRLIT OF INVALID USAGE                       FC5A255       38     A     
 FEC                BX6    X3                                                              FC5A255       39     A     
 FEC                SA6    FILL.2                                                          FC5A255       40     A     
 FEC                ANSI   E.CM8                                                           FC5A255       41     A     
 FEC                EQ     CBN1                                                            FC5A255       42     A     
 FEC       CLU      SPACE  4,10                                                            FEC          900     A     
 FEC      **        CLU  - CHECK "LEVEL" USAGE.                                            FEC          901     A     
 FEC      *         CHECKS THAT EACH LEVELED NON- COMMON NAME IS A FORMAL                  FEC          902     A     
 FEC      *         PARAMETER.                                                             FEC          903     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *         SETS LEV0[FPI] FOR LEVEL 0 FORMAL PARAMS.                              FEC          904     A     
 FEC      *         CALLS  NONE                                                            FEC          905     A     
 FEC                                                                                       FEC          906     A     
 FEC                                                                                       FEC          907     A     
 FEC       CLU      SUBR   0                                                               FEC          908     A     
 FEC                SA1    LEVEL                                                           FEC          909     A     
 FEC                SA2    T=SYM                                                           FEC          910     A     
 FEC                ZR     X1,EXIT.    IF NO LEVEL STATEMENTS                              FEC          911     A     
 FEC                SA3    T.SYM                                                           FEC          912     A     
 FEC                SA4    T.FPI                                                           FEC          913     A     
 FEC                SB6    X2          (B6) = NO. OF T.SYM WORDS TO EXAMINE                FEC          914     A     
 FEC                SB7    X4-1                                                            FEC          915     A     
 FEC                =B3    Z=SYM                                                           FEC          916     A     
 FEC                =A3    X3-Z=SYM+WB.W                                                   FEC          917     A     
 FEC                CLAS=  X5,WB,(LEVN)                                                    FEC          918     A     
 FEC                CLAS=  X4,WB,(LEV,LEVN)                                                FEC          919     A     
 FEC                CLAS=  X1,WB,(FP,COM)                                                  FEC          920     A     
 FEC                EQ     CLU10                                                           FEC          921     A     
 FEC                                                                                       FEC          922     A     
 FEC       CLU5     LX3    WB.LEVP-WB.LCMP                                                 FEC          923          I
          -FC5A135
 FEC       CLU5     LX3    WB.LABP-WB.LCMP                                                 FC5A135        4     A     
 FEC                MX6    1                                                               FEC          924     A     
 FEC                PL     X3,CLU10    IF NOT LCM                                          FEC          925     A     
 FEC                LX3    1+WB.LCMP                                                       FEC          926     A     
 FEC                BX0    X5*X3                                                           FEC          927     A     
 FEC                LX6    1+FP.LEV0P                                                      FEC          928     A     
 FEC                NZ     X0,CLU10    IF LEVEL NE 0                                       FEC          929     A     
 FEC                MX0    -WB.FPNOL                                                       FEC          930     A     
 FEC                LX3    -WB.FPNOP                                                       FEC          931     A     
 FEC                BX0    -X0*X3                                                          FEC          932     A     
 FEC                SA2    B7+X0                                                           FEC          933     A     
 FEC                BX6    X6+X2                                                           FEC          934     A     
 FEC                SA6    A2          SET LEV0[FPI ENTRY]                                 FEC          935     A     
 FEC                SA6    LEVEL0      LEVEL0 NZ FOR PASS 2                                FEC          936     A     
 FEC                                                                                       FEC          937     A     
 FEC       CLU10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                             FEC          938     A     
 FEC                =A2    A3-WB.W+WA.W      WAI = WA ENTRY OF T.SYM                       FEC          939     A     
 FEC                MX6    WA.SYML                                                         FEC          940     A     
 FEC                BX6    X6*X2                                                           FEC          941     A     
 FEC                ZR     B6,EXIT.    IF DONE                                             FEC          942     A     
 FEC                BX0    X1*X3                                                           FEC          943     A     
 FEC                BX7    -X4*X3                                                          FEC          944     A     
 FEC                SB6    B6-B3                                                           FEC          945     A     
 FEC                HX3    WB.LEV                                                          FEC          946     A     
 FEC                SA6    FILL.       STORE NAME IN MESSAGE                               FEC          947     A     
 FEC                PL     X3,CLU10    IF NOT LEVELED                                      FEC          948     A     
 FEC                LX3    WB.LEVP-WB.LABP                                                 FC5A135        5     A     
 FEC                MI     X3,CLU10    IF LABEL LEVEL BITS NOT DEFINED                     FC5A135        6     A     
 FEC                HX0    WB.COM                                                          FEC          949     A     
 FEC                MI     X0,CLU10    IF COMMON                                           FEC          950     A     
 FEC                NZ     X0,CLU5     IF F.P.                                             FEC          951     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                FATAL  E.LV6       LEVEL DECLARATION ON NON F.P. ITEM                  FEC          952     A     
 FEC                SA7    A3          (LEV,LEVN) [WBI] = 0                                FEC          953     A     
 FEC                EQ     CLU10                                                           FEC          954     A     
 FEC       CSB      SPACE  4,10                                                            FEC          955     A     
 FEC      **        CSB -  CHECK SEQUENCE BREAK.                                           FEC          956     A     
 FEC      *                                                                                FEC          957     A     
 FEC      *                DECIDES WHETHER A SEQUENCE BREAK (END OF BASIC BLOCK)           FEC          958     A     
 FEC      *         IS NECESSARY. IF SO, CALLS *OIL* TO OUTPUT THE IL.                     FEC          959     A     
 FEC      *         IF A LABEL IS TO BE DEFINED, THE IL WILL BE FLUSHED.                   FEC          960     A     
 FEC      *                                                                                FEC          961     A     
 FEC      *         IF THE CURRENT ACCUMULATED IL SEGMENT IS LARGE, IT WILL                FEC          962     A     
 FEC      *         BE FLUSHED.  THEREFORE CSB MUST NOT BE CALLED IF THE IL                FEC          963     A     
 FEC      *         IS NOT IN A FLUSHABLE STATE.                                           FEC          964     A     
 FEC      *                                                                                FEC          965     A     
 FEC      *         EVEN IF THE SEGMENT IS NOT FLUSHED, IT MAY BE TOO LONG                 FEC          966     A     
 FEC      *         FOR SQUEEZE TO BE PROFITABLE.  IF SO, (CURST) IS RESET                 FEC          967     A     
 FEC      *         TO LIMIT THE REGION EXAMINED BY PAR/SQZ.                               FEC          968     A     
 FEC      *                                                                                FEC          969     A     
 FEC      *         ENTRY  (X2) = LABEL TO BE COMPILED (TP. FORMAT).                       FEC          970     A     
 FEC      *                     .ZR. IF NO LABEL DEFINITION.                               FEC          971     A     
 FEC      *         USES   ALL BUT A0.                                                     FEC          972     A     
 FEC                                                                                       FEC          973     A     
 FEC                                                                                       FEC          974     A     
 FEC       PAR.TH   EQU    50*Z=TURP                                                       FEC          975     A     
 FEC                                                                                       FEC          976     A     
 FEC       CSB      SUBR   =           ENTRY/EXIT...                                       FEC          977     A     
 FEC                NZ     X2,CSB4     IF LABEL TO BE DEFINED                              FEC          978     A     
 FEC                SA1    T=PAR                                                           FEC          979     A     
 FEC                SA3    N.MAXIL                                                         FEC          980     A     
 FEC                IX0    X1-X3                                                           FEC          981     A     
 FEC                PL     X0,CSB6     IF SEGMENT LENGTH EXCEEDS THRESHOLD                 FEC          982     A     
 FEC                SX6    X1-PAR.TH                                                       FEC          983     A     
 FEC                SA3    CURST                                                           FEC          984     A     
 FEC                IX0    X3-X6                                                           FEC          985     A     
 FEC                PL     X0,EXIT.    IF SQUEEZE LENGTH WITHIN LIMIT                      FEC          986     A     
 FEC                SA6    A3          INDICATE NO SQUEEZING PAST HERE                     FEC          987     A     
 FEC                EQ     EXIT.                                                           FEC          988     A     
 FEC                                                                                       FEC          989     A     
 FEC      *         EMIT TURPLE TO DEFINE THE LABEL, AND FLUSH THIS                        FEC          990     A     
 FEC      *         IL SEGMENT.                                                            FEC          991     A     
 FEC                                                                                       FEC          992     A     
 FEC       CSB4     BX4    X2          (P1) = LABEL                                        FEC          993     A     
 FEC                MX5    0           (P2) = NIL                                          FEC          994     A     
 FEC                EMIT   OPBSS,*                                                         FEC          995     A     
 FEC       CSB6     CALL   OIL         OUTPUT INTERMEDIATE LANGUAGE SEGMENT                FEC          996     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC          997     A     
 FEC       CUF      SPACE  4,10                                                            FEC          998     A     
 FEC      **        CUF - CHECK UNDEFINED FUNCTION.                                        FEC          999     A     
 FEC      *                                                                                FEC         1000     A     
 FEC      *         USES   X - 1,2,3,6,7  A - 1,2,3,6  B - 2,3                             FEC         1001     A     
 FEC                                                                                       FEC         1002     A     
 FEC       CUF      SUBR   0           ENTRY/EXIT...                                       FEC         1003     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA2    MOD                                                             FEC         1004     A     
 FEC                SA1    S=VALUE                                                         FEC         1005     A     
 FEC                HX2    MO.FUN                                                          FEC         1006     A     
 FEC                PL     X2,EXIT.    IF NOT COMPILING A FUNCTION                         FEC         1007     A     
 FEC                SB2    X1                                                              FEC         1008     A     
 FEC                LX1    1                                                               FEC         1009     A     
 FEC                SB2    X1+B2       CONVERT TO INDEX                                    FEC         1010     A     
 FEC                SA1    T.SYM                                                           FEC         1011     A     
 FEC                SX1    X1+B2                                                           FEC         1012     A     
 FEC                =A1    X1+WB.W     A1 = ADDRESS OF *WB*                                FEC         1013     A     
 FEC                BX2    X1                                                              FEC         1014     A     
 FEC                SBIT   X2,WB.1REFP                                                     FEC         1015          I
          -FC5A191
 FEC                SBIT   X2,WB.MDFP                                                      FC5A191        6     A     
 FEC                PL     X2,CUF10    IF NO BOOLEAN ENTRY POINTS                          FEC         1016     A     
 FEC                SA2    A1+M.INT*Z=SYM    X2 = *WB* VALUI.                              FEC         1017     A     
 FEC                SA3    A1+M.REAL*Z=SYM   X3 = *WB* VALUR.                              FEC         1018     A     
 FEC                LDBIT  X0,WB.DEFP                                                      FEC         1019     A     
 FEC                BX7    X0*X1       ISOLATE DEF BIT OF VALUE.                           FEC         1020     A     
 FEC                BX6    X0*X2       ISOLATE DEF BIT OF VALUI.                           FEC         1021     A     
 FEC                BX7    X6+X7                                                           FEC         1022     A     
 FEC                BX6    X0*X3       ISOLATE DEF BIT OF VALUR.                           FEC         1023     A     
 FEC                BX7    X6+X7       X7 = LOGICAL SUM OF DEF BITS                        FEC         1024     A     
 FEC                LDBIT  X0,WB.1REFP                                                     FC5A116        5          I
          -FC5A191
 FEC                LDBIT  X0,WB.MDFP                                                      FC5A191        7     A     
 FEC                BX7    X7+X0       SET *MUST DEFINE* BIT                               FC5A116        6     A     
 FEC                BX6    X1+X7                                                           FEC         1025     A     
 FEC                SA6    A1          UPDATE VALUE. *WB*                                  FEC         1026     A     
 FEC                BX6    X2+X7                                                           FEC         1027     A     
 FEC                SA6    A2          UPDATE VALUI. *WB*                                  FEC         1028     A     
 FEC                BX6    X3+X7                                                           FEC         1029     A     
 FEC                SA6    A3          UPDATE VALUR. *WB*                                  FEC         1030     A     
 FEC                                                                                       FEC         1031     A     
 FEC       CUF10    =B2    0                                                               FEC         1032     A     
 FEC                SB3    Z=SYM*N.TYPE      LOOP LIMIT                                    FEC         1033     A     
 FEC                LDBIT  X3,WB.DEFP                                                      FEC         1034     A     
 FEC                LDBIT  X4,WB.1REFP                                                     FEC         1035          I
          -FC5A191
 FEC                LDBIT  X4,WB.MDFP                                                      FC5A191        8     A     
 FEC                                                                                       FEC         1036     A     
 FEC       CUF20    SA2    A1+B2                                                           FEC         1037     A     
 FEC                BX6    X3*X2       ISOLATE DEF BIT                                     FEC         1038     A     
 FEC                LX6    WB.1REFP-WB.DEFP                                                FEC         1039          I
          -FC5A191
 FEC                LX6    WB.MDFP-WB.DEFP                                                 FC5A191        9     A     
 FEC                BX7    X4*X2       ISOLATE 1REF BIT                                    FEC         1040     A     
 FEC                BX7    X7-X6                                                           FEC         1041     A     
 FEC                ZR     X7,CUF30    IF NO ERROR                                         FEC         1042     A     
 FEC                SX1    B2                                                              FEC         1043     A     
 FEC                SX2    Z=SYM                                                           FEC         1044     A     
 FEC                IX1    X1/X2       X1 = OFFSET INTO MOD.DPC TABLE                      FEC         1045     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA2    X1+MOD.DPC                                                      FEC         1046     A     
 FEC                BX6    X2                                                              FEC         1047     A     
 FEC                SA6    FILL.                                                           FEC         1048     A     
 FEC                FATAL  E.SU06                                                          FEC         1049     A     
 FEC                                                                                       FEC         1050     A     
 FEC       CUF30    SB2    B2+Z=SYM                                                        FEC         1051     A     
 FEC                GE     B2,B3,EXIT. IF DONE                                             FEC         1052     A     
 FEC                EQ     CUF20                                                           FEC         1053     A     
 FEC       CUL      SPACE  4,10                                                            FEC         1054     A     
 FEC      **        CUL - CHECK UNDEFINED LABELS.                                          FEC         1055     A     
 FEC      *                                                                                FEC         1056     A     
 FEC      *         CALLS  CDD, LJS, PDM                                                   FEC         1057     A     
 FEC                                                                                       FEC         1058     A     
 FEC                                                                                       FEC         1059     A     
 FEC       CUL      SUBR               ENTRY/EXIT...                                       FEC         1060     A     
 FEC                SA3    T.SYM                                                           FEC         1061     A     
 FEC                SA2    T=SYM                                                           FEC         1062     A     
 FEC                SB3    Z=SYM                                                           FEC         1063     A     
 FEC                SA4    X3-Z=SYM+WB.W  INITIALIZE FETCH REGISTER                        FEC         1064     A     
 FEC                SB4    X2                                                              FEC         1065     A     
 FEC                                                                                       FEC         1066     A     
 FEC       CUL2     SA4    A4+B3       FETCH SYMBOL                                        FEC         1067     A     
 FEC                ZR     B4,CUL6     IF TABLE EXHAUSTED                                  FEC         1068     A     
 FEC                SB4    B4-B3       DECREMENT TABLE LENGTH                              FEC         1069     A     
 FEC                CLAS=  X1,WB,(SDEF,FDEF,NDEF)                                          FEC         1070     A     
 FEC                BX6    X1*X4                                                           FEC         1071     A     
 FEC                HX4    WB.LAB                                                          FEC         1072     A     
 FEC                PL     X4,CUL2     IF THIS ENTRY NOT A STATEMENT LABEL                 FEC         1073          I
          -FC5A184
 FEC                NZ     X6,CUL2     IF LABEL DEFINED                                    FEC         1074          I
          -FC5A184
 FEC                MI     X4,CUL4     IF THIS ENTRY IS A STATEMENT LABEL                  FC5A184        9     A     
 FEC                LX4    WB.LABP+1                                                       FC5A184       10     A     
 FEC                CLAS=  X1,WB,(AGN,AGO2)                                                FC5A184       11     A     
 FEC                BX6    -X1*X4                                                          FC5A184       12     A     
 FEC                SA6    A4          CLEAR THE BITS                                      FC5A184       13     A     
 FEC                HX4    WB.AGO2                                                         FC5A184       14     A     
 FEC                PL     X4,CUL2     IF VAR NOT OBJECT OF *GO TO*                        FC5A184       15     A     
 FEC                LX4    WB.AGO2P-WB.AGNP                                                FC5A184       16     A     
 FEC                MI     X4,CUL2     IF VAR APPEARED IN *ASSIGN* STATEMENT               FC5A184       17     A     
 FEC                =A1    A4-WB.W+WA.W      X1 = *WA*                                     FC5A184       18     A     
 FEC                MX7    WA.SYML                                                         FC5A184       19     A     
 FEC                BX7    X7*X1       X7 = 0LSYMBOL                                       FC5A184       20     A     
 FEC                ERRNZ  WA.SYMP+WA.SYML-60D                                             FC5A184       21     A     
 FEC                SA7    FILL.                                                           FC5A184       22     A     
 FEC                FATAL  E.AS6       ** GOTO I WITHOUT ASSIGN 10 TO I                    FC5A184       23     A     
 FEC                EQ     CUL2                                                            FC5A184       24     A     
 FEC                                                                                       FC5A184       25     A     
 FEC       CUL4     NZ     X6,CUL2     IF LABEL DEFINED                                    FC5A184       26     A     
 FEC                =A5    A4-WB.W+WA.W                                                    FEC         1075     A     
 FEC                AX5    WA.STLP     EXTRACT LABEL                                       FEC         1076     A     
 FEC                CALL   LJS         LEFT JUSTIFY STATEMENT LABEL                        FEC         1077     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA6    FILL.                                                           FEC         1078     A     
 FEC                FATAL  E.MS        ** MISSING STATEMENT NUMBER **                      FEC         1079     A     
 FEC                EQ     CUL2                                                            FEC         1080     A     
 FEC                                                                                       FEC         1081     A     
 FEC      **        CHECK FOR UNTERMINATED DO LOOPS AND IF BLOCKS                          FEC         1082     A     
 FEC                                                                                       FEC         1083     A     
 FEC       CUL6     SA2    T=BLST                                                          FEC         1084     A     
 FEC                ZR     X2,CUL9     IF NO UNTERMINATED BLOCK STRUCTURES                 FEC         1085     A     
 FEC                                                                                       FEC         1086     A     
 FEC       CUL7     SA1    T.BLST                                                          FEC         1087     A     
 FEC                SB4    X2-1                                                            FEC         1088     A     
 FEC                SA4    X1+B4       FETCH COUNT WORD                                    FEC         1089     A     
 FEC                LX4    -LC.CNTP                                                        FEC         1090     A     
 FEC                SX0    X4          EXTRACT SEGMENT SIZE                                FEC         1091     A     
 FEC                ERRNZ  18-LC.CNTL                                                      FEC         1092     A     
 FEC                LX4    LC.CNTP-LC.DOP                                                  FEC         1093     A     
 FEC                SX4    X4          EXTRACT DO INDEX                                    FEC         1094     A     
 FEC                ERRNZ  18-LC.DOL                                                       FEC         1095     A     
 FEC                ZR     X4,CUL8     IF UNTERMINATED BLOCK IF                            FEC         1096     A     
 FEC                IX2    X2-X0                                                           FEC         1097     A     
 FEC                IX4    X1+X2                                                           FEC         1098     A     
 FEC                SA4    X4+DO.W                                                         FEC         1099     A     
 FEC                AX4    DO.TAGP                                                         FEC         1100     A     
 FEC                MX3    -DO.TAGL                                                        FEC         1101     A     
 FEC                BX4    -X3*X4                                                          FEC         1102     A     
 FEC                ZR     X4,CUL8     IF I/O DO                                           FEC         1103     A     
 FEC                SB5    X4                                                              FEC         1104     A     
 FEC                ERRNZ  18-DO.TAGP                                                      FEC         1105     A     
 FEC                SX4    B5+B5                                                           FEC         1106     A     
 FEC                SB5    X4+B5       CONVERT ORDINAL TO INDEX                            FEC         1107     A     
 FEC                ERRNZ  3-Z=SYM                                                         FEC         1108     A     
 FEC                SA3    T.SYM                                                           FEC         1109     A     
 FEC                SA5    X3+B5       FETCH DPC OF STATEMENT LABEL                        FEC         1110     A     
 FEC                AX5    WA.STLP     EXTRACT LABEL                                       FEC         1111     A     
 FEC                CALL   LJS         LEFT JUSTIFY STATEMENT LABEL                        FEC         1112     A     
 FEC                SA6    FILL.                                                           FEC         1113     A     
 FEC                FATAL  E.DO09      UNTERMINATED DO LOOP                                FEC         1114     A     
 FEC       CUL8     SA2    T=BLST                                                          FEC         1115     A     
 FEC                IX2    X2-X0                                                           FEC         1116     A     
 FEC                SHRINK A2,X2       SCRATCH PROCESSED SEGMENT                           FEC         1117     A     
 FEC                NZ     X2,CUL7     IF MORE TO PROCESS                                  FEC         1118     A     
 FEC                SA1    IFLEVEL                                                         FEC         1119     A     
 FEC                ZR     X1,CUL9     IF NO UNTERMINATED BLOCK IFS                        FEC         1120     A     
 FEC                CALL   CDD         CONVERT TO DPC                                      FEC         1121     A     
 FEC                SA6    FILL.                                                           FEC         1122     A     
 FEC                FATAL  E.IF17                                                          FEC         1123     A     
 FEC                                                                                       FEC         1124     A     
 FEC       CUL9     SA1    T=C$IF                                                          FEC         1125     A     
 FEC                ZR     X1,EXIT.    IF NO UNTERMINATED C$ IFS                           FEC         1126     A     
 FEC                CALL   CDD         CONVERT TO DPC                                      FEC         1127     A     
 FEC                SA6    FILL.                                                           FEC         1128     A     
 FEC                SHRINK A1,B0                                                           FEC         1129     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                FATAL  E.C$15                                                          FEC         1130     A     
 FEC                EQ     EXIT.                                                           FEC         1131     A     
 FEC       CUS      SPACE  4,10                                                            FEC         1132     A     
 FEC      **        CUS -  CHECK UPCOMING STATEMENT.                                       FEC         1133     A     
 FEC      *                                                                                FEC         1134     A     
 FEC      *                ROUTINE IS ENTERED BY THE FRONT END CONTROLLER (*FEC*)          FEC         1135     A     
 FEC      *         WHENEVER A STATEMENT WHICH MAY GENERATE CODE IS ENCOUNTERED.           FEC         1136     A     
 FEC      *                                                                                FEC         1137     A     
 FEC      *         OUTPUT OBJECT TIME REPRIEVE TURPLE, WHEN NECESSARY                     FEC         1138     A     
 FEC      *                                                                                FEC         1139     A     
 FEC      *         IF (HANGER) " 0 -- JUMP TO IT TO COMPLETE ANY HANGING PARTS OF         FEC         1140     A     
 FEC      *                PREVIOUS STATEMENT.                                             FEC         1141     A     
 FEC      *                                                                                FEC         1142     A     
 FEC      *                NOTE THAT A "CONTINUE" WITHOUT A LABEL CAN NEVER CAUSE          FEC         1143     A     
 FEC      *         ANY CODE TO BE GENERATED, AND IS THEREFORE IGNORED.                    FEC         1144     A     
 FEC      *                                                                                FEC         1145     A     
 FEC      *         ENTRY  (X5) = (TB=KEY) SHIFTED TO KW.GENP IN BIT 59.                   FEC         1146     A     
 FEC      *                ("SB.STN") =  COLUMNS 1-5 OF STATEMENT.                         FEC         1147     A     
 FEC      *                                                                                FEC         1148     A     
 FEC      *         EXIT   INTO *FEC*.                                                     FEC         1149     A     
 FEC      *                                                                                FEC         1150     A     
 FEC      *         USES   ALL BUT  A0.                                                    FEC         1151     A     
 FEC      *                                                                                FEC         1152     A     
 FEC      *         CALLS  ALC, CSB, GSL                                                   FEC         1153     A     
 FEC                                                                                       FEC         1154     A     
 FEC                                                                                       FEC         1155     A     
 FEC       CUS      SUBR   0           ...ENTRY/EXIT...                                    FEC         1156     A     
 FEC                SA1    TB=LABR                                                         FEC         1157     A     
 FEC                NZ     X1,CUS3     IF LABEL PRESENT, CHECK HANGER                      FEC         1158     A     
 FEC                SA2    TB=TYPE                                                         FEC         1159     A     
 FEC                SB7    KW=CONT                                                         FEC         1160     A     
 FEC                LX2    -KW.JMPP                                                        FEC         1161     A     
 FEC                SB7    -B7                                                             FEC         1162     A     
 FEC                SB7    X2+B7                                                           FEC         1163     A     
 FEC                ERRNZ  18-KW.JMPL                                                      FEC         1164     A     
 FEC                ZR     B7,EXIT.    IGNORE NULL *CONTINUE* STATEMENTS                   FEC         1165     A     
 FEC                                                                                       FEC         1166     A     
 FEC                                                                                       FEC         1167     A     
 FEC      **        IF COMPILATION OF THE PRECEDING STATEMENT WAS DEPENDENT UPON           FEC         1168     A     
 FEC      *         THE NEXT STATEMENT (I.E., THIS ONE), IT HAS BEEN LEFT HANGING.         FEC         1169     A     
 FEC      *         IT IS NOW TIME TO FINISH IT UP --                                      FEC         1170     A     
 FEC      *                WE JUMP TO WHOMSOEVER HATH PUT HIS ADDRESS IN (HANGER).         FEC         1171     A     
 FEC      *                HE DOES HIS THING AND RETURNS TO *CUS.RET*.                     FEC         1172     A     
 FEC      *         NOTE THAT ONLY STATEMENTS WHICH MAKE PARSED FILE ENTRIES MAY           FEC         1173     A     
 FEC      *                BE *HUNG*.                                                      FEC         1174     A     
 FEC                                                                                       FEC         1175     A     
 FEC       CUS3     SA3    HANGER                                                          FEC         1176     A     
 FEC                ZR     X3,CUS.RET  IF NO *HANGING* COMPILATION                         FEC         1177     A     
 FEC                =X6                                                                    FEC         1178     A     
 FEC                SB7    X3                                                              FEC         1179     A     
 FEC                SA6    A3          CLEAR *HANGER* FLAG                                 FEC         1180     A     
 FEC                JP     B7          COMPILE ANY HANGING PIECES                          FEC         1181     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                                                                                       FEC         1182     A     
 FEC                                                                                       FEC         1183     A     
 FEC      **        CUS.RET -  RETURN TO *CUS* FROM *HANGER* PROCESSING.                   FEC         1184     A     
 FEC      *                                                                                FEC         1185     A     
 FEC      *         SET (TRLINE) = CURRENT LINE NUMBER, TO BE ADDED TO THE                 FEC         1186     A     
 FEC      *         NEXT TURPLE OUT.                                                       FEC         1187     A     
 FEC      *                PREPARE TO EXIT --                                              FEC         1188     A     
 FEC      *         IF THIS IS THE END OF A BASIC BLOCK (SEQUENCE BREAK), THEN WE          FEC         1189     A     
 FEC      *                FLUSH THE PARSED FILE BY CALLING *ARITH*.                       FEC         1190     A     
 FEC      *         IF THERE WAS A LABEL, COMPILE THE BSS TO DEFINE IT,                    FEC         1191     A     
 FEC      *         CHECK (NOPATH) AND ISSUE APPROPRIATE WARNING, AND SET (FLOW)           FEC         1192     A     
 FEC      *                TO INDICATE DEAD CODE.                                          FEC         1193     A     
 FEC                                                                                       FEC         1194     A     
 FEC       CUS.RET  BSSENT 0           ...RETURN FROM *HANGERS*.                           FEC         1195     A     
 FEC                SA1    TB=TYPE                                                         FC5A337       10     A     
 FEC                SB7    KW=DATA                                                         FC5A337       11          I
          -FC50785
 FEC                LX1    -KW.JMPP                                                        FC5A337       12          I
          -FC50785
 FEC                SB7    -B7                                                             FC5A337       13          I
          -FC50785
 FEC                SB7    X2+B7                                                           FC5A337       14          I
          -FC50785
 FEC                ERRNZ  18-KW.JMPL                                                      FC5A337       15          I
          -FC50785
 FEC                ZR     B7,CUS4     IF DATA STATEMENT                                   FC5A337       16          I
          -FC50785
 FEC                SBIT   X1,KW.NBSP                                                      FC50785       11     A     
 FEC                MI     X1,CUS4     IF NO BEGINNING-OF-STATEMENT TO ISSUE               FC50785       12     A     
 FEC                ALLOC  T.PAR,Z=TURP                                                    FEC         1196     A     
 FEC                SA4    REFLIN      EMIT BEGINNING-OF-STATEMENT                         FEC         1197     A     
 FEC                SA2    OPBOS                                                           FEC         1198          I
          -FC50104
 FEC                SX2    V=NOOP                                                          FC50104       50     A     
 FEC                BX7    0           (1OP) = (2OP) = NIL                                 FEC         1199     A     
 FEC                LX4    -XR.LINEP+TH.LINEP                                              FEC         1200     A     
 FEC                =A7    B7-Z=TURP+OR.2OP                                                FEC         1201     A     
 FEC                BX6    X4+X2                                                           FEC         1202          I
          -FC50104
 FEC                LX2    TH.SKELP                                                        FC50104       51     A     
 FEC                SX6    O.SPACE                                                         FC50104       52     A     
 FEC                BX6    X2+X6       LINE NUMBER/OPERAND VALUE                           FC50104       53     A     
 FEC                BX6    X4+X6       AND NOOP SKELETON = BOS TURPLE HEADER               FC50104       54     A     
 FEC                =A7    A7-OR.2OP+OR.1OP                                                FEC         1203     A     
 FEC                =A6    A7-OR.1OP+OR.OPR                                                FEC         1204     A     
 FEC       .TEST    IFEQ   TEST,ON                                                         FEC         1205          I
          -FC5A337
 FEC                SA1    CO.SNAP                                                         FEC         1206          I
          -FC5A337
 FEC                LX1    1RQ                                                             FEC         1207          I
          -FC5A337
 FEC                PL     X1,CUS5     IF SNAP=Q NOT SELECTED                              FEC         1208          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
          -FC5A337
 FEC       CUS      REG    (X4)                                                            FEC         1209          I
          -FC5A337
 FEC       CUS5     BSS                                                                    FEC         1210          I
          -FC5A337
 FEC       .TEST    ENDIF                                                                  FEC         1211          I
          -FC5A337
 FEC                                                                                       FEC         1212     A     
 FEC       CUS4     BSS    0                                                               FC5A337       17     A     
 FEC                SA2    CSLTAG                                                          FEC         1213     A     
 FEC                LX2    TP.ORDP                                                         FEC         1214     A     
 FEC                RJ     CSB         CHECK FOR SEQUENCE BREAK                            FEC         1215     A     
 FEC                SA2    NOPATH                                                          FEC         1216     A     
 FEC                SA4    CSLTAG                                                          FEC         1217     A     
 FEC                SA3    FLOW                                                            FEC         1218     A     
 FEC                BX6    X2+X3                                                           FEC         1219     A     
 FEC                ZR     X4,CUS6     IF NO LABEL PRESENT                                 FEC         1220     A     
 FEC                BX6    0           CLEAR (FLOW) IF LABEL                               FEC         1221     A     
 FEC                                                                                       FC5A337       18     A     
 FEC       CUS6     SA6    A3          RESET (FLOW)                                        FEC         1222     A     
 FEC                SA6    A2          RESET (NOPATH)                                      FEC         1223     A     
 FEC                ZR     X6,EXIT.    IF NO STATEMENT NUMBER REQUIRED                     FEC         1224     A     
 FEC                SA3    TB=TYPE                                                         FEC         1225     A     
 FEC                SBIT   X3,KW.ILP                                                       FEC         1226     A     
 FEC                MI     X3,EXIT.    IF IMPLIED LABEL ON THIS STATEMENT                  FEC         1227     A     
 FEC                WARN   E.NP        *NO PATH TO THIS STATEMENT*                         FEC         1228     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         1229     A     
 FEC       CVD      SPACE  4,8                                                             FEC         1230     A     
 FEC      **        CVD -  CHECK VARIABLE DIMENSION IRREGULARITIES                         FEC         1231     A     
 FEC      *                                                                                FEC         1232     A     
 FEC      *         CHECK ALL VARIABLES IN SYMBOL TABLE FOR THOSE WITH WB.VDS              FEC         1233     A     
 FEC      *         STILL SET.  THIS INDICATES THAT AN AJUSTABLE OR ASSUMED SIZE           FEC         1234     A     
 FEC      *         ARRAY DIDNT APPEAR AS A FORMAL PARAMETER OR THAT A VARIABLE            FEC         1235     A     
 FEC      *         USED AS A VARIABLE SUBSCRIPT WAS NOT A FORMAL PARAMETER OR IN          FEC         1236     A     
 FEC      *         COMMON.                                                                FEC         1237     A     
 FEC                                                                                       FEC         1238     A     
 FEC                                                                                       FEC         1239     A     
 FEC       CVD      SUBR               ...ENTRY/EXIT...                                    FEC         1240     A     
 FEC                SA4    N.VD                                                            FEC         1241          I
          -FC50251
 FEC                SA2    T.SYM                                                           FEC         1242     A     
 FEC                ZR     X4,EXIT.    IF NO VARIABLE SUBSCRIPTS                           FEC         1243          I
          -FC50251
 FEC                SA3    T=SYM                                                           FEC         1244     A     
 FEC                =B6    X3-Z=SYM+WB.W                                                   FEC         1245     A     
 FEC       CVD1     MI     B6,EXIT.    IF LIST IS EXHAUSTED                                FEC         1246     A     
 FEC                SA3    X2+B6                                                           FEC         1247     A     
 FEC                =B6    B6-Z=SYM                                                        FEC         1248     A     
 FEC                SBIT   X3,WB.LABP                                                      FEC         1249     A     
 FEC                MI     X3,CVD1     IF STATEMENT LABEL                                  FEC         1250     A     
 FEC                SBIT   X3,WB.VDSP/WB.LABP                                              FEC         1251     A     
 FEC                PL     X3,CVD1     IF NOT USED AS VARIABLE SUBSCRIPT OR ARRAY          FEC         1252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SBIT   X3,WB.ARYP/WB.VDSP                                              FEC         1253     A     
 FEC                SB7    E.DM03                                                          FEC         1254     A     
 FEC                MI     X3,CVD2     IF ARRAY                                            FEC         1255     A     
 FEC                SB7    E.DM04                                                          FEC         1256     A     
 FEC       CVD2     MX1    WA.SYML                                                         FEC         1257     A     
 FEC                =A4    A3-WB.W+WA.W                                                    FEC         1258     A     
 FEC                BX6    X1*X4                                                           FEC         1259     A     
 FEC                SA6    FILL.                                                           FEC         1260     A     
 FEC                FATAL  B7                                                              FEC         1261     A     
 FEC                EQ     CVD1                                                            FEC         1262     A     
 FEC       FEP      SPACE  4,10                                                            FEC         1263     A     
 FEC      **        FEP - FRONT END PRESETS.                                               FEC         1264     A     
 FEC      *                                                                                FEC         1265     A     
 FEC      *         PRESET FRONT END CELLS.                                                FEC         1266     A     
 FEC                                                                                       FEC         1267     A     
 FEC                                                                                       FEC         1268     A     
 FEC       FEP      SUBR   0           ...ENTRY/EXIT...                                    FEC         1269     A     
 FEC                BX6    0                                                               FEC         1270          I
          -FC5A225
 FEC                SX6    0                                                               FC5A225        7     A     
 FEC                SA6    TYPD        IMPLICIT STATEMENT LETTERS                          FEC         1271     A     
 FEC                SA6    CURST       CURRENT START FOR PARSED FILE SQUEEZE               FEC         1272     A     
 FEC                SA6    FLOW        DEAD CODE FLAG                                      FEC         1273     A     
 FEC                SA6    HANGER      HANGING COMPILATION INDICATOR                       FEC         1274     A     
 FEC                SA6    IO.TEM      I/O TEMP USE COUNT                                  FEC         1275     A     
 FEC                SA6    NARGS       NUMBER OF ARGUMENTS                                 FEC         1276     A     
 FEC                SA6    NOPATH      STATEMENT LABEL REQUIRED FLAG                       FEC         1277     A     
 FEC                SA6    NTRCNT      COUNT OF *ENTRY* STATEMENT                          FEC         1278     A     
 FEC                SA6    RTNCNT      COUNT OF *RETURN* STATEMENTS                        FEC         1279     A     
 FEC                SA6    BLNKCOM     BLOCK NUMBER OF BLANK COMMON                        FEC         1280     A     
 FEC                SA6    CHARDCL     CHARACTER DECLARATION PRESENT                       FEC         1281     A     
 FEC                SA6    SAVE        SAVE INDICATOR                                      FEC         1282     A     
 FEC                SA6    USAVE       UNIVERSAL SAVE INDICATOR                            FEC         1283     A     
 FEC                SA6    LEVEL       NO LEVEL STATEMENTS                                 FEC         1284     A     
 FEC                SA6    LEVEL0      NO LEVEL 0 STATEMENTS                               FEC         1285     A     
 FEC                SA6    LEVEL2      NO LCM/ECS                                          FEC         1286     A     
 FEC                SA6    N.EPL       NO ENTRIES WITH UNIQUE FP LISTS                     FEC         1287     A     
 FEC                SA6    PARAMC      COUNT OF PARAMETERS (SYMBOLIC CONSTANTS)            FC5A225        8     A     
 FEC                SX6    LM.1ST                                                          FEC         1288     A     
 FEC                SA6    LEXMODE     SET TO 1ST TIME IN                                  FEC         1289     A     
 FEC                                                                                       FEC         1290     A     
 FEC                =X7    FEC=1ST                                                         FEC         1291     A     
 FEC                =X6    PASS=FE     INDICATE IN FRONT END PROCESSING                    FC5A225        9     A     
 FEC                SA7    STAGE       SIGNAL THAT A *FIRST CARD* IS NEEDED.               FEC         1292     A     
 FEC                =X6    PASS=FE     INDICATE IN FRONT END PROCESSING                    FEC         1293          I
          -FC5A225
 FEC                SA6    PASS                                                            FEC         1294     A     
 FEC                SA2    CO.SEQ                                                          FEC         1295     A     
 FEC                SA7    A7+B1                                                           FEC         1296     A     
 FEC                NZ     X2,FEP1     IF SEQ MODE                                         FEC         1297     A     
 FEC                                                                                       FEC         1298     A     
 FEC                MX6    0                                                               FEC         1299     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA6    LINES       SET TO *1ST LINE IS IN (CP.BUF)*                    FEC         1300     A     
 FEC                SA2    =10H        1                                                   FEC         1301     A     
 FEC                BX6    X2                                                              FEC         1302     A     
 FEC                SA6    CP.FLIN     NUMBER FIRST LINE OF SOURCE                         FEC         1303     A     
 FEC                                                                                       FEC         1304     A     
 FEC                                                                                       FEC         1305     A     
 FEC      **        RE-SET NATURAL TYPE TABLE TO --                                        FEC         1306     A     
 FEC      *                IMPLICIT REAL (A-H), INTEGER (I-N), REAL (O-Z)                  FEC         1307     A     
 FEC                                                                                       FEC         1308     A     
 FEC       FEP1     SA1    FEPA        NATURAL TYPE PRESETS                                FEC         1309     A     
 FEC                SA2    A1+B1                                                           FEC         1310     A     
 FEC                =X6    M.BOOL                                                          FEC         1311     A     
 FEC                =X7    M.LOG                                                           FEC         1312     A     
 FEC                SA6    NAT.TYP     BOOLEAN                                             FEC         1313     A     
 FEC                LX6    X1                                                              FEC         1314     A     
 FEC                =A7    A6+1        LOGICAL                                             FEC         1315     A     
 FEC                BX7    X2                                                              FEC         1316     A     
 FEC                =A6    A7+1        INTEGER                                             FEC         1317     A     
 FEC                =X6    X7+1                                                            FEC         1318     A     
 FEC                =A7    A6+1        REAL                                                FEC         1319     A     
 FEC                =X7    X6+1                                                            FEC         1320     A     
 FEC                =A6    A7+1        DOUBLE                                              FEC         1321     A     
 FEC                =X6    X7+1                                                            FEC         1322     A     
 FEC                =A7    A6+1        COMPLEX                                             FEC         1323     A     
 FEC                =A6    A7+1        CHARACTER                                           FEC         1324     A     
 FEC                                                                                       FEC         1325     A     
 FEC                SETMEM NAT.LEN,26/2                                                    FEC         1326     A     
 FEC                                                                                       FEC         1327     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         1328     A     
 FEC                                                                                       FEC         1329     A     
 FEC       FEPA     CON    "INT"+M.INT NATURAL TYPE PRESETS                                FEC         1330     A     
 FEC                CON    "REAL"+M.REAL                                                   FEC         1331     A     
 FEC       FVD      SPACE  4,15                                                            FEC         1332     A     
 FEC      **        FVD -  FLUSH VARIABLE DIMENSION CODE.                                  FEC         1333     A     
 FEC      *                                                                                FEC         1334     A     
 FEC      *         COMPILES CODE TO PRE-COMPUTE VARIABLE DIMENSION ADDRESS                FEC         1335     A     
 FEC      *         FUNCTIONS, WHEN NECESSARY.  WILL NOT COMPILE ANYTHING IF NO            FEC         1336     A     
 FEC      *         VARIABLE DIMENSIONS OCCURRED IN THE SUBPROGRAM.                        FEC         1337     A     
 FEC      *         FINISHES OPERAND ENTRIES OF TURPLES WITH INFORMATION                   FC50069        7     A     
 FEC      *         WHICH MAY HAVE BEEN DECLARED AFTER THE DIMENSION BOUNDS                FC50069        8     A     
 FEC      *         EXPRESSIONS WERE COMPILED.                                             FC50069        9     A     
 FEC      *                                                                                FEC         1338     A     
 FEC      *         ENTRY  T.VDIM TABLE CONTAINS *TURPLES* TO BE PROCESSED.                FEC         1339     A     
 FEC      *                T.PAR IS A NULL TABLE.                                          FEC         1340     A     
 FEC      *                                                                                FEC         1341     A     
 FEC      *         EXIT   T.VDIM LENGTH = 0.                                              FEC         1342     A     
 FEC      *                CODE DEFINED BY *TURPLES* IN *T.VDIM* SENT TO                   FEC         1343     A     
 FEC      *                INTERMEDIATE FILE.                                              FEC         1344     A     
 FEC      *                                                                                FEC         1345     A     
 FEC      *         USES   ALL                                                             FEC         1346     A     
 FEC      *         CALLS  ALLOC, OIL                                                      FEC         1347          I
          -FC50069
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *                                                                                FC50069       10     A     
 FEC      *         CALLS  ALC, CT1, MVE=                                                  FC50069       11     A     
 FEC                                                                                       FEC         1348     A     
 FEC                                                                                       FEC         1349     A     
 FEC       FVD      SUBR   0           ENTRY/EXIT...                                       FEC         1350     A     
 FEC                SA1    MOD                                                             FEC         1351          I
          -FC50558
 FEC                SA3    T=VDIM                                                          FEC         1352     A     
 FEC                CLAS=  X6,MO,(FUN,SUB)                                                 FEC         1353          I
          -FC50558
 FEC                BX0    X6*X1                                                           FEC         1354          I
          -FC50558
 FEC                ZR     X0,EXIT.    IF NOT PROCEDURE SUBPROGRAM                         FEC         1355          I
          -FC50558
 FEC                ZR     X3,EXIT.    IF NO VARIABLE DIMENSION CODE                       FEC         1356          I
          -FC50558
 FEC                SX0    X3-Z=TURP-1                                                     FC50558        6     A     
 FEC                PL     X0,FVD0     IF VARDIM CODE PRESENT                              FC50558        7     A     
 FEC                SHRINK A3,B0       TRASH V=BVT TURPLE                                  FC50558        8     A     
 FEC                EQ     EXIT.                                                           FC50558        9     A     
 FEC                                                                                       FEC         1357     A     
 FEC      **        FLUSH *T.VDIM* TABLE - OUTPUT INTERMEDIATE FILE CODE.                  FEC         1358          I
          -FC50069
 FEC      *         ADD IN ALL TP. ATTRIBUTES (THESE MAY HAVE BEEN DECLARED AFTER          FC50069       12     A     
 FEC      *         THE DIMENSION INFORMATION CONSTRUCTION).                               FC50069       13     A     
 FEC                                                                                       FC50069       14     A     
 FEC                SA5    T.VDIM                                                          FC50069       15          I
          -FC50558
 FEC       FVD0     SA5    T.VDIM                                                          FC50558       10     A     
 FEC                =B2    X3+OR.1OP                                                       FC50069       16     A     
 FEC                SB3    X5                                                              FC50069       17     A     
 FEC                MX4    TP.BIASL                                                        FC50069       18          I
          -FC50137
 FEC                CLAS=  X4,TP,(BIAS,ATTR)                                               FC50137        7     A     
 FEC                CLAS=  X7,TP,(INTR,SHRT)                                               FC50069       19     A     
 FEC                LX4    TP.BIASL+TP.BIASP                                               FC50069       20          I
          -FC50137
 FEC                                                                                       FC50069       21     A     
 FEC       FVD1     SB2    B2-Z=TURP                                                       FC50069       22     A     
 FEC                MI     B2,FVD4     IF FINISHED                                         FC50069       23     A     
 FEC                SA3    B2+B3       FETCH 1OP                                           FC50069       24     A     
 FEC                =B4    0           INDICATE 1OP                                        FC50069       25     A     
 FEC                                                                                       FC50069       26     A     
 FEC       FVD2     BX2    X7*X3                                                           FC50069       27     A     
 FEC                NZ     X2,FVD3     IF TP.INTR OR TP.SHRT                               FC50069       28     A     
 FEC                BX5    X4*X3       PRESERVE TP.BIAS                                    FC50069       29          I
          -FC50137
 FEC                BX5    X4*X3       PRESERVE BIAS AND EXISTING ATTRIBUTES               FC50137        8     A     
 FEC                HX3    TP.ORD                                                          FC50069       30     A     
 FEC                AX3    -TP.ORDL    EXTRACT ORDINAL                                     FC50069       31     A     
 FEC                LX0    X3                                                              FC50069       32     A     
 FEC                RJ     CT1         GET TP. FORMAT (WITH COMPLETE INFORMATION)          FC50069       33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX6    X6+X5       RESTORE BIAS                                        FC50069       34     A     
 FEC                SA6    A3                                                              FC50069       35     A     
 FEC                                                                                       FC50069       36     A     
 FEC       FVD3     NZ     B4,FVD1     IF JUST PROCESSED 2OP                               FC50069       37     A     
 FEC                =A3    A3-OR.1OP+OR.2OP                                                FC50069       38     A     
 FEC                =B4    1           INDICATE 2OP                                        FC50069       39     A     
 FEC                EQ     FVD2        LOOP FOR 2OP                                        FC50069       40     A     
 FEC                                                                                       FC50069       41     A     
 FEC      *         FLUSH T.VDIM IL TO T.PAR                                               FC50069       42     A     
 FEC                                                                                       FEC         1359     A     
 FEC                MX4    0                                                               FEC         1360          I
          -FC50069
 FEC       FVD4     MX4    0                                                               FC50069       43     A     
 FEC                BX5    0                                                               FEC         1361     A     
 FEC                EMIT   V=EVD,,T.VDIM  END VARDIM INDICATOR                             FEC         1362     A     
 FEC                SA3    T=VDIM                                                          FEC         1363     A     
 FEC                SB6    X3                                                              FEC         1364     A     
 FEC                ALLOC  T.PAR,X3    ALLOCATE SPACE FOR TURPLES                          FEC         1365     A     
 FEC                SX3    B7-B6       DESTINATION ADDRESS                                 FEC         1366     A     
 FEC                SA1    T=VDIM      WC                                                  FEC         1367     A     
 FEC                SA2    T.VDIM      SOURCE ADDRESS                                      FEC         1368     A     
 FEC                MOVE   X1,X2,X3    MOVE *TURPLES* TO PARSER TABLE                      FEC         1369     A     
 FEC                SHRINK T=VDIM      COLLAPSE T.VDIM                                     FEC         1370     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         1371     A     
 FEC       OIL      SPACE  4,10                                                            FEC         1372     A     
 FEC      **        OIL - OUTPUT IL.                                                       FEC         1373     A     
 FEC      *                                                                                FEC         1374     A     
 FEC      *         OIL PASSES THE CURRENT SAVED INTERMEDIATE LANGUAGE (IL)                FEC         1375     A     
 FEC      *         OFF TO A CODE GENERATOR.  THE HANDOFF IS ACCOMPLISHED BY               FEC         1376     A     
 FEC      *         CALLING *PIS - PUBLISH IL SEGMENT*.  THERE ARE TWO VERSIONS            FEC         1377     A     
 FEC      *         OF PIS --                                                              FEC         1378     A     
 FEC      *                                                                                FEC         1379     A     
 FEC      *         IN QCG MODE, PIS ACTUALLY CRANKS UP AND ISSUES                         FEC         1380     A     
 FEC      *                THE PREBINARY.                                                  FEC         1381     A     
 FEC      *         IN CCG MODE, THE IL IS WRITTEN TO A FILE (F.IL) TO                     FEC         1382     A     
 FEC      *                AWAIT LATER EXPANSION BY THE BRIDGE.                            FEC         1383     A     
 FEC      *                                                                                FEC         1384     A     
 FEC      *         THE MAIN FUNCTIONS OF OIL ARE ADMINISTRATIVE.                          FEC         1385     A     
 FEC      *         (A)  STATISTICS, SNAPS, AND TEST MODE CHECKS.                          FEC         1386     A     
 FEC      *         (B)  DECIDE WHETHER IL IS OR CAN BE SUPPRESSED.                        FEC         1387     A     
 FEC      *         (C)  CALL PIS.                                                         FEC         1388     A     
 FEC      *         (D)  RESET PARSER FOR NEXT SEGMENT.                                    FEC         1389     A     
 FEC      *         USES   ALL (REALLY).                                                   FEC         1390     A     
 FEC      *                                                                                FEC         1391     A     
 FEC      *         USES   ALL.                                                            FEC         1392     A     
 FEC      *         CALLS  PIS, SN.PAR .                                                   FEC         1393     A     
 FEC                                                                                       FEC         1394     A     
 FEC                                                                                       FEC         1395     A     
 FEC       OIL      SUBR   =           ...ENTRY/EXIT...                                    FEC         1396     A     
 FEC                                                                                       FEC         1397     A     
 FEC       .TEST    IFEQ   TEST,ON                                                         FEC         1398     A     
 FEC                SA2    CO.SNAP                                                         FEC         1399     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                LX2    1RO                                                             FEC         1400     A     
 FEC                PL     X2,OIL2     IF *SNAP=O* NOT SELECTED                            FEC         1401     A     
 FEC                CALL   SN.PAR      PRINT IL SEGMENT                                    FEC         1402     A     
 FEC                                                                                       FEC         1403     A     
 FEC       OIL2     SA5    PARSLEN                                                         FEC         1404     A     
 FEC                SA4    T=PAR                                                           FEC         1405     A     
 FEC                MX6    X4+X5                                                           FEC         1406     A     
 FEC                SA6    A5          RESET MAXIMUM PARSED FILE LENGTH                    FEC         1407     A     
 FEC       .TEST    ENDIF                                                                  FEC         1408     A     
 FEC                SA2    N.CT                                                            FEC         1409     A     
 FEC                SA3    N.CTMAX                                                         FEC         1410     A     
 FEC                BX6    0                                                               FEC         1411     A     
 FEC                MX7    X2+X3       RESET MAX CHAR TEMPS                                FEC         1412     A     
 FEC                SA6    A2                                                              FEC         1413     A     
 FEC                SA7    A3                                                              FEC         1414     A     
 FEC                                                                                       FEC         1415     A     
 FEC                SA1    ERR=K                                                           FEC         1416     A     
 FEC                NZ     X1,OIL4     IF CATASTROPHIC ERRORS IN IL SEGMENT                FEC         1417     A     
 FEC                SA1    WO.QC                                                           FEC         1418     A     
 FEC                SA2    T=PAR                                                           FEC         1419     A     
 FEC                MI     X1,OIL4     IF CODE GENERATION SUPPRESSED                       FEC         1420     A     
 FEC                ZR     X2,OIL4     IF PARSED FILE EMPTY                                FEC         1421     A     
 FEC                SA1    PASS        CURRENT PASS                                        FEC         1422     A     
 FEC                BX7    X1                                                              FEC         1423     A     
 FEC                SA7    OILA        SAVE CURRENT PASS                                   FEC         1424     A     
 FEC                CALL   PIS         PUBLISH IL SEGMENT                                  FEC         1425     A     
 FEC                SA1    OILA                                                            FEC         1426     A     
 FEC                BX6    X1                                                              FEC         1427     A     
 FEC                SA6    PASS        RESTORE FORMER PASS                                 FEC         1428     A     
 FEC       OIL4     BX6    0                                                               FEC         1429     A     
 FEC                SA6    CURST       RESET STARTING PASS 1 BLOCK                         FEC         1430     A     
 FEC                SHRINK T=PAR,X6    CLEAR OUT PARSED FILE                               FEC         1431     A     
 FEC                                                                                       FEC         1432     A     
 FEC       .TEST    IFEQ   TEST,ON                                                         FEC         1433     A     
 FEC                SA2    OILB                                                            FEC         1434     A     
 FEC                SX7    X2+B1       COUNT SEGMENTS PROCESSED                            FEC         1435     A     
 FEC                SA7    A2                                                              FEC         1436     A     
 FEC       .TEST    ENDIF                                                                  FEC         1437     A     
 FEC                EQ     EXIT.                                                           FEC         1438     A     
 FEC                                                                                       FEC         1439     A     
 FEC       OILA     CON    0           SAVE CURRENT PASS                                   FEC         1440     A     
 FEC       OILB     CON    0           NUMBER OF SEGMENTS PROCESSED                        FEC         1441     A     
 FEC       PUP      SPACE  4,10                                                            FEC         1442     A     
 FEC      **        PUP - PROGRAM UNIT PRESETS.                                            FEC         1443     A     
 FEC      *                                                                                FEC         1444     A     
 FEC      *         PERFORMS INITIALIZATION FOR EACH PROGRAM-UNIT OF THE BATCH.            FEC         1445     A     
 FEC      *         PUP LOGICALLY SHOULD BE CALLED BY THE                                  FEC         1446     A     
 FEC      *         PROGRAM UNIT CONTROLLER (PUC), BUT, CERTAIN                            FEC         1447     A     
 FEC      *         HIGHER OVERLAY INITIALIZATION MUST BE DONE FIRST                       FEC         1448     A     
 FEC      *         THEREFORE, IT IS CALLED BY FEC AND RESIDES HERE.                       FEC         1449     A     
 FEC      *                                                                                FEC         1450     A     
 FEC      *         EXIT   ALL APPROPRIATE CELLS, COUNTERS AND TABLES HAVE BEEN            FEC         1451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *                SET TO THEIR INITIAL VALUES.                                    FEC         1452     A     
 FEC                                                                                       FEC         1453     A     
 FEC       PARMIN   EQU    200B        MINIMUM ALLOCATION FOR PAR                          FC5A128      292     A     
 FEC                                                                                       FEC         1454     A     
 FEC       PUP      SUBR   0           ENTRY/EXIT...                                       FEC         1455     A     
 FEC                                                                                       FEC         1456     A     
 FEC      *         IF X-REF SELECTED ACTIVATE REF.                                        FC5A128      293     A     
 FEC                                                                                       FC5A128      294     A     
 FEC                SA2    =XCO.LOR                                                        FC5A128      295     A     
 FEC                ZR     X2,PUP1     IF CO.LOR = 0 */X-REF NOT SELECTED.                 FC5A128      296     A     
 FEC                ACTTAB REF,(DECL,EXU)    ACTIVATE REF ON DECL AND EXU PHASES           FC5A128      297     A     
 FEC                                                                                       FC5A128      298     A     
 FEC      *         TURN ON DECL PHASE.                                                    FC5A128      299     A     
 FEC                                                                                       FC5A128      300     A     
 FEC       PUP1     SA1    =XTV=DECL                                                       FC5A128      301     A     
 FEC                SX7    PARMIN                                                          FC5A128      302     A     
 FEC                SA7    =XALC.PAR   SET MIN. ALLOC FOR PAR                              FC5A128      303     A     
 FEC                BX7    X1                                                              FC5A128      304     A     
 FEC                SA7    =XTV=CUR    TURN ON DECL PHASE                                  FC5A128      305     A     
 FEC                                                                                       FC5A128      306     A     
 FEC      **        COLLAPSE TABLES TO INITIAL LENGTHS                                     FEC         1457     A     
 FEC                                                                                       FEC         1458     A     
 FEC                SA4    O.TABS                                                          FEC         1459     A     
 FEC                SA2    L.TABS                                                          FEC         1460     A     
 FEC                SB2    N.TABLE*FUDGE                                                   FEC         1461     A     
 FEC                SB2    B2+L=TABLE                                                      FEC         1462     A     
 FEC                SB2    -B2                                                             FEC         1463     A     
 FEC                SX5    X2+B2                                                           FEC         1464     A     
 FEC                LX7    X2                                                              FEC         1465     A     
 FEC                SB2    N.TABLE-1                                                       FEC         1466     A     
 FEC                                                                                       FEC         1467     A     
 FEC                                                                                       FEC         1468     A     
 FEC      **        INITIALLY, AMOUNT OF AVAILABLE SPACE IS --                             FEC         1469     A     
 FEC      *         A = (SIZCORE) - N*FUDGE - L=TABLES                                     FEC         1470     A     
 FEC                                                                                       FEC         1471     A     
 FEC                PX2    X5          (X2) = AVAILABLE                                    FEC         1472     A     
 FEC                IX7    X7+X4       (X7) = LWA TABLES                                   FEC         1473     A     
 FEC                NX1    X2                                                              FEC         1474     A     
 FEC                SA7    T.END                                                           FEC         1475     A     
 FEC                                                                                       FC50567        6     A     
 FEC       PUP2     SA3    B2+RATES                                                        FEC         1476     A     
 FEC                FX2    X3*X1                                                           FEC         1477     A     
 FEC                SX6    X3                                                              FEC         1478     A     
 FEC                UX0,B7 X2                                                              FEC         1479     A     
 FEC                =B2    B2-1                                                            FEC         1480     A     
 FEC                =X3    X3+FUDGE    = INIT(I) + FUDGE                                   FEC         1481     A     
 FEC                LX2    X0,B7                                                           FEC         1482     A     
 FEC                IX5    X2+X3                                                           FEC         1483     A     
 FEC                IX7    X7-X5                                                           FEC         1484     A     
 FEC                SA6    B2+SIZES+1  SET INITIAL SIZE                                    FEC         1485     A     
 FEC                SA7    B2+BASES+1  SET INITIAL ORIGIN                                  FEC         1486     A     
 FEC                PL     B2,PUP2     LOOP THRU TABLES                                    FEC         1487     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX7    X4                                                              FEC         1488     A     
 FEC                SA7    A7          RESET ORIGIN OF LOWEST TABLE                        FEC         1489     A     
 FEC                MX6    0                                                               FEC         1490     A     
 FEC                SA6    NSQZLH      SQUEEZE LONG HOLLERITH FLAG                         FC5A415       10     A     
 FEC                SA6    N.AP        COUNT OF AP-LISTS                                   FEC         1491     A     
 FEC                SA6    N.ARP       INDICATE NO ALTERNATE RETURN YET                    FEC         1492     A     
 FEC                SA6    N.BUF       SPACE ALLOCATED TO BUFFERS (STATIC MODE)            F1037F5      318     A     
 FEC                SA6    N.CPL       LENGTH OF COPY AP AREA                              FEC         1493     A     
 FEC                SA6    N.FP        NUMBER OF FORMAL PARAMETERS                         FC50567        7     A     
 FEC                SA6    N$LC        NUMBER OF FP LOCAL COPY CELLS                       FC50686        8     A     
 FEC                SA6    N.CT                                                            FEC         1494     A     
 FEC                SA6    N.CTMAX     MAX CHAR TEMP AREA                                  FEC         1495     A     
 FEC                SA6    N.DOB       COUNT OF DO-BEGIN LABELS                            FEC         1496     A     
 FEC                SA6    N.ST        COUNT OF STATEMENT TEMPS                            FEC         1497     A     
 FEC                SA6    N.STMAX     MAX TEMPS IN ANY STATEMENT                          FEC         1498     A     
 FEC                SA6    N.VD        COUNT OF VARDIM EXPRESSIONS                         FEC         1499     A     
 FEC                SA6    FAILSFT     CATASTROPHE IN TABLES                               FEC         1500     A     
 FEC                SA6    LOSTREF     REFERENCE COUNT                                     FEC         1501     A     
 FEC                SA6    MOD         PROGRAM UNIT MODE                                   FEC         1502     A     
 FEC                SA6    IFLEVEL     BLOCK IF LEVEL                                      FEC         1503     A     
 FEC                =X6    1                                                               FEC         1504     A     
 FEC                SA6    N.GL        COUNT OF GENERATED LABELS                           FEC         1505     A     
 FEC                                                                                       FEC         1506     A     
 FEC                                                                                       FEC         1507     A     
 FEC      **        PRESET T.SYM WITH SOME SPECIAL SYMBOLS.                                FEC         1508     A     
 FEC      *         ORDINAL ZERO OF T.SYM WILL CONTAIN ZEROS AT ALL TIMES.                 FEC         1509     A     
 FEC      *         INITIALIZE VALUES OF SYMORD CELLS.                                     FEC         1510     A     
 FEC                                                                                       FEC         1511     A     
 FEC                SHRINK T=SYM                                                           FEC         1512     A     
 FEC                ALLOC  T.SYM,Z.SYMIL                                                   FEC         1513     A     
 FEC                BX3    X1          DESTINATION = FWA (T.SYM)                           FEC         1514     A     
 FEC                LX1    X2          WORD COUNT = LENGTH OF (T.SYM)                      FEC         1515     A     
 FEC                SX2    F.SYMIL     SOURCE                                              FEC         1516     A     
 FEC                MOVE   X1,X2,X3                                                        FEC         1517     A     
 FEC                                                                                       FEC         1518     A     
 FEC                SX6    Z.SYMIL/Z=SYM     NUMBER OF ENTRIES (ORDINALS) PRESET           FEC         1519     A     
 FEC                SA6    NEXTORD     PRESET SYM. TAB. ORDINAL COUNTER                    FEC         1520     A     
 FEC                                                                                       FEC         1521     A     
 FEC                MX6    1           MARK ALL HASH VECTOR ENTRIES AS EMPTY               FEC         1522     A     
 FEC                SETMEM HASHTBL,Z.HASH,X6                                               FEC         1523     A     
 FEC                                                                                       FEC         1524     A     
 FEC                SETMEM F.SORD,Z.SORD  CLEAR SYMORD CELLS                               FEC         1525     A     
 FEC                LIST   G                                                               FEC         1526     A     
 FEC       SORD     HERE               SET KNOWN SYMORDS                                   FEC         1527     A     
 FEC                LIST   *                                                               FEC         1528     A     
 FEC                                                                                       FEC         1529     A     
 FEC                                                                                       FEC         1530     A     
 FEC      **        PRESET DIM TABLE WITH A FAKE ENTRY WHICH SAYS --                       FEC         1531     A     
 FEC      *                (NUMBER OF DIMS ) = 1                                           FEC         1532     A     
 FEC      *                (LENGTH OF ARRAY) = 1                                           FEC         1533     A     
 FEC                                                                                       FEC         1534     A     
 FEC                ALLOC  T.DIM,1+Z=DD  HEADER + DIMENSION DESCRIPTOR                     FEC         1535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX3    X1                                                              FEC         1536     A     
 FEC                LX1    X2          WORD COUNT = LENGTH OF (T.DIM)                      FEC         1537     A     
 FEC                MOVE   X1,PUPA,X3                                                      FEC         1538     A     
 FEC                                                                                       FEC         1539     A     
 FEC                                                                                       FEC         1540     A     
 FEC      **        PRESET VARDIM TABLE WITH A BEGIN-VAR-DIM TURPLE.                       FEC         1541     A     
 FEC      *                IT WILL BE THROWN AWAY AT CLOSE OF DECLARATIVES                 FEC         1542          I
          -FC50558
 FEC      *                IF NO VARDIMS IN FACT OCCUR.                                    FEC         1543          I
          -FC50558
 FEC                                                                                       FEC         1544     A     
 FEC                MX4    0                                                               FEC         1545     A     
 FEC                BX5    0                                                               FEC         1546     A     
 FEC                EMIT   V=BVD,,T.VDIM                                                   FEC         1547     A     
 FEC                                                                                       FEC         1548     A     
 FEC                                                                                       FEC         1549     A     
 FEC      **        PRE-ENTER COMMON BLOCK TABLE WITH --                                   FEC         1550     A     
 FEC      *                0.  PROGRAM RELOCATION BLOCK                                    FEC         1551     A     
 FEC                                                                                       FEC         1552     A     
 FEC                SA1    T.BLKS                                                          FEC         1553     A     
 FEC                SETMEM X1,Z=BLKS                                                       FEC         1554     A     
 FEC                                                                                       FEC         1555     A     
 FEC      *         PRE-ENTER COMMON TAG TABLE WITH NULL ENTRY.                            FEC         1556     A     
 FEC                                                                                       FEC         1557     A     
 FEC                SA1    T.COMM                                                          FEC         1558     A     
 FEC                SETMEM X1,1                                                            FEC         1559     A     
 FEC                                                                                       FEC         1560     A     
 FEC       .T       IFEQ   TEST,ON                                                         FEC         1561     A     
 FEC                SA6    =XALC=CNT                                                       FEC         1562     A     
 FEC                SA6    MOVES       NUMBER OF STORAGE MOVES                             FEC         1563     A     
 FEC       .T       ENDIF                                                                  FEC         1564     A     
 FEC                                                                                       FEC         1565     A     
 FEC                                                                                       FEC         1566     A     
 FEC                SETMEM F.LBT,Z.LBT,X6    SET ALL LOCAL BLOCKS EMPTY                    FEC         1567     A     
 FEC                                                                                       FEC         1568     A     
 FEC                                                                                       FEC         1569     A     
 FEC      **        SET UP MISCELLANEOUS CELLS.                                            FEC         1570     A     
 FEC                                                                                       FEC         1571     A     
 FEC                MX7    0                                                               F1037F5      319     A     
 FEC                SA7    =XOVCFLG                                                        F1037F5      320     A     
 FEC                MX7    1                                                               FEC         1572     A     
 FEC                SA7    NOLIST      SET TO *LIST,ALL* DEFAULT                           FEC         1573     A     
 FEC                MX7    0                                                               FC5A192        9     A     
 FEC                =X6    -1                                                              FC50096       35     A     
 FEC                SA7    WANFP       INITIALIZE WA.NFP CELL                              FC5A192       10     A     
 FEC                SA6    REFLIN                                                          FC50096       36     A     
 FEC                SA2    =1H                                                             FEC         1574     A     
 FEC                LX7    X2                                                              FEC         1575     A     
 FEC                SX5    B1                                                              FEC         1576     A     
 FEC                SX6    HDRBL                                                           FEC         1577     A     
 FEC                LX5    30                                                              FEC         1578     A     
 FEC                BX6    X6+X5                                                           FEC         1579     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA6    O.STITL                                                         FEC         1580     A     
 FEC                SA7    TL.PTYP     BLANK OUT PROGRAM TYPE                              FEC         1581     A     
 FEC                =A7    A7+1        BLANK OUT NAME                                      FEC         1582     A     
 FEC                SA7    A7-1+L.TITL BLANK OUT IN E-FILE HEADER                          FEC         1583          I
          -F1039  
 FEC                SA7    A7-1+ERFO   BLANK OUT IN E-FILE HEADER                          F1039        563     A     
 FEC                =A7    A7+1                                                            FEC         1584     A     
 FEC                                                                                       FEC         1585     A     
 FEC      *         PRESET ERROR COUNT CELLS                                               FEC         1586     A     
 FEC                                                                                       FEC         1587     A     
 FEC                SB2    N.ERRT                                                          FEC         1588     A     
 FEC                SETMEM B2+ERRTYP,B2                                                    FEC         1589     A     
 FEC                SA6    E=TOTAL                                                         FEC         1590     A     
 FEC                SA6    ERRORS                                                          FEC         1591     A     
 FEC                                                                                       FEC         1592     A     
 FEC      *         INITIALIZE WORKING COPY OF DIRECTIVE OPTIONS, EQUAL TO THEIR           FEC         1593     A     
 FEC      *         CONTROL STATEMENT VALUES.                                              FEC         1594     A     
 FEC                                                                                       FEC         1595     A     
 FEC                MOVE   L.C$,CO.C$,WO.C$                                                FEC         1596     A     
 FEC                SA1    CO.LOR                                                          FC50744       16     A     
 FEC                SA2    ERT=ON                                                          FC50744       17     A     
 FEC                MI     X1,PUP60    IF REFERENCE MAP SELECTED                           FC50744       18     A     
 FEC                SA2    ERT=OFF                                                         FC50744       19     A     
 FEC                                                                                       FC50744       20     A     
 FEC       PUP60    BX7    X2                                                              FC50744       21     A     
 FEC                SA7    ERT         SET REFERENCE MAP SWITCH TO ON/OFF                  FC50744       22     A     
 FEC                SA1    CO.LOS                                                          FEC         1597     A     
 FEC                SA2    LEXFLG                                                          FEC         1598     A     
 FEC                MX3    1           SET TO *HEADER DELAY*                               FEC         1599     A     
 FEC                MI     X1,PUP70    IF PROGRAMMER SELECTED A LISTING                    FEC         1600     A     
 FEC                BX3    0           SET TO *NO HEADER DELAY*                            FEC         1601     A     
 FEC                                                                                       FEC         1602     A     
 FEC       PUP70    LX3    LF.HDRP-59                                                      FEC         1603     A     
 FEC                BX6    X2+X3       MERGE *HDR* BIT FLAG                                FEC         1604     A     
 FEC                SA6    A2                                                              FEC         1605     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         1606     A     
 FEC                                                                                       FEC         1607     A     
 FEC       PUPA     VFD    DH.ATTRL/0,DH.PSL/1,DH.RAL/0,DH.DIML/1                          FEC         1608     A     
 FEC                VFD    30/0,D1.SPANL/1                                                 FEC         1609     A     
 FEC                VFD    D2.LBL/1,D2.UBL/1                                               FEC         1610     A     
 FEC       RLS      SPACE  4,10                                                            FEC         1611     A     
 FEC      **        RLS - RELOCATE LOCAL SAVE VARIABLES.                                   FEC         1612     A     
 FEC      *                                                                                FEC         1613     A     
 FEC      *         RELOCATE EACH LOCAL SAVE VARIABLE WITH RESPECT                         FEC         1614     A     
 FEC      *         TO THE LOCAL SAVE BLOCK. (S$A$V$E)                                     FEC         1615     A     
 FEC      *                                                                                FEC         1616     A     
 FEC      *         ENTRY  END OF PROGRAM UNIT HAS BEEN ENCOUNTERED                        FEC         1617     A     
 FEC      *                                                                                FEC         1618     A     
 FEC      *         EXIT   LOCAL SAVE VARIABLES HAVE BEEN RELOCATED                        FEC         1619     A     
 FEC      *                                                                                FEC         1620     A     
 FEC      *         USES   ALL                                                             FEC         1621     A     
 FEC      *                                                                                FEC         1622     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *         CALLS  ALC                                                             FEC         1623     A     
 FEC                                                                                       FEC         1624     A     
 FEC                                                                                       FEC         1625     A     
 FEC       RLS      SUBR   0           ENTRY/EXIT.                                         FEC         1626     A     
 FEC                SA1    SAVE                                                            FEC         1627     A     
 FEC                SA2    USAVE                                                           FEC         1628     A     
 FEC                BX1    X1+X2                                                           FEC         1629     A     
 FEC                ZR     X1,EXIT.    IF NO SAVE STATEMENTS APPEARED                      FEC         1630     A     
 FEC                                                                                       FC50870        7     A     
 FEC      **        THE FOLLOWING CODE SOLVES THE VALUE. STORAGE ALLOCATION                FC50870        8     A     
 FEC      *         PROBLEM BY SEARCHING THE LIST OF VALUE. SYMBOLS IN REVERSE             FC50870        9     A     
 FEC      *         ORDER AND ASSIGNING THE BASE MEMBER THE TYPE OF THE FIRST              FC50870       10     A     
 FEC      *         ONE WHICH HAS WB.DEF SET. IF NONE OF THEM ARE DEFINED, A               FC50870       11     A     
 FEC      *         ZERO WILL BE STORED AT S=VALUE.                                        FC50870       12     A     
 FEC                                                                                       FC50870       13     A     
 FEC                SA1    S=VALUE                                                         FC50870       14     A     
 FEC                SB2    X1                                                              FC50870       15     A     
 FEC                LX1    1                                                               FC50870       16     A     
 FEC                SB2    X1+B2       CONVERT TO INDEX                                    FC50870       17     A     
 FEC                SA2    T.SYM                                                           FC50870       18     A     
 FEC                SB2    B2+WB.W                                                         FC50870       19     A     
 FEC                SB7    X2+B2       SAVE ADDRESS OF BASE MEMBER                         FC50870       20     A     
 FEC                SB2    B2+Z=SYM*N.TYPE                                                 FC50870       21     A     
 FEC                SA2    X2+B2       INITIALIZE FETCH REG                                FC50870       22     A     
 FEC                SX7    M.CHAR                                                          FC50870       23     A     
 FEC                                                                                       FC50870       24     A     
 FEC       RLS5     SA2    A2-Z=SYM                                                        FC50870       25     A     
 FEC                SBIT   X2,WB.DEFP                                                      FC50870       26     A     
 FEC                MI     X2,RLS6     IF A VALUE. IS DEFINED                              FC50870       27     A     
 FEC                =X7    X7-1                                                            FC50870       28     A     
 FEC                PL     X7,RLS5     IF NOT DONE                                         FC50870       29     A     
 FEC                                                                                       FC50870       30     A     
 FEC      **        HERE IF NO VALUE. HAS BEEN DEFINED.                                    FC50870       31     A     
 FEC                                                                                       FC50870       32     A     
 FEC                MX6    0                                                               FC50870       33     A     
 FEC                SA6    A1                                                              FC50870       34     A     
 FEC                EQ     RLS7                                                            FC50870       35     A     
 FEC                                                                                       FC50870       36     A     
 FEC       RLS6     LX7    WB.MODEP    POSITION NEW MODE                                   FC50870       37     A     
 FEC                MX0    -WB.MODEL                                                       FC50870       38     A     
 FEC                LX0    WB.MODEP                                                        FC50870       39     A     
 FEC                SA2    B7          *WB* OF BASE MEMBER                                 FC50870       40     A     
 FEC                BX2    X0*X2       ERASE PREVIOUS MODE                                 FC50870       41     A     
 FEC                BX6    X2+X7       FILL IN NEW MODE                                    FC50870       42     A     
 FEC                SA6    A2          UPDATE *WB*                                         FC50870       43     A     
 FEC                                                                                       FEC         1631     A     
 FEC      *         ALLOCATE FOR A SPECIAL LOCAL SAVE BLOCK (S$A$V$E).                     FEC         1632     A     
 FEC                                                                                       FEC         1633     A     
 FEC                ALLOC  T.BLKS,Z=BLKS                                                   FEC         1634          I
          -FC50870
 FEC       RLS7     ALLOC  T.BLKS,Z=BLKS                                                   FC50870       44     A     
 FEC                SA1    =7LS$A$V$E                                                      FEC         1635     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SX5    X2-Z=BLKS                                                       FEC         1636     A     
 FEC                LX5    WC.RBP      RBS =  LEN(T.BLKS) - Z=BLKS                         FEC         1637     A     
 FEC                BX6    X1                                                              FEC         1638     A     
 FEC                SA6    B7-Z=BLKS   BNAME[CA.] = 7LS$A$V$E                              FEC         1639     A     
 FEC                                                                                       FEC         1640     A     
 FEC      *         SAVLEN = 0.                                                            FEC         1641     A     
 FEC      *         FOR EACH SAVED UNIQUE LOCAL VARIABLES, RELOCATE ITS RA                 FEC         1642     A     
 FEC      *         BY SETTING:                                                            FEC         1643     A     
 FEC      *                RA[WC.] = RA[WC.] + SAVLEN                                      FEC         1644     A     
 FEC      *                RB[WC.] = RBS                                                   FEC         1645     A     
 FEC      *                (COM,SAVE) [WB.] = (1,1)                                        FEC         1646     A     
 FEC      *         SAVLEN = SAVLEN + SIZE                                                 FEC         1647     A     
 FEC                                                                                       FEC         1648     A     
 FEC                SA1    T.SYM                                                           FEC         1649     A     
 FEC                SA2    T=SYM                                                           FEC         1650     A     
 FEC                SB3    Z=SYM                                                           FEC         1651     A     
 FEC                =A3    X1+WB.W                                                         FEC         1652     A     
 FEC                SA1    T.DIM                                                           FEC         1653     A     
 FEC                SB7    X2                                                              FEC         1654     A     
 FEC                BX7    0           SAVLEN = 0                                          FEC         1655     A     
 FEC                SB5    X1                                                              FEC         1656     A     
 FEC                                                                                       FEC         1657     A     
 FEC      *         PROCESS NEXT WB ENTRY OF T.SYM                                         FEC         1658     A     
 FEC      *         A3 = WBI ENTRY OF T.SYM                                                FEC         1659     A     
 FEC      *         (X5) = RBS                                                             FEC         1660     A     
 FEC      *         (X7) = SAVLEN                                                          FEC         1661     A     
 FEC      *         (B5) = FWA(T.DIM)                                                      FEC         1662     A     
 FEC      *         (B7) = SYMLEN                                                          FEC         1663     A     
 FEC                                                                                       FEC         1664     A     
 FEC       RLS10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                             FEC         1665     A     
 FEC                SB7    B7-B3                                                           FEC         1666     A     
 FEC                ZR     B7,RLS30    IF END OF T.SYM                                     FEC         1667     A     
 FEC                CLAS=  X4,WB,(LAB,FP,EXT,NVAR,NLST,PARM,ENT,COM,EQV)                   FEC         1668     A     
 FEC                BX6    X3*X4                                                           FEC         1669     A     
 FEC                CLAS=  X0,WB,(SAVE)                                                    FEC         1670     A     
 FEC                NZ     X6,RLS10    IF NOT UNIQUE LOCAL                                 FEC         1671     A     
 FEC                SA1    USAVE                                                           FEC         1672     A     
 FEC                CLAS=  X2,WB,(COM,SAVE,MAT)                                            FEC         1673     A     
 FEC                CLAS=  X4,WB,(BMEM)                                                    FEC         1674     A     
 FEC                BX0    X3*X0       SAVEI = SAVE[WBI]                                   FEC         1675     A     
 FEC                BX1    X0+X1       (OR SAVEI WITH UNIVERSAL SAVE FLAG)                 FEC         1676     A     
 FEC                BX6    X3+X2                                                           FEC         1677     A     
 FEC                ZR     X1,RLS10    IF NOT SAVED LOCAL                                  FEC         1678     A     
 FEC                BX4    X3*X4       BMEMI = BMEM[WBI]                                   FEC         1679     A     
 FEC                SBIT   X3,WB.CGSP                                                      FEC         1680     A     
 FEC                PL     X3,RLS15    IF NOT COMPILER GENERATED SYMBOL                    FEC         1681     A     
 FEC                ZR     X4,RLS10    IF NOT BASE MEMBER                                  FEC         1682     A     
 FEC                                                                                       FEC         1683     A     
 FEC       RLS15    SA6    A3          (COM,SAVE)[WBI] = (1,1) [WB.]                       FEC         1684     A     
 FEC                MX4    -WB.MODEL                                                       FEC         1685     A     
 FEC                LX3    1+WB.CGSP-WB.PNTP                                               FEC         1686     A     
 FEC                MX0    -WB.PNTL                                                        FEC         1687     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                =A1    A3-WB.W+WC.W      WCI = WC ENTRY OF T.SYM                       FEC         1688     A     
 FEC                BX6    -X0*X3      DTIND = PNT[WBI]                                    FEC         1689     A     
 FEC                SA2    X6+B5       TDI = T.DIM(DTIND)                                  FEC         1690     A     
 FEC                HX2    DH.PS                                                           FEC         1691     A     
 FEC                AX2    -DH.PSL     SIZE = PS[TDI]                                      FEC         1692     A     
 FEC                LX3    WB.PNTP-WB.MODEP                                                FEC         1693     A     
 FEC                BX6    -X4*X3      MODEI = MODE[WBI]                                   FEC         1694     A     
 FEC                SB4    X6-M.CHAR                                                       FEC         1695     A     
 FEC                MX3    -0          INDICATE TWO WORD ELEMENT                           FEC         1696     A     
 FEC                SB2    X6-M.DBL                                                        FEC         1697     A     
 FEC                EQ     B2,B0,RLS20 IF MODE = DOUBLE                                    FEC         1698     A     
 FEC                EQ     B2,B1,RLS20 IF MODE = COMPLEX                                   FEC         1699     A     
 FEC                ERRNZ  M.CPLX-M.DBL-1                                                  FEC         1700     A     
 FEC                SX3    0           INDICATE SIGLE WORD ELEMENT                         FEC         1701     A     
 FEC                NZ     B4,RLS20    IF NOT MODE CHARACTER                               FEC         1702     A     
 FEC                BX6    X1                                                              FEC         1703     A     
 FEC                HX6    WC.CLEN                                                         FEC         1704     A     
 FEC                AX6    -WC.CLENL   CLENI = CLEN[WCI]                                   FEC         1705     A     
 FEC                IX6    X2*X6       SIZE = SIZE *CLENI                                  FEC         1706     A     
 FEC                CW     X2,X6       SIZE = SIZE / 10                                    FEC         1707     A     
 FEC       RLS20    BX1    X1+X5                                                           FEC         1708     A     
 FEC                LX0    X7                                                              FEC         1709     A     
 FEC                BX3    X3*X2                                                           FEC         1710     A     
 FEC                IX2    X2+X3       SIZE = 2 * SIZE ( IF DOUBLE WORD)                   FEC         1711     A     
 FEC                LX0    WC.RAP                                                          FEC         1712     A     
 FEC                BX6    X1+X0                                                           FEC         1713     A     
 FEC                IX7    X7+X2       SAVLEN = SAVLEN + SIZE                              FEC         1714     A     
 FEC                SA6    A1          (RB,RA) [WCI] = (RBS,SAVLEN) [WC.]                  FEC         1715     A     
 FEC                EQ     RLS10                                                           FEC         1716     A     
 FEC                                                                                       FEC         1717     A     
 FEC      *         UPDATE LENGTH OF S$A$V$E BLOCK.                                        FEC         1718     A     
 FEC                                                                                       FEC         1719     A     
 FEC       RLS30    ZR     X7,RLS40    IF SAVLEN .EQ. 0                                    FEC         1720     A     
 FEC                SA1    T.BLKS                                                          FEC         1721     A     
 FEC                CLAS=  X2,CB,(SAVE)                                                    FEC         1722     A     
 FEC                LX5    -WC.RBP                                                         FEC         1723     A     
 FEC                LX7    CB.BLENP                                                        FEC         1724     A     
 FEC                =B4    X1+CB.W                                                         FEC         1725     A     
 FEC                BX7    X7+X2                                                           FEC         1726     A     
 FEC                SA7    X5+B4       (SAVE,BLEN) [T.BLKS(RBS)] = (1,SAVLEN)[CB.]         FEC         1727     A     
 FEC                EQ     EXIT.                                                           FEC         1728     A     
 FEC                                                                                       FEC         1729     A     
 FEC      *         LOCAL SAVE BLOCK LENGTH .EQ. 0...                                      FEC         1730     A     
 FEC      *         SHRINK BLOCK TABLE TO ORIGINAL SIZE.                                   FEC         1731     A     
 FEC                                                                                       FEC         1732     A     
 FEC       RLS40    SA1    T=BLKS                                                          FEC         1733     A     
 FEC                SHRINK A1,X1-Z=BLKS                                                    FEC         1734     A     
 FEC                EQ     EXIT.                                                           FEC         1735     A     
 FEC       RSC      SPACE  4,10                                                            FEC         1736     A     
 FEC      **        RSC -  RESET INTRA-STATEMENT CELLS.                                    FEC         1737     A     
 FEC      *                                                                                FEC         1738     A     
 FEC      *         EXIT   (ALC.00) = NO REGISTER IS LOCKED.                               FEC         1739     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *                (T=CONB) = LENGTHS OF CON AND CHAR TABLES, AT BEGINNING         FEC         1740     A     
 FEC      *                            OF STATEMENT.  USED TO THROW AWAY CONSTANTS         FEC         1741     A     
 FEC      *                            APPEARING IN A DATA STATEMENT.                      FEC         1742     A     
 FEC      *                RESET OF CELLS.                                                 FEC         1743     A     
 FEC                                                                                       FEC         1744     A     
 FEC                                                                                       FEC         1745     A     
 FEC       RSC      SUBR   0                                                               FEC         1746     A     
 FEC                BX6    0                                                               FEC         1747     A     
 FEC                =X7    CR.REF                                                          FEC         1748     A     
 FEC                SA6    DATFLG      CLEAR DATA-KLUDGE 'FLAG'                            FEC         1749     A     
 FEC                SA6    DTI         CLEAR DO-TERMINATION INDICATOR                      FEC         1750     A     
 FEC                SA7    REFNUM        -   CURRENT VALUE FOR REFS TO STAT. NO.           FEC         1751     A     
 FEC                SA6    CSLTAG        -   CURRENT STATEMENT LABEL TAG                   FEC         1752     A     
 FEC                SA6    E=TOTAL       -   CURRENT STATEMENT ERROR COUNT                 FEC         1753     A     
 FEC                SA6    INIF          -   LOGICAL IF INDICATOR                          FEC         1754     A     
 FEC                SA6    PARMODE       -   PARSE MODE                                    FEC         1755     A     
 FEC                SA6    PARNOW        -   CURRENT PARSE MODE                            FC50128        7     A     
 FEC                SA6    ZLE                                                             FEC         1756     A     
 FEC                SA6    ZLEQUAL                                                         FEC         1757     A     
 FEC                SA6    ZLCOMMA                                                         FEC         1758     A     
 FEC                SA6    ZLPAREN                                                         FEC         1759     A     
 FEC                SA6    ZLCOLON                                                         FEC         1760     A     
 FEC                SHRINK T=SCR,X6    RESET TO ZERO                                       FC51512        7     A     
 FEC                SA7    REFVAR                                                          FEC         1761     A     
 FEC                SA2    T=CON                                                           FEC         1762     A     
 FEC                SA1    ALC.00      POINTER TO NO REGISTERS TO RESTORE                  FEC         1763     A     
 FEC                LX7    X1                                                              FEC         1764     A     
 FEC                SHRINK T=CONB,X2   RESET TO START OF CONSTANTS FOR THIS STAT.          FEC         1765     A     
 FEC                SA7    ALC.REG     RESET SO NO REGISTERS WILL BE RELOCATED             FEC         1766     A     
 FEC                EQ     RSCX        EXIT..                                              FEC         1767     A     
 FEC       SSU      SPACE  4,10                                                            FEC         1768     A     
 FEC      **        SSU - SET SAVE BIT FOR UNIVERSAL SAVE.                                 FEC         1769     A     
 FEC      *         FOR UNIVERSAL SAVE, SET SAVE[WB.] FOR ALL LOCAL AND                    FEC         1770     A     
 FEC      *         COMMON VARIABLES.                                                      FEC         1771     A     
 FEC                                                                                       FEC         1772     A     
 FEC                                                                                       FEC         1773     A     
 FEC       SSU      SUBR   0           ENTRY/EXIT.                                         FEC         1774     A     
 FEC                SA1    USAVE                                                           FEC         1775     A     
 FEC                SA2    T=SYM                                                           FEC         1776     A     
 FEC                ZR     X1,EXIT.    IF NO UNIVERSAL SAVE                                FEC         1777     A     
 FEC                SA3    T.SYM                                                           FEC         1778     A     
 FEC                SB6    X2                                                              FEC         1779     A     
 FEC                CLAS=  X0,WB,(SAVE)                                                    FEC         1780     A     
 FEC                SB3    Z=SYM                                                           FEC         1781     A     
 FEC                =A3    X3+WB.W                                                         FEC         1782     A     
 FEC                CLAS=  X2,WB,(LAB,FP,EXT,NVAR,NLST,PARM,ENT)                           FEC         1783     A     
 FEC                CLAS=  X4,WB,(BMEM)                                                    FEC         1784     A     
 FEC                CLAS=  X5,WB,(CGS)                                                     FEC         1785     A     
 FEC                                                                                       FC50776        5     A     
 FEC       SSU10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                             FEC         1786     A     
 FEC                SB6    B6-B3                                                           FEC         1787     A     
 FEC                ZR     B6,EXIT.    IF END OF T.SYM                                     FEC         1788     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX1    X3*X2                                                           FEC         1789     A     
 FEC                BX7    X3*X4       BMEMI = BMEM[WBI]                                   FEC         1790     A     
 FEC                NZ     X1,SSU10    IF NOT LOCAL OR COMMON                              FEC         1791     A     
 FEC                BX6    X3*X5       CGSI = CGS[WBI]                                     FEC         1792     A     
 FEC                BX1    X6*X7                                                           FEC         1793          I
          -FC50776
 FEC                ZR     X7,SSU10    IF NOT BASE MEMBER                                  FEC         1794          I
          -FC50776
 FEC                HX7    WB.BMEM                                                         FC50776        6     A     
 FEC                HX6    WB.CGS                                                          FC50776        7     A     
 FEC                BX7    X7-X6                                                           FC50776        8     A     
 FEC                NZ     X7,SSU10    IF CGS AND NOT BMEM [EQ.]                           FC50776        9     A     
 FEC                BX6    X0+X3                                                           FEC         1795     A     
 FEC                SA6    A3          SAVE[WBI] = 1                                       FEC         1796     A     
 FEC                EQ     SSU10                                                           FEC         1797     A     
 FEC                TITLE  FRONT END SUPPORT ROUTINES.                                     FEC         1798     A     
 FEC       BBC      SPACE  4,10                                                            FC5A141       19     A     
 FEC      **        BBC -  BASE/BIAS CONVERSION.                                           FC5A141       20     A     
 FEC      *                                                                                FC5A141       21     A     
 FEC      *         WILL CONVERT A TP. FORMAT OPERAND TO BASE/BIAS FORM.                   FC5A141       22     A     
 FEC      *                                                                                FC5A141       23     A     
 FEC      *         ENTRY  (X5) = TP.FORMAT OPERAND.                                       FC5A141       24     A     
 FEC      *                                                                                FC5A141       25     A     
 FEC      *         EXIT   (X5) = BASE/BIAS CONVERSION.                                    FC5A141       26     A     
 FEC      *                                                                                FC5A141       27     A     
 FEC      *         USES   X - 1,2,5,6,7  A - 1,2  B - 2.                                  FC5A141       28     A     
 FEC                                                                                       FC5A141       29     A     
 FEC                                                                                       FC5A141       30     A     
 FEC       BBC      SUBR   =           ENTRY/EXIT...                                       FC5A141       31     A     
 FEC                BX6    X5                                                              FC5A141       32     A     
 FEC                HX6    TP.EQV                                                          FC5A141       33     A     
 FEC                PL     X6,EXIT.    IF ALREADY IN BASE/BIAS FORM                        FC5A141       34     A     
 FEC                MX7    -TP.ORDL                                                        FC5A141       35     A     
 FEC                LX6    TP.EQVP+1-TP.ORDP                                               FC5A141       36     A     
 FEC                BX6    -X7*X6      X6 = SYMTAB ORDINAL                                 FC5A141       37     A     
 FEC                SA2    T.SYM                                                           FC5A141       38     A     
 FEC                SB2    X6                                                              FC5A141       39     A     
 FEC                LX6    1                                                               FC5A141       40     A     
 FEC                SB2    B2+X6                                                           FC5A141       41     A     
 FEC                =B2    B2+WB.W     CONVERT TO *WB* INDEX                               FC5A141       42     A     
 FEC                SA1    X2+B2       *WB*                                                FC5A141       43     A     
 FEC                MX7    -WB.BASEL                                                       FC5A141       44     A     
 FEC                LX1    -WB.BASEP                                                       FC5A141       45     A     
 FEC                BX1    -X7*X1      X1 = SYMORD OF EQUIV. CLASS BASE                    FC5A141       46     A     
 FEC                BX6    X1          SAVE IT FOR LATER                                   FC5A141       47     A     
 FEC                =A1    A1+WC.W-WB.W      *WC*                                          FC5A141       48     A     
 FEC                MX7    -WC.RAL                                                         FC5A141       49     A     
 FEC                LX1    -WC.RAP                                                         FC5A141       50     A     
 FEC                BX1    -X7*X1      X1 = RA OF OPERAND                                  FC5A141       51     A     
 FEC                MX7    -TP.BIASL                                                       FC5A141       52     A     
 FEC                BX2    X5                                                              FC5A141       53     A     
 FEC                HX2    TP.BIAS                                                         FC5A141       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                AX2    -TP.BIASL   EXTRACT OPERAND BIAS WITH SIGN EXTEND               FC5A141       55     A     
 FEC                IX1    X1+X2       X1 = NEW BIAS                                       FC5A141       56     A     
 FEC                BX1    -X7*X1                                                          FC5A141       57     A     
 FEC                CLAS=  X2,TP,(BIAS,ORD,EQV)                                            FC5A141       58     A     
 FEC                LX6    TP.ORDP                                                         FC5A141       59     A     
 FEC                LX1    TP.BIASP                                                        FC5A141       60     A     
 FEC                BX5    -X2*X5      CLEAR OLD BIAS AND ORD                              FC5A141       61     A     
 FEC                BX5    X5+X6                                                           FC5A141       62     A     
 FEC                BX5    X5+X1       X5 = OPERAND IN BASE/BIAS FORM                      FC5A141       63     A     
 FEC                EQ     EXIT.                                                           FC5A141       64     A     
 FEC       CCT      SPACE  4,10                                                            FEC         1799     A     
 FEC      **        CCT -  CHECK CONFLICTING TYPES.                                        FEC         1800     A     
 FEC      *                                                                                FEC         1801     A     
 FEC      *         POST AN ERROR IF ELEMENT IS GIVEN CONFLICTING TYPE.                    FEC         1802     A     
 FEC      *                                                                                FEC         1803     A     
 FEC      *         ENTRY  (X0) = ORDINAL OF SYMBOL.                                       FEC         1804     A     
 FEC      *                (X1) = BIT NUMBER OF NEW CLASS.                                 FEC         1805     A     
 FEC      *                       (CAN ONLY BE ONE BIT AND NEVER BE EITHER --              FEC         1806     A     
 FEC      *                            A.  NOT-VAR                                         FEC         1807     A     
 FEC      *                       OR   B.  VAR                                             FEC         1808     A     
 FEC      *                (X3) = MASK OF FORBIDDEN CLASSES.                               FEC         1809     A     
 FEC      *                (A2) = ADDRESS OF SYMTAB WORD (WB).                             FEC         1810     A     
 FEC      *                                                                                FEC         1811     A     
 FEC      *                FILL.= SET TO ELEMENT CURRENTLY BEING CHECKED.                  FEC         1812     A     
 FEC      *                                                                                FEC         1813     A     
 FEC      *         EXIT   IF NO ERROR --                                                  FEC         1814     A     
 FEC      *                ONLY (X3) DESTROYED.                                            FEC         1815     A     
 FEC      *                                                                                FEC         1816     A     
 FEC      *                IF CONFLICT --                                                  FEC         1817     A     
 FEC      *                (X0) = .LT. ZERO                                                FEC         1818     A     
 FEC      *                ONLY (B4, B5, B6) PRESERVED.                                    FEC         1819     A     
 FEC                                                                                       FEC         1820     A     
 FEC                                                                                       FEC         1821     A     
 FEC       CCT      SUBR   =           ENTRY/EXIT...                                       FEC         1822     A     
 FEC                BX3    X3*X2                                                           FEC         1823     A     
 FEC                ZR     X3,EXIT.    IF NO CONFLICT                                      FEC         1824     A     
 FEC                NX3,B7             LOCATE LEADING BIT IN CONTENTION                    FEC         1825     A     
 FEC                SB2    CLASS+47                                                        FEC         1826     A     
 FEC                SA1    X1+CLASS    FETCH ERRLIT FOR CANNOT-BE                          FEC         1827     A     
 FEC                SA3    B2-B7       FETCH ERRLIT FOR CURRENT CLASS                      FEC         1828     A     
 FEC                BX6    X3                                                              FEC         1829     A     
 FEC                SA6    FILL.2                                                          FEC         1830     A     
 FEC                LX7    X1                                                              FEC         1831     A     
 FEC                SA7    A6+B1                                                           FEC         1832     A     
 FEC                FATAL  E.VA02                                                          FEC         1833     A     
 FEC                MX0    -1          INDICATE ERROR                                      FEC         1834     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         1835     A     
 FEC       CT1      SPACE  4,10                                                            FEC         1836     A     
 FEC      **        CT1 - CONSTRUCT PASS ONE TAG FORM.                                     FEC         1837     A     
 FEC      *                                                                                FEC         1838     A     
 FEC      *         ENTRY  (X0) = SYMTAB ORDINAL.                                          FEC         1839     A     
 FEC      *                                                                                FEC         1840     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *         EXIT   (X0) = SYMTAB ORDINAL.                                          FEC         1841     A     
 FEC      *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                          FEC         1842     A     
 FEC      *                (X6) = PASS ONE TAG FORM.                                       FEC         1843     A     
 FEC      *                (B7) = SYMTAB WB INDEX.                                         FEC         1844     A     
 FEC      *         USES   A1  X3.                                                         FEC         1845     A     
 FEC                                                                                       FEC         1846     A     
 FEC                                                                                       FEC         1847     A     
 FEC       CT1      SUBR   =           ENTRY/EXIT...                                       FEC         1848     A     
 FEC                LX2    X0,B1                                                           FEC         1849     A     
 FEC                IX3    X2+X0                                                           FEC         1850     A     
 FEC                ERRNZ  3-Z=SYM                                                         FEC         1851     A     
 FEC       .TEST    IFNE   TEST                                                            FEC         1852     A     
 FEC                MI     X0,"BLOWUP"       IF NEGATIVE ORDINAL                           FEC         1853     A     
 FEC                SA1    T=SYM                                                           FEC         1854     A     
 FEC                IX2    X3-X1                                                           FEC         1855     A     
 FEC                PL     X2,"BLOWUP"       IF INDEX .GE. SYMTAB LENGTH                   FEC         1856     A     
 FEC       .TEST    ENDIF                                                                  FEC         1857     A     
 FEC                SA1    T.SYM                                                           FEC         1858     A     
 FEC                =B7    X3+WB.W     RETURN (B7) = INDEX OF WB                           FEC         1859     A     
 FEC                SA2    X1+B7       RETURN (A2, X2) = SYMTAB ATTRIBUTE WORD             FEC         1860     A     
 FEC                                                                                       FEC         1861     A     
 FEC      *         FORM *P2 TAG* WORD.                                                    FEC         1862     A     
 FEC                                                                                       FEC         1863     A     
 FEC                SX6    X0                                                              FEC         1864     A     
 FEC                ERRMI  18-TP.ORDL  IF TRUNCATION PROBLEMS                              FEC         1865     A     
 FEC                LX6    TP.ORDP                                                         FEC         1866     A     
 FEC                                                                                       FEC         1867     A     
 FEC      *         TEST FOR STATEMENT LABEL                                               FEC         1868     A     
 FEC                                                                                       FEC         1869     A     
 FEC                BX3    X2                                                              FEC         1870     A     
 FEC                SBIT   X3,WB.LABP                                                      FEC         1871     A     
 FEC                MI     X3,EXIT.    IF STATEMENT LABEL                                  FEC         1872     A     
 FEC                                                                                       FEC         1873     A     
 FEC      *         COPY FP BIT.                                                           FEC         1874     A     
 FEC                                                                                       FEC         1875     A     
 FEC                CLAS=  X3,WB,(FP)                                                      FEC         1876     A     
 FEC                BX1    X3*X2       EXTRACT (FP)                                        FEC         1877     A     
 FEC                LX1    -WB.FPP+TP.FPP                                                  FEC         1878     A     
 FEC                IX6    X1+X6       MERGE (FP) INTO TAG                                 FEC         1879     A     
 FEC                                                                                       FEC         1880     A     
 FEC      *         COPY MODE FIELD.                                                       FEC         1881     A     
 FEC                                                                                       FEC         1882     A     
 FEC                LX2    -WB.MODEP                                                       FEC         1883     A     
 FEC                MX3    -WB.MODEL                                                       FEC         1884     A     
 FEC                ERRNZ  WB.MODEL-TP.MODEL                                               FEC         1885     A     
 FEC                BX1    -X3*X2                                                          FEC         1886     A     
 FEC                LX1    TP.MODEP                                                        FEC         1887     A     
 FEC                IX6    X6+X1                                                           FEC         1888     A     
 FEC                                                                                       FEC         1889     A     
 FEC      *         COPY EQUIVALENCE BIT.                                                  FEC         1890     A     
 FEC      *                FOR NON-BASE MEMBERS ONLY, SET (TP.EQV).                        FEC         1891     A     
 FEC                                                                                       FEC         1892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                LX2    WB.MODEP+59-WB.EQVP                                             FEC         1893     A     
 FEC                MX3    1                                                               FEC         1894     A     
 FEC                BX1    X3*X2                                                           FEC         1895     A     
 FEC                LX1    TP.EQVP+1                                                       FEC         1896     A     
 FEC                IX6    X6+X1                                                           FEC         1897     A     
 FEC                                                                                       FEC         1898     A     
 FEC      *         COPY LCM BIT.                                                          FEC         1899     A     
 FEC                                                                                       FEC         1900     A     
 FEC                LX2    WB.EQVP-WB.LCMP                                                 FEC         1901     A     
 FEC                BX1    X3*X2       EXTRACT (LCM) BIT                                   FEC         1902     A     
 FEC                LX1    1+TP.LCMP                                                       FEC         1903     A     
 FEC                IX6    X6+X1                                                           FEC         1904     A     
 FEC                                                                                       FEC         1905     A     
 FEC                LX2    WB.LCMP-59  RESTORE (X2)                                        FEC         1906     A     
 FEC                EQ     EXIT.                                                           FEC         1907     A     
 FEC       STY      SPACE  4,10                                                            FEC         1908     A     
 FEC      **        STY  - SET NATURAL (IMPLICIT) TYPE                                     FEC         1909     A     
 FEC      *                                                                                FEC         1910     A     
 FEC      *         ENTRY- NAME IN X6 (LEFT JUST, ZERO FILL)                               FEC         1911     A     
 FEC      *                                                                                FEC         1912     A     
 FEC      *         EXIT   (X1) = MODE.                                                    FEC         1913     A     
 FEC      *                (X2) = CHARACTER LENGTH (0 IF TYPE NOT CHARACTER)               FEC         1914     A     
 FEC      *                (X6) = PRESERVED.                                               FEC         1915     A     
 FEC      *                (B7) = 1ST CHARACTER OF NAME.                                   FEC         1916     A     
 FEC      *                                                                                FEC         1917     A     
 FEC      *         DESTROYS  A1.                                                          FEC         1918     A     
 FEC                                                                                       FEC         1919     A     
 FEC                                                                                       FEC         1920     A     
 FEC       STY2     AX1    X1,B7       REPOSITION                                          FEC         1921     A     
 FEC                LX6    -6          RESTORE X6                                          FEC         1922     A     
 FEC                SX2    X1-M.CHAR                                                       FEC         1923     A     
 FEC                SX1    X1          ISOLATE MODE                                        FEC         1924     A     
 FEC                ZR     X2,STY3     IF TYPE CHARACTER                                   FEC         1925     A     
 FEC                MX2    0                                                               FEC         1926     A     
 FEC                EQ     STYX                                                            FEC         1927     A     
 FEC                                                                                       FEC         1928     A     
 FEC       STY3     =X2    B7-1                                                            FEC         1929     A     
 FEC                LX2    -1                                                              FEC         1930     A     
 FEC                MI     X2,STY4     IF ODD LETTER (LOWER HALF OF PAIR)                  FEC         1931     A     
 FEC                SA2    X2+NAT.LEN  FETCH PAIR                                          FEC         1932     A     
 FEC                AX2    30          UPPER HALF ONLY                                     FEC         1933     A     
 FEC                LX2    WC.CLENP                                                        FEC         1934     A     
 FEC                EQ     STYX                                                            FEC         1935     A     
 FEC                                                                                       FEC         1936     A     
 FEC       STY4     SA2    X2+NAT.LEN  FETCH PAIR                                          FEC         1937     A     
 FEC                SX2    X2          LOWER HALF ONLY                                     FEC         1938     A     
 FEC                LX2    WC.CLENP                                                        FEC         1939     A     
 FEC                                                                                       FEC         1940     A     
 FEC       STY      SUBR   =           ENTRY/EXIT...                                       FEC         1941     A     
 FEC                LX6    CHAR                                                            FEC         1942     A     
 FEC                =X2    N.TYPE-1                                                        FEC         1943     A     
 FEC                MX1    -CHAR                                                           FEC         1944     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX1    -X1*X6      ISOLATE FIRST CHARACTER                             FEC         1945     A     
 FEC                SB7    X1+                                                             FEC         1946     A     
 FEC       STY1     SA1    X2+NAT.TYP                                                      FEC         1947     A     
 FEC                SX2    X2-1                                                            FEC         1948     A     
 FEC                LX1    X1,B7                                                           FEC         1949     A     
 FEC                MI     X1,STY2     IF HIT                                              FEC         1950     A     
 FEC                PL     X2,STY1     IF NO TABLE EXHAUSTION                              FEC         1951     A     
 FEC                TRUBL  E.ZA                                                            FEC         1952     A     
 FEC       NAT.TYPE SPACE  4,10                                                            FEC         1953     A     
 FEC      **        NAT.TYPE - TABLE OF NATURAL (IMPLICIT) TYPES.                          FEC         1954     A     
 FEC                                                                                       FEC         1955     A     
 FEC                                                                                       FEC         1956     A     
 FEC       NAT.TYP  BSSENT 0                                                               FEC         1957     A     
 FEC                LOC    0                                                               FEC         1958     A     
 FEC       M.BOOL   VFD    27/000000000B,15/0,18/M.BOOL                                    FEC         1959     A     
 FEC       M.LOG    VFD    27/000000000B,15/0,18/M.LOG                                     FEC         1960     A     
 FEC       M.INT    VFD    27/000770000B,15/0,18/M.INT                                     FEC         1961     A     
 FEC       M.REAL   VFD    27/377007777B,15/0,18/M.REAL                                    FEC         1962     A     
 FEC       M.DBL    VFD    27/000000000B,15/0,18/M.DBL                                     FEC         1963     A     
 FEC       M.CPLX   VFD    27/000000000B,15/0,18/M.CPLX                                    FEC         1964     A     
 FEC       M.CHAR   VFD    27/000000000B,15/0,18/M.CHAR                                    FEC         1965     A     
 FEC                LOC    *O                                                              FEC         1966     A     
 FEC                                                                                       FEC         1967     A     
 FEC       NAT.LEN  BSZENT 26/2                                                            FEC         1968     A     
 FEC       TLV      SPACE  4,10                                                            FEC         1969     A     
 FEC      **        TLV - TRUNCATE LONG VARIABLE.                                          FEC         1970     A     
 FEC      *                                                                                FEC         1971     A     
 FEC      *         WHEN A VARIABLE NAME (TYPE O.VAR) OCCUPIES MORE THAN ONE               FEC         1972     A     
 FEC      *         TOKEN, B4 IS RESET TO POINT TO THE LAST TOKEN IN THE                   FEC         1973     A     
 FEC      *         STRING AND THE VALUE OF THIS TOKEN IS CHANGED TO THE SAME              FEC         1974     A     
 FEC      *         AS THE FIRST TOKEN.  THIS EVIDENTLY FOOLS PAR INTO THINKING            FEC         1975     A     
 FEC      *         THE NAME DOES NOT EXCEED 7 CHARACTERS.                                 FEC         1976     A     
 FEC      *                                                                                FEC         1977     A     
 FEC      *         CALLED BY - PAR,CST,TRV,ETC,ETC                                        FEC         1978     A     
 FEC      *                                                                                FEC         1979     A     
 FEC      *         ENTRY  (B4) _ FIRST TOKEN IN VARIABLE.                                 FEC         1980     A     
 FEC      *                IT IS KNOWN THAT THE NEXT TOKEN IS OF TYPE O.VAR.               FEC         1981     A     
 FEC      *                                                                                FEC         1982     A     
 FEC      *         EXIT   (B4) _ LAST TOKEN IN VARIABLE.                                  FEC         1983     A     
 FEC      *                CONTENTS OF LAST TOKEN = CONTENTS OF FIRST TOKEN.               FEC         1984     A     
 FEC      *                                                                                FEC         1985     A     
 FEC      *         USES   A2,A7   X0,X2,X7   B4,B7                                        FEC         1986     A     
 FEC      *                                                                                FEC         1987     A     
 FEC      *         CALLS  NONE                                                            FEC         1988     A     
 FEC                                                                                       FEC         1989     A     
 FEC                                                                                       FEC         1990     A     
 FEC       TLV      SUBR   =           ** ENTRY/EXIT **                                    FEC         1991     A     
 FEC                SA2    B4                                                              FEC         1992     A     
 FEC                BX7    X2          SAVE FIRST TOKEN OF NAME                            FEC         1993     A     
 FEC                MX0    WA.SYML                                                         FEC         1994     A     
 FEC       TLV5     =B4    B4+1                                                            FEC         1995     A     
 FEC                =A2    B4+1                                                            FEC         1996     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SB7    X2-O.VAR                                                        FEC         1997     A     
 FEC                ZR     B7,TLV5     IF MORE CHARACTERS IN NAME                          FEC         1998     A     
 FEC                SA7    B4          SET LAST TOKEN=FIRST TOKEN                          FEC         1999     A     
 FEC                BX7    X0*X7                                                           FEC         2000     A     
 FEC                SA7    FILL.                                                           FEC         2001     A     
 FEC                FATAL  E.VA10      ** NAME TOO LONG, TRUNCATED                         FEC         2002     A     
 FEC                EQ     EXIT.                                                           FEC         2003     A     
 FEC       TRV      SPACE  4,15                                                            FEC         2004     A     
 FEC      **        TRV -  TRANSLATE VARIABLE.                                             FEC         2005     A     
 FEC      *                                                                                FEC         2006     A     
 FEC      *         ENTRY  (B2) = 1 ENTRY (FUNCTION) ALLOWED AS VARIABLE (VALUE.)          FEC         2007     A     
 FEC      *                     = 0 DISALLOWED                                             FEC         2008     A     
 FEC      *                (B4) _ VARIABLE TO BE TRANSLATED                                FEC         2009     A     
 FEC      *                                                                                FEC         2010     A     
 FEC      *         EXIT   (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                          FEC         2011     A     
 FEC      *                (X6) = PASS 2 TAG FORM.                                         FEC         2012     A     
 FEC      *                (B7) = INDEX OF *WB*                                            FEC         2013     A     
 FEC      *                (X0) = ORDINAL IF NO ERROR DETECTED                             FEC         2014     A     
 FEC      *                     = -1 OTHERWISE                                             FEC         2015     A     
 FEC      *         NOTE   *TRV* VALIDATES THE *ENTRY* BEFORE EXIT TO MAKE SURE            FEC         2016     A     
 FEC      *                NO USAGE CONFLICT EXIST.                                        FEC         2017     A     
 FEC      *         USES   A1,A2,A3,A6 X0 B2,B3,B7                                         FEC         2018     A     
 FEC      *                (TRVA, TRVA+1)                                                  FEC         2019     A     
 FEC                                                                                       FEC         2020     A     
 FEC                                                                                       FEC         2021     A     
 FEC                                                                                       FEC         2022     A     
 FEC       TRV      SUBR   =           ENTRY/EXIT...                                       FEC         2023     A     
 FEC                SX6    B2                                                              FEC         2024     A     
 FEC                SA6    TRVB        SAVE ENTRY INDICATOR                                FEC         2025     A     
 FEC                SA1    B4                                                              FEC         2026     A     
 FEC                MX0    WA.SYML                                                         FEC         2027     A     
 FEC                BX6    X0*X1       SYMBOL ONLY                                         FEC         2028     A     
 FEC                SB2    X1-O.VAR                                                        FEC         2029     A     
 FEC                SA6    FILL.                                                           FEC         2030     A     
 FEC                ZR     B2,TRV4     IF *VARIABLE*.                                      FEC         2031          I
          -FC50110
 FEC                FATAL  E.VA09                                                          FEC         2032          I
          -FC50110
 FEC                EQ     PSL                                                             FEC         2033          I
          -FC50110
 FEC                EQ     E.VA09                                                          FEC         2034          I
          -FC50110  -FC5A231
 FEC                                                                                       FEC         2035          I
          -FC50110  -FC5A231
 FEC                                                                                       FEC         2036          I
          -FC50110
 FEC       TRV4     =A2    B4+1                                                            FEC         2037          I
          -FC50110
 FEC                NZ     B2,E.VA09   IF NOT *VARIABLE*                                   FC50110        7     A     
 FEC                SA2    B4+1                                                            FC50110        8     A     
 FEC                SB7    X2-O.VAR                                                        FEC         2038     A     
 FEC                NZ     B7,TRV5     IF NAME LESS THAN 8 CHAR                            FEC         2039     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                CALL   TLV         TRUNCATE LONG VARIABLE NAME                         FEC         2040     A     
 FEC       TRV5     RJ     SSY                                                             FEC         2041     A     
 FEC                SB3    X0          (B3) = ORDINAL                                      FEC         2042     A     
 FEC                SX7    B3                                                              FEC         2043     A     
 FEC                SA7    TRVA                                                            FEC         2044     A     
 FEC                PL     B7,TRV10    IF FOUND IN TABLE                                   FEC         2045     A     
 FEC                                                                                       FEC         2046          I
          -FC5A231
 FEC                RJ     STY         SET MODE                                            FEC         2047     A     
 FEC                CLAS=  X7,WB,(VAR)                                                     FEC         2048     A     
 FEC                BX7    X1+X7       ADD MODE                                            FEC         2049     A     
 FEC                ADSYM  T.SYM       ADD SYMBOL + TAG TO TABLE.                          FEC         2050     A     
 FEC                SB3    X0          ORDINAL                                             FEC         2051     A     
 FEC                SX7    B3                                                              FEC         2052     A     
 FEC                SA7    TRVA                                                            FEC         2053     A     
 FEC                EQ     TRV12                                                           FEC         2054     A     
 FEC                                                                                       FEC         2055     A     
 FEC       TRV10    BX0    X6                                                              FEC         2056     A     
 FEC                SBIT   X0,WB.LABP                                                      FEC         2057     A     
 FEC                SX1    CLASS+WB.LABP                                                   FEC         2058     A     
 FEC                MI     X0,TRV11E   IF STATEMENT LABEL                                  FEC         2059     A     
 FEC                LX0    WB.LABP-WB.NVARP                                                FEC         2060     A     
 FEC                PL     X0,TRV12    IF NOT A *NOT VARIABLE*                             FEC         2061     A     
 FEC                CLAS=  X2,WB,(SUB,FUN,LAB,PARM)                                        FEC         2062     A     
 FEC                BX0    X2*X6                                                           FEC         2063     A     
 FEC                NZ     X0,TRV11    IF NASTY NVAR                                       FEC         2064     A     
 FEC                CLAS=  X0,WB,(ENT)                                                     FEC         2065     A     
 FEC                BX2    X0*X6                                                           FEC         2066     A     
 FEC                SX1    CLASS+WB.NVARP                                                  FEC         2067     A     
 FEC                ZR     X2,TRV11E   IF NOT ENTRY POINT                                  FEC         2068     A     
 FEC                SA1    MOD                                                             FEC         2069     A     
 FEC                SBIT   X1,MO.FUNP                                                      FEC         2070     A     
 FEC                PL     X1,TRV11    IF NOT FUNCTION SUBPROGRAM                          FEC         2071     A     
 FEC                SA1    TRVB                                                            FEC         2072     A     
 FEC                ZR     X1,TRV11    IF MAIN ENTRY POINT ILLEGAL AS VARIABLE             FEC         2073     A     
 FEC                SA1    S=VALUE     X1 = SYMORD OF VALUE.                               FEC         2074     A     
 FEC                MX0    -WB.MODEL                                                       FEC         2075     A     
 FEC                LX2    -WB.MODEP                                                       FEC         2076     A     
 FEC                BX0    -X0*X2      ISOLATE MODE OF ENTRY POINT                         FEC         2077     A     
 FEC                IX7    X0+X1                                                           FEC         2078     A     
 FEC                SA7    TRVA                                                            FEC         2079     A     
 FEC                SB3    X7                                                              FEC         2080     A     
 FEC                LX1    B1,X7                                                           FEC         2081     A     
 FEC                SX1    X1+B3       CONVERT TO INDEX                                    FEC         2082     A     
 FEC                =B7    X1+WB.W                                                         FEC         2083     A     
 FEC                SA1    T.SYM                                                           FEC         2084     A     
 FEC                SA2    X1+B7       *WB* OF PROPER VALUE. SYMBOL                        FEC         2085     A     
 FEC                EQ     TRV12                                                           FEC         2086     A     
 FEC                                                                                       FEC         2087     A     
 FEC      *         CLASS CONFLICT.  GET PROPER MESSAGE.                                   FEC         2088     A     
 FEC                                                                                       FEC         2089     A     
 FEC       TRV11    NX2,B2 X0          LOCATE LEADING BIT OF CONTENTION                    FEC         2090     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SX0    -B2                                                             FEC         2091     A     
 FEC                SX1    X0+47+CLASS                                                     FEC         2092     A     
 FEC                                                                                       FEC         2093     A     
 FEC       TRV11E   SA3    X1          FETCH ERRLIT FOR CLASS NAME                         FEC         2094     A     
 FEC                SB7    E.VA00      USAGE CONFLICT ERROR                                FEC         2095     A     
 FEC                BX6    X3                                                              FEC         2096     A     
 FEC                SA6    FILL.2      SET NAME OF CONFLICTING CLASS                       FEC         2097     A     
 FEC                FATAL  B7                                                              FEC         2098     A     
 FEC                SX0    B3                                                              FEC         2099     A     
 FEC                RJ     CT1         CONSTRUCT OPERAND (TP.)                             FEC         2100     A     
 FEC                MX0    -1          INDICATE ERROR                                      FEC         2101     A     
 FEC                                                                                       FEC         2102     A     
 FEC      **               (B3) = SYMTAB ORDINAL.                                          FEC         2103     A     
 FEC                                                                                       FEC         2104     A     
 FEC       TRV12    SA1    WO.LOR                                                          FEC         2105     A     
 FEC                PL     X1,TRV20    IF NO CROSS-REFERENCE SELECTED.                     FEC         2106     A     
 FEC                SX6    B3                                                              FEC         2107     A     
 FEC                LX6    XR.TAGP     CONSTRUCT XREF TAG                                  FEC         2108     A     
 FEC                SA1    REFVAR      TYPE OF REFERENCE                                   FEC         2109     A     
 FEC                ADDREF X6,X1                                                           FEC         2110     A     
 FEC                                                                                       FEC         2111     A     
 FEC      **        SET-UP EXIT CONDITIONS.                                                FEC         2112     A     
 FEC                                                                                       FEC         2113     A     
 FEC       TRV20    SA1    TRVA                                                            FEC         2114     A     
 FEC                BX0    X1                                                              FEC         2115     A     
 FEC                RJ     CT1         CONSTRUCT PASS 1 TAG                                FEC         2116     A     
 FEC                SA6    TRVA                                                            FEC         2117     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         2118     A     
 FEC                                                                                       FEC         2119     A     
 FEC       TRVA     CONENT 0                                                               FEC         2120     A     
 FEC       TRVB     BSS    1           SAVE ENTRY POINT TEST SWITCH                        FEC         2121     A     
 FEC       TSX      SPACE  4,10                                                            FEC         2122     A     
 FEC      **        TSX - TAG SYSTEM EXTERNAL.                                             FEC         2123     A     
 FEC      *                                                                                FEC         2124     A     
 FEC      *         MUST BE USED TO ENTER ALL "INVISIBLE" SYSTEM EXTERNALS IN              FEC         2125     A     
 FEC      *         SYMBOL TABLE.  IF NAME IS ALREADY IN SYMTAB, NO CHECK FOR              FEC         2126     A     
 FEC      *         ATTRIBUTE CONFLICTS IS PERFORMED.  IF NAME IS ENTERED, ITS             FEC         2127     A     
 FEC      *         ATTRIBUTES WILL BE SET TO "M.SYSXT".  THE TYPE FIELD                   FEC         2128     A     
 FEC      *         (WB.MODE) WILL BE ZERO.                                                FEC         2129     A     
 FEC      *         NO XREF ENTRY IS MADE.                                                 FEC         2130     A     
 FEC      *         THE "TAGSEX" MACRO SHOULD ALWAYS BE USED TO CALL TSX.                  FEC         2131     A     
 FEC      *                                                                                FEC         2132     A     
 FEC      *         ENTRY  (X1) = NAME (-L- FORMAT).                                       FEC         2133     A     
 FEC      *                                                                                FEC         2134     A     
 FEC      *         EXIT   (X0) = SYMBOL ORDINAL.                                          FEC         2135     A     
 FEC      *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                          FEC         2136     A     
 FEC      *                (X6) = OPERAND FORM (TP).                                       FEC         2137     A     
 FEC      *                (B7) = INDEX OF SYMTAB WORD (WB).                               FEC         2138     A     
 FEC      *                                                                                FEC         2139     A     
 FEC      *         USES   A1,A2,A3,A6,A7  X0-3,X6,X7  B2,B3,B7.                           FEC         2140     A     
 FEC      *         CALLS  ADSYM, CT1, SSY.                                                FEC         2141     A     
 FEC                                                                                       FEC         2142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                                                                                       FEC         2143     A     
 FEC       TSX      SUBR   =           ENTRY/EXIT...                                       FEC         2144     A     
 FEC                MX0    WA.SYML                                                         FEC         2145     A     
 FEC                BX6    X0*X1                                                           FEC         2146     A     
 FEC                CALL   SSY         SCAN SYMBOL TABLE                                   FEC         2147     A     
 FEC                PL     B7,TSX3     IF ALREADY IN TABLE                                 FEC         2148     A     
 FEC                CLAS=  X3,WB,("M.SYSXT")                                               FEC         2149     A     
 FEC                ERRNZ  M.BOOL                                                          FEC         2150     A     
 FEC                BX7    X3                                                              FEC         2151     A     
 FEC                MX2    0                                                               FEC         2152     A     
 FEC                ADSYM  A1                                                              FEC         2153     A     
 FEC                                                                                       FEC         2154     A     
 FEC       TSX3     SA2    T=BLST                                                          FEC         2155     A     
 FEC                ZR     X2,TSX4     IF NOT IN BLOCK STRUCTURE                           FEC         2156     A     
 FEC                LX6    X0          PRESERVE ORDINAL                                    FEC         2157     A     
 FEC                CLAS=  X0,WB,(DLER)                                                    FEC         2158     A     
 FEC                CALL   PDA         PROPOGATE DO LOOP ATTRIBUTE                         FEC         2159     A     
 FEC                LX0    X6                                                              FEC         2160     A     
 FEC                                                                                       FEC         2161     A     
 FEC       TSX4     RJ     CT1         CONSTRUCT (TP.) OPERAND                             FEC         2162     A     
 FEC                EQ     EXIT.                                                           FEC         2163     A     
 FEC       TSY      SPACE  4,10                                                            FEC         2164     A     
 FEC      **        TSY - TAG COMPILER SYMBOL.                                             FEC         2165     A     
 FEC      *                                                                                FEC         2166     A     
 FEC      *         ENTRY  (X3) = ATTRIBUTES FOR (WB).                                     FEC         2167     A     
 FEC      *                (X4) =  42/ 0LNAME,  18/ CELL                                   FEC         2168     A     
 FEC      *                                                                                FEC         2169     A     
 FEC      *         EXIT   (X0) = SYMORD.                                                  FEC         2170     A     
 FEC      *                (A2,X2) = SYMTAB WORD (WB.).                                    FEC         2171     A     
 FEC      *                (X7) = SYMORD.                                                  FEC         2172     A     
 FEC      *                (CELL) = SYMORD.                                                FEC         2173     A     
 FEC      *                                                                                FEC         2174     A     
 FEC      *         ABORTS IF SYMBOL ALREADY IN TABLE.                                     FEC         2175     A     
 FEC      *                                                                                FEC         2176     A     
 FEC      *         CALLS  ADSYM, SSY.                                                     FEC         2177     A     
 FEC      *         USES   A1-3,A6-7   X0-3,X6-7   B2-3,B7.                                FEC         2178     A     
 FEC                                                                                       FEC         2179     A     
 FEC                                                                                       FEC         2180     A     
 FEC       TSY      SUBR   =           ENTRY/EXIT...                                       FEC         2181     A     
 FEC                MX0    WA.SYML                                                         FEC         2182     A     
 FEC                BX6    X0*X4                                                           FEC         2183     A     
 FEC                LX7    X3                                                              FEC         2184     A     
 FEC                CALL   SSY         COMPUTE SYMBOL HASH                                 FEC         2185     A     
 FEC                PL     B7,"BLOWUP" IF SYMBOL ALREADY IN TABLE                          FEC         2186     A     
 FEC                MX2    0           (WC.W) = 0                                          FEC         2187     A     
 FEC                ADSYM  A1          ADD SYMBOL TO TABLE                                 FEC         2188     A     
 FEC                BX7    X0                                                              FEC         2189     A     
 FEC                SA7    X4                                                              FEC         2190     A     
 FEC                EQ     EXIT.                                                           FEC         2191     A     
 FEC                TITLE  TABLE SCANNING AND ENTRY ROUTINES.                              FEC         2192     A     
 FEC       ERT      SPACE  4,10                                                            FEC         2193     A     
 FEC      **        ERT -  ENTER REFERENCE TABLE.                                          FEC         2194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      *                                                                                FEC         2195     A     
 FEC      *         ENTRY  (X6) = TAG.                                                     FEC         2196     A     
 FEC      *                (X1) = USAGE LETTER CR.XXX AS DEFINED IN TSTEXT.                FEC         2197     A     
 FEC      *                (B7) = EXIT ADDRESS.                                            FEC         2198     A     
 FEC      *                                                                                FEC         2199     A     
 FEC      *         NOTE                                                                   FEC         2200     A     
 FEC      *                ALL CALLS TO *ERT* SHOULD USE MACRO *ADDREF*                    FEC         2201     A     
 FEC      *                                                                                FEC         2202     A     
 FEC      *         USES   A1-A4,A6,A7  B2,B3,B7  X0-X3,X6,X7                              FEC         2203     A     
 FEC      *                PRESERVES  A0,A5  X4,X5  B4,B5,B6                               FEC         2204     A     
 FEC                                                                                       FEC         2205     A     
 FEC                                                                                       FEC         2206     A     
 FEC       ERT1     SHRINK T=REF,0     TABLE JUST OVERFLOWED                               FEC         2207     A     
 FEC                                                                                       FEC         2208     A     
 FEC       ERT2     SX6    B6                                                              FEC         2209     A     
 FEC                SX7    B5                                                              FEC         2210     A     
 FEC                SA6    ERTA        (ERTA+0) = (B6)                                     FEC         2211     A     
 FEC                =A7    A6+1             +1  = (B5)                                     FEC         2212     A     
 FEC                BX6    X4                                                              FEC         2213     A     
 FEC                =A6    A7+1             +2  = (X4)                                     FEC         2214     A     
 FEC                SX0    B4          SAVE (B4)                                           FEC         2215     A     
 FEC                WRITEW F.REF,ERTB,1                                                    FEC         2216     A     
 FEC                SB4    X0          RESTORE (B4)                                        FEC         2217     A     
 FEC                SA2    ERTA                                                            FEC         2218     A     
 FEC                SA1    ERTB+1                                                          FEC         2219     A     
 FEC                =A3    A2+1                                                            FEC         2220     A     
 FEC                =A4    A3+1        RESTORE (X4)                                        FEC         2221     A     
 FEC                SB6    X2          RESTORE (B6)                                        FEC         2222     A     
 FEC                SB5    X3          RESTORE (B5)                                        FEC         2223     A     
 FEC                SB7    X1                                                              FEC         2224     A     
 FEC                JP     B7          EXIT..                                              FEC         2225     A     
 FEC                                                                                       FEC         2226     A     
 FEC      *         THE ERT ENTRY IS MODIFIED BY LO=R AND C$LIST(R=), USING ERT=ON         FEC         2227     A     
 FEC      *         OR ERT=OFF, AS APPLICABLE.                                             FEC         2228     A     
 FEC                                                                                       FEC         2229     A     
 FEC       ERT      BSSENT 1           ...ENTRY                                            FEC         2230     A     
 FEC                SA2    REFLIN                                                          FEC         2231     A     
 FEC                MX0    XR.TAGL                                                         FEC         2232     A     
 FEC                BX6    X0*X6       ISOLATE TAG                                         FEC         2233     A     
 FEC                IX3    X1+X2       PAGE, LINE, USE                                     FEC         2234     A     
 FEC                SA1    LOSTREF                                                         FEC         2235     A     
 FEC                IX6    X3+X6                                                           FEC         2236     A     
 FEC                SA6    ERTB                                                            FEC         2237     A     
 FEC                SX6    X1+B1       ACCUMULATE REF COUNT                                FEC         2238     A     
 FEC                SA2    REFIO                                                           FEC         2239     A     
 FEC                SA6    A1                                                              FEC         2240     A     
 FEC                SX6    B7                                                              FEC         2241     A     
 FEC                SA6    ERTB+1      SAVE EXIT ADDRESS                                   FEC         2242     A     
 FEC                NZ     X2,ERT2     IF ON DISK                                          FEC         2243     A     
 FEC                                                                                       FEC         2244     A     
 FEC                ALLOC  T.REF,1                                                         FEC         2245     A     
 FEC                SA3    REFIO                                                           FEC         2246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                NZ     X3,ERT1     IF JUST OVERFLOWED                                  FEC         2247     A     
 FEC                SA3    ERTB+1                                                          FEC         2248     A     
 FEC                =A2    A3-1                                                            FEC         2249     A     
 FEC                SB2    X3                                                              FEC         2250     A     
 FEC                BX6    X2                                                              FEC         2251     A     
 FEC                =A6    B7-1        STORE REFERENCE IN TABLE                            FEC         2252     A     
 FEC                JP     B2          EXIT..                                              FEC         2253     A     
 FEC                                                                                       FEC         2254     A     
 FEC       ERTA     BSS    3           SAVES (B6, B5, X4)                                  FEC         2255     A     
 FEC       ERTB     BSS    2           SAVE AREA                                           FEC         2256     A     
 FEC                                                                                       FEC         2257     A     
 FEC       ERT=ON   BSSENT                                                                 FEC         2258     A     
 FEC                NO                                                                     FEC         2259     A     
 FEC                NO                                                                     FEC         2260     A     
 FEC                NO                                                                     FEC         2261     A     
 FEC                NO                                                                     FEC         2262     A     
 FEC       ERT=OFF  BSSENT                                                                 FEC         2263     A     
 FEC                JP     B7                                                              FEC         2264     A     
 FEC       ESY      SPACE  4,10                                                            FEC         2265     A     
 FEC      **        ESY -  ENTER SYMBOL TABLE                                              FEC         2266     A     
 FEC      *                                                                                FEC         2267     A     
 FEC      *         NOTE - ESY REQUIRES A PREVIOUS CALL TO SSY TO SET *LAST*               FEC         2268     A     
 FEC      *                                                                                FEC         2269     A     
 FEC      *         ENTRY  (A1) _ T.SYM                                                    FEC         2270     A     
 FEC      *                (X2) = *WC* ENTRY                                               FEC         2271     A     
 FEC      *                (X6) = SYMBOL                                                   FEC         2272     A     
 FEC      *                (X7) = *WB* ENTRY                                               FEC         2273     A     
 FEC      *                (LAST) = INDEX OF CURRENT CHAIN END                             FEC         2274     A     
 FEC      *                (NEXTORD) = NEXT AVAILABLE SYMBOL TABLE ORDINAL                 FEC         2275     A     
 FEC      *                                                                                FEC         2276     A     
 FEC      *         EXIT   (X0) = ORDINAL OF SYMBOL TABLE ENTRY                            FEC         2277     A     
 FEC      *                (X6) = *WB* WORD                                                FEC         2278     A     
 FEC      *                (X1) = FWA SYMTAB = (T.SYM)                                     FEC         2279     A     
 FEC      *                (A2, X2) = SYMTAB (WB)                                          FEC         2280     A     
 FEC      *                (B7) = SYMTAB INDEX OF WB                                       FEC         2281     A     
 FEC      *                (NEXTORD) = INCREMENTED                                         FEC         2282     A     
 FEC      *                                                                                FEC         2283     A     
 FEC      *         USES   A1,A2,A3,A6,A7  X0  B2,B7                                       FEC         2284     A     
 FEC      *                                                                                FEC         2285     A     
 FEC      *         CALLS  ALC                                                             FEC         2286     A     
 FEC                                                                                       FC51347       10     A     
 FEC       MSTO     BFMIC  WA,(HASH)   MAXIMUM SYMBOL TABLE ORDINAL                        FC51347       11     A     
 FEC                                                                                       FEC         2287     A     
 FEC                                                                                       FEC         2288     A     
 FEC       ESY      SUBR   =           ...ENTRY/EXIT...                                    FEC         2289     A     
 FEC                LDBIT  X3,WB.1REFP                                                     FC5A191       10     A     
 FEC                BX7    X3+X7       SET 1REF FLAG                                       FC5A191       11     A     
 FEC                SA6    ESYA                                                            FEC         2290          I
          -FC5A192
 FEC                MX0    CHAR                                                            FC5A192       11     A     
 FEC                MI     X6,ESY05    IF TAPEXXX SYMBOL                                   FC50593        5     A     
 FEC                LX0    -MAX.VAR*CHAR+CHAR                                              FC5A192       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX3    X0*X6                                                           FC5A192       13     A     
 FEC                ZR     X3,ESY05    IF NOT SEVEN CHARACTER SYMBOL                       FC5A192       14     A     
 FEC                AX3    18                                                              FC5A192       15     A     
 FEC                SB2    X3-1R+                                                          FC5A192       16     A     
 FEC                PL     B2,ESY05    IF APPENDED SPECIAL CHARACTER                       FC5A192       17     A     
 FEC                SA6    FILL.                                                           FC5A192       18     A     
 FEC                ANSI   E.ANS2                                                          FC5A192       19     A     
 FEC                                                                                       FC5A192       20     A     
 FEC       ESY05    SA6    ESYA                                                            FC5A192       21     A     
 FEC                =A7    A6+1                                                            FEC         2291     A     
 FEC                LX6    X2                                                              FEC         2292     A     
 FEC                SA6    A7+1                                                            FEC         2293     A     
 FEC                SA2    LAST                                                            FEC         2294     A     
 FEC                SA3    NEXTORD                                                         FEC         2295     A     
 FEC                BX6    X3                                                              FEC         2296     A     
 FEC                PL     X2,ESY1     IF HASH LINK TO SYMBOL TABLE                        FEC         2297     A     
 FEC                BX0    -X2                                                             FEC         2298     A     
 FEC                SA6    X0+HASHTBL  HASH LINK TO HASH TABLE                             FEC         2299     A     
 FEC                EQ     ESY2                                                            FEC         2300     A     
 FEC                                                                                       FEC         2301     A     
 FEC       ESY1     =B2    X2+WA.W                                                         FEC         2302     A     
 FEC                SA2    X1+B2       FETCH SYMBOL                                        FEC         2303     A     
 FEC                BX6    X2+X6       ADD IN HASH CHAIN                                   FEC         2304     A     
 FEC                SA6    A2                                                              FEC         2305     A     
 FEC       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        FEC         2306     A     
 FEC                SX6    X2                                                              FEC         2307          I
          -FC5A192
 FEC                MX6    -WA.HASHL                                                       FC5A192       22     A     
 FEC                LX2    -WA.HASHP                                                       FC5A192       23     A     
 FEC                BX6    -X6*X2      EXTRACT HASH FIELD                                  FC5A192       24     A     
 FEC                NZ     X6,"BLOWUP"       IF PREVIOUS LINK EXISTED                      FEC         2308     A     
 FEC       .TEST    ENDIF                                                                  FEC         2309     A     
 FEC                                                                                       FEC         2310     A     
 FEC       ESY2     ALLOC  A1,Z=SYM                                                        FEC         2311     A     
 FEC                SA2    ESYA+1                                                          FEC         2312     A     
 FEC                =A3    A2+1                                                            FEC         2313     A     
 FEC                BX6    X3          *WC* ENTRY                                          FEC         2314     A     
 FEC                =A6    B7-Z=SYM+WC.W                                                   FEC         2315     A     
 FEC                SA3    NEXTORD                                                         FEC         2316     A     
 FEC                SB2    X3-"MSTO"   CURRENT ORDINAL - MAXIMUM ORDINAL ALLOWED           FC51347       12     A     
 FEC                GT     B2,ESY3     IF SYMBOL TABLE OVERFLOW                            FC51347       13     A     
 FEC                BX0    X3          RETURN (X0) = ORDINAL OF ENTRY                      FEC         2317     A     
 FEC                LX6    X2                                                              FEC         2318     A     
 FEC                =A6    A6-WC.W+WB.W                                                    FEC         2319     A     
 FEC                SA2    A2-B1                                                           FEC         2320     A     
 FEC                BX7    X2          STORE NAME, CLEAR HASH                              FEC         2321     A     
 FEC                SA2    WANFP                                                           FC5A192       25     A     
 FEC                BX7    X7+X2       GIVE WA.NFP BIT THE PROPER VALUE                    FC5A192       26     A     
 FEC                =A7    A6-WB.W+WA.W                                                    FEC         2322     A     
 FEC                SA2    A6          RETURN (A2, X2) = (WB)                              FEC         2323     A     
 FEC                SB7    X1                                                              FEC         2324     A     
 FEC                SX7    X0+B1       ADVANCE ORDINAL                                     FEC         2325     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SA7    A3                                                              FEC         2326     A     
 FEC                SB7    A6-B7       RETURN (B7) = INDEX OF WB                           FEC         2327     A     
 FEC                EQ     EXIT.                                                           FEC         2328     A     
 FEC                                                                                       FEC         2329     A     
 FEC       ESY3     FATAL  E.STO       ERROR - SYMBOL TABLE OVERFLOW                       FC51347       14     A     
 FEC                CALL   CAF         CLOSE ALL FILES                                     FC51347       15     A     
 FEC                EQ     ENDFTN                                                          FC51347       16     A     
 FEC                                                                                       FC51347       17     A     
 FEC       ESYA     DATA   0,0,0       SAVE AREA FOR SYMBOL TABLE INFORMATION              FEC         2330     A     
 FEC       INN      SPACE  4,10                                                            FEC         2331     A     
 FEC      **        INN - INVENT NEW NAME.                                                 FEC         2332     A     
 FEC      *                                                                                FEC         2333     A     
 FEC      *         CONSTRUCTS A UNIQUE SYMBOL AND ADDS IT TO THE SYMBOL TABLE.            FEC         2334     A     
 FEC      *         THE NEW SYMTAB ENTRY HAS ONLY (WB.CGS) SET.  ALL OTHER                 FEC         2335     A     
 FEC      *         ATTRIBUTE FIELDS ARE SET TO ZERO, AND SHOULD BE FILLED IN              FEC         2336     A     
 FEC      *         BY THE CALLER.                                                         FEC         2337     A     
 FEC      *                                                                                FEC         2338     A     
 FEC      *         ENTRY  (A1) = ADDRESS OF COUNTER.                                      FEC         2339     A     
 FEC      *                (X1) = (COUNTER) TO BE USED AS SUFFIX.                          FEC         2340     A     
 FEC      *                (X7) = PREFIX FOR NEW NAME,                                     FEC         2341     A     
 FEC      *                       -3R- FORMAT FOR SYMBOLS,                                 FEC         2342     A     
 FEC      *                       -2R- FORMAT FOR LABELS.                                  FEC         2343     A     
 FEC      *                                                                                FEC         2344     A     
 FEC      *         EXIT   (COUNTER) INCREMENTED.                                          FEC         2345     A     
 FEC      *                INVENTED NAME ADDED TO SYMTAB --                                FEC         2346     A     
 FEC      *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                          FEC         2347     A     
 FEC      *                (B7) = INDEX OF (WB).                                           FEC         2348     A     
 FEC      *                (X0) = SYMTAB ORDINAL.                                          FEC         2349     A     
 FEC      *                                                                                FEC         2350     A     
 FEC      *         USES   A1-A4,A6,A7   B2,B3   X0-X4,X6,X7                               FEC         2351     A     
 FEC      *         CALLS  CDD, ESY, SSY                                                   FEC         2352     A     
 FEC                                                                                       FEC         2353     A     
 FEC                                                                                       FEC         2354     A     
 FEC       INN      SUBR   =           ENTRY/EXIT...                                       FEC         2355     A     
 FEC                SX6    X1+B1       INCRMENT COUNT OF INVENTED NAMES                    FEC         2356     A     
 FEC                SA7    INNA        SAVE PREFIX                                         FEC         2357     A     
 FEC                SB7    B4          SAVE (B4)                                           FEC         2358     A     
 FEC                SA6    A1                                                              FEC         2359     A     
 FEC                CALL   CDD         CONVERT DECIMAL DIGITS (SUFFIX)                     FEC         2360     A     
 FEC                MX0    1                                                               FEC         2361     A     
 FEC                SB2    B2-B1                                                           FEC         2362     A     
 FEC                SA3    INNA        RETRIEVE PREFIX                                     FEC         2363     A     
 FEC                SB4    B7          RESTORE (B4)                                        FEC         2364     A     
 FEC                AX0    B2                                                              FEC         2365     A     
 FEC                BX2    X0*X4       STRIP SPACES FROM CONVERSION                        FEC         2366     A     
 FEC                BX6    X2+X3       MERGE PREFIX WITH INVENTED SUFFIX                   FEC         2367     A     
 FEC                LX6    -3*6                                                            FEC         2368     A     
 FEC                CALL   SSY         SCAN SYMBOL TABLE (TO COMPUTE HASH)                 FEC         2369     A     
 FEC       .TEST    IFEQ   TEST,ON,1                                                       FEC         2370     A     
 FEC                PL     B7,"BLOWUP"       IF ALREADY IN TABLE                           FEC         2371     A     
 FEC                CLAS=  X7,WB,(CGS)       SET (COMPILER-GENERATED-SYMBOL)               FEC         2372     A     
 FEC                SX2    0                                                               FEC         2373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                ADSYM  A1          ADD NEW NAME TO SYMBOL TABLE                        FEC         2374     A     
 FEC                EQ     EXIT.                                                           FEC         2375     A     
 FEC                                                                                       FEC         2376     A     
 FEC       INNA     BSS    1           SAVE PREFIX                                         FEC         2377     A     
 FEC       NCM      SPACE  4,30                                                            FEC         2378     A     
 FEC      **        NCM -  ENTER *MULTI-WORD* ELEMENT INTO REQUESTED TABLE.                FEC         2379     A     
 FEC      *                                                                                FEC         2380     A     
 FEC      *         ENTRY  (A1) _ TABLE TO BE ENTERED.                                     FEC         2381     A     
 FEC      *                (B2) _ FWA CONSTANTS.                                           FEC         2382     A     
 FEC      *                (B3) _ LWA+1 ELEMENT TO BE ENTERED.                             FEC         2383     A     
 FEC      *                (B7) = IF .EQ. 0 --                                             FEC         2384     A     
 FEC      *                         IF NOT IN TABLE, CALL ALLOC AND ENTER                  FEC         2385     A     
 FEC      *                         ELEMENT                                                FEC         2386     A     
 FEC      *                       IF .NE. 0 --                                             FEC         2387     A     
 FEC      *                          IF NOT IN TABLE, DO NOT CALL ALLOC AND                FEC         2388     A     
 FEC      *                          DO NOT ENTER ELEMENT IN TABLE                         FEC         2389     A     
 FEC      *                (X1) = ((A1))                                                   FEC         2390     A     
 FEC      *                                                                                FEC         2391     A     
 FEC      *         NOTE   LIKE MOST SCAN ROUTINES *NCM* REQUIRES A USABLE WORD            FEC         2392     A     
 FEC      *                PRECEDING CURRENT TABLE ABOUT TO SCAN.                          FEC         2393     A     
 FEC      *                                                                                FEC         2394     A     
 FEC      *         EXIT   (B7) = ORDINAL OF FWA OF ELEMENT IN TABLE IF                    FEC         2395     A     
 FEC      *                         ENTERED OR ALREADY PRESENT, ELSE -1                    FEC         2396     A     
 FEC      *                (X6) = (B7) IF ELEMENT ENTERED                                  FEC         2397     A     
 FEC      *                (X0) = LENGTH OF ELEMENT IF NOT ENTERED IN TABLE                FEC         2398     A     
 FEC      *                                                                                FEC         2399     A     
 FEC      *         CALLS  ALLOC, MOVE                                                     FEC         2400     A     
 FEC      *                                                                                FEC         2401     A     
 FEC      *         CANNOT DESTROY A4,A5 B4,B5,B6                                          FEC         2402     A     
 FEC                                                                                       FEC         2403     A     
 FEC                                                                                       FEC         2404     A     
 FEC       NCM      SUBR   =           ...ENTRY/EXIT...                                    FEC         2405     A     
 FEC                SX6    B3                                                              FEC         2406     A     
 FEC                SX0    B3-B2                                                           FEC         2407     A     
 FEC                SA6    NCMA                                                            FEC         2408     A     
 FEC                SX7    B7                                                              FEC         2409     A     
 FEC                =A7    A6+1                                                            FEC         2410     A     
 FEC                EQ     B2,B3,EXIT. IF NO WORDS TO ADD                                  FEC         2411     A     
 FEC                                                                                       FEC         2412     A     
 FEC      **        SCAN TABLE N TIMES TO CHECK IF ENTITY IS ALREADY IN TABLE.             FEC         2413     A     
 FEC                                                                                       FEC         2414     A     
 FEC                SA2    B2          1ST ELEMENT TO BE CHECKED.                          FEC         2415     A     
 FEC                SB7    X0-1        LENGTH OF THIS ENTRY                                FEC         2416     A     
 FEC                SA3    A1+N.TABLE  LENGTH OF TABLE.                                    FEC         2417     A     
 FEC       NCM5     BX6    X2                                                              FEC         2418     A     
 FEC                SB3    X3                                                              FEC         2419     A     
 FEC                SA6    X1-1        DUMMY FIND                                          FEC         2420     A     
 FEC                SA3    A6+B3                                                           FEC         2421     A     
 FEC                LE     B3,B7,NCM50 IF TABLE TOO SMALL TO ALREADY HAVE IT               FEC         2422     A     
 FEC                SA3    A3-B7                                                           FEC         2423     A     
 FEC                SB3    B3-B7                                                           FEC         2424     A     
 FEC                                                                                       FEC         2425     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC      **        CHECK FOR 1ST ELEMENT 60 BIT MATCH.                                    FEC         2426     A     
 FEC      *         BACKWARD SCAN THRU TABLE.                                              FEC         2427     A     
 FEC                                                                                       FEC         2428     A     
 FEC       NCM10    =B3    B3-1                                                            FEC         2429     A     
 FEC                BX6    X3-X2                                                           FEC         2430     A     
 FEC                =A3    A3-1                                                            FEC         2431     A     
 FEC                NZ     X6,NCM10    IF NO MATCH                                         FEC         2432     A     
 FEC                MI     X6,NCM10    IF NO MATCH (-0 PROBLEM)                            FEC         2433     A     
 FEC                MI     B3,NCM50    IF DUMMY HIT - DEFINITELY NOT IN TABLE.             FEC         2434     A     
 FEC                =X6    A3+1                                                            FEC         2435     A     
 FEC                SA6    NCMA+2                                                          FEC         2436     A     
 FEC                =A2    A2+1                                                            FEC         2437     A     
 FEC                SA3    A3+2                                                            FEC         2438     A     
 FEC                                                                                       FEC         2439     A     
 FEC      **        SCAN TABLE FOR REMAINING NTH ELEMENT TO MATCH                          FEC         2440     A     
 FEC                                                                                       FEC         2441     A     
 FEC       NCM20    ZR     B7,NCM30    IF ENTIRE LIST MATCHES                              FEC         2442     A     
 FEC                BX6    X2-X3                                                           FEC         2443     A     
 FEC                =B7    B7-1                                                            FEC         2444     A     
 FEC                =A2    A2+1                                                            FEC         2445     A     
 FEC                =A3    A3+1                                                            FEC         2446     A     
 FEC                MI     X6,NCM22    IF NO MATCH (-0 PROBLEM)                            FEC         2447     A     
 FEC                ZR     X6,NCM20    IF CONTINUED MATCH                                  FEC         2448     A     
 FEC                                                                                       FEC         2449     A     
 FEC      **        HERE IF ONLY PARTIAL MATCH.                                            FEC         2450     A     
 FEC      *         RESET PARAMETERS AND START OVER.                                       FEC         2451     A     
 FEC                                                                                       FEC         2452     A     
 FEC       NCM22    SA3    NCMA+2                                                          FEC         2453     A     
 FEC                SA2    B2                                                              FEC         2454     A     
 FEC                SB7    X0-1                                                            FEC         2455     A     
 FEC                IX3    X3-X1       ORDINAL FOR RE-START.                               FEC         2456     A     
 FEC                EQ     NCM5        TRY AGAIN ....                                      FEC         2457     A     
 FEC                                                                                       FEC         2458     A     
 FEC      **        HERE IF ENTITY IS ALREADY IN TABLE                                     FEC         2459     A     
 FEC      *         SET-UP EXIT CONDITIONS AND EXIT.                                       FEC         2460     A     
 FEC                                                                                       FEC         2461     A     
 FEC       NCM30    SB3    X1                                                              FEC         2462     A     
 FEC                SX2    A3-B3                                                           FEC         2463     A     
 FEC                IX6    X2-X0       ORDINAL                                             FEC         2464     A     
 FEC                SB7    X6                                                              FEC         2465     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         2466     A     
 FEC                                                                                       FEC         2467     A     
 FEC      **        HERE IF ENTITY NOT IN TABLE                                            FEC         2468     A     
 FEC      *         ALLOCATE ROOM FOR TABLE IF REQUESTED.                                  FEC         2469     A     
 FEC                                                                                       FEC         2470     A     
 FEC       NCM50    SA3    NCMA+1                                                          FEC         2471     A     
 FEC                =B7    -1          FLAG NOTHING ENTERED                                FEC         2472     A     
 FEC                NZ     X3,EXIT.    IF NO ALLOC DESIRED, EXIT...                        FEC         2473     A     
 FEC                                                                                       FEC         2474     A     
 FEC                SX6    B2                                                              FEC         2475     A     
 FEC                SA6    NCMA+1      SAVE (B2) FWA                                       FEC         2476     A     
 FEC                ALLOC  A1,X0       ALLOCATE ROOM IN TABLE.                             FEC         2477     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                BX0    X1                                                              FEC         2478     A     
 FEC                SA3    NCMA                                                            FEC         2479     A     
 FEC                =A1    A3+1                                                            FEC         2480     A     
 FEC                IX7    X2-X3                                                           FEC         2481     A     
 FEC                SB3    X3          RESTORE B3                                          FEC         2482     A     
 FEC                SB2    X1          RESTORE B2                                          FEC         2483     A     
 FEC                BX2    X1          (X2) = SOURCE                                       FEC         2484     A     
 FEC                SX6    X7+B2       ORDINAL = NEW LENGTH - WORD COUNT                   FEC         2485     A     
 FEC                IX3    X6+X0       (X3) = DESTINATION (ORDINAL + ORIGIN)               FEC         2486     A     
 FEC                SA6    A3          SAVE ORDINAL                                        FEC         2487     A     
 FEC                BX6    X4                                                              FEC         2488     A     
 FEC                SX1    B3-B2       (X1) = WORD COUNT                                   FEC         2489     A     
 FEC                SA6    NCMA+1      SAVE X4                                             FEC         2490     A     
 FEC                SX6    A4                                                              FEC         2491     A     
 FEC                =A6    A6+1        SAVE A4                                             FEC         2492     A     
 FEC                MOVE   X1,X2,X3                                                        FEC         2493     A     
 FEC                SA4    NCMA+2      RESTORE A4                                          FEC         2494     A     
 FEC                =A1    A4-1                                                            FEC         2495     A     
 FEC                BX4    X1          RESTORE X4                                          FEC         2496     A     
 FEC                SA1    NCMA                                                            FEC         2497     A     
 FEC                BX6    X1                                                              FEC         2498     A     
 FEC                SB7    X1                                                              FEC         2499     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         2500     A     
 FEC                                                                                       FEC         2501     A     
 FEC       NCMA     EQU    ADWT        REUSE ADWT SAVE AREA (3 WDS)                        FEC         2502     A     
 FEC       SCS      SPACE  4,15                                                            FEC         2503     A     
 FEC      *CALL     COMFSCS            SCAN TABLE WITH SUPPLIED MASK                       FEC         2504     A     
 FEC       SCT      SPACE  4,10                                                            FEC         2505     A     
 FEC      **        SCT -  SCAN TABLE COMPARING ALL BITS.                                  FEC         2506     A     
 FEC      *         ENTRY  (A1) TABLE TO BE SEARCHED                                       FEC         2507     A     
 FEC      *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                           FEC         2508     A     
 FEC      *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                           FEC         2509     A     
 FEC      *                                    (A1),(X1) PRESERVED.                        FEC         2510     A     
 FEC      *                                    (X6) UNTOUCHED.                             FEC         2511     A     
 FEC      *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.             FEC         2512     A     
 FEC      *         USES   A1,A2,A6  X0  B1,B2                                             FEC         2513     A     
 FEC                                                                                       FEC         2514     A     
 FEC                                                                                       FEC         2515     A     
 FEC       SCT      SUBR   =           ...ENTRY/EXIT...                                    FEC         2516     A     
 FEC                SA2    A1+N.TABLE                                                      FEC         2517     A     
 FEC                =B2    -1                                                              FEC         2518     A     
 FEC                SA6    X1+B2       STORE CRITERION BELOW TABLE                         FEC         2519     A     
 FEC                ERRMI  FUDGE-1     CODE REQUIRES 1 SLOP WORD                           FEC         2520     A     
 FEC                IX0    X1+X2                                                           FEC         2521     A     
 FEC                NO                                                                     FEC         2522     A     
 FEC                SA2    X0+B2       FETCH LAST ENTRY                                    FEC         2523     A     
 FEC                SB2    A6                                                              FEC         2524     A     
 FEC       SCT1     BX0    X6-X2                                                           FEC         2525     A     
 FEC                SA2    A2-B1       FETCH NEXT TABLE ENTRY                              FEC         2526     A     
 FEC                NZ     X0,SCT1     IF NO HIT, LOOP                                     FEC         2527     A     
 FEC                MI     X0,SCT1     IF *0* - *-0* *HIT*                                 FEC         2528     A     
 FEC                SB7    A2-B2       RELATIVE POSITION OF ENTRY                          FEC         2529     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                MI     B7,EXIT.    IF DUMMY HIT, EXIT...                               FEC         2530     A     
 FEC                SB2    B2+B1       FIRST ADDRESS IN NAME TABLE                         FEC         2531     A     
 FEC                SA1    B7+B2       NAME TABLE ENTRY                                    FEC         2532     A     
 FEC                EQ     EXIT.       EXIT...                                             FEC         2533     A     
 FEC       SLT      SPACE  4,20                                                            FEC         2534     A     
 FEC      **        SLT -  SCAN DEFINED LIBRARY TABLE.                                     FEC         2535     A     
 FEC      *                                                                                FEC         2536     A     
 FEC      *         ENTRY  (X1) = SYMBOL TO CHECK.                                         FEC         2537     A     
 FEC      *                (FILL.) = NAME OF FUNCTION.                                     FEC         2538     A     
 FEC      *                                                                                FEC         2539     A     
 FEC      *         EXIT   (B2) .LT. 0 = NAME NOT IN INTRINSIC TABLE.                      FEC         2540     A     
 FEC      *                     .GE. 0 = INDEX IN (F.INTF) OF NAME.                        FEC         2541     A     
 FEC      *                (X3) = ATTRIBUTES FOR SYMTAB WB (JPF, NATR, NVAR).              FEC         2542     A     
 FEC      *                            (WB.JPF) = INDEX IN TABLE OF NAME, OR ZERO.         FEC         2543     A     
 FEC      *                (X6) = PRESERVED.                                               FEC         2544     A     
 FEC      *                (X7) = (WC.FUNI), WITH (WC.FUNT) AS FOLLOWS --                  FEC         2545     A     
 FEC      *                            (MF.USER) = NAME NOT IN TABLE.                      FEC         2546     A     
 FEC      *                            (MF.LIB)  = NAME FOUND IN INTRINSIC TABLE.          FEC         2547     A     
 FEC      *                                                                                FEC         2548     A     
 FEC      *         NOTE THAT IF NAME IS NOT IN TABLE, THEN (WB.MODE) IS NOT SET.          FEC         2549     A     
 FEC      *                                                                                FEC         2550     A     
 FEC      *         USES   CANNOT DESTROY A2,A4,A5,A7  X4,X5,X6  B4,B5,B6                  FEC         2551     A     
 FEC                                                                                       FEC         2552     A     
 FEC                                                                                       FEC         2553     A     
 FEC       SLT      SUBR   =           ENTRY/EXIT...                                       FEC         2554     A     
 FEC                BX2    X1                                                              FEC         2555     A     
 FEC                MX0    IT.DPCL                                                         FEC         2556     A     
 FEC                SB2    Z.INTF-1                                                        FEC         2557     A     
 FEC                SA1    B2+F.INTF         FETCH LAST ENTRY IN TABLE                     FEC         2558     A     
 FEC                LX0    IT.DPCL+IT.DPCP                                                 FEC         2559     A     
 FEC       SLT3     BX3    X0*X1       ISOLATE NAME FROM TABLE                             FEC         2560     A     
 FEC                IX7    X3-X2                                                           FEC         2561     A     
 FEC                ZR     X7,SLT4     IF HIT                                              FEC         2562     A     
 FEC                SB2    B2-B1                                                           FEC         2563     A     
 FEC                SA1    A1-B1                                                           FEC         2564     A     
 FEC                PL     B2,SLT3     IF NOT END OF TABLE                                 FEC         2565     A     
 FEC                                                                                       FEC         2566     A     
 FEC      *         NAME NOT FOUND IN TABLE.  MUST BE USER FUNCTION.                       FEC         2567     A     
 FEC                                                                                       FEC         2568     A     
 FEC                =X7    MF.USER                                                         FEC         2569     A     
 FEC                CLAS=  X3,WB,(NVAR,FUN,EXT)                                            FEC         2570     A     
 FEC                LX7    WC.FUNTP                                                        FEC         2571     A     
 FEC                EQ     EXIT.                                                           FEC         2572     A     
 FEC                                                                                       FEC         2573     A     
 FEC      *         NAME FOUND IN LIBRARY TABLE.                                           FEC         2574     A     
 FEC                                                                                       FEC         2575     A     
 FEC       SLT4     CLAS=  X3,IT,(GENF)                                                    FEC         2576     A     
 FEC                MX0    -IT.MODEL                                                       FEC         2577     A     
 FEC                BX3    X3*X1                                                           FEC         2578     A     
 FEC                LX1    -IT.MODEP                                                       FEC         2579     A     
 FEC                BX2    -X0*X1      (X2) = RESULT MODE OF FUNCTION                      FEC         2580     A     
 FEC                ERRNZ  IT.MODEL-WB.MODEL                                               FEC         2581     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                LX2    WB.MODEP                                                        FEC         2582     A     
 FEC                LX3    -IT.GENFP+WB.GENFP    XFER GENERIC BIT                          FEC         2583     A     
 FEC                BX3    X2+X3                                                           FEC         2584     A     
 FEC                MX0    -IT.ARGCL                                                       FEC         2585     A     
 FEC                LX1    IT.MODEP-IT.ARGCP                                               FEC         2586     A     
 FEC                BX7    -X0*X1      XFER ARG COUNT TO SYMTAB                            FEC         2587     A     
 FEC                ERRMI  WC.ARGCL-IT.ARGCL                                               FEC         2588     A     
 FEC                CLAS=  X2,WB,(NVAR,FUN,DEF)                                            FEC         2589     A     
 FEC                SX0    X7-17B                                                          FEC         2590     A     
 FEC                NZ     X0,SLT5     IF NOT VARIABLE ARG COUNT                           FEC         2591     A     
 FEC                CLAS=  X2,WB,(NVAR,FUN)                                                FEC         2592     A     
 FEC                                                                                       FEC         2593     A     
 FEC       SLT5     BX3    X2+X3                                                           FEC         2594     A     
 FEC                LX7    WC.ARGCP                                                        FEC         2595     A     
 FEC                =X0    MF.LIB                                                          FEC         2596     A     
 FEC                LX0    WC.FUNTP                                                        FEC         2597     A     
 FEC                LX1    IT.ARGCP-1-IT.ANSIP                                             FEC         2598     A     
 FEC                BX7    X7+X0       FORM (X7) = (WC.FUNI)                               FEC         2599     A     
 FEC                MI     X1,SLT6     IF FUNCTION DEFINED IN ANSI                         FEC         2600     A     
 FEC                ANSI   E.SU04                                                          FEC         2601     A     
 FEC       SLT6     SX1    B2                                                              FEC         2602     A     
 FEC                LX1    WB.JPFP     SET (WB.JPF) = INDEX IN (F.INTF)                    FEC         2603     A     
 FEC                BX3    X3+X1                                                           FEC         2604     A     
 FEC                EQ     EXIT.                                                           FEC         2605     A     
 FEC       SSY      SPACE  4,10                                                            FEC         2606     A     
 FEC      **        SSY -  SCAN *SYMBOL* TABLE. (HASHED TABLE)                             FEC         2607     A     
 FEC      *                                                                                FEC         2608     A     
 FEC      *         ENTRY  (X6) = SYMBOL (0L FORMAT)                                       FEC         2609     A     
 FEC      *                                                                                FEC         2610     A     
 FEC      *         EXIT   IF SYMBOL NOT FOUND IN TABLE --                                 FEC         2611     A     
 FEC      *                (B7) .LT. 0                                                     FEC         2612     A     
 FEC      *                (X6) = PRESERVED.                                               FEC         2613     A     
 FEC      *                (A1) _ T.SYM                                                    FEC         2614     A     
 FEC      *                (LAST) _ END OF HASHED CHAIN                                    FEC         2615     A     
 FEC      *                       IF < 0 HASHTBL ADDR (FIRST ENTRY IN CHAIN)               FEC         2616     A     
 FEC      *                       IF > 0 T.SYM ADDR (_ *WA* WORD)                          FEC         2617     A     
 FEC      *                                                                                FEC         2618     A     
 FEC      *                IF SYMBOL ALREADY PRESENT IN TABLE --                           FEC         2619     A     
 FEC      *                (X0) = ORDINAL OF SYMBOL TABLE ENTRY                            FEC         2620     A     
 FEC      *                (X1) = FWA SYMTAB = (T.SYM)                                     FEC         2621     A     
 FEC      *                (A2, X2,X6) = SYMTAB (WB)                                       FEC         2622     A     
 FEC      *                (B7) = SYMTAB INDEX OF WB                                       FEC         2623     A     
 FEC      *                                                                                FEC         2624     A     
 FEC      *         USES   A1,A2,A3  X0  B2,B7                                             FEC         2625     A     
 FEC                                                                                       FEC         2626     A     
 FEC                                                                                       FEC         2627     A     
 FEC       SSY10    =A2    A2+WB.W     *WB* ENTRY                                          FEC         2628     A     
 FEC                SA3    WANFP                                                           FC5A192       27     A     
 FEC                BX6    X3                                                              FC5A192       28     A     
 FEC                =A3    A2-WB.W+WA.W      X3 = *WA*                                     FC5A192       29     A     
 FEC                BX6    X6+X3       GIVE WA.NFP BIT THE PROPER VALUE                    FC5A192       30     A     
 FEC                SA6    A3          UPDATE *WA*                                         FC5A192       31     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                SX0    B2          RETURN (X0) = ORDINAL                               FEC         2629     A     
 FEC                =B7    B7-WA.W+WB.W                                                    FEC         2630     A     
 FEC                BX6    X2                                                              FEC         2631          I
          -FC5A191
 FEC                LDBIT  X3,WB.1REFP                                                     FC5A191       12     A     
 FEC                BX2    -X3*X2      CLEAR 1REF FLAG                                     FC5A191       13     A     
 FEC                BX6    X2                                                              FC5A191       14     A     
 FEC                SA6    A2          UPDATE SYMTAB                                       FC5A191       15     A     
 FEC                                                                                       FEC         2632     A     
 FEC       SSY      SUBR   =           ...ENTRY/EXIT...                                    FEC         2633     A     
 FEC                MX0    CHAR                                                            FEC         2634          I
          -FC5A192
 FEC                LX0    -MAX.VAR*CHAR+CHAR                                              FEC         2635          I
          -FC5A192
 FEC                BX3    X0*X6                                                           FEC         2636          I
          -FC5A192
 FEC                MI     X6,SSY1     IF FILE NAME                                        FEC         2637          I
          -FC5A192
 FEC                ZR     X3,SSY1     IF NOT SEVEN CHARACTER SYMBOL                       FEC         2638          I
          -FC5A192
 FEC                AX3    18                                                              FEC         2639          I
          -FC5A192
 FEC                SB2    X3-1R+                                                          FEC         2640          I
          -FC5A192
 FEC                PL     B2,SSY1     IF APPENDED SPECIAL CHARACTER                       FEC         2641          I
          -FC5A192
 FEC                SA6    FILL.                                                           FEC         2642          I
          -FC5A192
 FEC                ANSI   E.ANS2                                                          FEC         2643          I
          -FC5A192
 FEC       SSY1     SA1    T.SYM                                                           FEC         2644          I
          -FC5A192
 FEC                SA1    T.SYM                                                           FC5A192       32     A     
 FEC                MX2    1                                                               FEC         2645     A     
 FEC                BX3    -X2*X6      AVOIDS POSSIBLE NEGATIVE EXPONENT                   FEC         2646     A     
 FEC                SA2    SYMHASH                                                         FEC         2647     A     
 FEC                AX3    12          ZERO EXPONENT                                       FEC         2648     A     
 FEC                PX0    X3                                                              FEC         2649     A     
 FEC                DX3    X2*X0                                                           FEC         2650     A     
 FEC                MX0    -PSYM                                                           FEC         2651     A     
 FEC                AX3    47-PSYM                                                         FEC         2652     A     
 FEC                BX3    -X0*X3      (X3) = HASH TABLE INDEX                             FEC         2653     A     
 FEC                =B7    -1                                                              FEC         2654     A     
 FEC                SB2    X3                                                              FEC         2655     A     
 FEC                SA2    B2+HASHTBL                                                      FEC         2656     A     
 FEC                MX0    WA.SYML                                                         FEC         2657          I
          -FC5A192
 FEC                PL     X2,SSY5     IF CHAIN FORMED                                     FEC         2658     A     
 FEC                BX0    X6                                                              FEC         2659     A     
 FEC                SX3    B2                                                              FEC         2660     A     
 FEC                BX6    -X3                                                             FEC         2661     A     
 FEC                SA6    LAST        INDICATE CHAIN NOT FORMED                           FEC         2662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
 FEC                LX6    X0          RESTORE *SYMBOL*                                    FEC         2663     A     
 FEC                EQ     SSYX        EXIT...                                             FEC         2664     A     
 FEC                                                                                       FEC         2665     A     
 FEC       SSY5     SB2    X2                                                              FEC         2666     A     
 FEC                IX3    X2+X2                                                           FEC         2667     A     
 FEC                IX2    X2+X3       CONVERT ORDINAL TO INDEX                            FEC         2668     A     
 FEC                =B7    X2+WA.W                                                         FEC         2669     A     
 FEC                ERRNZ  3-Z=SYM                                                         FEC         2670     A     
 FEC                SA2    X1+B7       FETCH SYMTAB WORD WA                                FEC         2671     A     
 FEC                MX0    WA.SYML                                                         FC5A192       33     A     
 FEC                BX3    X0*X2                                                           FEC         2672     A     
 FEC                IX3    X6-X3                                                           FEC         2673     A     
 FEC                MX0    -WA.HASHL                                                       FC5A192       34     A     
 FEC                BX2    -X0*X2      GET HASH POINTER                                    FEC         2674     A     
 FEC                ZR     X3,SSY10    IF MATCH                                            FEC         2675     A     
 FEC                NZ     X2,SSY5     LOOP UNTIL EMPTY CHAIN                              FEC         2676     A     
 FEC                BX0    X6                                                              FEC         2677     A     
 FEC                SX6    B7                                                              FEC         2678     A     
 FEC                =B7    -1          INDICATE NOT IN TABLE.                              FEC         2679     A     
 FEC                SA6    LAST        END OF CHAIN                                        FEC         2680     A     
 FEC                LX6    X0                                                              FEC         2681     A     
 FEC                EQ     SSYX        EXIT...                                             FEC         2682     A     
 FEC                                                                                       FEC         2683     A     
 FEC       LAST     DATA   0           INDEX OF HASH CHAIN END                             FEC         2684     A     
 FEC       NEXTORD  CON    0           NEXT AVAILABLE SYMBOL TABLE ORDINAL                 FEC         2685     A     
 FEC       SYMHASH  LIT    2525001001001001.BP0            T.SYM HASH CONSTANT             FEC         2686     A     
 FEC                SPACE  4,10                                                            FEC         2687     A     
 FEC                LIST   D                                                               FEC         2688     A     
 FEC                END                                                                    FEC         2689     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FEC     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FEC                       2689      2591
          FC5A116                      2         1
          FC5A128                     18        18
          FC5A129                      1         1
          FC5A135                      3         3
          FC5A141                     46        46
          FC5A150                      6         5
          FC5A171A                     2         2
          FC5A177                      1         1
          FC5A184                     19        18
          FC5A191                     10        10
          FC5A192                     27        27
          F1037F5                      5         4
          FC5A225                      5         5
          FC5A255                     37        36
          FC5A258                      4         4
          FC50069                     39        35
          FC50110                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FEC     
  
          FC50128                      2         1
          FC50137                      2         2
          FC50096                      9         9
          FC50104                      8         8
          FC5A335                      7         6
          FC5A337                     13         4
          F1039                        2         2
          FC50558                      5         5
          FC50567                      3         3
          FC50593                      1         1
          FC50600                      1         1
          FC50608                     10        10
          FC50686                      2         1
          FC50744                      7         7
          FC50776                      5         5
          FC50785                      2         2
          FC50798                      3         3
          FC5A415                      2         2
          FC50870                     38        38
          FC5A436                      2         1
          FC50933                      1         1
          FC51048                      2         2
          FC51347                     10        10
          FC51485                      2         2
          FC51512                      1         1
          FC51554                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    *DECK     FERRS - FRONT END ERROR TEXTS.                                         FERRS          1     A     
 FERRS              IDENT  FERRS                                                           FERRS          2     A     
 FERRS     FERRS    SECT   (FRONT END ERROR TEXTS.)                                        FERRS          3     A     
 FERRS     FERRS    SPACE  4,10                                                            FERRS          4     A     
 FERRS    *         IN DATA                                                                FERRS          5     A     
 FERRS              EXT    DATA2,DAT.Z                                                     FERRS          6     A     
 FERRS                                                                                     FERRS          7     A     
 FERRS    *         IN DECL                                                                FERRS          8     A     
 FERRS              EXT    EQS80,LVL80,LVL90,PRMERR,SAVERR                                 FERRS          9     A     
 FERRS                                                                                     FERRS         10     A     
 FERRS    *         IN FEC                                                                 FERRS         11     A     
 FERRS              EXT    CUS.RET,FEC.RTN                                                 FERRS         12     A     
 FERRS                                                                                     FERRS         13     A     
 FERRS    *         IN HEADER                                                              FERRS         14     A     
 FERRS              EXT    PPA36,PPA4                                                      FERRS         15          I
          -FC5A145
 FERRS              EXT    PPA130                                                          FC5A145        5     A     
 FERRS                                                                                     FERRS         16     A     
 FERRS    *         IN IO                                                                  FERRS         17     A     
 FERRS              EXT    BLWA,BUFERR,LST                                                 FERRS         18     A     
 FERRS                                                                                     FERRS         19     A     
 FERRS    *         IN KEY                                                                 FERRS         20     A     
 FERRS              EXT    END23,IFS11                                                     FERRS         21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS         22     A     
 FERRS    *         IN LABEL                                                               FERRS         23     A     
 FERRS              EXT    PSL                                                             FERRS         24     A     
 FERRS                                                                                     FERRS         25     A     
 FERRS    *         IN PEM                                                                 FERRS         26     A     
 FERRS              EXT    PDM,PEMS,PEMV,PEM                                               FERRS         27     A     
 FERRS                                                                                     FERRS         28     A     
 FERRS    *         IN PUC                                                                 FERRS         29     A     
 FERRS              EXT    ERR.A,ERR.D,ERR.F,ERR.T,ERR.W,SCR                               FERRS         30     A     
 FERRS                                                                                     FERRS         31     A     
 FERRS    *         IN STMTF                                                               FERRS         32     A     
 FERRS              EXT    SFDEX                                                           FERRS         33     A     
 FERRS                                                                                     FERRS         34     A     
 FERRS    *         IN TYPE                                                                FERRS         35     A     
 FERRS              EXT    IMP.ER                                                          FERRS         36     A     
 FERRS              TITLE  MACROS AND DEFINTIONS.                                          FERRS         37     A     
 FERRS    *CALL     COMSSYC            NAMES OF SYMBOL CLASSES                             FERRS         38     A     
 FERRS                                                                                     FERRS         39     A     
 FERRS     CLAS     MACRO  ADDR,NAME         INTERFACE TO COMSSYC                          FERRS         40     A     
 FERRS     S        MICRO  1,,)NAME)                                                       FERRS         41     A     
 FERRS              ERRMIC S                                                               FERRS         42     A     
 FERRS     ADDR     LIT    10H"S""A"                                                       FERRS         43     A     
 FERRS     CLAS     ENDM                                                                   FERRS         44     A     
 FERRS    *CALL     COMAERR            ERROR PROCESSOR MACROS                              FERRS         45     A     
 FERRS    *CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              FERRS         46     A     
 FERRS     CLASS    HERE               (NAMES OF SYMBOL CLASSES)                           FERRS         47     A     
 FERRS     CLASS    EQUENT "CLAS1"P                                                        FERRS         48     A     
 FERRS                                                                                     FERRS         49     A     
 FERRS     DO.DPC   ERRLIT CONTROL     NAMES OF DO PARAMETERS                              FERRS         50     A     
 FERRS              ERRLIT INITIAL                                                         FERRS         51     A     
 FERRS              ERRLIT LIMIT                                                           FERRS         52     A     
 FERRS              ERRLIT INCREMENT                                                       FERRS         53     A     
 FERRS                                                                                     FERRS         54     A     
 FERRS     MOD.DPC  ERRLIT BOOLEAN     NAMES OF TYPES                                      FERRS         55     A     
 FERRS              ERRLIT LOGICAL                                                         FERRS         56     A     
 FERRS              ERRLIT INTEGER                                                         FERRS         57     A     
 FERRS              ERRLIT REAL                                                            FERRS         58     A     
 FERRS              ERRLIT DOUBLE                                                          FERRS         59     A     
 FERRS              ERRLIT COMPLEX                                                         FERRS         60     A     
 FERRS              ERRLIT CHARACTER                                                       FERRS         61     A     
 FERRS     .T       IFEQ   TEST,ON,1                                                       FERRS         62     A     
 FERRS              ERRLIT MODE=7                                                          FERRS         63     A     
 FERRS                                                                                     FERRS         64     A     
 FERRS     ERL=XPR  ERRLIT EXPRESSION                                                      FERRS         65     A     
 FERRS     ERL=CON  ERRLIT CONSTANT                                                        FERRS         66     A     
 FERRS              TITLE  ERROR MESSAGE TEXTS                                             FERRS         67     A     
 FERRS     GENERAL  EJECT                                                                  FERRS         68     A     
 FERRS    **        GENERAL DIAGNOSTICS.  REFERENCED BY MORE THAN ONE PROCESSOR            FERRS         69     A     
 FERRS    *         USING EQUATED SYMBOLS.                                                 FERRS         70     A     
 FERRS                                                                                     FERRS         71     A     
 FERRS                                                                                     FERRS         72     A     
 FERRS     E.GE     ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL         FERRS         73     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    ,.)                                                                              FERRS         74     A     
 FERRS     E.GE1    ERROR  FV,*,(EXPECTED COMMA FOUND FILL.)                               FERRS         75          I
          -FC5A126
 FERRS     E.GE1    ERROR  FV,*,(EXPECTED COMMA -- FOUND FILL.)                            FC5A126        6     A     
 FERRS     E.GE2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED VARIABLE AT FI         FERRS         76     A     
 FERRS    ,LL.)                                                                            FERRS         77     A     
 FERRS     E.GE3    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.)                      FERRS         78     A     
 FERRS     E.GE4    ERROR  WV,*,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)               FERRS         79     A     
 FERRS     E.GE5    ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2         FC5A184       27     A     
 FERRS    ,)                                                                               FC5A184       28     A     
 FERRS     E.GE6    ERROR  FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)                     FC5A278        5     A     
 FERRS     ANSI     SPACE  4,10                                                            FERRS         80     A     
 FERRS    **        ASSORTED ANSI ERRORS                                                   FERRS         81          I
          -FC5A126
 FERRS    **        ASSORTED ANSI DIAGNOSTICS.                                             FC5A126        7     A     
 FERRS                                                                                     FERRS         82     A     
 FERRS                                                                                     FERRS         83     A     
 FERRS     E.ADP    ERROR  A,*,(ANSI REQUIRES THE WORD PRECISION)                          FERRS         84          I
          -FC5A126
 FERRS     E.ANS    ERROR  A,*,(STATEMENT IS NOT DEFINED IN ANSI)                          FERRS         85     A     
 FERRS     E.ANS1   ERROR  A,*,(SEQUENCE MODE IS NON- ANSI)                                FC5A335       11     A     
 FERRS     E.ANS2   ERROR  AS,*,(7 CHARACTER SYMBOL FILL. IS NON- ANSI)                    FERRS         86     A     
 FERRS     E.ANS3   ERROR  A,PSL,(RETURN IN MAIN PROGRAM -- ACTS AS END)                   FERRS         87     A     
 FERRS     E.ANS4   ERROR  A,*,(DOUBLE PRECISION AND COMPLEX OPERANDS ARE MIXED)           FC5A262       16     A     
 FERRS     E.ANS5   ERROR  A,*,(FUNCTION REFERENCE IN CONSTANT EXPRESSION)                 FC5A184       29     A     
 FERRS     E.ANS6   ERROR  A,*,(COMMON CAN BE PRESET IN BLOCK DATA ONLY)                   FC5A184       30     A     
 FERRS     E.ANS4   ERROR  A,*,(DOUBLE PRECISION AND COMPLEX OPERANDS ARE MIXED)           FC50014        7          I
          -FC5A262
 FERRS     ARG      SPACE  4,10                                                            FERRS         88     A     
 FERRS    **        ARGUMENT PROCESSOR.                                                    FERRS         89     A     
 FERRS                                                                                     FERRS         90     A     
 FERRS                                                                                     FERRS         91     A     
 FERRS     E.AG00   ERROR  F,*,(ONLY "MAX.SARG" DUMMY ARGUMENTS ARE PERMITTED -- E         FERRS         92     A     
 FERRS    ,XCESS IGNORED)                                                                  FERRS         93     A     
 FERRS     E.AG01   ERROR  F,*,(FUNCTION REQUIRES EXPLICIT NULL ARGUMENT LIST)             FERRS         94     A     
 FERRS     E.AG02   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS         95     A     
 FERRS     E.AG03   ERROR  FS,*,(MULTIPLE OCCURANCES OF DUMMY ARGUMENT FILL.)              FERRS         96     A     
 FERRS     E.AG04   ERROR  FV,*,(DUMMY ARGUMENT FILL. MUST BEGIN WITH LETTER OR __         FERRS         97     A     
 FERRS    ,STAR)                                                                           FERRS         98     A     
 FERRS     E.AG07   ERROR  FV,*,(EXPECTED LEFT PAREN FOR AN ARGUMENT LIST FOUND __         FERRS         99     A     
 FERRS    ,FILL.)                                                                          FERRS        100     A     
 FERRS     E.AG08   ERROR  FV,PSL,(EXPECTED COMMA OR RIGHT PAREN -- FOUND FILL.)           FERRS        101     A     
 FERRS     E.AG11   ERROR  FV,*,(STAR DUMMY ARGUMENT ILLEGAL IN FUNCTION)                  FERRS        102     A     
 FERRS     E.AG12   ERROR  FS,*,(FILL. CANNOT BE DUMMY ARGUMENT)                           FERRS        103          I
          -FC5A192
 FERRS     E.AG12   ERROR  FS,*,(FILL. PREVIOUSLY USED IN EXECUTABLE OR CONFLICTIN         FC5A192       35     A     
 FERRS    ,G DECLARATIVE)                                                                  FC5A192       36     A     
 FERRS     ASSIGN   SPACE  4,10                                                            FERRS        104     A     
 FERRS    **        ASSIGN STATEMENT.                                                      FERRS        105     A     
 FERRS                                                                                     FERRS        106     A     
 FERRS                                                                                     FERRS        107     A     
 FERRS     E.AS1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.AS2    ERROR  WS,*,(*TO* ASSUMED FOR FILL.)                                   FERRS        109     A     
 FERRS     E.AS3    ERROR  WS,*,(VARIABLE FILL. NOT INTEGER)                               FERRS        110     A     
 FERRS     E.AS4    ERROR  FV,PSL,(STATEMENT LABEL FILL. MUST BE NUMERIC)                  FERRS        111     A     
 FERRS     E.AS5    ERROR  W,*,(COMMA AFTER STATEMENT LABEL IGNORED)                       FERRS        112     A     
 FERRS     E.AS6    ERROR  FS,*,(OBJECT OF GO TO FILL. DID NOT APPEAR IN ASSIGN ST         FC5A184       31     A     
 FERRS    ,ATEMENT)                                                                        FC5A184       32     A     
 FERRS     E.AS7    EQUENT E.GE5             FS,*,(USEAGE CONFLICT ...)                    FC5A184       33     A     
 FERRS     ARITH    EJECT                                                                  FERRS        113     A     
 FERRS    **        ARITH PROCESSOR.                                                       FERRS        114     A     
 FERRS                                                                                     FERRS        115     A     
 FERRS                                                                                     FERRS        116     A     
 FERRS     E.AT01   ERROR  F,*,(OPERAND HAS MODE NOT ALLOWED IN THIS CONTEXT)              FERRS        117     A     
 FERRS     E.AT02   ERROR  FS,*,(ILLEGAL USE OF OPERATOR / OPERAND -- FILL. FILL.2         FERRS        118     A     
 FERRS    ,)                                                                               FERRS        119     A     
 FERRS     E.AT03   ERROR  W,*,(HOLLERITH CONSTANT EXCEEDS 10 CHARACTERS)                  FERRS        120     A     
 FERRS     E.AT04   ERROR  FS,*,(FILL. MUST BE A DUMMY-ARG)                                FERRS        121     A     
 FERRS     E.AT05   ERROR  F,*,(ILLEGAL FORM INVOLVING THE USE OF A COMMA)                 FERRS        122          I
          -FC5A374
 FERRS     E.AT05   ERROR  F,*,(INVALID FORM INVOLVING THE USE OF A COMMA OR REDUN         FC5A374        5     A     
 FERRS    ,DANT PARENS)                                                                    FC5A374        6     A     
 FERRS     E.AT06   ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR)                        FERRS        123     A     
 FERRS     E.AT07   ERROR  A,*,(MASK EXPRESSION NON- ANSI)                                 FERRS        124     A     
 FERRS     E.AT08   ERROR  A,*,(HOLLERITH CONSTANT NON- ANSI)                              FERRS        125     A     
 FERRS     E.AT09   ERROR  A,*,(MULTIPLE ASSIGNMENT IS NON- ANSI)                          FERRS        126     A     
 FERRS     E.AT10   ERROR  FV,*,(FILL. ILLEGAL FIRST ELEMENT OF STATEMENT)                 FERRS        127          I
          -FC5A262
 FERRS     E.AT10   ERROR  FV,*,(FILL. ILLEGAL FIRST ELEMENT OF EXPRESSION)                FC5A262       17     A     
 FERRS     E.AT11   ERROR  W,*,(TARGET / SOURCE OVERLAP IN CHARACTER ASSIGNMENT)           FC50189        9     A     
 FERRS     E.AT13   ERROR  F,*,(CHARACTER AND OTHER TYPE OPERANDS MAY NOT BE MIXED         FERRS        128     A     
 FERRS    ,)                                                                               FERRS        129     A     
 FERRS     E.AT14   ERROR  FS,*,(CHARACTER OPERAND FILL. USED WITH OPERATOR FILL.2         FERRS        130     A     
 FERRS    ,)                                                                               FERRS        131     A     
 FERRS     E.AT15   ERROR  F,*,(OPERAND OF // OPERATOR MUST BE TYPE CHARACTER)             FERRS        132     A     
 FERRS     E.AT16   ERROR  FS,*,(SUBSTRING ILLEGAL FOR OPERAND FILL.)                      FERRS        133     A     
 FERRS     E.AT17   ERROR  FS,*,(SUBSTRING EXPRESSION NOT INTEGER)                         FERRS        134          I
          -FC5A385
 FERRS     E.AT17   ERROR  A,*,(SUBSTRING EXPRESSION NOT INTEGER)                          FC5A385        6     A     
 FERRS     E.AT18   ERROR  FS,*,(SUBSTRING ILLEGAL FOR PARAMETER FILL.)                    FERRS        135     A     
 FERRS     E.AT19   ERROR  FS,*,(FILL.2 OPERAND CANNOT BE CONVERTED TO TYPE FILL.3         FERRS        136     A     
 FERRS    ,)                                                                               FERRS        137     A     
 FERRS     E.AT20   ERROR  FS,*,(ILLEGAL USE OF PARAMETER FILL.)                           FC5A111        6     A     
 FERRS     E.AT21   ERROR  A,*,(OPERATOR .XOR. NOT DEFINED IN ANSI)                        FC5A471        6     A     
 FERRS     CALL     SPACE  4,20                                                            FERRS        138     A     
 FERRS    **        CALL STATEMENTS.                                                       FERRS        139     A     
 FERRS                                                                                     FERRS        140     A     
 FERRS                                                                                     FERRS        141     A     
 FERRS     E.CL1    EQUENT E.AG07      EXPECTED ARGUMENT LIST LEFT PAREN                   FERRS        142     A     
 FERRS     E.CL2    ERROR  F,PSL,(CALL STATEMENT MISSING ROUTINE NAME)                     FERRS        143     A     
 FERRS     E.CL3    ERROR  WS,*,(FUNCTION FILL. REFERENCE AS SUBROUTINE)                   FERRS        144     A     
 FERRS     E.CL4    ERROR  WS,*,(SUBROUTINE FILL. APPEARED IN TYPE DECLARATION)            FC5A338       10     A     
 FERRS     COMMON   SPACE  4,20                                                            FERRS        145     A     
 FERRS    **        COMMON STATEMENT.                                                      FERRS        146     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS        147     A     
 FERRS                                                                                     FERRS        148     A     
 FERRS     E.CM     ERROR  F,FEC.RTN,(SYNTAX ERROR IN BLOCK NAME)                          FERRS        149     A     
 FERRS     E.CM1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED BLOCK NAME)             FERRS        150     A     
 FERRS     E.CM2    ERROR  F,FEC.RTN,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED)           FERRS        151     A     
 FERRS     E.CM3    ERROR  FV,FEC.RTN,(EXPECTED COMMA OR SLASH FOUND FILL.)                FERRS        152     A     
 FERRS     E.CM5    ERROR  F,FEC.RTN,(ILLEGAL BLOCK NAME IN COMMON STATEMENT)              FERRS        153     A     
 FERRS     E.CM6    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED SYMBOL OR SLASH         FERRS        154     A     
 FERRS    ,)                                                                               FERRS        155     A     
 FERRS                                                                                     FERRS        156     A     
 FERRS                                                                                     FERRS        157     A     
 FERRS    **        COMMON PROCESSING AT END OF DECLARATIVES.                              FERRS        158     A     
 FERRS                                                                                     FERRS        159     A     
 FERRS                                                                                     FERRS        160     A     
 FERRS     E.CM8    ERROR  AS,*,(COMMON BLOCK NAME FILL. CANNOT BE FILL.2)                 FC5A255       43     A     
 FERRS     E.CM9    ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX BLOCK ____________         FERRS        161     A     
 FERRS    ,LENGTH "MAX.SPCM")                                                              FERRS        162     A     
 FERRS     E.CM10   ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX LCM=G BLOCK ______         FERRS        163     A     
 FERRS    ,LENGTH "MAX.SPLC")                                                              FERRS        164     A     
 FERRS     E.CM11   ERROR  FS,*,(CHARACTER DECLARATION CONFLICT EXISTS IN COMMON B         FERRS        165     A     
 FERRS    ,LOCK FILL.)                                                                     FERRS        166     A     
 FERRS     E.CM12   ERROR  FS,*,(EMPTY COMMON BLOCK FILL.)                                 FERRS        167     A     
 FERRS     CONTINUE SPACE  4,10                                                            FERRS        168     A     
 FERRS    **        CONTINUE STATEMENT PROCESSOR.                                          FERRS        169     A     
 FERRS                                                                                     FERRS        170     A     
 FERRS                                                                                     FERRS        171     A     
 FERRS     E.CT     ERROR  T,FEC.RTN,(CONTINUE WITH NO STATEMENT LABEL -- IGNORED)         FERRS        172     A     
 FERRS     E.CT1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        173     A     
 FERRS     C$       SPACE  4,10                                                            FERRS        174     A     
 FERRS    **        C$ DIRECTIVE PROCESSING.                                               FERRS        175     A     
 FERRS                                                                                     FERRS        176     A     
 FERRS                                                                                     FERRS        177     A     
 FERRS     E.C$00   ERROR  FS,FEC.RTN,(FILL.2 IS UNKNOWN C$ PARAMETER FOR FILL.)           FERRS        178     A     
 FERRS     E.C$01   ERROR  F,FEC.RTN,(NO PREVIOUS C$ IF DIRECTIVE)                         FERRS        179     A     
 FERRS     E.C$02   ERROR  FV,FEC.RTN,(EXPECTED C$ DIRECTIVE LABEL -- FOUND FILL.)         FERRS        180     A     
 FERRS     E.C$03   ERROR  FS,FEC.RTN,(C$ FILL. LABEL FILL.2 DIFFERENT FROM C$ IF          FERRS        181     A     
 FERRS    ,LABEL)                                                                          FERRS        182     A     
 FERRS     E.C$04   ERROR  F,FEC.RTN,(ONLY ONE C$ ELSE ALLOWED IN C$ IF GROUP)             FERRS        183     A     
 FERRS     E.C$05   ERROR  WS,*,(C$ PARAMETER VALUE FOR FILL.2 ON FILL. MUST BE 0          FERRS        184     A     
 FERRS    ,OR 1)                                                                           FERRS        185     A     
 FERRS     E.C$06   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.)                FERRS        186     A     
 FERRS     E.C$07   ERROR  FV,FEC.RTN,(EXPECTED C$ PARAMETER -- FOUND FILL.)               FERRS        187     A     
 FERRS     E.C$08   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN -- FOUND FILL.)                 FERRS        188     A     
 FERRS     E.C$09   EQUENT E.GE3       FV,FEC.RTN,(EXPECTED COMMA, FOUND FILL.)            FERRS        189     A     
 FERRS     E.C$10   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        190     A     
 FERRS     E.C$11   ERROR  F,FEC.RTN,(C$ IF EXPRESSION MUST BE LOGICAL)                    FERRS        191     A     
 FERRS     E.C$15   ERROR  FS,*,(FILL. C$ IF(S) NOT TERMINATED)                            FERRS        192     A     
 FERRS     DATA     SPACE  4,30                                                            FERRS        193     A     
 FERRS    **        DATA   STATEMENT PROCESSOR.                                            FERRS        194     A     
 FERRS                                                                                     FERRS        195     A     
 FERRS                                                                                     FERRS        196     A     
 FERRS     E.DABC   ERROR  FS,*,(FILL. IS IN BLANK COMMON -- DATA IGNORED)                 FERRS        197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 649    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.DABL   ERROR  WS,*,(LOCAL FILL. IN BLOCK DATA -- IGNORED)                     FERRS        198     A     
 FERRS     E.DACV   ERROR  W,DATA2,(EXCESS CONSTANTS IGNORED)                              FERRS        199     A     
 FERRS     E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLES FROM FILL. NOT         FERRS        200     A     
 FERRS    ,INITIALIZED)                                                                    FERRS        201          I
          -FC5A126
 FERRS    , INITIALIZED)                                                                   FC5A126        8     A     
 FERRS     E.DAR    ERROR  A,*,(PAREN REPEAT LIST IS NOT PERMITTED)                        FERRS        202     A     
 FERRS     E.DAUC   ERROR  FS,DAT.Z,(DATA INTO FILL. IS ILLEGAL)                           FERRS        203          I
          -FC5A111
 FERRS     E.DAUC   ERROR  FS,*,(DATA INTO FILL. IS ILLEGAL)                               FC5A111        7     A     
 FERRS     E.DCE    ERROR  F,DAT.Z,(ILLEGAL REPEAT CONSTANT)                               FERRS        204     A     
 FERRS     E.DIL    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA CONSTANT LIST)                    FERRS        205     A     
 FERRS     E.DIL1   ERROR  F,DAT.Z,(ILLEGAL CONSTANT FOLLOWING + OR -)                     FERRS        206     A     
 FERRS     E.DIL2   ERROR  F,DAT.Z,(NESTING OF REPEAT COUNT IN DATA CONSTANT LIST          FERRS        207     A     
 FERRS    ,IS ILLEGAL)                                                                     FERRS        208     A     
 FERRS     E.DIL3   ERROR  F,DAT.Z,(ILLEGAL SEPARATOR FOLLOWING DATA CONSTANT)             FERRS        209     A     
 FERRS     E.DIL4   ERROR  FS,DAT.Z,(NAME FILL. IN DATA CONSTANT LIST MUST BE ____         FERRS        210     A     
 FERRS    ,PARAMETER)                                                                      FERRS        211     A     
 FERRS     E.DSE    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA STATEMENT)                        FERRS        212          I
          -FC5A111
 FERRS     E.DVL1   ERROR  F,DAT.Z,(DATA VARIABLE LIST CONTAINS FILL.3)                    FERRS        213          I
          -FC5A111
 FERRS     E.DSE    ERROR  F,*,(SYNTAX ERROR IN DATA STATEMENT)                            FC5A111        8     A     
 FERRS     E.DVL1   ERROR  F,*,(DATA VARIABLE LIST CONTAINS FILL.3)                        FC5A111        9     A     
 FERRS     E.DVR1   ERROR  FS,*,(FILL. MUST BE DO CONTROL VARIABLE)                        FERRS        214     A     
 FERRS     E.DVR2   ERROR  FS,*,(FILL. SUBSCRIPT OUTSIDE OF ARRAY BOUNDS)                  FERRS        215     A     
 FERRS     E.DVR3   ERROR  FS,*,(TRIP COUNT OF FILL. MUST BE POSITIVE)                     FERRS        216     A     
 FERRS     E.DVR4   ERROR  F,*,(SUBSCRIPTS IN DATA MUST BE INTEGER)                        FERRS        217     A     
 FERRS     E.DVR5   ERROR  F,*,(STATEMENT FUNCTION INVALID IN DATA VARIABLE LIST)          FC5A227       66     A     
 FERRS     DEC      EJECT                                                                  FERRS        218     A     
 FERRS    **        CONVERSION OF CONSTANT SECTION.                                        FERRS        219     A     
 FERRS                                                                                     FERRS        220     A     
 FERRS                                                                                     FERRS        221     A     
 FERRS     E.DC     ERROR  F,*,(CONSTANT CANNOT BE CONVERTED)                              FERRS        222     A     
 FERRS     E.DC1    ERROR  A,*,(OCTAL DATA TYPE NOT DEFINED IN ANSI)                       FERRS        223          I
          -FC5A381
 FERRS     E.DC1    ERROR  A,*,(OCT/HEX DATA TYPE NOT DEFINED IN ANSI)                     FC5A381        5     A     
 FERRS     E.DC3    ERROR  FV,*,(ILLEGAL FORM OF EXPONENT FILL.)                           FERRS        224     A     
 FERRS     E.DC4    ERROR  F,*,(CONSTANT DIVIDE BY ZERO -- RESULTS SET TO INFINITE         FERRS        225     A     
 FERRS    ,)                                                                               FERRS        226     A     
 FERRS     E.DC6    ERROR  W,*,(CONSTANT MISSING EXPONENT FIELD -- ZERO ASSUMED)           FERRS        227     A     
 FERRS     E.DC7    ERROR  F,*,(ILL- FORMED COMPLEX CONSTANT)                              FERRS        228     A     
 FERRS     E.DC8    ERROR  T,*,(CONSTANT TOO LONG , EXCESS DIGITS TRUNCATED)               FERRS        229     A     
 FERRS     E.DC9    ERROR  W,*,(NON- OCTAL DIGIT IN OCTAL CONSTANT -- IGNORED)             FERRS        230          I
          -FC5A381
 FERRS     E.DC9    ERROR  W,*,(NON- OCT/HEX DIGIT IN OCT/HEX CONSTANT -- IGNORED)         FC5A381        6     A     
 FERRS     E.DC10   ERROR  A,*,(SYMBOLIC CONSTANT IN COMPLEX CONSTANT NOT ANSI)            FC5A174       14     A     
 FERRS     DIM      EJECT                                                                  FERRS        231     A     
 FERRS    **        DIMENSION PROCESSOR.                                                   FERRS        232     A     
 FERRS                                                                                     FERRS        233     A     
 FERRS                                                                                     FERRS        234     A     
 FERRS     E.DM00   ERROR  F,*,(SYNTAX ERROR IN DIMENSION DECLARATION)                     FERRS        235     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.DM01   ERROR  FS,*,(ARRAY FILL. DIMENSION BOUND FILL.2 NOT INTEGER)           FERRS        236     A     
 FERRS     E.DM02   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- LOWER BOUND EXCEE         FERRS        237     A     
 FERRS    ,DS UPPER BOUND)                                                                 FERRS        238     A     
 FERRS     E.DM03   ERROR  FS,*,(ASSUMED SIZE OR ADJUSTABLE ARRAY FILL. MUST BE DU         FERRS        239     A     
 FERRS    ,MMY-ARG)                                                                        FERRS        240     A     
 FERRS     E.DM04   ERROR  FS,*,(ADJUSTABLE BOUND FILL. MUST BE DUMMY-ARG OR IN CO         FERRS        241     A     
 FERRS    ,MMON)                                                                           FERRS        242     A     
 FERRS     E.DM05   ERROR  WS,*,(VARIABLE FILL. HAS NO DIMENSION BOUND -- IGNORED)         FERRS        243     A     
 FERRS     E.DM06   ERROR  FS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)                 FERRS        244     A     
 FERRS     E.DM07   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- EXCEEDS "MAX.SPAN         FERRS        245     A     
 FERRS    ,")                                                                              FERRS        246     A     
 FERRS     E.DM08   ERROR  FS,*,(ARRAY FILL. SIZE EXCEEDS "MAX.SPAN")                      FERRS        247     A     
 FERRS     E.DM09   ERROR  WS,*,(DIMENSION ON FILL. IGNORED -- PRIOR DIMENSION RET         FERRS        248          I
          -FC5A126
 FERRS     E.DM09   ERROR  FS,*,(DIMENSION ON FILL. IGNORED -- PRIOR DIMENSION RET         FC5A126        9     A     
 FERRS    ,AINED)                                                                          FERRS        249     A     
 FERRS     E.DM10   ERROR  FS,FEC.RTN,(ARRAY DECLARATION FOR FILL. MISSING RIGHT P         FERRS        250     A     
 FERRS    ,AREN)                                                                           FERRS        251     A     
 FERRS     E.DM11   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E         FERRS        252     A     
 FERRS    ,XPRESSION CONTAINS ILLEGAL OPERATION)                                           FERRS        253     A     
 FERRS     E.DM12   ERROR  FS,*,(ADJUSTABLE DIMENSION BOUND FILL. IS NOT INTEGER)          FERRS        254     A     
 FERRS     E.DM13   ERROR  F,*,(ASSUMED SIZE CAN ONLY BE ON LAST UPPER BOUND)              FERRS        255     A     
 FERRS     E.DM14   ERROR  FS,*,(ARRAY FILL. IN PROGRAM CANNOT HAVE ADJUSTABLE DIM         FC50438        6     A     
 FERRS    ,ENSION)                                                                         FC50438        7     A     
 FERRS     E.DM15   EQUENT E.GE1       FS,*,(EXPECTED COMMA FOUND FILL.)                   FERRS        256     A     
 FERRS     E.DM16   EQUENT E.GE2       WV,FEC.FTN,(PREMAT EOS -- EXPECTED VAR)             FERRS        257     A     
 FERRS     E.DM17   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E         FERRS        258     A     
 FERRS    ,XPRESSION CONTAINS NON- VARIABLE)                                               FERRS        259     A     
 FERRS     E.DM18   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E         FERRS        260     A     
 FERRS    ,XPRESSION CONTAINS ARRAY REFERENCE)                                             FERRS        261     A     
 FERRS     E.DM19   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPCM")                   FERRS        262     A     
 FERRS     E.DM20   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPLC")                   FERRS        263     A     
 FERRS     E.DM21   ERROR  FS,*,(ARRAY FILL. IN COMMON CANNOT HAVE ADJUSTABLE DIME         FC50438        8     A     
 FERRS    ,NSION)                                                                          FC50438        9     A     
 FERRS     DO       EJECT                                                                  FERRS        264     A     
 FERRS    **        DO PROCESSOR.                                                          FERRS        265     A     
 FERRS                                                                                     FERRS        266     A     
 FERRS                                                                                     FERRS        267     A     
 FERRS     E.DO00   ERROR  F,*,(SYNTAX OF DO MUST BE I=M1,M2,M3 OR M1,M2)                  FERRS        268     A     
 FERRS     E.DO01   ERROR  T,*,(THIS DO LOOP WILL NOT EXECUTE)                             FERRS        269     A     
 FERRS     E.DO02   ERROR  F,*,(DO LOOP INCREMENT MAY NOT BE ZERO)                         FERRS        270     A     
 FERRS     E.DO03   ERROR  F,*,(TRIP COUNT TOO HIGH -- SHORT LOOPS SELECTED)               FERRS        271          I
          -FC5A371
 FERRS     E.DO03   ERROR  FS,*,(FILL.3 TOO HIGH -- SHORT LOOPS SELECTED)                  FC5A371        5     A     
 FERRS     E.DO04   ERROR  FS,*,(DO INDEX FILL. MUST BE SIMPLE VARIABLE)                   FERRS        272     A     
 FERRS     E.DO05   EQUENT E.AS4       (EXPECTED STATEMENT LABEL -- FOUND FILL.)           FERRS        273     A     
 FERRS     E.DO06   ERROR  FS,*,(ILLEGAL IF BLOCK NESTING WITH DO LOOP FILL.2)             FERRS        274     A     
 FERRS     E.DO07   ERROR  F,*,(ILLEGAL TRANSFER INTO RANGE OF DO)                         FERRS        275     A     
 FERRS     E.DO08   ERROR  F,*,(THIS STATEMENT REDEFINES A DO CONTROL INDEX)               FERRS        276          I
          -FC5A211
 FERRS     E.DO08   ERROR  FS,PSL,(FILL. REDEFINES A DO CONTROL INDEX)                     FC5A211       10     A     
 FERRS     E.DO09   ERROR  FS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA         FERRS        277     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    ,M)                                                                              FERRS        278     A     
 FERRS     E.DO10   ERROR  FV,*,(EXPECTED EQUAL SIGN -- FOUND FILL.)                       FC50886        7     A     
 FERRS     E.DO11   ERROR  FS,*,(DO INDEX FILL. REDEFINES INDEX OF OUTER DO)               FERRS        279          I
          -FC5A211
 FERRS     E.DO12   ERROR  F,*,(ILLEGAL NESTING OF DO LOOPS)                               FERRS        280     A     
 FERRS     E.DO13   ERROR  W,*,(DO CONCLUSION NOT COMPILED -- DO DEFINITION ERROR)         FERRS        281     A     
 FERRS     E.DO14   ERROR  FV,PSL,(EXPECTED DO CONTROL INDEX -- FOUND FILL.)               FERRS        282     A     
 FERRS     E.DO15   ERROR  F,*,(DO INDEX CANNOT BE FILL.3)                                 FERRS        283     A     
 FERRS     E.DO16   ERROR  F,*,(DO FILL.2 PARAMETER CANNOT BE FILL.3)                      FERRS        284     A     
 FERRS     E.DO17   ERROR  F,*,(DO-IMPLIED LOOPS IN DATA MUST BE INTEGER)                  FERRS        285     A     
 FERRS     E.DO18   ERROR  F,*,(TRIP COUNT IS LESS THAN ONE)                               FERRS        286     A     
 FERRS     E.DO19   ERROR  A,*,(TRANSFER INTO RANGE OF DO)                                 FC5A300        7     A     
 FERRS     E.DO20   ERROR  W,*,(ALTERNATE RETURN INTO RANGE OF DO)                         FC51356       12     A     
 FERRS     ENTRY    SPACE  4,10                                                            FERRS        287     A     
 FERRS     E.DO19   ERROR  A,*,(TRANSFER INTO RANGE OF DO)                                 FC50015        9          I
          -FC5A300
 FERRS    **        ENTRY PROCESSOR.                                                       FERRS        288     A     
 FERRS                                                                                     FERRS        289     A     
 FERRS                                                                                     FERRS        290     A     
 FERRS     E.EN     ERROR  WS,*,(NAME FILL. PREVIOUSLY DEFINED -- ENTRY STATEMENT          FERRS        291     A     
 FERRS    ,IGNORED)                                                                        FERRS        292     A     
 FERRS     E.EN1    ERROR  W,FEC.RTN,(ENTRY STATEMENT IGNORED IN MAIN PROGRAM)             FERRS        293     A     
 FERRS     E.EN2    ERROR  F,PSL,(ENTRY INSIDE DO LOOP OR IF BLOCK IS ILLEGAL)             FERRS        294     A     
 FERRS     E.EN3    ERROR  W,PSL,(MISSING NAME -- ENTRY STATEMENT IGNORED)                 FERRS        295     A     
 FERRS     E.EN4    ERROR  W,PSL,(ILLEGAL NAME -- ENTRY STATEMENT IGNORED)                 FERRS        296     A     
 FERRS     E.EN5    ERROR  FS,*,(SUBROUTINE ENTRY FILL. MAY NOT APPEAR IN A DECLAR         FERRS        297     A     
 FERRS    ,TIVE STATEMENT)                                                                 FERRS        298          I
          -FC5A262
 FERRS    ,ATIVE STATEMENT)                                                                FC5A262       18     A     
 FERRS     E.EN6    ERROR  FS,*,(FUNCTION ENTRY FILL. MUST BE TYPE CHARACTER)              FERRS        299     A     
 FERRS     E.EN7    ERROR  FS,*,(CHARACTER LENGTHS OF ENTRY FILL. AND FUNCTION CAN         FERRS        300     A     
 FERRS    ,NOT DISAGREE)                                                                   FERRS        301     A     
 FERRS     E.EN8    ERROR  FS,*,(FUNCTION ENTRY FILL. MAY NOT BE TYPE CHARACTER)           FERRS        302     A     
 FERRS     EQUIV    EJECT                                                                  FERRS        303     A     
 FERRS    **        EQUIVALENCE PROCESSOR.                                                 FERRS        304     A     
 FERRS                                                                                     FERRS        305     A     
 FERRS                                                                                     FERRS        306     A     
 FERRS     E.EQ     ERROR  F,FEC.RTN,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)               FERRS        307     A     
 FERRS     E.EQ1    ERROR  FV,EQS80,(MISSING LEFT PAREN AT FILL.)                          FERRS        308     A     
 FERRS     E.EQ2    ERROR  WV,FEC.RTN,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)         FERRS        309     A     
 FERRS     E.EQ3    ERROR  FV,EQS80,(MISSING COMMA AT FILL.)                               FERRS        310     A     
 FERRS     E.EQ4    ERROR  FV,EQS80,(MORE THAN "MAX.DIM" SUBSCRIPT)                        FERRS        311          I
          -FC5A126
 FERRS     E.EQ4    ERROR  FV,EQS80,(MORE THAN "MAX.DIM" SUBSCRIPTS)                       FC5A126       10     A     
 FERRS     E.EQ6    ERROR  W,*,(TRIVIAL EQUIVALENCE GROUP WITH ONLY 1 MEMBER IS IG         FERRS        312     A     
 FERRS    ,NORED)                                                                          FERRS        313     A     
 FERRS                                                                                     FERRS        314     A     
 FERRS    **        CLOSE OF DECLARATIVES PROCESSING.                                      FERRS        315     A     
 FERRS                                                                                     FERRS        316     A     
 FERRS     E.EQ7    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT LESS THAN          FERRS        317     A     
 FERRS    ,DIMENSION LOWER BOUND)                                                          FERRS        318     A     
 FERRS     E.EQ8    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT WHICH EXCE         FERRS        319     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    ,EDS DIMENSION BOUND)                                                            FERRS        320     A     
 FERRS     E.EQ10   ERROR  FS,*,(DUMMY ARGUMENT FILL. CANNOT BE EQUIVALENCED)              FERRS        321     A     
 FERRS     E.EQ11   ERROR  WS,*,(REDUNDANT EQUIVALENCE SPECIFICATION FOR FILL.)            FERRS        322     A     
 FERRS     E.EQ12   ERROR  FS,*,(CONFLICT IN EQUIVALENCE SPECIFICATION FOR FILL.)          FERRS        323     A     
 FERRS     E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIVALENCE VARIABLE FILL.         FERRS        324     A     
 FERRS    ,)                                                                               FERRS        325     A     
 FERRS     E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIVALENCE VARIABLE FILL.)          FERRS        326     A     
 FERRS     E.EQ15   ERROR  TS,*,(MISSING SUBSCRIPTS SET TO 1 FOR EQUIVALENCE VARIA         FERRS        327          I
          -FC5A126
 FERRS    ,BLE FILL.)                                                                      FERRS        328          I
          -FC5A126
 FERRS     E.EQ15   ERROR  FS,*,(MISSING SUBSCRIPTS SET TO LOWER BOUND FOR EQUIVAL         FC5A126       11     A     
 FERRS    ,ENCE VARIABLE FILL.)                                                            FC5A126       12     A     
 FERRS     E.EQ16   ERROR  FS,*,(FILL. ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)           FERRS        329     A     
 FERRS     E.EQ17   ERROR  FS,*,(FILL. CAUSES CHARACTER DECLARATION CONFLICT IN EQ         FERRS        330     A     
 FERRS    ,UIVALENCE GROUP)                                                                FERRS        331     A     
 FERRS     EXTERNAL EJECT                                                                  FERRS        332     A     
 FERRS    **        EXTERNAL PROCESSOR.                                                    FERRS        333     A     
 FERRS                                                                                     FERRS        334     A     
 FERRS                                                                                     FERRS        335     A     
 FERRS     E.EX1    ERROR  WS,*,(FILL. PREVIOUSLY DEFINED AS EXTERNAL)                     FERRS        336          I
          -FC5A126
 FERRS     E.EX1    ERROR  WS,*,(FILL. PREVIOUSLY DEFINED EXTERNAL -- IGNORED)             FC5A126       13     A     
 FERRS     E.EX2    EQUENT E.GE1       FS,*,(EXPECTED COMMA FOUND FILL.)                   FERRS        337     A     
 FERRS     E.EX3    EQUENT E.GE2       WV,FEC.FTN,(PREMAT EOS -- EXPECTED VAR)             FERRS        338     A     
 FERRS     E.EX4    ERROR  WS,*,(ENTRY FILL. MUST NOT BE DECLARED EXTERNAL -- IGNO         FERRS        339     A     
 FERRS    ,RED)                                                                            FERRS        340     A     
 FERRS     FILES    SPACE  4,10                                                            FERRS        341     A     
 FERRS    **        PROGRAM STATEMENT FILE DECLARATION.                                    FERRS        342     A     
 FERRS                                                                                     FERRS        343     A     
 FERRS                                                                                     FERRS        344     A     
 FERRS     E.FD     ERROR  A,*,(FILE DECLARATION LIST NON- ANSI)                           FERRS        345     A     
 FERRS     E.FD0    ERROR  WS,PPA4,(RECORD LENGTH FOR FILE FILL. EXCEEDS 2**17-1 -         FERRS        346          I
          -FC5A145
 FERRS    ,- DEFAULT USED)                                                                 FERRS        347          I
          -FC5A145
 FERRS     E.FD1    ERROR  WS,*,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED)                 FERRS        348          I
          -FC5A145
 FERRS     E.FD2    EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)           FERRS        349          I
          -FC5A145
 FERRS     E.FD3    ERROR  WS,PPA4,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- "L.IOB         FERRS        350          I
          -FC5A145
 FERRS    ,UF6"B USED)                                                                     FERRS        351          I
          -FC5A145
 FERRS     E.FD4    ERROR  WS,PPA36,(BUFFER LENGTH FOR FILE FILL. EXCEEDS "MAX.BUF         FERRS        352          I
          -FC5A145
 FERRS    ,L"B -- "MAX.BUFL"B USED)                                                        FERRS        353          I
          -FC5A145
 FERRS     E.FD5    ERROR  W,*,(ONLY "MAX.PARG" FILES ARE PERMITTED -- EXCESS IGNO         FERRS        354          I
          -FC5A145
 FERRS    ,RED)                                                                            FERRS        355          I
          -FC5A145
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.FD6    ERROR  WS,PPA4,(FILE FILL.2 NOT DEFINED -- EQUIVALENCE IGNORED         FERRS        356          I
          -FC5A145
 FERRS    ,)                                                                               FERRS        357          I
          -FC5A145
 FERRS     E.FD7    ERROR  F,FEC.RTN,(EQUAL SIGN MUST BE FOLLOWED BY NAME , NUMBER         FERRS        358          I
          -FC5A145
 FERRS    , OR SLASH)                                                                      FERRS        359          I
          -FC5A145
 FERRS     E.FD8    ERROR  FV,*,(FILE NAME FILL. EXCEEDS "MAX.LFN" CHARACTERS)             FERRS        360          I
          -FC5A145
 FERRS     E.FD9    ERROR  WS,PPA4,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFAUL         FERRS        361          I
          -FC5A145
 FERRS    ,T USED)                                                                         FERRS        362          I
          -FC5A145
 FERRS     E.FD10   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        363          I
          -FC5A145
 FERRS     E.FD1    ERROR  FV,*,(EXPECTED FILE NAME, FOUND FILL.)                          FC5A145        6     A     
 FERRS     E.FD2    ERROR  FS,PPA130,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED)            FC5A145        7     A     
 FERRS     E.FD3    ERROR  FS,PPA130,(FILE FILL.2 NOT DEFINED -- DEFINITION IGNORE         FC5A145        8     A     
 FERRS    ,D)                                                                              FC5A145        9     A     
 FERRS     E.FD4    ERROR  F,PPA130,(EQUAL SIGN MUST BE FOLLOWED BY NAME, NUMBER O         FC5A145       10     A     
 FERRS    ,R SLASH)                                                                        FC5A145       11     A     
 FERRS     E.FD5    ERROR  FS,PPA130,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- DEFI         FC5A145       12     A     
 FERRS    ,NITION IGNORED)                                                                 FC5A145       13     A     
 FERRS     E.FD6    ERROR  FS,PPA130,(BUFFER LENGTH FOR FILE FILL. EXCEEDS "MAX.BU         FC5A145       14     A     
 FERRS    ,FL"B -- DEFINITION IGNORED)                                                     FC5A145       15     A     
 FERRS     E.FD7    ERROR  FS,PPA130,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFI         FC5A145       16     A     
 FERRS    ,NITION IGNORED)                                                                 FC5A145       17     A     
 FERRS     E.FD8    ERROR  F,PPA130,(SLASH MUST BE FOLLOWED BY AN OCTAL OR INTEGER         FC5A145       18     A     
 FERRS    , CONSTANT)                                                                      FC5A145       19     A     
 FERRS     E.FD9    ERROR  FS,PPA130,(RECORD LENGTH FOR FILE FILL. EXCEEDS "MAX.RE         FC5A145       20     A     
 FERRS    ,CL"B -- DEFINITION IGNORED)                                                     FC5A145       21     A     
 FERRS     E.FD10   ERROR  FV,*,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL.)             FC5A145       22     A     
 FERRS     E.FD11   EQUENT E.GE4             WV,*,(EXPECTED EOS -- FOUND FILL.)            FC5A145       23     A     
 FERRS     E.FD12   ERROR  W,*,(ONLY "MAX.PARG" FILES ARE ALLOWED -- EXCESS IGNORE         FC5A145       24     A     
 FERRS    ,D)                                                                              FC5A145       25     A     
 FERRS     FORMAT   SPACE  4,20                                                            FERRS        364     A     
 FERRS    **        FORMAT STATEMENT PROCESSOR.                                            FERRS        365     A     
 FERRS                                                                                     FERRS        366     A     
 FERRS                                                                                     FERRS        367     A     
 FERRS     E.FS00   ERROR  F,*,(FORMAT MUST HAVE STATEMENT LABEL)                          FERRS        368     A     
 FERRS     E.FS01   ERROR  FV,*,(D OR M FIELD NOT SPECIFIED FOR EDIT DESCRIPTOR AT         FC50555        5     A     
 FERRS    , FILL.)                                                                         FC50555        6     A     
 FERRS     E.FS01   ERROR  T,*,(T EDIT DESCRIPTOR RESETS COLUMN POINTER -- OVERLAY         FERRS        369          I
          -FC5A126
 FERRS    ,S CURRENT LINE)                                                                 FERRS        370          I
          -FC5A126
 FERRS     E.FS02   ERROR  F,*,(T EDIT DESCRIPTOR FOLLOWED BY ZERO OR NON- DIGIT)          FERRS        371     A     
 FERRS     E.FS03   ERROR  F,*,(ONLY 9 PAREN LEVELS ALLOWED)                               FERRS        372     A     
 FERRS     E.FS04   ERROR  FS,*,(REPEAT COUNT IS NOT ALLOWED BEFORE THE EDIT DESCR         FERRS        373     A     
 FERRS    ,IPTOR FILL.)                                                                    FERRS        374     A     
 FERRS     E.FS05   ERROR  FV,*,(FIELD WIDTH NOT SPECIFIED FOR EDIT DESCRIPTOR AT          FERRS        375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    ,FILL.)                                                                          FERRS        376     A     
 FERRS     E.FS06   ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P EDIT DESCRIPTOR         FERRS        377     A     
 FERRS    ,)                                                                               FERRS        378     A     
 FERRS     E.FS07   ERROR  FS,*,(FILL. EDIT DESCRIPTOR REQUIRES COUNT)                     FERRS        379     A     
 FERRS     E.FS08   ERROR  AS,*,(FILL. IS NON- ANSI EDIT DESCRIPTOR)                       FERRS        380     A     
 FERRS     E.FS09   ERROR  T,*,(TL EDIT DESCRIPTOR BACKSPACED BEYOND 1ST COLUMN --         FERRS        381     A     
 FERRS    , COLUMN POINTER RESET AT 1)                                                     FERRS        382     A     
 FERRS     E.FS10   ERROR  FV,*,(ZERO IS SPECIFIED AS REPEAT COUNT AT FILL.)               FERRS        383     A     
 FERRS     E.FS11   ERROR  F,*,(RECORD LENGTH EXCEEDS "MAX.RECL" COLUMNS)                  FERRS        384     A     
 FERRS     E.FS12   ERROR  T,*,(RECORD LENGTH EXCEEDS "NOR.RECL" COLUMNS -- MAY EX         FERRS        385     A     
 FERRS    ,CEED I/O DEVICE)                                                                FERRS        386     A     
 FERRS     E.FS13   ERROR  FV,*,(FIELD WIDTH OF EDIT DESCRIPTOR AT FILL. IS ZERO O         FERRS        387     A     
 FERRS    ,R NOT SPECIFIED)                                                                FERRS        388     A     
 FERRS     E.FS14   ERROR  FS,*,(UNKNOWN EDIT DESCRIPTOR FILL.)                            FERRS        389     A     
 FERRS     E.FS15   ERROR  FV,*,(EXTRANEOUS NUMERIC FIELD IN EDIT DESCRIPTOR AT FI         FERRS        390     A     
 FERRS    ,LL.)                                                                            FERRS        391     A     
 FERRS     E.FS16   ERROR  FV,*,(DECIMAL POINT IS NOT SPECIFIED FOR THE EDIT DESCR         FERRS        392     A     
 FERRS    ,IPTOR AT FILL.)                                                                 FERRS        393     A     
 FERRS     E.FS17   ERROR  WV,*,(FIELD WIDTH IS LESS THAN MINIMUM REQUIRED ON EDIT         FERRS        394     A     
 FERRS    , DESCRIPTOR AT FILL.)                                                           FERRS        395     A     
 FERRS     E.FS18   ERROR  FV,*,(EXPECTED E.O.S. -- FOUND FILL.)                           FERRS        396          I
          -FC5A278
 FERRS     E.FS18   EQUENT E.GE6       FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)         FC5A278        6     A     
 FERRS     E.FS19   ERROR  F,*,(TERMINAL RIGHT PAREN MISSING)                              FERRS        397          I
          -FC5A184
 FERRS     E.FS19   ERROR  F,*,(UNBALANCED PARENS)                                         FC5A184       34     A     
 FERRS     E.FS20   ERROR  W,*,(EXTRANEOUS COMMA IGNORED)                                  FERRS        398     A     
 FERRS     E.FS21   ERROR  FV,*,(MULTIPLE DECIMAL POINT IN EDIT DESCRIPTOR AT FILL         FERRS        399     A     
 FERRS    ,.)                                                                              FERRS        400     A     
 FERRS     E.FS22   ERROR  FV,*,(EDIT DESCRIPTOR MISSING AT FILL.)                         FERRS        401     A     
 FERRS     E.FS23   ERROR  FV,*,(DECIMAL POINT REQUIRED IN EDIT DESCRIPTOR AT FILL         FERRS        402     A     
 FERRS    ,.)                                                                              FERRS        403     A     
 FERRS     E.FS24   ERROR  FV,*,(EXPONENT FIELD ON EDIT DESCRIPTOR AT FILL. IS ZER         FERRS        404     A     
 FERRS    ,O OR NOT SPECIFIED)                                                             FERRS        405     A     
 FERRS     E.FS25   ERROR  FV,*,(SEPARATOR MISSING AT FILL.)                               FERRS        406     A     
 FERRS     E.FS26   ERROR  F,*,(INITIAL LEFT PAREN MISSING)                                FC5A184       35     A     
 FERRS     GOTO     SPACE  4,10                                                            FERRS        407     A     
 FERRS    **        GO TO   STATEMENTS.                                                    FERRS        408     A     
 FERRS                                                                                     FERRS        409     A     
 FERRS                                                                                     FERRS        410     A     
 FERRS     E.GO     ERROR  F,PSL,(SYNTAX ERROR IN GO TO STATEMENT)                         FERRS        411     A     
 FERRS     E.GO1    ERROR  F,PSL,(OBJECT OF GO TO MISSING)                                 FERRS        412     A     
 FERRS     E.GO2    ERROR  T,CUS.RET,(NULL TRANSFER STATEMENT -- TRANSFER IGNORED)         FERRS        413     A     
 FERRS     E.GO3    ERROR  FV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)                       FERRS        414     A     
 FERRS     E.GO4    ERROR  W,*,(OBJECT OF GO TO NOT INTEGER VARIABLE)                      FERRS        415     A     
 FERRS     E.GO5    ERROR  T,*,(IF RESULTS IN A TRANSFER TO THE NEXT LINE)                 FERRS        416     A     
 FERRS     E.GO6    ERROR  A,*,(COMPUTED GO TO INDEX MUST BE INTEGER)                      FERRS        417     A     
 FERRS     E.GO7    ERROR  T,*,(STATEMENT TRANSFERS TO ITSELF)                             FERRS        418     A     
 FERRS     E.GO8    ERROR  T,*,(STATEMENT CAN TRANSFER TO ITSELF)                          FERRS        419     A     
 FERRS     E.GO9    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        420     A     
 FERRS     HOLLER   SPACE  4,30                                                            FERRS        421     A     
 FERRS    **        CONVERSION OF HOLLERITH CONSTANTS.                                     FERRS        422     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS        423     A     
 FERRS                                                                                     FERRS        424     A     
 FERRS     E.HC1    ERROR  F,*,(ZERO LENGTH CHARACTER OR HOLLERITH STRING)                 FERRS        425     A     
 FERRS     E.HC2    ERROR  F,*,(E.O.S. BEFORE END OF HOLLERITH COUNT)                      FERRS        426     A     
 FERRS     E.HC3    ERROR  FS,*,(TERMINAL DELIMITER FILL. MISSING)                         FERRS        427     A     
 FERRS     IF       SPACE  4,10                                                            FERRS        428     A     
 FERRS    **        IF STATEMENT/STRUCTURE PROCESSING.                                     FERRS        429     A     
 FERRS                                                                                     FERRS        430     A     
 FERRS                                                                                     FERRS        431     A     
 FERRS     E.IF00   ERROR  F,PSL,(ILLEGAL IF STATEMENT -- OBJECT MISSING)                  FERRS        432     A     
 FERRS     E.IF01   ERROR  F,*,(ELSEIF EXPRESSION MUST BE LOGICAL)                         FERRS        433     A     
 FERRS     E.IF02   ERROR  A,*,(OBJECT OF IF IS ILLEGAL DO TERMINATOR)                     FERRS        434     A     
 FERRS     E.IF03   ERROR  FV,PSL,(ILLEGAL OBJECT OF IF -- TROUBLE STARTED AT FILL         FERRS        435     A     
 FERRS    ,.)                                                                              FERRS        436     A     
 FERRS     E.IF04   ERROR  T,*,(IF RESULTS IN A SIMPLE TRANSFER)                           FERRS        437     A     
 FERRS     E.IF05   ERROR  T,*,(LAST IF RESULTS IN A NULL TRANSFER TO THIS STATEME         FERRS        438     A     
 FERRS    ,NT)                                                                             FERRS        439     A     
 FERRS     E.IF06   ERROR  F,PSL,(ILLEGAL OBJECT OF LOGICAL IF)                            FERRS        440     A     
 FERRS     E.IF07   ERROR  FS,*,(3 BRANCH IF HAS FILL.3 EXPRESSION)                        FERRS        441     A     
 FERRS     E.IF08   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FC50642        4     A     
 FERRS     E.IF09   ERROR  F,IFS11,(LOGICAL IF EXPRESSION MUST BE LOGICAL)                 FERRS        442     A     
 FERRS     E.IF10   ERROR  F,PSL,(3 BRANCH IF MISSING LABEL)                               FERRS        443     A     
 FERRS     E.IF11   ERROR  F,PSL,(LOGICAL IF MUST NOT BE OBJECT OF LOGICAL IF)             FERRS        444     A     
 FERRS     E.IF12   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)                     FERRS        445     A     
 FERRS     E.IF13   ERROR  F,PSL,(ILLEGAL BLOCK IF STRUCTURE)                              FERRS        446     A     
 FERRS     E.IF14   ERROR  F,*,(ELSEIF REQUIRES THEN)                                      FERRS        447          I
          -FC51047
 FERRS     E.IF14   ERROR  FV,*,(EXPECTED THEN -- FOUND FILL.)                             FC51047        5     A     
 FERRS     E.IF15   ERROR  FS,*,(DO LOOP FILL. MUST TERMINATE WITHIN IF BLOCK)             FERRS        448     A     
 FERRS     E.IF16   ERROR  FS,*,(DO LOOP FILL. CONTAINS UNCLOSED IF BLOCK)                 FERRS        449     A     
 FERRS     E.IF17   ERROR  FS,*,(FILL. BLOCK IF(S) NOT TERMINATED)                         FERRS        450     A     
 FERRS     INT      SPACE  4,10                                                            FERRS        451     A     
 FERRS    **        INTRINSIC STATEMENT PROCESSOR                                          FERRS        452     A     
 FERRS                                                                                     FERRS        453     A     
 FERRS                                                                                     FERRS        454     A     
 FERRS     E.IN     ERROR  FV,FEC.RTN,(EXPECTED INTRINSIC FUNCTION NAME -- FOUND F         FERRS        455     A     
 FERRS    ,ILL.)                                                                           FERRS        456     A     
 FERRS     E.IN1    ERROR  FS,*,(FILL. IS NOT DEFINED AS INTRINSIC)                        FERRS        457     A     
 FERRS     E.IN2    ERROR  WS,*,(FILL. PREVIOUSLY DECLARED INTRINSIC -- IGNORED)           FERRS        458     A     
 FERRS     E.IN3    ERROR  WS,*,(FILL. PREVIOUSLY TYPED NON- CONFIRMING -- PREVIOU         FERRS        459     A     
 FERRS    ,S TYPE OVERRIDDEN)                                                              FERRS        460     A     
 FERRS     E.IN4    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.)                      FERRS        461     A     
 FERRS                                                                                     FERRS        462     A     
 FERRS                                                                                     FERRS        463     A     
 FERRS    **        INTRINSIC FUNCTION PROCESSING                                          FERRS        464     A     
 FERRS                                                                                     FERRS        465     A     
 FERRS                                                                                     FERRS        466     A     
 FERRS     E.INF    ERROR  F,*,(LOCF ARGUMENT MUST NOT BE FILL.3)                          FERRS        467     A     
 FERRS     E.INF1   ERROR  W,*,(ARGUMENT TO MASK MUST BE BETWEEN 0 AND 60)                 FC5A190        7     A     
 FERRS     E.INF2   ERROR  W,*,(SHIFT COUNT MUST BE BETWEEN -60 AND 60)                    FC5A190        8     A     
 FERRS     E.INF3   ERROR  F,*,(INTRINSIC LEN MUST NOT APPEAR IN PARAMETER CONSTAN         FC5A227       67     A     
 FERRS    ,T EXPRESSION)                                                                   FC5A227       68     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     I/O      EJECT                                                                  FERRS        468     A     
 FERRS    **        I/O PROCESSOR.                                                         FERRS        469     A     
 FERRS                                                                                     FERRS        470     A     
 FERRS                                                                                     FERRS        471     A     
 FERRS     E.IO00   ERROR  F,*,(EXTERNAL UNIT SPECIFIER NOT INTEGER EXPRESSION)            FERRS        472     A     
 FERRS     E.IO01   ERROR  F,PSL,(UNIT SPECIFIER MISSING)                                  FERRS        473     A     
 FERRS     E.IO02   ERROR  W,*,(EXTRANEOUS COMMA IGNORED)                                  FERRS        474          I
          -FC5A171A 
 FERRS     E.IO02   ERROR  F,*,(COMMA BEFORE AN I/O LIST IS ALLOWED ONLY ON SHORT          FC5A171A      11     A     
 FERRS    ,FORM READ OR PRINT STATEMENT)                                                   FC5A171A      12     A     
 FERRS     E.IO03   ERROR  F,*,(UNIT DESIGNATOR OUTSIDE RANGE 0-100)                       FERRS        475          I
          -FC5A126
 FERRS     E.IO03   ERROR  F,*,(UNIT SPECIFIER OUTSIDE RANGE 0-999)                        FC5A126       14     A     
 FERRS     E.IO04   ERROR  F,*,(IMPLIED I/O UNIT SPECIFIER NOT ALLOWED FOR THIS ST         FERRS        476     A     
 FERRS    ,ATEMENT)                                                                        FERRS        477     A     
 FERRS     E.IO05   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 MUST B         FERRS        478     A     
 FERRS    ,E TYPE FILL.3)                                                                  FERRS        479     A     
 FERRS     E.IO06   ERROR  WV,*,(EXTRA CHARACTERS FILL. AFTER UNIT SPECIFIER IGNOR         FERRS        480          I
          -FC5A220
 FERRS     E.IO06   ERROR  FV,*,(EXTRA CHARACTERS FILL. AFTER UNIT SPECIFIER IGNOR         FC5A220        4     A     
 FERRS    ,ED)                                                                             FERRS        481     A     
 FERRS     E.IO07   ERROR  FV,PSL,(EXPECTED FORMAT SPECIFIER -- FOUND FILL.)               FERRS        482     A     
 FERRS     E.IO08   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O CONTROL LIST)                    FERRS        483     A     
 FERRS     E.IO09   ERROR  WV,*,(EXPECTED COMMA AFTER I/O CONTROL -- FOUND FILL.)          FERRS        484     A     
 FERRS     E.IO10   ERROR  FS,PSL,(FILL. FILL.2 NOT I/O CONTROL KEYWORD)                   FERRS        485     A     
 FERRS     E.IO11   ERROR  FS,PSL,(FILL. FILL.2 NOT LEGAL I/O CONTROL KEYWORD FOR          FERRS        486     A     
 FERRS    ,THIS STATEMENT)                                                                 FERRS        487     A     
 FERRS     E.IO12   ERROR  FS,PSL,(FILL. FILL.2 I/O CONTROL ALREADY SPECIFIED FOR          FERRS        488     A     
 FERRS    ,THIS STATEMENT)                                                                 FERRS        489     A     
 FERRS     E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CONVERTED TO RIGHT PAR         FERRS        490     A     
 FERRS    ,EN)                                                                             FERRS        491     A     
 FERRS     E.IO14   ERROR  F,*,(IMPLIED LOOP NOT TERMINATED)                               FERRS        492     A     
 FERRS     E.IO15   ERROR  F,PSL,(END OR ERR REQUIRES STATEMENT LABEL)                     FERRS        493     A     
 FERRS     E.IO16   ERROR  FV,PSL,(SYNTAX ERROR IN I/O CONTROL LIST AT FILL.)              FERRS        494     A     
 FERRS     E.IO17   ERROR  FS,PSL,(I/O CONTROL KEYWORD FILL. FILL.2 MUST BE POSITI         FERRS        495     A     
 FERRS    ,VE INTEGER EXPRESSION)                                                          FERRS        496     A     
 FERRS     E.IO18   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 CANNOT         FERRS        497     A     
 FERRS    , BE FILL.3)                                                                     FERRS        498     A     
 FERRS     E.IO19   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)                     FERRS        499     A     
 FERRS     E.IO20   ERROR  F,PSL,(INQUIRE MUST SPECIFY UNIT OR FILE)                       FERRS        500     A     
 FERRS     E.IO21   ERROR  F,PSL,(INQUIRE CANNOT SPECIFY BOTH UNIT AND FILE)               FERRS        501     A     
 FERRS     E.IO22   ERROR  A,*,(I/O KEYWORD BUFL IS NON- ANSI)                             FERRS        502     A     
 FERRS     E.IO23   ERROR  FS,*,(INTERNAL UNIT SPECIFIER CANNOT BE FILL.3)                 FERRS        503     A     
 FERRS     E.IO24   ERROR  F,*,(INTERNAL UNIT SPECIFIER CANNOT BE ASSUMED SIZE ARR         FERRS        504     A     
 FERRS    ,AY)                                                                             FERRS        505     A     
 FERRS     E.IO25   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE FREE FORMAT)                 FERRS        506     A     
 FERRS     E.IO26   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE FREE FORMAT)                   FC5A338       11     A     
 FERRS     E.IO26   ERROR  A,*,(ANSI REQUIRES AN I/O LIST)                                 FERRS        507          I
          -FC50014
 FERRS     E.IO27   ERROR  F,PSL,(THIS STATEMENT REQUIRES AN I/O LIST)                     FERRS        508          I
          -FC50014
 FERRS     E.IO28   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE NAMELIST)                    FERRS        509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.IO29   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT SPECIFY END)                    FERRS        510     A     
 FERRS     E.IO30   ERROR  F,*,(INTERNAL UNIT SPECIFIER NOT ALLOWED FOR THIS STATE         FERRS        511     A     
 FERRS    ,MENT)                                                                           FERRS        512     A     
 FERRS     E.IO31   ERROR  F,*,(UNIT DESIGNATOR NOT LEGAL FILE NAME)                       FERRS        513          I
          -FC5A126
 FERRS     E.IO32   ERROR  F,*,(UNIT DESIGNATOR FILE NAME GREATER THAN 7 CHARACTER         FERRS        514          I
          -FC5A126
 FERRS    ,S)                                                                              FERRS        515          I
          -FC5A126
 FERRS     E.IO31   ERROR  F,*,(UNIT SPECIFIER NOT LEGAL FILE NAME)                        FC5A126       15     A     
 FERRS     E.IO32   ERROR  F,*,(UNIT SPECIFIER FILE NAME GREATER THAN 7 CHARACTERS         FC5A126       16     A     
 FERRS    ,)                                                                               FC5A126       17     A     
 FERRS     E.IO33   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE NAMELIST)                      FERRS        516     A     
 FERRS     E.IO34   ERROR  F,*,(INTERNAL FILE REQUIRES A FORMAT)                           FC5A171A      13     A     
 FERRS     E.IO35   ERROR  F,*,(INTERNAL FILE WITHOUT FORMAT OR MISSING COMMA BEFO         FC5A171A      14     A     
 FERRS    ,RE I/O LIST)                                                                    FC5A171A      15     A     
 FERRS     E.IO36   ERROR  F,*,(LENGTH OF CHARACTER FORMAT SPECIFIER MUST BE GREAT         FC5A171A      16     A     
 FERRS    ,ER THAN 1)                                                                      FC5A171A      17     A     
 FERRS     E.IO37   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FC50887        6     A     
 FERRS     BUFFER   SPACE  4,10                                                            FERRS        517     A     
 FERRS    **        BUFFER IN / OUT                                                        FERRS        518     A     
 FERRS                                                                                     FERRS        519     A     
 FERRS                                                                                     FERRS        520     A     
 FERRS     E.IOB0   ERROR  F,BUFERR,(BUFFER I/O ADDRESS CANNOT BE CHARACTER)               FERRS        521     A     
 FERRS     E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION INDICATOR MUST BE IN OR OUT)         FERRS        522          I
          -FC5A126
 FERRS     E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR MUST BE INTEGER C         FERRS        523          I
          -FC5A126
 FERRS     E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION SPECIFIER MUST BE IN OR OUT)         FC5A126       18     A     
 FERRS     E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY SPECIFIER MUST BE INTEGER C         FC5A126       19     A     
 FERRS    ,ONSTANT OR VARIABLE)                                                            FERRS        524     A     
 FERRS     E.IOB3   ERROR  FV,BUFERR,(EXPECTED LEFT PAREN -- FOUND FILL.)                  FERRS        525     A     
 FERRS     E.IOB4   ERROR  FV,BUFERR,(EXPECTED COMMA -- FOUND FILL.)                       FERRS        526     A     
 FERRS     E.IOB5   ERROR  FV,BUFERR,(EXPECTED RIGHT PAREN -- FOUND FILL.)                 FERRS        527     A     
 FERRS     E.IOB6   ERROR  F,BUFERR,(BUFFER I/O LWA MUST BE GREATER THAN OR EQUAL          FERRS        528     A     
 FERRS    ,TO FWA)                                                                         FERRS        529     A     
 FERRS     E.IOB7   ERROR  F,*,(BUFFER I/O ADDRESS CANNOT BE FILL.3)                       FERRS        530     A     
 FERRS     E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE ZER         FERRS        531     A     
 FERRS    ,O OR 1)                                                                         FERRS        532     A     
 FERRS     E.IOB9   ERROR  W,BLWA,(FWA AND LWA NOT IN SAME ARRAY , EQUIVALENCE CLA         FERRS        533     A     
 FERRS    ,SS , OR COMMON BLOCK)                                                           FERRS        534     A     
 FERRS     IODO     SPACE  4,10                                                            FERRS        535     A     
 FERRS    **        I/O IMPLIED DO                                                         FERRS        536     A     
 FERRS                                                                                     FERRS        537     A     
 FERRS                                                                                     FERRS        538     A     
 FERRS     E.IOD1   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST)                           FERRS        539     A     
 FERRS     E.IOD2   ERROR  F,PSL,(SYNTAX ERROR IN I/O IMPLIED DO)                          FERRS        540     A     
 FERRS     E.IOD3   ERROR  F,PSL,(EXCESS RIGHT PAREN IN I/O LIST)                          FERRS        541     A     
 FERRS     E.IOD4   EQUENT E.GE3       FV,FEC.RTN,(EXPECTED COMMA, FOUND FILL.)            FERRS        542     A     
 FERRS     IOLIST   SPACE  4,10                                                            FERRS        543     A     
 FERRS    **        I/O LIST                                                               FERRS        544     A     
 FERRS                                                                                     FERRS        545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS        546     A     
 FERRS     E.IOL1   ERROR  A,*,(LIST DIRECTED OUTPUT CANNOT END WITH COMMA)                FC50643        5     A     
 FERRS     E.IOL2   ERROR  F,*,(FILL.3 IN INPUT LIST IS ILLEGAL)                           FERRS        547     A     
 FERRS     E.IOL5   ERROR  F,*,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END WITH          FERRS        548     A     
 FERRS    ,A COMMA)                                                                        FERRS        549     A     
 FERRS     E.IOL6   ERROR  FS,*,(ASSUMED SIZE ARRAY FILL. NOT ALLOWED IN I/O LIST)         FERRS        550     A     
 FERRS     E.IOL7   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O LIST ITEM SUBSCRIPT)             FERRS        551     A     
 FERRS     E.IOL8   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST ITEM SUBSCRIPT)            FERRS        552     A     
 FERRS     IOFMT    SPACE  4,10                                                            FERRS        553     A     
 FERRS    **        I/O CONTROL VARIABLE FORMAT DESIGNATOR                                 FERRS        554     A     
 FERRS                                                                                     FERRS        555     A     
 FERRS                                                                                     FERRS        556     A     
 FERRS     E.IOF    ERROR  F,PSL,(ILLEGAL FORMAT DESIGNATOR)                               FERRS        557          I
          -FC5A126
 FERRS     E.IOF1   ERROR  A,*,(ANSI REQUIRES CHARACTER ARRAY)                             FERRS        558          I
          -FC5A126
 FERRS     E.IOF2   ERROR  F,PSL,(SCALAR FORMAT DESIGNATOR MUST BE INTEGER)                FERRS        559          I
          -FC5A126
 FERRS     E.IOF    ERROR  F,PSL,(ILLEGAL FORMAT SPECIFIER)                                FC5A126       20     A     
 FERRS     E.IOF1   ERROR  A,*,(CHARACTER ARRAY REQUIRED FOR FORMAT SPECIFIER)             FC5A126       21     A     
 FERRS     E.IOF2   ERROR  F,PSL,(SCALAR FORMAT SPECIFIER MUST BE INTEGER)                 FC5A126       22     A     
 FERRS     NAMELIST SPACE  4,10                                                            FERRS        560     A     
 FERRS    **        NAMELIST                                                               FERRS        561     A     
 FERRS                                                                                     FERRS        562     A     
 FERRS                                                                                     FERRS        563     A     
 FERRS     E.ION    ERROR  W,*,(I/O LIST IGNORED WHEN USING NAMELIST)                      FERRS        564     A     
 FERRS     E.ION1   ERROR  A,*,(NAMELIST I/O IS NON- ANSI)                                 FERRS        565     A     
 FERRS     XXCODE   SPACE  4,10                                                            FERRS        566     A     
 FERRS    **        ENCODE / DECODE.                                                       FERRS        567     A     
 FERRS                                                                                     FERRS        568     A     
 FERRS                                                                                     FERRS        569     A     
 FERRS     E.IOS1   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN BEFORE COUNT -- FOUND F         FERRS        570     A     
 FERRS    ,ILL.)                                                                           FERRS        571     A     
 FERRS     E.IOS2   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER  COUNT -- FOUND FILL.)         FERRS        572     A     
 FERRS     E.IOS3   ERROR  FS,FEC.RTN,(FORMAT INDICATOR FILL. IS NAMELIST NAME)            FERRS        573          I
          -FC5A126
 FERRS     E.IOS4   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER FORMAT INDICATOR -- FO         FERRS        574          I
          -FC5A126
 FERRS     E.IOS3   ERROR  FS,FEC.RTN,(FORMAT SPECIFIER FILL. IS NAMELIST NAME)            FC5A126       23     A     
 FERRS     E.IOS4   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER FORMAT SPECIFIER -- FO         FC5A126       24     A     
 FERRS    ,UND FILL.)                                                                      FERRS        575     A     
 FERRS     E.IOS5   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN AFTER STRING ADDRESS -         FERRS        576     A     
 FERRS    ,- FOUND FILL.)                                                                  FERRS        577     A     
 FERRS     E.IOS6   ERROR  F,FEC.RTN,(PREMATURE E.O.S. IN ENCODE OR DECODE)                FERRS        578     A     
 FERRS     E.IOS7   ERROR  F,*,(STRING ADDRESS CANNOT BE FILL.)                            FERRS        579     A     
 FERRS     E.IOS8   ERROR  FV,FEC.RTN,(ILLEGAL FORMAT DESIGNATOR FILL.)                    FERRS        580          I
          -FC5A126
 FERRS     E.IOS8   ERROR  FV,FEC.RTN,(ILLEGAL FORMAT SPECIFIER FILL.)                     FC5A126       25     A     
 FERRS     E.IOS9   ERROR  F,FEC.RTN,(ILLEGAL CHARACTER COUNT)                             FERRS        581     A     
 FERRS     E.IOS10  ERROR  F,FEC.RTN,(STRING ADDRESS CANNOT BE CHARACTER)                  FERRS        582     A     
 FERRS     PARENS   EJECT                                                                  FERRS        583     A     
 FERRS    **        PARENTHESIS MIS-MATCH.                                                 FERRS        584     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS        585     A     
 FERRS                                                                                     FERRS        586     A     
 FERRS     E.LP1    ERROR  FV,*,(TOO FEW RIGHT PAREN OR PREVIOUS SYNTAX ERROR -- S         FERRS        587     A     
 FERRS    ,CAN STOPPED AT FILL.)                                                           FERRS        588     A     
 FERRS     E.LP2    ERROR  FV,*,(TOO FEW LEFT PAREN OR PREVIOUS SYNTAX ERROR -- SC         FERRS        589     A     
 FERRS    ,AN STOPPED AT FILL.)                                                            FERRS        590     A     
 FERRS     E.LP3    ERROR  FV,*,(EXPRESSION TOO COMPLICATED -- SCAN STOPPED AT ___         FERRS        591     A     
 FERRS    ,FILL.)                                                                          FERRS        592     A     
 FERRS     CPMLOOP  SPACE  4,30                                                            FERRS        593     A     
 FERRS    **        LEVEL PROCESSING                                                       FERRS        594     A     
 FERRS                                                                                     FERRS        595     A     
 FERRS                                                                                     FERRS        596     A     
 FERRS     E.LV1    ERROR  F,FEC.RTN,(INTEGER 0, 1 , 2 OR 3 MUST FOLLOW LEVEL)             FERRS        597     A     
 FERRS     E.LV2    ERROR  W,*,(COMMA MUST FOLLOW LEVEL NUMBER)                            FERRS        598     A     
 FERRS     E.LV3    ERROR  F,FEC.RTN,(MISSING NAME IN LEVEL LIST)                          FERRS        599     A     
 FERRS     E.LV4    ERROR  WS,LVL90,(MULTIPLY DEFINED LEVEL FOR NAME FILL. -- IGNO         FERRS        600     A     
 FERRS    ,RED)                                                                            FERRS        601     A     
 FERRS     E.LV5    ERROR  F,FEC.RTN,(COMMA OR E.O.S. MUST FOLLOW LEVEL LIST NAME)         FERRS        602     A     
 FERRS     E.LV6    ERROR  FS,*,(NON- DUMMY ARGUMENT FILL. CANNOT BE LEVELED)              FERRS        603     A     
 FERRS     E.LV7    ERROR  WS,LVL80,(MULTIPLY DEFINED LEVEL FOR COMMON BLOCK NAME          FERRS        604     A     
 FERRS    ,FILL. -- IGNORED)                                                               FERRS        605     A     
 FERRS     E.LV8    ERROR  FS,LVL80,(COMMON BLOCK FILL. CANNOT BE DECLARED LEVEL 0         FERRS        606     A     
 FERRS    ,)                                                                               FERRS        607     A     
 FERRS     E.LV9    ERROR  FS,*,(ILLEGAL EXPLICIT LEVEL DECLARATION FOR COMMON MEM         FERRS        608     A     
 FERRS    ,BER NAME FILL.)                                                                 FERRS        609     A     
 FERRS     E.LV11   ERROR  FS,*,(LEVEL 3 NAME FILL. MAY NOT OCCUR IN THIS STATEMEN         FERRS        610     A     
 FERRS    ,T)                                                                              FERRS        611     A     
 FERRS     FRONT    EJECT                                                                  FERRS        612     A     
 FERRS    **        FRONT END CONTROLLER.                                                  FERRS        613     A     
 FERRS                                                                                     FERRS        614     A     
 FERRS                                                                                     FERRS        615     A     
 FERRS     E.FM     ERROR  F,FEC.RTN,(THIS IS NOT A FORTRAN STATEMENT)                     FERRS        616     A     
 FERRS     E.MA     ERROR  F,FEC.RTN,(STATEMENT FUNCTION DEFINITION MUST OCCUR BEF         FERRS        617     A     
 FERRS    ,ORE FIRST EXECUTABLE)                                                           FERRS        618     A     
 FERRS     E.MB     ERROR  F,*,(EXECUTABLE STATEMENT ILLEGAL IN BLOCK DATA SUBPROG         FERRS        619     A     
 FERRS    ,RAM)                                                                            FERRS        620     A     
 FERRS     E.MCA    ERROR  F,*,(ONLY "ANS.CONT" CONTINUATION LINES ARE PERMITTED)          FERRS        621     A     
 FERRS     E.INI    ERROR  W,*,(THIS STATEMENT HAS NO INITIAL LINE -- INITIAL_____         FERRS        622     A     
 FERRS    , ASSUMED)                                                                       FERRS        623     A     
 FERRS     E.TLBL   ERROR  W,*,(TRASH IN LABEL FIELD IGNORED)                              FERRS        624          I
          -FC5A126
 FERRS     E.TLBL   ERROR  W,*,(NON- NULL LABEL FIELD ON CONTINUATION LINE)                FC5A126       26          I
          -FC5A220
 FERRS     E.TLBL   ERROR  F,*,(NON- NULL LABEL FIELD ON CONTINUATION LINE)                FC5A220        5     A     
 FERRS                                                                                     FERRS        625     A     
 FERRS     E.MD     ERROR  FS,FEC.RTN,(STATEMENT MISPLACED)                                FERRS        626     A     
 FERRS     E.MDO    ERROR  F,*,(THIS STATEMENT MAY NOT BE A DO TERMINAL)                   FERRS        627     A     
 FERRS     E.ME     ERROR  F,END23,(END LINE ABSENT)                                       FERRS        628     A     
 FERRS     E.ME1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        629     A     
 FERRS     E.MH     ERROR  F,FEC.RTN,(HEADER CARD NOT FIRST STATEMENT -- IGNORED)          FERRS        630     A     
 FERRS     E.MI     ERROR  F,FEC.RTN,(IMPLICIT STATEMENT MUST OCCUR BEFORE DECLARA         FERRS        631     A     
 FERRS    ,TIVE STATEMENTS)                                                                FERRS        632     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.MR1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. OR MISSING RIGHT PAREN)             FERRS        633     A     
 FERRS     E.MR2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. OR EXTRA TRAILING SEPARATO         FERRS        634     A     
 FERRS    ,R FILL.)                                                                        FERRS        635     A     
 FERRS     E.MR3    ERROR  F,FEC.RTN,(PREMATURE E.O.S.)                                    FERRS        636     A     
 FERRS     E.MS     ERROR  FS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED)         FERRS        637     A     
 FERRS                                                                                     FERRS        638     A     
 FERRS     E.NP     ERROR  T,*,(NO PATH TO THIS STATEMENT)                                 FERRS        639     A     
 FERRS     E.NP1    ERROR  T,PSL,(NO PATH TO THE ENTIRE RANGE OF DO)                       FERRS        640     A     
 FERRS                                                                                     FERRS        641     A     
 FERRS     E.OV     ERROR  W,FEC.RTN,(NULL LOADER DIRECTIVE IS IGNORED)                    FERRS        642          I
          -F1037F5
 FERRS     E.OV1    ERROR  F,FEC.RTN,(LOADER DIRECTIVE MUST BEGIN WITH LEFT PAREN)         FERRS        643          I
          -F1037F5
 FERRS     E.OV1    ERROR  F,FEC.RTN,(OVERLAY DIRECTIVE MUST BEGIN WITH LEFT PAREN         F1037F5      321     A     
 FERRS    ,)                                                                               F1037F5      322     A     
 FERRS     E.OV2    ERROR  FV,*,(EXPECTED LEFT PAREN OR PERIOD -- FOUND FILL.)             F1037F5      323     A     
 FERRS     E.OV3    ERROR  F,FEC.RTN,(THIS STATEMENT MUST BE CONTAINED ON 1 CARD)          FERRS        644     A     
 FERRS     E.OV4    ERROR  F,*,(OVCAP DIRECTIVE CAN APPEAR ONLY WITH SUBROUTINES H         F1037F5      324          I
          -FC50409
 FERRS    ,AVING NO ARGUMENTS)                                                             F1037F5      325          I
          -FC50409
 FERRS     E.OV4    ERROR  F,*,(OVCAP DIRECTIVE CAN APPEAR ONLY WITH SUBROUTINES)          FC50409        5     A     
 FERRS                                                                                     FERRS        645     A     
 FERRS     E.PN1    ERROR  F,*,(SYNTAX ERROR IN PROGRAM UNIT NAME)                         FERRS        646     A     
 FERRS     E.PN3    ERROR  T,*,(MISSING PROGRAM STATEMENT -- PROGRAM START. ASSUME         FERRS        647     A     
 FERRS    ,D)                                                                              FERRS        648     A     
 FERRS     E.SEQ    ERROR  F,*,(SEQUENCE NUMBER OUT OF ORDER)                              FC50096       37     A     
 FERRS     E.STO    ERROR  K,*,(SYMBOL TABLE OVERFLOW - REDUCE NUMBER OF SYMBOLS)          FC51347       18     A     
 FERRS    *CALL     COMFERR            COMMON FRONT/REAR DIAGNOSTICS                       FERRS        649     A     
 FERRS              TITLE  ERROR MESSAGE TEXTS.                                            FERRS        650     A     
 FERRS     MDERR    SPACE  4,10                                                            F1037F5      326     A     
 FERRS    **        ASSORTED MACHINE DEPENDENT ERRORS.                                     F1037F5      327     A     
 FERRS                                                                                     F1037F5      328     A     
 FERRS     E.MDE1   ERROR  M,*,(OVERLAYS ARE MACHINE DEPENDENT)                            F1037F5      329     A     
 FERRS     E.MDE2   ERROR  M,*,(BOOLEAN DATA TYPE IS MACHINE DEPENDENT)                    F1037F5      330     A     
 FERRS     E.MDE3   ERROR  M,*,(BUFFER I/O IS MACHINE DEPENDENT)                           F1037F5      331     A     
 FERRS     E.MDE4   ERROR  M,*,(ENCODE/DECODE ARE MACHINE DEPENDENT)                       F1037F5      332     A     
 FERRS     E.MDE5   ERROR  M,*,(LIBRARY FUNCTIONS DATE, TIME, AND CLOCK ARE MACHIN         F1037F5      333     A     
 FERRS    ,E DEPENDENT)                                                                    F1037F5      334     A     
 FERRS     E.MDE6   ERROR  M,*,(OVCAPS ARE MACHINE DEPENDENT)                              F1037F5      335     A     
 FERRS     NAMELIST SPACE  4,10                                                            FERRS        651     A     
 FERRS    **        NAMELIST PROCESSING.                                                   FERRS        652     A     
 FERRS                                                                                     FERRS        653     A     
 FERRS                                                                                     FERRS        654     A     
 FERRS     E.NL     ERROR  F,FEC.RTN,(SYNTAX ERROR IN NAMELIST)                            FERRS        655     A     
 FERRS     E.NL1    ERROR  F,FEC.RTN,(MISSING SLASH ON GROUP NAME)                         FERRS        656     A     
 FERRS     E.NL2    ERROR  FV,FEC.RTN,(EXPECTED NAME -- FOUND FILL.)                       FERRS        657     A     
 FERRS     E.NL3    ERROR  FS,FEC.RTN,(GROUP NAME FILL. PREVIOUSLY DEFINED)                FERRS        658     A     
 FERRS     E.NL4    ERROR  F,FEC.RTN,(ASSUMED SIZE ARRAY NOT PERMITTED IN NAMELIST         FERRS        659     A     
 FERRS    ,)                                                                               FERRS        660     A     
 FERRS     E.NL5    ERROR  FV,FEC.RTN,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SC         FC51193       10     A     
 FERRS    ,AN STOPPED)                                                                     FC51193       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     PARAM    SPACE  4,10                                                            FERRS        661     A     
 FERRS    **        PARAMETER AND CONSTANT EXPRESSIONS.                                    FERRS        662     A     
 FERRS                                                                                     FERRS        663     A     
 FERRS                                                                                     FERRS        664     A     
 FERRS     E.PX1    ERROR  FV,*,(FILL. MUST BE INTEGER CONSTANT EXPRESSION)                FERRS        665     A     
 FERRS     E.PX2    ERROR  WV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)                       FERRS        666     A     
 FERRS     E.PX3    ERROR  FV,PRMERR,(EXPECTED NAME -- FOUND FILL.)                        FERRS        667     A     
 FERRS     E.PX4    ERROR  FV,PRMERR,(EXPECTED EQUAL SIGN -- FOUND FILL.)                  FERRS        668     A     
 FERRS     E.PX5    EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)           FERRS        669     A     
 FERRS     E.PX6    ERROR  FV,*,(THIS EXPRESSION MUST BE CONSTANT FILL.)                   FERRS        670          I
          -FC5A184
 FERRS     E.PX6    ERROR  FV,*,(FILL. EXPRESSION NOT CONSTANT, OR NOT EVALUATABLE         FC5A184       36     A     
 FERRS    ,)                                                                               FC5A218       33     A     
 FERRS     E.PX7    ERROR  F,*,(PARAMETER REQUIRES INTEGER EXPONENTIATION)                 FC5A156        8     A     
 FERRS     E.PX8    EQUENT E.GE6       FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)         FC5A278        7     A     
 FERRS     SAVE     SPACE  4,10                                                            FERRS        671     A     
 FERRS    **        SAVE PROCESSOR                                                         FERRS        672     A     
 FERRS                                                                                     FERRS        673     A     
 FERRS                                                                                     FERRS        674     A     
 FERRS     E.SA     ERROR  W,*,(UNIVERSAL SAVE DECLARED -- OTHER SAVE STATEMENTS A         FERRS        675     A     
 FERRS    ,RE REDUNDANT)                                                                   FERRS        676     A     
 FERRS     E.SA1    ERROR  FV,SAVERR,(EXPECTED VARIABLE OR COMMON BLOCK NAME -- FO         FERRS        677     A     
 FERRS    ,UND FILL.)                                                                      FERRS        678     A     
 FERRS     E.SA2    ERROR  WS,*,(FILL. REDUNDANTLY DECLARED IN SAVE)                       FERRS        679     A     
 FERRS     E.SA3    ERROR  FV,SAVERR,(EXPECTED SLASH -- FOUND FILL.)                       FERRS        680     A     
 FERRS     E.SA4    ERROR  FV,SAVERR,(EXPECTED COMMA -- FOUND FILL.)                       FERRS        681     A     
 FERRS     E.SA5    ERROR  FS,*,(DUMMY ARGUMENT FILL. MAY NOT APPEAR IN SAVE)              FERRS        682     A     
 FERRS     E.SA6    ERROR  FS,*,(COMMON ELEMENT FILL. MAY NOT APPEAR IN SAVE)              FERRS        683     A     
 FERRS     SUBSPT   EJECT                                                                  FERRS        684     A     
 FERRS    **        SUBSCRIPT PROCESSOR.                                                   FERRS        685     A     
 FERRS                                                                                     FERRS        686     A     
 FERRS                                                                                     FERRS        687     A     
 FERRS     E.SB2    ERROR  FS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT A NUMERIC TYPE)          FERRS        688     A     
 FERRS     E.SB3    ERROR  AS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT TYPE INTEGER)            FERRS        689     A     
 FERRS     E.SB4    ERROR  FS,*,(MAGNITUDE OF SUBSCRIPT FILL.2 OF FILL. EXCEEDS __         FERRS        690     A     
 FERRS    ,"MAX.SPAN")                                                                     FERRS        691     A     
 FERRS     E.SB5    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES LOWER ________         FERRS        692     A     
 FERRS    ,DIMENSION BOUND)                                                                FERRS        693     A     
 FERRS     E.SB6    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES UPPER ________         FERRS        694     A     
 FERRS    ,DIMENSION BOUND)                                                                FERRS        695     A     
 FERRS     E.SB7    ERROR  FS,*,(ARRAY FILL. SUBSCRIPT COUNT DOES NOT MATCH DIMENS         FERRS        696     A     
 FERRS    ,ION COUNT)                                                                      FERRS        697     A     
 FERRS     STMTF    EJECT                                                                  FERRS        698     A     
 FERRS    **        STATEMENT FUNCTION PROCESSOR                                           FERRS        699          I
          -FC5A300
 FERRS    **        STATEMENT FUNCTION PROCESSOR / STATEMENT FUNCTION EXPANSION            FC5A300        8     A     
 FERRS                                                                                     FERRS        700     A     
 FERRS                                                                                     FERRS        701     A     
 FERRS     E.SF00   EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)           FERRS        702     A     
 FERRS     E.SF01   ERROR  FS,FEC.RTN,(STATEMENT FUNCTION FILL. -- MISPLACED EQUAL         FERRS        703          I
          -FC5A300
 FERRS    , SIGN)                                                                          FERRS        704          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
          -FC5A300
 FERRS     E.SF02   ERROR  WS,FEC.RTN,(STATEMENT FUNCTION FILL. HAS NULL DEFINITIO         FERRS        705          I
          -FC5A300
 FERRS    ,N -- IGNORED)                                                                   FERRS        706          I
          -FC5A300
 FERRS     E.SF03   ERROR  FS,SFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI         FERRS        707          I
          -FC5A300
 FERRS    ,LL.)                                                                            FERRS        708          I
          -FC5A300
 FERRS     E.SF04   ERROR  TS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION         FERRS        709          I
          -FC5A300
 FERRS    , FILL.)                                                                         FERRS        710          I
          -FC5A300
 FERRS     E.SF05   ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL         FERRS        711          I
          -FC5A300
 FERRS    ,. DEFINITION)                                                                   FERRS        712          I
          -FC5A300
 FERRS     E.SF01   ERROR  FS,FEC.RTN,(STATEMENT FUNCTION FILL.3 -- MISPLACED EQUA         FC5A300        9     A     
 FERRS    ,L SIGN)                                                                         FC5A300       10     A     
 FERRS     E.SF02   ERROR  WS,FEC.RTN,(STATEMENT FUNCTION FILL.3 HAS NULL DEFINITI         FC5A300       11     A     
 FERRS    ,ON -- IGNORED)                                                                  FC5A300       12     A     
 FERRS     E.SF03   ERROR  FS,SFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI         FC5A300       13     A     
 FERRS    ,LL.3)                                                                           FC5A300       14     A     
 FERRS     E.SF04   ERROR  TS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION         FC5A300       15     A     
 FERRS    , FILL.3)                                                                        FC5A300       16     A     
 FERRS     E.SF05   ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL         FC5A300       17     A     
 FERRS    ,.3 DEFINITION)                                                                  FC5A300       18     A     
 FERRS     E.SF06   ERROR  FV,FEC.RTN,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NO         FERRS        713          I
          -FC5A192
 FERRS    ,T SIMPLE VARIABLE)                                                              FERRS        714          I
          -FC5A192
 FERRS     E.SF06   ERROR  FV,*,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NOT SIMP         FC5A192       37     A     
 FERRS    ,LE VARIABLE)                                                                    FC5A192       38     A     
 FERRS     E.SF07   ERROR  WS,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. I         FERRS        715     A     
 FERRS    ,S OVERRIDDEN)                                                                   FERRS        716     A     
 FERRS     E.SF08   ERROR  FS,FEC.RTN,(USAGE CONFLICT -- FILL. CANNOT BE STATEMENT         FERRS        717          I
          -FC5A300
 FERRS    , FUNCTION)                                                                      FERRS        718          I
          -FC5A300
 FERRS                                                                                     FERRS        719          I
          -FC5A300
 FERRS    *         STATEMENT FUNCTION EXPANSION ERRORS.                                   FERRS        720          I
          -FC5A300
 FERRS                                                                                     FERRS        721          I
          -FC5A300
 FERRS     E.SF08   ERROR  FS,FEC.RTN,(USAGE CONFLICT -- FILL.3 CANNOT BE STATEMEN         FC5A300       19     A     
 FERRS    ,T FUNCTION)                                                                     FC5A300       20     A     
 FERRS     E.SF09   ERROR  FS,*,(UNMATCHED PARAMETER COUNT TO STATEMENT FUNCTION F         FERRS        722     A     
 FERRS    ,ILL.)                                                                           FERRS        723     A     
 FERRS     E.SF10   ERROR  FS,*,(STATEMENT FUNCTION FILL. INDIRECTLY REFERENCES IT         FERRS        724     A     
 FERRS    ,SELF)                                                                           FERRS        725     A     
 FERRS     E.SF11   ERROR  AS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B         FERRS        726     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    ,E AN ARRAY)                                                                     FERRS        727     A     
 FERRS     E.SF12   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 MUST BE          FC50106        6     A     
 FERRS    ,USED AS SIMPLE VARIABLE)                                                        FC50106        7     A     
 FERRS     E.SF13   ERROR  A,*,(STATEMENT FUNCTION ACTUAL ARGUMENT MUST AGREE IN T         FC50148        6     A     
 FERRS    ,YPE WITH DUMMY ARGUMENT)                                                        FC50148        7     A     
 FERRS     E.SF14   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B         FC5A300       21     A     
 FERRS    ,E ASSUMED LENGTH)                                                               FC5A300       22     A     
 FERRS     E.SF15   ERROR  FS,*,(STATEMENT FUNCTION FILL. OF TYPE FILL.3 CANNOT AC         FC50474        6     A     
 FERRS    ,CEPT RESULT OF TYPE FILL.2)                                                     FC50474        7     A     
 FERRS     ST.LAB   EJECT                                                                  FERRS        728     A     
 FERRS    **        STATEMENT LABEL PROCESSOR.                                             FERRS        729     A     
 FERRS                                                                                     FERRS        730     A     
 FERRS                                                                                     FERRS        731     A     
 FERRS     E.SL00   ERROR  FS,*,(MULTIPLY DEFINED STATEMENT LABEL FILL.)                   FERRS        732     A     
 FERRS     E.SL01   ERROR  FS,*,(PREVIOUS REFERENCE TO LABEL FILL. WAS ILLEGAL)            FERRS        733     A     
 FERRS     E.SL02   ERROR  FS,*,(DO LOOP FILL.2 PREVIOUSLY DEFINED -- ILLEGAL NEST         FERRS        734     A     
 FERRS    ,ING)                                                                            FERRS        735     A     
 FERRS     E.SL03   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS DO         FERRS        736     A     
 FERRS    , TERMINAL)                                                                      FERRS        737     A     
 FERRS     E.SL04   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS FO         FERRS        738     A     
 FERRS    ,RMAT)                                                                           FERRS        739     A     
 FERRS     E.SL05   ERROR  FS,*,(ILLEGAL TRANSFER TO FILL.2 FORMAT)                        FERRS        740     A     
 FERRS     E.SL06   ERROR  FS,*,(ILLEGAL REFERENCE TO STATEMENT LABEL FILL. AS A F         FERRS        741     A     
 FERRS    ,ORMAT)                                                                          FERRS        742     A     
 FERRS     E.SL07   ERROR  FS,*,(PREVIOUS REFERENCE TO DO LABEL FILL.2 IS ILLEGAL)         FERRS        743     A     
 FERRS     E.SL08   ERROR  FS,*,(PREVIOUS REFERENCE TO FORMAT LABEL FILL.2 IS ILLE         FERRS        744     A     
 FERRS    ,GAL)                                                                            FERRS        745     A     
 FERRS     E.SL09   ERROR  FS,*,(FILL.2 -- ILLEGAL TRANSFER TO INSIDE A CLOSED DO          FERRS        746     A     
 FERRS    ,LOOP OR IF BLOCK)                                                               FERRS        747     A     
 FERRS     E.SL10   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS DO STATEMENT         FERRS        748     A     
 FERRS    , LABEL)                                                                         FERRS        749     A     
 FERRS     E.SL11   ERROR  FS,*,(ILLEGAL REFERENCE TO LABEL FILL.2 DEFINED ON NON-         FERRS        750     A     
 FERRS    , EXECUTABLE STATEMENT)                                                          FERRS        751     A     
 FERRS     E.SL12   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS CONTROL STAT         FERRS        752     A     
 FERRS    ,EMENT LABEL)                                                                    FERRS        753     A     
 FERRS     E.SL13   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS A FORM         FERRS        754     A     
 FERRS    ,AT LABEL)                                                                       FERRS        755     A     
 FERRS     E.SL14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS 5 DIGITS)                   FERRS        756     A     
 FERRS     E.SL15   ERROR  FS,*,(STATEMENT LABEL FILL. CONTAINS NON- DIGIT)                FERRS        757     A     
 FERRS     E.SL16   ERROR  F,*,(MULTIPLE DEFINITION OF CURRENT FORMAT LABEL)               FERRS        758     A     
 FERRS     E.SL17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEEDED THE         FERRS        759     A     
 FERRS    , DO DEFINITION)                                                                 FERRS        760     A     
 FERRS     E.SL18   ERROR  F,PSL,(STATEMENT LABEL EXPECTED BUT NOT FOUND)                  FERRS        761     A     
 FERRS     E.SL19   ERROR  F,*,(STATEMENT LABEL ZERO IS ILLEGAL)                           FERRS        762          I
          -FC5A168A 
 FERRS     E.SL19   ERROR  F,*,(INVALID STATEMENT LABEL)                                   FC5A168A       4     A     
 FERRS     E.SL20   ERROR  WS,*,(FILL.2 -- ALTERNATE RETURN TO INSIDE A CLOSED DO          FC51356       13     A     
 FERRS    ,LOOP OR IF BLOCK)                                                               FC51356       14     A     
 FERRS     E.SL20   ERROR  W,*,(STATEMENT LABEL ZERO IGNORED)                              FERRS        763          I
          -FC5A126
 FERRS     SUBSTR   SPACE  4,10                                                            FERRS        764     A     
 FERRS    **        SUBSTRING EXPRESSION PROCESSING.                                       FERRS        765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS        766     A     
 FERRS                                                                                     FERRS        767     A     
 FERRS     E.ST     ERROR  FS,*,(SYNTAX ERROR IN SUBSTRING EXPRESSION FOR FILL.)           FERRS        768     A     
 FERRS     E.ST1    ERROR  FS,*,(SUBSTRINGED VARIABLE FILL. NOT TYPE CHARACTER)            FERRS        769     A     
 FERRS     STOP     SPACE  4,10                                                            FERRS        770     A     
 FERRS    **        STOP / PAUSE / RETURN PROCESSING.                                      FERRS        771     A     
 FERRS                                                                                     FERRS        772     A     
 FERRS                                                                                     FERRS        773     A     
 FERRS     E.SPR1   ERROR  W,*,(UNKNOWN FORM -- BLANK ASSUMED)                             FERRS        774     A     
 FERRS     E.SPR2   ERROR  W,*,(CONSTANT EXCEEDS 5 DIGITS -- TRUNCATED)                    FERRS        775     A     
 FERRS     E.SPR3   ERROR  A,PSL,(PAUSE MAY NOT BE A DO TERMINAL)                          FERRS        776          I
          -FC5A126
 FERRS     E.SPR4   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        777     A     
 FERRS     E.SPR5   ERROR  F,*,(ALTERNATE RETURN IS ILLEGAL IN A FUNCTION)                 FERRS        778     A     
 FERRS     SUBREF   SPACE  4,20                                                            FERRS        779     A     
 FERRS    **        SUBROUTINE/FUNCTION REFERENCE PROCESSING.                              FERRS        780     A     
 FERRS                                                                                     FERRS        781     A     
 FERRS                                                                                     FERRS        782     A     
 FERRS     E.SU01   ERROR  F,*,(CONCATENATION OF ASSUMED LENGTH VARIABLE NOT ALLOW         FERRS        783     A     
 FERRS    ,ED HERE)                                                                        FERRS        784     A     
 FERRS     E.SU02   ERROR  WS,*,(NUMBER OF ARGUMENTS IN REFERENCE TO FILL. IS NOT          FERRS        785     A     
 FERRS    ,CONSISTENT)                                                                     FERRS        786     A     
 FERRS     E.SU03   ERROR  FS,*,(ARGUMENT MODE MUST AGREE WITH TYPE DEFINED FOR LI         FERRS        787     A     
 FERRS    ,BRARY FUNCTION FILL.)                                                           FERRS        788     A     
 FERRS     E.SU04   ERROR  AS,*,(FILL. IS DEFINED TO BE INTRINSIC)                         FERRS        789     A     
 FERRS     E.SU05   ERROR  FS,*,(ARGUMENT COUNT ON INTRINSIC FILL. IS WRONG)               FERRS        790     A     
 FERRS     E.SU06   ERROR  FS,*,(FUNCTION NAME OR ENTRY OF TYPE FILL. WAS NOT ASSI         FERRS        791     A     
 FERRS    ,GNED A VALUE)                                                                   FERRS        792     A     
 FERRS     E.SU07   ERROR  FS,*,(ARGUMENT MODE ILLEGAL FOR GENERIC FUNCTION FILL.)         FERRS        793     A     
 FERRS     E.SU08   ERROR  FS,*,(ARGUMENT COUNT ON FILL. EXCEEDS "MAX.SARG")               FERRS        794     A     
 FERRS     E.SU09   ERROR  FS,*,(ARGUMENT COUNT ON FILL. MUST BE MORE THAN ONE)            FERRS        795     A     
 FERRS     E.SU10   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)         FERRS        796          I
          -FC50966
 FERRS     E.SU10   ERROR  FV,*,(EXPECTED EOS -- FOUND FILL.)                              FC50966        5     A     
 FERRS     E.SU11   EQUENT E.SPR5      F,*,(ALTERNATE RETURN ILLEGAL IN FUNC.)             FERRS        797     A     
 FERRS     TYPE     EJECT                                                                  FERRS        798     A     
 FERRS    **        TYPE PROCESSOR.                                                        FERRS        799     A     
 FERRS    *                                                                                FERRS        800     A     
 FERRS    *         EXPLICIT DECLARATIONS                                                  FERRS        801     A     
 FERRS                                                                                     FERRS        802     A     
 FERRS                                                                                     FERRS        803     A     
 FERRS     E.TY     EQUENT E.GE1             FV,*,(EXPECTED COMMA FOUND FILL.)             FERRS        804     A     
 FERRS     E.TY0    ERROR  WS,*,(SUBROUTINE FILL. CANNOT BE TYPED -- TYPING IGNORE         FC5A338       12     A     
 FERRS    ,D)                                                                              FC5A338       13     A     
 FERRS     E.TY1    ERROR  WS,*,(TYPING OF FILL. IGNORED -- PRIOR TYPING RETAINED)         FERRS        805          I
          -FC50972
 FERRS     E.TY1    ERROR  TS,*,(CONFIRMING RETYPING OF FILL. -- IGNORED)                  FC50972        8     A     
 FERRS     E.TY2    ERROR  WS,*,(INTRINSIC FILL. TYPED NON- CONFIRMING -- TYPE IGN         FERRS        806          I
          -FC5A227
 FERRS    ,ORED)                                                                           FERRS        807          I
          -FC5A227
 FERRS     E.TY2    ERROR  WS,*,(INTRINSIC FILL. TYPED NON- CONFIRMING -- TYPING I         FC5A227       69     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    ,GNORED)                                                                         FC5A227       70     A     
 FERRS     E.TY3    ERROR  F,*,(CHARACTER LENGTH MUST BE POSITIVE INTEGER CONSTANT         FERRS        808          I
          -FC5A262
 FERRS    , EXPRESSION)                                                                    FERRS        809          I
          -FC5A262
 FERRS     E.TY3    ERROR  F,*,(CHAR LENGTH NOT POSITIVE CONSTANT, ( POSITIVE CONS         FC5A262       19     A     
 FERRS    ,TANT EXPRESSION ) OR ( * ) )                                                    FC5A262       20     A     
 FERRS     E.TY4    ERROR  F,*,(CHARACTER LENGTH GREATER THAN "MAX.CL")                    FERRS        810     A     
 FERRS     E.TY5    ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.)                FERRS        811     A     
 FERRS     E.TY6    ERROR  F,*,(CHARACTER LENGTH ZERO ILLEGAL)                             FERRS        812     A     
 FERRS     E.TY7    ERROR  FS,*,(FILL. CANT HAVE ASSUMED CHARACTER LENGTH)                 FERRS        813          I
          -FC5A126
 FERRS     E.TY7    ERROR  FS,*,(FILL. CANNOT HAVE ASSUMED CHARACTER LENGTH)               FC5A126       27     A     
 FERRS     E.TY8    ERROR  FS,*,(PARAMETER FILL. TYPE OR CHARACTER LENGTH CANNOT B         FC5A225       10     A     
 FERRS    ,E MODIFIED AFTER PARAMETER STATEMENT)                                           FC5A225       11     A     
 FERRS     E.TY9    ERROR  WS,*,(GENERIC ONLY INTRINSIC FILL. TYPED -- TYPING INGN         FC5A227       71     A     
 FERRS    ,ORED)                                                                           FC5A227       72     A     
 FERRS     E.TY10   ERROR  FS,*,(NON- CONFIRMING RETYPING OF FILL.)                        FC50972        9     A     
 FERRS                                                                                     FERRS        814     A     
 FERRS    *         IMPLICIT DECLARATIONS                                                  FERRS        815     A     
 FERRS                                                                                     FERRS        816     A     
 FERRS     E.TYI    ERROR  F,FEC.RTN,(IMPLICIT MUST BE FOLLOWED BY A TYPE INDICATO         FERRS        817     A     
 FERRS    ,R)                                                                              FERRS        818     A     
 FERRS     E.TYI1   ERROR  FV,IMP.ER,(EXPECTED LEFT PAREN -- FOUND FILL.)                  FERRS        819     A     
 FERRS     E.TYI2   ERROR  FV,IMP.ER,(EXPECTED RANGE INDICATOR -- FOUND FILL.)             FERRS        820     A     
 FERRS     E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT 1 LETTER -- TRUNCATED T         FERRS        821     A     
 FERRS    ,O FILL.3)                                                                       FERRS        822     A     
 FERRS     E.TYI4   ERROR  FS,*,(ILLEGAL RANGE -- FILL.2 NOT LESS THAN FILL. -- TR         FERRS        823     A     
 FERRS    ,UNCATED)                                                                        FERRS        824     A     
 FERRS     E.TYI5   ERROR  WS,*,(TRIVIAL RANGE -- FILL.2 SAME AS FILL.)                    FERRS        825     A     
 FERRS     E.TYI6   ERROR  FV,IMP.ER,(EXPECTED RIGHT PAREN -- FOUND FILL.)                 FERRS        826     A     
 FERRS     E.TYI7   ERROR  FV,IMP.ER,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)          FERRS        827     A     
 FERRS     E.TYI8   ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST RETAINED)             FERRS        828     A     
 FERRS     E.TYI9   ERROR  F,*,(ASSUMED CHARACTER LENGTH ILLEGAL FOR IMPLICIT)             FERRS        829     A     
 FERRS     VARIABLE EJECT                                                                  FERRS        830     A     
 FERRS    **        TRANSLATION OF VARIABLE SECTION.                                       FERRS        831     A     
 FERRS                                                                                     FERRS        832     A     
 FERRS                                                                                     FERRS        833     A     
 FERRS     E.VA00   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2         FERRS        834          I
          -FC5A184
 FERRS    ,)                                                                               FERRS        835          I
          -FC5A184
 FERRS     E.VA00   EQUENT E.GE5             (USEAGE CONFLICT ...)                         FC5A184       37     A     
 FERRS     E.VA01   ERROR  FS,*,(ILLEGAL USE OF ENTRY FILL.)                               FERRS        836     A     
 FERRS     E.VA02   ERROR  FS,*,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT BE F         FERRS        837     A     
 FERRS    ,ILL.3)                                                                          FERRS        838     A     
 FERRS     E.VA03   ERROR  FS,*,(REFERENCE TO VARIABLE FILL. AS A FUNCTION OR ARRA         FERRS        839     A     
 FERRS    ,Y)                                                                              FERRS        840     A     
 FERRS     E.VA04   ERROR  FS,*,(REFERENCE TO FUNCTION FILL. REQUIRES AN ARGUMENT          FERRS        841          I
          -FC5A164
 FERRS     E.VA04   ERROR  FS,*,(REFERENCE TO EXTERNAL FILL. REQUIRES AN ARGUMENT          FC5A164       43     A     
 FERRS    ,LIST)                                                                           FERRS        842     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS     E.VA05   ERROR  FS,*,(UNDECLARED INTRINSIC OR EXTERNAL FUNCTION FILL. _         FERRS        843     A     
 FERRS    ,USED AS ACTUAL ARGUMENT)                                                        FERRS        844     A     
 FERRS     E.VA06   ERROR  FS,*,(INTRINSIC FUNCTION FILL. NOT ALLOWED AS ACTUAL __         FERRS        845     A     
 FERRS    ,ARGUMENT)                                                                       FERRS        846     A     
 FERRS     E.VA07   ERROR  FS,*,(SUBROUTINE FILL. REFERENCE AS A FUNCTION)                 FERRS        847          I
          -FC5A294
 FERRS     E.VA07   ERROR  WS,*,(SUBROUTINE FILL. REFERENCE AS FUNCTION)                   FC5A294        5     A     
 FERRS     E.VA08   ERROR  FS,*,(ARRAY FILL. MISSING SUBSCRIPT)                            FERRS        848     A     
 FERRS     E.VA09   ERROR  FV,*,(EXPECTED SYMBOL BUT FOUND FILL. -- SCAN OF CARD S         FERRS        849          I
          -FC50110
 FERRS     E.VA09   ERROR  FV,PSL,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SCAN S         FC50110        9     A     
 FERRS    ,TOPPED)                                                                         FERRS        850     A     
 FERRS     E.VA10   ERROR  FS,*,(NAME EXCEEDS 7 CHARACTERS -- TRUNCATED TO FILL.)          FERRS        851     A     
 FERRS     E.VA11   ERROR  F,*,(LEFT SIDE OF EQUAL SIGN IS ILLEGAL)                        FERRS        852     A     
 FERRS     E.VA12   ERROR  FS,*,(FORMAL PARAMETER FUNCTION FILL. CANNOT HAVE ASSUM         FERRS        853          I
          -FC5A126
 FERRS    ,ED CHARACTER LENGTH)                                                            FERRS        854          I
          -FC5A126
 FERRS     E.VA12   ERROR  FS,*,(DUMMY-ARG FUNCTION FILL. CANNOT HAVE ASSUMED CHAR         FC5A126       28     A     
 FERRS    ,ACTER LENGTH)                                                                   FC5A126       29     A     
 FERRS     E.VA13   ERROR  FS,FEC.RTN,(ILLEGAL USE OF NAMELIST GROUP NAME FILL.)           FERRS        855     A     
 FERRS     EXP      SPACE  4,10                                                            FERRS        856     A     
 FERRS    **        EXPONENTIATION PROCESSOR.                                              FERRS        857     A     
 FERRS                                                                                     FERRS        858     A     
 FERRS                                                                                     FERRS        859     A     
 FERRS     E.XP1    ERROR  F,*,(OPERAND TO ** OPERATOR MUST NOT BE LOGICAL)                FERRS        860     A     
 FERRS     E.XP2    ERROR  F,*,(COMPLEX MUST ONLY BE RAISED TO INTEGER POWER)              FERRS        861          I
          -FC50014
 FERRS     E.XP3    ERROR  T,*,(ZERO ** ZERO -- RESULTS INDEFINITE)                        FERRS        862     A     
 FERRS     E.XP4    ERROR  T,*,(INTEGER ** NEGATIVE CONSTANT -- RESULTS ZERO)              FERRS        863     A     
 FERRS     E.XP5    ERROR  T,*,(CONSTANT ** CONSTANT CANNOT BE EVALUATED)                  FERRS        864     A     
 FERRS     E.XP6    ERROR  F,*,(OPERAND OF ** OPERATOR MUST NOT BE TYPE CHARACTER)         FERRS        865     A     
 FERRS     E.XP7    ERROR  T,*,(VARIABLE ** ZERO -- RESULT ASSUMED ZERO)                   FERRS        866          I
          -FC5A126
 FERRS     E.XP7    ERROR  T,*,(VARIABLE ** ZERO -- RESULT ASSUMED ONE)                    FC5A126       30     A     
 FERRS     FTN5     SPACE  4,10                                                            FERRS        867     A     
 FERRS    **        TEMPORARY ERROR MESSAGES.                                              FERRS        868     A     
 FERRS                                                                                     FERRS        869     A     
 FERRS                                                                                     FERRS        870     A     
 FERRS     .T       IFEQ   TEST,ON                                                         FERRS        871     A     
 FERRS     E.ZEMT   ERROR  F,*,(FOLLOWING TURPLE ILL SKEL)                                 FERRS        872     A     
 FERRS     .T       ENDIF                                                                  FERRS        873     A     
 FERRS                                                                                     FERRS        874     A     
 FERRS                                                                                     FERRS        875     A     
 FERRS    *** END                                                                          FERRS        876     A     
 FERRS              TITLE  FRONT END ERROR PROCESSING ROUTINES                             FERRS        877     A     
 FERRS     OSE      SPACE  4,20                                                            FERRS        878     A     
 FERRS    **        OSE -  OUTPUT SUBSCRIPT ERROR.                                         FERRS        879     A     
 FERRS    *                                                                                FERRS        880     A     
 FERRS    *         NOTE   ALL ERRORS USING THIS ROUTINE MUST USE --                       FERRS        881     A     
 FERRS    *                            FILL.  AS ARRAY NAME.                               FERRS        882     A     
 FERRS    *                            FILL.2 AS SUBSCRIPT NUMBER.                         FERRS        883     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS    *                ALL ERRORS MUST HAVE EXIT ADDRESS AS = *                        FERRS        884     A     
 FERRS    *                                                                                FERRS        885     A     
 FERRS    *                THIS ROUTINE IS TO BE CONSIDERED AS PART OF *PDM*               FERRS        886     A     
 FERRS    *                                                                                FERRS        887     A     
 FERRS    *         ENTRY  (B7) = ADDRESS OF ERROR.                                        FERRS        888     A     
 FERRS    *                (X1) = ARRAY NAME, *ARGMIS/AS.* FORMAT                          FERRS        889     A     
 FERRS    *                (X4) = 42/IGNORED , 18/SUBSCRIPT NUMBER                         FERRS        890     A     
 FERRS    *                                                                                FERRS        891     A     
 FERRS    *         EXIT   ERROR OUTPUTTED.                                                FERRS        892     A     
 FERRS    *                                                                                FERRS        893     A     
 FERRS    *         USES   X - 1,6,7.    A - 1,6,7.    B - 7.                              FERRS        894     A     
 FERRS                                                                                     FERRS        895     A     
 FERRS                                                                                     FERRS        896     A     
 FERRS     OSE      SUBR   =           ENTRY/EXIT...                                       FERRS        897     A     
 FERRS              SA1    SCR+AS.W    ARRAY NAME, *ARGMIS* (-L-) FORMAT                   FERRS        898     A     
 FERRS              SX7    B7                                                              FERRS        899     A     
 FERRS              BX6    X1                                                              FERRS        900     A     
 FERRS              SA6    FILL.                                                           FERRS        901     A     
 FERRS              SA1    OSEX                                                            FERRS        902     A     
 FERRS              SB7    OSEA        SET EXIT ADDRESS FOR CURRENT ENTRY TO PWE           FERRS        903     A     
 FERRS              BX6    X1                                                              FERRS        904     A     
 FERRS              =A7    B7+1        SAVE ERROR                                          FERRS        905     A     
 FERRS              SA6    PDM         SET RETURN ADDRESS                                  FERRS        906     A     
 FERRS              LX4    -AC.CNTP                                                        FERRS        907     A     
 FERRS              SX6    X4                                                              FERRS        908     A     
 FERRS              ERRNZ  AC.CNTL-18                                                      FERRS        909     A     
 FERRS              LX4    AC.CNTP                                                         FERRS        910     A     
 FERRS              =A6    A7+1        SAVE SUBSCRIPT NUMBER                               FERRS        911     A     
 FERRS              EQ     PDM+1       ENTER REGISTER SAVE ROUTINE                         FERRS        912     A     
 FERRS                                                                                     FERRS        913     A     
 FERRS    *         RETURN AFTER SAVING REGISTERS                                          FERRS        914     A     
 FERRS                                                                                     FERRS        915     A     
 FERRS     OSE2     EQ     "BLOWUP"    **NOTICE** - PDM JUMPS TO NEXT WORD                 FERRS        916     A     
 FERRS              SA1    OSEB+1      SUBSCRIPT NUMBER                                    FERRS        917     A     
 FERRS              SB7    10*CHAR                                                         FERRS        918     A     
 FERRS              MX0    -3                                                              FERRS        919     A     
 FERRS              BX2    0                                                               FERRS        920     A     
 FERRS              SB2    1R0                                                             FERRS        921     A     
 FERRS                                                                                     FERRS        922     A     
 FERRS    **        CONVERT SUBSCRIPT NUMBER TO *DPC*.                                     FERRS        923     A     
 FERRS    *         (X0) = MASK OF 3.                                                      FERRS        924     A     
 FERRS    *         (X1) = SUBSCRIPT NUMBER IN LOWER 18 BITS.                              FERRS        925     A     
 FERRS                                                                                     FERRS        926     A     
 FERRS     OSE5     BX6    -X0*X1      EXTRACT DIGIT                                       FERRS        927     A     
 FERRS              SB7    B7-CHAR                                                         FERRS        928     A     
 FERRS              SX6    X6+B2       CONVERT TO *DPC*                                    FERRS        929     A     
 FERRS              AX1    3           DOWN ONE DIGIT                                      FERRS        930     A     
 FERRS              BX2    X2+X6       ACCUMULATE                                          FERRS        931     A     
 FERRS              NZ     X1,OSE5     IF NOT FINISHED.                                    FERRS        932     A     
 FERRS              LX6    X2,B7       LEFT JUSTIFY                                        FERRS        933     A     
 FERRS              SA1    OSEB                                                            FERRS        934     A     
 FERRS              SA6    FILL.2      NUMBER TO ERROR                                     FERRS        935     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
 FERRS                                                                                     FERRS        936     A     
 FERRS    **        OUTPUT SELECTED ERROR.                                                 FERRS        937     A     
 FERRS                                                                                     FERRS        938     A     
 FERRS              SB7    X1                                                              FERRS        939     A     
 FERRS              EQ     PEMS+1      OUTPUT DIAGNOSTIC (SKIPPING SVR= CALL)              FERRS        940     A     
 FERRS                                                                                     FERRS        941     A     
 FERRS     OSEA     CON    OSE2+4S15   EXIT ADDR FOR REGISTER SAVE                         FERRS        942     A     
 FERRS     OSEB     DATA   0,0         ERROR ADDRESS                                       FERRS        943     A     
 FERRS                                                                                     FERRS        944     A     
 FERRS              LIST   D                                                               FERRS        945     A     
 FERRS              END                                                                    FERRS        946     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FERRS   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FERRS                      946       843
          FC5A111                      4         4
          FC5A126                     25        24
          FC5A145                     21        21
          FC5A156                      1         1
          FC5A164                      1         1
          FC5A171A                     7         7
          FC5A174                      1         1
          FC50014                      1         0
          FC50015                      1         0
          FC5A168A                     1         1
          FC5A184                     11        11
          FC5A190                      2         2
          FC5A192                      4         4
          F1037F5                     15        13
          FC5A211                      1         1
          FC5A218                      1         1
          FC5A220                      2         2
          FC5A225                      2         2
          FC5A227                      7         7
          FC5A255                      1         1
          FC5A262                      5         5
          FC50106                      2         2
          FC50110                      1         1
          FC50148                      2         2
          FC5A278                      3         3
          FC5A294                      1         1
          FC50096                      1         1
          FC5A300                     16        16
          FC5A335                      1         1
          FC5A338                      4         4
          FC50409                      1         1
          FC50438                      4         4
          FC50474                      2         2
          FC5A371                      1         1
          FC5A374                      2         2
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FERRS   
  
          FC50555                      2         2
          FC5A381                      2         2
          FC5A385                      1         1
          FC50642                      1         1
          FC50643                      1         1
          FC50189                      1         1
          FC50886                      1         1
          FC50966                      1         1
          FC50972                      2         2
          FC51193                      2         2
          FC5A471                      1         1
          FC50887                      1         1
          FC51047                      1         1
          FC51347                      1         1
          FC51356                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK    *DECK     FLINK - CCG MODE FRONT END LINKAGES.                                   FLINK          1     A     
 FLINK              IDENT  FLINK                                                           FLINK          2     A     
 FLINK     FLINK    SECT   (CCG MODE FRONT END LINKAGES.)                                  FLINK          3     A     
 FLINK     FLINK    SPACE  4,10                                                            FLINK          4     A     
 FLINK    *         IN ALLOC                                                               FLINK          5     A     
 FLINK              EXT    ALC                                                             FLINK          6     A     
 FLINK                                                                                     FLINK          7     A     
 FLINK    *         IN CCGLINK                                                             FLINK          8     A     
 FLINK              EXT    N$EXST,N.IL                                                     FLINK          9     A     
 FLINK                                                                                     FC5A150      292     A     
 FLINK    *         IN CONRED                                                              FC5A150      293     A     
 FLINK              EXT    LVEC,LLVEC,RVEC,RLVEC,CTAA,CTA                                  FC5A150      294     A     
 FLINK                                                                                     FLINK         10     A     
 FLINK    *         IN FEC                                                                 FLINK         11     A     
 FLINK              EXT    OIL                                                             FLINK         12          I
          -FC5A141
 FLINK              EXT    OIL,BBC                                                         FC5A141       65     A     
 FLINK                                                                                     FLINK         13     A     
 FLINK    *         IN FSKEL                                                               FLINK         14     A     
 FLINK              EXT    V=SEG                                                           FLINK         15          I
          -FC5A150
 FLINK              EXT    V=SEG,V=DIR.R,V=DIV.D,V=DIR.C,V=MUL.R,V=MUL.D,V=MUL.C           FC5A150      295     A     
 FLINK                                                                                     FLINK         16     A     
 FLINK    *         IN FTN                                                                 FLINK         17     A     
 FLINK              EXT    F.IL                                                            FLINK         18          I
          -FC50392
 FLINK              EXT    CO.RNDD,CO.RNDM,F.IL                                            FC50392        6     A     
 FLINK                                                                                     FC5A150      296     A     
 FLINK    *         IN PAR                                                                 FC5A150      297     A     
 FLINK              EXT    POP.DVA,SMOD,SOPR                                               FC5A150      298     A     
 FLINK                                                                                     FLINK         19     A     
 FLINK    *         IN PUC                                                                 FLINK         20     A     
 FLINK              EXT    N.GL,T=BLST,T=DATS,T=GL,T=SCR,T=PAR,T.BLST,T.DATS,T.GL          FLINK         21     A     
 FLINK              EXT    T.PAR,T.SCR,T.SYM                                               FLINK         22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK                                                                                     FLINK         23     A     
 FLINK    *         IN UTILITY                                                             FLINK         24     A     
 FLINK              EXT    WTW=                                                            FLINK         25     A     
 FLINK     VALUES   SPACE  4,10                                                            FLINK         26     A     
 FLINK    **        CCG MODE FRONT END FAKE LINKAGES.                                      FLINK         27     A     
 FLINK                                                                                     FLINK         28     A     
 FLINK                                                                                     FLINK         29     A     
 FLINK     DUC.     EQUENT 0           **** KLUDGE ****                                    FLINK         30     A     
 FLINK     DUC.1ST  EQUENT 1           **** KLUDGE ****                                    FLINK         31     A     
 FLINK     DUC.2ND  EQUENT 2           **** KLUDGE ****                                    FLINK         32     A     
 FLINK     DUC.BTH  EQUENT 3           **** KLUDGE ****                                    FLINK         33     A     
 FLINK                                                                                     FLINK         34     A     
 FLINK     QCP      SUBR   =           QUICK CODE GENERATOR PRESETS                        FLINK         35     A     
 FLINK              EQ     EXIT.       DO NOTHING...                                       FLINK         36     A     
 FLINK     OX,X     SPACE  4,10                                                            FLINK         37     A     
 FLINK    **        OX,X - COMPUTE ORDINAL FROM INDEX.                                     FLINK         38     A     
 FLINK    *                                                                                FLINK         39     A     
 FLINK    *         OX.R   X.I                                                             FLINK         40     A     
 FLINK    *                                                                                FLINK         41     A     
 FLINK    *         ENTRY  (X.I) = THE WORD INDEX OF AN INTERMEDIATE.                      FLINK         42     A     
 FLINK    *                                                                                FLINK         43     A     
 FLINK    *         EXIT   (X.R) = THE ENTRY ORDINAL OF THAT INTERMEDIATE.                 FLINK         44     A     
 FLINK    *                                                                                FLINK         45     A     
 FLINK    *         USES   X.I  B.N                                                        FLINK         46     A     
 FLINK                                                                                     FLINK         47     A     
 FLINK                                                                                     FLINK         48     A     
 FLINK     OX,X     OPDEF  R,I                                                             FLINK         49     A     
 FLINK              =X.R   Z=TURP                                                          FLINK         50          I
          -FC5A124
 FLINK              IX.R   X.I/X.R,B3                                                      FLINK         51          I
          -FC5A124
 FLINK              SX.R   43691                                                           FC5A124        4     A     
 FLINK              IX.R   X.R*X.I                                                         FC5A124        5     A     
 FLINK              AX.R   17                                                              FC5A124        6     A     
 FLINK              ENDM                                                                   FLINK         52     A     
 FLINK     BBC      SPACE  4,10                                                            FLINK         53          I
          -FC5A141
 FLINK    **        BBC -  BASE/BIAS CONVERSION                                            FLINK         54          I
          -FC5A141
 FLINK    *                                                                                FLINK         55          I
          -FC5A141
 FLINK    *         WILL CONVERT A TP. FORMAT OPERAND TO BASE/BIAS FORM.                   FLINK         56          I
          -FC5A141
 FLINK    *                                                                                FLINK         57          I
          -FC5A141
 FLINK    *         ENTRY  (X5) = TP. FORMAT OPERAND                                       FLINK         58          I
          -FC5A141
 FLINK    *                                                                                FLINK         59          I
          -FC5A141
 FLINK    *         EXIT   (X5) = BASE/BIAS CONVERSION                                     FLINK         60          I
          -FC5A141
 FLINK    *                                                                                FLINK         61          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
          -FC5A141
 FLINK    *         USES   X - 1,2,5,6,7  A - 1,2  B - 2                                   FLINK         62          I
          -FC5A141
 FLINK                                                                                     FLINK         63          I
          -FC5A141
 FLINK                                                                                     FLINK         64          I
          -FC5A141
 FLINK     BBC      SUBR   =           ENTRY/EXIT...                                       FLINK         65          I
          -FC5A141
 FLINK              BX6    X5                                                              FLINK         66          I
          -FC5A141
 FLINK              HX6    TP.EQV                                                          FLINK         67          I
          -FC5A141
 FLINK              PL     X6,EXIT.    IF ALREADY IN BASE/BIAS FORM                        FLINK         68          I
          -FC5A141
 FLINK              MX7    -TP.ORDL                                                        FLINK         69          I
          -FC5A141
 FLINK              LX6    TP.EQVP+1-TP.ORDP                                               FLINK         70          I
          -FC5A141
 FLINK              BX6    -X7*X6      X6 = SYMTAB ORDINAL                                 FLINK         71          I
          -FC5A141
 FLINK              SA2    T.SYM                                                           FLINK         72          I
          -FC5A141
 FLINK              SB2    X6                                                              FLINK         73          I
          -FC5A141
 FLINK              LX6    1                                                               FLINK         74          I
          -FC5A141
 FLINK              SB2    B2+X6                                                           FLINK         75          I
          -FC5A141
 FLINK              =B2    B2+WB.W     CONVERT TO *WB* INDEX                               FLINK         76          I
          -FC5A141
 FLINK              SA1    X2+B2       *WB*                                                FLINK         77          I
          -FC5A141
 FLINK              MX7    -WB.BASEL                                                       FLINK         78          I
          -FC5A141
 FLINK              LX1    -WB.BASEP                                                       FLINK         79          I
          -FC5A141
 FLINK              BX1    -X7*X1      X1 = SYMORD OF EQUIV. CLASS BASE                    FLINK         80          I
          -FC5A141
 FLINK              BX6    X1          SAVE IT FOR LATER                                   FLINK         81          I
          -FC5A141
 FLINK              =A1    A1+WC.W-WB.W  *WC*                                              FLINK         82          I
          -FC5A141
 FLINK              MX7    -WC.RAL                                                         FLINK         83          I
          -FC5A141
 FLINK              LX1    -WC.RAP                                                         FLINK         84          I
          -FC5A141
 FLINK              BX1    -X7*X1      X1 = RA OF OPD                                      FLINK         85          I
          -FC5A141
 FLINK              MX7    -TP.BIASL                                                       FLINK         86          I
          -FC5A141
 FLINK              BX2    X5                                                              FLINK         87          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
          -FC5A141
 FLINK              HX2    TP.BIAS                                                         FLINK         88          I
          -FC5A141
 FLINK              AX2    -TP.BIASP   EXTRACT OPD BIAS WITH SIGN EXTEND                   FLINK         89          I
          -FC5A141
 FLINK              IX1    X1+X2       X1 = NEW BIAS                                       FLINK         90          I
          -FC5A141
 FLINK              BX1    -X7*X1                                                          FLINK         91          I
          -FC5A141
 FLINK              CLAS=  X2,TP,(BIAS,ORD,EQV)                                            FLINK         92          I
          -FC5A141
 FLINK              LX6    TP.ORDP                                                         FLINK         93          I
          -FC5A141
 FLINK              LX1    TP.BIASP                                                        FLINK         94          I
          -FC5A141
 FLINK              BX5    -X2*X5      CLEAR OLD BIAS AND ORD                              FLINK         95          I
          -FC5A141
 FLINK              BX5    X5+X6                                                           FLINK         96          I
          -FC5A141
 FLINK              BX5    X5+X1       X5 = OPERAND IN BASE/BIAS FORM                      FLINK         97          I
          -FC5A141
 FLINK              EQ     EXIT.                                                           FLINK         98          I
          -FC5A141
 FLINK     DER      SPACE  4,10                                                            FLINK         99     A     
 FLINK    **        DER -  DETECT EXTENDED RANGE DO LOOPS.                                 FLINK        100     A     
 FLINK    *                                                                                FLINK        101     A     
 FLINK    *         ENTRY  (X6) = *WB* OF LABEL CURRENT SOURCE STMT COULD JUMP TO.         FLINK        102     A     
 FLINK    *                (B7) = SYMTAB *WB* INDEX OF LABEL.                              FLINK        103     A     
 FLINK    *                                                                                FLINK        104     A     
 FLINK    *         EXIT   WB.DLEN IS SET ON DO-TOP LABEL FOR EACH CLOSED LOOP             FLINK        105     A     
 FLINK    *                CONTAINING ABOVE LABEL DEFINITION.                              FLINK        106     A     
 FLINK    *                                                                                FLINK        107     A     
 FLINK    *         USES   X - 0,1,2,3,7  A - 1,7  B - 3 .                                 FLINK        108     A     
 FLINK    *                                                                                FLINK        109     A     
 FLINK    *         KEEPS  X - 6  B - 7                                                    FLINK        110     A     
 FLINK                                                                                     FLINK        111     A     
 FLINK                                                                                     FLINK        112     A     
 FLINK     DER      SUBR   =             ...ENTRY/EXIT...                                  FLINK        113     A     
 FLINK              SA1    T.SYM                                                           FLINK        114     A     
 FLINK              =B3    B7-WB.W+WC.W                                                    FLINK        115     A     
 FLINK              SA3    X1+B3       X3 = *WC*                                           FLINK        116     A     
 FLINK              MX0    -WC.LDTLL                                                       FLINK        117     A     
 FLINK              LX3    -WC.LDTLP                                                       FLINK        118     A     
 FLINK              BX2    -X0*X3      X2 = INITIAL LINK TO DO TOP LABEL                   FLINK        119     A     
 FLINK              =A3    A3-WC.W+WB.W      X3 = *WB*                                     FLINK        120     A     
 FLINK                                                                                     FLINK        121     A     
 FLINK     DER10    SBIT   X3,WB.DLPEP                                                     FLINK        122     A     
 FLINK              PL     X3,EXIT.    IF END OF CHAIN                                     FLINK        123     A     
 FLINK              SB3    X2                                                              FLINK        124     A     
 FLINK              LX2    1                                                               FLINK        125     A     
 FLINK              SB3    B3+X2                                                           FLINK        126     A     
 FLINK              =B3    B3+WC.W     CONVERT TO WC INDEX                                 FLINK        127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              SA3    X1+B3       X3 = *WC*                                           FLINK        128     A     
 FLINK              LX3    -WC.LDTLP                                                       FLINK        129     A     
 FLINK              BX2    -X0*X3                                                          FLINK        130     A     
 FLINK              =A3    A3-WC.W+WB.W      X3 = *WB*                                     FLINK        131     A     
 FLINK              BX7    X3                                                              FLINK        132     A     
 FLINK              SBIT   X7,WB.DLCP                                                      FLINK        133     A     
 FLINK              PL     X7,EXIT.    IF LOOP NOT CLOSED YET                              FLINK        134     A     
 FLINK              SBIT   X7,WB.DLENP/WB.DLCP                                             FLINK        135     A     
 FLINK              MI     X7,DER10    IF ALREADY MARKED                                   FLINK        136     A     
 FLINK              CLAS=  X7,WB,(DLEN)                                                    FLINK        137     A     
 FLINK              BX7    X3+X7                                                           FLINK        138     A     
 FLINK              SA7    A3          MARK LOOP AS HAVING AN ENTRY                        FLINK        139     A     
 FLINK              EQ     DER10                                                           FLINK        140     A     
 FLINK     DPT      SPACE  4,10                                                            FLINK        141     A     
 FLINK    **        DPT -  DEFINE PROGRAM TAG.                                             FLINK        142     A     
 FLINK    *                                                                                FLINK        143     A     
 FLINK    *         ENTRY  (X6) = ENTRY FOR *T.GL*, (WC) FORMAT                            FLINK        144     A     
 FLINK    *                                                                                FLINK        145     A     
 FLINK    *         USES   A1,A2,A6  X0,X7                                                 FLINK        146     A     
 FLINK    *                                                                                FLINK        147     A     
 FLINK    *         CALLS  ALLOC                                                           FLINK        148     A     
 FLINK                                                                                     FLINK        149     A     
 FLINK                                                                                     FLINK        150     A     
 FLINK     DPT      SUBR   =           ...ENTRY/EXIT...                                    FLINK        151     A     
 FLINK              SA1    N.GL                                                            FLINK        152     A     
 FLINK              SA2    T=GL                                                            FLINK        153     A     
 FLINK              SA6    DPTA        SAVE (X6)                                           FLINK        154     A     
 FLINK              =X3    X1+1                                                            FLINK        155     A     
 FLINK              IX0    X3-X2                                                           FLINK        156     A     
 FLINK              ALLOC  T.GL,X0     ENSURE TABLE LARGE ENOUGH FOR ALL GLS               FLINK        157     A     
 FLINK              SA2    DPTA                                                            FLINK        158     A     
 FLINK              BX6    X2                                                              FLINK        159     A     
 FLINK              SA6    X1+B3       STORE ENTRY IN GL TABLE                             FLINK        160     A     
 FLINK              EQ     EXIT.                                                           FLINK        161     A     
 FLINK                                                                                     FLINK        162     A     
 FLINK     DPTA     BSS    1           SAVE (X6)                                           FLINK        163     A     
 FLINK     LPE      SPACE  4,10                                                            FLINK        164     A     
 FLINK    **        LPE -  LINK POSSIBLE-ENTRY DO LOOPS.                                   FLINK        165     A     
 FLINK    *                                                                                FLINK        166     A     
 FLINK    *         ENTRY  WE ARE IN THE PROCESS OF CLOSING OFF A DO LOOP                  FLINK        167     A     
 FLINK    *                WHICH CONTAINS NO ENTRIES AND HAS AT LEAST ONE EXIT.            FLINK        168     A     
 FLINK    *                                                                                FLINK        169     A     
 FLINK    *                T.SCR CONTAINS DO LOOP INFORMATION IN T.BLST FORM.              FLINK        170     A     
 FLINK    *                                                                                FLINK        171     A     
 FLINK    *         EXIT   ALL LABELS DEFINED IN THIS LOOP THAT WERE NOT                   FLINK        172     A     
 FLINK    *                PREVIOUSLY LINKED, ARE MARKED AS POSSIBLE ENTRIES,              FLINK        173     A     
 FLINK    *                AND ARE LINKED TO THE CORRESPONDING DO-TOP LABEL.               FLINK        174     A     
 FLINK    *                THIS DO-TOP LABEL IS LINKED TO THE DO-TOP LABEL OF              FLINK        175     A     
 FLINK    *                OF THE LOOP ONE LEVEL OUT, IF THERE IS ONE, AND IS              FLINK        176     A     
 FLINK    *                MARKED WITH WB.DLPE = 1 SOLELY TO INDICATE THAT                 FLINK        177     A     
 FLINK    *                THE LINK IS VALID.                                              FLINK        178     A     
 FLINK    *                                                                                FLINK        179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 674    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK    *         USES   X - 0,1,2,3,5,6,7  A - 1,2,3,6  B - 2,3,7.                      FLINK        180     A     
 FLINK                                                                                     FLINK        181     A     
 FLINK                                                                                     FLINK        182     A     
 FLINK     LPE      SUBR   =             ...ENTRY/EXIT...                                  FLINK        183     A     
 FLINK              SA1    T.SCR                                                           FLINK        184     A     
 FLINK              SB2    X1                                                              FLINK        185     A     
 FLINK              SA1    B2+DORT.W   X1 = TP. FORMAT OPERAND OF DO-TOP LABEL             FLINK        186     A     
 FLINK              MI     X1,EXIT.    IF EVAPORATED ONE TRIP LOOP                         FC50594        6     A     
 FLINK              MX0    -TP.ORDL                                                        FLINK        187     A     
 FLINK              LX1    -TP.ORDP                                                        FLINK        188     A     
 FLINK              BX5    -X0*X1      X5 = SYMORD OF DO-TOP LABEL                         FLINK        189     A     
 FLINK              LX5    WC.LDTLP                                                        FLINK        190     A     
 FLINK              SA1    T=SCR                                                           FLINK        191     A     
 FLINK              SB3    X1-Z=BLST-1 B3 = NUMBER OF LABELS IN THE LOOP                   FLINK        192     A     
 FLINK              IFEQ   TEST,ON,1                                                       FLINK        193     A     
 FLINK              ZR     B3,"BLOWUP"                                                     FLINK        194     A     
 FLINK              SB2    B2+Z=BLST   ADVANCE TO 1ST LABEL                                FLINK        195     A     
 FLINK              CLAS=  X7,WB,(DLPE)      X7 = POSSIBLE ENTRY BIT MASK                  FLINK        196     A     
 FLINK              MX0    -WC.LDTLL                                                       FLINK        197     A     
 FLINK              LX0    WC.LDTLP    X0 = NEGATIVE MASK FOR LINK ERASURE                 FLINK        198     A     
 FLINK              SA1    T.SYM       X1 = FWA SYMTAB                                     FLINK        199     A     
 FLINK                                                                                     FLINK        200     A     
 FLINK     LPE10    SA2    B2          X2 = LABEL WORD                                     FLINK        201     A     
 FLINK              HX2    LA.DEF                                                          FLINK        202     A     
 FLINK              PL     X2,LPE20    IF NOT DEFINED IN THIS LOOP                         FLINK        203     A     
 FLINK              LX2    LA.DEFP+1-LA.ORDP                                               FLINK        204     A     
 FLINK              SX2    X2          X2 = SYMORD OF LABEL                                FLINK        205     A     
 FLINK              ERRNZ  LA.ORDL-18                                                      FLINK        206     A     
 FLINK              SB7    X2                                                              FLINK        207     A     
 FLINK              LX2    1                                                               FLINK        208     A     
 FLINK              SB7    X2+B7                                                           FLINK        209     A     
 FLINK              =B7    B7+WB.W     CONVERT TO WB INDEX                                 FLINK        210     A     
 FLINK              SA2    X1+B7       X2 = *WB*                                           FLINK        211     A     
 FLINK              HX2    WB.DLPE                                                         FLINK        212     A     
 FLINK              MI     X2,LPE20    IF ALREADY LINKED                                   FLINK        213     A     
 FLINK              LX2    WB.DLPEP+1                                                      FLINK        214     A     
 FLINK              BX6    X2+X7                                                           FLINK        215     A     
 FLINK              SA6    A2          MARK LABEL AS POSSIBLE ENTRY                        FLINK        216     A     
 FLINK              =A2    A2-WB.W+WC.W      X2 = *WC*                                     FLINK        217     A     
 FLINK              BX2    X0*X2       ASSURE THAT LINK IS ZERO                            FLINK        218     A     
 FLINK              BX6    X2+X5                                                           FLINK        219     A     
 FLINK              SA6    A2          SET LINK                                            FLINK        220     A     
 FLINK                                                                                     FLINK        221     A     
 FLINK     LPE20    =B2    B2+1                                                            FLINK        222     A     
 FLINK              =B3    B3-1                                                            FLINK        223     A     
 FLINK              NZ     B3,LPE10    IF MORE LABELS                                      FLINK        224     A     
 FLINK                                                                                     FLINK        225     A     
 FLINK    **        LINK THIS LOOP TO THE LOOP ONE LEVEL OUT.                              FLINK        226     A     
 FLINK                                                                                     FLINK        227     A     
 FLINK              SA2    T=BLST                                                          FLINK        228     A     
 FLINK              ZR     X2,EXIT.    IF NO OUTER LOOP                                    FLINK        229          I
          -FC50829
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              SA3    T.BLST                                                          FLINK        230     A     
 FLINK              IX3    X2+X3                                                           FLINK        231          I
          -FC50829
 FLINK              =A2    X3-1        X2 = LC. WORD                                       FLINK        232          I
          -FC50829
 FLINK              LX2    -LC.CNTP                                                        FLINK        233          I
          -FC50829
 FLINK              SB2    X2                                                              FC50829        6     A     
 FLINK              SB3    X3                                                              FC50829        7     A     
 FLINK                                                                                     FC50829        8     A     
 FLINK     LPE30    ZR     B2,EXIT.    IF NO OUTER LOOP                                    FC50829        9     A     
 FLINK              SB7    B2+B3                                                           FC50829       10     A     
 FLINK              =A2    B7-1        FETCH LC. WORD                                      FC50829       11     A     
 FLINK              MX0    LC.DOL                                                          FC50829       12     A     
 FLINK              LX0    LC.DOL+LC.DOP                                                   FC50829       13     A     
 FLINK              BX0    X0*X2                                                           FC50829       14     A     
 FLINK              NZ     X0,LPE40    IF THIS BLOCK IS DO LOOP                            FC50829       15     A     
 FLINK              LX2    -LC.CNTP                                                        FC50829       16     A     
 FLINK              SB7    X2          LENGTH OF BLOCK IF ENTRY                            FC50829       17     A     
 FLINK              SB2    B2-B7       DECREMENT                                           FC50829       18     A     
 FLINK              EQ     LPE30       LOOP FOR A DO ENTRY                                 FC50829       19     A     
 FLINK                                                                                     FC50829       20     A     
 FLINK     LPE40    LX2    -LC.CNTP                                                        FC50829       21     A     
 FLINK              SB2    X2          B2 = LENGTH OF LOOP ENTRY                           FLINK        234     A     
 FLINK              ERRNZ  LC.CNTL-18                                                      FLINK        235     A     
 FLINK              =B2    B2-DORT.W-1                                                     FLINK        236     A     
 FLINK              SA2    A2-B2       X2 = DO-TOP LABEL (TP. FORMAT)                      FLINK        237     A     
 FLINK              MX3    -TP.ORDL                                                        FLINK        238     A     
 FLINK              LX2    -TP.ORDP                                                        FLINK        239     A     
 FLINK              BX6    -X3*X2      X6 = SYMORD OF DO-TOP LABEL                         FLINK        240     A     
 FLINK              LX5    -WC.LDTLP                                                       FLINK        241     A     
 FLINK              SB2    X5                                                              FLINK        242     A     
 FLINK              LX5    1                                                               FLINK        243     A     
 FLINK              SB2    X5+B2                                                           FLINK        244     A     
 FLINK              =B2    B2+WC.W     B2 = *WC* INDEX OF CURRENT DO-TOP LABEL             FLINK        245     A     
 FLINK              SA2    X1+B2       X2 = *WC*                                           FLINK        246     A     
 FLINK              BX2    X0*X2       ASSURE LINK IS ZERO                                 FLINK        247     A     
 FLINK              BX6    X2+X6       SET LINK TO NEXT LOOP                               FLINK        248     A     
 FLINK              SA6    A2          UPDATE *WC*                                         FLINK        249     A     
 FLINK              =A2    A2-WC.W+WB.W   X2 = *WB*                                        FLINK        250     A     
 FLINK              BX6    X2+X7       INDICATE VALID LINK                                 FLINK        251     A     
 FLINK              SA6    A2          UPDATE *WC*                                         FLINK        252     A     
 FLINK              EQ     EXIT.                                                           FLINK        253     A     
 FLINK     MAL      EJECT                                                                  FC5A177       10     A     
 FLINK    **        MAL - MARK LOOPS POSSIBLY ENTERED VIA ASSIGNED GOTO/S.                 FC5A177       11     A     
 FLINK    *                                                                                FC5A177       12     A     
 FLINK    *         USES   ALL REGISTERS.                                                  FC5A177       13     A     
 FLINK                                                                                     FC5A177       14     A     
 FLINK     MAL      SUBR   =                                                               FC5A177       15     A     
 FLINK              SA1    =XT=ASG                                                         FC5A177       16     A     
 FLINK              ZR     X1,EXIT.    IF NO ASSIGN STATEMENTS IN PROGRAM                  FC5A177       17     A     
 FLINK              SA4    T.SYM                                                           FC5A177       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              SA2    =XT.ASG                                                         FC5A177       19     A     
 FLINK              SB6    X1                                                              FC5A177       20     A     
 FLINK              SA5    X2-1        INITIALIZE BEFORE ASSIGN TABLE                      FC5A177       21     A     
 FLINK                                                                                     FC5A177       22     A     
 FLINK    *         LOOP THROUGH ASSIGN TABLE, CALLING *DER* ON ALL TARGET                 FC5A177       23     A     
 FLINK    *         LABELS TO MARK ALL CONTAINING LOOPS AS *ENTRY* .                       FC5A177       24     A     
 FLINK                                                                                     FC5A177       25     A     
 FLINK     MAL10    ZR     B6,EXIT.    IF TABLE EXHAUSTED                                  FC5A177       26     A     
 FLINK              =A5    A5+1                                                            FC5A177       27     A     
 FLINK              =B6    B6-1                                                            FC5A177       28     A     
 FLINK              SX3    X5          LABEL ORDINAL                                       FC5A177       29     A     
 FLINK              LX0    B1,X3                                                           FC5A177       30     A     
 FLINK              IX6    X3+X0                                                           FC5A177       31     A     
 FLINK              =B7    X6+WB.W     WB INDEX                                            FC5A177       32     A     
 FLINK              SA2    X4+B7       WB                                                  FC5A177       33     A     
 FLINK              BX6    X2                                                              FC5A177       34     A     
 FLINK              RJ     DER         MARK CONTAING LOOPS ENTERED                         FC5A177       35     A     
 FLINK              EQ     MAL10                                                           FC5A177       36     A     
 FLINK     MDD      SPACE  4,10                                                            FLINK        254     A     
 FLINK    **        MDD -  MARK DO PARAMETERS DEFINED.                                     FLINK        255     A     
 FLINK    *                                                                                FLINK        256     A     
 FLINK    *         THE PURPOSE OF THIS ROUTINE IS TO ENABLE MORE                          FLINK        257     A     
 FLINK    *         EFFICIENT CODE TO BE GENERATED FOR DO LOOPS.                           FLINK        258     A     
 FLINK    *                                                                                FLINK        259     A     
 FLINK    *         ENTRY  (X5) = OPERAND (TP. FORMAT) OF A STORE TARGET.                  FLINK        260     A     
 FLINK    *                (X6) = AMOUNT OF T.BLST TO SEARCH                               FLINK        261     A     
 FLINK    *                                                                                FLINK        262     A     
 FLINK    *         EXIT   WB.PRD SET IN SYMTAB ENTRY OF LOOP-TOP LABEL FOR                FLINK        263     A     
 FLINK    *                EACH ACTIVE DO-LOOP WHOSE LIMIT PARAMETER COULD                 FLINK        264     A     
 FLINK    *                HAVE BEEN RE-DEFINED.                                           FLINK        265     A     
 FLINK    *                                                                                FLINK        266     A     
 FLINK    *         CALLS  BBC                                                             FLINK        267     A     
 FLINK    *                                                                                FLINK        268     A     
 FLINK    *         USES   X - 0,1,2,3,6,7  A - 1,2,7  B - 2,3,7                           FLINK        269     A     
 FLINK                                                                                     FLINK        270     A     
 FLINK                                                                                     FLINK        271     A     
 FLINK     MDD      SUBR   =           ENTRY/EXIT...                                       FLINK        272     A     
 FLINK              ZR     X6,EXIT.    IF NO ACTIVE DO-LOOPS                               FLINK        273     A     
 FLINK              SA6    MDDA        PRESERVE LENGTH                                     FLINK        274     A     
 FLINK              MX3    -0          BIAS FIELD SHOULD NOT BE IGNORED                    FLINK        275     A     
 FLINK              BX0    X5                                                              FLINK        276     A     
 FLINK              HX0    TP.INTR                                                         FLINK        277     A     
 FLINK              PL     X0,MDD10    IF NOT INTERMEDIATE                                 FLINK        278     A     
 FLINK              LX0    TP.INTRP-TP.ARYP                                                FLINK        279     A     
 FLINK              PL     X0,EXIT.    IF NOT ARRAY MUST BE SUBSTRING                      FLINK        280     A     
 FLINK              SA1    T.PAR                                                           FLINK        281     A     
 FLINK              MX7    -TP.ORDL                                                        FLINK        282     A     
 FLINK              LX0    TP.ARYP+1-TP.ORDP                                               FLINK        283     A     
 FLINK              BX7    -X7*X0      ISOLATE T.PAR INDEX                                 FLINK        284     A     
 FLINK              =B2    X7+OR.1OP                                                       FLINK        285     A     
 FLINK              SA5    X1+B2                                                           FLINK        286     A     
 FLINK              =A5    A1+1        STORE TARGET IS ARRAY NAME                          FLINK        287     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              MX3    -TP.BIASL                                                       FLINK        288     A     
 FLINK              LX3    TP.BIASP    INDICATES BIAS SHOULD BE IGNORED                    FLINK        289     A     
 FLINK                                                                                     FLINK        290     A     
 FLINK     MDD10    RJ     BBC         BASE/BIAS CONVERSION OF X5                          FLINK        291     A     
 FLINK                                                                                     FLINK        292     A     
 FLINK    **        (X5) = STORE TARGET IN BASE/BIAS FORM (TP. FORMAT).                    FLINK        293     A     
 FLINK    *         (X3) = BIAS FIELD MASK.                                                FLINK        294     A     
 FLINK                                                                                     FLINK        295     A     
 FLINK              BX7    X3                                                              FLINK        296     A     
 FLINK              CLAS=  X3,TP,(BIAS,ORD)                                                FLINK        297     A     
 FLINK              BX5    X3*X5       X5 = BIAS, ORD FIELDS ONLY                          FLINK        298     A     
 FLINK              BX5    X5*X7       X5 = COMPARE QUANTITY                               FLINK        299     A     
 FLINK              SA1    MDDA                                                            FLINK        300     A     
 FLINK              SA2    T.BLST                                                          FLINK        301     A     
 FLINK              IX2    X1+X2                                                           FLINK        302     A     
 FLINK              =A2    X2-1        A2 _ LC. WORD OF CURRENT BLOCK STRUCTURE            FLINK        303     A     
 FLINK              SB7    X1          B7 = NUMBER OF WORDS REMAINING IN T.BLST            FLINK        304     A     
 FLINK              SA1    T.SYM                                                           FLINK        305     A     
 FLINK              =B2    0           B2 = LENGTH OF CURRENT T.BLST SEGMENT               FLINK        306     A     
 FLINK              SX0    X1+WB.W     X0 = FWA + 1 OF SYMTAB                              FLINK        307     A     
 FLINK              CLAS=  X1,TP,(INTR,SHRT,ADDR)                                          FLINK        308     A     
 FLINK              BX6    X1          X6 = REJECTION MASK                                 FLINK        309     A     
 FLINK                                                                                     FLINK        310     A     
 FLINK     MDD20    SB7    B7-B2                                                           FLINK        311     A     
 FLINK              ZR     B7,EXIT.    IF TABLE EXHAUSTED                                  FLINK        312     A     
 FLINK              SA2    A2-B2       X2 = LC. WORD OF CURRENT BLOCK STRUCTURE            FLINK        313     A     
 FLINK              MX1    -LC.CNTL                                                        FLINK        314     A     
 FLINK              LX2    -LC.CNTP                                                        FLINK        315     A     
 FLINK              BX1    -X1*X2                                                          FLINK        316     A     
 FLINK              SB2    X1          B2 = LENGTH OF THIS SEGMENT                         FLINK        317     A     
 FLINK              LX2    LC.CNTP-LC.DOP                                                  FLINK        318     A     
 FLINK              MX1    -LC.DOL                                                         FLINK        319     A     
 FLINK              BX1    -X1*X2                                                          FLINK        320     A     
 FLINK              ZR     X1,MDD20    IF NOT DO-LOOP STRUCTURE                            FLINK        321     A     
 FLINK              =B3    B2-1-DOLI.W                                                     FLINK        322     A     
 FLINK              SA1    A2-B3       (A1,X1) _ DOLI.W WORD                               FLINK        323     A     
 FLINK              BX3    X1*X6                                                           FLINK        324     A     
 FLINK              NZ     X3,MDD20    IF COMPARE NOT VALID                                FLINK        325     A     
 FLINK              CLAS=  X3,TP,(BIAS,ORD)                                                FLINK        326     A     
 FLINK              BX1    X1*X3       X1 = BIAS, ORD FIELDS ONLY                          FLINK        327     A     
 FLINK              BX1    X1*X7       X1 = COMPARE QUANTITY                               FLINK        328     A     
 FLINK              BX1    X1-X5                                                           FLINK        329     A     
 FLINK              NZ     X1,MDD20    IF DO LIMIT NOT RE-DEFINED                          FLINK        330     A     
 FLINK              SB3    B2-DORT.W                                                       FLINK        331     A     
 FLINK              =B3    B3-1                                                            FLINK        332     A     
 FLINK              SA1    A2-B3       X1 = OPERAND OF DO-TOP LABEL                        FLINK        333     A     
 FLINK              MX3    -TP.ORDL                                                        FLINK        334     A     
 FLINK              LX1    -TP.ORDP                                                        FLINK        335     A     
 FLINK              BX1    -X3*X1      X1 = SYMORD OF LABEL                                FLINK        336     A     
 FLINK              SB3    X1                                                              FLINK        337     A     
 FLINK              LX1    1                                                               FLINK        338     A     
 FLINK              SB3    X1+B3       CONVERT TO INDEX                                    FLINK        339     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              SA1    X0+B3       X1 = *WB* OF LABEL                                  FLINK        340     A     
 FLINK              CLAS=  X3,WB,(PRD)                                                     FLINK        341     A     
 FLINK              BX2    X7                                                              FLINK        342     A     
 FLINK              BX7    X1+X3                                                           FLINK        343     A     
 FLINK              SA7    A1          MARK LOOP WITH WB.PRD                               FLINK        344     A     
 FLINK              BX7    X2                                                              FLINK        345     A     
 FLINK              EQ     MDD20                                                           FLINK        346     A     
 FLINK                                                                                     FLINK        347     A     
 FLINK     MDDA     BSS    1           AMOUNT OF T.BLST TO SEARCH                          FLINK        348     A     
 FLINK     PDC      SPACE  4,10                                                            FC5A150      299     A     
 FLINK    **        PDC - PROCESS DIVIDE BY CONSTANT.                                      FC5A150      300     A     
 FLINK    *                                                                                FC5A150      301     A     
 FLINK    *         THIS ROUTINE WILL MAKE AN ATTEMPT TO OPTIMIZE THE EXPRESSION           FC5A150      302     A     
 FLINK    *         X/C (WHERE X IS ANY EXPRESSION AND C IS A CONSTANT) BY TURNING         FC5A150      303     A     
 FLINK    *         IT INTO  X*(1.0/C).                                                    FC5A150      304     A     
 FLINK    *                                                                                FC5A150      305     A     
 FLINK    *         ENTRY  (SMOD) = INFO ABOUT DOMINANT MODE OF THE EXPRESSION.            FC5A150      306     A     
 FLINK    *                (X3) = OPERATION                                                FC5A150      307     A     
 FLINK    *                (X4) = 1OP.                                                     FC5A150      308     A     
 FLINK    *                (X5) = 2OP.                                                     FC5A150      309     A     
 FLINK    *                                                                                FC5A150      310     A     
 FLINK    *         EXIT   IF OPTIMIZATION SUCCESSFULL :                                   FC5A150      311     A     
 FLINK    *                                                                                FC5A150      312     A     
 FLINK    *                (X4)    = 1OP (POSSIBLY MODE CONVERTED)                         FC5A150      313     A     
 FLINK    *                (X5)    = OPERAND FOR 1.0/C  .  (2OP)                           FC5A150      314     A     
 FLINK    *                C(SOPR) = DESTROYED                                             FC5A150      315     A     
 FLINK    *                C(SMOD) = UPDATED                                               FC5A150      316     A     
 FLINK    *                C(POP.DVA) = .NZ.                                               FC5A150      317     A     
 FLINK    *                C(B6-1) = X5                                                    FC5A150      318     A     
 FLINK    *                C(B6-2) = X4                                                    FC5A150      319     A     
 FLINK                                                                                     FC5A150      320     A     
 FLINK    *                BINARY FOR  1.0/C  AND  (1.0/C)*C  ENTERED                      FC5A150      321     A     
 FLINK    *                IN THE CONSTANT TABLE.                                          FC5A150      322     A     
 FLINK    *                                                                                FC5A150      323     A     
 FLINK    *                IF OPTIMIZATION IS UNSUCCESSFULL :                              FC5A150      324     A     
 FLINK    *                                                                                FC5A150      325     A     
 FLINK    *                C(POP.DVA) = 0                                                  FC5A150      326     A     
 FLINK    *                EVERYTHING ELSE IS PRESERVED.                                   FC5A150      327     A     
 FLINK    *                                                                                FC5A150      328     A     
 FLINK    *         CALLS  CTA.                                                            FC5A150      329     A     
 FLINK    *                                                                                FC5A150      330     A     
 FLINK    *         USES   X - ALL  A - ALL BUT A0  B - 2,3,7.                             FC5A150      331     A     
 FLINK                                                                                     FC5A150      332     A     
 FLINK                                                                                     FC5A150      333     A     
 FLINK    **        HERE IF OPTIMIZATION WAS UNSUCCESSFULL.                                FC5A150      334     A     
 FLINK                                                                                     FC5A150      335     A     
 FLINK     .INV     IFEQ   NOINVERT,0                                                      FC5A150      336     A     
 FLINK     PDC30    SA3    PDCB                                                            FC5A150      337     A     
 FLINK              =A4    A3+1                                                            FC5A150      338     A     
 FLINK              =A5    A4+1        RESTORE REGS                                        FC5A150      339     A     
 FLINK              MX6    0                                                               FC5A150      340     A     
 FLINK              SA6    SMOD                                                            FC5A150      341     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              BX6    X3                                                              FC5A150      342     A     
 FLINK              SA6    SOPR        RESTORE CELLS                                       FC5A150      343     A     
 FLINK              BX6    X5                                                              FC5A150      344     A     
 FLINK              SA6    B6-B1                                                           FC5A150      345     A     
 FLINK              BX6    X4                                                              FC5A150      346     A     
 FLINK              =A6    A6-1        RESTORE THE STACK                                   FC5A150      347     A     
 FLINK                                                                                     FC5A150      348     A     
 FLINK     PDC      SUBR   =           ENTRY/EXIT...                                       FC5A150      349     A     
 FLINK              SA1    CO.RNDM                                                         FC50392        7     A     
 FLINK              SA2    CO.RNDD                                                         FC50392        8     A     
 FLINK              BX1    X1-X2                                                           FC50392        9     A     
 FLINK              NZ     X1,EXIT.    IF DIFFERENT ARITHMETIC SELECTED                    FC50392       10     A     
 FLINK              BX6    X3                                                              FC5A150      350     A     
 FLINK              BX7    X4                                                              FC5A150      351     A     
 FLINK              SA6    PDCB                                                            FC5A150      352     A     
 FLINK              =A7    A6+1                                                            FC5A150      353     A     
 FLINK              BX7    X5                                                              FC5A150      354     A     
 FLINK              =A7    A7+1        PRESERVE X3,X4,X5                                   FC5A150      355     A     
 FLINK              CALL   SDM         SET DOMINANT MODE                                   FC5A150      356     A     
 FLINK              CALL   OMC         OUTPUT (NOT REALLY) MODE CONVERSION                 FC5A150      357     A     
 FLINK              BX1    X5          CONVERTED (POSSIBLY) OPERAND                        FC5A150      358     A     
 FLINK              CALL   LCT         LOAD VALUE                                          FC5A150      359     A     
 FLINK              SA1    SMOD                                                            FC5A150      360          I
          -FC50475
 FLINK              NZ     X0,PDC5     IF NOT BOOLEAN                                      FC50475        5     A     
 FLINK              ERRNZ  M.BOOL                                                          FC50475        6     A     
 FLINK              NE     B2,B1,PDC30 IF NOT SHORT CONSTANT                               FC50475        7     A     
 FLINK                                                                                     FC50475        8     A     
 FLINK     PDC5     SA1    SMOD                                                            FC50475        9     A     
 FLINK              SX2    X1-M.REAL                                                       FC5A150      361     A     
 FLINK              SX0    X1-M.CPLX-1                                                     FC5A150      362     A     
 FLINK              MI     X2,PDC30    IF DOMINANT MODE IS INT, LOG, OR BOOL               FC5A150      363     A     
 FLINK              PL     X0,PDC30    IF DOMINANT MODE IS NOT REAL, DBL OR CPLX           FC5A150      364     A     
 FLINK              ERRNZ  M.DBL-M.REAL-1                                                  FC5A150      365     A     
 FLINK              ERRNZ  M.CPLX-M.DBL-1                                                  FC5A150      366     A     
 FLINK              SA6    LVEC+1                                                          FC5A150      367     A     
 FLINK              SA7    LLVEC+1     STORE UPPER AND LOWER OF 2OP                        FC5A150      368     A     
 FLINK              SX6    1./1S45                                                         FC5A150      369     A     
 FLINK              LX6    45                                                              FC5A150      370     A     
 FLINK              SA6    LVEC                                                            FC5A150      371     A     
 FLINK              MX7    0                                                               FC5A150      372     A     
 FLINK              SA7    LLVEC       STORE UPPER AND LOWER OF 1OP (1.0)                  FC5A150      373     A     
 FLINK              SA3    ICRD+X2     X3 = INDEX OF CONSTANT REDUCER                      FC5A150      374     A     
 FLINK              SA3    =XF.SKCR+X3                                                     FC5A150      375     A     
 FLINK              LX3    -VS.CRAP                                                        FC5A150      376     A     
 FLINK              BX6    X2                                                              FC5A150      377     A     
 FLINK              SA6    PDCA        PRESERVE OFFSET INTO ICRD (ICRM)                    FC5A150      378     A     
 FLINK              CALL   CTA         PERFORM  1./C                                       FC5A150      379     A     
 FLINK              ZR     X6,PDC30    IF DIVIDE RESULT NOT GOOD                           FC5A150      380     A     
 FLINK              SA6    PDCA+1      PRESERVE OPERAND OF RESULT                          FC5A150      381     A     
 FLINK              SA1    RVEC        X1 = UPPER HALF OF RESULT                           FC5A150      382     A     
 FLINK              SA2    RLVEC       X2 = LOWER HALF OF RESULT                           FC5A150      383     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              BX6    X1                                                              FC5A150      384     A     
 FLINK              BX7    X2                                                              FC5A150      385     A     
 FLINK              SA6    LVEC                                                            FC5A150      386     A     
 FLINK              SA7    LLVEC       MAKE RESULT AN OPERAND FOR (1./C)*C                 FC5A150      387     A     
 FLINK              SA3    PDCA                                                            FC5A150      388     A     
 FLINK              SA3    ICRM+X3     X3 = INDEX OF CONSTANT REDUCER                      FC5A150      389     A     
 FLINK              SA3    F.SKCR+X3                                                       FC5A150      390     A     
 FLINK              LX3    -VS.CRAP                                                        FC5A150      391     A     
 FLINK              CALL   CTA         PERFORM (1.0/C)*C                                   FC5A150      392     A     
 FLINK              ZR     X6,PDC30    IF RESULT NOT GOOD                                  FC5A150      393     A     
 FLINK              SX6    1./1S45                                                         FC5A150      394     A     
 FLINK              LX6    45                                                              FC5A150      395     A     
 FLINK              SA1    RVEC                                                            FC5A150      396     A     
 FLINK              BX6    X1-X6                                                           FC5A150      397     A     
 FLINK              NZ     X6,PDC30    IF UPPER HALF OF RESULT NOT GOOD                    FC5A150      398     A     
 FLINK              SA2    RLVEC                                                           FC5A150      399     A     
 FLINK              MX6    0                                                               FC5A150      400     A     
 FLINK              SA1    SMOD                                                            FC5A150      401     A     
 FLINK              SX1    X1-M.DBL                                                        FC5A150      402     A     
 FLINK              MI     X1,PDC20    IF DOMINANT MODE REAL                               FC5A150      403     A     
 FLINK              NZ     X1,PDC10    IF DOMINANT MODE NOT DOUBLE                         FC5A150      404     A     
 FLINK              MX6    12                                                              FC5A150      405     A     
 FLINK                                                                                     FC5A150      406     A     
 FLINK     PDC10    BX6    -X6*X2      EXTRACT PROPER PORTION OF LOWER HALF                FC5A150      407     A     
 FLINK              NZ     X6,PDC30    IF LOWER HALF OF RESULT NOT GOOD                    FC5A150      408     A     
 FLINK                                                                                     FC5A150      409     A     
 FLINK     PDC20    SA5    PDCA+1      X5 = NEW 2OP (1./C)                                 FC5A150      410     A     
 FLINK              BX6    X5                                                              FC5A150      411     A     
 FLINK              SA6    B6-B1       UPDATE 2OP ON STACK                                 FC5A150      412     A     
 FLINK              MX6    1                                                               FC5A150      413     A     
 FLINK              SA6    POP.DVA     FLAG CONVERT TO MULTIPLY                            FC5A150      414     A     
 FLINK              EQ     EXIT.                                                           FC5A150      415     A     
 FLINK                                                                                     FC5A150      416     A     
 FLINK     PDCA     BSS    2                                                               FC5A150      417     A     
 FLINK     PDCB     BSS    3           PRESERVE X3,X4,X5 HERE                              FC5A150      418     A     
 FLINK                                                                                     FC5A150      419     A     
 FLINK     ICRD     CON    V=DIR.R,V=DIV.D,V=DIR.C                                         FC5A150      420     A     
 FLINK     ICRM     CON    V=MUL.R,V=MUL.D,V=MUL.C                                         FC5A150      421     A     
 FLINK     .INV     ELSE                                                                   FC5A150      422     A     
 FLINK     PDC      BSSENT 0                                                               FC5A150      423     A     
 FLINK              EQ     "BLOWUP"                                                        FC5A150      424     A     
 FLINK     .INV     ENDIF                                                                  FC5A150      425     A     
 FLINK     PDI      SPACE  4,10                                                            FLINK        349     A     
 FLINK    **        PDI - PUBLISH DATA TO IL FILE.                                         FLINK        350     A     
 FLINK    *                                                                                FLINK        351     A     
 FLINK    *         LIKE *PIS*, BELOW, THIS ROUTINE EXISTS IN QCG AND CCG.                 FLINK        352     A     
 FLINK    *         IN QCG MODE, CAI IS CALLED TO COPY (T.DATS) TO (F.PB).                 FLINK        353     A     
 FLINK    *         IN CCG MODE, THE (T.DATS) IS WRITTEN TO (F.PB).                        FLINK        354     A     
 FLINK    *                                                                                FLINK        355     A     
 FLINK    *         ENTRY  LAST TURPLE IN (T.PAR) IS (V=DATA).                             FLINK        356     A     
 FLINK    *                                                                                FLINK        357     A     
 FLINK    *         USES   ALL.                                                            FLINK        358     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK    *         CALLS  OIL, WRITEW.                                                    FLINK        359     A     
 FLINK                                                                                     FLINK        360     A     
 FLINK                                                                                     FLINK        361     A     
 FLINK     PDI      SUBR   =           ENTRY/EXIT...                                       FLINK        362     A     
 FLINK              CALL   OIL         OUTPUT I.L.                                         FLINK        363     A     
 FLINK              SA5    T=DATS                                                          FLINK        364     A     
 FLINK              SA4    T.DATS                                                          FLINK        365     A     
 FLINK              WRITEW F.IL,X4,X5                                                      FLINK        366     A     
 FLINK              EQ     EXIT.                                                           FLINK        367     A     
 FLINK     PIS      SPACE  4,10                                                            FLINK        368     A     
 FLINK    **        PIS - PUBLISH IL SEGMENT.                                              FLINK        369     A     
 FLINK    *                                                                                FLINK        370     A     
 FLINK    *         THERE ARE TWO VERSIONS OF THIS ROUTINE.                                FLINK        371     A     
 FLINK    *         IN QCG MODE, CAI IS CALLED TO COMPILE ALL INSTRUCTIONS                 FLINK        372     A     
 FLINK    *            TO T.PB.                                                            FLINK        373     A     
 FLINK    *         IN CCG MODE, THE IL IS WRITTEN TO A FILE FOR LATER                     FLINK        374     A     
 FLINK    *            PROCESSING BY THE BRIDGE.                                           FLINK        375     A     
 FLINK                                                                                     FLINK        376     A     
 FLINK                                                                                     FLINK        377     A     
 FLINK     PIS      SUBR   =           ...ENTRY/EXIT...                                    FLINK        378     A     
 FLINK              SA4    T=PAR                                                           FLINK        379     A     
 FLINK              SA1    N.IL        NUMBER OF WORDS WRITTEN TO IL                       FLINK        380     A     
 FLINK              SB7    Z=TURP                                                          FLINK        381     A     
 FLINK              IX7    X1+X4                                                           FLINK        382     A     
 FLINK              SX6    X7+B7                                                           FLINK        383     A     
 FLINK              SX2    F.IL                                                            FLINK        384     A     
 FLINK              SA6    A1          UPDATE IL WORD COUNT                                FLINK        385     A     
 FLINK              WRITEW X2,PISA,B7                                                      FLINK        386     A     
 FLINK                                                                                     FLINK        387     A     
 FLINK              SA4    T=PAR                                                           FLINK        388     A     
 FLINK              SA3    T.PAR                                                           FLINK        389     A     
 FLINK              SA2    N$EXST                                                          FLINK        390     A     
 FLINK              MX0    TH.LINEL                                                        FLINK        391     A     
 FLINK              SHRINK A4          RELEASE IL TABLE SPACE                              FLINK        392     A     
 FLINK              SA0    X2          (A0) = PREVIOUS (N.EXST)                            FLINK        393     A     
 FLINK              =B2    59-TP.INTRP                                                     FLINK        394     A     
 FLINK              SB7    X4          (B7) = LENGTH OF SEGMENT                            FLINK        395     A     
 FLINK              LX0    TH.LINEL+TH.LINEP                                               FLINK        396     A     
 FLINK              =B5    OR.OPR                                                          FLINK        397     A     
 FLINK              SB6    X3          (B6) = FWA SEGMENT                                  FLINK        398     A     
 FLINK              MX4    -TP.ORDL                                                        FLINK        399     A     
 FLINK                                                                                     FLINK        400     A     
 FLINK     PIS4     SA1    B6+B5       FETCH TURPLE HEADER                                 FLINK        401     A     
 FLINK              SB5    B5+Z=TURP                                                       FLINK        402     A     
 FLINK              BX2    X0*X1       EXTRACT LINE NUMBER                                 FLINK        403     A     
 FLINK              =A3    A1-OR.OPR+OR.1OP                                                FLINK        404     A     
 FLINK              ZR     X2,PIS5     IF NOT BEGINNING-OF-STATEMENT                       FLINK        405     A     
 FLINK              SA0    A0+B1                                                           FLINK        406     A     
 FLINK     PIS5     =A1    A3-OR.1OP+OR.2OP                                                FLINK        407     A     
 FLINK              LX7    X3,B2                                                           FLINK        408     A     
 FLINK              PL     X7,PIS6     IF (1OP) NOT INTERMEDIATE                           FLINK        409     A     
 FLINK              LX3    -TP.ORDP                                                        FLINK        410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLINK   
  
 FLINK              BX6    -X4*X3      ISOLATE (X6) = INTERMEDIATE INDEX (1OP)             FLINK        411     A     
 FLINK              BX3    X4*X3                                                           FLINK        412     A     
 FLINK              OX7    X6          (X7) = ORD (X6) = (X6) / Z=TURP                     FLINK        413     A     
 FLINK              BX6    X7+X3                                                           FLINK        414     A     
 FLINK              LX6    TP.ORDP                                                         FLINK        415     A     
 FLINK              SA6    A3                                                              FLINK        416     A     
 FLINK     PIS6     LX7    X1,B2                                                           FLINK        417     A     
 FLINK              PL     X7,PIS7     IF (2OP) NOT INTERMEDIATE                           FLINK        418     A     
 FLINK              LX1    -TP.ORDP                                                        FLINK        419     A     
 FLINK              BX6    -X4*X1      ISOLATE (X6) = INTERMEDIATE INDEX (2OP)             FLINK        420     A     
 FLINK              BX3    X4*X1                                                           FLINK        421     A     
 FLINK              OX7    X6          (X7) = ORD (X6) = (X6) / Z=TURP                     FLINK        422     A     
 FLINK              BX6    X7+X3                                                           FLINK        423     A     
 FLINK              LX6    TP.ORDP                                                         FLINK        424     A     
 FLINK              SA6    A1                                                              FLINK        425     A     
 FLINK     PIS7     LT     B5,B7,PIS4  IF MORE IL TO EXAMINE                               FLINK        426     A     
 FLINK                                                                                     FLINK        427     A     
 FLINK              SX7    A0                                                              FLINK        428     A     
 FLINK              SX2    F.IL                                                            FLINK        429     A     
 FLINK              SA7    A2          UPDATE (N.EXST)                                     FLINK        430     A     
 FLINK              WRITEW X2,B6,B7                                                        FLINK        431     A     
 FLINK              EQ     EXIT.                                                           FLINK        432     A     
 FLINK                                                                                     FLINK        433     A     
 FLINK     PISA     VFD    TH.SKELL/=XV=SEG,*P/0                                           FLINK        434     A     
 FLINK              BSSZ   Z=TURP-1                                                        FLINK        435     A     
 FLINK     END      SPACE  4,10                                                            FLINK        436     A     
 FLINK              LIST   D                                                               FLINK        437     A     
 FLINK              END                                                                    FLINK        438     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FLINK   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FLINK                      438       383
          FC5A124                      3         3
          FC5A141                      1         1
          FC5A150                    134       133
          FC5A177                     27        27
          FC50392                      5         5
          FC50475                      5         5
          FC50594                      1         1
          FC50829                     16        16
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP    *DECK     FSNAP - FRONT-END TEST MODE SNAP PACKAGE.                              FSNAP          1     A     
 FSNAP    **IF DEF,TEST                                                                    FC5A388       10     A     
 FSNAP    *IF DEF,TEST                                                                     FC5A388       11     A     
 FSNAP              IDENT  FSNAP                                                           FSNAP          2     A     
 FSNAP     FSNAP    SECT   (FRONT-END TEST MODE SNAP PACKAGE.)                             FSNAP          3     A     
 FSNAP     FSNAP    SPACE  4                                                               FSNAP          4     A     
 FSNAP     #SNAP    IFEQ   TEST,ON                                                         FSNAP          5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP                                                                                     FSNAP          6     A     
 FSNAP                                                                                     FSNAP          7     A     
 FSNAP                                                                                     FSNAP          8     A     
 FSNAP    *         IN FEC                                                                 FSNAP          9     A     
 FSNAP              EXT    L.CHMAP                                                         FSNAP         10     A     
 FSNAP                                                                                     FSNAP         11     A     
 FSNAP    *         IN FSNAP                                                               FSNAP         12     A     
 FSNAP              EXT    CHARMAP                                                         FSNAP         13     A     
 FSNAP                                                                                     FSNAP         14     A     
 FSNAP    *         IN IDP                                                                 FSNAP         15     A     
 FSNAP              EXT    DCM=,FW=IDPL,IDPFLG,IDP=CAD,IDP=COD,IDP=ER,IDP=FLL              FSNAP         16     A     
 FSNAP              EXT    IDP=FRK,IDP=HDR,IDP=MCS,IDP=MN,IDP=PAS,IDP=PAT,IDP=SFN          FSNAP         17     A     
 FSNAP              EXT    IDP=SKT,IDP=SOB,IDP=WOD,IDP=ZTB,IDP=,ROL=,RSR=,RSR              FSNAP         18     A     
 FSNAP              EXT    SNAPLNE,SVR=,SVR,SV=A,SV=B,SV=X                                 FSNAP         19     A     
 FSNAP                                                                                     FSNAP         20     A     
 FSNAP    *         IN LABEL                                                               FSNAP         21     A     
 FSNAP              EXT    DUC.BTH,DUC.1ST,DUC.2ND                                         FSNAP         22     A     
 FSNAP                                                                                     FSNAP         23     A     
 FSNAP    *         IN LEX                                                                 FSNAP         24     A     
 FSNAP              EXT    TF=IDP,TOK=CAL,TOK=COF,TOK=ELS,TOK=ENT,TOK=GN,TOK=GO            FSNAP         25     A     
 FSNAP              EXT    TOK=GS,TOK=IFT,TOK=ON,TOK=XEQ                                   FSNAP         26     A     
 FSNAP                                                                                     FSNAP         27     A     
 FSNAP    *         IN PAR                                                                 FSNAP         28     A     
 FSNAP              EXT    PAR                                                             FSNAP         29     A     
 FSNAP                                                                                     FSNAP         30     A     
 FSNAP    *         IN PUC                                                                 FSNAP         31     A     
 FSNAP              EXT    NAMES,N.TABLE,ORIGINS,PASS,T=OUS,T=PAR,T=SYM,T=TB               FSNAP         32     A     
 FSNAP              EXT    T.OUS,T.PAR,T.SYM,T.TB,WOF                                      FSNAP         33     A     
 FSNAP                                                                                     FSNAP         34     A     
 FSNAP    *         IN UTILITY                                                             FSNAP         35     A     
 FSNAP              EXT    FRA=                                                            FSNAP         36     A     
 FSNAP     IDP      SPACE  4,10                                                            FSNAP         37     A     
 FSNAP    ***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.                                 FSNAP         38     A     
 FSNAP    *                                                                                FSNAP         39     A     
 FSNAP    *                                                                                FSNAP         40     A     
 FSNAP                                                                                     FSNAP         41     A     
 FSNAP                                                                                     FSNAP         42     A     
 FSNAP     CAD      EQUEXT IDP=CAD                                                         FSNAP         43     A     
 FSNAP     CHK      EQUEXT IDP=CHK                                                         FSNAP         44     A     
 FSNAP     FLL      EQUEXT IDP=FLL                                                         FSNAP         45     A     
 FSNAP     FRK      EQUEXT IDP=FRK                                                         FSNAP         46     A     
 FSNAP     HDR      EQUEXT IDP=HDR                                                         FSNAP         47     A     
 FSNAP     PAS      EQUEXT IDP=PAS                                                         FSNAP         48     A     
 FSNAP     PAT      EQUEXT IDP=PAT                                                         FSNAP         49     A     
 FSNAP     SKT      EQUEXT IDP=SKT                                                         FSNAP         50     A     
 FSNAP     SOB      EQUEXT IDP=SOB                                                         FSNAP         51     A     
 FSNAP                                                                                     FSNAP         52     A     
 FSNAP                                                                                     FSNAP         53     A     
 FSNAP     CDD      EQUEXT IDP=CDD                                                         FSNAP         54     A     
 FSNAP     COD      EQUEXT IDP=COD                                                         FSNAP         55     A     
 FSNAP     DXB      EQUEXT IDP=DXB                                                         FSNAP         56     A     
 FSNAP     MCS      EQUEXT IDP=MCS                                                         FSNAP         57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP     SFN      EQUEXT IDP=SFN                                                         FSNAP         58     A     
 FSNAP     SYS=     EQUEXT IDP=SYS                                                         FSNAP         59     A     
 FSNAP     WOD      EQUEXT IDP=WOD                                                         FSNAP         60     A     
 FSNAP     ZTB      EQUEXT IDP=ZTB                                                         FSNAP         61     A     
 FSNAP     MISC     SPACE  4,10                                                            FSNAP         62     A     
 FSNAP    **        MISCELLANEOUS SYMBOL DEFINITIONS.                                      FSNAP         63     A     
 FSNAP    *                                                                                FSNAP         64     A     
 FSNAP    *                                                                                FSNAP         65     A     
 FSNAP                                                                                     FSNAP         66     A     
 FSNAP                                                                                     FSNAP         67     A     
 FSNAP     SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER            FSNAP         68     A     
 FSNAP                                                                                     FSNAP         69     A     
 FSNAP                                                                                     FSNAP         70     A     
 FSNAP     IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                                  FSNAP         71     A     
 FSNAP     PRBDO    SPACE  4,8                                                             FSNAP         72     A     
 FSNAP    **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                            FSNAP         73     A     
 FSNAP                                                                                     FSNAP         74     A     
 FSNAP              PURGMAC PRBDO                                                          FSNAP         75     A     
 FSNAP                                                                                     FSNAP         76     A     
 FSNAP     PRBDO    OPSYN  PLINE                                                           FSNAP         77     A     
 FSNAP     TEXTS    SPACE  4,10                                                            FSNAP         78     A     
 FSNAP    ***       TEXTS - INTERFACE TEXTS.                                               FSNAP         79     A     
 FSNAP    *                                                                                FSNAP         80     A     
 FSNAP    *                                                                                FSNAP         81     A     
 FSNAP    *         COMSIDP IS LISTED IN DECK *IDP*.                                       FSNAP         82     A     
 FSNAP    *         COMSQCG IS LISTED IN DECK *QCGC*.                                      FSNAP         83     A     
 FSNAP    *         COMSTOK IS LISTED IN DECK *LEX*.                                       FSNAP         84     A     
 FSNAP                                                                                     FSNAP         85     A     
 FSNAP                                                                                     FSNAP         86     A     
 FSNAP              QUAL   IDP                                                             FSNAP         87     A     
 FSNAP     QUAL$    =      1           DESELECT QUALS IN /IDP/                             FSNAP         88     A     
 FSNAP              LIST   -L          *COMSIDP* FOLLOWS                                   FSNAP         89     A     
 FSNAP    *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       FSNAP         90     A     
 FSNAP              LIST   -X,L                                                            FSNAP         91     A     
 FSNAP              QUAL   *                                                               FSNAP         92     A     
 FSNAP    *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS                          FSNAP         93     A     
 FSNAP    *CALL     COMSTOK            COMCTOK INTERFACE TEXT.                             FSNAP         94     A     
 FSNAP              LIST   F,X                                                             FSNAP         95     A     
 FSNAP     DATA     SPACE  4,10                                                            FSNAP         96     A     
 FSNAP    ***       DATA STRUCTURES.                                                       FSNAP         97     A     
 FSNAP    *                                                                                FSNAP         98     A     
 FSNAP    *                                                                                FSNAP         99     A     
 FSNAP    *         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE                FSNAP        100     A     
 FSNAP    *         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE                   FSNAP        101     A     
 FSNAP    *         ROUTINES IN *FSNAP*.                                                   FSNAP        102     A     
 FSNAP     FI=      SPACE  4,10                                                            FSNAP        103     A     
 FSNAP    **        FI= - FTN/IDP CELLS.                                                   FSNAP        104     A     
 FSNAP    *                                                                                FSNAP        105     A     
 FSNAP    *         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED                   FSNAP        106     A     
 FSNAP    *         FOR FTN/IDP COMMUNICATION.                                             FSNAP        107     A     
 FSNAP     FI=BRLI  SPACE  4,10                                                            FSNAP        108     A     
 FSNAP    **        FI=BRLI - *BRLINE NR* CELL.                                            FSNAP        109     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP    *                                                                                FSNAP        110     A     
 FSNAP    *         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED                 FSNAP        111     A     
 FSNAP    *         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS                FSNAP        112     A     
 FSNAP    *         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS                  FSNAP        113     A     
 FSNAP    *         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN                  FSNAP        114     A     
 FSNAP    *         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END                   FSNAP        115     A     
 FSNAP    *         MASTER LOOP.                                                           FSNAP        116     A     
 FSNAP                                                                                     FSNAP        117     A     
 FSNAP                                                                                     FSNAP        118     A     
 FSNAP     FI=BRLI  CONENT 0                                                               FSNAP        119     A     
 FSNAP              TITLE  FTN5 SNAPPING ROUTINES.                                         FSNAP        120     A     
 FSNAP     CTD=     SPACE  4,10                                                            FSNAP        121     A     
 FSNAP    **        CTD= - CONVERT TOKEN TYPE TO DPC.                                      FSNAP        122     A     
 FSNAP    *                                                                                FSNAP        123     A     
 FSNAP    *                                                                                FSNAP        124     A     
 FSNAP    *         GIVEN A BINARY TOKEN TYPE, *CTD=* PROVIDES A DPC NAME THAT             FSNAP        125     A     
 FSNAP    *         CAN BE USED FOR PRINTING/DISPLAY PURPOSES.  SEE *COMDTOK*.             FSNAP        126     A     
 FSNAP    *                                                                                FSNAP        127     A     
 FSNAP    *         ENTRY  (X1) = TOKEN TYPE, IN BINARY.                                   FSNAP        128     A     
 FSNAP    *                                                                                FSNAP        129     A     
 FSNAP    *         EXIT   (X6) = DPC FOR THIS TOKEN TYPE, -L- FMT.                        FSNAP        130     A     
 FSNAP    *                                                                                FSNAP        131     A     
 FSNAP    *         USES   CANNOT USE A5,X5,A0,X0                                          FSNAP        132     A     
 FSNAP    *                                                                                FSNAP        133     A     
 FSNAP    *         CALLS  COD                                                             FSNAP        134     A     
 FSNAP                                                                                     FSNAP        135     A     
 FSNAP                                                                                     FSNAP        136     A     
 FSNAP     CTD=     SUBR               ** ENTRY/EXIT **                                    FSNAP        137     A     
 FSNAP              SB2    X1                                                              FSNAP        138     A     
 FSNAP              SB3    =XZ.CHMAP   (B3) = NR OF WORDS IN (CHARMAP) VECTOR              FSNAP        139     A     
 FSNAP              GE     B2,B3,CTD2  IF OVER INDEXING *CHARMAP*                          FSNAP        140     A     
 FSNAP              GE     B2,B0,CTD3  IF NOT UNDER INDEXING *CHARMAP*                     FSNAP        141     A     
 FSNAP                                                                                     FSNAP        142     A     
 FSNAP     CTD2     MX2    -18                                                             FSNAP        143     A     
 FSNAP              BX1    -X2*X1      (X1) = 42/0,18/TOKEN TYPE                           FSNAP        144     A     
 FSNAP              CALL   COD         CONVERT BINARY TO OCTAL DPC                         FSNAP        145     A     
 FSNAP              MX2    1                                                               FSNAP        146     A     
 FSNAP              SB2    B2-B1       (B2) = NR OF BITS CONVERTED - 1                     FSNAP        147     A     
 FSNAP              AX2    B2          (X2) = MASK FOR EXTRACTING CONVERTED NR             FSNAP        148     A     
 FSNAP              BX6    X2*X4       (X6) = TOKEN TYPE, -L- FMT                          FSNAP        149     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        150     A     
 FSNAP                                                                                     FSNAP        151     A     
 FSNAP     CTD3     SA2    =XCHARMAP+X1  (X2) = *CHARMAP* ENTRY FOR THIS TOT               FSNAP        152     A     
 FSNAP              MX3    CH.DPCL                                                         FSNAP        153     A     
 FSNAP              BX6    X3*X2       (X6) = DPC FOR THIS TOT, -L- FMT                    FSNAP        154     A     
 FSNAP              NZ     X6,EXIT.    IF *CHARMAP* TABLE HAS A DPC FOR THIS TOT           FSNAP        155     A     
 FSNAP              SA2    =0L-VAR-                                                        FSNAP        156     A     
 FSNAP              SA3    =0L-CONS-                                                       FSNAP        157     A     
 FSNAP              SX7    X1-O.VAR                                                        FSNAP        158     A     
 FSNAP              BX6    X2                                                              FSNAP        159     A     
 FSNAP              ZR     X7,EXIT.    IF -VAR- TOKEN                                      FSNAP        160     A     
 FSNAP              BX6    X3                                                              FSNAP        161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP              SX7    X1-O.CONS                                                       FSNAP        162     A     
 FSNAP              ZR     X7,EXIT.    IF -CONS- TOKEN                                     FSNAP        163     A     
 FSNAP              SA2    =0L-OCT-                                                        FSNAP        164     A     
 FSNAP              SA3    =0L-HEX-                                                        FSNAP        165     A     
 FSNAP              SA4    =0L-ILL-                                                        FSNAP        166     A     
 FSNAP              BX6    X2                                                              FSNAP        167     A     
 FSNAP              SX7    X1-O.OCT                                                        FSNAP        168     A     
 FSNAP              ZR     X7,EXIT.    IF -OCT- TOKEN                                      FSNAP        169     A     
 FSNAP              BX6    X3                                                              FSNAP        170     A     
 FSNAP              SX7    X1-O.HEX                                                        FSNAP        171     A     
 FSNAP              ZR     X7,EXIT.    IF -HEX- TOKEN                                      FSNAP        172     A     
 FSNAP              BX6    X4                                                              FSNAP        173     A     
 FSNAP              SX7    X1-O.ILL                                                        FSNAP        174     A     
 FSNAP              ZR     X7,EXIT.    IF -ILL- TOKEN                                      FSNAP        175     A     
 FSNAP              BX6    X6-X6                                                           FSNAP        176     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        177     A     
 FSNAP     FTH      SPACE  4,10                                                            FSNAP        178     A     
 FSNAP    **        FTH - FORMAT TABLE HEADING.                                            FSNAP        179     A     
 FSNAP    *                                                                                FSNAP        180     A     
 FSNAP    *         ENTRY  (A1,X1) = TABLE ORIGIN WORD.                                    FSNAP        181     A     
 FSNAP    *                (A6)+1 = FWA TO STORE HEADING (3 WORDS).                        FSNAP        182     A     
 FSNAP    *                                                                                FSNAP        183     A     
 FSNAP    *         EXIT   (A6) -> LAST WORD STORED (-H- FORMAT).                          FSNAP        184     A     
 FSNAP    *                (B5) = ORDINAL OF TABLE.                                        FSNAP        185     A     
 FSNAP    *                                                                                FSNAP        186     A     
 FSNAP    *         USES   A1-4,A6,  X1-4,X6-7,  B2-5.                                     FSNAP        187     A     
 FSNAP    *         CALLS  COD.                                                            FSNAP        188     A     
 FSNAP                                                                                     FSNAP        189     A     
 FSNAP                                                                                     FSNAP        190     A     
 FSNAP     FTH      SUBR   0           ENTRY/EXIT...                                       FSNAP        191     A     
 FSNAP              SX2    A1                                                              FSNAP        192     A     
 FSNAP              SB2    =XORIGINS                                                       FSNAP        193     A     
 FSNAP              SB3    -B2                                                             FSNAP        194     A     
 FSNAP              SB5    X2+B3       ORDINAL OF TABLE                                    FSNAP        195     A     
 FSNAP              SA3    B5+=XNAMES                                                      FSNAP        196     A     
 FSNAP              MX4    5*6                                                             FSNAP        197     A     
 FSNAP              SA2    =5RAT T.                                                        FSNAP        198     A     
 FSNAP              BX7    X4*X3       ISOLATE 5 CHARS OF TABLE NAME                       FSNAP        199     A     
 FSNAP              IX6    X7+X2                                                           FSNAP        200     A     
 FSNAP              LX6    -2*6                                                            FSNAP        201     A     
 FSNAP              SA6    A6+B1                                                           FSNAP        202     A     
 FSNAP              CALL   COD         CONVERT OCTAL (TABLE FWA)                           FSNAP        203     A     
 FSNAP              SA1    B5+=XSIZES                                                      FSNAP        204     A     
 FSNAP              SX2    2RLE&2R                                                         FSNAP        205     A     
 FSNAP              BX6    X4-X2                                                           FSNAP        206     A     
 FSNAP              SA6    A6+B1                                                           FSNAP        207     A     
 FSNAP              CALL   COD         CONVERT OCTAL (TABLE LENGTH)                        FSNAP        208     A     
 FSNAP              SX2    2RN &2R                                                         FSNAP        209     A     
 FSNAP              BX6    X4-X2                                                           FSNAP        210     A     
 FSNAP              LX6    -2*6                                                            FSNAP        211     A     
 FSNAP              SA6    A6+B1                                                           FSNAP        212     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        213     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP     LTB      SPACE  4,8                                                             FSNAP        214     A     
 FSNAP    **        LTB - LIST TOKEN BUFFER.                                               FSNAP        215     A     
 FSNAP    *                                                                                FSNAP        216     A     
 FSNAP    *         THIS ROUTINE LISTS THE TOKEN BUFFER BY CALLING *LTK*                   FSNAP        217     A     
 FSNAP    *         IN *COMDTOK*.                                                          FSNAP        218     A     
 FSNAP    *                                                                                FSNAP        219     A     
 FSNAP    *         ENTRY  NONE                                                            FSNAP        220     A     
 FSNAP    *                                                                                FSNAP        221     A     
 FSNAP    *         EXIT   NONE                                                            FSNAP        222     A     
 FSNAP    *                                                                                FSNAP        223     A     
 FSNAP    *         USES   NONE                                                            FSNAP        224     A     
 FSNAP    *                                                                                FSNAP        225     A     
 FSNAP    *         CALLS  LTK,PRIDP,RSR,SVR                                               FSNAP        226     A     
 FSNAP                                                                                     FSNAP        227     A     
 FSNAP                                                                                     FSNAP        228     A     
 FSNAP     LTB=     SUBR   =           ** ENTRY/EXIT **                                    FSNAP        229     A     
 FSNAP              CALL   SVR         SAVE REGISTERS                                      FSNAP        230     A     
 FSNAP              SX1    4           INDICATE EXECUTIVE IS LTB                           FSNAP        231     A     
 FSNAP              CALL   SOB         SET OUTPUT BITS                                     FSNAP        232     A     
 FSNAP              PRIDP  (=C. TOKEN BUFFER DUMP.),,2                                     FSNAP        233     A     
 FSNAP              PRIDP  ,,1                                                             FSNAP        234     A     
 FSNAP              SA2    =XT.TB                                                          FSNAP        235     A     
 FSNAP              SA4    =XT=TB                                                          FSNAP        236     A     
 FSNAP              CALL   LTK         LIST TOKENS                                         FSNAP        237     A     
 FSNAP              PRIDP  ,,2                                                             FSNAP        238     A     
 FSNAP              CALL   RSR         RESTORE REGISTERS                                   FSNAP        239     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        240     A     
 FSNAP     SN.EMT   SPACE  4,10                                                            FSNAP        241     A     
 FSNAP    **        SN.EMT - SNAP FOR FRONT END EMISSION OF TURPLES.                       FSNAP        242     A     
 FSNAP    *                                                                                FSNAP        243     A     
 FSNAP    *         ENTRY  (A1,X1) = ORIGIN OF TABLE ADDED TO.                             FSNAP        244     A     
 FSNAP    *                (X0) -> ENTRY/EXIT WORD OF EMITTING ROUTINE.                    FSNAP        245     A     
 FSNAP    *                (X3) = OPR.                                                     FSNAP        246     A     
 FSNAP    *                (X4) = 1OP.                                                     FSNAP        247     A     
 FSNAP    *                (X5) = 2OP.                                                     FSNAP        248     A     
 FSNAP    *                (B7) = LWA+1 OF TABLE.                                          FSNAP        249     A     
 FSNAP    *                                                                                FSNAP        250     A     
 FSNAP    *         USES   NONE.                                                           FSNAP        251     A     
 FSNAP                                                                                     FSNAP        252     A     
 FSNAP                                                                                     FSNAP        253     A     
 FSNAP     SN.EMT   SUBR   =           ENTRY/EXIT...                                       FSNAP        254     A     
 FSNAP              RJ     SVR=        SAVE REGISTERS                                      FSNAP        255     A     
 FSNAP              SA1    SV=X+0      GET WHERE EMITTER CALLED FROM                       FSNAP        256     A     
 FSNAP              SA2    X1                                                              FSNAP        257     A     
 FSNAP              LX2    -30                                                             FSNAP        258     A     
 FSNAP              SX1    X2-1                                                            FSNAP        259     A     
 FSNAP              SB7    SNE2                                                            FSNAP        260     A     
 FSNAP              EQ     =XFRA=      FIND RELATIVE ADDRESS                               FSNAP        261     A     
 FSNAP     SNE2     LX6    -6                                                              FSNAP        262     A     
 FSNAP              SX2    2RIN&2R +                                                       FSNAP        263     A     
 FSNAP              LX7    -6                                                              FSNAP        264     A     
 FSNAP              BX6    X6-X2                                                           FSNAP        265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP              BX1    X7                                                              FSNAP        266     A     
 FSNAP              LX6    -6                                                              FSNAP        267     A     
 FSNAP              SA6    SNEB+1                                                          FSNAP        268     A     
 FSNAP              CALL   ZTB         BLANK FILL DECK NAME                                FSNAP        269     A     
 FSNAP              SA2    SV=A+1      FETCH [A1] WAS TABLE ADDRESS                        FSNAP        270     A     
 FSNAP              BX7    X6                                                              FSNAP        271     A     
 FSNAP              SA7    A6-B1                                                           FSNAP        272     A     
 FSNAP              SA1    X2                                                              FSNAP        273     A     
 FSNAP              RJ     FTH         FORMAT TABLE HEADER                                 FSNAP        274     A     
 FSNAP              SB6    SNEA                                                            FSNAP        275     A     
 FSNAP              SB7    A6+B1                                                           FSNAP        276     A     
 FSNAP              SB7    B7-B6                                                           FSNAP        277     A     
 FSNAP              PLINE  B6,B7                                                           FSNAP        278     A     
 FSNAP                                                                                     FSNAP        279     A     
 FSNAP              SA1    SV=X+1      [X1] = NEW TABLE FWA                                FSNAP        280     A     
 FSNAP              SA3    SV=B+7      [B7] = NEW TABLE LWA+1                              FSNAP        281     A     
 FSNAP              IX7    X3-X1                                                           FSNAP        282     A     
 FSNAP              SX6    X7-Z=TURP   SET (SN.PNO) = INDEX OF TURPLE JUST ADDED           FSNAP        283     A     
 FSNAP              SA5    SV=X+3      [X3] = OPERATOR WORD                                FSNAP        284     A     
 FSNAP              SA6    SN.PNO                                                          FSNAP        285     A     
 FSNAP              RJ     SN.POP      FORMAT TURPLE HEADER                                FSNAP        286     A     
 FSNAP                                                                                     FSNAP        287     A     
 FSNAP              SA5    SV=X+4      [X4] = 1OP                                          FSNAP        288     A     
 FSNAP              RJ     SN.PSYM     FORMAT OPERAND 1                                    FSNAP        289     A     
 FSNAP                                                                                     FSNAP        290     A     
 FSNAP    *         SA5    SV=X+5      [X5] = 2OP                                          FSNAP        291     A     
 FSNAP              RJ     SN.PSYM     FORMAT OPERAND 2                                    FSNAP        292     A     
 FSNAP              RJ     =XRSR=      RESTORE REGISTERS                                   FSNAP        293     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        294     A     
 FSNAP                                                                                     FSNAP        295     A     
 FSNAP     SNEA     DIS    1, EMIT FROM                                                    FSNAP        296     A     
 FSNAP     SNEB     DIS    2, REL IN DECK                                                  FSNAP        297     A     
 FSNAP     SNEC     DIS    1, T.NAME                                                       FSNAP        298     A     
 FSNAP              DIS    1, FWA =                                                        FSNAP        299     A     
 FSNAP     SNED     DIS    1,123456                                                        FSNAP        300     A     
 FSNAP     SNEL     =      *-SNEA                                                          FSNAP        301     A     
 FSNAP     SN.PAR   SPACE  4,8                                                             FSNAP        302     A     
 FSNAP    **        SN.PAR - DUMP PARSED FILE (ONLY IF IN TEST MODE)                       FSNAP        303     A     
 FSNAP    *                                                                                FSNAP        304     A     
 FSNAP    *         ENTRY  (T=PAR) = LENGTH OF PARSED FILE.                                FSNAP        305     A     
 FSNAP    *                                                                                FSNAP        306     A     
 FSNAP    *         EXIT   FORMATTED FILE DUMPED.                                          FSNAP        307     A     
 FSNAP    *                                                                                FSNAP        308     A     
 FSNAP    *         CALLS  PLINE, PIA, SVR, RSR, WOD                                       FSNAP        309     A     
 FSNAP                                                                                     FSNAP        310     A     
 FSNAP                                                                                     FSNAP        311     A     
 FSNAP     SN.PAR   SUBR   =           ** ENTRY/EXIT **                                    FSNAP        312     A     
 FSNAP              CALL   SVR=        SAVE REGISTERS                                      FSNAP        313     A     
 FSNAP              SA2    T=PAR                                                           FSNAP        314     A     
 FSNAP              SA3    =20H  IL SEGMENT DUMP.                                          FSNAP        315     A     
 FSNAP              ZR     X2,SPF8     IF EMPTY TABLE                                      FSNAP        316     A     
 FSNAP              SA4    A3+B1                                                           FSNAP        317     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP              BX7    X3                                                              FSNAP        318     A     
 FSNAP              SA1    T.PAR                                                           FSNAP        319     A     
 FSNAP              LX6    X4                                                              FSNAP        320     A     
 FSNAP              SA5    X1          (A5) -> FWA PARSED FILE                             FSNAP        321     A     
 FSNAP              SB6    SNAPLNE                                                         FSNAP        322     A     
 FSNAP              SA7    B6                                                              FSNAP        323     A     
 FSNAP              SA0    X2-1        (A0) = LENGTH - 1 OF PARSED FILE                    FSNAP        324     A     
 FSNAP              SA6    A7+B1                                                           FSNAP        325     A     
 FSNAP              RJ     FTH         FORMAT TABLE HEADER                                 FSNAP        326     A     
 FSNAP              SB2    A6+B1                                                           FSNAP        327     A     
 FSNAP              SX2    B2-B6                                                           FSNAP        328     A     
 FSNAP              PLINE  B6,X2,1                                                         FSNAP        329     A     
 FSNAP              BX6    0                                                               FSNAP        330     A     
 FSNAP              SA6    SN.PNO      INITIALIZE ORDINAL COUNTER                          FSNAP        331     A     
 FSNAP                                                                                     FSNAP        332     A     
 FSNAP    **        LOOP ON PARSED FILE                                                    FSNAP        333     A     
 FSNAP                                                                                     FSNAP        334     A     
 FSNAP     SN.PAR1  RJ     SN.POP      PROCESS OPERATOR.                                   FSNAP        335     A     
 FSNAP              SB4    A0                                                              FSNAP        336     A     
 FSNAP              MI     B4,SPF8     IF TABLE EXHAUSTED                                  FSNAP        337     A     
 FSNAP              RJ     SN.PSYM     PROCESS 1ST SYMBOL.                                 FSNAP        338     A     
 FSNAP              RJ     SN.PSYM     PRINT OPERAND 2                                     FSNAP        339     A     
 FSNAP              PLINE  ,,1         BLANK LINE BETWEEN TURPLES                          FSNAP        340     A     
 FSNAP              SB4    A0                                                              FSNAP        341     A     
 FSNAP              PL     B4,SN.PAR1  IF MORE TO GO.                                      FSNAP        342     A     
 FSNAP                                                                                     FSNAP        343     A     
 FSNAP    **        END OF LOOP                                                            FSNAP        344     A     
 FSNAP                                                                                     FSNAP        345     A     
 FSNAP     SPF8     CALL   RSR=        RESTORE REGISTERS                                   FSNAP        346     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        347     A     
 FSNAP     SN.PSYM  SPACE  4,8                                                             FSNAP        348     A     
 FSNAP    **        SN.PSYM - DUMP SYMBOL FROM PARSED FILE.                                FSNAP        349     A     
 FSNAP    *                                                                                FSNAP        350     A     
 FSNAP    *         ENTRY  (A5,X5) = OPERAND WORD.                                         FSNAP        351     A     
 FSNAP    *                (SN.PNO) = ORDINAL OF THIS WORD.                                FSNAP        352     A     
 FSNAP    *                                                                                FSNAP        353     A     
 FSNAP    *         EXIT   (A5) ADVANCED BY ONE.                                           FSNAP        354     A     
 FSNAP    *                (X5) = ((A5)).                                                  FSNAP        355     A     
 FSNAP    *                (A0) DECREMENTED BY ONE.                                        FSNAP        356     A     
 FSNAP    *                (SN.PNO) ADVANCED BY ONE.                                       FSNAP        357     A     
 FSNAP    *                LINE PRINTED.                                                   FSNAP        358     A     
 FSNAP    *                                                                                FSNAP        359     A     
 FSNAP    *         USES   ALL.                                                            FSNAP        360     A     
 FSNAP    *         CALLS  COD, PLINE, WOD, ZTB.                                           FSNAP        361     A     
 FSNAP                                                                                     FSNAP        362     A     
 FSNAP                                                                                     FSNAP        363     A     
 FSNAP     SN.PSYM  SUBR               ENTRY/EXIT...                                       FSNAP        364     A     
 FSNAP              SA1    SN.PNO                                                          FSNAP        365     A     
 FSNAP              SX6    X1+B1                                                           FSNAP        366     A     
 FSNAP              SA6    A1          UPDATE ORDINAL                                      FSNAP        367     A     
 FSNAP              RJ     COD         CONVERT TO *DPC*                                    FSNAP        368     A     
 FSNAP              LX6    9*CHAR-6*CHAR                                                   FSNAP        369     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP              SX1    2R  &2R=                                                        FSNAP        370     A     
 FSNAP              BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))                  FSNAP        371     A     
 FSNAP              SA2    =XPASS                                                          FSNAP        372     A     
 FSNAP              SA6    LINNO                                                           FSNAP        373     A     
 FSNAP              SX2    X2-PASS=QCG                                                     FSNAP        374     A     
 FSNAP              ZR     X5,SPG9     IF NULL OPERAND                                     FSNAP        375     A     
 FSNAP              BX3    X5                                                              FSNAP        376     A     
 FSNAP              LX6    X5                                                              FSNAP        377     A     
 FSNAP              NZ     X2,SPG2     IF NOT DURING QUICK CG PASS                         FSNAP        378     A     
 FSNAP                                                                                     FSNAP        379     A     
 FSNAP    *         CRACK (P2.) FORMAT OPERAND.                                            FSNAP        380     A     
 FSNAP    *                                                                                FSNAP        381     A     
 FSNAP    *         **** KLUDGE ****                                                       FSNAP        382     A     
 FSNAP    *                                                                                FSNAP        383     A     
 FSNAP    *         KLUDGE UNTIL *SNAP=A* IS FIXED.                                        FSNAP        384     A     
 FSNAP    *                                                                                FSNAP        385     A     
 FSNAP    *         **** KLUDGE ****                                                       FSNAP        386     A     
 FSNAP                                                                                     FSNAP        387     A     
 FSNAP     C.SYM    =      0                                                               FSNAP        388     A     
 FSNAP                                                                                     FSNAP        389     A     
 FSNAP              EQ     "BLOWUP"                                                        FSNAP        390     A     
 FSNAP                                                                                     FSNAP        391     A     
 FSNAP              HX6    P2.BIAS                                                         FSNAP        392     A     
 FSNAP              LX3    -P2.TAGP                                                        FSNAP        393     A     
 FSNAP              MX0    -P2.TAGL                                                        FSNAP        394     A     
 FSNAP              AX6    -P2.BIASL   ISOLATE SIGN-EXTENDED BIAS                          FSNAP        395     A     
 FSNAP              BX1    -X0*X3      EXTRACT (X1) = TAG                                  FSNAP        396     A     
 FSNAP              LX3    P2.TAGP-1-P2.INTRP                                              FSNAP        397     A     
 FSNAP              SA6    SPGA                                                            FSNAP        398     A     
 FSNAP              MI     X3,SPG4     IF OPERAND IS AN INTERMEDIATE                       FSNAP        399     A     
 FSNAP    *                                                                                FSNAP        400     A     
 FSNAP    *         **** KLUDGE ****                                                       FSNAP        401     A     
 FSNAP    *                                                                                FSNAP        402     A     
 FSNAP     7        ERR    KLUDGE UNTIL *SNAP=A* IS FIXED                                  FSNAP        403     A     
 FSNAP     .TEST    IFEQ   TEST,ON                                                         FSNAP        404     A     
 FSNAP              SA3    =XT=OUS                                                         FSNAP        405     A     
 FSNAP              SB7    X3                                                              FSNAP        406     A     
 FSNAP              GE     B2,B7,"BLOWUP"    IF OUS INDEX .GE. TABLE LENGTH                FSNAP        407     A     
 FSNAP     .TEST    ENDIF                                                                  FSNAP        408     A     
 FSNAP              SA3    =XT.OUS                                                         FSNAP        409     A     
 FSNAP              SA1    B2+X3       FETCH OPERAND USAGE STATUS                          FSNAP        410     A     
 FSNAP              LX1    -P2.TAGP                                                        FSNAP        411     A     
 FSNAP              BX1    -X0*X1      EXTRACT (X1) = TAG IN USAGE TABLE                   FSNAP        412     A     
 FSNAP              SB2    X1                                                              FSNAP        413     A     
 FSNAP              PL     B2,SPG3     IF POSSIBLY A SYMBOL TAG                            FSNAP        414     A     
 FSNAP              EQ     SPG5                                                            FSNAP        415     A     
 FSNAP                                                                                     FSNAP        416     A     
 FSNAP    *         CRACK (TP.) FORMAT OPERAND.                                            FSNAP        417     A     
 FSNAP                                                                                     FSNAP        418     A     
 FSNAP     SPG2     LX3    -TP.ORDP                                                        FSNAP        419     A     
 FSNAP              MX0    -TP.ORDL                                                        FSNAP        420     A     
 FSNAP              HX6    TP.BIAS                                                         FSNAP        421     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP              BX1    -X0*X3      EXTRACT (X1) = ORDINAL                              FSNAP        422     A     
 FSNAP              AX6    -TP.BIASL   SAVE SIGN-EXTENDED BIAS                             FSNAP        423     A     
 FSNAP              LX3    TP.ORDP-1-TP.INTRP                                              FSNAP        424     A     
 FSNAP              SA6    SPGA        SAVE (BIAS)                                         FSNAP        425     A     
 FSNAP              MI     X3,SPG4     IF OPERAND IS AN INTERMEDIATE                       FSNAP        426     A     
 FSNAP              CLAS=  X2,TP,(INTR,SHRT,GL)                                            FSNAP        427     A     
 FSNAP              BX0    X2*X5                                                           FSNAP        428     A     
 FSNAP              SB2    X1                                                              FSNAP        429     A     
 FSNAP              NZ     X0,SPG5     IF NOT A VARIABLE                                   FSNAP        430     A     
 FSNAP                                                                                     FSNAP        431     A     
 FSNAP    *         HERE WHEN OPERAND IS IN SYMTAB.                                        FSNAP        432     A     
 FSNAP    *                (B2) = SYMTAB ORDINAL.                                          FSNAP        433     A     
 FSNAP                                                                                     FSNAP        434     A     
 FSNAP     SPG3     SA3    =XT=SYM                                                         FSNAP        435     A     
 FSNAP              SA2    T.SYM                                                           FSNAP        436     A     
 FSNAP              SB7    X3                                                              FSNAP        437     A     
 FSNAP              SX3    B2+B2                                                           FSNAP        438     A     
 FSNAP              SB2    X3+B2       (B2) = INDEX = 3 * ORDINAL                          FSNAP        439     A     
 FSNAP              ERRNZ  3-Z=SYM                                                         FSNAP        440     A     
 FSNAP              MX0    WA.SYML                                                         FSNAP        441     A     
 FSNAP              GE     B2,B7,SPG5  IF INDEX GE SYMTAB LEN                              FSNAP        442     A     
 FSNAP              SA3    X2+B2       LOAD SYMBOL                                         FSNAP        443     A     
 FSNAP              BX1    X0*X3       ISOLATE SYMBOL NAME                                 FSNAP        444     A     
 FSNAP              RJ     ZTB         ZEROES TO BLANKS                                    FSNAP        445     A     
 FSNAP              EQ     SPG8                                                            FSNAP        446     A     
 FSNAP                                                                                     FSNAP        447     A     
 FSNAP    **        HERE IF NOT INTERMEDIATE                                               FSNAP        448     A     
 FSNAP                                                                                     FSNAP        449     A     
 FSNAP     SPG4     RJ     =XCOD       CONVERT INTERMEDIATE ORDINAL TO OCTAL DPC           FSNAP        450     A     
 FSNAP              SX1    2RI=&2R                                                         FSNAP        451     A     
 FSNAP              EQ     SPG6                                                            FSNAP        452     A     
 FSNAP                                                                                     FSNAP        453     A     
 FSNAP    **        HERE IF OTHER FORM OF TAG OR CONSTANT.                                 FSNAP        454     A     
 FSNAP                                                                                     FSNAP        455     A     
 FSNAP     SPG5     RJ     =XCOD       CONVERT ORDINAL FIELD TO OCTAL DPC                  FSNAP        456     A     
 FSNAP              SX1    2RC=&2R                                                         FSNAP        457     A     
 FSNAP     SPG6     BX6    X4-X1                                                           FSNAP        458     A     
 FSNAP                                                                                     FSNAP        459     A     
 FSNAP    **        HERE WITH SYMBOL CONVERTED TO DPC.                                     FSNAP        460     A     
 FSNAP    *         (X6) = DPC FOR SYMBOL.                                                 FSNAP        461     A     
 FSNAP                                                                                     FSNAP        462     A     
 FSNAP     SPG8     LX6    -2*6                                                            FSNAP        463     A     
 FSNAP              SA6    LINPDP                                                          FSNAP        464     A     
 FSNAP              SA1    SPGA        RETRIEVE (BIAS) FIELD                               FSNAP        465     A     
 FSNAP              BX0    X1                                                              FSNAP        466     A     
 FSNAP              AX0    -1          (X0) = SIGN (+0 OR -0)                              FSNAP        467     A     
 FSNAP              BX1    X1-X0       (X1) = ABS (BIAS)                                   FSNAP        468     A     
 FSNAP              RJ     COD         CONVERT OCTAL DIGITS                                FSNAP        469     A     
 FSNAP              SX2    1R-&1R                                                          FSNAP        470     A     
 FSNAP              BX2    X0*X2                                                           FSNAP        471     A     
 FSNAP              LX2    B2          POSITION LEADING SIGN                               FSNAP        472     A     
 FSNAP              BX6    X2-X6                                                           FSNAP        473     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP              SA6    A6+B1                                                           FSNAP        474     A     
 FSNAP              BX1    X5                                                              FSNAP        475     A     
 FSNAP              SB3    A5                                                              FSNAP        476     A     
 FSNAP              RJ     WOD         CONVERT TAG TO OCTAL (CLOBBERS A5)                  FSNAP        477     A     
 FSNAP              SA6    LINPOC                                                          FSNAP        478     A     
 FSNAP              SA7    A6+B1                                                           FSNAP        479     A     
 FSNAP              SA0    A0-B1                                                           FSNAP        480     A     
 FSNAP              SA5    B3+B1                                                           FSNAP        481     A     
 FSNAP              PLINE  LINPAR,LINSPGL                                                  FSNAP        482     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        483     A     
 FSNAP                                                                                     FSNAP        484     A     
 FSNAP     SPG9     SA1    =H/   0/                                                        FSNAP        485     A     
 FSNAP              MI     X5,"BLOWUP" IF OPERAND = -0                                     FSNAP        486     A     
 FSNAP              BX7    X1                                                              FSNAP        487     A     
 FSNAP              SA7    A6+B1                                                           FSNAP        488     A     
 FSNAP              PLINE  A6,2                                                            FSNAP        489     A     
 FSNAP              SA0    A0-B1                                                           FSNAP        490     A     
 FSNAP              SA5    A5+B1                                                           FSNAP        491     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        492     A     
 FSNAP                                                                                     FSNAP        493     A     
 FSNAP     SPGA     CON    0           SAVE (BIAS) FIELD OF OPERAND                        FSNAP        494     A     
 FSNAP     SN.POP   SPACE  4,8                                                             FSNAP        495     A     
 FSNAP    **        SN.POP - DUMP OPERATOR FROM PARSED FILE.                               FSNAP        496     A     
 FSNAP    *         OUTPUT IS DIVIDED INTO SPECIFIED FIELDS THAT ARE SET-UP DURING         FSNAP        497     A     
 FSNAP    *         PARSING OF A STATEMENT.                                                FSNAP        498     A     
 FSNAP    *                                                                                FSNAP        499     A     
 FSNAP    *         ENTRY  (X5) = OPERATOR.                                                FSNAP        500     A     
 FSNAP    *                                                                                FSNAP        501     A     
 FSNAP    *         EXIT   (X5) = NEXT OPERAND                                             FSNAP        502     A     
 FSNAP                                                                                     FSNAP        503     A     
 FSNAP                                                                                     FSNAP        504     A     
 FSNAP     SN.POP   SUBR               ENTRY/EXIT...                                       FSNAP        505     A     
 FSNAP                                                                                     FSNAP        506     A     
 FSNAP    *         UPDATE ORDINAL AND SET DPC INTO LINE BUFFER.                           FSNAP        507     A     
 FSNAP                                                                                     FSNAP        508     A     
 FSNAP              SA1    SN.PNO                                                          FSNAP        509     A     
 FSNAP              =X6    X1+1                                                            FSNAP        510     A     
 FSNAP              SA6    A1          UPDATE ORDINAL                                      FSNAP        511     A     
 FSNAP              RJ     COD         CONVERT TO *DPC*                                    FSNAP        512     A     
 FSNAP              LX6    9*CHAR-6*CHAR                                                   FSNAP        513     A     
 FSNAP              SX1    2R  &2R=                                                        FSNAP        514     A     
 FSNAP              BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))                  FSNAP        515     A     
 FSNAP              SA6    LINNO                                                           FSNAP        516     A     
 FSNAP                                                                                     FSNAP        517     A     
 FSNAP    *         LOOK UP NAME OF SKELETON.                                              FSNAP        518     A     
 FSNAP                                                                                     FSNAP        519     A     
 FSNAP              BX7    X5                                                              FSNAP        520     A     
 FSNAP              HX7    TH.SKEL                                                         FSNAP        521     A     
 FSNAP              AX7    -TH.SKELL                                                       FSNAP        522     A     
 FSNAP              SA1    X7+=XF.SKNAM                                                    FSNAP        523     A     
 FSNAP              BX6    X1                                                              FSNAP        524     A     
 FSNAP              SA6    LINJPAD                                                         FSNAP        525     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP                                                                                     FSNAP        526     A     
 FSNAP    *         CONVERT OPERATOR CODE TO DPC                                           FSNAP        527     A     
 FSNAP                                                                                     FSNAP        528     A     
 FSNAP              SA2    =XPASS                                                          FSNAP        529     A     
 FSNAP              SB2    X2-PASS=QCG                                                     FSNAP        530     A     
 FSNAP              NZ     B2,SPH44    IF NOT IN QUIK CG                                   FSNAP        531     A     
 FSNAP              MX0    -OP.CHINL                                                       FSNAP        532     A     
 FSNAP              LX5    -OP.CHINP                                                       FSNAP        533     A     
 FSNAP              EQ     SPH48                                                           FSNAP        534     A     
 FSNAP                                                                                     FSNAP        535     A     
 FSNAP     SPH44    MX0    -TH.TBPRL                                                       FSNAP        536          I
          -FC50104
 FSNAP              LX5    -TH.TBPRP                                                       FSNAP        537          I
          -FC50104
 FSNAP     SPH44    MX0    -TH.OVALL                                                       FC50104       55     A     
 FSNAP              LX5    -TH.OVALP                                                       FC50104       56     A     
 FSNAP                                                                                     FSNAP        538     A     
 FSNAP     SPH48    SA1    =H/*BAD-TOK*/                                                   FSNAP        539     A     
 FSNAP              BX4    -X0*X5      EXTRACT (X4) = CHARACTER MAP INDEX                  FSNAP        540     A     
 FSNAP              LX6    X1                                                              FSNAP        541     A     
 FSNAP              SB2    X4-O.ERR                                                        FSNAP        542     A     
 FSNAP              GT     B2,SPH50    IF TOKEN TOO BIG                                    FSNAP        543     A     
 FSNAP              SA4    X4+CHARMAP                                                      FSNAP        544     A     
 FSNAP              SX2    2RO.                                                            FSNAP        545     A     
 FSNAP              HX4    CH.DPC                                                          FSNAP        546     A     
 FSNAP              MX0    CH.DPCL                                                         FSNAP        547     A     
 FSNAP              BX6    X0*X4       ISOLATE TOKEN NAME                                  FSNAP        548     A     
 FSNAP              IX1    X6+X2                                                           FSNAP        549     A     
 FSNAP              LX1    -2*6                                                            FSNAP        550     A     
 FSNAP              CALL   ZTB         ZEROES TO BLANKS (TOKEN NAME)                       FSNAP        551     A     
 FSNAP     SPH50    SA6    LINOPR                                                          FSNAP        552     A     
 FSNAP                                                                                     FSNAP        553     A     
 FSNAP    *         EXTRACT MODE FIELDS, DEPENDING ON IL FORMAT.                           FSNAP        554     A     
 FSNAP                                                                                     FSNAP        555     A     
 FSNAP              SA2    =XPASS                                                          FSNAP        556          I
          -FC50104
 FSNAP              SA2    PASS                                                            FC50104       57     A     
 FSNAP              SB2    X2-PASS=QCG                                                     FSNAP        557     A     
 FSNAP              NZ     B2,SPH62    IF NOT IN QUIK CG                                   FSNAP        558     A     
 FSNAP              LX5    OP.CHINP-OP.2MODP                                               FSNAP        559     A     
 FSNAP              MX0    -OP.2MODL                                                       FSNAP        560     A     
 FSNAP              EQ     SPH64                                                           FSNAP        561     A     
 FSNAP                                                                                     FSNAP        562     A     
 FSNAP     SPH62    LX5    TH.TBPRP-TH.MODEP                                               FSNAP        563          I
          -FC50104
 FSNAP     SPH62    LX5    TH.OVALP-TH.MODEP                                               FC50104       58     A     
 FSNAP              MX0    -TH.MODEL                                                       FSNAP        564     A     
 FSNAP     SPH64    BX2    -X0*X5      EXTRACT (X2) = RESULT MODE OF TURPLE                FSNAP        565     A     
 FSNAP              SA2    X2+SN.DMOD                                                      FSNAP        566     A     
 FSNAP              BX6    X2                                                              FSNAP        567     A     
 FSNAP              SA6    A6+B1       STORE DPC FOR RESULT/DOMINANT MODE                  FSNAP        568     A     
 FSNAP                                                                                     FSNAP        569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP    *         DETERMINE TYPE OF OPERANDS                                             FSNAP        570     A     
 FSNAP                                                                                     FSNAP        571     A     
 FSNAP              LX4    -CH.OPCP                                                        FSNAP        572     A     
 FSNAP              SX2    X4          (X2) = DUC-ABILITY                                  FSNAP        573     A     
 FSNAP              ERRNZ  18-CH.OPCL                                                      FSNAP        574     A     
 FSNAP              SB7    DUC.1ST                                                         FSNAP        575     A     
 FSNAP              SB7    -B7                                                             FSNAP        576     A     
 FSNAP              SB7    X2+B7                                                           FSNAP        577     A     
 FSNAP              SB2    SN.1ST                                                          FSNAP        578     A     
 FSNAP              ZR     B7,SN.POP7                                                      FSNAP        579     A     
 FSNAP              SB7    DUC.BTH                                                         FSNAP        580     A     
 FSNAP              SB7    -B7                                                             FSNAP        581     A     
 FSNAP              SB7    X2+B7                                                           FSNAP        582     A     
 FSNAP              SB2    SN.BOTH                                                         FSNAP        583     A     
 FSNAP              ZR     B7,SN.POP7                                                      FSNAP        584     A     
 FSNAP              SB7    DUC.2ND                                                         FSNAP        585     A     
 FSNAP              SB7    -B7                                                             FSNAP        586     A     
 FSNAP              SB7    X2+B7                                                           FSNAP        587     A     
 FSNAP              SB2    SN.2ND                                                          FSNAP        588     A     
 FSNAP              ZR     B7,SN.POP7                                                      FSNAP        589     A     
 FSNAP              SB2    SN.NULL                                                         FSNAP        590     A     
 FSNAP     SN.POP7  SA3    B2                                                              FSNAP        591     A     
 FSNAP              BX6    X3                                                              FSNAP        592     A     
 FSNAP              =A6    A6+1                                                            FSNAP        593     A     
 FSNAP                                                                                     FSNAP        594     A     
 FSNAP    *         CONVERT OPERATOR WORD TO DPC/OCTAL                                     FSNAP        595     A     
 FSNAP                                                                                     FSNAP        596     A     
 FSNAP              SA1    A5          RETRIEVE TURPLE HEADER                              FSNAP        597     A     
 FSNAP              SB3    A5                                                              FSNAP        598     A     
 FSNAP              RJ     WOD                                                             FSNAP        599     A     
 FSNAP              SA6    LINPOC                                                          FSNAP        600     A     
 FSNAP              SA7    A6+B1                                                           FSNAP        601     A     
 FSNAP                                                                                     FSNAP        602     A     
 FSNAP    *         UPDATE POINTERS.                                                       FSNAP        603     A     
 FSNAP                                                                                     FSNAP        604     A     
 FSNAP              SA0    A0-B1                                                           FSNAP        605     A     
 FSNAP              =A5    B3+1                                                            FSNAP        606     A     
 FSNAP              PLINE  LINPAR,LINSPHL                                                  FSNAP        607     A     
 FSNAP              EQ     EXIT.                                                           FSNAP        608     A     
 FSNAP                                                                                     FSNAP        609     A     
 FSNAP     SN.PNO   BSS    1           HOLDS PARSED FILE INDEX                             FSNAP        610     A     
 FSNAP                                                                                     FSNAP        611     A     
 FSNAP    **        LINE IMAGE FOR DUMPING CONTENTS OF A PARSED FILE ELEMENT.              FSNAP        612     A     
 FSNAP                                                                                     FSNAP        613     A     
 FSNAP     LINPAR   BSS    0                                                               FSNAP        614     A     
 FSNAP     LINNO    DATA   0                                                               FSNAP        615     A     
 FSNAP     LINPOC   DATA   0           ENTRY 1ST HALF                                      FSNAP        616     A     
 FSNAP              DATA   0           ENTRY 2ND HALF                                      FSNAP        617     A     
 FSNAP              DATA   10H                                                             FSNAP        618     A     
 FSNAP     LINJPAD  BSS    0           JUMP ADDRESS OF OPERATOR.                           FSNAP        619     A     
 FSNAP     LINPDP   DATA   0                                                               FSNAP        620     A     
 FSNAP     LINOPR   DATA   0           OPERATOR DPC                                        FSNAP        621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP     LINSPGL  =      *-LINPAR    LENGTH OF SPG LINE                                  FSNAP        622     A     
 FSNAP              DIS    1, M.MODE                                                       FSNAP        623     A     
 FSNAP              DIS    1,DUC=WHICH                                                     FSNAP        624     A     
 FSNAP     LINSPHL  =      *-LINPAR    LENGTH OF SPH LINE                                  FSNAP        625     A     
 FSNAP                                                                                     FSNAP        626     A     
 FSNAP    **        DOMINANT MODE *DPC*                                                    FSNAP        627     A     
 FSNAP                                                                                     FSNAP        628     A     
 FSNAP     SN.DMOD  BSS                                                                    FSNAP        629     A     
 FSNAP              LOC    0                                                               FSNAP        630     A     
 FSNAP     M.BOOL   DIS    1, M.BOOL                                                       FSNAP        631     A     
 FSNAP     M.LOG    DIS    1, M.LOG                                                        FSNAP        632     A     
 FSNAP     M.INT    DIS    1, M.INT                                                        FSNAP        633     A     
 FSNAP     M.REAL   DIS    1, M.REAL                                                       FSNAP        634     A     
 FSNAP     M.DBL    DIS    1, M.DBL                                                        FSNAP        635     A     
 FSNAP     M.CPLX   DIS    1, M.CPLX                                                       FSNAP        636     A     
 FSNAP     M.CHAR   DIS    1, M.CHAR                                                       FSNAP        637     A     
 FSNAP              DIS    1, MODE=7                                                       FSNAP        638     A     
 FSNAP              LOC    *O                                                              FSNAP        639     A     
 FSNAP                                                                                     FSNAP        640     A     
 FSNAP    **        TYPE OF OPERANDS                                                       FSNAP        641     A     
 FSNAP                                                                                     FSNAP        642     A     
 FSNAP     SN.NULL  DIS    1,          BLANK FOR DUC=NONE                                  FSNAP        643     A     
 FSNAP     SN.1ST   DIS    1, DUC=1ST                                                      FSNAP        644     A     
 FSNAP     SN.2ND   DIS    1, DUC=2ND                                                      FSNAP        645     A     
 FSNAP     SN.BOTH  DIS    1, DUC=BOTH                                                     FSNAP        646     A     
 FSNAP     ST=      SPACE  4,8                                                             FSNAP        647     A     
 FSNAP    ***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.               FSNAP        648     A     
 FSNAP    *                                                                                FSNAP        649     A     
 FSNAP    *                                                                                FSNAP        650     A     
 FSNAP    *         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC              FSNAP        651     A     
 FSNAP    *         STMT PROCESSORS FOR IDP COMMANDS.                                      FSNAP        652     A     
 FSNAP     UKT=FE   SPACE  4,10                                                            FSNAP        653     A     
 FSNAP    **        UKT=FE - USER IDP KEYWORD TABLE FOR *FRONT-END*.                       FSNAP        654     A     
 FSNAP                                                                                     FSNAP        655     A     
 FSNAP                                                                                     FSNAP        656     A     
 FSNAP     UKT=FE   BSSENT 0           ** FWA OF KEYWORD TABLE **                          FSNAP        657     A     
 FSNAP              QUAL   IDP                                                             FSNAP        658     A     
 FSNAP     BRL      KEYW   (BRLINE NR)                                                     FSNAP        659     A     
 FSNAP     DMT      KEYW   (DUMPT FWA,LWA,LEN)                                             FSNAP        660     A     
 FSNAP              QUAL   *                                                               FSNAP        661     A     
 FSNAP              DATA   0           ** END OF TABLE MARK **                             FSNAP        662     A     
 FSNAP              CON    /IDP/UKT=TOK                                                    FSNAP        663     A     
 FSNAP     ST=BRL   SPACE  4,10                                                            FSNAP        664     A     
 FSNAP    **        ST=BRL - HERE TO PROCESS *BRLINE NR*.                                  FSNAP        665     A     
 FSNAP                                                                                     FSNAP        666     A     
 FSNAP                                                                                     FSNAP        667     A     
 FSNAP     ST=BRL   BSS    0           ** ENTRY **                                         FSNAP        668     A     
 FSNAP              RJ     PAS         PARSE SUBEXPRESSION                                 FSNAP        669     A     
 FSNAP              SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT                 FSNAP        670     A     
 FSNAP              EQ     IDP=MN                                                          FSNAP        671     A     
 FSNAP     CTEXT    SPACE  4,8                                                             FSNAP        672     A     
 FSNAP    *         COMMON DECKS.                                                          FSNAP        673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSNAP   
  
 FSNAP                                                                                     FSNAP        674     A     
 FSNAP                                                                                     FSNAP        675     A     
 FSNAP              QUAL   IDP                                                             FSNAP        676     A     
 FSNAP                                                                                     FSNAP        677     A     
 FSNAP    *CALL     COMDDMT            (DEBUG) DUMP MANAGED TABLES                         FSNAP        678     A     
 FSNAP                                                                                     FSNAP        679     A     
 FSNAP    *CALL     COMDTOK            DEBUG UTILITY FOR COMCTOK                           FSNAP        680     A     
 FSNAP              QUAL   *                                                               FSNAP        681     A     
 FSNAP     COMDTOK  SPACE  4,10                                                            FSNAP        682     A     
 FSNAP     LTK      =      /IDP/LTK                                                        FSNAP        683     A     
 FSNAP     TOK=IDP  EQUENT /IDP/TOK=IDP                                                    FSNAP        684     A     
 FSNAP                                                                                     FSNAP        685     A     
 FSNAP     DMT=     EQU    /IDP/DMT=                                                       FSNAP        686     A     
 FSNAP     FSNAP    SPACE  4,10                                                            FSNAP        687     A     
 FSNAP     #SNAP    ENDIF                                                                  FSNAP        688     A     
 FSNAP              LIST   D                                                               FSNAP        689     A     
 FSNAP     ENDSNAP  END                MARK END OF SNAP DECK                               FSNAP        690     A     
 FSNAP    **ENDIF TEST                                                                     FC5A388       12     A     
 FSNAP    *ENDIF TEST                                                                      FC5A388       13     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FSNAP   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FSNAP                      690       686
          FC50104                      4         4
          FC5A388                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *DECK LEX                                                                        LEX            1     A     
 LEX                IDENT  LEX                                                             LEX            2     A     
 LEX       LEX      SECT   (LEXICAL SCANNER.)                                              LEX            3     A     
 LEX       LEX      SPACE  4,10                                                            LEX            4     A     
 LEX      *         IN ALLOC                                                               LEX            5     A     
 LEX                EXT    ALC                                                             LEX            6     A     
 LEX                                                                                       LEX            7     A     
 LEX      *         IN CDDIR                                                               LEX            8     A     
 LEX                EXT    K$=BEGC,K$=COLL,K$=DO,K$=ELSE,K$=ENDC,K$=ENDI,K$=IF             LEX            9     A     
 LEX                EXT    K$=LIST                                                         LEX           10     A     
 LEX                                                                                       LEX           11     A     
 LEX      *         IN DATA                                                                LEX           12     A     
 LEX                EXT    KW=DATA                                                         LEX           13     A     
 LEX                                                                                       LEX           14     A     
 LEX      *         IN DECL                                                                LEX           15     A     
 LEX                EXT    KW=COMM,KW=DIME,KW=EQUI,KW=EXTE,KW=INTR,KW=LEVE,KW=PARA         LEX           16     A     
 LEX                EXT    KW=SAVE                                                         LEX           17     A     
 LEX                                                                                       LEX           18     A     
 LEX      *         IN FEC                                                                 LEX           19     A     
 LEX                EXT    CARDS,FEC=DAT,FEC=DEC,FEC=END,FEC=ENT,FEC=EXU,FEC=FMT           LEX           20     A     
 LEX                EXT    FEC=IMP,FEC=OK,FEC=PRM,FEC=STF,FEC=TYP,FEC=1ST,L.CARD           LEX           21     A     
 LEX                EXT    NCM,SSY,TLV,ZLCOLON,ZLCOMMA,ZLEQUAL,ZLPAREN                     LEX           22          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FC5A110
 LEX                EXT    NCM,SSY,TLV,ZLCOLON,ZLCOMMA,ZLEQUAL,ZLPAREN,STAGE               FC5A110        6     A     
 LEX                EXT    FEC=BY,IFLEVEL                                                  FC50761        8     A     
 LEX                                                                                       LEX           23     A     
 LEX      *         IN FERRS                                                               LEX           24     A     
 LEX                EXT    E.HC1,E.HC2,E.HC3,E.INI,E.MCA,E.ME,E.TLBL,FILL.                 LEX           25     A     
 LEX                                                                                       LEX           26     A     
 LEX      *         IN FMT                                                                 LEX           27     A     
 LEX                EXT    KW=FORM                                                         LEX           28     A     
 LEX                                                                                       LEX           29     A     
 LEX      *         IN FSNAP                                                               LEX           30     A     
 LEX                EXT    LTB=,TOK=IDP                                                    LEX           31     A     
 LEX                                                                                       LEX           32     A     
 LEX      *         IN FTN                                                                 LEX           33     A     
 LEX                EXT    CO.DS,CO.IDP,CO.PW,CO.SEQ,CO.SNAP,CP.CARD,CP.FLIN               LEX           34          I
          -FC5A426
 LEX                EXT    CP.IFMT,CP.PW,F.IN                                              LEX           35          I
          -FC5A426
 LEX                EXT    CO.DS,CO.IDP,CO.PW,CO.SEQ,CO.SNAP,CO.WPL,CO.WPE                 FC5A426      110     A     
 LEX                EXT    CP.CARD,CP.FLIN,CP.IFMT,CP.PW,F.IN                              FC5A426      111     A     
 LEX                                                                                       LEX           36     A     
 LEX      *         IN HEADER                                                              LEX           37     A     
 LEX                EXT    KW=BLOC,KW=FUNC,KW=OVER,KW=PROG,KW=SUBR                         LEX           38          I
          -FC50243
 LEX                EXT    KW=BLOC,KW=FUNC,KW=OVCA,KW=OVER,KW=PROG,KW=SUBR                 FC50243        7     A     
 LEX                                                                                       LEX           39     A     
 LEX      *         IN IDP                                                                 LEX           40     A     
 LEX                EXT    IDP=                                                            LEX           41     A     
 LEX                                                                                       LEX           42     A     
 LEX      *         IN IO                                                                  LEX           43     A     
 LEX                EXT    KW=BACK,KW=BUFF,KW=CLOS,KW=DECO,KW=ENCO,KW=ENDF,KW=INQU         LEX           44     A     
 LEX                EXT    KW=OPEN,KW=PRIN,KW=PUNC,KW=READ,KW=REWI,KW=WRIT                 LEX           45     A     
 LEX                                                                                       LEX           46     A     
 LEX      *         IN KEY                                                                 LEX           47     A     
 LEX                EXT    IFS,KW=ASSI,KW=BREA,KW=CALL,KW=CONT,KW=ELSE,KW=END              LEX           48     A     
 LEX                EXT    KW=ENDI,KW=ENTR,KW=GOTO,KW=NAME,KW=PATC,KW=PAUS,KW=RETU         LEX           49     A     
 LEX                EXT    KW=STOP                                                         LEX           50     A     
 LEX                                                                                       LEX           51     A     
 LEX      *         IN LABEL                                                               LEX           52     A     
 LEX                EXT    CUL,CULFLAG,KW=DO                                               LEX           53          I
          -FC5A124
 LEX                EXT    CUL,KW=DO                                                       FC5A124        7     A     
 LEX                                                                                       LEX           54     A     
 LEX      *         IN PAR                                                                 LEX           55     A     
 LEX                EXT    CNF                                                             LEX           56     A     
 LEX                                                                                       LEX           57     A     
 LEX      *         IN PEM                                                                 LEX           58     A     
 LEX                EXT    PDM                                                             LEX           59     A     
 LEX                                                                                       LEX           60     A     
 LEX      *         IN PUC                                                                 LEX           61     A     
 LEX                EXT    PWBUF,T=STMT,T=TB,T.CON,T.STMT,T.TB,WOF,WOF=ERR,WO.LOS          LEX           62     A     
 LEX                                                                                       LEX           63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         IN STMTF                                                               LEX           64     A     
 LEX                EXT    SFD                                                             LEX           65     A     
 LEX                                                                                       LEX           66     A     
 LEX      *         IN TYPE                                                                LEX           67     A     
 LEX                EXT    KW=BOOL,KW=CHAR,KW=COMP,KW=DOUB,KW=IMPL,KW=INTE,KW=LOGI         LEX           68     A     
 LEX                EXT    KW=REAL                                                         LEX           69     A     
 LEX                                                                                       LEX           70     A     
 LEX      *         IN UTILITY                                                             LEX           71     A     
 LEX                EXT    CDD,DXB,MVE=,RDC=,SFN,ZTB                                       LEX           72     A     
 LEX       LEX      SPACE  4,10                                                            LEX           73     A     
 LEX      ***       LEX - LEXICAL SCANNER.                                                 LEX           74     A     
 LEX      *                                                                                LEX           75     A     
 LEX      *                                                                                LEX           76     A     
 LEX      *         THIS DECK CONTAINS THE LEXICAL SCANNER.  IT IS DIVIDED INTO            LEX           77     A     
 LEX      *         THE FOLLOWING MAJOR SECTIONS --                                        LEX           78     A     
 LEX      *                                                                                LEX           79     A     
 LEX      *           1. MACRO DEFINITIONS.                                                LEX           80     A     
 LEX      *                                                                                LEX           81     A     
 LEX      *              CONTAINS ALL MACRO DEFINITIONS THAT ARE LOCAL TO THIS             LEX           82     A     
 LEX      *              DECK.                                                             LEX           83     A     
 LEX      *                                                                                LEX           84     A     
 LEX      *           2. DATA STRUCTURES.                                                  LEX           85     A     
 LEX      *                                                                                LEX           86     A     
 LEX      *              CONTAINS THE DEFINITIONS OF DATA CELLS AND SYMBOLS                LEX           87     A     
 LEX      *              PERTINENT TO *LEX*.  ALSO CONTAINS *COMADEF* STRUCTURE            LEX           88     A     
 LEX      *              DEFINITIONS LOCAL TO THIS DECK.                                   LEX           89     A     
 LEX      *                                                                                LEX           90     A     
 LEX      *              NOTE THAT COMPILER GLOBAL *COMADEF* STRUCTURE DEFINITIONS         LEX           91     A     
 LEX      *              USED BY *LEX* ARE DEFINED IN *FTN5TXT*.                           LEX           92     A     
 LEX      *                                                                                LEX           93     A     
 LEX      *           3. MAIN EXECUTIVE.                                                   LEX           94     A     
 LEX      *                                                                                LEX           95     A     
 LEX      *              CONTAINS THE LEXICAL SCANNER MAIN EXECUTIVE THAT                  LEX           96     A     
 LEX      *              OVERSEES/CONTROLS THE LEXICAL SCAN FOR A SINGLE SOURCE            LEX           97     A     
 LEX      *              STATEMENT (INITIAL LINE PLUS CONTINUATION LINES).                 LEX           98     A     
 LEX      *                                                                                LEX           99     A     
 LEX      *              THIS MAIN EXECUTIVE IS ALSO NAMED *LEX* AND IS CALLED             LEX          100     A     
 LEX      *              BY *FEC* (FRONT END CONTROLLER) TO PROCESS A SINGLE               LEX          101     A     
 LEX      *              SOURCE STMT.                                                      LEX          102     A     
 LEX      *                                                                                LEX          103     A     
 LEX      *           4. THE EXECUTIVES.                                                   LEX          104     A     
 LEX      *                                                                                LEX          105     A     
 LEX      *              CONTAINS THE EXECUTIVES THAT ARE INVOKED BY *LEX*                 LEX          106     A     
 LEX      *              (THE LEXICAL SCANNER MAIN EXECUTIVE) TO PERFORM ITS               LEX          107     A     
 LEX      *              MAJOR FUNCTIONAL TASKS.                                           LEX          108     A     
 LEX      *                                                                                LEX          109     A     
 LEX      *           5. SUPPORTING SUBROUTINES.                                           LEX          110     A     
 LEX      *                                                                                LEX          111     A     
 LEX      *              CONTAINS MISCELLANEOUS SUPPORT ROUTINES THAT ARE INVOKED          LEX          112     A     
 LEX      *              WHEN NECESSARY.  NOTE THAT SOME OF THESE ARE INVOKED              LEX          113     A     
 LEX      *              BY PROCESSORS EXTERNAL TO THIS DECK.                              LEX          114     A     
 LEX      *                                                                                LEX          115     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          116     A     
 LEX      *         IN THE INTEREST OF FINDABILITY, EACH OF THE ABOVE SECTIONS             LEX          117     A     
 LEX      *         CAUSES A NEW MAIN TITLE OF THE FORM --                                 LEX          118     A     
 LEX      *                                                                                LEX          119     A     
 LEX      *                LEX - LEXICAL SCANNER/SECTION NAME                              LEX          120     A     
 LEX      *                                                                                LEX          121     A     
 LEX      *         TO BE GENERATED.                                                       LEX          122     A     
 LEX       CODING   SPACE  4,10                                                            LEX          123     A     
 LEX      ***       COMMENTING/CODING CONVENTIONS.                                         LEX          124     A     
 LEX      *                                                                                LEX          125     A     
 LEX      *                                                                                LEX          126     A     
 LEX      *         A NUMBER OF COMMENTING AND CODING CONVENTIONS HAVE BEEN                LEX          127     A     
 LEX      *         ADOPTED IN THIS PIECE OF CODE WHICH SHOULD MAKE IT EASIER              LEX          128     A     
 LEX      *         TO READ AND UNDERSTAND.  THIS AUTHOR BELIEVES VERY STRONGLY            LEX          129     A     
 LEX      *         THAT THE **NOTATION** USED TO DESCRIBE A PARTICULAR DESIGN             LEX          130     A     
 LEX      *         IMPLEMENTATION IS AS IMPORTANT AS THE DESIGN ITSELF.  AND              LEX          131     A     
 LEX      *         INSTEAD OF REQUIRING THAT YOU DECIPHER **MY** NOTATION ON              LEX          132     A     
 LEX      *         THE FLY, I WILL TELL YOU HERE AND NOW HOW IT WORKS...                  LEX          133     A     
 LEX      *                                                                                LEX          134     A     
 LEX      *         THIS DISCUSSION CAN BE DIVIDED INTO 3 PARTS: CODE FORM,                LEX          135     A     
 LEX      *         SYMBOL NAMING, AND A GLOSSARY OF ABBREVIATIONS.                        LEX          136     A     
 LEX      *                                                                                LEX          137     A     
 LEX      ************************************************************************         LEX          138     A     
 LEX      *                                                                                LEX          139     A     
 LEX      *         CODE FORM                                                              LEX          140     A     
 LEX      *                                                                                LEX          141     A     
 LEX      *         THIS IS A DESCRIPTION OF HOW ONE CAN EXPECT CODE TO LOOK               LEX          142     A     
 LEX      *         ON A PAGE.  THE *MACE/KRONOS* CONVENTION IS THE MODEL.                 LEX          143     A     
 LEX      *         *MACE* IS A VERY STYLIZED CODING CONVENTION WHICH IS AIMED             LEX          144     A     
 LEX      *         PRIMARILY AT FORMALIZING SUBROUTINE STRUCTURE.                         LEX          145     A     
 LEX      *                                                                                LEX          146     A     
 LEX      *         *MACE*, BRIEFLY --                                                     LEX          147     A     
 LEX      *                                                                                LEX          148     A     
 LEX      *           1. SUBROUTINES ARE USED THAT ENTER AND EXIT AT A COMMON              LEX          149     A     
 LEX      *              POINT, I.E. ARE INVOKED BY AN *RJ* INSTRUCTION.                   LEX          150     A     
 LEX      *                                                                                LEX          151     A     
 LEX      *           2. ALL SUBROUTINES HAVE 3 CHARACTER MNEMONIC NAMES                   LEX          152     A     
 LEX      *              THAT DESCRIBE THEIR FUNCTION.                                     LEX          153     A     
 LEX      *                                                                                LEX          154     A     
 LEX      *           3. ALL SUBROUTINES BEGIN WITH AN EXTREMELY STYLIZED                  LEX          155     A     
 LEX      *              PREAMBLE WHICH GIVES THE NAME OF THE SUBROUTINE, ITS              LEX          156     A     
 LEX      *              FUNCTION, ITS ENTRY AND EXIT CONDITIONS, THE REGISTERS            LEX          157     A     
 LEX      *              IT USES/DESTROYS, AND A LIST OF ALL THE SUBROUTINES               LEX          158     A     
 LEX      *              AND/OR MACROS THAT IT CALLS/REFERENCES.                           LEX          159     A     
 LEX      *                                                                                LEX          160     A     
 LEX      *              A DETAILED DESCRIPTION OF THE PREAMBLE IS BASICALLY               LEX          161     A     
 LEX      *              A WASTE OF TIME.  THEY ARE ALL EXACTLY ALIKE...JUST GO            LEX          162     A     
 LEX      *              LOOK AT ONE.                                                      LEX          163     A     
 LEX      *                                                                                LEX          164     A     
 LEX      *           4. ALL SUBROUTINE EXECUTABLE CODE LABELS CONSIST OF THE              LEX          165     A     
 LEX      *              SUBROUTINE 3 CHARACTER MNEMONIC FOLLOWED BY A DIGIT               LEX          166     A     
 LEX      *              OR DIGITS IN ASCENDING ORDER.                                     LEX          167     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          168     A     
 LEX      *           5. SUBROUTINE LOCAL-ONLY SCRATCH CELLS HAVE LABELS THAT              LEX          169     A     
 LEX      *              CONSIST OF THE SUBROUTINE 3 CHARACTER MNEMONIC FOLLOWED           LEX          170     A     
 LEX      *              BY A SINGLE LETTER (BEGINNING AT -A-) IN ASCENDING                LEX          171     A     
 LEX      *              ORDER.                                                            LEX          172     A     
 LEX      *                                                                                LEX          173     A     
 LEX      *           6. THE *COMPASS* 2,11,18,30 TABBING CONVENTION IS STRICTLY           LEX          174     A     
 LEX      *              FOLLOWED.  I.E. LABEL FIELD IN COL 2, OPERATION FIELD             LEX          175     A     
 LEX      *              IN COL 11, ADDRESS FIELD IN COL 18, AND COMMENT FIELD             LEX          176     A     
 LEX      *              IN COL 30.                                                        LEX          177     A     
 LEX      *                                                                                LEX          178     A     
 LEX      *           7. COMMENTS THAT DESCRIBE HARDWARE FUNCTION ARE AVOIDED.             LEX          179     A     
 LEX      *              E.G.  SA1  ZIP    LOAD FLAG                                       LEX          180     A     
 LEX      *                    LX1  4      LEFT-SHIFT (X1)                                 LEX          181     A     
 LEX      *                                                                                LEX          182     A     
 LEX      *           8. **ALL** CONDITIONAL BRANCH INSTRUCTIONS CONTAIN A COMMENT         LEX          183     A     
 LEX      *              IN COLS 30-72 THAT BEGINS WITH THE WORD *IF* AND                  LEX          184     A     
 LEX      *              DESCRIBES THE *BRANCH TAKEN* CONDITION.  E.G.                     LEX          185     A     
 LEX      *                                                                                LEX          186     A     
 LEX      *                    ZR   X1,EXIT. IF AT END OF TABLE                            LEX          187     A     
 LEX      *                                                                                LEX          188     A     
 LEX      *         FOR ME, *MACE*S PRIMARY VIRTUE IS THAT IS MAKES FOREIGN CODE           LEX          189     A     
 LEX      *         LOOK NOT-SO-FOREIGN.  SIMPLE.                                          LEX          190     A     
 LEX      *                                                                                LEX          191     A     
 LEX      *         IN ADDITION, THIS CODE USES A FEW EXTENSIONS TO THE *MACE*             LEX          192     A     
 LEX      *         WAY... THEY ARE --                                                     LEX          193     A     
 LEX      *                                                                                LEX          194     A     
 LEX      *           1. THE COMMENT FIELD FOR A LINE CONTAINING A MACHINE                 LEX          195     A     
 LEX      *              MNEMONIC INSTRUCTIONS (I.E. COLS 30-72) IS GENERALLY              LEX          196     A     
 LEX      *              RESERVED FOR A DESCRIPTION OF THE DATA STRUCTURE                  LEX          197     A     
 LEX      *              RESULTING FROM THE HARDWARE INSTRUCTION ON THAT LINE.             LEX          198     A     
 LEX      *                                                                                LEX          199     A     
 LEX      *              USUALLY, THIS IS NOTATED VERY FORMALLY, WITH THE EXPLICIT         LEX          200     A     
 LEX      *              RESULT REGISTER SPECIFIED.  E.G. --                               LEX          201     A     
 LEX      *                                                                                LEX          202     A     
 LEX      *                BX4  -X0*X5    (X4) = NEXT CHAR TO PACK, -R- FORMAT             LEX          203     A     
 LEX      *                                                                                LEX          204     A     
 LEX      *              WHEN SETTING A LOGICAL FLAG, IT DIFFERS --                        LEX          205     A     
 LEX      *                                                                                LEX          206     A     
 LEX      *                SA6  TF=SQZ    SET TO *INDICATE NO BLANK SQUEEZE*               LEX          207     A     
 LEX      *                                                                                LEX          208     A     
 LEX      *              OR WHEN MANIPULATING A *COMADEF* STRUCTURE --                     LEX          209     A     
 LEX      *                                                                                LEX          210     A     
 LEX      *                BX6  X6+X1     MERGE *LEN*                                      LEX          211     A     
 LEX      *                                                                                LEX          212     A     
 LEX      *              IN ITS MOST COMMON FORM, THE RESULT REGISTER IS                   LEX          213     A     
 LEX      *              EXPLICITLY SPECIFIED SO THAT THE READER KNOWS                     LEX          214     A     
 LEX      *              **ABSOLUTELY** WHAT IS MEANT.                                     LEX          215     A     
 LEX      *                                                                                LEX          216     A     
 LEX      *              IN ANY CASE, RESERVING COLS 30-72 FOR DATA STRUCTURE              LEX          217     A     
 LEX      *              DESCRIPTIONS MAKES DEBUGGING EASIER BECAUSE ONE CAN               LEX          218     A     
 LEX      *              CONSTANTLY COMPARE WHAT **IS** WITH WHAT **SHOULD BE**.           LEX          219     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          220     A     
 LEX      *           2. FUNCTIONAL COMMENTS (I.E. WHAT IS GOING ON, OR HOW IT             LEX          221     A     
 LEX      *              IS DONE, OR MORE IMPORTANTLY, WHY ARE WE DOING IT) ARE            LEX          222     A     
 LEX      *              USUALLY PLACED ON A SEPARATE COMMENT LINE THAT PRECEDES           LEX          223     A     
 LEX      *              PARAGRAPH OF CODE THAT IT PERTAINS TO.                            LEX          224     A     
 LEX      *                                                                                LEX          225     A     
 LEX      *              THIS TENDS TO MAKE CODE OCCUR IN FUNCTIONAL BLOCKS...GOOD         LEX          226     A     
 LEX      *              FOR A QUICK ONCE-OVER EYE SCAN.                                   LEX          227     A     
 LEX      *                                                                                LEX          228     A     
 LEX      *           3. A FLAG CELL DEFINITION WILL CONTAIN (AT A MINIMUM)                LEX          229     A     
 LEX      *              A COMMENT THAT SPECIFIED/DESCRIBES **ALL** POSSIBLE               LEX          230     A     
 LEX      *              VALUES THAT THIS FLAG MAY TAKE, AND IDEALLY, UNDER                LEX          231     A     
 LEX      *              WHAT CONDITIONS THE FLAG WILL TAKE THOSE VALUES.                  LEX          232     A     
 LEX      *                                                                                LEX          233     A     
 LEX      *              THIS IS DONE BECAUSE OFTENTIMES, THE FLAG CELL DEFINITION         LEX          234     A     
 LEX      *              IS THE ONLYPLACE WHERE THE INTRICACIES AND PATHOLOGIES            LEX          235     A     
 LEX      *              ASSOCIATED WITH THE USE OF THE FLAG CAN BE INTEGRATED.            LEX          236     A     
 LEX      *                                                                                LEX          237     A     
 LEX      ************************************************************************         LEX          238     A     
 LEX      *                                                                                LEX          239     A     
 LEX      *         SYMBOL NAMING                                                          LEX          240     A     
 LEX      *                                                                                LEX          241     A     
 LEX      *         THIS IS A DESCRIPTION OF THE CONVENTIONS USED IN SYMBOL                LEX          242     A     
 LEX      *         NAMING.  THE INTENT OF THSE CONVENTIONS IS TO TRANSMIT TO              LEX          243     A     
 LEX      *         THE READER AS MUCH INFORMATION AS POSSIBLE BY MERELY SEEING            LEX          244     A     
 LEX      *         A SYMBOL NAME ITSELF.  OFTEN, THIS INFORMATION IMPLIES HOW             LEX          245     A     
 LEX      *         ONE CAN **EXPECT** A SYMBOL TO BE USED.                                LEX          246     A     
 LEX      *                                                                                LEX          247     A     
 LEX      *         TWO BASIC SYMBOL NAME-FORMING RULES ARE USED: FIRST, SYMBOL            LEX          248     A     
 LEX      *         PREFIXES ARE USED HEAVILY.  AND SECOND, THE CHARACTER THAT             LEX          249     A     
 LEX      *         SEPARATES A SYMBOL PREFIX FROM THE REST OF THE SYMBOL NAME             LEX          250     A     
 LEX      *         IS GIVEN SEMANTIC MEAING.  CURRENTLY, THERE ARE ONLY 2 SUCH            LEX          251     A     
 LEX      *         CHARACTERS: -.- IMPLIES THAT THE VALUE OF THE SYMBOL IS                LEX          252     A     
 LEX      *         AVAILABLE AT ASSEMBLY-TIME.  E.G. --                                   LEX          253     A     
 LEX      *                                                                                LEX          254     A     
 LEX      *                SX1    L.KEYW  (X1) = LEN (IN WORDS) OF *KEYW* TABLE            LEX          255     A     
 LEX      *                                                                                LEX          256     A     
 LEX      *         AN -=- CHARACTER IMPLIES THAT THE VALUE OF THE SYMBOL IS               LEX          257     A     
 LEX      *         AVAILABLE ONLY AT EXECUTION-TIME (I.E. IT IS ONLY THE ADDRESS          LEX          258     A     
 LEX      *         OF A CELL AT ASSEMBLY-TIME).  E.G. --                                  LEX          259     A     
 LEX      *                                                                                LEX          260     A     
 LEX      *                SA1    L=KEYW  (X1) = LEN (IN WORDS) OF *KEYW* TABLE            LEX          261     A     
 LEX      *                                                                                LEX          262     A     
 LEX      *         THESE SYMBOLS ARE, THEREFORE, INDIRECT.                                LEX          263     A     
 LEX      *                                                                                LEX          264     A     
 LEX      *         NOTE THE USE OF THE WORD *VALUE* IN THE ABOVE PARAGRAPH.               LEX          265     A     
 LEX      *         OBVIOUSLY, *COMPASS* MUST BE ABLE TO ASSOCIATE SOME BINARY             LEX          266     A     
 LEX      *         NUMBER WITH BOTH TYPES OF SYMBOLS AT ASSEMBLY-TIME.  IN A              LEX          267     A     
 LEX      *         HUMAN SENSE, THOUGH, THE SYMBOL NAMES IN THE ABOVE EXAMPLES            LEX          268     A     
 LEX      *         TELL WHETHER THE *VALUE* OF THE SYMBOL WILL BE USED IN                 LEX          269     A     
 LEX      *         A DIRECT, OR AN INDIRECT MANNER.  A SUBTLE DIFFERENCE THAT             LEX          270     A     
 LEX      *         CAN BE HANDY WHEN READING CODE.                                        LEX          271     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          272     A     
 LEX      *         SYMBOL NAMES CAN BE DIVIDED INTO THE FOLLOWING GENERAL                 LEX          273     A     
 LEX      *         TYPES --                                                               LEX          274     A     
 LEX      *                                                                                LEX          275     A     
 LEX      *           1. SYMBOLS THAT DESCRIBE COMMON COMPUTER OR CDC CONCEPTS,            LEX          276     A     
 LEX      *              SUCH AS: LENGTH, FIRST WORD ADDRESS, ETC...  THESE                LEX          277     A     
 LEX      *              SYMBOL NAMES ARE STRUCTURED SO THAT THE PREFIX DESCRIBES          LEX          278     A     
 LEX      *              THE COMMON IDEA.  I.E. -                                          LEX          279     A     
 LEX      *                                                                                LEX          280     A     
 LEX      *                L.XXX  - LENGTH OF XXX.                                         LEX          281     A     
 LEX      *                FW.XXX - FWA OF XXX.                                            LEX          282     A     
 LEX      *                F.XXX  - FWA OF A FET/FIT FOR FILE XXX.                         LEX          283     A     
 LEX      *                                                                                LEX          284     A     
 LEX      *           2. *COMADEF* STRUCTURES.  *COMADEF* IS A COMDECK THAT                LEX          285     A     
 LEX      *              CONTAINS MACROS FOR DESCRIBE/DEFINING SOFTWARE DATA               LEX          286     A     
 LEX      *              STRUCTURES.  CONCEPTUALLY, IT WORKS MUCH LIKE THE *COBOL*         LEX          287     A     
 LEX      *              *PICTURE*.  VIA THE *COMADEF* MACROS, ONE CAN DRAW                LEX          288     A     
 LEX      *              A PICTURE OF WHAT A DATA STRUCTURE ELEMENT WILL LOOK              LEX          289     A     
 LEX      *              LIKE.                                                             LEX          290     A     
 LEX      *                                                                                LEX          291     A     
 LEX      *              NOW WHEN ONE WISHES TO BUILD OR ACCESS SOME PART OF THE           LEX          292     A     
 LEX      *              DATA STRUCTURE, YOU CAN DO IT **SYMBOLICALLY** VIA                LEX          293     A     
 LEX      *              SYMBOLS THAT THE *COMADEF* MACROS DEFINED IN RESPONSE             LEX          294     A     
 LEX      *              TO THE PICTURE THAT WAS DRAWN VIA THOSE MACROS.                   LEX          295     A     
 LEX      *                                                                                LEX          296     A     
 LEX      *              *COMADEF* SYMBOLS TAKE THE FORM --                                LEX          297     A     
 LEX      *                                                                                LEX          298     A     
 LEX      *                  DD.XXXP  AND DD.XXXL                                          LEX          299     A     
 LEX      *                                                                                LEX          300     A     
 LEX      *              WHERE *DD* IS A COMMON PREFIX FOR THIS DATA STRUCTURE,            LEX          301     A     
 LEX      *              *XXX* IS A UNIQUE NAME FOR A FIELD WITHIN THE DATA                LEX          302     A     
 LEX      *              STRUCTURE *DD*, *P* IS A SUFFIX THAT DENOTES THE RIGHT-           LEX          303     A     
 LEX      *              MOST BIT POSITION OF FIELD *XXX* WITHIN *DD*, AND *L*             LEX          304     A     
 LEX      *              IS A SUFFIX THAT DENOTES THE LENGTH (IN BITS) OF FIELD            LEX          305     A     
 LEX      *              *XXX*.                                                            LEX          306     A     
 LEX      *                                                                                LEX          307     A     
 LEX      *              FOR EXAMPLE --                                                    LEX          308     A     
 LEX      *                                                                                LEX          309     A     
 LEX      *                  SA1  A1+B1    (X1) = NEXT ELEMENT IN STRUCTURE *BB.*          LEX          310     A     
 LEX      *                  MX2  -BB.TOTL (X2) = MASK FOR EXTRACTING *TOT* FIELD          LEX          311     A     
 LEX      *                  LX1  0-BB.TOTP RIGHT-JUSTIFY *TOT* FIELD                      LEX          312     A     
 LEX      *                  BX6  -X2*X1   (X6) = CONTENTS OF *TOT* FIELD                  LEX          313     A     
 LEX      *                                                                                LEX          314     A     
 LEX      *              ONCE ONE BECOMES FAMILIAR WITH THE *COMADEF* NOTATION,            LEX          315     A     
 LEX      *              MOST OF THE ABOVE COMMENTS ARE UNNECESSARY.  THE                  LEX          316     A     
 LEX      *              ACCESSING OF A *COMADEF* STRUCTURE IS SO STYLIZED THAT            LEX          317     A     
 LEX      *              ONE CAN PRETTY MUCH RECOGNIZE IT ANYWHERE, BY ANYONE,             LEX          318     A     
 LEX      *              AND IN AN INFINITY OF CIRCUMSTANCES.                              LEX          319     A     
 LEX      *                                                                                LEX          320     A     
 LEX      *           3. SYMBOLS THAT ONE WISHES TO ASSOCIATE VIA A COMMON PREFIX.         LEX          321     A     
 LEX      *              THESE ARE SYMBOLS THAT THE PROGRAMMER FEELS HAVE AN               LEX          322     A     
 LEX      *              INTERRELATIONSHIP WITHIN THE CONTEXT OF A SPECIFIC                LEX          323     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              PIECE OF CODE.  FOR EXAMPLE, ALL LINE TYPES (INITIAL,             LEX          324     A     
 LEX      *              CONTINUATION, ETC) ARE DEFINED VIA SYMBOLS THAT HAVE              LEX          325     A     
 LEX      *              THE COMMON PREFIX *LT.*, E.G. *LT.INIT*, *LT.CONT*, ETC.          LEX          326     A     
 LEX      *                                                                                LEX          327     A     
 LEX      *              CERTAIN GROUPS OF DATA CELLS ARE ALSO ASSOCIATED VIA              LEX          328     A     
 LEX      *              A COMMON PREFIX: E.G. ALL THE CELLS THAT CONTAIN                  LEX          329     A     
 LEX      *              INFORMATION THAT *LEX* HAS GATHERED ABOUT A SINGLE                LEX          330     A     
 LEX      *              SOURCE LINE HAVE THE COMMON PREFIX *LN=*.                         LEX          331     A     
 LEX      *                                                                                LEX          332     A     
 LEX      *           4. SYMBOLS WITHIN MACRO DEFINITIONS.  THE CONVENTION                 LEX          333     A     
 LEX      *              USED FOR NAMING SYMBOLS WITHIN A MACRO DEFINITION IS              LEX          334     A     
 LEX      *              AS FOLLOWS.  SYMBOLS ARE OF THE FORM --                           LEX          335     A     
 LEX      *                                                                                LEX          336     A     
 LEX      *                '?PPTXXX                                                        LEX          337     A     
 LEX      *                                                                                LEX          338     A     
 LEX      *              WHERE '?  = COMMON *MACRO SYMBOL* PREFIX.                         LEX          339     A     
 LEX      *                    PP  = A COMMON PREFIX FOR SYMBOLS WITHIN THIS               LEX          340     A     
 LEX      *                          MACRO DEFINITION, OR WITHIN A GROUP OF                LEX          341     A     
 LEX      *                          RELATED MACRO DEFINITIONS.                            LEX          342     A     
 LEX      *                    T   = SYMBOL TYPE.  SEE BELOW.                              LEX          343     A     
 LEX      *                    XXX = UNIQUE NAME FOR THIS SYMBOL.                          LEX          344     A     
 LEX      *                                                                                LEX          345     A     
 LEX      *              SYMBOL TYPES, *T*, ARE USED TO SIMPLIFY THE READING               LEX          346     A     
 LEX      *              OF MACRO CODE A LITTLE BIT.  EACH SYMBOL TYPE DENOTES             LEX          347     A     
 LEX      *              HOW THE SYMBOL WILL BE USED WITHIN THE MACRO.                     LEX          348     A     
 LEX      *                                                                                LEX          349     A     
 LEX      *              SYMBOL TYPES ARE --                                               LEX          350     A     
 LEX      *                                                                                LEX          351     A     
 LEX      *                S = *SET* SYMBOL, I.E. ANY SYMBOL THAT IS ASSIGNED AN           LEX          352     A     
 LEX      *                    ABSOLUTE VALUE.  E.G. '?PPSXXX SET 1                        LEX          353     A     
 LEX      *                                                                                LEX          354     A     
 LEX      *                C = *MICRO* NAME.  E.G. '?PPCXXX MICRO 1,,/HARPIES/             LEX          355     A     
 LEX      *                                                                                LEX          356     A     
 LEX      *                R = *RMT* BLOCK NAME.  E.G. '?PPRXXX RMT                        LEX          357     A     
 LEX      *                                                                                LEX          358     A     
 LEX      *                M = *MACRO* NAME.  I.E. USED FOR INTERNAL MACROS WHICH          LEX          359     A     
 LEX      *                    THE PROGRAMMER WISHES TO BE **INVISIBLE** TO THE            LEX          360     A     
 LEX      *                    REST OF THE WORLD.                                          LEX          361     A     
 LEX      *                                                                                LEX          362     A     
 LEX      *           5. NONE OF THE ABOVE.  THERE WILL ALWAYS BE EXCEPTIONS...            LEX          363     A     
 LEX      *              SOME OF THESE ARE BECAUSE THERE IS NO CONVENTION, SOME            LEX          364     A     
 LEX      *              ARE BECAUSE THE CONVENTION DIDNT SEEM RIGHT FOR THIS              LEX          365     A     
 LEX      *              PARTICULAR CASE, ETC, ETC, ETC...                                 LEX          366     A     
 LEX      *                                                                                LEX          367     A     
 LEX      ************************************************************************         LEX          368     A     
 LEX      *                                                                                LEX          369     A     
 LEX      *         GLOSSARY                                                               LEX          370     A     
 LEX      *                                                                                LEX          371     A     
 LEX      *         THE FOLLOWING IS A GLOSSARY OF COMMON ABBREVIATIONS,                   LEX          372     A     
 LEX      *         NOTATIONS, AND SYMBOL PREFIXES THAT ARE NOT IN PARTICULAR              LEX          373     A     
 LEX      *         *LEX*, OR EVEN *FTN* DEPENDENT.                                        LEX          374     A     
 LEX      *                                                                                LEX          375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         A+C    ADDRESS AND CONTENTS.  USED PRIMARILY IN CONJUNCTION            LEX          376     A     
 LEX      *                WITH A LOAD INSTRUCTION WHERE BOTH THE ADDRESS AND              LEX          377     A     
 LEX      *                THE CONTENTS OF THE ADDRESS ARE MEANINGFUL, AS IN --            LEX          378     A     
 LEX      *                                                                                LEX          379     A     
 LEX      *                    SA1   A1+B1   (A1,X1) = A+C OF NEXT TABLE ENTRY             LEX          380     A     
 LEX      *                                                                                LEX          381     A     
 LEX      *                AS OPPOSED TO --                                                LEX          382     A     
 LEX      *                                                                                LEX          383     A     
 LEX      *                    SA1   LN=TYPE (X1) = LINE TYPE                              LEX          384     A     
 LEX      *                                                                                LEX          385     A     
 LEX      *         ADDR   ADDRESS.                                                        LEX          386     A     
 LEX      *                                                                                LEX          387     A     
 LEX      *         FWA    FIRST WORD ADDRESS.                                             LEX          388     A     
 LEX      *                                                                                LEX          389     A     
 LEX      *         FW.XXX A SYMBOL WHOSE VALUE SPECIFIES A FWA.                           LEX          390     A     
 LEX       LEX      TTL    LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                        LEX          391     A     
 LEX                EJECT                                                                  LEX          392     A     
 LEX       MACROS   SPACE  4,10                                                            LEX          393     A     
 LEX      ***       MACRO DEFINITIONS.                                                     LEX          394     A     
 LEX      *                                                                                LEX          395     A     
 LEX      *                                                                                LEX          396     A     
 LEX      *         THE FOLLOWING SECTION CONTAINS THE MACRO DEFINITIONS THAT ARE          LEX          397     A     
 LEX      *         LOCAL TO THE DECK *LEX*.                                               LEX          398     A     
 LEX      *                                                                                LEX          399     A     
 LEX      *         ADDITIONAL GLOBAL COMPILER MACROS USED BY *LEX* CAN BE FOUND           LEX          400     A     
 LEX      *         IN *FTN5TXT* AND *CPUTEXT*.                                            LEX          401     A     
 LEX       KEYW     SPACE  4,10                                                            LEX          402     A     
 LEX      **        KEYW - DEFINE FTN KEYWORD TABLE ENTRY.                                 LEX          403     A     
 LEX      *                                                                                LEX          404     A     
 LEX      *                                                                                LEX          405     A     
 LEX      *         THIS MACRO IS USED TO DEFINE ENTRIES IN THE FTN KEYWORD                LEX          406     A     
 LEX      *         TABLE.                                                                 LEX          407     A     
 LEX      *                                                                                LEX          408     A     
 LEX      *         KEYW   KEY,STAJ,ATTR                                                   LEX          409     A     
 LEX      *                                                                                LEX          410     A     
 LEX      *         ENTRY  KEY  = FTN KEYWORD IF CHARACTER STRING IS NOT PREFIXED          LEX          411     A     
 LEX      *                       WITH *=*, ELSE                                           LEX          412     A     
 LEX      *                     = ADDR OF STMT PROCESSOR THAT IS TO PROCESS                LEX          413     A     
 LEX      *                       THIS STMT IF PREFIXED WITH *=* (NOTE THAT THE            LEX          414     A     
 LEX      *                       *=* WILL BE REMOVED VIA MICRO MANIPULATION).             LEX          415     A     
 LEX      *                       THIS NOTATION IS FOR THE SPECIAL SYNTACTICALLY           LEX          416     A     
 LEX      *                       DEFINED *KEYW* ENTRIES.                                  LEX          417     A     
 LEX      *                STAJ = *FEC* STAGE THAT THIS STMT CAN OCCUR IN.                 LEX          418     A     
 LEX      *                ATTR = ATTRIBUTES OF THIS STMT.                                 LEX          419     A     
 LEX      *                                                                                LEX          420     A     
 LEX      *                SEE *KEYW* TABLE (FWA AT *FW.KEYW*) AND *KW.* SYMBOL            LEX          421     A     
 LEX      *                DEFINITIONS (IN *FTN5TXT*) FOR A MORE COMPLETE                  LEX          422     A     
 LEX      *                DESCRIPTION OF THESE PARAMETERS.                                LEX          423     A     
 LEX      *                                                                                LEX          424     A     
 LEX      *         EXIT   NONE                                                            LEX          425     A     
 LEX      *                                                                                LEX          426     A     
 LEX      *         USES   NONE                                                            LEX          427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          428     A     
 LEX      *         CALLS  BSSENT,LITKEY                                                   LEX          429     A     
 LEX                                                                                       LEX          430     A     
 LEX                PURGMAC KEYW                                                           LEX          431     A     
 LEX                                                                                       LEX          432     A     
 LEX                MACRO  KEYW,LOC,KEY,STAJ,ATTR                                          LEX          433     A     
 LEX                LOCAL  '?KW#002                                                        LEX          434     A     
 LEX      *                                                                                LEX          435     A     
 LEX       '?KWCKEY MICRO  1,, KEY                                                         LEX          436     A     
 LEX       '?KWSKEY MICCNT '?KWCKEY                                                        LEX          437     A     
 LEX       '?KWCS01 MICRO  1,1, KEY                                                        LEX          438     A     
 LEX      *                                                                                LEX          439     A     
 LEX       '?KW#001 IFC    NE,/"'?KWCS01"/=/                                               LEX          440     A     
 LEX       '?KWCJMP MICRO  1,4, KEY                                                        LEX          441     A     
 LEX       '?KWCJMP MICRO  1,, KW="'?KWCJMP"                                               LEX          442     A     
 LEX      *                                                                                LEX          443     A     
 LEX       '?KW#001 ELSE                                                                   LEX          444     A     
 LEX       '?KWCJMP MICRO  2,, KEY                                                         LEX          445     A     
 LEX       '?KW#001 ENDIF                                                                  LEX          446     A     
 LEX      *                                                                                LEX          447     A     
 LEX       LOC      BSS    0                                                               LEX          448     A     
 LEX                VFD    KW.JMPL/=X"'?KWCJMP"                                            LEX          449     A     
 LEX      *                                                                                LEX          450     A     
 LEX       '?KW#001 IRP    ATTR                                                            LEX          451     A     
 LEX                POS    KW.ATTR_P+1                                                     LEX          452     A     
 LEX                VFD    1/1         (ATTR)                                              LEX          453     A     
 LEX       '?KW#001 IRP                                                                    LEX          454     A     
 LEX                POS    KW.ATTRP                                                        LEX          455     A     
 LEX      *                                                                                LEX          456     A     
 LEX                VFD    KW.FECL/=XFEC=STAJ                                              LEX          457     A     
 LEX                VFD    KW.LENL/'?KWSKEY*CHAR                                           LEX          458     A     
 LEX      *                                                                                LEX          459     A     
 LEX       '?KW#001 IFC    NE,/"'?KWCS01"/=/                                               LEX          460     A     
 LEX                VFD    KW.KEYL/'?KW#002                                                LEX          461     A     
 LEX      *                                                                                LEX          462     A     
 LEX       '?KW#002 LITKEY                                                                 LEX          463     A     
 LEX       '?KW#001 ELSE                                                                   LEX          464     A     
 LEX                VFD    KW.KEYL/-1                                                      LEX          465     A     
 LEX       '?KW#001 ENDIF                                                                  LEX          466     A     
 LEX      *                                                                                LEX          467     A     
 LEX       KEYW     ENDM                                                                   LEX          468     A     
 LEX       KEY$     SPACE  4,10                                                            LEX          469     A     
 LEX      **        KEY$ - DEFINE FTN C$ KEYWORD TABLE ENTRY.                              LEX          470     A     
 LEX      *                                                                                LEX          471     A     
 LEX      *                                                                                LEX          472     A     
 LEX      *         THIS MACRO IS USED TO DEFINE ENTRIES IN THE FTN C$ KEYWORD             LEX          473     A     
 LEX      *         TABLE.                                                                 LEX          474     A     
 LEX      *                                                                                LEX          475     A     
 LEX      *         KEY$   KEY,STAJ,ATTR                                                   LEX          476     A     
 LEX      *                                                                                LEX          477     A     
 LEX      *         ENTRY  KEY  = C$ KEYWORD                                               LEX          478     A     
 LEX      *                STAJ = *FEC* STAGE THAT THIS STMT CAN OCCUR IN.                 LEX          479     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                ATTR = ATTRIBUTES OF THIS STMT.                                 LEX          480     A     
 LEX      *                                                                                LEX          481     A     
 LEX      *                SEE *KEY$* TABLE (FWA AT *FW.KEY$*) AND *KW.* SYMBOL            LEX          482     A     
 LEX      *                DEFINITIONS (IN *FTN5TXT*) FOR A MORE COMPLETE                  LEX          483     A     
 LEX      *                DESCRIPTION OF THESE PARAMETERS.                                LEX          484     A     
 LEX      *                                                                                LEX          485     A     
 LEX      *         EXIT   NONE                                                            LEX          486     A     
 LEX      *                                                                                LEX          487     A     
 LEX      *         USES   NONE                                                            LEX          488     A     
 LEX      *                                                                                LEX          489     A     
 LEX      *         CALLS  BSSENT,LITKEY                                                   LEX          490     A     
 LEX                                                                                       LEX          491     A     
 LEX                PURGMAC KEY$                                                           LEX          492     A     
 LEX                                                                                       LEX          493     A     
 LEX                MACRO  KEY$,LOC,KEY,STAJ,ATTR                                          LEX          494     A     
 LEX                LOCAL  '?KW#002                                                        LEX          495     A     
 LEX      *                                                                                LEX          496     A     
 LEX       '?KWCKEY MICRO  1,, KEY                                                         LEX          497     A     
 LEX       '?KWSKEY MICCNT '?KWCKEY                                                        LEX          498     A     
 LEX      *                                                                                LEX          499     A     
 LEX       '?KWCJMP MICRO  1,4, KEY                                                        LEX          500     A     
 LEX       '?KWCJMP MICRO  1,, K$="'?KWCJMP"                                               LEX          501     A     
 LEX      *                                                                                LEX          502     A     
 LEX       LOC      BSS    0                                                               LEX          503     A     
 LEX                VFD    KW.JMPL/=X"'?KWCJMP"                                            LEX          504     A     
 LEX      *                                                                                LEX          505     A     
 LEX       '?KW#001 IRP    ATTR                                                            LEX          506     A     
 LEX                POS    KW.ATTR_P+1                                                     LEX          507     A     
 LEX                VFD    1/1         (ATTR)                                              LEX          508     A     
 LEX       '?KW#001 IRP                                                                    LEX          509     A     
 LEX                POS    KW.ATTRP                                                        LEX          510     A     
 LEX      *                                                                                LEX          511     A     
 LEX                VFD    KW.FECL/=XFEC=STAJ                                              LEX          512     A     
 LEX                VFD    KW.LENL/'?KWSKEY*CHAR                                           LEX          513     A     
 LEX      *                                                                                LEX          514     A     
 LEX                VFD    KW.KEYL/'?KW#002                                                LEX          515     A     
 LEX      *                                                                                LEX          516     A     
 LEX       '?KW#002 LITKEY                                                                 LEX          517     A     
 LEX      *                                                                                LEX          518     A     
 LEX       KEY$     ENDM                                                                   LEX          519     A     
 LEX       LNJP     SPACE  4,10                                                            LEX          520     A     
 LEX      **        LNJP - LINE TYPE JUMP TABLE.                                           LEX          521     A     
 LEX      *                                                                                LEX          522     A     
 LEX      *                                                                                LEX          523     A     
 LEX      *         THIS MACRO IS USED TO DEFINE ENTRIES IN A JUMP TABLE                   LEX          524     A     
 LEX      *         THAT IS USED TO SPLIT UP THE FLOW OF PROCESSING WITHIN                 LEX          525     A     
 LEX      *         *LEX* BASED UPON THE LINE TYPE OF THE LINE AT (CP.CARD).               LEX          526     A     
 LEX      *                                                                                LEX          527     A     
 LEX      *         SEE FTN 5 IMS FOR DECK *LEX* --  5.1 APPENDICES/MAIN LOOP              LEX          528     A     
 LEX      *         FLOW CHART.                                                            LEX          529     A     
 LEX                                                                                       LEX          530     A     
 LEX                                                                                       LEX          531     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                PURGMAC LNJP                                                           LEX          532     A     
 LEX                                                                                       LEX          533     A     
 LEX                MACRO  LNJP,LNTYP,JPAD                                                 LEX          534     A     
 LEX      *                                                                                LEX          535     A     
 LEX                NOREF  .LN                                                             LEX          536     A     
 LEX       .LN      SET    *                                                               LEX          537     A     
 LEX                IFNE   LT.LNTYP,.LN,1                                                  LEX          538     A     
 LEX       P        ERR    *LNJP* ORD AND *LT.TYPE* DO NOT AGREE.       "SEQUENCE"         LEX          539     A     
 LEX      *                                                                                LEX          540     A     
 LEX                CON    JPAD *O+4S15                                                    LEX          541     A     
 LEX      *                                                                                LEX          542     A     
 LEX       LNJP     ENDM                                                                   LEX          543     A     
 LEX      *CALL     COMATOK            THE *TOGEL* MACROS                                  LEX          544     A     
 LEX      *CALL     COMSTOK            COMMON TOKEN GENERATOR INTERFACE TEXT.              LEX          545     A     
 LEX       DATA     TTL    LEX - LEXICAL SCANNER/DATA STRUCTURES.                          LEX          546     A     
 LEX                EJECT                                                                  LEX          547     A     
 LEX      ***       DATA STRUCTURES.                                                       LEX          548     A     
 LEX      *                                                                                LEX          549     A     
 LEX      *                                                                                LEX          550     A     
 LEX      *         THE FOLLOWING SECTION CONTAINS THE DESCRIPTIONS AND                    LEX          551     A     
 LEX      *         DEFINITIONS OF MOST OF THE DATA STRUCTURES USED BY *LEX*.              LEX          552     A     
 LEX      *                                                                                LEX          553     A     
 LEX      *         ADDITIONAL GLOBAL COMPILER/LEX DATA STRUCTURE INFORMATION              LEX          554     A     
 LEX      *         CAN BE FOUND IN *FTN5TXT*.                                             LEX          555     A     
 LEX       BB.      SPACE  4,10                                                            LEX          556     A     
 LEX      **        BB. - *BUB* SYMBOL DEFINITIONS.                                        LEX          557     A     
 LEX      *                                                                                LEX          558     A     
 LEX                                                                                       LEX          559     A     
 LEX                                                                                       LEX          560     A     
 LEX                DESCRIBE BB.                                                           LEX          561     A     
 LEX       TOC      DEFINE TB.TOCL                                                         LEX          562     A     
 LEX       TOT      DEFINE TB.TOTL                                                         LEX          563     A     
 LEX                                                                                       LEX          564     A     
 LEX       BN.      SPACE  4,10                                                            LEX          565     A     
 LEX      **        BN. - *BUN* GROUP FORMAT.                                              LEX          566     A     
 LEX                                                                                       LEX          567     A     
 LEX                                                                                       LEX          568     A     
 LEX                DESCRIBE BN.                                                           LEX          569     A     
 LEX       TOC      DEFINE 60                                                              LEX          570     A     
 LEX       TOT      DEFINE 0                                                               LEX          571     A     
 LEX       CH=      SPACE  4,10                                                            LEX          572     A     
 LEX      ***       CH= - CHARACTER STRING INFORMATION.                                    LEX          573     A     
 LEX      *                                                                                LEX          574     A     
 LEX      *                                                                                LEX          575     A     
 LEX      *         SYMBOLS OF THE FORM *CH=XXX* CONTAIN INFORMATION ABOUT                 LEX          576     A     
 LEX      *         A CHARACTER STRING DURING TOKEN GENERATION.  THERE IS                  LEX          577     A     
 LEX      *         A CONSIDERABLE AMOUNT OF SPECIAL-CASE CODE FOR ENTOKENING              LEX          578     A     
 LEX      *         THE VARIOUS CHARACTER STRINGS, AND DURING THIS PROCESS IT              LEX          579     A     
 LEX      *         IS NECESSARY TO SAVE CERTAIN INFORMATION WHILE *TOK* IS                LEX          580     A     
 LEX      *         ACTUALLY DOING ITS THING.                                              LEX          581     A     
 LEX      *                                                                                LEX          582     A     
 LEX      ************************************************************************         LEX          583     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       CH=CNT   SPACE  4,10                                                            LEX          584     A     
 LEX      **        CH=CNT - CHARACTER STRING CHARACTER COUNT.                             LEX          585     A     
 LEX      *                                                                                LEX          586     A     
 LEX      *                                                                                LEX          587     A     
 LEX      *         *CH=CNT* CONTAINS A CHARACTER STRING CHARACTER COUNT, AND IS           LEX          588     A     
 LEX      *         USED FOR CHARACTER STRINGS THAT SPAN CARD/LINE BOUNDARIES              LEX          589     A     
 LEX      *         (I.E. CHARACTER STRINGS THAT ARE CONTINUED).                           LEX          590     A     
 LEX      *                                                                                LEX          591     A     
 LEX      *         UPON ENCOUNTERING AN EOL MARK DURING CHARACTER STRING                  LEX          592     A     
 LEX      *         GENERATION/ASSEMBLY, THE CURRENT CHARACTER STRING COUNT IS             LEX          593     A     
 LEX      *         SAVED IN (CH=CNT) SO THAT *TOK* CAN RESTART ASSEMBLY OF THIS           LEX          594     A     
 LEX      *         CHARACTER STRING WHEN *LEX*S MAIN LOOP PROVIDES THE NEXT               LEX          595     A     
 LEX      *         LINE.                                                                  LEX          596     A     
 LEX      *                                                                                LEX          597     A     
 LEX      *         (CH=CNT) DIFFER ACCORDING TO WHETHER WE ARE GENERATING                 LEX          598     A     
 LEX      *         AN *HLR* COUNT-CONTROLLED STRING, OR A QUOTE-TYPE DELIMITED            LEX          599     A     
 LEX      *         STRING --                                                              LEX          600     A     
 LEX      *                                                                                LEX          601     A     
 LEX      *           1. FOR COUNT-CONTROLLED *HLR* STRINGS, *CH=CNT* CONTAINS             LEX          602     A     
 LEX      *              THE NR OF CHARACTERS REMAINING TO BE ASSEMBLED INTO THE           LEX          603     A     
 LEX      *              CURRENT CHARACTER STRING.                                         LEX          604     A     
 LEX      *                                                                                LEX          605     A     
 LEX      *              E.G. -- COL 65     72                                             LEX          606     A     
 LEX      *                           .      .                                             LEX          607     A     
 LEX      *                        20HBOB-TAIL                                             LEX          608     A     
 LEX      *                                                                                LEX          609     A     
 LEX      *              AT EOL, COL 72, (CH=CNT) = 12 TO INDICATE THAT THERE ARE          LEX          610     A     
 LEX      *              12 CHARACTERS REMAINING TO BE ASSEMBLED/GROUPED INTO THIS         LEX          611     A     
 LEX      *              CHARACTER STRING.                                                 LEX          612     A     
 LEX      *                                                                                LEX          613     A     
 LEX      *           2. FOR QUOTE-TYPE DELIMITED STRINGS, *CH=CNT* CONTAINS               LEX          614     A     
 LEX      *                                                                                LEX          615     A     
 LEX      *                  -(CHARACTER COUNT + 1)                                        LEX          616     A     
 LEX      *                                                                                LEX          617     A     
 LEX      *              E.G. -- COL 65     72                                             LEX          618     A     
 LEX      *                           .      .                                             LEX          619     A     
 LEX      *                          "BOB-TAIL                                             LEX          620     A     
 LEX      *                                                                                LEX          621     A     
 LEX      *              AT EOL, COL 72, (CH=CNT) = -9 TO INDICATE THAT WE HAVE            LEX          622     A     
 LEX      *              ASSEMBLED/GROUPED 8 CHARACTERS INTO THIS CHARACTER                LEX          623     A     
 LEX      *              STRING.                                                           LEX          624     A     
 LEX      *                                                                                LEX          625     A     
 LEX      *         THE ORIGIN OF THE CONTENTS OF *CH=CNT* IS THE ENTOKENING               LEX          626     A     
 LEX      *         REGISTER (B5).  SEE *COMCBUN*.                                         LEX          627     A     
 LEX      *                                                                                LEX          628     A     
 LEX      *         NOTE ALSO THAT *CH=CNT* CONTAINS A FUNNY NUMBER FOR                    LEX          629     A     
 LEX      *         QUOTE-TYPE STRINGS, I.E. -(CHAR COUNT + 1), BECAUSE                    LEX          630     A     
 LEX      *         OF THE WAY *COMCBUN* WORKS.  ON ENTRY TO *BUN* (BURST/BUILD            LEX          631     A     
 LEX      *         CHARACTERS WITH NO BLANK SQUEEZE), (B5) CONTAINS A *MAXIMUM            LEX          632     A     
 LEX      *         NR OF CHARACTERS TO BURST/BUILD* COUNT.  *BUN* DECREMENTS              LEX          633     A     
 LEX      *         (B5) FOR EACH CHARACTER HE BURST/BUILDS, AND EXITS IF                  LEX          634     A     
 LEX      *         (B5) EVER GOES .ZR.                                                    LEX          635     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          636     A     
 LEX      *         FOR QUOTE-TYPE STRINGS, THERE IS NO *CHARACTER COUNT* FOR              LEX          637     A     
 LEX      *         (B5), BUT IF WE ARE CAREFUL, *BUN* WILL COUNT THE NR                   LEX          638     A     
 LEX      *         OF CHARACTERS HE GROUPS INTO THE ''/"" STRING VIA (B5).                LEX          639     A     
 LEX      *                                                                                LEX          640     A     
 LEX      *         IT WORKS LIKE THIS: IF WE SET (B5) = -1 AT THE BEGINNING               LEX          641     A     
 LEX      *         OF ''/"" STRING PROCESSING, THEN (B5) WILL NEVER BE .ZR.               LEX          642     A     
 LEX      *         IN *BUN* BECAUSE *BUN* STARTS DECREMENTING AT (B5) = -1                LEX          643     A     
 LEX      *         (I.E. -2, -3, -4, ETC).  IT CAN NOW BE SEEN THAT FOR                   LEX          644     A     
 LEX      *         QUOTE-TYPE STRINGS, (B5) ON EXIT FROM *BUN* WILL CONTAIN               LEX          645     A     
 LEX      *         -(CHAR COUNT + 1).  I.E. 0 IS IMPOSSIBLE, -1 = 0 CHARS                 LEX          646     A     
 LEX      *         IN STRING, -2 = 1 CHAR IN STRING, ETC.                                 LEX          647     A     
 LEX                                                                                       LEX          648     A     
 LEX                                                                                       LEX          649     A     
 LEX       CH=CNT   BSSZ   1                                                               LEX          650     A     
 LEX       CH=SB3   SPACE  4,10                                                            LEX          651     A     
 LEX      **        CH=SB3 - SAVED (B3) FOR "S""S" AND 'S''S' PROCESSING.                  LEX          652     A     
 LEX      *                                                                                LEX          653     A     
 LEX      *                                                                                LEX          654     A     
 LEX      *         *CH=SB3* IS USED TO SAVE (B3), WHICH CONTAINS THE NEXT-                LEX          655     A     
 LEX      *         AVAILABLE-CHARACTER BIT COUNT FOR (X6), DURING A CERTAIN               LEX          656     A     
 LEX      *         PART OF "" AND '' STRING PROCESSING.                                   LEX          657     A     
 LEX      *                                                                                LEX          658     A     
 LEX      *         THIS IS A ROYAL KLUDGE, AND IS NECESSARY ONLY BECAUSE                  LEX          659     A     
 LEX      *         OF A WEIRDNESS THAT CAN HAPPEN DURING THE PROCESSING                   LEX          660     A     
 LEX      *         OF THE IMBEDDED QUOTE-WITHIN-A-QUOTE-STRING SYNTAX.                    LEX          661     A     
 LEX      *         THAT IS, WHEN 2 CONSECUTIVE QUOTES ARE TO BE TREATED                   LEX          662     A     
 LEX      *         AS A SINGLE CHARACTER.                                                 LEX          663     A     
 LEX      *                                                                                LEX          664     A     
 LEX      *         FOR EXAMPLE, IN --                                                     LEX          665     A     
 LEX      *                                                                                LEX          666     A     
 LEX      *         'SSS''SSS'  OR  "SSS""SSS"                                             LEX          667     A     
 LEX      *                                                                                LEX          668     A     
 LEX      *         IF YOU WOULD BE SO KIND AS TO REFER TO THE *TOGEL PROC*                LEX          669     A     
 LEX      *         CALLED *DQT* (PROCESS " DELIMITED STRING), WHICH IS THE                LEX          670     A     
 LEX      *         *EXECUTIVE* FOR THE ENTOKENING OF "" STRINGS.  SINGLE                  LEX          671     A     
 LEX      *         QUOTE (') DELIMITED STRINGS ARE HANDLED BY *SQT* (PROCESS              LEX          672     A     
 LEX      *         ' DELIMITED STRING)...THE PROCESSING IS ALMOST IDENTICAL.              LEX          673     A     
 LEX      *                                                                                LEX          674     A     
 LEX      *         BACK TO *DQT*.  *DQT* IS INVOKED AFTER THE " IS DETECTED VIA           LEX          675     A     
 LEX      *         THE STANDARD *CASEOF* PROCESSING FOR FTN NON-ALPHAMERICS.              LEX          676     A     
 LEX      *         YOU CAN SEE THAT AFTER A LITTLE BIT OF BULLSHIT, *DQT*                 LEX          677     A     
 LEX      *         GETS AROUND TO *GROUP*ING THE "" DELIMITED STRING.  AFTER              LEX          678     A     
 LEX      *         WHICH, HE *CALT*S *TOK=ITQ* (IGNORE TERMINATING QUOTE) TO              LEX          679     A     
 LEX      *         SET ENTOKENING REGISTER (X4) SO AS TO EFFECTIVELY CAUSE                LEX          680     A     
 LEX      *         *TOK* (TOKEN GENERATOR) TO IGNORE THE " WHICH TERMINATES               LEX          681     A     
 LEX      *         THE CHARACTER STRING.                                                  LEX          682     A     
 LEX      *                                                                                LEX          683     A     
 LEX      *         THE NEXT *TOGEL* INSTRUCTION IS THE *IFT (")*, WHICH                   LEX          684     A     
 LEX      *         IS GOING TO TEST FOR A " IMMEDIATELY FOLLOWING THE                     LEX          685     A     
 LEX      *         TERMINATING ".  IF ONE EXISTS, THEN *DQT* INVOKES *TOK=QOQ*            LEX          686     A     
 LEX      *         (PROCESS QUOTE WITHIN QUOTE STRING) TO DO HIS THING.                   LEX          687     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          688     A     
 LEX      *         THE PROBLEM LIES IN THE *IFT*.  BEFORE THIS *IFT* CAN BE               LEX          689     A     
 LEX      *         EXECUTED/INTERPRETED BY *TOK*, HE HAS TO ASSURE THAT THERE             LEX          690     A     
 LEX      *         IS A CHARACTER IN (X4) FOR THE *IFT* PROCESSOR TO LOOK AT.             LEX          691     A     
 LEX      *         NOW, BECAUSE WE HAVE JUST SET (X4) *EMPTY* VIA *TOK=ITQ*,              LEX          692     A     
 LEX      *         *TOK* WILL PERFORM A *BUN* (BURST/BUILD CHARACTERS W/ NO               LEX          693     A     
 LEX      *         BLANK SQUEEZE) CALL TO GET A CHARACTER INTO (X4).                      LEX          694     A     
 LEX      *                                                                                LEX          695     A     
 LEX      *         THIS *BUN* CALL CAUSES (B3) TO BE RESET (TO AVOID AUTO-                LEX          696     A     
 LEX      *         MATICALLY GENERATING A TOKEN).  BECAUSE (B3) IS RESET,                 LEX          697     A     
 LEX      *         WHEN WE TRY TO PICK UP WHERE WE LEFT OFF FOR THE "" STRING,            LEX          698     A     
 LEX      *         WE HAVE THE **WRONG** VALUE FOR (B3).                                  LEX          699     A     
 LEX      *                                                                                LEX          700     A     
 LEX      *         THEREFORE, WE SAVE (B3) IN (CH=SB3) BEFORE THE *IFT* IS                LEX          701     A     
 LEX      *         INVOKED, AND RESTORE IT IN *TOK=QOQ* AFTER THE *IFT*                   LEX          702     A     
 LEX      *         HAS BEEN EXECUTED.  NOTE THAT WE ONLY RESTORE (B3) IF                  LEX          703     A     
 LEX      *         THE *IFT* INDICATES *TRUE*, I.E. WHEN WE HAVE A QUOTE-                 LEX          704     A     
 LEX      *         WITHIN-A-QUOTE-STRING.  WE DO NOT CARE ABOUT THE *FALSE*               LEX          705     A     
 LEX      *         CASE BECAUSE WE ARE STARTING WITH A NEW TOKEN, AND                     LEX          706     A     
 LEX      *         THEREFORE A NEW (B3).                                                  LEX          707     A     
 LEX                                                                                       LEX          708     A     
 LEX                                                                                       LEX          709     A     
 LEX       CH=SB3   BSSZ   1                                                               LEX          710     A     
 LEX       CH=TAD   SPACE  4,10                                                            LEX          711     A     
 LEX      **        CH=TAD - SAVED ADDR OF *O.HOLL* TOKEN.                                 LEX          712     A     
 LEX      *                                                                                LEX          713     A     
 LEX      *                                                                                LEX          714     A     
 LEX      *         *CH=TAD* CONTAINS THE ADDR IN *T.TB* OF THE *O.HOLL* OR                LEX          715     A     
 LEX      *         *O.CHAR* TOKEN THAT IS CURRENTLY BEING GENERATED.  THIS IS             LEX          716     A     
 LEX      *         NECESSARY BECAUSE UPON ENCOUNTERING A CHARACTER/HOLLERITH              LEX          717     A     
 LEX      *         TYPE STRING, WE FIRST GENERATE AN INCOMPLETE *O.HOLL/O.CHAR*           LEX          718     A     
 LEX      *         TOKEN TO *T.TB* AND THEN USE THE REST OF THE TOKEN BUFFER              LEX          719     A     
 LEX      *         IMMEDIATLEY FOLLOWING OUR INVENTED *O.HOLL/O.CHAR* TOKEN               LEX          720     A     
 LEX      *         AS A SCRATCH AREA FOR ASSEMBLING THE CHARACTER/HOLLERITH               LEX          721     A     
 LEX      *         CONSTANT.                                                              LEX          722     A     
 LEX      *                                                                                LEX          723     A     
 LEX      *         AFTER *TOK* (TOKEN GENERATOR) HAS FINISHED GROUPING THE                LEX          724     A     
 LEX      *         CHARACTER/HOLLERITH STRING INTO THE SCRATCH AREA, *TOK=EOQ*            LEX          725     A     
 LEX      *         (END OF QUOTE STRING) OR *TOK=EOC* (END OF CHARACTER                   LEX          726     A     
 LEX      *         STRING) WILL ENTER THE STRING INTO *T.CHAR/T.CONS* FOR                 LEX          727     A     
 LEX      *         THE REST OF THE COMPILER TO GET AT.  THESE END-OF-STRING               LEX          728     A     
 LEX      *         PROCESSORS NOW NEED TO GO BACK AND FILL IN SOME MISSING                LEX          729     A     
 LEX      *         INFORMATION INTO THE INCOMPLETE *O.HOLL/O.CHAR* TOKEN.                 LEX          730     A     
 LEX      *                                                                                LEX          731     A     
 LEX      *         NOW WE GET TO THE POINT: (CH=TAD) TELLS US WHERE THE                   LEX          732     A     
 LEX      *         INCOMPLETE TOKEN IS.                                                   LEX          733     A     
 LEX      *                                                                                LEX          734     A     
 LEX      *         *CH=TAD* IS ALSO USED AS A FLAG FOR DETERMINING WHETHER                LEX          735     A     
 LEX      *         OR NOT WE HAVE AN INCOMPLETE *O.CHAR/O.HOLL* TOKEN                     LEX          736     A     
 LEX      *         IN THE TOKEN BUFFER DURING ''/"" STRING PROCESSING.                    LEX          737     A     
 LEX      *                                                                                LEX          738     A     
 LEX      *         THIS SITUATION (I.E. INCOMPLETE *O.CHAR/O.HOLL*) CAN                   LEX          739     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         ARISE DUE TO 2 PATHOLOGIES ASSOCIATED WITH ""/'' STRING                LEX          740     A     
 LEX      *         PROCESSING.  THEY ARE --                                               LEX          741     A     
 LEX      *                                                                                LEX          742     A     
 LEX      *           A. WHEN ENCOUNTERING EOL DURING ''/"" STRING PROCESSING,             LEX          743     A     
 LEX      *              WE DO NOT KNOW WHETHER THERE EXISTS A CONTINUATION                LEX          744     A     
 LEX      *              LINE (WE ASSUME THERE IS BECAUSE WE ASSUME THAT THE               LEX          745     A     
 LEX      *              FTN PROGRAMMER IS WRITING CORRECT PROGRAMS).                      LEX          746     A     
 LEX      *                                                                                LEX          747     A     
 LEX      *              CONSIDER THE FOLLOWING EXAMPLES --                                LEX          748     A     
 LEX      *                                                                                LEX          749     A     
 LEX      *                  COL 7                                                         LEX          750     A     
 LEX      *                      .                                                         LEX          751     A     
 LEX      *                      STRING = 'ME                                              LEX          752     A     
 LEX      *                     + ALONG'                                                   LEX          753     A     
 LEX      *                                                                                LEX          754     A     
 LEX      *                      STRING = 'ME UP                                           LEX          755     A     
 LEX      *                      NEW = STMT                                                LEX          756     A     
 LEX      *                                                                                LEX          757     A     
 LEX      *              EXAMPLE 1 IS OK, WHILE EXAMPLE 2 IS IN ERROR.  THE                LEX          758     A     
 LEX      *              PROBLEM IS THAT WE DON'T KNOW THAT EXAMPLE 2 IS IN                LEX          759     A     
 LEX      *              ERROR UNTIL WE READ THE NEXT LINE AND DETERMINE THAT              LEX          760     A     
 LEX      *              IT IS **NOT** A CONTINUATION LINE.                                LEX          761     A     
 LEX      *                                                                                LEX          762     A     
 LEX      *           B. THE SYNTAX THAT INSISTS THAT 2 QUOTES WITHIN                      LEX          763     A     
 LEX      *              A QUOTE STRING ARE TO BE TREATED AS A SINGLE                      LEX          764     A     
 LEX      *              QUOTE.                                                            LEX          765     A     
 LEX      *                                                                                LEX          766     A     
 LEX      *              CONSIDER THE FOLLOWING EXAMPLES --                                LEX          767     A     
 LEX      *                                                                                LEX          768     A     
 LEX      *                  COL 7                                           72            LEX          769     A     
 LEX      *                      .                                            .            LEX          770     A     
 LEX      *                      STRING = 'TWO''ARE ONE'                                   LEX          771     A     
 LEX      *                                                                                LEX          772     A     
 LEX      *                      STRING = 'THESE TWO__________________________'            LEX          773     A     
 LEX      *                     +'ARE ONE TOO'                                             LEX          774     A     
 LEX      *                                                                                LEX          775     A     
 LEX      *              THIS TWO-ARE-ONE SYNTAX HAS AN IMPORTANT IMPLICATION.             LEX          776     A     
 LEX      *              WE **CANNOT** BIND OFF ''/"" STRING PROCESSING AND, FOR           LEX          777     A     
 LEX      *              EXAMPLE, FILL IN THE MISSING INFORMATION INTO THE                 LEX          778     A     
 LEX      *              INCOMPLETE *O.CHAR/O.HOLL* TOKEN UNTIL WE HAVE SEEN THE           LEX          779     A     
 LEX      *              CHARACTER IMMEDIATELY FOLLOWING THE '/" THAT WE **THINK**         LEX          780     A     
 LEX      *              IS THE TERMINATING '/".  BECAUSE IF THE IMMEDIATELY               LEX          781     A     
 LEX      *              FOLLOWING CHARACTER IS ANOTHER '/", THEN WE HAVE THE              LEX          782     A     
 LEX      *              TWO-ARE-ONE SYNTAX.                                               LEX          783     A     
 LEX      *                                                                                LEX          784     A     
 LEX      *              IN THE CASE OF A *MAYBE* TERMINATING '/" IN COL 72                LEX          785     A     
 LEX      *              (EXAMPLE 2, ABOVE), WE CANNOT SEE THE CHARACTER                   LEX          786     A     
 LEX      *              IMMEDIATELY FOLLOWING UNTIL WE READ THE NEXT LINE.                LEX          787     A     
 LEX      *                                                                                LEX          788     A     
 LEX      *              IF THIS *NEXT LINE* HAPPENS NOT TO BE A CONTINUATION              LEX          789     A     
 LEX      *              LINE, THEN WE MUST BIND OFF THE INCOMPLETE STRING                 LEX          790     A     
 LEX      *              IN *LEX*S MAIN LOOP...                                            LEX          791     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX          792     A     
 LEX      *                ** IMPORTANT **                                                 LEX          793     A     
 LEX      *                                                                                LEX          794     A     
 LEX      *         BECAUSE *CH=TAD* IS AN ADDRESS AND NOT AN ORDINAL,                     LEX          795     A     
 LEX      *         THIS SCHEME ONLY WORKS AS LONG AS *T.TB* (TOKEN BUFFER)                LEX          796     A     
 LEX      *         NEVER MOVES DUE TO TABLE MANAGER SHENANIGANS.                          LEX          797     A     
 LEX      *                                                                                LEX          798     A     
 LEX      *                     * * *                                                      LEX          799     A     
 LEX                                                                                       LEX          800     A     
 LEX                                                                                       LEX          801     A     
 LEX       CH=TAD   BSSZ   1                                                               LEX          802     A     
 LEX       CH=TYPE  SPACE  4,10                                                            LEX          803     A     
 LEX      **        CH=TYPE - CHARACTER STRING TYPE CODE.                                  LEX          804     A     
 LEX      *                                                                                LEX          805     A     
 LEX      *                                                                                LEX          806     A     
 LEX      *         *CH=TYPE* CONTAINS THE TYPE CODE OF AN -H-, -L-, -R-,                  LEX          807     A     
 LEX      *         "", OR '' CHARACTER STRING, AND IS USED BECAUSE WE NEED                LEX          808     A     
 LEX      *         TO KNOW WHETHER TO RIGHT OR LEFT JUSTIFY AND/OR TO SPACE-FILL          LEX          809     A     
 LEX      *         THE FINAL/LAST WORD OF THE CHARACTER STRING.                           LEX          810     A     
 LEX      *                                                                                LEX          811     A     
 LEX      *         CHARACTER STRING TYPE CODES ARE DEFINED VIA SYMBOLS                    LEX          812     A     
 LEX      *         OF THE FORM *CT.XXX* --                                                LEX          813     A     
 LEX      *                                                                                LEX          814     A     
 LEX      *         CT.H  = HOLLERITH, I.E. LEFT-JUSTIFIED, SPACE FILLED.                  LEX          815     A     
 LEX      *         CT.L  = LEFT-JUSTIFIED, ZERO FILLED.                                   LEX          816     A     
 LEX      *         CT.R  = RIGHT-JUSTIFIED, ZERO FILLED.                                  LEX          817     A     
 LEX      *                                                                                LEX          818     A     
 LEX      *         CT.DQT = DOUBLE QUOTE "" DELIMITED STRING.                             LEX          819     A     
 LEX      *         CT.SQT = SINGLE QUOTE '' DELIMITED STRING.                             LEX          820     A     
 LEX                                                                                       LEX          821     A     
 LEX                                                                                       LEX          822     A     
 LEX       CH=TYPE  BSSZ   1                                                               LEX          823     A     
 LEX                                                                                       LEX          824     A     
 LEX       CT.H     =      1                                                               LEX          825     A     
 LEX       CT.L     =      2                                                               LEX          826     A     
 LEX       CT.R     =      3                                                               LEX          827     A     
 LEX                                                                                       LEX          828     A     
 LEX       CT.DQT   =      4                                                               LEX          829     A     
 LEX       CT.SQT   =      5                                                               LEX          830     A     
 LEX       CT.OCT   =      6                                                               LEX          831     A     
 LEX       CT.HEX   =      7                                                               LEX          832     A     
 LEX       LEXFLG   SPACE  4,10                                                            LEX          833     A     
 LEX      **        LEXFLG - *LEX* MASTER CONTROL FLAG.                                    LEX          834     A     
 LEX      *                                                                                LEX          835     A     
 LEX      *                                                                                LEX          836     A     
 LEX      *         *LEXFLG* CONTAINS MISCELLANEOUS CONTROL INFORMATION                    LEX          837     A     
 LEX      *         NEEDED DURING THE LEXICAL SCAN.  CONTROL FLAGS ARE                     LEX          838     A     
 LEX      *         NOT NICE, BUT IT IS HOPED THAT BY KEEPING MOST CONTROL                 LEX          839     A     
 LEX      *         INFORMATION AS BIT FIELDS IN A SINGLE FLAG THAT ITS                    LEX          840     A     
 LEX      *         USE WILL BE EASIER TO UNDERSTAND/MANAGE.                               LEX          841     A     
 LEX      *                                                                                LEX          842     A     
 LEX      *         FIELDS WITHIN *LEXFLG* ARE DESCRIBE/DEFINED IN *FTN5TXT*               LEX          843     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         VIA SYMBOLS OF THE FORM --                                             LEX          844     A     
 LEX      *                                                                                LEX          845     A     
 LEX      *                LF.XXXP  AND  LF.XXXL                                           LEX          846     A     
 LEX      *                                                                                LEX          847     A     
 LEX      *         WHERE FIELDS *XXX* ARE --                                              LEX          848     A     
 LEX      *                                                                                LEX          849     A     
 LEX      *         CHR = 1  IF 'CHARACTER *' OCCURRED DURING TOKEN GENERATION,            LEX          850     A     
 LEX      *                  ELSE 0.                                                       LEX          851     A     
 LEX      *                                                                                LEX          852     A     
 LEX      *                  *CHR* IS USED AS A COMMUNICATION FLAG BETWEEN                 LEX          853     A     
 LEX      *                  TWO DIFFERENT PARTS OF THE TOKEN GENERATOR.                   LEX          854     A     
 LEX      *                  THIS IS NECESSARY BECAUSE THERE IS AN AMBIGUITY               LEX          855     A     
 LEX      *                  INVOLVING ONE OF CDC'S EXTENSIONS TO THE FORTRAN              LEX          856     A     
 LEX      *                  LANGUAGE --                                                   LEX          857     A     
 LEX      *                                                                                LEX          858     A     
 LEX      *                      CHARACTER * 3RATS                                         LEX          859     A     
 LEX      *                                                                                LEX          860     A     
 LEX      *                  TO ANSI, THE ABOVE STATEMENT IS A LEGAL DECLARATION           LEX          861     A     
 LEX      *                  THAT THE VARIABLE *RATS* IS A CHARACTER VARIABLE              LEX          862     A     
 LEX      *                  OF LENGTH 3.  TO FTN, WERE IT NOT FOR *CHR*, THIS             LEX          863     A     
 LEX      *                  STATEMENT CONTAINS A HOLLERITH CONSTANT 3RATS.                LEX          864     A     
 LEX      *                  PROBLEM...                                                    LEX          865     A     
 LEX      *                                                                                LEX          866     A     
 LEX      *                  THEREFORE, *CHR* IS A FLAG THAT INDICATES TO THE              LEX          867     A     
 LEX      *                  *HLR* CONSTANT PROCESSOR (IN THE TOKEN GENERATOR)             LEX          868     A     
 LEX      *                  THAT WE ARE **NOT** GOING TO HONOUR *HLR* CONSTANTS           LEX          869     A     
 LEX      *                  ON THIS 'CHARACTER *' STATEMENT.  SUPER KLUDGE...             LEX          870     A     
 LEX      *                                                                                LEX          871     A     
 LEX      *                  *HLR* (I.E. COUNT-CONTROLLED) CHARACTER STRINGS               LEX          872     A     
 LEX      *                  SHOULD NEVER HAVE BEEN PUT IN THE FTN SPEC...                 LEX          873     A     
 LEX      *                  THEY ARE ALSO THE REASON THAT THE *FORMAT* STMT               LEX          874     A     
 LEX      *                  IS DIFFICULT TO ENTOKEN VIA THE STANDARD FTN                  LEX          875     A     
 LEX      *                  ENTOKENING RULES.                                             LEX          876     A     
 LEX      *                                                                                LEX          877     A     
 LEX      *                  KLUDGE.  KLUDGE.  KLUDGE.                                     LEX          878     A     
 LEX      *                                                                                LEX          879     A     
 LEX      *         INI = 1  IF AN INITIAL LINE HAS OCCURRED FOR THE STMT *LEX*            LEX          880     A     
 LEX      *                  IS PROCESSING, ELSE 0.  *INI* IS CLEARED UPON ENTRY           LEX          881     A     
 LEX      *                  TO *LEX*, AND IS SET WHEN AN INITIAL LINE OCCURS              LEX          882     A     
 LEX      *                  (I.E. WHEN (LN=TYPE)=LT.INIT).  IT IS USED SOLELY             LEX          883     A     
 LEX      *                  FOR THE PURPOSE OF DETERMINING WHETHER TO ISSUE THE           LEX          884     A     
 LEX      *                  *THIS STMT HAS NO INITIAL* WARNING ERR MSG.                   LEX          885     A     
 LEX      *                                                                                LEX          886     A     
 LEX      *         HDR = 1  IF IN *HEADER DELAY* MODE, ELSE 0.                            LEX          887     A     
 LEX      *                                                                                LEX          888     A     
 LEX      *                  *HEADER DELAY* MODE IS AN ATTEMPT BY THE COMPILER TO          LEX          889     A     
 LEX      *                  GET THE PROGRAM UNIT NAME INTO THE TITLE LINE OF THE          LEX          890     A     
 LEX      *                  SOURCE LISTING BY DEFERRING ALL LISTING UNTIL THE             LEX          891     A     
 LEX      *                  HEADER STMT PROCESSOR HAS DETERMINED THE PROGRAM UNIT         LEX          892     A     
 LEX      *                  NAME AND STUFFED IT INTO THE TITLE LINE PRINT LINE            LEX          893     A     
 LEX      *                  IMAGE.                                                        LEX          894     A     
 LEX      *                                                                                LEX          895     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                  THIS IS ACCOMPLISHED BY SAVING **ALL** LINES (EVEN            LEX          896     A     
 LEX      *                  COMMENT LINES) IN *T.STMT* (STMT/DEFERRED LIST                LEX          897     A     
 LEX      *                  BUFFER) UNTIL AFTER THE APPROPRIATE HEADER STMT               LEX          898     A     
 LEX      *                  PROCESSOR HAS DONE ITS JOB.  WHEN THE TITLE LINE              LEX          899     A     
 LEX      *                  IMAGE IS ALL SET UP, *FEC* (FRONT-END CONTROLLER)             LEX          900     A     
 LEX      *                  LISTS THE CONTENTS OF *T.STMT* VIA *LDB* (LIST                LEX          901     A     
 LEX      *                  DEFERRED BUFFER).  THIS AUTOMATICALLY FORCES OUT              LEX          902     A     
 LEX      *                  A NICE, PRETTY, PRECEDING TITLE LINE WITH A PROGRAM           LEX          903     A     
 LEX      *                  UNIT NAME.                                                    LEX          904     A     
 LEX      *                                                                                LEX          905     A     
 LEX      *                  FOR EXAMPLE --                                                LEX          906     A     
 LEX      *                                                                                LEX          907     A     
 LEX      *                    C  COMMENT         ..                                       LEX          908     A     
 LEX      *                    C  COMMENT          .                                       LEX          909     A     
 LEX      *                        .               .. SAVED UNTIL WE GET                   LEX          910     A     
 LEX      *                        .               .  *PETRETR* FROM *PROGRAM*             LEX          911     A     
 LEX      *                       PROGRAM PETRETR ..  STMT PROCESSOR                       LEX          912     A     
 LEX      *                                                                                LEX          913     A     
 LEX      *                                                                                LEX          914     A     
 LEX      *         LAC = 1  IF *LEX* IS ACTIVE, ELSE 0.  *LAC* IS A FLAG THAT             LEX          915     A     
 LEX      *                  IS USED AS A FORM OF DIRECT COMMUNICATION BETWEEN             LEX          916     A     
 LEX      *                  *LEX* AND *LDB* (LIST DEFERRED BUFFER), AND PERFORMS          LEX          917     A     
 LEX      *                  THE IMPORTANT TASK OF KEEPING STRAIGHT A CERTAIN              LEX          918     A     
 LEX      *                  PATHOLOGY CONCERNING THE MANAGEMENT OF *T.STMT* (STMT         LEX          919     A     
 LEX      *                  BUFFER).  *LAC* IS SET UPON ENTRY TO *LEX* AND IS             LEX          920     A     
 LEX      *                  CLEARED RIGHT BEFORE *LEX* EXITS BACK TO *FEC*.               LEX          921     A     
 LEX      *                                                                                LEX          922     A     
 LEX      *                  THE NEED FOR *LAC* ARISES AS FOLLOWS: THE NORMAL              LEX          923     A     
 LEX      *                  (I.E. NON-LEX) *LDB* CALLER CALLS *LDB* WITH THE              LEX          924     A     
 LEX      *                  INTENT OF HAVING *T.STMT* APPROPRIATELY LISTED AND            LEX          925     A     
 LEX      *                  THEN *SHRINK*D TO INDICATE THAT WE ARE FINISHED               LEX          926     A     
 LEX      *                  WITH IT.  THE MOST COMMON OCCURENCE OF THIS IS WHEN           LEX          927     A     
 LEX      *                  THE COMPILER DETECTS AN ERROR IN A SOURCE STMT IN             LEX          928     A     
 LEX      *                  *NO LIST* (E.G.  L=0) MODE.  ONCE *LDB* HAS BEEN              LEX          929     A     
 LEX      *                  CALLED BY THE ERROR PROCESSOR, THE SPACE OCCUPIED             LEX          930     A     
 LEX      *                  BY *T.STMT* IS FREED UP FOR ALTENATE USE BY THE TABLE         LEX          931     A     
 LEX      *                  MANAGER.                                                      LEX          932     A     
 LEX      *                                                                                LEX          933     A     
 LEX      *                  A PROBLEM ARISES, HOWEVER, IF *LEX* HAPPENS TO CALL           LEX          934     A     
 LEX      *                  *LDB* (IF FOR EXAMPLE, *LEX* DETECTS AN ERROR): *LEX*         LEX          935     A     
 LEX      *                  IS PUTTING LINES **INTO** *T.STMT* AND IS NOT YET             LEX          936     A     
 LEX      *                  FINISHED WITH IT, SO THAT IF *LDB* *SHRINK*S *T.STMT*         LEX          937     A     
 LEX      *                  TO ZERO...CONFLICT.                                           LEX          938     A     
 LEX      *                                                                                LEX          939     A     
 LEX      *                  DUE TO THE UGLINESS AND INTERTWINEDNESS OF THE                LEX          940     A     
 LEX      *                  LISTING LOGIC, *LDB* IS THE ONLY ONE WHO CAN REALLY           LEX          941     A     
 LEX      *                  KNOW WHEN TO *SHRINK* *T.STMT*...THEREFORE, *LAC*             LEX          942     A     
 LEX      *                  INFORMS *LDB* THAT *LEX* IS THE CALLER SO **NOT** TO          LEX          943     A     
 LEX      *                  SHRINK *T.STMT*.                                              LEX          944     A     
 LEX      *                                                                                LEX          945     A     
 LEX      *                                                                                LEX          946     A     
 LEX      *         QAC = 1  IF QUOTE STRING IS ACTIVE, ELSE 0.  *QAC* IS A FLAG           LEX          947     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                  THAT IS USED TO DETERMINE WHETHER OR NOT A QUOTE              LEX          948     A     
 LEX      *                  DELIMITED STRING ('' OR "") HAS ITS TERMINATING               LEX          949     A     
 LEX      *                  QUOTE.  FOR EXAMPLE --                                        LEX          950     A     
 LEX      *                                                                                LEX          951     A     
 LEX      *                      'ABCD'                                                    LEX          952     A     
 LEX      *                                                                                LEX          953     A     
 LEX      *                  DOES, BUT --                                                  LEX          954     A     
 LEX      *                                                                                LEX          955     A     
 LEX      *                      'ABCD                                                     LEX          956     A     
 LEX      *                                                                                LEX          957     A     
 LEX      *                  DOES NOT.                                                     LEX          958     A     
 LEX      *                                                                                LEX          959     A     
 LEX      *                  *QAC* IS SET DURING TOKEN GENERATION WHEN THE                 LEX          960     A     
 LEX      *                  INITIAL QUOTE OF A QUOTE DELIMITED STRING IS                  LEX          961     A     
 LEX      *                  ENCOUNTERED, AND IS CLEARED WHEN THE TERMINATING              LEX          962     A     
 LEX      *                  QUOTE IS ENCOUNTERED.                                         LEX          963     A     
 LEX      *                                                                                LEX          964     A     
 LEX      *                  *QAC* IS USED BY *LEX*S MAIN LOOP IN PUTTING OUT              LEX          965     A     
 LEX      *                  AN ERROR MESSAGE FOR *MISSING TERMINATING QUOTE*              LEX          966     A     
 LEX      *                  STRINGS.  CONSIDER THE FOLLOWING EXAMPLES --                  LEX          967     A     
 LEX      *                                                                                LEX          968     A     
 LEX      *                      COL 7                                                     LEX          969     A     
 LEX      *                          .                                                     LEX          970     A     
 LEX      *                          STRING = 'REAL                                        LEX          971     A     
 LEX      *                         + BIG'                                                 LEX          972     A     
 LEX      *                                                                                LEX          973     A     
 LEX      *                          STRING = 'MISSING QUOTE                               LEX          974     A     
 LEX      *                          NEW = STMT                                            LEX          975     A     
 LEX      *                                                                                LEX          976     A     
 LEX      *                  THE 1ST EXAMPLE CONTAINS A '' STRING THAT SPANS LINE          LEX          977     A     
 LEX      *                  BOUNDARIES, WHEREAS THE 2ND EXAMPLE CONTAINS A ''             LEX          978     A     
 LEX      *                  STRING WITH A MISSING TERMINATING QUOTE.  A PROBLEM           LEX          979     A     
 LEX      *                  ARISES IN THE DETECTION OF THE ERROR IN OUR 2ND               LEX          980     A     
 LEX      *                  EXAMPLE BECAUSE *LEX* IS DRIVEN ON A LINE-BY-LINE             LEX          981     A     
 LEX      *                  BASIS.  THEREFORE, WHEN *LEX* SEES THE INITIAL LINE           LEX          982     A     
 LEX      *                  FOLLOWING THE LINE WITH THE MISSING QUOTE,                    LEX          983     A     
 LEX      *                  HE DOES NOT REINVOKE THE TOKEN GENERATOR TO                   LEX          984     A     
 LEX      *                  CLEAN UP.  THIS MEANS THAT THERE IS AN INCOMPLETE             LEX          985     A     
 LEX      *                  *O.CHAR* TOKEN IN THE TOKEN BUFFER (I.E. THE                  LEX          986     A     
 LEX      *                  TOKEN GENERATOR WAS **EXPECTING** TO BE CALLED                LEX          987     A     
 LEX      *                  AGAIN BECAUSE LEGAL STRINGS ARE PROPERLY DELIMITED).          LEX          988     A     
 LEX      *                                                                                LEX          989     A     
 LEX      *                  THEREFORE, WHEN *LEX* DETECTS AN INITIAL LINE                 LEX          990     A     
 LEX      *                  (I.E. END OF CURRENT STMT), HE CHECKS *QAC* TO                LEX          991     A     
 LEX      *                  SEE IF THE CURRENT STMT HAS AN IMPROPERLY TERMINATED          LEX          992     A     
 LEX      *                  QUOTE DELIMITED STRING.                                       LEX          993     A     
 LEX      *                                                                                LEX          994     A     
 LEX      *                      ** IMPORTANT **                                           LEX          995     A     
 LEX      *                                                                                LEX          996     A     
 LEX      *                  IT IS VERY IMPORTANT TO REALIZE THAT *QAC* IS                 LEX          997     A     
 LEX      *                  **SUBORDINATE** TO *CH=TAD*.  THAT IS, *QAC*                  LEX          998     A     
 LEX      *                  CAN TELL US WHETHER OR NOT A QUOTE STRING HAS                 LEX          999     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                  ITS TERMINATING QUOTE, BUT IT CANNOT TELL US                  LEX         1000     A     
 LEX      *                  WHETHER OR NOT THE QUOTE STRING IS COMPLETE/                  LEX         1001     A     
 LEX      *                  FINISHED.                                                     LEX         1002     A     
 LEX      *                                                                                LEX         1003     A     
 LEX      *                  THIS IS DUE TO THE ""/'' SYNTAX WHERE 2 QUOTES                LEX         1004     A     
 LEX      *                  IMBEDDED WITHIN A QUOTE STRING ARE TO BE TREATED              LEX         1005     A     
 LEX      *                  AS A SINGLE QUOTE.  THE PROBLEM IS THAT EVEN THOUGH           LEX         1006     A     
 LEX      *                  WE SEE WHAT WE **THINK** IS THE TERMINAL "/',                 LEX         1007     A     
 LEX      *                  WE CAN NOT TIE THINGS OFF UNTIL WE HAVE LOOKED                LEX         1008     A     
 LEX      *                  AT THE CHARACTER IMMEDIATELY FOLLOWING TO SEE                 LEX         1009     A     
 LEX      *                  IF IT IS ANOTHER "/' (I.E. 2 QUOTES AS 1).                    LEX         1010     A     
 LEX      *                                                                                LEX         1011     A     
 LEX      *                  CONSIDER ALSO THAT THIS *NEXT CHARACTER* MIGHT                LEX         1012     A     
 LEX      *                  BE ON THE NEXT LINE (I.E. THIS STATEMENT IS                   LEX         1013     A     
 LEX      *                  CONTINUED).                                                   LEX         1014     A     
 LEX      *                                                                                LEX         1015     A     
 LEX      *                  SEE *CH=TAD* FOR MORE INFORMATION.                            LEX         1016     A     
 LEX      *                                                                                LEX         1017     A     
 LEX      *                           * * *                                                LEX         1018     A     
 LEX                                                                                       LEX         1019     A     
 LEX                                                                                       LEX         1020     A     
 LEX       LEXFLG   BSSZ   1                                                               LEX         1021     A     
 LEX                ENTRY  LEXFLG                                                          LEX         1022     A     
 LEX       LEXMODE  SPACE  4,10                                                            LEX         1023     A     
 LEX      **        LEXMODE - *LEX* MASTER SCANNING MODE CONTROL CELL.                     LEX         1024     A     
 LEX      *                                                                                LEX         1025     A     
 LEX      *                                                                                LEX         1026     A     
 LEX      *         *LEXMODE* IS A CELL THAT IS USED BY *LEX* IN DETERMINING               LEX         1027     A     
 LEX      *         WHICH MODE IT IS SCANNING IN.  THE CONTENTS OF *LEXMODE*               LEX         1028     A     
 LEX      *         AT ANY TIME WILL CONTAIN A VALUE THAT INDICATES THE CURRENT            LEX         1029     A     
 LEX      *         LEXICAL SCANNING MODE.                                                 LEX         1030     A     
 LEX      *                                                                                LEX         1031     A     
 LEX      *         THE USE OF *LEXMODE* IS AN ATTEMPT TO INTEGRATE THE VARIOUS            LEX         1032     A     
 LEX      *         SPECIAL-CASE THINGS THE SCANNER MUST DO THAT TEND TO MUDDY             LEX         1033     A     
 LEX      *         ITS CONTROL LOGIC.  FOR EXAMPLE, SPECIAL PROCESSING FLOWS              LEX         1034     A     
 LEX      *         ARE REQUIRED THE 1ST TIME THE SCANNER IS CRANKED UP, ETC...            LEX         1035     A     
 LEX      *                                                                                LEX         1036     A     
 LEX      *         *LEX* MODES ARE DEFINED VIA SYMBOLS OF THE FORM *LM.XXX*,              LEX         1037     A     
 LEX      *         WHERE *LM.* IS A COMMON PREFIX, AND *XXX* IS A UNIQUE LEXICAL          LEX         1038     A     
 LEX      *         SCANNING MODE.                                                         LEX         1039     A     
 LEX      *                                                                                LEX         1040     A     
 LEX      *         *LM.XXX* VALUES ARE --                                                 LEX         1041     A     
 LEX      *                                                                                LEX         1042     A     
 LEX      *           LM.NORM = NORMAL.  THIS IS *LEX*S NORMAL MODE WHERE THE              LEX         1043     A     
 LEX      *                     LIST/ENTOKEN/READ/CLASSIFY CYCLE IS PROCEEDING             LEX         1044     A     
 LEX      *                     UNFETTERED BY WEIRDNESS...HA HA HEE HEE HO HO.             LEX         1045     A     
 LEX      *                                                                                LEX         1046     A     
 LEX      *           LM.NTR  = NEED TO READ.  THIS *LEXMODE* IS SET WHEN THERE            LEX         1047     A     
 LEX      *                     IS NO SOURCE LINE AT *CP.CARD* ET SEQ FOR *LEX*            LEX         1048     A     
 LEX      *                     TO PROCESS.  IN THIS CASE, *LEX* MUST CALL *RNC*           LEX         1049     A     
 LEX      *                     (READ NEXT CARD) **BEFORE** DOING ANYTHING ELSE.           LEX         1050     A     
 LEX      *                                                                                LEX         1051     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *           LM.1ST  = 1ST CARD OF PROGRAM UNIT.  SPECIAL START UP                LEX         1052     A     
 LEX      *                     REQUIRED.                                                  LEX         1053     A     
 LEX                                                                                       LEX         1054     A     
 LEX                                                                                       LEX         1055     A     
 LEX       LEXMODE  BSZENT 1                                                               LEX         1056     A     
 LEX       LN=      SPACE  4,10                                                            LEX         1057     A     
 LEX      ***       LN= - LINE INFORMATION.                                                LEX         1058     A     
 LEX      *                                                                                LEX         1059     A     
 LEX      *                                                                                LEX         1060     A     
 LEX      *         SYMBOLS OF THE FORM *LN=XXX* (WHERE *XXX* IS A UNIQUE NAME)            LEX         1061     A     
 LEX      *         CONTAIN INFORMATION ABOUT THE CURRENT LINE AT (CP.CARD).               LEX         1062     A     
 LEX      *         THEY ARE SET UP BY *CLN* (CLASSIFY LINE) AND ARE QUERIED               LEX         1063     A     
 LEX      *         AND USED THROUGHOUT *LEX* WHEN INFORMATION ABOUT THE CURRENT           LEX         1064     A     
 LEX      *         LINE AT (CP.CARD) IS NEEDED.                                           LEX         1065     A     
 LEX      *                                                                                LEX         1066     A     
 LEX      *         THE FOLLOWING PARAGRAPHS DESCRIBE THE FORMAT AND USE OF EACH           LEX         1067     A     
 LEX      *         OF THE *LN=* CELLS.                                                    LEX         1068     A     
 LEX      *                                                                                LEX         1069     A     
 LEX      *                           ** WARNING **                                        LEX         1070     A     
 LEX      *                                                                                LEX         1071     A     
 LEX      *         THESE *LN=* CELLS ARE LOCAL INFORMATION CELLS ONLY.  THEY              LEX         1072     A     
 LEX      *         EXIST TO MAKE A CLEAR DISTINCTION BETWEEN THE FUNCTIONS OF             LEX         1073     A     
 LEX      *         DETECTION (CLN) AND CONTROL (LEX).  THE GLOBAL COMPILER                LEX         1074     A     
 LEX      *         SHOULD KNOW **NOTHING** OF THEIR EXISTENCE.                            LEX         1075     A     
 LEX      *                                                                                LEX         1076     A     
 LEX      *                              * * *                                             LEX         1077     A     
 LEX      *                                                                                LEX         1078     A     
 LEX      ************************************************************************         LEX         1079     A     
 LEX       LN=FEN   SPACE  4,10                                                            LEX         1080     A     
 LEX      **        LN=FEN - FIRST ENTOKENABLE CHARACTER POSITION.                         LEX         1081     A     
 LEX      *                                                                                LEX         1082     A     
 LEX      *                                                                                LEX         1083     A     
 LEX      *         *LN=FEN* CONTAINS INFORMATION ABOUT WHERE THE 1ST                      LEX         1084     A     
 LEX      *         ENTOKENABLE CHARACTER IS IN A SOURCE LINE.  FOR NON-SEQ                LEX         1085     A     
 LEX      *         MODE INPUT LINES, THIS IS MERELY AN INDICATION OF COL 7.               LEX         1086     A     
 LEX      *         FOR SEQ MODE INPUT LINES, *LN=FEN* INDICATES THE POSITION              LEX         1087     A     
 LEX      *         OF THE THE 1ST CHARACTER AFTER THE SEQ LINE NUMBER                     LEX         1088     A     
 LEX      *         (OR STMT LABEL, IF PRESENT).                                           LEX         1089     A     
 LEX      *                                                                                LEX         1090     A     
 LEX      *         FOR EXAMPLE, NON-SEQ --                                                LEX         1091     A     
 LEX      *                                                                                LEX         1092     A     
 LEX      *           COL 1     7                                                          LEX         1093     A     
 LEX      *                 100     A = B                                                  LEX         1094     A     
 LEX      *                     .                                                          LEX         1095     A     
 LEX      *                     ............ LN=FEN                                        LEX         1096     A     
 LEX      *                                                                                LEX         1097     A     
 LEX      *         OR SEQ --                                                              LEX         1098     A     
 LEX      *                                                                                LEX         1099     A     
 LEX      *           COL 1    6  9                                                        LEX         1100     A     
 LEX      *               00110 9    FORMAT(" MOMMY")                                      LEX         1101     A     
 LEX      *                       .                                                        LEX         1102     A     
 LEX      *                       .......... LN=FEN                                        LEX         1103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         1104     A     
 LEX      *         *LN=FEN* IS USED BY THE TOKEN GENERATOR WHEN PROCESSING                LEX         1105     A     
 LEX      *         CHARACTER/HOLLERITH CONSTANTS, AND IS BEST DESCRIBED VIA               LEX         1106     A     
 LEX      *         AN EXAMPLE --                                                          LEX         1107     A     
 LEX      *                                                                                LEX         1108     A     
 LEX      *           COL 1     7   1         1                                            LEX         1109     A     
 LEX      *                 999 FORMAT(" THIS IS                                           LEX         1110     A     
 LEX      *                    +    A REAL LONG MESSAGE")                                  LEX         1111     A     
 LEX      *                                                                                LEX         1112     A     
 LEX      *         WHEN GENERATING THE ABOVE CHARACTER CONSTANT STRING, *TOK*             LEX         1113     A     
 LEX      *         MUST INVENT BLANK (55B) CHARACTERS FOR COLS 23-72 (THRU                LEX         1114     A     
 LEX      *         COL 80 IN SEQ MODE) OF THE INITIAL LINE AND FOR COLS 7-10              LEX         1115     A     
 LEX      *         OF THE CONTINUATION LINE.  THIS IS NECESSARY BECAUSE IN                LEX         1116     A     
 LEX      *         THE 1ST INSTANCE, THE OPERATING SYSTEM HAS STRIPPED THE                LEX         1117     A     
 LEX      *         TRAILING BLANKS, AND SECONDLY, *CLN* (CLASSIFY LINE)                   LEX         1118     A     
 LEX      *         STRIPPED THE BLANKS PRECEDING THE 1ST NON-BLANK ENTOKENABLE            LEX         1119     A     
 LEX      *         CHARACTER ON EACH LINE.                                                LEX         1120     A     
 LEX      *                                                                                LEX         1121     A     
 LEX      *         THEREFORE, *CLN* SAVES THE POSITION OF THE 1ST ENTOKENABLE             LEX         1122     A     
 LEX      *         CHARACTER ON EACH LINE IN *LN=FEN* SO THAT THE CORRECT                 LEX         1123     A     
 LEX      *         NUMBER OF PRECEDING CHARACTER CONSTANT BLANKS CAN BE                   LEX         1124     A     
 LEX      *         GENERATED IF NECESSARY.                                                LEX         1125     A     
 LEX      *                                                                                LEX         1126     A     
 LEX      *         NOTE THAT (LN=FEN), (LN=FENB), AND (LN=FENL) ARE                       LEX         1127     A     
 LEX      *         TRANSFERED TO THE LINE INFORMATION HEADER THAT PRECEDES                LEX         1128     A     
 LEX      *         EVERY LINE IN *T.STMT* WHEN *PLR* (PROCESS LISTING                     LEX         1129     A     
 LEX      *         REQUEST) MOVES THE CURRENT LINE FROM *CP.FLIN* ET SEQ                  LEX         1130     A     
 LEX      *         TO *T.STMT*.  SEE *PLR*.                                               LEX         1131     A     
 LEX      *                                                                                LEX         1132     A     
 LEX      *         (LN=FEN)   = ORD, RELATIVE TO *CP.FLIN*, OF WORD CONTAINING            LEX         1133     A     
 LEX      *                      THE 1ST ENTOKENABLE CHARACTER IN THE CURRENT              LEX         1134     A     
 LEX      *                      LINE.                                                     LEX         1135     A     
 LEX      *                                                                                LEX         1136     A     
 LEX      *         (LN=FENB)  = BIT POSITION OF 1ST ENTOKENABLE CHAR IN (LN=FEN).         LEX         1137     A     
 LEX      *                      (I.E. *TOK/BUB/BUN* REGISTER B6)                          LEX         1138     A     
 LEX      *                                                                                LEX         1139     A     
 LEX      *         (LN=FENL)  = LEN (IN BITS) OF LINE.  I.E. RELATIVE TO                  LEX         1140     A     
 LEX      *                      *LN=FEN/LN=FENB*.  (*TOK/BUB/BUN* REGISTER B7).           LEX         1141     A     
 LEX                                                                                       LEX         1142     A     
 LEX                                                                                       LEX         1143     A     
 LEX       LN=FEN   BSSZ   1                                                               LEX         1144     A     
 LEX                                                                                       LEX         1145     A     
 LEX       LN=FENB  BSSZ   1                                                               LEX         1146     A     
 LEX                                                                                       LEX         1147     A     
 LEX       LN=FENL  BSSZ   1                                                               LEX         1148     A     
 LEX       LN=LABL  SPACE  4,10                                                            LEX         1149     A     
 LEX      **        LN=LABL - LINE LABEL.                                                  LEX         1150     A     
 LEX      *                                                                                LEX         1151     A     
 LEX      *                                                                                LEX         1152     A     
 LEX      *         *LN=LABL* CONTAINS THE LABEL FOR THE SOURCE LINE AT *CP.CARD*,         LEX         1153     A     
 LEX      *         IN -L- FORMAT.                                                         LEX         1154     A     
 LEX      *                                                                                LEX         1155     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                            ** WARNING **                                       LEX         1156     A     
 LEX      *                                                                                LEX         1157     A     
 LEX      *         *LN=LABL* CONTAINS THE **LINE** LABEL, **NOT** THE                     LEX         1158     A     
 LEX      *         **STATEMENT** LABEL.                                                   LEX         1159     A     
 LEX      *                                                                                LEX         1160     A     
 LEX      *                                * * *                                           LEX         1161     A     
 LEX                                                                                       LEX         1162     A     
 LEX                                                                                       LEX         1163     A     
 LEX       LN=LABL  BSSZ   1                                                               LEX         1164     A     
 LEX       LN=NUM   SPACE  4,10                                                            LEX         1165     A     
 LEX      **        LN=NUML/LN=NUMR - LINE NUMBER.                                         LEX         1166     A     
 LEX      *                                                                                LEX         1167     A     
 LEX      *                                                                                LEX         1168     A     
 LEX      *         *LN=NUML* AND *LN=NUMR* CONTAIN THE LINE NUMBER OF THE                 LEX         1169     A     
 LEX      *         SOURCE LINE AT *CP.CARD*, IN -L- AND -R- FORMATS RESPECTIVELY.         LEX         1170     A     
 LEX      *                                                                                LEX         1171     A     
 LEX      *         FOR NORMAL (I.E. NON-SEQ) LINES, THIS IS A *CDD* CONVERTED             LEX         1172     A     
 LEX      *         COPY OF THE VALUE OF THE CELL *CARDS* WHICH CONTAINS THE               LEX         1173     A     
 LEX      *         CURRENT NR OF CARDS/LINES THAT HAVE BEEN READ IN THIS                  LEX         1174     A     
 LEX      *         PROGRAM UNIT (IN BINARY).                                              LEX         1175     A     
 LEX      *                                                                                LEX         1176     A     
 LEX      *         FOR *SEQ* LINES, THIS IS THE DISPLAY CODE CHARACTERS                   LEX         1177     A     
 LEX      *         THAT OCCURRED IN THE PROGRAMMER-SPECIFIED LINE NUMBER FIELD.           LEX         1178     A     
 LEX      *         ELSE, .ZR. IF NO LINE NUMBER WAS SPECIFIED (*WARNING* ERROR --         LEX         1179     A     
 LEX      *         LINE TREATED AS COMMENT).                                              LEX         1180     A     
 LEX      *                                                                                LEX         1181     A     
 LEX      *         (LN=NUML) = LINE NR IN -L- FORMAT.                                     LEX         1182     A     
 LEX      *         (LN=NUMR) = LINE NR IN -R- FORMAT.                                     LEX         1183     A     
 LEX                                                                                       LEX         1184     A     
 LEX                                                                                       LEX         1185     A     
 LEX       LN=NUML  BSSZ   1                                                               LEX         1186     A     
 LEX       LN=NUMR  BSSZ   1                                                               LEX         1187     A     
 LEX       LN=TYPE  SPACE  4,10                                                            LEX         1188     A     
 LEX      **        LN=TYPE - LINE TYPE.                                                   LEX         1189     A     
 LEX      *                                                                                LEX         1190     A     
 LEX      *                                                                                LEX         1191     A     
 LEX      *         *LN=TYPE* CONTAINS THE LINE TYPE OF THE SOURCE LINE                    LEX         1192     A     
 LEX      *         AT (CP.CARD) ET SEQ.  *LN=TYPE* IS SET UP BY *CLN*                     LEX         1193     A     
 LEX      *         (CLASSIFY LINE) AND IS QUERIED THROUGHOUT *LEX* WHEN                   LEX         1194     A     
 LEX      *         THE LINE TYPE IS NEEDED.                                               LEX         1195     A     
 LEX      *                                                                                LEX         1196     A     
 LEX      *         LINE TYPES ARE DEFINED BY *LT.* SYMBOLS --                             LEX         1197     A     
 LEX      *                                                                                LEX         1198     A     
 LEX      *           LT.UNTYP = LINE IS UNTYPED.                                          LEX         1199     A     
 LEX      *           LT.INIT  = LINE IS INITIAL LINE OF STMT.                             LEX         1200     A     
 LEX      *           LT.CONT  = LINE IS CONTINUATION LINE.                                LEX         1201     A     
 LEX      *           LT.CMNT  = LINE IS COMMENT LINE.                                     LEX         1202     A     
 LEX      *           LT.NULL  = LINE IS NULL (ALL BLANK).                                 LEX         1203     A     
 LEX      *           LT.C$    = LINE IS *C$* LINE (COMPILER DIRECTIVE).                   LEX         1204     A     
 LEX      *           LT.EOR   = EOR/EOF/EOI ENCOUNTERED.                                  LEX         1205     A     
 LEX                                                                                       LEX         1206     A     
 LEX                                                                                       LEX         1207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       LN=TYPE  BSSZ   1                                                               LEX         1208     A     
 LEX                                                                                       LEX         1209     A     
 LEX                                                                                       LEX         1210     A     
 LEX       LT.UNTYP =      0                                                               LEX         1211     A     
 LEX       LT.INIT  =      1                                                               LEX         1212     A     
 LEX       LT.CONT  =      2                                                               LEX         1213     A     
 LEX       LT.CMNT  =      3                                                               LEX         1214     A     
 LEX       LT.NULL  =      4                                                               LEX         1215     A     
 LEX       LT.C$    =      5                                                               LEX         1216     A     
 LEX       LT.EOR   =      6                                                               LEX         1217     A     
 LEX       MX=      SPACE  4,10                                                            LEX         1218     A     
 LEX      **        MX= - CHARACTER SHIFT MASKS.                                           LEX         1219     A     
 LEX      *                                                                                LEX         1220     A     
 LEX      *                                                                                LEX         1221     A     
 LEX      *         CHARACTER SHIFT MASKS ARE OF THE FORM *MX=AAA*, WHERE *AAA*            LEX         1222     A     
 LEX      *         IS A UNIQUE MASK NAME.                                                 LEX         1223     A     
 LEX                                                                                       LEX         1224     A     
 LEX                                                                                       LEX         1225     A     
 LEX       A        CHMIC  (0,1,2,3,4,5,6,7,8,9),BICH                                      LEX         1226     A     
 LEX       MX=0..9  DATA   "A"                                                             LEX         1227     A     
 LEX                                                                                       LEX         1228     A     
 LEX       B        CHMIC  (*,C)                                                           LEX         1229     A     
 LEX       MX=CMNT  DATA   "B"                                                             LEX         1230     A     
 LEX       SB./SB=  SPACE  4,10                                                            LEX         1231     A     
 LEX      ***       SB./SB= - *T.STMT* (STMT BUFFER) INFORMATION CELLS.                    LEX         1232     A     
 LEX      *                                                                                LEX         1233     A     
 LEX      *                                                                                LEX         1234     A     
 LEX      *         SYMBOLS WITH THE PREFIX *SB.* OR *SB=* DESCRIBE OR CONTAIN             LEX         1235     A     
 LEX      *         INFORMATION ABOUT *T.STMT*, THE STMT BUFFER.                           LEX         1236     A     
 LEX       SB.      SPACE  4,10                                                            LEX         1237     A     
 LEX      **        SB. - *T.STMT* (STMT BUFFER) STRUCTURE DEFINITIONS.                    LEX         1238     A     
 LEX      *                                                                                LEX         1239     A     
 LEX      *                                                                                LEX         1240     A     
 LEX      *         SYMBOLS OF THE FORM *SB.XXXP* AND *SB.XXXL* DESCRIBE/DEFINE            LEX         1241     A     
 LEX      *         THE *LINE INFORMATION* HEADER WORD THAT PRECEDES EVERY                 LEX         1242     A     
 LEX      *         SOURCE LINE IN *T.STMT*.                                               LEX         1243     A     
 LEX      *                                                                                LEX         1244     A     
 LEX      *         FIELDS, *XXX*, WITHIN *SB.* STRUCTURE REFER TO A SINGLE                LEX         1245     A     
 LEX      *         LINE INFORMATION HEADER WORD, AND ARE --                               LEX         1246     A     
 LEX      *                                                                                LEX         1247     A     
 LEX      *         LEN  = NR OF WORDS IN THIS *T.STMT* LINE ENTRY.  I.E. LEN              LEX         1248     A     
 LEX      *                OF ENTIRE LISTABLE SOURCE LINE (INCLUDING FULL WORD EOL         LEX         1249     A     
 LEX      *                MARK) BEGINNING AT *CP.FLIN*, + 1 FOR LINE INFORMATION          LEX         1250     A     
 LEX      *                HEADER WORD ITSELF.                                             LEX         1251     A     
 LEX      *                                                                                LEX         1252     A     
 LEX      *         LIST = 1  IF THIS LINE WAS LISTED VIA *PLR*, ELSE 0.                   LEX         1253     A     
 LEX      *                                                                                LEX         1254     A     
 LEX      *                USED AS COMMUNICATION BETWEEN *PLR* (PROCESS LISTING            LEX         1255     A     
 LEX      *                REQUEST) AND *LDB* (LIST DEFERRED BUFFER).  THIS FLAG           LEX         1256     A     
 LEX      *                IS NECESSARY SO THAT *LDB* CAN KNOW WHETHER *PLR*               LEX         1257     A     
 LEX      *                ACTUALLY LISTED A PARTICULAR SOURCE LINE IN *T.STMT*.           LEX         1258     A     
 LEX      *                                                                                LEX         1259     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                I.E. THIS BIT PREVENTS A LINE FROM POSSIBLY GETTING             LEX         1260     A     
 LEX      *                LISTED TWICE: ONCE BY *PLR* AND AGAIN BY *LDB*.                 LEX         1261     A     
 LEX      *                                                                                LEX         1262     A     
 LEX      *         LNT  = LINE TYPE. THIS IS A COPY OF (LN=TYPE), AND IS                  LEX         1263     A     
 LEX      *                CARRIED ALONG WITH EACH SOURCE LINE SO THAT ANY                 LEX         1264     A     
 LEX      *                INTERESTED PARTIES CAN KNOW THE LINE TYPE OF THE                LEX         1265     A     
 LEX      *                FOLLOWING LINE IN *T.STMT*.                                     LEX         1266     A     
 LEX      *                                                                                LEX         1267     A     
 LEX      *                NOTE: CURRENTLY, THIS FIELD IS SET UP BUT **UNUSED**.           LEX         1268     A     
 LEX                                                                                       LEX         1269     A     
 LEX                                                                                       LEX         1270     A     
 LEX                DESCRIBE SB.                                                           LEX         1271     A     
 LEX       LOUT     DEFINE 1                                                               LEX         1272     A     
 LEX       LERR     DEFINE 1                                                               LEX         1273     A     
 LEX       LIST     DEFINE 1                                                               LEX         1274     A     
 LEX       FEN      DEFINE 18                                                              LEX         1275     A     
 LEX       FENB     DEFINE 6                                                               LEX         1276     A     
 LEX       FENL     DEFINE 9                                                               LEX         1277     A     
 LEX       LNT      DEFINE 6                                                               LEX         1278     A     
 LEX       LEN      DEFINE 18                                                              LEX         1279     A     
 LEX       SB=CONT  SPACE  4,10                                                            LEX         1280     A     
 LEX      **        SB=CONT - CONTINUATION LINE COUNT.                                     LEX         1281     A     
 LEX      *                                                                                LEX         1282     A     
 LEX      *                                                                                LEX         1283     A     
 LEX      *         *SB=CONT* CONTAINS THE NR OF CONTINUATION LINES FOR                    LEX         1284     A     
 LEX      *         THE CURRENT STMT IN *T.STMT*, AND IS USED IN THE FOLLOWING             LEX         1285     A     
 LEX      *         WAYS --                                                                LEX         1286     A     
 LEX      *                                                                                LEX         1287     A     
 LEX      *           1. (SB=CONT) IS USED BY *LEX*S MAIN LOOP IN DETERMINING              LEX         1288     A     
 LEX      *              IF AND WHEN TO ISSUE THE *THIS STMT HAS TOO MANY                  LEX         1289     A     
 LEX      *              CONTINUATION LINES* ERROR MSG.                                    LEX         1290     A     
 LEX      *                                                                                LEX         1291     A     
 LEX      *              THIS ERROR MSG IS ISSUED IF THE NR OF CONTINUATION LINES          LEX         1292     A     
 LEX      *              EVER EXCEDES *ANS.CONT* (MAXIMUM ANSI CONTINUATION LINE           LEX         1293     A     
 LEX      *              COUNT).                                                           LEX         1294     A     
 LEX      *                                                                                LEX         1295     A     
 LEX      *           2. (SB=CONT) IS ALSO USED BY *LCC* (PROCESS LOADER                   LEX         1296     A     
 LEX      *              DIRECTIVES) IN DECK *KEY* IN DETERMINING WHETHER                  LEX         1297     A     
 LEX      *              OR NOT TO ISSUE AN ERROR MSG IF A LOADER DIRECTIVE                LEX         1298     A     
 LEX      *              IS CONTINUED (THEY MAY NOT BE).                                   LEX         1299     A     
 LEX                                                                                       LEX         1300     A     
 LEX                                                                                       LEX         1301     A     
 LEX       SB=CONT  BSZENT 1                                                               LEX         1302     A     
 LEX       SB=LINC  SPACE  4,10                                                            LEX         1303     A     
 LEX      **        SB=LINC - *T.SMT* LINE COUNT.                                          LEX         1304     A     
 LEX      *                                                                                LEX         1305     A     
 LEX      *                                                                                LEX         1306     A     
 LEX      *         *SB=LINC* CONTAINS THE NR OF LINES CURRENTLY IN *T.STMT*,              LEX         1307     A     
 LEX      *         AND IS USED BY *PLR* (PROCESS LISTING REQUEST) IN DETERMINING          LEX         1308          I
          -FC50243
 LEX      *         WHEN TO FORCE PREMATURE TERMINATION OF *BEFORE HEADER*                 LEX         1309          I
          -FC50243
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         MODE (SEE *LEXFLG/LF.HDR*).                                            LEX         1310          I
          -FC50243
 LEX      *                                                                                LEX         1311          I
          -FC50243
 LEX      *         IF *PLR* IGNORED HOW MANY LINES IT WAS PUTTING INTO *T.STMT*           LEX         1312          I
          -FC50243
 LEX      *         IN *BEFORE HEADER* MODE, A PROGRAM UNIT THAT BEGAN WITH                LEX         1313          I
          -FC50243
 LEX      *         A LARGE NUMBER OF COMMENT LINES WOULD QUICKLY USURP ALL                LEX         1314          I
          -FC50243
 LEX      *         OF THE COMPILERS MANAGED TABLE SPACE (REMEMBER THAT COMMENT            LEX         1315          I
          -FC50243
 LEX      *         LINES ARE SAVED IN *T.STMT* DURING *BEFORE HEADER* MODE).              LEX         1316          I
          -FC50243
 LEX      *         AND BECAUSE FTN *MEM*S WHEN IT NEEDS MORE TABLE SPACE,                 LEX         1317          I
          -FC50243
 LEX      *         OUR COMMENTED PROGRAM UNIT FRIEND WOULD SOON USURP THE ENTIRE          LEX         1318          I
          -FC50243
 LEX      *         MACHINE.                                                               LEX         1319          I
          -FC50243
 LEX      *                                                                                LEX         1320          I
          -FC50243
 LEX      *         TO AVOID THIS UNFORTUNATE SITUATION, *PLR* WILL FORCE                  LEX         1321          I
          -FC50243
 LEX      *         TERMINATION OF *BEFORE HEADER* MODE AND DUMP *T.STMT*                  LEX         1322          I
          -FC50243
 LEX      *         VIA *LDB* (LIST DEFERRED BUFFER), IF MORE THAN *MAX.LINC*              LEX         1323          I
          -FC50243
 LEX      *         LINES OCCUR AS CANDIDATES FOR *T.STMT*.                                LEX         1324          I
          -FC50243
 LEX                                                                                       LEX         1325          I
          -FC50243
 LEX                                                                                       LEX         1326          I
          -FC50243
 LEX       MAX.LINC =      64D                                                             LEX         1327          I
          -FC50243
 LEX                                                                                       LEX         1328     A     
 LEX       SB=LINC  BSZENT 1                                                               LEX         1329     A     
 LEX       SB=LORD  SPACE  4,10                                                            LEX         1330     A     
 LEX      **        SB=LORD - ORD OF LAST/LATEST LINE IN *T.STMT*.                         LEX         1331     A     
 LEX      *                                                                                LEX         1332     A     
 LEX      *                                                                                LEX         1333     A     
 LEX      *         *SB=LORD* CONTAINS THE ORDINAL INTO *T.STMT* OF THE LAST               LEX         1334     A     
 LEX      *         LINE THAT WAS MOVED TO *T.STMT*.  *SB=LORD* IS SET UP                  LEX         1335     A     
 LEX      *         BY *PLR* (PROCESS LISTING REQUEST) WHEN IT MOVES A LINE                LEX         1336     A     
 LEX      *         FROM *CP.FLIN/CP.CARD* ET SEQ TO *T.STMT*, AND IS USED                 LEX         1337     A     
 LEX      *         FOR 2 PURPOSES --                                                      LEX         1338     A     
 LEX      *                                                                                LEX         1339     A     
 LEX      *           1. *PLR* ITSELF USES (SB=LORD) IN SETTING THE *SB.LOUTP*             LEX         1340     A     
 LEX      *              BIT IN THE *LINE INFORMATION* WORD OF THE LINE IT IS              LEX         1341     A     
 LEX      *              PROCESSING.  THIS OCCURS BECAUSE THE PROCESSING THAT              LEX         1342     A     
 LEX      *              ACTUALLY MOVES A SOURCE LINE TO *T.STMT* AND THE                  LEX         1343     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              PROCESSING THAT SETS THE *SB.LOUTP* BIT WITHIN *PLR*,             LEX         1344     A     
 LEX      *              ARE SUFFICIENTLY FAR APART THAT THE ORDINAL OF THE                LEX         1345     A     
 LEX      *              LINE WE ARE PROCESSING **MUST** BE SAVED IN *SB=LORD*.            LEX         1346     A     
 LEX      *                                                                                LEX         1347     A     
 LEX      *           2. (SB=LORD) ARE ALSO USED IN THE MAIN LOOP OF *LEX*,                LEX         1348     A     
 LEX      *              RIGHT BEFORE INVOKING *TOK* (TOKEN GENERATOR), FOR                LEX         1349     A     
 LEX      *              THE RELOCATION OF (TC=SOA) AND (LN=FEN).                          LEX         1350     A     
 LEX      *                                                                                LEX         1351     A     
 LEX      *              THAT IS, (TC=SOA) AND (LN=FEN) ARE CONVERTED FROM                 LEX         1352     A     
 LEX      *              ORDINALS RELATIVE TO *CP.FLIN* INTO HARD ADDRESSES                LEX         1353     A     
 LEX      *              VIA (SB=LORD).                                                    LEX         1354     A     
 LEX                                                                                       LEX         1355     A     
 LEX       SB=LORD  BSZENT 1                                                               LEX         1356     A     
 LEX       TB=      SPACE  4,10                                                            LEX         1357     A     
 LEX      ***       TB= - TOKEN BUFFER/STATEMENT INFORMATION.                              LEX         1358     A     
 LEX      *                                                                                LEX         1359     A     
 LEX      *                                                                                LEX         1360     A     
 LEX      *         SYMBOLS OF THE FORM *TB=XXX* (WHERE *XXX* IS A UNIQUE NAME)            LEX         1361     A     
 LEX      *         CONTAIN INFORMATION ABOUT THE CURRENT STATEMENT AT *T.TB*.             LEX         1362     A     
 LEX      *         THESE CELLS ARE SET UP BY *LEX* AND ARE QUERIED THROUGHOUT             LEX         1363     A     
 LEX      *         THE COMPILER WHEN INFORMATION ABOUT THE STMT AT *T.TB* IS              LEX         1364     A     
 LEX      *         DESIRED.  THESE *TB=* CELLS ARE, THEREFORE, GLOBAL COMPILER            LEX         1365     A     
 LEX      *         INFORMATION CELLS.                                                     LEX         1366     A     
 LEX      *                                                                                LEX         1367     A     
 LEX      *         IT CAN BE SEEN THAT THESE *TB=* CELLS HAVE A LOGICAL                   LEX         1368     A     
 LEX      *         RELATIONSHIP TO THE *LN=* LINE INFORMATION CELLS.  ??MORE??            LEX         1369     A     
 LEX       TB=1ST   SPACE  4,10                                                            LEX         1370     A     
 LEX      **        TB=1ST - ADDR OF 1ST NON-KEYWORD TOKEN IN *T.TB*.                      LEX         1371     A     
 LEX      *                                                                                LEX         1372     A     
 LEX      *                                                                                LEX         1373     A     
 LEX      *         *TB=1ST* CONTAINS THE ADDR OF THE 1ST NON-KEYWORD TOKEN                LEX         1374     A     
 LEX      *         IN THE TOKEN BUFFER, *T.TB*.  (TB=1ST) CONTAINS, THEREFORE,            LEX         1375     A     
 LEX      *         THE ADDR OF THE 1ST TOKEN THAT A STMT PROCESSOR IS TO BEGIN            LEX         1376     A     
 LEX      *         SCANNING.                                                              LEX         1377     A     
 LEX      *                                                                                LEX         1378     A     
 LEX      *         *TB=1ST* IS ONLY NECESSARY BECAUSE THE TOKEN BUFFER, *T.TB*,           LEX         1379     A     
 LEX      *         IS ONLY A QUASI-MANAGED TABLE.  THAT IS, IT IS DEFINED TO              LEX         1380     A     
 LEX      *         BE A MANAGED TABLE BUT IT CAN ONLY GROW OR SHRINK.  IT                 LEX         1381     A     
 LEX      *         **CAN NOT** AND **MUST NOT** MOVE BECAUSE ALL REFS INTO IT             LEX         1382     A     
 LEX      *         ARE VIA HARD ADDRESSES (I.E. NOT ORDINALS).                            LEX         1383     A     
 LEX      *                                                                                LEX         1384     A     
 LEX      *         THE ABOVE IMPLIES THAT *T.TB* (THE CELL CONTAINING THE FWA             LEX         1385     A     
 LEX      *         OF THE TOKEN BUFFER) MUST NOT CHANGE, I.E. ITS VALUE IS                LEX         1386     A     
 LEX      *         FIXED AT MANAGED TABLE SET-UP-TIME AND THEREAFTER REMAINS              LEX         1387     A     
 LEX      *         CONSTANT.                                                              LEX         1388     A     
 LEX      *                                                                                LEX         1389     A     
 LEX      *         *TB=1ST* IS ESSENTIALLY A COMPANION CELL TO *T.TB*.  IT IS             LEX         1390     A     
 LEX      *         USED WHEN WE WOULD LIKE TO SHORTEN THE TOKEN BUFFER FROM               LEX         1391     A     
 LEX      *         ITS FRONT-END (I.E. RESET *T.TB*), BUT CANNOT FOR FEAR THAT            LEX         1392     A     
 LEX      *         IF WE DO, THE TABLE MANAGER MIGHT MOVE THE TOKEN BUFFER.               LEX         1393     A     
 LEX                                                                                       LEX         1394     A     
 LEX                                                                                       LEX         1395     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       TB=1ST   CONENT 0                                                               LEX         1396     A     
 LEX       TB=CDF   SPACE  4,10                                                            LEX         1397     A     
 LEX      **        TB=CDF - C$ FLAG.                                                      LEX         1398     A     
 LEX      *                                                                                LEX         1399     A     
 LEX      *                                                                                LEX         1400     A     
 LEX      *         *TB=CDF* IS A FLAG THAT INDICATES WHETHER OR NOT THE STATEMENT         LEX         1401     A     
 LEX      *         IN *T.TB* IS ON A *C$* LINE OR NOT AND IS USED BY *CST* TO             LEX         1402     A     
 LEX      *         DETERMINE WHETHER OR NOT THIS STATEMENT **BELONGS** ON A *C$*          LEX         1403     A     
 LEX      *         LINE.                                                                  LEX         1404     A     
 LEX      *                                                                                LEX         1405     A     
 LEX      *         FOR EXAMPLE --                                                         LEX         1406     A     
 LEX      *                                                                                LEX         1407     A     
 LEX      *                C$    LIST(S=0)         DOES, BUT...                            LEX         1408     A     
 LEX      *                                                                                LEX         1409     A     
 LEX      *                C$    A = B             DOES NOT.                               LEX         1410     A     
 LEX      *                                                                                LEX         1411     A     
 LEX      *         (TB=CDF) = 1 IF STATEMENT IN *T.TB* IS ON A *C$* LINE, ELSE 0.         LEX         1412     A     
 LEX                                                                                       LEX         1413     A     
 LEX                                                                                       LEX         1414     A     
 LEX       TB=CDF   BSSZ   1                                                               LEX         1415     A     
 LEX       TB=LAB   SPACE  4,10                                                            LEX         1416     A     
 LEX      **        TB=LABL/TB=LABR - STATEMENT LABEL.                                     LEX         1417     A     
 LEX      *                                                                                LEX         1418     A     
 LEX      *                                                                                LEX         1419     A     
 LEX      *         *TB=LABL* AND *TB=LABR* CONTAIN THE LABEL OF THE                       LEX         1420     A     
 LEX      *         1ST (I.E. THE INITIAL) LINE OF STMT AT *T.TB* IN -L-                   LEX         1421     A     
 LEX      *         AND -R- FORMATS RESPECTIVELY.                                          LEX         1422     A     
 LEX      *                                                                                LEX         1423     A     
 LEX      *         (TB=LABL) = STMT LABEL IN -L- FORMAT.                                  LEX         1424     A     
 LEX      *         (TB=LABR) = STMT LABEL IN -R- FORMAT.                                  LEX         1425     A     
 LEX                                                                                       LEX         1426     A     
 LEX       TB=LABL  BSZENT 1                                                               LEX         1427     A     
 LEX       TB=LABR  BSZENT 1                                                               LEX         1428     A     
 LEX       TB=LLP   SPACE  4,10                                                            LEX         1429     A     
 LEX      **        TB=LLP - LAST LEFT PAREN.                                              LEX         1430     A     
 LEX      *                                                                                LEX         1431     A     
 LEX      *                                                                                LEX         1432     A     
 LEX      *         *TB=LLP* CONTAINS THE ADDR IN *T.TB* OF THE LAST LEFT                  LEX         1433     A     
 LEX      *         PAREN (O.LP) TOKEN GENERATED AT A PAREN LEVEL **GREATER**              LEX         1434     A     
 LEX      *         THAN 0.                                                                LEX         1435     A     
 LEX      *                                                                                LEX         1436     A     
 LEX      *         (TB=LLP) IS SET EVERYTIME *TOK* GENERATES AN *O.LP* TOKEN,             LEX         1437     A     
 LEX      *         AND IS CLEARED WHEN AN *O.RP* TOKEN CAUSES THE PAREN LEVEL             LEX         1438     A     
 LEX      *         TO GO TO ZERO.                                                         LEX         1439     A     
 LEX      *                                                                                LEX         1440     A     
 LEX      *         *TB=LLP* IS USED SO THAT *LEX* CAN LINK INTERESTING LEFT               LEX         1441     A     
 LEX      *         PARENS TO ONE ANOTHER AND ALSO TO THEIR MATCHING RIGHT                 LEX         1442     A     
 LEX      *         PAREN.                                                                 LEX         1443     A     
 LEX      *                                                                                LEX         1444     A     
 LEX      *         THIS *LINKED PAREN* INFORMATION WILL BE USED BY THE PARSER             LEX         1445     A     
 LEX      *         AND BY THE DECK *IO* TO SIMPLIFY THEIR SYNTACTIC HANDLING              LEX         1446     A     
 LEX      *         OF LEFT/RIGHT PAREN PAIRS.                                             LEX         1447     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         1448     A     
 LEX      *         CONSIDER THE FOLLOWING EXAMPLE: A STATEMENT IN WHICH ONLY THE          LEX         1449     A     
 LEX      *         LEFT AND RIGHT PARENS ARE SHOWN.  *O.LP* TOKENS WILL BE LINKED         LEX         1450     A     
 LEX      *         DURING TOKEN GENERATION IN THE FOLLOWING MANNER (PLUS SIGN +           LEX         1451     A     
 LEX      *         IS USED IN LIEU OF AN ARROW-HEAD) --                                   LEX         1452     A     
 LEX      *                                                                                LEX         1453     A     
 LEX      *                ...... ............                                             LEX         1454     A     
 LEX      *           LLP  .    . .          .                                             LEX         1455     A     
 LEX      *                +    . +          .                                             LEX         1456     A     
 LEX      *                (     (     )     (     )     )     (     )                     LEX         1457     A     
 LEX      *                .     .     +     .     +     +     .     +                     LEX         1458     A     
 LEX      *           IOCP .     .     .     .     .     .     .     .                     LEX         1459     A     
 LEX      *                .     .......     .......     .     .......                     LEX         1460     A     
 LEX      *                .                             .                                 LEX         1461     A     
 LEX      *                ...............................                                 LEX         1462     A     
 LEX      *                                                                                LEX         1463     A     
 LEX      *         IT CAN BE SEEN THAT LEFT-PARENS ARE LINKED **BACKWARDS** TO            LEX         1464     A     
 LEX      *         A PREVIOUS LEFT PAREN IN THE SAME PAREN NEST, AND THAT LEFT            LEX         1465     A     
 LEX      *         PARENS ARE ALSO LINKED **FORWARD** TO THEIR MATCHING RIGHT             LEX         1466     A     
 LEX      *         PAREN.                                                                 LEX         1467     A     
 LEX      *                                                                                LEX         1468     A     
 LEX      *         NOTE THAT THE RIGHT-MOST LEFT PAREN IS NOT LINKED BACK TO              LEX         1469     A     
 LEX      *         ANOTHER LEFT PAREN BECAUSE IT CONSTITUTES THE BEGINNING OF             LEX         1470     A     
 LEX      *         ANOTHER PAREN NEST (I.E. IT OCCURS AT PAREN LEVEL 0).                  LEX         1471     A     
 LEX      *                                                                                LEX         1472     A     
 LEX      *         NOTE ALSO THAT **ALL** LINKING INFORMATION RESIDES IN THE              LEX         1473     A     
 LEX      *         *TB.LLP* AND *TB.IOCP* FIELDS IN THE *O.LP* TOKEN(S)...THE             LEX         1474     A     
 LEX      *         *O.RP* TOKENS ARE UNTOUCHED.                                           LEX         1475     A     
 LEX      *                                                                                LEX         1476     A     
 LEX      *         SEE *TOK=LP* (TOKEN GENERATOR/LEFT PAREN PROCESSOR) AND                LEX         1477     A     
 LEX      *         *TOK=RP* (TOKEN GENERATOR/RIGHT PAREN PROCESSOR) FOR MORE              LEX         1478     A     
 LEX      *         INFORMATION.                                                           LEX         1479     A     
 LEX                                                                                       LEX         1480     A     
 LEX                                                                                       LEX         1481     A     
 LEX       TB=LLP   BSSZ   1                                                               LEX         1482     A     
 LEX       TB=NUM   SPACE  4,10                                                            LEX         1483     A     
 LEX      **        TB=NUML/TB=NUMR - STATEMENT LINE NUMBER.                               LEX         1484     A     
 LEX      *                                                                                LEX         1485     A     
 LEX      *                                                                                LEX         1486     A     
 LEX      *         *TB=NUML* AND *TB=NUMR* CONTAIN THE LINE NUMBER OF THE                 LEX         1487     A     
 LEX      *         1ST (I.E. THE INITIAL) LINE OF THE STMT AT *T.TB* IN -L-               LEX         1488     A     
 LEX      *         AND -R- FORMATS RESPECTIVELY.                                          LEX         1489     A     
 LEX      *                                                                                LEX         1490     A     
 LEX      *         THIS LINE NUMBER IS USED BY THE COMPILER FOR --                        LEX         1491     A     
 LEX      *                                                                                LEX         1492     A     
 LEX      *           1. SETTING UP THE REFERENCE MAP REFERENCES FOR SYMBOLS               LEX         1493     A     
 LEX      *              THAT OCCUR IN THIS STMT.                                          LEX         1494     A     
 LEX      *                                                                                LEX         1495     A     
 LEX      *           2. SETTING UP TRACEBACK INFORMATION THAT IS TO BE PASSED             LEX         1496     A     
 LEX      *              TO THE FTN LIBRARY (USED FOR DIAGNOSING ERRORS AT                 LEX         1497     A     
 LEX      *              EXECUTION TIME).                                                  LEX         1498     A     
 LEX      *                                                                                LEX         1499     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         NOTE THAT *TB=NUML/TB=NUMR* ARE BOTH DERIVED FROM                      LEX         1500     A     
 LEX      *         *LN=NUML/LN=NUMR*.                                                     LEX         1501     A     
 LEX      *                                                                                LEX         1502     A     
 LEX      *         (TB=NUML) = STMT LINE NR IN -L- FORMAT.                                LEX         1503     A     
 LEX      *         (TB=NUMR) = STMT LINE NR IN -R- FORMAT.                                LEX         1504     A     
 LEX                                                                                       LEX         1505     A     
 LEX                                                                                       LEX         1506     A     
 LEX       TB=NUML  BSZENT 1                                                               LEX         1507     A     
 LEX       TB=NUMR  BSZENT 1                                                               LEX         1508     A     
 LEX       TB=PLVL  SPACE  4,10                                                            LEX         1509     A     
 LEX      **        TB=PLVL - PARENTHESIS LEVEL.                                           LEX         1510     A     
 LEX      *                                                                                LEX         1511     A     
 LEX      *                                                                                LEX         1512     A     
 LEX      *         *TB=PLVL* CONTAINS THE CURRENT PAREN LEVEL DURING TOKEN                LEX         1513     A     
 LEX      *         GENERATION.  DURING THE LEFT-TO-RIGHT ENTOKENING PASS                  LEX         1514     A     
 LEX      *         MADE BY *TOK* ACROSS EACH SOURCE STMT, (TB=PLVL) ARE                   LEX         1515     A     
 LEX      *         INCREMENTED FOR EACH LEFT-PAREN *(*, AND DECREMENTED                   LEX         1516     A     
 LEX      *         FOR EACH RIGHT-PAREN *)* ENCOUNTERED.                                  LEX         1517     A     
 LEX      *                                                                                LEX         1518     A     
 LEX      *         *TB=PLVL* IS USED PRIMARILY FOR DETERMINING WHEN TO SET                LEX         1519     A     
 LEX      *         THE *ZL* (ZERO LEVEL) CELLS.                                           LEX         1520     A     
 LEX                                                                                       LEX         1521     A     
 LEX                                                                                       LEX         1522     A     
 LEX       TB=PLVL  CONENT 0                                                               LEX         1523     A     
 LEX       TB=TYPE  SPACE  4,10                                                            LEX         1524     A     
 LEX      **        TB=TYPE - STATEMENT TYPE.                                              LEX         1525     A     
 LEX      *                                                                                LEX         1526     A     
 LEX      *                                                                                LEX         1527     A     
 LEX      *         *TB=TYPE* CONTAINS THE ADDR OF THE STATEMENT PROCESSOR                 LEX         1528     A     
 LEX      *         THAT IS TO PROCESS THE STMT AT *T.TB*.  THIS CELL IS                   LEX         1529     A     
 LEX      *         SET UP VIA *CST* (CLASSIFY STATEMENT) AND IS USED BY                   LEX         1530     A     
 LEX      *         THE FRONT END CONTROLLER (FEC) TO TRANSFER CONTROL TO                  LEX         1531     A     
 LEX      *         THE APPROPRIATE STMT PROCESSOR.                                        LEX         1532     A     
 LEX                                                                                       LEX         1533     A     
 LEX                                                                                       LEX         1534     A     
 LEX       TB=TYPE  CONENT 0                                                               LEX         1535     A     
 LEX       TOKCOM   SPACE  4,10                                                            LEX         1536     A     
 LEX      **        TOKCOM - USER/TOK COMMUNICATIONS AREA.                                 LEX         1537     A     
 LEX      *                                                                                LEX         1538     A     
 LEX      *                                                                                LEX         1539     A     
 LEX      *         *TOKCOM* CONTAINS INFORMATION THAT IS TO BE PASSED BETWEEN             LEX         1540     A     
 LEX      *         *LEX* AND *TOK*.  LOCATIONS WITHIN *TOKCOM* ARE DEFINED VIA            LEX         1541     A     
 LEX      *         ORDINALS INTO *TOKCOM*.  THESE ORDINALS ARE DEFINED VIA                LEX         1542     A     
 LEX      *         SYMBOLS OF THE FORM --                                                 LEX         1543     A     
 LEX      *                                                                                LEX         1544     A     
 LEX      *                TC.XXX                                                          LEX         1545     A     
 LEX      *                                                                                LEX         1546     A     
 LEX      *         WHERE *TC.* IS A COMMON PREFIX, AND *XXX* IS A *TOKCOM*                LEX         1547     A     
 LEX      *         LOCATION ORDINAL NAME  (*TC.XXX* SYMBOLS ARE DEFINED                   LEX         1548     A     
 LEX      *         IN *COMSTOK*).  **ALL** REFERENCES INTO *TOKCOM* SHOULD BE VIA         LEX         1549     A     
 LEX      *         *TC.XXX* SYMBOLS.                                                      LEX         1550     A     
 LEX                                                                                       LEX         1551     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         1552     A     
 LEX       FW.TCOM  BSSZ   L.TCOM                                                          LEX         1553     A     
 LEX                                                                                       LEX         1554     A     
 LEX                                                                                       LEX         1555     A     
 LEX                LOC    FW.TCOM                                                         LEX         1556     A     
 LEX       TC=P     =      *+TC.P                                                          LEX         1557     A     
 LEX       TC=SOA   =      *+TC.SOA                                                        LEX         1558     A     
 LEX       TC=SOX   =      *+TC.SOX                                                        LEX         1559     A     
 LEX       TC=SOL   =      *+TC.SOL                                                        LEX         1560     A     
 LEX       TC=SOB   =      *+TC.SOB                                                        LEX         1561     A     
 LEX       TC=SOC   =      *+TC.SOC                                                        LEX         1562     A     
 LEX       TC=TBA   =      *+TC.TBA                                                        LEX         1563     A     
 LEX       TC=TBB   =      *+TC.TBB                                                        LEX         1564     A     
 LEX       TC=RSF   =      *+TC.RSF                                                        LEX         1565     A     
 LEX       TC=BOL   =      *+TC.BOL                                                        LEX         1566     A     
 LEX       TC=EOL   =      *+TC.EOL                                                        LEX         1567     A     
 LEX       TC=REST  =      *+TC.REST                                                       LEX         1568     A     
 LEX                LOC    *O                                                              LEX         1569     A     
 LEX       KEYW     TITLE  KEYW - FTN KEYWORD TABLE.                                       LEX         1570     A     
 LEX      ***       KEYW - FTN KEYWORD TABLE.                                              LEX         1571     A     
 LEX      *                                                                                LEX         1572     A     
 LEX      *                                                                                LEX         1573     A     
 LEX      *         THIS SECTION CONTAINS THE FTN KEYWORD TABLE (FWA AT                    LEX         1574     A     
 LEX      *         *FW.KEYW*).  THIS *KEYW* TABLE CONTAINS ONE ENTRY                      LEX         1575     A     
 LEX      *         (DEFINED VIA *KEYW* MACRO) FOR EACH POSSIBLE FTN                       LEX         1576     A     
 LEX      *         STMT.  THIS *KEYW* TABLE CONTAINS INFORMATION THAT IS                  LEX         1577     A     
 LEX      *         USED IN 2 DIFFERENT WAYS --                                            LEX         1578     A     
 LEX      *                                                                                LEX         1579     A     
 LEX      *           1. IN DETERMINING THE TYPE OF A STMT (I.E. IN DETERMINING            LEX         1580     A     
 LEX      *              WHICH STMT PROCESSOR IS TO PROCESS A PARTICULAR STMT),            LEX         1581     A     
 LEX      *              *CST* (CLASSIFY STMT TYPE) USES THE *KEYW* TABLE DURING           LEX         1582     A     
 LEX      *              ITS KEYWORD SEARCH: EACH *KEYW* ENTRY CONTAINS THE ADDR           LEX         1583     A     
 LEX      *              OF A LITERAL STRING THAT IS A FTN KEYWORD.  *CST* TRIES           LEX         1584     A     
 LEX      *              TO MATCH THE KEYWORD THAT OCCURS ON A STMT WITH AN ENTRY          LEX         1585     A     
 LEX      *              IN THE *KEYW* TABLE.                                              LEX         1586     A     
 LEX      *                                                                                LEX         1587     A     
 LEX      *              EXCEPTION: STMTS THAT ARE SYNTACTICALLY DEFINED, SUCH AS          LEX         1588     A     
 LEX      *              THE REPLACEMENT STMT, ARE SPECIAL-CASED (I.E. NO KEYWORD          LEX         1589     A     
 LEX      *              SEARCH IS PERFORMED).  HOWEVER, THESE SYNTACTICALLY               LEX         1590     A     
 LEX      *              DEFINED STMTS DO HAVE A SPECIAL *KEYW* ENTRY...SEE                LEX         1591     A     
 LEX      *              BELOW.                                                            LEX         1592     A     
 LEX      *                                                                                LEX         1593     A     
 LEX      *           2. AFTER A STMT HAS BEEN TYPED (I.E. AFTER A *KEYW* ENTRY            LEX         1594     A     
 LEX      *              HAS BEEN CHOSEN FOR A STMT), *CST* TRANSFERS THE                  LEX         1595     A     
 LEX      *              APPROPRIATE *KEYW* ENTRY TO (TB=TYPE).  IN THIS WAY,              LEX         1596     A     
 LEX      *              ANYBODY WHO IS INTERESTED IN THIS STMTS *KEYW* ENTRY              LEX         1597     A     
 LEX      *              CAN KNOW WHERE TO FIND IT.  THIS IMPLIES, OF COURSE,              LEX         1598     A     
 LEX      *              THAT A STMTS *KEYW* ENTRY CONTAINS SOMETHING OF INTEREST          LEX         1599     A     
 LEX      *              TO THE REST OF THE COMPILER...SEE BELOW.                          LEX         1600     A     
 LEX      *                                                                                LEX         1601     A     
 LEX      *         FIELDS WITHIN EACH INDIVIDUAL *KEYW* ENTRY ARE                         LEX         1602     A     
 LEX      *         DESCRIBE/DEFINED IN THE USUAL MANNER VIA SYMBOLS                       LEX         1603     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         OF THE FORM --                                                         LEX         1604     A     
 LEX      *                                                                                LEX         1605     A     
 LEX      *                KW.XXXL  AND  KW.XXXP                                           LEX         1606     A     
 LEX      *                                                                                LEX         1607     A     
 LEX      *         WHERE *KW.* IS A COMMON PREFIX AND *XXX* IS A UNIQUE FIELD             LEX         1608     A     
 LEX      *         NAME.                                                                  LEX         1609     A     
 LEX      *                                                                                LEX         1610     A     
 LEX      *         FIELDS *XXX* WITHIN *KW.* STRUCTURE ARE --                             LEX         1611     A     
 LEX      *                                                                                LEX         1612     A     
 LEX      *         KEY  = ADDR OF SPECIAL LITERAL STRING (GENERATED VIA                   LEX         1613     A     
 LEX      *                *LITKEY* MACRO IN *FTN5TXT*) THAT CONTAINS THE                  LEX         1614     A     
 LEX      *                CHARACTERS THAT CONSTITUTE THIS *FORTRAN* KEYWORD.              LEX         1615     A     
 LEX      *                                                                                LEX         1616     A     
 LEX      *                THE *LITKEY* MACRO GENERATES THE KEYWORD IN                     LEX         1617     A     
 LEX      *                TOKEN-SIZE CHUNKS OF 7 CHARS PER WORD, WHERE EACH               LEX         1618     A     
 LEX      *                CHUNK IS IN -L- FMT.                                            LEX         1619     A     
 LEX      *                                                                                LEX         1620     A     
 LEX      *                E.G. *SUBROUTINE* BECOMES --                                    LEX         1621     A     
 LEX      *                  0LSUBROUT                                                     LEX         1622     A     
 LEX      *                  0LINE                                                         LEX         1623     A     
 LEX      *                                                                                LEX         1624     A     
 LEX      *                *CST* (CLASSIFY STATEMENT) IN DECK *LEX* WILL TRY               LEX         1625     A     
 LEX      *                AND MATCH THE 1ST *O.VAR* TOKEN IN EACH STMT WITH               LEX         1626     A     
 LEX      *                ONE OF THE *KEY* LITERALS.  IF A MATCH IS FOUND,                LEX         1627     A     
 LEX      *                THEN THE *JMP* FIELD OF THIS MATCHING *KEYW* ENTRY              LEX         1628     A     
 LEX      *                CONTAINS THE ADDR OF THE STMT PROCESSOR THAT IS                 LEX         1629     A     
 LEX      *                TO PROCESS THIS STMT.                                           LEX         1630     A     
 LEX      *                                                                                LEX         1631     A     
 LEX      *                NOTE THAT FOR SYNTACTICALLY DEFINED STMTS SUCH AS               LEX         1632     A     
 LEX      *                *DO*, *IF*, AND REPLACEMENT, THAT NO KEYWORD SEARCH             LEX         1633     A     
 LEX      *                IS PERFORMED AND THE *KEY* FIELD IS SET TO .MI. SO              LEX         1634     A     
 LEX      *                THAT INTERESTED PARTIES CAN KNOW THAT THIS IS A                 LEX         1635     A     
 LEX      *                SYNTACTICALLY DEFINED STMT.                                     LEX         1636     A     
 LEX      *                                                                                LEX         1637     A     
 LEX      *         LEN  = LENGTH OF KEYWORD (IN BITS).                                    LEX         1638     A     
 LEX      *                                                                                LEX         1639     A     
 LEX      *         JMP  = ADDR OF THE STMT PROCESSOR THAT IS TO PROCESS A STMT            LEX         1640     A     
 LEX      *                DEFINED BY THIS *KEYW* ENTRY.                                   LEX         1641     A     
 LEX      *                                                                                LEX         1642     A     
 LEX      *         FEC  = *FEC* (FRONT END CONTROLLER) STAGE THAT A STMT                  LEX         1643     A     
 LEX      *                WITH THIS *KEYW* ENTRY CAN OCCUR IN...WHAT MANNER               LEX         1644     A     
 LEX      *                OF BARSOOMIAN MADNESS IS THIS (SEE *FEC=* IN DECK               LEX         1645     A     
 LEX      *                *FEC* FOR MORE, NOT MUCH MORE, INFO).                           LEX         1646     A     
 LEX      *                                                                                LEX         1647     A     
 LEX      *         ATTR = ATTRIBUTES OF THIS STATEMENT.  *ATTR* FIELD CONSISTS            LEX         1648     A     
 LEX      *                OF A NUMBER OF BIT FLAGS THAT CONTAIN MISCELLANEOUS             LEX         1649     A     
 LEX      *                INFORMATION ABOUT THIS STMT.  SEE BELOW.                        LEX         1650     A     
 LEX      *                                                                                LEX         1651     A     
 LEX      *                                                                                LEX         1652     A     
 LEX      *         *ATTR* BIT FLAGS ARE --                                                LEX         1653     A     
 LEX      *                                                                                LEX         1654     A     
 LEX      *         DON  = 1 IF THIS STMT MAY NOT BE A *DO* TERMINAL, ELSE 0.              LEX         1655     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         1656     A     
 LEX      *         NIF  = 1 IF THIS STMT MAY NOT BE THE OBJECT OF A LOGICAL               LEX         1657     A     
 LEX      *                  *IF*, ELSE 0.                                                 LEX         1658     A     
 LEX      *                                                                                LEX         1659     A     
 LEX      *         LBL  = 1 IF THIS STMT MAY HAVE A REFERRABLE LABEL, ELSE 0.             LEX         1660     A     
 LEX      *                                                                                LEX         1661     A     
 LEX      *         GEN  = 1 IF THIS STMT GENERATES CODE, ELSE 0.                          LEX         1662     A     
 LEX      *                                                                                LEX         1663     A     
 LEX      *         BKD  = 1 IF THIS STMT IS LEGAL WITH A *BLOCKDATA*                      LEX         1664     A     
 LEX      *                  SUBPROGRAM, ELSE 0.                                           LEX         1665     A     
 LEX      *                                                                                LEX         1666     A     
 LEX      *         PWS  = 1 IF THIS STMT IS TO BE PROCESSED WHILE SKIPPING,               LEX         1667     A     
 LEX      *                  (STAGE = FEC=BY), ELSE 0.                                     LEX         1668     A     
 LEX      *                                                                                LEX         1669     A     
 LEX      *         IL   = 1 IF THIS STMT HAS IMPLIED LABEL (NOPATH INVALID),              LEX         1670     A     
 LEX      *                  ELSE 0.                                                       LEX         1671     A     
 LEX                                                                                       LEX         1672     A     
 LEX                                                                                       LEX         1673     A     
 LEX       FW.KEYW  BSS    0           ** FWA OF KEYWORD TABLE **                          LEX         1674     A     
 LEX                                                                                       LEX         1675     A     
 LEX                KEYW   ASSIGN,EXU,(GEN,LBL)                                            LEX         1676     A     
 LEX                KEYW   BACKSPACE,EXU,(GEN,LBL)                                         LEX         1677     A     
 LEX                KEYW   BLOCKDATA,1ST,(NIF)                                             LEX         1678     A     
 LEX                KEYW   BOOLEAN,TYP,(BKD,NIF)                                           LEX         1679     A     
 LEX                KEYW   BUFFER,EXU,(GEN,LBL)                                            LEX         1680     A     
 LEX                KEYW   CALL,EXU,(GEN,LBL)                                              LEX         1681     A     
 LEX                KEYW   CHARACTER,TYP,(BKD,NIF)                                         LEX         1682     A     
 LEX                KEYW   CLOSE,EXU,(GEN,LBL)                                             LEX         1683     A     
 LEX                KEYW   COMMON,DEC,(BKD,NIF)                                            LEX         1684     A     
 LEX                KEYW   COMPLEX,TYP,(BKD,NIF)                                           LEX         1685     A     
 LEX                KEYW   CONTINUE,EXU,(GEN,LBL)                                          LEX         1686     A     
 LEX                KEYW   DATA,DAT,(BKD,NIF)                                              LEX         1687          I
          -FC5A233
 LEX                KEYW   DATA,DAT,(BKD,NIF,GEN,IL)                                       FC5A233        5          I
          -FC50785
 LEX                KEYW   DATA,DAT,(BKD,NIF,GEN,IL,NBS)                                   FC50785       13     A     
 LEX                KEYW   DECODE,EXU,(GEN,LBL)                                            LEX         1688     A     
 LEX                KEYW   DIMENSION,DEC,(BKD,NIF)                                         LEX         1689     A     
 LEX                KEYW   DOUBLE,TYP,(BKD,NIF)                                            LEX         1690          I
          -FC5A126
 LEX                KEYW   DOUBLEPRECISION,TYP,(BKD,NIF)                                   FC5A126       31     A     
 LEX                KEYW   ELSE,EXU,(GEN,NIF,DON,IL)                                       LEX         1691     A     
 LEX                KEYW   ENCODE,EXU,(GEN,LBL)                                            LEX         1692     A     
 LEX       KY=END   KEYW   END,END,(BKD,DON,GEN,NIF,LBL,IL,PWS)                            LEX         1693     A     
 LEX                KEYW   ENDFILE,EXU,(GEN,LBL)                                           LEX         1694     A     
 LEX                KEYW   ENDIF,EXU,(GEN,LBL,NIF,DON,IL)                                  LEX         1695     A     
 LEX                KEYW   ENTRY,ENT,(GEN,NIF,IL)                                          LEX         1696     A     
 LEX                KEYW   EQUIVALENCE,DEC,(BKD,NIF)                                       LEX         1697     A     
 LEX                KEYW   EXTERNAL,DEC,(NIF)                                              LEX         1698     A     
 LEX                KEYW   FORMAT,FMT,(LBL,NIF)                                            LEX         1699     A     
 LEX                KEYW   FUNCTION,1ST,(NIF)                                              LEX         1700     A     
 LEX                KEYW   GOTO,EXU,(DON,GEN,LBL)                                          LEX         1701          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FC5A224
 LEX                KEYW   GOTO,EXU,(GEN,LBL)                                              FC5A224        5     A     
 LEX                KEYW   IMPLICIT,IMP,(BKD,NIF)                                          LEX         1702     A     
 LEX                KEYW   INQUIRE,EXU,(GEN,LBL)                                           LEX         1703     A     
 LEX                KEYW   INTEGER,TYP,(BKD,NIF)                                           LEX         1704     A     
 LEX                KEYW   INTRINSIC,DEC,(NIF)                                             LEX         1705     A     
 LEX                KEYW   LEVEL,DEC,(BKD,NIF)                                             LEX         1706     A     
 LEX                KEYW   LOGICAL,TYP,(BKD,NIF)                                           LEX         1707     A     
 LEX                KEYW   NAMELIST,DAT,(NIF)                                              LEX         1708     A     
 LEX                KEYW   OPEN,EXU,(GEN,LBL)                                              LEX         1709     A     
 LEX                KEYW   OVCAP,1ST,(NIF)                                                 F1037F5      336     A     
 LEX                KEYW   OVERLAY,1ST,(NIF)                                               LEX         1710     A     
 LEX                KEYW   PARAMETER,PRM,(BKD,NIF)                                         LEX         1711     A     
 LEX                KEYW   PAUSE,EXU,(GEN,LBL)                                             LEX         1712     A     
 LEX                KEYW   PRINT,EXU,(GEN,LBL)                                             LEX         1713     A     
 LEX                KEYW   PROGRAM,1ST,(NIF)                                               LEX         1714     A     
 LEX                KEYW   PUNCH,EXU,(GEN,LBL)                                             LEX         1715     A     
 LEX                KEYW   READ,EXU,(GEN,LBL)                                              LEX         1716     A     
 LEX                KEYW   REAL,TYP,(BKD,NIF)                                              LEX         1717     A     
 LEX                KEYW   RETURN,EXU,(DON,GEN,LBL)                                        LEX         1718     A     
 LEX                KEYW   REWIND,EXU,(GEN,LBL)                                            LEX         1719     A     
 LEX                KEYW   SAVE,DEC,(BKD,NIF)                                              LEX         1720     A     
 LEX                KEYW   STOP,EXU,(DON,GEN,LBL)                                          LEX         1721     A     
 LEX                KEYW   SUBROUTINE,1ST,(NIF)                                            LEX         1722     A     
 LEX                KEYW   WRITE,EXU,(GEN,LBL)                                             LEX         1723     A     
 LEX                                                                                       LEX         1724     A     
 LEX                                                                                       LEX         1725     A     
 LEX       .T       IFEQ   TEST,ON                                                         LEX         1726     A     
 LEX                KEYW   BREAK,OK,(BKD)                                                  LEX         1727     A     
 LEX                KEYW   PATCH,OK,(BKD,NIF)                                              LEX         1728     A     
 LEX       .T       ENDIF                                                                  LEX         1729     A     
 LEX                                                                                       LEX         1730     A     
 LEX       L.KEYW   =      *-FW.KEYW                                                       LEX         1731     A     
 LEX       KEYW     SPACE  4,10                                                            LEX         1732     A     
 LEX      **        KEYW - SPECIAL ENTRIES FOR SYNTACTICALLY DEFINED STMTS.                LEX         1733     A     
 LEX                                                                                       LEX         1734     A     
 LEX                                                                                       LEX         1735     A     
 LEX       UNTYP.   CON    0                                                               LEX         1736     A     
 LEX       STF.     KEYW   =SFD,STF,(NIF)                                                  LEX         1737     A     
 LEX       DO.      KEYW   DO,EXU,(DON,GEN,LBL,NIF)                                        LEX         1738     A     
 LEX       IF.      KEYW   =IFS,EXU,(GEN,LBL)                                              LEX         1739     A     
 LEX       REP.     KEYW   =CNF,EXU,(GEN,LBL)                                              LEX         1740     A     
 LEX       EOS      KEYW   =E.ME,END,(BKD,GEN,IL,PWS)                                      LEX         1741     A     
 LEX       KEY$     SPACE  4,10                                                            LEX         1742     A     
 LEX      **        KEY$ - ENTRIES FOR C$ DIRECTIVE KEYWORDS.                              LEX         1743     A     
 LEX                                                                                       LEX         1744     A     
 LEX                                                                                       LEX         1745     A     
 LEX       FW.KEY$  BSS    0           ** FWA OF C$ DIRECTIVE KEYWORD TABLE **             LEX         1746     A     
 LEX                                                                                       LEX         1747     A     
 LEX                KEY$   BEGCOM,OK                                                       LEX         1748          I
          -FC50799
 LEX                KEY$   BEGCOM,OK,(BKD)                                                 FC50799        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                KEY$   COLLATE,OK                                                      LEX         1749          I
          -FC50480
 LEX                KEY$   DO,OK                                                           LEX         1750          I
          -FC50480
 LEX                KEY$   COLLATE,OK,(GEN)                                                FC50480        7          I
          -FC50785
 LEX                KEY$   DO,OK,(GEN)                                                     FC50480        8          I
          -FC50785
 LEX                KEY$   COLLATE,OK,(GEN,NBS)                                            FC50785       14     A     
 LEX                KEY$   DO,OK,(GEN,NBS)                                                 FC50785       15     A     
 LEX                KEY$   ELSE,OK,(PWS,BKD)                                               LEX         1751     A     
 LEX                KEY$   ENDCOM,OK                                                       LEX         1752          I
          -FC50799
 LEX                KEY$   ENDCOM,OK,(BKD)                                                 FC50799        7     A     
 LEX                KEY$   ENDIF,OK,(PWS,BKD)                                              LEX         1753     A     
 LEX                KEY$   IF,OK,(PWS,BKD)                                                 LEX         1754     A     
 LEX                KEY$   LIST,OK,(BKD)                                                   LEX         1755          I
          -FC50480
 LEX                KEY$   LIST,OK,(BKD,GEN)                                               FC50480        9          I
          -FC50785
 LEX                KEY$   LIST,OK,(BKD,GEN,NBS)                                           FC50785       16     A     
 LEX                                                                                       LEX         1756     A     
 LEX       L.KEY$   EQU    *-FW.KEY$                                                       LEX         1757     A     
 LEX                                                                                       LEX         1758     A     
 LEX                                                                                       LEX         1759     A     
 LEX       FW.KEYS  CON    FW.KEYW,FW.KEY$                                                 LEX         1760     A     
 LEX       L.KEYS   CON    L.KEYW,L.KEY$                                                   LEX         1761     A     
 LEX       LEX      TTL    LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                      LEX         1762     A     
 LEX                EJECT                                                                  LEX         1763     A     
 LEX       LEX      SPACE  4,10                                                            LEX         1764     A     
 LEX      **        LEX - LEXICAL SCANNER MAIN EXECUTIVE.                                  LEX         1765     A     
 LEX      *                                                                                LEX         1766     A     
 LEX      *                                                                                LEX         1767     A     
 LEX      *         THIS IS THE LEXICAL SCANNER MAIN EXECUTIVE WHICH CONTROLS              LEX         1768     A     
 LEX      *         THE LEXICAL SCANNING FOR A SINGLE SOURCE STATEMENT (INITIAL            LEX         1769     A     
 LEX      *         LINE PLUS CONTINUATION LINES).                                         LEX         1770     A     
 LEX      *                                                                                LEX         1771     A     
 LEX      *         *LEX* IS CALLED BY *FEC* (FRONT END CONTROLLER) ONCE PER               LEX         1772     A     
 LEX      *         *FORTRAN* SOURCE STATEMENT, AND PERFORMS THE FOLLOWING                 LEX         1773     A     
 LEX      *         TASKS --                                                               LEX         1774     A     
 LEX      *                                                                                LEX         1775     A     
 LEX      *           1. READS SOURCE LINES FROM THE SOURCE INPUT FILE, *F.IN*.            LEX         1776     A     
 LEX      *                                                                                LEX         1777     A     
 LEX      *           2. LISTS SOURCE LINES TO THE LISTABLE OUTPUT FILE, *F.OUT*.          LEX         1778     A     
 LEX      *              THIS ALSO INVOLVES THE GENERATION/MANAGEMENT OF THE               LEX         1779     A     
 LEX      *              STMT/DEFERRED LIST BUFFER, *T.STMT*.                              LEX         1780     A     
 LEX      *                                                                                LEX         1781     A     
 LEX      *           3. ENTOKENS THE SOURCE STATEMENT.                                    LEX         1782     A     
 LEX      *                                                                                LEX         1783     A     
 LEX      *           4. CLASSIFIES THE SOURCE STATEMENT (I.E. DETERMINES WHICH            LEX         1784     A     
 LEX      *              STATEMENT PROCESSOR IS TO PROCESS THIS STATEMENT).                LEX         1785     A     
 LEX      *                                                                                LEX         1786     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         STRUCTURALLY, THE LEXICAL SCANNER MAIN EXECUTIVE IS COMPRISED          LEX         1787     A     
 LEX      *         OF 2 PARTS:  A MAIN LOOP AND A FINAL PROCESSING PHASE.                 LEX         1788     A     
 LEX      *                                                                                LEX         1789     A     
 LEX      *         THE MAIN LOOP IS TRAVERSED ONCE PER SOURCE LINE (EMPHASIZE             LEX         1790     A     
 LEX      *         *LINE*), AND CAN BE REPRESENTED BY THE FOLLOWING DIAGRAM --            LEX         1791     A     
 LEX      *                                                                                LEX         1792     A     
 LEX      *                                +---------+                                     LEX         1793     A     
 LEX      *                                +  LIST   +                                     LEX         1794     A     
 LEX      *                                +  (PLR)  +                                     LEX         1795     A     
 LEX      *                                +---------+                                     LEX         1796     A     
 LEX      *                                                                                LEX         1797     A     
 LEX      *                    +---------+             +---------+                         LEX         1798     A     
 LEX      *                    +CLASSIFY +             + ENTOKEN +                         LEX         1799     A     
 LEX      *                    +LINE(CLN)+             +  (TOK)  +                         LEX         1800     A     
 LEX      *                    +---------+             +---------+                         LEX         1801     A     
 LEX      *                                                                                LEX         1802     A     
 LEX      *                                +---------+                                     LEX         1803     A     
 LEX      *                                +  READ   +                                     LEX         1804     A     
 LEX      *                                +  (RNC)  +                                     LEX         1805     A     
 LEX      *                                +---------+                                     LEX         1806     A     
 LEX      *                                                                                LEX         1807     A     
 LEX      *         WHERE MOTION IS CLOCKWISE AND *PLR*, *TOK*, *RNC*, AND *CLN*           LEX         1808     A     
 LEX      *         ARE THE EXECUTIVES THAT PERFORM EACH ABOVE-SPECIFIED TASK.             LEX         1809     A     
 LEX      *                                                                                LEX         1810     A     
 LEX      *         IN GENERAL, THIS MAIN LOOP IS EXITED WHEN *LEX* SENSES                 LEX         1811     A     
 LEX      *         THE BEGINNING OF THE STMT **FOLLOWING** THE STMT THAT *FEC*            LEX         1812     A     
 LEX      *         ORIGINALLY CALLED *LEX* FOR.  I.E. END-OF-CURRENT-STMT IS              LEX         1813     A     
 LEX      *         BEGINNING-OF-NEXT-STMT.                                                LEX         1814     A     
 LEX      *                                                                                LEX         1815     A     
 LEX      *         WHEN THIS *EXIT MAIN LOOP* CONDITION IS SATISFIED, *LEX*               LEX         1816     A     
 LEX      *         ENTERS ITS *FINAL PROCESSING PHASE*.  AT THIS POINT, THE               LEX         1817     A     
 LEX      *         ENTIRE SOURCE STMT HAS BEEN ACCUMULATED IN *T.STMT* (STMT              LEX         1818     A     
 LEX      *         BUFFER) AND ENTOKENED TO *T.TB* (TOKEN BUFFER).  *LEX* NOW             LEX         1819     A     
 LEX      *         CALLS ITS FIFTH EXECUTIVE, *CST* (CLASSIFY STATEMENT) TO               LEX         1820     A     
 LEX      *         DETERMINE THE STMT TYPE (I.E. AMONG OTHER THINGS, THE                  LEX         1821     A     
 LEX      *         APPROPRIATE STMT PROCESSOR ADDR) FOR THE STMT IN *T.TB*.               LEX         1822     A     
 LEX      *                                                                                LEX         1823     A     
 LEX      *         AT THIS POINT, *LEX* HAS SATIATED ITSELF AND CONTROL RETURNS           LEX         1824     A     
 LEX      *         TO THE CALLER, *FEC*.                                                  LEX         1825     A     
 LEX      *                                                                                LEX         1826     A     
 LEX      *                            ** IMPORTANT **                                     LEX         1827     A     
 LEX      *                                                                                LEX         1828     A     
 LEX      *         THE CONCEPTS, LOGIC, TRADE-OFFS/RATIONALES, AND DATA                   LEX         1829     A     
 LEX      *         STRUCTURES OF THIS LEXICAL SCANNER ARE DISCUSSED AT MUCH               LEX         1830     A     
 LEX      *         MORE LENGTH IN THE FTN 5 IMS/DECK *LEX*.  TRY IT.                      LEX         1831     A     
 LEX      *                                                                                LEX         1832     A     
 LEX      *                                 * * *                                          LEX         1833     A     
 LEX      *                                                                                LEX         1834     A     
 LEX      *                                                                                LEX         1835     A     
 LEX      *         ENTRY  MISCELLANEOUS GLOBAL COMPILER CELLS/FLAGS AND DATA              LEX         1836     A     
 LEX      *                STRUCTURES SET UP.  E.G. CONTROL CARD OPTIONS,                  LEX         1837     A     
 LEX      *                MANAGED TABLE CELLS, FET/FITS, ...                              LEX         1838     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         1839     A     
 LEX      *         EXIT   T.STMT  = ENTIRE SOURCE STMT IN SAVED/LISTABLE FORM.            LEX         1840     A     
 LEX      *                                                                                LEX         1841     A     
 LEX      *                T.TB    = ENTIRE SOURCE STMT IN ENTOKENED FORM.                 LEX         1842     A     
 LEX      *                                                                                LEX         1843     A     
 LEX      *                (TB=XXX), WHERE *XXX* IS A UNIQUE NAME, CONTAIN                 LEX         1844     A     
 LEX      *                          MISCELLANEOUS INFORMATION ABOUT THE SOURCE            LEX         1845     A     
 LEX      *                          STMT AT *T.TB*.  SEE *DATA STRUCTURES/TB=*.           LEX         1846     A     
 LEX      *                                                                                LEX         1847     A     
 LEX      *         USES   ALL         HA HA HO HO AND HEE HEE                             LEX         1848     A     
 LEX      *                                                                                LEX         1849     A     
 LEX      *         CALLS  CLN,CST,CUA,FATAL,ILX,LTB,PLR,RNC,WARN                          LEX         1850     A     
 LEX                                                                                       LEX         1851     A     
 LEX                                                                                       LEX         1852     A     
 LEX       LEX      SUBR   =           ** ENTRY/EXIT **                                    LEX         1853     A     
 LEX                                                                                       LEX         1854     A     
 LEX      *         INITIALIZATION.                                                        LEX         1855     A     
 LEX                                                                                       LEX         1856     A     
 LEX                RJ     ILX         INITIALIZE *LEX*                                    LEX         1857     A     
 LEX                SA1    LEXFLG                                                          LEX         1858     A     
 LEX                SA2    LEXMODE                                                         LEX         1859     A     
 LEX                MX3    1                                                               LEX         1860     A     
 LEX                LX3    LF.INIP-59                                                      LEX         1861     A     
 LEX                SX7    X2-LM.NTR                                                       LEX         1862     A     
 LEX                BX6    -X3*X1      CLEAR *INI*                                         LEX         1863     A     
 LEX                SA6    A1                                                              LEX         1864     A     
 LEX                SX4    X2-LM.1ST                                                       LEX         1865     A     
 LEX                ZR     X7,LEX10    IF *NEED TO READ*                                   LEX         1866     A     
 LEX                ZR     X4,LEX10    IF 1ST LINE IN PGM UNIT                             LEX         1867     A     
 LEX                                                                                       LEX         1868     A     
 LEX      *         LIST SOURCE LINE AT (CP.CARD) ET SEQ.                                  LEX         1869     A     
 LEX                                                                                       LEX         1870     A     
 LEX       LEX2     RJ     PLR         PROCESS LISTING REQUEST                             LEX         1871     A     
 LEX                                                                                       LEX         1872     A     
 LEX      *         SPLIT UP PROCESSING FLOW ACCORDING TO THE *LINE TYPE*                  LEX         1873     A     
 LEX      *         OF THE LINE AT (CP.CARD) ET SEQ.                                       LEX         1874     A     
 LEX                                                                                       LEX         1875     A     
 LEX                SA1    LN=TYPE                                                         LEX         1876     A     
 LEX                                                                                       LEX         1877     A     
 LEX       .T       IFEQ   TEST,ON                                                         LEX         1878     A     
 LEX                SX2    X1-L.LN1                                                        LEX         1879     A     
 LEX                MI     X1,"BLOWUP" IF LINE TYPE TOO SMALL...                           LEX         1880     A     
 LEX                PL     X2,"BLOWUP" IF LINE TYPE TOO BIG...                             LEX         1881     A     
 LEX       .T       ENDIF                                                                  LEX         1882     A     
 LEX                                                                                       LEX         1883     A     
 LEX                SA2    LEX=LN1+X1                                                      LEX         1884     A     
 LEX                SB5    X2          (B5) = *LN1* ADDR TO JUMP TO                        LEX         1885     A     
 LEX                JP     B5+         GO TO IT...                                         LEX         1886     A     
 LEX       LEX=LN1  SPACE  4,10                                                            LEX         1887     A     
 LEX      **        LEX=LN1 - FIRST *LINE TYPE* JUMP TABLE.                                LEX         1888     A     
 LEX                                                                                       LEX         1889     A     
 LEX       LEX=LN1  BSS    0                                                               LEX         1890     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         1891     A     
 LEX                LOC    0                                                               LEX         1892     A     
 LEX                                                                                       LEX         1893     A     
 LEX       UNTYP    LNJP   "BLOWUP"    IF LINE IS UNTYPED                                  LEX         1894     A     
 LEX                                                                                       LEX         1895     A     
 LEX       INIT     LNJP   LEX3        IF LINE IS INITIAL LINE OF STMT                     LEX         1896     A     
 LEX                                                                                       LEX         1897     A     
 LEX       CONT     LNJP   LEX5        IF LINE IS CONTINUATION LINE                        LEX         1898     A     
 LEX                                                                                       LEX         1899     A     
 LEX       CMNT     LNJP   LEX10       IF LINE IS COMMENT                                  LEX         1900     A     
 LEX                                                                                       LEX         1901     A     
 LEX       NULL     LNJP   LEX10       IF LINE IS ALL BLANK (I.E. NULL)                    LEX         1902     A     
 LEX                                                                                       LEX         1903     A     
 LEX       C$       LNJP   LEX4        IF LINE IS *C$* LINE                                LEX         1904     A     
 LEX                                                                                       LEX         1905     A     
 LEX       EOR      LNJP   LEX20       IF EOR/EOF/EOI ENCOUNTERED                          LEX         1906     A     
 LEX                LOC    *O                                                              LEX         1907     A     
 LEX                                                                                       LEX         1908     A     
 LEX       L.LN1    =      *-LEX=LN1                                                       LEX         1909     A     
 LEX       LEX      SPACE  4,10                                                            LEX         1910     A     
 LEX      *         HERE IF AN INITIAL LINE OF STATEMENT IS AT (CP.CARD).                  LEX         1911     A     
 LEX      *                                                                                LEX         1912     A     
 LEX      *         NEED TO PROCESS LINE LABEL (LN=LABL) AND TRANSFER                      LEX         1913     A     
 LEX      *         TO STMT LABEL (TB=LABL).  *CUL* (CHECK UPCOMING LABEL)                 LEX         1914     A     
 LEX      *         IS CALLED TO ASSEMBLE AND CHECK THE STMT LABEL.                        LEX         1915     A     
 LEX      *                                                                                LEX         1916     A     
 LEX      *         *CUL* WILL --                                                          LEX         1917     A     
 LEX      *                                                                                LEX         1918     A     
 LEX      *           1. STRIP ANY BLANKS FROM THE STMT LABEL.                             LEX         1919     A     
 LEX      *                                                                                LEX         1920     A     
 LEX      *           2. STRIP ANY LEADING ZEROES FROM THE LABEL.                          LEX         1921     A     
 LEX      *                                                                                LEX         1922     A     
 LEX      *           3. DETECT AND DIAGNOSE ANY ILLEGAL (NON-NUMERIC)                     LEX         1923     A     
 LEX      *              CHARACTERS IN THE STMT LABEL.                                     LEX         1924     A     
 LEX      *                                                                                LEX         1925     A     
 LEX      *           4. ISSUE A *WARN* ERROR MSG FOR A ZERO LABEL,                        LEX         1926     A     
 LEX      *              E.G.     A=B                                                      LEX         1927     A     
 LEX      *                    00 CONTINUE                                                 LEX         1928     A     
 LEX                                                                                       LEX         1929     A     
 LEX       LEX3     SA1    LN=LABL                                                         LEX         1930     A     
 LEX                BX6    X6-X6                                                           LEX         1931     A     
 LEX                SX7    -B1                                                             LEX         1932     A     
 LEX                ZR     X1,LEX3A    IF NO LABEL ON THIS LINE                            LEX         1933     A     
 LEX                SX6    1R                                                              FC5A168A       5     A     
 LEX                LX6    4*CHAR                                                          FC5A168A       6     A     
 LEX                BX1    X1+X6                                                           FC5A168A       7     A     
 LEX                                                                                       LEX         1934     A     
 LEX                SA7    CULFLAG     SET TO *STMT LABEL ZERO NOT FATAL ERR*              LEX         1935          I
          -FC5A124
 LEX                CALL   CUL         CHECK UPCOMING LABEL                                LEX         1936     A     
 LEX                SX7    0                                                               LEX         1937          I
          -FC5A124
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA7    CULFLAG     CLEAR TO *STMT LABEL ZERO IS FATAL ERR*             LEX         1938          I
          -FC5A124
 LEX                PL     X6,LEX3A    IF LABEL IS OK                                      LEX         1939     A     
 LEX                SX6    0                                                               LEX         1940     A     
 LEX                                                                                       LEX         1941     A     
 LEX       LEX3A    LX7    X6,B2                                                           LEX         1942     A     
 LEX                SA6    TB=LABR            SAVE (X6) = STMT LABEL, -R- FMT              LEX         1943     A     
 LEX                =A7    A6+TB=LABL-TB=LABR SAVE (X7) = STMT LABEL, -L- FMT              LEX         1944     A     
 LEX                EQ     LEX4                                                            LEX         1945     A     
 LEX                                                                                       LEX         1946     A     
 LEX                                                                                       LEX         1947     A     
 LEX      *         HERE IF WE ARE READY TO ENTOKEN THE 1ST LINE OF A STMT.                LEX         1948     A     
 LEX      *                                                                                LEX         1949     A     
 LEX      *         WE CAN BE HERE UNDER THE FOLLOWING CIRCUMSTANCES --                    LEX         1950     A     
 LEX      *                                                                                LEX         1951     A     
 LEX      *           A. IF THIS IS THE INITIAL LINE OF A STMT, AS INDICATED VIA           LEX         1952     A     
 LEX      *              COLUMN 6 (PS: HERE AFTER LABEL PROCESSING).                       LEX         1953     A     
 LEX      *                                                                                LEX         1954     A     
 LEX      *           B. IF THIS IS A *C$* LINE (I.E. ALL *C$* LINES ARE INITIAL           LEX         1955     A     
 LEX      *              BECAUSE THEY CAN NOT BE CONTINUED).                               LEX         1956     A     
 LEX      *                                                                                LEX         1957     A     
 LEX      *           C. IF THIS IS A CONTINUATION LINE WITH NO INITIAL.  THAT IS,         LEX         1958     A     
 LEX      *              A CONTINUATION LINE AS THE 1ST NON-COMMENT LINE IN A              LEX         1959     A     
 LEX      *              PROGRAM UNIT, OR AS THE 1ST NON-COMMENT LINE FOLLOWING            LEX         1960     A     
 LEX      *              A *C$* LINE/STMT.                                                 LEX         1961     A     
 LEX      *                                                                                LEX         1962     A     
 LEX      *         NEED TO --                                                             LEX         1963     A     
 LEX      *                                                                                LEX         1964     A     
 LEX      *           1. TRANSFER LINE NR *LN=NUML/LN=NUMR* TO STMT LINE NR                LEX         1965     A     
 LEX      *              *TB=NUML/TB=NUMR* SO THAT STMT PROCESSORS CAN GET                 LEX         1966     A     
 LEX      *              TO THEM IF THEY WANT.                                             LEX         1967     A     
 LEX      *                                                                                LEX         1968     A     
 LEX      *           2. CLEAR *LEXFLG/LF.INIP* TO INDICATE THAT AN INITIAL                LEX         1969     A     
 LEX      *              LINE HAS OCCURRED FOR THIS STMT.                                  LEX         1970     A     
 LEX      *                                                                                LEX         1971     A     
 LEX      *           3. SET UP THE PSEUDO P REGISTER (TC=P) FOR *TOK*                     LEX         1972     A     
 LEX      *              (COMMON TOKEN GENERATOR).  *TC=P* INDICATES                       LEX         1973     A     
 LEX      *              WHERE IN THE TOGEL OBJECT MODULE (TOM) THAT *TOK*                 LEX         1974     A     
 LEX      *              IS TO BEGIN EXECUTING/INTERPRETING.                               LEX         1975     A     
 LEX                                                                                       LEX         1976     A     
 LEX       LEX4     SA1    LN=NUML                                                         LEX         1977     A     
 LEX                SA2    LN=NUMR                                                         LEX         1978     A     
 LEX                SA3    LN=TYPE                                                         LEX         1979     A     
 LEX                BX6    X1                                                              LEX         1980     A     
 LEX                LX7    X2                                                              LEX         1981     A     
 LEX                SX3    X3-LT.C$                                                        LEX         1982     A     
 LEX                SA6    TB=NUML                                                         LEX         1983     A     
 LEX                SA7    TB=NUMR                                                         LEX         1984     A     
 LEX                SA1    LEXFLG                                                          LEX         1985     A     
 LEX                MX7    0                                                               LEX         1986     A     
 LEX                SA7    TC=RSF      SET TO *BEGINNING A NEW STMT*                       LEX         1987     A     
 LEX                SA7    TC=EOL      RESET LAST STATEMENTS END OF LINE PROC.             LEX         1988     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA7    TC=REST     RESET LAST STATEMENTS RESTART PROC.                 LEX         1989     A     
 LEX                NZ     X3,LEX4A    IF THIS IS NOT C$ STATEMENT                         LEX         1990     A     
 LEX                =X7    1                                                               LEX         1991     A     
 LEX                                                                                       LEX         1992     A     
 LEX       LEX4A    SA7    TB=CDF      FLAG C$                                             LEX         1993     A     
 LEX                MX3    1                                                               LEX         1994     A     
 LEX                LX3    LF.INIP-59                                                      LEX         1995     A     
 LEX                BX6    X3+X1       SET *INI*                                           LEX         1996     A     
 LEX                SX7    TOM=BOS     (X7) = ADDR *TOK* IS TO BEGIN XEQ IN TOM            LEX         1997     A     
 LEX                SA6    A1                                                              LEX         1998     A     
 LEX                SA7    TC=P                                                            LEX         1999     A     
 LEX                EQ     LEX8                                                            LEX         2000     A     
 LEX                                                                                       LEX         2001     A     
 LEX                                                                                       LEX         2002     A     
 LEX      *         HERE IF A CONTINUATION LINE.                                           LEX         2003     A     
 LEX      *                                                                                LEX         2004     A     
 LEX      *         NEED TO --                                                             LEX         2005     A     
 LEX      *                                                                                LEX         2006     A     
 LEX      *           1. ISSUE *WARNING* ERR MSG IF THIS CONTINUATION                      LEX         2007     A     
 LEX      *              LINE HAS NO INITIAL.  THEN TREAT THIS LINE AS AN INITIAL.         LEX         2008     A     
 LEX      *                                                                                LEX         2009     A     
 LEX      *           2. ISSUE *WARNING* ERR MSG IF THIS CONTINUATION                      LEX         2010     A     
 LEX      *              LINE HAS TRASH IN LABEL FIELD.                                    LEX         2011     A     
 LEX      *                                                                                LEX         2012     A     
 LEX      *           3. INCREMENT AND CHECK (SB=CONT), THE CONTINUATION                   LEX         2013     A     
 LEX      *              LINE COUNT.                                                       LEX         2014     A     
 LEX                                                                                       LEX         2015     A     
 LEX       LEX5     SA1    LEXFLG                                                          LEX         2016     A     
 LEX                SA2    LN=LABL                                                         LEX         2017     A     
 LEX                LX1    59-LF.INIP                                                      LEX         2018     A     
 LEX                MI     X1,LEX6     IF THIS STMT HAS AN INITIAL LINE                    LEX         2019     A     
 LEX                WARN   E.INI       *THIS STMT HAS NO INITIAL LINE*                     LEX         2020     A     
 LEX                EQ     LEX4        TREAT AS INITIAL...                                 LEX         2021     A     
 LEX                                                                                       LEX         2022     A     
 LEX       LEX6     ZR     X2,LEX7     IF NO LABEL                                         LEX         2023     A     
 LEX                WARN   E.TLBL      *TRASH IN LABEL FIELD IGNORED*                      LEX         2024     A     
 LEX                                                                                       LEX         2025     A     
 LEX      *         INITIALIZE FOR ENTOKENING CONTINUATION LINE.                           LEX         2026     A     
 LEX                                                                                       LEX         2027     A     
 LEX       LEX7     SA1    SB=CONT                                                         LEX         2028     A     
 LEX                SX6    B1                                                              LEX         2029     A     
 LEX                SX7    X1+B1                                                           LEX         2030     A     
 LEX                SA6    TC=RSF       SET TO *RESTARTING TOKEN GENERATION*               LEX         2031     A     
 LEX                SA7    A1+                                                             LEX         2032     A     
 LEX                                                                                       LEX         2033     A     
 LEX                SX2    X1-ANS.CONT                                                     LEX         2034     A     
 LEX                MI     X2,LEX8     IF CONTINUATION LINE COUNT IS OK                    LEX         2035     A     
 LEX                NZ     X2,LEX8     IF HAVE ALREADY ISSUED ERR MSG                      LEX         2036     A     
 LEX                FATAL  E.MCA       *TOO MANY CONTINUATION LINES*                       LEX         2037     A     
 LEX                                                                                       LEX         2038     A     
 LEX      *         READY TO ENTOKEN THE LINE AT *T.STMT*.                                 LEX         2039     A     
 LEX      *                                                                                LEX         2040     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *           1. ALLOCATE ENOUGH TABLE SPACE IN TOKEN BUFFER FOR NEW               LEX         2041     A     
 LEX      *              LINE TO ENTOKEN.  THE LENGTH OF *T.TB* IS INCREASED               LEX         2042     A     
 LEX      *              BY 82D WHICH REFLECTS THE MAXIMUM NR OF TOKENS                    LEX         2043     A     
 LEX      *              THAT COULD POSSIBLY BE GENERATED FOR THIS SOURCE                  LEX         2044     A     
 LEX      *              LINE.                                                             LEX         2045     A     
 LEX      *                                                                                LEX         2046     A     
 LEX      *              AFTER ENTOKENING THE LINE AT *T.STMT*, THE LENGTH OF              LEX         2047     A     
 LEX      *              *T.TB* IS SHRUNK TO THE ACTUAL LENGTH OF THE TOKEN BUFFER         LEX         2048     A     
 LEX      *              (I.E. AS DETERMINED BY HOW MANY TOKENS *TOK* GENERATED).          LEX         2049     A     
 LEX      *                                                                                LEX         2050     A     
 LEX      *           2. CONVERT *TC=SOA* AND *TC=TBA* FROM ORDINALS TO HARD               LEX         2051     A     
 LEX      *              ADDRESSES.  IN THIS WAY, *TOK* CAN LOCK (A5) AND (A6)             LEX         2052     A     
 LEX      *              THEREBY NOT HAVING TO WORRY ABOUT ADDRESS BIASING.                LEX         2053     A     
 LEX      *              SEE *TOK*.  UPON RETURNING FROM *TOK*, *LEX* WILL                 LEX         2054     A     
 LEX      *              CONVERT *TC=TBA* FROM AN AN ADDRESS BACK TO AN ORDINAL.           LEX         2055     A     
 LEX      *              IN THIS WAY, *LEX* DOES NOT HAVE TO WORRY ABOUT                   LEX         2056     A     
 LEX      *              RELOCATING THIS POINTER ACROSS ANY POSSIBLE *ALLOC*               LEX         2057     A     
 LEX      *              CALLS.                                                            LEX         2058     A     
 LEX      *                                                                                LEX         2059     A     
 LEX      *           3. CALL *TOK* TO ENTOKEN THE SOURCE LINE AT *T.STMT*.                LEX         2060     A     
 LEX      *              NOTE THAT MOST OF THE *LEX/TOK* COMMUNICATION CELLS               LEX         2061     A     
 LEX      *              HAVE ALREADY BEEN SET UP (THE EXCEPTIONS ARE *TC=SOA*             LEX         2062     A     
 LEX      *              AND *TC=TBA* WHICH ARE DISCUSSED ABOVE).                          LEX         2063     A     
 LEX                                                                                       LEX         2064     A     
 LEX       LEX8     ALLOC  T.TB,82D                                                        LEX         2065     A     
 LEX                                                                                       LEX         2066     A     
 LEX      *         RELOCATE (TC=TBA).                                                     LEX         2067     A     
 LEX                                                                                       LEX         2068     A     
 LEX                SA2    TC=TBA                                                          LEX         2069     A     
 LEX                IX6    X1+X2                                                           LEX         2070     A     
 LEX                SA6    A2                                                              LEX         2071     A     
 LEX                                                                                       LEX         2072     A     
 LEX      *         RELOCATE (TC=SOA).                                                     LEX         2073     A     
 LEX                                                                                       LEX         2074     A     
 LEX                SA1    T.STMT                                                          LEX         2075     A     
 LEX                SA2    SB=LORD     (X2) = *T.STMT* ORD OF LINE TO ENTOKEN              LEX         2076     A     
 LEX                SA3    TC=SOA      (X3) IS RELATIVE TO *CP.FLIN*                       LEX         2077     A     
 LEX                SB2    X2+B1                                                           LEX         2078     A     
 LEX                SB3    X1+B2                                                           LEX         2079     A     
 LEX                SX6    B3+X3       RELOCATE (TC=SOA)                                   LEX         2080     A     
 LEX                SA6    A3                                                              LEX         2081     A     
 LEX                                                                                       LEX         2082     A     
 LEX      *         ENTOKEN THE SOURCE LINE.                                               LEX         2083     A     
 LEX                                                                                       LEX         2084     A     
 LEX                SB2    FW.TCOM     (B2) = FWA OF *USER/TOK* COMMUNICATIONS             LEX         2085     A     
 LEX                RJ     TOK         TOKEN GENERATOR                                     LEX         2086     A     
 LEX                                                                                       LEX         2087     A     
 LEX                SA1    T.TB                                                            LEX         2088     A     
 LEX                SA2    TC=TBA                                                          LEX         2089     A     
 LEX                IX7    X2-X1                                                           LEX         2090     A     
 LEX                SX6    X7+1        (X6) = TRUE LEN OF *T.TB*                           LEX         2091     A     
 LEX                SA7    A2                                                              LEX         2092     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SHRINK T=TB,X6                                                         LEX         2093     A     
 LEX                                                                                       LEX         2094     A     
 LEX      *         NEED TO DO SOME SPECIAL CASING TO AVOID READ-AHEAD.                    LEX         2095     A     
 LEX      *         SPECIAL CASES ARE --                                                   LEX         2096     A     
 LEX      *                                                                                LEX         2097     A     
 LEX      *           1. WHEN *END* OCCURS AS THE INITIAL LINE OF A STMT.                  LEX         2098     A     
 LEX      *                                                                                LEX         2099     A     
 LEX      *           2. WHEN A *C$* LINE/STMT OCCURS.  IN THIS CASE,                      LEX         2100     A     
 LEX      *              WE ALSO NEED TO SET *NEED TO READ* STATUS IN (LEXMODE).           LEX         2101     A     
 LEX      *                                                                                LEX         2102     A     
 LEX      *              THE NEXT TIME *LEX* IS CALLED, THIS WILL CAUSE THE LINE           LEX         2103     A     
 LEX      *              IMMEDIATELY FOLLOWING THIS C$ LINE/STMT TO FIRST BE READ.         LEX         2104     A     
 LEX                                                                                       LEX         2105     A     
 LEX                SA1    T.TB                                                            LEX         2106     A     
 LEX                SA2    LN=TYPE                                                         LEX         2107     A     
 LEX                SA3    =0LEND                                                          LEX         2108     A     
 LEX                SA1    X1+B1       (X1) = 1ST TOKEN AFTER *BOS* (I.E. KEYWORD)         LEX         2109     A     
 LEX                MX4    TB.TOCL                                                         LEX         2110     A     
 LEX                SX6    X2-LT.INIT                                                      LEX         2111     A     
 LEX                BX1    X4*X1       (X1) = STMT KEYWORD IN -L- FMT                      LEX         2112     A     
 LEX                NZ     X6,LEX9     IF NOT AN INITIAL LINE                              LEX         2113     A     
 LEX                IX6    X1-X3                                                           LEX         2114     A     
 LEX                NZ     X6,LEX10    IF NOT *END*                                        LEX         2115     A     
 LEX                SA2    KY=END                                                          LEX         2116     A     
 LEX                SA1    A1+B1       (X1) = TOKEN THAT FOLLOWS *END*                     LEX         2117     A     
 LEX                BX6    X2                                                              LEX         2118     A     
 LEX                NZ     X1,LEX10    IF *END* NOT FOLLOWED BY *EOS*                      LEX         2119     A     
 LEX                SX7    A1+         (X7) = ADDR OF TOKEN THAT FOLLOWS *END*             LEX         2120     A     
 LEX                SA6    TB=TYPE                                                         LEX         2121     A     
 LEX                SA7    TB=1ST                                                          LEX         2122     A     
 LEX                EQ     LEX11A      AVOID READ-AHEAD...                                 LEX         2123     A     
 LEX                                                                                       LEX         2124     A     
 LEX       LEX9     SX7    X2-LT.C$                                                        LEX         2125     A     
 LEX                NZ     X7,LEX10    IF NOT *C$* LINE                                    LEX         2126     A     
 LEX                SX6    LM.NTR                                                          LEX         2127     A     
 LEX                SA6    LEXMODE     SET TO *NEED TO READ*                               LEX         2128     A     
 LEX                EQ     LEX11       AVOID READ-AHEAD...                                 LEX         2129     A     
 LEX                                                                                       LEX         2130     A     
 LEX      *         READ NEXT CARD.                                                        LEX         2131     A     
 LEX                                                                                       LEX         2132     A     
 LEX       LEX10    RJ     RNC         READ NEXT CARD                                      LEX         2133     A     
 LEX                                                                                       LEX         2134     A     
 LEX      *         CLASSIFY LINE AT (CP.CARD) ET SEQ.                                     LEX         2135     A     
 LEX                                                                                       LEX         2136     A     
 LEX                RJ     CLN         CLASSIFY LINE                                       LEX         2137     A     
 LEX                                                                                       LEX         2138     A     
 LEX      *         SPLIT UP PROCESSING FLOW ACCORDING TO THE *LINE TYPE*                  LEX         2139     A     
 LEX      *         OF THE LINE AT (CP.CARD) ET SEQ.                                       LEX         2140     A     
 LEX      *                                                                                LEX         2141     A     
 LEX      *         NOTE: WE NEED TO SPECIAL-CASE THE *NEED TO READ* AND                   LEX         2142     A     
 LEX      *         *1ST LINE OF PGM UNIT* CASES SO THAT THIS LINE GETS HANDLED            LEX         2143     A     
 LEX      *         PROPERLY.  UPON ENTRY TO *LEX*, THESE LINES WERE EITHER                LEX         2144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         NOT READ AND/OR NOT CLASSIFIED SO WE NOW NEED TO GO BACK               LEX         2145     A     
 LEX      *         TO THE TOP OF THE LEXICAL SCAN MAIN LOOP IN ORDER TO GET               LEX         2146     A     
 LEX      *         BACK IN SYNC (I.E. ACT LIKE THEY WERE REGULAR OLD NORMAL               LEX         2147     A     
 LEX      *         SOURCE LINES).                                                         LEX         2148     A     
 LEX                                                                                       LEX         2149     A     
 LEX                SA1    LN=TYPE                                                         LEX         2150     A     
 LEX                                                                                       LEX         2151     A     
 LEX       .T       IFEQ   TEST,ON                                                         LEX         2152     A     
 LEX                SX2    X1-L.LN2                                                        LEX         2153     A     
 LEX                MI     X1,"BLOWUP" IF LINE TYPE IS TOO SMALL...                        LEX         2154     A     
 LEX                PL     X2,"BLOWUP" IF LINE TYPE IS TOO BIG...                          LEX         2155     A     
 LEX       .T       ENDIF                                                                  LEX         2156     A     
 LEX                                                                                       LEX         2157     A     
 LEX                SA4    LEXMODE                                                         LEX         2158     A     
 LEX                SX6    X4-LM.NTR                                                       LEX         2159     A     
 LEX                SX7    X4-LM.1ST                                                       LEX         2160     A     
 LEX                BX6    X6*X7                                                           LEX         2161     A     
 LEX                NZ     X6,LEX10B   IF NOT FUNNY START-UP                               LEX         2162     A     
 LEX                                                                                       LEX         2163     A     
 LEX                SX6    LM.NTR      *** KLUDGE FOR CMNTS BEFORE 1ST STMT ***            LEX         2164     A     
 LEX                SX7    X1-LT.CMNT                                                      LEX         2165     A     
 LEX                SA6    A4+         SET TO *NEED-TO-READ FOR CMNTS*                     LEX         2166     A     
 LEX                ZR     X7,LEX10B   IF COMMENT LINE BEFORE 1ST STMT (KLUDGE)            LEX         2167     A     
 LEX                SX7    X1-LT.NULL                                                      LEX         2168     A     
 LEX                ZR     X7,LEX10B   IF NULL LINE BEFORE 1ST STMT (KLUDGE)               LEX         2169     A     
 LEX                =X6    LM.NORM                                                         LEX         2170     A     
 LEX                SA6    A4          CLEAR TO *NORMAL* MODE                              LEX         2171     A     
 LEX                EQ     LEX2                                                            LEX         2172     A     
 LEX                                                                                       LEX         2173     A     
 LEX       LEX10B   SA2    LEX=LN2+X1                                                      LEX         2174     A     
 LEX                SB5    X2+         (B5) = *LN2* ADDR TO JUMP TO                        LEX         2175     A     
 LEX                JP     B5          ONWARD...                                           LEX         2176     A     
 LEX       LEX=LN2  SPACE  4,10                                                            LEX         2177     A     
 LEX      **        LEX=LN2 - 2ND *LINE TYPE* JUMP TABLE.                                  LEX         2178     A     
 LEX                                                                                       LEX         2179     A     
 LEX       LEX=LN2  BSS    0                                                               LEX         2180     A     
 LEX                                                                                       LEX         2181     A     
 LEX                LOC    0                                                               LEX         2182     A     
 LEX                                                                                       LEX         2183     A     
 LEX       UNTYP    LNJP   "BLOWUP"    IF LINE IS UNTYPED                                  LEX         2184     A     
 LEX                                                                                       LEX         2185     A     
 LEX       INIT     LNJP   LEX11       IF LINE IS INITIAL LINE OF STMT                     LEX         2186     A     
 LEX                                                                                       LEX         2187     A     
 LEX       CONT     LNJP   LEX2        IF LINE IS CONTINUATION                             LEX         2188     A     
 LEX                                                                                       LEX         2189     A     
 LEX       CMNT     LNJP   LEX2        IF LINE IS COMMENT                                  LEX         2190     A     
 LEX                                                                                       LEX         2191     A     
 LEX       NULL     LNJP   LEX2        IF LINE IS NULL (ALL BLANK)                         LEX         2192     A     
 LEX                                                                                       LEX         2193     A     
 LEX       C$       LNJP   LEX11       IF LINE IS C$ LINE/STMT                             LEX         2194     A     
 LEX                                                                                       LEX         2195     A     
 LEX       EOR      LNJP   LEX11       IF EOR/EOF/EOI ENCOUNTERED                          LEX         2196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         2197     A     
 LEX                LOC    *O                                                              LEX         2198     A     
 LEX                                                                                       LEX         2199     A     
 LEX       L.LN2    =      *-LEX=LN2                                                       LEX         2200     A     
 LEX       LEX      SPACE  4,10                                                            LEX         2201     A     
 LEX      *         HERE TO TYPE THE STATEMENT AT *T.TB* AND SAVE                          LEX         2202     A     
 LEX      *         THE STMT TYPE AT (TB=TYPE).                                            LEX         2203     A     
 LEX                                                                                       LEX         2204     A     
 LEX       LEX11    SA1    T.TB        (X1) = FWA OF *T.TB*                                LEX         2205     A     
 LEX                SB4    X1+1        (B4) = ADDR OF TOKEN IMMEDIATELY FOLLOWING          LEX         2206     A     
 LEX      *                                   *BOS* TOKEN                                  LEX         2207     A     
 LEX                RJ     CST         CLASSIFY STATEMENT                                  LEX         2208     A     
 LEX                                                                                       LEX         2209     A     
 LEX       LEX11A   BSS    0                                                               LEX         2210     A     
 LEX                                                                                       LEX         2211     A     
 LEX       .T       IFEQ   TEST,ON                                                         LEX         2212     A     
 LEX                SA1    =XCO.IDP                                                        LEX         2213     A     
 LEX                LX1    1RM                                                             LEX         2214     A     
 LEX                PL     X1,LEX11B   IF *IDP=M* NOT SELECTED                             LEX         2215     A     
 LEX       IDP=M    BREAK                                                                  LEX         2216     A     
 LEX                                                                                       LEX         2217     A     
 LEX       LEX11B   SA1    CO.SNAP                                                         LEX         2218     A     
 LEX                LX1    1RM                                                             LEX         2219     A     
 LEX                PL     X1,LEX12    IF *SNAP=M* NOT SELECTED                            LEX         2220     A     
 LEX                CALL   LTB=        LIST TOKEN BUFFER                                   LEX         2221     A     
 LEX                                                                                       LEX         2222     A     
 LEX       LEX12    BSS    0                                                               LEX         2223     A     
 LEX                                                                                       LEX         2224     A     
 LEX       .T       ENDIF                                                                  LEX         2225     A     
 LEX                                                                                       LEX         2226     A     
 LEX      *         CHECK FOR INCOMPLETE '/" STRING.                                       LEX         2227     A     
 LEX      *                                                                                LEX         2228     A     
 LEX      *         SEE *LEXFLG/QAC*, *CH=TAD*, AND *CH=TYPE* FOR MORE                     LEX         2229     A     
 LEX      *         INFORMATION.                                                           LEX         2230     A     
 LEX                                                                                       LEX         2231     A     
 LEX                SA1    CH=TAD      (X1) = ADDR OF INCOMPLETE *O.CHAR/O.HOLL*           LEX         2232     A     
 LEX                SA2    CH=TYPE     (X2) = STRING TYPE CODE (I.E. "" OR '')             LEX         2233     A     
 LEX                ZR     X1,LEX14    IF NO INCOMPLETE *O.CHAR/O.HOLL* TOKEN              LEX         2234     A     
 LEX                                                                                       LEX         2235          I
          -FC5A110
 LEX                SA3    LEXFLG                                                          LEX         2236          I
          -FC5A110
 LEX                LX3    59-LF.QACP                                                      LEX         2237          I
          -FC5A110
 LEX                MI     X3,LEX13A   IF MISSING TERMINAL '/", ERROR...                   LEX         2238          I
          -FC5A110
 LEX                                                                                       LEX         2239          I
          -FC5A110
 LEX                SX3    X2-CT.H                                                         LEX         2240          I
          -FC5A110
 LEX                ZR     X3,LEX13C   IF -H- STRING, ERROR...                             LEX         2241          I
          -FC5A110
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SB3    X2-CT.OCT                                                       LEX         2242          I
          -FC5A110
 LEX                ZR     B3,LEX135   IF OCTAL CONSTANT                                   LEX         2243          I
          -FC5A110
 LEX                EQ     B3,B1,LEX135      IF HEX CONSTANT                               LEX         2244          I
          -FC5A110
 LEX                ERRNZ  CT.HEX-CT.OCT-1                                                 LEX         2245          I
          -FC5A110
 LEX                                                                                       LEX         2246          I
          -FC5A110
 LEX      *         HERE TO BIND OFF INCOMPLETE *O.CHAR/O.HOLL* TOKEN.                     LEX         2247          I
          -FC5A110
 LEX                                                                                       LEX         2248          I
          -FC5A110
 LEX                SA3    T.TB                                                            LEX         2249          I
          -FC5A110
 LEX                SA4    TC=TBA      (X4) = *T.TB* ORD OF *EOS* TOKEN                    LEX         2250          I
          -FC5A110
 LEX                IX6    X3+X4                                                           LEX         2251          I
          -FC5A110
 LEX                SB3    X6          (B3) = LWA+1 OF '/" STRING                          LEX         2252          I
          -FC5A110
 LEX                SX1    X2-CT.SQT                                                       LEX         2253          I
          -FC5A110
 LEX                NZ     X1,LEX13    IF NOT '' STRING                                    LEX         2254          I
          -FC5A110
 LEX                                                                                       LEX         2255          I
          -FC5A110
 LEX      *         HERE TO BIND OFF *O.CHAR* STRING.                                      LEX         2256          I
          -FC5A110
 LEX                                                                                       LEX         2257          I
          -FC5A110
 LEX                RJ     EOC         END OF CHARACTER STRING PROCESSING                  LEX         2258          I
          -FC5A110
 LEX                RJ     TTB         TERMINATE TOKEN BUFFER                              LEX         2259          I
          -FC5A110
 LEX                EQ     LEX14                                                           LEX         2260          I
          -FC5A110
 LEX                                                                                       LEX         2261          I
          -FC5A110
 LEX      *         HERE TO BIND OFF *O.HOLL* STRING.                                      LEX         2262          I
          -FC5A110
 LEX                                                                                       LEX         2263          I
          -FC5A110
 LEX       LEX13    BSS    0                                                               LEX         2264          I
          -FC5A110
 LEX                                                                                       LEX         2265          I
          -FC5A110
 LEX                RJ     EOH         END OF HOLLERITH STRING PROCESSING                  LEX         2266          I
          -FC5A110
 LEX                RJ     TTB         TERMINATE TOKEN BUFFER                              LEX         2267          I
          -FC5A110
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                EQ     LEX14                                                           LEX         2268          I
          -FC5A110
 LEX                                                                                       LEX         2269          I
          -FC5A110
 LEX      *         HERE IF INCOMPLETE '' OR "" STRING.                                    LEX         2270          I
          -FC5A110
 LEX      *                                                                                LEX         2271          I
          -FC5A110
 LEX      *         ISSUE APPROPRIATE ERROR MESSAGE.                                       LEX         2272          I
          -FC5A110
 LEX                                                                                       LEX         2273          I
          -FC5A110
 LEX       LEX13A   SX6    1R'                                                             LEX         2274          I
          -FC5A110
 LEX                SA3    LEXFLG                                                          FC5A110        7     A     
 LEX                LX3    59-LF.TDEP                                                      FC5A110        8     A     
 LEX                PL     X3,LEX13    IF MISSING DELIMITER                                FC5A110        9     A     
 LEX                SA3    T.TB                                                            FC5A110       10     A     
 LEX                SA4    TC=TBA      (X4) = *T.TB* ORD OF *EOS* TOKEN                    FC5A110       11     A     
 LEX                IX6    X3+X4                                                           FC5A110       12     A     
 LEX                SB3    X6          (B3) = LWA+1 OF '/" STRING                          FC5A110       13     A     
 LEX                SX3    X2-CT.SQT                                                       FC5A110       14     A     
 LEX                ZR     X3,LEX12A   IF '' STRING                                        FC5A110       15     A     
 LEX                RJ     EOH         END OF HOLLERITH STRING PROCESSING                  FC5A110       16     A     
 LEX                RJ     TTB         TERMINATE TOKEN BUFFER                              FC5A110       17     A     
 LEX                EQ     LEX14                                                           FC5A110       18     A     
 LEX                                                                                       FC5A110       19     A     
 LEX       LEX12A   RJ     EOC         END OF CHARACTER STRING PROCESSING                  FC5A110       20     A     
 LEX                RJ     TTB         TERMINATE TOKEN BUFFER                              FC5A110       21     A     
 LEX                EQ     LEX14                                                           FC5A110       22     A     
 LEX                                                                                       FC5A110       23     A     
 LEX       LEX13    SX6    1R'                                                             FC5A110       24     A     
 LEX                SX7    X2-CT.SQT                                                       LEX         2275     A     
 LEX                ZR     X7,LEX13B   IF '' STRING                                        LEX         2276     A     
 LEX                                                                                       LEX         2277     A     
 LEX                SX7    X2-CT.H                                                         LEX         2278     A     
 LEX                ZR     X7,LEX13C   IF *H* STRING                                       LEX         2279     A     
 LEX                                                                                       LEX         2280          I
          -FC5A110
 LEX       LEX135   SX6    1R"                                                             LEX         2281          I
          -FC5A110
 LEX                SX6    1R"                                                             FC5A110       25     A     
 LEX                                                                                       LEX         2282     A     
 LEX       LEX13B   LX6    10*CHAR-1*CHAR  (X6) = MISSING DELIMITER, -L- FMT               LEX         2283     A     
 LEX                SA6    FILL.                                                           LEX         2284     A     
 LEX                FATAL  E.HC3       ** TERMINAL DELIMITER MISSING **                    LEX         2285     A     
 LEX                =X6    O.ILL                                                           LEX         2286     A     
 LEX                SA2    =7LBAD-STR                                                      LEX         2287     A     
 LEX                BX6    X6+X2                                                           LEX         2288     A     
 LEX                SA6    X1          O.CHAR TO O.ILL                                     LEX         2289     A     
 LEX                RJ     TTB         TERMINATE TOKEN BUFFER                              LEX         2290     A     
 LEX                EQ     LEX14                                                           LEX         2291     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         2292     A     
 LEX      *         HERE IF INCOMPLETE -H-, -L-, OR -R- STRING.                            LEX         2293     A     
 LEX      *                                                                                LEX         2294     A     
 LEX      *         ISSUE APPROPRIATE ERROR MESSAGE.                                       LEX         2295     A     
 LEX                                                                                       LEX         2296     A     
 LEX       LEX13C   SX6    O.ILL                                                           LEX         2297     A     
 LEX                SA2    =7LBAD-STR                                                      LEX         2298     A     
 LEX                BX6    X6+X2                                                           LEX         2299     A     
 LEX                SA6    X1          *O.HOLL* BECOMES *O.ILL*                            LEX         2300     A     
 LEX                RJ     TTB         TERMINATE TOKEN BUFFER                              LEX         2301     A     
 LEX                                                                                       LEX         2302     A     
 LEX                FATAL  E.HC2       ** EOS BEFORE END OF HOLLERITH **                   LEX         2303     A     
 LEX                                                                                       LEX         2304     A     
 LEX      *         CLEAR *LEXFLG/LF.LAC* BIT TO INDICATE THAT *LEX* IS NO LONGER          LEX         2305     A     
 LEX      *         ACTIVE.  SEE *LEXFLG*.                                                 LEX         2306     A     
 LEX                                                                                       LEX         2307     A     
 LEX       LEX14    SA1    LEXFLG      (X1) = *LEX* MASTER CONTROL FLAG                    LEX         2308     A     
 LEX                MX2    1                                                               LEX         2309     A     
 LEX                LX2    LF.LACP-59                                                      LEX         2310     A     
 LEX                BX6    -X2*X1      CLEAR *LAC*                                         LEX         2311     A     
 LEX                SA6    A1                                                              LEX         2312     A     
 LEX                EQ     EXIT.       BACK TO FRONT END CONTROLLER...                     LEX         2313     A     
 LEX                                                                                       LEX         2314     A     
 LEX       LEX20    SA1    EOS                                                             LEX         2315     A     
 LEX                BX6    X1                                                              LEX         2316     A     
 LEX                SA6    TB=TYPE     INVENTED END LINE                                   LEX         2317     A     
 LEX                SA1    LEXFLG                                                          LEX         2318     A     
 LEX                MX2    1                                                               LEX         2319          I
          -FC50250
 LEX                MX6    0                                                               LEX         2320          I
          -FC50250
 LEX                LX2    1+LF.LACP                                                       LEX         2321          I
          -FC50250
 LEX                CLAS=  X2,LF,(LAC)                                                     FC50250        6     A     
 LEX                BX7    -X2*X1      SET TO *LEX NOT ACTIVE*                             LEX         2322     A     
 LEX                SA6    SB=LINC     NO LINES PRESENT                                    LEX         2323          I
          -FC50250
 LEX                SA7    A1                                                              LEX         2324     A     
 LEX                SBIT   X1,LF.HDRP                                                      FC50250        7     A     
 LEX                PL     X1,LEX21    IF NOT IN *HEADER DELAY*                            FC50250        8     A     
 LEX                RJ     LDB         LIST DEFERRED BUFFER                                FC50250        9     A     
 LEX                                                                                       FC50250       10     A     
 LEX       LEX21    SX6    0                                                               FC50250       11          I
          -FC50791
 LEX       LEX21    SA1    LEX.DLN                                                         FC50791        6     A     
 LEX                MX6    0                                                               FC50791        7     A     
 LEX                LX7    X1                                                              FC50791        8     A     
 LEX                SA6    SB=LINC     SET TO NO LINES PRESENT                             FC50250       12     A     
 LEX                SA7    TB=NUML     SET TO MAX LINE/SEQ NUM TO AVOID BAD DIAG           FC50791        9     A     
 LEX                EQ     EXIT.                                                           LEX         2325     A     
 LEX                                                                                       FC50791       10     A     
 LEX       LEX.DLN  CON    5L99999                                                         FC50791       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       LEX      TTL    LEX - LEXICAL SCANNER/THE EXECUTIVES.                           LEX         2326     A     
 LEX                EJECT                                                                  LEX         2327     A     
 LEX       CLN      SPACE  4,10                                                            LEX         2328     A     
 LEX      **        CLN - CLASSIFY LINE.                                                   LEX         2329     A     
 LEX      *                                                                                LEX         2330     A     
 LEX      *                                                                                LEX         2331     A     
 LEX      *         THIS ROUTINE IS RESPONSIBLE FOR PERFORMING SOME INITIAL                LEX         2332     A     
 LEX      *         LINE (EMPHASIZE *LINE*) ANALYSIS/PROCESSING ON THE INPUT               LEX         2333     A     
 LEX      *         SOURCE LINE AT (CP.CARD).                                              LEX         2334     A     
 LEX      *                                                                                LEX         2335     A     
 LEX      *         *CLN* WILL PERFORM THE FOLLOWING TASKS --                              LEX         2336     A     
 LEX      *                                                                                LEX         2337     A     
 LEX      *           1. DETERMINE THE LINE TYPE OF THE LINE VIA THE PROCEDURES            LEX         2338     A     
 LEX      *              OUTLINED IN THE FTN5 IMS/DECK *LEX*.  LINE TYPES ARE --           LEX         2339     A     
 LEX      *                                                                                LEX         2340     A     
 LEX      *              A. INITIAL LINE OF STATEMENT.                                     LEX         2341     A     
 LEX      *              B. CONTINUATION LINE.                                             LEX         2342     A     
 LEX      *              C. COMMENT LINE.                                                  LEX         2343     A     
 LEX      *              D. NULL (ALL BLANK) LINE.                                         LEX         2344     A     
 LEX      *              E. C$ LINE.                                                       LEX         2345     A     
 LEX      *              F. EOR/EOF ENCOUNTERED.                                           LEX         2346     A     
 LEX      *                                                                                LEX         2347     A     
 LEX      *           2. PROVIDE/SET UP THE LINE NUMBER OF THE LINE.                       LEX         2348     A     
 LEX      *                                                                                LEX         2349     A     
 LEX      *           3. EXTRACT THE LABEL SPECIFIED ON THE LINE (IF PRESENT).             LEX         2350     A     
 LEX      *                                                                                LEX         2351     A     
 LEX      *           4. STRIP THE BLANK (55B) CHARACTERS THAT PRECEDE THE 1ST             LEX         2352     A     
 LEX      *              ENTOKENABLE CHARACTER ON THE LINE.  TOKEN GENERATION,             LEX         2353     A     
 LEX      *              IF APPROPRIATE FOR THIS LINE, WILL THEREFORE BEGIN AT             LEX         2354     A     
 LEX      *              THIS 1ST NON-BLANK CHARACTER.  THIS BLANK STRIP IS                LEX         2355     A     
 LEX      *              REQUIRED IN ORDER TO CORRECTLY TYPE A *NULL* (I.E. ALL            LEX         2356     A     
 LEX      *              BLANK) LINE.  SEE BELOW.                                          LEX         2357     A     
 LEX      *                                                                                LEX         2358     A     
 LEX      *           5. SAVE THE POSITION OF THE 1ST NON-BLANK ENTOKENABLE                LEX         2359     A     
 LEX      *              CHARACTER IN *TOKCOM*, THE *USER/TOK* COMMUNICATIONS              LEX         2360     A     
 LEX      *              AREA, SO THAT THE TOKEN GENERATOR CAN KNOW WHERE TO               LEX         2361     A     
 LEX      *              BEGIN TOKEN GENERATION OF THIS LINE.  NOTE THAT NOT               LEX         2362     A     
 LEX      *              ALL LINES ARE ENTOKENABLE (E.G. COMMENT LINES).                   LEX         2363     A     
 LEX      *                                                                                LEX         2364     A     
 LEX      *         *CLN* COMMUNICATES MOST OF THE ABOVE INFORMATION TO THE REST           LEX         2365     A     
 LEX      *         OF *LEX* VIA A NUMBER OF DATA CELLS THAT HAVE NAMES OF THE             LEX         2366     A     
 LEX      *         FORM --                                                                LEX         2367     A     
 LEX      *                                                                                LEX         2368     A     
 LEX      *                LN=XXX                                                          LEX         2369     A     
 LEX      *                                                                                LEX         2370     A     
 LEX      *         WHERE *LN=* IS A COMMON PREFIX, AND *XXX* IS A UNIQUE NAME.            LEX         2371     A     
 LEX      *         BRIEFLY, THE *LN=* CELLS ARE --                                        LEX         2372     A     
 LEX      *                                                                                LEX         2373     A     
 LEX      *           LN=TYPE  CONTAINS THE LINE TYPE  (INITIAL, CONTINUATION,             LEX         2374     A     
 LEX      *                    ETC) OF THE LINE.                                           LEX         2375     A     
 LEX      *           LN=NUM   CONTAINS THE LINE NUMBER OF THE LINE.                       LEX         2376     A     
 LEX      *           LN=LABL  CONTAINS THE LABEL THAT OCCURRED ON THE LINE,               LEX         2377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                    IF ONE WAS PRESENT.                                         LEX         2378     A     
 LEX      *           LN=FEN   CONTAINS THE POSITION OF THE 1ST ENTOKENABLE                LEX         2379     A     
 LEX      *                    CHARACTER ON THE LINE, IF APPROPRIATE.  THE WORD            LEX         2380     A     
 LEX      *                    *APPROPRIATE* HERE MEANS: IF THE LINE **HAS**               LEX         2381     A     
 LEX      *                    AN ENTOKENABLE CHARACTER (I.E. NOT COMMENT).                LEX         2382     A     
 LEX      *                                                                                LEX         2383     A     
 LEX      *         SEE *LN=* CELLS AND THEIR DESCRIPTIONS FOR A MORE DETAILED             LEX         2384     A     
 LEX      *         DESCRIPTION OF THESE CELLS AND THEIR FORMATS.                          LEX         2385     A     
 LEX      *                                                                                LEX         2386     A     
 LEX      *                                                                                LEX         2387     A     
 LEX      *         THE SOURCE LINE AT (CP.CARD) WILL/CAN BE IN 1 OF 2 FORMATS,            LEX         2388     A     
 LEX      *         AS DETERMINED BY THE PRESENCE OR ABSENCE OF THE *SEQ* FTN              LEX         2389     A     
 LEX      *         CONTROL CARD OPTION  (INDICATED VIA *CO.MODE*).  SEE FTN 5             LEX         2390          I
          -FC5A239
 LEX      *         CONTROL CARD OPTION. (INDICATED VIA *CO.SEQ*).  SEE FTN5               FC5A239        6     A     
 LEX      *         IMS/DECK *LEX* FOR A DESCRIPTION OF *SEQ* AND NON-*SEQ* LINES          LEX         2391     A     
 LEX      *         IN THE CHAPTER ENTITLED *CLN AND LINE CLASSIFICATION*.                 LEX         2392     A     
 LEX      *                                                                                LEX         2393     A     
 LEX      *         ENTRY  (CP.CARD) ET SEQ = INPUT SOURCE LINE IN PACKED (10 CHAR         LEX         2394     A     
 LEX      *                                   PER WORD) FORMAT.                            LEX         2395     A     
 LEX      *                (CP.IFMT) = 1S59 IF EOR/EOF/EOI ENCOUNTERED, ELSE 0.            LEX         2396     A     
 LEX      *                                                                                LEX         2397     A     
 LEX      *         EXIT   *LN=* CELLS SET UP.                                             LEX         2398     A     
 LEX      *                *TC=* (TOKCOM) CELLS SET UP.                                    LEX         2399     A     
 LEX      *                                                                                LEX         2400     A     
 LEX      *         USES   ALL BUT (A0)                                                    LEX         2401     A     
 LEX      *                                                                                LEX         2402     A     
 LEX      *         CALLS  BUB,BUN,CDD                                                     LEX         2403     A     
 LEX                                                                                       LEX         2404     A     
 LEX                                                                                       LEX         2405     A     
 LEX       CLN      SUBR               ** ENTRY/EXIT **                                    LEX         2406     A     
 LEX                                                                                       LEX         2407     A     
 LEX      *         INITIALIZATION.                                                        LEX         2408     A     
 LEX                                                                                       LEX         2409     A     
 LEX                SA5    CP.CARD                                                         LEX         2410     A     
 LEX                SA2    L.CARD      (X2) = NR OF WORDS IN SOURCE LINE                   LEX         2411     A     
 LEX                MX0    -CHAR                                                           LEX         2412     A     
 LEX                BX6    X6-X6                                                           LEX         2413     A     
 LEX                SA6    LN=LABL     CLEAR *LINE LABEL*                                  LEX         2414     A     
 LEX                SA6    LN=NUML     CLEAR *LINE NUMBER, -L- FMT*                        LEX         2415     A     
 LEX                SA6    LN=NUMR     CLEAR *LINE NUMBER, -R- FMT*                        LEX         2416     A     
 LEX                SA6    LN=FEN                                                          LEX         2417     A     
 LEX                SA6    LN=FENB                                                         LEX         2418     A     
 LEX                SA6    LN=FENL                                                         LEX         2419     A     
 LEX                SX7    LT.EOR                                                          LEX         2420     A     
 LEX                SA7    LN=TYPE     PRESET TO *EOR/EOF OCCURRED*                        LEX         2421     A     
 LEX                                                                                       LEX         2422     A     
 LEX                SA1    CP.IFMT                                                         LEX         2423     A     
 LEX                MI     X1,EXIT.    IF EOR/EOF/EOI ENCOUNTERED, DONE...                 LEX         2424     A     
 LEX                                                                                       LEX         2425     A     
 LEX                SX2    X2-1        (X2) = NR OF USEABLE WORDS IN SOURCE LINE           LEX         2426     A     
 LEX      *                                   I.E. EXCLUDING FULL WORD EOL MARK            LEX         2427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SX3    60D         (X3) = NR OF BITS IN A WORD                         LEX         2428     A     
 LEX                SA6    A7          CLEAR TO *LINE IS UNTYPED*                          LEX         2429     A     
 LEX                IX4    X2*X3       (X4) = NR OF BITS IN SOURCE LINE                    LEX         2430     A     
 LEX                SB5    8*60        (B5) = MAX NR OF BITS PER LINE                      LEX         2431     A     
 LEX                SB7    X4                                                              LEX         2432     A     
 LEX                LE     B7,B5,CLN2  IF LINE NOT TOO LONG                                LEX         2433          I
          -FC5A239
 LEX                LE     B7,B5,CLN1  IF LINE NOT TOO LONG                                FC5A239        7     A     
 LEX                SB7    B5                                                              LEX         2434     A     
 LEX                                                                                       LEX         2435     A     
 LEX       CLN2     SA1    CO.SEQ                                                          LEX         2436          I
          -FC5A239
 LEX       CLN1     SA1    CO.SEQ                                                          FC5A239        8     A     
 LEX                NZ     X1,CLN10    IF THIS IS *SEQ* MODE INPUT                         LEX         2437     A     
 LEX       CLN      SPACE  4,10                                                            LEX         2438     A     
 LEX      **        HERE FOR NORMAL (NON-SEQ) LINE.                                        LEX         2439     A     
 LEX      *                                                                                LEX         2440     A     
 LEX      *           1. CHECK LINE LENGTH AND MAKE SURE THAT LINE IS .LE. 8 WORDS         LEX         2441     A     
 LEX      *              LONG.  ALSO ASSURE THAT IF THIS LINE **IS** 8 WORDS LONG,         LEX         2442     A     
 LEX      *              THAT (TC=SOBE) ARE SET UP SO THAT DURING TOKEN GENERATION         LEX         2443     A     
 LEX      *              OF THIS LINE, *BUB/BUN* WILL ONLY PROCESS 2 CHARS FROM            LEX         2444     A     
 LEX      *              THE 8TH WORD  (I.E. COLS 71 AND 72).                              LEX         2445     A     
 LEX      *                                                                                LEX         2446     A     
 LEX      *           2. SET UP LINE NUMBER, *LN=NUM*, TO BE A COMPILER-GENERATED          LEX         2447     A     
 LEX      *              NUMBER EQUAL TO THE NR OF CARDS/LINES READ SO FAR IN              LEX         2448     A     
 LEX      *              THIS PROGRAM UNIT (SEE *CARDS*).                                  LEX         2449     A     
 LEX      *                                                                                LEX         2450     A     
 LEX      *           3. EXTRACT THE LINE LABEL FROM COLS 1-5 AND SAVE                     LEX         2451     A     
 LEX      *              IN *LN=LABL*.                                                     LEX         2452     A     
 LEX      *                                                                                LEX         2453     A     
 LEX      *           4. TYPE THE LINE BY SCANNING COLS 1-6.  NOTE THAT FOR                LEX         2454     A     
 LEX      *              A NULL (ALL BLANK) LINE, THE **ENTIRE** SOURCE LINE               LEX         2455     A     
 LEX      *              MUST BE SCANNED.  SEE *CLN* SUBROUTINE PREAMBLE ABOVE.            LEX         2456     A     
 LEX      *                                                                                LEX         2457     A     
 LEX      *           5. SAVE STARTING CHAR POSITION OF THE ENTOKENABLE PART               LEX         2458     A     
 LEX      *              OF THIS LINE (I.E. COL 7).  THIS IS USED BY *TOK*                 LEX         2459     A     
 LEX      *              WHEN HE HAS TO INVENT BLANKS FOR A CHARACTER CONSTANT             LEX         2460     A     
 LEX      *              THAT IS CONTINUED ACROSS 2 SOURCE LINES.  SEE *CLN*               LEX         2461     A     
 LEX      *              PREAMBLE ABOVE.                                                   LEX         2462     A     
 LEX      *                                                                                LEX         2463     A     
 LEX      *           6. STRIP THE BLANKS THAT PRECEDE THE 1ST NON-BLANK CHAR              LEX         2464     A     
 LEX      *              IN COLS 7-72.                                                     LEX         2465     A     
 LEX                                                                                       LEX         2466     A     
 LEX                LT     B7,B5,CLN2A IF NR OF COLS .LE. 70                               LEX         2467          I
          -FC5A239
 LEX                LT     B7,B5,CLN2  IF NUMBER OF COLUMNS .LE. 70                        FC5A239        9     A     
 LEX                SB7    B7-8*CHAR                                                       LEX         2468     A     
 LEX                                                                                       LEX         2469     A     
 LEX       CLN2A    SA1    CARDS                                                           LEX         2470          I
          -FC5A239
 LEX       CLN2     SA1    CARDS                                                           FC5A239       10     A     
 LEX                CALL   CDD         CONVERT BINARY TO DECIMAL DPC                       LEX         2471     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                MX1    1                                                               LEX         2472     A     
 LEX                SB3    B2-B1                                                           LEX         2473     A     
 LEX                AX1    B3          (X1) = EXTRACTION MASK FOR CONVERTED DIGITS         LEX         2474     A     
 LEX                BX6    X1*X4       (X6) = LINE NR, -L- FMT                             LEX         2475     A     
 LEX                LX7    X6,B2       (X7) = LINE NR, -R- FMT                             LEX         2476     A     
 LEX                SA6    LN=NUML                                                         LEX         2477     A     
 LEX                LX5    CHAR        (X5) = COL 2345678901                               LEX         2478     A     
 LEX                SA7    LN=NUMR                                                         LEX         2479     A     
 LEX                BX4    -X0*X5      (X4) = CHAR IN COL 1, -R- FMT                       LEX         2480     A     
 LEX                                                                                       LEX         2481     A     
 LEX      *         CHECK COL 1.                                                           LEX         2482     A     
 LEX                                                                                       LEX         2483     A     
 LEX                SX1    X4-1R*                                                          LEX         2484     A     
 LEX                SX2    X4-1RC                                                          LEX         2485     A     
 LEX                ZR     X1,CLN3     IF COL 1 IS -*-, COMMENT LINE...                    LEX         2486     A     
 LEX                NZ     X2,CLN4     IF COL 1 IS NOT -*- OR -C-, NOT COMMENT...          LEX         2487     A     
 LEX                                                                                       LEX         2488     A     
 LEX      *         DISTINGUISH BETWEEN COMMENT AND C$ LINE.                               LEX         2489     A     
 LEX                                                                                       LEX         2490     A     
 LEX                SA1    =6RC$                                                           LEX         2491     A     
 LEX                LX5    5*CHAR      (X5) = COL 7890123456                               LEX         2492     A     
 LEX                MX2    -6*CHAR                                                         LEX         2493     A     
 LEX                BX6    -X2*X5      (X6) = COLS 1-6 IN -R- FMT                          LEX         2494     A     
 LEX                IX3    X6-X1                                                           LEX         2495     A     
 LEX                SX7    LT.C$                                                           LEX         2496     A     
 LEX                NZ     X3,CLN3     IF NOT A C$ LINE, COMMENT...                        LEX         2497     A     
 LEX                SA1    CO.DS                                                           LEX         2498     A     
 LEX                PL     X1,CLN7     IF C$ PROCESSING NOT DESELECTED                     LEX         2499     A     
 LEX       CLN3     SX7    LT.CMNT                                                         LEX         2500     A     
 LEX                SA7    LN=TYPE                                                         LEX         2501     A     
 LEX                EQ     EXIT.       DONE...                                             LEX         2502     A     
 LEX                                                                                       LEX         2503     A     
 LEX      *         HERE FOR NON-COMMENT, NON-C$ LINE.  NEED TO EXTRACT                    LEX         2504     A     
 LEX      *         LABEL FROM COLS 1-5.                                                   LEX         2505     A     
 LEX                                                                                       LEX         2506     A     
 LEX       CLN4     SA1    =5R                                                             LEX         2507     A     
 LEX                LX5    4*CHAR      (X5) = COLS 6789012345                              LEX         2508     A     
 LEX                MX2    -5*CHAR                                                         LEX         2509     A     
 LEX                BX6    -X2*X5      (X6) = COLS 1-5 IN -R- FMT                          LEX         2510     A     
 LEX                IX3    X6-X1                                                           LEX         2511     A     
 LEX                LX6    10*CHAR-5*CHAR (X6) = COLS 1-5 IN -L- FMT                       LEX         2512     A     
 LEX                ZR     X3,CLN5     IF COLS 1-5 ALL BLANK                               LEX         2513     A     
 LEX                SA6    LN=LABL                                                         LEX         2514     A     
 LEX                                                                                       LEX         2515     A     
 LEX      *         EXTRACT AND CHECK COL 6.                                               LEX         2516     A     
 LEX                                                                                       LEX         2517     A     
 LEX       CLN5     LX5    CHAR        (X5) = COL 7890123456                               LEX         2518     A     
 LEX                BX4    -X0*X5      (X4) = CHAR IN COL 6, -R- FMT                       LEX         2519     A     
 LEX                SX7    LT.CONT                                                         LEX         2520     A     
 LEX                SX2    X4-1R                                                           LEX         2521     A     
 LEX                NZ     X2,CLN6     IF COL 6 IS NON-BLANK                               LEX         2522     A     
 LEX                SX7    LT.INIT                                                         LEX         2523     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                NZ     X3,CLN7     IF COLS 1-5 NOT ALL BLANK                           LEX         2524     A     
 LEX                SX7    LT.NULL                                                         LEX         2525     A     
 LEX                EQ     CLN7                                                            LEX         2526     A     
 LEX                                                                                       LEX         2527     A     
 LEX      *         HERE IF COL 6 NON-BLANK.                                               LEX         2528     A     
 LEX                                                                                       LEX         2529     A     
 LEX       CLN6     SX2    X4-1R0                                                          LEX         2530     A     
 LEX                NZ     X2,CLN7     IF COL 6 NOT -0-, LINE IS CONTINUATION...           LEX         2531     A     
 LEX                SX7    LT.INIT                                                         LEX         2532     A     
 LEX                                                                                       LEX         2533     A     
 LEX      *         HERE TO STRIP PRECEDING BLANKS FROM SOURCE LINE.                       LEX         2534     A     
 LEX      *                                                                                LEX         2535     A     
 LEX      *           1. SAVE LINE TYPE IN *LN=TYPE*.                                      LEX         2536     A     
 LEX      *                                                                                LEX         2537     A     
 LEX      *           2. SAVE STARTING CHARACTER POSITION FOR ENTOKENABLE                  LEX         2538     A     
 LEX      *              PART OF LINE  (HERE FOR COMPATIBILITY WITH *SEQ*).                LEX         2539     A     
 LEX      *                                                                                LEX         2540     A     
 LEX      *           3. STRIP PRECEDING BLANKS.                                           LEX         2541     A     
 LEX                                                                                       LEX         2542     A     
 LEX       CLN7     SA7    LN=TYPE                                                         LEX         2543     A     
 LEX                SB4    CP.FLIN                                                         LEX         2544     A     
 LEX                SB6    4*CHAR                                                          LEX         2545     A     
 LEX                SB3    10*CHAR-1*CHAR                                                  LEX         2546     A     
 LEX                SX6    A5-B4       (X6) = ORD OF 1ST ENTOKENABLE WORD                  LEX         2547     A     
 LEX                SX7    B6                                                              LEX         2548     A     
 LEX                SA6    LN=FEN      SAVE ORDINAL OF 1ST ENTOKENABLE WORD                LEX         2549     A     
 LEX                SA7    LN=FENB     SAVE (B6) = CHAR POS OF 1ST ENTOKENABLE             LEX         2550     A     
 LEX      *                                        CHAR IN 1ST ENTOKENABLE WORD            LEX         2551     A     
 LEX                BX1    X1-X1       SET TO *BU/BU NO CHARACTERS* (STRIP BLANKS)         LEX         2552     A     
 LEX                                                                                       LEX         2553     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         2554     A     
 LEX                BX6    X6-X6       CLEAR PACKING REG TO PREVENT (A6) STORE             LEX         2555     A     
 LEX                SX7    B7                                                              LEX         2556     A     
 LEX                SA6    CLNA        PRESTORE (A6)...JUST IN CASE                        LEX         2557     A     
 LEX                SA7    LN=FENL     SAVE (B7) = NR OF BITS REMAINING                    LEX         2558     A     
 LEX                RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ               LEX         2559     A     
 LEX                LE     B7,B0,CLN16A IF WE STRIPPED EVERYTHING, DONE...                 LEX         2560          I
          -FC5A239
 LEX                LE     B7,B0,CLN18 IF WE STRIPPED EVERYTHING, DONE...                  FC5A239       11     A     
 LEX                                                                                       LEX         2561     A     
 LEX      *         HERE WHEN COLS 7-72 ARE NOT ALL BLANK.  NEED TO RETYPE                 LEX         2562     A     
 LEX      *         LINE AS *INITIAL* IF LINE TYPE IS *NULL*.                              LEX         2563     A     
 LEX                                                                                       LEX         2564     A     
 LEX                SA1    LN=TYPE                                                         LEX         2565     A     
 LEX                SX7    LT.INIT                                                         LEX         2566     A     
 LEX                SX3    X1-LT.NULL                                                      LEX         2567     A     
 LEX                NZ     X3,CLN17    IF LINE NOT INITIALLY TYPED AS NULL                 LEX         2568          I
          -FC5A239
 LEX                NZ     X3,CLN20    IF LINE NOT INITIALLY TYPED AS NULL                 FC5A239       12     A     
 LEX                SA7    A1+                                                             LEX         2569     A     
 LEX                EQ     CLN17                                                           LEX         2570          I
          -FC5A239
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                EQ     CLN20                                                           FC5A239       13     A     
 LEX       CLN      SPACE  4,10                                                            LEX         2571     A     
 LEX      **        HERE FOR *SEQ* LINE.                                                   LEX         2572     A     
 LEX      *                                                                                LEX         2573     A     
 LEX      *           1. STRIP ANY BLANKS THAT PRECEDE LINE NUMBER.                        LEX         2574     A     
 LEX      *                                                                                LEX         2575     A     
 LEX      *           2. EXTRACT LINE NUMBER AND SAVE IN *LN=NUM*.                         LEX         2576     A     
 LEX      *                                                                                LEX         2577     A     
 LEX      *           3. TYPE THE LINE BY CHECKING THE CHARACTER THAT FOLLOWS              LEX         2578     A     
 LEX      *              THE LINE NUMBER --                                                LEX         2579     A     
 LEX      *                                                                                LEX         2580     A     
 LEX      *              A. + MEANS LINE IS CONTINUATION.                                  LEX         2581     A     
 LEX      *              B. BLANK MEANS LINE IS INITIAL (OR NULL).                         LEX         2582     A     
 LEX      *              C. C$ MEANS LINE IS C$.                                           LEX         2583     A     
 LEX      *              D. ANYTHING ELSE MEANS LINE IS COMMENT.                           LEX         2584     A     
 LEX      *                                                                                LEX         2585     A     
 LEX      *              NOTE THAT FOR A NULL (ALL BLANK) LINE, THE **ENTIRE**             LEX         2586     A     
 LEX      *              LINE MUST BE SCANNED.  SEE FTN 5 IMS/DECK *LEX* FOR A             LEX         2587     A     
 LEX      *              DESCRIPTION/DEFINITION OF A *SEQ* LINE.                           LEX         2588     A     
 LEX      *                                                                                LEX         2589     A     
 LEX      *           4. EXTRACT THE LINE/STMT LABEL IF LINE IS AN INITIAL LINE            LEX         2590     A     
 LEX      *              OF STMT (ONLY IF ONE IS PRESENT, OF COURSE) AND SAVE IN           LEX         2591     A     
 LEX      *              *LN=LABL*.                                                        LEX         2592     A     
 LEX      *                                                                                LEX         2593     A     
 LEX      *           5. STRIP THE BLANKS THAT PRECEDE THE 1ST NON-BLANK CHARACTER         LEX         2594     A     
 LEX      *              FOLLOWING THE LINE NUMBER (OR LINE LABEL, IF ONE WAS              LEX         2595     A     
 LEX      *              PRESENT).                                                         LEX         2596     A     
 LEX                                                                                       LEX         2597     A     
 LEX       CLN10    SB3    9*CHAR      (B3) = LEFT SHIFT FOR 1ST CHAR *BUB/BUN*            LEX         2598     A     
 LEX      *                                   WILL BUILD INTO (X6).                        LEX         2599     A     
 LEX                BX1    X1-X1       SET TO *BU/BU NO CHARACTERS* (STRIP BLANKS)         LEX         2600     A     
 LEX                MX6    0           CLEAR PACKING REG TO PREVENT (A6) STORE             LEX         2601     A     
 LEX                SA6    CLNA        PRESTORE (A6)...JUST IN CASE                        LEX         2602     A     
 LEX                SX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         2603     A     
 LEX                SB6    10*CHAR                                                         LEX         2604     A     
 LEX                RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ               LEX         2605     A     
 LEX                LE     B7,B0,CLN14 IF LINE IS EMPTY                                    LEX         2606     A     
 LEX                                                                                       LEX         2607     A     
 LEX      *         CHECK FOR AND EXTRACT LINE NUMBER.                                     LEX         2608     A     
 LEX                                                                                       LEX         2609     A     
 LEX                SA1    MX=0..9     (X1) = CHAR SHIFT MASK FOR 0 THRU 9                 LEX         2610     A     
 LEX                SB2    X4+10000B-BICH                                                  LEX         2611     A     
 LEX                LX7    X1,B2                                                           LEX         2612     A     
 LEX                PL     X7,CLN14    IF 1ST CHAR OF LINE NR IS NOT DIGIT                 LEX         2613     A     
 LEX                BX6    X6-X6                                                           LEX         2614     A     
 LEX                SB5    6           (B5) = MAX NR OF CHARS IN LINE NR                   LEX         2615     A     
 LEX                SA6    CLNA        PRESTORE (A6)                                       LEX         2616     A     
 LEX                SB3    10*CHAR-1*CHAR                                                  LEX         2617     A     
 LEX                RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ            LEX         2618     A     
 LEX                SA6    LN=NUML                                                         LEX         2619     A     
 LEX                SB4    60-CHAR                                                         LEX         2620     A     
 LEX                SX7    LT.NULL                                                         LEX         2621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 750    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SB5    B4-B3       (B5) = SHIFT COUNT TO RIGHT JUSTIFY (X6)            LEX         2622     A     
 LEX                LX6    B5          (X6) = SEQ NR, -R- FMT                              LEX         2623     A     
 LEX                SA7    LN=TYPE                                                         LEX         2624     A     
 LEX                SA6    LN=NUMR                                                         LEX         2625     A     
 LEX                LE     B7,B0,EXIT. IF NOTHING AFTER LINE NR                            LEX         2626     A     
 LEX                                                                                       LEX         2627     A     
 LEX      *         CHECK CHAR THAT TERMINATED LINE NUMBER.                                LEX         2628     A     
 LEX                                                                                       LEX         2629     A     
 LEX                SX2    X4-1R                                                           LEX         2630     A     
 LEX                SX3    X4-1R+                                                          LEX         2631     A     
 LEX                ZR     X2,CLN15    IF LINE IS *NULL* SO FAR                            LEX         2632          I
          -FC5A239
 LEX                ZR     X2,CLN16    IF LINE IS *NULL* SO FAR                            FC5A239       14     A     
 LEX                SX7    LT.CONT                                                         LEX         2633     A     
 LEX                ZR     X3,CLN15    IF LINE IS *CONTINUATION*                           LEX         2634     A     
 LEX                                                                                       LEX         2635     A     
 LEX      *         CHECK FOR C$ LINE.                                                     LEX         2636     A     
 LEX      *                                                                                LEX         2637     A     
 LEX      *           1. IF CHAR THAT FOLLOWED/TERMINATED LINE NR IS NOT -C-,              LEX         2638     A     
 LEX      *              THEN THIS LINE IS A COMMENT.                                      LEX         2639     A     
 LEX      *                                                                                LEX         2640     A     
 LEX      *           2. IF CHAR THAT FOLLOWED/TERMINATED LINE NR IS A -C-,                LEX         2641     A     
 LEX      *              THEN EXTRACT 3 CHARS AND SEE IF THEY ARE                          LEX         2642     A     
 LEX      *              -C$.- (.=BLANK(55B)).  IF SO, THEN THIS IS A C$ LINE.             LEX         2643     A     
 LEX      *              ELSE, THIS IS A COMMENT LINE.                                     LEX         2644     A     
 LEX      *                                                                                LEX         2645     A     
 LEX      *         NOTE: SOME WORK MUST BE DONE TO CORRECTLY TYPE A C$ LINE               LEX         2646     A     
 LEX      *         THAT IS NULL (I.E. -C$- IMMEDIATELY FOLLOWED BY EOL MARK)              LEX         2647     A     
 LEX      *         BECAUSE IN THIS CASE, THE BLANK FOLLOWING THE -C$- IS                  LEX         2648     A     
 LEX      *         IMPLICIT (I.E. IT IS NOT THERE...IT HAS BEEN STRIPPED OFF              LEX         2649     A     
 LEX      *         BY THE OPERATING SYSTEM).                                              LEX         2650     A     
 LEX                                                                                       LEX         2651     A     
 LEX                SX2    X4-1RC                                                          LEX         2652     A     
 LEX                NZ     X2,CLN14    IF COMMENT LINE                                     LEX         2653     A     
 LEX                SB5    2           (B5) = NR OF CHARS TO EXTRACT                       LEX         2654     A     
 LEX                MX1    60          SET TO *BU/BU ANY CHARACTERS*                       LEX         2655     A     
 LEX                BX6    X6-X6                                                           LEX         2656     A     
 LEX                SA6    CLNA        PRESTORE (A6)                                       LEX         2657     A     
 LEX                SB3    10*CHAR-1*CHAR                                                  LEX         2658     A     
 LEX                RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ            LEX         2659     A     
 LEX                                                                                       LEX         2660     A     
 LEX                SA2    =2LC$                                                           LEX         2661     A     
 LEX                BX7    X6-X2                                                           LEX         2662     A     
 LEX                NZ     X7,CLN14    IF NOT -C$-, LINE IS COMMENT...                     LEX         2663     A     
 LEX                SX2    X4-1R                                                           LEX         2664     A     
 LEX                LE     B7,B0,CLN13 IF -C$- IMMEDIATELY FOLLOWED BY EOL MARK            LEX         2665     A     
 LEX                NZ     X2,CLN14    IF NOT -C$.- (.=BLANK(55B))                         LEX         2666     A     
 LEX                                                                                       LEX         2667     A     
 LEX      *         HERE IF C$ LINE.                                                       LEX         2668     A     
 LEX                                                                                       LEX         2669     A     
 LEX       CLN13    SA1    CO.DS                                                           LEX         2670     A     
 LEX                SX7    LT.C$                                                           LEX         2671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                PL     X1,CLN15    IF C$ PROCESSING NOT DESELECTED                     LEX         2672          I
          -FC5A239
 LEX                PL     X1,CLN16    IF C$ PROCESSING NOT DESELECTED                     FC5A239       15     A     
 LEX                                                                                       LEX         2673     A     
 LEX      *         HERE IF COMMENT LINE.                                                  LEX         2674     A     
 LEX                                                                                       LEX         2675     A     
 LEX       CLN14    SX7    LT.CMNT                                                         LEX         2676     A     
 LEX                SA7    LN=TYPE                                                         LEX         2677     A     
 LEX                EQ     EXIT.       DONE...                                             LEX         2678     A     
 LEX                                                                                       LEX         2679     A     
 LEX      *         HERE IF READY TO TO STRIP PRECEDING BLANKS FROM SOURCE LINE.           LEX         2680     A     
 LEX      *                                                                                LEX         2681     A     
 LEX      *           1. SAVE LINE TYPE IN *LN=TYPE*.                                      LEX         2682     A     
 LEX      *                                                                                LEX         2683     A     
 LEX      *           2. SAVE STARTING CHARACTER POSITION FOR ENTOKENABLE PART             LEX         2684     A     
 LEX      *              OF LINE IN *LN=FEN*.  I.E. SAVE THE POSITION OF 2ND CHAR          LEX         2685     A     
 LEX      *              FOLLOWING THE LINE NUMBER (THE 1ST CHAR FOLLOWING                 LEX         2686     A     
 LEX      *              THE LINE NUMBER DETERMINES THE LINE TYPE FOR *SEQ*                LEX         2687     A     
 LEX      *              LINES).  TO DO THIS, WE MUST FIRST GET THIS CHAR AS               LEX         2688     A     
 LEX      *              WE ARE CURRENTLY POINTING AT THE 1ST CHAR FOLLOWING               LEX         2689     A     
 LEX      *              THE LINE NUMBER.  THEREFORE WE MUST FIRST CALL *BUB*              LEX         2690     A     
 LEX      *              TO GET ONE CHARACTER.                                             LEX         2691     A     
 LEX      *                                                                                LEX         2692     A     
 LEX      *           3. STRIP PRECEDING BLANKS.                                           LEX         2693     A     
 LEX                                                                                       LEX         2694     A     
 LEX       CLN15    SA7    LN=TYPE                                                         LEX         2695          I
          -FC5A239
 LEX                LE     B7,B0,CLN16 IF NOTHING LEFT                                     LEX         2696          I
          -FC5A239
 LEX       CLN15    SA1    TF=SQZ                                                          FC5A239       16     A     
 LEX                NZ     X1,CLN16    IF IN BLANK SQUEEZE MODE                            FC5A239       17     A     
 LEX                SA7    LN=TYPE                                                         FC5A239       18     A     
 LEX                SB4    CP.FLIN                                                         FC5A239       19     A     
 LEX                SX6    A5-B4       ORD OF WORD CONTAINING 1ST CHAR OF SOURCE           FC5A239       20     A     
 LEX                SX7    B6                                                              FC5A239       21     A     
 LEX                SA6    LN=FEN                                                          FC5A239       22     A     
 LEX                =A7    A6-LN=FEN+LN=FENB                                               FC5A239       23     A     
 LEX                SX6    B7                                                              FC5A239       24     A     
 LEX                =A6    A7-LN=FENB+LN=FENL                                              FC5A239       25     A     
 LEX                LX5    -CHAR                                                           FC5A239       26     A     
 LEX                EQ     CLN18                                                           FC5A239       27     A     
 LEX                                                                                       FC5A239       28     A     
 LEX       CLN16    SA7    LN=TYPE                                                         FC5A239       29     A     
 LEX                LE     B7,B0,CLN17 IF NOTHING LEFT                                     FC5A239       30     A     
 LEX                BX6    X6-X6       CLEAR PACKING REG TO PREVENT (A6) STORE             LEX         2697     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHARACTER IN (X4)*               LEX         2698     A     
 LEX                SX1    0           SET TO *BU/BU NO CHARACTERS*                        LEX         2699     A     
 LEX                SB5    B1          (B5) = NR OF CHARS TO BU/BU                         LEX         2700     A     
 LEX                SB3    10*CHAR-1*CHAR                                                  LEX         2701     A     
 LEX                RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ            LEX         2702     A     
 LEX                                                                                       LEX         2703     A     
 LEX       CLN16    SB4    CP.FLIN                                                         LEX         2704          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FC5A239
 LEX                SX6    A5-B4       (X6) = ORD OF WORD CONTAINING 1ST CHAR              LEX         2705          I
          -FC5A239
 LEX      *                                   IN SOURCE LINE                               LEX         2706          I
          -FC5A239
 LEX                SX7    B6                                                              LEX         2707          I
          -FC5A239
 LEX                SA6    LN=FEN                                                          LEX         2708          I
          -FC5A239
 LEX                SA7    LN=FENB                                                         LEX         2709          I
          -FC5A239
 LEX                SX6    B7+                                                             LEX         2710          I
          -FC5A239
 LEX                SA6    LN=FENL                                                         LEX         2711          I
          -FC5A239
 LEX                LE     B7,B0,CLN16A IF NOTHING LEFT                                    LEX         2712          I
          -FC5A239
 LEX       CLN17    SB4    CP.FLIN                                                         FC5A239       31     A     
 LEX                SX6    A5-B4       ORD OF WORD CONTAINING 1ST CHAR OF SOURCE           FC5A239       32     A     
 LEX                SX7    B6                                                              FC5A239       33     A     
 LEX                SA6    LN=FEN                                                          FC5A239       34     A     
 LEX                =A7    A6-LN=FEN+LN=FENB                                               FC5A239       35     A     
 LEX                SX6    B7                                                              FC5A239       36     A     
 LEX                =A6    A7-LN=FENB+LN=FENL                                              FC5A239       37     A     
 LEX                LE     B7,B0,CLN18 IF NOTHING LEFT                                     FC5A239       38     A     
 LEX                SB3    10*CHAR-1*CHAR                                                  LEX         2713     A     
 LEX                BX6    X6-X6                                                           LEX         2714     A     
 LEX                RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ               LEX         2715     A     
 LEX                LE     B7,B0,CLN16A IF NOTHING LEFT                                    LEX         2716          I
          -FC5A239
 LEX                LE     B7,B0,CLN18 IF NOTHING LEFT                                     FC5A239       39     A     
 LEX                                                                                       LEX         2717     A     
 LEX      *         HERE IF PRECEDING BLANK STRIP WAS NOT TERMINATED BY EOL.               LEX         2718     A     
 LEX      *                                                                                LEX         2719     A     
 LEX      *           1. IF THIS LINE HAS BEEN TYPED SO FAR AS NULL, THEN NEED             LEX         2720     A     
 LEX      *              TO RETYPE AS INITIAL.                                             LEX         2721     A     
 LEX      *                                                                                LEX         2722     A     
 LEX      *           2. IF LINE IS INITIAL (I.E. AS TYPED ABOVE), THEN NEED               LEX         2723     A     
 LEX      *              TO CHECK FOR/EXTRACT STMT LABEL.                                  LEX         2724     A     
 LEX                                                                                       LEX         2725     A     
 LEX                SA2    LN=TYPE                                                         LEX         2726     A     
 LEX                SA1    MX=0..9     (X1) = CHAR SHIFT MASK FOR 0 THRU 9                 LEX         2727     A     
 LEX                SX3    X2-LT.NULL                                                      LEX         2728     A     
 LEX                SB2    X4+10000B-BICH                                                  LEX         2729     A     
 LEX                NZ     X3,CLN17    IF NOT *NULL SO FAR* LINE                           LEX         2730          I
          -FC5A239
 LEX                NZ     X3,CLN20    IF NOT *NULL SO FAR* LINE                           FC5A239       40     A     
 LEX                                                                                       LEX         2731     A     
 LEX                LX6    X1,B2                                                           LEX         2732     A     
 LEX                SX7    LT.INIT                                                         LEX         2733     A     
 LEX                SA7    A2                                                              LEX         2734     A     
 LEX                PL     X6,CLN17    IF NO STMT LABEL PRESENT                            LEX         2735          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FC5A239
 LEX                PL     X6,CLN20    IF NO STATEMENT LABEL PRESENT                       FC5A239       41     A     
 LEX                                                                                       LEX         2736     A     
 LEX      *         EXTRACT STATEMENT LABEL.                                               LEX         2737     A     
 LEX                                                                                       LEX         2738     A     
 LEX                SB5    5           (B5) = MAX NR OF DIGITS IN STMT LABEL               LEX         2739     A     
 LEX                BX6    X6-X6                                                           LEX         2740     A     
 LEX                SA6    CLNA        PRESTORE (A6)                                       LEX         2741     A     
 LEX                SB3    10*CHAR-1*CHAR                                                  LEX         2742     A     
 LEX                RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ            LEX         2743     A     
 LEX                BX1    X6                                                              FC5A168A       8     A     
 LEX                CALL   SFN         SPACE FILL                                          FC5A168A       9     A     
 LEX                MX1    5*CHAR                                                          FC5A168A      10     A     
 LEX                BX6    X1*X6       ERASE LOWER 5 CHARACTERS                            FC5A168A      11     A     
 LEX                SA1    MX=0..9                                                         FC5A168A      12     A     
 LEX                SA6    LN=LABL                                                         LEX         2744     A     
 LEX                EQ     CLN16       NEED TO STRIP PRECEDING BLANKS...                   LEX         2745          I
          -FC5A239
 LEX                EQ     CLN17       NEED TO STRIP PRECEDING BLANKS                      FC5A239       42     A     
 LEX       CLN      SPACE  4,10                                                            LEX         2746     A     
 LEX      **        HERE FOR FINAL PROCESSING.                                             LEX         2747     A     
 LEX      *                                                                                LEX         2748     A     
 LEX      *         SAVE CRITICAL *BUB/BUN* SOURCE LINE POINTER REGISTERS                  LEX         2749     A     
 LEX      *         FOR LATER TOKEN GENERATION OF THIS LINE.  THESE REGISTERS              LEX         2750     A     
 LEX      *         ARE SAVED SO THAT *TOK* CAN KNOW WHERE TO BEGIN AND END                LEX         2751     A     
 LEX      *         TOKEN GENERATION OF THIS LINE.                                         LEX         2752     A     
 LEX      *                                                                                LEX         2753     A     
 LEX      *         REGISTERS ARE SAVED IN *TOKCOM*, THE *USER/TOK* COMMUNICATIONS         LEX         2754     A     
 LEX      *         AREA AS FOLLOWS --                                                     LEX         2755     A     
 LEX      *                                                                                LEX         2756     A     
 LEX      *         (TC=SOA) = (A5)-CP.FLIN                                                LEX         2757     A     
 LEX      *                  = ORDINAL OF 1ST SOURCE WORD TO ENTOKEN.                      LEX         2758     A     
 LEX      *         (TC=SOL) = (B7)                                                        LEX         2759     A     
 LEX      *                  = NR OF WORDS TO ENTOKEN (NOT INCLUDING FULL                  LEX         2760     A     
 LEX      *                    ZERO WORD EOL MARK).  NOTE THAT IN NORMAL (NON-SEQ)         LEX         2761     A     
 LEX      *                    MODE, THE MAXIMUM VALUE THAT (B7) CAN HAVE IS               LEX         2762     A     
 LEX      *                    7 (I.E. COLS 1-70).  COLS 71-72 HAVE TO BE SPECIAL          LEX         2763     A     
 LEX      *                    CASED SO THAT *TOK* WILL NOT AUTOMATICALLY ENTOKEN          LEX         2764     A     
 LEX      *                    COLS 73-80.                                                 LEX         2765     A     
 LEX      *         (TC=SOB) = (B6)                                                        LEX         2766     A     
 LEX      *                  = NR OF BITS REMAINING IN (X5).                               LEX         2767     A     
 LEX      *         (TC=SOC) = (X4)                                                        LEX         2768     A     
 LEX      *                  = 1ST CHAR TO ENTOKEN (-R- FMT), ELSE                         LEX         2769     A     
 LEX      *                  = .MI. IF NONE (I.E. NEED TO EXTRACT CHAR FROM (X5)           LEX         2770     A     
 LEX      *                    FIRST).                                                     LEX         2771     A     
 LEX      *                                                                                LEX         2772     A     
 LEX      *                    NOTE THAT *CLN16A* IS A SPECIAL SPOT FOR HANDLING           LEX         2773          I
          -FC5A239
 LEX      *                    NOTE THAT *CLN18* IS A SPECIAL SPOT FOR HANDLING            FC5A239       43     A     
 LEX      *                    THE *NOW AT EOL* CONDITION.  THIS IS NECESSARY              LEX         2774     A     
 LEX      *                    BECAUSE WHEN *BUB/BUN* DETECT EOL, IT IS POSSIBLE           LEX         2775     A     
 LEX      *                    THAT (X4) CONTAIN AN ERRONEOUS CHARACTER  (I.E.             LEX         2776     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                    (X4) IS **UNDEFINED** AT EOL).                              LEX         2777     A     
 LEX                                                                                       LEX         2778     A     
 LEX                                                                                       LEX         2779     A     
 LEX       CLN16A   SX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         2780          I
          -FC5A239
 LEX       CLN18    SX4    -1          SET TO *NO USEABLE CHARACTER IN (X4)*               FC5A239       44     A     
 LEX                                                                                       LEX         2781     A     
 LEX       CLN17    SB4    CP.FLIN                                                         LEX         2782          I
          -FC5A239
 LEX       CLN20    SB4    CP.FLIN                                                         FC5A239       45     A     
 LEX                SX6    B7                                                              LEX         2783     A     
 LEX                SX7    A5-B4                                                           LEX         2784     A     
 LEX                SA6    TC=SOL                                                          LEX         2785     A     
 LEX                SA7    TC=SOA                                                          LEX         2786     A     
 LEX                SX6    B6                                                              LEX         2787     A     
 LEX                BX7    X4                                                              LEX         2788     A     
 LEX                SA6    TC=SOB                                                          LEX         2789     A     
 LEX                SA7    TC=SOC                                                          LEX         2790     A     
 LEX                BX6    X5                                                              LEX         2791     A     
 LEX                SA6    TC=SOX                                                          LEX         2792     A     
 LEX                EQ     EXIT.                                                           LEX         2793     A     
 LEX                                                                                       LEX         2794     A     
 LEX                                                                                       LEX         2795     A     
 LEX       CLNA     BSSZ   2           DUMMY AREA FOR *BUB/BUN* (A6) REFERENCES            LEX         2796     A     
 LEX       CST      SPACE  4,10                                                            LEX         2797     A     
 LEX      **        CST - CLASSIFY STATEMENT.                                              LEX         2798     A     
 LEX      *                                                                                LEX         2799     A     
 LEX      *                                                                                LEX         2800     A     
 LEX      *         *CST* IS RESPONSIBLE FOR DETERMINING THE STATEMENT TYPE                LEX         2801     A     
 LEX      *         (SAVED IN *TB=TYPE*) FOR THE STMT IN *T.TB*.  DETERMINING              LEX         2802     A     
 LEX      *         THE STMT TYPE FOR A STMT INVOLVES 2 DISTINCTLY DIFFERENT               LEX         2803     A     
 LEX      *         ALGORITHMS --                                                          LEX         2804     A     
 LEX      *                                                                                LEX         2805     A     
 LEX      *           1. FOR THE SEMANTICALLY DEFINED STMTS (REPLACEMENT, *DO*,            LEX         2806     A     
 LEX      *              AND *IF*), STMT TYPING INVOLVES BOTH A POSSIBLE KEYWORD           LEX         2807     A     
 LEX      *              VERIFICATION .AND. THE QUERYING OF A NUMBER OF SPECIAL            LEX         2808     A     
 LEX      *              *SEMANTIC* FLAGS THAT MIGHT HAVE BEEN SET DURING TOKEN            LEX         2809     A     
 LEX      *              GENERATION.                                                       LEX         2810     A     
 LEX      *                                                                                LEX         2811     A     
 LEX      *              THESE FLAGS ARE --                                                LEX         2812     A     
 LEX      *                                                                                LEX         2813     A     
 LEX      *                ZLEQUAL = ADDR IN *T.TB* OF THE LAST *O.=* TOKEN                LEX         2814     A     
 LEX      *                          THAT THE TOKEN GENERATOR ENCOUNTERED                  LEX         2815     A     
 LEX      *                          AT PAREN LEVEL ZERO, ELSE                             LEX         2816     A     
 LEX      *                        = .ZR. IF NO ZERO LEVEL EQUAL OCCURRED.                 LEX         2817     A     
 LEX      *                                                                                LEX         2818     A     
 LEX      *                ZLCOMMA = ADDR IN *T.TB* OF LAST *O.COMMA* TOKEN                LEX         2819     A     
 LEX      *                          GENERATED AT PAREN LEVEL ZERO, ELSE                   LEX         2820     A     
 LEX      *                        = .ZR. IF NO ZERO LEVEL COMMA OCCURRED.                 LEX         2821     A     
 LEX      *                                                                                LEX         2822     A     
 LEX      *                ZLPAREN = ADDR IN *T.TB* OF 1ST ZERO **LEVELING**               LEX         2823     A     
 LEX      *                          *O.RP* TOKEN GENERATED, ELSE                          LEX         2824     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                        = .ZR. IF NO ZERO LEVELING PAREN ENCOUNTERED.           LEX         2825     A     
 LEX      *                                                                                LEX         2826     A     
 LEX      *                ZLCOLON = ADDR IN *T.TB* OF 1ST *O.COLON* TOKEN                 LEX         2827     A     
 LEX      *                          GENERATED AT PAREN LEVEL 1, ELSE                      LEX         2828     A     
 LEX      *                        = .ZR. IF NO LEVEL 1 COLON ENCOUNTERED.  NOTE           LEX         2829     A     
 LEX      *                          THAT THE NAME OF THIS CELL, *ZLCOLON*, IS             LEX         2830     A     
 LEX      *                          SOMEWHAT OF A MISNOMER: I.E. IT HAS **NOTHING         LEX         2831     A     
 LEX      *                          TO DO WITH PAREN LEVEL 0.  HOWEVER, IT WAS            LEX         2832     A     
 LEX      *                          FELT THAT THIS CELL WAS SUFFICIENTLY CLOSE            LEX         2833     A     
 LEX      *                          IN FUNCTION TO THE OTHER *ZL* CELLS TO WARRAN         LEX         2834     A     
 LEX      *                          BEING ASSOCIATED BY NAME.  ERGO, THE MISNOMER         LEX         2835     A     
 LEX      *                                                                                LEX         2836     A     
 LEX      *              FOR EXAMPLE --                                                    LEX         2837     A     
 LEX      *                                                                                LEX         2838     A     
 LEX      *                SUBROUTINE THUMB(A,B),RETURNS(C,D)                              LEX         2839     A     
 LEX      *                                    ..                                          LEX         2840     A     
 LEX      *                                    ..... ZLCOMMA                               LEX         2841     A     
 LEX      *                                    ..... ZLPAREN                               LEX         2842     A     
 LEX      *                                                                                LEX         2843     A     
 LEX      *                BIRDY = VULTURE = TURKEY                                        LEX         2844     A     
 LEX      *                                .                                               LEX         2845     A     
 LEX      *                                ......... ZLEQUAL                               LEX         2846     A     
 LEX      *                                                                                LEX         2847     A     
 LEX      *                EAT(1:10) = 'GRUNT' // SNARF(1)(6:10)                           LEX         2848     A     
 LEX      *                     .                                                          LEX         2849     A     
 LEX      *                     .................... ZLCOLON                               LEX         2850     A     
 LEX      *                                                                                LEX         2851     A     
 LEX      *              FOLLOWING IS A BRIEF DISCUSSION OF THE VARIOUS                    LEX         2852     A     
 LEX      *              SEMANTICALLY DEFINED STMTS IN FTN AND HOW THEY                    LEX         2853     A     
 LEX      *              ARE TYPED/DETECTED, DISCUSSED IN THE ORDER OF THEIR               LEX         2854     A     
 LEX      *              DETECTABILITY --                                                  LEX         2855     A     
 LEX      *                                                                                LEX         2856     A     
 LEX      *                A. DO 100 I=1,10                                                LEX         2857     A     
 LEX      *                           . .                                                  LEX         2858     A     
 LEX      *                           . ............ ZLEQUAL                               LEX         2859     A     
 LEX      *                           .............. ZLCOMMA                               LEX         2860     A     
 LEX      *                                                                                LEX         2861     A     
 LEX      *                   THE 1ST 2 CHARS OF THE 1ST *O.VAR* TOKEN MUST BE             LEX         2862     A     
 LEX      *                   *DO*, AND (ZLEQUAL) MUST PRECEDE (ZLCOMMA).                  LEX         2863     A     
 LEX      *                                                                                LEX         2864     A     
 LEX      *                B. IF (MANAGER.EQ.TURKEY)WORK=WORK-1                            LEX         2865     A     
 LEX      *                                        .    .                                  LEX         2866     A     
 LEX      *                                        .    .... ZLEQUAL                       LEX         2867     A     
 LEX      *                                        ......... ZLPAREN                       LEX         2868     A     
 LEX      *                                                                                LEX         2869     A     
 LEX      *                   THE 1ST *O.VAR* TOKEN MUST CONTAIN *IF*, AND THE             LEX         2870     A     
 LEX      *                   TOKEN IMMEDIATELY FOLLOWING THE ZERO LEVELING                LEX         2871     A     
 LEX      *                   *O.RP* TOKEN MUST **NOT** BE A SEPARATOR TOKEN               LEX         2872     A     
 LEX      *                   (DEFINED VIA *O.SEP* TOKEN TYPE).  IN ADDITION,              LEX         2873     A     
 LEX      *                   WE MUST BE CAREFUL ABOUT *IF*S THAT ARE THE OBJECTS          LEX         2874     A     
 LEX      *                   OF *IF*S, I.E. *IF(...)IF(...)*  (SEE BELOW).                LEX         2875     A     
 LEX      *                                                                                LEX         2876     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                C. TOAD = FROG+1     (REPLACEMENT)                              LEX         2877     A     
 LEX      *                        .                                                       LEX         2878     A     
 LEX      *                        ......................... ZLEQUAL                       LEX         2879     A     
 LEX      *                                                                                LEX         2880     A     
 LEX      *                   A REPLACEMENT STMT IS DETECTED WHEN A ZERO                   LEX         2881     A     
 LEX      *                   LEVEL EQUAL IS PRESENT.  NOTE THAT SOME                      LEX         2882     A     
 LEX      *                   CARE MUST BE EXERCISED TO DISTINGUISH BETWEEN                LEX         2883     A     
 LEX      *                   AN ARRAY REPLACEMENT AND AN ASF DEFINITION                   LEX         2884     A     
 LEX      *                   (SEE BELOW).                                                 LEX         2885     A     
 LEX      *                                                                                LEX         2886     A     
 LEX      *                D. ASF(I) = I+1      (ASF DEFINITION)                           LEX         2887     A     
 LEX      *                                                                                LEX         2888     A     
 LEX      *                   ASF DEFS AND ARRAY REPLACEMENTS ARE DISTINGUISHED            LEX         2889     A     
 LEX      *                   VIA A SYMBOL TABLE SEARCH ON THE ARRAY/ASF NAME.             LEX         2890     A     
 LEX      *                   IF THE NAME IS DEFINED IN *T.SYM* AS HAVING                  LEX         2891     A     
 LEX      *                   BEEN DIMENSIONED, THEN THIS IS AN ARRAY                      LEX         2892     A     
 LEX      *                   REPLACEMENT STMT.  ELSE, IT IS A STMT FUNCTION               LEX         2893     A     
 LEX      *                   DEFINITION, OR...                                            LEX         2894     A     
 LEX      *                                                                                LEX         2895     A     
 LEX      *                E. COW(1:8) = 'STUBBORN'  (CHAR SUBSTRING ASGMNT)               LEX         2896     A     
 LEX      *                                                                                LEX         2897     A     
 LEX      *                   THIS STMT TYPE HAS TO BE SPECIAL-CASED BECAUSE               LEX         2898     A     
 LEX      *                   A CHARACTER SUBSTRING ASSIGNMENT **LOOKS** LIKE              LEX         2899     A     
 LEX      *                   A STMT FUNCTION DEFINITION.  I.E. *COW* IS **NOT**           LEX         2900     A     
 LEX      *                   DIMENSIONED.  THE GIVEAWAY IS THE COLON.                     LEX         2901     A     
 LEX      *                                                                                LEX         2902     A     
 LEX      *                  THEREFORE, A COLON OCCURING AT PAREN LEVEL 1                  LEX         2903     A     
 LEX      *                  **BEFORE** THE 1ST ZERO LEVEL EQUAL INDICATES                 LEX         2904     A     
 LEX      *                  THAT THIS IS A CHARACTER SUBSTRING ASSIGNMENT,                LEX         2905     A     
 LEX      *                  **NOT** A CHARACTER STMT FUNCTION DEFINITION.                 LEX         2906     A     
 LEX      *                                                                                LEX         2907     A     
 LEX      *           2. FOR THE FTN KEYWORD STMTS, *CST* CALLS *CAK* (CHECK FOR           LEX         2908     A     
 LEX      *              AND ADJUST KEYWORD) TO SEARCH THE FTN KEYWORD TABLE               LEX         2909     A     
 LEX      *              AT *FW.KEYW* FOR A KEYWORD MATCH.  SEE *CAK* FOR DETAILS.         LEX         2910     A     
 LEX      *                                                                                LEX         2911     A     
 LEX      *         WHEN THE STMT TYPE HAS BEEN DETERMINED, A STMT TYPE                    LEX         2912     A     
 LEX      *         INFORMATION WORD IS TRANSFERED FROM THE KEYWORD TABLE                  LEX         2913     A     
 LEX      *         (OR FROM AN ARTIFICIALLY GENERATED KEYWORD TABLE ENTRY FOR             LEX         2914     A     
 LEX      *         THE SEMANTICALLY DEFINED STMTS) TO THE CONTENTS OF *TB=TYPE*.          LEX         2915     A     
 LEX      *         IN THIS WAY, ANY INTERESTED PARTY CAN EASILY FIND OUT ANY              LEX         2916     A     
 LEX      *         STMT TYPE INFORMATION FOR THE STMT AT *T.TB*.  (TB=TYPE) WILL          LEX         2917     A     
 LEX      *         BE USED BY *FEC* (FRONT END CONTROLLER) IN DETERMINING WHICH           LEX         2918     A     
 LEX      *         STMT PROCESSOR IS TO PROCESS THE STMT AT *T.TB*.                       LEX         2919     A     
 LEX      *                                                                                LEX         2920     A     
 LEX      *         ENTRY  (B4) = ADDR OF 1ST KEYWORD TOKEN TO CHECK IN *T.TB*.            LEX         2921     A     
 LEX      *                (ZLEQUAL), (ZLCOMMA), AND (ZLPAREN) SET UP AS DESCRIBED         LEX         2922     A     
 LEX      *                ABOVE.                                                          LEX         2923     A     
 LEX      *                                                                                LEX         2924     A     
 LEX      *         EXIT   (TB=TYPE) = STMT TYPE INFORMATION WORD                          LEX         2925     A     
 LEX      *                (TB=1ST)  = ADDR OF 1ST NON-KEYWORD TOKEN IN *T.TB*.            LEX         2926     A     
 LEX      *                            I.E. ADDR OF 1ST TOKEN THAT A STMT                  LEX         2927     A     
 LEX      *                            PROCESSOR WILL BEGIN PROCESSING AT.                 LEX         2928     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         2929     A     
 LEX      *         USES   ALL BUT (A0)                                                    LEX         2930     A     
 LEX      *                                                                                LEX         2931     A     
 LEX      *         CALLS  CAK,IFBIT,SSY,TLV,WARN                                          LEX         2932     A     
 LEX                                                                                       LEX         2933     A     
 LEX                                                                                       LEX         2934     A     
 LEX       CST      SUBR   =           ** ENTRY/EXIT **                                    LEX         2935     A     
 LEX                SA1    TB=CDF                                                          LEX         2936     A     
 LEX                NZ     X1,CST7     IF C$ LINE                                          LEX         2937     A     
 LEX                                                                                       LEX         2938     A     
 LEX      *         INITIALIZATION.                                                        LEX         2939     A     
 LEX                                                                                       LEX         2940     A     
 LEX                SA5    B4          (X5) = TOKEN WE ARE TO TRY AND FIND                 LEX         2941     A     
 LEX      *                                   A KEYWORD MATCH FOR                          LEX         2942     A     
 LEX                BX6    X6-X6                                                           LEX         2943     A     
 LEX                SA4    ZLEQUAL     (X4) = ADDR IN *T.TB* OF LAST ZERO LVL *=*          LEX         2944     A     
 LEX                SA3    ZLCOMMA                                                         LEX         2945     A     
 LEX                SX2    X5-O.VAR                                                        LEX         2946     A     
 LEX                SX7    B4                                                              LEX         2947     A     
 LEX                MX1    2*CHAR                                                          LEX         2948     A     
 LEX                SA7    TB=1ST                                                          LEX         2949     A     
 LEX                SB5    UNTYP.                                                          LEX         2950     A     
 LEX                NZ     X2,CST8     IF NOT A *VAR* TOKEN, STMT IS BAD (UNTYPED)         LEX         2951     A     
 LEX                                                                                       LEX         2952     A     
 LEX      *         CHECK FOR *DO* STATEMENT.                                              LEX         2953     A     
 LEX                                                                                       LEX         2954     A     
 LEX                BX6    X1*X5       (X6) = 1ST 2 CHARS IN *VAR* TOKEN, -L- FMT          LEX         2955     A     
 LEX                IX7    X3-X4       (X7) = (ZLCOMMA) - (ZLEQUAL)                        LEX         2956     A     
 LEX                LX6    2*CHAR                                                          LEX         2957     A     
 LEX                SX2    X6-2RDO                                                         LEX         2958     A     
 LEX                NZ     X2,CST2     IF 1ST 2 CHARS NOT *DO*                             LEX         2959     A     
 LEX                ZR     X4,CST7     IF NO ZERO LEVEL *=* IN THIS STMT                   LEX         2960     A     
 LEX                MI     X7,CST5     IF ZERO LEVEL *,* NOT AFTER ZERO LVL *=*            LEX         2961     A     
 LEX                SB5    DO.                                                             LEX         2962     A     
 LEX                EQ     CST8                                                            LEX         2963     A     
 LEX                                                                                       LEX         2964     A     
 LEX      *         CHECK FOR *IF* STATEMENT.                                              LEX         2965     A     
 LEX                                                                                       LEX         2966     A     
 LEX       CST2     SX2    X6-2RIF                                                         LEX         2967     A     
 LEX                NZ     X2,CST5     IF 1ST 2 CHARS NOT *IF*                             LEX         2968     A     
 LEX                MX1    -5*CHAR                                                         LEX         2969     A     
 LEX                NO                                                                     LEX         2970     A     
 LEX                LX1    8*CHAR-5*CHAR                                                   LEX         2971     A     
 LEX                BX2    -X1*X5                                                          LEX         2972     A     
 LEX                NZ     X2,CST5     IF MORE THAN JUST *IF*                              LEX         2973     A     
 LEX                                                                                       LEX         2974     A     
 LEX      *         HERE IF KEYWORD IS *IF*.                                               LEX         2975     A     
 LEX      *                                                                                LEX         2976     A     
 LEX      *         CHECK FOR --                                                           LEX         2977     A     
 LEX      *                                                                                LEX         2978     A     
 LEX      *                IF(...)XXX                                                      LEX         2979     A     
 LEX      *                                                                                LEX         2980     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         WHERE *XXX* IS -                                                       LEX         2981     A     
 LEX      *                                                                                LEX         2982     A     
 LEX      *           A. *EOS* TOKEN.                                                      LEX         2983     A     
 LEX      *           B. *VAR* TOKEN.                                                      LEX         2984     A     
 LEX      *           C. *CONS* TOKEN.                                                     LEX         2985     A     
 LEX      *           D. *HOLL* TOKEN.                                                     LEX         2986     A     
 LEX                                                                                       LEX         2987     A     
 LEX                SA3    ZLPAREN     (X3) = ADDR OF 1ST ZERO LEVELING PAREN,             LEX         2988     A     
 LEX      *                                   ELSE .ZR. IF NONE (SEE PREAMBLE)             LEX         2989     A     
 LEX                SA2    B4+B1       (X2) = TOKEN THAT FOLLOWS *IF*                      LEX         2990     A     
 LEX                SB2    X3                                                              LEX         2991     A     
 LEX                SX7    X2-O.(                                                          LEX         2992     A     
 LEX                SX1    B2-B4                                                           LEX         2993     A     
 LEX                NZ     X7,CST5     IF NOT *IF(*                                        LEX         2994     A     
 LEX                ZR     X3,CST5     IF NO ZERO LEVELING PAREN, NOT *IF* STMT            LEX         2995     A     
 LEX                PL     X1,CST3     IF *IF(* IS BEFORE 1ST ZERO LEVELING PAREN          LEX         2996     A     
 LEX                                                                                       LEX         2997     A     
 LEX      *         HERE IF WE MUST BE TYPING AN *IF(* THAT IS THE OBJECT                  LEX         2998     A     
 LEX      *         OF AN *IF*.  I.E. *IF(...)IF(*.  IF THIS STMT CONTAINS                 LEX         2999     A     
 LEX      *         A ZERO LEVEL *=*, THEN *=* MUST BELONG TO OBJECT OF                    LEX         3000     A     
 LEX      *         *IF* AND OBJECT OF *IF* MUST BE REPLACEMENT STMT.                      LEX         3001     A     
 LEX      *                                                                                LEX         3002     A     
 LEX      *         E.G. --                                                                LEX         3003     A     
 LEX      *                DIMENSION IF(10)                                                LEX         3004     A     
 LEX      *                IF(...) IF(10)=0                                                LEX         3005     A     
 LEX                                                                                       LEX         3006     A     
 LEX                NZ     X4,CST5     IF ZERO LEVEL *=* PRESENT                           LEX         3007     A     
 LEX                EQ     CST4        STMT IS *IF*...                                     LEX         3008     A     
 LEX                                                                                       LEX         3009     A     
 LEX      *         CHECK 1ST TOKEN AFTER ZERO LEVELING RIGHT PAREN.                       LEX         3010     A     
 LEX                                                                                       LEX         3011     A     
 LEX       CST3     SA2    X3+1        (X2) = TOKEN THAT FOLLOWS ZERO LVLING PAREN         LEX         3012     A     
 LEX                SX7    X2-O.SEP                                                        LEX         3013     A     
 LEX                PL     X7,CST5     IF TOKEN IS NOT POSSIBLE IN *IF* STMT               LEX         3014     A     
 LEX                                                                                       LEX         3015     A     
 LEX       CST4     SB5    IF.                                                             LEX         3016     A     
 LEX                EQ     CST8                                                            LEX         3017     A     
 LEX                                                                                       LEX         3018     A     
 LEX      *         CHECK FOR REPLACEMENT STATEMENT.                                       LEX         3019     A     
 LEX                                                                                       LEX         3020     A     
 LEX       CST5     ZR     X4,CST7     IF NO ZERO LEVEL *=*, NOT REPLACEMENT...            LEX         3021     A     
 LEX                SA1    B4+1        (X1) = TOKEN FOLLOWING *VAR* TOKEN                  LEX         3022     A     
 LEX                SB5    REP.                                                            LEX         3023     A     
 LEX                SX6    X1-O.VAR                                                        LEX         3024     A     
 LEX                NZ     X6,CST6     IF NOT A LONG NAME (NR CHARS .LE. 7)                LEX         3025     A     
 LEX                CALL   TLV         TRUNCATE LONG VARIABLE NAME                         LEX         3026     A     
 LEX                SX6    B4                                                              LEX         3027     A     
 LEX                SA6    TB=1ST                                                          LEX         3028     A     
 LEX                                                                                       LEX         3029     A     
 LEX      *         DISTINGUISH BETWEEN --                                                 LEX         3030     A     
 LEX      *                                                                                LEX         3031     A     
 LEX      *           1. SIMPLE REPLACEMENT.                                               LEX         3032     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              E.G.  DOG = CAT                                                   LEX         3033     A     
 LEX      *                                                                                LEX         3034     A     
 LEX      *           2. ARRAY REPLACEMENT.                                                LEX         3035     A     
 LEX      *              E.G.  DIMENSION DOG(10)                                           LEX         3036     A     
 LEX      *                    DOG(10) = CAT                                               LEX         3037     A     
 LEX      *                                                                                LEX         3038     A     
 LEX      *           3. ASF DEFINITION.                                                   LEX         3039     A     
 LEX      *              E.G.  DOG(10) = CAT                                               LEX         3040     A     
 LEX      *                                                                                LEX         3041     A     
 LEX      *           4. CHARACTER SUBTRING ASSIGNMENT.                                    LEX         3042     A     
 LEX      *              E.G.  CHAR(1:5) = 'HORNS'                                         LEX         3043     A     
 LEX                                                                                       LEX         3044     A     
 LEX                SA1    B4+B1                                                           LEX         3045     A     
 LEX                                                                                       LEX         3046     A     
 LEX       CST6     MX2    WA.SYML                                                         LEX         3047          I
          -FC5A110
 LEX       CST6     SB5    REP.                                                            FC5A110       26     A     
 LEX                SA3    STAGE                                                           FC5A110       27     A     
 LEX                SX6    FEC=EXU                                                         FC5A110       28     A     
 LEX                IX6    X3-X6                                                           FC5A110       29     A     
 LEX                ZR     X6,CST8     IF IN EXECUTABLES                                   FC5A110       30     A     
 LEX                MX2    WA.SYML                                                         FC5A110       31     A     
 LEX                SX3    X1-O.(                                                          LEX         3048     A     
 LEX                BX6    X2*X5       (X6) = 1ST 7 CHARS OF *VAR* TOKEN, -L- FMT          LEX         3049     A     
 LEX                NZ     X3,CST8     IF *VAR* NOT FOLLOWED BY *(*, NOT ARRAY/ASF         LEX         3050     A     
 LEX                                                                                       LEX         3051          I
          -FC50170
 LEX                HX1    TB.COL                                                          FC50170        5     A     
 LEX                MI     X1,CST8     IF ( CONTAINS COLON, IS REPL.                       FC50170        6     A     
 LEX                CALL   SSY         SCAN SYMBOL TABLE                                   LEX         3052     A     
 LEX                SB5    STF.                                                            LEX         3053          I
          -FC50170
 LEX                MI     B7,CST8     IF NOT IN SYMBOL TABLE, MUST BE STMT FUNCT          LEX         3054          I
          -FC50170
 LEX                SB5    REP.                                                            LEX         3055     A     
 LEX                LX2    0-WB.MODEP                                                      LEX         3056          I
          -FC50170
 LEX                MX3    -WB.MODEL                                                       LEX         3057          I
          -FC50170
 LEX                BX4    -X3*X2      EXTRACT *MODE*                                      LEX         3058          I
          -FC50170
 LEX                LX2    WB.MODEP-0                                                      LEX         3059          I
          -FC50170
 LEX                SBIT   X2,WB.ARYP                                                      LEX         3060     A     
 LEX                MI     X2,CST8     IF AN ARRAY, MUST BE REP.                           LEX         3061     A     
 LEX                SX7    X4-M.CHAR                                                       LEX         3062          I
          -FC50170
 LEX                SB5    STF.                                                            LEX         3063     A     
 LEX                NZ     X7,CST8     IF NOT TYPE CHARACTER, MUST BE STMT FUNCT           LEX         3064          I
          -FC50170
 LEX                                                                                       LEX         3065          I
          -FC50170
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA1    ZLCOLON                                                         LEX         3066          I
          -FC50170
 LEX                SA2    ZLEQUAL                                                         LEX         3067          I
          -FC50170
 LEX                ZR     X1,CST8     IF NO ZERO LEVEL COLON IN STATEMENT                 LEX         3068          I
          -FC50170
 LEX                IX7    X1-X2                                                           LEX         3069          I
          -FC50170
 LEX                NO                                                                     LEX         3070          I
          -FC50170
 LEX                PL     X7,CST8     IF NOT *CHARACTER* SUBSTRING ASSIGNMENT             LEX         3071          I
          -FC50170
 LEX                SB5    REP.                                                            LEX         3072          I
          -FC50170
 LEX                EQ     CST8                                                            LEX         3073     A     
 LEX                                                                                       LEX         3074     A     
 LEX      *         HERE TO SCAN FTN KEYWORD TABLE.                                        LEX         3075     A     
 LEX                                                                                       LEX         3076     A     
 LEX       CST7     SA1    TB=CDF      C$ FLAG                                             LEX         3077     A     
 LEX                SA2    X1+FW.KEYS                                                      LEX         3078     A     
 LEX                SA3    X1+L.KEYS                                                       LEX         3079     A     
 LEX                SB6    X2                                                              LEX         3080     A     
 LEX                SB7    X3                                                              LEX         3081     A     
 LEX                RJ     CAK         CHECK AND ADJUST KEYWORD                            LEX         3082     A     
 LEX                SB5    UNTYP.                                                          LEX         3083     A     
 LEX                ZR     B7,CST8     IF NO FIND IN FTN KEYWORD TABLE                     LEX         3084     A     
 LEX                PL     B7,CST10    IF KEYWORD SPELLED OK                               LEX         3085     A     
 LEX                                                                                       LEX         3086     A     
 LEX      *         HERE TO LOAD UP A SPECIAL *KEYW* ENTRY, I.E. ONE THAT IS               LEX         3087     A     
 LEX      *         NOT IN THE FTN KEYWORD TABLE.                                          LEX         3088     A     
 LEX                                                                                       LEX         3089     A     
 LEX       CST8     SA5    B5+                                                             LEX         3090     A     
 LEX                NO                                                                     LEX         3091     A     
 LEX                BX6    X5                                                              LEX         3092     A     
 LEX                                                                                       LEX         3093     A     
 LEX      *         FINAL PROCESSING.                                                      LEX         3094     A     
 LEX      *                                                                                LEX         3095     A     
 LEX      *           1. SAVE STATEMENT TYPE *KEYW* ENTRY IN (TB=TYPE).                    LEX         3096     A     
 LEX      *                                                                                LEX         3097     A     
 LEX      *           2. SET (TB=1ST) = ADDR OF 1ST NON-KEYWORD TOKEN.                     LEX         3098     A     
 LEX                                                                                       LEX         3099     A     
 LEX       CST10    SX7    B4+                                                             LEX         3100     A     
 LEX                SA6    TB=TYPE                                                         LEX         3101     A     
 LEX                SA7    TB=1ST                                                          LEX         3102     A     
 LEX                EQ     EXIT.                                                           LEX         3103     A     
 LEX       PLR      SPACE  4,40                                                            LEX         3104     A     
 LEX      **        PLR - PROCESS LISTING REQUEST.                                         LEX         3105     A     
 LEX      *                                                                                LEX         3106     A     
 LEX      *                                                                                LEX         3107     A     
 LEX      *         *PLR* IS CONCERNED WITH MAKING SOME VERY IMPORTANT DECISIONS           LEX         3108     A     
 LEX      *         ABOUT WHAT TO DO ABOUT THE SOURCE LINE AT *CP.FLIN/CP.CARD*            LEX         3109     A     
 LEX      *         ET SEQ.  AS *PLR*S NAME IMPLIES, THIS USUALLY HAS SOMETHING TO         LEX         3110     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         DO WITH LISTING...BUT NOT ALWAYS.                                      LEX         3111     A     
 LEX      *                                                                                LEX         3112     A     
 LEX      *         *PLR* IS PRIMARILY CONCERNED, NOT WITH LISTING, BUT WITH               LEX         3113     A     
 LEX      *         FREEING UP *CP.CARD* ET SEQ FOR A NEW SOURCE LINE THE NEXT             LEX         3114     A     
 LEX      *         TIME WE READ VIA *RNC* (READ NEXT CARD).  *PLR* USUALLY                LEX         3115     A     
 LEX      *         ENDS UP MOVING THE SOURCE LINE AT *CP.FLIN/CP.CARD* TO                 LEX         3116     A     
 LEX      *         *T.STMT* (STMT/DEFERRED LIST BUFFER)...BUT NOT ALWAYS.                 LEX         3117     A     
 LEX      *                                                                                LEX         3118     A     
 LEX      *         THIS COMMENTARY IS REALLY MORE AT A WARNING THAN INFORMATIVE.          LEX         3119     A     
 LEX      *         LISTING/LINE LOGIC CAN BE VERY PATHOLOGICAL WITHOUT EVEN               LEX         3120     A     
 LEX      *         TRYING.  I MADE AN ATTEMPT TO DEAL WITH THIS IN THE *LEX*              LEX         3121     A     
 LEX      *         IMS.  THAT'S WHERE TO GO...                                            LEX         3122     A     
 LEX      *                                                                                LEX         3123     A     
 LEX      *                                                                                LEX         3124     A     
 LEX      *         ENTRY  A VARIETY OF CELLS/FLAGS, SOME GLOBAL, SOME LOCAL.              LEX         3125     A     
 LEX      *                FOLLOWING IS A BRIEF LIST.  SEE APPROPRIATE CELL                LEX         3126     A     
 LEX      *                DEFINITION FOR MORE INFORMATION.                                LEX         3127     A     
 LEX      *                                                                                LEX         3128     A     
 LEX      *                GLOBAL --                                                       LEX         3129     A     
 LEX      *                                                                                LEX         3130     A     
 LEX      *                *CP.FLIN/CP.CARD* IS THE INPUT LINE IMAGE AREA.                 LEX         3131     A     
 LEX      *                                                                                LEX         3132     A     
 LEX      *                (L.CARD)  = NR OF WORDS IN *CP.FLIN/CP.CARD*.                   LEX         3133     A     
 LEX      *                                                                                LEX         3134     A     
 LEX      *                (CO.SEQ)  = .NZ. IF IN *SEQ* MODE, ELSE .ZR.                    LEX         3135     A     
 LEX      *                                                                                LEX         3136     A     
 LEX      *                (WO.LOS)  = WORKING SOURCE LISTING FLAG.                        LEX         3137     A     
 LEX      *                          = .NZ. IF LISTING SELECTED, ELSE .ZR.                 LEX         3138     A     
 LEX      *                                                                                LEX         3139     A     
 LEX      *                (CARDS)   = NR OF CARDS/LINES READ, I.E. SOURCE LINE            LEX         3140     A     
 LEX      *                            NR IN BINARY.                                       LEX         3141     A     
 LEX      *                                                                                LEX         3142     A     
 LEX      *                LOCAL --                                                        LEX         3143     A     
 LEX      *                                                                                LEX         3144     A     
 LEX      *                (LN=XXX) ARE A GROUP OF CELLS THAT CONTAIN INFORMATION          LEX         3145     A     
 LEX      *                         ABOUT THE CURRENT SOURCE LINE AT *CP.CARD*.            LEX         3146     A     
 LEX      *                                                                                LEX         3147     A     
 LEX      *                (SB=XXX) ARE A GROUP OF CELLS THAT CONTAIN INFORMATION          LEX         3148     A     
 LEX      *                         ABOUT *T.STMT* (STMT/DEFERRED LIST BUFFER).            LEX         3149     A     
 LEX      *                                                                                LEX         3150     A     
 LEX      *         EXIT   *T.STMT* SET UP, IF APPROPRIATE.                                LEX         3151     A     
 LEX      *                LINE LISTED, IF APPROPRIATE.                                    LEX         3152     A     
 LEX      *                                                                                LEX         3153     A     
 LEX      *         USES   ALL                                                             LEX         3154     A     
 LEX      *                                                                                LEX         3155     A     
 LEX      *         CALLS  ALLOC,LDB,LSL,MOVE,ZTB                                          LEX         3156     A     
 LEX                                                                                       LEX         3157     A     
 LEX                                                                                       LEX         3158     A     
 LEX       PLR      SUBR               ** ENTRY/EXIT **                                    LEX         3159     A     
 LEX                                                                                       LEX         3160     A     
 LEX      *         SET UP LINE NUMBER FOR LISTING PURPOSES IN NON-SEQ MODE --             LEX         3161     A     
 LEX      *                                                                                LEX         3162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *           IF IN LIST MODE (L.NE.0 .AND. C/-LIST,ALL ACTIVE) AND --             LEX         3163     A     
 LEX      *                                                                                LEX         3164     A     
 LEX      *             1. IF THIS LINE NR IS A MULTIPLE OF 5, OR                          LEX         3165     A     
 LEX      *             2. IF THIS LINE IS A C/-LIST LINE, OR                              LEX         3166     A     
 LEX      *             3. IF (CO.SNAP) .NZ. IN *TEST* MODE.                               LEX         3167     A     
 LEX      *                                                                                LEX         3168     A     
 LEX      *           IF IN DEFERRED LIST MODE (L=0 .OR. C/-LIST,NONE ACTIVE) AND          LEX         3169     A     
 LEX      *                                                                                LEX         3170     A     
 LEX      *             1. IF THIS IS INITIAL LINE OF STATEMENT, OR                        LEX         3171     A     
 LEX      *             2. IF NOT INITIAL LINE OF STMT .AND. LINE NR IS MULTIPLE           LEX         3172     A     
 LEX      *                OF 5.                                                           LEX         3173     A     
 LEX      *                                                                                LEX         3174     A     
 LEX      *         NOTE: ALL THIS HOO DAH DAH IS SKIPPED FOR NOW... WE ARE                LEX         3175     A     
 LEX      *         TRYING TO DECIDE WHETHER WE LIKE A SOURCE LISTING THAT                 LEX         3176     A     
 LEX      *         UNCONDITIONALLY HAS A COMPILER-GENERATED LINE NUMBER ON                LEX         3177     A     
 LEX      *         EACH SOURCE LINE (NON-SEQ ONLY).                                       LEX         3178     A     
 LEX                                                                                       LEX         3179     A     
 LEX                SA1    CO.SEQ                                                          LEX         3180     A     
 LEX                SA2    =10H                                                            LEX         3181     A     
 LEX                NO                                                                     LEX         3182     A     
 LEX                BX6    X2                                                              LEX         3183     A     
 LEX                NZ     X1,PLR4     IF *SEQ* MODE INPUT                                 LEX         3184          I
          -FC50761
 LEX                NZ     X1,PLR40    IF *SEQ* MODE INPUT                                 FC50761        9     A     
 LEX                                                                                       LEX         3185     A     
 LEX       .LINR    SKIP                                                                   LEX         3186     A     
 LEX       .T       IFEQ   TEST,ON                                                         LEX         3187     A     
 LEX                SA1    CO.SNAP                                                         LEX         3188     A     
 LEX                NZ     X1,PLR3     IF ANY SNAP IS ON, FORCE OUT LINE NR                LEX         3189          I
          -FC50761
 LEX                NZ     X1,PLR30    IF ANY SNAP IS ON, FORCE OUT LINE NR                FC50761       10     A     
 LEX       .T       ENDIF                                                                  LEX         3190     A     
 LEX                                                                                       LEX         3191     A     
 LEX                SA1    SLIST                                                           LEX         3192     A     
 LEX                SA2    WO.LOS      (X2) = WORKING SOURCE LIST FLAG                     LEX         3193     A     
 LEX                SA3    LN=TYPE                                                         LEX         3194     A     
 LEX                BX1    X1*X2       (X1) = .NZ. IF LISTING THIS LINE, ELSE .ZR.         LEX         3195     A     
 LEX                SX7    X3-LT.INIT                                                      LEX         3196     A     
 LEX                NZ     X1,PLR2     IF LISTING THIS LINE                                LEX         3197          I
          -FC50761
 LEX                ZR     X7,PLR3     IF INITIAL LINE OF STMT .AND. NOT LISTING           LEX         3198          I
          -FC50761
 LEX                NZ     X1,PLR20    IF LISTING THIS LINE                                FC50761       11     A     
 LEX                ZR     X7,PLR30    IF INITIAL LINE OF STMT .AND. NOT LISTING           FC50761       12     A     
 LEX                                                                                       LEX         3199     A     
 LEX       PLR2     BSS    0                                                               LEX         3200          I
          -FC50761
 LEX       PLR20    BSS    0                                                               FC50761       13     A     
 LEX                SA1    CARDS       (X1) = LINE NR (IN BINARY)                          LEX         3201     A     
 LEX                SX2    146315B     (X2) = MAGIC NR FOR SENSING MULTIPLES OF 5          LEX         3202     A     
 LEX                SX3    5                                                               LEX         3203     A     
 LEX                IX7    X1*X2                                                           LEX         3204     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                AX7    18                                                              LEX         3205     A     
 LEX                IX2    X7*X3                                                           LEX         3206     A     
 LEX                IX3    X1-X2                                                           LEX         3207     A     
 LEX                NZ     X3,PLR4     IF LINE NR IS NOT MULTIPLE OF 5                     LEX         3208          I
          -FC50761
 LEX                NZ     X3,PLR40    IF LINE NR IS NOT MULTIPLE OF 5                     FC50761       14     A     
 LEX       .LINR    ENDIF                                                                  LEX         3209     A     
 LEX                                                                                       LEX         3210     A     
 LEX       PLR3     SA1    LN=NUMR     (X1) = LINE NR, IN -R- FORMAT                       LEX         3211          I
          -FC50761
 LEX       PLR30    SA1    LN=NUMR     (X1) = LINE NR, IN -R- FORMAT                       FC50761       15     A     
 LEX                CALL   ZTB         CONVERT ZEROES TO BLANKS                            LEX         3212     A     
 LEX                                                                                       LEX         3213     A     
 LEX       PLR4     LX6    CHAR        (X6) = ......NNN.  (.=BLANK(55B),N=LINE NR)         LEX         3214          I
          -FC50761
 LEX                SA6    CP.FLIN                                                         LEX         3215          I
          -FC50761
 LEX       PLR40    SA1    STAGE       CHECK IF LINE COMPILED                              FC50761       16     A     
 LEX                LX6    CHAR                                                            FC50761       17     A     
 LEX                SX2    FEC=BY      BYPASS FLAG                                         FC50761       18     A     
 LEX                IX1    X1-X2                                                           FC50761       19     A     
 LEX                NZ     X1,PLR41    IF COMPILED                                         FC50761       20     A     
 LEX                SX2    2R--                                                            FC50761       21     A     
 LEX                LX2    42                                                              FC50761       22     A     
 LEX                MX0    12                                                              FC50761       23     A     
 LEX                EQ     PLR43       GO STORE                                            FC50761       24     A     
 LEX                                                                                       FC50761       25     A     
 LEX       PLR41    SA1    IFLEVEL     GET CURRENT IF LEVEL                                FC50761       26     A     
 LEX                ZR     X1,PLR44    IF ZERO                                             FC50761       27     A     
 LEX                SX2    X1-100D                                                         FC50761       28     A     
 LEX                PL     X2,PLR42    IF GREATER THAN 99                                  FC50761       29     A     
 LEX                BX5    X6                                                              FC50761       30     A     
 LEX                RJ     CDD         CONVERT LEVEL                                       FC50761       31     A     
 LEX                MX0    12                                                              FC50761       32     A     
 LEX                LX6    42                                                              FC50761       33     A     
 LEX                LX0    -6                                                              FC50761       34     A     
 LEX                BX6    X0*X6       MASK TWO DIGITS                                     FC50761       35     A     
 LEX                BX5    -X0*X5                                                          FC50761       36     A     
 LEX                BX6    X5+X6       MERGE IF LEVEL AND LINE NR                          FC50761       37     A     
 LEX                EQ     PLR44                                                           FC50761       38     A     
 LEX                                                                                       FC50761       39     A     
 LEX       PLR42    SX2    3R99+       INDICATE IF LEVEL > 99                              FC50761       40     A     
 LEX                LX2    36                                                              FC50761       41     A     
 LEX                MX0    18                                                              FC50761       42     A     
 LEX                                                                                       FC50761       43     A     
 LEX       PLR43    LX0    -6                                                              FC50761       44     A     
 LEX                BX2    X0*X2                                                           FC50761       45     A     
 LEX                BX6    -X0*X6                                                          FC50761       46     A     
 LEX                BX6    X2+X6       MERGE 99+ AND LINE NR                               FC50761       47     A     
 LEX                                                                                       FC50761       48     A     
 LEX       PLR44    SA6    CP.FLIN                                                         FC50761       49     A     
 LEX                                                                                       LEX         3216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 764    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         DECIDE WHETHER TO MOVE LINE AT *CP.FLIN/CP.CARD* TO *T.STMT*.          LEX         3217     A     
 LEX      *                                                                                LEX         3218     A     
 LEX      *         LINE IS MOVED TO *T.STMT* ACCORDING TO THE FOLLOWING                   LEX         3219     A     
 LEX      *         RULES --                                                               LEX         3220     A     
 LEX      *                                                                                LEX         3221     A     
 LEX      *           1. IF NOT IN *HEADER DELAY* MODE (*LEXFLG/LF.HDR* OFF,               LEX         3222     A     
 LEX      *              I.E. THE MOST FREQUENT CASE), ALL NON-COMMENT LINES               LEX         3223     A     
 LEX      *              ARE MOVED TO *T.STMT*.                                            LEX         3224     A     
 LEX      *                                                                                LEX         3225     A     
 LEX      *           2. IF IN *HEADER DELAY* MODE, AN ATTEMPT IS MADE TO SAVE             LEX         3226     A     
 LEX      *              ALL LINES IN *T.STMT*.  AS FAR AS *PLR* IS CONCERNED,             LEX         3227     A     
 LEX      *              THIS EFFORT IS THWARTED ONLY WHEN THE NR OF LINES                 LEX         3228     A     
 LEX      *              IN *T.STMT* EXCEEDS *MAX.LINC*.                                   LEX         3229     A     
 LEX      *                                                                                LEX         3230     A     
 LEX      *              SEE *LEXFLG/LF.HDR* FOR MORE INFORMATION.                         LEX         3231     A     
 LEX                                                                                       LEX         3232     A     
 LEX                SA1    LEXFLG                                                          LEX         3233     A     
 LEX                SA2    LN=TYPE                                                         LEX         3234     A     
 LEX                SA3    SB=LINC     (X3) = NR OF LINES IN *T.STMT*                      LEX         3235     A     
 LEX                LX1    59-LF.HDRP                                                      LEX         3236     A     
 LEX                SX6    X2-LT.CMNT                                                      LEX         3237     A     
 LEX                SX7    X2-LT.NULL                                                      LEX         3238     A     
 LEX                MI     X1,PLR5     IF IN *HEADER DELAY* MODE                           LEX         3239          I
          -FC50243
 LEX                MI     X1,PLR6     IF IN *HEADER DELAY* MODE                           FC50243        8          I
          -FC50761
 LEX                MI     X1,PLR60    IF IN *HEADER DELAY* MODE                           FC50761       50     A     
 LEX                ZR     X6,PLR7     IF LINE IS COMMENT                                  LEX         3240          I
          -FC50761
 LEX                ZR     X7,PLR7     IF LINE IS BLANK/NULL/COMMENT                       LEX         3241          I
          -FC50761
 LEX                ZR     X6,PLR70    IF LINE IS COMMENT                                  FC50761       51     A     
 LEX                ZR     X7,PLR70    IF LINE IS BLANK/NULL/COMMENT                       FC50761       52     A     
 LEX                                                                                       LEX         3242          I
          -FC50243
 LEX       PLR5     SX6    X3-MAX.LINC                                                     LEX         3243          I
          -FC50243
 LEX                MI     X6,PLR6     IF *T.STMT* NOT FULL                                LEX         3244          I
          -FC50243
 LEX                RJ     LDB         LIST DEFERRED BUFFER                                LEX         3245          I
          -FC50243
 LEX                                                                                       LEX         3246     A     
 LEX      *         HERE TO MOVE LINE AT *CP.FLIN* ET SEQ TO *T.STMT*.                     LEX         3247     A     
 LEX      *                                                                                LEX         3248     A     
 LEX      *           1. ALLOCATE ENOUGH SPACE IN *T.STMT* FOR SAVED LINE.                 LEX         3249     A     
 LEX      *              THE NR OF WORDS TO ALLOCATE IS DETERMINED BY TAKING               LEX         3250     A     
 LEX      *              THE SUM OF THE FOLLOWING --                                       LEX         3251     A     
 LEX      *                                                                                LEX         3252     A     
 LEX      *             A. THE CONTENTS OF *L.CARD*, WHICH CONTAINS THE NR                 LEX         3253     A     
 LEX      *                OF WORDS IN THIS SOURCE LINE, AS DETERMINED BY *RNC*            LEX         3254     A     
 LEX      *                (READ NEXT CARD).                                               LEX         3255     A     
 LEX      *                                                                                LEX         3256     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *             B. + CP.CARD-CP.FLIN, WHICH REFLECTS THE PRINT LINE                LEX         3257     A     
 LEX      *                IMAGE AREA USED FOR SPACING AND THE COMPILER-GENERATED          LEX         3258     A     
 LEX      *                LINE NR.                                                        LEX         3259     A     
 LEX      *                                                                                LEX         3260     A     
 LEX      *             C. + 1, FOR THE *LINE INFORMATION* HEADER WORD THAT                LEX         3261     A     
 LEX      *                EVERY LINE IN *T.STMT* IS PREFIXED WITH.                        LEX         3262     A     
 LEX      *                                                                                LEX         3263     A     
 LEX      *           2. SET UP THE *LINE INFORMATION* HEADER WORD TO CONTAIN --           LEX         3264     A     
 LEX      *                                                                                LEX         3265     A     
 LEX      *             A. THE NR OF WORDS IN THIS *T.STMT* LINE ENTRY.                    LEX         3266     A     
 LEX      *                                                                                LEX         3267     A     
 LEX      *             B. THE *LINE TYPE*, (LN=TYPE), OF THIS LINE.                       LEX         3268     A     
 LEX      *                                                                                LEX         3269     A     
 LEX      *             C. THE POSITION OF THE 1ST ENTOKENABLE CHARACTER ON                LEX         3270     A     
 LEX      *                THIS LINE, (LN=FEN), (LN=FENB), (LN=FENL).                      LEX         3271     A     
 LEX      *                                                                                LEX         3272     A     
 LEX      *           3. MOVE THE LINE AT *CP.FLIN* ET SEQ TO *T.STMT*.                    LEX         3273     A     
 LEX                                                                                       LEX         3274     A     
 LEX       PLR6     SA1    L.CARD      (X1) = NR OF WORDS IN SOURCE LINE                   LEX         3275          I
          -FC50761
 LEX       PLR60    SA1    L.CARD      (X1) = NR OF WORDS IN SOURCE LINE                   FC50761       53     A     
 LEX                SB2    CP.FLIN     (B2) = FWA OF LISTABLE SOURCE LINE AREA             LEX         3276     A     
 LEX                SB3    CP.CARD     (B3) = FWA OF SCANNABLE SOURCE LINE                 LEX         3277     A     
 LEX                SB4    B3-B2                                                           LEX         3278     A     
 LEX                SB5    B4+X1       (B5) = NR OF WORDS IN LISTABLE SOURCE LINE          LEX         3279     A     
 LEX      *                                   AREA (INCLUDES FULL WORD EOL MARK)           LEX         3280     A     
 LEX                SB6    B5+B1       (B6) = NR OF WORDS TO ALLOCATE                      LEX         3281     A     
 LEX                ALLOC  T.STMT,B6                                                       LEX         3282     A     
 LEX                SA3    LN=TYPE                                                         LEX         3283     A     
 LEX                SX6    B6                                                              LEX         3284     A     
 LEX                SB4    B7-B6                                                           LEX         3285     A     
 LEX                LX6    SB.LENP-0                                                       LEX         3286     A     
 LEX                SX7    B4                                                              LEX         3287     A     
 LEX                LX3    SB.LNTP-0                                                       LEX         3288     A     
 LEX                BX6    X6+X3       MERGE *LNT*                                         LEX         3289     A     
 LEX                IX7    X7-X1       (X7) = ORD OF *LINE INFO* HEADER WORD               LEX         3290     A     
 LEX                SA1    LN=FEN      (X1) = ORD, RELATIVE TO *CP.FLIN*, OF WORD          LEX         3291     A     
 LEX      *                                   CONTAINING 1ST ENTOKENABLE CHAR              LEX         3292     A     
 LEX                SA2    LN=FENB     (X2) = BIT POSITION OF 1ST ENTOKENABLE CHAR         LEX         3293     A     
 LEX                SA3    LN=FENL     (X3) = NR OF BITS, RELATIVE TO *FEN/FENB*,          LEX         3294     A     
 LEX      *                                   IN THIS SOURCE LINE                          LEX         3295     A     
 LEX                IX4    X7+X1                                                           LEX         3296     A     
 LEX                LX2    SB.FENBP-0                                                      LEX         3297     A     
 LEX                SX4    X4+B1       (X4) = ORD, RELATIVE TO *T.STMT*, OF FEN            LEX         3298     A     
 LEX                BX6    X6+X2       MERGE *FENB*                                        LEX         3299     A     
 LEX                LX3    SB.FENLP-0                                                      LEX         3300     A     
 LEX                BX6    X6+X3       MERGE *FENL*                                        LEX         3301     A     
 LEX                LX4    SB.FENP-0                                                       LEX         3302     A     
 LEX                BX6    X6+X4       MERGE *FEN*                                         LEX         3303     A     
 LEX                SA7    SB=LORD                                                         LEX         3304     A     
 LEX                SA6    B4                                                              LEX         3305     A     
 LEX                                                                                       LEX         3306     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         MOVE THE LINE AT *CP.FLIN* ET SEQ TO *T.STMT*.                         LEX         3307     A     
 LEX                                                                                       LEX         3308     A     
 LEX                SX1    B5          (X1) = COUNT                                        LEX         3309     A     
 LEX                SX2    CP.FLIN     (X2) = FROM                                         LEX         3310     A     
 LEX                SX3    B4+B1       (X3) = TO                                           LEX         3311     A     
 LEX                MOVE   X1,X2,X3                                                        LEX         3312     A     
 LEX                                                                                       LEX         3313     A     
 LEX                SA1    SB=LINC                                                         LEX         3314     A     
 LEX                SX6    X1+B1                                                           LEX         3315     A     
 LEX                SA6    A1                                                              LEX         3316     A     
 LEX                                                                                       LEX         3317     A     
 LEX      *         LIST SOURCE LINE AT *CP.FLIN* ET SEQ --                                LEX         3318     A     
 LEX      *                                                                                LEX         3319     A     
 LEX      *           1. IF NOT IN *HEADER DELAY* MODE, .AND.                              LEX         3320     A     
 LEX      *                                                                                LEX         3321     A     
 LEX      *           2. IF IN *LIST* MODE (L.NE.0, SL.NE.0, C$-LIST,ALL ACTIVE).          LEX         3322     A     
 LEX      *                                                                                LEX         3323     A     
 LEX      *         ALSO NEED TO SET *SB.LOUTP* BIT IN *LINE INFORMATION*                  LEX         3324     A     
 LEX      *         HEADER WORD FOR LINE TO LIST.                                          LEX         3325     A     
 LEX                                                                                       LEX         3326     A     
 LEX       PLR7     SA1    WO.LOS                                                          LEX         3327          I
          -FC50761
 LEX       PLR70    SA1    WO.LOS                                                          FC50761       54     A     
 LEX                SA3    LEXFLG                                                          LEX         3328     A     
 LEX                SA4    LN=TYPE                                                         LEX         3329     A     
 LEX                LX3    59-LF.HDRP                                                      LEX         3330     A     
 LEX                ZR     X1,EXIT.    IF NOT LISTING THIS SOURCE LINE                     LEX         3331     A     
 LEX                MI     X3,EXIT.    IF IN *HEADER DELAY* MODE, DONT LIST NOW...         LEX         3332     A     
 LEX                SX6    X4-LT.CMNT                                                      LEX         3333     A     
 LEX                ZR     X6,PLR8     IF COMMENT LINE, IT CANT BE IN *T.STMT*...          LEX         3334          I
          -FC50761
 LEX                ZR     X6,PLR80    IF COMMENT LINE, IT CANT BE IN T.STMT ...           FC50761       55     A     
 LEX                                                                                       LEX         3335     A     
 LEX                SA1    T.STMT                                                          LEX         3336     A     
 LEX                SA2    SB=LORD                                                         LEX         3337     A     
 LEX                IX6    X1+X2       (X6) = ADDR OF *LINE INFO* WORD FOR LINE            LEX         3338     A     
 LEX                MX7    1                                                               LEX         3339     A     
 LEX                SA3    X6          (X3) = *LINE INFO* WORD                             LEX         3340     A     
 LEX                LX7    SB.LOUTP-59                                                     LEX         3341     A     
 LEX                BX6    X3+X7       SET TO *LINE HAS BEEN LISTED*                       LEX         3342     A     
 LEX                SA6    A3                                                              LEX         3343     A     
 LEX                                                                                       LEX         3344     A     
 LEX       PLR8     SX1    CP.FLIN                                                         LEX         3345          I
          -FC50761
 LEX       PLR80    SX1    CP.FLIN                                                         FC50761       56     A     
 LEX                SA2    L.CARD                                                          LEX         3346     A     
 LEX                =X4    X2+2-1      LENGTH INC. LINE# AND BLANK LESS EOL                LEX         3347     A     
 LEX                RJ     LSL         LIST SOURCE LINE                                    LEX         3348     A     
 LEX                EQ     EXIT.                                                           LEX         3349     A     
 LEX       RNC      SPACE  4,8                                                             LEX         3350     A     
 LEX      **        RNC - READ NEXT CARD.                                                  LEX         3351     A     
 LEX      *                                                                                LEX         3352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         3353     A     
 LEX      *         READS A SINGLE SOURCE LINE FROM THE INPUT BUFFER *F.IN*                LEX         3354     A     
 LEX      *         TO THE SOURCE LINE IMAGE AREA *CP.CARD*.  ALSO GUARANTEES              LEX         3355     A     
 LEX      *         THAT, ON EXIT, THE EOL MARK IS ON A WORD BOUNDARY BY                   LEX         3356     A     
 LEX      *         APPROPRIATELY BLANK FILLING THE LAST WORD OF THE LINE IMAGE            LEX         3357     A     
 LEX      *         AND STORING A FULL ZERO WORD EOL MARK AFTER IT.                        LEX         3358     A     
 LEX      *                                                                                LEX         3359     A     
 LEX      *         ENTRY  (B1)     =  1                                                   LEX         3360     A     
 LEX      *                CIO ONLY - INITIAL *READ* ISSUED                                LEX         3361     A     
 LEX      *                RM  ONLY - FILE TABLES INITIALIZED                              LEX         3362     A     
 LEX      *                (LEXMODE)=  LEXICAL SCANNER MODE FLAG WHICH INDICATES           LEX         3363     A     
 LEX      *                            TO *RNC* WHETHER OR NOT HE IS TO ACTUALLY           LEX         3364     A     
 LEX      *                            PERFORM A *READC*.  SEE *LEXMODE* FOR               LEX         3365     A     
 LEX      *                            DETAILS.                                            LEX         3366     A     
 LEX      *                (CP.IFMT)=  +0 IF NORMAL UNCOMPRESSED INPUT                     LEX         3367     A     
 LEX      *                         =   1 IF MODIFY COMPRESSED INPUT (UNSUPPORTED)         LEX         3368     A     
 LEX      *                         =   2 IF UPDATE COMPRESSED INPUT (UNSUPPORTED)         LEX         3369     A     
 LEX      *                                                                                LEX         3370     A     
 LEX      *         EXIT   (B1)     =  1                                                   LEX         3371     A     
 LEX      *                (CP.IFMT) = 1S59 IF EOR/EOF/EOI ENCOUNTERED, ELSE               LEX         3372     A     
 LEX      *                              AS ON ENTRY.                                      LEX         3373     A     
 LEX      *                (CP.CARD) = .ZR. IF EOR/EOF/EOI ENCOUNTERED, ELSE 1ST           LEX         3374     A     
 LEX      *                              WORD OF SOURCE LINE IMAGE                         LEX         3375     A     
 LEX      *                (L.CARD) =  NR OF WORDS IN SOURCE LINE IMAGE                    LEX         3376     A     
 LEX      *                              I.E. INCLUDES FULL ZERO WORD EOL MARK             LEX         3377     A     
 LEX      *                                                                                LEX         3378     A     
 LEX      *         USES   ALL BUT A0,X0,A5,X5  (INCLUDES ALL CALLS)                       LEX         3379     A     
 LEX      *                                                                                LEX         3380     A     
 LEX      *         CALLS  FETCH,READC,SFN                                                 LEX         3381     A     
 LEX                                                                                       LEX         3382     A     
 LEX                                                                                       LEX         3383     A     
 LEX       RNC      SUBR   =           ** ENTRY/EXIT **                                    LEX         3384     A     
 LEX                SA1    CARDS                                                           LEX         3385     A     
 LEX                SA2    CP.IFMT                                                         LEX         3386     A     
 LEX                SA3    LEXMODE                                                         LEX         3387     A     
 LEX                SX6    X1+B1                                                           LEX         3388     A     
 LEX                SA6    A1          UPDATE LINE COUNT                                   LEX         3389     A     
 LEX                NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)              LEX         3390     A     
 LEX                SX7    X3-LM.1ST                                                       LEX         3391     A     
 LEX                NZ     X7,RNC4     IF NOT 1ST LINE IN PGM UNIT                         LEX         3392     A     
 LEX                                                                                       LEX         3393     A     
 LEX      *         ZERO OUT UNUSED BITS IN LAST WORD OF CARD IMAGE.                       LEX         3394     A     
 LEX                                                                                       LEX         3395     A     
 LEX       #RM      IFNE   CP#RM,0                                                         LEX         3396     A     
 LEX                SA2    F.IN        (X2) = ADDRESS OF INPUT FILE FIT                    LEX         3397     A     
 LEX                FETCH  X2,RL,X1    RETURNS RECORD LENGTH (CHARS.) IN X1                LEX         3398     A     
 LEX                IX2    X1+X1                                                           LEX         3399     A     
 LEX                SX3    X1+9                                                            LEX         3400     A     
 LEX                SX1    52429       (2**19)/10 + 1                                      LEX         3401     A     
 LEX                IX3    X3*X1                                                           LEX         3402     A     
 LEX                AX3    19          RECORD LENGTH (WORDS) IN X3                         LEX         3403     A     
 LEX                LX1    X2,B1                                                           LEX         3404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SB6    X3                                                              LEX         3405     A     
 LEX                IX2    X2+X1       RECORD LENGTH (BITS)                                LEX         3406     A     
 LEX                BX4    X3                                                              LEX         3407     A     
 LEX                LX3    6                                                               LEX         3408     A     
 LEX                SA1    CP.CARD-1+B6  LAST WORD OF LINE                                 LEX         3409     A     
 LEX                LX4    2                                                               LEX         3410     A     
 LEX                IX3    X3-X4       LINE LENGTH (BITS)                                  LEX         3411     A     
 LEX                MX4    1                                                               LEX         3412     A     
 LEX                IX3    X3-X2       UNUSED BIT COUNT                                    LEX         3413     A     
 LEX                SB2    X3-59                                                           LEX         3414     A     
 LEX                AX4    -B2                                                             LEX         3415     A     
 LEX                BX6    X4*X1       DISCARD UNUSED BITS                                 LEX         3416     A     
 LEX                AX4    6                                                               LEX         3417     A     
 LEX                SA6    A1                                                              LEX         3418     A     
 LEX                NZ     X4,RNC2     IF TERMINATOR AT LEAST 12 BITS LONG                 LEX         3419     A     
 LEX                MX7    0                                                               LEX         3420     A     
 LEX                SA7    A6+B1       TERMINATE LINE WITH 60 ZERO BITS                    LEX         3421     A     
 LEX                                                                                       LEX         3422     A     
 LEX       RNC2     BSS    0                                                               LEX         3423     A     
 LEX       #RM      ENDIF                                                                  LEX         3424     A     
 LEX                                                                                       LEX         3425     A     
 LEX                SA3    CP.CARD                                                         LEX         3426     A     
 LEX                MX0    -2*CHAR                                                         LEX         3427     A     
 LEX                                                                                       LEX         3428     A     
 LEX       RNC3     BX4    -X0*X3                                                          LEX         3429     A     
 LEX                SA3    A3+B1                                                           LEX         3430     A     
 LEX                NZ     X4,RNC3     IF NOT END OF IMAGE                                 LEX         3431     A     
 LEX                                                                                       LEX         3432     A     
 LEX                SB6    A3          (B6) = LWA+1 OF SOURCE LINE                         LEX         3433     A     
 LEX                BX1    X1-X1       SET TO *NO EOR/EOF/EOI ENCOUNTERED*                 LEX         3434     A     
 LEX                EQ     RNC5                                                            LEX         3435     A     
 LEX                                                                                       LEX         3436     A     
 LEX       RNC4     READC  F.IN,CP.CARD,16                                                 LEX         3437     A     
 LEX                                                                                       LEX         3438     A     
 LEX      *         CHECK FOR AND PROCESS EOR/EOF/EOI.                                     LEX         3439     A     
 LEX                                                                                       LEX         3440     A     
 LEX       RNC5     SB4    CP.CARD                                                         LEX         3441     A     
 LEX                ZR     X1,RNC6     IF NO EOR/EOF/EOI ENCOUNTERED                       LEX         3442     A     
 LEX                MX6    1                                                               LEX         3443     A     
 LEX                SB7    B0                                                              LEX         3444     A     
 LEX                SA6    CP.IFMT     SET TO *EOR/EOF/EOI ENCOUNTERED*                    LEX         3445     A     
 LEX                EQ     RNC11                                                           LEX         3446     A     
 LEX                                                                                       LEX         3447     A     
 LEX      *         CHECK FOR FULL WORD AND 11 CHARACTER EOL MARK.                         LEX         3448     A     
 LEX                                                                                       LEX         3449     A     
 LEX       RNC6     SA1    B6-1        (A1,X1) = A+C OF LAST WORD OF LINE IMAGE            LEX         3450     A     
 LEX                NZ     X1,RNC7     IF NOT A FULL WORD EOL MARK                         LEX         3451     A     
 LEX                SA1    A1-1                                                            LEX         3452     A     
 LEX                SB6    B6-1                                                            LEX         3453     A     
 LEX                MX2    -CHAR                                                           LEX         3454     A     
 LEX                BX3    -X2*X1                                                          LEX         3455     A     
 LEX                NZ     X3,RNC8     IF NOT 11 CHAR EOL MARK                             LEX         3456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         3457     A     
 LEX      *         SPACE/BLANK FILL LAST WORD OF LINE IMAGE.                              LEX         3458     A     
 LEX                                                                                       LEX         3459     A     
 LEX       RNC7     CALL   SFN         SPACE FILL NAME                                     LEX         3460     A     
 LEX                SA6    A1+                                                             LEX         3461     A     
 LEX                                                                                       LEX         3462     A     
 LEX      *         CHECK FOR, AND TRUNCATE, LONG LINE.                                    LEX         3463     A     
 LEX                                                                                       LEX         3464     A     
 LEX       RNC8     SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE           LEX         3465     A     
 LEX                SB5    MAX.CDL-1                                                       LEX         3466     A     
 LEX                LE     B7,B5,RNC9  IF LINE LEN OK                                      LEX         3467     A     
 LEX                SB7    B5+                                                             LEX         3468     A     
 LEX                                                                                       LEX         3469     A     
 LEX      *         PAD OUT LINE WITH BLANKS TO COLUMN 90.                                 LEX         3470     A     
 LEX                                                                                       LEX         3471     A     
 LEX       RNC9     SA1    =10H                                                            LEX         3472     A     
 LEX                BX6    X1                                                              LEX         3473     A     
 LEX                                                                                       LEX         3474     A     
 LEX       RNC10    GE     B7,B5,RNC11 IF DONE                                             LEX         3475     A     
 LEX                SA6    B4+B7                                                           LEX         3476     A     
 LEX                SB7    B7+B1                                                           LEX         3477     A     
 LEX                EQ     RNC10                                                           LEX         3478     A     
 LEX                                                                                       LEX         3479     A     
 LEX      *         FINAL PROCESSING AND EXIT.                                             LEX         3480     A     
 LEX                                                                                       LEX         3481     A     
 LEX       RNC11    BX6    X6-X6                                                           LEX         3482     A     
 LEX                SX7    B7+1        (X7) = NR OF WORDS IN LINE (W/ EOL)                 LEX         3483     A     
 LEX                SA6    B4+B7       MARK EOL                                            LEX         3484     A     
 LEX                SA7    L.CARD                                                          LEX         3485     A     
 LEX                EQ     EXIT.                                                           LEX         3486     A     
 LEX      *CALL     COMCTOK            TOKEN GENERATOR.                                    LEX         3487     A     
 LEX       TOK      SPACE  4,10                                                            LEX         3488     A     
 LEX       TOK=EOL  =      /COMCTOK/TOK=EOL                                                LEX         3489     A     
 LEX                                                                                       LEX         3490     A     
 LEX                                                                                       LEX         3491     A     
 LEX                ENTRY  TOK=CAL,TOK=COF                                                 LEX         3492     A     
 LEX                ENTRY  TOK=GN,TOK=GO,TOK=GS                                            LEX         3493     A     
 LEX                ENTRY  TOK=IFT                                                         LEX         3494     A     
 LEX                ENTRY  TOK=ON                                                          LEX         3495     A     
 LEX                ENTRY  TOK=XEQ                                                         LEX         3496     A     
 LEX                                                                                       LEX         3497     A     
 LEX                IFEQ   TEST,ON,2                                                       LEX         3498     A     
 LEX                ENTRY  TOK=ELS,TOK=ENT                                                 LEX         3499     A     
 LEX                ENTRY  TF=IDP                                                          LEX         3500     A     
 LEX       TOGEL    TITLE  THE *TOGEL* PROGRAMS.                                           LEX         3501     A     
 LEX      ***       THE *TOGEL* PROGRAMS.                                                  LEX         3502     A     
 LEX      *                                                                                LEX         3503     A     
 LEX      *                                                                                LEX         3504     A     
 LEX      *         THIS SECTION CONTAINS THE *TOGEL* PROGRAMS THAT                        LEX         3505     A     
 LEX      *         DRIVE/DESCRIBE THE GENERATION OF FTN TOKENS.                           LEX         3506     A     
 LEX      *                                                                                LEX         3507     A     
 LEX      *         STRICTLY SPEAKING, THIS SECTION IS A DATA STRUCTURE, NOT               LEX         3508     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         A PIECE OF CODE.  HOWEVER, BECAUSE THE RELATIONSHIP BETWEEN            LEX         3509     A     
 LEX      *         *COMCTOK* AND ITS DRIVING *TOGEL* PROGRAM IS SO SYMBIOTIC,             LEX         3510     A     
 LEX      *         IT WAS FELT THAT TOKEN GENERATION MIGHT BE MORE EASILY                 LEX         3511     A     
 LEX      *         UNDERSTOOD/MANHANDLED IF THE *TOGEL* PROGRAM WAS IN THE                LEX         3512     A     
 LEX      *         VICINITY OF *COMCTOK* IN THIS LISTING.                                 LEX         3513     A     
 LEX      *                                                                                LEX         3514     A     
 LEX      ************************************************************************         LEX         3515     A     
 LEX                                                                                       LEX         3516     A     
 LEX                                                                                       LEX         3517     A     
 LEX                                                                                       LEX         3518     A     
 LEX      *         PRECEDE START OF *TOGEL* PROGRAM WITH DUMMY INSTRUCTION.               LEX         3519     A     
 LEX      *         THIS IS TO SUPPLY RESTART ADDRESS IN CASE INITIAL LINE HAD             LEX         3520     A     
 LEX      *         PERFORMED NO PROCESSING, LEAVING THE PSEUDO P-COUNTER (A0)             LEX         3521     A     
 LEX      *         AT TOM=BOS.  SINCE RESTART LOOKS AT A0-1 WE WOULD BE IN                LEX         3522     A     
 LEX      *         TROUBLE.  POSSIBLE STUATION:                                           LEX         3523     A     
 LEX      *    1                                                                           LEX         3524     A     
 LEX      *     2STOP                                                                      LEX         3525     A     
 LEX                                                                                       LEX         3526     A     
 LEX       TOM=DUM  BSS    0                                                               LEX         3527     A     
 LEX                GOTO   TOM=DUM                                                         LEX         3528     A     
 LEX                                                                                       LEX         3529     A     
 LEX       NORMAL   TOGEL                                                                  LEX         3530     A     
 LEX       TOM=BOS  BSS    0           ** BEGINNING OF STMT **                             LEX         3531     A     
 LEX                ON EOL,0                                                               LEX         3532     A     
 LEX                ON RESTART,0                                                           LEX         3533     A     
 LEX                                                                                       LEX         3534     A     
 LEX                                                                                       LEX         3535     A     
 LEX       TOM=NXT  BSS    0           ** MAIN LOOP NODE **                                LEX         3536     A     
 LEX       CONS     IFT (0..9)                                                             LEX         3537     A     
 LEX                  GROUP (0..9),CONS,SQZ                                                LEX         3538     A     
 LEX       HLR        IFT (H)                                                              LEX         3539     A     
 LEX                    CALT TOK=NOH   IF 'CHARACTER *', NO *HLR*...                       LEX         3540     A     
 LEX                    XEQ HLR          PROCESS *HLR* STRING                              LEX         3541     A     
 LEX       HLR        ENDT                                                                 LEX         3542     A     
 LEX       CONS     ENDT                                                                   LEX         3543     A     
 LEX                                                                                       LEX         3544     A     
 LEX       TOM=VAR  BSS    0                                                               LEX         3545     A     
 LEX       VAR      IFT (A..Z)                                                             LEX         3546     A     
 LEX                  GROUP (A..Z0..9),VAR,SQZ                                             LEX         3547     A     
 LEX       VAR      ENDT                                                                   LEX         3548     A     
 LEX                                                                                       LEX         3549     A     
 LEX       .IP      IFEQ   IP.CSET,IP.C63                                                  LEX         3550     A     
 LEX                CASEOF (+..;)                                                          LEX         3551     A     
 LEX       .IP      ELSE                                                                   LEX         3552     A     
 LEX                CASEOF (+..:)                                                          LEX         3553     A     
 LEX       .IP      ENDIF                                                                  LEX         3554     A     
 LEX                  TOKEN PL                                        +                    LEX         3555     A     
 LEX                  TOKEN MIN                                       -                    LEX         3556     A     
 LEX                  TOKEN STAR                                      *                    LEX         3557     A     
 LEX                    TOKEN EXP,(STAR,STAR)                           **                 LEX         3558     A     
 LEX                    TOKEN ILL,(BOS,VAR'CHARACT',VAR'ER',STAR),TOK=CHR                  LEX         3559     A     
 LEX                  TOKEN SLASH                                     /                    LEX         3560     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                    TOKEN CAT,(SLASH,SLASH)                         //                 LEX         3561     A     
 LEX                  TOKEN LP,,TOK=LP                                (                    LEX         3562     A     
 LEX                  TOKEN RP,,TOK=RP                                )                    LEX         3563     A     
 LEX                  TOKEN ILL                                       $                    LEX         3564     A     
 LEX                  TOKEN =,,TOK=EQL                                =                    LEX         3565     A     
 LEX                  TOKEN ILL                                       BLANK                LEX         3566     A     
 LEX                  TOKEN COMMA,,TOK=CMA                            ,                    LEX         3567     A     
 LEX                  TOKEN PERIOD                                    .                    LEX         3568     A     
 LEX                    TOKEN EQ,(PERIOD,VAR'EQ',PERIOD)                .EQ.               LEX         3569     A     
 LEX                    TOKEN NE,(PERIOD,VAR'NE',PERIOD)                .NE.               LEX         3570     A     
 LEX                    TOKEN GE,(PERIOD,VAR'GE',PERIOD)                .GE.               LEX         3571     A     
 LEX                    TOKEN LT,(PERIOD,VAR'LT',PERIOD)                .LT.               LEX         3572     A     
 LEX                    TOKEN GT,(PERIOD,VAR'GT',PERIOD)                .GT.               LEX         3573     A     
 LEX                    TOKEN LE,(PERIOD,VAR'LE',PERIOD)                .LE.               LEX         3574     A     
 LEX                    TOKEN OR,(PERIOD,VAR'OR',PERIOD)                .OR.               LEX         3575     A     
 LEX                    TOKEN AND,(PERIOD,VAR'AND',PERIOD)              .AND.              LEX         3576     A     
 LEX                    TOKEN XOR,(PERIOD,VAR'XOR',PERIOD)              .XOR.              LEX         3577     A     
 LEX                    TOKEN NOT,(PERIOD,VAR'NOT',PERIOD)              .NOT.              LEX         3578     A     
 LEX                    TOKEN TRUE,(PERIOD,VAR'TRUE',PERIOD)            .TRUE.             LEX         3579     A     
 LEX                    TOKEN FALSE,(PERIOD,VAR'FALSE',PERIOD)          .FALSE.            LEX         3580     A     
 LEX                    TOKEN EQV,(PERIOD,VAR'EQV',PERIOD)              .EQV.              LEX         3581     A     
 LEX                    TOKEN XOR,(PERIOD,VAR'NEQV',PERIOD)             .NEQV.             LEX         3582          I
          -FC51485
 LEX                    TOKEN NEQV,(PERIOD,VAR'NEQV',PERIOD)            .NEQV.             FC51485       20     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            #                    LEX         3583     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            [                    LEX         3584     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            ]                    LEX         3585     A     
 LEX       .IP      IFEQ   IP.CSET,IP.C63                                                  LEX         3586     A     
 LEX                  TOKEN   COLON,,TOK=COL                          :                    LEX         3587     A     
 LEX       .IP      ELSE                                                                   LEX         3588     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            %                    LEX         3589     A     
 LEX       .IP      ENDIF                                                                  LEX         3590     A     
 LEX                  TOKEN   DQOT,,TOK=DQT                           "                    LEX         3591     A     
 LEX                    TOKEN ILL,(VAR'L',DQOT),TOK=BOL               L"                   LEX         3592     A     
 LEX                    TOKEN OCT,(VAR'O',DQOT),TOK=BOO               O"                   LEX         3593     A     
 LEX                    TOKEN ILL,(VAR'R',DQOT),TOK=BOR               R"                   LEX         3594     A     
 LEX                    TOKEN HEX,(VAR'Z',DQOT),TOK=BOX               Z"                   LEX         3595     A     
 LEX                TOKEN  ILL,(VAR'BACKSPA',VAR'CEL',DQOT),TOK=BBL  BACKSPACE L"          FC50763        8     A     
 LEX                TOKEN  ILL,(VAR'REWINDL',DQOT),TOK=BRL           REWIND L"             FC50763        9     A     
 LEX                TOKEN  ILL,(VAR'BACKSPA',VAR'CER',DQOT),TOK=BBR  BACKSPACE R"          FC50763       10     A     
 LEX                TOKEN  ILL,(VAR'REWINDR',DQOT),TOK=BRR           REWIND R"             FC50763       11     A     
 LEX                TOKEN  OCT,(VAR'BACKSPA',VAR'CEO',DQOT),TOK=BBO  BACKSPACE O"          FC50763       12     A     
 LEX                TOKEN  OCT,(VAR'REWINDO',DQOT),TOK=BRO           REWIND O"             FC50763       13     A     
 LEX                TOKEN  HEX,(VAR'BACKSPA',VAR'CEZ',DQOT),TOK=BBZ  BACKSPACE Z"          FC50763       14     A     
 LEX                TOKEN  HEX,(VAR'REWINDZ',DQOT),TOK=BRZ           REWIND Z"             FC50763       15     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            _                    LEX         3596     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            !                    LEX         3597     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            &                    LEX         3598     A     
 LEX                  TOKEN   SQOT,,TOK=SQT                           '                    LEX         3599     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            ?                    LEX         3600     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            <                    LEX         3601     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            >                    LEX         3602     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                  TOKEN   ILL,,TOK=ILL                            @                    LEX         3603     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            \                    LEX         3604     A     
 LEX                  TOKEN   ILL,,TOK=ILL                            ^                    LEX         3605     A     
 LEX                  TOKEN   ILL,,TOK=ILL                                                 LEX         3606     A     
 LEX                IFNE   IP.CSET,IP.C63,1                                                LEX         3607     A     
 LEX                  TOKEN   COLON,,TOK=COL                          :                    LEX         3608     A     
 LEX                ELSC                                                                   LEX         3609     A     
 LEX                  TOKEN   ILL,,TOK=MN                                                  LEX         3610          I
          -FC50267
 LEX                  TOKEN   ILL,,TOK=ILL                                                 FC50267        5     A     
 LEX                ENDC                                                                   LEX         3611     A     
 LEX                                                                                       LEX         3612     A     
 LEX                GOTO TOM=NXT                                                           LEX         3613     A     
 LEX       TOM=DQT  SPACE  4,10                                                            LEX         3614     A     
 LEX      **        TOM=DQT - HERE IF " STRING ENCOUNTERED.                                LEX         3615     A     
 LEX                                                                                       LEX         3616     A     
 LEX                                                                                       LEX         3617     A     
 LEX       TOM=DQT  BSS    0           ** ENTRY **                                         LEX         3618     A     
 LEX                XEQ    DQT         PROCESS DOUBLE QUOTE STRING                         LEX         3619     A     
 LEX                GOTO TOM=NXT                                                           LEX         3620     A     
 LEX       TOM=HEX  SPACE  4,10                                                            LEX         3621     A     
 LEX      **        TOM=HEX - HERE IF X" ENCOUNTERED.                                      LEX         3622     A     
 LEX                                                                                       LEX         3623     A     
 LEX                                                                                       LEX         3624     A     
 LEX       TOM=HEX  BSS    0           ** ENTRY **                                         LEX         3625     A     
 LEX                GROUP (-"),HEX,SQZ                                                     LEX         3626     A     
 LEX                CALT TOK=EOO       PROCESS END OF OCTAL/HEX CONSTANT                   LEX         3627     A     
 LEX                GOTO TOM=NXT       CONTINUE...                                         LEX         3628     A     
 LEX       TOM=OCT  SPACE  4,10                                                            LEX         3629     A     
 LEX      **        TOM=OCT - HERE IF O" ENCOUNTERED.                                      LEX         3630     A     
 LEX                                                                                       LEX         3631     A     
 LEX                                                                                       LEX         3632     A     
 LEX       TOM=OCT  BSS    0           ** ENTRY **                                         LEX         3633     A     
 LEX                GROUP (-"),OCT,SQZ                                                     LEX         3634     A     
 LEX                CALT TOK=EOO       PROCESS END OF OCTAL/HEX CONSTANT                   LEX         3635     A     
 LEX                GOTO TOM=NXT       CONTINUE...                                         LEX         3636     A     
 LEX       TOM=SQT  SPACE  4,10                                                            LEX         3637     A     
 LEX      **        TOM=SQT - HERE IF ' STRING ENCOUNTERED.                                LEX         3638     A     
 LEX                                                                                       LEX         3639     A     
 LEX                                                                                       LEX         3640     A     
 LEX       TOM=SQT  BSS    0           ** ENTRY **                                         LEX         3641     A     
 LEX                XEQ    SQT         PROCESS SINGLE QUOTE STRING                         LEX         3642     A     
 LEX                GOTO   TOM=NXT                                                         LEX         3643     A     
 LEX                                                                                       LEX         3644     A     
 LEX       NORMAL   TOGEL                                                                  LEX         3645     A     
 LEX       PROCS    SPACE  4,10                                                            LEX         3646     A     
 LEX       PROCS    TOGEL                                                                  LEX         3647     A     
 LEX       DQT      SPACE  4,10                                                            LEX         3648     A     
 LEX      **        DQT - PROCESS QUOTE DELIMITED STRING.                                  LEX         3649     A     
 LEX      *                                                                                LEX         3650     A     
 LEX      *                                                                                LEX         3651     A     
 LEX      *         *DQT* PROCESSES A QUOTE DELIMITED STRING OF THE FORM --                LEX         3652     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         3653     A     
 LEX      *                "SSSS"  OR  "SSS""SSS"                                          LEX         3654     A     
 LEX      *                                                                                LEX         3655     A     
 LEX      *         WHERE  SSSS = THE CHARACTER STRING.                                    LEX         3656     A     
 LEX      *                "    = THE STRING DELIMITER.                                    LEX         3657     A     
 LEX      *                ""   = IS THE SPECIAL *EMBEDDED "* SYNTAX,                      LEX         3658     A     
 LEX      *                       (I.E. WHERE 2 QUOTES ARE TREATED AS 1).                  LEX         3659     A     
 LEX      *                                                                                LEX         3660     A     
 LEX      *         ENTRY  (X4) = THE LEADING DELIMITING ".                                LEX         3661     A     
 LEX      *                ENTOKENING REGISTERS INTACT.                                    LEX         3662     A     
 LEX      *                                                                                LEX         3663     A     
 LEX      *         EXIT   (X4) = 1ST NON-BLANK (55B) CHARACTER FOLLOWING                  LEX         3664     A     
 LEX      *                       THE TERMINATING ".                                       LEX         3665     A     
 LEX      *                                                                                LEX         3666     A     
 LEX      *         CALTS  TOK=BOQ,TOK=EOQ,TOK=ITQ,TOK=QOQ                                 LEX         3667     A     
 LEX      *                                                                                LEX         3668     A     
 LEX      *         XEQS   NONE                                                            LEX         3669     A     
 LEX                                                                                       LEX         3670     A     
 LEX                                                                                       LEX         3671     A     
 LEX       DQT      PROC               ** ENTRY/EXIT **                                    LEX         3672     A     
 LEX                ON EOL,TOK=QOL                                                         LEX         3673     A     
 LEX                ON RESTART,TOK=REQ                                                     LEX         3674     A     
 LEX                CALT TOK=BOQ      PROCESS BEGINNING OF QUOTE STRING                    LEX         3675     A     
 LEX       TOM=QOQ  GROUP (-"),BOS,NSQZ                                                    LEX         3676     A     
 LEX                CALT TOK=ITQ      IGNORE TERMINATING QUOTE                             LEX         3677     A     
 LEX                IFT (")                                                                LEX         3678     A     
 LEX                  CALT TOK=QOQ    PROCESS 2 QUOTES AS 1 QUOTE                          LEX         3679     A     
 LEX      *           ** RETURNS TO TOM=QOQ **                                             LEX         3680     A     
 LEX                ENDT                                                                   LEX         3681     A     
 LEX                CALT TOK=EOQ      PROCESS END OF QUOTE STRING                          LEX         3682     A     
 LEX                ON EOL,0          RESTORE NORMAL EOL STATUS                            LEX         3683     A     
 LEX                ON RESTART,0      RESTORE NORMAL RESTART STATUS                        LEX         3684     A     
 LEX                IFT (/55)                                                              LEX         3685     A     
 LEX                  GROUP (),BOS,SQZ                                                     LEX         3686     A     
 LEX                ENDT                                                                   LEX         3687     A     
 LEX                GOTO EXIT.                                                             LEX         3688     A     
 LEX       HLR      SPACE  4,10                                                            LEX         3689     A     
 LEX      **        HLR - PROCESS *HLR* STRING.                                            LEX         3690     A     
 LEX      *                                                                                LEX         3691     A     
 LEX      *                                                                                LEX         3692     A     
 LEX      *         *HLR* PROCESS AN *HLR* CHARACTER STRING OF THE FORM --                 LEX         3693     A     
 LEX      *                                                                                LEX         3694     A     
 LEX      *                   L                                                            LEX         3695          I
          -FC5A239
 LEX      *                NN H SSSS                                                       LEX         3696     A     
 LEX      *                   R                                                            LEX         3697          I
          -FC5A239
 LEX      *                                                                                LEX         3698     A     
 LEX      *         WHERE  NN   = PROGRAMMER SPECIFIED COUNT WHICH DETERMINES              LEX         3699     A     
 LEX      *                       THE NR OF CHARACTERS IN THIS STRING.                     LEX         3700     A     
 LEX      *                SSSS = THE CHARACTER STRING OF LENGTH *NN*.                     LEX         3701     A     
 LEX      *                H    = STRING TYPE HOLLERITH (I.E. LEFT-JUSTIFIED,              LEX         3702     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                       SPACE-FILLED)                                            LEX         3703     A     
 LEX      *                L    = STRING TYPE LEFT-JUSTIFIED, ZERO-FILLED.                 LEX         3704          I
          -FC5A239
 LEX      *                R    = STRING TYPE RIGHT-JUSTIFIED, ZERO-FILLED.                LEX         3705          I
          -FC5A239
 LEX      *                                                                                LEX         3706     A     
 LEX      *         ENTRY  (X4) = *H*, *L*, OR *R* STRING TYPE CHAR.                       LEX         3707          I
          -FC5A239
 LEX      *         ENTRY  (X4) = *H* STRING TYPE CHARACTER                                FC5A239       46     A     
 LEX      *                ENTOKENING REGISTERS INTACT.                                    LEX         3708     A     
 LEX      *                                                                                LEX         3709     A     
 LEX      *         EXIT   (X4) = 1ST NON-BLANK (55B) CHARACTER FOLLOWING                  LEX         3710     A     
 LEX      *                       THE -HLR- STRING.                                        LEX         3711     A     
 LEX      *                ENTOKENING REGISTERS INTACT.                                    LEX         3712     A     
 LEX      *                                                                                LEX         3713     A     
 LEX      *         CALTS  TOK=BOH,TOK=EOH                                                 LEX         3714     A     
 LEX      *                                                                                LEX         3715     A     
 LEX      *         XEQS   NONE                                                            LEX         3716     A     
 LEX                                                                                       LEX         3717     A     
 LEX                                                                                       LEX         3718     A     
 LEX       HLR      PROC               ** ENTRY/EXIT **                                    LEX         3719     A     
 LEX                ON EOL,TOK=HOL                                                         LEX         3720     A     
 LEX                ON RESTART,TOK=REH                                                     LEX         3721     A     
 LEX                CALT TOK=BOH       PROCESS BEGINNING OF *HLR* STRING                   LEX         3722     A     
 LEX                GROUP (..),BOS,NSQZ                                                    LEX         3723     A     
 LEX                CALT TOK=EOH       PROCESS END OF *HLR* STRING                         LEX         3724     A     
 LEX                ON EOL,0           RESTORE NORMAL EOL STATUS                           LEX         3725     A     
 LEX                ON RESTART,0       RESTORE NORMAL RESTART STATUS                       LEX         3726     A     
 LEX                IFT (/55)                                                              LEX         3727     A     
 LEX                  GROUP (),BOS,SQZ                                                     LEX         3728     A     
 LEX                ENDT                                                                   LEX         3729     A     
 LEX                GOTO EXIT.                                                             LEX         3730     A     
 LEX       SQT      SPACE  4,10                                                            LEX         3731     A     
 LEX      **        SQT - PROCESS QUOTE DELIMITED STRING.                                  LEX         3732     A     
 LEX      *                                                                                LEX         3733     A     
 LEX      *                                                                                LEX         3734     A     
 LEX      *         *SQT* PROCESSES A QUOTE DELIMITED STRING OF THE FORM --                LEX         3735     A     
 LEX      *                                                                                LEX         3736     A     
 LEX      *                'SSSS'  OR  'SSS''SSS'                                          LEX         3737     A     
 LEX      *                                                                                LEX         3738     A     
 LEX      *         WHERE  SSSS = THE CHARACTER STRING.                                    LEX         3739     A     
 LEX      *                '    = THE STRING DELIMITER.                                    LEX         3740     A     
 LEX      *                ''   = IS THE SPECIAL *EMBEDDED '* SYNTAX,                      LEX         3741     A     
 LEX      *                       (I.E. WHERE 2 QUOTES ARE TREATED AS 1).                  LEX         3742     A     
 LEX      *                                                                                LEX         3743     A     
 LEX      *         ENTRY  (X4) = THE LEADING DELIMITING '.                                LEX         3744     A     
 LEX      *                ENTOKENING REGISTERS INTACT.                                    LEX         3745     A     
 LEX      *                                                                                LEX         3746     A     
 LEX      *         EXIT   (X4) = 1ST NON-BLANK (55B) CHARACTER FOLLOWING                  LEX         3747     A     
 LEX      *                       THE TERMINATING '.                                       LEX         3748     A     
 LEX      *                                                                                LEX         3749     A     
 LEX      *         CALTS  TOK=BOC,TOK=EOC,TOK=ITQ,TOK=QOC                                 LEX         3750     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         3751     A     
 LEX      *         XEQS   NONE                                                            LEX         3752     A     
 LEX                                                                                       LEX         3753     A     
 LEX                                                                                       LEX         3754     A     
 LEX       SQT      PROC               ** ENTRY/EXIT **                                    LEX         3755     A     
 LEX                ON EOL,TOK=QOL                                                         LEX         3756     A     
 LEX                ON RESTART,TOK=REQ                                                     LEX         3757     A     
 LEX                CALT TOK=BOC      PROCESS BEGINNING OF QUOTE STRING                    LEX         3758     A     
 LEX       TOM=QOC  GROUP (-'),BOS,NSQZ                                                    LEX         3759     A     
 LEX                CALT TOK=ITQ      IGNORE TERMINATING QUOTE                             LEX         3760     A     
 LEX                IFT (')                                                                LEX         3761     A     
 LEX                  CALT TOK=QOC    PROCESS 2 QUOTES AS 1 QUOTE                          LEX         3762     A     
 LEX      *           ** RETURNS TO TOM=QOC **                                             LEX         3763     A     
 LEX                ENDT                                                                   LEX         3764     A     
 LEX                CALT TOK=EOC      PROCESS END OF QUOTE STRING                          LEX         3765     A     
 LEX                ON EOL,0          RESTORE NORMAL EOL STATUS                            LEX         3766     A     
 LEX                ON RESTART,0      RESTORE NORMAL RESTART STATUS                        LEX         3767     A     
 LEX                IFT (/55)                                                              LEX         3768     A     
 LEX                  GROUP (),BOS,SQZ                                                     LEX         3769     A     
 LEX                ENDT                                                                   LEX         3770     A     
 LEX                GOTO EXIT.                                                             LEX         3771     A     
 LEX       PROCS    SPACE  4,10                                                            LEX         3772     A     
 LEX       PROCS    TOGEL                                                                  LEX         3773     A     
 LEX       TOK=     TITLE  TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                  LEX         3774     A     
 LEX      ***       TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                         LEX         3775     A     
 LEX      *                                                                                LEX         3776     A     
 LEX      *                                                                                LEX         3777     A     
 LEX      *         THE FOLLOWING SECTION CONTAINS THE FTN USER OWNCODE PROCESSORS         LEX         3778     A     
 LEX      *         FOR *COMCTOK*.  THESE OWNCODES/PROCESSORS ARE INVOKED AT               LEX         3779     A     
 LEX      *         VARIOUS TIMES DURING TOKEN GENERATION WHEN SOMETHING SPECIAL           LEX         3780     A     
 LEX      *         OR UNUSUAL (SOMETIMES I THINK EVERYTHING IN SCANNERS IS                LEX         3781     A     
 LEX      *         SPECIAL OR UNUSUAL) THAT *COMCTOK* CANNOT HANDLE ITSELF.               LEX         3782     A     
 LEX      *                                                                                LEX         3783     A     
 LEX      *         THEREFORE, THE ONLY WAY TO GET AN OVERVIEW OF THESE OWNCODES           LEX         3784     A     
 LEX      *         IS TO LOOK AT THE *TOGEL* PROGRAM THAT IS INVOKING THEM.               LEX         3785     A     
 LEX      *                                                                                LEX         3786     A     
 LEX      *         *COMCTOK* SHOULD BE THE **ONLY** ONE WHO INVOKES THESE                 LEX         3787     A     
 LEX      *         PROCESSORS.  ANY OTHER EXECUTIVES ARE **UNAUTHORIZED** AND             LEX         3788     A     
 LEX      *         **ILLEGAL**.  THIS IS TO KEEP THIS PROCESSING AS CLEAR AND             LEX         3789     A     
 LEX      *         STRUCTURED AS POSSIBLE.  YOU CAN HELP.                                 LEX         3790     A     
 LEX      *                                                                                LEX         3791     A     
 LEX      ************************************************************************         LEX         3792     A     
 LEX       TOK=BOC  SPACE  4,10                                                            LEX         3793     A     
 LEX      **        TOK=BOC - BEGINNING OF ' (TYPE *CHARACTER*) STRING.                    LEX         3794     A     
 LEX      *                                                                                LEX         3795     A     
 LEX      *         HERE IF A ' IS ENCOUNTERED DURING TOKEN GENERATION.  THIS              LEX         3796     A     
 LEX      *         MARKS THE BEGINNING OF A ' DELIMITED *CHARACTER* STRING.               LEX         3797     A     
 LEX      *         NEED TO PREPARE FOR GENERATION OF *O.CHAR* TOKEN --                    LEX         3798     A     
 LEX      *                                                                                LEX         3799     A     
 LEX      *           1. GENERATE A PREMATURE, INCOMPLETE *O.CHAR* TOKEN TO                LEX         3800     A     
 LEX      *              *T.TB*, AND SAVE ITS ADDRESS IN (CH=TAD).  WHEN *TOK*             LEX         3801     A     
 LEX      *              FINISHES *GROUP*ING THIS '' STRING, *TOK=EOC* (END                LEX         3802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              OF CHARACTER STRING) WILL GO BACK AND FILL IN THE                 LEX         3803     A     
 LEX      *              MISSING INFORMATION (E.G. STRING LEN) INTO THE INCOMPLETE         LEX         3804     A     
 LEX      *              *O.CHAR* TOKEN AT (CH=TAD).                                       LEX         3805     A     
 LEX      *                                                                                LEX         3806     A     
 LEX      *           2. SAVE THE CHARACTER STRING TYPE (I.E. '') IN (CH=TYPE).            LEX         3807     A     
 LEX      *                                                                                LEX         3808     A     
 LEX      *           3. SET *LEXFLG/QAC* TO INDICATE THAT A QUOTE STRING IS               LEX         3809     A     
 LEX      *              ACTIVE.  SEE *LEXFLG/QAC* FOR MORE INFORMATION.                   LEX         3810     A     
 LEX      *                                                                                LEX         3811     A     
 LEX      *           4. RETURN TO *TOK=MN* (TOKEN GENERATOR MAIN LOOP NODE)               LEX         3812     A     
 LEX      *              TO GROUP THIS '' STRING.  NOTE THAT THE REMAINDER OF              LEX         3813     A     
 LEX      *              *T.TB* IMMEDIATELY FOLLOWING THE INCOMPLETE/PREMATURE             LEX         3814     A     
 LEX      *              *O.CHAR* TOKEN IS USED AS A SCRATCH AREA FOR GROUPING/            LEX         3815     A     
 LEX      *              ASSEMBLING THIS CHARACTER STRING.                                 LEX         3816     A     
 LEX                                                                                       LEX         3817     A     
 LEX                                                                                       LEX         3818     A     
 LEX       TOK=BOC  BSS    0           ** ENTRY **                                         LEX         3819     A     
 LEX                SX6    O.CHAR                                                          LEX         3820     A     
 LEX                SX7    A6+B1       (X7) = ADDR IN *T.TB* OF *O.CHAR* TOKEN             LEX         3821     A     
 LEX                SA6    A6+B1       MARK *O.CHAR* TOKEN                                 LEX         3822     A     
 LEX                SA7    CH=TAD                                                          LEX         3823     A     
 LEX                SX7    CT.SQT                                                          LEX         3824     A     
 LEX                SA7    CH=TYPE     SET TO *'' STRING*                                  LEX         3825     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         3826     A     
 LEX                SB5    -B1         (B5) = -(CHAR COUNT+1)                              LEX         3827     A     
 LEX                SX7    0                                                               LEX         3828     A     
 LEX                SA7    TF=SQZ      SET TO *NO BLANK SQZ*                               LEX         3829     A     
 LEX                SA1    LEXFLG                                                          LEX         3830     A     
 LEX                MX2    1                                                               LEX         3831     A     
 LEX                LX2    LF.QACP-59                                                      LEX         3832          I
          -FC5A110
 LEX                BX7    X2+X1       SET TO *QUOTE STRING ACTIVE*                        LEX         3833          I
          -FC5A110
 LEX                LX2    LF.TDEP-59                                                      FC5A110       32     A     
 LEX                BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED          FC5A110       33     A     
 LEX                SA7    A1                                                              LEX         3834     A     
 LEX                EQ     TOK=MN                                                          LEX         3835     A     
 LEX       TOK=BOH  SPACE  4,10                                                            LEX         3836     A     
 LEX      **        TOK=BOH - BEGINNING OF HOLLERITH STRING.                               LEX         3837     A     
 LEX      *                                                                                LEX         3838     A     
 LEX      *         HERE WHEN *O.CONS* TOKEN IS FOLLOWED BY -H-, -L-, OR -R-.              LEX         3839          I
          -FC5A239
 LEX      *         HERE WHEN *O.CONS* TOKEN IS FOLLOWED BY -H-                            FC5A239       47     A     
 LEX      *         NEED TO PREPARE FOR GENERATION OF *O.HOLL* TOKEN --                    LEX         3840     A     
 LEX      *                                                                                LEX         3841     A     
 LEX      *           1. SAVE HOLLERITH STRING TYPE (-H-, -L-, OR -R-)                     LEX         3842          I
          -FC5A239
 LEX      *              IN (CH=TYPE).                                                     LEX         3843          I
          -FC5A239
 LEX      *           1. SAVE HOLLERITH STRING TYPE (-H-) IN (CH=TYPE).                    FC5A239       48     A     
 LEX      *                                                                                LEX         3844     A     
 LEX      *           2. CONVERT PRECEDING *O.CONS* TOKEN WHICH SPECIFIES                  LEX         3845     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              THE CHARACTER COUNT TO BINARY SO THAT *TOK* CAN KNOW              LEX         3846     A     
 LEX      *              HOW MANY CHARACTERS ARE IN THIS STRING.                           LEX         3847     A     
 LEX      *                                                                                LEX         3848     A     
 LEX      *           3. GENERATE A PREMATURE, INCOMPLETE *O.HOLL* TOKEN TO                LEX         3849     A     
 LEX      *              *T.TB*, AND SAVE ITS ADDRESS IN (CH=TAD).  WHEN *TOK*             LEX         3850     A     
 LEX      *              FINISHES *GROUP*ING THIS HOLLERITH STRING, *TOK=EOH*              LEX         3851     A     
 LEX      *              (END OF HOLLERITH) WILL GO BACK AND FILL IN THE                   LEX         3852     A     
 LEX      *              MISSING INFO INTO THE INCOMPLETE *O.HOLL* TOKEN                   LEX         3853     A     
 LEX      *              AT (CH=TAD).                                                      LEX         3854     A     
 LEX      *                                                                                LEX         3855     A     
 LEX      *           4. RETURN TO *TOK=MN* TO GROUP THIS HOLLERITH STRING.                LEX         3856     A     
 LEX      *              NOTE THAT REMAINDER OF TOKEN BUFFER FOLLOWING INCOMPLETE          LEX         3857     A     
 LEX      *              *O.HOLL* TOKEN IS USED AS A SCRATCH AREA FOR ASSEMBLING/          LEX         3858     A     
 LEX      *              GROUPING THIS HOLLERITH STRING.                                   LEX         3859     A     
 LEX                                                                                       LEX         3860     A     
 LEX                                                                                       LEX         3861     A     
 LEX       TOK=BOH  BSS    0           ** ENTRY **                                         LEX         3862     A     
 LEX                RJ     SER         SAVE ENTOKENING REGISTERS                           LEX         3863     A     
 LEX                SX7    CT.H                                                            LEX         3864     A     
 LEX                SA7    CH=TYPE                                                         LEX         3865     A     
 LEX                MX1    TB.TOCL                                                         LEX         3866     A     
 LEX                SA5    A6          (X5) = PRECEDING *O.CONS* TOKEN                     LEX         3867     A     
 LEX                SB7    B1          SET TO *DECIMAL CONVERSION*                         LEX         3868     A     
 LEX                BX5    X1*X5       (X5) = NR TO CONVERT, -L- FMT                       LEX         3869     A     
 LEX                CALL   DXB         CONVERT DECIMAL DPC TO BINARY                       LEX         3870     A     
 LEX                IFEQ   TEST,ON,1                                                       LEX         3871     A     
 LEX                NZ     X4,"BLOWUP" IF ERROR DURING CONVERSION                          LEX         3872     A     
 LEX                SB5    X6          (B5) = CHARACTER COUNT                              LEX         3873     A     
 LEX                =X2    O.HOLL                                                          LEX         3874     A     
 LEX                LX6    TB.CLCNP-0                                                      LEX         3875     A     
 LEX                BX6    X6+X2       MERGE *CLCN* AND *TOT*                              LEX         3876     A     
 LEX                SX7    A6                                                              LEX         3877     A     
 LEX                SA6    A6          OVERWRITE *O.CONS* TOKEN                            LEX         3878     A     
 LEX                SA7    CH=TAD      SAVE ADDR OF *O.HOLL* TOKEN                         LEX         3879     A     
 LEX                RJ     RER         RESTORE ENTOKENING REGISTERS                        LEX         3880     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         3881     A     
 LEX                BX7    X7-X7                                                           LEX         3882     A     
 LEX                SA7    TF=SQZ      INDICATE *NO BLANK SQUEEZE*                         LEX         3883     A     
 LEX                SA1    LEXFLG                                                          FC5A110       34     A     
 LEX                MX2    1                                                               FC5A110       35     A     
 LEX                LX2    LF.TDEP-59                                                      FC5A110       36     A     
 LEX                BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED          FC5A110       37     A     
 LEX                EQ     TOK=MN                                                          LEX         3884     A     
 LEX       TOK=BOL  SPACE  4,8                                                             LEX         3885     A     
 LEX      **        TOK=BBL - BACKSPACE FOLLOWED BY L"STRING"                              FC50763       16     A     
 LEX                SPACE  2                                                               FC50763       17     A     
 LEX       TOK=BBL  BSS    0            ** ENTRY **                                        FC50763       18     A     
 LEX                RJ     SER          SAVE ENTOKENING REGISTERS                          FC50763       19     A     
 LEX                SA4    BBLA         GET REPLACEMENT TOKEN                              FC50763       20     A     
 LEX                                                                                       FC50763       21     A     
 LEX       BBL1     BX6    X4                                                              FC50763       22     A     
 LEX                SA6    A6           OVERWRITE VAR TOKEN                                FC50763       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                =A6    A6+1         BUMP TOKEN POINTER                                 FC50763       24     A     
 LEX                RJ     RER          RESTORE ENTOKENING REGISTERS                       FC50763       25     A     
 LEX                EQ     TOK=BOL                                                         FC50763       26     A     
 LEX                                                                                       FC50763       27     A     
 LEX       BBLA     VFD    54/2LCE,6/O.VAR                                                 FC50763       28     A     
 LEX                SPACE  4                                                               FC50763       29     A     
 LEX      **        TOK=BRL - REWIND FOLLOWED BY L"STRING"                                 FC50763       30     A     
 LEX                SPACE  2                                                               FC50763       31     A     
 LEX       TOK=BRL  BSS    0            ** ENTRY **                                        FC50763       32     A     
 LEX                RJ     SER          SAVE ENTOKENING REGISTERS                          FC50763       33     A     
 LEX                SA4    BRLA         GET REPLACEMENT TOKEN                              FC50763       34     A     
 LEX                EQ     BBL1                                                            FC50763       35     A     
 LEX                                                                                       FC50763       36     A     
 LEX       BRLA     VFD    54/6LREWIND,6/O.VAR                                             FC50763       37     A     
 LEX                SPACE  4                                                               FC50763       38     A     
 LEX      **        TOK=BBR - BACKSPACE FOLLOWED BY R"STRING"                              FC50763       39     A     
 LEX                SPACE  2                                                               FC50763       40     A     
 LEX       TOK=BBR  BSS    0            ** ENTRY **                                        FC50763       41     A     
 LEX                RJ     SER          SAVE REGISTERS                                     FC50763       42     A     
 LEX                SA4    BBLA         GET REPLACEMENT TOKEN                              FC50763       43     A     
 LEX                                                                                       FC50763       44     A     
 LEX       BBR1     BX6    X4                                                              FC50763       45     A     
 LEX                SA6    A6           OVERWRITE ILL TOKEN                                FC50763       46     A     
 LEX                =A6    A6+1         BUMP TOKEN POINTER                                 FC50763       47     A     
 LEX                RJ     RER          RESTORE REGISTERS                                  FC50763       48     A     
 LEX                EQ     TOK=BOR                                                         FC50763       49     A     
 LEX                SPACE  4                                                               FC50763       50     A     
 LEX      **        TOK=BRR - REWIND FOLLOWED BY R"STRING"                                 FC50763       51     A     
 LEX                SPACE  2                                                               FC50763       52     A     
 LEX       TOK=BRR  BSS    0            ** ENTRY **                                        FC50763       53     A     
 LEX                RJ     SER          SAVE REGISTERS                                     FC50763       54     A     
 LEX                SA4    BRLA         GET REPLACEMENT TOKEN                              FC50763       55     A     
 LEX                EQ     BBR1                                                            FC50763       56     A     
 LEX                SPACE  4                                                               FC50763       57     A     
 LEX      **        TOK=BBO - BACKSPACE FOLLOWED BY O"STRING"                              FC50763       58     A     
 LEX                SPACE  2                                                               FC50763       59     A     
 LEX       TOK=BBO  BSS    0            ** ENTRY **                                        FC50763       60     A     
 LEX                RJ     SER          SAVE REGISTERS                                     FC50763       61     A     
 LEX                SA4    BBLA         GET REPLACEMENT TOKEN                              FC50763       62     A     
 LEX                                                                                       FC50763       63     A     
 LEX       BBO1     BX6    X4                                                              FC50763       64     A     
 LEX                SA6    A6           STORE REPLACEMENT TOKEN                            FC50763       65     A     
 LEX                SA6    A6+B1        ADVANCE TOKEN PTR                                  FC50763       66     A     
 LEX                RJ     RER          RESTORE REGISTERS                                  FC50763       67     A     
 LEX                                                                                       FC50763       68     A     
 LEX                SA0    TOM=OCT      RESET PSEUDO P-REGISTER                            FC50763       69     A     
 LEX                SX7    CT.OCT                                                          FC50763       70     A     
 LEX                SA7    CH=TYPE                                                         FC50763       71     A     
 LEX                                                                                       FC50763       72     A     
 LEX       BBO2     SA1    A6-1                                                            FC50763       73     A     
 LEX                EQ     BOO3         SKIP CHECK FOR VARIABLE TOKEN                      FC50763       74     A     
 LEX                                                                                       FC50763       75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SPACE  4                                                               FC50763       76     A     
 LEX      *         TOK=BRO - REWIND FOLLOWED BY O"STRING"                                 FC50763       77     A     
 LEX                SPACE  2                                                               FC50763       78     A     
 LEX       TOK=BRO  BSS    0            ** ENTRY **                                        FC50763       79     A     
 LEX                RJ     SER                                                             FC50763       80     A     
 LEX                SA4    BRLA         GET REPLACEMENT TOKEN                              FC50763       81     A     
 LEX                EQ     BBO1                                                            FC50763       82     A     
 LEX                SPACE  4                                                               FC50763       83     A     
 LEX      *         TOK=BBZ - BACKSPACE FOLLOWED BY Z"STRING"                              FC50763       84     A     
 LEX                SPACE  2                                                               FC50763       85     A     
 LEX       TOK=BBZ  BSS    0            ** ENTRY **                                        FC50763       86     A     
 LEX                RJ     SER                                                             FC50763       87     A     
 LEX                SA4    BBLA         GET REPLACEMENT TOKEN                              FC50763       88     A     
 LEX                                                                                       FC50763       89     A     
 LEX       BBZ1     BX6    X4                                                              FC50763       90     A     
 LEX                SA6    A6           STORE REPLACEMENT TOKEN                            FC50763       91     A     
 LEX                SA6    A6+B1        ADVANCE TOKEN PTR                                  FC50763       92     A     
 LEX                RJ     RER                                                             FC50763       93     A     
 LEX                                                                                       FC50763       94     A     
 LEX                SA0    TOM=HEX      RESET PSEUDO P-REGISTER                            FC50763       95     A     
 LEX                SX7    CT.HEX                                                          FC50763       96     A     
 LEX                SA7    CH=TYPE                                                         FC50763       97     A     
 LEX                EQ     BBO2                                                            FC50763       98     A     
 LEX                                                                                       FC50763       99     A     
 LEX                SPACE  3                                                               FC50763      100     A     
 LEX      *         TOK=BRZ - REWIND FOLLOWED BY Z"STRING"                                 FC50763      101     A     
 LEX                SPACE  2                                                               FC50763      102     A     
 LEX       TOK=BRZ  BSS    0            ** ENTRY **                                        FC50763      103     A     
 LEX                RJ     SER                                                             FC50763      104     A     
 LEX                SA4    BRLA         GET REPLACEMENT TOKEN                              FC50763      105     A     
 LEX                EQ     BBZ1                                                            FC50763      106     A     
 LEX      **        TOK=BOL - BEGINNING OF L"STRING"                                       LEX         3886     A     
 LEX                                                                                       LEX         3887     A     
 LEX                                                                                       LEX         3888     A     
 LEX       TOK=BOL  BSS    0           ** ENTRY **                                         LEX         3889     A     
 LEX                SA0    TOM=DQT                                                         LEX         3890     A     
 LEX                SX7    CT.L                                                            LEX         3891     A     
 LEX                SA7    CH=TYPE                                                         LEX         3892     A     
 LEX                =A1    A6-1                                                            LEX         3893     A     
 LEX                BX6    X1                                                              LEX         3894     A     
 LEX                SA6    A1                                                              LEX         3895     A     
 LEX                EQ     TOK=MN                                                          LEX         3896     A     
 LEX       TOK=BOR  SPACE  4,8                                                             LEX         3897     A     
 LEX      **        TOK=BOR - BEGINNING OF R"STRING"                                       LEX         3898     A     
 LEX                                                                                       LEX         3899     A     
 LEX                                                                                       LEX         3900     A     
 LEX       TOK=BOR  BSS    0           ** ENTRY **                                         LEX         3901     A     
 LEX                SA0    TOM=DQT                                                         LEX         3902     A     
 LEX                SX7    CT.R                                                            LEX         3903     A     
 LEX                SA7    CH=TYPE                                                         LEX         3904     A     
 LEX                =A1    A6-1                                                            LEX         3905     A     
 LEX                BX6    X1                                                              LEX         3906     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA6    A1                                                              LEX         3907     A     
 LEX                EQ     TOK=MN                                                          LEX         3908     A     
 LEX       TOK=BOO  SPACE  4,10                                                            LEX         3909     A     
 LEX      **        TOK=BOO - BEGINNING OF OCTAL (O"") OR HEX (X"") CONSTANT.              LEX         3910     A     
 LEX      *                                                                                LEX         3911     A     
 LEX      *                                                                                LEX         3912     A     
 LEX      *         HERE AT THE BEGINNING OF AN OCTAL (O"") OR HEX (X"") CONSTANT.         LEX         3913     A     
 LEX      *         NEED TO --                                                             LEX         3914     A     
 LEX      *                                                                                LEX         3915     A     
 LEX      *           1. RESET (A0), THE *COMCTOK* PSEUDO P REGISTER, TO *TOM=OCT*         LEX         3916     A     
 LEX      *              SO THAT THIS OCTAL CONSTANT CAN BE PROPERLY ENTOKENED.            LEX         3917     A     
 LEX      *                                                                                LEX         3918     A     
 LEX      *              NOTE THAT IF THIS IS A HEX CONSTANT, THAT *TOK=BOX*               LEX         3919     A     
 LEX      *              (BEGINNING OF HEX CONSTANT) HAS ALREADY SET (A0) TO               LEX         3920     A     
 LEX      *              *TOM=HEX*, AND THAT ENTRY IS TO *BOO2* BELOW.                     LEX         3921     A     
 LEX      *                                                                                LEX         3922     A     
 LEX      *           2. CHECK TO MAKE SURE THAT THE TOKEN PRECEDING THIS O""              LEX         3923     A     
 LEX      *              OR X"" IS **NOT** A *VAR* TOKEN.  THIS IS NECESSARY               LEX         3924     A     
 LEX      *              BECAUSE *CASEOF* KEYS OFF OF THE TOKEN SEQUENCE --                LEX         3925     A     
 LEX      *                                                                                LEX         3926     A     
 LEX      *                  VAR'O'  DQOT    OR    VAR'X'  DQOT                            LEX         3927     A     
 LEX      *                                                                                LEX         3928     A     
 LEX      *              IT CAN BE SEEN THAT THE ABOVE SAYS **NOTHING** ABOUT              LEX         3929     A     
 LEX      *              THE TOKEN THAT **PRECEDES** THESE SEQUENCES, AND THAT             LEX         3930     A     
 LEX      *              THIS CAN GET US INTO TROUBLE...                                   LEX         3931     A     
 LEX      *                                                                                LEX         3932     A     
 LEX      *              CONSIDER THE FOLLOWING --                                         LEX         3933     A     
 LEX      *                                                                                LEX         3934     A     
 LEX      *                  VAR'CARAMEL'  VAR'O'  DQOT                                    LEX         3935     A     
 LEX      *                                                                                LEX         3936     A     
 LEX      *              WHICH ERRONEOUSLY LOOKS LIKE THE BEGINNING OF AN OCTAL            LEX         3937     A     
 LEX      *              CONSTANT.  THIS PROBLEM OCCURS BECAUSE THERE IS NO                LEX         3938     A     
 LEX      *              WAY VIA THE *TOGEL* LANGUAGE TO SPECIFY *ALL TOKENS               LEX         3939     A     
 LEX      *              BUT THIS TOKEN*.  I.E. WE WOULD LIKE TO WRITE --                  LEX         3940     A     
 LEX      *                                                                                LEX         3941     A     
 LEX      *                  CASEOF                                                        LEX         3942     A     
 LEX      *                     .                                                          LEX         3943     A     
 LEX      *                    TOKEN OCT,(.NOT.VAR,VAR'O',DQOT)                            LEX         3944     A     
 LEX      *                                                                                LEX         3945     A     
 LEX      *              BUT BECAUSE WE CANT, WE HAVE TO CHECK FOR THE *.NOT.VAR*          LEX         3946     A     
 LEX      *              CASE WITH HARD-CODE.                                              LEX         3947     A     
 LEX      *                                                                                LEX         3948     A     
 LEX      *              NOTE THAT IF WE DECIDE THAT THIS IS **NOT** AN *OCT/HEX*          LEX         3949     A     
 LEX      *              THAT WE THEN TRANSFER CONTROL TO *TOK=DQT* (DOUBLE QUOTE)         LEX         3950     A     
 LEX      *              PROCESSING SO THAT THIS " GETS TREATED AS THE BEGINNING           LEX         3951     A     
 LEX      *              OF A "" (HOLL) STRING.  CLEVER IF I DO SAY SO MYSELF...           LEX         3952     A     
 LEX      *                                                                                LEX         3953     A     
 LEX      *           3. BACK UP (A6), THE TOKEN BUFFER POINTER, SO THAT THE               LEX         3954     A     
 LEX      *              *OCT* OR *HEX* TOKEN(S) TO BE GENERATED WILL OVERWRITE            LEX         3955     A     
 LEX      *              THE *VAR'O'* OR *VAR'X'* TOKEN.                                   LEX         3956     A     
 LEX      *                                                                                LEX         3957     A     
 LEX      *           4. SAVE THE FWA OF THIS *OCT/HEX* CONSTANT IN (CH=TAD) SO            LEX         3958     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              THAT *LEX*S MAIN LOOP CAN DETERMINE WHETHER OR NOT TO             LEX         3959     A     
 LEX      *              ISSUE AN ERROR MSG IF THE TERMINATING " IS MISSING.               LEX         3960     A     
 LEX      *              SEE *DATA STRUCTURES/CH=TAD* FOR MORE INFORMATION.                LEX         3961     A     
 LEX                                                                                       LEX         3962     A     
 LEX                                                                                       LEX         3963     A     
 LEX       TOK=BOO  BSS    0           ** ENTRY **                                         LEX         3964     A     
 LEX                SA0    TOM=OCT     RESET PSEUDO P REGISTER                             LEX         3965     A     
 LEX                SX7    CT.OCT                                                          LEX         3966     A     
 LEX                SA7    CH=TYPE                                                         LEX         3967     A     
 LEX       BOO2     SA1    A6-1                                                            LEX         3968     A     
 LEX                SX7    X1-O.VAR                                                        LEX         3969     A     
 LEX                ZR     X7,TOK=DQT  IF NOT *OCT/HEX* TOKEN, MUST BE STRING...           LEX         3970          I
          -FC50763
 LEX                BX6    X1                                                              LEX         3971          I
          -FC50763
 LEX                NZ     X7,BOO3     IF NOT PRECEDED BY VAR TOKEN                        FC50763      107     A     
 LEX                BX6    X1          SAVE X1                                             FC50763      108     A     
 LEX                SA1    BOOA        GET VAR'ENDFILE' TOKEN                              FC50763      109     A     
 LEX                BX7    X6-X1       COMPARE TOKENS                                      FC50763      110     A     
 LEX                SA1    A6-1        RESTORE X1                                          FC50763      111     A     
 LEX                NZ     X7,TOK=DQT  IF NOT *OCT/HEX* TOKEN, MUST BE STRING...           FC50763      112     A     
 LEX                                                                                       FC50763      113     A     
 LEX       BOO3     BX6    X1                                                              FC50763      114     A     
 LEX                SX7    A6+B1       (X7) = FWA OF TO-BE-GENERATED *OCT/HEX*             LEX         3972     A     
 LEX                SA6    A1+                                                             LEX         3973     A     
 LEX                SA7    CH=TAD                                                          LEX         3974     A     
 LEX                SA1    LEXFLG                                                          FC5A110       38     A     
 LEX                MX2    1                                                               FC5A110       39     A     
 LEX                LX2    LF.TDEP-59                                                      FC5A110       40     A     
 LEX                BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED          FC5A110       41     A     
 LEX                EQ     TOK=CON     RETURN W/ NO STORE...                               LEX         3975     A     
 LEX                                                                                       FC50763      115     A     
 LEX       BOOA     VFD    54/7LENDFILE,6/O.VAR                                            FC50763      116     A     
 LEX       TOK=BOQ  SPACE  4,10                                                            LEX         3976     A     
 LEX      **        TOK=BOQ - HERE TO PROCESS BEGINNING OF " DELIMITED STRING.             LEX         3977     A     
 LEX      *                                                                                LEX         3978     A     
 LEX      *           1. GENERATE A PREMATURE, INCOMPLETE *O.HOLL* TOKEN TO                LEX         3979     A     
 LEX      *              FINISHES *GROUP*ING THIS '' STRING, *TOK=EOC* (END                LEX         3980     A     
 LEX      *              OF CHARACTER STRING) WILL GO BACK AND FILL IN THE                 LEX         3981     A     
 LEX      *              MISSING INFORMATION (E.G. STRING LEN) INTO THE INCOMPLETE         LEX         3982     A     
 LEX      *              *O.HOLL* TOKEN AT (CH=TAD).                                       LEX         3983     A     
 LEX      *                                                                                LEX         3984     A     
 LEX      *           2. SAVE THE CHARACTER STRING TYPE (I.E. "") IN (CH=TYPE).            LEX         3985     A     
 LEX      *                                                                                LEX         3986     A     
 LEX      *           3. SET *LEXFLG/QAC* TO INDICATE THAT A QUOTE STRING IS               LEX         3987     A     
 LEX      *              ACTIVE.  SEE *LEXFLG/QAC* FOR MORE INFORMATION.                   LEX         3988     A     
 LEX      *                                                                                LEX         3989     A     
 LEX      *           4. RETURN TO *TOK=MN* (TOKEN GENERATOR MAIN LOOP NODE)               LEX         3990     A     
 LEX      *              TO GROUP THIS "" STRING.  NOTE THAT THE REMAINDER OF              LEX         3991     A     
 LEX      *              *T.TB* IMMEDIATELY FOLLOWING THE INCOMPLETE/PREMATURE             LEX         3992     A     
 LEX      *              *O.HOLL* TOKEN IS USED AS A SCRATCH AREA FOR GROUPING/            LEX         3993     A     
 LEX      *              ASSEMBLING THIS CHARACTER STRING.                                 LEX         3994     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         3995     A     
 LEX                                                                                       LEX         3996     A     
 LEX       TOK=BOQ  BSS    0           ** ENTRY **                                         LEX         3997     A     
 LEX                SX6    O.HOLL                                                          LEX         3998          I
          -FC5A258
 LEX                SX6    O.QHOLL                                                         FC5A258       14     A     
 LEX                SX7    A6+B1       (X7) = ADDR IN *T.TB* OF *O.HOLL* TOKEN             LEX         3999     A     
 LEX                SA6    A6+B1       MARK *O.HOLL* TOKEN                                 LEX         4000     A     
 LEX                SA7    CH=TAD                                                          LEX         4001     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         4002     A     
 LEX                SB5    -B1         (B5) = -(CHAR COUNT+1)                              LEX         4003     A     
 LEX                SX7    0                                                               LEX         4004     A     
 LEX                SA7    TF=SQZ      SET TO *NO BLANK SQZ*                               LEX         4005     A     
 LEX                SA1    LEXFLG                                                          LEX         4006     A     
 LEX                MX2    1                                                               LEX         4007     A     
 LEX                LX2    LF.QACP-59                                                      LEX         4008          I
          -FC5A110
 LEX                BX7    X2+X1       SET TO *QUOTE STRING ACTIVE*                        LEX         4009          I
          -FC5A110
 LEX                LX2    LF.TDEP-59                                                      FC5A110       42     A     
 LEX                BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED          FC5A110       43     A     
 LEX                SA7    A1                                                              LEX         4010     A     
 LEX                EQ     TOK=MN                                                          LEX         4011     A     
 LEX       TOK=BOX  SPACE  4,10                                                            LEX         4012     A     
 LEX      **        TOK=BOX - BEGINNING OF HEX CONSTANT.                                   LEX         4013     A     
 LEX      *                                                                                LEX         4014     A     
 LEX      *                                                                                LEX         4015     A     
 LEX      *         SEE *TOK=BOO* (BEGINNING OF OCTAL CONSTANT) FOR DETAILS.               LEX         4016     A     
 LEX                                                                                       LEX         4017     A     
 LEX                                                                                       LEX         4018     A     
 LEX       TOK=BOX  BSS    0           ** ENTRY **                                         LEX         4019     A     
 LEX                SA0    TOM=HEX     RESET PSEUDO P REGISTER                             LEX         4020     A     
 LEX                SX7    CT.HEX                                                          LEX         4021     A     
 LEX                SA7    CH=TYPE                                                         LEX         4022     A     
 LEX                EQ     BOO2        CONTINUE WITH HEX/OCTAL CONSTANT...                 LEX         4023     A     
 LEX       TOK=CHR  SPACE  4,10                                                            LEX         4024     A     
 LEX      **        TOK=CHR - HERE IF 'CHARACTER *' ENCOUNTERED.                           LEX         4025     A     
 LEX      *                                                                                LEX         4026     A     
 LEX      *                                                                                LEX         4027     A     
 LEX      *         THE 'CHARACTER *' STATEMENT HAS TO BE SPECIAL-CASED                    LEX         4028     A     
 LEX      *         BECAUSE OF AN AMBIGUITY IN THE FTN LANGUAGE SPECIFICATION.             LEX         4029     A     
 LEX      *         THEREFORE, WE SET A FLAG *LEXFLG/CHR* TO INDICATE THAT                 LEX         4030     A     
 LEX      *         WE ARE IN A 'CHARACTER *' STATEMENT.                                   LEX         4031     A     
 LEX      *                                                                                LEX         4032     A     
 LEX      *         SEE DATA STRUCTURES/LEXFLG/CHR AND *TOK=NOH* FOR                       LEX         4033     A     
 LEX      *         DETAILS.                                                               LEX         4034     A     
 LEX                                                                                       LEX         4035     A     
 LEX                                                                                       LEX         4036     A     
 LEX       TOK=CHR  BSS    0           ** ENTRY **                                         LEX         4037     A     
 LEX                SA1    LEXFLG                                                          LEX         4038     A     
 LEX                CLAS=  X2,LF,(CHR)                                                     LEX         4039     A     
 LEX                BX7    X1+X2       SET TO *WE ARE IN 'CHARACTER' STMT*                 LEX         4040     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA7    A1                                                              LEX         4041     A     
 LEX                SX6    O.STAR                                                          LEX         4042     A     
 LEX                SA6    A6+1                                                            LEX         4043     A     
 LEX                EQ     TOK=CON     CONTINUE W/ NO STORE...                             LEX         4044     A     
 LEX       TOK=CMA  SPACE  4,10                                                            LEX         4045     A     
 LEX      **        TOK=CMA - HERE IF *,* ENCOUNTERED DURING TOKEN GENERATION.             LEX         4046     A     
 LEX      *                                                                                LEX         4047     A     
 LEX      *         IF THIS *,* IS AT PAREN LEVEL ZERO, THEN SET UP *ZLCOMMA*.             LEX         4048     A     
 LEX                                                                                       LEX         4049     A     
 LEX                                                                                       LEX         4050     A     
 LEX       TOK=CMA  BSS    0           ** ENTRY **                                         LEX         4051     A     
 LEX                SA1    TB=PLVL                                                         LEX         4052     A     
 LEX                SX7    A6+1        (X7) = ADDR OF ZERO LEVEL COMMA                     LEX         4053     A     
 LEX                NZ     X1,TOK=COS  IF NOT AT PAREN LEVEL ZERO                          LEX         4054     A     
 LEX                SA7    ZLCOMMA                                                         LEX         4055     A     
 LEX                EQ     TOK=COS     CONTINUE...                                         LEX         4056     A     
 LEX       TOK=COL  SPACE  4,10                                                            LEX         4057     A     
 LEX      **        TOK=COL - HERE IF *:* ENCOUNTERED.                                     LEX         4058     A     
 LEX      *                                                                                LEX         4059     A     
 LEX      *           1. IF THIS COLON IS NOT AT PAREN LEVEL 0, THEN SET                   LEX         4060     A     
 LEX      *              *TB.COL* BIT IN APPROPRIATE *O.LP* TOKEN TO INDICATE              LEX         4061     A     
 LEX      *              THAT THIS PAREN LEVEL CONTAINS AN *O.COLON* TOKEN.                LEX         4062     A     
 LEX      *                                                                                LEX         4063     A     
 LEX      *              E.G., CONSIDER --                                                 LEX         4064     A     
 LEX      *                                                                                LEX         4065     A     
 LEX      *                STIFF = SLEAZY(I)(3:10)                                         LEX         4066     A     
 LEX      *                                 . .                                            LEX         4067     A     
 LEX      *                                 . ....... WE ARE HERE                          LEX         4068     A     
 LEX      *                                 .                                              LEX         4069     A     
 LEX      *                                 ......... SET *TB.COL* IN THIS                 LEX         4070     A     
 LEX      *                                           *O.LP* TOKEN                         LEX         4071     A     
 LEX      *                                                                                LEX         4072     A     
 LEX      *              THIS INFORMATION WILL BE USED AS AN AID TO THE PARSER             LEX         4073     A     
 LEX      *              IN MAKING THE DISTINCTION BETWEEN *SLEAZY* BEING                  LEX         4074     A     
 LEX      *              A FUNCTION OR SUBSTRING REFERENCE.                                LEX         4075     A     
 LEX      *                                                                                LEX         4076     A     
 LEX      *           2. SET UP (ZLCOLON).  SEE *CST* (CLASSIFY STMT) FOR DETAILS.         LEX         4077     A     
 LEX                                                                                       LEX         4078     A     
 LEX                                                                                       LEX         4079     A     
 LEX       TOK=COL  BSS    0           ** ENTRY **                                         LEX         4080     A     
 LEX                SA1    TB=LLP      (X1) = ADDR OF LAST (MOST RECENT) LP TOKEN          LEX         4081     A     
 LEX                                                                                       LEX         4082     A     
 LEX       COL2     ZR     X1,COL3     IF END OF *LLP* CHAIN ENCOUNTERED                   LEX         4083     A     
 LEX                SA2    X1          (A2,X2) = A+C OF LINKED LEFT PAREN                  LEX         4084     A     
 LEX                BX7    X2          SAVE (X2)                                           LEX         4085     A     
 LEX                LX2    0-TB.LLPP                                                       LEX         4086     A     
 LEX                ERRNZ  18-TB.LLPL                                                      LEX         4087     A     
 LEX                SX1    X2          (X1) = ADDR OF PRIOR LINKED LEFT PAREN              LEX         4088     A     
 LEX                LX2    0-TB.IOCPP+TB.LLPP-0                                            LEX         4089     A     
 LEX                ERRNZ  18-TB.IOCPL                                                     LEX         4090     A     
 LEX                SX3    X2          (X3) = ADDR OF MATCHING RIGHT PAREN,                LEX         4091     A     
 LEX      *                                   ELSE .ZR. IF NONE                            LEX         4092     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                NZ     X3,COL2     IF THIS LEFT PAREN HAS A MATCHING RT PAREN          LEX         4093     A     
 LEX                MX1    1                                                               LEX         4094     A     
 LEX                LX1    TB.COLP-59                                                      LEX         4095     A     
 LEX                BX7    X7+X1       SET TO *COLON AT THIS PAREN LEVEL*                  LEX         4096     A     
 LEX                SA7    A2                                                              LEX         4097     A     
 LEX                                                                                       LEX         4098     A     
 LEX      *         SET UP (ZLCOLON), IF APPROPRIATE.                                      LEX         4099     A     
 LEX                                                                                       LEX         4100     A     
 LEX       COL3     SA1    ZLCOLON                                                         LEX         4101     A     
 LEX                SA2    TB=PLVL                                                         LEX         4102     A     
 LEX                NZ     X1,TOK=COS  IF HAVE ALREADY SET *ZLCOLON*                       LEX         4103     A     
 LEX                SX3    X2-1                                                            LEX         4104     A     
 LEX                NZ     X3,TOK=COS  IF NOT AT PAREN LEVEL 1                             LEX         4105     A     
 LEX                SX7    A6+B1       (X7) = ADDR OF 1ST LEVEL 1 COLON                    LEX         4106     A     
 LEX                SA7    A1                                                              LEX         4107     A     
 LEX                EQ     TOK=COS     CONTINUE...                                         LEX         4108     A     
 LEX       TOK=DQT  SPACE  4,10                                                            LEX         4109     A     
 LEX      **        TOK=DQT - HERE IF " ENCOUNTERED VIA *CASEOF*.                          LEX         4110     A     
 LEX      *                                                                                LEX         4111     A     
 LEX      *         THIS OWNCODE EXISTS SOLEY BECAUSE OF AN UGLY/PROBLEM THAT              LEX         4112     A     
 LEX      *         ARISES IN USING *TOGEL* AS A HIGHER LEVEL LANGUAGE.  I THINK           LEX         4113     A     
 LEX      *         THIS MIGHT BEST BE UNDERSTOOD VIA ILLUSTRATION...                      LEX         4114     A     
 LEX      *                                                                                LEX         4115     A     
 LEX      *         *TOK=DQT* WAS INVOKED VIA THE *TOGEL* --                               LEX         4116     A     
 LEX      *                                                                                LEX         4117     A     
 LEX      *                CASEOF (+..:)                                                   LEX         4118     A     
 LEX      *                    .                                                           LEX         4119     A     
 LEX      *                  TOKEN DQOT,,TOK=DQT                                           LEX         4120     A     
 LEX      *                    .                                                           LEX         4121     A     
 LEX      *                ENDC                                                            LEX         4122     A     
 LEX      *                                                                                LEX         4123     A     
 LEX      *         WHAT WE WOULD **LIKE** TO HAVE WRITTEN IS --                           LEX         4124     A     
 LEX      *                                                                                LEX         4125     A     
 LEX      *                CASEOF (+..:)                                                   LEX         4126     A     
 LEX      *                    .                                                           LEX         4127     A     
 LEX      *                  TOKEN DQOT,,*TOM=DQT                                          LEX         4128     A     
 LEX      *                    .                                                           LEX         4129     A     
 LEX      *                ENDC                                                            LEX         4130     A     
 LEX      *                                                                                LEX         4131     A     
 LEX      *         THAT IS, WE WOULD LIKE TO HAVE MERELY TRANSFERRED CONTROL              LEX         4132     A     
 LEX      *         OF *COMCTOK* TO THE SECTION OF THE *TOGEL* OBJECT MODULE (TOM)         LEX         4133     A     
 LEX      *         THAT IS CONCERNED WITH PROCESSING THE "" DELIMITED STRING.             LEX         4134     A     
 LEX      *                                                                                LEX         4135     A     
 LEX      *         WE **CANNOT** HOWEVER DO THIS BECAUSE *COMCTOK* IS AT THE              LEX         4136     A     
 LEX      *         CURRENT TIME (I.E. AT THE TIME OF THE *CASEOF*) IN *BLANK              LEX         4137     A     
 LEX      *         SQUEEZE* MODE; AND THIS IMPLIES THAT **BEFORE** THE FIRST              LEX         4138     A     
 LEX      *         *TOGEL* INSTRUCTION AT *TOM=DQT* IS EXECUTED/INTERPRETED,              LEX         4139     A     
 LEX      *         THAT BLANKS WILL BE SQUEEZED/STRIPPED.  THIS IS NO GOOD FOR            LEX         4140     A     
 LEX      *         CHARACTER STRINGS.                                                     LEX         4141     A     
 LEX      *                                                                                LEX         4142     A     
 LEX      *         THEREFORE, WE USE *TOK=DQT* TO CIRCUMVENT SOME NASTY AND               LEX         4143     A     
 LEX      *         UNWANTED *COMCTOK* PROCESSING; AND TO GET US STARTED BACK              LEX         4144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         IN THE *TOGEL* OBJECT MODULE AT *TOM=DQT*.                             LEX         4145     A     
 LEX                                                                                       LEX         4146     A     
 LEX                                                                                       LEX         4147     A     
 LEX       TOK=DQT  BSS    0           ** ENTRY **                                         LEX         4148     A     
 LEX                SX7    CT.DQT                                                          LEX         4149     A     
 LEX                SA7    CH=TYPE                                                         LEX         4150     A     
 LEX                SA0    TOM=DQT     RESET PSEUDO -P- REGISTER                           LEX         4151     A     
 LEX                EQ     TOK=MN                                                          LEX         4152     A     
 LEX       TOK=EOC  SPACE  4,10                                                            LEX         4153     A     
 LEX      **        TOK=EOC - END OF ' QUOTE (TYPE *CHARACTER*) STRING.                    LEX         4154     A     
 LEX      *                                                                                LEX         4155     A     
 LEX      *         HERE WHEN THE TERMINATING QUOTE OF A ' QUOTE DELIMITED                 LEX         4156     A     
 LEX      *         STRING HAS BEEN FOUND/SENSED.  CALL *EOC* (END OF CHARACTER            LEX         4157     A     
 LEX      *         STRING PROCESSING) TO --                                               LEX         4158     A     
 LEX      *                                                                                LEX         4159     A     
 LEX      *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING                LEX         4160     A     
 LEX      *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                             LEX         4161     A     
 LEX      *                                                                                LEX         4162     A     
 LEX      *           2. UPDATE THE INCOMPLETE *O.CHAR* TOKEN BY STORING THE               LEX         4163     A     
 LEX      *              NR OF CHARACTERS IN THE STRING INTO IT.                           LEX         4164     A     
 LEX      *                                                                                LEX         4165     A     
 LEX      *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*          LEX         4166     A     
 LEX      *              IMMEDIATELY FOLLOWING THE *O.CHAR* TOKEN INTO *T.CHAR*            LEX         4167     A     
 LEX      *              VIA *NCM* (ENTER CM INTO TABLE).                                  LEX         4168     A     
 LEX      *                                                                                LEX         4169     A     
 LEX      *         NOTE THAT UPON ENTRY TO *TOK=EOC* THAT (X4) IS POINTING TO THE         LEX         4170     A     
 LEX      *         1ST CHARACTER IMMEDIATELY FOLLOWING THE ' MARK.  IF YOU ARE            LEX         4171     A     
 LEX      *         WONDERING WHY IT IS NOT POINTING TO THE ' MARK ITSELF, IT IS           LEX         4172     A     
 LEX      *         BECAUSE THE *TOK=ITQ* (IGNORE TERMINATING QUOTE) PROCESSING            LEX         4173     A     
 LEX      *         ALREADY ADVANCED THE CHARACTER POINTER.  SEE PROC *SQT*.               LEX         4174     A     
 LEX      *                                                                                LEX         4175     A     
 LEX      *         NOTE THAT WE HAVE TO CONVERT (TC=SOA)/SAVED (A5) FROM                  LEX         4176     A     
 LEX      *         AN ADDR TO AN ORDINAL, AND THEN BACK TO AN ADDR ACROSS                 LEX         4177     A     
 LEX      *         THE *NCM* (ENTER CM) CALL.  THIS IS BECAUSE *NCM* CALLS                LEX         4178     A     
 LEX      *         THE TABLE MANAGER...AND THIS MEANS THAT (A5), WHICH                    LEX         4179     A     
 LEX      *         POINTS INTO *T.STMT*, MAY NOT BE CORRECT IF THE TABLE                  LEX         4180     A     
 LEX      *         MANAGER MOVES *T.STMT* (DUMB, UGLY BUG).                               LEX         4181     A     
 LEX      *                                                                                LEX         4182     A     
 LEX      *                ** WARNING **                                                   LEX         4183     A     
 LEX      *                                                                                LEX         4184     A     
 LEX      *         THIS CODE WILL **NOT** WORK IF ADDING STRING TO *T.CON* EVER           LEX         4185     A     
 LEX      *         CAUSES TABLE MANAGER TO MOVE *T.TB*.                                   LEX         4186     A     
 LEX                                                                                       LEX         4187     A     
 LEX                                                                                       LEX         4188     A     
 LEX       TOK=EOC  BSS    0           ** ENTRY **                                         LEX         4189     A     
 LEX                RJ     SER         SAVE ENTOKENING REGISTERS                           LEX         4190     A     
 LEX                SA1    T.STMT                                                          LEX         4191     A     
 LEX                SA2    TC=SOA      (X2) = SAVED (A5)                                   LEX         4192     A     
 LEX                IX7    X2-X1       (X7) = CURRENT *T.STMT* ORD                         LEX         4193     A     
 LEX                SA7    A2                                                              LEX         4194     A     
 LEX                SX7    B5                                                              LEX         4195     A     
 LEX                SB3    A6+B1       (B3) = LWA+1 OF '' STRING                           LEX         4196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA7    CH=CNT      SAVE (B5) = -(CHAR COUNT+1)                         LEX         4197     A     
 LEX                RJ     EOC         END OF CHARACTER STRING PROCESSING                  LEX         4198     A     
 LEX                SA1    T.STMT                                                          LEX         4199     A     
 LEX                SA2    TC=SOA      (X2) = SAVED *T.STMT* ORD                           LEX         4200     A     
 LEX                IX7    X1+X2       (X7) = CURRENT *T.STMT* ADDR                        LEX         4201     A     
 LEX                SA7    A2                                                              LEX         4202     A     
 LEX                RJ     RER         RESTORE ENTOKENING REGISTERS                        LEX         4203     A     
 LEX                SX7    1                                                               LEX         4204     A     
 LEX                SA7    TF=SQZ      SET TO *BLANK SQUEEZE, PLEASE*                      LEX         4205     A     
 LEX                EQ     TOK=MN                                                          LEX         4206     A     
 LEX       TOK=EOH  SPACE  4,10                                                            LEX         4207     A     
 LEX      **        TOK=EOH - END OF *HLR* STRING.                                         LEX         4208     A     
 LEX      *                                                                                LEX         4209     A     
 LEX      *         HERE WHEN END OF *HLR* STRING DETECTED.  CALL *EOH* (END               LEX         4210     A     
 LEX      *         OF HOLLERITH STRING PROCESSING) TO --                                  LEX         4211     A     
 LEX      *                                                                                LEX         4212     A     
 LEX      *           1. UPDATE INCOMPLETE *O.HOLL* TOKEN TO REFLECT WORD LEN              LEX         4213     A     
 LEX      *              AND *T.CONS* ORDINAL.                                             LEX         4214     A     
 LEX      *                                                                                LEX         4215     A     
 LEX      *           2. FORMAT FINAL/LAST WORD OF STRING.                                 LEX         4216     A     
 LEX      *                                                                                LEX         4217     A     
 LEX      *             A. IF -H- TYPE STRING, SPACE-FILL LAST WORD.                       LEX         4218     A     
 LEX      *             B. IF -R- TYPE STRING, RIGHT-JUSTIFY LAST WORD.                    LEX         4219     A     
 LEX      *             C. IF -L- TYPE STRING, DONT NEED TO DO ANYTHING.                   LEX         4220     A     
 LEX      *                                                                                LEX         4221     A     
 LEX      *           3. ENTER THE STRING WHICH WAS TEMPORARILY STORED INTO *T.TB*         LEX         4222     A     
 LEX      *              IMMEDIATELY FOLLOWING THE INCOMPLETE *O.HOLL* TOKEN INTO          LEX         4223     A     
 LEX      *              *T.CON* VIA *NCM* (ENTER CM INTO TABLE).                          LEX         4224     A     
 LEX      *                                                                                LEX         4225     A     
 LEX      *         NOTE THAT WE HAVE TO CONVERT (TC=SOA)/SAVED (A5) FROM                  LEX         4226     A     
 LEX      *         AN ADDR TO AN ORDINAL, AND THEN BACK TO AN ADDR ACROSS                 LEX         4227     A     
 LEX      *         THE *NCM* (ENTER CM) CALL.  THIS IS BECAUSE *NCM* CALLS                LEX         4228     A     
 LEX      *         THE TABLE MANAGER...AND THIS MEANS THAT (A5), WHICH                    LEX         4229     A     
 LEX      *         POINTS INTO *T.STMT*, MAY NOT BE CORRECT IF THE TABLE                  LEX         4230     A     
 LEX      *         MANAGER MOVES *T.STMT* (DUMB, UGLY BUG).                               LEX         4231     A     
 LEX      *                                                                                LEX         4232     A     
 LEX      *                ** WARNING **                                                   LEX         4233     A     
 LEX      *                                                                                LEX         4234     A     
 LEX      *         THIS CODE WILL **NOT** WORK IF ADDING STRING TO *T.CON* EVER           LEX         4235     A     
 LEX      *         CAUSES TABLE MANAGER TO MOVE *T.TB*.                                   LEX         4236     A     
 LEX                                                                                       LEX         4237     A     
 LEX                                                                                       LEX         4238     A     
 LEX       TOK=EOH  BSS    0           ** ENTRY **                                         LEX         4239     A     
 LEX                RJ     SER         SAVE ENTOKENING REGISTERS                           LEX         4240     A     
 LEX                SA1    T.STMT                                                          LEX         4241     A     
 LEX                SA2    TC=SOA      (X2) = SAVED (A5)                                   LEX         4242     A     
 LEX                IX7    X2-X1       (X7) = CURRENT *T.STMT* ORD                         LEX         4243     A     
 LEX                SA7    A2                                                              LEX         4244     A     
 LEX                                                                                       LEX         4245          I
          -FC5A258
 LEX                SX7    B5                                                              LEX         4246     A     
 LEX                SB3    A6+B1       (B3) = LWA+1 OF *HLR* STRING                        LEX         4247     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA7    CH=CNT      SAVE (B5) = -(CHAR COUNT+1)                         LEX         4248     A     
 LEX                RJ     EOH         END OF HOLLERITH STRING PROCESSING                  LEX         4249     A     
 LEX                SA1    T.STMT                                                          LEX         4250     A     
 LEX                SA2    TC=SOA      (X2) = SAVED *T.STMT* ORD                           LEX         4251     A     
 LEX                IX7    X1+X2       (X7) = CURRENT *T.STMT* ADDR                        LEX         4252     A     
 LEX                SA7    A2                                                              LEX         4253     A     
 LEX                RJ     RER         RESTORE ENTOKENING REGISTERS                        LEX         4254     A     
 LEX                SX7    1                                                               LEX         4255     A     
 LEX                SA7    TF=SQZ      SET TO *BLANK SQUEEZE, PLEASE*                      LEX         4256     A     
 LEX                EQ     TOK=MN                                                          LEX         4257     A     
 LEX       TOK=EOO  SPACE  4,10                                                            LEX         4258     A     
 LEX      **        TOK=EOO - END OF OCTAL/HEX CONSTANT.                                   LEX         4259     A     
 LEX      *                                                                                LEX         4260     A     
 LEX      *         NEED TO --                                                             LEX         4261     A     
 LEX      *                                                                                LEX         4262     A     
 LEX      *           1. CLEAR (CH=TAD) TO INDICATE THAT WE HAVE FOUND THE                 LEX         4263     A     
 LEX      *              TERMINATING " FOR THIS *OCT/HEX* CONSTANT.                        LEX         4264     A     
 LEX      *                                                                                LEX         4265     A     
 LEX      *              SEE *DATA STRUCTURES/CH=TAD* FOR DETAILS.                         LEX         4266     A     
 LEX      *                                                                                LEX         4267     A     
 LEX      *           2. SET (X4) TO .MI. TO EFFECTIVELY IGNORE THE TERMINATING            LEX         4268     A     
 LEX      *              ".                                                                LEX         4269     A     
 LEX                                                                                       LEX         4270     A     
 LEX                                                                                       LEX         4271     A     
 LEX       TOK=EOO  BSS    0           ** ENTRY **                                         LEX         4272     A     
 LEX                BX7    X7-X7                                                           LEX         4273     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         4274     A     
 LEX                SA7    CH=TAD      SET TO *HAVE FOUND END OF STRING*                   LEX         4275     A     
 LEX                EQ     TOK=MN                                                          LEX         4276     A     
 LEX       TOK=EOQ  SPACE  4,10                                                            LEX         4277     A     
 LEX      **        TOK=EOQ - END OF QUOTE STRING.                                         LEX         4278     A     
 LEX      *                                                                                LEX         4279     A     
 LEX      *         HERE WHEN THE TERMINATING QUOTE OF A QUOTE DELIMITED                   LEX         4280     A     
 LEX      *         STRING HAS BEEN FOUND/SENSED.  CALL *EOH* (END OF HOLLERITH            LEX         4281     A     
 LEX      *         STRING PROCESSING) TO --                                               LEX         4282     A     
 LEX      *                                                                                LEX         4283     A     
 LEX      *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING                LEX         4284     A     
 LEX      *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                             LEX         4285     A     
 LEX      *                                                                                LEX         4286     A     
 LEX      *           2. UPDATE THE INCOMPLETE *O.HOLL* TOKEN BY STORING THE               LEX         4287     A     
 LEX      *              STRING LENGTHS (NR OF WORDS OCCUPIED BY THE STRING, AND           LEX         4288     A     
 LEX      *              NR OF CHARACTERS IN THE STRING) INTO IT.                          LEX         4289     A     
 LEX      *                                                                                LEX         4290     A     
 LEX      *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*          LEX         4291     A     
 LEX      *              IMMEDIATELY FOLLOWING THE *O.HOLL* TOKEN INTO *T.CON*             LEX         4292     A     
 LEX      *              VIA *NCM* (ENTER CM INTO TABLE).                                  LEX         4293     A     
 LEX      *                                                                                LEX         4294     A     
 LEX      *         NOTE THAT UPON ENTRY TO *TOK=EOQ* THAT (X4) IS POINTING TO THE         LEX         4295     A     
 LEX      *         1ST CHARACTER IMMEDIATELY FOLLOWING THE " MARK.  IF YOU ARE            LEX         4296     A     
 LEX      *         WONDERING WHY IT IS NOT POINTING TO THE " MARK ITSELF, IT IS           LEX         4297     A     
 LEX      *         BECAUSE THE *TOK=ITQ* (IGNORE TERMINATING QUOTE) PROCESSING            LEX         4298     A     
 LEX      *         ALREADY ADVANCED THE CHARACTER POINTER.  SEE PROC *QOT*.               LEX         4299     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         4300     A     
 LEX                                                                                       LEX         4301     A     
 LEX       TOK=EOQ  EQU    TOK=EOH                                                         LEX         4302     A     
 LEX       TOK=EQL  SPACE  4,10                                                            LEX         4303     A     
 LEX      **        TOK=EQL - HERE IF *=* ENCOUNTERED DURING TOKEN GENERATION.             LEX         4304     A     
 LEX      *                                                                                LEX         4305     A     
 LEX      *           1. IF THIS *=* WAS AT PAREN LEVEL ZERO, THEN WE NEED TO MAKE         LEX         4306     A     
 LEX      *              A NEW ENTRY IN THE *ZLEQUAL* CHAIN.                               LEX         4307     A     
 LEX      *                                                                                LEX         4308     A     
 LEX      *              FOR EXAMPLE, CONSIDER THE FOLLOWING LINE, AND ASSUME THAT         LEX         4309     A     
 LEX      *              *TOK* IS INVOKING *TOK=EQL* FOR THE THIRD (LEFT-TO-RIGHT)         LEX         4310     A     
 LEX      *              ZERO LEVEL *=* --                                                 LEX         4311     A     
 LEX      *                                                                                LEX         4312     A     
 LEX      *                A(I)  =  B(I)  =  C(I)  =  0                                    LEX         4313     A     
 LEX      *                      &       . &       &                                       LEX         4314     A     
 LEX      *                      .       . .       .                                       LEX         4315     A     
 LEX      *                      ......... .       ...... *TOK* IS HERE                    LEX         4316     A     
 LEX      *                                .                                               LEX         4317     A     
 LEX      *                                .............. *ZLEQUAL* POINTS HERE            LEX         4318     A     
 LEX      *                                                                                LEX         4319     A     
 LEX      *              AFTER *TOK=EQL* --                                                LEX         4320     A     
 LEX      *                                                                                LEX         4321     A     
 LEX      *                A(I)  =  B(I)  =  C(I)  =  0                                    LEX         4322     A     
 LEX      *                      &       . &      . &                                      LEX         4323     A     
 LEX      *                      .       . .      . .                                      LEX         4324     A     
 LEX      *                      ......... ........ ..... *ZLEQUAL* POINTS HERE            LEX         4325     A     
 LEX      *                                                                                LEX         4326     A     
 LEX      *           2. IF THIS *O.=* TOKEN IS NOT AT PAREN LEVEL 0, THEN SET             LEX         4327     A     
 LEX      *              *TB.EQL* BIT IN THE *O.LP* TOKEN THAT DENOTES/BEGINS              LEX         4328     A     
 LEX      *              THIS PAREN NEST LEVEL TO INDICATE THAT THIS PAREN LEVEL           LEX         4329     A     
 LEX      *              CONTAINS AN *O.=* TOKEN.                                          LEX         4330     A     
 LEX      *                                                                                LEX         4331     A     
 LEX      *              E.G., CONSIDER --                                                 LEX         4332     A     
 LEX      *                                                                                LEX         4333     A     
 LEX      *                PRINT 100,(A(I),I=1,10)                                         LEX         4334     A     
 LEX      *                          .      .                                              LEX         4335     A     
 LEX      *                          .      ....... WE ARE HERE                            LEX         4336     A     
 LEX      *                          .                                                     LEX         4337     A     
 LEX      *                          .............. SET *TB.EQL* BIT IN THIS               LEX         4338     A     
 LEX      *                                         *O.LP* TOKEN                           LEX         4339     A     
 LEX                                                                                       LEX         4340     A     
 LEX                                                                                       LEX         4341     A     
 LEX       TOK=EQL  BSS    0           ** ENTRY **                                         LEX         4342     A     
 LEX                SA3    TB=PLVL                                                         LEX         4343     A     
 LEX                SA2    ZLEQUAL                                                         LEX         4344     A     
 LEX                SA1    TB=LLP      (X1) = ADDR OF LAST (MOST RECENT) LP TOKEN          LEX         4345     A     
 LEX                NZ     X3,EQL2     IF NOT AT PAREN LEVEL ZERO                          LEX         4346     A     
 LEX                SX7    A6+B1       (X7) = ADDR OF THIS 0 LVL *=*                       LEX         4347     A     
 LEX                LX2    WA.SYMP-0                                                       LEX         4348     A     
 LEX                SA7    A2                                                              LEX         4349     A     
 LEX                BX6    X6+X2       MERGE *ZLEQUAL* POINTER                             LEX         4350     A     
 LEX                                                                                       LEX         4351     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         HERE TO SET *TB.EQL* BIT IN *O.LP* TOKEN.                              LEX         4352     A     
 LEX                                                                                       LEX         4353     A     
 LEX       EQL2     ZR     X1,TOK=COS  IF END OF *LLP* CHAIN ENCOUNTERED                   LEX         4354     A     
 LEX                SA2    X1          (A2,X2) = A+C OF LINKED LEFT PAREN                  LEX         4355     A     
 LEX                BX7    X2          SAVE (X2)                                           LEX         4356     A     
 LEX                LX2    0-TB.LLPP                                                       LEX         4357     A     
 LEX                ERRNZ  18-TB.LLPL                                                      LEX         4358     A     
 LEX                SX1    X2          (X1) = ADDR OF PRIOR LINKED LEFT PAREN              LEX         4359     A     
 LEX                LX2    0-TB.IOCPP+TB.LLPP-0                                            LEX         4360     A     
 LEX                ERRNZ  18-TB.IOCPL                                                     LEX         4361     A     
 LEX                SX3    X2          (X3) = ADDR OF MATCHING RIGHT PAREN,                LEX         4362     A     
 LEX      *                                   ELSE .ZR. IF NONE                            LEX         4363     A     
 LEX                NZ     X3,EQL2     IF THIS LEFT PAREN HAS A MATCHING RT PAREN          LEX         4364     A     
 LEX                                                                                       LEX         4365     A     
 LEX                MX1    1                                                               LEX         4366     A     
 LEX                LX1    TB.EQLP-59                                                      LEX         4367     A     
 LEX                BX7    X7+X1       SET TO *EQUAL AT THIS PAREN LEVEL*                  LEX         4368     A     
 LEX                SA7    A2                                                              LEX         4369     A     
 LEX                EQ     TOK=COS     CONTINUE WITH TOKEN GENERATION...                   LEX         4370     A     
 LEX       TOK=HOL  SPACE  4,10                                                            LEX         4371     A     
 LEX      **        TOK=HOL - HERE IF EOL ENCOUNTERED DURING *HLR* STRING.                 LEX         4372     A     
 LEX      *                                                                                LEX         4373     A     
 LEX      *                                                                                LEX         4374     A     
 LEX                                                                                       LEX         4375     A     
 LEX                                                                                       LEX         4376     A     
 LEX       TOK=HOL  BSS    0           ** ENTRY **                                         LEX         4377     A     
 LEX                LE     B5,B0,HOL3  IF *HLR* STRING IS COMPLETE/FINISHED                LEX         4378     A     
 LEX                SX6    TOK=HOL                                                         LEX         4379     A     
 LEX                SX7    B5+                                                             LEX         4380     A     
 LEX                SA6    TC=EOL      RESET *ON EOL* ADDR TO *TOK=HOL*                    LEX         4381     A     
 LEX                SA7    CH=CNT      SAVE (B5)                                           LEX         4382     A     
 LEX                EQ     TOK         EXIT...                                             LEX         4383     A     
 LEX                                                                                       LEX         4384     A     
 LEX      *         HERE IF *HLR* STRING IS COMPLETE AT EOL.                               LEX         4385     A     
 LEX      *                                                                                LEX         4386     A     
 LEX      *           1. NEED TO BACK UP (A6) BECAUSE *TOK=EOL* STORED AN EOS              LEX         4387     A     
 LEX      *              MARK, AND WE NEED TO IGNORE IT.                                   LEX         4388     A     
 LEX      *                                                                                LEX         4389     A     
 LEX      *           2. SET UP (X4) WITH A DUMMY BLANK (55B) CHARACTER                    LEX         4390     A     
 LEX      *              SO THAT THE TOGEL PROC *HLR* (PROCESS HLR STRING)                 LEX         4391     A     
 LEX      *              CAN FINISH UP PROCESSING THIS HLR STRING.                         LEX         4392     A     
 LEX      *                                                                                LEX         4393     A     
 LEX      *              THIS IS NECESSARY TO **TRICK** *COMCTOK* INTO                     LEX         4394     A     
 LEX      *              THINKING THAT HE HAS A CHARACTER TO PROCESS (WHEN                 LEX         4395     A     
 LEX      *              IN FACT HE DOES NOT) SO THAT ALL THE END-OF-HLR                   LEX         4396     A     
 LEX      *              STRING TYPE PROCESSING SPECIFIED IN PROC *HLR*                    LEX         4397     A     
 LEX      *              CAN HAPPEN.  SEE PROC *HLR*.                                      LEX         4398     A     
 LEX      *                                                                                LEX         4399     A     
 LEX      *              THE PROBLEM IS THAT *COMCTOK* UNCONDITIONALLY MAKES               LEX         4400     A     
 LEX      *              SURE THAT WE HAVE A CHARACTER TO PROCESS IN (X4) BY               LEX         4401     A     
 LEX      *              ADVANCING THE CHARACTER POINTER IF (X4) ARE EMPTY, .MI.           LEX         4402     A     
 LEX      *              UNDER NORMAL CIRCUMSTANCES, THIS IS THE APPROPRIATE THING         LEX         4403     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              TO DO.  BUT UNDER OUR CURRENT HLR STRING AT EOL CIRCUM-           LEX         4404     A     
 LEX      *              STANCE, THIS CAUSES *TOK* TO EXIT PREMATURELY BECAUSE WE          LEX         4405     A     
 LEX      *              ARE AT END-OF-LINE (I.E. *TOK*S EXIT CONDITION).                  LEX         4406     A     
 LEX                                                                                       LEX         4407     A     
 LEX       HOL3     SA1    A6-B1                                                           LEX         4408     A     
 LEX                BX6    X1                                                              LEX         4409     A     
 LEX                SA6    A1+                                                             LEX         4410     A     
 LEX                SX4    1R                                                              LEX         4411     A     
 LEX                EQ     TOK=MN      BACK TO OUR TOGEL PROGRAM...                        LEX         4412     A     
 LEX       TOK=ILL  SPACE  4,10                                                            LEX         4413     A     
 LEX      **        TOK= ILL -         ILLEGAL FORTRAN CHARACTER ENCOUNTERED.              LEX         4414     A     
 LEX      *                                                                                LEX         4415     A     
 LEX      *         PLACE THE OFFENDING CHAR INTO THE UPPER 6 BITS OF ILL TOKEN            LEX         4416     A     
 LEX                                                                                       LEX         4417     A     
 LEX                                                                                       LEX         4418     A     
 LEX       TOK=ILL  BSS    0                                                               LEX         4419     A     
 LEX                BX1    X4                                                              LEX         4420     A     
 LEX                LX1    -CHAR                                                           LEX         4421     A     
 LEX                BX6    X1+X6       MERGE OFFENDING CHARACTER                           LEX         4422     A     
 LEX                EQ     TOK=COS                                                         LEX         4423     A     
 LEX       TOK=ITQ  SPACE  4,10                                                            LEX         4424     A     
 LEX      **        TOK=ITQ - IGNORE TERMINATING QUOTE.                                    LEX         4425     A     
 LEX      *                                                                                LEX         4426     A     
 LEX      *                                                                                LEX         4427     A     
 LEX      *         THIS PROCESSOR EXISTS FOR THE SOLE PURPOSE OF IGNORING                 LEX         4428     A     
 LEX      *         THE QUOTE THAT TERMINATES A QUOTE DELIMITED STRING.  THAT IS,          LEX         4429     A     
 LEX      *         *TOK* IS POINTING TO THE TERMINATING " AND WE NEED TO ADVANCE          LEX         4430     A     
 LEX      *         THE CHARACTER POINTER BEFORE MOVING ON...                              LEX         4431     A     
 LEX      *                                                                                LEX         4432     A     
 LEX      *         SEE ALSO *CH=SB3* IN *DATA STRUCTURES* SECTION.                        LEX         4433     A     
 LEX                                                                                       LEX         4434     A     
 LEX                                                                                       LEX         4435     A     
 LEX       TOK=ITQ  BSS    0           ** ENTRY **                                         LEX         4436     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         4437     A     
 LEX                SX7    B3                                                              LEX         4438     A     
 LEX                SA7    CH=SB3      SAVE (B3)                                           LEX         4439     A     
 LEX                SA1    LEXFLG                                                          LEX         4440     A     
 LEX                MX2    1                                                               LEX         4441     A     
 LEX                LX2    LF.QACP-59                                                      LEX         4442          I
          -FC5A110
 LEX                BX7    -X2*X1      CLEAR TO *TERMINATING QUOTE OCCURRED*               LEX         4443          I
          -FC5A110
 LEX                LX2    LF.TDEP-59                                                      FC5A110       44     A     
 LEX                BX7    X2+X1      INDICATE TERMINAL DELIMITER ENCOUNTERED              FC5A110       45     A     
 LEX                SA7    A1                                                              LEX         4444     A     
 LEX                EQ     TOK=MN                                                          LEX         4445     A     
 LEX       TOK=LP   SPACE  4,10                                                            LEX         4446     A     
 LEX      **        TOK=LP - HERE IF *(* ENCOUNTERED DURING TOKEN GENERATION.              LEX         4447     A     
 LEX      *                                                                                LEX         4448     A     
 LEX      *           1. INCREMENT (TB=PLVL), THE PAREN LEVEL INDICATOR.                   LEX         4449     A     
 LEX      *                                                                                LEX         4450     A     
 LEX      *           2. LINK THIS LEFT PAREN TO ITS PRIOR LEFT PAREN WITHIN               LEX         4451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              THIS PAREN NEST.                                                  LEX         4452     A     
 LEX      *                                                                                LEX         4453     A     
 LEX      *              THIS IS ACCOMPLISHED BY MOVING THE CONTENTS OF *TB=LLP*           LEX         4454     A     
 LEX      *              (WHICH CONTAINS THE ADDR OF THE PRIOR *O.LP* TOKEN)               LEX         4455     A     
 LEX      *              TO THE *TB.LLP* FIELD OF THE *O.LP* TOKEN THAT WE ARE             LEX         4456     A     
 LEX      *              ABOUT TO GENERATE, AND BY THEN MOVING THE ADDR OF OUR             LEX         4457     A     
 LEX      *              ABOUT-TO-BE-GENERATED *O.LP* TOKEN TO (TB=LLP)...THUS             LEX         4458     A     
 LEX      *              COMPLETING THE CYCLE.                                             LEX         4459     A     
 LEX      *                                                                                LEX         4460     A     
 LEX      *              SEE *DATA STRUCTURES/TB=LLP* AND *TOK=RP* FOR MORE                LEX         4461     A     
 LEX      *              INFORMATION.                                                      LEX         4462     A     
 LEX                                                                                       LEX         4463     A     
 LEX                                                                                       LEX         4464     A     
 LEX       TOK=LP   BSS    0           ** ENTRY **                                         LEX         4465     A     
 LEX                SA1    TB=PLVL                                                         LEX         4466     A     
 LEX                SX7    X1+B1                                                           LEX         4467     A     
 LEX                SA7    A1                                                              LEX         4468     A     
 LEX                SA1    TB=LLP      (X1) = ADDR IN *T.TB* OF LAST LEFT PAREN,           LEX         4469     A     
 LEX      *                                   ELSE .ZR. IF NONE                            LEX         4470     A     
 LEX                LX1    TB.LLPP-0                                                       LEX         4471     A     
 LEX                BX6    X6+X1       MERGE *LLP*                                         LEX         4472     A     
 LEX                SX7    A6+B1       (X7) = ADDR IN *T.TB* OF THIS LEFT PAREN            LEX         4473     A     
 LEX                SA7    A1                                                              LEX         4474     A     
 LEX                EQ     TOK=COS     CONTINUE...                                         LEX         4475     A     
 LEX       TOK=NOH  SPACE  4,10                                                            LEX         4476     A     
 LEX      **        TOK=NOH - CHECK FOR OCCURENCE OF 'CHARACTER *'.                        LEX         4477     A     
 LEX      *                                                                                LEX         4478     A     
 LEX      *                                                                                LEX         4479     A     
 LEX      *         *TOK=NOH* (NO HOLLERITH PROCESSING) EXISTS FOR THE PURPOSE             LEX         4480     A     
 LEX      *         OF CHECKING TO SEE IF WE ARE IN A 'CHARACTER *' STATEMENT              LEX         4481     A     
 LEX      *         DURING THE PROCESSING OF -H-, -L-, OR -R- STRINGS.  IF SO,             LEX         4482     A     
 LEX      *         WE CANNOT HONOR THE *HLR* STRING (I.E. WE TRANSFER                     LEX         4483     A     
 LEX      *         CONTROL OF THE TOKEN GENERATOR TO *TOM=VAR*).                          LEX         4484     A     
 LEX      *                                                                                LEX         4485     A     
 LEX      *         SEE DATA STRUCTURES/LEXFLG/CHR FOR DETAILS.                            LEX         4486     A     
 LEX                                                                                       LEX         4487     A     
 LEX                                                                                       LEX         4488     A     
 LEX       TOK=NOH  BSS    0           ** ENTRY **                                         LEX         4489     A     
 LEX                SA1    LEXFLG                                                          LEX         4490     A     
 LEX                SBIT   X1,LF.CHRP                                                      LEX         4491     A     
 LEX                PL     X1,TOK=MN   IF NOT IN 'CHARACTER *' STMT, OK...                 LEX         4492     A     
 LEX                SA0    TOM=VAR                                                         LEX         4493     A     
 LEX                EQ     TOK=MN                                                          LEX         4494     A     
 LEX       TOK=QOC  SPACE  4,10                                                            LEX         4495     A     
 LEX      **        TOK=QOC - HERE IF *''* ENCOUNTERED **WITHIN** A ' STRING.              LEX         4496     A     
 LEX      *                                                                                LEX         4497     A     
 LEX      *         THIS IS THE SPECIAL *2 QUOTES ARE 1 QUOTE* WITHIN A QUOTE              LEX         4498     A     
 LEX      *         STRING PROCESSOR.  WE HANDLE THIS AS FOLLOWS --                        LEX         4499     A     
 LEX      *                                                                                LEX         4500     A     
 LEX      *           1. WE RESET *TOK*S PSEUDO P REGISTER, (A0), BACK TO THE              LEX         4501     A     
 LEX      *              *GROUP,...,NSQZ* INSTRUCTION FOR THIS QUOTE STRING,               LEX         4502     A     
 LEX      *              (I.E. BACK TO *TOM=QOC*).  THIS IS, IN EFFECT, A *GOTO*           LEX         4503     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              BUT WE DO NOT USE A *GOTO* BECAUSE WE HAVE TO RESTART             LEX         4504     A     
 LEX      *              THE *GROUP,...,NSQZ* INSTRUCTION.  THAT IS, IF WE HAD             LEX         4505     A     
 LEX      *              USED A *GOTO TOM=QOC*, A **NEW** CHAR TOKEN WOULD BE              LEX         4506     A     
 LEX      *              GENERATED AND WE WANT TO CONTINUE GENERATING THE SAME             LEX         4507     A     
 LEX      *              OLD CHAR TOKEN.                                                   LEX         4508     A     
 LEX      *                                                                                LEX         4509     A     
 LEX      *           2. MERGE THE ' CHARACTER, WHICH HAPPENS TO BE IN (X4), INTO          LEX         4510     A     
 LEX      *              THE CHAR/QUOTE TOKEN THAT WE ARE GENERATING.  IN THIS             LEX         4511     A     
 LEX      *              WAY, THE '' SYNTAX BECOMES A SINGLE ' AS PART OF THE              LEX         4512     A     
 LEX      *              QUOTE STRING.                                                     LEX         4513     A     
 LEX      *                                                                                LEX         4514     A     
 LEX      *              NOTE THAT IN PERFORMING THIS, THAT A LITTLE CARE MUST BE          LEX         4515     A     
 LEX      *              TAKEN IF (X6) IS NOW EMPTY (I.E. WAS FULL AFTER THE LAST          LEX         4516     A     
 LEX      *              *GROUP,...,NSQZ*).                                                LEX         4517     A     
 LEX      *                                                                                LEX         4518     A     
 LEX      *           3. RESTART THE *GROUP,...,NSQZ* AT *TOM=QOC*.                        LEX         4519     A     
 LEX                                                                                       LEX         4520     A     
 LEX                                                                                       LEX         4521     A     
 LEX       TOK=QOC  BSS    0           ** ENTRY **                                         LEX         4522     A     
 LEX                SA0    TOM=QOC+1   RESET *TOGEL* P REGISTER                            LEX         4523     A     
 LEX       TOK=QOC1 SA1    CH=SB3      (X1) = SAVED (B3)                                   LEX         4524          I
          -FC5A110
 LEX       TOK=QOC1 SA1    LEXFLG                                                          FC5A110       46     A     
 LEX                MX2    1                                                               FC5A110       47     A     
 LEX                LX2    LF.TDEP-59                                                      FC5A110       48     A     
 LEX                BX7    -X2*X1      INDICATE TERMINAL DELIMITER NOT ENCOUNTERED         FC5A110       49     A     
 LEX                SA7    A1                                                              FC5A110       50     A     
 LEX                SA1    CH=SB3      (X1) = SAVED (B3)                                   FC5A110       51     A     
 LEX                SA2    A6          (X2) = CURRENT WORD OF '' STRING                    LEX         4525     A     
 LEX                SB2    BN.TOCP+BN.TOCL-CHAR                                            LEX         4526     A     
 LEX                SB4    A6          (B4) = ADDR TO STORE TOKEN W/ INVENTED '            LEX         4527     A     
 LEX                SB3    X1          RESTORE (B3)                                        LEX         4528     A     
 LEX                BX6    X2          RESTORE (X6)                                        LEX         4529     A     
 LEX                NE     B3,B2,QOC2  IF LAST TOKEN NOT FULL                              LEX         4530     A     
 LEX                SB4    A6+1                                                            LEX         4531     A     
 LEX                SX6    0           CLEAR PACKING REGISTER                              LEX         4532     A     
 LEX       QOC2     LX3    X4,B3                                                           LEX         4533     A     
 LEX                SB3    B3-CHAR                                                         LEX         4534     A     
 LEX                BX6    X6+X3       MERGE INVENTED '                                    LEX         4535     A     
 LEX                SA6    B4                                                              LEX         4536     A     
 LEX                =A2    A0-1        (X2) = *GROUP* INST FOR STRING                      LEX         4537     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         4538     A     
 LEX                SB5    B5-B1       (B5) = -(CHAR COUNT)                                LEX         4539     A     
 LEX                LX2    0-TG.TOFUP  INITIALIZE (X2)                                     LEX         4540     A     
 LEX                PL     B3,TOK=GN-1 IF THIS CHAR DID NOT FILL WORD                      LEX         4541     A     
 LEX                SB3    BN.TOCP+BN.TOCL-CHAR                                            LEX         4542     A     
 LEX                EQ     TOK=GN-1    RESTART *GROUP*                                     LEX         4543     A     
 LEX       TOK=QOL  SPACE  4,10                                                            LEX         4544     A     
 LEX      **        TOK=QOL - HERE IF EOL ENCOUNTERED DURING QUOTE STRING.                 LEX         4545     A     
 LEX      *                                                                                LEX         4546     A     
 LEX      *                                                                                LEX         4547     A     
 LEX      *         NEED TO SAVE THE ""/'' STRING CHARACTER COUNT, I.E. (B5),              LEX         4548     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         IN (CH=CNT).  SEE DATA STRUCTURES/CH=CNT.                              LEX         4549     A     
 LEX                                                                                       LEX         4550     A     
 LEX                                                                                       LEX         4551     A     
 LEX       TOK=QOL  BSS    0           ** ENTRY **                                         LEX         4552     A     
 LEX                SX7    B5+                                                             LEX         4553     A     
 LEX                SA7    CH=CNT      SAVE (B5)                                           LEX         4554     A     
 LEX                EQ     TOK         EXIT...                                             LEX         4555     A     
 LEX       TOK=QOQ  SPACE  4,10                                                            LEX         4556     A     
 LEX      **        TOK=QOQ - HERE IF *""* ENCOUNTERED **WITHIN** A QUOTE STRING.          LEX         4557     A     
 LEX      *                                                                                LEX         4558     A     
 LEX      *         THIS IS THE SPECIAL *2 QUOTES ARE 1 QUOTE* WITHIN A QUOTE              LEX         4559     A     
 LEX      *         STRING PROCESSOR.  WE HANDLE THIS AS FOLLOWS --                        LEX         4560     A     
 LEX      *                                                                                LEX         4561     A     
 LEX      *           1. WE RESET *TOK*S PSEUDO P REGISTER, (A0), BACK TO THE              LEX         4562     A     
 LEX      *              *GROUP,...,NSQZ* INSTRUCTION FOR THIS QUOTE STRING,               LEX         4563     A     
 LEX      *              (I.E. BACK TO *TOM=QOQ*).  THIS IS, IN EFFECT, A *GOTO*           LEX         4564     A     
 LEX      *              BUT WE DO NOT USE A *GOTO* BECAUSE WE HAVE TO RESTART             LEX         4565     A     
 LEX      *              THE *GROUP,...,NSQZ* INSTRUCTION.  THAT IS, IF WE HAD             LEX         4566     A     
 LEX      *              USED A *GOTO TOM=QOQ*, A **NEW** HOLL TOKEN WOULD BE              LEX         4567     A     
 LEX      *              GENERATED AND WE WANT TO CONTINUE GENERATING THE SAME             LEX         4568     A     
 LEX      *              OLD HOLL TOKEN.                                                   LEX         4569     A     
 LEX      *                                                                                LEX         4570     A     
 LEX      *           2. MERGE THE " CHARACTER, WHICH HAPPENS TO BE IN (X4), INTO          LEX         4571     A     
 LEX      *              THE HOLL/QUOTE TOKEN THAT WE ARE GENERATING.  IN THIS             LEX         4572     A     
 LEX      *              WAY, THE "" SYNTAX BECOMES A SINGLE " AS PART OF THE              LEX         4573     A     
 LEX      *              QUOTE STRING.                                                     LEX         4574     A     
 LEX      *                                                                                LEX         4575     A     
 LEX      *              NOTE THAT IN PERFORMING THIS, THAT A LITTLE CARE MUST BE          LEX         4576     A     
 LEX      *              TAKEN IF (X6) IS NOW EMPTY (I.E. WAS FULL AFTER THE LAST          LEX         4577     A     
 LEX      *              *GROUP,...,NSQZ*).                                                LEX         4578     A     
 LEX      *                                                                                LEX         4579     A     
 LEX      *           3. RESTART THE *GROUP,...,NSQZ* AT *TOM=QOQ*.                        LEX         4580     A     
 LEX                                                                                       LEX         4581     A     
 LEX                                                                                       LEX         4582     A     
 LEX       TOK=QOQ  BSS    0           ** ENTRY **                                         LEX         4583     A     
 LEX                SA0    TOM=QOQ+1   RESET *TOGEL* P REGISTER                            LEX         4584     A     
 LEX                EQ     TOK=QOC1                                                        LEX         4585     A     
 LEX       TOK=REH  SPACE  4,10                                                            LEX         4586     A     
 LEX      **        TOK=REH - *RESTART* PROCESSING FOR *HLR* STRINGS.                      LEX         4587     A     
 LEX      *                                                                                LEX         4588     A     
 LEX      *                                                                                LEX         4589     A     
 LEX      *         NEED TO RESTORE (B5), THE *HLR* STRING CHARACTER COUNTER.              LEX         4590     A     
 LEX      *                                                                                LEX         4591     A     
 LEX      *         ENTRY  (B2) = RESTART TOFU ADDRESS.                                    LEX         4592     A     
 LEX      *                (X2) = *TOGEL* INSTRUCTION TO XEQ.                              LEX         4593     A     
 LEX      *                ENTOKENING REGISTERS SET UP.                                    LEX         4594     A     
 LEX                                                                                       LEX         4595     A     
 LEX                                                                                       LEX         4596     A     
 LEX       TOK=REH  BSS    0           ** ENTRY **                                         LEX         4597     A     
 LEX                SA1    SB=LORD     (X1) = *T.STMT* ORD OF THIS CONTINUATN LINE         LEX         4598     A     
 LEX                RJ     XER         EXTRACT AND RESTORE ENTOKENING REGISTERS            LEX         4599     A     
 LEX                SA1    CH=CNT      (X1) = SAVED CHARACTER COUNTER                      LEX         4600     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA2    A0-B1       RESTORE (A2)                                        LEX         4601     A     
 LEX                SB5    X1                                                              LEX         4602     A     
 LEX                LX2    0-TG.TOFUP  RESTORE (X2)                                        LEX         4603     A     
 LEX                JP     B2          CONTINUE...                                         LEX         4604     A     
 LEX       TOK=REQ  SPACE  4,10                                                            LEX         4605     A     
 LEX      **        TOK=REQ - *RESTART* PROCESSING FOR QUOTE STRINGS.                      LEX         4606     A     
 LEX      *                                                                                LEX         4607     A     
 LEX      *                                                                                LEX         4608     A     
 LEX                                                                                       LEX         4609     A     
 LEX                                                                                       LEX         4610     A     
 LEX       TOK=REQ  =      TOK=REH                                                         LEX         4611     A     
 LEX       TOK=RP   SPACE  4,10                                                            LEX         4612     A     
 LEX      **        TOK=RP - HERE IF *)* ENCOUNTERED DURING TOKEN GENERATION.              LEX         4613     A     
 LEX      *                                                                                LEX         4614     A     
 LEX      *         NEED TO --                                                             LEX         4615     A     
 LEX      *                                                                                LEX         4616     A     
 LEX      *           1. DECREMENT (TB=PLVL), THE PAREN LEVEL INDICATOR.                   LEX         4617     A     
 LEX      *                                                                                LEX         4618     A     
 LEX      *           2. IF WE ARE A PAREN LEVEL 0, I.E. (TB=PLVL)=0,                      LEX         4619     A     
 LEX      *              THEN IF THIS IS THE 1ST ZERO LEVELING *)* OF THIS STMT,           LEX         4620     A     
 LEX      *              INDICATE SO VIA *ZLPAREN*.                                        LEX         4621     A     
 LEX      *                                                                                LEX         4622     A     
 LEX      *           3. LINK THIS RIGHT PAREN TO ITS MATCHING *O.LP* TOKEN                LEX         4623     A     
 LEX      *              BY STUFFING THE ADDR OF THIS *O.RP* TOKEN INTO THE                LEX         4624     A     
 LEX      *              *TB.IOCP* FIELD OF THE APPROPRIATE MATCHING *O.LP*                LEX         4625     A     
 LEX      *              TOKEN.                                                            LEX         4626     A     
 LEX                                                                                       LEX         4627     A     
 LEX                                                                                       LEX         4628     A     
 LEX       TOK=RP   BSS    0           ** ENTRY **                                         LEX         4629     A     
 LEX                SA1    TB=PLVL                                                         LEX         4630     A     
 LEX                SA2    ZLPAREN                                                         LEX         4631     A     
 LEX                SX7    X1-1                                                            LEX         4632     A     
 LEX                SA7    A1+                                                             LEX         4633     A     
 LEX                NZ     X2,RIP2     IF HAVE ALREADY FOUND 1ST ZERO LVLING *)*           LEX         4634     A     
 LEX                NZ     X7,RIP2     IF NOT AT PAREN LEVEL 0                             LEX         4635     A     
 LEX                SX7    A6+B1       (X7) = ADDR OF 1ST ZERO LVLING *)*                  LEX         4636     A     
 LEX                SA7    A2                                                              LEX         4637     A     
 LEX                                                                                       LEX         4638     A     
 LEX      *         HERE TO LINK THIS RIGHT PAREN TO ITS MATCHING *O.LP* TOKEN.            LEX         4639     A     
 LEX                                                                                       LEX         4640     A     
 LEX       RIP2     SA1    TB=LLP      (X1) = ADDR IN *T.TB* OF LAST LEFT PAREN,           LEX         4641     A     
 LEX      *                                   ELSE .ZR. IF NONE                            LEX         4642     A     
 LEX                                                                                       LEX         4643     A     
 LEX       RIP3     ZR     X1,RIP4     IF END OF *LLP* CHAIN ENCOUNTERED                   LEX         4644     A     
 LEX                SA2    X1          (A2,X2) = A+C OF LINKED LEFT PAREN                  LEX         4645     A     
 LEX                BX7    X2          SAVE (X2)                                           LEX         4646     A     
 LEX                LX2    0-TB.LLPP                                                       LEX         4647     A     
 LEX                ERRNZ  18-TB.LLPL                                                      LEX         4648     A     
 LEX                SX1    X2          (X1) = ADDR OF PRIOR LINKED LEFT PAREN              LEX         4649     A     
 LEX                LX2    0-TB.IOCPP+TB.LLPP-0                                            LEX         4650     A     
 LEX                ERRNZ  18-TB.IOCPL                                                     LEX         4651     A     
 LEX                SX3    X2          (X3) = ADDR OF MATCHING RIGHT PAREN,                LEX         4652     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                   ELSE .ZR. IF NONE                            LEX         4653     A     
 LEX                NZ     X3,RIP3     IF THIS LEFT PAREN ALREADY MATCHED                  LEX         4654     A     
 LEX                SX2    A6+B1       (X2) = ADDR OF MATCHING RP TO BE STORED             LEX         4655     A     
 LEX                LX2    TB.IOCPP-0                                                      LEX         4656     A     
 LEX                BX7    X7+X2       MERGE *IOCP*                                        LEX         4657     A     
 LEX                SA7    A2                                                              LEX         4658     A     
 LEX                NZ     X1,TOK=COS  IF NOT AT PAREN LEVEL ZERO                          LEX         4659     A     
 LEX                                                                                       LEX         4660     A     
 LEX      *         HERE WHEN BACK AT PAREN LEVEL 0.  NEED TO CLEAR (TB=LLP)               LEX         4661     A     
 LEX      *         TO INDICATE THAT WE ARE STARTING A NEW PAREN NEST.                     LEX         4662     A     
 LEX                                                                                       LEX         4663     A     
 LEX       RIP4     SX7    0                                                               LEX         4664     A     
 LEX                SA7    TB=LLP                                                          LEX         4665     A     
 LEX                EQ     TOK=COS     CONTINUE...                                         LEX         4666     A     
 LEX       TOK=SQT  SPACE  4,10                                                            LEX         4667     A     
 LEX      **        TOK=SQT - HERE IF ' ENCOUNTERED VIA *CASEOF*.                          LEX         4668     A     
 LEX      *                                                                                LEX         4669     A     
 LEX      *         SEE *TOK=DQT* FOR IMPORTANT INFORMATION.                               LEX         4670     A     
 LEX                                                                                       LEX         4671     A     
 LEX                                                                                       LEX         4672     A     
 LEX       TOK=SQT  BSS    0           ** ENTRY **                                         LEX         4673     A     
 LEX                SA0    TOM=SQT     RESET PSEUDO -P- REGISTER                           LEX         4674     A     
 LEX                EQ     TOK=MN                                                          LEX         4675     A     
 LEX       LEX      TTL    LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                   LEX         4676     A     
 LEX                EJECT                                                                  LEX         4677     A     
 LEX       BLL      SPACE  4                                                               LEX         4678     A     
 LEX      **        BLL - BREAK LONG LINE                                                  LEX         4679     A     
 LEX      *                                                                                LEX         4680     A     
 LEX      *                                                                                LEX         4681     A     
 LEX      *         WHEN PRINT LINE IS .GT. PAGE WIDTH, BLL PRINTS FIRST PART OF           LEX         4682     A     
 LEX      *         LINE AND LEFT JUSTIFIES REMAINDER.                                     LEX         4683     A     
 LEX      *                                                                                LEX         4684     A     
 LEX      *         ENTRY  (A2) = ADDRESS OF LAST WORD OF 1ST PART                         LEX         4685     A     
 LEX      *                (X2) = LAST WORD OF 1ST PART                                    LEX         4686     A     
 LEX      *                (B2) = FWA OF LINE - 1                                          LEX         4687     A     
 LEX      *                (B5) = NUMBER OF BITS TO PRINT OF LAST WORD OF 1ST PART         LEX         4688     A     
 LEX      *                (B6) = LWA OF LINE                                              LEX         4689     A     
 LEX      *                                                                                LEX         4690     A     
 LEX      *         EXIT   (X1) = FWA OF 2ND PART                                          LEX         4691     A     
 LEX      *                (X2) = LENGTH OF 2ND PART                                       LEX         4692     A     
 LEX      *                (X6) = 0  IF NO LINE PRINTED                                    LEX         4693     A     
 LEX      *                1ST PART PRINTED                                                LEX         4694     A     
 LEX      *                                                                                LEX         4695     A     
 LEX      *         USES   A - 1-4, 6, 7                                                   LEX         4696     A     
 LEX      *                X - 1-4, 6, 7                                                   LEX         4697     A     
 LEX      *                B - 2, 3, 5, 6, 7                                               LEX         4698     A     
 LEX      *                                                                                LEX         4699     A     
 LEX      *         PRESERVES  A0, X0, A5, X5, B4                                          LEX         4700     A     
 LEX      *                                                                                LEX         4701     A     
 LEX      *         CALLS  LSS, PLINE                                                      LEX         4702     A     
 LEX                                                                                       LEX         4703     A     
 LEX                                                                                       LEX         4704     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       BLL4     BX4    X1*X3                                                           LEX         4705     A     
 LEX                BX6    X4+X2                                                           LEX         4706     A     
 LEX                IX6    X3-X6                                                           LEX         4707     A     
 LEX                NZ     X6,BLL2     IF NOT ALL BLANKS                                   LEX         4708     A     
 LEX                SX1    B2+B1       FWA OF LINE                                         LEX         4709     A     
 LEX                SX2    B6-B2       LENGTH OF LINE                                      LEX         4710     A     
 LEX                                                                                       LEX         4711     A     
 LEX       BLL      SUBR   =           ENTRY/EXIT...                                       LEX         4712     A     
 LEX                MX1    0                                                               LEX         4713     A     
 LEX                ZR     B5,BLL1     IF BREAK ON WORD BOUNDARY                           LEX         4714     A     
 LEX                MX1    1                                                               LEX         4715     A     
 LEX                SB7    B5-B1                                                           LEX         4716     A     
 LEX                AX1    B7                                                              LEX         4717     A     
 LEX       BLL1     BX7    X1*X2       LEFT SIDE                                           LEX         4718     A     
 LEX                SB3    A2-B6                                                           LEX         4719     A     
 LEX                SA3    =10H                                                            LEX         4720     A     
 LEX                BX4    -X1*X3      BLANK FILL FOR LEFT                                 LEX         4721     A     
 LEX                BX7    X4+X7                                                           LEX         4722     A     
 LEX                BX2    -X1*X2      (X2) = RIGHT SIDE OF SPLIT WORD                     LEX         4723     A     
 LEX                ZR     B3,BLL4     IF 2ND PART ONLY ONE PARTIAL WORD                   LEX         4724     A     
 LEX       BLL2     RJ     LSS         LEFT SHIFT STRING                                   LEX         4725     A     
 LEX                SA6    BLLA        SAVE FIRST WORD OF SECOND LINE                      LEX         4726     A     
 LEX                SA7    A2          SET LEFT SIDE INTO BUFFER                           LEX         4727     A     
 LEX                SA3    A2+B1                                                           LEX         4728     A     
 LEX                BX7    X3                                                              LEX         4729     A     
 LEX                SA7    A6+B1       SAVE 2ND WORD  OF 2ND LINE                          LEX         4730     A     
 LEX                SB3    A2-B1                                                           LEX         4731     A     
 LEX                SX6    B3                                                              LEX         4732     A     
 LEX                SA6    A7+B1       SAVE 2ND LINE FWA                                   LEX         4733     A     
 LEX                SB3    B3-B1                                                           LEX         4734     A     
 LEX                SX7    B6-B3                                                           LEX         4735     A     
 LEX                SA7    A6+B1       SAVE 2ND LINE LENGTH                                LEX         4736     A     
 LEX                SX2    A2-B2                                                           LEX         4737     A     
 LEX                PLINE  B2+B1,X2                                                        LEX         4738     A     
 LEX                SA2    BLLA+3      LENGTH                                              LEX         4739     A     
 LEX                SA1    A2-B1       FWA                                                 LEX         4740     A     
 LEX                SA3    X1                                                              LEX         4741     A     
 LEX                SA4    =10H   >>>>                                                     LEX         4742     A     
 LEX                                                                                       LEX         4743     A     
 LEX       .FIX     SET                LONG LINE DAP REQUIRES MOD HERE                     LEX         4744     A     
 LEX                BX6    X4                                                              LEX         4745     A     
 LEX                SA6    A3                                                              LEX         4746     A     
 LEX                SA3    A1-B1       2ND WORD                                            LEX         4747     A     
 LEX                SA4    A3-B1       1ST WORD                                            LEX         4748     A     
 LEX                BX6    X4                                                              LEX         4749     A     
 LEX                SA6    A6+B1       RESET 1ST WORD                                      LEX         4750     A     
 LEX                BX7    X3                                                              LEX         4751     A     
 LEX                SA7    A6+B1       RESET 2ND WORD                                      LEX         4752     A     
 LEX                EQ     EXIT.                                                           LEX         4753     A     
 LEX                                                                                       LEX         4754     A     
 LEX       BLLA     BSS    1           LINE 2 FIRST WORD                                   LEX         4755     A     
 LEX                BSS    1           LINE 2 SECOND WORD                                  LEX         4756     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                BSS    1           LINE 2 FWA                                          LEX         4757     A     
 LEX                BSS    1           LINE 2 LENGTH                                       LEX         4758     A     
 LEX      *CALL     COMCBUB            BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          LEX         4759     A     
 LEX                TITLE                                                                  LEX         4760     A     
 LEX      *CALL     COMCBUN            BURST/BUILD CHARACTERS - NO BLANK SQUEEZE.          LEX         4761     A     
 LEX                TITLE                                                                  LEX         4762     A     
 LEX       CAK      SPACE  4,10                                                            LEX         4763     A     
 LEX      **        CAK - CHECK FOR AND ADJUST STATEMENT KEYWORD.                          LEX         4764     A     
 LEX      *                                                                                LEX         4765     A     
 LEX      *                                                                                LEX         4766     A     
 LEX      *         THIS ROUTINE TRIES TO MATCH A GIVEN SEQUENCE OF TOKENS                 LEX         4767     A     
 LEX      *         IN THE TOKEN BUFFER WITH A KEYWORD ENTRY IN A SPECIFIED                LEX         4768     A     
 LEX      *         KEYWORD TABLE.  AND THEN IF A MATCH IS FOUND, ERASES ALL               LEX         4769     A     
 LEX      *         TRACE OF THE FOUND KEYWORD FROM THE TOKEN BUFFER.                      LEX         4770     A     
 LEX      *                                                                                LEX         4771     A     
 LEX      *         THIS PROCESS IS PERHAPS BEST UNDERSTOOD WITH AN EXAMPLE.               LEX         4772     A     
 LEX      *         GIVEN THE KEYWORD STMT --                                              LEX         4773     A     
 LEX      *                                                                                LEX         4774     A     
 LEX      *           COMMON EST(10)                                                       LEX         4775     A     
 LEX      *                                                                                LEX         4776     A     
 LEX      *         WHICH BECOMES IN *T.TB* --                                             LEX         4777     A     
 LEX      *                                                                                LEX         4778     A     
 LEX      *           O.VAR'COMMONE'  O.VAR'ST'  O.LP  O.CONS'10'  O.RP  O.EOS             LEX         4779     A     
 LEX      *                                                                                LEX         4780     A     
 LEX      *         *CAK* WILL SEARCH THE FTN STMT KEYWORD TABLE FOR *COMMON*,             LEX         4781     A     
 LEX      *         AND THEN ADJUST THE TOKEN BUFFER TO --                                 LEX         4782     A     
 LEX      *                                                                                LEX         4783     A     
 LEX      *           O.VAR'EST'  O.LP  O.CONS'10'  O.RP  O.EOS                            LEX         4784     A     
 LEX      *                                                                                LEX         4785     A     
 LEX      *         IN THIS WAY, AFTER A *CAK* CALL, THE TOKEN BUFFER IS READY             LEX         4786     A     
 LEX      *         TO BE PASSED OFF TO THE APPROPRIATE STMT PROCESSOR (I.E. THE           LEX         4787     A     
 LEX      *         STMT KEYWORD HAS BEEN LOGICALLY REMOVED).                              LEX         4788     A     
 LEX      *                                                                                LEX         4789     A     
 LEX      *                ** AN IMPORTANT MESSAGE **                                      LEX         4790     A     
 LEX      *                                                                                LEX         4791     A     
 LEX      *         AS WILL BECOME EVIDENT BELOW, THIS CONCEPTUALLY TRIVIAL PIECE          LEX         4792     A     
 LEX      *         OF CODE LOCKS HORNS WITH A NUMBER OF NON-TRIVIAL PATHOLOGIES           LEX         4793     A     
 LEX      *         THAT ARE CONCERNED WITH THE MASSAGING OF THE TOKEN BUFFER THAT         LEX         4794     A     
 LEX      *         IS NECESSARY TO REMOVE THE KEYWORD.  THIS IS CLEARLY A                 LEX         4795     A     
 LEX      *         TRADE-OFF: TOKEN GENERATION WAS SIMPLIFIED BY NOT SPECIAL              LEX         4796     A     
 LEX      *         CASING KEYWORD ENTOKENING, BUT KEYWORDS DO NOT FIT CLEANLY             LEX         4797     A     
 LEX      *         INTO THE TOKEN STRUCTURE.  THEREFORE, *CAK* IS THE ONE                 LEX         4798     A     
 LEX      *         RESPONSIBLE FOR CLEANING UP AND REMOVING ALL TRACES OF                 LEX         4799     A     
 LEX      *         A KEYWORD FROM THE *T.TB*.                                             LEX         4800     A     
 LEX      *                                                                                LEX         4801     A     
 LEX      *         ALSO, BEWARE OF REGISTERS...THEY ARE DECEPTIVELY TIGHT.                LEX         4802     A     
 LEX      *                                                                                LEX         4803     A     
 LEX      *                          * * *                                                 LEX         4804     A     
 LEX      *                                                                                LEX         4805     A     
 LEX      *         ENTRY  (B4) = ADDR OF 1ST TOKEN CONTAINING CHARS                       LEX         4806     A     
 LEX      *                       TO TRY AND FIND A KEYWORD MATCH FOR.                     LEX         4807     A     
 LEX      *                (B6) = FWA OF KEYWORD TABLE TO SEARCH.                          LEX         4808     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                (B7) = LEN OF KEYWORD TABLE TO SEARCH (IN WORDS).               LEX         4809     A     
 LEX      *                                                                                LEX         4810     A     
 LEX      *         EXIT   (B7) = .NZ. IF A FIND, ELSE .ZR.                                LEX         4811     A     
 LEX      *                                                                                LEX         4812     A     
 LEX      *                IF A FIND, (B7) .NZ. --                                         LEX         4813     A     
 LEX      *                (B7) = KEYWORD TABLE ADDRESS IF SPELLED CORRECTLY,              LEX         4814     A     
 LEX      *                       ELSE .MI.                                                LEX         4815     A     
 LEX      *                (B4) = ADDR OF 1ST TOKEN FOLLOWING KEYWORD.                     LEX         4816     A     
 LEX      *                       I.E. POSSIBLY THE ADDR OF A TOKEN THAT WAS               LEX         4817     A     
 LEX      *                       GENERATED BY *CAK* AFTER KEYWORD WAS REMOVED.            LEX         4818     A     
 LEX      *                (X6) = *KEYW* TABLE ENTRY FOR THIS KEYWORD.                     LEX         4819     A     
 LEX      *                                                                                LEX         4820     A     
 LEX      *         USES   ALL BUT A0,X0,A5,X5                                             LEX         4821     A     
 LEX      *                                                                                LEX         4822     A     
 LEX      *         CALLS  NONE                                                            LEX         4823     A     
 LEX                                                                                       LEX         4824     A     
 LEX                                                                                       LEX         4825     A     
 LEX       CAK      SUBR   =           ** ENTRY/EXIT **                                    LEX         4826     A     
 LEX                                                                                       LEX         4827     A     
 LEX      *         INITIALIZATION.                                                        LEX         4828     A     
 LEX                                                                                       LEX         4829     A     
 LEX                SA1    B4          (A1,X1) = A+C OF 1ST TOKEN IN STMT KEYWORD          LEX         4830     A     
 LEX                MX4    4*CHAR                                                          LEX         4831     A     
 LEX                SA3    B6          (A3,X3) = A+C OF 1ST KEYWORD TABLE ENTRY            LEX         4832          I
          -FC5A124
 LEX                BX6    X4*X1       (X6) = 1ST 4 CHARS IN TOKEN                         LEX         4833          I
          -FC5A124
 LEX                                                                                       LEX         4834          I
          -FC5A124
 LEX      *         SCAN KEYWORD TABLE.                                                    LEX         4835          I
          -FC5A124
 LEX                                                                                       LEX         4836          I
          -FC5A124
 LEX       CAK2     LX3    0-KW.KEYP                                                       LEX         4837          I
          -FC5A124
 LEX                SA2    X3          (X2) = 1ST 7 CHARS OF FTN KEYWORD, -L- FMT          LEX         4838          I
          -FC5A124
 LEX                SB7    B7-B1                                                           LEX         4839          I
          -FC5A124
 LEX                BX7    X4*X2                                                           LEX         4840          I
          -FC5A124
 LEX                NO                                                                     LEX         4841          I
          -FC5A124
 LEX                IX7    X6-X7                                                           LEX         4842          I
          -FC5A124
 LEX                ZR     X7,CAK3     IF A FIND                                           LEX         4843          I
          -FC5A124
 LEX                SA3    A3+B1       (A3,X3) = A+C OF NEXT *KEYW* ENTRY                  LEX         4844          I
          -FC5A124
 LEX                GT     B7,B0,CAK2  IF NOT AT END OF KEYWORD TABLE                      LEX         4845          I
          -FC5A124
 LEX                EQ     EXIT.                                                           LEX         4846          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FC5A124
 LEX                BX6    X4*X1                                                           FC5A124        8     A     
 LEX                LX6    4*CHAR      X6 = 1ST 4 CHARS OF POSSIBLE KEYWORD (0R)           FC5A124        9     A     
 LEX                                                                                       FC5A124       10     A     
 LEX      **        BINARY SEARCH OF KEYWORD TABLE.                                        FC5A124       11     A     
 LEX                                                                                       FC5A124       12     A     
 LEX       CAK2     ZR     B7,EXIT.    IF NOT IN TABLE                                     FC5A124       13     A     
 LEX                SX7    B7                                                              FC5A124       14     A     
 LEX                AX7    X7,B1                                                           FC5A124       15     A     
 LEX                SA3    B6+X7       (A3,X3) = A+C OF KEYWORD TABLE ENTRY                FC5A124       16     A     
 LEX                SB3    B7                                                              FC5A124       17     A     
 LEX                SB7    X7                                                              FC5A124       18     A     
 LEX                LX3    -KW.KEYP                                                        FC5A124       19     A     
 LEX                SA2    X3          (X2) = 1ST 7 CHARS OF TABLE ENTRY                   FC5A124       20     A     
 LEX                SB2    X7          B2 = CURRENT LENGTH/2                               FC5A124       21     A     
 LEX                BX7    X2*X4                                                           FC5A124       22     A     
 LEX                LX7    4*CHAR                                                          FC5A124       23     A     
 LEX                IX7    X7-X6                                                           FC5A124       24     A     
 LEX                ZR     X7,CAK3     IF FOUND IT                                         FC5A124       25     A     
 LEX                PL     X7,CAK2     IF KEYWORD LIES IN TOP HALF                         FC5A124       26     A     
 LEX                SB7    B3-B2                                                           FC5A124       27     A     
 LEX                =B7    B7-1        ADJUST LENGTH                                       FC5A124       28     A     
 LEX                SB6    B6+B2                                                           FC5A124       29     A     
 LEX                =B6    B6+1        POINT TO BOTTOM HALF                                FC5A124       30     A     
 LEX                EQ     CAK2                                                            FC5A124       31     A     
 LEX                                                                                       LEX         4847     A     
 LEX      *         HERE IF A FIND IN KEYWORD TABLE.                                       LEX         4848     A     
 LEX      *                                                                                LEX         4849     A     
 LEX      *           1. EXTRACT KEYWORD LENGTH FROM FOUND KEYWORD ENTRY.                  LEX         4850     A     
 LEX      *                                                                                LEX         4851     A     
 LEX      *           2. SET UP *FILL.* AND *FILL.2* TO BE 1ST 14 CHARS                    LEX         4852     A     
 LEX      *              OF KEYWORD ENTRY SO THAT IF WE HAVE TO ISSUE                      LEX         4853     A     
 LEX      *              *MISSPELLED KEYWORD* ERR MSG, IT CAN INDICATE WHAT                LEX         4854     A     
 LEX      *              WE ASSUMED THE STMT KEYWORD TO BE.                                LEX         4855     A     
 LEX                                                                                       LEX         4856     A     
 LEX       CAK3     LX3    KW.KEYP-0                                                       LEX         4857     A     
 LEX                BX6    X3                                                              LEX         4858     A     
 LEX                LX3    0-KW.LENP                                                       LEX         4859     A     
 LEX                SA6    CAKA        SAVE FOUND *KEYW* ENTRY                             LEX         4860     A     
 LEX                MX7    -KW.LENL                                                        LEX         4861     A     
 LEX                BX4    -X7*X3      EXTRACT *LEN*                                       LEX         4862     A     
 LEX                SB2    X4          (B2) = NR OF BITS IN KEYWORD                        LEX         4863     A     
 LEX                LX6    X2          (X6) = 1ST 7 CHARS OF KEYWORD ENTRY                 LEX         4864     A     
 LEX                SB3    7*CHAR                                                          LEX         4865     A     
 LEX                SA4    A2+B1       (X4) = 2ND 7 CHARS OF KEYWORD ENTRY                 LEX         4866     A     
 LEX                BX7    X7-X7                                                           LEX         4867     A     
 LEX                SB7    A3          SET TO ADDRESS OF FOUND KEYWORD                     LEX         4868     A     
 LEX                LE     B2,B3,CAK4  IF KEYWORD HAS .LE. 7 CHARS                         LEX         4869     A     
 LEX                LX7    X4                                                              LEX         4870     A     
 LEX       CAK4     SA6    FILL.                                                           LEX         4871     A     
 LEX                SA7    A6+B1                                                           LEX         4872     A     
 LEX                                                                                       LEX         4873     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         VERIFY THAT KEYWORD THAT WAS FOUND IS SPELLED CORRECTLY                LEX         4874     A     
 LEX      *         (NOTE: THIS IS NECESSARY BECAUSE KEYWORD SEARCH IS PERFORMED           LEX         4875     A     
 LEX      *         USING ONLY THE 1ST 4 CHARACTERS OF KEYWORD).                           LEX         4876     A     
 LEX      *                                                                                LEX         4877     A     
 LEX      *         KEYWORD SPELLING VERIFICATION IS ACCOMPLISHED BY SIMPLY                LEX         4878     A     
 LEX      *         COMPARING THE *O.VAR* KEYWORD TOKENS IN THE TOKEN BUFFER               LEX         4879     A     
 LEX      *         WITH THE KEYWORD LITERAL STRING SPECIFIED IN KEYWORD TABLE.            LEX         4880     A     
 LEX      *                                                                                LEX         4881     A     
 LEX      *         IN THE INTEREST OF MAKING THIS CODE A LITTLE SIMPLER,                  LEX         4882     A     
 LEX      *         THE KEYWORD LITERAL STRING WAS GENERATED INTO TOKEN-SIZE               LEX         4883     A     
 LEX      *         CHUNKS (7 CHARS PER WORD) AT ASSEMBLY-TIME (VIA *LITKEY*               LEX         4884     A     
 LEX      *         MACRO IN *FTN5TXT*).                                                   LEX         4885     A     
 LEX      *                                                                                LEX         4886     A     
 LEX      *         THERE ARE 3 VARIANTS OF THIS SPELLING VERIFICATION,                    LEX         4887     A     
 LEX      *         A DISCUSSION OF WHICH WILL MAKE THIS CODE EASIER                       LEX         4888     A     
 LEX      *         TO UNDERSTAND --                                                       LEX         4889     A     
 LEX      *                                                                                LEX         4890     A     
 LEX      *           1. VERIFYING FULL TOKENS, AS FOR --                                  LEX         4891     A     
 LEX      *                                                                                LEX         4892     A     
 LEX      *                VAR'SUBROUT'  VAR'INEYWEE'  VAR'NY'                             LEX         4893     A     
 LEX      *                                                                                LEX         4894     A     
 LEX      *              THE 1ST TOKEN WILL BE CHECKED BY MERELY COMPARING                 LEX         4895     A     
 LEX      *              IT TO THE 1ST 7 CHARACTER KEYWORD LITERAL (7LSUBROUT)             LEX         4896     A     
 LEX      *              SPECIFIED IN THE KEYWORD TABLE ENTRY FOR -SUBR-.                  LEX         4897     A     
 LEX      *                                                                                LEX         4898     A     
 LEX      *           2. VERIFYING A PARTIAL TOKEN, AS FOR -VAR'INEYWEE'- IN               LEX         4899     A     
 LEX      *              THE ABOVE EXAMPLE.  CLEARLY, A FULL TOKEN COMPARE                 LEX         4900     A     
 LEX      *              CANNOT BE USED BECAUSE THE SUBROUTINE NAME -YWEENY-               LEX         4901     A     
 LEX      *              IS CONCATENATED WITH THE KEYWORD -SUBROUTINE-.  IN THIS           LEX         4902     A     
 LEX      *              CASE, -INE- WILL BE EXTRACTED FROM -VAR'INEYWEE'-                 LEX         4903     A     
 LEX      *              BEFORE COMPARING (EXTRACTION IS PERFORMED BASED ON                LEX         4904     A     
 LEX      *              THE NUMBER OF BITS THAT SHOULD BE IN KEYWORD.  SEE                LEX         4905     A     
 LEX      *              *KW.LEN* FIELD).                                                  LEX         4906     A     
 LEX      *                                                                                LEX         4907     A     
 LEX      *           3. WHEN KEYWORD IN TOKEN BUFFER IS TOO SHORT, AS IN --               LEX         4908     A     
 LEX      *                                                                                LEX         4909     A     
 LEX      *                SUBROUT(P1)                                                     LEX         4910     A     
 LEX      *                                                                                LEX         4911     A     
 LEX      *              (I.E. PROGRAMMER FORGOT SOMETHING OR WAS BEING CUTE).             LEX         4912     A     
 LEX      *              THEREFORE, THE TOKEN TYPE OF THE NEXT **EXPECTED**                LEX         4913     A     
 LEX      *              KEYWORD TOKEN MUST BE VERIFIED TO BE *O.VAR* BEFORE               LEX         4914     A     
 LEX      *              CHECKING CHARS IN TOKEN.                                          LEX         4915     A     
 LEX                                                                                       LEX         4916     A     
 LEX                SB5    X1          (B5) = TOKEN TYPE OF KEYWORD TOKEN, *O.VAR*         LEX         4917     A     
 LEX       CAK5     MX4    TB.TOCL                                                         LEX         4918     A     
 LEX                BX3    X3-X3                                                           LEX         4919     A     
 LEX                SB6    X1                                                              LEX         4920     A     
 LEX                BX1    X4*X1       (X1) = 1ST 7 CHARS OF TOKEN, -L- FMT                LEX         4921     A     
 LEX                ZR     B2,CAK7     IF KEYWORD FELL ON A TOKEN BOUNDARY                 LEX         4922     A     
 LEX                NE     B5,B6,CAK11 IF *TOT*S DO NOT MATCH, KEYWD TOO SHORT...          LEX         4923     A     
 LEX                LT     B2,B3,CAK6  IF NR CHARS REMAINING TO CHECK .LT. 7               LEX         4924     A     
 LEX                IX7    X1-X2                                                           LEX         4925     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA1    A1+B1       (A1,X1) = A+C OF NEXT TOKEN                         LEX         4926     A     
 LEX                SA2    A2+B1       (A2,X2) = A+C OF NEXT KEYWORD LITERAL               LEX         4927     A     
 LEX                SB2    B2-B3                                                           LEX         4928     A     
 LEX                ZR     X7,CAK5     IF KEYWORD SPELLED OK                               LEX         4929     A     
 LEX                SB7    -B1         SET TO *KEYWORD MISSPELLED*                         LEX         4930     A     
 LEX                EQ     CAK5                                                            LEX         4931     A     
 LEX                                                                                       LEX         4932     A     
 LEX      *         HERE TO CHECK CHARACTERS IN FINAL/LAST KEYWORD TOKEN.                  LEX         4933     A     
 LEX                                                                                       LEX         4934     A     
 LEX       CAK6     SB3    B2-B1                                                           LEX         4935     A     
 LEX                MX3    1                                                               LEX         4936     A     
 LEX                AX3    B3          (X3) = MASK TO EXTRACT LAST CHARS                   LEX         4937     A     
 LEX      *                                   IN KEYWORD FROM KEYWORD TOKEN                LEX         4938     A     
 LEX                BX6    X3*X1                                                           LEX         4939     A     
 LEX                IX6    X6-X2                                                           LEX         4940     A     
 LEX                BX1    -X3*X1                                                          LEX         4941     A     
 LEX                ZR     X6,CAK7     IF KEYWORD SPELLED OK                               LEX         4942     A     
 LEX                SB7    -B1         SET TO *KEYWORD MISSPELLED*                         LEX         4943     A     
 LEX                                                                                       LEX         4944     A     
 LEX      *         HERE WHEN KEYWORD VALIDITY AND LENGTH IN TOKEN BUFFER                  LEX         4945     A     
 LEX      *         HAVE BEEN DETERMINED.  READY TO MASSAGE *T.TB* IN ORDER                LEX         4946     A     
 LEX      *         TO LOGICALLY REMOVE KEYWORD FROM TOKEN BUFFER.                         LEX         4947     A     
 LEX      *                                                                                LEX         4948     A     
 LEX      *         THIS INVOLVES PERFORMING 2 DISTINCT FUNCTIONS --                       LEX         4949     A     
 LEX      *                                                                                LEX         4950     A     
 LEX      *           1. CONSIDER THAT, IN FORTRAN, A STMT KEYWORD CAN                     LEX         4951     A     
 LEX      *              SOMETIMES BE CONCATENATED WITH THE 1ST NON-KEYWORD                LEX         4952     A     
 LEX      *              TOKEN OF THE STMT (AS IN *PRINT100*).  NOW CONSIDER               LEX         4953     A     
 LEX      *              THAT KEYWORDS ARE MERELY ALPHANUMERIC *O.VAR*                     LEX         4954     A     
 LEX      *              TOKENS.  AFTER REMOVING THE KEYWORD *PRINT* IN                    LEX         4955     A     
 LEX      *              OUR EXAMPLE, THE REMAINING *100* STILL HAS THE                    LEX         4956     A     
 LEX      *              TOKEN TYPE OF THE KEYWORD (I.E. *O.VAR*).                         LEX         4957     A     
 LEX      *                                                                                LEX         4958     A     
 LEX      *              THEREFORE, IF AFTER REMOVING THE STMT KEYWORD                     LEX         4959     A     
 LEX      *              THE REMAINING TOKEN BEGINS WITH A NUMERIC (0 THRU 9)              LEX         4960     A     
 LEX      *              CHARACTER, THE TOKEN TYPE MUST BE CHANGED TO *O.CONS*.            LEX         4961     A     
 LEX      *                                                                                LEX         4962     A     
 LEX      *           2. AFTER THE KEYWORD HAS BEEN REMOVED, IT MAY BE                     LEX         4963     A     
 LEX      *              NECESSARY TO ADJUST THE REMAINING EX-KEYWORD TOKEN(S).            LEX         4964     A     
 LEX      *                                                                                LEX         4965     A     
 LEX      *              CONSIDER THE FOLLOWING --                                         LEX         4966     A     
 LEX      *                                                                                LEX         4967     A     
 LEX      *                SUBROUTINE DOGGY                                                LEX         4968     A     
 LEX      *                                                                                LEX         4969     A     
 LEX      *              WHICH BECOMES IN *T.TB* --                                        LEX         4970     A     
 LEX      *                                                                                LEX         4971     A     
 LEX      *                O.BOS  O.VAR'SUBROUT'  O.VAR'INEDOGG'  O.VAR'Y'  O.EOS          LEX         4972     A     
 LEX      *                                                                                LEX         4973     A     
 LEX      *              AFTER REMOVING KEYWORD --                                         LEX         4974     A     
 LEX      *                                                                                LEX         4975     A     
 LEX      *                O.VAR'DOGG'  O.VAR'Y'  O.EOS                                    LEX         4976     A     
 LEX      *                                                                                LEX         4977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              NOW IT CAN BE SEEN THAT THE 1ST NON-KEYWORD TOKEN                 LEX         4978     A     
 LEX      *              IS SPLIT ACROSS 2 TOKENS AND THAT THE 1ST OF THESE                LEX         4979     A     
 LEX      *              ONLY CONTAINS 4 CHARACTERS.                                       LEX         4980     A     
 LEX      *                                                                                LEX         4981     A     
 LEX      *              THIS IS A VIOLATION OF THE TOKEN STRUCTURE, AND                   LEX         4982     A     
 LEX      *              THEREFORE *T.TB* IS MASSAGED TO PRODUCE --                        LEX         4983     A     
 LEX      *                                                                                LEX         4984     A     
 LEX      *                O.VAR'DOGGY'  O.EOS                                             LEX         4985     A     
 LEX                                                                                       LEX         4986     A     
 LEX       CAK7     SB3    B4          SAVE ORIGINAL (B4)                                  LEX         4987     A     
 LEX                SB4    A1                                                              LEX         4988     A     
 LEX                NE     B5,B6,CAK12 IF KEYWORD TOKEN IS EMPTY                           LEX         4989     A     
 LEX                MX6    -CHAR                                                           LEX         4990     A     
 LEX                LX7    X1,B2       (X7) = REMAINING NON-KEYWORD CHARS, -L- FMT         LEX         4991     A     
 LEX                LX7    CHAR                                                            LEX         4992     A     
 LEX                BX7    -X6*X7                                                          LEX         4993     A     
 LEX                SX6    X7-1R0                                                          LEX         4994     A     
 LEX                SX7    O.CONS                                                          LEX         4995     A     
 LEX                PL     X6,CAK8     IF NUMERIC (0 THRU 9)                               LEX         4996     A     
 LEX                SX7    O.VAR                                                           LEX         4997     A     
 LEX                ZR     B2,CAK12    IF ON TOKEN BOUNDARY .AND. ALREADY *O.VAR*          LEX         4998     A     
 LEX                                                                                       LEX         4999     A     
 LEX      *         HERE TO LEFT-SHIFT REMAINING NON-KEYWORD TOKENS                        LEX         5000     A     
 LEX      *         IN TOKEN BUFFER.                                                       LEX         5001     A     
 LEX      *                                                                                LEX         5002     A     
 LEX      *         E.G.:     O.VAR'DOGG'  O.VAR'Y'                                        LEX         5003     A     
 LEX      *                                                                                LEX         5004     A     
 LEX      *         BECOMES:  O.VAR'DOGGY'                                                 LEX         5005     A     
 LEX      *                                                                                LEX         5006     A     
 LEX      *         IN THE INTEREST OF UNDERSTANDIBILTY, THE FOLLOWING CODE                LEX         5007     A     
 LEX      *         IS COMMENTED BY USING 2 EXAMPLES WHICH TYPIFY THE 2 WAYS               LEX         5008     A     
 LEX      *         THIS CODE IS USED.                                                     LEX         5009     A     
 LEX      *                                                                                LEX         5010     A     
 LEX      *           1. EXAMPLE 1 SHOWS HOW A KEYWORD STRUCTURE OF THE FORM --            LEX         5011     A     
 LEX      *                                                                                LEX         5012     A     
 LEX      *                O.VAR'KKKKKKK'  O.VAR'KKABCDE'  O.VAR'FGHIJKL'                  LEX         5013     A     
 LEX      *                                                                                LEX         5014     A     
 LEX      *              IS PROCESSED.  *KKKKKKKKK* IS THE REMOVED KEYWORD,                LEX         5015     A     
 LEX      *              AND *ABCDEFGHIJKL* IS WHAT REMAINS.                               LEX         5016     A     
 LEX      *                                                                                LEX         5017     A     
 LEX      *           2. EXAMPLE 2 SHOWS HOW A KEYWORD STRUCTURE OF THE FORM --            LEX         5018     A     
 LEX      *                                                                                LEX         5019     A     
 LEX      *                O.VAR'KKKKKKK'  O.VAR'MNOPQRS'  O.VAR'TUVWXYZ'                  LEX         5020     A     
 LEX      *                                                                                LEX         5021     A     
 LEX      *              IS PROCESSED.                                                     LEX         5022     A     
 LEX      *                                                                                LEX         5023     A     
 LEX      *         THE FUNDAMENTAL DIFFERENCE BETWEEN THESE 2 EXAMPLES IS                 LEX         5024     A     
 LEX      *         THE FACT THAT IN EXAMPLE 2 NO LEFT SHIFT IS NECESSARY                  LEX         5025     A     
 LEX      *         (ONLY THE TOKEN TYPE NEEDS TO BE CHANGED), WHEREAS FOR                 LEX         5026     A     
 LEX      *         EXAMPLE 1, BOTH A LEFT-SHIFT AND A TOKEN TYPE (TOT)                    LEX         5027     A     
 LEX      *         CHANGE NEEDS TO BE PERFORMED.                                          LEX         5028     A     
 LEX      *                                                                                LEX         5029     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         OTHER ASPECTS OF THIS COMMENTING NOTATION ARE --                       LEX         5030     A     
 LEX      *                                                                                LEX         5031     A     
 LEX      *           --- = ORGINAL TOKEN TYPE (TO BE REPLACED WITH *+++*).                LEX         5032     A     
 LEX      *           +++ = NEW TOKEN TYPE.                                                LEX         5033     A     
 LEX      *           0   = 00B, I.E. A NULL CHARACTER BYTE.                               LEX         5034     A     
 LEX      *           7   = 77B, I.E. A CHARACTER EXTRACT MASK BYTE.                       LEX         5035     A     
 LEX                                                                                       LEX         5036     A     
 LEX       CAK8     LX1    B2          (X1) = ABCDE00000  IF (B2) .NZ.                     LEX         5037     A     
 LEX      *                                 = MNOPQRS000  IF (B2) .ZR.                     LEX         5038     A     
 LEX                BX2    X1                                                              LEX         5039     A     
 LEX                IX6    X1+X7       (X6) = ABCDE00+++  IF (B2) .NZ.                     LEX         5040     A     
 LEX      *                                 = MNOPQRS+++  IF (B2) .ZR.                     LEX         5041     A     
 LEX                SA1    A1+B1       (X1) = FGHIJKL---  IF (B2) .NZ.                     LEX         5042     A     
 LEX      *                                 = TUVWXYZ---  IF (B2) .ZR.                     LEX         5043     A     
 LEX                SB6    X1                                                              LEX         5044     A     
 LEX                BX1    X4*X1       (X1) = FGHIJKL000  IF (B2) .NZ.                     LEX         5045     A     
 LEX      *                                 = TUVWXYZ000  IF (B2) .ZR.                     LEX         5046     A     
 LEX                ZR     B2,CAK9     IF JUST CHANGING TOKEN TYPE                         LEX         5047     A     
 LEX                NE     B5,B6,CAK9  IF NEXT TOKEN NOT *VAR*, DONE...                    LEX         5048     A     
 LEX                BX2    X3*X1       (X2) = FG00000000                                   LEX         5049     A     
 LEX                BX1    -X3*X1      (X1) = 00HIJKL000                                   LEX         5050     A     
 LEX                LX2    TB.TOTL                                                         LEX         5051     A     
 LEX                LX2    B2          (X2) = 00000FG000                                   LEX         5052     A     
 LEX                BX6    X6+X2       (X6) = ABCDEFG+++                                   LEX         5053     A     
 LEX                LX2    X1                                                              LEX         5054     A     
 LEX                                                                                       LEX         5055     A     
 LEX       CAK9     SA6    A1-1                                                            LEX         5056     A     
 LEX                EQ     B5,B6,CAK8  IF NEXT TOKEN IS *VAR*, CONTINUE...                 LEX         5057     A     
 LEX                                                                                       LEX         5058     A     
 LEX      *         IF LEFT-SHIFT IN TOKEN BUFFER CREATED A HOLE (I.E. AN EMPTY            LEX         5059     A     
 LEX      *         TOKEN), THEN WE NEED TO RIGHT-SHIFT EVERYTHING WE JUST GOT             LEX         5060     A     
 LEX      *         THROUGH LEFT-SHIFTING TO FILL IN THE HOLE.                             LEX         5061     A     
 LEX      *                                                                                LEX         5062     A     
 LEX      *         E.G.:   O.VAR'DOGG'  O.VAR'Y'  EOS                                     LEX         5063     A     
 LEX      *                                                                                LEX         5064     A     
 LEX      *         BECOMES: O.VAR'DOGGY'  **HOLE**  EOS                                   LEX         5065     A     
 LEX      *                                                                                LEX         5066     A     
 LEX      *         NEED TO RIGHT-SHIFT TO: O.VAR'DOGGY' EOS                               LEX         5067     A     
 LEX                                                                                       LEX         5068     A     
 LEX                NZ     X2,CAK12    IF NOT HOLE                                         LEX         5069     A     
 LEX                                                                                       LEX         5070     A     
 LEX                SB2    A6                                                              LEX         5071     A     
 LEX                SB4    B4+B1                                                           LEX         5072     A     
 LEX       CAK10    SA1    B2-B1                                                           LEX         5073     A     
 LEX                SB2    B2-B1                                                           LEX         5074     A     
 LEX                BX6    X1                                                              LEX         5075     A     
 LEX                SA6    A1+B1                                                           LEX         5076     A     
 LEX                GE     B2,B4,CAK10 IF MORE TO MOVE                                     LEX         5077     A     
 LEX                EQ     CAK12                                                           LEX         5078     A     
 LEX                                                                                       LEX         5079     A     
 LEX      *         SPECIAL PLACE FOR SETTING *MISSPELLED KEYWORD* ERR STATUS.             LEX         5080     A     
 LEX                                                                                       LEX         5081     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       CAK11    SB7    -1          SET TO *MISSPELLED KEYWORD*                         LEX         5082     A     
 LEX                                                                                       LEX         5083     A     
 LEX      *         SET UP EXIT CONDITIONS.                                                LEX         5084     A     
 LEX                                                                                       LEX         5085     A     
 LEX       CAK12    SA3    CAKA        (X3) = KEYWORD TABLE ENTRY FOR THIS KEYWORD         LEX         5086     A     
 LEX                BX6    X3                                                              LEX         5087     A     
 LEX                                                                                       LEX         5088     A     
 LEX      **        BEFORE LEAVING, ANY O.CONS TOKEN FOLLOWING THE KEYWORD MUST BE         LEX         5089     A     
 LEX      *         CHECKED FOR IMBEDDED NON-DIGITS.                                       LEX         5090     A     
 LEX                                                                                       LEX         5091     A     
 LEX                SA1    B4          X1 = TOKEN FOLLOWING THE KEYWORD                    LEX         5092     A     
 LEX                SX2    X1-O.CONS                                                       LEX         5093     A     
 LEX                NZ     X2,EXIT.    IF NOT O.CONS                                       LEX         5094     A     
 LEX                SA2    FILL.       X2 = KEYWORD                                        LEX         5095     A     
 LEX                SA3    =0LASSIGN                                                       LEX         5096     A     
 LEX                BX3    X2-X3                                                           LEX         5097     A     
 LEX                ZR     X3,EXIT.    IF *ASSIGN* KEYWORD                                 LEX         5098     A     
 LEX                SA3    =0LDO                                                           LEX         5099     A     
 LEX                BX3    X2-X3                                                           LEX         5100     A     
 LEX                ZR     X3,EXIT.    IF *DO* KEYWORD                                     LEX         5101     A     
 LEX                MX3    TB.TOCL                                                         LEX         5102     A     
 LEX                LX1    59-TB.TOCP+1-TB.TOCL                                            LEX         5103     A     
 LEX                BX1    X3*X1       X1 = TOKEN ONLY                                     LEX         5104     A     
 LEX                BX7    X1                                                              LEX         5105     A     
 LEX                MX3    -CHAR                                                           LEX         5106     A     
 LEX       CAK15    LX1    CHAR                                                            LEX         5107     A     
 LEX                BX2    -X3*X1                                                          LEX         5108     A     
 LEX                ZR     X2,EXIT.    IF END OF TOKEN                                     LEX         5109     A     
 LEX                SX2    X2-1R0                                                          LEX         5110     A     
 LEX                PL     X2,CAK15    IF NUMERIC (0 THRU 9)                               LEX         5111     A     
 LEX                SX2    O.ILL                                                           LEX         5112     A     
 LEX                BX7    X7+X2       CHANGE TO O.ILL                                     LEX         5113     A     
 LEX                SA7    B4          UPDATE *TB*                                         LEX         5114     A     
 LEX                EQ     EXIT.                                                           LEX         5115     A     
 LEX                                                                                       LEX         5116     A     
 LEX                                                                                       LEX         5117     A     
 LEX       CAKA     BSSZ   1           SAVED FOUND *KEYW* ENTRY                            LEX         5118     A     
 LEX       EOC      SPACE  4,10                                                            LEX         5119     A     
 LEX      **        EOC - END OF '' (TYPE *CHARACTER*) STRING PROCESSING.                  LEX         5120     A     
 LEX      *                                                                                LEX         5121     A     
 LEX      *         HERE WHEN THE TERMINATING QUOTE OF A ' QUOTE DELIMITED                 LEX         5122     A     
 LEX      *         STRING HAS BEEN FOUND/SENSED.  NEED TO --                              LEX         5123     A     
 LEX      *                                                                                LEX         5124     A     
 LEX      *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING                LEX         5125     A     
 LEX      *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                             LEX         5126     A     
 LEX      *                                                                                LEX         5127     A     
 LEX      *           2. UPDATE THE INCOMPLETE *O.CHAR* TOKEN BY STORING THE               LEX         5128     A     
 LEX      *              NR OF CHARACTERS IN THE STRING INTO IT.                           LEX         5129     A     
 LEX      *                                                                                LEX         5130     A     
 LEX      *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*          LEX         5131     A     
 LEX      *              IMMEDIATELY FOLLOWING THE *O.CHAR* TOKEN INTO *T.CHAR*            LEX         5132     A     
 LEX      *              VIA *NCM* (ENTER CM INTO TABLE).                                  LEX         5133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         5134     A     
 LEX      *         ENTRY  (B3) = LWA+1 OF CHARACTER STRING.                               LEX         5135     A     
 LEX      *                                                                                LEX         5136     A     
 LEX      *                (CH=CNT)  = CHARACTER STRING COUNT.                             LEX         5137     A     
 LEX      *                (CH=TYPE) = CHARACTER STRING TYPE.                              LEX         5138     A     
 LEX      *                (CH=TAD)  = CHARACTER STRING TOKEN ADDRESS.                     LEX         5139     A     
 LEX      *                                                                                LEX         5140     A     
 LEX      *                SEE DATA STRUCTURES/CH=XXX CELLS FOR MORE INFORMATION.          LEX         5141     A     
 LEX      *                                                                                LEX         5142     A     
 LEX      *         EXIT   (A6) = ADDR OF *O.CHAR* TOKEN.                                  LEX         5143     A     
 LEX      *                                                                                LEX         5144     A     
 LEX      *         USES   ALL                                                             LEX         5145     A     
 LEX      *                                                                                LEX         5146     A     
 LEX      *         CALLS  NCM,SFN                                                         LEX         5147     A     
 LEX                                                                                       LEX         5148     A     
 LEX                                                                                       LEX         5149     A     
 LEX       EOC      SUBR               ** ENTRY/EXIT **                                    LEX         5150     A     
 LEX                                                                                       LEX         5151     A     
 LEX                SA1    A6          (A1,X1) = A+C OF LAST WORD IN STRING                LEX         5152          I
          -FC5A110
 LEX                SA1    LEXFLG                                                          FC5A110       52     A     
 LEX                MX2    1                                                               FC5A110       53     A     
 LEX                LX2    LF.TDEP-59                                                      FC5A110       54     A     
 LEX                BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED          FC5A110       55     A     
 LEX                SA7    A1                                                              FC5A110       56     A     
 LEX                =A1    B3-1        (A1,X1) = A+C OF LAST WORD IN STRING                FC5A110       57     A     
 LEX                SA2    CH=CNT                                                          LEX         5153     A     
 LEX                =X2    X2+1                                                            LEX         5154     A     
 LEX                ZR     X2,EOC10    IF EMPTY STRING                                     LEX         5155     A     
 LEX                BX2    -X2                                                             LEX         5156     A     
 LEX                RJ     SFT         SPACE FILL LAST WORD OF STRING                      LEX         5157     A     
 LEX                SA1    CH=TAD      (X1) = ADDR OF *O.HOL* TOKEN                        LEX         5158     A     
 LEX                SB2    X1+B1       (B2) = FWA OF STRING                                LEX         5159     A     
 LEX                SX2    B3-B2       (X2) = LEN OF STRING (IN WORDS)                     LEX         5160     A     
 LEX                SA1    X1          (A1,X1) = A+C OF *O.CHAR* TOKEN                     LEX         5161     A     
 LEX                LX2    TB.LCONP-0                                                      LEX         5162     A     
 LEX                BX7    X1+X2       MERGE *LCON*                                        LEX         5163     A     
 LEX                SA2    CH=CNT      (X2) = -(CHAR COUNT+1)                              LEX         5164     A     
 LEX                SX3    X2+B1       (X3) = -(CHAR COUNT)                                LEX         5165     A     
 LEX                LX3    TB.CLCNP-0                                                      LEX         5166     A     
 LEX                BX7    -X3+X7      MERGE *CLCN*                                        LEX         5167     A     
 LEX                SA7    A1          ENTER *O.CHAR* TOKEN W/O *T.CHAR* ORD               LEX         5168     A     
 LEX                                                                                       LEX         5169     A     
 LEX      *         ENTER STRING INTO *T.CHAR*.                                            LEX         5170     A     
 LEX      *                                                                                LEX         5171     A     
 LEX      *         ENTRY  (B2) = FWA OF STRING                                            LEX         5172     A     
 LEX      *                (B3) = LWA+1 OF STRING.                                         LEX         5173     A     
 LEX                                                                                       LEX         5174     A     
 LEX                SA1    =XT.CON                                                         LEX         5175     A     
 LEX                SB7    B0+         SET TO *IF NOT IN TABLE, GO ENTER IT...*            LEX         5176     A     
 LEX                CALL   NCM         ENTER CM INTO TABLE                                 LEX         5177     A     
 LEX                                                                                       LEX         5178     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                IFEQ   TEST,ON,1                                                       LEX         5179     A     
 LEX                MI     B7,"BLOWUP" IF SOMETHING IS FISHY...                            LEX         5180     A     
 LEX                                                                                       LEX         5181     A     
 LEX      *         MERGE *T.CHAR* ORDINAL INTO *O.CHAR* TOKEN.                            LEX         5182     A     
 LEX                                                                                       LEX         5183     A     
 LEX                SA1    CH=TAD                                                          LEX         5184     A     
 LEX                MX7    0                                                               LEX         5185     A     
 LEX                SA7    A1          SET TO *'' STRING IS COMPLETE*                      LEX         5186     A     
 LEX                SA1    X1          (X1) = *O.CHAR* TOKEN                               LEX         5187     A     
 LEX                SX2    B7          (X2) = *T.CHAR* ORD                                 LEX         5188     A     
 LEX                LX2    TB.SHCP-0                                                       LEX         5189     A     
 LEX                BX6    X1+X2       MERGE *SHC*                                         LEX         5190     A     
 LEX                SA6    A1+                                                             LEX         5191     A     
 LEX                EQ     EXIT.                                                           LEX         5192     A     
 LEX                                                                                       LEX         5193     A     
 LEX       EOC10    SA1    CH=TAD                                                          LEX         5194     A     
 LEX                MX7    0                                                               LEX         5195     A     
 LEX                SA7    A1          STRING COMPLETE                                     LEX         5196     A     
 LEX                =X7    O.ILL                                                           LEX         5197     A     
 LEX                SA2    =2L''                                                           LEX         5198     A     
 LEX                BX7    X7+X2                                                           LEX         5199     A     
 LEX                SA7    X1          RESET TO *ILL*                                      LEX         5200     A     
 LEX                FATAL  E.HC1                                                           LEX         5201     A     
 LEX                EQ     EXIT.                                                           LEX         5202     A     
 LEX       EOH      SPACE  4,10                                                            LEX         5203     A     
 LEX      **        EOH - END OF HOLLERITH STRING PROCESSING.                              LEX         5204     A     
 LEX      *                                                                                LEX         5205     A     
 LEX      *         ------------                                                           LEX         5206     A     
 LEX      *         *HLR* STRING                                                           LEX         5207     A     
 LEX      *         ------------                                                           LEX         5208     A     
 LEX      *                                                                                LEX         5209     A     
 LEX      *           1. UPDATE INCOMPLETE *O.HOLL* TOKEN TO REFLECT WORD LEN              LEX         5210     A     
 LEX      *              AND *T.CONS* ORDINAL.                                             LEX         5211     A     
 LEX      *                                                                                LEX         5212     A     
 LEX      *           2. FORMAT FINAL/LAST WORD OF STRING IN *HOLLSKL*.                    LEX         5213     A     
 LEX      *                                                                                LEX         5214     A     
 LEX      *             A. IF -H- TYPE STRING, SPACE-FILL LAST WORD.                       LEX         5215     A     
 LEX      *             B. IF -R- TYPE STRING, RIGHT-JUSTIFY LAST WORD.                    LEX         5216     A     
 LEX      *             C. IF -L- TYPE STRING, DONT NEED TO DO ANYTHING.                   LEX         5217     A     
 LEX      *                                                                                LEX         5218     A     
 LEX      *           3. ENTER THE STRING WHICH WAS TEMPORARILY STORED INTO *T.TB*         LEX         5219     A     
 LEX      *              IMMEDIATELY FOLLOWING THE INCOMPLETE *O.HOLL* TOKEN INTO          LEX         5220     A     
 LEX      *              *T.CON* VIA *NCM* (ENTER CM INTO TABLE).                          LEX         5221     A     
 LEX      *                                                                                LEX         5222     A     
 LEX      *         ---------                                                              LEX         5223     A     
 LEX      *         "" STRING                                                              LEX         5224     A     
 LEX      *         ---------                                                              LEX         5225     A     
 LEX      *                                                                                LEX         5226     A     
 LEX      *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING                LEX         5227     A     
 LEX      *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                             LEX         5228     A     
 LEX      *                                                                                LEX         5229     A     
 LEX      *           2. UPDATE THE INCOMPLETE *O.HOLL* TOKEN BY STORING THE               LEX         5230     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *              STRING LENGTHS (NR OF WORDS OCCUPIED BY THE STRING, AND           LEX         5231     A     
 LEX      *              NR OF CHARACTERS IN THE STRING) INTO IT.                          LEX         5232     A     
 LEX      *                                                                                LEX         5233     A     
 LEX      *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*          LEX         5234     A     
 LEX      *              IMMEDIATELY FOLLOWING THE *O.HOLL* TOKEN INTO *T.CON*             LEX         5235     A     
 LEX      *              VIA *NCM* (ENTER CM INTO TABLE).                                  LEX         5236     A     
 LEX      *                                                                                LEX         5237     A     
 LEX      *         ENTRY  (B3) = LWA+1 OF HOLLERITH STRING.                               LEX         5238     A     
 LEX      *                                                                                LEX         5239     A     
 LEX      *                (CH=CNT)  = CHARACTER STRING COUNT.                             LEX         5240     A     
 LEX      *                (CH=TYPE) = CHARACTER STRING TYPE.                              LEX         5241     A     
 LEX      *                (CH=TAD)  = CHARACTER STRING TOKEN ADDRESS.                     LEX         5242     A     
 LEX      *                                                                                LEX         5243     A     
 LEX      *                SEE DATA STRUCTURES/CH=XXX CELLS FOR MORE INFORMATION.          LEX         5244     A     
 LEX      *                                                                                LEX         5245     A     
 LEX      *         EXIT   (A6) = ADDR OF *O.HOLL* TOKEN.                                  LEX         5246     A     
 LEX      *                                                                                LEX         5247     A     
 LEX      *         USES   ALL                                                             LEX         5248     A     
 LEX      *                                                                                LEX         5249     A     
 LEX      *         CALLS  NCM,SFN                                                         LEX         5250     A     
 LEX                                                                                       LEX         5251     A     
 LEX                                                                                       LEX         5252     A     
 LEX       EOH      SUBR               ** ENTRY/EXIT **                                    LEX         5253     A     
 LEX                SA3    LEXFLG                                                          FC5A110       58     A     
 LEX                MX4    1                                                               FC5A110       59     A     
 LEX                LX4    LF.TDEP-59                                                      FC5A110       60     A     
 LEX                BX6    -X4*X3      INDICATE NO TERMINAL DELIMITER ENCOUNTERED          FC5A110       61     A     
 LEX                SA6    A3                                                              FC5A110       62     A     
 LEX                SA3    CH=TAD      (X3) = ADDR OF *O.HOLL* TOKEN                       LEX         5254     A     
 LEX                SA4    CH=TYPE                                                         LEX         5255     A     
 LEX                SB2    X3+1        (B2) = FWA OF STRING                                LEX         5256     A     
 LEX                SX2    B3-B2       (X2) = LEN OF STRING                                LEX         5257     A     
 LEX                LX2    TB.LCONP-0                                                      LEX         5258     A     
 LEX                SA3    X3          (A3,X3) = A+C OF *O.HOLL* TOKEN                     LEX         5259     A     
 LEX                BX6    X3+X2       MERGE *LCON*                                        LEX         5260     A     
 LEX                LX2    -TB.LCONP                                                       LEX         5261     A     
 LEX                SX7    X4-CT.H                                                         LEX         5262     A     
 LEX                ZR     X7,EOH2     IF *H* STRING                                       LEX         5263     A     
 LEX                SA1    CH=CNT      (X1) = -(CHAR COUNT+1)                              LEX         5264          I
          -FC5A258
 LEX                SX2    X1+1        (X2) = -(CHAR COUNT)                                LEX         5265          I
          -FC5A258
 LEX                SX7    X4-CT.DQT                                                       FC5A258       15     A     
 LEX                ZR     X7,EOH1     IF *""* STRING                                      FC5A258       16     A     
 LEX                =X3    -O.QHOLL+O.RLCON                                                FC5A258       17     A     
 LEX                IX6    X6+X3       CONVERT THE TOKEN                                   FC5A258       18     A     
 LEX                                                                                       FC5A258       19     A     
 LEX       EOH1     SA1    CH=CNT      (X1) = -(CHAR COUNT+1)                              FC5A258       20     A     
 LEX                =X2    X1+1        (X2) = -(CHAR COUNT)                                FC5A258       21     A     
 LEX                LX2    TB.CLCNP-0                                                      LEX         5266     A     
 LEX                BX6    -X2+X6      MERGE *CLCN*                                        LEX         5267     A     
 LEX                LX2    -TB.CLCNP                                                       LEX         5268     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       FC5A258       22     A     
 LEX       EOH2     SA6    A3+         ENTER *O.HOLL* TOKEN W/O *T.CON* ORD                LEX         5269     A     
 LEX                ZR     X2,EOH10    IF EMPTY STRING                                     LEX         5270     A     
 LEX                                                                                       LEX         5271     A     
 LEX      *         FORMAT FINAL/LAST WORD OF STRING, IF NECESSARY.                        LEX         5272     A     
 LEX                                                                                       LEX         5273     A     
 LEX                SX7    X4-CT.L                                                         LEX         5274     A     
 LEX                ZR     X7,EOH3     IF -L- STRING, ENTER IT INTO *T.CON*...             LEX         5275     A     
 LEX                SA1    B3-B1       (A1,X1) = A+C OF LAST WORD IN STRING                LEX         5276     A     
 LEX                LX6    -TB.CLCNP                                                       LEX         5277     A     
 LEX                MX0    -TB.CLCNL                                                       LEX         5278     A     
 LEX                BX2    -X0*X6                                                          LEX         5279     A     
 LEX                RJ     SFT         SPACE FILL LAST WORD OF STRING                      LEX         5280     A     
 LEX                SX1    X4-CT.H                                                         LEX         5281     A     
 LEX                ZR     X1,EOH3     IF -H- STRING, ENTER IT INTO *T.CON*...             LEX         5282     A     
 LEX                SX1    X4-CT.DQT                                                       LEX         5283     A     
 LEX                ZR     X1,EOH3     IF "" STRING, ENTER IT INTO *T.CON*...              LEX         5284     A     
 LEX                                                                                       LEX         5285     A     
 LEX                IFEQ   TEST,ON,2                                                       LEX         5286     A     
 LEX                SX1    X4-CT.R                                                         LEX         5287     A     
 LEX                NZ     X1,"BLOWUP" IF NOT -R- STRING, HWUMP...                         LEX         5288     A     
 LEX                BX6    X7*X6       (X6) = LAST WORD OF STRING, -L- FMT AGAIN           LEX         5289     A     
 LEX                CX7    X7          (X7) = NR OF BITS IN LAST WORD                      LEX         5290     A     
 LEX                SB4    X7                                                              LEX         5291     A     
 LEX                LX6    B4          (X6) = LAST WORD OF STRING, -R- FMT                 LEX         5292     A     
 LEX                SA6    A1+                                                             LEX         5293     A     
 LEX                                                                                       LEX         5294     A     
 LEX      *         ENTER STRING INTO *T.CON*.                                             LEX         5295     A     
 LEX      *                                                                                LEX         5296     A     
 LEX      *         ENTRY  (B2) = FWA OF STRING                                            LEX         5297     A     
 LEX      *                (B3) = LWA+1 OF STRING.                                         LEX         5298     A     
 LEX                                                                                       LEX         5299     A     
 LEX       EOH3     SA1    =XT.CON                                                         LEX         5300          I
          -FC5A258
 LEX       EOH3     SA1    T.CON                                                           FC5A258       23     A     
 LEX                SB7    B0+         SET TO *IF NOT IN TABLE, GO ENTER IT...*            LEX         5301     A     
 LEX                CALL   NCM         ENTER CM INTO TABLE                                 LEX         5302     A     
 LEX                IFEQ   TEST,ON,1                                                       LEX         5303     A     
 LEX                MI     B7,"BLOWUP" IF SOMETHING IS FISHY...                            LEX         5304     A     
 LEX                                                                                       LEX         5305     A     
 LEX      *         MERGE *T.CON* ORDINAL INTO *O.HOLL* TOKEN.                             LEX         5306     A     
 LEX                                                                                       LEX         5307     A     
 LEX                SA1    CH=TAD                                                          LEX         5308     A     
 LEX                MX7    0                                                               LEX         5309     A     
 LEX                SA7    A1          SET TO *"" STRING IS COMPLETE*                      LEX         5310     A     
 LEX                SA1    X1+         (X1) = *O.HOL* TOKEN                                LEX         5311     A     
 LEX                SX2    B7          (X2) = *T.CON* ORD                                  LEX         5312     A     
 LEX                LX2    TB.SHCP-0                                                       LEX         5313     A     
 LEX                BX6    X1+X2       MERGE *SHC*                                         LEX         5314     A     
 LEX                SA6    A1                                                              LEX         5315     A     
 LEX                EQ     EXIT.                                                           LEX         5316     A     
 LEX                                                                                       LEX         5317     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       EOH10    SA1    CH=TAD                                                          LEX         5318     A     
 LEX                =X6    O.ILL                                                           LEX         5319     A     
 LEX                SA2    =2L""                                                           LEX         5320     A     
 LEX                NZ     X7,EOH15    IF "" STRING                                        LEX         5321     A     
 LEX                SA2    =7LBAD-STR                                                      LEX         5322     A     
 LEX       EOH15    BX6    X6+X2       MERGE DPC WITH TOKEN TYPE                           LEX         5323     A     
 LEX                MX7    0                                                               LEX         5324     A     
 LEX                SA7    A1          STRING COMPLETE                                     LEX         5325     A     
 LEX                SA6    X1          RESET TO *ILL*                                      LEX         5326     A     
 LEX                FATAL  E.HC1                                                           LEX         5327     A     
 LEX                EQ     EXIT.                                                           LEX         5328     A     
 LEX       ILX      SPACE  4,10                                                            LEX         5329     A     
 LEX      **        ILX - INITIALIZE *LEX*.                                                LEX         5330     A     
 LEX      *                                                                                LEX         5331     A     
 LEX      *                                                                                LEX         5332     A     
 LEX      *         THIS ROUTINE PERFORMS MISCELLANEOUS INITIALIZATIONS NECESSARY          LEX         5333     A     
 LEX      *         AT STATEMENT BOUNDARIES (I.E. RIGHT AFTER *LEX* IS CALLED).            LEX         5334     A     
 LEX      *                                                                                LEX         5335     A     
 LEX      *         ENTRY  NONE                                                            LEX         5336     A     
 LEX      *                                                                                LEX         5337     A     
 LEX      *         EXIT   NONE                                                            LEX         5338     A     
 LEX      *                                                                                LEX         5339     A     
 LEX      *         USES   X - 1,2,6,7                                                     LEX         5340     A     
 LEX      *                A - 1,6,7                                                       LEX         5341     A     
 LEX      *                B - NONE                                                        LEX         5342     A     
 LEX      *                                                                                LEX         5343     A     
 LEX      *         CALLS  SHRINK                                                          LEX         5344     A     
 LEX                                                                                       LEX         5345     A     
 LEX                                                                                       LEX         5346     A     
 LEX       ILX      SUBR               ** ENTRY/EXIT **                                    LEX         5347     A     
 LEX                SX6    0                                                               LEX         5348     A     
 LEX                SHRINK T=TB,X6                                                         LEX         5349     A     
 LEX                SA6    CH=TAD                                                          LEX         5350     A     
 LEX                SA6    TC=TBA                                                          LEX         5351     A     
 LEX                SA6    TB=1ST                                                          LEX         5352     A     
 LEX                SA6    TB=CDF                                                          LEX         5353     A     
 LEX                SA6    TB=LABL                                                         LEX         5354     A     
 LEX                SA6    TB=LABR                                                         LEX         5355     A     
 LEX                SA6    TB=LLP                                                          LEX         5356     A     
 LEX                SA6    TB=NUML                                                         LEX         5357     A     
 LEX                SA6    TB=NUMR                                                         LEX         5358     A     
 LEX                SA6    TB=PLVL                                                         LEX         5359     A     
 LEX                SA6    TB=TYPE                                                         LEX         5360     A     
 LEX                SA1    LEXFLG                                                          LEX         5361     A     
 LEX                CLAS=  X2,LF,(LAC)                                                     LEX         5362     A     
 LEX                BX7    X1+X2       SET TO *LEX ACTIVE*                                 LEX         5363     A     
 LEX                CLAS=  X2,LF,(CHR)                                                     LEX         5364     A     
 LEX                BX7    -X2*X7      CLEAR *CHR*                                         LEX         5365     A     
 LEX                CLAS=  X2,LF,(QAC)                                                     LEX         5366          I
          -FC5A110
 LEX                BX7    -X2*X7      CLEAR *QAC*                                         LEX         5367          I
          -FC5A110
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                CLAS=  X2,LF,(TDE)                                                     FC5A110       63     A     
 LEX                BX7    -X2*X7      CLEAR *TDE*                                         FC5A110       64     A     
 LEX                SA7    A1                                                              LEX         5368     A     
 LEX                LX1    59-LF.HDRP                                                      LEX         5369     A     
 LEX                SA6    SB=CONT                                                         LEX         5370     A     
 LEX                MI     X1,EXIT.    IF IN *HEADER DELAY* MODE                           LEX         5371     A     
 LEX                SHRINK T=STMT,X6                                                       LEX         5372     A     
 LEX                SA6    SB=LINC                                                         LEX         5373     A     
 LEX                SA6    SB=LORD                                                         LEX         5374     A     
 LEX                EQ     EXIT.                                                           LEX         5375     A     
 LEX       LDB      SPACE  4,10                                                            LEX         5376     A     
 LEX      **        LDB - LIST DEFERRED BUFFER.                                            LEX         5377     A     
 LEX      *                                                                                LEX         5378     A     
 LEX      *                                                                                LEX         5379     A     
 LEX      *         THIS ROUTINE PERFORMS THE TASK OF LISTING THE CONTENTS                 LEX         5380     A     
 LEX      *         OF *T.STMT*, WHICH CONTAINS ALL THE SOURCE LINE IMAGES                 LEX         5381     A     
 LEX      *         FOR THE CURRENT STATEMENT (I.E. INITIAL LINE AND CONTINUATION          LEX         5382     A     
 LEX      *         LINES, PLUS POSSIBLY IMBEDDED COMMENT LINES IN *BEFORE HEADER*         LEX         5383     A     
 LEX      *         MODE).                                                                 LEX         5384     A     
 LEX      *                                                                                LEX         5385     A     
 LEX      *         THESE LINES WERE PLACED IN *T.STMT* BY *PLR* (PROCESS LISTING          LEX         5386     A     
 LEX      *         REQUEST), BUT MAY OR MAY NOT HAVE BEEN ACTUALLY LISTED.                LEX         5387     A     
 LEX      *         WHENEVER SOMEBODY INVOLVED IN THE COMPILERS LISTING LOGIC              LEX         5388     A     
 LEX      *         WISHES TO ENSURE THAT A STATEMENT (EMPHASIZE *STATEMENT*) HAS          LEX         5389     A     
 LEX      *         BEEN LISTED, THEY CALL *LDB* TO DO THIS.  *LDB*, THEREFORE,            LEX         5390     A     
 LEX      *         CONSTITUTES A FOCAL POINT FOR MAKING SURE THAT A STMT DOES NOT         LEX         5391     A     
 LEX      *         GET ACCIDENTLY LISTED TWICE, OR THREE TIMES, OR...                     LEX         5392     A     
 LEX      *                                                                                LEX         5393     A     
 LEX      *         EACH LINE IN *T.STMT* IS PREFIXED WITH A *LINE INFORMATION*            LEX         5394     A     
 LEX      *         HEADER WORD BY *PLR*, WHICH CONTAINS THE LENGTH OF THIS                LEX         5395     A     
 LEX      *         *T.STMT* ENTRY, THE *LINE TYPE* OF THIS LINE, AND A BIT                LEX         5396     A     
 LEX      *         THAT INDICATES WHETHER THIS LINE HAS ALREADY BEEN LISTED.              LEX         5397     A     
 LEX      *         THIS *LINE INFO* WORD IS DEFINED VIA *SB.* STRUCTURE                   LEX         5398     A     
 LEX      *         DEFINITIONS.  SEE *SB./SB=* SYMBOLS.                                   LEX         5399     A     
 LEX      *                                                                                LEX         5400     A     
 LEX      *         NOTE THAT *LDB* DOES **NOT** CHANGE THE LENGTH OF *T.STMT*.            LEX         5401     A     
 LEX      *         THIS IS BECAUSE *T.STMT* IS USED FOR TOKEN GENERATION AS               LEX         5402     A     
 LEX      *         WELL AS LISTING.                                                       LEX         5403     A     
 LEX      *                                                                                LEX         5404     A     
 LEX      *         EXAMPLE OF *T.STMT* FORMAT --                                          LEX         5405     A     
 LEX      *                                                                                LEX         5406     A     
 LEX      *           FOR THE SOURCE STATEMENT BEGINNING AT LINE 10 --                     LEX         5407     A     
 LEX      *             COL 1     7                                                        LEX         5408     A     
 LEX      *                       DIMENSIONS(1),                                           LEX         5409     A     
 LEX      *                      , OF(2),                                                  LEX         5410     A     
 LEX      *                      , THE(3),MIND(4)                                          LEX         5411     A     
 LEX      *                                                                                LEX         5412     A     
 LEX      *           *T.STMT* WOULD BE --                                                 LEX         5413     A     
 LEX      *                                                                                LEX         5414     A     
 LEX      * WORD        0       1         2         3         4         5                  LEX         5415     A     
 LEX      *      LT.INIT/LEN=6  .......10.................DIMENSIONS(1),0000000000         LEX         5416     A     
 LEX      *                                                                                LEX         5417     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      * WORD        6       7         8         9        10        11                  LEX         5418     A     
 LEX      *      LT.CONT/LEN=6  .......11................,.OF(2),.......0000000000         LEX         5419     A     
 LEX      *                                                                                LEX         5420     A     
 LEX      * WORD       12      13        14        15        16        17                  LEX         5421     A     
 LEX      *      LT.CONT/LEN=7  .......12................,.THE(3),MIND(4).........         LEX         5422     A     
 LEX      *                                                                                LEX         5423     A     
 LEX      * WORD               18                                                          LEX         5424     A     
 LEX      *                     0000000000                                                 LEX         5425     A     
 LEX      *                                                                                LEX         5426     A     
 LEX      *           WHERE .=BLANK(55B),0=EOL BITS(00B)                                   LEX         5427     A     
 LEX      *                                                                                LEX         5428     A     
 LEX      *         ENTRY  *T.STMT* PROPERLY SET UP BY *PLR* (PROCESS                      LEX         5429     A     
 LEX      *                         LISTING REQUEST).                                      LEX         5430     A     
 LEX      *                *SB=* (STMT BUFFER) INFORMATION CELLS                           LEX         5431     A     
 LEX      *                         ALL IN ORDER.                                          LEX         5432     A     
 LEX      *                *LEXFLG/LF.LAC* INDICATING WHETHER OR NOT                       LEX         5433     A     
 LEX      *                         *LEX* IS ACTIVE.                                       LEX         5434     A     
 LEX      *                *LEXFLG/LF.HDR* INDICATING WHETHER OR NOT                       LEX         5435     A     
 LEX      *                         WE ARE IN *HEADER DELAY* MODE.                         LEX         5436     A     
 LEX      *                                                                                LEX         5437     A     
 LEX      *                SEE *DATA STRUCTURES/SB= AND LEXFLG*.                           LEX         5438     A     
 LEX      *                                                                                LEX         5439     A     
 LEX      *         EXIT   *LEXFLG/LF.HDR* CLEARED TO *NOT HEADER DELAY*                   LEX         5440     A     
 LEX      *                                                                                LEX         5441     A     
 LEX      *         USES   ALL BUT A0,A5,X5  (INCLUDES ALL CALLS)                          LEX         5442     A     
 LEX      *                                                                                LEX         5443     A     
 LEX      *         CALLS  LSL,SHRINK                                                      LEX         5444     A     
 LEX                                                                                       LEX         5445     A     
 LEX                                                                                       LEX         5446     A     
 LEX       LDB      SUBR   =           ** ENTRY/EXIT **                                    LEX         5447     A     
 LEX                SA1    T.STMT                                                          LEX         5448     A     
 LEX                SA2    SB=LINC     (X2) = NR OF LINES IN *T.STMT*                      LEX         5449     A     
 LEX                                                                                       LEX         5450     A     
 LEX       .T       IFEQ   TEST,ON                                                         LEX         5451     A     
 LEX                SA3    T=STMT                                                          LEX         5452     A     
 LEX                SA4    SB=LORD                                                         LEX         5453     A     
 LEX                IX6    X3-X4                                                           LEX         5454     A     
 LEX                MI     X6,"BLOWUP" IF LINE ORDINAL .GT. STMT BUFFER LEN                LEX         5455     A     
 LEX                NZ     X3,LDB1     IF STMT BUFFER NOT EMPTY                            LEX         5456     A     
 LEX                NZ     X2,"BLOWUP" IF LINE COUNT CONFLICT                              LEX         5457     A     
 LEX                                                                                       LEX         5458     A     
 LEX       LDB1     BSS    0                                                               LEX         5459     A     
 LEX       .T       ENDIF                                                                  LEX         5460     A     
 LEX                                                                                       LEX         5461     A     
 LEX                SB4    X1                                                              LEX         5462     A     
 LEX                BX6    X2                                                              LEX         5463     A     
 LEX                SA6    LDBA        INITIALIZE LOCAL LINE COUNTER                       LEX         5464     A     
 LEX                                                                                       FC50243        9     A     
 LEX       LDB2     SA2    LDBA        (X2) = NR OF LINES REMAINING IN *T.STMT*            LEX         5465     A     
 LEX                SA3    B4          (A3,X3) = A+C OF *LINE INFO* HEADER WORD            LEX         5466     A     
 LEX                MX7    1                                                               LEX         5467     A     
 LEX                ZR     X2,LDB3     IF FINISHED LISTING *T.STMT*                        LEX         5468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX         5469     A     
 LEX                IFEQ   TEST,ON,1                                                       LEX         5470     A     
 LEX                MI     X2,"BLOWUP" IF SOMETHING TERRIBLE HAS HAPPENED...               LEX         5471     A     
 LEX                LX3    0-SB.LENP                                                       LEX         5472     A     
 LEX                SX4    X3          (X4) = NR OF WORDS IN THIS LINE                     LEX         5473     A     
 LEX                LX3    59-SB.LOUTP+SB.LENP-0                                           LEX         5474     A     
 LEX                                                                                       LEX         5475     A     
 LEX      *         USE SB.LERR IF LISTING TO E-FILE.                                      LEX         5476     A     
 LEX                                                                                       LEX         5477     A     
 LEX                ERRNZ  SB.LOUTP-SB.LERRP-1                                             LEX         5478     A     
 LEX                SA1    =XWOF=ERR   LIST TO E-FILE FLAG                                 LEX         5479     A     
 LEX                SB6    X1                                                              LEX         5480     A     
 LEX                LX3    B6                                                              LEX         5481     A     
 LEX                SX1    B4+B1       (X1) = FWA OF LISTABLE LINE                         LEX         5482     A     
 LEX                SX6    X2-1                                                            LEX         5483     A     
 LEX                BX7    X3+X7       SET TO *THIS LINE HAS BEEN LISTED*                  LEX         5484     A     
 LEX                SB6    -B6                                                             LEX         5485     A     
 LEX                SB6    60+B6                                                           LEX         5486     A     
 LEX                LX7    B6          RESTORE WORD                                        LEX         5487     A     
 LEX                SA6    A2                                                              LEX         5488     A     
 LEX                SB4    B4+X4       (B4) = ADDR OF NEXT *LINE INFO* WORD                LEX         5489     A     
 LEX                LX7    SB.LOUTP-59                                                     LEX         5490     A     
 LEX                SA7    A3                                                              LEX         5491     A     
 LEX                MI     X3,LDB2     IF THIS LINE ALREADY LISTED                         LEX         5492     A     
 LEX                SX4    X4-2        LENGTH FOR LSL                                      LEX         5493     A     
 LEX                RJ     LSL         LIST SOURCE LINE                                    LEX         5494     A     
 LEX                EQ     LDB2                                                            LEX         5495     A     
 LEX                                                                                       LEX         5496     A     
 LEX       LDB3     SA1    LEXFLG                                                          LEX         5497     A     
 LEX                MX2    1                                                               LEX         5498     A     
 LEX                LX2    LF.HDRP-59                                                      LEX         5499     A     
 LEX                BX7    -X2*X1      CLEAR *HDR*                                         LEX         5500     A     
 LEX                MX6    0                                                               LEX         5501          I
          -FC50243
 LEX                SA7    A1+                                                             LEX         5502     A     
 LEX                EQ     EXIT.                                                           LEX         5503     A     
 LEX                                                                                       LEX         5504     A     
 LEX                                                                                       LEX         5505     A     
 LEX       LDBA     BSSZ   1           CONTAINS LOCAL COUNT OF REMAINING LINES             LEX         5506     A     
 LEX      *                            IN *T.STMT*.                                        LEX         5507     A     
 LEX       LSL      SPACE  4,10                                                            LEX         5508     A     
 LEX      **        LSL -  LIST SOURCE LINE.                                               LEX         5509     A     
 LEX      *                                                                                LEX         5510     A     
 LEX      *         IF INPUT IS UNCOMPRESSED, WILL PRINT FROM WHEREVER THE CARD            LEX         5511     A     
 LEX      *         CURRENTLY RESIDES.                                                     LEX         5512     A     
 LEX      *                                                                                LEX         5513     A     
 LEX      *         ENTRY  (X1)+2  =  FWA AREA TO FIND CARD.                               LEX         5514     A     
 LEX      *                (X4)= LENGTH OF LINE                                            LEX         5515     A     
 LEX      *                (AMODE) = INPUT FORMAT.                                         LEX         5516     A     
 LEX      *                LINE IMAGE IS IN (AMODE) FORMAT.                                LEX         5517     A     
 LEX      *                                                                                LEX         5518     A     
 LEX      *         EXIT   (B6) = LWA + 1 THAT WAS LISTED.                                 LEX         5519     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                                                                                LEX         5520     A     
 LEX      *         USES   ALL BUT  A0,A5  B4  X0,X5.                                      LEX         5521     A     
 LEX                                                                                       LEX         5522     A     
 LEX                                                                                       LEX         5523     A     
 LEX       LSL      SUBR   =           ** ENTRY/EXIT **                                    LEX         5524     A     
 LEX                SA2    WOF=ERR                                                         LEX         5525     A     
 LEX                SA3    CO.PW+X2    FLAG FOR PW MODE ON THIS FILE (E OR L)              LEX         5526     A     
 LEX                SX3    X3-136                                                          LEX         5527          I
          -FC50353
 LEX                SX3    X3-126                                                          FC50353       19     A     
 LEX                SX2    X4          LINE LENGTH                                         LEX         5528     A     
 LEX                SX6    B4                                                              LEX         5529     A     
 LEX                SA4    =10H                                                            LEX         5530     A     
 LEX                SA6    LSLA        SAVE (B4)                                           LEX         5531     A     
 LEX                ZR     X3,LSL6     IF NOT PW MODE                                      LEX         5532          I
          -FC50353
 LEX                PL     X3,LSL6     IF NOT PW MODE                                      FC50353       20     A     
 LEX                =B2    X1+1        FWA OF LINE (PAST LINE NUMBER)                      LEX         5533     A     
 LEX                SB3    B0                                                              LEX         5534     A     
 LEX                SB6    B2+B1                                                           LEX         5535     A     
 LEX                                                                                       FC50353       21     A     
 LEX       LSL2     SA2    B2+B3       (X2) = NEXT WORD OF LINE                            LEX         5536     A     
 LEX                SB3    B3+B1                                                           LEX         5537     A     
 LEX                IX6    X2-X4                                                           LEX         5538     A     
 LEX                ZR     X6,LSL2     IF BLANK WORD                                       LEX         5539     A     
 LEX                ZR     X2,LSL3     IF EOL                                              LEX         5540     A     
 LEX                SB6    A2+B1                                                           LEX         5541     A     
 LEX                EQ     LSL2                                                            LEX         5542     A     
 LEX                                                                                       LEX         5543     A     
 LEX       LSL3     =X2    B2+1        FWA                                                 LEX         5544     A     
 LEX                SX3    PWBUF+1     DESTINATION                                         LEX         5545     A     
 LEX                SB5    B6-B2       LENGTH                                              LEX         5546     A     
 LEX                =X1    B5-1        COUNT FOR MOVE (LESS NEW LINE NUMBER)               LEX         5547     A     
 LEX                SA4    B2-1        LINE NUMBER                                         LEX         5548     A     
 LEX                BX6    X4                                                              LEX         5549     A     
 LEX                SA6    PWBUF       TO LIST BUFFER                                      LEX         5550     A     
 LEX                IX4    X1+X3                                                           LEX         5551     A     
 LEX                SB6    X4          1 BEYOND LAST WORD IN BUFFER                        LEX         5552     A     
 LEX                MOVE   X1,X2,X3    LINE TO PWBUF                                       LEX         5553     A     
 LEX                SA3    CP.PW                                                           LEX         5554          I
          -FC5A426
 LEX                SA3    WOF=ERR                                                         FC5A426      112     A     
 LEX                SA3    CO.WPL+X3   GET WIDTH CONTROL WORD                              FC5A426      113     A     
 LEX                SX1    PWBUF                                                           LEX         5555     A     
 LEX                SB2    PWBUF                                                           LEX         5556     A     
 LEX                SX2    B5                                                              LEX         5557     A     
 LEX                SB7    B5                                                              LEX         5558     A     
 LEX                                                                                       FC50353       22     A     
 LEX       LSL4     SB5    X3+B1       PAGE WIDTH IN WORDS + 1                             LEX         5559     A     
 LEX                SB3    B7-B5                                                           LEX         5560     A     
 LEX                LT     B3,LSL5     IF LINE LENGTH .LE. PAGE WIDTH                      LEX         5561     A     
 LEX                SA2    B2+X3                                                           LEX         5562     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                AX3    30          REMAINDER OF PAGE WIDTH MOD 10 IN BITS              LEX         5563     A     
 LEX                SB5    X3                                                              LEX         5564     A     
 LEX                SB2    B2-B1                                                           LEX         5565     A     
 LEX                SB6    B6-B1                                                           LEX         5566     A     
 LEX                RJ     BLL         BREAK LONG LINE                                     LEX         5567     A     
 LEX                SA3    CP.PW                                                           LEX         5568          I
          -FC5A426
 LEX                SA3    WOF=ERR                                                         FC5A426      114     A     
 LEX                SA3    CO.WPL+X3   GET WIDTH CONTROL WORD                              FC5A426      115     A     
 LEX                SB2    X1          FWA OF LINE                                         LEX         5569     A     
 LEX                SB7    X2-1        LENGTH - 1 OF LINE                                  LEX         5570     A     
 LEX                SB6    X1+B7       LWA OF LINE                                         LEX         5571     A     
 LEX                NZ     X6,LSL4     IF STILL POSSIBLE LONG LINE                         LEX         5572     A     
 LEX                                                                                       LEX         5573     A     
 LEX       LSL5     PLINE  X1,X2                                                           LEX         5574     A     
 LEX                SA1    LSLA                                                            LEX         5575     A     
 LEX                SB4    X1          RESTORE (B4)                                        LEX         5576     A     
 LEX                EQ     EXIT.                                                           LEX         5577     A     
 LEX                                                                                       LEX         5578     A     
 LEX       LSL6     LX6    X4                                                              LEX         5579     A     
 LEX                =A6    X1+1                                                            LEX         5580     A     
 LEX                PLINE  X1,X2                                                           LEX         5581     A     
 LEX                SA1    LSLA                                                            LEX         5582     A     
 LEX                SB4    X1          RESTORE (B4)                                        LEX         5583     A     
 LEX                EQ     EXIT.                                                           LEX         5584     A     
 LEX                                                                                       LEX         5585          I
          -FC50353
 LEX                                                                                       LEX         5586     A     
 LEX       LSLA     BSS    1           (B4) SAVE                                           LEX         5587     A     
 LEX       LSS      SPACE  4                                                               LEX         5588     A     
 LEX      **         LSS - LEFT SHIFT STRING                                               LEX         5589     A     
 LEX      *                                                                                LEX         5590     A     
 LEX      *                SHIFTS A STRING OF GIVEN LENGTH UP TO 10 CHARACTERS             LEX         5591     A     
 LEX      *                LEFT END AROUND.                                                LEX         5592     A     
 LEX      *                                                                                LEX         5593     A     
 LEX      *         ENTRY  (X1) = MASK OF SHIFT COUNT                                      LEX         5594     A     
 LEX      *                (X2) = FIRST WORD OF STRING                                     LEX         5595     A     
 LEX      *                (X3) = WORD OF BLANKS                                           LEX         5596     A     
 LEX      *                (A2) = FWA OF STRING                                            LEX         5597     A     
 LEX      *                (B5) = SHIFT COUNT                                              LEX         5598     A     
 LEX      *                (B6) = LWA OF STRING - 1                                        LEX         5599     A     
 LEX      *         EXIT   (X6) = NEW FIRST WORD OF STRING                                 LEX         5600     A     
 LEX      *                STRING SHIFTED.                                                 LEX         5601     A     
 LEX      *                                                                                LEX         5602     A     
 LEX      *         USES   B3, B7                                                          LEX         5603     A     
 LEX      *                X1, X2, X3, X4, X6                                              LEX         5604     A     
 LEX      *                A4, A6                                                          LEX         5605     A     
 LEX      *         PRESERVES          A0, A2, A5, A7, X5, X7, B2, B4, B5, B6              LEX         5606     A     
 LEX      *                                                                                LEX         5607     A     
 LEX                                                                                       LEX         5608     A     
 LEX       LSS      SUBR   =           ENTRY/EXIT...                                       LEX         5609     A     
 LEX                BX6    X2                                                              LEX         5610     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                ZR     B5,EXIT.    IF NO SHIFT NEEDED                                  LEX         5611     A     
 LEX                SB7    A2                                                              LEX         5612     A     
 LEX                SB3    B6                                                              LEX         5613     A     
 LEX                BX3    X1*X3                                                           LEX         5614     A     
 LEX       LSS10    SA4    B3                                                              LEX         5615     A     
 LEX                BX2    X1*X4                                                           LEX         5616     A     
 LEX                BX4    -X1*X4                                                          LEX         5617     A     
 LEX                BX6    X3+X4                                                           LEX         5618     A     
 LEX                LX6    B5                                                              LEX         5619     A     
 LEX                SA6    A4                                                              LEX         5620     A     
 LEX                SB3    B3-B1                                                           LEX         5621     A     
 LEX                BX3    X2                                                              LEX         5622     A     
 LEX                GE     B3,B7,LSS10 IF SHIFT NOT FINISHED                               LEX         5623     A     
 LEX                EQ     EXIT.                                                           LEX         5624     A     
 LEX       SFT      SPACE  4,8                                                             LEX         5625     A     
 LEX      **        SFT - SPACE FILL LAST WORD OF STRING TOKEN.                            LEX         5626     A     
 LEX      *                                                                                LEX         5627     A     
 LEX      *         ENTRY  (A1, X1) - LAST WORD OF STRING.                                 LEX         5628     A     
 LEX      *                (X2) - STRING COUNT.                                            LEX         5629     A     
 LEX      *                                                                                LEX         5630     A     
 LEX      *         EXIT   (X6) = BLANK-FILLED WORD.                                       LEX         5631     A     
 LEX      *                (X7) = CHARACTER MASK.                                          LEX         5632     A     
 LEX      *                                                                                LEX         5633     A     
 LEX      *         USES   A2-3,6.  X0,2-3,6-7.  B4.                                       LEX         5634     A     
 LEX                                                                                       LEX         5635     A     
 LEX                                                                                       LEX         5636     A     
 LEX       SFT      SUBR                                                                   LEX         5637     A     
 LEX                MX7    60                                                              LEX         5638     A     
 LEX                BX6    X1                                                              LEX         5639     A     
 LEX                WX3    X2,X0       GET REMAINDER                                       LEX         5640     A     
 LEX                ZR     X0,EXIT.    IF NO PARTIAL WORD                                  LEX         5641     A     
 LEX                SA2    =1H                                                             LEX         5642     A     
 LEX                LX6    B1,X0                                                           LEX         5643     A     
 LEX                MX7    1                                                               LEX         5644     A     
 LEX                LX0    B1,X6                                                           LEX         5645     A     
 LEX                IX6    X6+X0       6 * REMAINDER                                       LEX         5646     A     
 LEX                SB4    X6-1                                                            LEX         5647     A     
 LEX                AX7    B4,X7       CONSTRUCT MASK                                      LEX         5648     A     
 LEX                BX0    -X7*X2                                                          LEX         5649     A     
 LEX                BX6    X0+X1       BLANK FILL                                          LEX         5650     A     
 LEX                SA6    A1                                                              LEX         5651     A     
 LEX                EQ     EXIT.                                                           LEX         5652     A     
 LEX       TTB      SPACE  4,8                                                             LEX         5653     A     
 LEX      **        TTB - TERMINATE TOKEN BUFFER.                                          LEX         5654     A     
 LEX      *                                                                                LEX         5655     A     
 LEX      *                                                                                LEX         5656     A     
 LEX      *         CALLED TO SHRINK TOKEN BUFFER OF STRAY CHARACTERS FROM                 LEX         5657     A     
 LEX      *         UNTERMINATED CHARACTER/HOLLERITH CONSTANT                              LEX         5658     A     
 LEX      *                                                                                LEX         5659     A     
 LEX      *         ENTRY  (A6) - POINTS TO LAST TOKEN (O.ILL)                             LEX         5660     A     
 LEX                                                                                       LEX         5661     A     
 LEX       TTB      SUBR                                                                   LEX         5662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA1    T.TB                                                            LEX         5663     A     
 LEX                =X6    O.EOS                                                           LEX         5664     A     
 LEX                =A6    A6+1        TERMINATE T.TB                                      LEX         5665     A     
 LEX                =X2    A6+1                                                            LEX         5666     A     
 LEX                IX6    X2-X1                                                           LEX         5667     A     
 LEX                SHRINK T=TB,X6                                                         LEX         5668     A     
 LEX                EQ     EXIT.                                                           LEX         5669     A     
 LEX       XER      SPACE  4,10                                                            LEX         5670     A     
 LEX      **        XER - EXTRACT AND RESTORE ENTOKENING REGISTERS.                        LEX         5671     A     
 LEX      *                                                                                LEX         5672     A     
 LEX      *                                                                                LEX         5673     A     
 LEX      *         THIS ROUTINE EXTRACTS THE SAVED ENTOKENING REGISTER                    LEX         5674     A     
 LEX      *         INFORMATION FROM A DESIGNATED *T.STMT* LINE INFORMATION                LEX         5675     A     
 LEX      *         HEADER, RESETS THE *COMCTOK* ENTOKENING REGISTERS                      LEX         5676     A     
 LEX      *         ACCORDINGLY.                                                           LEX         5677     A     
 LEX      *                                                                                LEX         5678     A     
 LEX      *         SEE *DATA STRUCTURES/LN=FEN* FOR DETAILS.                              LEX         5679     A     
 LEX      *                                                                                LEX         5680     A     
 LEX      *         ENTRY  (X1) = ORD IN *T.STMT* OF STMT TO RESTORE FOR.                  LEX         5681     A     
 LEX      *                                                                                LEX         5682     A     
 LEX      *         EXIT   (B6) = NR OF BITS REMAINING IN (X5).                            LEX         5683     A     
 LEX      *                (B7) = NR OF BITS REMAINING IN SOURCE LINE.                     LEX         5684     A     
 LEX      *                (A5) = ADDR OF WORD CONTAINING 1ST ENTOKENABLE .                LEX         5685     A     
 LEX      *                       CHARACTER.                                               LEX         5686     A     
 LEX      *                (X5) = WORD CONTAINING 1ST ENTOKENABLE CHARACTER,               LEX         5687     A     
 LEX      *                       1ST CHARACTER TO ENTOKEN LEFT-SHIFTED TO                 LEX         5688     A     
 LEX      *                      LEFT-MOST CHARACTER POSITION (BITS 59-54).                LEX         5689     A     
 LEX      *                (X4) = .MI. TO INDICATE *NO USEABLE CHARACTER*,                 LEX         5690     A     
 LEX      *                            I.E. NEED TO EXTRACT A CHARACTER FROM (X5).         LEX         5691     A     
 LEX      *                                                                                LEX         5692     A     
 LEX      *         USES   X - 1,2,3,4,5,7                                                 LEX         5693     A     
 LEX      *                A - 1,2,5                                                       LEX         5694     A     
 LEX      *                B - 4,5,6,7                                                     LEX         5695     A     
 LEX      *                                                                                LEX         5696     A     
 LEX      *         LOCKED (A6,X6),(B3),(A0)                                               LEX         5697     A     
 LEX      *                                                                                LEX         5698     A     
 LEX      *         CALLS  NONE                                                            LEX         5699     A     
 LEX                                                                                       LEX         5700     A     
 LEX                                                                                       LEX         5701     A     
 LEX       XER      SUBR               ** ENTRY/EXIT **                                    LEX         5702     A     
 LEX                SA2    T.STMT                                                          LEX         5703     A     
 LEX                MX3    -SB.FENBL                                                       LEX         5704     A     
 LEX                MX4    -SB.FENLL                                                       LEX         5705     A     
 LEX                IX7    X2+X1       (X7) = ADDR OF *LINE INFO HEADER*                   LEX         5706     A     
 LEX                SA1    X7          (X1) = LINE INFORMATION HEADER                      LEX         5707     A     
 LEX                LX1    0-SB.FENBP                                                      LEX         5708     A     
 LEX                BX7    -X3*X1      EXTRACT *FENB*                                      LEX         5709     A     
 LEX                SB6    X7          RESTORE (B6)                                        LEX         5710     A     
 LEX                LX1    0-SB.FENLP+SB.FENBP-0                                           LEX         5711     A     
 LEX                BX7    -X4*X1      EXTRACT *FENL*                                      LEX         5712     A     
 LEX                SB7    X7          RESTORE (B7)                                        LEX         5713     A     
 LEX                LX1    0-SB.FENP+SB.FENLP-0                                            LEX         5714     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 817    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                MX3    -SB.FENL                                                        LEX         5715     A     
 LEX                BX7    -X3*X1      EXTRACT *FEN*                                       LEX         5716     A     
 LEX                SB5    X7          (B5) = ORD OF WORD CONTAINING 1ST ENTKNABLE         LEX         5717     A     
 LEX                SA5    X2+B5       (A5,X5) = A+C OF 1ST WORD TO ENTOKEN                LEX         5718     A     
 LEX                SB4    60D                                                             LEX         5719     A     
 LEX                SB5    B4-B6       (B5) = LEFT-SHIFT COUNT FOR (X5)                    LEX         5720     A     
 LEX                                                                                       LEX         5721     A     
 LEX                IFEQ   TEST,ON,2                                                       LEX         5722     A     
 LEX                LE     B6,B0,"BLOWUP" IF (B6) IS TOO SMALL                             LEX         5723     A     
 LEX                MI     B5,"BLOWUP"    IF (B6) IS TOO BIG                               LEX         5724     A     
 LEX                                                                                       LEX         5725     A     
 LEX                LX5    B5                                                              LEX         5726     A     
 LEX                MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*                    LEX         5727     A     
 LEX                EQ     EXIT.                                                           LEX         5728     A     
 LEX       LEX      SPACE  4,10                                                            LEX         5729     A     
 LEX                LIST   D                                                               LEX         5730     A     
 LEX                END                                                                    LEX         5731     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LEX     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LEX                       5731      5535
          FC5A110                     59        59
          FC5A124                     25        25
          FC5A126                      1         1
          FC5A168A                     8         8
          F1037F5                      1         1
          FC5A224                      1         1
          FC5A233                      1         0
          FC5A239                     43        43
          FC5A258                     10        10
          FC50170                      2         2
          FC50243                      3         2
          FC50250                      7         6
          FC50267                      1         1
          FC50353                      4         4
          FC50480                      3         0
          FC50761                     49        49
          FC50763                    109       109
          FC50785                      4         4
          FC50791                      6         6
          FC50799                      2         2
          FC5A426                      6         6
          FC51485                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *DECK     HEADER - PROGRAM UNIT HEADER STATEMENTS.                               HEADER         1     A     
 HEADER             IDENT  HEADER                                                          HEADER         2     A     
 HEADER    HEADER   SECT   (PROGRAM UNIT HEADER STATEMENTS.)                               HEADER         3     A     
 HEADER    HEADER   SPACE  4,10                                                            HEADER         4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   ***       HEADER CONTAINS TRANSLATORS FOR STATEMENTS WHICH BEGIN                 HEADER         5     A     
 HEADER   *         PROGRAM-UNITS, AS WELL AS ROUTINES TO DEAL WITH FORMAL                 HEADER         6     A     
 HEADER   *         PARAMETER LISTS.                                                       HEADER         7     A     
 HEADER                                                                                    HEADER         8     A     
 HEADER                                                                                    HEADER         9     A     
 HEADER   *         IN ALLOC                                                               HEADER        10     A     
 HEADER             EXT    ADW,ALC                                                         HEADER        11     A     
 HEADER                                                                                    HEADER        12     A     
 HEADER   *         IN DECL                                                                FC50558       11     A     
 HEADER             EXT    ACV                                                             FC50558       12     A     
 HEADER                                                                                    FC50558       13     A     
 HEADER   *         IN CONRED                                                              HEADER        13     A     
 HEADER             EXT    DEC,OCT                                                         HEADER        14     A     
 HEADER                                                                                    HEADER        15     A     
 HEADER   *         IN FEC                                                                 HEADER        16     A     
 HEADER             EXT    CHARMAP,ERT,ESY,FEC=IMP,FEC.RTN,NCM,SCS,SCSA,SCT,SSY            HEADER        17          I
          -FC50496
 HEADER             EXT    CHARMAP,ERT,ESY,FEC=IMP,FEC.RTN,SCS,SCSA,SCT,SSY                FC50496        7          I
          -FC5A444
 HEADER             EXT    STAGE,STY,TLV,TSX,TSY                                           HEADER        18          I
          -FC5A192  -FC5A444
 HEADER             EXT    STAGE,STY,TLV,TSX,TSY,WANFP                                     FC5A192       39          I
          -FC5A444
 HEADER             EXT    CHARMAP,ERT,ESY,FEC=IMP,FEC=STF,FEC.RTN,SCS,SCSA                FC5A444       66     A     
 HEADER             EXT    SCT,SSY,STAGE,STY,TLV,TSX,TSY,WANFP                             FC5A444       67     A     
 HEADER                                                                                    HEADER        19     A     
 HEADER   *         IN FERRS                                                               HEADER        20     A     
 HEADER             EXT    E.AG00,E.AG01,E.AG02,E.AG03,E.AG04,E.AG07,E.AG08,E.AG11         HEADER        21     A     
 HEADER             EXT    E.AG12,E.FD,E.FD0,E.FD1,E.FD2,E.FD3,E.FD4,E.FD5,E.FD6           HEADER        22     A     
 HEADER             EXT    E.FD7,E.FD8,E.FD9,E.FD10,E.MR1,E.OV,E.OV1,E.OV3,E.PN1           HEADER        23          I
          -F1037F5
 HEADER             EXT    E.FD7,E.FD8,E.FD9,E.FD10,E.MR1,E.OV1,E.OV2,E.OV3,E.OV4          F1037F5      337     A     
 HEADER             EXT    E.PN1,E.MDE1,E.MDE6                                             F1037F5      338     A     
 HEADER             EXT    E.PN3,FILL.,FILL.2                                              HEADER        24          I
          -FC5A145
 HEADER             EXT    E.PN3,FILL.,FILL.2,E.FD11,E.FD12                                FC5A145       26     A     
 HEADER                                                                                    HEADER        25     A     
 HEADER   *         IN FTN                                                                 HEADER        26     A     
 HEADER             EXT    CO.DBER,CO.DBPM,CO.PW,MSG=,L.TITL,TL.PNAM,TL.PTYP               HEADER        27          I
          -F1039  
 HEADER             EXT    CO.STAT                                                         F1037F5      339          I
          -F1039  
 HEADER             EXT    CO.DBER,CO.DBPM,CO.PW,CO.STAT,ERFO,MSG=,TL.PNAM,TL.PTYP         F1039        564          I
          -FC5A444
 HEADER             EXT    CO.AL,CO.DBER,CO.DBPM,CO.PW,CO.STAT,ERFO,MSG=,TL.PNAM           FC5A444       68     A     
 HEADER             EXT    TL.PTYP                                                         FC5A444       69     A     
 HEADER                                                                                    HEADER        28     A     
 HEADER   *         IN LEX                                                                 HEADER        29     A     
 HEADER             EXT    SB=CONT,TB=TYPE                                                 HEADER        30     A     
 HEADER                                                                                    HEADER        31     A     
 HEADER   *         IN KEY                                                                 FC5A262       21     A     
 HEADER             EXT    KW=ENTR                                                         FC5A262       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER                                                                                    FC5A262       23     A     
 HEADER   *         IN PAR                                                                 HEADER        32     A     
 HEADER             EXT    EMT                                                             HEADER        33     A     
 HEADER                                                                                    HEADER        34     A     
 HEADER   *         IN PEM                                                                 HEADER        35     A     
 HEADER             EXT    ANSI=,PDM                                                       HEADER        36          I
          -F1039  
 HEADER             EXT    ANSI=,MDERR=,PDM                                                F1039        565     A     
 HEADER                                                                                    HEADER        37     A     
 HEADER   *         IN PUC                                                                 HEADER        38     A     
 HEADER             EXT    HO$MSG                                                          FC50969        8     A     
 HEADER             EXT    IDENT,IDENT1,MOD,NARGS,N.CPL,N.EPL,N.FP,SCR,S=AEXIT             HEADER        39          I
          -F1039  
 HEADER             EXT    S=CP,S=CPL,S=ENTRY,S=EXIT,S=FILES,S=GPL,S=INIT                  HEADER        40          I
          -F1039  
 HEADER             EXT    IDENT,IDENT1,MOD,NARGS,N.ARP,N.CPL,N.EPL,N.FP,SCR               F1039        566          I
          -FC5A444
 HEADER             EXT    IDENT,IDENT1,LEVEL,LEVEL2,MOD,NARGS,N.ARP,N.CPL                 FC5A444       70     A     
 HEADER             EXT    N.EPL,N.FP,SCR                                                  FC5A444       71     A     
 HEADER             EXT    S=AEXIT,S=CP,S=CPL,S=ENTRY,S=EXIT,S=FILES,S=GPL,S=INIT          F1039        567     A     
 HEADER             EXT    S=SLI,S=SPA,S=SUB,S=SUBI,S=SUB0I,S=UPW                          HEADER        41          I
          -FC50512
 HEADER             EXT    S=SLI,S=SPA,S=SUB,S=SUBI,S=SUB0I,S=UPW,S=VALUE                  FC50512        6     A     
 HEADER             EXT    T=ARG,T=ENTP,T.ARG,T.LCC,T.ENT,T.ENTP,T.FPI,T.SYM               HEADER        42     A     
 HEADER             EXT    T=VDI,T.VDI                                                     FC50558       14     A     
 HEADER                                                                                    HEADER        43     A     
 HEADER   *         IN QSKEL/FSKEL                                                         HEADER        44     A     
 HEADER             EXT    V=FILE,V=HDR,V=LCC,V=PLIM,V=SEX                                 HEADER        45     A     
 HEADER                                                                                    HEADER        46     A     
 HEADER   *         IN UTILITY                                                             HEADER        47     A     
 HEADER             EXT    MVE=,SFN                                                        HEADER        48     A     
 HEADER    BKD      SPACE  4,10                                                            HEADER        49     A     
 HEADER   **        BKD -  PROCESS "BLOCKDATA" STATEMENT.                                  HEADER        50     A     
 HEADER   *                                                                                HEADER        51     A     
 HEADER   *         EXIT   TO FRONT END CONTROLLER.                                        HEADER        52     A     
 HEADER   *                                                                                HEADER        53     A     
 HEADER   *         CALLS  DCM.                                                            HEADER        54     A     
 HEADER                                                                                    HEADER        55     A     
 HEADER                                                                                    HEADER        56     A     
 HEADER             HEREIF BLOCKDATA                                                       HEADER        57     A     
 HEADER                                                                                    HEADER        58     A     
 HEADER             RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                         F1037F5      340     A     
 HEADER             SA1    B4                                                              HEADER        59     A     
 HEADER             SA2    BKDA                                                            HEADER        60     A     
 HEADER             NZ     X1,BKD1     IF NAME SPECIFIED                                   HEADER        61     A     
 HEADER             MX7    0                                                               HEADER        62     A     
 HEADER             BX6    X2                                                              HEADER        63     A     
 HEADER             SA6    B4          DEFAULT NAME TO *TB*                                HEADER        64     A     
 HEADER             SA7    B4+B1                                                           HEADER        65     A     
 HEADER    BKD1     CLAS=  X6,MO,(BLK)                                                     HEADER        66     A     
 HEADER             SA4    =9ABLOCKDATA                                                    HEADER        67     A     
 HEADER             RJ     DCM         DISPLAY COMPILING MESSAGE                           HEADER        68     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             MX4    0                                                               HEADER        69     A     
 HEADER             BX5    0                                                               HEADER        70     A     
 HEADER             EMIT   V=SEX       INITIALIZE PASS 2                                   HEADER        71     A     
 HEADER             EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER                      HEADER        72     A     
 HEADER                                                                                    HEADER        73     A     
 HEADER    BKDA     CON    7LBLKDAT.+O.VAR                                                 HEADER        74     A     
 HEADER    FCT      SPACE  4,20                                                            HEADER        75     A     
 HEADER   **        FCT -  PROCESS "FUNCTION" STATEMENT.                                   HEADER        76     A     
 HEADER   *                                                                                HEADER        77     A     
 HEADER   *         EXIT   TO FRONT END CONTROLLER.                                        HEADER        78     A     
 HEADER   *                                                                                HEADER        79     A     
 HEADER   *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                            HEADER        80     A     
 HEADER   *                2.  TSB = PROCESS ANY FORMAL PARAMETER LIST.                    HEADER        81     A     
 HEADER                                                                                    HEADER        82     A     
 HEADER                                                                                    HEADER        83     A     
 HEADER             HEREIF FUNCTION                                                        HEADER        84     A     
 HEADER                                                                                    HEADER        85     A     
 HEADER             SA2    B4                                                              HEADER        86     A     
 HEADER             SA1    MOD                                                             HEADER        87     A     
 HEADER             CLAS=  X6,MO,(FUN,TYP)                                                 HEADER        88          I
          -FC5A116
 HEADER             NZ     X1,FCT2     IF FUNCTION EXPLICITLY TYPED                        HEADER        89          I
          -FC5A116
 HEADER             BX6    X1                                                              FC5A116        7     A     
 HEADER             HX6    MO.TYP                                                          FC5A116        8     A     
 HEADER             MI     X6,FCT2     IF FUNCTION EXPLICITLY TYPED                        FC5A116        9     A     
 HEADER             BX6    X2                                                              HEADER        90     A     
 HEADER             SB7    X2-O.VAR                                                        HEADER        91     A     
 HEADER             NZ     B7,FCT2     IF NOT VARIABLE,BYPASS STY                          HEADER        92     A     
 HEADER             MX0    -CHAR                                                           HEADER        93     A     
 HEADER             LX2    CHAR                                                            HEADER        94     A     
 HEADER             BX2    -X0*X2                                                          HEADER        95     A     
 HEADER             SB7    X2-1R0                                                          HEADER        96     A     
 HEADER             PL     B7,FCT2     IF FIRST CHARACTER NOT LETTER                       HEADER        97     A     
 HEADER             CALL   STY         SET IMPLICIT TYPE                                   HEADER        98     A     
 HEADER             CLAS=  X6,MO,(FUN)                                                     HEADER        99          I
          -FC5A116
 HEADER    FCT2     BX6    X1+X6                                                           HEADER       100          I
          -FC5A116
 HEADER    FCT2     CLAS=  X6,MO,(FUN)                                                     FC5A116       10     A     
 HEADER             BX6    X1+X6                                                           FC5A116       11     A     
 HEADER             SA4    =8AFUNCTION                                                     HEADER       101     A     
 HEADER             RJ     DCM         DISPLAY COMPILING MESSAGE                           HEADER       102     A     
 HEADER             RJ     TSB         TRANSLATE SUBPROGRAM BEGIN                          HEADER       103     A     
 HEADER             EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER                      HEADER       104     A     
 HEADER                                                                                    HEADER       105     A     
 HEADER    SVALUE.  VFD    42/0LVALUE.,18/O.VAR                                            HEADER       106     A     
 HEADER    PPG      SPACE  4,10                                                            HEADER       107     A     
 HEADER   **        PPG -  PROCESS "PROGRAM" STATEMENT.                                    HEADER       108     A     
 HEADER   *                                                                                HEADER       109     A     
 HEADER   *         EXIT   TO FRONT END CONTROLLER.                                        HEADER       110     A     
 HEADER   *                                                                                HEADER       111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         CALLS  1.  WARN (NON-ANSI STATEMENT).                                  HEADER       112     A     
 HEADER   *                2.  DCM = ASSEMBLE THE PROGRAM NAME.                            HEADER       113     A     
 HEADER   *                3.  PPA = PROCESS ANY FILE DECLARATION LIST.                    HEADER       114     A     
 HEADER                                                                                    HEADER       115     A     
 HEADER                                                                                    HEADER       116     A     
 HEADER             HEREIF PROGRAM                                                         HEADER       117     A     
 HEADER                                                                                    HEADER       118     A     
 HEADER             CLAS=  X6,MO,(PRO)       SET SUBPROGRAM MODE                           HEADER       119     A     
 HEADER             SA4    =7APROGRAM                                                      HEADER       120     A     
 HEADER             RJ     DCM         DISPLAY COMPILING MESSAGE                           HEADER       121     A     
 HEADER             RJ     PPA         PROCESS PROGRAM ARGUEMENTS                          HEADER       122     A     
 HEADER             EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER                      HEADER       123     A     
 HEADER    LCC      SPACE  4,20                                                            HEADER       124     A     
 HEADER   **        LCC - HANDLE EMBEDDED LOADER CONTROL CARDS.                            HEADER       125     A     
 HEADER   *                                                                                HEADER       126     A     
 HEADER   *         DIRECTIVES CURRENTLY KNOWN ARE --                                      HEADER       127     A     
 HEADER   *                "OVERLAY"                                                       HEADER       128     A     
 HEADER   *                "LDSET"                                                         HEADER       129          I
          -F1037F5
 HEADER   *                                                                                HEADER       130     A     
 HEADER   *         EXIT   TO MBC SO THAT A FOLLOWING *IDENT* MAY BE DETECTED.             HEADER       131     A     
 HEADER                                                                                    HEADER       132     A     
 HEADER                                                                                    HEADER       133     A     
 HEADER             HEREIF LDSET                                                           HEADER       134          I
          -F1037F5
 HEADER                                                                                    HEADER       135          I
          -F1037F5
 HEADER             SA3    =5RLDSET                                                        HEADER       136          I
          -F1037F5
 HEADER             SB2    5*CHAR                                                          HEADER       137          I
          -F1037F5
 HEADER             EQ     LCC                                                             HEADER       138          I
          -F1037F5
 HEADER                                                                                    HEADER       139          I
          -F1037F5
 HEADER                                                                                    HEADER       140          I
          -F1037F5
 HEADER             HEREIF OVERLAY                                                         HEADER       141          I
          -F1037F5
 HEADER             SA3    =7ROVERLAY                                                      HEADER       142          I
          -F1037F5
 HEADER             SB2    3*CHAR                                                          HEADER       143          I
          -F1037F5
 HEADER                                                                                    HEADER       144          I
          -F1037F5
 HEADER    LCC      SA2    B4                                                              HEADER       145          I
          -F1037F5
 HEADER             MX0    -CHAR                                                           HEADER       146          I
          -F1037F5
 HEADER             SB7    X2-O.LP                                                         HEADER       147          I
          -F1037F5
 HEADER             ZR     X2,E.OV     ** WARN -- NULL LCC IS IGNORED **                   HEADER       148          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -F1037F5
 HEADER             SA6    SCR                                                             HEADER       149          I
          -F1037F5
 HEADER             NZ     B7,E.OV1    ** FATAL - LCC MISSING BEGINNING LPAREN **          HEADER       150          I
          -F1037F5
 HEADER             BX6    X3                                                              HEADER       151          I
          -F1037F5
 HEADER                                                                                    HEADER       152          I
          -F1037F5
 HEADER    LCC2     SA1    X2+CHARMAP                                                      HEADER       153          I
          -F1037F5
 HEADER             HEREIF OVCAP                                                           F1037F5      341     A     
 HEADER             MDERR  E.MDE6      ** OVCAPS ARE MACHINE DEPENDENT                     F1037F5      342     A     
 HEADER             MX6    1                                                               F1037F5      343     A     
 HEADER             SA6    OVCFLG      INDICATE *OVCAP* APPEARED                           F1037F5      344     A     
 HEADER             SA3    =5ROVCAP                                                        F1037F5      345     A     
 HEADER             SB2    5*CHAR                                                          F1037F5      346     A     
 HEADER             SA2    B4                                                              F1037F5      347     A     
 HEADER             SB7    X2-O.PERIOD                                                     F1037F5      348     A     
 HEADER             ZR     B7,LCC      IF KEYWORD FOLLOWED BY PERIOD                       F1037F5      349     A     
 HEADER             SB7    X2-O.LP                                                         F1037F5      350     A     
 HEADER             ZR     B7,LCC      IF FOLLOWED BY LEFT PAREN                           F1037F5      351     A     
 HEADER             FATAL  E.OV2       ** EXPECTED LEFT PAREN OR PERIOD                    F1037F5      352     A     
 HEADER             EQ     FEC.RTN                                                         F1037F5      353     A     
 HEADER                                                                                    F1037F5      354     A     
 HEADER    OVCFLG   CONENT 0                                                               F1037F5      355     A     
 HEADER                                                                                    F1037F5      356     A     
 HEADER             HEREIF OVERLAY                                                         F1037F5      357     A     
 HEADER             MDERR  E.MDE1      ** OVERLAY USE MACHINE DEPENDENT                    F1037F5      358     A     
 HEADER             SA3    =7ROVERLAY                                                      F1037F5      359     A     
 HEADER             SB2    3*CHAR                                                          F1037F5      360     A     
 HEADER             SA2    B4                                                              F1037F5      361     A     
 HEADER             SB7    X2-O.LP                                                         F1037F5      362     A     
 HEADER             NZ     B7,E.OV1    ** OVERLAY MISSING LEFT PAREN                       F1037F5      363     A     
 HEADER                                                                                    F1037F5      364     A     
 HEADER    LCC      MX0    -CHAR                                                           F1037F5      365     A     
 HEADER             SA6    SCR                                                             F1037F5      366     A     
 HEADER             BX6    X3                                                              F1037F5      367     A     
 HEADER                                                                                    F1037F5      368     A     
 HEADER    LCC2     SA1    X2+CHARMAP                                                      F1037F5      369     A     
 HEADER             NZ     X1,LCC3     IF NOT *SYMBOL*                                     HEADER       154     A     
 HEADER             BX1    X0*X2       USE *TB* CHARACTERS                                 HEADER       155     A     
 HEADER                                                                                    HEADER       156     A     
 HEADER    LCC3     LX1    CHAR                                                            HEADER       157     A     
 HEADER             SB0    0                                                               HEADER       158     A     
 HEADER             BX3    -X0*X1                                                          HEADER       159     A     
 HEADER    LCC35    LX6    CHAR                                                            HEADER       160     A     
 HEADER             SB2    B2-CHAR                                                         HEADER       161     A     
 HEADER             LX1    CHAR                                                            HEADER       162     A     
 HEADER             IX6    X6+X3                                                           HEADER       163     A     
 HEADER             BX3    -X0*X1      ISOLATE NEXT CHARACTER                              HEADER       164     A     
 HEADER             NZ     B2,LCC4     IF WORD NOT FULL                                    HEADER       165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 823    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             =A6    A6+1                                                            HEADER       166     A     
 HEADER             SB2    10*CHAR                                                         HEADER       167     A     
 HEADER             BX6    0                                                               HEADER       168     A     
 HEADER    LCC4     NZ     X3,LCC35    IF MORE CHARACTERS                                  HEADER       169     A     
 HEADER             SA2    A2+1                                                            HEADER       170     A     
 HEADER             NZ     X2,LCC2     IF NOT *EOS*                                        HEADER       171     A     
 HEADER             LX6    X6,B2       LEFT JUSTIFY                                        HEADER       172     A     
 HEADER             =A6    A6+1                                                            HEADER       173     A     
 HEADER             SB2    B2-12                                                           HEADER       174     A     
 HEADER             BX6    0                                                               HEADER       175     A     
 HEADER             GE     B2,LCC6     IF ZERO BYTE                                        HEADER       176     A     
 HEADER             SA6    A6+1        INSURE END-OF-LINE                                  HEADER       177     A     
 HEADER    LCC6     SB7    SCR                                                             HEADER       178     A     
 HEADER             SB2    A6-B7       LENGTH OF DIRECTIVE                                 HEADER       179     A     
 HEADER             ALLOC  T.LCC,B2                                                        HEADER       180     A     
 HEADER             =B3    X2+1        TABLE LENGTH +1                                     HEADER       181     A     
 HEADER             SX1    B2          DIRECTIVE LENGTH                                    HEADER       182     A     
 HEADER             SX2    SCR+1       START OF DIRECTIVE                                  HEADER       183     A     
 HEADER             SB3    B3-B2       POINTER INTO CON TABLE                              HEADER       184     A     
 HEADER             SX3    B7-B2       ADDRESS IN CON TABLE                                HEADER       185     A     
 HEADER             MOVE   X1,X2,X3    MOVE DIRECTIVE TO CON TABLE                         HEADER       186     A     
 HEADER             SX4    B3-1        POINTER TO DIRECTIVE                                HEADER       187     A     
 HEADER             SX5    B2          DIRECTIVE LENGTH                                    HEADER       188     A     
 HEADER             LX4    TP.BIASP    1OP                                                 HEADER       189     A     
 HEADER             LX5    TP.BIASP    2OP                                                 HEADER       190     A     
 HEADER             EMIT   V=LCC       TURPLE TO IL                                        HEADER       191     A     
 HEADER             SA1    SB=CONT     NUMBER OF CONTINUATION LINES IN STATEMENT           HEADER       192     A     
 HEADER             NZ     X1,E.OV3    IF CONTINUED (RETURN FEC.RNX)                       HEADER       193     A     
 HEADER             EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER                      HEADER       194     A     
 HEADER    PSF      SPACE  4,10                                                            HEADER       195     A     
 HEADER   **        PSF -  PROCESS SPECIAL FIRST CARD.                                     HEADER       196     A     
 HEADER   *                                                                                HEADER       197     A     
 HEADER   *         PSF IS CALLED BY THE FRONT END CONTROLLER WHEN THE FIRST               HEADER       198     A     
 HEADER   *         STATEMENT OF A PROGRAM-UNIT IS NOT A HEADER STATEMENT.                 HEADER       199     A     
 HEADER   *         IT INVENTS A PROGRAM STATEMENT --                                      HEADER       200     A     
 HEADER   *                " PROGRAM START. (INPUT, OUTPUT) "                              HEADER       201     A     
 HEADER   *         AND EFFECTIVELY INSERTS IT BEFORE THE ACTUAL FIRST                     HEADER       202     A     
 HEADER   *         STATEMENT.                                                             HEADER       203     A     
 HEADER   *                                                                                HEADER       204     A     
 HEADER   *         EXIT   (X5) RESTORED FROM (TB=TYPE).                                   HEADER       205     A     
 HEADER   *                (B4) PRESERVED.                                                 HEADER       206     A     
 HEADER                                                                                    HEADER       207     A     
 HEADER                                                                                    HEADER       208     A     
 HEADER    PSF      SUBR   =           ...ENTRY/EXIT...                                    HEADER       209     A     
 HEADER             WARN   E.PN3       NO PROGRAM NAME - START. ASSUMED                    HEADER       210     A     
 HEADER             SX7    B4                                                              HEADER       211     A     
 HEADER             SA4    PSFA                                                            HEADER       212          I
          -FC50110
 HEADER             BX7    X7+X4                                                           HEADER       213          I
          -FC50110
 HEADER             SX6    MO.PROM                                                         HEADER       214     A     
 HEADER             SA7    PSFA        SAVE (B4)                                           HEADER       215     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SB4    DPN         POINT TO FAKE STRING                                HEADER       216     A     
 HEADER             SA4    =7HPROGRAM                                                      HEADER       217     A     
 HEADER             RJ     DCM         PROCESS COMPILE MODE + DISPLAY                      HEADER       218     A     
 HEADER             RJ     PPA         PROCESS ARGUMENTS                                   HEADER       219     A     
 HEADER             SA1    PSFA                                                            HEADER       220     A     
 HEADER             SA5    TB=TYPE     (X5) = STATEMENT TYPE INFORMATION WORD              HEADER       221     A     
 HEADER             SB4    X1          RESTORE (B4)                                        HEADER       222     A     
 HEADER             EQ     EXIT.       EXIT...                                             HEADER       223     A     
 HEADER                                                                                    HEADER       224     A     
 HEADER    PSFA     CONENT 0           SAVE AREA FOR B4                                    HEADER       225          I
          -FC50110
 HEADER    PSFA     BSS    1           SAVE AREA FOR B4                                    FC50110       10     A     
 HEADER                                                                                    HEADER       226     A     
 HEADER                                                                                    HEADER       227     A     
 HEADER   **        DEFAULT SUBPROGRAM NAME + PARAMETERS                                   HEADER       228     A     
 HEADER   *         SET = *PROGRAM START.(INPUT,OUTPUT)*                                   HEADER       229     A     
 HEADER                                                                                    HEADER       230     A     
 HEADER    DPN      VFD    42/0LSTART.,18/O.VAR                                            HEADER       231     A     
 HEADER             CON    O.LP                                                            HEADER       232     A     
 HEADER             VFD    42/0LINPUT,18/O.VAR                                             HEADER       233     A     
 HEADER             CON    O.COMMA                                                         HEADER       234     A     
 HEADER             VFD    42/0LOUTPUT,18/O.VAR                                            HEADER       235     A     
 HEADER             CON    O.RP                                                            HEADER       236     A     
 HEADER             DATA   0           END OF STRING INDICATOR                             HEADER       237     A     
 HEADER    SUB      SPACE  4,10                                                            HEADER       238     A     
 HEADER   **        SUB -  PROCESS "SUBROUTINE" STATEMENT.                                 HEADER       239     A     
 HEADER   *                                                                                HEADER       240     A     
 HEADER   *         EXIT   TO FRONT END CONTROLLER                                         HEADER       241     A     
 HEADER   *                                                                                HEADER       242     A     
 HEADER   *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                            HEADER       243     A     
 HEADER   *                2.  TSB = PROCESS ANY FORMAL PARAMETER LIST.                    HEADER       244     A     
 HEADER                                                                                    HEADER       245     A     
 HEADER                                                                                    HEADER       246     A     
 HEADER             HEREIF SUBROUTINE                                                      HEADER       247     A     
 HEADER                                                                                    HEADER       248     A     
 HEADER             CLAS=  X6,MO,(SUB)       SET SUBPROGRAM MODE                           HEADER       249     A     
 HEADER             SA4    =10HSUBROUTINE                                                  HEADER       250     A     
 HEADER             RJ     DCM         DISPLAY COMPILING MESSAGE                           HEADER       251     A     
 HEADER             RJ     TSB         TRANSLATE SUBPROGRAM BEGIN                          HEADER       252     A     
 HEADER             SA4    SUBA                                                            HEADER       253     A     
 HEADER             CLAS=  X3,WB,(CGS,VAR)                                                 HEADER       254     A     
 HEADER             CALL   TSY         TAG SYMBOL (AEXIT.)                                 HEADER       255     A     
 HEADER             EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER                      HEADER       256     A     
 HEADER                                                                                    HEADER       257     A     
 HEADER    SUBA     VFD    42/6LAEXIT.,18/S=AEXIT                                          HEADER       258     A     
 HEADER             TITLE  SUBROUTINES.                                                    HEADER       259          I
          -F1037F5
 HEADER    DCM      SPACE  4,20                                                            HEADER       260          I
          -F1037F5
 HEADER             TITLE  SUBROUTINES                                                     F1037F5      370     A     
 HEADER    COVC     SPACE  4,10                                                            F1037F5      371     A     
 HEADER   **        COVC - CHECK FOR *OVCAP* DIRECTIVE                                     F1037F5      372     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *                                                                                F1037F5      373     A     
 HEADER   *         WILL ISSUE A FATAL ERROR IF AN *OVCAP* DIRECTIVE                       F1037F5      374     A     
 HEADER   *         APPEARED BEFORE A *PROGRAM*, *FUNCTION* OR *BLOCK DATA*                F1037F5      375     A     
 HEADER   *         HEADER STATEMENT, OR IF IT APPEARED BEFORE A *SUBROUTINE*              F1037F5      376     A     
 HEADER   *         HEADER THAT CONTAINED ARGUMENTS.                                       F1037F5      377     A     
 HEADER   *                                                                                F1037F5      378     A     
 HEADER   *         USES   X - 1  A - 1.                                                   F1037F5      379     A     
 HEADER                                                                                    F1037F5      380     A     
 HEADER    COVC     SUBR               ENTRY/EXIT...                                       F1037F5      381     A     
 HEADER             SA1    OVCFLG                                                          F1037F5      382     A     
 HEADER             ZR     X1,EXIT.    IF NO *OVCAP*                                       F1037F5      383     A     
 HEADER             SA1    MOD                                                             F1037F5      384     A     
 HEADER             HX1    MO.SUB                                                          F1037F5      385     A     
 HEADER             PL     X1,COVC10   IF NOT COMPILING A SUBROUTINE                       F1037F5      386          I
          -FC50409
 HEADER             SA1    N.ARP                                                           F1037F5      387          I
          -FC50409
 HEADER             SA2    T=ARG                                                           F1037F5      388          I
          -FC50409
 HEADER             BX1    X1+X2                                                           F1037F5      389          I
          -FC50409
 HEADER             ZR     X1,EXIT.    IF NO ARGUMENTS                                     F1037F5      390          I
          -FC50409
 HEADER                                                                                    F1037F5      391          I
          -FC50409
 HEADER    COVC10   FATAL  E.OV4                                                           F1037F5      392          I
          -FC50409
 HEADER             MI     X1,EXIT.    IF SUBROUTINE                                       FC50409        6     A     
 HEADER             FATAL  E.OV4       OVCAP DIRECTIVE ONLY VALID WITH SUBROUTINE          FC50409        7     A     
 HEADER             EQ     EXIT.                                                           F1037F5      393     A     
 HEADER    DCM      SPACE  4,10                                                            F1037F5      394     A     
 HEADER   **        DCM -  DISPLAY *COMPILING* MESSAGE.                                    HEADER       261     A     
 HEADER   *                                                                                HEADER       262     A     
 HEADER   *         CHECKS LEGALITY OF NAME AND ENTERS IT IN SYMBOL TABLE AND              HEADER       263     A     
 HEADER   *                ENTRY POINT TABLE.                                              HEADER       264     A     
 HEADER   *         DISPLAYS CONSOLE MESSAGE, PRINTS *IDENT* CARD, AND SETS NAME           HEADER       265     A     
 HEADER   *                INTO MAIN TITLE AND 77-TABLE.                                   HEADER       266     A     
 HEADER   *         ENTER CON. SYMBOL INTO SYMBOL TABLE.                                   HEADER       267     A     
 HEADER   *                                                                                HEADER       268     A     
 HEADER   *         ENTRY  (B4) -> SUBPROGRAM NAME (IN *TB*).                              HEADER       269     A     
 HEADER   *                (X4) = DPC PROGRAM TYPE FOR BANNER.                             HEADER       270     A     
 HEADER   *                (X6) = PROGRAM-UNIT COMPILE MODE.                               HEADER       271     A     
 HEADER   *                                                                                HEADER       272     A     
 HEADER   *         EXIT   (B4) -> NEXT ELEMENT OF *TB*.                                   HEADER       273     A     
 HEADER   *                                                                                HEADER       274     A     
 HEADER   *         CALLS  ADW,MSG,PVF,SFN,ESY,SSY                                         HEADER       275     A     
 HEADER                                                                                    HEADER       276     A     
 HEADER                                                                                    HEADER       277     A     
 HEADER    DCM      SUBR               ...ENTRY/EXIT...                                    HEADER       278     A     
 HEADER             SA6    MOD         SET PROGRAM UNIT MODE                               HEADER       279     A     
 HEADER             BX6    X4                                                              HEADER       280     A     
 HEADER             SA4    B4                                                              HEADER       281     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SA6    TL.PTYP                                                         HEADER       282     A     
 HEADER             SA6    A6+L.TITL   PROGRAM TYPE TO E-FILE                              HEADER       283          I
          -F1039  
 HEADER             SA6    A6+ERFO     PROGRAM TYPE TO E FILE                              F1039        568     A     
 HEADER             MX0    MAX.VAR*CHAR                                                    HEADER       284     A     
 HEADER             SX2    X4-O.VAR                                                        HEADER       285     A     
 HEADER             NZ     X2,DCM1     IF PROGRAM NAME NOT VARIABLE                        HEADER       286     A     
 HEADER             BX2    X0*X4       CLEAR TYPE CODE                                     HEADER       287     A     
 HEADER             LX2    CHAR                                                            HEADER       288     A     
 HEADER             SX2    X2-1R0                                                          HEADER       289     A     
 HEADER             PL     X2,DCM1     IF NOT A LETTER                                     HEADER       290     A     
 HEADER             =A2    B4+1                                                            HEADER       291     A     
 HEADER             SB7    X2-O.VAR                                                        HEADER       292     A     
 HEADER             NZ     B7,DCM2     IF LESS THAN 8 CHARACTERS                           HEADER       293     A     
 HEADER             CALL   TLV         TRUNCATE NAME                                       HEADER       294     A     
 HEADER             EQ     DCM2                                                            HEADER       295     A     
 HEADER                                                                                    HEADER       296     A     
 HEADER    DCM1     FATAL  E.PN1       SYNTAX ERROR IN ROUTINE NAME                        HEADER       297     A     
 HEADER             SA4    DCMA        SET *DUMMY* NAME                                    HEADER       298     A     
 HEADER                                                                                    FC50353       23     A     
 HEADER    DCM2     MX0    WA.SYML                                                         HEADER       299          I
          -FC50729  -FC50731
 HEADER    DCM2     MX1    WA.SYML                                                         FC50731        7     A     
 HEADER             BX1    X1*X4       NAME ONLY                                           FC50731        8     A     
 HEADER             CALL   SFN         SPACE FILL NAME OF ROUTINE                          FC50731        9     A     
 HEADER             LX6    -6                                                              FC50731       10     A     
 HEADER             SA2    TL.PTYP                                                         FC50731       11     A     
 HEADER             MX0    8*CHAR                                                          FC50731       12     A     
 HEADER             BX1    X0*X2       (X1) = 1ST 8 CHARACTERS OF ROUTINE TYPE             FC50731       13     A     
 HEADER             BX3    -X0*X2      (X3) = LAST 2 CHARACTERS OF ROUTINE TYPE            FC50731       14     A     
 HEADER             BX5    X0*X6       (X5) = 1ST 8 CHARACTERS OF ROUTINE NAME             FC50731       15     A     
 HEADER             BX0    X3+X5                                                           FC50731       16     A     
 HEADER             SX3    2R                                                              FC50731       17     A     
 HEADER             BX7    X3+X1                                                           FC50731       18     A     
 HEADER             LX7    -2*CHAR                                                         FC50731       19     A     
 HEADER             LX0    -2*CHAR                                                         FC50731       20     A     
 HEADER             SA1    CO.PW                                                           FC50731       21     A     
 HEADER             BX3    X6                                                              FC50731       22     A     
 HEADER             SX1    X1-126                                                          FC50731       23     A     
 HEADER             PL     X1,DCM3     IF L FILE NOT PW MODE                               FC50731       24     A     
 HEADER             SA7    A2                                                              FC50731       25     A     
 HEADER             BX6    X0                                                              FC50731       26     A     
 HEADER                                                                                    FC50731       27     A     
 HEADER    DCM3     SA6    TL.PNAM                                                         FC50731       28     A     
 HEADER             BX6    X3          RESTORE                                             FC50731       29     A     
 HEADER             =A1    A1+1                                                            FC50731       30     A     
 HEADER             SX1    X1-136                                                          FC50731       31     A     
 HEADER             ZR     X1,DCM4     IF E FILE NOT PW                                    FC50731       32     A     
 HEADER             SA7    A2+ERFO                                                         FC50731       33     A     
 HEADER             BX6    X0                                                              FC50731       34     A     
 HEADER                                                                                    FC50731       35     A     
 HEADER    DCM4     SA6    A6+ERFO                                                         FC50731       36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 827    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             MESSAGE  IDENT1,CONSOLE  *   COMPILING NAME  *                         FC50731       37          I
          -FC50969
 HEADER             MX0    WA.SYML                                                         FC50731       38     A     
 HEADER             BX6    X0*X4                                                           HEADER       300     A     
 HEADER             LX4    X6                                                              HEADER       301     A     
 HEADER             SA6    IDENT       ROUTINE NAME IN 0L FORMAT                           HEADER       302     A     
 HEADER             MESSAGE  HO$MSG,CONSOLE,RCL  *   COMPILING NAME  *                     FC50969        9     A     
 HEADER             BX6    X4          RESTORE NAME                                        FC50969       10     A     
 HEADER             CALL   SSY         FIND WHERE TO PUT SYMBOL                            HEADER       303     A     
 HEADER             IFNE   TEST,,1                                                         HEADER       304     A     
 HEADER             PL     B7,"BLOWUP"       IF ALREADY IN TABLE                           HEADER       305     A     
 HEADER             SA3    MOD                                                             HEADER       306     A     
 HEADER             CLAS=  X2,WB,(NVAR,DEF,ENT,MAT)                                        HEADER       307     A     
 HEADER             MX0    -MO.MODEL                                                       HEADER       308     A     
 HEADER             BX7    -X0*X3      ISOLATE MODE                                        HEADER       309     A     
 HEADER             ERRNZ  MO.MODEP                                                        HEADER       310     A     
 HEADER             ERRNZ  WB.MODEP-MO.MODEP                                               HEADER       311     A     
 HEADER             SBIT   X3,MO.TYPP                                                      HEADER       312     A     
 HEADER             PL     X3,DCM3     IF NOT EXPLICITLY TYPED                             HEADER       313          I
          -FC50731
 HEADER             PL     X3,DCM5     IF NOT EXPLICITLY TYPED                             FC50731       39     A     
 HEADER             CLAS=  X2,WB,(TYP,NVAR,DEF,ENT,MAT)                                    HEADER       314     A     
 HEADER                                                                                    FC50353       24     A     
 HEADER    DCM3     BX7    X2+X7                                                           HEADER       315          I
          -FC50731
 HEADER    DCM5     BX7    X2+X7                                                           FC50731       40     A     
 HEADER             LX3    MO.TYPL+MO.TYPP                                                 HEADER       316     A     
 HEADER             MX2    MO.CLIFL                                                        HEADER       317     A     
 HEADER             LX2    MO.CLIFL+MO.CLIFP                                               HEADER       318     A     
 HEADER             BX2    X2*X3       EXTRACT CHARACTER LENGTH INFORMATION                HEADER       319     A     
 HEADER             LX2    -MO.CLIFP+WC.CLIFP                                              HEADER       320     A     
 HEADER             ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                          HEADER       321     A     
 HEADER             LX7    X0                                                              HEADER       322     A     
 HEADER             BX6    X0+X4       = DATA FOR T.ENT(42/ROUTINE NAME,18/SYMORD)         HEADER       323     A     
 HEADER             SA7    S=ENTRY                                                         HEADER       324     A     
 HEADER             ADDWD  T.ENT                                                           HEADER       325     A     
 HEADER             SA4    S=ENTRY                                                         HEADER       326     A     
 HEADER             BX5    0           (2OP) = NIL                                         HEADER       327     A     
 HEADER             LX4    TP.ORDP     (1OP) = MAIN ENTRY                                  HEADER       328     A     
 HEADER             EMIT   V=HDR                                                           HEADER       329     A     
 HEADER             LX4    -TP.ORDP+XR.TAGP                                                HEADER       330     A     
 HEADER             BX6    X4                                                              HEADER       331     A     
 HEADER             ADDREF X6,CR.DEF                                                       HEADER       332     A     
 HEADER             SA1    IDENT       ROUTINE NAME                                        HEADER       333          I
          -FC50731
 HEADER             CALL   SFN         SPACE FILL NAME OF ROUTINE                          HEADER       334          I
          -FC50731
 HEADER             LX6    -6                                                              HEADER       335          I
          -FC50731
 HEADER             SA2    TL.PTYP                                                         HEADER       336          I
          -FC50731
 HEADER             MX0    8*CHAR                                                          HEADER       337          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 828    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC50731
 HEADER             BX1    X0*X2       (X1) = 1ST 8 CHARACTERS OF ROUTINE TYPE             HEADER       338          I
          -FC50731
 HEADER             BX3    -X0*X2      (X3) = LAST 2 CHARACTERS OF ROUTINE TYPE            HEADER       339          I
          -FC50731
 HEADER             BX4    X0*X6       (X4) = 1ST 8 CHARACTERS OF ROUTINE NAME             HEADER       340          I
          -FC50731
 HEADER             BX0    X3+X4                                                           HEADER       341          I
          -FC50731
 HEADER             SX3    2R                                                              HEADER       342          I
          -FC50731
 HEADER             BX7    X3+X1                                                           HEADER       343          I
          -FC50731
 HEADER             LX7    -2*CHAR                                                         HEADER       344          I
          -FC50731
 HEADER             LX0    -2*CHAR                                                         HEADER       345          I
          -FC50731
 HEADER                                                                                    HEADER       346          I
          -FC50731
 HEADER    DCM4     SA1    CO.PW                                                           HEADER       347          I
          -FC50731
 HEADER             BX3    X6                                                              HEADER       348          I
          -FC50731
 HEADER             SX1    X1-136                                                          HEADER       349          I
          -FC50353
 HEADER             ZR     X1,DCM5     IF L FILE NOT PW MODE                               HEADER       350          I
          -FC50353
 HEADER             SX1    X1-126                                                          FC50353       25          I
          -FC50731
 HEADER             PL     X1,DCM5     IF L FILE NOT PW MODE                               FC50353       26          I
          -FC50731
 HEADER             SA7    A2                                                              HEADER       351          I
          -FC50731
 HEADER             BX6    X0                                                              HEADER       352          I
          -FC50731
 HEADER                                                                                    HEADER       353          I
          -FC50731
 HEADER    DCM5     SA6    TL.PNAM                                                         HEADER       354          I
          -FC50731
 HEADER             BX6    X3          RESTORE                                             HEADER       355          I
          -FC50731
 HEADER             =A1    A1+1                                                            HEADER       356          I
          -FC50731
 HEADER             SX1    X1-136                                                          HEADER       357          I
          -FC50731
 HEADER             ZR     X1,DCM6     IF E FILE NOT PW                                    HEADER       358          I
          -FC50731
 HEADER             SA7    A2+L.TITL                                                       HEADER       359          I
          -F1039  
 HEADER             SA7    A2+ERFO                                                         F1039        569          I
          -FC50731
 HEADER             BX6    X0                                                              HEADER       360          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 829    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC50731
 HEADER                                                                                    HEADER       361          I
          -FC50731
 HEADER    DCM6     SA6    A6+L.TITL                                                       HEADER       362          I
          -F1039  
 HEADER    DCM6     SA6    A6+ERFO                                                         F1039        570          I
          -FC50731
 HEADER             MESSAGE  IDENT1,CONSOLE  *   COMPILING NAME  *                         HEADER       363          I
          -FC50731
 HEADER             =X6    FEC=IMP                                                         HEADER       364     A     
 HEADER             SA6    STAGE                                                           HEADER       365     A     
 HEADER             SA1    B4                                                              HEADER       366     A     
 HEADER             ZR     X1,EXIT.    IF NAME MISSING, DON'T ADVANCE TOKEN PNTR           HEADER       367     A     
 HEADER             =B4    B4+1                                                            HEADER       368     A     
 HEADER             EQ     EXIT.                                                           HEADER       369     A     
 HEADER                                                                                    HEADER       370     A     
 HEADER    DCMA     LIT    7LXXX****   DUMMY NAME WHEN NAME IN ERROR                       HEADER       371     A     
 HEADER    PPA      SPACE  4,20                                                            HEADER       372          I
          -FC5A145
 HEADER   **        PPA - PROCESS PROGRAM ARGUMENTS.                                       HEADER       373          I
          -FC5A145
 HEADER   *                                                                                HEADER       374          I
          -FC5A145
 HEADER   *         ENTRY  (B4) -> PRESUMED ARGUMENT LIST.                                 HEADER       375          I
          -FC5A145
 HEADER   *                                                                                HEADER       376          I
          -FC5A145
 HEADER   *         CALLS  ADW,ALC,DEC,ESY,FFN,PVF,SCTR,SFN,SSY                            HEADER       377          I
          -FC5A145
 HEADER                                                                                    HEADER       378          I
          -FC5A145
 HEADER                                                                                    HEADER       379          I
          -FC5A145
 HEADER    PPA      SUBR   0           ENTRY/EXIT...                                       HEADER       380          I
          -FC5A145
 HEADER             SA1    B4                                                              HEADER       381          I
          -FC5A145
 HEADER             =X4                                                                    HEADER       382          I
          -FC5A145
 HEADER             ZR     X1,PPA73    IF EOS - FILE LIST OMITTED                          HEADER       383          I
          -FC5A145
 HEADER             ERRNZ  O.EOS                                                           HEADER       384          I
          -FC5A145
 HEADER             SB7    X1-O.LP                                                         HEADER       385          I
          -FC5A145
 HEADER             ZR     B7,PPA02    IF LPAREN PRESENT                                   HEADER       386          I
          -FC5A145
 HEADER             SB4    B4-B1                                                           HEADER       387          I
          -FC5A145
 HEADER             FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                          HEADER       388          I
          -FC5A145
 HEADER                                                                                    HEADER       389          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 830    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER    PPA02    SB4    B4+B1       ADVANCE PAST LPAREN TOKEN                           HEADER       390          I
          -FC5A145
 HEADER             ANSI   E.FD        ** FILE LIST NOT ANSI                               HEADER       391          I
          -FC5A145
 HEADER                                                                                    HEADER       392          I
          -FC5A145
 HEADER   *         PROCESS PROGRAM ARGUMENTS LOOP.                                        HEADER       393          I
          -FC5A145
 HEADER                                                                                    HEADER       394          I
          -FC5A145
 HEADER    PPA10    SA4    B4                                                              HEADER       395          I
          -FC5A145
 HEADER             MX0    7*CHAR                                                          HEADER       396          I
          -FC5A145
 HEADER             ZR     X4,E.MR1   IF EOS INSTEAD OF FILE NAME                          HEADER       397          I
          -FC5A145
 HEADER             BX6    X4*X0                                                           HEADER       398          I
          -FC5A145
 HEADER             SA1    B4+B1       FETCH NEXT SEPARATOR                                HEADER       399          I
          -FC5A145
 HEADER             SB2    X1-O.VAR                                                        HEADER       400          I
          -FC5A145
 HEADER             NZ     B2,PPA13    IF NOT VARIABLE                                     HEADER       401          I
          -FC5A145
 HEADER             ERRNZ  MAX.LFN*CHAR-TB.TOCL                                            HEADER       402          I
          -FC5A145
 HEADER             FATAL  E.FD8       FILE NAME EXCEEDS 7 CHARACTERS                      HEADER       403          I
          -FC5A145
 HEADER    PPA12    SA1    B4+1                                                            HEADER       404          I
          -FC5A145
 HEADER             SB2    X1-O.VAR                                                        HEADER       405          I
          -FC5A145
 HEADER             NZ     B2,PPA13    IF NOT VARIABLE                                     HEADER       406          I
          -FC5A145
 HEADER             SB4    B4+1                                                            HEADER       407          I
          -FC5A145
 HEADER             EQ     PPA12       CONTINUE TRASHING LONG FILE NAME                    HEADER       408          I
          -FC5A145
 HEADER                                                                                    HEADER       409          I
          -FC5A145
 HEADER    PPA13    =B4    B4+1                                                            HEADER       410          I
          -FC5A145
 HEADER             MX7    1                                                               HEADER       411          I
          -FC5A145
 HEADER             BX4    X6+X7       TURN ON BIT 59                                      HEADER       412          I
          -FC5A145
 HEADER             SX5    X1-O.=                                                          HEADER       413          I
          -FC5A145
 HEADER             ZR     X1,E.MR1   IF *EOS* - ERROR                                     HEADER       414          I
          -FC5A145
 HEADER             SA6    FILL.                                                           HEADER       415          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 831    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER             SA6    PPAF                                                            HEADER       416          I
          -FC5A145
 HEADER             BX6    X4                                                              HEADER       417          I
          -FC5A145
 HEADER             =A0    0           INDICATE FILE NOT EQUIVALENCED (YET)                HEADER       418          I
          -FC5A145
 HEADER             CALL   SSY         LOOK FOR THIS FILE                                  HEADER       419          I
          -FC5A145
 HEADER             SX7    B7                                                              HEADER       420          I
          -FC5A145
 HEADER             SA7    PPAE                                                            HEADER       421          I
          -FC5A145
 HEADER             MI     B7,PPA15    IF NOT IN TABLE                                     HEADER       422          I
          -FC5A145
 HEADER             WARN   E.FD1       FILE DOUBLY DEFINED                                 HEADER       423          I
          -FC5A145
 HEADER    PPA14    =A1    B4+1                                                            HEADER       424          I
          -FC5A145
 HEADER             SB2    X1-O.COMMA                                                      HEADER       425          I
          -FC5A145
 HEADER             ZR     X1,E.MR1   IF *EOS* - ERROR                                     HEADER       426          I
          -FC5A145
 HEADER             =B4    B4+1                                                            HEADER       427          I
          -FC5A145
 HEADER             SB7    X1-O.RP                                                         HEADER       428          I
          -FC5A145
 HEADER             ZR     B7,PPA72    IF *)*, CONTINUE FILE PROCESSING                    HEADER       429          I
          -FC5A145
 HEADER             NZ     B2,PPA14    IF NOT COMMA, CONTINUE                              HEADER       430          I
          -FC5A145
 HEADER             =B4    B4+1                                                            HEADER       431          I
          -FC5A145
 HEADER             EQ     PPA10       LOOP FOR MORE FILES                                 HEADER       432          I
          -FC5A145
 HEADER                                                                                    HEADER       433          I
          -FC5A145
 HEADER    PPA15    NZ     X5,PPA40    IF NO EQUAL SIGN                                    HEADER       434          I
          -FC5A145
 HEADER                                                                                    HEADER       435          I
          -FC5A145
 HEADER                                                                                    HEADER       436          I
          -FC5A145
 HEADER   *         PROCESS EQUIVALENCED FILE.                                             HEADER       437          I
          -FC5A145
 HEADER                                                                                    HEADER       438          I
          -FC5A145
 HEADER             SA2    B4+B1       FETCH EQUIVALENCE ELEMENT                           HEADER       439          I
          -FC5A145
 HEADER             MX0    7*CHAR                                                          HEADER       440          I
          -FC5A145
 HEADER             SB4    A2+B1                                                           HEADER       441          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 832    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER             BX6    X0*X2                                                           HEADER       442          I
          -FC5A145
 HEADER             =B2    X2-O.VAR                                                        HEADER       443          I
          -FC5A145
 HEADER             =B7    B2+O.VAR-O.CONS                                                 HEADER       444          I
          -FC5A145
 HEADER             ZR     X2,E.MR1   IF *EOS* - ERROR                                     HEADER       445          I
          -FC5A145
 HEADER             SX5    X2-O.SLASH                                                      HEADER       446          I
          -FC5A145
 HEADER             NZ     X5,PPA17    IF NOT */*                                          HEADER       447          I
          -FC5A145
 HEADER             MX5    0           INDICATE NO BUFFER LENGTH                           HEADER       448          I
          -FC5A145
 HEADER             EQ     PPA20       GO PROCESS RECORD LENGTH                            HEADER       449          I
          -FC5A145
 HEADER                                                                                    HEADER       450          I
          -FC5A145
 HEADER    PPA17    SA6    FILL.2                                                          HEADER       451          I
          -FC5A145
 HEADER             ZR     B7,PPA30    IF INTEGER CONSTANT                                 HEADER       452          I
          -FC5A145
 HEADER             SB7    B7+O.CONS-O.OCT                                                 HEADER       453          I
          -FC5A145
 HEADER             ZR     B7,PPA29    IF OCTAL CONSTANT                                   HEADER       454          I
          -FC5A145
 HEADER             NZ     B2,E.FD7    IF NO LETTER                                        HEADER       455          I
          -FC5A145
 HEADER             SA1    B4+                                                             HEADER       456          I
          -FC5A145
 HEADER             SB2    X1-O.VAR                                                        HEADER       457          I
          -FC5A145
 HEADER             NZ     B2,PPA19    IF NOT VARIABLE                                     HEADER       458          I
          -FC5A145
 HEADER             ERRNZ  MAX.LFN*CHAR-TB.TOCL                                            HEADER       459          I
          -FC5A145
 HEADER             FATAL  E.FD8       FILE NAME EXCEEDS 7 CHARACTERS                      HEADER       460          I
          -FC5A145
 HEADER    PPA18    =A1    B4+1                                                            HEADER       461          I
          -FC5A145
 HEADER             =B4    B4+1                                                            HEADER       462          I
          -FC5A145
 HEADER             SB2    X1-O.VAR                                                        HEADER       463          I
          -FC5A145
 HEADER             NZ     B2,PPA13    IF NOT VARIABLE                                     HEADER       464          I
          -FC5A145
 HEADER             EQ     PPA18       CONTINUE TRASHING LONG FILE NAME                    HEADER       465          I
          -FC5A145
 HEADER                                                                                    HEADER       466          I
          -FC5A145
 HEADER    PPA19    MX7    1                                                               HEADER       467          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 833    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER             BX6    X6+X7                                                           HEADER       468          I
          -FC5A145
 HEADER             CALL   SSY         LOOK FOR THIS FILE                                  HEADER       469          I
          -FC5A145
 HEADER             SB5    B7                                                              HEADER       470          I
          -FC5A145
 HEADER             MI     B7,E.FD6    IF NOT IN TABLE                                     HEADER       471          I
          -FC5A145
 HEADER             SX5    B7                                                              HEADER       472          I
          -FC5A145
 HEADER             LX5    WC.IEFP                                                         HEADER       473          I
          -FC5A145
 HEADER             =A0    1           INDICATE FILE IS EQUIVALENCED                       HEADER       474          I
          -FC5A145
 HEADER             EQ     PPA65       CONTINUE..                                          HEADER       475          I
          -FC5A145
 HEADER                                                                                    HEADER       476          I
          -FC5A145
 HEADER   *         PROCESS RECORD LENGTH DECLARATION.                                     HEADER       477          I
          -FC5A145
 HEADER                                                                                    HEADER       478          I
          -FC5A145
 HEADER    PPA20    SA2    B4                                                              HEADER       479          I
          -FC5A145
 HEADER             SB2    X2-O.CONS                                                       HEADER       480          I
          -FC5A145
 HEADER             NZ     B2,E.FD9    IF NOT NUMBER                                       HEADER       481          I
          -FC5A145
 HEADER             CALL   DEC         CONVERT RECORD LENGTH                               HEADER       482          I
          -FC5A145
 HEADER             SB4    B4+B1                                                           HEADER       483          I
          -FC5A145
 HEADER             SB7    X1-M.INT                                                        HEADER       484          I
          -FC5A145
 HEADER             ZR     X1,PPA25    IF TYPE BOOLEAN                                     HEADER       485          I
          -FC5A145
 HEADER             NZ     B7,E.FD9    IF NOT TYPE INTEGER                                 HEADER       486          I
          -FC5A145
 HEADER    PPA25    SX3    MAX.RECL                                                        HEADER       487          I
          -FC5A145
 HEADER             IX3    X3-X6                                                           HEADER       488          I
          -FC5A145
 HEADER             MI     X3,E.FD0    IF RECORD LENGTH TOO LARGE                          HEADER       489          I
          -FC5A145
 HEADER             MI     X6,E.FD9    IF RECORD LENGTH NEGATIVE                           HEADER       490          I
          -FC5A145
 HEADER             LX6    WC.MRLP                                                         HEADER       491          I
          -FC5A145
 HEADER             BX5    X5+X6       MERGE RECORD LENGTH AND BUFFER LENGTH               HEADER       492          I
          -FC5A145
 HEADER             EQ     PPA60                                                           HEADER       493          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 834    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER                                                                                    HEADER       494          I
          -FC5A145
 HEADER   *         PROCESS BUFFER LENGTH DECLARATION.                                     HEADER       495          I
          -FC5A145
 HEADER                                                                                    HEADER       496          I
          -FC5A145
 HEADER    PPA29    SB4    B4-B1                                                           HEADER       497          I
          -FC5A145
 HEADER             CALL   OCT         CONVERT BUFFER LENGTH                               HEADER       498          I
          -FC5A145
 HEADER             SB4    B4+B1                                                           HEADER       499          I
          -FC5A145
 HEADER             EQ     PPA35                                                           HEADER       500          I
          -FC5A145
 HEADER                                                                                    HEADER       501          I
          -FC5A145
 HEADER    PPA30    SB4    B4-B1                                                           HEADER       502          I
          -FC5A145
 HEADER             CALL   DEC         CONVERT BUFFER LENGTH                               HEADER       503          I
          -FC5A145
 HEADER             SB4    B4+B1                                                           HEADER       504          I
          -FC5A145
 HEADER             SB7    X1-M.INT                                                        HEADER       505          I
          -FC5A145
 HEADER             NZ     B7,E.FD3    IF NOT TYPE INTEGER                                 HEADER       506          I
          -FC5A145
 HEADER    PPA35    SX3    MAX.BUFL                                                        HEADER       507          I
          -FC5A145
 HEADER             IX3    X3-X6                                                           HEADER       508          I
          -FC5A145
 HEADER             MI     X3,E.FD4    IF BUFFER LENGTH TOO LARGE                          HEADER       509          I
          -FC5A145
 HEADER             MI     X6,E.FD3    IF BUFFER LENGTH NEGATIVE                           HEADER       510          I
          -FC5A145
 HEADER             BX5    X6                                                              HEADER       511          I
          -FC5A145
 HEADER             SA2    B4                                                              HEADER       512          I
          -FC5A145
 HEADER             SB2    X2-O.SLASH                                                      HEADER       513          I
          -FC5A145
 HEADER             NZ     B2,PPA60    IF NOT */*                                          HEADER       514          I
          -FC5A145
 HEADER             =B4    B4+1                                                            HEADER       515          I
          -FC5A145
 HEADER             EQ     PPA20       GO PROCESS RECORD LENGTH                            HEADER       516          I
          -FC5A145
 HEADER                                                                                    HEADER       517          I
          -FC5A145
 HEADER    PPA36    BSSENT 0           ...RETURN FROM DIAGNOSTIC                           HEADER       518          I
          -FC5A145
 HEADER             =X5    MAX.BUFL    BUFFER LENGTH REQUESTED EXCEEDS 360000              HEADER       519          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 835    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER             EQ     PPA60                                                           HEADER       520          I
          -FC5A145
 HEADER                                                                                    HEADER       521          I
          -FC5A145
 HEADER    PPA4     BSSENT 0           ...RETURN FROM DIAGNOSTIC                           HEADER       522          I
          -FC5A145
 HEADER    PPA40    MX5    0           DEFAULT BUFFER LENGTH                               HEADER       523          I
          -FC5A145
 HEADER                                                                                    HEADER       524          I
          -FC5A145
 HEADER   *         EMIT TURPLE TO DEFINE THIS FILE.                                       HEADER       525          I
          -FC5A145
 HEADER   *         ADD ENTRY TO (T.SYM)                                                   HEADER       526          I
          -FC5A145
 HEADER   *                (X4) = 42/0LFILENAM                                             HEADER       527          I
          -FC5A145
 HEADER   *                (A0) = 1 IF FILE IS EQUIVALENCED                                HEADER       528          I
          -FC5A145
 HEADER   *                       0 OTHERWISE                                              HEADER       529          I
          -FC5A145
 HEADER   *                (X5) - *WC* ENTRY FOR THE FILE                                  HEADER       530          I
          -FC5A145
 HEADER   *                     = BUFFER AND RECORD LENGTHS (IF NOT EQUIVALENCED)          HEADER       531          I
          -FC5A145
 HEADER   *                     = SYMTAB *WB* INDEX (IF FILE EQUIVALENCED)                 HEADER       532          I
          -FC5A145
 HEADER   *                (PPAE) .NZ. IFF ALREADY DEFINED.                                HEADER       533          I
          -FC5A145
 HEADER                                                                                    HEADER       534          I
          -FC5A145
 HEADER    PPA60    BSS                                                                    HEADER       535          I
          -FC5A145
 HEADER             SA1    PPAE                                                            HEADER       536          I
          -FC5A145
 HEADER             PL     X1,PPA70    IF FILE ALREADY DEFINED                             HEADER       537          I
          -FC5A145
 HEADER                                                                                    HEADER       538          I
          -FC5A145
 HEADER    PPA65    BX6    X4                                                              HEADER       539          I
          -FC5A145
 HEADER             CLAS=  X2,WB,(NVAR,CGS)                                                HEADER       540          I
          -FC5A145
 HEADER             SX7    A0                                                              HEADER       541          I
          -FC5A145
 HEADER             LX7    WB.EQUP                                                         HEADER       542          I
          -FC5A145
 HEADER             BX7    X7+X2                                                           HEADER       543          I
          -FC5A145
 HEADER             BX2    X5                                                              HEADER       544          I
          -FC5A145
 HEADER             ADSYM  T.SYM                                                           HEADER       545          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 836    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER             SA1    NARGS                                                           HEADER       546          I
          -FC5A145
 HEADER             =X6    X1+1                                                            HEADER       547          I
          -FC5A145
 HEADER             SA6    A1          UPDATE FILE COUNTER                                 HEADER       548          I
          -FC5A145
 HEADER             MX5    0                                                               HEADER       549          I
          -FC5A145
 HEADER             SX4    B7                                                              HEADER       550          I
          -FC5A145
 HEADER             LX4    TP.BIASP    (P1.BIAS) = INDEX TO SYMTAB *WB*                    HEADER       551          I
          -FC5A145
 HEADER             EMIT   V=FILE                                                          HEADER       552          I
          -FC5A145
 HEADER                                                                                    HEADER       553          I
          -FC5A145
 HEADER   *         CHECK FOR MORE FILE DECLARATIONS.                                      HEADER       554          I
          -FC5A145
 HEADER   *                EXPECT COMMA OR RIGHT PAREN.                                    HEADER       555          I
          -FC5A145
 HEADER                                                                                    HEADER       556          I
          -FC5A145
 HEADER    PPA70    SA1    B4          FETCH NEXT SEPARATOR                                HEADER       557          I
          -FC5A145
 HEADER             SB4    B4+B1       POINT B4 TO (POSSIBLE) NEXT FILE NAME               HEADER       558          I
          -FC5A145
 HEADER             SB7    X1-O.COMMA                                                      HEADER       559          I
          -FC5A145
 HEADER             ZR     X1,E.MR1   IF *EOS* - ERROR                                     HEADER       560          I
          -FC5A145
 HEADER             SB2    X1-O.RP                                                         HEADER       561          I
          -FC5A145
 HEADER             ZR     B7,PPA10    IF COMMA, LOOP FOR MORE FILES                       HEADER       562          I
          -FC5A145
 HEADER             SA2    B4                                                              HEADER       563          I
          -FC5A145
 HEADER             NZ     B2,PPA71    IF NO *)* - ERROR                                   HEADER       564          I
          -FC5A145
 HEADER             ZR     X2,PPA72    IF *EOS*                                            HEADER       565          I
          -FC5A145
 HEADER             ERRNZ  O.EOS                                                           HEADER       566          I
          -FC5A145
 HEADER             WARN   E.FD10                                                          HEADER       567          I
          -FC5A145
 HEADER             EQ     PPA72                                                           HEADER       568          I
          -FC5A145
 HEADER                                                                                    HEADER       569          I
          -FC5A145
 HEADER    PPA71    SB4    B4-B1                                                           HEADER       570          I
          -FC5A145
 HEADER             EQ     E.FD2                                                           HEADER       571          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 837    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FC5A145
 HEADER                                                                                    HEADER       572          I
          -FC5A145
 HEADER                                                                                    HEADER       573          I
          -FC5A145
 HEADER   *         END OF STATEMENT SCANNING.                                             HEADER       574          I
          -FC5A145
 HEADER   *                MARK THE END OF THE FILE LIST.                                  HEADER       575          I
          -FC5A145
 HEADER   *                CHECK FOR TOO MANY FILES.                                       HEADER       576          I
          -FC5A145
 HEADER   *                SET UP (NARGS).                                                 HEADER       577          I
          -FC5A145
 HEADER                                                                                    HEADER       578          I
          -FC5A145
 HEADER    PPA72    SA4    NARGS                                                           HEADER       579          I
          -FC5A145
 HEADER             SB2    X4-MAX.PARG                                                     HEADER       580          I
          -FC5A145
 HEADER             LE     B2,PPA73    IF NOT TOO MANY FILES                               HEADER       581          I
          -FC5A145
 HEADER             WARN   E.FD5       TOO MANY FILES                                      HEADER       582          I
          -FC5A145
 HEADER    PPA73    BSS    0                                                               HEADER       583          I
          -FC5A145
 HEADER                                                                                    HEADER       584          I
          -FC5A145
 HEADER                                                                                    HEADER       585          I
          -FC5A145
 HEADER   *         EMIT "END OF FILE-DECLARATIONS", AND                                   HEADER       586          I
          -FC5A145
 HEADER   *              "START OF EXECUTABLES".                                           HEADER       587          I
          -FC5A145
 HEADER                                                                                    HEADER       588          I
          -FC5A145
 HEADER             BX4    0           (P1) = (P2) = NIL                                   HEADER       589          I
          -FC5A145
 HEADER    PBM      SPACE  4,10                                                            FC5A145       27     A     
 HEADER   **        PBM - PROCESS BUFL OR MRL.                                             FC5A145       28     A     
 HEADER   *                                                                                FC5A145       29     A     
 HEADER   *         CALLED BY *PPA* TO DETERMINE LEGALITY OF PRESUMED                      FC5A145       30     A     
 HEADER   *         BUFL OR MRL, AND TO RETURN THE BINARY OF THE (LEGAL) CONSTANT.         FC5A145       31     A     
 HEADER   *                                                                                FC5A145       32     A     
 HEADER   *         ENTRY  (B4) _ PRESUMED BUFL OR MRL TOKEN.                              FC5A145       33     A     
 HEADER   *                (X2) = THE TOKEN ITSELF.                                        FC5A145       34     A     
 HEADER   *                (A0) = MAXIMUM VALUE THE CONSTANT CAN TAKE.                     FC5A145       35     A     
 HEADER   *                                                                                FC5A145       36     A     
 HEADER   *         EXIT   (B4) = UNCHANGED.                                               FC5A145       37     A     
 HEADER   *                                                                                FC5A145       38     A     
 HEADER   *                IF NO ERROR :                                                   FC5A145       39     A     
 HEADER   *                                                                                FC5A145       40     A     
 HEADER   *                (B5) = 0                                                        FC5A145       41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 838    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *                (X6) = BINARY OF THE CONSTANT                                   FC5A145       42     A     
 HEADER   *                                                                                FC5A145       43     A     
 HEADER   *                IF ERROR OF SOME KIND :                                         FC5A145       44     A     
 HEADER   *                                                                                FC5A145       45     A     
 HEADER   *                (B5) = SHIFT COUNT TO RECOVER PROPER DIAGNOSTIC                 FC5A145       46     A     
 HEADER   *                       ADDRESS FROM *PPABE* (BUFL ERROR) OR FROM                FC5A145       47     A     
 HEADER   *                       *PPAME* (MRL ERROR)                                      FC5A145       48     A     
 HEADER   *                                                                                FC5A145       49     A     
 HEADER   *         CALLS  DEC,OCT.                                                        FC5A145       50     A     
 HEADER   *                                                                                FC5A145       51     A     
 HEADER   *         USES   X - 0,1,2,3,6,7  A - 1,2,3,4,5  B - 2,5,7.                      FC5A145       52     A     
 HEADER                                                                                    FC5A145       53     A     
 HEADER                                                                                    FC5A145       54     A     
 HEADER    PBM      SUBR               ENTRY/EXIT...                                       FC5A145       55     A     
 HEADER             SX1    X2-O.OCT                                                        FC5A145       56     A     
 HEADER             NZ     X1,PBM10    IF NOT OCTAL CONSTANT                               FC5A145       57     A     
 HEADER             CALL   OCT         CONVERT OCTAL CONSTANT                              FC5A145       58     A     
 HEADER             EQ     PBM20                                                           FC5A145       59     A     
 HEADER                                                                                    FC5A145       60     A     
 HEADER    PBM10    SX1    X2-O.CONS                                                       FC5A145       61     A     
 HEADER             SB5    18D                                                             FC5A145       62     A     
 HEADER             NZ     X1,EXIT.    IF ILLEGAL TOKEN                                    FC5A145       63     A     
 HEADER             CALL   DEC         CONVERT DECIMAL CONSTANT                            FC5A145       64     A     
 HEADER             SX2    X1-M.INT                                                        FC5A145       65     A     
 HEADER             SB5    36D                                                             FC5A145       66     A     
 HEADER             NZ     X2,EXIT.    IF NOT INTEGER                                      FC5A145       67     A     
 HEADER                                                                                    FC5A145       68     A     
 HEADER   **        HERE IF CONSTANT OF THE PROPER TYPE HAS BEEN FOUND.                    FC5A145       69     A     
 HEADER                                                                                    FC5A145       70     A     
 HEADER    PBM20    SB5    36D                                                             FC5A145       71     A     
 HEADER             MI     X6,EXIT.    IF NEGATIVE CONSTANT                                FC5A145       72     A     
 HEADER             SB5    54D                                                             FC5A145       73     A     
 HEADER             SX3    A0                                                              FC5A145       74     A     
 HEADER             IX3    X3-X6                                                           FC5A145       75     A     
 HEADER             MI     X3,EXIT.    IF CONSTANT TOO LARGE                               FC5A145       76     A     
 HEADER             =B5    0                                                               FC5A145       77     A     
 HEADER             EQ     EXIT.                                                           FC5A145       78     A     
 HEADER    PPA      SPACE  4,10                                                            FC5A145       79     A     
 HEADER   **        PPA - PROCESS PROGRAM ARGUMENTS.                                       FC5A145       80     A     
 HEADER   *                                                                                FC5A145       81     A     
 HEADER   *         ENTRY  (B4) _ PRESUMED ARGUMENT LIST.                                  FC5A145       82     A     
 HEADER   *                                                                                FC5A145       83     A     
 HEADER   *         CALLS  ESY,TLV,SSY,PEM,PBM,EMT,TSX,TSY.                                FC5A145       84     A     
 HEADER   *                                                                                FC5A145       85     A     
 HEADER   *         USES   ALL REGISTERS.                                                  FC5A145       86     A     
 HEADER                                                                                    FC5A145       87     A     
 HEADER                                                                                    FC5A145       88     A     
 HEADER    PPA      SUBR   0           ENTRY/EXIT...                                       FC5A145       89     A     
 HEADER             RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                         F1037F5      395     A     
 HEADER             SA2    B4                                                              FC5A145       90     A     
 HEADER             ZR     X2,PPA170   IF ARGLIST OMITTED                                  FC5A145       91     A     
 HEADER             ERRNZ  O.EOS                                                           FC5A145       92     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 839    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SX1    X2-O.LP                                                         FC5A145       93     A     
 HEADER             ZR     X1,PPA10    IF LPAREN PRESENT                                   FC5A145       94     A     
 HEADER             FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                          FC5A145       95     A     
 HEADER                                                                                    FC5A145       96     A     
 HEADER    PPA10    ANSI   E.FD        ** FILE LIST IS NON-ANSI                            FC5A145       97          I
          -FC5A231
 HEADER    PPA10    SA1    IDENT                                                           FC5A231       34     A     
 HEADER             SA2    =6LSTART.                                                       FC5A231       35     A     
 HEADER             IX1    X1-X2                                                           FC5A231       36     A     
 HEADER             ZR     X1,PPA20    IF SPECIAL FIRST CARD (NO HEADER STATEMENT)         FC5A231       37     A     
 HEADER             ANSI   E.FD        ** FILE LIST IS NON-ANSI                            FC5A231       38     A     
 HEADER                                                                                    FC5A145       98     A     
 HEADER   **        PROGRAM ARGUMENTS LOOP.                                                FC5A145       99     A     
 HEADER                                                                                    FC5A145      100     A     
 HEADER    PPA20    =A2    B4+1                                                            FC5A145      101     A     
 HEADER             =B4    B4+1                                                            FC5A145      102     A     
 HEADER             SX1    X2-O.VAR                                                        FC5A145      103     A     
 HEADER             ZR     X1,PPA30    IF FILE NAME FOUND                                  FC5A145      104     A     
 HEADER             ZR     X2,E.MR1    IF PREMATURE EOS                                    FC5A145      105     A     
 HEADER             FATAL  E.FD1       ** EXPECTED FILE NAME                               FC5A145      106     A     
 HEADER             MX0    0                                                               FC5A145      107     A     
 HEADER             EQ     PPA130                                                          FC5A145      108     A     
 HEADER                                                                                    FC5A145      109     A     
 HEADER    PPA30    =A1    B4+1        X1 = TOKEN AFTER VAR                                FC5A145      110     A     
 HEADER             MX0    7*CHAR                                                          FC5A145      111     A     
 HEADER             BX6    X0*X2       EXTRACT NAME                                        FC5A145      112     A     
 HEADER             SA6    FILL.                                                           FC5A145      113     A     
 HEADER             SX1    X1-O.VAR                                                        FC5A145      114     A     
 HEADER             NZ     X1,PPA40    IF FILE NAME NOT TOO LONG                           FC5A145      115     A     
 HEADER             CALL   TLV         TRUNCATE LONG VARIABLE                              FC5A145      116     A     
 HEADER                                                                                    FC5A145      117     A     
 HEADER    PPA40    MX0    1                                                               FC5A145      118     A     
 HEADER             BX6    X6+X0       SET BIT 59 ON FILE NAME                             FC5A145      119     A     
 HEADER             CALL   SSY                                                             FC5A145      120     A     
 HEADER             MX0    0                                                               FC5A145      121     A     
 HEADER             PL     B7,E.FD2    IF FILE DOUBLY DEFINED                              FC5A145      122     A     
 HEADER                                                                                    FC5A145      123     A     
 HEADER   **        (X6) = LEGAL FILE NAME, CHECK FOR EQUIVALENCING.                       FC5A145      124     A     
 HEADER                                                                                    FC5A145      125     A     
 HEADER             BX4    X6          SAVE FILE NAME (*WA* ENTRY)                         FC5A145      126     A     
 HEADER                                                                                    FC50729        7     A     
 HEADER    .RM      IFNE   CP#RM,7                                                         FC50729        8     A     
 HEADER             MX5    0           INITIALIZE *WC* ENTRY                               FC5A145      127          I
          -F1037F5
 HEADER             SA2    CO.STAT                                                         F1037F5      396     A     
 HEADER             SX5    BUFL.SM     DEFAULT BUFL (STATIC MODE)                          F1037F5      397     A     
 HEADER             MI     X2,PPA45    IF *STATIC* MODE                                    F1037F5      398     A     
 HEADER             SX5    BUFL.DM     DEFAULT BUFL (DYNAMIC)                              F1037F5      399     A     
 HEADER    .RM      ELSE                                                                   FC50729        9     A     
 HEADER             SX5    0           NO BUFFER SPACE TO ALLOCATE ON SCOPE 2              FC50729       10     A     
 HEADER    .RM      ENDIF                                                                  FC50729       11     A     
 HEADER                                                                                    FC50729       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 840    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER                                                                                    F1037F5      400     A     
 HEADER    PPA45    LX5    WC.BFLP                                                         F1037F5      401     A     
 HEADER             =A0    0           INDICATE NOT EQUIVALENCED (INITIALLY)               FC5A145      128     A     
 HEADER             =A2    B4+1        X2 = TOKEN AFTER FILE NAME                          FC5A145      129     A     
 HEADER             =B4    B4+1                                                            FC5A145      130     A     
 HEADER             SX1    X2-O.=                                                          FC5A145      131     A     
 HEADER             NZ     X1,PPA120   IF NOT EQUIVALENCED, DEFINE FILE                    FC5A145      132     A     
 HEADER             =A2    B4+1        X1 = EQUIVALENCE ELEMENT                            FC5A145      133     A     
 HEADER             =B4    B4+1                                                            FC5A145      134     A     
 HEADER             SX1    X2-O.VAR                                                        FC5A145      135     A     
 HEADER             NZ     X1,PPA60    IF NOT A FILE NAME                                  FC5A145      136     A     
 HEADER             =A1    B4+1        X1 = TOKEN AFTER FILE NAME                          FC5A145      137     A     
 HEADER             MX0    7*CHAR                                                          FC5A145      138     A     
 HEADER             BX6    X0*X2       EXTRACT FILE NAME                                   FC5A145      139     A     
 HEADER             SA6    FILL.2                                                          FC5A145      140     A     
 HEADER             SX1    X1-O.VAR                                                        FC5A145      141     A     
 HEADER             NZ     X1,PPA50    IF FILE NAME NOT TOO LONG                           FC5A145      142     A     
 HEADER             CALL   TLV         TRUNCATE LONG VARIABLE                              FC5A145      143     A     
 HEADER                                                                                    FC5A145      144     A     
 HEADER    PPA50    MX0    1                                                               FC5A145      145     A     
 HEADER             BX6    X6+X0       SET BIT 59                                          FC5A145      146     A     
 HEADER             CALL   SSY                                                             FC5A145      147     A     
 HEADER             MX0    0                                                               FC5A145      148     A     
 HEADER             MI     B7,E.FD3    IF FILE NOT DEFINED                                 FC5A145      149     A     
 HEADER             SX5    B7                                                              FC5A145      150     A     
 HEADER             LX5    WC.IEFP     SET *WC*                                            FC5A145      151     A     
 HEADER             =A0    1           INDICATE EQUIVALENCED FILE                          FC5A145      152     A     
 HEADER             =B4    B4+1                                                            FC5A145      153     A     
 HEADER             EQ     PPA120      DEFINE FILE                                         FC5A145      154     A     
 HEADER                                                                                    FC5A145      155     A     
 HEADER   **        HERE TO PROCESS BUFFER LENGTH.                                         FC5A145      156     A     
 HEADER                                                                                    FC5A145      157     A     
 HEADER    PPA60    SX1    X2-O.SLASH                                                      FC5A145      158     A     
 HEADER             ZR     X1,PPA90    IF NO BUFL                                          FC5A145      159     A     
 HEADER             SA0    MAX.BUFL                                                        FC5A145      160     A     
 HEADER             RJ     PBM         PROCESS BUFL                                        FC5A145      161     A     
 HEADER             ZR     B5,PPA80    IF NO ERROR                                         FC5A145      162     A     
 HEADER             SA1    PPABE                                                           FC5A145      163     A     
 HEADER             LX1    X1,B5                                                           FC5A145      164     A     
 HEADER             SB5    X1          B5 = ADDRESS OF DIAGNOSTIC                          FC5A145      165     A     
 HEADER             MX0    0                                                               FC5A145      166     A     
 HEADER             JP     B5          ISSUE DIAGNOSTIC                                    FC5A145      167     A     
 HEADER                                                                                    FC5A145      168     A     
 HEADER   **        HERE TO DEFINE BUFFER LENGTH.                                          FC5A145      169     A     
 HEADER   *         (X6) = BUFFER LENGTH                                                   FC5A145      170     A     
 HEADER   *         (B4) _ BUFFER LENGTH TOKEN                                             FC5A145      171     A     
 HEADER                                                                                    FC5A145      172     A     
 HEADER    PPA80    =A2    B4+1        X2 = TOKEN AFTER BUFL                               FC5A145      173          I
          -F1037F5
 HEADER    PPA80    ZR     X6,PPA85    IF BUFL=0 SPECIFIED                                 F1037F5      402     A     
 HEADER             SX6    X6+BUFL.ADD ADD IN DEFAULT ADDENDUM                             F1037F5      403     A     
 HEADER    PPA85    =A2    B4+1        TOKEN AFTER BUFFER LENGTH                           F1037F5      404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 841    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             =B4    B4+1                                                            FC5A145      174     A     
 HEADER             LX6    WC.BFLP                                                         FC5A145      175     A     
 HEADER             BX5    X6                                                              FC5A145      176     A     
 HEADER             =A0    0           INDICATE NOT EQUIVALENCED                           FC5A145      177     A     
 HEADER             SX1    X2-O.SLASH                                                      FC5A145      178     A     
 HEADER             NZ     X1,PPA120   IF NO MRL, DEFINE FILE                              FC5A145      179     A     
 HEADER                                                                                    FC5A145      180     A     
 HEADER   **        HERE TO PROCESS MRL, (B4) _ O.SLASH TOKEN.                             FC5A145      181     A     
 HEADER                                                                                    FC5A145      182     A     
 HEADER    PPA90    =A2    B4+1        X2 = PRESUMED MRL                                   FC5A145      183     A     
 HEADER             =B4    B4+1                                                            FC5A145      184     A     
 HEADER             SA0    MAX.RECL                                                        FC5A145      185     A     
 HEADER             RJ     PBM         PROCESS MRL                                         FC5A145      186     A     
 HEADER             ZR     B5,PPA110   IF NO ERROR                                         FC5A145      187     A     
 HEADER             SA1    PPAME                                                           FC5A145      188     A     
 HEADER             LX1    X1,B5                                                           FC5A145      189     A     
 HEADER             SB5    X1          B5 = ADDRESS OF DIAGNOSTIC                          FC5A145      190     A     
 HEADER             MX0    0                                                               FC5A145      191     A     
 HEADER             JP     B5          ISSUE DIAGNOSTIC                                    FC5A145      192     A     
 HEADER                                                                                    FC5A145      193     A     
 HEADER   **        HERE TO DEFINE MRL.                                                    FC5A145      194     A     
 HEADER   *         (X6) = MRL                                                             FC5A145      195     A     
 HEADER   *         (B4) _ MRL TOKEN                                                       FC5A145      196     A     
 HEADER                                                                                    FC5A145      197     A     
 HEADER    PPA110   LX6    WC.MRLP                                                         FC5A145      198     A     
 HEADER             BX5    X5+X6       MERGE MRL                                           FC5A145      199     A     
 HEADER             =A0    0                                                               FC5A145      200     A     
 HEADER             =B4    B4+1                                                            FC5A145      201     A     
 HEADER                                                                                    FC5A145      202     A     
 HEADER   **        EMIT TURPLE TO DEFINE THIS FILE, ADD ENTRY TO SYMBOL TABLE.            FC5A145      203     A     
 HEADER   *         (X4) = 42/0LFILENAME                                                   FC5A145      204     A     
 HEADER   *         (A0) = 1 IF EQUIVALENCED FILE                                          FC5A145      205     A     
 HEADER   *              = 0 IF NOT                                                        FC5A145      206     A     
 HEADER   *         (X5) - *WC* ENTRY FOR FILE                                             FC5A145      207     A     
 HEADER   *              = BUFL AND MRL (FOR A0 = 0)                                       FC5A145      208     A     
 HEADER   *              = SYMTAB *WB* INDEX (FOR A0 = 1)                                  FC5A145      209     A     
 HEADER                                                                                    FC5A145      210     A     
 HEADER    PPA120   BX6    X4                                                              FC5A145      211     A     
 HEADER             CLAS=  X2,WB,(NVAR,CGS)                                                FC5A145      212     A     
 HEADER             SX7    A0                                                              FC5A145      213     A     
 HEADER             LX7    WB.EQUP                                                         FC5A145      214     A     
 HEADER             BX7    X7+X2                                                           FC5A145      215     A     
 HEADER             BX2    X5                                                              FC5A145      216     A     
 HEADER             ADSYM  T.SYM                                                           FC5A145      217     A     
 HEADER             SA1    NARGS                                                           FC5A145      218     A     
 HEADER             =X6    X1+1                                                            FC5A145      219     A     
 HEADER             SA6    A1          UPDATE FILE COUNTER                                 FC5A145      220     A     
 HEADER             MX5    0                                                               FC5A145      221     A     
 HEADER             SX4    B7                                                              FC5A145      222     A     
 HEADER             LX4    TP.BIASP                                                        FC5A145      223     A     
 HEADER             EMIT   V=FILE                                                          FC5A145      224     A     
 HEADER             =X0    1                                                               FC5A145      225     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 842    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER                                                                                    FC5A145      226     A     
 HEADER   **        CHECK FOR MORE FILE DECLARATIONS.                                      FC5A145      227     A     
 HEADER   *         (B4) _ NEXT TOKEN.                                                     FC5A145      228     A     
 HEADER   *         (X0) = 0 IF DIAGNOSTIC RETURNED HERE.                                  FC5A145      229     A     
 HEADER   *              = .NZ. OTHERWISE                                                  FC5A145      230     A     
 HEADER                                                                                    FC5A145      231     A     
 HEADER    PPA130   BSSENT 0                                                               FC5A145      232     A     
 HEADER             SA1    B4                                                              FC5A145      233     A     
 HEADER             SX2    X1-O.COMMA                                                      FC5A145      234     A     
 HEADER             ZR     X2,PPA20    IF COMMA, CONTINUE                                  FC5A145      235     A     
 HEADER             SX2    X1-O.EOS                                                        FC5A145      236     A     
 HEADER             ZR     X2,E.MR1    ** PREMATURE EOS                                    FC5A145      237     A     
 HEADER             SX2    X1-O.RP                                                         FC5A145      238     A     
 HEADER             ZR     X2,PPA150   IF RP                                               FC5A145      239     A     
 HEADER             ZR     X0,PPA140   IF SUPPRESS ERROR                                   FC5A145      240     A     
 HEADER             FATAL  E.FD10      ** EXPECTED RP OR COMMA                             FC5A145      241     A     
 HEADER                                                                                    FC5A145      242     A     
 HEADER    PPA140   =B4    B4+1                                                            FC5A145      243     A     
 HEADER             EQ     PPA130                                                          FC5A145      244     A     
 HEADER                                                                                    FC5A145      245     A     
 HEADER   **        RIGHT PAREN FOUND. CHECK FOR EOS, AND TOO MANY FILES.                  FC5A145      246     A     
 HEADER                                                                                    FC5A145      247     A     
 HEADER    PPA150   =A1    B4+1                                                            FC5A145      248     A     
 HEADER             =B4    B4+1                                                            FC5A145      249     A     
 HEADER             ZR     X1,PPA160   IF EOS                                              FC5A145      250     A     
 HEADER             ERRNZ  O.EOS                                                           FC5A145      251     A     
 HEADER             WARN   E.FD11      ** EXPECTED EOS                                     FC5A145      252     A     
 HEADER                                                                                    FC5A145      253     A     
 HEADER    PPA160   SA4    NARGS                                                           FC5A145      254     A     
 HEADER             SB2    X4-MAX.PARG                                                     FC5A145      255     A     
 HEADER             LE     B2,PPA170   IF NOT TOO MANY FILES                               FC5A145      256     A     
 HEADER             WARN   E.FD12      TOO MANY FILES                                      FC5A145      257     A     
 HEADER                                                                                    FC5A145      258     A     
 HEADER   **        EMIT *END OF FILE DECLARATIONS* AND                                    FC5A145      259     A     
 HEADER   *         *START OF EXECUTABLES*.                                                FC5A145      260     A     
 HEADER                                                                                    FC5A145      261     A     
 HEADER    PPA170   BX4    0                                                               FC5A145      262     A     
 HEADER             MX5    0                                                               HEADER       590     A     
 HEADER             EMIT   V=PLIM      INDICATE NO MORE FILES                              HEADER       591     A     
 HEADER             EMIT   V=SEX       INDICATE START OF EXECUTABLES                       HEADER       592     A     
 HEADER                                                                                    HEADER       593     A     
 HEADER             SA3    CO.DBPM                                                         HEADER       594     A     
 HEADER             SA1    S.Q5PMD                                                         HEADER       595     A     
 HEADER             NZ     X3,PPA80    IF *POST-MORTEM DUMP* SELECTED                      HEADER       596          I
          -FC5A145
 HEADER             NZ     X3,PPA180   IF *POST-MORTEM DUMP* SELECTED                      FC5A145      263     A     
 HEADER             SA2    CO.DBER                                                         HEADER       597     A     
 HEADER             SA1    A1+B1       Q5RPV                                               HEADER       598     A     
 HEADER             NZ     X2,PPA80    IF *ERROR RECOVERY* SELECTED                        HEADER       599          I
          -FC5A145
 HEADER             NZ     X2,PPA180   IF *ERROR RECOVERY* SELECTED                        FC5A145      264     A     
 HEADER             SA1    A1+B1       Q5NTRY                                              HEADER       600     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 843    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER    PPA80    TAGSEX A1          ENTER INITIALIZER IN SYMTAB                         HEADER       601          I
          -FC5A145
 HEADER    PPA180   TAGSEX  A1         ENTER INITIALIZER IN SYMTAB                         FC5A145      265     A     
 HEADER             SA4    PPAB                                                            HEADER       602     A     
 HEADER             LX7    X0                                                              HEADER       603     A     
 HEADER             SA7    S=INIT                                                          HEADER       604     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,MAT)                                         HEADER       605     A     
 HEADER             CALL   TSY         TAG SYMBOL (FILVEC.)                                HEADER       606     A     
 HEADER             SA5    NARGS                                                           HEADER       607     A     
 HEADER             ZR     X5,EXIT.    IF NO FILE-NAME ARGUMENTS                           HEADER       608     A     
 HEADER             SA4    PPAC                                                            HEADER       609     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,MAT)                                         HEADER       610     A     
 HEADER             CALL   TSY         TAG SYMBOL (UPW.)                                   HEADER       611     A     
 HEADER             EQ     PPAX                                                            HEADER       612     A     
 HEADER                                                                                    HEADER       613     A     
 HEADER    S.Q5PMD  =XLIB  Q5PMD                                                           HEADER       614     A     
 HEADER             =XLIB  Q5RPV                                                           HEADER       615     A     
 HEADER             =XLIB  Q5NTRY                                                          HEADER       616     A     
 HEADER                                                                                    HEADER       617     A     
 HEADER    PPAB     CON    =XS=FILES+7LFILVEC.                                             HEADER       618     A     
 HEADER    PPAC     CON    S=UPW+4LUPW.                                                    HEADER       619     A     
 HEADER    PPAE     EQU    SCR                                                             HEADER       620     A     
 HEADER    PPAF     EQU    SCR+1                                                           HEADER       621     A     
 HEADER                                                                                    FC5A145      266     A     
 HEADER    PPABE    VFD    18/E.FD4,18/E.FD5,18/E.FD6,6/0                                  FC5A145      267     A     
 HEADER    PPAME    VFD    18/E.FD8,18/E.FD7,18/E.FD9,6/0                                  FC5A145      268     A     
 HEADER    PSA      SPACE  4,30                                                            HEADER       622     A     
 HEADER   **        PSA - PROCESS SUBPROGRAM ARGLIST.                                      HEADER       623     A     
 HEADER   *                                                                                HEADER       624     A     
 HEADER   *         TRANSLATES SUBPROGRAM DUMMY ARGUMENT LIST FOR FUNCTION,                HEADER       625     A     
 HEADER   *         SUBROUTINE, AND ENTRY STATEMENTS.                                      HEADER       626     A     
 HEADER   *                                                                                HEADER       627     A     
 HEADER   *         WHEN THE SCAN IS FINISHED, IF THERE WERE ANY NON-LABEL ARGS            HEADER       628     A     
 HEADER   *         (THE LOCAL ARG TABLE IS NOT EMPTY), THIS PARAMETER LIST                HEADER       629     A     
 HEADER   *         MUST BE ADDED TO (T.ENTP).  THE LOCAL TABLE IS SCRUNCHED               HEADER       630     A     
 HEADER   *         INTO THE PROPER FORMAT, AND WE SCAN (T.ENTP) TO SEE IF AN              HEADER       631     A     
 HEADER   *         IDENTICAL PARAMETER LIST IS ALREADY PRESENT.  IF NOT, A                HEADER       632     A     
 HEADER   *         HEADER WORD (EH.) IS PREFIXED TO THE LOCAL TABLE, AND THE              HEADER       633     A     
 HEADER   *         WHOLE MESS IS ADDED TO (T.ENTP).  ALSO, (N.CPL) IS INCRE-              HEADER       634     A     
 HEADER   *         MENTED TO ACCOUNT FOR THE NEW LIST.  IF THERE IS NOW MORE              HEADER       635     A     
 HEADER   *         THAN ONE ARGLIST IN (T.ENTP), WE MUST SET (N.EPL) TO SO                HEADER       636     A     
 HEADER   *         SIGNIFY.  FINALLY, (WB.PNT) OF THE ENTRY POINT IS SET TO               HEADER       637     A     
 HEADER   *         POINT TO THE HEADER WORD IN THE (T.ENTP) ENTRY.                        HEADER       638     A     
 HEADER   *                                                                                HEADER       639     A     
 HEADER   *         ENTRY  (B4) -> *(* AT BEGINNING OF (POSSIBLE) ARGUMENT LIST.           HEADER       640     A     
 HEADER   *                (X4) = SYMORD OF ENTRY POINT.                                   HEADER       641     A     
 HEADER   *                     .ZR. IF ERROR IN ENTRY NAME.                               HEADER       642     A     
 HEADER   *                                                                                HEADER       643     A     
 HEADER   *         USES   ALL                                                             HEADER       644     A     
 HEADER   *         CALLS  ADDWD, ALLOC, MOVE, NCM, SAL.                                   HEADER       645          I
          -FC50496
 HEADER   *                                                                                FC50496        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 844    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         CALLS  ALC, COVC, MVE=, SAL.                                           FC50496        9     A     
 HEADER                                                                                    HEADER       646     A     
 HEADER                                                                                    HEADER       647     A     
 HEADER    PSA      SUBR   =           ENTRY/EXIT...                                       HEADER       648     A     
 HEADER             SX6    X4                                                              HEADER       649     A     
 HEADER             SA4    S=ENTRY                                                         FC50512        7     A     
 HEADER             IX4    X6-X4                                                           FC50512        8     A     
 HEADER             SA6    PSAA        (PSAA) = SYMORD OF THIS ENTRY POINT                 HEADER       650     A     
 HEADER                                                                                    FC50496       10     A     
 HEADER    .T       IFEQ   TEST,ON                                                         HEADER       651     A     
 HEADER             SA2    T=ARG                                                           HEADER       652     A     
 HEADER             NZ     X2,"BLOWUP" IF GARBAGE IN ARG TABLE                             HEADER       653     A     
 HEADER    .T       ENDIF                                                                  HEADER       654     A     
 HEADER                                                                                    HEADER       655     A     
 HEADER             RJ     SAL         SCAN ARGUMENT LIST                                  HEADER       656          I
          -FC50512
 HEADER             ZR     X4,PSA1     IF MAIN ENTRY                                       FC50512        9     A     
 HEADER             SA1    MOD                                                             FC50512       10     A     
 HEADER             MX4    -MO.MODEL                                                       FC50512       11     A     
 HEADER             BX4    -X4*X1      EXTRACT MODE (IF PRESENT)                           FC50512       12     A     
 HEADER             SBIT   X1,MO.FUNP                                                      FC50512       13     A     
 HEADER             PL     X1,PSA1     IF NOT FUNCTION                                     FC50512       14     A     
 HEADER             SBIT   X1,MO.CTYPP/MO.FUNP                                             FC50512       15     A     
 HEADER             SX4    X4-M.CHAR                                                       FC50512       16     A     
 HEADER             NZ     X4,PSA1     IF NOT CHARACTER                                    FC50512       17     A     
 HEADER             PL     X1,PSA1     IF NOT ASSUMED SIZE                                 FC50512       18     A     
 HEADER             SA1    S=VALUE                                                         FC50512       19     A     
 HEADER             SX6    X1+M.CHAR   ORDINAL OF VALUH.                                   FC50512       20     A     
 HEADER             ADDWD  T.ARG       ENTRY FOR T.ENTP                                    FC50512       21     A     
 HEADER                                                                                    FC50512       22     A     
 HEADER    PSA1     RJ     SAL         SCAN ARGUMENT LIST                                  FC50512       23     A     
 HEADER             RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                         F1037F5      405     A     
 HEADER             SA2    T=ARG                                                           HEADER       657     A     
 HEADER             SX6    MAX.SARG                                                        HEADER       658     A     
 HEADER             BX7    X2                                                              HEADER       659     A     
 HEADER             IX3    X6-X2                                                           HEADER       660     A     
 HEADER             SA7    PSAB                                                            HEADER       661     A     
 HEADER             ZR     X2,PSA80    IF NO NON-LABEL ARGUMENTS                           HEADER       662          I
          -FC50496
 HEADER             PL     X3,PSA62    IF THIS ARGLIST NOT TOO LONG                        HEADER       663          I
          -FC50496
 HEADER             ZR     X2,PSA50    IF NO NON-LABEL ARGUMENTS                           FC50496       11     A     
 HEADER             PL     X3,PSA5     IF THIS ARGLIST NOT TOO LONG                        FC50496       12     A     
 HEADER             BX2    X6                                                              HEADER       664     A     
 HEADER             SHRINK A2,X6                                                           HEADER       665     A     
 HEADER             FATAL  E.AG00      ** TOO MANY DUMMY ARGS                              HEADER       666     A     
 HEADER                                                                                    HEADER       667     A     
 HEADER    PSA62    SA1    T.ARG                                                           HEADER       668          I
          -FC50496
 HEADER    PSA5     SA1    T.ARG                                                           FC50496       13     A     
 HEADER             SA3    X1          FETCH FIRST ENTRY                                   HEADER       669     A     
 HEADER             MX6    0                                                               HEADER       670     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 845    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SB2    A3          (B2) = FWA (T.ARG)                                  HEADER       671     A     
 HEADER             SB3    X2+         (B3) = NUMBER OF ARG BYTES NEEDED                   HEADER       672     A     
 HEADER             SA6    A3          CLEAR (EH.) WORD                                    HEADER       673     A     
 HEADER             SB7    60-EF.ORDL                                                      HEADER       674     A     
 HEADER             ERRNZ  4*EF.ORDL-60                                                    HEADER       675     A     
 HEADER    PSA64    LX2    X3,B7                                                           HEADER       676          I
          -FC50496
 HEADER                                                                                    FC50496       14     A     
 HEADER    PSA10    LX2    X3,B7                                                           FC50496       15     A     
 HEADER             SB7    B7-EF.ORDL                                                      HEADER       677     A     
 HEADER             BX6    X6+X2       MERGE THIS ENTRY                                    HEADER       678     A     
 HEADER             SB3    B3-B1                                                           HEADER       679     A     
 HEADER             PL     B7,PSA65    IF WORD NOT FULL                                    HEADER       680          I
          -FC50496
 HEADER             PL     B7,PSA15    IF WORD NOT FULL                                    FC50496       16     A     
 HEADER             SA6    A6+B1                                                           HEADER       681     A     
 HEADER             SB7    60-EF.ORDL                                                      HEADER       682     A     
 HEADER             NO                                                                     HEADER       683     A     
 HEADER             MX6    0                                                               HEADER       684     A     
 HEADER    PSA65    SA3    A3+B1                                                           HEADER       685          I
          -FC50496
 HEADER             GT     B3,PSA64    IF MORE FP'S IN LOCAL ARG LIST                      HEADER       686          I
          -FC50496
 HEADER                                                                                    FC50496       17     A     
 HEADER    PSA15    SA3    A3+B1                                                           FC50496       18     A     
 HEADER             GT     B3,PSA10    IF MORE FPS IN LOCAL ARGUMENT LIST                  FC50496       19     A     
 HEADER             SA6    A6+B1       STORE PARTIAL WORD                                  HEADER       687     A     
 HEADER             SB3    A6+B1       (B3) = LWA+1 OF SCRUNCHED ARGLIST                   HEADER       688     A     
 HEADER             SHRINK A2,B3-B2    SET SCRUNCHED LENGTH OF TABLE                       HEADER       689     A     
 HEADER                                                                                    HEADER       690     A     
 HEADER   *         ADD NEW (T.ENTP) ENTRY, IF UNIQUE.                                     HEADER       691     A     
 HEADER                                                                                    HEADER       692     A     
 HEADER             SA2    T=ENTP                                                          HEADER       693     A     
 HEADER             SA1    T.ENTP                                                          HEADER       694     A     
 HEADER             ZR     X2,PSA68    IF NO PREVIOUS ARGLISTS                             HEADER       695          I
          -FC50496
 HEADER             SB7    B1          INDICATE DO-NOT-ENTER                               HEADER       696          I
          -FC50496
 HEADER             SB2    B2+B1       DON'T TRY TO MATCH HEADER WORD                      HEADER       697          I
          -FC50496
 HEADER             CALL   NCM         ENTER CONSTANT MULTIPLE                             HEADER       698          I
          -FC50496
 HEADER             SX5    B7-B1       EPIX = DUPLICATE LIST                               HEADER       699          I
          -FC50496
 HEADER             PL     B7,PSA70    IF IDENTICAL ARGLIST ALREADY PRESENT                HEADER       700          I
          -FC50496
 HEADER             SX6    B1          INDICATE MULTIPLE PARAMETER LISTS                   HEADER       701          I
          -FC50496
 HEADER             ZR     X2,PSA30    IF NO PREVIOUS ARGLISTS                             FC50496       20     A     
 HEADER                                                                                    FC50496       21     A     
 HEADER   *         DETERMINE IF THE CURRENT ENTRY IS UNIQUE.                              FC50496       22     A     
 HEADER   *         (X6) = (T=ARG)                                                         FC50496       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 846    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         (B2) = (T.ARG)                                                         FC50496       24     A     
 HEADER   *         (X1) = (T.ENTP)                                                        FC50496       25     A     
 HEADER   *         (X2) = (T=ENTP)                                                        FC50496       26     A     
 HEADER   *                                                                                FC50496       27     A     
 HEADER   *         NOTE:  THIS CODE ASSUMES NO TABLE MOVEMENT.                            FC50496       28     A     
 HEADER                                                                                    FC50496       29     A     
 HEADER             =B2    B2+1        MATCH ONLY ON ARGUMENTS                             FC50496       30     A     
 HEADER             SB3    X6-1        COUNT ONLY ARGUMENT WORDS                           FC50496       31     A     
 HEADER             SB7    X1          INITIALIZE TO FIRST HEADER                          FC50496       32     A     
 HEADER             SB5    X2          LENGTH OF T.ENTP                                    FC50496       33     A     
 HEADER                                                                                    FC50496       34     A     
 HEADER    PSA20    SA1    B7          FETCH HEADER                                        FC50496       35     A     
 HEADER             =B5    B5-1        DECREMENT FOR HEADER                                FC50496       36     A     
 HEADER             =B7    B7+1        INCREMENT T.ENTP POINTER                            FC50496       37     A     
 HEADER             HX1    EH.FPC                                                          FC50496       38     A     
 HEADER             AX1    -EH.FPCL    EXTRACT NUMBER OF ARGUMENTS                         FC50496       39     A     
 HEADER             =X1    X1+1        ALLOW FOR THE MANDATORY NULL ENTRY                  FC50496       40     A     
 HEADER             MX0    -2                                                              FC50496       41     A     
 HEADER             BX0    -X0*X1      FOR MOD4 ARITHMETIC                                 FC50496       42     A     
 HEADER             AX1    2                                                               FC50496       43     A     
 HEADER             SB6    X1                                                              FC50496       44     A     
 HEADER             ZR     X0,PSA21    IF PARCELED EXACTLY                                 FC50496       45     A     
 HEADER             =B6    B6+1                                                            FC50496       46     A     
 HEADER                                                                                    FC50496       47     A     
 HEADER    PSA21    NE     B6,B3,PSA27 IF NOT EQUAL LENGTH, NO MATCH                       FC50496       48     A     
 HEADER             =A1    B2-1        INITIALIZE FETCH                                    FC50496       49     A     
 HEADER             =A2    B7-1        INITIALIZE FETCH                                    FC50496       50     A     
 HEADER             SB4    B6          SEARCH LOOP COUNTER                                 FC50496       51     A     
 HEADER                                                                                    FC50496       52     A     
 HEADER    PSA23    =A1    A1+1        T.ARG ENTRY                                         FC50496       53     A     
 HEADER             =A2    A2+1        T.ENTP ENTRY                                        FC50496       54     A     
 HEADER             =B4    B4-1        DECREMENT LOOP COUNT                                FC50496       55     A     
 HEADER             IX0    X1-X2                                                           FC50496       56     A     
 HEADER             NZ     X0,PSA27    IF NOT A MATCH                                      FC50496       57     A     
 HEADER             NZ     B4,PSA23    IF MORE TO CHECK                                    FC50496       58     A     
 HEADER                                                                                    FC50496       59     A     
 HEADER   *         HAVE AN EXACT MATCH.  NOTE MATCH AND EXIT.                             FC50496       60     A     
 HEADER                                                                                    FC50496       61     A     
 HEADER             SA5    T.ENTP                                                          FC50496       62     A     
 HEADER             SX1    B7-1        POINT TO HEADER                                     FC50496       63     A     
 HEADER             IX5    X1-X5       (X5) = EPIX                                         FC50496       64     A     
 HEADER             EQ     PSA40       PROCESS ENTRY SYMBOL                                FC50496       65     A     
 HEADER                                                                                    FC50496       66     A     
 HEADER    PSA27    SB5    B5-B6       DECREMENT T.ENTP COUNT                              FC50496       67     A     
 HEADER             SB7    B7+B6       INCREMENT T.ENTP POINTER                            FC50496       68     A     
 HEADER             ZR     B5,PSA29    IF FINISHED, NO MATCH                               FC50496       69     A     
 HEADER             EQ     PSA20       LOOP FOR NEXT ENTRY                                 FC50496       70     A     
 HEADER                                                                                    FC50496       71     A     
 HEADER    PSA29    SX6    B1          INDICATE MULTIPLE PARAMETER LISTS                   FC50496       72     A     
 HEADER             SA6    N.EPL                                                           HEADER       702     A     
 HEADER                                                                                    HEADER       703     A     
 HEADER   *         CONSTRUCT (EH.) HEADER WORD FOR THIS UNIQUE PARAMETER LIST.            HEADER       704     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 847    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         THIS OFFSET = PREVIOUS LENGTH                                          HEADER       705     A     
 HEADER   *         INCREMENT (CP.) LENGTH BY SIZE OF THIS LIST, INCLUDING ZERO            HEADER       706     A     
 HEADER   *         WORD TERMINATOR.                                                       HEADER       707     A     
 HEADER                                                                                    HEADER       708     A     
 HEADER    PSA68    SA3    N.CPL                                                           HEADER       709          I
          -FC50496
 HEADER    PSA30    SA3    N.CPL                                                           FC50496       73     A     
 HEADER             SA2    PSAB        NARGS = (PSAB)                                      HEADER       710     A     
 HEADER             SA1    T.ARG                                                           HEADER       711     A     
 HEADER             SX0    X3+B1       NCZ = (N.CPL) + 1       */ TERMINATOR               HEADER       712     A     
 HEADER             LX3    EH.BIASP                                                        HEADER       713     A     
 HEADER             SA4    T=ARG                                                           HEADER       714     A     
 HEADER             BX6    X3          (EH.BIAS) = (N.CPL)                                 HEADER       715     A     
 HEADER             LX2    EH.FPCP                                                         HEADER       716          I
          -FC50962
 HEADER             SA5    MOD                                                             FC50962        8     A     
 HEADER             MX7    -MO.MODEL                                                       FC50962        9     A     
 HEADER             BX7    -X7*X5      EXTRACT MODE (IF PRESENT)                           FC50962       10     A     
 HEADER             SBIT   X5,MO.FUNP                                                      FC50962       11     A     
 HEADER             PL     X5,PSA33    IF NOT FUNCTION                                     FC50962       12     A     
 HEADER             SBIT   X5,MO.CTYPP/MO.FUNP                                             FC50962       13     A     
 HEADER             SX7    X7-M.CHAR                                                       FC50962       14     A     
 HEADER             NZ     X7,PSA33    IF NOT CHARACTER                                    FC50962       15     A     
 HEADER             PL     X5,PSA33    IF NOT ASSUMED SIZE                                 FC50962       16     A     
 HEADER             SX6    X6+1        ACCOUNT FOR VALUH.                                  FC50962       17     A     
 HEADER                                                                                    FC50962       18     A     
 HEADER    PSA33    LX2    EH.FPCP                                                         FC50962       19     A     
 HEADER             BX6    X6+X2       MERGE FP COUNT                                      HEADER       717     A     
 HEADER             LX2    -EH.FPCP    RESTORE X2                                          HEADER       718     A     
 HEADER             SA6    X1                                                              HEADER       719     A     
 HEADER             IX7    X0+X2       (N.CPL) = NARGS + NCZ                               HEADER       720     A     
 HEADER             SA7    A3                                                              HEADER       721     A     
 HEADER             ALLOC  T.ENTP,X4                                                       HEADER       722     A     
 HEADER             IX5    X2-X4       EPIX = NEW LENGTH - AMOUNT ADDED                    HEADER       723     A     
 HEADER             IX3    X1+X5       DESTINATION = NEW FWA + EPIX                        HEADER       724     A     
 HEADER             SA2    T.ARG                                                           HEADER       725     A     
 HEADER             BX1    X4          WC = AMOUNT ADDED                                   HEADER       726     A     
 HEADER             MOVE   X1,X2,X3                                                        HEADER       727     A     
 HEADER                                                                                    HEADER       728     A     
 HEADER   *         FINALLY, LINK THE ENTRY POINT TO IT'S PARAMETER LIST ENTRY             HEADER       729     A     
 HEADER   *         IN (T.ENTP) BY SETTING (WB.PNT) = EPIX+1 .                             HEADER       730     A     
 HEADER   *                (X5) = EPIX                                                     HEADER       731     A     
 HEADER                                                                                    HEADER       732     A     
 HEADER    PSA70    SA1    PSAA                                                            HEADER       733          I
          -FC50496
 HEADER    PSA40    SA1    PSAA                                                            FC50496       74     A     
 HEADER             SA2    T.SYM                                                           HEADER       734     A     
 HEADER             ZR     X1,PSA80    IF ERROR IN E.P. NAME                               HEADER       735          I
          -FC50496
 HEADER             ZR     X1,PSA50    IF ERROR IN ENTRY NAME                              FC50496       75     A     
 HEADER             SX5    X5+B1                                                           HEADER       736     A     
 HEADER             LX7    X1,B1                                                           HEADER       737     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 848    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             =B7    X2+WB.W                                                         HEADER       738     A     
 HEADER             IX3    X7+X1       (X3) = INDEX OF ENTRY POINT                         HEADER       739     A     
 HEADER             ERRNZ  3-Z=SYM                                                         HEADER       740     A     
 HEADER             SA3    X3+B7                                                           HEADER       741     A     
 HEADER             LX5    WB.PNTP                                                         HEADER       742     A     
 HEADER             BX6    X3+X5                                                           HEADER       743     A     
 HEADER             SA6    A3                                                              HEADER       744     A     
 HEADER                                                                                    FC50496       76     A     
 HEADER    .T       IFEQ   TEST,ON                                                         HEADER       745     A     
 HEADER             MX0    -WB.PNTL                                                        HEADER       746     A     
 HEADER             LX0    WB.PNTP                                                         HEADER       747     A     
 HEADER             BX7    -X0*X3      (X7) = PREVIOUS POINTER                             HEADER       748     A     
 HEADER             NZ     X7,"BLOWUP" IF PREVIOUS GARBAGE IN POINTER FIELD                HEADER       749     A     
 HEADER    .T       ENDIF                                                                  HEADER       750     A     
 HEADER                                                                                    HEADER       751     A     
 HEADER    PSA80    SHRINK T=ARG                                                           HEADER       752          I
          -FC50496
 HEADER    PSA50    SHRINK T=ARG                                                           FC50496       77     A     
 HEADER             EQ     EXIT.                                                           HEADER       753     A     
 HEADER                                                                                    HEADER       754     A     
 HEADER    PSAA     EQU    SCR         SAVE SYMORD OF THIS ENTRY POINT                     HEADER       755     A     
 HEADER    PSAB     EQU    SCR+1       SAVE NUMBER OF ARGS IN THIS PARM LIST               HEADER       756     A     
 HEADER    SAL      SPACE  4,20                                                            HEADER       757     A     
 HEADER   **        SAL - SCAN ARGUMENT LIST.                                              HEADER       758     A     
 HEADER   *                                                                                HEADER       759     A     
 HEADER   *         SCANS THE ARGUMENT LIST, TO CHECK SYNTAX AND BUILD A                   HEADER       760     A     
 HEADER   *         TEMPORARY TABLE (T.ARG) CONTAINING THE NON-LABEL DUMMY                 HEADER       761     A     
 HEADER   *         ARGS IN THIS LIST, IN ORDER.  DUPLICATES ARE DIAGNOSED, AND            HEADER       762     A     
 HEADER   *         ONLY ENTERED ONCE.  EACH ARG IS ALSO MARKED AS (WB.FP) IN THE          HEADER       763     A     
 HEADER   *         SYMBOL TABLE.  IF IT IS NOT YET IN THE FORMAL PARAMETER TABLE,         HEADER       764     A     
 HEADER   *         IT IS ADDED TO (T.FPI), AND IT'S FORMAL PARAMETER NUMBER IS            HEADER       765     A     
 HEADER   *         SET INTO (WB.FPNO).                                                    HEADER       766     A     
 HEADER   *                                                                                HEADER       767     A     
 HEADER   *         ENTRY  (B4) -> FIRST TOKEN OF PRESUMED ARGUMENT LIST.                  HEADER       768          I
          -FC50558
 HEADER   *         ENTRY  (B4) _ FIRST TOKEN OF PRESUMED ARGUMENT LIST.                   FC50558       15     A     
 HEADER   *                                                                                HEADER       769     A     
 HEADER   *         EXIT   (T.ARG) = SYMBOLS IN THIS ARGLIST.                              HEADER       770     A     
 HEADER   *                                                                                HEADER       771     A     
 HEADER   *         CALLS  ADDREF, ADDWD, ADSYM, SCT, SSY, STY, TLV.                       HEADER       772          I
          -FC50558
 HEADER   *         CALLS  ACV, ADW, ERT, ESY, SCS, SCT, SSY, STY, TLV.                    FC50558       16     A     
 HEADER                                                                                    HEADER       773     A     
 HEADER                                                                                    HEADER       774     A     
 HEADER    SAL      SUBR   0           ENTRY/EXIT...                                       HEADER       775     A     
 HEADER             SA1    B4                                                              HEADER       776     A     
 HEADER             ZR     X1,SAL21    IF EOS -- ARGLIST OMITTED                           HEADER       777     A     
 HEADER             ERRNZ  O.EOS                                                           HEADER       778     A     
 HEADER             SX2    X1-O.LP                                                         HEADER       779     A     
 HEADER             NZ     X2,SAL23    IF NO LEFT PAREN                                    HEADER       780     A     
 HEADER             SA1    B4+B1                                                           HEADER       781     A     
 HEADER             SB4    B4+B1                                                           HEADER       782     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 849    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SB7    X1-O.RP                                                         HEADER       783     A     
 HEADER             ZR     X1,E.MR1    IF EOS INSTEAD OF ARGUMENT                          HEADER       784     A     
 HEADER             NZ     B7,SAL30    IF NOT EXPLICIT NULL ARGUMENT LIST                  HEADER       785     A     
 HEADER             SB4    B4+1                                                            HEADER       786     A     
 HEADER             EQ     SAL58                                                           HEADER       787     A     
 HEADER                                                                                    HEADER       788     A     
 HEADER    SAL23    FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                          HEADER       789     A     
 HEADER             EQ     EXIT.                                                           HEADER       790     A     
 HEADER                                                                                    HEADER       791     A     
 HEADER   *         OMITTED ARGUMENT LIST.                                                 HEADER       792     A     
 HEADER                                                                                    HEADER       793     A     
 HEADER    SAL21    SA1    MOD                                                             HEADER       794          I
          -FC5A262
 HEADER    SAL21    SA1    TB=TYPE                                                         FC5A262       24     A     
 HEADER             HX1    KW.JMP                                                          FC5A262       25     A     
 HEADER             AX1    -KW.JMPL    EXTRACT PROCESSOR ADDRESS                           FC5A262       26     A     
 HEADER             SB7    X1                                                              FC5A262       27     A     
 HEADER             ERRNZ  18-KW.JMPL                                                      FC5A262       28     A     
 HEADER             SB2    KW=ENTR                                                         FC5A262       29     A     
 HEADER             SB7    B7-B2                                                           FC5A262       30     A     
 HEADER             ZR     B7,EXIT.    IF ENTRY                                            FC5A262       31     A     
 HEADER             SA1    MOD                                                             FC5A262       32     A     
 HEADER             HX1    MO.FUN                                                          HEADER       795     A     
 HEADER             PL     X1,EXIT.    IF NOT A FUNCTION                                   HEADER       796     A     
 HEADER    SAL22    FATAL  E.AG01                                                          HEADER       797          I
          -FC5A262
 HEADER             FATAL  E.AG01                                                          FC5A262       33     A     
 HEADER             EQ     EXIT.                                                           HEADER       798     A     
 HEADER                                                                                    HEADER       799     A     
 HEADER                                                                                    HEADER       800     A     
 HEADER   *         LOOP THRU ARGUMENT LIST.                                               HEADER       801     A     
 HEADER                                                                                    HEADER       802     A     
 HEADER    SAL30    SA1    B4          FETCH NEXT TOKEN                                    HEADER       803     A     
 HEADER             MX0    TB.TOCL                                                         HEADER       804     A     
 HEADER             SB7    X1-O.VAR                                                        HEADER       805     A     
 HEADER             BX6    X0*X1                                                           HEADER       806     A     
 HEADER             SA6    FILL.                                                           HEADER       807     A     
 HEADER             ZR     B7,SAL34    IF LETTER                                           HEADER       808     A     
 HEADER             SB2    X1-O.STAR                                                       HEADER       809     A     
 HEADER             SB7    E.AG04      ** FILL. MUST BE LETTER OR STAR                     HEADER       810     A     
 HEADER             NZ     B2,SAL32    IF NOT LABEL PARAMETER                              HEADER       811     A     
 HEADER             SA1    MOD                                                             HEADER       812     A     
 HEADER             HX1    MO.SUB                                                          HEADER       813     A     
 HEADER             =X6    1                                                               HEADER       814     A     
 HEADER             SA6    =XN.ARP     INDICATE ALTERNATE RETURNS CODE NEC.                HEADER       815     A     
 HEADER             MI     X1,SAL52    IF SUBROUTINE -- SKIP OVER LABEL PARM               HEADER       816     A     
 HEADER             SB7    E.AG11      ** LABEL PARAMETER IN FUNCTION                      HEADER       817     A     
 HEADER                                                                                    FC50387        5     A     
 HEADER    SAL32    FATAL  B7                                                              HEADER       818          I
          -FC50667
 HEADER    SAL32    ZR     X1,E.MR1    CHECK FOR PREMATURE EOS                             FC50667        7     A     
 HEADER             FATAL  B7                                                              FC50667        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 850    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             EQ     SAL52                                                           HEADER       819     A     
 HEADER                                                                                    HEADER       820     A     
 HEADER   *         INSURE SYMBOL IN TABLE, AND MARK IT AS FORMAL PARAMETER.               HEADER       821     A     
 HEADER                                                                                    HEADER       822     A     
 HEADER    SAL34    CALL   SSY         SCAN SYMBOL TABLE                                   HEADER       823     A     
 HEADER             SX4    X0                                                              HEADER       824     A     
 HEADER             MI     B7,SAL36    IF NOT PREVIOUSLY ENCOUNTERED                       HEADER       825     A     
 HEADER             HX2    WB.FP                                                           HEADER       826     A     
 HEADER             MI     X2,SAL40    IF ALREADY KNOWN AS FP                              HEADER       827     A     
 HEADER             LX2    WB.NVARP-WB.FPP                                                 HEADER       828          I
          -FC50005
 HEADER             LX2    WB.FPP-WB.NVARP                                                 FC50005        5          I
          -FC5A192
 HEADER             PL     X2,SAL38    IF CAN STILL BE TURNED INTO FP                      HEADER       829          I
          -FC5A192
 HEADER             CLAS=  X3,WB,(EQV,COM,PARM,NLST,SAVE,ENT)                              FC5A192       40     A     
 HEADER             LX2    1+WB.FPP                                                        FC5A192       41     A     
 HEADER             BX3    X3*X2                                                           FC5A192       42     A     
 HEADER             =A1    A2-WB.W+WA.W      X1 = *WA*                                     FC5A192       43     A     
 HEADER             MX2    1                                                               FC5A192       44     A     
 HEADER             LX2    1+WA.NFPP                                                       FC5A192       45     A     
 HEADER             BX1    X2*X1       EXTRACT WA.NFP                                      FC5A192       46     A     
 HEADER             BX3    X3+X1                                                           FC5A192       47     A     
 HEADER             ZR     X3,SAL38    IF CAN BE AN FP                                     FC5A192       48     A     
 HEADER             FATAL  E.AG12      ** CANNOT BE FP                                     HEADER       830     A     
 HEADER    .FIX     SET                NEEDS CCT CALL                                      HEADER       831     A     
 HEADER             EQ     SAL50                                                           HEADER       832     A     
 HEADER                                                                                    HEADER       833     A     
 HEADER   *         FIRST APPARENCE OF SYMBOL.  TYPE IT AND ADD TO SYMTAB.                 HEADER       834          I
          -FC5A444
 HEADER   *         FIRST APPEARANCE OF SYMBOL.  TYPE IT AND ADD TO SYMTAB.                FC5A444       72     A     
 HEADER   *         IF AUTOMATIC LEVEL IS ON MARK THIS FP AS AUTO-LEVELED,                 FC5A444       73     A     
 HEADER   *         UNLESS IT HAS ALREADY BEEN EXPLICITLY LEVELED OR MADE                  FC5A444       74     A     
 HEADER   *         EXTERNAL. IF WE ARE PAST DECLARATIVE PROCESSING DON'T                  FC5A444       75     A     
 HEADER   *         SET THE WB.AL BIT SINCE NO FURTHER LEVEL STATEMENTS CAN                FC5A444       76     A     
 HEADER   *         OCCUR AND SETTING IT WILL INTERFERE WITH THE DUPLICATE                 FC5A444       77     A     
 HEADER   *         USE OF THE BIT IN EXECUTABLES FOR FLAGGING ASSIGNED GOTO               FC5A444       78     A     
 HEADER   *         VARIABLES THAT ARE NEVER ASSIGNED TO.                                  FC5A444       79     A     
 HEADER                                                                                    HEADER       835     A     
 HEADER    SAL36    CALL   STY         SET NATURAL TYPE                                    HEADER       836     A     
 HEADER             BX7    X1          SET (WB.MODE)                                       HEADER       837     A     
 HEADER             ADSYM  T.SYM                                                           HEADER       838     A     
 HEADER                                                                                    FC50387        6     A     
 HEADER    SAL38    CLAS=  X3,WB,(FP)                                                      HEADER       839     A     
 HEADER             CLAS=  X4,WB,(SFA)                                                     FC50326        9          I
          -FC5A444
 HEADER             SA4    CO.AL                                                           FC5A444       80     A     
 HEADER             PL     X4,SAL39    IF AUTOMATIC LEVEL OFF                              FC5A444       81     A     
 HEADER             CLAS=  X4,WB,(EXT,LEV)                                                 FC5A444       82     A     
 HEADER             BX4    X4*X6                                                           FC5A444       83     A     
 HEADER             NZ     X4,SAL39    IF ALREADY EXT OR LEVELED                           FC5A444       84     A     
 HEADER             CLAS=  X3,WB,(FP,LEV,AL)                                               FC5A444       85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 851    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SA4    STAGE                                                           FC5A444       86     A     
 HEADER             SX7    FEC=STF                                                         FC5A444       87     A     
 HEADER             IX4    X4-X7                                                           FC5A444       88     A     
 HEADER             MI     X4,SAL38A   IF STILL IN DECLARATIVE OR EARLIER                  FC5A444       89     A     
 HEADER             CLAS=  X3,WB,(FP,LEV)                                                  FC5A444       90     A     
 HEADER                                                                                    FC5A444       91     A     
 HEADER    SAL38A   BX7    X3                                                              FC5A444       92     A     
 HEADER             =X3    .DAL                                                            FC5A444       93     A     
 HEADER             ERRPL  .DAL-2                                                          FC5A444       94     A     
 HEADER             ZR     X3,SAL38B   IF NO LCM                                           FC5A444       95     A     
 HEADER             IFEQ   .MI,1,3                                                         FC5A444       96     A     
 HEADER             =X3    0                                                               FC5A444       97     A     
 HEADER             SA4    =XCO.TMLC                                                       FC5A444       98     A     
 HEADER             ZR     X4,SAL38B   IF TM=LCM NOT SELECTED                              FC5A444       99     A     
 HEADER             CLAS=  X3,WB,(LCM) SET LCM BIT                                         FC5A444      100     A     
 HEADER                                                                                    FC5A444      101     A     
 HEADER    SAL38B   BX7    X7+X3       ADD IN LCM BIT IF LCM PRESENT                       FC5A444      102     A     
 HEADER             BX3    X7                                                              FC5A444      103     A     
 HEADER             SA7    LEVEL                                                           FC5A444      104     A     
 HEADER             SA7    LEVEL2      FORCES CLEARING OF WB.AL AT END OF DECL             FC5A444      105     A     
 HEADER                                                                                    FC5A444      106     A     
 HEADER    SAL39    CLAS=  X4,WB,(SFA)                                                     FC5A444      107     A     
 HEADER             BX6    X6+X3                                                           HEADER       840     A     
 HEADER             BX6    -X4*X6      CLEAR STMT FUNC DUMMY ARG FLAG                      FC50326       10     A     
 HEADER             SA6    A2                                                              HEADER       841     A     
 HEADER                                                                                    HEADER       842     A     
 HEADER   *         SYMBOL NOW IN SYMTAB.  ADD TO (T.ARG).                                 HEADER       843     A     
 HEADER   *                (X0) = SYMORD                                                   HEADER       844     A     
 HEADER                                                                                    HEADER       845     A     
 HEADER    SAL40    SX6    X0                                                              HEADER       846     A     
 HEADER             BX4    X0                                                              HEADER       847     A     
 HEADER             SCAN   T.ARG,SCT   CHECK FOR DUPLICATE APPEARANCE                      HEADER       848     A     
 HEADER             MI     B7,SAL42    IF NOT ALREADY IN THIS ARGLIST                      HEADER       849     A     
 HEADER             FATAL  E.AG03                                                          HEADER       850     A     
 HEADER             EQ     SAL50                                                           HEADER       851     A     
 HEADER                                                                                    HEADER       852     A     
 HEADER    SAL42    ADDWD  A1          ADD TO LOCAL ARGLIST                                HEADER       853     A     
 HEADER                                                                                    HEADER       854     A     
 HEADER   *         SYMBOL NOW IN LOCAL ARGLIST.  INCLUDE IT IN (T.FPI).                   HEADER       855     A     
 HEADER   *                (X4) = SYMORD                                                   HEADER       856     A     
 HEADER                                                                                    HEADER       857     A     
 HEADER    SAL44    CLAS=  X6,FP,(VDS)                                                     HEADER       858          I
          -FC50010
 HEADER             BX6    -X6                                                             HEADER       859          I
          -FC50010
 HEADER             SA6    SCSA        DONT TEST ON FP.VDS                                 HEADER       860          I
          -FC50010
 HEADER    SAL44    MX6    FP.PNTL                                                         FC50010        6     A     
 HEADER             LX6    FP.PNTL+FP.PNTP                                                 FC50010        7     A     
 HEADER             SA6    SCSA        MATCH SYMORD ONLY                                   FC50010        8     A     
 HEADER             LX6    X4                                                              HEADER       861     A     
 HEADER             LX6    FP.PNTP                                                         HEADER       862     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 852    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SCAN   T.FPI,SCS                                                       HEADER       863     A     
 HEADER             PL     B7,SAL50    IF ALREADY PARAMETER                                HEADER       864     A     
 HEADER             ADDWD  A1                                                              HEADER       865     A     
 HEADER             SA1    T.SYM                                                           HEADER       866     A     
 HEADER             LX0    X4,B1                                                           HEADER       867     A     
 HEADER             BX7    X2          (N.FP) = (T=FPI)                                    HEADER       868     A     
 HEADER             =B7    X1+WB.W                                                         HEADER       869     A     
 HEADER             IX3    X0+X4       (X3) = INDEX = SYMORD * Z=SYM                       HEADER       870     A     
 HEADER             ERRNZ  3-Z=SYM                                                         HEADER       871     A     
 HEADER             SA1    X3+B7       FETCH SYMTAB (WB)                                   HEADER       872     A     
 HEADER             LX2    WB.FPNOP    (WB.FPNO) = INDEX IN (T.FPI)                        HEADER       873     A     
 HEADER             SA7    N.FP                                                            HEADER       874     A     
 HEADER             CLAS=  X0,WB,(VDS)                                                     HEADER       875     A     
 HEADER             BX6    X2+X1                                                           HEADER       876     A     
 HEADER             BX6    -X0*X6      REMOVE WB.VDS                                       HEADER       877     A     
 HEADER             SA6    A1                                                              HEADER       878     A     
 HEADER             SBIT   X1,WB.VDSP                                                      HEADER       879     A     
 HEADER             PL     X1,SAL50    IF NOT VARDIM ARRAY OR SUBSCRIPT                    HEADER       880          I
          -FC50558
 HEADER             PL     X1,SAL47    IF NOT VARDIM ARRAY OR SUBSCRIPT                    FC50558       17     A     
 HEADER             SBIT   X1,WB.ARYP/WB.VDSP                                              HEADER       881     A     
 HEADER             MI     X1,SAL50    IF ARRAY, NOTHING TO DO                             HEADER       882          I
          -FC50558
 HEADER             MI     X1,SAL47    IF ARRAY, NOTHING TO DO                             FC50558       18     A     
 HEADER             SA1    T.FPI                                                           HEADER       883     A     
 HEADER             SB7    X7-1                                                            HEADER       884     A     
 HEADER             SA1    X1+B7       FETCH T.FPI ENTRY                                   HEADER       885     A     
 HEADER             CLAS=  X6,FP,(VDS)                                                     HEADER       886     A     
 HEADER             BX6    X6+X1                                                           HEADER       887     A     
 HEADER             SA6    A1          UPDATE WITH FP.VDS                                  HEADER       888     A     
 HEADER                                                                                    HEADER       889     A     
 HEADER   *         FOR UNIQUE FORMAL PARAMETERS ON ENTRY STATEMENTS, PROCESS FOR          FC50558       19     A     
 HEADER   *         POSSIBLE ASSUMED LENGTH CHARACTER.                                     FC50558       20     A     
 HEADER                                                                                    FC50558       21     A     
 HEADER    SAL47    SA1    PSAA                                                            FC50558       22     A     
 HEADER             SA2    S=ENTRY                                                         FC50558       23     A     
 HEADER             IX2    X1-X2                                                           FC50558       24     A     
 HEADER             LX1    X4          FORMAL PARAMETER ORDINAL                            FC50558       25     A     
 HEADER             ZR     X2,SAL50    IF MAIN ENTRY POINT                                 FC50558       26     A     
 HEADER             BX6    X4                                                              FC50558       27     A     
 HEADER             SA6    SALA        SAVE ACROSS ACV CALL                                FC50558       28     A     
 HEADER             CALL   ACV         PROCESS ASSUMED LENGTH CHARACTER                    FC50558       29     A     
 HEADER             SA4    SALA        RESTORE                                             FC50558       30     A     
 HEADER             SA1    T.VDI                                                           FC50558       31     A     
 HEADER             SA2    T=VDI                                                           FC50558       32     A     
 HEADER             ZR     X2,SAL50    IF NO VARDIM                                        FC50558       33     A     
 HEADER             SB7    X2-1                                                            FC50558       34     A     
 HEADER             SA2    X1+B7       LATEST VDI ENTRY                                    FC50558       35     A     
 HEADER             MX1    VD.INDL                                                         FC50558       36     A     
 HEADER             LX1    VD.INDL+VD.INDP                                                 FC50558       37     A     
 HEADER             BX7    -X1*X2      CLEAR INDEX                                         FC50558       38     A     
 HEADER             SA7    A2          UPDATE                                              FC50558       39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 853    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER                                                                                    FC50558       40     A     
 HEADER   *         FILE CROSS-REF FOR SYMBOL.                                             HEADER       890     A     
 HEADER                                                                                    HEADER       891     A     
 HEADER    SAL50    SX6    X4          CONSTRUCT XREF ORD                                  HEADER       892     A     
 HEADER             LX6    XR.TAGP                                                         HEADER       893     A     
 HEADER             ADDREF X6,CR.CALL                                                      HEADER       894          I
          -FC50387
 HEADER             ADDREF X6,CR.REF                                                       FC50387        7     A     
 HEADER                                                                                    HEADER       895          I
          -FC50558
 HEADER             =A3    B4+1                                                            HEADER       896     A     
 HEADER             SB7    X3-O.VAR                                                        HEADER       897     A     
 HEADER             NZ     B7,SAL52    IF NOT LONG NAME                                    HEADER       898     A     
 HEADER             CALL   TLV         TRUNCATE NAME                                       HEADER       899     A     
 HEADER                                                                                    FC50387        8     A     
 HEADER    SAL52    SA3    B4+B1                                                           HEADER       900     A     
 HEADER             ZR     X3,E.MR1    IF EOS -- ERROR                                     HEADER       901     A     
 HEADER             SX2    X3-O.COMMA                                                      HEADER       902     A     
 HEADER             SB4    A3+B1       B4 = B4 + 2                                         HEADER       903     A     
 HEADER             ZR     X2,SAL30    IF *,* LOOP ON NEXT ARGUMENT                        HEADER       904     A     
 HEADER             SX2    X3-O.RP                                                         HEADER       905     A     
 HEADER             NZ     X2,E.AG08   IF NO *)* - ERROR                                   HEADER       906     A     
 HEADER                                                                                    HEADER       907     A     
 HEADER    SAL58    SA2    B4                                                              HEADER       908     A     
 HEADER             ZR     X2,EXIT.    IF *EOS*, STATEMENT ENDED CLEANLY                   HEADER       909     A     
 HEADER             ERRNZ  O.EOS                                                           HEADER       910     A     
 HEADER             WARN   E.AG02                                                          HEADER       911     A     
 HEADER             EQ     EXIT.                                                           HEADER       912     A     
 HEADER                                                                                    FC50558       41     A     
 HEADER    SALA     EQU    SCR+2       SAVE F.P. ORDINAL                                   FC50558       42     A     
 HEADER    TSB      SPACE  4,20                                                            HEADER       913     A     
 HEADER   **        TSB - TRANSLATE SUBPROGRAM BEGIN.                                      HEADER       914     A     
 HEADER   *                                                                                HEADER       915     A     
 HEADER   *         TRANSLATES OPTIONAL ARGUMENT LIST, AND PERFORMS                        HEADER       916     A     
 HEADER   *         SUBPROGRAM INITIALIZATION COMMON TO SUBROUTINE AND                     HEADER       917     A     
 HEADER   *         FUNCTION HEADER STATEMENTS.                                            HEADER       918     A     
 HEADER   *                                                                                HEADER       919     A     
 HEADER   *         CALLS  EMIT, PSA.                                                      HEADER       920     A     
 HEADER                                                                                    HEADER       921     A     
 HEADER                                                                                    HEADER       922     A     
 HEADER    TSB      SUBR   0           ENTRY/EXIT...                                       HEADER       923     A     
 HEADER             SA4    S=ENTRY                                                         HEADER       924     A     
 HEADER             RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                        HEADER       925     A     
 HEADER                                                                                    HEADER       926     A     
 HEADER             BX4    0                                                               HEADER       927     A     
 HEADER             MX5    0                                                               HEADER       928     A     
 HEADER             EMIT   V=SEX       START OF EXECUTABLES                                HEADER       929     A     
 HEADER                                                                                    HEADER       930     A     
 HEADER             SA4    TSAA                                                            HEADER       931     A     
 HEADER             CLAS=  X3,WB,(CGS,VAR)                                                 HEADER       932     A     
 HEADER             CALL   TSY         TAG SYMBOL (EXIT.)                                  HEADER       933     A     
 HEADER             EQ     EXIT.                                                           HEADER       934     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 854    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER                                                                                    HEADER       935     A     
 HEADER    TSAA     VFD    42/5LEXIT.,18/S=EXIT                                            HEADER       936     A     
 HEADER    WSA      SPACE  4,10                                                            HEADER       937     A     
 HEADER   **        WSA - WRAPUP SUBPROGRAM ARGUMENTS.                                     HEADER       938     A     
 HEADER   *                                                                                HEADER       939     A     
 HEADER   *         CALLED BY KEY/END, WHEN THERE ARE ANY FORMAL PARAMETERS TO             HEADER       940     A     
 HEADER   *         A PROCEDURE SUBPROGRAM.  THIS PROCESSING IS DEFERRED UNTIL             HEADER       941     A     
 HEADER   *         END STATEMENT, SO THAT ALL FORMAL PARAMETERS ARE KNOWN.                HEADER       942     A     
 HEADER   *         ENTER SUBPROGRAM SYMBOLS IN SYMTAB.                                    HEADER       943     A     
 HEADER                                                                                    HEADER       944     A     
 HEADER                                                                                    HEADER       945     A     
 HEADER    WSA      SUBR   =           ENTRY/EXIT...                                       HEADER       946     A     
 HEADER             SA4    WSAA                                                            HEADER       947     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                         HEADER       948     A     
 HEADER             CALL   TSY         TAG SYMBOL (SUB.)                                   HEADER       949     A     
 HEADER             SA4    A4+B1                                                           HEADER       950     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                         HEADER       951     A     
 HEADER             CALL   TSY         TAG SYMBOL (SUBI.)                                  HEADER       952     A     
 HEADER             SA4    A4+B1                                                           HEADER       953     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                         HEADER       954     A     
 HEADER             CALL   TSY         TAG SYMBOL (SUB0I.)                                 HEADER       955     A     
 HEADER             TAGSEX (=L/SP5./)  SUBSTITUTE PARAMETER ADDRESSES                      HEADER       956     A     
 HEADER             BX6    X0                                                              HEADER       957     A     
 HEADER             SA6    S=SPA                                                           HEADER       958     A     
 HEADER             TAGSEX (=L/SLI./)                                                      HEADER       959     A     
 HEADER             BX6    X0                                                              HEADER       960     A     
 HEADER             SA6    S=SLI                                                           HEADER       961     A     
 HEADER                                                                                    HEADER       962     A     
 HEADER             SA4    A4+B1                                                           HEADER       963     A     
 HEADER             SA1    N.EPL                                                           HEADER       964     A     
 HEADER             ZR     X1,WSA40    IF APL COPY NOT NEEDED                              HEADER       965     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                         HEADER       966     A     
 HEADER             CALL   TSY         TAG SYMBOL (CP.)                                    HEADER       967     A     
 HEADER             TAGSEX (=L/CPL./)                                                      HEADER       968     A     
 HEADER             SA4    A4+B1                                                           HEADER       969     A     
 HEADER             BX6    X0                                                              HEADER       970     A     
 HEADER             SA6    S=CPL                                                           HEADER       971     A     
 HEADER             CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                         HEADER       972     A     
 HEADER             CALL   TSY         TAG SYMBOL (GPL.)                                   HEADER       973     A     
 HEADER    WSA40    EQ     EXIT.                                                           HEADER       974     A     
 HEADER                                                                                    HEADER       975     A     
 HEADER    WSAA     VFD    42/4LSUB.,18/S=SUB                                              HEADER       976     A     
 HEADER             VFD    42/5LSUBI.,18/S=SUBI                                            HEADER       977     A     
 HEADER             VFD    42/6LSUB0I.,18/S=SUB0I                                          HEADER       978     A     
 HEADER                                                                                    HEADER       979     A     
 HEADER             VFD    42/3LCP.,18/S=CP                                                HEADER       980     A     
 HEADER             VFD    42/4LGPL.,18/S=GPL                                              HEADER       981     A     
 HEADER    END      SPACE  4,10                                                            HEADER       982     A     
 HEADER             LIST   D                                                               HEADER       983     A     
 HEADER             END                                                                    HEADER       984     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 855    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - HEADER  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          HEADER                     984       653
          FC5A116                      5         5
          FC5A145                    243       240
          FC50005                      1         0
          FC50010                      3         3
          FC5A192                     10         9
          F1037F5                     69        61
          FC5A231                      5         5
          FC5A262                     13        13
          FC50110                      1         1
          FC50353                      4         2
          FC50387                      4         4
          FC50409                      2         2
          F1039                        7         3
          FC50326                      2         1
          FC50496                     71        70
          FC50512                     18        18
          FC50558                     32        32
          FC50667                      2         2
          FC50729                      6         6
          FC50731                     34        33
          FC5A444                     42        42
          FC50962                     12        12
          FC50969                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *DECK     KEY - KEYWORD STATEMENT TRANSLATION.                                   KEY            1     A     
 KEY                IDENT  KEY                                                             KEY            2     A     
 KEY       KEY      SECT   (KEYWORD STATEMENT TRANSLATION.)                                KEY            3     A     
 KEY       KEY      SPACE  4                                                               KEY            4     A     
 KEY      *         IN ALLOC                                                               KEY            5     A     
 KEY                EXT    ADW,ALC                                                         KEY            6     A     
 KEY                                                                                       KEY            7     A     
 KEY      *         IN FEC                                                                 KEY            8     A     
 KEY                EXT    ARGCOMA,ARGMODE,ASK,ASL,ASSTAG,CALLTAG,CCT,CSB,CSLTAG           KEY            9     A     
 KEY                EXT    CT1,CUS.RET,DTI,ERT,ESTACK,ESY,FEC=STF,FEC.RIF,FEC.RTF          KEY           10     A     
 KEY                EXT    FEC.RTN,FLOW,HANGER,IFLEVEL,NOPATH,OCT,REFLIN                   KEY           11          I
          -FC50265
 KEY                EXT    FEC.RTN,FLOW,HANGER,IFLEVEL,NOPATH,OCT,OIL,REFLIN               FC50265        7     A     
 KEY                EXT    REFNUM,REFVAR,RTNCNT,SCT,SSY,STAGE,STY,TLV,TRV,TSX              KEY           12     A     
 KEY                EXT    WANFP                                                           FC5A192       49     A     
 KEY                                                                                       KEY           13     A     
 KEY                                                                                       KEY           14     A     
 KEY      *         IN FERRS                                                               KEY           15     A     
 KEY                EXT    E.ANS,E.ANS3,E.AS1,E.AS2,E.AS3,E.AS4,E.AS5,E.CL1,E.CL2          KEY           16     A     
 KEY                EXT    E.CL3,E.CT,E.CT1,E.EN,E.EN1,E.EN2,E.EN3,E.EN4,E.EN5             KEY           17     A     
 KEY                EXT    E.EN6,E.EN7,E.EN8,E.FM,E.GO,E.GO1,E.GO2,E.GO3,E.GO4             KEY           18     A     
 KEY                EXT    E.GO5,E.GO6,E.GO7,E.GO8,E.GO9                                   KEY           19          I
          -FC5A184
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 856    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                EXT    E.GO5,E.GO6,E.GO7,E.GO8,E.GO9,E.AS7,CLASS,FILL.2                FC5A184       38     A     
 KEY                EXT    E.IF00,E.IF01,E.IF02,E.IF03,E.IF04,E.IF05,E.IF06,E.IF07         KEY           20     A     
 KEY                EXT    E.IF09,E.IF10,E.IF11,E.IF12,E.IF13,E.IF14,E.IF15,E.MDO          KEY           21     A     
 KEY                EXT    E.ME1,E.MR2,E.MR3,E.NL,E.NL1,E.NL2,E.NL3,E.NL4,E.OV3            KEY           22     A     
 KEY                EXT    E.SPR1,E.SPR2,E.SPR3,E.SPR4,E.SPR5,FILL.,FILL.3                 KEY           23          I
          -FC5A126
 KEY                EXT    MOD.DPC                                                         KEY           24          I
          -FC5A126
 KEY                EXT    E.SPR1,E.SPR2,E.SPR4,E.SPR5,FILL.,FILL.3,MOD.DPC                FC5A126       32     A     
 KEY                                                                                       KEY           25          I
          -FC51193
 KEY                EXT    E.NL5                                                           FC51193       12     A     
 KEY                                                                                       FC51193       13     A     
 KEY      *         IN HEADER                                                              KEY           26     A     
 KEY                EXT    PSA,WSA                                                         KEY           27     A     
 KEY                                                                                       KEY           28     A     
 KEY      *         IN IDP                                                                 KEY           29     A     
 KEY                EXT    IDP=                                                            KEY           30     A     
 KEY                                                                                       KEY           31     A     
 KEY      *         IN LABEL                                                               KEY           32     A     
 KEY                EXT    FBS,ISL,PDA,PSL,RBE,STL0R                                       KEY           33          I
          -FC5A341
 KEY                EXT    ALU,FBS,ISL,PDA,PSL,RBE,STL0R                                   FC5A341        6     A     
 KEY                                                                                       KEY           34     A     
 KEY      *         IN LEX                                                                 KEY           35     A     
 KEY                EXT    CST,SB=CONT,TB=LABR,TB=TYPE,TB=1ST                              KEY           36          I
          -FC5A341
 KEY                EXT    CST,SB=CONT,TB=LABL,TB=LABR,TB=TYPE,TB=1ST                      FC5A341        7     A     
 KEY                                                                                       KEY           37     A     
 KEY      *         IN PAR                                                                 KEY           38     A     
 KEY                EXT    CALLARM,CMR,CURST,C=CERR,CF=AC,EAL,ECC,EMT,GAPOP,IFARM          KEY           39     A     
 KEY                EXT    NOOPP,OPDUM,PAR,PJXARM,POP.STD,VEL                              KEY           40     A     
 KEY                                                                                       KEY           41     A     
 KEY      *         IN PEM                                                                 KEY           42     A     
 KEY                EXT    ANSI=,PDM                                                       KEY           43     A     
 KEY                                                                                       KEY           44     A     
 KEY      *         IN PUC                                                                 KEY           45     A     
 KEY                EXT    CONZER,CONZERI,LJS,MOD,NOLIST,N.ARP,N.FP,N.GL                   KEY           46          I
          -FC50451
 KEY                EXT    CONZER,CONZERI,LJS,MOD,NOLIST,N.ARP,N.FP,N.GL,S=ENTRY           FC50451        6     A     
 KEY                EXT    S=EXIT,S=TRACE,S=VALUE,T=ARG,T=BLST,T=NLST,T=PAR                KEY           47     A     
 KEY                EXT    T.ARG,T.ASG,T.BLST,T.DIM,T.ENT,T.NLST,T.PAR                     KEY           48     A     
 KEY                EXT    T.SYM,WO.LOA,WO.LOR,T.CON,T.SLARG,T=SLARG                       KEY           49     A     
 KEY                                                                                       KEY           50     A     
 KEY      *         IN QSKEL                                                               KEY           51          I
          -FC50483
 KEY      *         IN QSKEL/FSKEL                                                         FC50483        6     A     
 KEY                EXT    F.IFN,F.IFS,OM=IF,V=AGOTO,V=ASSGN,V=BSS,V=CGOTO,V=ENTR          KEY           52     A     
 KEY                EXT    V=GOTO,V=IFF,V=IFT,V=I111,V=JGOTO,V=NOOP,V=PAUS,V=RET           KEY           53     A     
 KEY                EXT    V=RGOTO,V=RTNK,V=STOP,V=SUBR                                    KEY           54     A     
 KEY                                                                                       KEY           55     A     
 KEY      *         IN UTILITY                                                             KEY           56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 857    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                EXT    MVE=,ZTB                                                        KEY           57     A     
 KEY       AGN      SPACE  4,20                                                            KEY           58     A     
 KEY      **        AGN -  PROCESS "ASSIGN" STATEMENT.                                     KEY           59     A     
 KEY                                                                                       KEY           60     A     
 KEY                                                                                       KEY           61     A     
 KEY                HEREIF ASSIGN                                                          KEY           62     A     
 KEY                SA4    B4                                                              KEY           63     A     
 KEY                SB7    X4-O.CONS                                                       KEY           64     A     
 KEY                NZ     B7,E.AS4    IF NO LABEL                                         KEY           65     A     
 KEY                                                                                       KEY           66     A     
 KEY                CALL   ASL         ADJUST STATEMENT LABEL                              KEY           67     A     
 KEY                =X6    CR.STR                                                          KEY           68     A     
 KEY                =X7    CR.AGN                                                          KEY           69     A     
 KEY                =X2    0           NO REFERENCE BITS FOR ASSIGNED LABEL                KEY           70     A     
 KEY                SA6    REFVAR                                                          KEY           71     A     
 KEY                BX6    X1                                                              KEY           72     A     
 KEY                SA7    REFNUM                                                          KEY           73     A     
 KEY                CALL   ISL         IDENTIFY STATEMENT LABEL                            KEY           74     A     
 KEY                MI     X6,PSL      IF ERROR IN STATEMENT LABEL                         KEY           75     A     
 KEY                SA1    T.SYM                                                           KEY           76     A     
 KEY                MX2    -TP.ORDL                                                        KEY           77     A     
 KEY                LX6    -TP.ORDP                                                        KEY           78     A     
 KEY                BX2    -X2*X6      EXTRACT SYMORD                                      KEY           79     A     
 KEY                SB7    X2                                                              KEY           80     A     
 KEY                LX2    1                                                               KEY           81     A     
 KEY                SB7    X2+B7       CONVERT TO INDEX                                    KEY           82     A     
 KEY                =B7    B7+WB.W                                                         KEY           83     A     
 KEY                SA1    X1+B7       X1 = *WB* OF LABEL                                  KEY           84     A     
 KEY                CLAS=  X2,WB,(ACT)                                                     KEY           85     A     
 KEY                BX7    X2+X1       INDICATE LABEL IS ACTIVE                            KEY           86     A     
 KEY                SA7    A1          UPDATE *WB*                                         KEY           87     A     
 KEY                LX6    TP.ORDP     RESTORE X6                                          KEY           88     A     
 KEY                SA1    B4                                                              KEY           89     A     
 KEY                CLAS=  X2,TP,(ADDR)                                                    KEY           90     A     
 KEY                BX6    X6+X2       MERGE IN TP.ADDR BIT                                KEY           91     A     
 KEY                SA6    ASSTAG      SAVE LABEL TAG                                      KEY           92     A     
 KEY                SB7    X1-O.COMMA                                                      KEY           93     A     
 KEY                NZ     B7,AGN2     IF NO COMMA                                         KEY           94     A     
 KEY                =B4    B4+1                                                            KEY           95     A     
 KEY                WARN   E.AS5                                                           KEY           96     A     
 KEY                                                                                       KEY           97     A     
 KEY       AGN2     SA5    =0LTO                                                           KEY           98     A     
 KEY                SA1    B4                                                              KEY           99     A     
 KEY                MX0    2*CHAR                                                          KEY          100     A     
 KEY                BX6    X0*X1                                                           KEY          101     A     
 KEY                BX3    X0*X5                                                           KEY          102     A     
 KEY                IX3    X3-X6                                                           KEY          103     A     
 KEY                ZR     X3,AGN4     IF *TO*                                             KEY          104     A     
 KEY                SA6    FILL.                                                           KEY          105     A     
 KEY                WARN   E.AS2                                                           KEY          106     A     
 KEY                                                                                       KEY          107     A     
 KEY       AGN4     SX5    1+=0                                                            KEY          108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 858    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SX3    2*CHAR-1                                                        KEY          109     A     
 KEY                LX3    KW.LENP                                                         KEY          110     A     
 KEY                BX5    X3+X5       PSEUDO *SATTR* FOR ASK                              KEY          111     A     
 KEY                CALL   ASK         ADJUST STATEMENT KEYWORD *TO*                       KEY          112     A     
 KEY                SB2    0           ENTRY NOT ALLOWED                                   KEY          113     A     
 KEY                CALL   TRV         TRANSLATE THE VARIABLE                              KEY          114     A     
 KEY                MI     X0,PSL      IF TRV DETECTED ERROR                               KEY          115     A     
 KEY                CLAS=  X4,WB,(SFA)                                                     FC50326       11     A     
 KEY                CLAS=  X3,WB,(VAR,DEF)                                                 KEY          116          I
          -FC5A184
 KEY                CLAS=  X3,WB,(VAR,DEF,AGN)                                             FC5A184       39     A     
 KEY                BX7    X3+X2                                                           KEY          117     A     
 KEY                BX7    -X4*X7      CLEAR WB.SFA (IF PRESENT)                           FC50326       12     A     
 KEY                SA7    A2          UPDATE SYMTAB (WB) AS *DEFINED*                     KEY          118     A     
 KEY                =A3    B4+1                                                            KEY          119     A     
 KEY                MX7    -WB.MODEL                                                       KEY          120     A     
 KEY                BX5    X6          REMEMBER (X5) = PASS 1 TAG-FORM                     KEY          121     A     
 KEY                LX2    -WB.MODEP                                                       KEY          122     A     
 KEY                BX1    -X7*X2      EXTRACT (X1) = MODE OF SYMBOL                       KEY          123     A     
 KEY                SB5    B7          SAVE *WB* INDEX FOR LATER EQUIVALENCE TEST          KEY          124     A     
 KEY                =B4    B4+1        BUMP B4 FOR POSSIBLE ERROR MESSAGE                  KEY          125     A     
 KEY                SB7    X1-M.INT                                                        KEY          126     A     
 KEY                ZR     B7,AGN5     IF INTEGER VARIABLE                                 KEY          127     A     
 KEY                WARN   E.AS3                                                           KEY          128     A     
 KEY                                                                                       KEY          129     A     
 KEY       AGN5     ZR     X3,AGN7     IF NEXT ELEMENT *EOS*                               KEY          130          I
          -FC5A184
 KEY       AGN5     ZR     X3,AGN6     IF NEXT ELEMENT *EOS*                               FC5A184       40     A     
 KEY                ERRNZ  O.EOS                                                           KEY          131     A     
 KEY                WARN   E.AS1                                                           KEY          132     A     
 KEY                                                                                       KEY          133     A     
 KEY       AGN6     LX2    WB.MODEP-WB.ARYP-1                                              FC5A184       41     A     
 KEY                PL     X2,AGN7     IF NOT AN ARRAY                                     FC5A184       42     A     
 KEY                SA4    CLASS+WB.ARYP                                                   FC5A184       43     A     
 KEY                BX7    X4                                                              FC5A184       44     A     
 KEY                SA7    FILL.2                                                          FC5A184       45     A     
 KEY                =A4    B4-1        X4 = VAR TOKEN                                      FC5A184       46     A     
 KEY                MX7    WA.SYML                                                         FC5A184       47     A     
 KEY                BX7    X7*X4       X7 = 0LSYMBOL                                       FC5A184       48     A     
 KEY                SA7    FILL.                                                           FC5A184       49     A     
 KEY                FATAL  E.AS7       ** CONFLICT - VAR PREVIOUSLY USED AS ARRAY          FC5A184       50     A     
 KEY                                                                                       FC5A184       51     A     
 KEY       AGN7     SA4    ASSTAG      (P1) = STATEMENT LABEL                              KEY          134     A     
 KEY      *         =X5    X5          (P2) = VARIABLE                                     KEY          135     A     
 KEY                EMIT   V=ASSGN,2ND                                                     KEY          136     A     
 KEY                                                                                       KEY          137     A     
 KEY      *                (B5) = *WB* INDEX OF VARIABLE                                   KEY          138     A     
 KEY                                                                                       KEY          139     A     
 KEY                SA1    T.SYM                                                           KEY          140     A     
 KEY                SA2    X1+B5       FETCH *WB* ENTRY                                    KEY          141     A     
 KEY                SBIT   X2,WB.EQVP                                                      KEY          142     A     
 KEY                PL     X2,AGN8     IF NOT EQUIVALENCED                                 KEY          143     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 859    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                =A1    A2-WB.W+WC.W                                                    KEY          144     A     
 KEY                LX2    WB.EQVL+WB.EQVP                                                 KEY          145     A     
 KEY                MX0    WB.BASEL                                                        KEY          146     A     
 KEY                HX2    WB.BASE                                                         KEY          147     A     
 KEY                BX2    X0*X2       ISOLATE BASE MEMBER ORDINAL                         KEY          148     A     
 KEY                LX2    WB.BASEL                                                        KEY          149     A     
 KEY                HX1    WC.RA                                                           KEY          150     A     
 KEY                AX1    -WC.RAL     ISOLATE RELATIVE ADDRESS (BIAS)                     KEY          151     A     
 KEY                LX2    AG.ORDP                                                         KEY          152     A     
 KEY                LX1    AG.BIASP                                                        KEY          153     A     
 KEY                BX1    X1+X2                                                           KEY          154     A     
 KEY                EQ     AGN9                                                            KEY          155     A     
 KEY                                                                                       KEY          156     A     
 KEY       AGN8     MX0    TP.ORBIL                                                        KEY          157     A     
 KEY                HX5    TP.ORBI                                                         KEY          158     A     
 KEY                BX1    X0*X5       ISOLATE (X1) = ORBI OF VARIABLE                     KEY          159     A     
 KEY                LX1    -TP.ORBIP+AG.ORBIP                                              KEY          160     A     
 KEY       AGN9     HX4    TP.ORD                                                          KEY          161     A     
 KEY                AX4    -TP.ORDL    ISOLATE (X4) = SYMORD OF LABEL                      KEY          162     A     
 KEY                LX4    AG.LABP                                                         KEY          163     A     
 KEY                BX6    X1+X4       T.ASG ENTRY                                         KEY          164     A     
 KEY                SCAN   T.ASG,SCT                                                       KEY          165     A     
 KEY                PL     B7,PSL      IF ALREADY IN TABLE                                 KEY          166     A     
 KEY                ADDWD  T.ASG                                                           KEY          167     A     
 KEY                EQ     PSL         EXIT...                                             KEY          168     A     
 KEY       BRK      SPACE  4,10                                                            KEY          169     A     
 KEY      **        BRK - PROCESS *BREAK* STMT.                                            KEY          170     A     
 KEY                                                                                       KEY          171     A     
 KEY                                                                                       KEY          172     A     
 KEY       .T       IFEQ   TEST,ON                                                         KEY          173     A     
 KEY                HEREIF BREAK                                                           KEY          174     A     
 KEY                                                                                       KEY          175     A     
 KEY       FTNBREAK BREAK                                                                  KEY          176     A     
 KEY                EQ     FEC.RTN                                                         KEY          177     A     
 KEY       .T       ENDIF                                                                  KEY          178     A     
 KEY       CLL      SPACE  4,20                                                            KEY          179     A     
 KEY      **        CLL -  PROCESS "CALL" STATEMENT.                                       KEY          180     A     
 KEY                                                                                       KEY          181     A     
 KEY                                                                                       KEY          182     A     
 KEY                HEREIF CALL                                                            KEY          183     A     
 KEY                                                                                       KEY          184     A     
 KEY                SHRINK T=SLARG,0                                                       KEY          185     A     
 KEY                SHRINK T=ARG,0                                                         KEY          186     A     
 KEY                SX7    CR.SUB                                                          KEY          187     A     
 KEY                SA7    REFVAR      INITIALIZE REFERENCE TYPE                           KEY          188     A     
 KEY                SA1    B4          LOAD SUBROUTINE NAME                                KEY          189     A     
 KEY                MX0    TB.TOCL                                                         KEY          190     A     
 KEY                SB7    X1-O.VAR                                                        KEY          191     A     
 KEY                ERRNZ  18-TB.TOTL                                                      KEY          192     A     
 KEY                HX1    TB.TOC                                                          KEY          193     A     
 KEY                BX6    X0*X1                                                           KEY          194     A     
 KEY                SA6    FILL.                                                           KEY          195     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 860    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA6    CALLSYM                                                         KEY          196     A     
 KEY                NZ     B7,E.CL2    IF SUBROUTINE NAME MISSING                          KEY          197     A     
 KEY                CALL   SSY         SCAN SYMBOL TABLE                                   KEY          198     A     
 KEY                MI     B7,CLL24    IF NAME NOT PREVIOUSLY ENCOUNTERED                  KEY          199     A     
 KEY                CLAS=  X3,WB,(VAR,ENT,INTF,GENF)                                       KEY          200          I
          -FC50207
 KEY                CLAS=  X3,WB,(VAR,ENT,INTF,GENF,PARM,NLST)                             FC50207        5     A     
 KEY                SX1    WB.SUBP                                                         KEY          201     A     
 KEY                CALL   CCT         CHECK FOR CONFLICTING TYPE                          KEY          202     A     
 KEY                MI     X0,PSL      IF CLASS CONFLICT                                   KEY          203     A     
 KEY                CLAS=  X3,WB,(NVAR,EXT,SUB)                                            KEY          204     A     
 KEY                SBIT   X2,WB.FUNP                                                      KEY          205     A     
 KEY                PL     X2,CLL22    IF NOT A FUNCTION                                   KEY          206     A     
 KEY                MX3    0                                                               KEY          207     A     
 KEY                WARN   E.CL3       FUNCTION USED AS SUBROUTINE                         KEY          208     A     
 KEY                                                                                       KEY          209     A     
 KEY       CLL22    LX2    1+WB.FUNP   RESTORE (X2) = SYMTAB (WB.) ENTRY                   KEY          210          I
          -FC5A338
 KEY       CLL22    SBIT   X2,WB.TYPP/WB.FUNP                                              FC5A338       14     A     
 KEY                PL     X2,CLL23    IF NOT TYPED                                        FC5A338       15     A     
 KEY                WARN   E.CL4       **SUBROUTINE APPEARED IN TYPE DECLARATION           FC5A338       16     A     
 KEY                                                                                       FC5A338       17     A     
 KEY       CLL23    LX2    1+WB.TYPP   RESTORE (X2) = SYMTAB (WB.) ENTRY                   FC5A338       18     A     
 KEY                BX7    X3+X2                                                           KEY          211     A     
 KEY                SA7    A2+         UPDATE SYMBOL ATTRIBUTES                            KEY          212     A     
 KEY                EQ     CLL30                                                           KEY          213     A     
 KEY                                                                                       KEY          214     A     
 KEY       CLL24    CLAS=  X3,WB,(NVAR,EXT,SUB)                                            KEY          215     A     
 KEY                BX7    X3                                                              KEY          216     A     
 KEY                MX2    0           *WC*                                                KEY          217     A     
 KEY                ADSYM  A1          ENTER ROUTINE NAME IN SYMTAB                        KEY          218     A     
 KEY                                                                                       KEY          219     A     
 KEY      **        ROUTINE TO CALL IS NOW IN THE SYMTAB.                                  KEY          220     A     
 KEY      *                (X0) = SYMORD.                                                  KEY          221     A     
 KEY                                                                                       KEY          222     A     
 KEY       CLL30    BX5    X0                                                              KEY          223     A     
 KEY                LX0    XR.TAGP                                                         KEY          224     A     
 KEY                ADDREF X0,CR.SUB                                                       KEY          225     A     
 KEY                BX0    X5                                                              KEY          226     A     
 KEY                CALL   CT1         CONSTRUCT (TP) FORM OPERAND                         KEY          227     A     
 KEY                SA2    T=BLST                                                          KEY          228     A     
 KEY                ZR     X2,CLL33    IF NO BLOCK STRUCTURES                              KEY          229     A     
 KEY                CLAS=  X0,WB,(DLER)  LOOP HAS EXTERNAL REFERENCE                       KEY          230     A     
 KEY                CALL   PDA         PROPOGATE DO LOOP ATTRIBUTES                        KEY          231     A     
 KEY       CLL33    MX7    0                                                               KEY          232     A     
 KEY                SA6    CALLTAG     SAVE OPERAND OF ROUTINE TO CALL                     KEY          233     A     
 KEY                =A1    B4+1                                                            KEY          234     A     
 KEY                SB2    X1-O.VAR                                                        KEY          235     A     
 KEY                SA7    CLLA        INDICATE NO LABEL PARAMETERS                        KEY          236     A     
 KEY                NZ     B2,CLL35    IF NOT LONG NAME                                    KEY          237     A     
 KEY                CALL   TLV         TRUNCATE NAME                                       KEY          238     A     
 KEY                =A1    B4+1                                                            KEY          239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 861    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       CLL35    SB2    X1-O.LP                                                         KEY          240     A     
 KEY                NZ     B2,CLL60    IF NO LPAREN -- NO PARAMETER LIST                   KEY          241     A     
 KEY                =B4    B4+1        POINT TO *(*                                        KEY          242     A     
 KEY                =X6    O.SLP                                                           KEY          243     A     
 KEY                SA6    A1          SET DUMMY *(* FOR PARSER                            KEY          244     A     
 KEY                =A1    B4+1                                                            KEY          245     A     
 KEY                SB7    X1-O.RP                                                         KEY          246     A     
 KEY                =A1    A1+1                                                            KEY          247     A     
 KEY                ZR     B7,CLL60    IF EXPLICIT NULL PARAMETER LIST                     KEY          248     A     
 KEY                SA1    CALLARM                                                         KEY          249     A     
 KEY       .T       IFEQ   TEST,ON                                                         KEY          250     A     
 KEY                SA2    T=ARG                                                           KEY          251     A     
 KEY                NZ     X2,"BLOWUP" IF GARBAGE LEFT IN (T.ARG)                          KEY          252     A     
 KEY       .T       ENDIF                                                                  KEY          253     A     
 KEY                BX6    X1                                                              KEY          254     A     
 KEY                MX7    0           ARGCOMA = 0                                         KEY          255     A     
 KEY                SA7    ARGCOMA                                                         KEY          256     A     
 KEY                SA6    ARGMODE                                                         KEY          257     A     
 KEY                CALL   PAR         PARSE / EMIT PARAMETER LIST                         KEY          258     A     
 KEY                SA5    CF=AC       (2OP) = NUMBER OF ARGUMENTS                         KEY          259     A     
 KEY                NO                                                                     KEY          260     A     
 KEY                LX5    TP.BIASP                                                        KEY          261     A     
 KEY                                                                                       KEY          262     A     
 KEY      *         HERE WHEN ALL ARGUMENTS HAVE BEEN PROCESSED.                           KEY          263     A     
 KEY      *         EMIT RETURN JUMP TO THE EXTERNAL,                                      KEY          264     A     
 KEY      *         EMIT INDEXED JUMP TO ALTERNATE RETURN LABELS, AND                      KEY          265     A     
 KEY      *         EXIT TO FRONT END CONTROLLER.                                          KEY          266     A     
 KEY      *                (X5) = NUMBER OF ARGS IN THIS CALL, IN BIAS FIELD.              KEY          267     A     
 KEY                                                                                       KEY          268     A     
 KEY       CLL40    SA4    CALLTAG                                                         KEY          269     A     
 KEY                EMIT   V=SUBR      (CALLTAG, NARGS)                                    KEY          270     A     
 KEY                SA3    CLLA                                                            KEY          271     A     
 KEY                SA2    CONZERI                                                         KEY          272     A     
 KEY                ZR     X3,CLL48    IF NO LABELS IN PARAMETER LIST                      KEY          273     A     
 KEY                SA1    A3+B1                                                           KEY          274     A     
 KEY                LX3    TP.BIASP                                                        KEY          275     A     
 KEY                LX1    TP.BIASP                                                        KEY          276     A     
 KEY                BX5    X3+X2       (2OP) = NUMBER OF LABEL ARGS                        KEY          277     A     
 KEY                BX4    X1+X2       (1OP) = NUMBER OF NORMAL ARGS                       KEY          278     A     
 KEY                EMIT   V=RGOTO,BOTH                                                    KEY          279     A     
 KEY                SA4    CLLC        (3OP) = GL                                          KEY          280     A     
 KEY                MX5    0           (4OP) = NIL                                         KEY          281          I
          -FC50265
 KEY                EMIT   V=BSS                                                           KEY          282          I
          -FC50265
 KEY                RJ     EGL         EMIT GENERATED LABEL                                FC50265        8     A     
 KEY                                                                                       KEY          283     A     
 KEY       CLL48    SA1    T=PAR                                                           KEY          284     A     
 KEY                SX6    X1-1        INHIBIT SQUEEZE ACROSS CALL                         KEY          285     A     
 KEY                SA6    CURST                                                           KEY          286     A     
 KEY                EQ     PSL         EXIT...                                             KEY          287     A     
 KEY                                                                                       KEY          288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 862    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY          289     A     
 KEY      *         HERE IF PARAMETER LIST OMITTED.                                        KEY          290     A     
 KEY                                                                                       KEY          291     A     
 KEY       CLL60    ZR     X1,CLL62    IF EOS                                              KEY          292     A     
 KEY                FATAL  E.CL1       ** MISSING LPAREN AT BEGINNING OF PARM LIST         KEY          293     A     
 KEY       CLL62    SA4    CALLTAG                                                         KEY          294     A     
 KEY                MX7    0           ARGCOUNT = 0                                        KEY          295     A     
 KEY                CALL   VEL         VALIDATE EXTERNAL LIST                              KEY          296     A     
 KEY                MX5    0           (2OP) = ARGCOUNT                                    KEY          297     A     
 KEY                EQ     CLL40                                                           KEY          298     A     
 KEY                                                                                       KEY          299     A     
 KEY       CLLA     BSS    1           NUMBER OF LABEL ARGS                                KEY          300     A     
 KEY       CLLB     BSS    1           NUMBER OF NORMAL ARGS                               KEY          301     A     
 KEY       CLLC     BSS    1           GL FOR LABEL RETURN ARGS                            KEY          302     A     
 KEY       CALLSYM  EQU    CLLB        NAME OF SUBROUTINE                                  KEY          303     A     
 KEY       CRL      SPACE  4,20                                                            KEY          304     A     
 KEY      **        CRL - PROCESS CALL STATEMENT ALTERNATE RETURN LABELS.                  KEY          305     A     
 KEY      *                                                                                KEY          306     A     
 KEY      *         ENTRY  (A2,X2) = NL = (T=ARG)        */ NUMBER OF LABEL ARGS           KEY          307     A     
 KEY      *                (CF=AC) = NA                  */ TOTAL ARG COUNT                KEY          308     A     
 KEY      *                (T.ARG) = NORMAL ARGUMENTS.                                     KEY          309     A     
 KEY      *                (T.SLARG) = ALTERNATE RETURN LABELS.                            KEY          310     A     
 KEY      *                                                                                KEY          311     A     
 KEY      *         EXIT   (CF=AC) = NA + 1              */ TO ACCOUNT FOR THE GL          KEY          312     A     
 KEY      *                (CLLA) = NL.                                                    KEY          313     A     
 KEY      *                (CLLB) = NA - NL              */ NUMBER OF NORMAL ARGS          KEY          314     A     
 KEY      *                (CLLC) = GL OPERAND.                                            KEY          315     A     
 KEY      *                ALL ARGS ON T.ARG.                                              KEY          316     A     
 KEY      *                RETURN GL ON T.ARG BETWEEN NORMAL AND LABEL ARGS.               KEY          317     A     
 KEY      *                                                                                KEY          318     A     
 KEY      *         USES   A1-4,A6-7   X0-4,X6-7  B2-3,7.                                  KEY          319     A     
 KEY      *         CALLS  MOVE.                                                           KEY          320     A     
 KEY                                                                                       KEY          321     A     
 KEY                                                                                       KEY          322     A     
 KEY       CRL      SUBR   =           ENTRY/EXIT...                                       KEY          323     A     
 KEY                SA3    CF=AC                                                           KEY          324     A     
 KEY                BX6    X2          (CLLA) = NL                                         KEY          325     A     
 KEY                IX7    X3-X2       (CLLB) = NA - NL                                    KEY          326     A     
 KEY                SA4    N.GL                                                            KEY          327     A     
 KEY                SA6    CLLA                                                            KEY          328     A     
 KEY                =A7    A6-CLLA+CLLB                                                    KEY          329     A     
 KEY                SX7    X3+B1       (CF=AC) = NA + 1                                    KEY          330     A     
 KEY                SA7    A3                                                              KEY          331     A     
 KEY                SX7    X4+B1       ADVANCE GL COUNT                                    KEY          332     A     
 KEY                CLAS=  X1,TP,(GL)                                                      KEY          333     A     
 KEY                LX4    TP.ORDP                                                         KEY          334     A     
 KEY                BX6    X4+X1       CONSTRUCT GL FOR RETURN                             KEY          335     A     
 KEY                SA7    A4                                                              KEY          336     A     
 KEY                SA6    CLLC                                                            KEY          337     A     
 KEY                ADDWD  T.ARG       STACK RETURN GL                                     KEY          338     A     
 KEY                SA5    T=SLARG     X5 = NUMBER OF ALTERNATE RETURNS                    KEY          339     A     
 KEY                BX4    X2          SAVE OLD T.ARG LENGTH                               KEY          340     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 863    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ALLOC  A1,X5                                                           KEY          341     A     
 KEY                IX3    X1+X4       X3 = DESTINATION OF MOVE                            KEY          342     A     
 KEY                SA2    T.SLARG     X2 = SOURCE                                         KEY          343     A     
 KEY                MOVE   X5,X2,X3                                                        KEY          344     A     
 KEY                SHRINK T=SLARG,0   SET (T.SLARG) EMPTY                                 KEY          345     A     
 KEY                EQ     EXIT.                                                           KEY          346     A     
 KEY       CON      SPACE  4,10                                                            KEY          347     A     
 KEY      **        CON -  PROCESS "CONTINUE" STATEMENT.                                   KEY          348     A     
 KEY      *                                                                                KEY          349     A     
 KEY      *         EXIT   TO FRONT END CONTROLLER.                                        KEY          350     A     
 KEY                                                                                       KEY          351     A     
 KEY                                                                                       KEY          352     A     
 KEY                HEREIF CONTINUE                                                        KEY          353     A     
 KEY                                                                                       KEY          354     A     
 KEY                =A2    B4                                                              KEY          355     A     
 KEY                SA4    TB=LABR                                                         KEY          356     A     
 KEY                ZR     X2,CON2     IF EOS                                              KEY          357     A     
 KEY                ERRNZ  O.EOS                                                           KEY          358     A     
 KEY                WARN   E.CT1                                                           KEY          359     A     
 KEY       CON2     SA2    INIF                                                            KEY          360     A     
 KEY                ZR     X2,CON4     IF *CONTINUE* NOT OBJECT OF *IF*                    KEY          361     A     
 KEY                TRIV   E.GO5       IF RESULTS IN A TRANSFER TO NEXT LINE               KEY          362     A     
 KEY                EQ     PSL         EXIT...                                             KEY          363     A     
 KEY                                                                                       KEY          364     A     
 KEY       CON4     ZR     X4,E.CT     IF NO STATEMENT LABEL                               KEY          365     A     
 KEY                EQ     PSL         EXIT...                                             KEY          366     A     
 KEY       END      SPACE  4,20                                                            KEY          367     A     
 KEY      **        END - PROCESS *END* STATEMENT.                                         KEY          368     A     
 KEY      *                                                                                KEY          369     A     
 KEY      *         EXIT   TO FRONT END CONTROLLER *FEC*.                                  KEY          370     A     
 KEY                                                                                       KEY          371     A     
 KEY                                                                                       KEY          372     A     
 KEY                HEREIF END                                                             KEY          373     A     
 KEY                                                                                       KEY          374     A     
 KEY                SA1    =XSB=CONT                                                       KEY          375          I
          -FC5A127
 KEY                NZ     X1,=XE.OV3  IF *END* NOT ON 1 LINE                              KEY          376          I
          -FC5A127
 KEY                SA1    SB=CONT                                                         FC5A127       13     A     
 KEY                NZ     X1,E.OV3    IF *END* NOT ON ONE LINE                            FC5A127       14     A     
 KEY                                                                                       KEY          377     A     
 KEY       END23    BSSENT 0           RETURN FROM ERROR PROCESSOR (MISSING END)           KEY          378     A     
 KEY                                                                                       KEY          379     A     
 KEY      *         HEREIF EOS                                                             KEY          380     A     
 KEY                                                                                       KEY          381     A     
 KEY                SA1    NOLIST                                                          KEY          382     A     
 KEY                SA3    WO.LOA                                                          KEY          383     A     
 KEY                SA4    WO.LOR                                                          KEY          384     A     
 KEY                MI     X1,END20    IF IN *LIST,ALL* MODE AT END LINE TIME              KEY          385     A     
 KEY                                                                                       KEY          386     A     
 KEY      *         HERE IF IN *LIST,NONE* MODE AT END LINE TIME.                          KEY          387     A     
 KEY                                                                                       KEY          388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 864    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                MX6    0                                                               KEY          389     A     
 KEY                SA6    A3+         SET TO *NO ATTRIBUTES*                              KEY          390     A     
 KEY                SA6    A4          SET TO *NO REFERENCE MAP*                           KEY          391     A     
 KEY                                                                                       KEY          392     A     
 KEY       END20    SA1    B4                                                              KEY          393     A     
 KEY                ZR     X1,END26    IF END OF STATEMENT                                 KEY          394     A     
 KEY                ERRNZ  O.EOS                                                           KEY          395     A     
 KEY                WARN   E.ME1                                                           KEY          396     A     
 KEY                                                                                       KEY          397     A     
 KEY       END26    SA5    MOD                                                             KEY          398     A     
 KEY                HX5    MO.BLK                                                          KEY          399     A     
 KEY                MI     X5,END90    IF BLOCKDATA, FINISHED                              KEY          400     A     
 KEY                SA4    FLOW                                                            KEY          401     A     
 KEY                LX5    MO.BLKP-MO.PROP                                                 KEY          402     A     
 KEY                PL     X5,END60    IF NOT MAIN PROGRAM                                 KEY          403     A     
 KEY                NZ     X4,END80    IF NO FLOW INTO END LINE                            KEY          404     A     
 KEY                RJ     SER         COMPILE END INSTRUCTIONS                            KEY          405     A     
 KEY                EQ     END80                                                           KEY          406     A     
 KEY                                                                                       KEY          407     A     
 KEY       END60    BSS                                                                    KEY          408     A     
 KEY       .T       IFEQ   TEST,ON                                                         KEY          409     A     
 KEY                SA1    MOD                                                             KEY          410     A     
 KEY                CLAS=  X6,MO,(FUN,SUB)                                                 KEY          411     A     
 KEY                BX0    X6*X1                                                           KEY          412     A     
 KEY                ZR     X0,"BLOWUP"  IF NOT PROCEDURE SUBPROGRAM                        KEY          413     A     
 KEY       .T       ENDIF                                                                  KEY          414     A     
 KEY                NZ     X4,END74    IF NO FLOW INTO END LINE                            KEY          415     A     
 KEY                MX4    0                                                               KEY          416     A     
 KEY                BX5    0                                                               KEY          417     A     
 KEY                EMIT   V=RET                                                           KEY          418     A     
 KEY                                                                                       KEY          419     A     
 KEY       END74    SA1    N.FP                                                            KEY          420     A     
 KEY                ZR     X1,END80    IF NO FORMAL PARAMETERS                             KEY          421     A     
 KEY                CALL   WSA         WRAP-UP SUBPROGRAM ARGUMENTS                        KEY          422     A     
 KEY                                                                                       KEY          423     A     
 KEY       END80    RJ     MND         MATERIALIZE NAMELIST DIMENSIONS                     KEY          424     A     
 KEY       END90    EQ     FEC.RTF     RETURN TO CONTROLLER...                             KEY          425     A     
 KEY       ENT      SPACE  4,10                                                            KEY          426     A     
 KEY      **        ENT -  TRANSLATE "ENTRY" STATEMENT.                                    KEY          427     A     
 KEY      *                                                                                KEY          428     A     
 KEY      *         EXIT   TO FRONT END CONTROLLER.                                        KEY          429     A     
 KEY                                                                                       KEY          430     A     
 KEY                                                                                       KEY          431     A     
 KEY                HEREIF ENTRY                                                           KEY          432     A     
 KEY                                                                                       KEY          433     A     
 KEY                SA2    MOD                                                             KEY          434     A     
 KEY                SBIT   X2,MO.PROP                                                      KEY          435     A     
 KEY                MI     X2,E.EN1    IF IN PROGRAM                                       KEY          436     A     
 KEY                BX6    0                                                               KEY          437     A     
 KEY                SA6    NOPATH      RESET STATEMENT-NO.-REQD .FLAG                      KEY          438     A     
 KEY                SA1    STAGE                                                           KEY          439     A     
 KEY                SX2    FEC=STF                                                         KEY          440     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 865    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                IX1    X1-X2                                                           KEY          441     A     
 KEY                MI     X1,ENT1     IF IN DECLARATIVE PROCESSING                        KEY          442     A     
 KEY                SA2    T=BLST                                                          KEY          443     A     
 KEY                NZ     X2,E.EN2    IF INSIDE A BLOCK STRUCTURE                         KEY          444     A     
 KEY                                                                                       FC50627        5     A     
 KEY       ENT1     SA2    B4+                                                             KEY          445     A     
 KEY                ZR     X2,E.EN3    IF *EOS*                                            KEY          446     A     
 KEY                SB7    X2-O.VAR                                                        KEY          447     A     
 KEY                NZ     B7,E.EN4    IF NOT VARIABLE                                     KEY          448     A     
 KEY                MX0    TB.TOCL                                                         KEY          449     A     
 KEY                BX6    X0*X2                                                           KEY          450     A     
 KEY                SA6    FILL.                                                           KEY          451     A     
 KEY                                                                                       KEY          452          I
          -FC50062
 KEY                SA6    ENTA        SAVE FOR T.ENT                                      FC50062        4     A     
 KEY                CALL   SSY         SCAN SYMBOL TABLE                                   KEY          453     A     
 KEY                SA3    MOD                                                             KEY          454     A     
 KEY                CLAS=  X5,WB,(NVAR,DEF,ENT,MAT)                                        KEY          455     A     
 KEY                HX3    MO.FUN                                                          KEY          456     A     
 KEY                MI     B7,ENT20    IF NOT IN SYMTAB                                    KEY          457     A     
 KEY                SB7    E.EN5                                                           KEY          458     A     
 KEY                PL     X3,ENT80    IF NOT COMPILING A FUNCTION                         KEY          459     A     
 KEY                                                                                       KEY          460          I
          -FC50062
 KEY                CLAS=  X4,WB,(NVAR,VAR,FP)                                             KEY          461     A     
 KEY                BX4    X4*X2                                                           KEY          462     A     
 KEY                SB7    E.EN                                                            KEY          463     A     
 KEY                NZ     X4,ENT80    IF PRIOR CONFLICTING REFERENCE                      KEY          464     A     
 KEY                BX5    X2+X5       MERGE ENTRY BITS                                    KEY          465     A     
 KEY                EQ     ENT40                                                           KEY          466     A     
 KEY                                                                                       KEY          467     A     
 KEY      *         HERE IF NOT IN SYMTAB                                                  KEY          468     A     
 KEY      *                (X3) = (MOD) [MO.FUN EXPOSED]                                   FC50627        6     A     
 KEY                                                                                       KEY          469     A     
 KEY       ENT20    AX3    -1                                                              KEY          470          I
          -FC50627
 KEY                CALL   STY         SET IMPLICIT TYPE                                   KEY          471          I
          -FC50627
 KEY       ENT20    MI     X3,ENT21    IF FUNCTION                                         FC50627        7     A     
 KEY                =X7    0                                                               FC50627        8     A     
 KEY                MX2    0                                                               FC50627        9     A     
 KEY                EQ     ENT22                                                           FC50627       10     A     
 KEY                                                                                       FC50627       11     A     
 KEY       ENT21    CALL   STY         SET IMPLICIT TYPE [FUNCTION ENTRY]                  FC50627       12     A     
 KEY                BX7    X1          DEFAULT (WB.) = TYPE ONLY                           KEY          472     A     
 KEY                BX1    X3*X1                                                           KEY          473          I
          -FC50627
 KEY                BX5    X5+X1       MERGE TYPE WITH CLASS BITS                          KEY          474          I
          -FC50627
 KEY                ADSYM  T.SYM                                                           KEY          475          I
          -FC50627
 KEY                                                                                       FC50627       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 866    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       ENT22    ADSYM  T.SYM       ENTRY NAME                                          FC50627       14     A     
 KEY                                                                                       KEY          476     A     
 KEY      *         NAME IS IN SYMTAB.  CLASS DOES NOT CONFLICT.                           KEY          477     A     
 KEY      *                (X0) = SYMORD.                                                  KEY          478     A     
 KEY      *                (A2, X2) = CURRENT SYMTAB (WB.).                                KEY          479     A     
 KEY      *                (X5) = (WB.) ATTRIBUTES FOR ENTRY POINT.                        KEY          480     A     
 KEY                                                                                       KEY          481     A     
 KEY       ENT40    SA3    MOD                                                             KEY          482     A     
 KEY                RJ     CEM         CHECK ENTRY POINT MODE                              KEY          483     A     
 KEY                NZ     B7,ENT80    IF MODE CONFLICT                                    KEY          484     A     
 KEY                BX6    X5+X2                                                           KEY          485     A     
 KEY                SA6    A2          MARK AS ENTRY POINT                                 KEY          486     A     
 KEY                                                                                       KEY          487          I
          -FC50062
 KEY                SA1    S=VALUE                                                         KEY          488     A     
 KEY                MX4    -WB.MODEL                                                       KEY          489     A     
 KEY                LX2    -WB.MODEP                                                       KEY          490     A     
 KEY                BX2    -X4*X2      ISOLATE MODE OF THIS ENTRY                          KEY          491     A     
 KEY                IX1    X1+X2       X1 = SYMORD OF PROPER VALUE. SYMBOL                 KEY          492     A     
 KEY                SB3    X1                                                              KEY          493     A     
 KEY                LX1    1                                                               KEY          494     A     
 KEY                SB3    X1+B3       CONVERT TO INDEX                                    KEY          495     A     
 KEY                SA1    T.SYM                                                           KEY          496     A     
 KEY                =B3    B3+WB.W                                                         KEY          497     A     
 KEY                SA1    X1+B3       *WB*                                                KEY          498     A     
 KEY                LDBIT  X5,WB.1REFP                                                     KEY          499          I
          -FC5A191
 KEY                LDBIT  X5,WB.MDFP                                                      FC5A191       16     A     
 KEY                BX6    X1+X5                                                           KEY          500     A     
 KEY                SA6    A1          SET *DEFINITION REQUIRED* FLAG                      KEY          501     A     
 KEY                SA1    FILL.                                                           KEY          502          I
          -FC50062
 KEY                SA1    ENTA                                                            FC50062        5     A     
 KEY                BX6    X0+X1       (T.ENT) ENTRY = NAME AND SYMORD                     KEY          503     A     
 KEY                SX5    X0                                                              KEY          504     A     
 KEY                SB5    B7+         SAVE WB INDEX                                       KEY          505     A     
 KEY                ADDWD  T.ENT                                                           KEY          506     A     
 KEY                LX4    X5                                                              KEY          507     A     
 KEY                LX4    TP.ORDP                                                         KEY          508     A     
 KEY                MX5    0                                                               KEY          509     A     
 KEY                EMIT   V=ENTR      (ENTRY-POINT-NAME,0)                                KEY          510     A     
 KEY                LX4    -TP.ORDP    (X4) = SYMORD OF ENTRY NAME                         KEY          511     A     
 KEY                BX6    X4                                                              KEY          512     A     
 KEY                EQ     ENT90                                                           KEY          513     A     
 KEY                                                                                       KEY          514     A     
 KEY                                                                                       KEY          515     A     
 KEY      *         HERE FOR ERRORS.  DO NOT MARK THE NAME AS AN ENTRY.                    KEY          516     A     
 KEY      *                (B7) = DIAGNOSTIC.                                              KEY          517     A     
 KEY      *                (X0) = SYMORD.                                                  KEY          518     A     
 KEY      *                (A2, X2) = CURRENT SYMTAB ENTRY.                                KEY          519     A     
 KEY                                                                                       KEY          520     A     
 KEY       ENT80    FATAL  B7                                                              KEY          521     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 867    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                CLAS=  X7,WB,(VAR)                                                     KEY          522     A     
 KEY                BX6    X0          SET SYMORD FOR XREF                                 KEY          523     A     
 KEY                BX7    X2+X7                                                           KEY          524     A     
 KEY                MX4    0           INDICATE ERROR                                      KEY          525     A     
 KEY                SA7    A2          MARK SYMBOL AS VARIABLE INSTEAD OF ENTRY            KEY          526     A     
 KEY                                                                                       KEY          527     A     
 KEY                                                                                       KEY          528     A     
 KEY      *         HERE TO FINISH ENTRY SEMANTICS, AND ARGLIST.                           KEY          529     A     
 KEY      *                (X4) .NZ. =  SYMORD OF ENTRY NAME.                              KEY          530     A     
 KEY      *                     .ZR. IF ERROR.                                             KEY          531     A     
 KEY      *                (X6) = SYMORD FOR CROSS-REF.                                    KEY          532     A     
 KEY                                                                                       KEY          533     A     
 KEY       ENT90    =B4    B4+1                                                            KEY          534     A     
 KEY                LX6    XR.TAGP                                                         KEY          535     A     
 KEY                MX7    0                                                               KEY          536     A     
 KEY                SA7    FLOW        INDICATE *FLOW* INTO NEXT STMT                      KEY          537     A     
 KEY                SA1    WANFP                                                           FC5A192       50     A     
 KEY                SA7    A1          AVOID SETTING WA.NFP                                FC5A192       51     A     
 KEY                BX7    X1                                                              FC5A192       52     A     
 KEY                SA7    ENTA        PRESERVE OLD VALUE OF CELL                          FC5A192       53     A     
 KEY                ADDREF X6,CR.DEF                                                       KEY          538     A     
 KEY                CALL   PSA         PROCESS SUBPROGRAM ARGLIST                          KEY          539     A     
 KEY                SA1    ENTA                                                            FC5A192       54     A     
 KEY                BX7    X1                                                              FC5A192       55     A     
 KEY                SA7    WANFP       RESTORE OLD VALUE OF CELL                           FC5A192       56     A     
 KEY                CALL   OIL         ENTRY BREAKS THE SEQUENCE                           FC50265        9     A     
 KEY                EQ     PSL         EXIT..                                              KEY          540     A     
 KEY                                                                                       FC5A192       57     A     
 KEY       ENTA     BSS    1                                                               FC5A192       58     A     
 KEY       NAM      SPACE  4,20                                                            KEY          541     A     
 KEY      **        NAM - TRANSLATE "NAMELIST" GROUP SPECIFICATION.                        KEY          542     A     
 KEY      *                                                                                KEY          543     A     
 KEY      *         TRANSLATES NAMELIST DECLARATIONS INTO (T.NLST), IN A FORM              KEY          544     A     
 KEY      *         PRESCRIBED BY THE GID.                                                 KEY          545     A     
 KEY      *                                                                                KEY          546     A     
 KEY      *         EXIT   TO FRONT END CONTROLLER.                                        KEY          547     A     
 KEY      *                                                                                KEY          548     A     
 KEY      *         NAMELIST [ /<GROUP-NAME>/ <ITEM> [,<ITEM>] ]                           KEY          549     A     
 KEY      *                                                                                KEY          550     A     
 KEY      *         [...]  INDICATES MAY BE REPEATED.                                      KEY          551     A     
 KEY      *         <GROUP-NAME> #  THE NAME OF THIS NAME-LIST GROUP.  IT MAY NOT          KEY          552     A     
 KEY      *                DUPLICATE AN ENTRY ALREADY IN SYMBOL TABLE.                     KEY          553     A     
 KEY      *         <ITEM> #  <SIMPLE-VARIABLE> OR <ARRAY>.                                KEY          554     A     
 KEY                                                                                       KEY          555     A     
 KEY                                                                                       KEY          556     A     
 KEY                HEREIF NAMELIST                                                        KEY          557     A     
 KEY                                                                                       KEY          558     A     
 KEY                WARN   E.ANS       NON-ANSI USE - WARNING                              KEY          559     A     
 KEY                SB4    B4+1        POINT TO GROUP-NAME                                 KEY          560     A     
 KEY                                                                                       KEY          561     A     
 KEY      **        NAM1 - BEGIN PROCESSING GROUP-NAME.                                    KEY          562     A     
 KEY      *         ENTRY  B4 _ TO GROUP-NAME                                              KEY          563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 868    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *         GROUP-NAME WILL BE ENTERED INTO TS.NAM, AND INTO TT.NAM WITH           KEY          564     A     
 KEY      *                *NLST* BIT ON AND *ARR* FIELD POINTING TO ORDINAL OF            KEY          565     A     
 KEY      *                THE FIRST T.FMT ENTRY TO BE MADE FOR THIS GROUP.                KEY          566     A     
 KEY                                                                                       KEY          567     A     
 KEY                                                                                       KEY          568     A     
 KEY       NAM1     SETMEM NAMB,2      CLEAR WORKING BUFFER                                KEY          569     A     
 KEY                SA1    B4-B1       -1  EXPECT SLASH                                    KEY          570     A     
 KEY                SA2    B4          +0  REQUIRE GROUP-NAME                              KEY          571     A     
 KEY                SA3    B4+B1       +1  EXPECT SLASH                                    KEY          572     A     
 KEY                SX4    X1-O.SLASH                                                      KEY          573     A     
 KEY                NZ     X4,E.NL     IF SYNTAX ERROR                                     KEY          574     A     
 KEY                ZR     X2,E.MR2    IF *EOS* - ERROR                                    KEY          575     A     
 KEY                MX0    WA.SYML                                                         KEY          576     A     
 KEY                BX6    X0*X2                                                           KEY          577     A     
 KEY                =B7    X2-O.VAR                                                        KEY          578     A     
 KEY                NZ     B7,E.NL2    IF NO LETTER                                        KEY          579     A     
 KEY                SB7    X3-O.VAR                                                        KEY          580     A     
 KEY                NZ     B7,NAM15    IF NOT LONG NAME                                    KEY          581          I
          -FC50606
 KEY                NZ     B7,NAM1.5   IF NOT LONG NAME                                    FC50606        6     A     
 KEY                CALL   TLV         TRUNCATE NAME                                       KEY          582     A     
 KEY                =A3    B4+1                                                            KEY          583     A     
 KEY                                                                                       FC5A325        5     A     
 KEY       NAM15    SX4    X3-O.SLASH                                                      KEY          584          I
          -FC50606
 KEY       NAM1.5   SX4    X3-O.SLASH                                                      FC50606        7     A     
 KEY                NZ     X4,E.NL1    IF NO */* AFTER NAME                                KEY          585     A     
 KEY                CALL   SSY         SEARCH FOR SYMBOL                                   KEY          586     A     
 KEY                PL     B7,E.NL3    IF ALREADY DEFINED                                  KEY          587     A     
 KEY                SA3    T=NLST                                                          KEY          588     A     
 KEY                CLAS=  X4,WB,(NVAR,NLST,DEF)                                           KEY          589     A     
 KEY                BX7    X3                                                              KEY          590     A     
 KEY                LX3    WB.PNTP                                                         KEY          591     A     
 KEY                SA7    NAMA        INITIALIZE START INDEX                              KEY          592     A     
 KEY                =B4    B4+2        ADVANCE B4 TO FIRST VARIABLE IN LIST                KEY          593     A     
 KEY                BX7    X3+X4                                                           KEY          594     A     
 KEY                MX2    0           *WB*                                                KEY          595     A     
 KEY                ADSYM  A1                                                              KEY          596     A     
 KEY                SX6    X0                                                              KEY          597     A     
 KEY                SB7    NG.GROPP                                                        KEY          598     A     
 KEY                BX1    0           CLEAR MEMBER COUNT                                  KEY          599     A     
 KEY                LX6    NG.GROPP                                                        KEY          600     A     
 KEY                PX7    X1,B7                                                           KEY          601     A     
 KEY                SA6    NAMB+1      INITIALIZE ACCUMULATOR                              KEY          602     A     
 KEY                SA7    A6-B1                                                           KEY          603     A     
 KEY                SA1    T=NLST                                                          FC50606        8     A     
 KEY                BX6    X1                                                              FC50606        9     A     
 KEY                SA6    NAMC        T.NLST SAVE FOR ERROR RECOVERY                      FC50606       10     A     
 KEY                SA1    WO.LOR                                                          FC50857        7     A     
 KEY                PL     X1,NAM2     IF NO CROSS REFERENCE SELECTED                      FC50857        8     A     
 KEY                SX6    X0                                                              FC50857        9     A     
 KEY                SX1    CR.DEF                                                          FC50857       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 869    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                LX6    XR.TAGP     CONSTRUCT XREF TAG                                  FC50857       11     A     
 KEY                ADDREF X6,X1                                                           FC50857       12     A     
 KEY                                                                                       KEY          604     A     
 KEY                                                                                       KEY          605     A     
 KEY      **        NAM2 - PROCESS EACH ITEM IN THE GROUP.                                 KEY          606     A     
 KEY      *                (B4) _ VARIABLE NAME TOKEN FOR MEMBER                           KEY          607     A     
 KEY                                                                                       KEY          608     A     
 KEY       NAM2     SA1    B4                                                              KEY          609     A     
 KEY                ZR     X1,E.MR3    IF *EOS* - FATAL ERROR                              KEY          610          I
          -FC50606
 KEY                =B2    1           INDICATE (VALUE.) OK                                KEY          611          I
          -FC50606
 KEY                =B2    1           INDICATE (VALUE.) OK (FOR TRV)                      FC50606       11     A     
 KEY                SB7    E.MR3       ** PREMATURE E.O.S.                                 FC50606       12     A     
 KEY                ZR     X1,NAM.ERR  IF EOS                                              FC50606       13     A     
 KEY                MX0    WA.SYML                                                         FC51193       14     A     
 KEY                BX6    X0*X1       SYMBOL ONLY                                         FC51193       15     A     
 KEY                SB3    X1-O.VAR                                                        FC51193       16     A     
 KEY                SA6    FILL.                                                           FC51193       17     A     
 KEY                SB7    E.NL5                                                           FC51193       18     A     
 KEY                NZ     B3,NAM.ERR  IF NOT VARIABLE                                     FC51193       19     A     
 KEY                CALL   TRV         TRANSLATE VARIABLE                                  KEY          612     A     
 KEY                MI     X0,NAM4     IF TRV DETECTED ERROR                               KEY          613          I
          -FC50606
 KEY                SB7    FEC.RTN                                                         FC50606       14     A     
 KEY                MI     X0,NAM.ERR  IF TRV DETECTED ERROR                               FC50606       15     A     
 KEY                CLAS=  X4,WB,(DEF)                                                     KEY          614          I
          -FC5A325
 KEY                BX6    X2+X4       MERGE *DEFINED* PROPERTY                            KEY          615          I
          -FC5A325
 KEY                CLAS=  X4,WB,(DEF,VAR)                                                 FC5A325        6     A     
 KEY                BX6    X2+X4       MERGE IN REQUIRED ATTRIBUTES                        FC5A325        7     A     
 KEY                CLAS=  X4,WB,(SFA)                                                     FC50326       13     A     
 KEY                BX6    -X4*X6      CLEAR WB.SFA (IF PRESENT)                           FC50326       14     A     
 KEY                SA6    A2          UPDATE SYMTAB (WB)                                  KEY          616     A     
 KEY                SBIT   X2,WB.ARYP                                                      KEY          617     A     
 KEY                PL     X2,NAM25    IF NOT ARRAY                                        KEY          618          I
          -FC50606
 KEY                PL     X2,NAM3     IF NOT ARRAY                                        FC50606       16     A     
 KEY                SA2    T.DIM                                                           KEY          619     A     
 KEY                LX6    -WB.PNTP                                                        KEY          620     A     
 KEY                MX3    -WB.PNTL                                                        KEY          621     A     
 KEY                BX6    -X3*X6      T.DIM INDEX OF ARRAY                                KEY          622     A     
 KEY                SB6    X6                                                              KEY          623     A     
 KEY                SA3    X2+B6       DIM HEADER FOR ARRAY                                KEY          624     A     
 KEY                SBIT   X3,DH.ASP                                                       KEY          625     A     
 KEY                MI     X3,E.NL4    IF ASSUMED SIZE ARRAY                               KEY          626          I
          -FC50606
 KEY       NAM25    BSS    0                                                               KEY          627          I
          -FC50606
 KEY                SB7    E.NL4       ** NAMELIST MEMBER CANNOT BE ASSUMED SIZE           FC50606       17     A     
 KEY                MI     X3,NAM.ERR  IF ASSUMED SIZE ARRAY                               FC50606       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 870    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY          628     A     
 KEY                                                                                       KEY          629     A     
 KEY      **        ADD SYMBOL TO GROUP.                                                   KEY          630     A     
 KEY      *                (X0) = SYMORD.                                                  KEY          631     A     
 KEY                                                                                       KEY          632     A     
 KEY                SA5    NAMB        FETCH (PARCEL INDEX, MEMBER COUNT)                  KEY          633          I
          -FC50606
 KEY       NAM3     SA5    NAMB        FETCH (PARCEL INDEX, MEMBER COUNT)                  FC50606       19     A     
 KEY                SA2    A5+B1                                                           KEY          634     A     
 KEY                UX1,B7 X5                                                              KEY          635     A     
 KEY                SB7    B7-NG.ORDL                                                      KEY          636     A     
 KEY                LX0    B7                                                              KEY          637     A     
 KEY                SX5    X1+B1       COUNT MEMBERS                                       KEY          638     A     
 KEY                BX6    X2+X0       MERGE NEW SYMBOL                                    KEY          639     A     
 KEY                NZ     B7,NAM3     IF WORD NOT FULL                                    KEY          640          I
          -FC50606
 KEY                NZ     B7,NAM4     IF WORD NOT FULL                                    FC50606       20     A     
 KEY                ADDWD  T.NLST      ADD FULL WORD TO GROUP-DEF                          KEY          641     A     
 KEY                SB7    4*NG.ORDL                                                       KEY          642     A     
 KEY                MX6    0           CLEAR ACCUMULATOR                                   KEY          643     A     
 KEY                                                                                       FC5A325        8     A     
 KEY       NAM3     PX7    X5,B7                                                           KEY          644          I
          -FC50606
 KEY       NAM4     PX7    X5,B7                                                           FC50606       21     A     
 KEY                SA6    A5+B1                                                           KEY          645     A     
 KEY                SA7    A5          SAVE (PARCEL INDEX, MEMBER COUNT)                   KEY          646     A     
 KEY                                                                                       KEY          647     A     
 KEY                                                                                       KEY          648     A     
 KEY      **        NAM4 - NOW CHECK FOR SEPARATOR.                                        KEY          649          I
          -FC50606
 KEY      **        CHECK FOR SEPARATOR                                                    FC50606       22     A     
 KEY      *         IF SEPARATOR IS A COMMA, WE RETURN TO *NAM2*.                          KEY          650     A     
 KEY      *         IF SEPARATOR IS NOT A COMMA, WE FLUSH THE WORKING BUFFER, AND          KEY          651     A     
 KEY      *                SET NUMBER OF MEMBERS IN HEADER WORD.                           KEY          652     A     
 KEY      *         IF *EOS* WE ARE THRU.                                                  KEY          653     A     
 KEY                                                                                       KEY          654     A     
 KEY                                                                                       KEY          655     A     
 KEY       NAM4     SA5    B4+B1       FETCH NEXT SEPARATOR                                KEY          656          I
          -FC50606
 KEY                SA5    B4+B1       FETCH NEXT SEPARATOR                                FC50606       23     A     
 KEY                SB4    A5+B1       POINT TO NEXT ITEM                                  KEY          657     A     
 KEY                SX2    X5-O.COMMA                                                      KEY          658     A     
 KEY                ZR     X2,NAM2     IF COMMA                                            KEY          659     A     
 KEY                SA4    NAMB+1                                                          KEY          660     A     
 KEY                ZR     X4,NAM5     IF NO PARTIAL ACCUMULATOR WAITING                   KEY          661     A     
 KEY                BX6    X4                                                              KEY          662     A     
 KEY                ADDWD  T.NLST      APPEND REST OF MEMBERS                              KEY          663     A     
 KEY                                                                                       FC5A325        9     A     
 KEY       NAM5     SA3    NAMA        FETCH INDEX OF GROUP START                          KEY          664     A     
 KEY                SA2    A3+B1                                                           KEY          665     A     
 KEY                IX1    X1+X3       (X1) _ GROUP HEADER WORD                            KEY          666     A     
 KEY                SX6    X2          (X6) = NUMBER OF MEMBERS                            KEY          667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 871    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA3    X1                                                              KEY          668     A     
 KEY                LX6    NG.NMEMP                                                        KEY          669     A     
 KEY                BX7    X3+X6       FILL IN NUMBER OF MEMBERS                           KEY          670     A     
 KEY                SA7    A3                                                              KEY          671     A     
 KEY                NZ     X5,NAM1    IF NOT EOS, CONTINUE WITH NEXT GROUP                 KEY          672     A     
 KEY                EQ     FEC.RTN                                                         KEY          673     A     
 KEY                                                                                       FC50606       24     A     
 KEY      **        HERE IF ERROR.  COLLAPSE T.NLST TO PREVIOUS CONDITION.                 FC50606       25     A     
 KEY      *                                                                                FC50606       26     A     
 KEY      *         (B7) = EXIT ADDRESS                                                    FC50606       27     A     
 KEY                                                                                       FC50606       28     A     
 KEY       NAM.ERR  SA1    NAMC        PREVIOUS T=NLST                                     FC50606       29     A     
 KEY                SHRINK T=NLST,X1                                                       FC50606       30     A     
 KEY                JP     B7          EXIT...                                             FC50606       31     A     
 KEY                                                                                       KEY          674     A     
 KEY       NAMA     BSS    1           START INDEX OF CURRENT GROUP                        KEY          675     A     
 KEY       NAMB     BSSZ   2           (PARCEL INDEX, MEMBERS), ACCUMULATOR                KEY          676     A     
 KEY       NAMC     BSS    1           LENGTH OF T.NLST AT START OF CURRENT GROUP          FC50606       32     A     
 KEY       PATCH    SPACE  4,20                                                            KEY          677     A     
 KEY      **        PAT - PROCESS "PATCH" STATEMENT.                                       KEY          678     A     
 KEY      *                (ONLY IN *TEST* MODE)                                           KEY          679     A     
 KEY      *                                                                                KEY          680     A     
 KEY      *         STATEMENT CONSISTS OF THE WORD *PATCH*, FOLLOWED BY AN                 KEY          681     A     
 KEY      *         ADDRESS, THEN ANY SEPARATOR, AND THEN THE CONTENTS OF                  KEY          682     A     
 KEY      *         THE NEW WORD.  BLANKS ARE IGNORED.  THE *B* SUFFIX IS                  KEY          683     A     
 KEY      *         NOT ALLOWED.                                                           KEY          684     A     
 KEY      *                                                                                KEY          685     A     
 KEY      *         C A U T I O N   --  ACTIVATE AND USE THIS STATEMENT AT YOUR            KEY          686     A     
 KEY      *                            OWN RISK.  CONTROL DATA CORP. NOT RESPON-           KEY          687     A     
 KEY      *                            SIBLE FOR ANY RESULTS OF THE USE OF A               KEY          688     A     
 KEY      *                            *PATCH* STATEMENT.                                  KEY          689     A     
 KEY      *                                                                                KEY          690     A     
 KEY      *         ERROR CHECKING IS THE ABSOLUTE POSSIBLE MINIMUM.  IT IS NOT            KEY          691     A     
 KEY      *                LOGICALLY POSSIBLE TO USE IN MANY CASES.                        KEY          692     A     
 KEY      *         COMPILER DE-BUGGING CONVIENIENCE ITEM  O N L Y.                        KEY          693     A     
 KEY                                                                                       KEY          694     A     
 KEY                                                                                       KEY          695     A     
 KEY       TEST     IFNE   TEST                                                            KEY          696     A     
 KEY                                                                                       KEY          697     A     
 KEY                HEREIF PATCH                                                           KEY          698     A     
 KEY                                                                                       KEY          699     A     
 KEY                =A3    B4-1                                                            KEY          700     A     
 KEY                CALL   OCT         ASSEMBLE ADDRESS WHERE PATCH IS TO GO               KEY          701     A     
 KEY                SA6    PATA                                                            KEY          702     A     
 KEY                =A3    A3+1        SKIP OVER SEPARATOR                                 KEY          703     A     
 KEY                CALL   OCT         ASSEMBLE CONTENTS OF WORD                           KEY          704     A     
 KEY                SA1    PATA                                                            KEY          705     A     
 KEY                SA6    X1          STORE NEW WORD                                      KEY          706     A     
 KEY                EQ     FEC.RTN                                                         KEY          707     A     
 KEY                                                                                       KEY          708     A     
 KEY       PATA     DATA   0           SAVE CELL FOR ADDRESS FIELD.                        KEY          709     A     
 KEY                                                                                       KEY          710     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 872    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       TEST     ENDIF                                                                  KEY          711     A     
 KEY       PAU      SPACE  4,10                                                            KEY          712     A     
 KEY      **        PAU - TRANSLATE "PAUSE" STATEMENT.                                     KEY          713     A     
 KEY      *                                                                                KEY          714     A     
 KEY      *         SEE ANSI 11.13                                                         KEY          715     A     
 KEY      *                                                                                KEY          716     A     
 KEY      *         EXIT   TO *PSL*.                                                       KEY          717     A     
 KEY      *         CALLS  SPR.                                                            KEY          718     A     
 KEY                                                                                       KEY          719     A     
 KEY                                                                                       KEY          720     A     
 KEY                HEREIF PAUSE                                                           KEY          721     A     
 KEY                                                                                       KEY          722     A     
 KEY                SB5    S.PAUSE                                                         KEY          723     A     
 KEY                RJ     SPR         COMPILE PAUSING INSTRUCTIONS                        KEY          724     A     
 KEY                SA1    DTI                                                             KEY          725          I
          -FC5A126
 KEY                NZ     X1,E.SPR3   ANSI - PAUSE N.F.G AS DO-TERM                       KEY          726          I
          -FC5A126
 KEY                EQ     PSL         EXIT...                                             KEY          727     A     
 KEY       RTN      SPACE  4,20                                                            KEY          728     A     
 KEY      **        RTN - TRANSLATE "RETURN" STATEMENT.                                    KEY          729     A     
 KEY      *                                                                                KEY          730     A     
 KEY      *         SEE ANSI 15.8                                                          KEY          731     A     
 KEY      *                                                                                KEY          732     A     
 KEY      *         SET (NOPATH), UNLESS OBJECT OF LOGICAL IF.                             KEY          733     A     
 KEY      *         IF MAIN PROGRAM, ACTION SAME AS FLOW INTO END-LINE.                    KEY          734     A     
 KEY      *         IF ALTERNATE RETURN, COMPILE JUMP EXPRESSION.                          KEY          735     A     
 KEY      *         IF SIMPLE RETURN AND NOT MAIN PROGRAM, THEN, IF OBJECT                 KEY          736     A     
 KEY      *         OF LOGICAL-IF, RESET IF-TARGET INSTEAD OF EMITTING ANOTHER             KEY          737     A     
 KEY      *         TURPLE.                                                                KEY          738     A     
 KEY      *                                                                                KEY          739     A     
 KEY      *         EXIT   *PSL*.                                                          KEY          740     A     
 KEY      *                                                                                KEY          741     A     
 KEY      *         CALLS  EMIT, FATAL, PJX, RIT, SER.                                     KEY          742     A     
 KEY                                                                                       KEY          743     A     
 KEY                                                                                       KEY          744     A     
 KEY                HEREIF RETURN                                                          KEY          745     A     
 KEY                                                                                       KEY          746     A     
 KEY                SA2    S=EXIT                                                          KEY          747          I
          -FC50451
 KEY                SA5    MOD                                                             FC50451        7     A     
 KEY                SA2    S=ENTRY                                                         FC50451        8     A     
 KEY                SBIT   X5,MO.SUBP                                                      FC50451        9          I
          -FC50913
 KEY                PL     X5,RTN1     IF NOT SUBPROGRAM                                   FC50451       10          I
          -FC50913
 KEY                SBIT   X5,MO.PROP                                                      FC50913        7     A     
 KEY                MI     X5,RTN1     IF MAIN PROGRAM                                     FC50913        8     A     
 KEY                LX2    XR.TAGP                                                         KEY          748     A     
 KEY                ADDREF X2,CR.REF                                                       KEY          749          I
          -FC50451
 KEY                SA2    T=BLST                                                          KEY          750          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 873    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
          -FC50451
 KEY                ZR     X2,RTN1     IF NOT INSIDE A BLOCK STRUCTURE                     KEY          751          I
          -FC50451
 KEY                ADDREF X2,CR.RET                                                       FC50451       11     A     
 KEY                                                                                       FC50451       12     A     
 KEY       RTN1     SA2    T=BLST                                                          FC50451       13     A     
 KEY                ZR     X2,RTN2     IF NOT INSIDE A BLOCK STRUCTURE                     FC50451       14     A     
 KEY                CLAS=  X0,WB,(DLER)  LOOP HAS EXTERNAL REFERENCE                       KEY          752     A     
 KEY                CALL   PDA         PROPOGATE DO LOOP ATTRIBUTES                        KEY          753     A     
 KEY       RTN1     SA3    MOD                                                             KEY          754          I
          -FC50451
 KEY                =X6    1                                                               KEY          755          I
          -FC50318
 KEY                MX6    1                                                               FC50318        9          I
          -FC50451
 KEY                SBIT   X3,MO.PROP                                                      KEY          756          I
          -FC50451
 KEY                                                                                       FC50451       15     A     
 KEY       RTN2     MX6    1                                                               FC50451       16     A     
 KEY                SBIT   X5,MO.PROP/MO.SUBP                                              FC50451       17          I
          -FC50913
 KEY                SA6    NOPATH                                                          KEY          757     A     
 KEY                                                                                       KEY          758     A     
 KEY      **        VALIDATE SYNTAX -- NOTHING MAY FOLLOW THE KEYWORD.                     KEY          759     A     
 KEY                                                                                       KEY          760     A     
 KEY                SA1    B4                                                              KEY          761     A     
 KEY                NZ     X1,RTN9     IF NOT *EOS*                                        KEY          762     A     
 KEY                PL     X3,RTN4     IF NOT MAIN PROGRAM                                 KEY          763          I
          -FC50451
 KEY                PL     X5,RTN4     IF NOT MAIN PROGRAM                                 FC50451       18     A     
 KEY                                                                                       KEY          764     A     
 KEY      **        WHEN IN MAIN PROGRAM, ACT LIKE *END*.                                  KEY          765     A     
 KEY                                                                                       KEY          766     A     
 KEY       RTN3     RJ     SER         SET *END* RETURN CODE                               KEY          767     A     
 KEY                EQ     E.ANS3      RETURN IN MAIN PROGRAM NON-ANSI                     KEY          768     A     
 KEY                                                                                       KEY          769     A     
 KEY      **        IN SUBPROGRAM, JUMP TO *CT.RETN*.                                      KEY          770     A     
 KEY                                                                                       KEY          771     A     
 KEY       RTN4     SA1    INIF                                                            KEY          772     A     
 KEY                NZ     X1,RTN8     IF OBJECT OF 1-BRANCH *IF*                          KEY          773     A     
 KEY                                                                                       KEY          774     A     
 KEY                BX4    0                                                               KEY          775     A     
 KEY                MX5    0                                                               KEY          776     A     
 KEY                EMIT   V=RET                                                           KEY          777     A     
 KEY                EQ     PSL         EXIT...                                             KEY          778     A     
 KEY                                                                                       KEY          779     A     
 KEY      **        WHEN *RETURN* IS OBJECT OF A 1-BRANCH *IF*, CHANGE THE JUMP.           KEY          780     A     
 KEY      *                DECREMENT (*TG.PRO*), AS THE FORMER TAG WILL NOT BE             KEY          781     A     
 KEY      *                USED IN THE ALTERED CODE.  CLEAR (INIF) TO KEEP THAT            KEY          782     A     
 KEY      *                TAG FROM BEING GENERATED.                                       KEY          783     A     
 KEY      *         ENTRY  (A1) _ INIF.                                                    KEY          784     A     
 KEY      *                (IFREL1) = MACRO ADDRESS FOR OPPOSITE *IF* JUMP.                KEY          785     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 874    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY          786     A     
 KEY       RTN8     SA4    S=EXIT                                                          KEY          787     A     
 KEY                SA3    RTNCNT                                                          KEY          788     A     
 KEY                BX6    0                                                               KEY          789     A     
 KEY                LX4    TP.ORDP                                                         KEY          790     A     
 KEY                SA6    NOPATH      CLEAR NOPATH CONDITION                              KEY          791     A     
 KEY                =X7    X3+1        COUNT RETURN STATEMENTS                             KEY          792     A     
 KEY                SA7    A3                                                              KEY          793     A     
 KEY                RJ     RIT         RESET IF TARGET                                     KEY          794     A     
 KEY                EQ     PSL         EXIT...                                             KEY          795     A     
 KEY                                                                                       KEY          796     A     
 KEY      *         EXPRESSION FOLLOWING KEYWORD.  PARSE IT AND EMIT ALTERNATE             KEY          797     A     
 KEY      *         RETURN TURPLE.                                                         KEY          798     A     
 KEY                                                                                       KEY          799     A     
 KEY       RTN9     PL     X3,RTN92    IF NOT MAIN PROGRAM                                 KEY          800          I
          -FC50451
 KEY       RTN9     PL     X5,RTN92    IF NOT MAIN PROGRAM                                 FC50451       19     A     
 KEY                WARN   E.SPR4                                                          KEY          801     A     
 KEY                EQ     RTN3                                                            KEY          802     A     
 KEY                                                                                       KEY          803     A     
 KEY       RTN92    LX3    MO.PROP-MO.FUNP                                                 KEY          804          I
          -FC50451
 KEY                PL     X3,RTN94    IF NOT FUNCTION                                     KEY          805          I
          -FC50451
 KEY       RTN92    SBIT   X5,MO.FUNP/MO.PROP                                              FC50451       20     A     
 KEY                PL     X5,RTN94    IF NOT FUNCTION                                     FC50451       21     A     
 KEY                FATAL  E.SPR5      ALTERNATE RETURN ILLEGAL IN FUNCTION                KEY          806     A     
 KEY                EQ     RTN4                                                            KEY          807     A     
 KEY                                                                                       KEY          808     A     
 KEY       RTN94    SX6    V=RTNK                                                          KEY          809     A     
 KEY                SA6    N.ARP       INDICATE ALTERNATE RETURN HAPPENED                  KEY          810     A     
 KEY                MX7    0           (2OP) = NIL                                         KEY          811     A     
 KEY                RJ     PJX         PARSE JUMP EXPRESSION                               KEY          812     A     
 KEY                SA1    INIF                                                            KEY          813     A     
 KEY                ZR     X1,RTN98    IF NOT OBJECT OF 1-BRANCH *IF*                      KEY          814     A     
 KEY                BX7    0                                                               KEY          815     A     
 KEY                SA7    NOPATH      CLEAR NOPATH FLAG                                   KEY          816     A     
 KEY                                                                                       FC50451       22     A     
 KEY       RTN98    EQ     PSL         EXIT...                                             KEY          817     A     
 KEY       STP      SPACE  4,10                                                            KEY          818     A     
 KEY      **        STP - TRANSLATE "STOP" STATEMENT.                                      KEY          819     A     
 KEY      *                                                                                KEY          820     A     
 KEY      *         SEE ANSI 11.12                                                         KEY          821     A     
 KEY      *                                                                                KEY          822     A     
 KEY      *         EXIT   *PSL*.                                                          KEY          823     A     
 KEY      *         CALLS  SPR.                                                            KEY          824     A     
 KEY                                                                                       KEY          825     A     
 KEY                                                                                       KEY          826     A     
 KEY                HEREIF STOP                                                            KEY          827     A     
 KEY                                                                                       KEY          828     A     
 KEY                SB5    S.STOP                                                          KEY          829     A     
 KEY                RJ     SPR         COMPILE TERMINATING INSTRUCTIONS                    KEY          830     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 875    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA1    INIF                                                            KEY          831     A     
 KEY                NZ     X1,PSL      IF OBJECT OF 1-BRANCH IF                            KEY          832     A     
 KEY                =X6    1                                                               KEY          833          I
          -FC50318
 KEY                MX6    1                                                               FC50318       10     A     
 KEY                SA6    NOPATH      INDICATE NO-PATH.                                   KEY          834     A     
 KEY                EQ     PSL         EXIT...                                             KEY          835     A     
 KEY                TITLE  'GOTO' STATEMENTS.                                              KEY          836     A     
 KEY       GOT      SPACE  4,20                                                            KEY          837     A     
 KEY      **        GOT - PROCESS "GO TO" STATEMENT KEYWORD.                               KEY          838     A     
 KEY      *                                                                                KEY          839     A     
 KEY      *         ANSI                                                                   KEY          840     A     
 KEY      *         11.1   GOT -  GOTO SN                                                  KEY          841     A     
 KEY      *         11.2   GOA -  GOTO IVAR                                                KEY          842     A     
 KEY      *                       GOTO IVAR , (SN LIST)                                    KEY          843     A     
 KEY      *                       GOTO IVAR   (SN LIST)                                    KEY          844     A     
 KEY      *         11.3   GOC -  GOTO (SN LIST) , IEXP                                    KEY          845     A     
 KEY      *                       GOTO (SN LIST)   IEXP                                    KEY          846     A     
 KEY      *                                                                                KEY          847     A     
 KEY      *         ENTRY  (B4) _ TOKEN FOLLOWING KEYWORD.                                 KEY          848     A     
 KEY      *         EXIT   FRONT END CONTROLLER                                            KEY          849     A     
 KEY                                                                                       KEY          850     A     
 KEY                                                                                       KEY          851     A     
 KEY                HEREIF GOTO                                                            KEY          852     A     
 KEY                                                                                       KEY          853     A     
 KEY                SA1    B4                                                              KEY          854     A     
 KEY                =X6    CR.GOTO                                                         KEY          855     A     
 KEY                ZR     X1,E.GO1    IF MISSING OBJECT OF GO TO - ERROR                  KEY          856     A     
 KEY                SX2    X1-O.LP                                                         KEY          857     A     
 KEY                SA6    REFNUM      SET CROSS REFERENCE LETTER                          KEY          858     A     
 KEY                =X6    CR.VGOTO                                                        KEY          859     A     
 KEY                =A3    B4+1                                                            KEY          860     A     
 KEY                SB6    B0          INITIALIZE (B6) FOR GOC                             KEY          861     A     
 KEY                SA6    REFVAR                                                          KEY          862     A     
 KEY                ZR     X2,GOC      IF *(* -- COMPUTED GOTO                             KEY          863     A     
 KEY                SB2    X1-O.VAR                                                        KEY          864          I
          -FC5A224
 KEY                SA2    DTI                                                             FC5A224        6     A     
 KEY                ZR     X2,GOT      IF NOT DO TERMINATOR                                FC5A224        7     A     
 KEY                SA2    INIF                                                            FC5A224        8     A     
 KEY                NZ     X2,GOT      IF GOTO APPENDED TO LOGICAL IF                      FC5A224        9     A     
 KEY                FATAL  E.MDO       ONLY FOR UNCONDITIONAL/ASSIGNED GOTO                FC5A224       10     A     
 KEY                                                                                       FC5A224       11     A     
 KEY       GOT      SB2    X1-O.VAR                                                        FC5A224       12     A     
 KEY                ZR     B2,GOA      IF VARIABLE -- ASSIGNED GOTO                        KEY          865     A     
 KEY       GOT      SPACE  4,20                                                            KEY          866     A     
 KEY      **        GOT - TRANSLATE UNCONDITIONAL GOTO.                                    KEY          867     A     
 KEY      *                                                                                KEY          868     A     
 KEY      *         IF OBJECT OF LOGICAL-IF, THEN                                          KEY          869     A     
 KEY      *                RESET IF-TARGET, INSTEAD OF EMITTING ANYTHING.                  KEY          870     A     
 KEY      *         ELSE                                                                   KEY          871     A     
 KEY      *                SET (NOPATH), EMIT V=GOTO.                                      KEY          872     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 876    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY          873     A     
 KEY                BX6    X1                                                              KEY          874     A     
 KEY                NZ     X3,E.GO     IF NO *EOS* - ERROR                                 KEY          875     A     
 KEY                CLAS=  X2,WB,(SREF)                                                    KEY          876          I
          -FC51356
 KEY                CLAS=  X2,WB,(GOTO,SREF)                                               FC51356       15     A     
 KEY                CALL   ISL         IDENTIFY STATEMENT LABEL                            KEY          877     A     
 KEY                MI     X6,FEC.RTN  IF ERROR IN LABEL                                   KEY          878     A     
 KEY                SA1    STL0R                                                           KEY          879     A     
 KEY                SA2    TB=LABR                                                         KEY          880     A     
 KEY                IX0    X1-X2                                                           KEY          881     A     
 KEY                NZ     X0,GOT6     IF NOT TRANSFER TO ITSELF                           KEY          882     A     
 KEY                WARN   E.GO7       WARNING                                             KEY          883     A     
 KEY                                                                                       FC50318       11     A     
 KEY       GOT6     BX5    X6          SAVE TAG.                                           KEY          884     A     
 KEY                SA1    INIF                                                            KEY          885     A     
 KEY                =X6    1                                                               KEY          886          I
          -FC50318
 KEY                MX6    1                                                               FC50318       12     A     
 KEY                SA6    NOPATH      INICATE POSSIBLE NO-PATH.                           KEY          887     A     
 KEY                SX6    0                                                               KEY          888     A     
 KEY                ZR     X1,GOT7     IF NO OBJECT OF AN *IF*                             KEY          889     A     
 KEY                                                                                       KEY          890     A     
 KEY      **        GO TO SN FOUND TO BE OJBECT OF A ONE BRANCH *IF* STATMENT.             KEY          891     A     
 KEY      *                                                                                KEY          892     A     
 KEY      *         IN THIS CASE WE RESET THE GENERATED TAG CELL, SINCE THE TAG            KEY          893     A     
 KEY      *         WILL NOT BE USED IN THE NEW JUMP MACRO.  NEXT WE REPLACE THE           KEY          894     A     
 KEY      *         IF JUMP MACRO PUT INTO THE PARSED FILE BY THE *IF* PROCESSOR           KEY          895     A     
 KEY      *         AND RESET IT TO A --                                                   KEY          896     A     
 KEY      *                IF(L) 1,N  - WHERE *1* IS THE LABEL DEFINED BY THE              KEY          897     A     
 KEY      *                             GO TO SN.                                          KEY          898     A     
 KEY      *         NEXT WE CHECK IF THE *IF* WAS FOUND ON A *DO* TERMINATOR LINE          KEY          899     A     
 KEY      *         IF SO WE EXIT TO PSL AND FINISH PROCESSING THE *DO*                    KEY          900     A     
 KEY      *                                                                                KEY          901     A     
 KEY      *         (X5) = STATEMENT NUMBER ORDINAL.                                       KEY          902     A     
 KEY                                                                                       KEY          903     A     
 KEY                SA6    NOPATH      CLEAR                                               KEY          904     A     
 KEY                BX4    X5                                                              KEY          905     A     
 KEY                RJ     RIT         RESET IF TARGET                                     KEY          906     A     
 KEY                SA1    DTI                                                             KEY          907     A     
 KEY                NZ     X1,PSL      IF IN *DO* TERMINATION -- EXIT...                   KEY          908     A     
 KEY                SX6    1                                                               KEY          909     A     
 KEY                BX5    X4                                                              FC5A157        5     A     
 KEY                                                                                       FC50318       13     A     
 KEY       GOT7     SA6    IFLN        INDICATE INIF OR NOT                                KEY          910     A     
 KEY                BX6    X5                                                              KEY          911     A     
 KEY                SA6    GOTA        SAVE TAG.                                           KEY          912     A     
 KEY                =X6    GOT7A       RETURN ADDRESS                                      KEY          913     A     
 KEY                SA6    HANGER                                                          KEY          914     A     
 KEY                EQ     PSL         GET NEXT EXECUTABLE                                 KEY          915     A     
 KEY                                                                                       KEY          916     A     
 KEY      **        RETURN WITH NEXT EXECUTABLE IN *TB* AND NEXT ACTIVE LABEL              KEY          917     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 877    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *         IN *CSLTAG* IF ONE EXISTS.                                             KEY          918     A     
 KEY      *                                                                                KEY          919     A     
 KEY      *         EVALUATE IF THE GO TO SN IS A TRANSFER TO THE NEXT EXEC.               KEY          920     A     
 KEY      *         IF SO IGNORE AND NOTE IT TO THE PROGRAMMER.  IF GO TO IS PART          KEY          921     A     
 KEY      *         OF AN IF AND THE ABOVE IS NOT TRUE WE EXIT TO PSL.  IF NOT             KEY          922     A     
 KEY      *         OBJECT OF AN IF WE ADD O=GOTO MACRO TO PARSED FILE AND EXIT AS         KEY          923     A     
 KEY      *         ABOVE.                                                                 KEY          924     A     
 KEY                                                                                       KEY          925     A     
 KEY       GOT7A    SA2    GOTA        RESTORE TAG.                                        KEY          926     A     
 KEY                SA3    CSLTAG                                                          KEY          927     A     
 KEY                BX0    X2-X3                                                           KEY          928     A     
 KEY                SA1    IFLN                                                            KEY          929     A     
 KEY                NZ     X0,GOT7B    IF NOT SIMPLE JUMP TO NEXT STATEMENT.               KEY          930     A     
 KEY                ZR     X1,E.GO2    IF NOT PROCESSING OBJECT OF AN IF.                  KEY          931     A     
 KEY                TRIV   E.GO5       IF RESULTS IN A TRANSFER TO NEXT LINE               KEY          932     A     
 KEY                EQ     CUS.RET                                                         KEY          933     A     
 KEY                                                                                       KEY          934     A     
 KEY      **        HERE IF JUMP MUST BE COMPILED.                                         KEY          935     A     
 KEY      *         ADD *GOTON* SKELETON TO PARSED FILE.                                   KEY          936     A     
 KEY      *         (NOT-TRUE IF PART OF AN *IF*)                                          KEY          937     A     
 KEY                                                                                       KEY          938     A     
 KEY       GOT7B    NZ     X1,CUS.RET  IF PART OF 1-BRANCH IF                              KEY          939     A     
 KEY                SA4    GOTA        (P1) = LABEL                                        KEY          940     A     
 KEY                BX5    0           (P2) = NIL                                          KEY          941     A     
 KEY                EMIT   V=GOTO                                                          KEY          942     A     
 KEY                SA1    T=PAR                                                           KEY          943     A     
 KEY                SX6    X1-1                                                            KEY          944     A     
 KEY                SA6    CURST             RESET SQEEZE START PASTED *GOTO*              KEY          945     A     
 KEY                EQ     CUS.RET           RETURN TO FINISH PROCESSING HANGER            KEY          946     A     
 KEY       GOA      SPACE  4,30                                                            KEY          947     A     
 KEY      **        GOA - TRANSLATE ASSIGNED GOTO.                                         KEY          948     A     
 KEY                                                                                       KEY          949     A     
 KEY                                                                                       KEY          950     A     
 KEY       GOA      SB2    B1          INDICATE (VALUE.) IS LEGAL                          KEY          951     A     
 KEY                CALL   TRV         TRANSLATE VARIABLE                                  KEY          952     A     
 KEY                MX3    -WB.MODEL                                                       KEY          953     A     
 KEY                CLAS=  X1,WB,(SFA)                                                     FC50326       15     A     
 KEY                LX2    -WB.MODEP                                                       KEY          954          I
          -FC5A184
 KEY                BX1    -X3*X2                                                          KEY          955          I
          -FC5A184
 KEY                LX5    X6          (X5) = PASS 1 TAG-FORM                              KEY          956          I
          -FC5A184
 KEY                CLAS=  X5,WB,(AGO2)                                                    FC5A184       52     A     
 KEY                BX7    X2+X5                                                           FC5A184       53     A     
 KEY                BX7    -X1*X7      CLEAR WB.SFA (IF PRESENT)                           FC50326       16     A     
 KEY                SA7    A2          INDICATE *APPEARED IN ASSIGNED GOTO*                FC5A184       54     A     
 KEY                LX7    -WB.MODEP                                                       FC5A184       55     A     
 KEY                BX1    -X3*X7                                                          FC5A184       56     A     
 KEY                HX2    WB.ARY                                                          FC5A184       57     A     
 KEY                PL     X2,GOA10    IF NOT AN ARRAY                                     FC5A184       58     A     
 KEY                SA2    CLASS+WB.ARYP                                                   FC5A184       59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 878    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                BX7    X2                                                              FC5A184       60     A     
 KEY                SA7    FILL.2                                                          FC5A184       61     A     
 KEY                SA2    B4+                                                             FC5A184       62     A     
 KEY                MX7    WA.SYML                                                         FC5A184       63     A     
 KEY                BX7    X7*X2       X7 = 0LSYMBOL                                       FC5A184       64     A     
 KEY                SA7    FILL.                                                           FC5A184       65     A     
 KEY                FATAL  E.AS7       ** CONFLICT - VAR PREVIOUSLY USED AS ARRAY          FC5A184       66     A     
 KEY                                                                                       FC5A184       67     A     
 KEY       GOA10    LX5    X6          (X5) = PASS 1 TAG FORM                              FC5A184       68     A     
 KEY                SB7    X1-M.INT                                                        KEY          957     A     
 KEY                ZR     X1,GOA20    IF BOOLEAN VARIABLE                                 KEY          958     A     
 KEY                ERRNZ  M.BOOL                                                          KEY          959     A     
 KEY                ZR     B7,GOA20    IF INTEGER VARIABLE                                 KEY          960     A     
 KEY                WARN   E.GO4       ** OBJECT OF GOTO NOT INTEGER                       KEY          961     A     
 KEY       GOA20    SB4    B4+B1                                                           KEY          962     A     
 KEY                SA2    B4                                                              KEY          963     A     
 KEY                SB7    X2-O.COMMA                                                      KEY          964     A     
 KEY                NZ     B7,GOA22    IF COMMA MISSING                                    KEY          965     A     
 KEY                SB4    B4+B1                                                           KEY          966     A     
 KEY                SA2    B4                                                              KEY          967     A     
 KEY       GOA22    SB7    X2-O.LP                                                         KEY          968     A     
 KEY                ZR     X2,GOA60    IF EOS -- STATEMENT LABEL LIST OMITTED              KEY          969          I
          -FC51039
 KEY                ZR     X2,GOA70    IF EOS -- STATEMENT LABEL LIST OMITTED              FC51039        7     A     
 KEY                ZR     B7,GOA30    IF LEFT PAREN                                       KEY          970     A     
 KEY                FATAL  E.GO3                                                           KEY          971     A     
 KEY                                                                                       KEY          972     A     
 KEY      *         SCAN STATEMENT LABEL LIST.                                             KEY          973     A     
 KEY      *                VALIDATE SYNTAX.                                                KEY          974     A     
 KEY      *                MARK LABELS AS (WB.SREF).                                       KEY          975     A     
 KEY                                                                                       KEY          976     A     
 KEY       GOA30    SB4    B4+B1                                                           KEY          977     A     
 KEY       GOA32    SA1    B4                                                              KEY          978     A     
 KEY                ZR     X1,PSL      MISSING RIGHT PAREN ALREADY DIAGNOSED               KEY          979     A     
 KEY                BX6    X1                                                              KEY          980     A     
 KEY                CLAS=  X2,WB,(SREF)                                                    KEY          981          I
          -FC51356
 KEY                CLAS=  X2,WB,(GOTO,SREF)                                               FC51356       16     A     
 KEY                CALL   ISL         IDENTIFY STATEMENT LABEL                            KEY          982     A     
 KEY                SA1    STL0R                                                           KEY          983     A     
 KEY                SA3    TB=LABR                                                         KEY          984     A     
 KEY                =A4    B4+1                                                            KEY          985     A     
 KEY                IX2    X3-X1                                                           KEY          986     A     
 KEY                SB4    B4+2                                                            KEY          987     A     
 KEY                SX3    X4-O.COMMA                                                      KEY          988     A     
 KEY                NZ     X2,GOA36    IF NOT REFERENCE TO CURRENT LABEL                   KEY          989     A     
 KEY                TRIV   E.GO8       STATEMENT CAN TRANSFER TO ITSELF                    KEY          990     A     
 KEY       GOA36    ZR     X3,GOA32    IF COMMA, LOOP                                      KEY          991     A     
 KEY                =B2    X3-O.RP+O.COMMA                                                 KEY          992     A     
 KEY                NZ     B2,E.GO     IF NOT *)* - ERROR...                               KEY          993     A     
 KEY                =A1    B4                                                              KEY          994     A     
 KEY                ZR     X1,GOA60    IF NOTHING AFTER *)*                                KEY          995     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 879    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ERRNZ  O.EOS                                                           KEY          996     A     
 KEY                WARN   E.GO9                                                           KEY          997     A     
 KEY                                                                                       KEY          998     A     
 KEY      **        EMIT ASSIGNED GOTO TURPLE --                                           KEY          999     A     
 KEY      *                (OPR) =  V=AGOTO .                                              KEY         1000     A     
 KEY      *                (1OP) = (X5) = VARIABLE TAG OF TARGET.                          KEY         1001     A     
 KEY      *                (2OP) = NIL.                                                    KEY         1002     A     
 KEY                                                                                       KEY         1003     A     
 KEY       GOA60    BX6    X5                                                              KEY         1004     A     
 KEY                SA6    GOTA                                                            KEY         1005     A     
 KEY                SA4    GOTA        (L1) = VARIABLE TO GOTO                             KEY         1006     A     
 KEY                BX5    0           (P2) = NIL                                          KEY         1007     A     
 KEY                EMIT   V=AGOTO,1ST                                                     KEY         1008     A     
 KEY                SX6    B1          SET POSSIBLE NOPATH INDICATOR                       KEY         1009          I
          -FC50318
 KEY                MX6    1           SET NOPATH INDICATION                               FC50318       14     A     
 KEY                SA6    NOPATH                                                          KEY         1010     A     
 KEY                EQ     PSL         EXIT..                                              KEY         1011     A     
 KEY                                                                                       FC51039        8     A     
 KEY      *      1. HERE TO CHECK IF *GO TO IVAR* IS WITHIN A BLOCK STRUCTURE.             FC51039        9     A     
 KEY      *      2. CHECK T.BLST FOR DO LOOPS AND SET WB.DLEX FOR THE DO'S                 FC51039       10     A     
 KEY      *         SYMBOL TABLE ENTRY.                                                    FC51039       11     A     
 KEY                                                                                       FC51039       12     A     
 KEY       GOA70    SA2    T=BLST                                                          FC51039       13     A     
 KEY                ZR     X2,GOA60    IF NOT IN A BLOCK STRUCTURE                         FC51039       14     A     
 KEY                CLAS=  X3,WB,(DLEX)                                                    FC51039       15     A     
 KEY                LX0    X3                                                              FC51039       16     A     
 KEY                SA1    T.BLST                                                          FC51039       17     A     
 KEY                SB2    X2-1                                                            FC51039       18     A     
 KEY                                                                                       FC51039       19     A     
 KEY       GOA80    SA3    X1+B2       FETCH LC. WORD FOR BLOCK                            FC51039       20     A     
 KEY                LX3    -LC.CNTP                                                        FC51039       21     A     
 KEY                SB3    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY                FC51039       22     A     
 KEY                ERRNZ  18-LC.CNTL                                                      FC51039       23     A     
 KEY                HX3    LC.DO                                                           FC51039       24     A     
 KEY                AX3    -LC.DOL                                                         FC51039       25     A     
 KEY                SB2    B2-B3                                                           FC51039       26     A     
 KEY                ZR     X3,GOA88    IF NOT DO LOOP                                      FC51039       27     A     
 KEY                SB3    B2+DORT.W+1                                                     FC51039       28     A     
 KEY                SA4    X1+B3                                                           FC51039       29     A     
 KEY                HX4    TP.ORD                                                          FC51039       30     A     
 KEY                AX4    -TP.ORDL    EXTRACT ORDINAL                                     FC51039       31     A     
 KEY                SB3    X4                                                              FC51039       32     A     
 KEY                LX4    1                                                               FC51039       33     A     
 KEY                SB3    B3+X4       CONVERT ORDINAL TO INDEX                            FC51039       34     A     
 KEY                ERRNZ  3-Z=SYM                                                         FC51039       35     A     
 KEY                SB3    B3+WB.W                                                         FC51039       36     A     
 KEY                SA4    T.SYM                                                           FC51039       37     A     
 KEY                SA4    X4+B3       *DO* COMPILER GENERATED SYMBOL *WB* ENTRY           FC51039       38     A     
 KEY                BX6    X0+X4       SET WB.DLEX                                         FC51039       39     A     
 KEY                SA6    A4          UPDATE                                              FC51039       40     A     
 KEY                                                                                       FC51039       41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 880    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       GOA88    PL     B2,GOA80    IF MORE BLOCKS                                      FC51039       42     A     
 KEY                EQ     GOA60       EMIT *GO TO* TURPLE                                 FC51039       43     A     
 KEY       GOC      SPACE  4,20                                                            KEY         1012     A     
 KEY      **        GOC - TRANSLATE COMPUTED *GOTO*.                                       KEY         1013     A     
 KEY      *                                                                                KEY         1014     A     
 KEY      *         ENTRY  (B6) = 0.                                                       KEY         1015     A     
 KEY      *                (B4) _ *(* IN FRONT OF STATEMENT LABEL LIST.                    KEY         1016     A     
 KEY      *                                                                                KEY         1017     A     
 KEY      *         1.  COUNT NUMBER OF LABELS IN LIST.                                    KEY         1018     A     
 KEY      *         2.  PARSE THE INDEX EXPRESSION.                                        KEY         1019     A     
 KEY      *         3.  PAR CALLS (C=GOT) TO EMIT INDEXED JUMP TURPLE.                     KEY         1020     A     
 KEY      *         4.  UPON RETURN FROM PAR, LOOP THRU LABELS AGAIN                       KEY         1021     A     
 KEY      *                AND EMIT JUMP TURPLE FOR EACH TARGET.                           KEY         1022     A     
 KEY                                                                                       KEY         1023     A     
 KEY                                                                                       KEY         1024     A     
 KEY       GOC      BSS    0           ENTRY...                                            KEY         1025     A     
 KEY                                                                                       FC50646        6     A     
 KEY       GOC2     SA1    B4+2                                                            KEY         1026     A     
 KEY                =X2    X1-O.COMMA                                                      KEY         1027     A     
 KEY                SB4    B4+2                                                            KEY         1028     A     
 KEY                =B6    B6+1                                                            KEY         1029     A     
 KEY                ZR     X2,GOC2     IF COMMA, LOOP                                      KEY         1030     A     
 KEY                =X1    X1-O.RP                                                         KEY         1031     A     
 KEY                NZ     X1,E.GO     IF NOT *)* - ERROR...                               KEY         1032     A     
 KEY                SX6    O.SLP                                                           FC50646        7     A     
 KEY                SA6    B4          PROTECT FOR POSSIBLE UNARY MINUS                    FC50646        8     A     
 KEY                SA1    B4+B1                                                           KEY         1033     A     
 KEY                SB4    A1+B1       ADVANCE TOKEN POINTER BY 2                          KEY         1034     A     
 KEY                =X1    X1-O.COMMA                                                      KEY         1035     A     
 KEY                ZR     X1,GOC4     IF OPTIONAL COMMA PRESENT                           KEY         1036     A     
 KEY                =B4    B4-1                                                            KEY         1037     A     
 KEY                                                                                       KEY         1038     A     
 KEY       GOC4     SX7    B6          SET (2OP) = NUMBER OF BRANCHES                      KEY         1039     A     
 KEY                SX6    V=CGOTO                                                         KEY         1040     A     
 KEY                LX7    TP.BIASP                                                        KEY         1041     A     
 KEY                RJ     PJX         PARSE JUMP EXPRESSION                               KEY         1042     A     
 KEY                SA1    TB=1ST      (X1) = ADDR OF TOKEN FOLLOWING KEYW *GOTO*          KEY         1043     A     
 KEY                SB4    X1+B1       ADVANCE OVER THE (O.LP)                             KEY         1044     A     
 KEY                                                                                       KEY         1045     A     
 KEY      *         BUILD JUMP CODE FOR COMPUTED GOTO.                                     KEY         1046     A     
 KEY                                                                                       KEY         1047     A     
 KEY       GOC6     SA1    B4                                                              KEY         1048     A     
 KEY                =A2    B4-1                                                            KEY         1049     A     
 KEY                BX6    X1                                                              KEY         1050     A     
 KEY                SB7    X2-O.RP                                                         KEY         1051          I
          -FC50646
 KEY                SB7    X2-O.SLP                                                        FC50646        9     A     
 KEY                ZR     B7,PSL      IF END OF STATEMENT LABEL LIST                      KEY         1052     A     
 KEY                CLAS=  X2,WB,(SREF)                                                    KEY         1053          I
          -FC51356
 KEY                CLAS=  X2,WB,(GOTO,SREF)                                               FC51356       17     A     
 KEY                CALL   ISL         IDENTIFY STATEMENT LABEL                            KEY         1054     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 881    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                BX4    X6          (P1) = STATEMENT LABEL                              KEY         1055     A     
 KEY                MX5    0           (P2) = NIL                                          KEY         1056     A     
 KEY                EMIT   V=JGOTO                                                         KEY         1057     A     
 KEY                SA1    STL0R                                                           KEY         1058     A     
 KEY                SA2    TB=LABR                                                         KEY         1059     A     
 KEY                IX3    X2-X1                                                           KEY         1060     A     
 KEY                NZ     X3,GOC7     IF NOT REFERENCE TO CURRENT LABEL                   KEY         1061     A     
 KEY                TRIV   E.GO8       STATEMENT CAN TRANSFER TO ITSELF                    KEY         1062     A     
 KEY                                                                                       FC50646       10     A     
 KEY       GOC7     SB4    B4+2                                                            KEY         1063     A     
 KEY                EQ     GOC6        LOOP..                                              KEY         1064     A     
 KEY                                                                                       KEY         1065     A     
 KEY       GOTA     EQU    CLLA        SAVE OLD STATEMENT LABEL                            KEY         1066     A     
 KEY                TITLE  'IF' STATEMENTS.                                                KEY         1067     A     
 KEY       INIF     CONENT 0           (GL) WHEN PROCESSING A LOGICAL IF, ELSE 0           KEY         1068     A     
 KEY       IFNEST   DATA   0           .NZ. = IF NESTED IF                                 KEY         1069     A     
 KEY       IFMOD    CONENT 0           RESULTANT MODE OF IF EXPRESSION                     KEY         1070     A     
 KEY       IFRESLT  CONENT 0           RESULTANT OPERAND FROM IF EXPRESSION                KEY         1071     A     
 KEY       IFREL1   DATA   0           OPPOSITE *IF* ORDINAL                               KEY         1072     A     
 KEY       IFREL2   CONENT 0           .NZ. = (OPPOSITE) ORD. PAIR FOR SINGLE REL.         KEY         1073     A     
 KEY       IFLN     BSZENT 4           IF STATEMENT LABEL TAGS                             KEY         1074     A     
 KEY       IFSA     DATA   0           ENTRY CONDITION ON *B4*                             KEY         1075     A     
 KEY       IFSB     VFD    TB.TOCL/4LTHEN,TB.TOTL/O.VAR                                    KEY         1076     A     
 KEY       ELFA     VFD    TB.TOCL/2LIF,TB.TOTL/O.VAR                                      KEY         1077     A     
 KEY       ELS      SPACE  4,10                                                            KEY         1078     A     
 KEY      **        ELS - TRANSLATE "ELSE" STATEMENT.                                      KEY         1079     A     
 KEY      *                                                                                KEY         1080     A     
 KEY      *         SEE ANSI 11.8                                                          KEY         1081     A     
 KEY                                                                                       KEY         1082     A     
 KEY                                                                                       KEY         1083     A     
 KEY                HEREIF ELSE                                                            KEY         1084     A     
 KEY                SA2    T=BLST                                                          FC51490        8     A     
 KEY                ZR     X2,ELS      IF NO BLST TABLE                                    FC51490        9     A     
 KEY                RJ     FIB         FINISH PREVIOUS IF BLOCK                            KEY         1085     A     
 KEY                SA1    B4+                                                             KEY         1086     A     
 KEY                NZ     X1,ELF      IF NOT *ELSE*                                       KEY         1087     A     
 KEY                SA1    T.BLST                                                          KEY         1088     A     
 KEY                SA2    T=BLST                                                          KEY         1089     A     
 KEY                SB5    X2-Z=BLST-1+BLIA.W                                              KEY         1090     A     
 KEY                =X6    0                                                               KEY         1091     A     
 KEY                SA6    X1+B5       INDICATE NO FURTHER *ELSE* OR *ELSEIF*              KEY         1092     A     
 KEY                EQ     PSL         EXIT                                                KEY         1093          I
          -FC51490
 KEY       ELS      EQ     PSL         EXIT                                                FC51490       10     A     
 KEY       ELF      SPACE  4,10                                                            KEY         1094     A     
 KEY      **        ELF - TRANSLATE "ELSEIF" STATEMENT.                                    KEY         1095     A     
 KEY      *                                                                                KEY         1096     A     
 KEY      *         SEE ANSI 11.7                                                          KEY         1097     A     
 KEY                                                                                       KEY         1098     A     
 KEY                                                                                       KEY         1099     A     
 KEY       ELF      BSS    0                                                               KEY         1100     A     
 KEY                SA2    ELFA                                                            KEY         1101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 882    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                IX2    X1-X2                                                           KEY         1102     A     
 KEY                NZ     X2,E.FM     IF NOT *ELSEIF*                                     KEY         1103     A     
 KEY                =A1    B4+1                                                            KEY         1104     A     
 KEY                =B4    B4+1                                                            KEY         1105     A     
 KEY                SB2    X1-O.LP                                                         KEY         1106     A     
 KEY                NZ     B2,E.IF12   IF NOT *(*                                          KEY         1107     A     
 KEY                =X6    O.SLP                                                           KEY         1108     A     
 KEY                SA6    B4                                                              KEY         1109     A     
 KEY                SA2    IFARM                                                           KEY         1110     A     
 KEY                =X7    0                                                               KEY         1111     A     
 KEY                BX6    X2                                                              KEY         1112     A     
 KEY                SA7    ARGCOMA                                                         KEY         1113     A     
 KEY                SA6    ARGMODE                                                         KEY         1114     A     
 KEY                SA7    IFREL1      CLEAR ONE RELATIONAL *IF* CELL                      KEY         1115     A     
 KEY                CALL   PAR         PARSE THE *ELSEIF* EXPRESSION                       KEY         1116     A     
 KEY                =A1    B4+1                                                            KEY         1117     A     
 KEY                =B4    B4+1                                                            KEY         1118     A     
 KEY                SA2    IFSB                                                            KEY         1119     A     
 KEY                IX2    X1-X2                                                           KEY         1120     A     
 KEY                ZR     X2,ELF2     IF *THEN*                                           KEY         1121          I
          -FC50765
 KEY                ZR     X2,ELF1     IF *THEN*                                           FC50765        5     A     
 KEY                FATAL  E.IF14                                                          KEY         1122     A     
 KEY                EQ     ELF2                                                            FC50765        6     A     
 KEY                                                                                       FC50765        7     A     
 KEY       ELF1     =A1    B4+1                                                            FC50765        8     A     
 KEY                =B4    B4+1                                                            FC50765        9     A     
 KEY                ZR     X1,ELF2     IF NO TRAILING GARBAGE                              FC50765       10     A     
 KEY                ERRNZ  O.EOS                                                           FC50765       11     A     
 KEY                WARN   E.IF08                                                          FC50765       12     A     
 KEY                                                                                       KEY         1123     A     
 KEY       ELF2     SA2    IFMOD                                                           KEY         1124     A     
 KEY                =X2    X2-M.LOG                                                        KEY         1125     A     
 KEY                ZR     X2,ELF3     IF ELSEIF EXPRESSION LOGICAL                        KEY         1126     A     
 KEY                FATAL  E.IF01                                                          KEY         1127     A     
 KEY                                                                                       KEY         1128     A     
 KEY       ELF3     RJ     CIM         CONSTRUCT IF MEGATURPLE                             KEY         1129     A     
 KEY                SA1    T.BLST                                                          KEY         1130     A     
 KEY                SA2    T=BLST                                                          KEY         1131     A     
 KEY                SB5    X2-Z=BLST-1+BLIA.W                                              KEY         1132     A     
 KEY                SA7    X1+B5       UPDATE ADVANCE GENERATED LABEL                      KEY         1133     A     
 KEY                EQ     PSL                                                             KEY         1134     A     
 KEY       EIF      SPACE  4,10                                                            KEY         1135     A     
 KEY      **        EIF - PROCESS "END IF" STATEMENT.                                      KEY         1136     A     
 KEY      *                                                                                KEY         1137     A     
 KEY      *         SEE ANSI 11.9                                                          KEY         1138     A     
 KEY                                                                                       KEY         1139     A     
 KEY                                                                                       KEY         1140     A     
 KEY                HEREIF ENDIF                                                           KEY         1141     A     
 KEY                SA1    IFLEVEL                                                         KEY         1142          I
          -FC50642
 KEY                SA1    B4+                                                             FC50642        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 883    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ZR     X1,EIF0     IF NO TRAILING GARBAGE                              FC50642        6     A     
 KEY                ERRNZ  O.EOS                                                           FC50642        7     A     
 KEY                WARN   E.IF08      */ EXPECTED EOS, FOUND FILL.                        FC50642        8     A     
 KEY                                                                                       FC50642        9     A     
 KEY       EIF0     SA1    IFLEVEL                                                         FC50642       10     A     
 KEY                =X6    X1-1                                                            KEY         1143     A     
 KEY                MI     X6,E.IF13                                                       FC51247        5     A     
 KEY                MI     X6,E.IF13   IF NEGATIVE BLOCK IF LEVEL                          KEY         1144          I
          -FC51488
 KEY                SA6    A1+         DECREMENT BLOCK IF LEVEL                            KEY         1145     A     
 KEY                                                                                       KEY         1146     A     
 KEY       EIF1     SA1    T.BLST                                                          KEY         1147     A     
 KEY                SA2    T=BLST                                                          KEY         1148     A     
 KEY                ZR     X2,PSL      AN ENDIF WITH NOTHING IN BLST - LEAVE               FC51490       11     A     
 KEY                SB5    X2-1                                                            KEY         1149     A     
 KEY                SA3    X1+B5       FETCH COUNT WORD                                    KEY         1150     A     
 KEY                LX3    -LC.DOP                                                         KEY         1151     A     
 KEY                SB2    X3          EXTRACT DO INDEX                                    KEY         1152     A     
 KEY                ERRNZ  18-LC.DOL                                                       KEY         1153     A     
 KEY                ZR     B2,EIF2     IF LAST T.BLST ENTRY IS BLOCK IF                    KEY         1154     A     
 KEY                LX3    LC.DOP-LC.CNTP                                                  KEY         1155     A     
 KEY                SX0    X3          EXTRACT COUNT                                       KEY         1156     A     
 KEY                ERRNZ  18-LC.CNTL                                                      KEY         1157     A     
 KEY                IX0    X2-X0                                                           KEY         1158     A     
 KEY                SB2    X0+DO.W                                                         KEY         1159     A     
 KEY                SA3    X1+B2       FETCH DO TERMINATOR                                 KEY         1160     A     
 KEY                HX3    DO.TAG                                                          KEY         1161     A     
 KEY                AX3    -DO.TAGL    EXTRACT ORDINAL                                     KEY         1162     A     
 KEY                SB2    X3                                                              KEY         1163     A     
 KEY                BX4    X3                                                              KEY         1164     A     
 KEY                LX4    TP.ORDP     PRESERVE FOR RBE CALL                               KEY         1165     A     
 KEY                LX3    1                                                               KEY         1166     A     
 KEY                SB2    X3+B2       CONVERT ORDINAL TO INDEX                            KEY         1167     A     
 KEY                ERRNZ  3-Z=SYM                                                         KEY         1168     A     
 KEY                SA1    T.SYM                                                           KEY         1169     A     
 KEY                SA5    X1+B2       FETCH *WA*                                          KEY         1170     A     
 KEY                AX5    WA.STLP     EXTRACT LABEL                                       KEY         1171     A     
 KEY                CALL   LJS         LEFT JUSTIFY                                        KEY         1172     A     
 KEY                SA6    FILL.                                                           KEY         1173     A     
 KEY                FATAL  E.IF15                                                          KEY         1174     A     
 KEY                LX6    X4          DO TERMINATOR (TP. FORMAT)                          KEY         1175     A     
 KEY                CALL   RBE         REMOVE THE INCORRECT DO LOOP                        KEY         1176     A     
 KEY                EQ     EIF1                                                            KEY         1177     A     
 KEY                                                                                       KEY         1178     A     
 KEY       EIF2     CALL   FBS         FINISH THE BLOCK STRUCTURE                          KEY         1179     A     
 KEY                SA1    T.BLST                                                          KEY         1180     A     
 KEY                SA2    T=BLST                                                          KEY         1181     A     
 KEY                SB5    X2-Z=BLST-1+BLIB.W                                              KEY         1182     A     
 KEY                SA5    X1+B5       FETCH BLOCK IF BOTTOM LABEL                         KEY         1183     A     
 KEY                =A4    A5-BLIB.W+BLIA.W                                                KEY         1184     A     
 KEY                MX6    1           INDICATE ELSE                                       FC50318       15     A     
 KEY                ZR     X4,EIF3     IF LAST ARM WAS AN ELSE                             KEY         1185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 884    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                LX6    X5                                                              KEY         1186     A     
 KEY                SA6    EIFA        SAVE                                                KEY         1187     A     
 KEY                MX5    0                                                               KEY         1188          I
          -FC50265
 KEY                EMIT   V=BSS       LAST IFF GENERATED LABEL                            KEY         1189          I
          -FC50265
 KEY                RJ     EGL         EMIT LAST IF GENERATED LABEL                        FC50265       10     A     
 KEY                SA5    EIFA                                                            KEY         1190     A     
 KEY                SX6    0           INDICATE NOT ELSE                                   FC50318       16     A     
 KEY                                                                                       KEY         1191     A     
 KEY       EIF3     SA1    T=PAR                                                           KEY         1192          I
          -FC50318
 KEY       EIF3     SA6    EIFA        ELSE INDICATION                                     FC50318       17     A     
 KEY                SA1    T=PAR                                                           FC50318       18     A     
 KEY                LX7    X1                                                              KEY         1193     A     
 KEY                SA7    CURST       DONT SQUEEZE PAST IF BLOCK                          KEY         1194     A     
 KEY                SA1    T.BLST                                                          FC5A127       15     A     
 KEY                SA2    T=BLST                                                          FC5A127       16     A     
 KEY                SB2    X2-1                                                            FC5A127       17     A     
 KEY                SA2    X1+B2       FETCH LC WORD                                       FC5A127       18     A     
 KEY                SBIT   X2,LC.GLMP                                                      FC5A127       19     A     
 KEY                SA3    EIFA        ELSE INDICATION                                     FC50318       19     A     
 KEY                BX6    -X2*X3      .NOT. GLM .AND. ELSE                                FC50318       20     A     
 KEY                SA6    A3          SAVE FOR NOPATH ANALYSIS                            FC50318       21     A     
 KEY                PL     X2,EIF4     IF BOTTOM LABEL NOT TO MATERIALIZE                  FC5A127       20     A     
 KEY                LX4    X5                                                              KEY         1195     A     
 KEY                =X5    0                                                               KEY         1196          I
          -FC50265
 KEY                EMIT   V=BSS       BLOCK IF BOTTOM LABEL                               KEY         1197          I
          -FC50265
 KEY                RJ     EGL         EMIT BLOCK IF BOTTOM LABEL                          FC50265       11     A     
 KEY                                                                                       FC50265       12     A     
 KEY                SA2    NOPATH                                                          KEY         1198          I
          -FC5A148
 KEY                ZR     X2,EIF4     IF LAST ACTIVE STATEMENT NOT BRANCH                 KEY         1199          I
          -FC5A148
 KEY       EIF4     SA2    NOPATH                                                          FC5A148        4     A     
 KEY                SA1    EIFA                                                            FC50318       22     A     
 KEY                BX1    X1*X2                                                           FC50318       23     A     
 KEY                NZ     X1,EIF5     IF ALL ARMS UNCONDITIONAL CONTROL CHANGE            FC50318       24     A     
 KEY                ZR     X2,EIF5     IF LAST ACTIVE STATEMENT NOT BRANCH                 FC5A148        5     A     
 KEY                MX6    0                                                               KEY         1200     A     
 KEY                SA6    A2          CLEAR                                               KEY         1201     A     
 KEY                SA6    FLOW        CLEAR                                               KEY         1202     A     
 KEY                                                                                       FC5A341        8     A     
 KEY       EIF4     SA2    T=BLST                                                          KEY         1203          I
          -FC5A148
 KEY       EIF5     SA2    T=BLST                                                          FC5A148        6     A     
 KEY                SX2    X2-Z=BLST-1                                                     KEY         1204     A     
 KEY                SHRINK A2,X2                                                           KEY         1205     A     
 KEY                ZR     X2,PSL      IF NO NESTED BLOCK STRUCTURES                       FC5A341        9     A     
 KEY                SA1    CSLTAG                                                          FC5A341       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 885    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ZR     X1,PSL      IF ENDIF UNLABELLED                                 FC5A341       11     A     
 KEY                BX6    X1                                                              FC5A341       12     A     
 KEY                =B7    X1+WB.W                                                         FC5A341       13     A     
 KEY                LX1    1                                                               FC5A341       14     A     
 KEY                SB7    X1+B7       CONVERT ORDINAL TO INDEX                            FC5A341       15     A     
 KEY                ERRNZ  3-Z=SYM                                                         FC5A341       16     A     
 KEY                =B2    1           INDICATE LABEL DEFINITION                           FC5A341       17     A     
 KEY                SA1    TB=LABL                                                         FC5A341       18     A     
 KEY                BX7    X1                                                              FC5A341       19     A     
 KEY                SA7    FILL.2      SAVE FOR POSSIBLE DIAGNOSTIC                        FC5A341       20     A     
 KEY                CALL   ALU         ANALYZE LABEL USAGE                                 FC5A341       21     A     
 KEY                EQ     PSL         EXIT                                                KEY         1206     A     
 KEY                                                                                       KEY         1207     A     
 KEY       EIFA     BSS    1                                                               KEY         1208     A     
 KEY       IFS      SPACE  4,10                                                            KEY         1209     A     
 KEY      ***       IFS -  PROCESS "IF" STATEMENT.                                         KEY         1210     A     
 KEY      *                                                                                KEY         1211     A     
 KEY      *         ENTRY  B4 - *(* FOLLOWING *IF*.                                        KEY         1212     A     
 KEY                                                                                       KEY         1213     A     
 KEY                                                                                       KEY         1214     A     
 KEY       IFS      BSSENT 0           ENTRY...                                            KEY         1215     A     
 KEY                =B4    B4+1        SET PAST *IF* IN *SB*.                              KEY         1216     A     
 KEY                =X6    O.SLP                                                           KEY         1217     A     
 KEY                SA6    B4          DUMMY TO SET UP PARSED MODE.                        KEY         1218     A     
 KEY                SA2    IFARM                                                           KEY         1219     A     
 KEY                =X7    0                                                               KEY         1220     A     
 KEY                BX6    X2                                                              KEY         1221     A     
 KEY                SA7    ARGCOMA                                                         KEY         1222     A     
 KEY                SA6    ARGMODE                                                         KEY         1223     A     
 KEY                SA7    IFREL1      CLEAR ONE RELATIONAL *IF* CELL                      KEY         1224     A     
 KEY                                                                                       KEY         1225     A     
 KEY                CALL   PAR         PARSE IT                                            KEY         1226     A     
 KEY                                                                                       KEY         1227     A     
 KEY      **        RETURN FROM PARSER WITH *B4* _ CLOSING *)* OF *IF*                     KEY         1228     A     
 KEY      *         (IFMOD) = RESULTANT MODE OF *IF* EXPRESSION                            KEY         1229     A     
 KEY      *         (IFRESLT) = RESULT EXPRESSION TAG, EITHER AN INTERMEDIATE OR           KEY         1230     A     
 KEY      *                     SIMPLE VARIABLE                                            KEY         1231     A     
 KEY                                                                                       KEY         1232     A     
 KEY                SA1    B4+1                                                            KEY         1233     A     
 KEY                MX0    TB.TOCL                                                         KEY         1234     A     
 KEY                =B4    B4+1        POINT TO 1ST OF OBJECT                              KEY         1235     A     
 KEY                ZR     X1,E.IF00   IF MISSING OBJECT OF *IF*                           KEY         1236     A     
 KEY                =B2    X1-O.CONS                                                       KEY         1237     A     
 KEY                BX6    X0*X1                                                           KEY         1238     A     
 KEY                SA6    FILL.       RESET FILL.                                         KEY         1239     A     
 KEY                SA2    IFMOD                                                           KEY         1240     A     
 KEY                ZR     B2,IFL      IF OBJECT OF *IF* IS A STATEMENT LABEL              KEY         1241     A     
 KEY                SB7    X2-M.LOG                                                        KEY         1242     A     
 KEY                NZ     B7,E.IF09   IF EXPRESSION MODE NOT LOGICAL                      KEY         1243     A     
 KEY                SA2    INIF                                                            KEY         1244     A     
 KEY                NZ     X2,E.IF11   IF LOGICAL IF IS OBJECT OF IF                       KEY         1245     A     
 KEY                                                                                       FC50483        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 886    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       IFS11    BSSENT 0           ...RETURN FROM ERROR PROCESSOR.                     KEY         1246     A     
 KEY                SA4    B4                                                              KEY         1247     A     
 KEY                SA2    IFSB                                                            KEY         1248     A     
 KEY                BX6    X4-X2                                                           KEY         1249     A     
 KEY                NZ     X6,IFS30    IF FIRST TOKEN OF OBJECT NOT = 'THEN'               KEY         1250     A     
 KEY                SA3    B4+B1                                                           KEY         1251     A     
 KEY                ZR     X3,IFT      IF THIS IS A BLOCK-IF                               KEY         1252     A     
 KEY                                                                                       KEY         1253     A     
 KEY       IFS30    CALL   CST         CLASSIFY STMT (OBJECT OF *IF*)                      KEY         1254     A     
 KEY                SA5    TB=TYPE     (X5) = STMT TYPE INFO FOR OBJECT OF *IF*            KEY         1255     A     
 KEY                ZR     X5,E.FM     IF *UNTYPED*, NOT A FORTRAN STATEMENT               KEY         1256     A     
 KEY                BX0    X5                                                              KEY         1257     A     
 KEY                SBIT   X0,KW.NIFP                                                      KEY         1258     A     
 KEY                MI     X0,E.IF06   IF THIS STATEMENT NOT OK AS OBJECT OF *IF*          KEY         1259     A     
 KEY                SA1    DTI                                                             KEY         1260     A     
 KEY                ZR     X1,IFS40    IF NOT *DO* TERMINATOR                              KEY         1261     A     
 KEY                LX0    KW.NIFP-KW.DONP                                                 KEY         1262     A     
 KEY                PL     X0,IFS40    IF NOT (*ILL DO TERM*)                              KEY         1263     A     
 KEY                ANSI   E.IF02      OBJECT OF IF IS ILLEGAL DO TERMINAL                 KEY         1264     A     
 KEY                                                                                       FC50483        8     A     
 KEY       IFS40    SA1    FLOW                                                            KEY         1265     A     
 KEY                NZ     X1,FEC.RIF  IF NOT PATH, RETURN TO CONTROLLER...                KEY         1266     A     
 KEY                RJ     CIM         CONSTRUCT IF MEGATURPLE                             KEY         1267     A     
 KEY                SA7    INIF        INDICATE GL TO BE ISSUED AFTER OBJECT               KEY         1268     A     
 KEY                SA1    T=PAR                                                           KEY         1269     A     
 KEY                BX6    X1                                                              KEY         1270     A     
 KEY                SA6    CURST                                                           KEY         1271     A     
 KEY                EQ     FEC.RIF     EXIT TO FEC...                                      KEY         1272     A     
 KEY       IFT      SPACE  4,10                                                            KEY         1273     A     
 KEY      **        IFT - PROCESS BLOCK-IF.                                                KEY         1274     A     
 KEY      *                                                                                KEY         1275     A     
 KEY      *         SEE ANSI 11.6                                                          KEY         1276     A     
 KEY                                                                                       KEY         1277     A     
 KEY                                                                                       KEY         1278     A     
 KEY       IFT      SA1    IFLEVEL                                                         KEY         1279     A     
 KEY                =X6    X1+1                                                            KEY         1280     A     
 KEY                SA6    A1          INCREMENT BLOCK IF LEVEL                            KEY         1281     A     
 KEY                ALLOC  T.BLST,Z=BLST                                                   KEY         1282     A     
 KEY                RJ     CIM         CONSTRUCT IF MEGATURPLE                             KEY         1283     A     
 KEY                SA1    T.BLST                                                          KEY         1284     A     
 KEY                SA2    T=BLST                                                          KEY         1285     A     
 KEY                SB5    X2-Z=BLST+BLIB.W                                                KEY         1286     A     
 KEY                =X6    1                                                               KEY         1287     A     
 KEY                LX6    TP.ORDP                                                         KEY         1288     A     
 KEY                IX6    X6+X7       MAKE BOTTOM GENERATED LABEL                         KEY         1289     A     
 KEY                SA6    X1+B5       SET BOTTOM POINTER GENERATED LABEL                  KEY         1290     A     
 KEY                =A7    A6-BLIB.W+BLIA.W                                                KEY         1291     A     
 KEY                SB5    X2-Z=BLST+BLIC.W      BLIC.W  EQU  DO.W                         FC51501        8     A     
 KEY                MX7    0                                                               FC51501        9     A     
 KEY                SA7    X1+B5       INSURE THIS LOCATON CLEAR FOR BLOCK *IFS*           FC51501       10     A     
 KEY                SA1    REFLIN                                                          KEY         1292     A     
 KEY                SX6    Z=BLST+1                                                        KEY         1293     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 887    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                LX1    -XR.LINEP+LC.LINEP                                              KEY         1294     A     
 KEY                BX6    X1+X6                                                           KEY         1295     A     
 KEY                ADDWD  T.BLST                                                          KEY         1296     A     
 KEY                SA1    N.GL                                                            KEY         1297     A     
 KEY                =X6    X1+1                                                            KEY         1298     A     
 KEY                SA6    A1          INCREMENT GENERATED LABEL COUNT                     KEY         1299     A     
 KEY                EQ     PSL                                                             KEY         1300     A     
 KEY       IFL      SPACE  4,10                                                            KEY         1301     A     
 KEY      **        IFL - STATEMENT LABEL IF.                                              KEY         1302     A     
 KEY      *                                                                                KEY         1303     A     
 KEY      *         ENTRY  (B4) _ FIRST STATEMENT LABEL.                                   KEY         1304     A     
 KEY      *                SAVE STATEMENT LABELS IN (IFLN) AND RETURN TO MASTER            KEY         1305     A     
 KEY      *                LOOP TO GET NEXT EXECUTABLE STATEMENT.                          KEY         1306     A     
 KEY      *                                                                                KEY         1307     A     
 KEY      *                RETURN TO IFL50 AND SET-UP SKELETON MACRO FOR PROPER            KEY         1308     A     
 KEY      *                JUMP FOR *IF*.                                                  KEY         1309     A     
 KEY                                                                                       KEY         1310     A     
 KEY                                                                                       KEY         1311     A     
 KEY       IFL      SA1    INIF                                                            KEY         1312          I
          -FC50483
 KEY       IFL      SA1    IFMOD       MODE OF IF EXPRESSION                               FC50483        9     A     
 KEY                SA2    F.IFS       SELECTION MATRIX                                    FC50483       10     A     
 KEY                LX1    3                                                               FC50483       11     A     
 KEY                SB2    X1          SHIFT COUNT                                         FC50483       12     A     
 KEY                LX2    X2,B2       EXTRACT SKELETON (RELATIVE)                         FC50483       13     A     
 KEY                PL     X2,IFL20    IF EXPRESSION LEGAL                                 FC50483       14     A     
 KEY                AX1    3           RESTORE TP.MODE                                     FC50483       15     A     
 KEY                SA2    X1+MOD.DPC  DPC OF MODE                                         FC50483       16     A     
 KEY                BX6    X2                                                              FC50483       17     A     
 KEY                SA6    FILL.3                                                          FC50483       18     A     
 KEY                FATAL  E.IF07                                                          FC50483       19     A     
 KEY                                                                                       FC50483       20     A     
 KEY       IFL20    SA1    INIF                                                            FC50483       21     A     
 KEY                BX6    X1                                                              KEY         1313     A     
 KEY                SA6    IFNEST                                                          KEY         1314     A     
 KEY                =X6    CR.IFN                                                          KEY         1315     A     
 KEY                SB6    0                                                               KEY         1316     A     
 KEY                SA6    REFVAR      INDICATE OBJECT OF IF REFERENCE.                    KEY         1317     A     
 KEY                SA1    B4          PRELOAD 1ST STATEMENT LABEL                         KEY         1318     A     
 KEY                =B5    3           MAXIMUM NUMBER OF STATEMENT LABELS POSSIBLE         KEY         1319     A     
 KEY                =X6    1                                                               KEY         1320     A     
 KEY                SA6    IFFLAG      INDICATE INACTIVE LABEL (FOR ISL)                   KEY         1321     A     
 KEY                                                                                       KEY         1322     A     
 KEY      **        IDENTIFY STATEMENT LABELS.                                             KEY         1323     A     
 KEY                                                                                       KEY         1324     A     
 KEY       IFL30    =B4    B4+1                                                            KEY         1325     A     
 KEY                CLAS=  X2,WB,(SREF)                                                    KEY         1326          I
          -FC51356
 KEY                CLAS=  X2,WB,(GOTO,SREF)                                               FC51356       18     A     
 KEY                BX6    X1                                                              KEY         1327     A     
 KEY                CALL   ISL         IDENTIFY STATEMENT LABEL                            KEY         1328     A     
 KEY                SA1    B4                                                              KEY         1329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 888    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA6    B6+IFLN     SAVE TAG.                                           KEY         1330     A     
 KEY                =B2    X1-O.COMMA                                                      KEY         1331     A     
 KEY                =B6    B6+1                                                            KEY         1332     A     
 KEY                ZR     X1,IFL40    IF *EOS*                                            KEY         1333     A     
 KEY                NZ     B2,E.IF03   IF NOT *,*                                          KEY         1334     A     
 KEY                =A1    B4+1                                                            KEY         1335     A     
 KEY                =B4    B4+1                                                            KEY         1336     A     
 KEY                ZR     X1,IFL40    IF *EOS*                                            KEY         1337     A     
 KEY                NE     B6,B5,IFL30 LOOP ON NEXT LABEL                                  KEY         1338     A     
 KEY                =B4    B4-1                                                            KEY         1339     A     
 KEY                SA1    B4          TEST FOR CLEAN STATEMENT ENDING                     KEY         1340     A     
 KEY                NZ     X1,E.IF03   IF NOT *EOS*                                        KEY         1341     A     
 KEY                                                                                       KEY         1342     A     
 KEY      *         GO OFF TO HANGER PROCESSING.                                           KEY         1343     A     
 KEY                                                                                       KEY         1344     A     
 KEY       IFL40    =X6    0                                                               KEY         1345     A     
 KEY                MX7    0                                                               KEY         1346     A     
 KEY                SA7    IFFLAG                                                          KEY         1347     A     
 KEY                SB7    B6-3                                                            KEY         1348     A     
 KEY                =A6    A6+1        INDICATE END OF TABLE                               KEY         1349     A     
 KEY                MI     B7,E.IF10   IF LESS THAN 3 LABELS                               KEY         1350     A     
 KEY                SA1    DTI                                                             KEY         1351     A     
 KEY                SX7    IFL50       (X7) = RETURN ADDR FOR *HANGER*                     KEY         1352     A     
 KEY                =X6    0                                                               KEY         1353     A     
 KEY                SA7    HANGER      SET RETURN ADDRESS                                  KEY         1354     A     
 KEY                SA6    INIF        INDICATE TO *PSL* NO TAG NECESSARY                  KEY         1355     A     
 KEY                ZR     X1,PSL      IF NOT DO TERMINAL                                  KEY         1356     A     
 KEY                FATAL  E.MDO       *ILLEGAL DO TERMINAL*                               KEY         1357     A     
 KEY                EQ     PSL         RETURN FOR NEXT EXECUTABLE STATEMENT                KEY         1358     A     
 KEY                                                                                       KEY         1359     A     
 KEY      **        HERE WITH NEXT EXECUTABLE STATEMENT.                                   KEY         1360     A     
 KEY                                                                                       KEY         1361     A     
 KEY       IFL50    =X7    0                                                               KEY         1362     A     
 KEY                SA1    IFLN+2      PRELOAD *3RD* STATEMENT LABEL                       KEY         1363     A     
 KEY                SA7    HANGER                                                          KEY         1364     A     
 KEY                LX6    X1          SAME *3RD* LABEL                                    KEY         1365     A     
 KEY                SA4    CSLTAG      NEXT EXECUTABLE STATEMENT TAG                       KEY         1366     A     
 KEY                LX4    TP.ORDP                                                         KEY         1367     A     
 KEY                SB4    3+1                                                             KEY         1368     A     
 KEY                                                                                       KEY         1369     A     
 KEY       IFL52    =B4    B4-1                                                            KEY         1370     A     
 KEY                IX0    X1-X4       COMPARE TARGET LABEL WITH UPCOMING LABEL            KEY         1371     A     
 KEY                =A1    A1-1        LOAD NEXT LABEL                                     KEY         1372     A     
 KEY                ZR     X0,IFL60    IF MATCH                                            KEY         1373     A     
 KEY                NZ     B4,IFL52    IF NOT END OF TABLE                                 KEY         1374     A     
 KEY                                                                                       KEY         1375     A     
 KEY      **        SET-UP JUMP FOR COMPILING CODE FOR IF-JUMP.                            KEY         1376     A     
 KEY                                                                                       KEY         1377     A     
 KEY       IFL60    SA1    IFLN        1ST                                                 KEY         1378     A     
 KEY                SX5    B4          SET UPCOMING STATEMENT LABEL FLAG                   KEY         1379     A     
 KEY                =A2    A1+1        2ND                                                 KEY         1380     A     
 KEY                BX7    0                                                               KEY         1381     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 889    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                IX3    X1-X6       1ST-3RD                                             KEY         1382     A     
 KEY                NZ     X3,IFL61    IF 1ST"3RD                                          KEY         1383     A     
 KEY                SX7    X7+3                                                            KEY         1384     A     
 KEY       IFL61    BX0    X2-X6       2ND-3RD                                             KEY         1385     A     
 KEY                NZ     X0,IFL62    IF 2ND"3RD                                          KEY         1386     A     
 KEY                SX7    X7+2                                                            KEY         1387     A     
 KEY       IFL62    IX0    X1-X2       1ST-2ND                                             KEY         1388     A     
 KEY                NZ     X0,IFL63    IF 1ST"2ND                                          KEY         1389     A     
 KEY                =X7    X7+1                                                            KEY         1390     A     
 KEY                                                                                       KEY         1391     A     
 KEY      **        HERE WITH                                                              KEY         1392     A     
 KEY      *         (X7) = 0 = 1ST"2ND"3RD       (X5)  1 = 1ST = N                         KEY         1393     A     
 KEY      *                1 = 1ST=2ND                 2 = 2ND = N                         KEY         1394     A     
 KEY      *                2 = 2ND=3RD                 3 = 3RD = N                         KEY         1395     A     
 KEY      *                3 = 3RD=1ST                 0 = N NOT REFERENCED.               KEY         1396     A     
 KEY      *                6 = 1ST=2ND=3RD                                                 KEY         1397     A     
 KEY                                                                                       KEY         1398     A     
 KEY       IFL63    SA1    T.SYM                                                           KEY         1399     A     
 KEY                SA2    IFLN-1                                                          KEY         1400     A     
 KEY                =X1    X1-WA.W+WB.W                                                    KEY         1401     A     
 KEY                SB4    3+1                                                             KEY         1402     A     
 KEY                                                                                       KEY         1403     A     
 KEY       IFL63A   =B4    B4-1                                                            KEY         1404     A     
 KEY                ZR     B4,IFL63B   IF END OF TABLE                                     KEY         1405     A     
 KEY                =A2    A2+1                                                            KEY         1406     A     
 KEY                MI     X2,IFL63A   IF LABEL IS BAD (SYNTAX ERROR)                      KEY         1407     A     
 KEY                IX0    X2-X4                                                           KEY         1408     A     
 KEY                ZR     X0,IFL63A   IF MATCH                                            KEY         1409     A     
 KEY                LX2    -TP.ORDP                                                        KEY         1410     A     
 KEY                MX0    -TP.ORDL                                                        KEY         1411     A     
 KEY                BX2    -X0*X2      ISOLATE ORDINAL                                     KEY         1412     A     
 KEY                SB5    X2                                                              KEY         1413     A     
 KEY                LX2    1                                                               KEY         1414     A     
 KEY                SB5    X2+B5       CONVERT ORDINAL TO INDEX                            KEY         1415     A     
 KEY                SA3    X1+B5       *WB* OF LABEL                                       KEY         1416     A     
 KEY                =X6    1                                                               KEY         1417     A     
 KEY                LX6    WB.ACTP                                                         KEY         1418     A     
 KEY                BX6    X6+X3                                                           KEY         1419     A     
 KEY                SA6    A3          MARK LABEL AS ACTIVE                                KEY         1420     A     
 KEY                EQ     IFL63A                                                          KEY         1421     A     
 KEY                                                                                       KEY         1422     A     
 KEY       IFL63B   SA1    IFNEST                                                          KEY         1423     A     
 KEY                NZ     X1,IFL64    IF APPENDED TO LOGICAL IF                           KEY         1424     A     
 KEY                SX6    1                                                               KEY         1425          I
          -FC50318
 KEY                MX6    1                                                               FC50318       25     A     
 KEY                SA6    NOPATH      INDICATE NO PATH TO NEXT STATEMENT                  KEY         1426     A     
 KEY                                                                                       FC50318       26     A     
 KEY       IFL64    SB3    X7-6                                                            KEY         1427     A     
 KEY                NZ     B3,IFL70    IF NO POSSIBLE NULL-TRANSFER.                       KEY         1428     A     
 KEY                ZR     X5,IFL65    IF NOT NULL TRANSFER.                               KEY         1429     A     
 KEY                WARN   E.IF05      DO NOTHING STATEMENT                                KEY         1430     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 890    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                EQ     CUS.RET     FINISH PROCESSING HANGER.                           KEY         1431     A     
 KEY                                                                                       KEY         1432     A     
 KEY       IFL65    SX3    V=I111                                                          KEY         1433     A     
 KEY                SA1    IFNEST                                                          KEY         1434     A     
 KEY                NZ     X1,IFL90    IF APPENDED TO LOGICAL IF                           KEY         1435     A     
 KEY                WARN   E.IF04                                                          KEY         1436          I
          -FC51029
 KEY                EQ     IFL90       CONTINUE.                                           KEY         1437          I
          -FC51029
 KEY                TRIV   E.IF04                                                          FC51029        7     A     
 KEY                SA4    IFLN        1ST LABEL (=2ND LABEL = 3RD LABEL)                  FC51029        8     A     
 KEY                MX5    0                                                               FC51029        9     A     
 KEY                EMIT   V=GOTO                                                          FC51029       10     A     
 KEY                EQ     CUS.RET     FINISH PROCESSING HANGER                            FC51029       11     A     
 KEY                                                                                       KEY         1438     A     
 KEY       IFL70    SA1    IFMOD                                                           KEY         1439     A     
 KEY                SB6    F.IFS                                                           KEY         1440     A     
 KEY                =B3    0                                                               KEY         1441     A     
 KEY                ZR     X5,IFL80    IF NO REFERENCE TO UPCOMING LABEL                   KEY         1442     A     
 KEY                SB6    X5+F.IFS+3                                                      KEY         1443     A     
 KEY                ZR     X7,IFL80    IF ONLY ONE REFERENCE AND NO 2 ALIKE                KEY         1444     A     
 KEY                SB6    F.IFN-4                                                         KEY         1445     A     
 KEY                =X7    X7+1                                                            KEY         1446     A     
 KEY                =B3    1                                                               KEY         1447     A     
 KEY                SB2    X5-3                                                            KEY         1448     A     
 KEY                LX7    1           *2                                                  KEY         1449     A     
 KEY                PL     B2,IFL80    IF NEXT IS THIRD IF-TARGET                          KEY         1450     A     
 KEY                =B3    0                                                               KEY         1451     A     
 KEY                                                                                       KEY         1452     A     
 KEY      *         HERE WITH --                                                           KEY         1453     A     
 KEY      *         (B3) = OFFSET FOR STATEMENT LABEL CONFIGURATION.                       KEY         1454     A     
 KEY      *         (B6) = BASE TABLE TO USE.                                              KEY         1455     A     
 KEY      *         (X7) = SPECIAL OFFSET WHEN *N* IS ONE OF STATEMENT LABELS.             KEY         1456     A     
 KEY                                                                                       KEY         1457     A     
 KEY       IFL80    SA2    IFMOD       DM = (IFMOD)                                        KEY         1458     A     
 KEY                SB3    X7+B3       (B3) = COMPLETE OFFSET                              KEY         1459     A     
 KEY                MX0    8                                                               KEY         1460     A     
 KEY                LX2    3                                                               KEY         1461     A     
 KEY                SA1    B3+B6       LOAD MODE SELECTION VECTOR                          KEY         1462     A     
 KEY                SB2    X2          (B2) = 8 * DM                                       KEY         1463     A     
 KEY                LX3    X1,B2                                                           KEY         1464     A     
 KEY                BX2    X0*X3       EXTRACT RELATIVE SKELETON NUMBER                    KEY         1465     A     
 KEY                PL     X2,IFL85    IF EXPRESSION MODE LEGAL                            KEY         1466          I
          -FC50483
 KEY                SA2    IFMOD                                                           KEY         1467          I
          -FC50483
 KEY                SA1    X2+MOD.DPC  FETCH DPC OF MODE                                   KEY         1468          I
          -FC50483
 KEY                BX6    X1                                                              KEY         1469          I
          -FC50483
 KEY                SA6    FILL.3                                                          KEY         1470          I
          -FC50483
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 891    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                FATAL  E.IF07      ILLEGAL MODE FOR LABEL IF                           KEY         1471          I
          -FC50483
 KEY                EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER                  KEY         1472          I
          -FC50483
 KEY                                                                                       KEY         1473          I
          -FC50483
 KEY       IFL85    LX2    8                                                               KEY         1474          I
          -FC50483
 KEY                MI     X2,CUS.RET  IF EXPRESSION MODE ILLEGAL                          FC50483       22     A     
 KEY                LX2    8                                                               FC50483       23     A     
 KEY                SA1    FLOW                                                            KEY         1475     A     
 KEY                SX3    X2+OM=IF    (X3) = COMPLETE SKELETON NUMBER                     KEY         1476     A     
 KEY                NZ     X1,CUS.RET  IF NO PATH                                          KEY         1477     A     
 KEY                                                                                       KEY         1478     A     
 KEY      *         EMIT TURPLE TO IL (PARSED FILE).                                       KEY         1479     A     
 KEY      *                                                                                KEY         1480     A     
 KEY      *         ENTRY  (X3) = SKELETON FOR THIS IF.                                    KEY         1481     A     
 KEY      *                (IFLN) = VECTOR OF JUMP TARGET TAGS.                            KEY         1482     A     
 KEY      *                                                                                KEY         1483     A     
 KEY      *         A THREE-BRANCH IF MEGA-TURPLE CONSISTS OF TWO TURPLES,                 KEY         1484     A     
 KEY      *         ORGANIZED AS FOLLOWS --                                                KEY         1485     A     
 KEY      *         1.  OPR = IF-MACRO SKELETON ADDRESS.                                   KEY         1486     A     
 KEY      *                (P1) = EXPRESSION RESULT          (IFRESLT)                     KEY         1487     A     
 KEY      *                (P2) = 1ST LABEL.                 (IFLN+0)                      KEY         1488     A     
 KEY      *         2.  OPR = NOOP SKELETON.                                               KEY         1489     A     
 KEY      *                (P3) = 2ND LABEL.                 (IFLN+1)                      KEY         1490     A     
 KEY      *                (P4) = 3RD LABEL.                 (IFLN+2)                      KEY         1491     A     
 KEY                                                                                       KEY         1492     A     
 KEY       IFL90    SX7    X3          EXTRACT SKELETON ADDRESS                            KEY         1493     A     
 KEY                SA2    OPDUM+DUC=1ST                                                   KEY         1494     A     
 KEY                LX7    TH.SKELP                                                        KEY         1495          I
          -FC50104
 KEY                LX7    SP.SKELP                                                        FC50104       59     A     
 KEY                SA4    IFRESLT     (P1) = IF-EXPRESSION RESULT                         KEY         1496     A     
 KEY                BX6    X2+X7                                                           KEY         1497     A     
 KEY                SA5    IFLN        (P2) = LABEL 1                                      KEY         1498     A     
 KEY                SA6    IFSA        STORE IF-OPERATOR                                   KEY         1499     A     
 KEY                EMIT   A6,*                                                            KEY         1500     A     
 KEY                SA4    A5+B1       (P3) = LABEL 2                                      KEY         1501     A     
 KEY                SA5    A4+B1       (P4) = LABEL 3                                      KEY         1502     A     
 KEY                EMIT   NOOPP,*                                                         KEY         1503     A     
 KEY                                                                                       KEY         1504     A     
 KEY                SA2    IFNEST                                                          KEY         1505     A     
 KEY                ZR     X2,CUS.RET  IF THIS ARITH IF NOT OBJ OF LOG IF                  KEY         1506     A     
 KEY                CALL   CSB         EMIT BSS TURPLE                                     KEY         1507     A     
 KEY                BX6    0                                                               KEY         1508     A     
 KEY                SA6    IFNEST      SO ONLY ONE BSS TURPLE EMITTED                      KEY         1509     A     
 KEY                EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER                  KEY         1510     A     
 KEY                                                                                       KEY         1511     A     
 KEY       IFFLAG   BSZENT 1                                                               KEY         1512     A     
 KEY       CIM      SPACE  4,10                                                            KEY         1513     A     
 KEY      **        CIM -  CONSTRUCT IF MEGATURPLE                                         KEY         1514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 892    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *                                                                                KEY         1515     A     
 KEY      *         EXIT   (X7) = GENERATED LABEL (IF FALSE JUMP) (TP. FORMAT)             KEY         1516     A     
 KEY                                                                                       KEY         1517     A     
 KEY                                                                                       KEY         1518     A     
 KEY       CIM      SUBR               ...ENTRY/EXIT...                                    KEY         1519     A     
 KEY                SX4    V=IFF       (X4) = NORMAL LOGIC SKELETON                        KEY         1520     A     
 KEY                SX5    V=IFT       (X5) = OPPOSITE LOGIC SKELETON                      KEY         1521     A     
 KEY                SA2    IFREL2                                                          KEY         1522     A     
 KEY                ZR     X2,CIM1     IF CONDITION IS NOT SINGLE-RELATIONAL               KEY         1523     A     
 KEY                                                                                       KEY         1524     A     
 KEY                                                                                       KEY         1525     A     
 KEY      **        IF CONDITION IS SINGLE RELATIONAL.  THE LAST TURPLE IN THE             KEY         1526     A     
 KEY      *         PARSE FILE IS NOW A RELATIONAL WHICH COMPUTES THE DESIRED              KEY         1527     A     
 KEY      *         LOGICAL VALUE.  CHANGE ITS (OPR) TO THE CORRESPONDING IF-1REL          KEY         1528     A     
 KEY      *         SKELETON, THUS USING IT AS THE FIRST TURPLE OF THE IF MEGA-            KEY         1529     A     
 KEY      *         TURPLE WE ARE TO CONSTRUCT.                                            KEY         1530     A     
 KEY                                                                                       KEY         1531     A     
 KEY                SA3    T.PAR                                                           KEY         1532     A     
 KEY                SA4    T=PAR                                                           KEY         1533     A     
 KEY                IX0    X3+X4       (X0) = LWA+1 PARSED FILE                            KEY         1534     A     
 KEY                SX7    X2                                                              KEY         1535     A     
 KEY                SA1    X0-Z=TURP+OR.OPR                                                KEY         1536     A     
 KEY                MX6    -TH.SKELL                                                       KEY         1537     A     
 KEY                IFEQ   TEST,ON,1                                                       KEY         1538     A     
 KEY                MI     X7,"BLOWUP" NO OPPOSITE SPECIAL                                 KEY         1539     A     
 KEY                AX2    30                                                              KEY         1540     A     
 KEY                SA7    IFREL1      OPPOSITE LOGIC SKELETON                             KEY         1541     A     
 KEY                LX1    -TH.SKELP                                                       KEY         1542     A     
 KEY                BX0    X6*X1                                                           KEY         1543     A     
 KEY                BX7    X0+X2       SET LAST TURP = NORMAL 1-REL LOGIC                  KEY         1544     A     
 KEY                LX7    TH.SKELP                                                        KEY         1545     A     
 KEY                SA7    A1                                                              KEY         1546     A     
 KEY                EQ     CIM2                                                            KEY         1547     A     
 KEY                                                                                       KEY         1548     A     
 KEY                                                                                       KEY         1549     A     
 KEY      **        CONDITION IS A GENERAL EXPRESSION.                                     KEY         1550     A     
 KEY      *                EMIT FIRST TURPLE OF IF.                                        KEY         1551     A     
 KEY                                                                                       KEY         1552     A     
 KEY       CIM1     LX4    TH.SKELP                                                        KEY         1553          I
          -FC50104
 KEY       CIM1     LX4    SP.SKELP                                                        FC50104       60     A     
 KEY                SA1    OPDUM+DUC=1ST                                                   KEY         1554     A     
 KEY                SX7    X5                                                              KEY         1555     A     
 KEY                BX6    X4+X1       (OP) = NORMAL GENERAL LOGIC SKEL                    KEY         1556     A     
 KEY                SA7    IFREL1                                                          KEY         1557     A     
 KEY                SA4    IFRESLT     (P1) = RESULT OF IF-EXPRESSION                      KEY         1558     A     
 KEY                MX5    0                                                               KEY         1559     A     
 KEY                SA6    IFSA                                                            KEY         1560     A     
 KEY                EMIT   A6,*                                                            KEY         1561     A     
 KEY                                                                                       KEY         1562     A     
 KEY                                                                                       KEY         1563     A     
 KEY      **        IN EITHER CASE, FINISH UP THE IF-MEGATURPLE.                           KEY         1564     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 893    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *                EMIT SECOND TURPLE, CONTAINING THE BRANCH TARGET.               KEY         1565     A     
 KEY                                                                                       KEY         1566     A     
 KEY       CIM2     SA3    N.GL                                                            KEY         1567     A     
 KEY                CLAS=  X2,TP,(GL)                                                      KEY         1568     A     
 KEY                SX6    X3+B1       ADVANCE GENERATED LABEL COUNT                       KEY         1569     A     
 KEY                LX3    TP.ORDP                                                         KEY         1570     A     
 KEY                SA6    A3                                                              KEY         1571     A     
 KEY                BX5    X2+X3       (P2) = GENERATED-LABEL OF DESTINATION               KEY         1572     A     
 KEY                MX4    0           (P1) = NIL                                          KEY         1573     A     
 KEY                EMIT   V=NOOP                                                          KEY         1574     A     
 KEY                BX7    X5                                                              KEY         1575     A     
 KEY                EQ     EXIT.                                                           KEY         1576     A     
 KEY       FIB      SPACE  4,10                                                            KEY         1577     A     
 KEY      **        FIB -  FINISH IF BLOCK                                                 KEY         1578     A     
 KEY      *                                                                                KEY         1579     A     
 KEY      *         ENTERED WHEN ELSE OR ELSEIF ENCOUNTERED.  FINISHES THE                 KEY         1580     A     
 KEY      *         PREVIOUS IF BLOCK.                                                     KEY         1581     A     
 KEY      *                                                                                KEY         1582     A     
 KEY      *         USES                                                                   KEY         1583          I
          -FC5A127
 KEY      *         USES   X0,X1,X2,X3,X4,X5,X6  B2,B5  A1,A2,A3,A4,A5,A6                  FC5A127       21     A     
 KEY      *                                                                                KEY         1584     A     
 KEY      *         CALLS  EMT, FBS, LJS, PDM                                              KEY         1585          I
          -FC50265
 KEY      *         CALLS  EGL, EMT, FBS, LJS, PDM                                         FC50265       13     A     
 KEY                                                                                       KEY         1586     A     
 KEY                                                                                       KEY         1587     A     
 KEY       FIB      SUBR               ...ENTRY/EXIT...                                    KEY         1588     A     
 KEY                SA1    IFLEVEL                                                         KEY         1589     A     
 KEY                ZR     X1,E.IF13   IF NO BLOCK IF STRUCTURE ACTIVE                     KEY         1590     A     
 KEY                                                                                       KEY         1591     A     
 KEY       FIB1     SA1    T.BLST                                                          KEY         1592     A     
 KEY                SA2    T=BLST                                                          KEY         1593     A     
 KEY                SB5    X2-1                                                            KEY         1594     A     
 KEY                SA3    X1+B5       FETCH COUNT WORD                                    KEY         1595     A     
 KEY                LX3    -LC.DOP                                                         KEY         1596     A     
 KEY                SB2    X3          EXTRACT DO INDEX                                    KEY         1597     A     
 KEY                ERRNZ  18-LC.DOL                                                       KEY         1598     A     
 KEY                ZR     B2,FIB2     IF LAST T.BLST ENTRY IS BLOCK IF                    KEY         1599     A     
 KEY                LX3    LC.DOP-LC.CNTP                                                  KEY         1600     A     
 KEY                SX0    X3          EXTRACT COUNT                                       KEY         1601     A     
 KEY                ERRNZ  18-LC.CNTL                                                      KEY         1602     A     
 KEY                IX0    X2-X0                                                           KEY         1603     A     
 KEY                SB2    X0+DO.W                                                         KEY         1604     A     
 KEY                SA3    X1+B2       FETCH DO TERMINATOR                                 KEY         1605     A     
 KEY                HX3    DO.TAG                                                          KEY         1606     A     
 KEY                AX3    -DO.TAGL    EXTRACT ORDINAL                                     KEY         1607     A     
 KEY                SB2    X3                                                              KEY         1608     A     
 KEY                BX4    X3                                                              KEY         1609     A     
 KEY                LX4    TP.ORDP     PRESERVE FOR RBE CALL                               KEY         1610     A     
 KEY                LX3    1                                                               KEY         1611     A     
 KEY                SB2    X3+B2       CONVERT ORDINAL TO INDEX                            KEY         1612     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 894    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ERRNZ  3-Z=SYM                                                         KEY         1613     A     
 KEY                SA1    T.SYM                                                           KEY         1614     A     
 KEY                SA5    X1+B2       FETCH *WA*                                          KEY         1615     A     
 KEY                AX5    WA.STLP     EXTRACT LABEL                                       KEY         1616     A     
 KEY                CALL   LJS         LEFT JUSTIFY                                        KEY         1617     A     
 KEY                SA6    FILL.                                                           KEY         1618     A     
 KEY                FATAL  E.IF15                                                          KEY         1619     A     
 KEY                LX6    X4          DO TERMINAL (TP. FORMAT)                            KEY         1620     A     
 KEY                CALL   RBE         REMOVE THE INCORRECT DO LOOP                        KEY         1621     A     
 KEY                EQ     FIB1                                                            KEY         1622     A     
 KEY                                                                                       KEY         1623     A     
 KEY       FIB2     CALL   FBS         FINISH THE BLOCK ARM                                KEY         1624     A     
 KEY                SA1    T.BLST                                                          KEY         1625     A     
 KEY                SA2    T=BLST                                                          KEY         1626     A     
 KEY                SB5    X2-Z=BLST-1+BLIB.W                                              KEY         1627     A     
 KEY                SA2    NOPATH                                                          KEY         1628     A     
 KEY                ZR     X2,FIB3     IF LAST ACTIVE STATEMENT NOT BRANCH                 KEY         1629     A     
 KEY                MX6    0                                                               KEY         1630     A     
 KEY                SA6    A2          CLEAR NOPATH                                        KEY         1631     A     
 KEY                SA6    FLOW        CLEAR                                               KEY         1632     A     
 KEY                EQ     FIB4                                                            KEY         1633     A     
 KEY                                                                                       KEY         1634     A     
 KEY       FIB3     SA4    X1+B5                                                           KEY         1635     A     
 KEY                MX5    0                                                               KEY         1636     A     
 KEY                EMIT   V=GOTO      JUMP TO BOTTOM OF BLOCK IF STRUCTURE                KEY         1637     A     
 KEY                CLAS=  X6,LC,(GLM)                                                     FC5A127       22          I
          -FC51569
 KEY                SA2    =XCO.DBID                                                       FC51569        7     A     
 KEY                ZR     X2,FIB3A    IF NOT *DB=ID*                                      FC51569        8     A     
 KEY                SA1    B4                                                              FC51569        9     A     
 KEY                ZR     X1,FIB3A    IF NOT *ELSE IF*                                    FC51569       10     A     
 KEY                SA2    T=PAR                                                           FC51569       11     A     
 KEY                SX2    X2-6                                                            FC51569       12     A     
 KEY                MI     X2,FIB3A    IF LESS THEN 2 TURPLES                              FC51569       13     A     
 KEY                SA1    T.PAR                                                           FC51569       14     A     
 KEY                IX1    X1+X2                                                           FC51569       15     A     
 KEY                SA4    X1          FIRST OF NEXT TO LAST TURPLE                        FC51569       16     A     
 KEY                SA1    A4+Z=TURP   FIRST OF LAST TURPLE                                FC51569       17     A     
 KEY                BX6    X4                                                              FC51569       18     A     
 KEY                LX7    X1                                                              FC51569       19     A     
 KEY                SA6    A1                                                              FC51569       20     A     
 KEY                SA7    A4                                                              FC51569       21     A     
 KEY                SA4    A4+OR.1OP   SECOND OF NEXT TO LAST TURPLE                       FC51569       22     A     
 KEY                SA1    A4+Z=TURP   SECOND OF LAST TURPLE                               FC51569       23     A     
 KEY                BX6    X4                                                              FC51569       24     A     
 KEY                LX7    X1                                                              FC51569       25     A     
 KEY                SA6    A1                                                              FC51569       26     A     
 KEY                SA7    A4                                                              FC51569       27     A     
 KEY                SA4    A4+OR.1OP   THIRD OF NEXT TO LAST TURPLE                        FC51569       28     A     
 KEY                SA1    A4+Z=TURP   THIRD OF LAST TURPLE                                FC51569       29     A     
 KEY                BX6    X4                                                              FC51569       30     A     
 KEY                LX7    X1                                                              FC51569       31     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 895    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA6    A1                                                              FC51569       32     A     
 KEY                SA7    A4                                                              FC51569       33     A     
 KEY                                                                                       FC51569       34     A     
 KEY       FIB3A    CLAS=  X6,LC,(GLM)                                                     FC51569       35     A     
 KEY                                                                                       KEY         1638     A     
 KEY       FIB4     SA1    T.BLST                                                          KEY         1639     A     
 KEY                SA2    T=BLST                                                          FC5A127       23     A     
 KEY                =B5    B5-BLIB.W+BLIA.W                                                KEY         1640     A     
 KEY                SA4    X1+B5       FETCH PREVIOUS ADVANCE LABEL (GL)                   KEY         1641     A     
 KEY                ZR     X4,E.IF13   IF PREVIOUS ELSE, THIS LEVEL                        KEY         1642     A     
 KEY                SB2    X2-1                                                            FC5A127       24     A     
 KEY                SA2    X1+B2                                                           FC5A127       25     A     
 KEY                BX6    X6+X2       MERGE IN LC.GLM (IF PRESENT)                        FC5A127       26     A     
 KEY                SA6    A2                                                              FC5A127       27     A     
 KEY                SA1    T=PAR                                                           KEY         1643     A     
 KEY                BX7    X1                                                              KEY         1644     A     
 KEY                SA7    CURST       DONT SQUEEZE PAST IF ARM                            KEY         1645     A     
 KEY                MX5    0                                                               KEY         1646          I
          -FC50265
 KEY                EMIT   V=BSS                                                           KEY         1647          I
          -FC50265
 KEY                RJ     EGL         EMIT GENERATED LABEL                                FC50265       14     A     
 KEY                EQ     EXIT.                                                           KEY         1648     A     
 KEY                TITLE  SUBROUTINES.                                                    KEY         1649     A     
 KEY       CEM      SPACE  4,20                                                            KEY         1650     A     
 KEY      **        CEM - CHECK ENTRY POINT MODE.                                          KEY         1651     A     
 KEY      *                                                                                KEY         1652     A     
 KEY      *         WILL DETECT MODE CONFLICTS BETWEEN FUNCTION MAIN ENTRY                 KEY         1653     A     
 KEY      *         AND ANOTHER ENTRY POINT.                                               KEY         1654     A     
 KEY      *                                                                                KEY         1655     A     
 KEY      *         ENTRY  (A2,X2) = SYMTAB (WB.) OF AN ENTRY POINT                        KEY         1656     A     
 KEY      *                (X3) = CONTENTS OF (MOD).                                       KEY         1657     A     
 KEY      *                                                                                KEY         1658     A     
 KEY      *         EXIT   (B7) .ZR. = NO ERROR DETECTED.                                  KEY         1659     A     
 KEY      *                     .NZ. = ERROR MESSAGE ADDRESS.                              KEY         1660     A     
 KEY      *                                                                                KEY         1661     A     
 KEY      *         USES   A1,4.  X1,3-4,6.  B7.                                           KEY         1662     A     
 KEY                                                                                       KEY         1663     A     
 KEY                                                                                       KEY         1664     A     
 KEY       CEM      SUBR               ENTRY/EXIT...                                       KEY         1665     A     
 KEY                SB7    B0                                                              KEY         1666     A     
 KEY                HX3    MO.FUN                                                          KEY         1667     A     
 KEY                PL     X3,EXIT.    IF NOT COMPILING A FUNCTION                         KEY         1668     A     
 KEY                MX4    -MO.MODEL                                                       KEY         1669     A     
 KEY                LX3    MO.FUNP+1-MO.MODEP                                              KEY         1670     A     
 KEY                BX1    -X4*X3      ISOLATE MODE OF MAIN ENTRY                          KEY         1671     A     
 KEY                SX1    X1-M.CHAR                                                       KEY         1672     A     
 KEY                ERRNZ  WB.MODEL-MO.MODEL                                               KEY         1673     A     
 KEY                LX2    -WB.MODEP                                                       KEY         1674     A     
 KEY                BX4    -X4*X2      ISOLATE MODE OF THIS ENTRY                          KEY         1675     A     
 KEY                LX2    WB.MODEP                                                        KEY         1676     A     
 KEY                SX4    X4-M.CHAR                                                       KEY         1677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 896    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                NZ     X1,CEM15    IF MAIN ENTRY NOT CHARACTER                         KEY         1678     A     
 KEY                ZR     X4,CEM5     IF THIS ENTRY IS CHARACTER                          KEY         1679     A     
 KEY                SB7    E.EN6                                                           KEY         1680     A     
 KEY                EQ     EXIT.                                                           KEY         1681     A     
 KEY                                                                                       KEY         1682     A     
 KEY       CEM5     =A4    A2-WB.W+WC.W                                                    KEY         1683     A     
 KEY                LX3    MO.MODEP-MO.CLIFP                                               KEY         1684     A     
 KEY                LX4    -WC.CLIFP                                                       KEY         1685     A     
 KEY                CLAS=  X1,MO,(CLIF)                                                    KEY         1686     A     
 KEY                LX1    -MO.CLIFP                                                       KEY         1687     A     
 KEY                BX3    X4-X3       COMPARE CHAR TYPE INFO                              KEY         1688     A     
 KEY                BX3    X1*X3                                                           KEY         1689     A     
 KEY                LX1    WC.CLIFP                                                        KEY         1690          I
          -FC51048
 KEY                LX4    WC.CLIFP                                                        KEY         1691          I
          -FC51048
 KEY                BX6    -X1*X4                                                          KEY         1692          I
          -FC51048
 KEY                SA6    A4          ERASE CLIF                                          KEY         1693          I
          -FC51048
 KEY                ZR     X3,EXIT.    IF CHAR INFO EQUAL                                  KEY         1694     A     
 KEY                SB7    E.EN7                                                           KEY         1695     A     
 KEY                EQ     EXIT.                                                           KEY         1696     A     
 KEY                                                                                       KEY         1697     A     
 KEY      **        HERE IF MAIN ENTRY NOT TYPE CHARACTER                                  KEY         1698     A     
 KEY                                                                                       KEY         1699     A     
 KEY       CEM15    NZ     X4,EXIT.    IF THIS ENTRY NOT CHARACTER                         KEY         1700     A     
 KEY                SB7    E.EN8                                                           KEY         1701     A     
 KEY                EQ     EXIT.                                                           KEY         1702     A     
 KEY       EGL      SPACE  4,10                                                            FC50265       15     A     
 KEY      **        EGL -  EMIT GENERATED LABEL                                            FC50265       16     A     
 KEY      *                                                                                FC50265       17     A     
 KEY      *         EMITS THE GENERATED LABEL (V=BSS) AND FLUSHES THE IL.                  FC50265       18     A     
 KEY      *                                                                                FC50265       19     A     
 KEY      *         ENTRY  (X4) = GENERATED LABEL TO ISSUE (TP. FORMAT)                    FC50265       20     A     
 KEY      *                                                                                FC50265       21     A     
 KEY      *         USES   ALL (PRESERVES B4)                                              FC50265       22     A     
 KEY      *                                                                                FC50265       23     A     
 KEY      *         CALLS  EMT, OIL                                                        FC50265       24     A     
 KEY                                                                                       FC50265       25     A     
 KEY                                                                                       FC50265       26     A     
 KEY       EGL      SUBR               ...ENTRY/EXIT...                                    FC50265       27     A     
 KEY                SX6    B4                                                              FC50265       28     A     
 KEY                MX5    0           OR.20P IS NULL                                      FC50265       29     A     
 KEY                SA6    EGLA        SAVE (B4)                                           FC50265       30     A     
 KEY                EMIT   V=BSS       THE GL                                              FC50265       31     A     
 KEY                CALL   OIL                                                             FC50265       32     A     
 KEY                SA1    EGLA                                                            FC50265       33     A     
 KEY                SB4    X1          RESTORE (B4)                                        FC50265       34     A     
 KEY                EQ     EXIT.                                                           FC50265       35     A     
 KEY                                                                                       FC50265       36     A     
 KEY       EGLA     BSS    1           SAVE (B4)                                           FC50265       37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 897    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       MND      SPACE  4,10                                                            KEY         1703     A     
 KEY      **        MND - MATERIALIZE NAMELIST DIMENSIONS.                                 KEY         1704     A     
 KEY      *                                                                                KEY         1705     A     
 KEY      *         MARKS (T.DIM) ENTRIES WHICH NEED TO APPEAR IN THE RUNTIME DIM          KEY         1706     A     
 KEY      *         TABLE BECAUSE OF NAMELIST.  FOR EACH ARRAY WHICH IS A MEMBER           KEY         1707     A     
 KEY      *         OF A MATERIALIZED NAMELIST GROUP, THE (DH.MAT) BIT IS SET IN           KEY         1708     A     
 KEY      *         IT'S (T.DIM) ENTRY.                                                    KEY         1709     A     
 KEY      *                                                                                KEY         1710     A     
 KEY      *         THIS MARKING IS NOT PERFORMED UNTIL THE END OF PASS 1, SO THAT         KEY         1711     A     
 KEY      *         UNREFERENCED NAMELIST GROUPS WILL NOT CAUSE ANY RUNTIME DIM            KEY         1712     A     
 KEY      *         WORDS TO BE GENERATED.  THE TASK CANNOT BE DEFERRED UNTIL THE          KEY         1713     A     
 KEY      *         BEGINNING OF PASS 3 BECAUSE CCG PASS 2 MUST BE ABLE TO FIGURE          KEY         1714     A     
 KEY      *         OUT WHICH (VD.) CELLS CAN BE THROWN AWAY.                              KEY         1715     A     
 KEY      *                                                                                KEY         1716     A     
 KEY      *         USES   ALL.                                                            KEY         1717     A     
 KEY                                                                                       KEY         1718     A     
 KEY                                                                                       KEY         1719     A     
 KEY       MND      SUBR   0           ENTRY/EXIT...                                       KEY         1720     A     
 KEY                SA1    T.NLST                                                          KEY         1721     A     
 KEY                SA2    T=NLST                                                          KEY         1722     A     
 KEY                SA3    T.SYM                                                           KEY         1723     A     
 KEY                SA4    T.DIM                                                           KEY         1724     A     
 KEY                BX7    0           MARK (T.NLST) LWA+1 WITH ZERO WORD                  KEY         1725     A     
 KEY                IX6    X2+X1                                                           KEY         1726     A     
 KEY                SB6    X4          (B6) = FWA (T.DIM)                                  KEY         1727     A     
 KEY                MX0    -NG.ORDL                                                        KEY         1728     A     
 KEY                SA7    X6                                                              KEY         1729     A     
 KEY                ERRMI  FUDGE-1     CODE REQUIRES SLOP WORD                             KEY         1730     A     
 KEY                SA5    X1          FETCH FIRST GROUP HEADER                            KEY         1731     A     
 KEY                =B5    X3+WB.W     (B5) = FWA SYMTAB (WB.)S                            KEY         1732     A     
 KEY                SA7    A5-B1       INITIALIZE DESCRIPTOR STORE ADDRESS                 KEY         1733     A     
 KEY                ERRMI  FUDGE-1     REQUIRES SLOP WORD BELOW TABLE                      KEY         1734     A     
 KEY                                                                                       KEY         1735     A     
 KEY      *         BEGIN NEXT GROUP.                                                      KEY         1736     A     
 KEY      *                (X5) = GROUP HEADER WORD.                                       KEY         1737     A     
 KEY                                                                                       KEY         1738     A     
 KEY       MND20    ZR     X5,MND70    IF TABLE TERMINATOR                                 KEY         1739     A     
 KEY                BX7    X5                                                              KEY         1740     A     
 KEY                LX5    -NG.NMEMP                                                       KEY         1741     A     
 KEY                BX2    -X0*X5      (B4) = COUNT OF MEMBERS IN GROUP                    KEY         1742     A     
 KEY                ERRNZ  NG.NMEML-NG.ORDL                                                KEY         1743     A     
 KEY                SB4    X2                                                              KEY         1744     A     
 KEY       .T       IFEQ   TEST,ON,1                                                       KEY         1745     A     
 KEY                ZR     B4,"BLOWUP" IF EMPTY GROUP                                      KEY         1746     A     
 KEY                LX5    NG.NMEMP-NG.GROPP POSITION FIRST MEMBER AT TOP                  KEY         1747     A     
 KEY                BX1    -X0*X5      (X1) = SYMORD OF GROUP                              KEY         1748     A     
 KEY                SB2    X1+B5                                                           KEY         1749     A     
 KEY                LX2    X1,B1                                                           KEY         1750     A     
 KEY                SA1    B2+X2       FETCH SYMTAB (WB.) FOR GROUPNAME                    KEY         1751     A     
 KEY                ERRNZ  3-Z=SYM                                                         KEY         1752     A     
 KEY                HX1    WB.MAT                                                          KEY         1753     A     
 KEY                MI     X1,MND28    IF GROUP WAS REFERENCED                             KEY         1754     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 898    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SX6    B4+2+3      ROUND UP BYTES IN THIS DESCRIPTOR                   KEY         1755     A     
 KEY                AX6    2           DIV 4                                               KEY         1756     A     
 KEY                ERRNZ  60-4*NG.ORDL                                                    KEY         1757     A     
 KEY                SB3    A5                                                              KEY         1758     A     
 KEY                SA5    X6+B3       ADVANCE TO NEXT GROUP                               KEY         1759     A     
 KEY                EQ     MND20                                                           KEY         1760     A     
 KEY                                                                                       KEY         1761     A     
 KEY       MND28    SB7    A7+B1                                                           KEY         1762     A     
 KEY                SA7    A7+B1       COPY MATERIAL DESCRIPTOR WORD                       KEY         1763     A     
 KEY                SX6    A5-B7       (X6) = DISTANCE NEW HOME LAGS OLD ONE               KEY         1764     A     
 KEY                LX1    WB.MATP+1-WB.PNTP                                               KEY         1765     A     
 KEY                IX6    X1-X6       UPDATE GROUP DEFN POINTER IN SYMTAB                 KEY         1766     A     
 KEY                =B7    60/NG.ORDL-2                                                    KEY         1767     A     
 KEY                LX6    WB.PNTP                                                         KEY         1768     A     
 KEY                MX7    -WB.PNTL                                                        KEY         1769     A     
 KEY                CLAS=  X4,WB,(MAT)                                                     KEY         1770     A     
 KEY                SA6    A1                                                              KEY         1771     A     
 KEY                                                                                       KEY         1772     A     
 KEY      *         PROCESS MEMBER OF GROUP.  IF IT IS AN ARRAY, SET DIM MAT.              KEY         1773     A     
 KEY      *                (X5) = NEXT MEMBER AT TOP.                                      KEY         1774     A     
 KEY      *                (X7) = DIM INDEX EXTRACTION MASK.                               KEY         1775     A     
 KEY      *                (B4) = COUNT OF MEMBERS LEFT IN THIS GROUP.                     KEY         1776     A     
 KEY      *                (B7) = COUNT OF MEMBERS LEFT IN CURRENT WORD.                   KEY         1777     A     
 KEY                                                                                       KEY         1778     A     
 KEY       MND30    LX5    NG.ORDL                                                         KEY         1779     A     
 KEY                BX1    -X0*X5      (X1) = SYMORD OF MEMBER                             KEY         1780     A     
 KEY       .T       IFEQ   TEST,ON,1                                                       KEY         1781     A     
 KEY                ZR     X1,"BLOWUP" IF EMPTY BYTE                                       KEY         1782     A     
 KEY                SB2    X1+B5                                                           KEY         1783     A     
 KEY                LX2    X1,B1                                                           KEY         1784     A     
 KEY                SA1    B2+X2       SYMTAB (WB.) FOR THIS MEMBER                        KEY         1785     A     
 KEY                ERRNZ  3-Z=SYM                                                         KEY         1786     A     
 KEY                BX6    X1+X4       MARK MEMBER MATERIALIZED                            KEY         1787     A     
 KEY                HX1    WB.ARY                                                          KEY         1788     A     
 KEY                SA6    A1                                                              KEY         1789     A     
 KEY                PL     X1,MND40    IF NOT ARRAY                                        KEY         1790     A     
 KEY                LX1    -WB.PNTP+WB.ARYP+1                                              KEY         1791     A     
 KEY                BX3    -X7*X1      T.DIM INDEX OF ARRAY                                KEY         1792     A     
 KEY                SA2    X3+B6       DIM HEADER FOR ARRAY                                KEY         1793     A     
 KEY                LX4    -WB.MATP+DH.MATP                                                KEY         1794     A     
 KEY                BX6    X2+X4       SET *MAT* BIT                                       KEY         1795     A     
 KEY                LX4    -DH.MATP+WB.MATP                                                KEY         1796     A     
 KEY                SA6    A2                                                              KEY         1797     A     
 KEY      *         IFBIT  X3,DH.ASP,"BLOWUP"      IF ASSUMED-SIZE ARRAY                   KEY         1798     A     
 KEY                                                                                       KEY         1799     A     
 KEY       MND40    =B7    B7-1                                                            KEY         1800     A     
 KEY                =B4    B4-1                                                            KEY         1801     A     
 KEY                NZ     B7,MND45    IF MORE MEMBERS IN THIS WORD                        KEY         1802     A     
 KEY                ZR     B4,MND45    IF NO MORE MEMBERS IN THIS GROUP                    KEY         1803     A     
 KEY                SA5    A5+B1                                                           KEY         1804     A     
 KEY                SB7    60/NG.ORDL                                                      KEY         1805     A     
 KEY                BX7    X5          COPY MATERIAL DESCRIPTOR WORD                       KEY         1806     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 899    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA7    A7+B1                                                           KEY         1807     A     
 KEY                MX7    -WB.PNTL                                                        KEY         1808     A     
 KEY       MND45    NZ     B4,MND30    IF GROUP HAS MORE MEMBERS                           KEY         1809     A     
 KEY                SA5    A5+1                                                            KEY         1810     A     
 KEY                EQ     MND20       LOOP..                                              KEY         1811     A     
 KEY                                                                                       KEY         1812     A     
 KEY       MND70    SA2    T.NLST                                                          KEY         1813     A     
 KEY                SX3    A7+B1       (X3) = LWA+1 MATERIAL DESCRIPTOR SPACE              KEY         1814     A     
 KEY                IX6    X3-X2                                                           KEY         1815     A     
 KEY                SHRINK T=NLST,X6                                                       KEY         1816     A     
 KEY                EQ     EXIT.                                                           KEY         1817     A     
 KEY       PJX      SPACE  4,10                                                            KEY         1818     A     
 KEY      **        PJX - PARSE JUMP EXPRESSION.                                           KEY         1819     A     
 KEY      *                                                                                KEY         1820     A     
 KEY      *         EVALAUTES JUMP INDEX EXPRESSION FOR RETURN AND GOTO.                   KEY         1821     A     
 KEY      *                MODE IS COERCED TO INTEGER.                                     KEY         1822     A     
 KEY      *                                                                                KEY         1823     A     
 KEY      *         ENTRY  (X6) = SKELETON ADDRESS.                                        KEY         1824     A     
 KEY      *                (X7) = OPERAND FOR (2OP).                                       KEY         1825     A     
 KEY                                                                                       KEY         1826     A     
 KEY                                                                                       KEY         1827     A     
 KEY       PJX      SUBR   0           ENTRY/EXIT...                                       KEY         1828     A     
 KEY                SA1    PJXARM                                                          KEY         1829     A     
 KEY                SA6    PJXB                                                            KEY         1830     A     
 KEY                SA7    A6-B1                                                           KEY         1831     A     
 KEY                MX6    0                                                               KEY         1832     A     
 KEY                BX7    X1                                                              KEY         1833     A     
 KEY                SA6    ARGCOMA                                                         KEY         1834     A     
 KEY                SA7    ARGMODE                                                         KEY         1835     A     
 KEY                CALL   PAR         PARSE EXPRESSION, EMIT JUMP                         KEY         1836     A     
 KEY                SA1    T=PAR                                                           KEY         1837     A     
 KEY                BX6    X1          INHIBIT SQUEEZE ACROSS JUMP                         KEY         1838     A     
 KEY                SA6    CURST                                                           KEY         1839     A     
 KEY                EQ     EXIT.                                                           KEY         1840     A     
 KEY       C=PJX    SPACE  4,10                                                            KEY         1841     A     
 KEY      **        C=PJX - PROCESS *EOS* OF COMPUTED *GOTO*.                              KEY         1842     A     
 KEY      *                                                                                KEY         1843     A     
 KEY      *                IF NOT AT *EOS* - COMMA IS ILLEGAL                              KEY         1844     A     
 KEY                                                                                       KEY         1845     A     
 KEY                                                                                       KEY         1846     A     
 KEY       C=PJX    BSSENT 0           ENTRY...                                            KEY         1847     A     
 KEY                SA2    B4                                                              KEY         1848     A     
 KEY                MX0    -TP.MODEL                                                       KEY         1849     A     
 KEY                LX5    -TP.MODEP                                                       KEY         1850     A     
 KEY                ZR     X2,PJX4     IF AT *EOS*                                         KEY         1851     A     
 KEY                ERRNZ  O.EOS                                                           KEY         1852     A     
 KEY                WARN   E.GO9                                                           KEY         1853     A     
 KEY                EQ     C=CERR                                                          KEY         1854     A     
 KEY                                                                                       KEY         1855     A     
 KEY       PJX4     BX2    -X0*X5      (X2) = MODE OF EXPRESSION                           KEY         1856     A     
 KEY                =X6    M.INT                                                           KEY         1857     A     
 KEY                LX5    TP.MODEP                                                        KEY         1858     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 900    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                IX3    X2-X6                                                           KEY         1859     A     
 KEY                ZR     X3,PJX8     IF INTEGER EXPRESSION                               KEY         1860     A     
 KEY                ANSI   E.GO6       ** MUST BE INTEGER                                  KEY         1861     A     
 KEY                CALL   CMR         COERCE MODE OF RESULT                               KEY         1862     A     
 KEY                ZR     B7,PJX8     IF MODE CONVERTED OKAY                              KEY         1863     A     
 KEY                FATAL  B7                                                              KEY         1864     A     
 KEY                                                                                       KEY         1865     A     
 KEY       PJX8     SA3    DUC=1ST+OPDUM                                                   KEY         1866     A     
 KEY                SA2    PJXB                                                            KEY         1867     A     
 KEY                BX4    X5          (1OP) = EXPRESSION RESULT                           KEY         1868     A     
 KEY                LX2    TH.SKELP                                                        KEY         1869          I
          -FC50104
 KEY                LX2    SP.SKELP                                                        FC50104       61     A     
 KEY                SA5    A2-B1       (2OP) = (PJXA)                                      KEY         1870     A     
 KEY                BX3    X2+X3       FORM (X3) = OPERATOR                                KEY         1871     A     
 KEY                EQ     POP.STD     EXIT..                                              KEY         1872     A     
 KEY                                                                                       KEY         1873     A     
 KEY       PJXA     EQU    CLLA        SAVE (2OP)                                          KEY         1874     A     
 KEY       PJXB     EQU    CLLB        SAVE (OPR)                                          KEY         1875     A     
 KEY                ERRNZ  CLLA+1-CLLB                                                     KEY         1876     A     
 KEY       RIT      SPACE  4,10                                                            KEY         1877     A     
 KEY      **        RIT - RESET IF TARGET.                                                 KEY         1878     A     
 KEY      *                                                                                KEY         1879     A     
 KEY      *         WHEN THE OBJECT OF A ONE-BRANCH IF IS A RETURN OR                      KEY         1880     A     
 KEY      *         SIMPLE GOTO STATEMENT, THEN THE (ALREADY EMITTED)                      KEY         1881     A     
 KEY      *         IF-TURPLES ARE MODIFIED TO AVOID A DOUBLE JUMP.                        KEY         1882     A     
 KEY      *         DECREMENT (TG.PRO), AS THE FORMER TAG WILL NOT BE USED                 KEY         1883     A     
 KEY      *         BY THE ALTERED TURPLES.  CLEAR (INIF) TO KEEP THAT GL FROM             KEY         1884     A     
 KEY      *         BEING DEFINED.                                                         KEY         1885     A     
 KEY      *                                                                                KEY         1886     A     
 KEY      *         ENTRY  (X4) = LABEL TO BRANCH TO (TP. FORM).                           KEY         1887     A     
 KEY      *                THE LAST 2 TURPLES CURRENTLY IN (T.PAR) ARE THE                 KEY         1888     A     
 KEY      *                            IF MEGA-TURPLE.                                     KEY         1889     A     
 KEY      *                (IFREL1) = OPPOSITE LOGIC MACRO ADDRESS.                        KEY         1890     A     
 KEY      *                                                                                KEY         1891     A     
 KEY      *         EXIT   (INIF) = 0.                                                     KEY         1892     A     
 KEY      *                (TG.PRO) DECREMENTED.                                           KEY         1893     A     
 KEY                                                                                       KEY         1894     A     
 KEY                                                                                       KEY         1895     A     
 KEY       RIT      SUBR               ...ENTRY/EXIT...                                    KEY         1896     A     
 KEY                SA2    N.GL                                                            KEY         1897     A     
 KEY                SA3    T.PAR                                                           KEY         1898     A     
 KEY                SX6    X2-1        RESET (TG.PRO)                                      KEY         1899     A     
 KEY                SA1    T=PAR                                                           KEY         1900     A     
 KEY                BX7    0                                                               KEY         1901     A     
 KEY                SA5    IFREL1      OPPOSITE LOGIC MACRO ADDRESS                        KEY         1902     A     
 KEY                IX0    X3+X1       (X0) = LWA+1 OF (T.PAR)                             KEY         1903     A     
 KEY                SA6    A2                                                              KEY         1904     A     
 KEY                MX1    -TH.SKELL                                                       KEY         1905     A     
 KEY                SA7    INIF                                                            KEY         1906     A     
 KEY                SA2    X0-2*Z=TURP+OR.OPR                                              KEY         1907     A     
 KEY                BX7    X4                                                              KEY         1908     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 901    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                LX2    -TH.SKELP                                                       KEY         1909     A     
 KEY                BX3    X1*X2       CLEAR OLD MACRO ADDRESS                             KEY         1910     A     
 KEY                BX6    X3+X5       SET OPPOSITE LOGIC                                  KEY         1911     A     
 KEY                SA7    X0-Z=TURP+OR.2OP  RESET JUMP TARGET                             KEY         1912     A     
 KEY                LX6    TH.SKELP                                                        KEY         1913     A     
 KEY                SA6    A2                                                              KEY         1914     A     
 KEY                EQ     EXIT.                                                           KEY         1915     A     
 KEY       SER      SPACE  4,10                                                            KEY         1916     A     
 KEY      **        SER -  COMPILE *END* INSTRUCTIONS.                                     KEY         1917     A     
 KEY      *                                                                                KEY         1918     A     
 KEY      *         CALLED BY *END* AND *RETURN* STATEMENTS, IF IN MAIN PROGRAM.           KEY         1919     A     
 KEY      *                                                                                KEY         1920     A     
 KEY      *         CALLS  SRJ.                                                            KEY         1921     A     
 KEY                                                                                       KEY         1922     A     
 KEY                                                                                       KEY         1923     A     
 KEY       SER      SUBR               ...ENTRY/EXIT...                                    KEY         1924     A     
 KEY                SA5    S=TRACE                                                         KEY         1925     A     
 KEY                SB6    ESTACK+1                                                        KEY         1926     A     
 KEY                LX5    TP.ORDP                                                         KEY         1927     A     
 KEY                BX6    X5                                                              KEY         1928     A     
 KEY                SB5    S.END                                                           KEY         1929     A     
 KEY                SA6    B6-B1                                                           KEY         1930     A     
 KEY                RJ     SRJ         EMIT APL AND RJ                                     KEY         1931     A     
 KEY                EQ     EXIT.                                                           KEY         1932     A     
 KEY                                                                                       KEY         1933     A     
 KEY       S.END    =XLIB  END5                                                            KEY         1934     A     
 KEY       SPR      SPACE  4,30                                                            KEY         1935     A     
 KEY      **        SPR - COMPILE TERMINATING/PAUSING INSTRUCTIONS.                        KEY         1936     A     
 KEY      *                                                                                KEY         1937     A     
 KEY      *         CONTAINS COMMON TRANSLATION FOR STOP AND PAUSE.                        KEY         1938     A     
 KEY      *         SEE ANSI 11.12 + 11.13 FOR ARGUMENT DESCRIPTION.                       KEY         1939     A     
 KEY      *         THE FIRST ELEMENT AFTER THE KEYWORD MAY BE --                          KEY         1940     A     
 KEY      *                (A)  EMPTY.                                                     KEY         1941     A     
 KEY      *                (B)  A STRING OF AT MOST 5 DIGITS.                              KEY         1942     A     
 KEY      *                (C)  CHARACTER STRING SURROUNDED BY QUOTES (').                 KEY         1943     A     
 KEY      *                                                                                KEY         1944     A     
 KEY      *         EMITS APL TURPLE FOR THE ARGUMENT, FOLLOWED BY STOP OR                 KEY         1945     A     
 KEY      *         PAUSE TURPLE.  DIGIT STRING ARGUMENT (CASE B) IS FIRST                 KEY         1946     A     
 KEY      *         CHANGED INTO A CHARACTER CONSTANT.                                     KEY         1947     A     
 KEY      *                                                                                KEY         1948     A     
 KEY      *         ENTRY  (B5) _ NAME OF ROUTINE.                                         KEY         1949     A     
 KEY      *                (B4) _ FIRST TOKEN AFTER KEYWORD.                               KEY         1950     A     
 KEY      *                                                                                KEY         1951     A     
 KEY      *         EXIT   STOP OR PAUSE TURPLE EMITTED.                                   KEY         1952     A     
 KEY      *                                                                                KEY         1953     A     
 KEY      *         CALLS  ADDWD, ECC, FATAL, SCT, SRJ, WARN.                              KEY         1954     A     
 KEY                                                                                       KEY         1955     A     
 KEY                                                                                       KEY         1956     A     
 KEY       SPR      SUBR   0           ENTRY/EXIT...                                       KEY         1957     A     
 KEY                SA1    B4                                                              KEY         1958     A     
 KEY                SB6    ESTACK+1                                                        KEY         1959     A     
 KEY                =A2    B4+1                                                            KEY         1960     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 902    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ZR     X1,SPR20    IF EOS -- ARGUMENT NOT PRESENT                      KEY         1961     A     
 KEY                =B2    X1-O.CHAR                                                       KEY         1962     A     
 KEY                =B3    X1-O.CONS                                                       KEY         1963     A     
 KEY                ZR     X2,SPR13    IF SECOND TOKEN IS EOS                              KEY         1964     A     
 KEY                ERRNZ  O.EOS                                                           KEY         1965     A     
 KEY                WARN   E.SPR4                                                          KEY         1966     A     
 KEY       SPR13    ZR     B3,SPR30    IF DIGIT                                            KEY         1967     A     
 KEY                NZ     B2,SPR15    IF NOT CHAR CONSTANT                                KEY         1968     A     
 KEY                LX1    -TB.SHCP                                                        KEY         1969     A     
 KEY                MX0    -TB.SHCL                                                        KEY         1970     A     
 KEY                MX7    -TB.CLCNL                                                       KEY         1971     A     
 KEY                BX2    -X0*X1      CHAR INDEX = SHC [TB ENTRY]                         KEY         1972     A     
 KEY                LX1    TB.SHCP-TB.CLCNP                                                KEY         1973     A     
 KEY                BX1    -X7*X1      CHAR LEN = CLCN [TB ENTRY]                          KEY         1974     A     
 KEY                EQ     SPR40                                                           KEY         1975     A     
 KEY                                                                                       KEY         1976     A     
 KEY       SPR15    WARN   E.SPR1      ILLEGAL ARGUMENT                                    KEY         1977     A     
 KEY                                                                                       KEY         1978     A     
 KEY      *         NO ARGUMENT CASE -- EMIT ZERO PARAMETER.                               KEY         1979     A     
 KEY                                                                                       KEY         1980     A     
 KEY       SPR20    SA2    CONZER      STACK SHORT CONSTANT OF ZERO                        KEY         1981     A     
 KEY                BX6    X2                                                              KEY         1982     A     
 KEY                SA6    B6-B1                                                           KEY         1983     A     
 KEY                EQ     SPR60                                                           KEY         1984     A     
 KEY                                                                                       KEY         1985     A     
 KEY      *         HERE IF NUMERIC STRING.                                                KEY         1986     A     
 KEY                                                                                       KEY         1987     A     
 KEY       SPR30    SA1    B4                                                              KEY         1988     A     
 KEY                MX0    TB.TOCL                                                         KEY         1989     A     
 KEY                BX1    X0*X1       EXTRACT DIGITS                                      KEY         1990     A     
 KEY                MX2    5*6                                                             KEY         1991     A     
 KEY                BX6    -X2*X1                                                          KEY         1992     A     
 KEY                ZR     X6,SPR34    IF MORE THAN 5 DIGITS                               KEY         1993     A     
 KEY                WARN   E.SPR2      ** EXCESS DIGITS TRUNCATED                          KEY         1994     A     
 KEY       SPR34    BX1    X0*X1                                                           KEY         1995     A     
 KEY                CALL   ZTB         ELIMINATE COLONS                                    KEY         1996     A     
 KEY                SCAN   T.CON,SCT   SCAN FOR DUPLICATE STRING                           KEY         1997     A     
 KEY                SX2    B7+1                                                            KEY         1998     A     
 KEY                SX4    5           LENGTH = 5                                          KEY         1999     A     
 KEY                PL     B7,SPR36    IF STRING ALREADY EXISTS                            KEY         2000     A     
 KEY                ADDWD  A1                                                              KEY         2001     A     
 KEY       SPR36    =X2    X2-1                                                            KEY         2002     A     
 KEY                BX1    X4                                                              KEY         2003     A     
 KEY                                                                                       KEY         2004     A     
 KEY      *         HERE IF CHARACTER CONSTANT.                                            KEY         2005     A     
 KEY      *                (X1) = CHAR LEN                                                 KEY         2006     A     
 KEY      *                (X2) = CHAR INDEX                                               KEY         2007     A     
 KEY                                                                                       KEY         2008     A     
 KEY       SPR40    CALL   ECC         EMIT CHARACTER CONSTANT                             KEY         2009     A     
 KEY       SPR60    RJ     SRJ         COMPILE APL AND RJ                                  KEY         2010     A     
 KEY                EQ     EXIT.                                                           KEY         2011     A     
 KEY                                                                                       KEY         2012     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 903    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       S.PAUSE  =XLIB  PAUS5                                                           KEY         2013     A     
 KEY       S.STOP   =XLIB  STOP5                                                           KEY         2014     A     
 KEY       SRJ      SPACE  4,10                                                            KEY         2015     A     
 KEY      **        SRJ - EMIT APL AND RJ.                                                 KEY         2016     A     
 KEY      *                                                                                KEY         2017     A     
 KEY      *         EMIT CALL TO END, STOP OR PAUSE.                                       KEY         2018     A     
 KEY      *         NAME OF PROCESSOR ROUTINE IS ENTERED IN SYMTAB.                        KEY         2019     A     
 KEY      *                                                                                KEY         2020     A     
 KEY      *         ENTRY  (B5) _ NAME OF LIBRARY ROUTINE.                                 KEY         2021     A     
 KEY      *                OPERAND FOR MESSAGE ON TOP OF ESTACK.                           KEY         2022     A     
 KEY      *                                                                                KEY         2023     A     
 KEY      *         CALLS  EAL,TAGSEX,ADDWD.                                               KEY         2024     A     
 KEY                                                                                       KEY         2025     A     
 KEY                                                                                       KEY         2026     A     
 KEY       SRJ      SUBR   0           ENTRY/EXIT...                                       KEY         2027     A     
 KEY                SX7    1+                                                              KEY         2028     A     
 KEY                SA7    CF=AC       INDICATE 1 ARGUMENT                                 KEY         2029     A     
 KEY                =A1    B6-1        X1 = ARGUMENT                                       KEY         2030     A     
 KEY                =B6    B6-1        POP THE ARGUMENT                                    KEY         2031     A     
 KEY                BX6    X1                                                              KEY         2032     A     
 KEY                ADDWD  T.ARG       ARGUMENT IS ON T.ARG                                KEY         2033     A     
 KEY                SA3    GAPOP                                                           KEY         2034     A     
 KEY                CALL   EAL         EMIT AP LIST                                        KEY         2035     A     
 KEY                TAGSEX B5          FORM OPERAND FOR ROUTINE                            KEY         2036     A     
 KEY                BX4    X6          (P1) = ROUTINE                                      KEY         2037     A     
 KEY                SB7    B5-S.PAUSE                                                      KEY         2038     A     
 KEY                SX5    B1          (2OP) = 1 ARGUMENT                                  KEY         2039     A     
 KEY                SB3    V=STOP                                                          KEY         2040     A     
 KEY                LX5    TP.BIASP                                                        KEY         2041     A     
 KEY                NZ     B7,SRJ6     IF NOT *PAUSE*                                      KEY         2042     A     
 KEY                SB3    V=PAUS                                                          KEY         2043     A     
 KEY       SRJ6     CALL   EMT         EMIT TURPLE                                         KEY         2044     A     
 KEY                EQ     EXIT.                                                           KEY         2045     A     
 KEY                SPACE  4,10                                                            KEY         2046     A     
 KEY                LIST D                                                                 KEY         2047     A     
 KEY                END                                                                    KEY         2048     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - KEY     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          KEY                       2048      1944
          FC5A126                      1         1
          FC5A127                     15        14
          FC5A148                      3         3
          FC5A157                      1         1
          FC5A184                     31        31
          FC5A191                      1         1
          FC5A192                     10        10
          FC5A224                      7         7
          FC50062                      2         2
          FC50104                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 904    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
          FC50207                      1         1
          FC50265                     31        31
          FC5A325                      5         5
          FC5A338                      5         5
          FC5A341                     16        16
          FC50318                     18        17
          FC50451                     17        14
          FC50326                      6         6
          FC50483                     18        18
          FC50606                     27        27
          FC50627                     10        10
          FC50642                      6         6
          FC50646                      5         5
          FC50765                      8         8
          FC50857                      6         6
          FC50913                      2         2
          FC51039                     37        37
          FC51029                      5         5
          FC51193                      8         8
          FC51247                      1         1
          FC51356                      4         4
          FC51490                      4         4
          FC51501                      3         3
          FC51569                     29        29
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR    *DECK     CDDIR                                                                  CDDIR          1     A     
 CDDIR              IDENT  CDDIR                                                           CDDIR          2     A     
 CDDIR     CDDIR    SECT   (C$ DIRECTIVE PROCESSING.)                                      CDDIR          3     A     
 CDDIR     EXTS     SPACE  4,10                                                            CDDIR          4     A     
 CDDIR    *         IN ALLOC                                                               CDDIR          5     A     
 CDDIR              EXT    ADW                                                             CDDIR          6     A     
 CDDIR                                                                                     CDDIR          7     A     
 CDDIR    *         IN FEC                                                                 CDDIR          8     A     
 CDDIR              EXT    ERT,ERT=OFF,ERT=ON,FEC=BY,FEC.RTN,STAGE                         CDDIR          9          I
          -FC50703
 CDDIR              EXT    ERT,ERT=OFF,ERT=ON,FEC=BY,FEC.RTN,OIL,STAGE                     FC50703        8     A     
 CDDIR                                                                                     CDDIR         10     A     
 CDDIR    *         IN FERRS                                                               CDDIR         11     A     
 CDDIR              EXT    E.C$00,E.C$01,E.C$02,E.C$03,E.C$04,E.C$05,E.C$06,E.C$07         CDDIR         12     A     
 CDDIR              EXT    E.C$08,E.C$09,E.C$10,E.C$11,FILL.,FILL.2                        CDDIR         13     A     
 CDDIR                                                                                     CDDIR         14     A     
 CDDIR    *         IN FTN                                                                 CDDIR         15     A     
 CDDIR              EXT    CO.LOA,CO.LOM,CO.LOO,CO.LOR,CO.LOS                              CDDIR         16     A     
 CDDIR                                                                                     CDDIR         17     A     
 CDDIR    *         IN LEX                                                                 CDDIR         18     A     
 CDDIR              EXT    LDB,SB=LINC,SB=LORD                                             CDDIR         19     A     
 CDDIR                                                                                     CDDIR         20     A     
 CDDIR    *         IN PAR                                                                 CDDIR         21     A     
 CDDIR              EXT    EMT,PIX,PKX                                                     CDDIR         22     A     
 CDDIR                                                                                     CDDIR         23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 905    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR    *         IN PEM                                                                 CDDIR         24     A     
 CDDIR              EXT    PDM                                                             CDDIR         25     A     
 CDDIR                                                                                     CDDIR         26     A     
 CDDIR    *         IN PUC                                                                 CDDIR         27     A     
 CDDIR              EXT    LINES,T=C$IF,T=STMT,T.C$IF,WO.CS,WO.DOLG,WO.DOOT,WO.LOA         CDDIR         28     A     
          -FC50480  +FC50703
 CDDIR              EXT    LINES,T=C$IF,T=STMT,T.C$IF,WO.DOLG,WO.DOOT,WO.LOA               FC50480       10          I
          -FC50703
 CDDIR              EXT    WO.LOM,WO.LOO,WO.LOR,WO.LOS                                     CDDIR         29          I
          -FC5A157
 CDDIR              EXT    WO.LOM,WO.LOO,WO.LOR,WO.LOS,T.CON                               FC5A157        6     A     
 CDDIR                                                                                     CDDIR         30     A     
 CDDIR    *         IN QSKEL/FSKEL                                                         CDDIR         31     A     
 CDDIR              EXT    V=CDCS,V=CDDOT,V=CDLOO                                          CDDIR         32     A     
 CDDIR              TITLE  C$ COLLATE DIRECTIVE.                                           CDDIR         33     A     
 CDDIR    **        TRANSLATE C$ COLLATE DIRECTIVE.                                        CDDIR         34     A     
 CDDIR                                                                                     CDDIR         35     A     
 CDDIR                                                                                     CDDIR         36     A     
 CDDIR              HEREIF C$COLLATE                                                       CDDIR         37     A     
 CDDIR                                                                                     CDDIR         38     A     
 CDDIR              SX6    B4                                                              FC50703        9     A     
 CDDIR              SA6    COLA        PRESERVE (B4)                                       FC50703       10     A     
 CDDIR              CALL   OIL         BREAK SEQUENCE [FOR FUNCTION SELECTION]             FC50703       11     A     
 CDDIR              SA1    COLA                                                            FC50703       12     A     
 CDDIR              SB4    X1          RESTORE (B4)                                        FC50703       13     A     
 CDDIR              SA1    B4                                                              CDDIR         39     A     
 CDDIR              SB2    X1-O.LP                                                         CDDIR         40     A     
 CDDIR              =A1    B4+1                                                            CDDIR         41     A     
 CDDIR              NZ     B2,E.C$08   IF NOT *(*                                          CDDIR         42     A     
 CDDIR              SA2    =4LUSER                                                         CDDIR         43     A     
 CDDIR              SB2    X1-O.VAR                                                        CDDIR         44     A     
 CDDIR              NZ     B2,E.C$07   IF NOT C$ PARAMETER                                 CDDIR         45     A     
 CDDIR              MX0    TB.TOCL                                                         CDDIR         46     A     
 CDDIR              BX1    X0*X1       CHARACTER STRING ONLY                               CDDIR         47     A     
 CDDIR              =X6    1                                                               CDDIR         48     A     
 CDDIR              IX2    X2-X1                                                           CDDIR         49     A     
 CDDIR              ZR     X2,COL      IF *USER*                                           CDDIR         50     A     
 CDDIR              SA2    =5LFIXED                                                        CDDIR         51     A     
 CDDIR              IX2    X2-X1                                                           CDDIR         52     A     
 CDDIR              =X6    0                                                               CDDIR         53     A     
 CDDIR              ZR     X2,COL      IF *FIXED*                                          CDDIR         54     A     
 CDDIR              LX6    X1                                                              CDDIR         55     A     
 CDDIR              SA6    FILL.2                                                          CDDIR         56     A     
 CDDIR              EQ     E.C$00      NOT A LEGAL C$ PARAMETER                            CDDIR         57     A     
 CDDIR                                                                                     CDDIR         58     A     
 CDDIR     COL      SA1    A1+1                                                            CDDIR         59     A     
 CDDIR              SB4    B4+2                                                            CDDIR         60     A     
 CDDIR              SB2    X1-O.RP                                                         CDDIR         61     A     
 CDDIR              NZ     B2,E.C$06   IF NOT *)*                                          CDDIR         62     A     
 CDDIR              SA6    WO.CS                                                           CDDIR         63     A     
          -FC50480  +FC50703
 CDDIR              CLAS=  X4,TP,(SHRT),INT                                                CDDIR         64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 906    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR              LX6    TP.BIASP                                                        CDDIR         65     A     
 CDDIR              SX5    0                                                               CDDIR         66     A     
          -FC50480  +FC50703
 CDDIR              BX4    X6+X4                                                           CDDIR         67     A     
 CDDIR              SX5    0                                                               FC50480       11          I
          -FC50703
 CDDIR              EMIT   V=CDCS,NONE                                                     CDDIR         68     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR         69     A     
 CDDIR                                                                                     FC50703       14     A     
 CDDIR     COLA     BSS    1           PRESERVE (B4) ACROSS OIL                            FC50703       15     A     
 CDDIR              TITLE  C$ COMDECK DIRECTIVES.                                          CDDIR         70     A     
 CDDIR    **        TRANSLATE C$ COMDECK DIRECTIVES.                                       CDDIR         71     A     
 CDDIR    *                                                                                CDDIR         72     A     
 CDDIR    *         THESE ARE CURRENTLY STUBS.  IMPLEMENTATION WILL BE BY FEATURE          CDDIR         73     A     
 CDDIR    *         CODE AT A LATER DATE.                                                  CDDIR         74     A     
 CDDIR     BEGCOM   SPACE  4,10                                                            CDDIR         75     A     
 CDDIR    **        TRANSLATE C$ BEGCOM DIRECTIVE.                                         CDDIR         76     A     
 CDDIR                                                                                     CDDIR         77     A     
 CDDIR                                                                                     CDDIR         78     A     
 CDDIR              HEREIF C$BEGCOM                                                        CDDIR         79     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR         80     A     
 CDDIR     ENDCOM   SPACE  4,10                                                            CDDIR         81     A     
 CDDIR    **        TRANSLATE C$ ENDCOM DIRECTIVE.                                         CDDIR         82     A     
 CDDIR                                                                                     CDDIR         83     A     
 CDDIR                                                                                     CDDIR         84     A     
 CDDIR              HEREIF C$ENDCOM                                                        CDDIR         85     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR         86     A     
 CDDIR              TITLE  C$ DO DIRECTIVE.                                                CDDIR         87     A     
 CDDIR    **        TRANSLATE C$ DO DIRECTIVE.                                             CDDIR         88     A     
 CDDIR                                                                                     CDDIR         89     A     
 CDDIR                                                                                     CDDIR         90     A     
 CDDIR              HEREIF C$DO                                                            CDDIR         91     A     
 CDDIR                                                                                     CDDIR         92     A     
 CDDIR              SX6    FW.DO                                                           CDDIR         93     A     
 CDDIR              SX7    L.DO                                                            CDDIR         94     A     
 CDDIR              RJ     TCP         TRANSLATE C$ PARAMETERS                             CDDIR         95     A     
 CDDIR                                                                                     CDDIR         96     A     
 CDDIR              SA1    DO=LONG                                                         CDDIR         97     A     
 CDDIR              PL     X1,DO1      IF C$ DO(LONG= ) NOT SPECIFIED                      CDDIR         98     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR         99     A     
 CDDIR              SA6    A1          CLEAR (TO POSITIVE)                                 CDDIR        100     A     
 CDDIR              SA6    WO.DOLG     UPDATE                                              CDDIR        101     A     
 CDDIR                                                                                     CDDIR        102     A     
 CDDIR     DO1      SA1    DO=OT                                                           CDDIR        103     A     
 CDDIR              PL     X1,FEC.RTN  IF C$ DO(OT= ) NOT SPECIFIED                        CDDIR        104     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR        105     A     
 CDDIR              SA6    A1          CLEAR (TO POSITIVE)                                 CDDIR        106     A     
 CDDIR              SA6    WO.DOOT                                                         CDDIR        107     A     
 CDDIR              CLAS=  X4,TP,(SHRT),INT                                                CDDIR        108     A     
 CDDIR              LX6    TP.BIASP                                                        CDDIR        109     A     
 CDDIR              BX4    X6+X4                                                           CDDIR        110     A     
 CDDIR              MX5    0                                                               CDDIR        111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 907    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR              EMIT   V=CDDOT,NONE                                                    CDDIR        112     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR        113     A     
 CDDIR                                                                                     CDDIR        114     A     
 CDDIR     FW.DO    BSS                                                                    CDDIR        115     A     
 CDDIR              DATA   4LLONG                                                          CDDIR        116     A     
 CDDIR     DO=LONG  CON    0                                                               CDDIR        117     A     
 CDDIR              DATA   2LOT                                                            CDDIR        118     A     
 CDDIR     DO=OT    CON    0                                                               CDDIR        119     A     
 CDDIR     L.DO     EQU    *-FW.DO                                                         CDDIR        120     A     
 CDDIR              TITLE  C$ IF DIRECTIVES.                                               CDDIR        121     A     
 CDDIR     IF.      SPACE  4,10                                                            CDDIR        122     A     
 CDDIR    **        IF. -  DEFINITIONS FOR T.C$IF                                          CDDIR        123     A     
 CDDIR                                                                                     CDDIR        124     A     
 CDDIR                                                                                     CDDIR        125     A     
 CDDIR              DESCRIBE IF.                                                           CDDIR        126     A     
 CDDIR                                                                                     CDDIR        127     A     
 CDDIR     INA      DEFINE 1           IF GROUP INACTIVE (FEC=BY WHEN ENCOUNTERED)         CDDIR        128     A     
 CDDIR     PE       DEFINE 1           PROCESSED ELSE (ONLY ONE ALLOWED)                   CDDIR        129     A     
 CDDIR              DEFINE 16                                                              CDDIR        130     A     
 CDDIR     LAB      DEFINE 42          IF LABEL (IF PRESENT)                               CDDIR        131     A     
 CDDIR     IF       SPACE  4,10                                                            CDDIR        132     A     
 CDDIR    **        TRANSLATE C$ IF CONDITIONAL DIRECTIVE.                                 CDDIR        133     A     
 CDDIR                                                                                     CDDIR        134     A     
 CDDIR                                                                                     CDDIR        135     A     
 CDDIR              HEREIF C$IF                                                            CDDIR        136     A     
 CDDIR              SA1    STAGE                                                           CDDIR        137     A     
 CDDIR              SX6    FEC=BY                                                          CDDIR        138     A     
 CDDIR              IX6    X1-X6                                                           CDDIR        139     A     
 CDDIR              SA1    B4                                                              CDDIR        140     A     
 CDDIR              NZ     X6,IFD1     IF NOT SKIPPING                                     CDDIR        141     A     
 CDDIR              SB2    X1-O.LP                                                         CDDIR        142     A     
 CDDIR              NZ     B2,E.C$08   IF NOT *(*                                          CDDIR        143     A     
 CDDIR              HX1    TB.IOCP                                                         CDDIR        144     A     
 CDDIR              AX1    -TB.IOCPL   EXTRACT CORRESPONDING *)* ADDRESS                   CDDIR        145     A     
 CDDIR              SB4    X1                                                              CDDIR        146     A     
 CDDIR              CLAS=  X6,IF,(INA)                                                     CDDIR        147     A     
 CDDIR              SA6    IFDA                                                            CDDIR        148     A     
 CDDIR              EQ     IFD2        CHECK LABEL, IF ANY                                 CDDIR        149     A     
 CDDIR                                                                                     CDDIR        150     A     
 CDDIR     IFD1     SA4    B4                                                              CDDIR        151     A     
 CDDIR              SB4    B4+B1                                                           CDDIR        152     A     
 CDDIR              SX6    X4-O.LP                                                         CDDIR        153     A     
 CDDIR              NZ     X6,E.C$08   IF INITIAL LPAREN MISSING                           CDDIR        154     A     
 CDDIR              =X6    PM=CXP      *PKX* STORES THIS INTO *PARMODE*                    FC5A156        9     A     
 CDDIR              CALL   PKX         PARSE CONSTANT EXPRESSION (LOGICAL)                 CDDIR        155     A     
 CDDIR              =B5    B5-M.LOG                                                        CDDIR        156     A     
 CDDIR              NZ     B5,E.C$11   IF EXPRESSION NOT LOGICAL                           CDDIR        157     A     
 CDDIR              SA2    B4                                                              CDDIR        158     A     
 CDDIR              SB7    X2-O.RP                                                         CDDIR        159     A     
 CDDIR              NZ     B7,E.C$06   IF MISSING RIGHT PAREN                              CDDIR        160     A     
 CDDIR              LX5    X6          THE TRUTH VALUE OF THE EXPRESSION                   CDDIR        161     A     
 CDDIR              =X6    0                                                               CDDIR        162          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 908    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
          -FC5A157
 CDDIR              PL     B2,IFD1A    IF CONSTANT NOT IN A TABLE                          FC5A157        7     A     
 CDDIR              SA5    T.CON                                                           FC5A157        8     A     
 CDDIR              SB2    X6                                                              FC5A157        9     A     
 CDDIR              SA5    X5+B2       THE TRUTH VALUE OF THE EXPRESSION                   FC5A157       10     A     
 CDDIR                                                                                     FC5A157       11     A     
 CDDIR     IFD1A    MX6    0                                                               FC5A157       12     A     
 CDDIR              SA6    IFDA        INITIALIZE                                          CDDIR        163     A     
 CDDIR                                                                                     CDDIR        164     A     
 CDDIR    *         (X5) .MI. = CONDITION TRUE (CONTINUE COMPILIATION)                     CDDIR        165     A     
 CDDIR                                                                                     CDDIR        166     A     
 CDDIR     IFD2     =A3    B4+1                                                            CDDIR        167     A     
 CDDIR              SB4    B4+1                                                            CDDIR        168     A     
 CDDIR              BX7    0                                                               CDDIR        169     A     
 CDDIR              ZR     X3,IFD4     IF *EOS*                                            CDDIR        170     A     
 CDDIR              ERRNZ  O.EOS                                                           CDDIR        171     A     
 CDDIR              SB2    X3-O.COMMA                                                      CDDIR        172     A     
 CDDIR              NZ     B2,IFD3     IF NO COMMA                                         CDDIR        173     A     
 CDDIR              SB4    B4+1                                                            CDDIR        174     A     
 CDDIR     IFD3     RJ     GDL         GET DIRECTIVE LABEL                                 CDDIR        175     A     
 CDDIR     IFD4     SA1    IFDA                                                            CDDIR        176     A     
 CDDIR              BX6    X1+X7       FORM IF. ENTRY                                      CDDIR        177     A     
 CDDIR              ADDWD  T.C$IF                                                          CDDIR        178     A     
 CDDIR              SBIT   X6,IF.INAP                                                      CDDIR        179     A     
 CDDIR              MI     X6,FEC.RTN  IF INACTIVE (CURRENTLY SKIPPING)                    CDDIR        180     A     
 CDDIR              MI     X5,FEC.RTN  IF TRUE CONDITION                                   CDDIR        181     A     
 CDDIR                                                                                     CDDIR        182     A     
 CDDIR                                                                                     CDDIR        183     A     
 CDDIR     IFNO     SA1    STAGE                                                           CDDIR        184     A     
 CDDIR              SX7    FEC=BY                                                          CDDIR        185     A     
 CDDIR              BX6    X1          SAVE (IFDD) = ORIGINAL (STAGE)                      CDDIR        186     A     
 CDDIR              SA7    A1                                                              CDDIR        187     A     
 CDDIR              SA6    IFDB                                                            CDDIR        188     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR        189     A     
 CDDIR                                                                                     CDDIR        190     A     
 CDDIR     IFDA     BSS    1           T.C$IF ENTRY                                        CDDIR        191     A     
 CDDIR     IFDB     BSS    1           HOLD (STAGE) WHEN SKIP BEGAN                        CDDIR        192     A     
 CDDIR     ELSE     SPACE  4,10                                                            CDDIR        193     A     
 CDDIR    **        TRANSLATE C$ ELSE DIRECTIVE.                                           CDDIR        194     A     
 CDDIR                                                                                     CDDIR        195     A     
 CDDIR                                                                                     CDDIR        196     A     
 CDDIR              HEREIF C$ELSE                                                          CDDIR        197     A     
 CDDIR                                                                                     CDDIR        198     A     
 CDDIR              SA1    T.C$IF                                                          CDDIR        199     A     
 CDDIR              SA2    T=C$IF                                                          CDDIR        200     A     
 CDDIR              ZR     X2,E.C$01   IF NO C$ IF STACKED                                 CDDIR        201     A     
 CDDIR              SB3    X2-1                                                            CDDIR        202     A     
 CDDIR              SA3    X1+B3       FETCH CURRENT C$IF ENTRY                            CDDIR        203     A     
 CDDIR              BX7    0                                                               CDDIR        204     A     
 CDDIR              SA5    B4+                                                             CDDIR        205     A     
 CDDIR              SB2    X5-O.COMMA                                                      CDDIR        206     A     
 CDDIR              ZR     X5,ELSE1    IF NO LABEL                                         CDDIR        207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 909    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR              ERRNZ  O.EOS                                                           CDDIR        208     A     
 CDDIR              NZ     B2,E.C$09   IF NO COMMA                                         CDDIR        209     A     
 CDDIR              SB4    B4+1                                                            CDDIR        210     A     
 CDDIR              RJ     GDL         GET DIRECTIVE LABEL                                 CDDIR        211     A     
 CDDIR     ELSE1    MX0    IF.LABL                                                         CDDIR        212     A     
 CDDIR              LX0    IF.LABL                                                         CDDIR        213     A     
 CDDIR              BX5    X3*X0                                                           CDDIR        214     A     
 CDDIR              BX1    X5*X7                                                           CDDIR        215     A     
 CDDIR              ZR     X1,ELSE2    IF IF OR ELSE HAD NO LABEL                          CDDIR        216     A     
 CDDIR              IX1    X5-X7                                                           CDDIR        217     A     
 CDDIR              NZ     X1,E.C$03   IF LABELS DONT MATCH                                CDDIR        218     A     
 CDDIR     ELSE2    CLAS=  X6,IF,(PE)                                                      CDDIR        219     A     
 CDDIR              BX6    X6+X3       MERGE IN PROCESSED ELSE BIT                         CDDIR        220     A     
 CDDIR              SBIT   X3,IF.PEP                                                       CDDIR        221     A     
 CDDIR              MI     X3,E.C$04   IF ALREADY PROCESSED ELSE                           CDDIR        222     A     
 CDDIR              SA6    A3          UPDATE C$IF ENTRY                                   CDDIR        223     A     
 CDDIR              SBIT   X6,IF.INAP                                                      CDDIR        224     A     
 CDDIR              MI     X6,FEC.RTN  IF THIS IF GROUP INACTIVE                           CDDIR        225     A     
 CDDIR              SA1    STAGE                                                           CDDIR        226     A     
 CDDIR              SX6    FEC=BY                                                          CDDIR        227     A     
 CDDIR              IX2    X1-X6                                                           CDDIR        228     A     
 CDDIR              NZ     X2,IFNO     IF NOT CURRENTLY SKIPPING, THEN START               CDDIR        229     A     
 CDDIR              SA2    IFDB        FETCH PREVIOUS STAGE (BEFORE SKIP)                  CDDIR        230     A     
 CDDIR              BX6    X2                                                              CDDIR        231     A     
 CDDIR              SA6    A1          RESTORE STAGE                                       CDDIR        232     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR        233     A     
 CDDIR     ENDIF    SPACE  4,10                                                            CDDIR        234     A     
 CDDIR    **        TRANSLATE C$ ENDIF DIRECTIVE.                                          CDDIR        235     A     
 CDDIR                                                                                     CDDIR        236     A     
 CDDIR                                                                                     CDDIR        237     A     
 CDDIR              HEREIF C$ENDIF                                                         CDDIR        238     A     
 CDDIR                                                                                     CDDIR        239     A     
 CDDIR              SA1    T.C$IF                                                          CDDIR        240     A     
 CDDIR              SA2    T=C$IF                                                          CDDIR        241     A     
 CDDIR              ZR     X2,E.C$01   IF NO C$ IF STACKED                                 CDDIR        242     A     
 CDDIR              SB3    X2-1                                                            CDDIR        243     A     
 CDDIR              SA3    X1+B3       FETCH CURRENT C$IF ENTRY                            CDDIR        244     A     
 CDDIR              BX7    0                                                               CDDIR        245     A     
 CDDIR              SA5    B4+                                                             CDDIR        246     A     
 CDDIR              SB2    X5-O.COMMA                                                      CDDIR        247     A     
 CDDIR              ZR     X5,ENDIF1   IF NO LABEL                                         CDDIR        248     A     
 CDDIR              ERRNZ  O.EOS                                                           CDDIR        249     A     
 CDDIR              NZ     B2,E.C$09   IF NO COMMA                                         CDDIR        250     A     
 CDDIR              SB4    B4+1                                                            CDDIR        251     A     
 CDDIR              RJ     GDL         GET DIRECTIVE LABEL                                 CDDIR        252     A     
 CDDIR     ENDIF1   MX0    IF.LABL                                                         CDDIR        253     A     
 CDDIR              LX0    IF.LABL                                                         CDDIR        254     A     
 CDDIR              BX5    X3*X0                                                           CDDIR        255     A     
 CDDIR              BX1    X5*X7                                                           CDDIR        256     A     
 CDDIR              ZR     X1,ENDIF2   IF IF OR ENDIF HAD NO LABEL                         CDDIR        257     A     
 CDDIR              IX1    X5-X7                                                           CDDIR        258     A     
 CDDIR              NZ     X1,E.C$03   IF LABELS DONT MATCH                                CDDIR        259     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 910    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR     ENDIF2   SHRINK A2,B3       REMOVE C$IF ENTRY                                   CDDIR        260     A     
 CDDIR              SBIT   X3,IF.INAP                                                      CDDIR        261     A     
 CDDIR              MI     X3,FEC.RTN  IF THIS GROUP INACTIVE                              CDDIR        262     A     
 CDDIR              SA1    STAGE                                                           CDDIR        263     A     
 CDDIR              SX2    FEC=BY                                                          CDDIR        264     A     
 CDDIR              IX3    X1-X2                                                           CDDIR        265     A     
 CDDIR              NZ     X3,FEC.RTN  IF NOT NOW SKIPPING                                 CDDIR        266     A     
 CDDIR              SA2    IFDB        FETCH PREVIOUS STAGE (BEFORE SKIP)                  CDDIR        267     A     
 CDDIR              BX6    X2                                                              CDDIR        268     A     
 CDDIR              SA6    A1          RESTORE STAGE                                       CDDIR        269     A     
 CDDIR              EQ     FEC.RTN                                                         CDDIR        270     A     
 CDDIR              TITLE  C$ LIST DIRECTIVE.                                              CDDIR        271     A     
 CDDIR    **        TRANSLATE C$ LIST DIRECTIVE.                                           CDDIR        272     A     
 CDDIR                                                                                     CDDIR        273     A     
 CDDIR              HEREIF C$LIST                                                          CDDIR        274     A     
 CDDIR                                                                                     CDDIR        275     A     
 CDDIR              SX6    FW.LIST                                                         CDDIR        276     A     
 CDDIR              SX7    L.LIST                                                          CDDIR        277     A     
 CDDIR              RJ     TCP         TRANSLATE C$ PARAMETERS                             CDDIR        278     A     
 CDDIR                                                                                     CDDIR        279     A     
 CDDIR              SA1    LIST=A                                                          CDDIR        280     A     
 CDDIR              PL     X1,LIST1    IF C$ LIST(A= ) NOT SPECIFIED                       CDDIR        281     A     
 CDDIR              SA2    CO.LOA                                                          CDDIR        282     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR        283     A     
 CDDIR              SA6    A1          CLEAR (TO POSITIVE)                                 CDDIR        284     A     
 CDDIR              LX6    -1          POSITION FOR SWITCH                                 CDDIR        285     A     
 CDDIR              BX6    X6*X2                                                           CDDIR        286     A     
 CDDIR              SA6    WO.LOA      UPDATE                                              CDDIR        287     A     
 CDDIR                                                                                     CDDIR        288     A     
 CDDIR     LIST1    SA1    LIST=M                                                          CDDIR        289     A     
 CDDIR              PL     X1,LIST2    IF C$ LIST(M= ) NOT SPECIFIED                       CDDIR        290     A     
 CDDIR              SA2    CO.LOM                                                          CDDIR        291     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR        292     A     
 CDDIR              SA6    A1          CLEAR (TO POSITIVE)                                 CDDIR        293     A     
 CDDIR              LX6    -1          POSITION FOR SWITCH                                 CDDIR        294     A     
 CDDIR              BX6    X6*X2                                                           CDDIR        295     A     
 CDDIR              SA6    WO.LOM      UPDATE                                              CDDIR        296     A     
 CDDIR                                                                                     CDDIR        297     A     
 CDDIR     LIST2    SA1    LIST=O                                                          CDDIR        298     A     
 CDDIR              PL     X1,LIST3    IF C$ LIST(O= ) NOT SPECIFIED                       CDDIR        299     A     
 CDDIR              SA2    CO.LOO                                                          CDDIR        300     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR        301     A     
 CDDIR              SA6    A1          CLEAR (TO POSITIVE)                                 CDDIR        302     A     
 CDDIR              LX6    -1          POSITION FOR SWITCH                                 CDDIR        303     A     
 CDDIR              BX6    X6*X2                                                           CDDIR        304     A     
 CDDIR              SA6    WO.LOO      UPDATE                                              CDDIR        305     A     
 CDDIR              CLAS=  X4,TP,(SHRT),INT                                                CDDIR        306     A     
 CDDIR              BX1    -X1                                                             CDDIR        307     A     
 CDDIR              LX1    TP.BIASP                                                        CDDIR        308     A     
 CDDIR              BX4    X1+X4                                                           CDDIR        309     A     
 CDDIR              MX5    0                                                               CDDIR        310     A     
 CDDIR              EMIT   V=CDLOO,NONE                                                    CDDIR        311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 911    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR                                                                                     CDDIR        312     A     
 CDDIR     LIST3    SA1    LIST=R                                                          CDDIR        313     A     
 CDDIR              PL     X1,LIST5    IF C$ LIST(R= ) NOT SPECIFIED                       CDDIR        314     A     
 CDDIR              SA2    CO.LOR                                                          CDDIR        315     A     
 CDDIR              ZR     X2,LIST5    IF LO=R NOT SELECTED BY CONTROL CARD                CDDIR        316     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR        317     A     
 CDDIR              SA6    A1          CLEAR (TO POSITIVE)                                 CDDIR        318     A     
 CDDIR              LX6    -1          POSITION FOR SWITCH                                 CDDIR        319     A     
 CDDIR              BX6    X6*X2                                                           CDDIR        320     A     
 CDDIR              SA6    WO.LOR      UPDATE                                              CDDIR        321     A     
 CDDIR              SA2    ERT=ON                                                          CDDIR        322     A     
 CDDIR              NZ     X1,LIST4    IF LIST(R=1)                                        CDDIR        323     A     
 CDDIR              SA2    ERT=OFF                                                         CDDIR        324     A     
 CDDIR     LIST4    BX7    X2                                                              CDDIR        325     A     
 CDDIR              SA7    ERT         SET COLLECTION OF REFERENCES APPROPRIATELY          CDDIR        326     A     
 CDDIR                                                                                     CDDIR        327     A     
 CDDIR     LIST5    SA1    LIST=S                                                          CDDIR        328     A     
 CDDIR              PL     X1,FEC.RTN  IF C$ LIST(S= ) NOT SPECIFIED                       CDDIR        329     A     
 CDDIR              SA2    CO.LOS                                                          CDDIR        330     A     
 CDDIR              ZR     X2,FEC.RTN  IF LO=S NOT SELECTED BY CONTROL CARD                CDDIR        331     A     
 CDDIR              BX6    -X1         COMPLEMENT FOR VALUE                                CDDIR        332     A     
 CDDIR              SA6    A1+         CLEAR (TO POSITIVE)                                 CDDIR        333     A     
 CDDIR              LX6    -1          POSITION FOR SWITCH                                 CDDIR        334     A     
 CDDIR              SA6    WO.LOS      UPDATE                                              CDDIR        335     A     
 CDDIR              ZR     X1,LIST6    IF C$ LIST(S=0)                                     CDDIR        336          I
          -FC5A174
 CDDIR              NZ     X1,LIST6    IF (S=1)                                            FC5A174       15     A     
 CDDIR                                                                                     CDDIR        337     A     
 CDDIR              SA3    LINES       SOURCE LINE COUNT                                   CDDIR        338     A     
 CDDIR              SX7    X3-1                                                            CDDIR        339     A     
 CDDIR              NZ     X7,LIST6    IF *C$ LIST(S=0) NOT AT LINE 1                      CDDIR        340     A     
 CDDIR              SHRINK T=STMT,0                                                        CDDIR        341     A     
 CDDIR              SA6    SB=LORD                                                         CDDIR        342     A     
 CDDIR              SA6    SB=LINC                                                         CDDIR        343     A     
 CDDIR     LIST6    CALL   LDB         LIST DEFERRED BUFFER                                CDDIR        344     A     
 CDDIR              EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER                        CDDIR        345     A     
 CDDIR                                                                                     CDDIR        346     A     
 CDDIR     FW.LIST  BSS    0           ** FWA **                                           CDDIR        347     A     
 CDDIR              DATA   1LA                                                             CDDIR        348     A     
 CDDIR     LIST=A   CON    0                                                               CDDIR        349     A     
 CDDIR              DATA   1LC         **STUB FOR FUTURE IMPLEMENTATION**                  CDDIR        350     A     
 CDDIR     LIST=C   CON    0                                                               CDDIR        351     A     
 CDDIR              DATA   1LM                                                             CDDIR        352     A     
 CDDIR     LIST=M   CON    0                                                               CDDIR        353     A     
 CDDIR              DATA   1LO                                                             CDDIR        354     A     
 CDDIR     LIST=O   CON    0                                                               CDDIR        355     A     
 CDDIR              DATA   1LR                                                             CDDIR        356     A     
 CDDIR     LIST=R   CON    0                                                               CDDIR        357     A     
 CDDIR              DATA   1LS                                                             CDDIR        358     A     
 CDDIR     LIST=S   CON    0                                                               CDDIR        359     A     
 CDDIR              DATA   3LALL                                                           CDDIR        360     A     
 CDDIR              CON    0                                                               CDDIR        361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 912    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR     L.LIST   EQU    *-FW.LIST                                                       CDDIR        362     A     
 CDDIR              TITLE  SUBROUTINES.                                                    CDDIR        363     A     
 CDDIR     GDL      SPACE  4,10                                                            CDDIR        364     A     
 CDDIR    **        GDL -  GET DIRECTIVE LABEL.                                            CDDIR        365     A     
 CDDIR    *                                                                                CDDIR        366     A     
 CDDIR    *         ENTRY  (B4) _ C$ DIRECTIVE LABEL                                       CDDIR        367     A     
 CDDIR    *                                                                                CDDIR        368     A     
 CDDIR    *         EXIT   (X7) = VALUE OF LABEL                                           CDDIR        369     A     
 CDDIR    *                                                                                CDDIR        370     A     
 CDDIR    *         USES   A1,A7  B2  X0,X1,X7                                             CDDIR        371     A     
 CDDIR                                                                                     CDDIR        372     A     
 CDDIR                                                                                     CDDIR        373     A     
 CDDIR     GDL      SUBR               ...ENTRY/EXIT...                                    CDDIR        374     A     
 CDDIR              SA1    B4+                                                             CDDIR        375     A     
 CDDIR              SB2    X1-O.VAR                                                        CDDIR        376     A     
 CDDIR              NZ     B2,E.C$02   IF NOT DIRECTIVE LABEL                              CDDIR        377     A     
 CDDIR              MX0    TB.TOCL                                                         CDDIR        378     A     
 CDDIR              HX1    TB.TOC                                                          CDDIR        379     A     
 CDDIR              =B4    B4+1                                                            CDDIR        380     A     
 CDDIR              BX7    X0*X1       (X7) = LABEL                                        CDDIR        381     A     
 CDDIR              SA7    FILL.2                                                          CDDIR        382     A     
 CDDIR              LX7    IF.LABL                                                         CDDIR        383     A     
 CDDIR              SA1    B4+                                                             CDDIR        384     A     
 CDDIR              ZR     X1,EXIT.    IF *EOS*                                            CDDIR        385     A     
 CDDIR              ERRNZ  O.EOS                                                           CDDIR        386     A     
 CDDIR              WARN   E.C$10                                                          CDDIR        387     A     
 CDDIR              EQ     EXIT.                                                           CDDIR        388     A     
 CDDIR     TCP      SPACE  4,10                                                            CDDIR        389     A     
 CDDIR    **        TCP -  TRANSLATE C$ PARAMETERS.                                        CDDIR        390     A     
 CDDIR    *                                                                                CDDIR        391     A     
 CDDIR    *         ENTRY  (B4) _ *(* PRECEDING C$ PARAMETER LIST                          CDDIR        392     A     
 CDDIR    *                (X6) = FWA OF PARAMETER TABLE                                   CDDIR        393     A     
 CDDIR    *                (X7) = LENGTH OF PARAMETER TABLE                                CDDIR        394     A     
 CDDIR    *                                                                                CDDIR        395     A     
 CDDIR    *         EXIT   (B4) _ CLOSING *)*                                              CDDIR        396     A     
 CDDIR    *                                                                                CDDIR        397     A     
 CDDIR    *         CALLS  PIX                                                             CDDIR        398     A     
 CDDIR    *                                                                                CDDIR        399     A     
 CDDIR    *         USES                                                                   CDDIR        400     A     
 CDDIR                                                                                     CDDIR        401     A     
 CDDIR                                                                                     CDDIR        402     A     
 CDDIR     TCPA     BSS    2           SAVE PARAMETER TABLE FWA AND LENGTH                 CDDIR        403     A     
 CDDIR     TCPB     BSS    1           SAVE PARAMETER TABLE ADDRESS                        CDDIR        404     A     
 CDDIR     TCPC     BSS    1           SAVE FILL. OF C$ DIRECTIVE                          CDDIR        405     A     
 CDDIR                                                                                     CDDIR        406     A     
 CDDIR     TCP      SUBR               ...ENTRY/EXIT...                                    CDDIR        407     A     
 CDDIR              SA6    TCPA                                                            CDDIR        408     A     
 CDDIR              =A7    A6+1                                                            CDDIR        409     A     
 CDDIR              SA4    B4                                                              CDDIR        410     A     
 CDDIR              SX6    X4-O.LP                                                         CDDIR        411     A     
 CDDIR              NZ     X6,E.C$08   IF INITIAL LPAREN MISSING                           CDDIR        412     A     
 CDDIR              =B4    B4+1        ADVANCE TO FIRST PARAMETER                          CDDIR        413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 913    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR                                                                                     CDDIR        414     A     
 CDDIR     TCP1     SA2    B4          FETCH PARAMETER                                     CDDIR        415     A     
 CDDIR              MX0    TB.TOCL                                                         CDDIR        416     A     
 CDDIR              LX0    TB.TOCL+TB.TOCP                                                 CDDIR        417     A     
 CDDIR              SB2    X2-O.VAR                                                        CDDIR        418     A     
 CDDIR              NZ     B2,E.C$07   IF NOT C$ PARAMETER                                 CDDIR        419     A     
 CDDIR              BX6    X0*X2       PARAMETER ONLY                                      CDDIR        420     A     
 CDDIR              SA1    TCPA                                                            CDDIR        421     A     
 CDDIR              =A2    A1+1                                                            CDDIR        422     A     
 CDDIR              SB6    X1          FWA OF PARAMETER TABLE                              CDDIR        423     A     
 CDDIR              SB7    X2          LENGTH OF PARAMETER TABLE                           CDDIR        424     A     
 CDDIR              SB7    B7-2        INITIALIZE                                          CDDIR        425     A     
 CDDIR                                                                                     CDDIR        426     A     
 CDDIR     TCP2     MI     B7,TCP3     IF NOT IN PARAMETER TABLE                           CDDIR        427     A     
 CDDIR              SA1    B6+B7                                                           CDDIR        428     A     
 CDDIR              IX2    X1-X6                                                           CDDIR        429     A     
 CDDIR              ZR     X2,TCP4     IF MATCH                                            CDDIR        430     A     
 CDDIR              SB7    B7-2        DECREMENT                                           CDDIR        431     A     
 CDDIR              EQ     TCP2        LOOP...                                             CDDIR        432     A     
 CDDIR                                                                                     CDDIR        433     A     
 CDDIR     TCP3     SA6    FILL.2                                                          CDDIR        434     A     
 CDDIR              EQ     E.C$00      NOT A LEGAL C$ PARAMETER                            CDDIR        435     A     
 CDDIR                                                                                     CDDIR        436     A     
 CDDIR     TCP4     =A2    B4+1                                                            CDDIR        437     A     
 CDDIR              =B4    B4+1                                                            CDDIR        438     A     
 CDDIR              SB2    X2-O.=                                                          CDDIR        439     A     
 CDDIR              ZR     B2,TCP5     IF P=C FORM                                         CDDIR        440     A     
 CDDIR              SX6    -B1                                                             CDDIR        441     A     
 CDDIR              =A6    A1+1        STORE INTO CORRESPONDING VALUE CELL                 CDDIR        442     A     
 CDDIR              EQ     TCP7                                                            CDDIR        443     A     
 CDDIR                                                                                     CDDIR        444     A     
 CDDIR     TCP5     SX6    A1                                                              CDDIR        445     A     
 CDDIR              SA6    TCPB        SAVE PARAMETER TABLE ENTRY                          CDDIR        446     A     
 CDDIR              SA1    FILL.                                                           CDDIR        447     A     
 CDDIR              LX7    X1                                                              CDDIR        448     A     
 CDDIR              =A7    A6-TCPB+TCPC                                                    CDDIR        449     A     
 CDDIR              =B4    B4+1                                                            CDDIR        450     A     
 CDDIR              CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION                   CDDIR        451     A     
 CDDIR              SA1    TCPB                                                            CDDIR        452     A     
 CDDIR              =A2    A1-TCPB+TCPC                                                    CDDIR        453     A     
 CDDIR              LX7    X2                                                              CDDIR        454     A     
 CDDIR              SA1    X1          RELOAD C$ PARAMETER                                 CDDIR        455     A     
 CDDIR              SA7    FILL.       RESTORE                                             CDDIR        456     A     
 CDDIR              ZR     X6,TCP6     IF VALUE 0                                          CDDIR        457     A     
 CDDIR              SX2    X6-1                                                            CDDIR        458     A     
 CDDIR              ZR     X2,TCP6     IF VALUE 1                                          CDDIR        459     A     
 CDDIR              BX6    X1                                                              CDDIR        460     A     
 CDDIR              SA6    FILL.2                                                          CDDIR        461     A     
 CDDIR              WARN   E.C$05      C$ PARAMETER VALUE MUST BE 0 OR 1                   CDDIR        462     A     
 CDDIR              EQ     TCP10                                                           CDDIR        463     A     
 CDDIR                                                                                     CDDIR        464     A     
 CDDIR     TCP6     BX6    -X6         COMPLEMENT TO INDICATE APPEARANCE                   CDDIR        465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 914    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDDIR   
  
 CDDIR              =A6    A1+1                                                            CDDIR        466     A     
 CDDIR                                                                                     CDDIR        467     A     
 CDDIR     TCP7     SA2    =3LALL                                                          CDDIR        468     A     
 CDDIR              IX2    X2-X1                                                           CDDIR        469     A     
 CDDIR              NZ     X2,TCP10    IF NOT ALL=                                         CDDIR        470     A     
 CDDIR              SA1    TCPA                                                            CDDIR        471     A     
 CDDIR              =A2    A1+1                                                            CDDIR        472     A     
 CDDIR              SB6    X1          FWA OF PARAMETER TABLE                              CDDIR        473     A     
 CDDIR              SB7    X2          LENGTH OF PARAMETER TABLE                           CDDIR        474          I
          -FC5A184
 CDDIR              SB7    B7-3        INITIALIZE                                          CDDIR        475          I
          -FC5A184
 CDDIR              SB7    X2-3                                                            FC5A184       69     A     
 CDDIR                                                                                     CDDIR        476     A     
 CDDIR     TCP8     MI     B7,TCP10    IF FINISHED                                         CDDIR        477     A     
 CDDIR              SA1    B6+B7                                                           CDDIR        478     A     
 CDDIR              SA6    A1                                                              CDDIR        479     A     
 CDDIR              SB7    B7-2                                                            CDDIR        480     A     
 CDDIR              EQ     TCP8                                                            CDDIR        481     A     
 CDDIR                                                                                     CDDIR        482     A     
 CDDIR     TCP10    SA1    B4                                                              CDDIR        483     A     
 CDDIR              =B4    B4+1                                                            CDDIR        484     A     
 CDDIR              SB2    X1-O.COMMA                                                      CDDIR        485     A     
 CDDIR              ZR     B2,TCP1     IF *,*, CONTINUE PROCESSING                         CDDIR        486     A     
 CDDIR              SB2    X1-O.RP                                                         CDDIR        487     A     
 CDDIR              NZ     B2,E.C$09   IF NOT *)*                                          CDDIR        488     A     
 CDDIR              SA1    B4+                                                             CDDIR        489     A     
 CDDIR              ZR     X1,EXIT.    IF *EOS*                                            CDDIR        490     A     
 CDDIR              ERRNZ  O.EOS                                                           CDDIR        491     A     
 CDDIR              WARN   E.C$10                                                          CDDIR        492     A     
 CDDIR              EQ     EXIT.                                                           CDDIR        493     A     
 CDDIR              SPACE  4,10                                                            CDDIR        494     A     
 CDDIR              LIST   D                                                               CDDIR        495     A     
 CDDIR              END                                                                    CDDIR        496     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CDDIR   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CDDIR                      496       490
          FC5A156                      1         1
          FC5A157                      7         7
          FC5A174                      1         1
          FC5A184                      1         1
          FC50480                      2         0
          FC50703                      8         8
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *DECK     DATA - TRANSLATE *DATA* STATEMENTS.                                    DATA           1     A     
 DATA               IDENT  DATA                                                            DATA           2     A     
 DATA      DATA     SECT   (TRANSLATE DATA STATEMENTS.)                                    DATA           3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 915    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      DATA     SPACE  4,10                                                            DATA           4     A     
 DATA     ***       DATA - TRANSLATE DATA STATEMENTS.                                      DATA           5     A     
 DATA     *                                                                                DATA           6     A     
 DATA     *         S. I. JASIK        70/06/01.                                           DATA           7     A     
 DATA     *         P. H. MCQUESTEN    71/06/01.   78/12/31.                               DATA           8     A     
 DATA     *         A. T. HSIAO        78/05/08.                                           DATA           9     A     
 DATA                                                                                      DATA          10     A     
 DATA                                                                                      DATA          11     A     
 DATA     *         IN ALLOC                                                               DATA          12     A     
 DATA               EXT    ADW,ALC                                                         DATA          13     A     
 DATA                                                                                      DATA          14     A     
 DATA     *         IN CONRED                                                              DATA          15     A     
 DATA               EXT    DEC,KCV,NBC,SED,TNK                                             DATA          16     A     
 DATA                                                                                      DATA          17     A     
 DATA     *         IN FEC                                                                 DATA          18     A     
 DATA               EXT    DATFLG,NCM,OIL,FEC.RTN,SCT,SSY,T=CONB                           DATA          19          I
          -FC5A231
 DATA               EXT    STAGE,FEC=EXU                                                   FC5A152        4          I
          -FC5A231
 DATA               EXT    DATFLG,ERT,FEC=EXU,FEC.RTN,NCM,OIL,REFVAR,SCT,SSY               FC5A231       39     A     
 DATA               EXT    STAGE,TLV,T=CONB                                                FC5A231       40     A     
 DATA                                                                                      DATA          20     A     
 DATA     *         IN FERRS                                                               DATA          21     A     
 DATA               EXT    E.AT01,E.AT03,E.AT08,E.AT13,E.DABC,E.DABL,E.DACV,E.DAR          DATA          22          I
          -FC50180
 DATA               EXT    E.DAUC,E.DAVC,E.DCE,E.DC7,E.DIL,E.DIL1,E.DIL2,E.DIL3            DATA          23          I
          -FC50180
 DATA               EXT    E.DIL4,E.DSE,E.DVL1,FILL.                                       DATA          24          I
          -FC50180
 DATA               EXT    E.AT01,E.AT03,E.AT08,E.AT13,E.DACV,E.DAR,E.DAVC,E.DCE           FC50180        5     A     
 DATA               EXT    E.DC7,E.DC10,E.DIL,E.DIL1,E.DIL2,E.DIL3,E.DIL4,E.DSE            FC50180        6     A     
 DATA               EXT    E.DVL1,E.MDE2                                                   FC50180        7          I
          -FC50554
 DATA               EXT    E.DVL1,E.MDE2,FILL.                                             FC50554        6     A     
 DATA                                                                                      DATA          25     A     
 DATA     *         IN FSNAP                                                               DATA          26     A     
 DATA               EXT    DMT=,SN.PAR                                                     DATA          27     A     
 DATA                                                                                      DATA          28     A     
 DATA     *         IN FTN                                                                 DATA          29     A     
 DATA               EXT    CO.SNAP                                                         DATA          30     A     
 DATA                                                                                      DATA          31     A     
 DATA     *         IN IDP                                                                 DATA          32     A     
 DATA               EXT    IDP=SVB,IDP=SVX,REG=,SNP=                                       DATA          33     A     
 DATA                                                                                      DATA          34     A     
 DATA     *         IN IO                                                                  DATA          35     A     
 DATA               EXT    CVL,IODOIND                                                     DATA          36          I
          -FC50180
 DATA               EXT    CVL,IODOIND,VAI                                                 FC50180        8     A     
 DATA                                                                                      DATA          37     A     
 DATA     *         IN PAR                                                                 DATA          38     A     
 DATA               EXT    C=ERR,DATARM,DOA,DVLOP,EMT,IOL.RTN                              DATA          39          I
          -FC5A231
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 916    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EXT    C=ERR,DATARM,DVLOP,EMT,IOL.RTN                                  FC5A231       41     A     
 DATA                                                                                      DATA          40     A     
 DATA     *         IN PEM                                                                 DATA          41     A     
 DATA               EXT    ANSI=,PDM                                                       DATA          42          I
          -FC50180
 DATA               EXT    ANSI=,MDERR=,PDM                                                FC50180        9     A     
 DATA                                                                                      DATA          43     A     
 DATA     *         IN PUC                                                                 DATA          44     A     
 DATA               EXT    BLNKCOM,CONONE,E=TOTAL,MOD,T=CON,T=DAR,T=DATI,T=DATL            DATA          45          I
          -FC5A231
 DATA               EXT    T=DATS,T.CON,T.DAR,T.DATI,T.DATL,T.DATS,T.DIM,T.PAR             DATA          46          I
          -FC5A231
 DATA               EXT    T.SYM,T=BLST,T.BLST                                             DATA          47          I
          -FC5A231
 DATA               EXT    CONONE,E=TOTAL,MOD,T=CON,T=DAR,T=DATI,T=DATL,T=DATS             FC5A231       42     A     
 DATA               EXT    T.CON,T.DAR,T.DATI,T.DATL,T.DATS,T.DIM,T.PAR,T.SYM              FC5A231       43     A     
 DATA                                                                                      DATA          48     A     
 DATA     *         IN QCGLINK/FLINK                                                       DATA          49     A     
 DATA               EXT    PDI                                                             DATA          50     A     
 DATA                                                                                      DATA          51     A     
 DATA     *         IN QSKEL/FSKEL                                                         DATA          52     A     
 DATA               EXT    V=DATA,V=DVI                                                    DATA          53     A     
 DATA                                                                                      DATA          54     A     
 DATA     *         IN UTILITY                                                             DATA          55     A     
 DATA               EXT    MVE=,SBM=                                                       DATA          56     A     
 DATA      DATA     SPACE  4,10                                                            DATA          57     A     
 DATA     ***       DATA INITIALIZATION STATEMENTS.                                        DATA          58     A     
 DATA     *                                                                                DATA          59     A     
 DATA     *         SYNTAX:                                                                DATA          60     A     
 DATA     *                DATA <DIL>,...,<DIL>                                            DATA          61     A     
 DATA     *                 WHERE DIL IS A DATA INITIALIZATION LIST                        DATA          62     A     
 DATA     *                <DIL> := <DVL> / <DIL> /                                        DATA          63     A     
 DATA     *                 WHERE <DVL> IS A DATA VARIABLE LIST                            DATA          64     A     
 DATA     *                 AND   <DIL> IS A DATA ITEM LIST ( CONSTANTS )                  DATA          65     A     
 DATA     *                                                                                DATA          66     A     
 DATA     *         THE SYNTAX OF THE DATA ITEM LIST ( CONSTANTS ) IS                      DATA          67     A     
 DATA     *                                                                                DATA          68     A     
 DATA     *                <DIL> := <DIG>,...,<DIG>                                        DATA          69     A     
 DATA     *                <DIG>  :=  <CON>  OR  <RF>*<CON>                                DATA          70     A     
 DATA     *                           OR  <RF>(<CONL>)         /* NON-ANS                  DATA          71     A     
 DATA     *                <CONL> := <CON>,,,<CON>                                         DATA          72     A     
 DATA     *                <CON> := <CONSTANT> OR (<REAL CON>,<REAL CON>)                  DATA          73     A     
 DATA     *                                                                                DATA          74     A     
 DATA     *         THE SYNTAX OF A DATA VARIABLE LIST IS                                  DATA          75     A     
 DATA     *                <DVL> := <DVG>,...,<DVG>                                        DATA          76     A     
 DATA     *                <DVG> := <VARNAME> OR <ARRAY>(<CON SUBSC>)                      DATA          77     A     
 DATA     *                OR <ARRAY> OR <DOLIST>                                          DATA          78     A     
 DATA     *                WHERE:                                                          DATA          79     A     
 DATA     *                 <VARNAME> IS THE NAME OF A SIMPLE VARIABLE                     DATA          80     A     
 DATA     *                 <ARRAY> IS THE NAME OF AN ARRAY                                DATA          81     A     
 DATA     *                 <CON SUBSC> IS A CONSTANT SUBSCRIPT EXPRESSION                 DATA          82     A     
 DATA     *                <DOLIST> IS A NEST OF IMPLIED LOOPS                             DATA          83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 917    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      ANSI     SPACE  4,20                                                            DATA          84     A     
 DATA     ***       THE DATA STATEMENT IS DESCRIBED IN ANSI CHAPTER 9.                     DATA          85     A     
 DATA     *                                                                                DATA          86     A     
 DATA     *         EXTENSION -- VARIABLES IN LABELED COMMON MAY BE INITIALIZED            DATA          87     A     
 DATA     *                OUTSIDE OF A BLOCK DATA SUBPROGRAM.                             DATA          88     A     
 DATA     *                                                                                DATA          89     A     
 DATA     *         EXTENSION -- REPEATED LIST OF CONSTANTS.  SEE ERS.                     DATA          90     A     
 DATA     *                RF ( CONLIST )                                                  DATA          91     A     
 DATA     *                                                                                DATA          92     A     
 DATA     *         USAGE NOTE -- IMPLIED LOOPS WITH HUGE TRIP COUNTS CAN CONSUME          DATA          93     A     
 DATA     *                MUCH COMPILE TIME IF THEY MUST BE SIMULATED.  TO AVOID          DATA          94     A     
 DATA     *                INORDINATELY LONG COMPILATION TIME, WRITE LOOPS SUCH            DATA          95     A     
 DATA     *                THAT THEY ARE COLLAPSIBLE.                                      DATA          96     A     
 DATA      MACROS   TITLE  LOCAL MACROS.                                                   DATA          97     A     
 DATA      PARSEM   SPACE  4,10                                                            DATA          98     A     
 DATA     **        PARSEM - ELIST MANIPULATION MACROS.                                    DATA          99     A     
 DATA     *                                                                                DATA         100     A     
 DATA     *         REGISTER USAGE --                                                      DATA         101     A     
 DATA     *                (A4,X4) -> CURRENT TOKEN.                                       DATA         102     A     
 DATA     *                (B2) = TOKEN TYPE.                                              DATA         103     A     
 DATA     *                USES        B3.                                                 DATA         104     A     
 DATA                                                                                      DATA         105     A     
 DATA                                                                                      DATA         106     A     
 DATA      NEXTE    MACRO  R           FETCH NEXT TOKEN                                    DATA         107     A     
 DATA               ERRNZ  R  0        OBSOLETE PARAMETER                                  DATA         108     A     
 DATA               SA4    A4+B1                                                           DATA         109     A     
 DATA               SB2    X4                                                              DATA         110     A     
 DATA      NEXTE    ENDM                                                                   DATA         111     A     
 DATA                                                                                      DATA         112     A     
 DATA                                                                                      DATA         113     A     
 DATA      IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL               DATA         114     A     
 DATA      .1       IF     -MIC,ECODE                                                      DATA         115     A     
 DATA               =B3    ECODE                                                           DATA         116     A     
 DATA               EQ     B2,B3,LABEL                                                     DATA         117     A     
 DATA      .1       ELSE                                                                   DATA         118     A     
 DATA               EQ     B2,"ECODE",LABEL                                                DATA         119     A     
 DATA      .1       ENDIF                                                                  DATA         120     A     
 DATA      IF.EQ    ENDM                                                                   DATA         121     A     
 DATA                                                                                      DATA         122     A     
 DATA                                                                                      DATA         123     A     
 DATA      IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL               DATA         124     A     
 DATA      .1       IF     -MIC,ECODE                                                      DATA         125     A     
 DATA               =B3    ECODE                                                           DATA         126     A     
 DATA               NE     B2,B3,LABEL                                                     DATA         127     A     
 DATA      .1       ELSE                                                                   DATA         128     A     
 DATA               NE     B2,"ECODE",LABEL                                                DATA         129     A     
 DATA      .1       ENDIF                                                                  DATA         130     A     
 DATA      IF.NE    ENDM                                                                   DATA         131     A     
 DATA                                                                                      DATA         132     A     
 DATA                                                                                      DATA         133     A     
 DATA      ARICON   MICRO  1,, O.HOLL,O.CONS,O.PERIOD,O.OCT,O.HEX                          DATA         134          I
          -FC5A258
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 918    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      ARICON   MICRO  1,, O.HOLL,O.QHOLL,O.RLCON,O.CONS,O.PERIOD,O.OCT,O.HEX          FC5A258       24     A     
 DATA      M.CON    BITMIC (O.LP,O.MIN,O.PL,"ARICON",O.CHAR,O.TRUE,O.FALSE,O.VAR)          DATA         135     A     
 DATA      UNSIGNC  BITMIC (O.HOLL,O.CHAR,O.OCT,O.HEX)                                     DATA         136          I
          -FC5A258
 DATA      UNSIGNC  BITMIC (O.HOLL,O.QHOLL,O.RLCON,O.CHAR,O.OCT,O.HEX)                     FC5A258       25     A     
 DATA      M.SEP    BITMIC (O.EOS,O.COMMA,O.RP)                                            DATA         137     A     
 DATA      M.BCON   BITMIC (O.HOLL,O.QHOLL,O.RLCON,O.OCT,O.HEX)                            FC5A264        5     A     
 DATA               TITLE  STORAGE CELLS AND DATA STRUCTURES.                              DATA         138     A     
 DATA     *         STORAGE.                                                               DATA         139     A     
 DATA      TEMP     OPSYN  BSS                                                             DATA         140     A     
 DATA                                                                                      DATA         141     A     
 DATA                                                                                      DATA         142     A     
 DATA      F.GRUP   TEMP   0           FWA OF CONTROL CELLS FOR A DATA GROUP               DATA         143     A     
 DATA      REPFLAG  TEMP   1           REP FLAG (SEE CRL)                                  DATA         144     A     
 DATA      CLOSREP  TEMP   1           CLOSE REP FLAG                                      DATA         145     A     
 DATA      N.ITEM   TEMP   1           NUMBER OF DATA ITEMS                                DATA         146     A     
 DATA      PL       TEMP   1           PAREN LEVEL                                         DATA         147     A     
 DATA      I.DIT    TEMP   3           1 - ORDINAL OF NEXT ITEM IN T.DATI                  DATA         148     A     
 DATA     *                            2 - NUM OF ITEMS REMAINING IN REP LIST              DATA         149     A     
 DATA     *                            3 - ORDINAL OF 1ST DATA ITEM IN REP LIST            DATA         150     A     
 DATA      Z.GRUP   EQU    *-F.GRUP    ...   ABOVE CLEARED FOR EACH DATA GROUP             DATA         151     A     
 DATA                                                                                      DATA         152     A     
 DATA      DVI      TEMP   Z=SYM       DATA VAR INFO WORDS (V1.,WB.,V3. FORMAT)            DATA         153     A     
 DATA      BIAS     TEMP   1           ACCUMULATED BIAS DUE TO SUBSC CALC                  DATA         154     A     
 DATA      ORGN     TEMP   1           NEW ORG NEEDED FLAG                                 DATA         155     A     
 DATA      DA       TEMP   1           ADDRESS DIFFERENCE                                  DATA         156     A     
 DATA      LI       TEMP   2           LOOP INDEX        /* IN NIC                         DATA         157     A     
 DATA      MP       TEMP   1           MULTIPLIER ( DA*RL )                                DATA         158     A     
 DATA      RL       TEMP   1           NUMBER OF ITEMS IN A REPLIST                        DATA         159     A     
 DATA      DVLT     TEMP   1           -> FWA CURRENT VARLIST                              DATA         160     A     
 DATA      DILT     TEMP   1           -> FWA CURRENT CONLIST                              DATA         161     A     
 DATA      SELIST   TEMP   1           SAVES CURRENT *TB* CURSOR                           DATA         162     A     
 DATA      ASIA     TEMP   1           SAVE CELL FOR ASI                                   DATA         163     A     
 DATA      OSHA     EQU    ASIA        SAVE CELL FOR OSH                                   DATA         164     A     
 DATA      OVIA     TEMP   1           SAVE CELL FOR OVI                                   DATA         165     A     
 DATA      DL.      SPACE  4,10                                                            DATA         166     A     
 DATA     **        DL. - FORMAT FOR T.DATL (DATA INITIALIZATION LIST POINTER              DATA         167     A     
 DATA     *                TABLE), BUILT BY *BDL*.                                         DATA         168     A     
 DATA                                                                                      DATA         169     A     
 DATA                                                                                      DATA         170     A     
 DATA               DESCRIBE DL.,60                                                        DATA         171     A     
 DATA               DEFINE 24          0                                                   DATA         172     A     
 DATA      VAR      DEFINE 18          FWA OF DATA VARIABLE LIST                           DATA         173     A     
 DATA      CON      DEFINE 18          FWA OF DATA CONSTANT LIST                           DATA         174     A     
 DATA      DVI      SPACE  4,20                                                            DATA         175     A     
 DATA     **        DVI - DATA VARIABLE INFO.                                              DATA         176     A     
 DATA     *                                                                                DATA         177     A     
 DATA     *         WORDS SETUP BY *BVT* TO USE IN MATCHING A DATA CONSTANT ITEM           DATA         178     A     
 DATA     *         LIST WITH A VARIABLE OR LOOP.                                          DATA         179     A     
 DATA     *         (DVI+0) FORMAT = (V1.)                                                 DATA         180     A     
 DATA     *         (DVI+1)        = (WB.)                                                 DATA         181     A     
 DATA     *         (DVI+2)        = (V3.)                                                 DATA         182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 919    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA         183     A     
 DATA                                                                                      DATA         184     A     
 DATA               DESCRIBE V1.,60,,WA.W                                                  DATA         185     A     
 DATA                                                                                      DATA         186     A     
 DATA      SDPF     DEFINE 1           SINGLE/DOUBLE PRECISION FLAG                        DATA         187     A     
 DATA               DEFINE 5                                                               DATA         188     A     
 DATA      BASE     DEFINE WB.BASEL    ORDINAL OF BASE MEMBER                              DATA         189     A     
 DATA               DEFINE 24                                                              DATA         190     A     
 DATA      ORD      DEFINE 18          ORDINAL INTO (T.SYM)                                DATA         191     A     
 DATA                                                                                      DATA         192     A     
 DATA                                                                                      DATA         193     A     
 DATA               DESCRIBE V3.,60,,WC.W                                                  DATA         194     A     
 DATA                                                                                      DATA         195     A     
 DATA      ELS      DEFINE 18          ELEMENT SIZE (IN STORAGE UNITS)                     DATA         196     A     
 DATA      SSU      DEFINE 18          SUBSTRING SIZE (IN STORAGE UNITS)                   DATA         197     A     
 DATA      ABU      DEFINE 24          ADDITIONAL BIAS (IN STORAGE UNITS)                  DATA         198     A     
 DATA      S.       SPACE  4,10                                                            DATA         199     A     
 DATA     **        (S.) - OUTPUT BLOCK CONSTRUCTION CONTROL WORDS.                        DATA         200     A     
 DATA                                                                                      DATA         201     A     
 DATA                                                                                      DATA         202     A     
 DATA      S.DHW    BSS    2           HEADER WORDS BEING CONSTRUCTED                      DATA         203     A     
 DATA      S.POP    CON    -1          .PL. WHEN BLOCK STARTED                             DATA         204     A     
 DATA      S.FEA    BSS    1           FIRST ELEMENT ADDRESS (= FWA)                       DATA         205     A     
 DATA      S.LEN    BSS    1           STORAGE UNITS OUTPUT SO FAR                         DATA         206     A     
 DATA      S.NCH    BSS    1           NR OF CHAR IN LAST OUTPUT WORD                      DATA         207     A     
 DATA      S.PAD    BSS    1           .ZR. IF CAN BLANK PAD BY REP                        DATA         208     A     
 DATA      S.BLEN   BSS    1           BLOCK LENGTH ON ORH CALL                            DATA         209     A     
 DATA      DAT.Z    SPACE  4,10                                                            DATA         210     A     
 DATA     **        DATA.E - FE ERROR EXIT.                                                DATA         211     A     
 DATA     *                                                                                DATA         212     A     
 DATA     *         ENTRY  (B7) = DIAGNOSTIC.                                              DATA         213     A     
 DATA                                                                                      DATA         214     A     
 DATA                                                                                      DATA         215     A     
 DATA      DATA.E   FATAL  B7          (SEVERITY ACTUALLY CONTROLLED BY FERRS)             DATA         216     A     
 DATA                                                                                      DATA         217     A     
 DATA      DAT.Z    BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      DATA         218     A     
 DATA               SHRINK T=DATI,0                                                        DATA         219     A     
 DATA               SHRINK T=DATS,X6                                                       DATA         220     A     
 DATA               SA2    T=CONB                                                          DATA         221     A     
 DATA               SHRINK T=CON,X2    RESET CONSTANT TABLE LENGTH                         DATA         222     A     
 DATA               SA1    T=BLST                                                          DATA         223          I
          -FC5A111
 DATA               SA2    DATAA       T=BLST AT START OF DATA                             DATA         224          I
          -FC5A111
 DATA               IX2    X2-X1                                                           DATA         225          I
          -FC5A111
 DATA               ZR     X2,FEC.RTN  IF NO BAD IMPLIED DOS IN DATA                       DATA         226          I
          -FC5A111
 DATA               SA2    T.BLST                                                          DATA         227          I
          -FC5A111
 DATA               SB7    X1-Z=BLST-1 B7 = INDEX OF BAD IMPLIED DO                        DATA         228          I
          -FC5A111
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 920    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SB7    X2+B7                                                           DATA         229          I
          -FC5A111
 DATA               SA2    B7+DOCI.W                                                       DATA         230          I
          -FC5A111
 DATA               HX2    TP.ORD                                                          DATA         231          I
          -FC5A111
 DATA               AX2    -TP.ORDL    EXTRACT ORDINAL OF DO INDEX                         DATA         232          I
          -FC5A111
 DATA               SA3    T.SYM                                                           DATA         233          I
          -FC5A111
 DATA               SB7    X2                                                              DATA         234          I
          -FC5A111
 DATA               LX2    1                                                               DATA         235          I
          -FC5A111
 DATA               SX2    X2+B7       CONVERT TO INDEX                                    DATA         236          I
          -FC5A111
 DATA               =B7    X2-WA.W+WB.W                                                    DATA         237          I
          -FC5A111
 DATA               SA3    X3+B7                                                           DATA         238          I
          -FC5A111
 DATA               CLAS=  X7,WB,(DOIX)                                                    DATA         239          I
          -FC5A111
 DATA               BX7    -X7*X3                                                          DATA         240          I
          -FC5A111
 DATA               SA7    A3          CLEAR DOIX                                          DATA         241          I
          -FC5A111
 DATA               SA2    DATAA                                                           DATA         242          I
          -FC5A111
 DATA               SHRINK A1,X2                                                           DATA         243          I
          -FC5A111
 DATA               EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER...                   DATA         244     A     
 DATA               TITLE  MAIN LOOP.                                                      DATA         245     A     
 DATA     ***       TRANSLATE DATA STATEMENT.                                              DATA         246     A     
 DATA                                                                                      DATA         247     A     
 DATA                                                                                      DATA         248     A     
 DATA               HEREIF DATA                                                            DATA         249     A     
 DATA                                                                                      DATA         250     A     
 DATA               SA1    T=BLST                                                          DATA         251          I
          -FC5A111
 DATA               LX6    X1                                                              DATA         252          I
          -FC5A111
 DATA               SA6    DATAA       SAVE CURRENT LENGTH OF T.BLST                       DATA         253          I
          -FC5A111
 DATA               RJ     BDL         BUILD DATA LIST POINTERS                            DATA         254     A     
 DATA               CALL   OIL         OUTPUT I.L.       /* FLUSH (T.PAR)                  DATA         255     A     
 DATA                                                                                      FC5A152        5     A     
 DATA     *         RESET T=CONB TO T=CON IF IN EXUCUTABLES, SINCE                         FC5A152        6     A     
 DATA     *         QCG MAY HAVE ADDED CONSTANTS.                                          FC5A152        7     A     
 DATA                                                                                      FC5A152        8     A     
 DATA               SA1    STAGE                                                           FC5A152        9     A     
 DATA               SX6    FEC=EXU                                                         FC5A152       10     A     
 DATA               BX0    X1-X6                                                           FC5A152       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 921    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               NZ     X0,DATA1    IF NOT PROCESSING EXUCUTABLES                       FC5A152       12     A     
 DATA               SA1    T=CON                                                           FC5A152       13     A     
 DATA               BX6    X1                                                              FC5A152       14     A     
 DATA               SA6    T=CONB                                                          FC5A152       15     A     
 DATA                                                                                      DATA         256     A     
 DATA     *         MAIN LOOP.  FOR EACH DATA VARLIST/CONLIST/ GROUP, FIRST CALL           DATA         257     A     
 DATA     *         BIT TO CONVERT THE ITEM LIST TO INTERNAL FORM.  THEN PVL               DATA         258     A     
 DATA     *         PARSES THE VARIABLE LIST, AND ISSUES THE MATCHING CONS.                DATA         259     A     
 DATA                                                                                      DATA         260     A     
 DATA      DATA1    MX6    0                                                               DATA         261     A     
 DATA               SHRINK T=DAR,X6                                                        DATA         262     A     
 DATA               SHRINK T=DATI,X6                                                       DATA         263     A     
 DATA               SHRINK T=DATS,X6                                                       DATA         264     A     
 DATA               SETMEM F.GRUP,Z.GRUP,X6                                                DATA         265     A     
 DATA                                                                                      DATA         266     A     
 DATA               SA1    T.DATL                                                          DATA         267     A     
 DATA               SA2    T=DATL                                                          DATA         268     A     
 DATA               IX3    X1+X2                                                           DATA         269     A     
 DATA               SA5    X3-1        DLI = T.DATL( (T=DATL)-1 )                          DATA         270     A     
 DATA               LX5    -DL.CONP                                                        DATA         271     A     
 DATA               SA4    X5          A4 -> CON[DLI]                                      DATA         272     A     
 DATA               ERRNZ  18-DL.CONL                                                      DATA         273     A     
 DATA               LX5    DL.CONP-DL.VARP                                                 DATA         274     A     
 DATA               SX6    A4                                                              DATA         275     A     
 DATA               SX7    X5                                                              DATA         276     A     
 DATA               ERRNZ  18-DL.VARL                                                      DATA         277     A     
 DATA               SA6    DILT        SAVE LIST POINTERS                                  DATA         278     A     
 DATA               =A7    A6-DILT+DVLT                                                    DATA         279     A     
 DATA               RJ     BIT         BUILT ITEM (DATA CONSTANT) TABLE                    DATA         280     A     
 DATA                                                                                      DATA         281     A     
 DATA               RJ     PVL         PARSE/TRANSLATE VARIABLE LIST                       DATA         282     A     
 DATA               NZ     X5,DATA2    IF PROBLEM WITH VARLIST                             DATA         283     A     
 DATA               SA4    T=DATS                                                          DATA         284     A     
 DATA               MX5    0                                                               DATA         285     A     
 DATA               LX4    TP.BIASP    BIAS[1OP] = LENGTH OF DATA TABLE                    DATA         286     A     
 DATA               EMIT   V=DATA                                                          DATA         287     A     
 DATA               CALL   PDI         PUBLISH DATA TO IL                                  DATA         288     A     
 DATA                                                                                      DATA         289     A     
 DATA     **        ISSUE INFORMATIVE DIAGNOSTICS IF LISTS NOT THE SAME LENGTH.            DATA         290     A     
 DATA                                                                                      DATA         291     A     
 DATA               SA1    N.ITEM                                                          DATA         292     A     
 DATA               MI     X1,E.DAVC   IF MORE VARIABLES THAN CONSTANTS                    DATA         293     A     
 DATA               NZ     X1,E.DACV   IF MORE CONSTANTS THAN VARIABLES                    DATA         294     A     
 DATA                                                                                      DATA         295     A     
 DATA      DATA2    BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      DATA         296     A     
 DATA               SA1    T=DATL                                                          DATA         297     A     
 DATA               SX6    X1-1        (T=DATL) -= 1                                       DATA         298     A     
 DATA               SHRINK A1,X6                                                           DATA         299     A     
 DATA               NZ     X6,DATA1    IF MORE DATA GROUPS IN STATEMENT                    DATA         300     A     
 DATA               EQ     DAT.Z       RETURN TO FRONT END CONTROLLER                      DATA         301     A     
 DATA                                                                                      DATA         302     A     
 DATA      DATAA    BSS    1           SAVE T=BLST                                         DATA         303          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 922    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
          -FC5A111
 DATA               TITLE  BDL - INITIALIZE DATA LIST POINTERS.                            DATA         304     A     
 DATA     **        BDL - BUILD DATA LIST POINTERS.                                        DATA         305     A     
 DATA     *                T.DATAL - TABLE OF FWA'S OF DIL(DATA ITEM LIST) AND             DATA         306     A     
 DATA     *                DVL(DATA VARIABLE LIST) IS BUILT FROM FORWARD SCANNING          DATA         307     A     
 DATA     *                OF THE DATA STATEMENT, FORMATTED AS DL. .                       DATA         308     A     
 DATA     *                ALSO PERFORMS SYNTAX CHECKING.                                  DATA         309     A     
 DATA     *                                                                                DATA         310     A     
 DATA     *         ENTRY  B4 _ BEGINNING OF DATA STATEMENT                                DATA         311     A     
 DATA     *         CALLS  STD, ADDWD                                                      DATA         312     A     
 DATA     *         USES   ALL                                                             DATA         313     A     
 DATA                                                                                      DATA         314     A     
 DATA                                                                                      DATA         315     A     
 DATA      BDL      SUBR               ENTRY/EXIT.                                         DATA         316     A     
 DATA               SHRINK T=DATL,0                                                        DATA         317     A     
 DATA               SX7    O.COMMA                                                         DATA         318     A     
 DATA               LX7    TB.TOTP                                                         DATA         319     A     
 DATA               SA7    B4-B1       STORE A COMMA AT BEGINNING OF LIST                  DATA         320     A     
 DATA               SA4    B4-B1                                                           DATA         321     A     
 DATA               SB2    X4                                                              DATA         322     A     
 DATA                                                                                      DATA         323     A     
 DATA     *         BEGINNING OF DATA VARIABLE LIST.                                       DATA         324     A     
 DATA     *         (B2) _ TOKEN TYPE                                                      DATA         325     A     
 DATA                                                                                      DATA         326     A     
 DATA      BDL10    IF.EQ  O.COMMA,BDL15     IF COMMA                                      DATA         327     A     
 DATA               IF.EQ  O.LP,BDL11  IF (                                                DATA         328     A     
 DATA               IF.NE  O.VAR,BDL20 IF NOT VARIABLE                                     DATA         329     A     
 DATA      BDL11    =A4    A4-1                                                            DATA         330     A     
 DATA      BDL15    SX7    A4                                                              DATA         331     A     
 DATA               LX7    DL.VARP                                                         DATA         332          I
          -FC5A147
 DATA               LDBIT  X5,59-O.SLASH                                                   DATA         333     A     
 DATA               RJ     STD         FIND BEGINNING OF CON LIST                          DATA         334     A     
 DATA               SX6    A4                                                              DATA         335     A     
 DATA               IX5    X6-X7                                                           FC5A147        5     A     
 DATA               LX7    DL.VARP                                                         FC5A147        6     A     
 DATA               =X5    X5-1                                                            FC5A147        7     A     
 DATA               ZR     X5,BDL30    IF VARIABLE LIST OMITTED                            FC5A147        8     A     
 DATA               LX6    DL.CONP                                                         DATA         336     A     
 DATA               BX6    X6+X7                                                           DATA         337     A     
 DATA               MX7    0           MARK END OF VAR-LIST                                DATA         338     A     
 DATA               ERRNZ  O.EOS                                                           DATA         339     A     
 DATA               SA7    A4                                                              DATA         340     A     
 DATA               ADDWD  T.DATL      ADD FWA'S OF DVL AND DIL                            DATA         341     A     
 DATA               LDBIT  X5,59-O.SLASH                                                   DATA         342     A     
 DATA               RJ     STD         FIND END OF CON LIST                                DATA         343     A     
 DATA               SA4    A4+B1                                                           DATA         344     A     
 DATA               MX7    0           MARK END OF CON-LIST                                DATA         345     A     
 DATA               ERRNZ  O.EOS                                                           DATA         346     A     
 DATA               SA7    A4-B1                                                           DATA         347     A     
 DATA               SB2    X4                                                              DATA         348     A     
 DATA               EQ     BDL10                                                           DATA         349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 923    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA         350     A     
 DATA      BDL20    IF.NE  O.EOS,E.DSE IF NOT END OF STATEMENT                             DATA         351          I
          -FC5A111
 DATA      BDL20    IF.NE  O.EOS,BDL30 IF NOT END OF STATEMENT                             FC5A111       10     A     
 DATA               SA2    T=DATL                                                          DATA         352     A     
 DATA               NZ     X2,EXIT.    IF NOT EMPTY DATA STATEMENT                         DATA         353     A     
 DATA               EQ     E.DSE       ** DATA SYNTAX ERROR                                DATA         354          I
          -FC5A111
 DATA      BDL30    FATAL  E.DSE       ** DATA SYNTAX ERROR                                FC5A111       11     A     
 DATA               EQ     DAT.Z                                                           FC5A111       12     A     
 DATA      STD      SPACE  4,20                                                            DATA         355     A     
 DATA     **        STD - SCAN TO DELIMITER, PERFORM A PARENTHESIS CHECK.                  DATA         356     A     
 DATA     *                                                                                DATA         357     A     
 DATA     *         ENTRY  (X5) = BIT MASK OF DELIMITER TO SCAN TO.                        DATA         358     A     
 DATA     *                (A4) -> ONE TOKEN BEFORE SCAN START.                            DATA         359     A     
 DATA     *                                                                                DATA         360     A     
 DATA     *         EXIT   (A4) -> DELIMITER TOKEN.                                        DATA         361     A     
 DATA     *                (B2) = TOKEN TYPE OF DELIMITER.                                 DATA         362     A     
 DATA     *                                                                                DATA         363     A     
 DATA     *         USES   A1,A3,A4  B2-B5  X1,X3,X4                                       DATA         364     A     
 DATA                                                                                      DATA         365     A     
 DATA                                                                                      DATA         366     A     
 DATA      STD      SUBR               ENTRY/EXIT...                                       DATA         367     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA         368     A     
 DATA      Z        BITMIC (O.LP)                                                          DATA         369     A     
 DATA               SA1    ="Z"                                                            DATA         370     A     
 DATA               BX6    X1*X5                                                           DATA         371     A     
 DATA               NZ     X6,"BLOWUP" IF ILL TOKENS IN STOPPER SET                        DATA         372     A     
 DATA      .T       ENDIF                                                                  DATA         373     A     
 DATA      Z        BITMIC ("ARICON",O.CHAR,O.VAR,O.PL,O.MIN)                              DATA         374     A     
 DATA               SA1    ="Z"                                                            DATA         375     A     
 DATA               SB3    O.LP                                                            DATA         376     A     
 DATA               =B4    B3-O.LP+O.RP                                                    DATA         377     A     
 DATA                                                                                      DATA         378     A     
 DATA      STD1     SA4    A4+B1                                                           DATA         379     A     
 DATA               SB2    X4+                                                             DATA         380     A     
 DATA               LX3    X1,B2                                                           DATA         381     A     
 DATA               MI     X3,STD1     IF CONST OR VAR -- SKIP                             DATA         382     A     
 DATA               NE     B2,B3,STD2  IF NOT A LPAREN                                     DATA         383     A     
 DATA               LX4    -TB.IOCPP                                                       DATA         384     A     
 DATA               SA4    X4          SWOOP TO MATCHING RP, IGNORING IT                   DATA         385     A     
 DATA               ERRNZ  18-TB.IOCPL                                                     DATA         386     A     
 DATA               EQ     STD1                                                            DATA         387     A     
 DATA                                                                                      DATA         388     A     
 DATA      STD2     LX3    B2,X5                                                           DATA         389     A     
 DATA               MI     X3,EXIT.    IF THIS IS A SELECTED DELIMITER                     DATA         390     A     
 DATA               EQ     B2,B4,E.DSE IF RP ** SYNTAX ERR (NEGATIVE PAREN COUNT)          DATA         391          I
          -FC5A111
 DATA               EQ     B2,B4,STD5  IF RP ** SYNTAX ERR (NEGATIVE PAREN COUNT)          FC5A111       13     A     
 DATA               IF.NE  O.BOS,STD1  IF NOT BOS -- LOOP                                  DATA         392     A     
 DATA               EQ     E.DSE       ** SYNTAX ERROR (MISSING DELIMITER)                 DATA         393          I
          -FC5A111
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 924    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      STD5     FATAL  E.DSE       ** SYNTAX ERROR (MISSING DELIMITER)                 FC5A111       14     A     
 DATA               EQ     DAT.Z                                                           FC5A111       15     A     
 DATA               TITLE  BIT - BUILD DATA ITEM TABLE.                                    DATA         394     A     
 DATA      BIT      SPACE  4,10                                                            DATA         395     A     
 DATA     **        BIT - BUILD DATA ITEM TABLE.                                           DATA         396     A     
 DATA     *                SCAN THE ITEM LIST AND CONVERT IT INTO INTERNAL FORMAT.         DATA         397     A     
 DATA     *                CONSTANT ENTRIES ARE OF ONE WORD EACH, FORMATTED AS             DATA         398     A     
 DATA     *                FORM 2 OF (DL.).  ACTUAL CONSTANTS ARE STORED INTO              DATA         399          I
          -FC5A231
 DATA     *                FORM 2 OF (DI.). ACTUAL CONSTANTS ARE STORED INTO               FC5A231       44     A     
 DATA     *                CONSTANT TABLE, WITH PNT[DL.] POINTING TO THAT ENTRY.           DATA         400     A     
 DATA     *                                                                                DATA         401     A     
 DATA     *                REPETITION HEADER ENTRIES ARE FORMATTED AS FORM 1               DATA         402     A     
 DATA     *                OF (DL.).                                                       DATA         403          I
          -FC5A231
 DATA     *                OF (DI.).                                                       FC5A231       45     A     
 DATA     *                                                                                DATA         404     A     
 DATA     *         ENTRY  (A4) -> TOKEN IN FRONT OF CONSTANT LIST.                        DATA         405     A     
 DATA                                                                                      DATA         406     A     
 DATA                                                                                      DATA         407     A     
 DATA      BIT      SUBR               ENTRY/EXIT...                                       DATA         408     A     
 DATA                                                                                      DATA         409     A     
 DATA     *         PROCESS NEXT CONSTANT.                                                 DATA         410     A     
 DATA                                                                                      DATA         411     A     
 DATA      BIT10    NEXTE                    NEXT ELIST ITEM                               DATA         412     A     
 DATA               SA3    ="M.CON"                                                        DATA         413     A     
 DATA               BX7    0           SIGN = +0                                           DATA         414     A     
 DATA               LX6    X3,B2                                                           DATA         415     A     
 DATA               =B5    O.CONS                                                          DATA         416     A     
 DATA               =B6    O.VAR                                                           DATA         417     A     
 DATA               PL     X6,E.DIL    IF NOT A CONSTANT BEGIN TOKEN                       DATA         418     A     
 DATA               SA3    ="UNSIGNC"                                                      DATA         419     A     
 DATA               LX6    X3,B2                                                           DATA         420     A     
 DATA               MI     X6,BIT20    IF UNSIGNED SIMPLE CONSTANT                         DATA         421     A     
 DATA               EQ     B2,B5,BIT40 IF NUMBER                                           DATA         422     A     
 DATA               EQ     B2,B6,BIT30 IF VARIABLE                                         DATA         423     A     
 DATA               =B7    B2-O.TRUE                                                       DATA         424     A     
 DATA               SB3    O.LP                                                            DATA         425     A     
 DATA               ZR     B7,BIT70    IF *.TRUE.*                                         DATA         426     A     
 DATA               IFNE   O.TRUE+1,O.FALSE,1                                              DATA         427     A     
 DATA               =B7    B2+O.TRUE+1-O.FALSE                                             DATA         428     A     
 DATA               EQ     B7,B1,BIT70 IF .FALSE.                                          DATA         429     A     
 DATA               EQ     B2,B3,BIT60 IF A LEFT PAREN                                     DATA         430     A     
 DATA               SX2    B2-O.MIN                                                        DATA         431     A     
 DATA                                                                                      DATA         432     A     
 DATA     **        HERE WITH + OR - SIGN, OR PERIOD.                                      DATA         433     A     
 DATA                                                                                      DATA         434     A     
 DATA               IF.EQ  O.PERIOD,BIT20    IF FLOATING PT. CONSTANT                      DATA         435     A     
 DATA               AX3    X2,B1            -0 IF PLUS, +0 IF MINUS SIGN                   DATA         436     A     
 DATA               BX7    -X3                                                             DATA         437     A     
 DATA               NEXTE                                                                  DATA         438     A     
 DATA               IF.EQ  O.PERIOD,BIT20    IF FLOATING PT. CONSTANT                      DATA         439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 925    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EQ     B2,B5,BIT20 IF NUMBER                                           DATA         440     A     
 DATA               IF.NE  O.HOLL,E.DIL1     IF NOT HOLL                                   DATA         441          I
          -FC5A258
 DATA               IF.EQ  O.HOLL,BIT20      IF HOLLERITH                                  FC5A258       26     A     
 DATA               IF.EQ  O.QHOLL,BIT20     IF "" STRING                                  FC5A258       27     A     
 DATA               IF.NE  O.RLCON,E.DIL1    IF NOT R OR L CONSTANT                        FC5A258       28          I
          -FC5A304
 DATA               IF.EQ  O.RLCON,BIT20     IF R OR L CONSTANT                            FC5A304        6     A     
 DATA               IF.EQ  O.LP,BIT60  IF POSSIBLE COMPLEX CONSTANT                        FC5A304        7     A     
 DATA               EQ     E.DIL1      INVALID SIGNED CONSTANT                             FC5A304        8     A     
 DATA                                                                                      DATA         442     A     
 DATA      BIT20    RJ     ADC         ADD CONSTANT TO TABLE                               DATA         443          I
          -FC5A264
 DATA      BIT20    SA3    ="M.BCON"                                                       FC5A264        6     A     
 DATA               LX3    X3,B2                                                           FC5A264        7     A     
 DATA               PL     X3,BIT25    IF NOT BOOLEAN CONSTANT                             FC5A264        8     A     
 DATA               MDERR  E.MDE2                                                          FC5A264        9     A     
 DATA                                                                                      FC5A264       10     A     
 DATA      BIT25    RJ     ADC         ADD CONSTANT TO TABLE                               FC5A264       11     A     
 DATA               EQ     BIT80                                                           DATA         444     A     
 DATA                                                                                      DATA         445     A     
 DATA     *         CHECK FOR SYMBOLIC CONSTANT.                                           DATA         446     A     
 DATA     *         A4 _ VARIABLE                                                          DATA         447          I
          -FC5A231
 DATA     *                (A4) _ O.VAR TOKEN                                              FC5A231       46     A     
 DATA                                                                                      DATA         448     A     
 DATA      BIT30    SX6    A4+B1                                                           DATA         449     A     
 DATA               SB4    A4                                                              FC5A231       47     A     
 DATA               SA6    SELIST      SAVE (SELIST) = TOKEN BUFFER POINTER                DATA         450     A     
 DATA               MX6    TB.TOCL                                                         FC50554        7     A     
 DATA               BX6    X6*X4       EXTRACT NAME                                        FC50554        8     A     
 DATA               SA6    FILL.       SAVE FOR POSSIBLE DIAGNOSTIC                        FC50554        9     A     
 DATA               RJ     CSC         CHECK FOR SYMBOLIC CONSTANT                         DATA         451     A     
 DATA               MI     B7,E.DIL4   IF NOT SYMBOLIC CONSTANT                            DATA         452     A     
 DATA               BX5    X6          REMEMBER (X5) = CONSTANT VALUE                      DATA         453     A     
 DATA               SB6    B3          (B6) = INDEX OF CONSTANT VALUE                      DATA         454     A     
 DATA               SA4    A3          PRESERVE PARAMETER *WC*                             FC50570        7     A     
 DATA               SB5    X1          PRESERVE MODE                                       FC50570        8     A     
 DATA               LX0    XR.TAGP                                                         FC50570        9     A     
 DATA               SA1    REFVAR                                                          FC50570       10     A     
 DATA               ADDREF X0,X1                                                           FC50570       11     A     
 DATA               SX1    B5          RESTORE MODE                                        FC50570       12     A     
 DATA               LX3    X4          RESTORE *WC*                                        FC50570       13     A     
 DATA               =A2    SELIST                                                          DATA         455     A     
 DATA               SA2    X2+                                                             DATA         456     A     
 DATA               SA4    ="M.SEP"                                                        DATA         457     A     
 DATA               SB2    X2                                                              DATA         458     A     
 DATA               LX6    X4,B2                                                           DATA         459     A     
 DATA               PL     X6,BIT45    IF NEXT NOT SEPARATOR                               DATA         460     A     
 DATA                                                                                      DATA         461     A     
 DATA     *         ADD SYMBOLIC CONSTANT TO DATA TABLE.                                   DATA         462     A     
 DATA     *         (B6) = PNT TO CONSTANT TABLE                                           DATA         463     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 926    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *         (X1) = MODE OF CONSTANT                                                DATA         464     A     
 DATA     *          A3 -> T.SYM WC WORD OF CONSTANT                                       DATA         465          I
          -FC5A231
 DATA     *         (A3) _ T.SYM *WC* WORD OF CONSTANT                                     FC5A231       48          I
          -FC50570
 DATA     *         (X3) = T.SYM *WC* WORD OF SYMBOLIC CONSTANT                            FC50570       14     A     
 DATA                                                                                      DATA         466     A     
 DATA               RJ     ASC         ADD SYMBOLIC CONSTANT TO DATA TALBE                 DATA         467          I
          -FC5A231
 DATA               RJ     ASC         ADD SYMBOLIC CONSTANT TO DATA TABLE                 FC5A231       49     A     
 DATA               EQ     BIT80                                                           DATA         468     A     
 DATA                                                                                      DATA         469     A     
 DATA     *         REGULAR CONSTANT.                                                      DATA         470     A     
 DATA                                                                                      DATA         471     A     
 DATA      BIT40    SB4    A4                LOOK AHEAD                                    DATA         472     A     
 DATA               SX5    A4          SAVE A4                                             DATA         473     A     
 DATA               MX6    1                                                               DATA         474     A     
 DATA               SA6    DATAFLG     INDICATE ERRORS TO BE SUPPRESSED                    DATA         475     A     
 DATA               CALL   DEC         SKIP OVER CONSTANT                                  DATA         476     A     
 DATA               MX7    0           CLOSE = 0      SIGN = +0                            DATA         477     A     
 DATA               SA7    DATAFLG     TURN OFF THE FLAG                                   DATA         478     A     
 DATA               SA4    X5          RESTORE A4                                          DATA         479     A     
 DATA               SA2    B4+B1       TOKEN AFTER CONSTANT                                DATA         480     A     
 DATA               BX5    X6          REMEMBER (X5) = CONVERTED CONSTANT                  DATA         481     A     
 DATA               SA3    ="M.SEP"                                                        DATA         482     A     
 DATA               SB2    X2                                                              DATA         483     A     
 DATA               LX2    B2,X3                                                           DATA         484     A     
 DATA               MI     X2,BIT20    IF FOLLOWER IN [COMMA, RP, EOS]                     DATA         485     A     
 DATA                                                                                      DATA         486     A     
 DATA     *         ENTERING A REPETION GROUP.                                             DATA         487     A     
 DATA     *         (A2,X2) = TOKEN FOLLOWING CONATANT                                     DATA         488          I
          -FC5A231
 DATA     *         (A2,X2) = TOKEN FOLLOWING CONSTANT                                     FC5A231       50     A     
 DATA     *         (X5) = CONSTANT VALUE                                                  DATA         489     A     
 DATA     *         (X1) = MODE OF CONSTANT                                                DATA         490     A     
 DATA     *         (B2) = TOKEN VALUE FOLLOWING CONSTANT                                  DATA         491     A     
 DATA                                                                                      DATA         492     A     
 DATA      BIT45    SA3    REPFLAG                                                         DATA         493     A     
 DATA               NZ     X3,E.DIL2   IF ALREADY WITHIN A REP LOOP                        DATA         494     A     
 DATA               MX7    -1          CLOSE = -1        /* SINGLE ITEM REP                DATA         495     A     
 DATA               IF.EQ  O.STAR,BIT50  IF CON FOLLOWED BY STAR                           DATA         496     A     
 DATA               SA1    PL                                                              DATA         497          I
          -FC5A304
 DATA               SA3    PL                                                              FC5A304        9     A     
 DATA               SX7    B1          CLOSE = +1        /* REPEATED LIST                  DATA         498     A     
 DATA               IX6    X1+X7       PL = PL + 1       /* PAREN LEVEL                    DATA         499          I
          -FC5A304
 DATA               SA6    A1                                                              DATA         500          I
          -FC5A304
 DATA               IX6    X3+X7       PL = PL + 1                                         FC5A304       10     A     
 DATA               SA6    A3                                                              FC5A304       11     A     
 DATA               IF.NE  O.LP,E.DIL  IF NO LPAREN -- SYNTAX ERROR                        DATA         501     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 927    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               ANSI   E.DAR       ** REPEATED LIST NON-ANSI                           DATA         502     A     
 DATA                                                                                      DATA         503     A     
 DATA      BIT50    SX6    A2          SAVE (SELIST) -> FIRST TOKEN OF LIST                DATA         504     A     
 DATA               SA6    SELIST                                                          DATA         505     A     
 DATA               SA7    CLOSREP     (CLOSREP) = CLOSE                                   DATA         506     A     
 DATA               RJ     CRC         CHECK REPEAT CONSTANT                               DATA         507     A     
 DATA               CLAS=  X3,DI,(REP)                                                     DATA         508     A     
 DATA               BX6    X3+X6       ADD REP ENTRY TO DATA ITEM TABLE                    DATA         509     A     
 DATA               ADDWD  T.DATI                                                          DATA         510     A     
 DATA                                                                                      DATA         511     A     
 DATA               SA1    N.ITEM                                                          DATA         512     A     
 DATA               SX6    X2-1        HDRI = INDEX OF REP HEADER                          DATA         513          I
          -FC5A269
 DATA               SX6    X2          HDRI = INDEX OF REP HEADER                          FC5A269        4     A     
 DATA               SA5    SELIST                                                          DATA         514     A     
 DATA               LX1    DI.NDXP     OLDN = PREVIOUS (N.ITEM)                            DATA         515          I
          -FC5A132
 DATA               LX1    18          OLDN = PREVIOUS (N.ITEM)                            FC5A132       58     A     
 DATA               BX6    X1+X6       (REPFLAG) =  42/ OLDN,  18/ HDRI                    DATA         516     A     
 DATA               SA6    REPFLAG                                                         DATA         517     A     
 DATA               MX7    0           (N.ITEM) = 0      /* COUNT THIS LIST                DATA         518     A     
 DATA               SA7    A1                                                              DATA         519     A     
 DATA               SA4    X5          RESTORE (A4)                                        DATA         520     A     
 DATA               EQ     BIT10       LOOP..  TO PROCESS REP LIST                         DATA         521     A     
 DATA                                                                                      DATA         522     A     
 DATA                                                                                      DATA         523     A     
 DATA     **        RAW LPAREN = START OF A COMPLEX CONSTANT.                              DATA         524     A     
 DATA                                                                                      DATA         525     A     
 DATA      BIT60    RJ     CFC         CHECK FOR COMPLEX CONSTANT                          DATA         526     A     
 DATA               SB7    E.DC7       ** ILL-FORMED COMPLEX CONSTANT                      DATA         527     A     
 DATA               NZ     X0,DATA.E   IF NOT A COMPLEX CONSTANT                           DATA         528     A     
 DATA               BX6    X1                                                              DATA         529     A     
 DATA               LX7    X2                                                              DATA         530     A     
 DATA               =X1    M.CPLX                                                          DATA         531     A     
 DATA               EQ     BIT75                                                           DATA         532     A     
 DATA                                                                                      DATA         533     A     
 DATA                                                                                      DATA         534     A     
 DATA     **        HANDLE LOGICAL CONSTANTS HERE.                                         DATA         535     A     
 DATA     *                (B7) = 0 IF .TRUE.                                              DATA         536     A     
 DATA     *                     = 1 IF .FALSE.                                             DATA         537     A     
 DATA                                                                                      DATA         538     A     
 DATA      BIT70    SX7    A4+B1       SAVE TOKEN BUFFER POINTER                           DATA         539     A     
 DATA               SX6    B7-B1       (X6) = -1 IFF TRUE,  = 0 IFF FALSE                  DATA         540     A     
 DATA               =X1    M.LOG                                                           DATA         541     A     
 DATA               SA7    SELIST                                                          DATA         542     A     
 DATA                                                                                      FC50570       15     A     
 DATA      BIT75    RJ     ASI         ADD SCALAR ITEM                                     DATA         543     A     
 DATA                                                                                      FC5A304       12     A     
 DATA      BIT80    ADDWD  T.DATI      ADD ITEM DESCRIPTOR                                 DATA         544     A     
 DATA               SA5    SELIST                                                          DATA         545     A     
 DATA               SA3    N.ITEM                                                          DATA         546     A     
 DATA               SA4    X5          RESTORE TOKEN SCAN REGISTERS                        DATA         547     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 928    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               =X6    X3+1        (N.ITEM) = (N.ITEM) + 1                             DATA         548     A     
 DATA               SB2    X4                                                              DATA         549     A     
 DATA               SA6    A3                                                              DATA         550     A     
 DATA     *         EQ     BIT85                                                           DATA         551     A     
 DATA                                                                                      DATA         552     A     
 DATA     *         PROCESS SEPERATOR AFTER CONSTANT                                       DATA         553     A     
 DATA                                                                                      DATA         554     A     
 DATA                                                                                      DATA         555     A     
 DATA      BIT85    SA1    CLOSREP                                                         DATA         556     A     
 DATA               PL     X1,BIT90          IF NO SINGLE ELEMENT REP OUTSTANDING          DATA         557     A     
 DATA               RJ     CRL                                                             DATA         558     A     
 DATA                                                                                      DATA         559     A     
 DATA      BIT90    IF.EQ  O.COMMA,BIT10     LOOP IF A COMMA                               DATA         560     A     
 DATA               ZR     B2,EXIT.    IF END OF CONSTANT LIST                             DATA         561     A     
 DATA               ERRNZ  O.EOS                                                           DATA         562     A     
 DATA               IF.EQ  O.STAR,E.DCE      IF '*'                                        FC5A304       13     A     
 DATA               IF.NE  O.RP,E.DIL3 IF NOT A RPAREN, ERR..                              DATA         563     A     
 DATA               MX7    0                                                               DATA         564     A     
 DATA               SA7    PL                CLEAR PAREN LEVEL                             DATA         565     A     
 DATA               SA1    CLOSREP                                                         DATA         566     A     
 DATA               ZR     X1,BIT95          IF NO REP LIST TO CLOSE                       DATA         567     A     
 DATA               RJ     CRL               CLOSE IT                                      DATA         568     A     
 DATA                                                                                      DATA         569     A     
 DATA      BIT95    NEXTE                    NEXT ELEMENT                                  DATA         570     A     
 DATA               EQ     BIT85                                                           DATA         571     A     
 DATA                                                                                      DATA         572     A     
 DATA      DATAFLG  BSZENT 1                                                               DATA         573     A     
 DATA               TITLE  PARSE DATA VARIABLE LIST.                                       DATA         574     A     
 DATA      PVL      SPACE  4,10                                                            DATA         575     A     
 DATA     **        PVL - PARSE DATA VARIABLE LIST.                                        DATA         576     A     
 DATA     *                                                                                DATA         577     A     
 DATA     *  1.     CALLS I/O LOOP/LIST COMPILER, *CVL*, TO ATTEMPT COLLAPSE,              DATA         578     A     
 DATA     *         AND GENERATE TURPLES FOR THIS DATA STATEMENT SEGMENT.                  DATA         579     A     
 DATA     *         EACH LIST ITEM IS PROCESSED BY *C=DVL*, BELOW, WHICH                   DATA         580     A     
 DATA     *         EMITS A *V=DVI* TURPLE.                                                DATA         581     A     
 DATA     *  2.     AFTER THE DATA SEGMENT IS SUCCESSFULLY SCANNED, WE                     DATA         582     A     
 DATA     *         CALL CONRED/SED TO SIMULATE EXECUTION OF (T.DAR).  FOR                 DATA         583     A     
 DATA     *         EACH V=DVI TURPLE SIMULATED, IT WILL CALL *EDI*, IN THE                DATA         584     A     
 DATA     *         OUTPUT SECTION CODE BELOW, TO MAKE (T.DATS) ENTRIES                    DATA         585     A     
 DATA     *         REPRESENTING THE FINAL TRANSLATION.                                    DATA         586     A     
 DATA     *                                                                                DATA         587     A     
 DATA     *         EXIT   (X5) .NZ. = ERROR IN VARIABLE LIST.                             DATA         588     A     
 DATA     *                                                                                DATA         589     A     
 DATA     *         USES   ALL.                                                            DATA         590     A     
 DATA     *         CALLS  CVL, SED.                                                       DATA         591     A     
 DATA                                                                                      DATA         592     A     
 DATA                                                                                      DATA         593     A     
 DATA      PVL      SUBR   0           ENTRY/EXIT...                                       DATA         594     A     
 DATA               SA3    DILT                                                            DATA         595     A     
 DATA               =A2    A3-DILT+DVLT                                                    DATA         596     A     
 DATA               BX6    O.EOS                                                           DATA         597     A     
 DATA               =X7    O.COMMA                                                         DATA         598     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 929    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SB4    X2          (B4)+1  ->  DATA VARIABLE LIST                      DATA         599     A     
 DATA               SA6    X3+B1       MARK END OF VARLIST WITH EXTRA EOS                  DATA         600     A     
 DATA               SA1    DATARM                                                          DATA         601     A     
 DATA               SA2    DVLOP                                                           DATA         602     A     
 DATA               SA7    B4          PRECEDE VARLIST WITH COMMA                          DATA         603     A     
 DATA               =X6    PM=DATA                                                         DATA         604     A     
 DATA               SA6    DATFLG                                                          DATA         605     A     
 DATA               CALL   CVL         COMPILE VARIABLE LIST                               DATA         606     A     
 DATA               SA2    DVLT                                                            DATA         607     A     
 DATA               MX7    -1                                                              DATA         608     A     
 DATA               BX6    0                                                               DATA         609     A     
 DATA               SA6    I.DIT       (I.DIT) = 0                                         DATA         610     A     
 DATA               SA6    DATFLG      INDICATE DATA-KLUDGE OVER                           DATA         611     A     
 DATA               ERRNZ  O.EOS                                                           DATA         612     A     
 DATA               SA6    X2          RESTORE EOS AT END OF PREV CONLIST                  DATA         613     A     
 DATA               SA7    S.POP       INDICATE NO INCOMPLETE OUTPUT BLOCK                 DATA         614     A     
 DATA               MX5    1           SET ERROR FLAG                                      DATA         615     A     
 DATA               SA1    E=TOTAL                                                         DATA         616     A     
 DATA               NZ     X1,PVL9     IF FATAL IN LIST, SKIP SED                          DATA         617     A     
 DATA                                                                                      DATA         618     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA         619     A     
 DATA               SA1    CO.SNAP                                                         DATA         620     A     
 DATA               BX2    X1                                                              DATA         621     A     
 DATA               LX1    1RO                                                             DATA         622     A     
 DATA               LX2    1R9                                                             DATA         623     A     
 DATA               BX3    X1+X2                                                           DATA         624     A     
 DATA               PL     X3,PVL6     IF NO SNAP SELECTED                                 DATA         625     A     
 DATA               CALL   SN.PAR                                                          DATA         626     A     
 DATA      PVL6     SB2    T.PAR                                                           DATA         627     A     
 DATA               SB3    T.DAR                                                           DATA         628     A     
 DATA               NE     B2,B3,"BLOWUP"    NEED CODE FOR DISTINCT (T.DAR)                DATA         629     A     
 DATA      .T       ENDIF                                                                  DATA         630     A     
 DATA                                                                                      DATA         631     A     
 DATA               CALL   SED         SIMULATE EXECUTION OF DATA                          DATA         632     A     
 DATA                                                                                      DATA         633     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA         634     A     
 DATA               SA1    CO.SNAP                                                         DATA         635     A     
 DATA               LX1    1R9                                                             DATA         636     A     
 DATA               PL     X1,PVL9     IF SNAP=9 NOT SELECTED                              DATA         637     A     
 DATA      PVL9     DUMPT  (DATS)                                                          DATA         638     A     
 DATA      .T       ENDIF                                                                  DATA         639     A     
 DATA      PVL9     BSS                                                                    DATA         640     A     
 DATA               SHRINK T=DAR,0                                                         DATA         641     A     
 DATA               EQ     EXIT.                                                           DATA         642     A     
 DATA      C=DVL    SPACE  4,20                                                            DATA         643     A     
 DATA     **        C=DVL - EMIT DATA VARIABLE TURPLES.                                    DATA         644     A     
 DATA     *                                                                                DATA         645     A     
 DATA     *         EXIT   TO IOL.RTN                                                      DATA         646     A     
 DATA     *                                                                                DATA         647     A     
 DATA     *         CALLS  DOA, EMT.                                                       DATA         648     A     
 DATA                                                                                      DATA         649     A     
 DATA                                                                                      DATA         650     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 930    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      C=DVL    BSSENT 0           ENTRY...                                            DATA         651     A     
 DATA               SB3    E.DVL1                                                          FC5A218       34     A     
 DATA               MX4    1                                                               FC5A218       35     A     
 DATA               CALL   VAI         VALIDATE ADDRESSABILITY                             FC5A218       36     A     
 DATA               CALL   DOA         DETERMINE OPERAND ADDRESSIBILITY                    DATA         652          I
          -FC5A111
 DATA               NZ     X6,E.DVL1   IF INVALID STORE TARGET                             DATA         653          I
          -FC5A111
 DATA               =A3    A2-WB.W+WA.W                                                    DATA         654          I
          -FC5A111
 DATA               MX7    WA.SYML                                                         DATA         655          I
          -FC5A111
 DATA               HX3    WA.SYM                                                          DATA         656          I
          -FC5A111
 DATA               BX6    X7*X3       SET NAME IN (FILL.) FOR POSSIBLE DIAGNOSTIC         DATA         657          I
          -FC5A111
 DATA               SA6    FILL.                                                           DATA         658          I
          -FC5A111
 DATA               PL     X1,E.DAUC   IF NOT (WB.VAR)                                     DATA         659          I
          -FC5A111
 DATA                                                                                      DATA         660          I
          -FC5A111
 DATA     *         CHECK FOR IMPROPER CLASS OF THE REFERENCED SYMBOL.                     DATA         661          I
          -FC5A111
 DATA     *         SET DEFINED AND VAR BITS IN SYMTAB ENTRY.                              DATA         662          I
          -FC5A111
 DATA                                                                                      DATA         663          I
          -FC5A111
 DATA               CLAS=  X3,WB,(FP,NVAR,LAB,PARM)                                        DATA         664          I
          -FC5A111
 DATA               BX3    X3*X2                                                           DATA         665          I
          -FC5A111
 DATA               NZ     X3,E.DAUC   IF USEAGE CONFLICT                                  DATA         666          I
          -FC5A111
 DATA               CLAS=  X7,WB,(DEF,VAR)                                                 DATA         667          I
          -FC5A111
 DATA               BX6    X7+X2       UPDATE SYMTAB (WB.)                                 DATA         668          I
          -FC5A111
 DATA               SA6    A2                                                              DATA         669          I
          -FC5A111
 DATA                                                                                      DATA         670          I
          -FC5A111
 DATA     *         CHECK FOR VARIABLE IN BLANK COMMON, OR LOCAL VARIABLE                  DATA         671          I
          -FC5A111
 DATA     *         IN BLOCKDATA PROGRAM-UNIT.                                             DATA         672          I
          -FC5A111
 DATA                                                                                      DATA         673          I
          -FC5A111
 DATA               =A1    A2-WB.W+WC.W                                                    DATA         674          I
          -FC5A111
 DATA               HX2    WB.COM                                                          DATA         675          I
          -FC5A111
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 931    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               PL     X2,DVL14     IF NOT IN COMMON                                   DATA         676          I
          -FC5A111
 DATA               MX0    -WC.RBL                                                         DATA         677          I
          -FC5A111
 DATA               LX1    -WC.RBP                                                         DATA         678          I
          -FC5A111
 DATA               SA3    BLNKCOM                                                         DATA         679          I
          -FC5A111
 DATA               BX0    -X0*X1      ISOLATE (X0) = BLOCK NUMBER                         DATA         680          I
          -FC5A111
 DATA               IX0    X0-X3                                                           DATA         681          I
          -FC5A111
 DATA               NZ     X0,DVL17     IF NOT // COMMON                                   DATA         682          I
          -FC5A111
 DATA               FATAL  E.DABC      ** CANNOT DATA INTO BLANK COMMON                    DATA         683          I
          -FC5A111
 DATA               EQ     DVL17                                                           DATA         684          I
          -FC5A111
 DATA                                                                                      DATA         685          I
          -FC5A111
 DATA      DVL14    SA3    MOD                                                             DATA         686          I
          -FC5A111
 DATA               HX3    MO.BLK                                                          DATA         687          I
          -FC5A111
 DATA               PL     X3,DVL17    IF NOT BLOCKDATA SUBPROGRAM                         DATA         688          I
          -FC5A111
 DATA               WARN   E.DABL      ** BLOCKDATA LOCAL VAR                              DATA         689          I
          -FC5A111
 DATA      DVL17    BSS                                                                    DATA         690          I
          -FC5A111
 DATA                                                                                      DATA         691     A     
 DATA     *         OPERAND IS LEGAL.  NOW DETERMINE IT'S LENGTH, AS EITHER                DATA         692     A     
 DATA     *         SINGLE ELEMENT, COLLAPSED LOOP, OR ENTIRE ARRAY.                       DATA         693     A     
 DATA                                                                                      DATA         694     A     
 DATA               LX0    X5                                                              DATA         695     A     
 DATA               BX4    X5                                                              DATA         696     A     
 DATA               SA5    CONONE                                                          DATA         697     A     
 DATA               HX0    TP.INTR                                                         DATA         698     A     
 DATA               PL     X0,DVL24    IF ITEM NOT INTERMEDIATE                            DATA         699     A     
 DATA               LX0    TP.INTRP-TP.ARRP                                                DATA         700     A     
 DATA               PL     X0,DVL30    IF ITEM NOT SUBSCRIPTED ARRAY                       DATA         701     A     
 DATA                                  (MUST BE SUBSTRING)                                 DATA         702     A     
 DATA               SA3    IODOIND                                                         DATA         703     A     
 DATA               ZR     X3,DVL30    IF I/O DO COLLAPSE NOT INVOLVED                     DATA         704     A     
 DATA               HX3    TP.BIAS                                                         DATA         705     A     
 DATA               AX3    -TP.BIASL   ISOLATE OFFSET                                      DATA         706     A     
 DATA               ZR     X3,DVL21    IF NO OFFSET TO ADD TO BIAS                         DATA         707     A     
 DATA               SA1    T.PAR                                                           DATA         708     A     
 DATA               LX2    X4                                                              DATA         709     A     
 DATA               HX2    TP.ORD                                                          DATA         710     A     
 DATA               AX2    -TP.ORDL    ISOLATE INTERMEDIATE POINTER                        DATA         711     A     
 DATA               =B2    X2+OR.1OP   THE ARRAY OPERAND                                   DATA         712     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 932    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA1    X1+B2       FETCH ARRAY-LOAD ARRAY OPERAND                      DATA         713     A     
 DATA               MX0    TP.BIASL                                                        DATA         714     A     
 DATA               LX2    X1                                                              DATA         715     A     
 DATA               HX1    TP.BIAS                                                         DATA         716     A     
 DATA               AX1    -TP.BIASL   ISOLATE (SIGN EXTEND) BIAS                          DATA         717     A     
 DATA               IX3    X1+X3       ADD IN COLLAPSE OFFSET                              DATA         718     A     
 DATA               LX3    TP.BIASP    TO BIAS FIELD                                       DATA         719     A     
 DATA               LX0    TP.BIASL+TP.BIASP                                               DATA         720     A     
 DATA               BX3    X3*X0       ISOLATE NEW BIAS                                    DATA         721     A     
 DATA               BX2    -X0*X2      CLEAR OLD BIAS                                      DATA         722     A     
 DATA               BX6    X2+X3       REPLACE WITH NEW BIAS                               DATA         723     A     
 DATA               SA6    A1          RESTORE TO T.PAR                                    DATA         724     A     
 DATA      DVL21    =A5    A3+1        FETCH PARTIAL COLLAPSE SIZE                         DATA         725     A     
 DATA               =X6    0                                                               DATA         726     A     
 DATA               SA6    A5                                                              DATA         727     A     
 DATA               =A6    A5-1        CLEAR COLLAPSE INDICATORS                           DATA         728     A     
 DATA               EQ     DVL30                                                           DATA         729     A     
 DATA                                                                                      DATA         730     A     
 DATA      DVL24    BX0    X4                                                              DATA         731     A     
 DATA               SBIT   X0,TP.AREP                                                      DATA         732     A     
 DATA               PL     X0,DVL30    IF SINGLE ELEMENT                                   DATA         733     A     
 DATA               SA2    A2                                                              DATA         734          I
          -FC5A111
 DATA               SA2    T.SYM                                                           FC5A111       16     A     
 DATA               LX0    1+TP.AREP   RESTORE X0 TO NOMINAL POSITION                      FC5A111       17     A     
 DATA               HX0    TP.ORD                                                          FC5A111       18     A     
 DATA               AX0    -TP.ORDL    EXTRACT SYMORD                                      FC5A111       19     A     
 DATA               SB3    X0+WB.W                                                         FC5A111       20     A     
 DATA               LX0    1                                                               FC5A111       21     A     
 DATA               SB3    X0+B3       CONVERT TO *WB* INDEX                               FC5A111       22     A     
 DATA               SA2    X2+B3       X2 = *WB*                                           FC5A111       23     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA         735     A     
 DATA               BX3    X2                                                              DATA         736     A     
 DATA               HX3    WB.ARY                                                          DATA         737     A     
 DATA               PL     X3,"BLOWUP" IF NOT ARRAY, PAR GOOF                              DATA         738     A     
 DATA      .T       ENDIF                                                                  DATA         739     A     
 DATA                                                                                      DATA         740     A     
 DATA               SA3    T.DIM                                                           DATA         741     A     
 DATA               LX2    -WB.PNTP                                                        DATA         742     A     
 DATA               MX0    -WB.PNTL                                                        DATA         743     A     
 DATA               BX5    -X0*X2      ISOLATE T.DIM ORD                                   DATA         744     A     
 DATA               SB3    X5                                                              DATA         745     A     
 DATA               MX0    -DH.PSL                                                         DATA         746     A     
 DATA               SA1    X3+B3       FETCH DIMENSION PARAMETERS                          DATA         747     A     
 DATA               LX1    -DH.PSP                                                         DATA         748     A     
 DATA               BX5    -X0*X1      ARRAY LENGTH                                        DATA         749     A     
 DATA               LX5    TP.BIASP                                                        DATA         750     A     
 DATA               CLAS=  X2,TP,(SHRT),INT                                                DATA         751     A     
 DATA               BX5    X5+X2       MAKE INTO SHORT CONSTANT                            DATA         752     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA         753     A     
 DATA               SBIT   X1,DH.ASP/DH.PSP-1                                              DATA         754     A     
 DATA               BX2    X1                                                              DATA         755     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 933    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SBIT   X1,DH.VDP/DH.ASP                                                DATA         756     A     
 DATA               BX2    X1+X2                                                           DATA         757     A     
 DATA               MI     X2,"BLOWUP" IF ASSUMED OR ADJUSTABLE ARRAY                      DATA         758     A     
 DATA      .T       ENDIF                                                                  DATA         759     A     
 DATA                                                                                      DATA         760     A     
 DATA     *         (X4) = (1OP) = LIST ITEM (TP. FORMAT)                                  DATA         761     A     
 DATA     *         (X5) = (2OP) = LENGTH INDICATOR (TP. FORMAT)                           DATA         762     A     
 DATA                                                                                      DATA         763     A     
 DATA      DVL30    SX1    V=DVI       SKEL = DATA VARIABLE INITIALIZATION                 DATA         764     A     
 DATA               MX0    -TP.MODEL                                                       DATA         765     A     
 DATA               LX4    -TP.MODEP                                                       DATA         766     A     
 DATA               LX1    TH.SKELP                                                        DATA         767          I
          -FC50104
 DATA               LX1    SP.SKELP                                                        FC50104       62     A     
 DATA               BX0    -X0*X4      EXTRACT MODE OF 1OP                                 DATA         768     A     
 DATA               LX0    TH.MODEP                                                        DATA         769          I
          -FC50104
 DATA               LX0    SP.MODEP                                                        FC50104       63     A     
 DATA               BX6    X1+X0       MERGE MODE INTO TURPLE HEADER                       DATA         770     A     
 DATA               SA6    DVLA                                                            DATA         771     A     
 DATA               LX4    TP.MODEP                                                        DATA         772     A     
 DATA               EMIT   DVLA,*                                                          DATA         773     A     
 DATA               EQ     IOL.RTN     EXIT..      (THRU POPPER)                           DATA         774     A     
 DATA                                                                                      DATA         775     A     
 DATA      DVLA     BSS    1           SAVE OPERAND                                        DATA         776     A     
 DATA               TITLE  OUTPUT ROUTINES                                                 DATA         777     A     
 DATA      EDI      SPACE  4,10                                                            DATA         778     A     
 DATA     **        EDI - EMIT DATA INITIALIZATIONS.                                       DATA         779     A     
 DATA     *                                                                                DATA         780     A     
 DATA     *         WHEN CONRED/SED IS SIMULATING THE I.L. DATA TRANSLATIONS,              DATA         781     A     
 DATA     *         A *V=DVI* TURPLE BECOMES A CALL TO THIS ROUTINE.                       DATA         782     A     
 DATA     *                                                                                DATA         783     A     
 DATA     *         ENTRY  (X6) = NUMBER OF ELEMENTS TO ISSUE.                             DATA         784     A     
 DATA     *                (X1) = ADDRESS OF FIRST ELEMENT, (WC.) FORMAT.                  DATA         785     A     
 DATA     *                (B6) = SYMORD OF ORIGINAL VARIABLE.                             DATA         786     A     
 DATA     *                (B7) = SYMORD OF EQUIV-CLASS BASE.                              DATA         787     A     
 DATA     *                                                                                DATA         788     A     
 DATA     *         CALLS  SDV, NIC.                                                       DATA         789     A     
 DATA     *         USES   ALL.                                                            DATA         790     A     
 DATA                                                                                      DATA         791     A     
 DATA                                                                                      DATA         792     A     
 DATA      EDI      SUBR   =           ENTRY/EXIT...                                       DATA         793     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA         794     A     
 DATA               SA3    CO.SNAP                                                         DATA         795     A     
 DATA               LX3    1R9                                                             DATA         796     A     
 DATA               PL     X3,EDI1     IF (SNAP=9) NOT SELECTED                            DATA         797     A     
 DATA      EDI      REG    (X1,X6,B6,B7)                                                   DATA         798     A     
 DATA      EDI1     BSS                                                                    DATA         799     A     
 DATA      .T       ENDIF                                                                  DATA         800     A     
 DATA                                                                                      DATA         801     A     
 DATA               MX7    0           SET INTERNAL DATA BIAS = ZERO                       DATA         802     A     
 DATA               BX4    X1                                                              DATA         803     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 934    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA7    BIAS                                                            DATA         804     A     
 DATA               SA6    NICT        SAVE TRIP COUNT                                     DATA         805     A     
 DATA               CALL   SDV         SETUP DATA VARIABLE                                 DATA         806     A     
 DATA               SA1    NICT                                                            DATA         807          I
          -FC5A266
 DATA               SX6    B1          INDEX DIFFERENCE = 1, FOR NOW                       DATA         808     A     
 DATA               SA5    BIAS                                                            DATA         809     A     
 DATA               BX7    X1                                                              DATA         810          I
          -FC5A266
 DATA               CALL   NIC         EMIT LINEAR PROGRESSION                             DATA         811     A     
 DATA               EQ     EXIT.                                                           DATA         812     A     
 DATA      NIC      SPACE  4,20                                                            DATA         813     A     
 DATA      NIC      SPACE  0,0                                                             DATA         814     A     
 DATA     **        NIC - OUTPUT LINEAR INDEX PATTERN.                                     DATA         815     A     
 DATA     *                                                                                DATA         816     A     
 DATA     *         INITIALIZE AN ARITHMETIC PROGRESSION OF INDICIES.                      DATA         817     A     
 DATA     *         THAT IS, THIS SUBROUTINE OUTPUTS DATA INITIALIZATION FOR --            DATA         818     A     
 DATA     *                ( ARY (M*I +BIAS), I = 1,TC )   /"DATA ITEM LIST"/              DATA         819     A     
 DATA     *                                                                                DATA         820     A     
 DATA     *         THE INDEX DIFFERENCE BETWEEN SUCCESSIVE ELEMENTS IS --                 DATA         821     A     
 DATA     *                DA = ARY(M*(I+1)) - ARY(M*I)                                    DATA         822     A     
 DATA     *                   = M * SPAN(J)                                                DATA         823     A     
 DATA     *                                                                                DATA         824     A     
 DATA     *         ENTRY  (X5) = BIAS - ANY ADDITIONAL BIAS.                              DATA         825     A     
 DATA     *                (X6) = DA - THE INDEX DIFFERENCE.                               DATA         826     A     
 DATA     *                (X7) = TC - TRIP COUNT, THAT IS, THE NUMBER OF ELEMENTS         DATA         827          I
          -FC5A266
 DATA     *                            TO BE INITIALIZED.                                  DATA         828          I
          -FC5A266
 DATA     *                                                                                DATA         829     A     
 DATA     *         EXIT   (N.ITEM) = DECREMENTED TO ACCOUNT FOR ITEMS CONSUMED.           DATA         830     A     
 DATA     *                            NOTE THAT EXACTLY (TC) ITEMS WILL BE USED,          DATA         831     A     
 DATA     *                            UNLESS ENTIRE CONSTANT LIST IS PREMATURELY          DATA         832     A     
 DATA     *                            EXHAUSTED.                                          DATA         833     A     
 DATA     *                                                                                DATA         834     A     
 DATA     *         CALLS  GNI, OVI, OSH, ORH, UPH.                                        DATA         835     A     
 DATA                                                                                      DATA         836     A     
 DATA                                                                                      DATA         837     A     
 DATA      NIC      SUBR               ENTRY/EXIT...                                       DATA         838     A     
 DATA               SA3    N.ITEM                                                          DATA         839     A     
 DATA               SX3    X3-1                                                            DATA         840          I
          -FC5A266
 DATA               MI     X3,EXIT.    IF NO CONS LEFT                                     DATA         841          I
          -FC5A266
 DATA               SA6    DA                                                              DATA         842          I
          -FC5A266
 DATA               SA7    NICT        REMEMBER PARAMETERS                                 DATA         843          I
          -FC5A266
 DATA               BX6    X5                                                              DATA         844          I
          -FC5A266
 DATA               SX7    X3-1                                                            FC5A266        6     A     
 DATA               SA6    DA                                                              FC5A266        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 935    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               PL     X7,NIC10    IF CONSTANTS REMAINING                              FC5A266        8     A     
 DATA               SA7    A3+         FLAG CONSTANT/VARIABLE COUNT MISMATCH               FC5A266        9     A     
 DATA               EQ     EXIT.                                                           FC5A266       10     A     
 DATA                                                                                      FC5A266       11     A     
 DATA      NIC10    BX6    X5                                                              FC5A266       12     A     
 DATA               SA6    NICB        (NICB) = BIAS                                       DATA         845     A     
 DATA                                                                                      DATA         846     A     
 DATA      NIC20    SA3    REPFLAG                                                         DATA         847     A     
 DATA               SA5    I.DIT                                                           DATA         848     A     
 DATA               ZR     X3,NIC24    IF NOT IN THE MIDDLE OF A REP                       DATA         849     A     
 DATA                                                                                      DATA         850     A     
 DATA     *         IN THE MIDDLE OF A REP , ADJUST REP COUNT DECREMENT ( DEC )            DATA         851     A     
 DATA     *                DEC = 0,  IFF AT START OF REPEATED CON LIST,                    DATA         852     A     
 DATA     *                DEC = -1, IF NOT AT START.                                      DATA         853     A     
 DATA                                                                                      DATA         854     A     
 DATA               BX2    X3                                                              DATA         855     A     
 DATA               LX2    -DI.RLP                                                         DATA         856     A     
 DATA               SB4    X2          (B4) = RL         /* (N.ITEMS) IN REP LIST          DATA         857     A     
 DATA               ERRNZ  18-DI.RLL                                                       DATA         858     A     
 DATA               MX7    0           DEC = 0                                             DATA         859     A     
 DATA               EQ     B4,B1,NIC26 IF RL = 1                                           DATA         860     A     
 DATA               SA4    I.DIT+2     T.DATI ORDINAL OF FIRST ITEM IN REP LIST            DATA         861     A     
 DATA               IX5    X4-X5                                                           DATA         862     A     
 DATA               =X0    -1                                                              DATA         863     A     
 DATA               AX5    59                                                              DATA         864     A     
 DATA               BX7    X0*X5       DEC = -1 IF NOT AT THE START OF REP                 DATA         865     A     
 DATA               EQ     NIC26                                                           DATA         866     A     
 DATA                                                                                      DATA         867     A     
 DATA      NIC24    SA2    T.DATI                                                          DATA         868     A     
 DATA               SB7    X5          (B7) = NEXT ITEM TABLE INDEX                        DATA         869     A     
 DATA               SA3    B7+X2       FETCH (X3) = DATA ITEM DESCRIPTOR                   DATA         870     A     
 DATA               HX3    DI.REP                                                          DATA         871     A     
 DATA               PL     X3,NIC60    IF NOT THE START OF A NEW REP LIST                  DATA         872     A     
 DATA               BX7    0           DEC = 0                                             DATA         873     A     
 DATA               LX3    1+DI.REPP                                                       DATA         874     A     
 DATA                                                                                      DATA         875     A     
 DATA     *         REP LIST ENCOUNTERED - SEE IF WE CAN OUTPUT "REPI" MACROS.             DATA         876     A     
 DATA     *         ENTRY  (A3, X3) = REP LIST INFO.  UPDATE BEFORE DESTROYING IT.         DATA         877     A     
 DATA     *                (X7) = DEC                                                      DATA         878     A     
 DATA     *         COMPUTE NUMBER OF TIMES WE CAN REP THE DATA --                         DATA         879     A     
 DATA     *                N = MIN (RC+DEC, TC/RL)                                         DATA         880     A     
 DATA                                                                                      DATA         881     A     
 DATA      NIC26    SA5    NICT        (X5) = TC                                           DATA         882     A     
 DATA               LX3    -DI.RCP                                                         DATA         883     A     
 DATA               SX0    X3          (X0) = RC                                           DATA         884          I
          -FC5A132
 DATA               ERRNZ  18-DI.RCL                                                       DATA         885          I
          -FC5A132
 DATA               MX0    -DI.RCL                                                         FC5A132       59     A     
 DATA               BX0    -X0*X3      (X0) = RC                                           FC5A132       60     A     
 DATA               LX3    DI.RCP-DI.RLP                                                   DATA         886     A     
 DATA               SX2    X3          (X2) = RL                                           DATA         887     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 936    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               ERRNZ  18-DI.RLL                                                       DATA         888     A     
 DATA               SX6    X2          SAVE (RL) = (DI.RL)                                 DATA         889     A     
 DATA               SB2    X2          (B2) = RL                                           DATA         890     A     
 DATA               SA6    RL                                                              DATA         891     A     
 DATA               IX0    X0+X7       RC + DEC                                            DATA         892     A     
 DATA               IX5    X5/X6       TC / RL                                             DATA         893     A     
 DATA               LX3    DI.RLP                                                          DATA         894     A     
 DATA               MX6    X5-X0       N = MIN OF THE TWO                                  DATA         895     A     
 DATA               SB6    X6                                                              DATA         896     A     
 DATA               LE     B6,B1,NIC60  IF WE CAN'T REP IT AT LEAST TWICE                  DATA         897     A     
 DATA                                                                                      DATA         898     A     
 DATA     *         LIST CAN BE REPPED (N) TIMES.  SINCE GNI WILL BE CALLED ONLY           DATA         899     A     
 DATA     *         ONCE TO OUTPUT THE DATA ITEMS (N) TIMES, THE REPEAT COUNT (RC)         DATA         900     A     
 DATA     *         MUST BE DECREMENTED BY (N-1).                                          DATA         901     A     
 DATA     *                (A3,X3) = ITEM TABLE ENTRY.                                     DATA         902     A     
 DATA     *                (X6) = N                                                        DATA         903     A     
 DATA     *                (B2) = RL                                                       DATA         904     A     
 DATA                                                                                      DATA         905     A     
 DATA               SA6    NICN        SAVE (NICN) = N                                     DATA         906     A     
 DATA               SX5    X6-1                                                            DATA         907     A     
 DATA               SA1    DA                                                              DATA         908     A     
 DATA               LX5    DI.RCP      (DI.RC) = (DI.RC) - (N-1)                           DATA         909     A     
 DATA               IX6    X3-X5                                                           DATA         910     A     
 DATA               SX7    B2          DLEN = RL                                           DATA         911     A     
 DATA               SA6    A3                                                              DATA         912     A     
 DATA               MX2    -1                                                              DATA         913     A     
 DATA               IX5    X7-X1       INITIAL BIAS = RL - DA                              DATA         914     A     
 DATA               IX6    X1*X7       MP = DA * RL                                        DATA         915     A     
 DATA               IX2    X1+X2       DA - 1                                              DATA         916     A     
 DATA               SA6    MP                                                              DATA         917     A     
 DATA               EQ     B2,B1,NIC30 IF RL .EQ. 1 -- TRIVIAL CONTIGUITY                  DATA         918     A     
 DATA               NZ     X2,NIC40    IF DA .NE. 1 -- NON-CONTIGUOUS BLOCK                DATA         919     A     
 DATA                                                                                      DATA         920     A     
 DATA                                                                                      DATA         921     A     
 DATA     **        CASE 1.  CONTIGUOUS BLOCK.                                             DATA         922     A     
 DATA     *                (DA = 1) OR (RL = 1)                                            DATA         923     A     
 DATA     *         ISSUE A SINGLE REP HEADER, AND EACH ITEM, ONCE.                        DATA         924     A     
 DATA     ***       FOR NOW, PROCESS CHARACTER ITEMS, RL .NE. 1 USING***                   DATA         925     A     
 DATA     ***       CASE 2.                                          ***                   DATA         926     A     
 DATA                                                                                      DATA         927     A     
 DATA      NIC30    SA1    DVI+WB.W                                                        DATA         928     A     
 DATA               MX0    -WB.MODEL                                                       DATA         929     A     
 DATA               LX1    -WB.MODEP                                                       DATA         930     A     
 DATA               BX1    -X0*X1      MODEI = MODE[DVI+ WB.W]                             DATA         931     A     
 DATA               SB7    X1-M.CHAR                                                       DATA         932     A     
 DATA               NZ     B7,NIC32    IF NOT MODE CHARACTER                               DATA         933     A     
 DATA               NE     B2,B1,NIC40 IF RL .NE. 1                                        DATA         934     A     
 DATA      NIC32    SA1    NICN        N = (NICN)  */REP COUNT                             DATA         935     A     
 DATA               SA2    MP          I = (MP)          /* INCREMENT                      DATA         936     A     
 DATA               BX6    X7          B = (DLEN)        /* BLOCK LENGTH                   DATA         937     A     
 DATA               SA3    NICB        FB = (NICB)       /* FWA BIAS                       DATA         938     A     
 DATA               RJ     ORH         OUTPUT REPI HEADER                                  DATA         939     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 937    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA         940     A     
 DATA               SA1    RL                                                              DATA         941     A     
 DATA               BX6    -X1         SET LOOP COUNTER FOR (RL) ITEMS                     DATA         942     A     
 DATA      NIC34    SA6    LI                                                              DATA         943     A     
 DATA               RJ     GNI         GET NEXT ITEM                                       DATA         944     A     
 DATA               RJ     OVI         OUTPUT VALUE OF ITEM                                DATA         945     A     
 DATA               SA1    LI                                                              DATA         946     A     
 DATA               SX6    X1+B1       DECREMENT LOOP INDEX                                DATA         947     A     
 DATA               NZ     X6,NIC34    IF LI .LT. 0, LOOP                                  DATA         948     A     
 DATA               RJ     UPH         UPDATE PREVIOUS HEADER                              DATA         949     A     
 DATA               EQ     NIC50                                                           DATA         950     A     
 DATA                                                                                      DATA         951     A     
 DATA                                                                                      DATA         952     A     
 DATA     **        CASE 2.  NON-CONTIGUOUS PATTERN.                                       DATA         953     A     
 DATA     *                (RL .GT. 1)  OR  (DA .NE. 1)                                    DATA         954     A     
 DATA     *         ISSUE (RL) REPS, ONE FOR EACH DATA ITEM.  THE FWA BIAS OF              DATA         955     A     
 DATA     *         THE (J)TH REP TABLE IS:  JB = BIAS0 + J * DA.                          DATA         956     A     
 DATA     *                                                                                DATA         957     A     
 DATA     *         ENTRY  (B2) = RL.                                                      DATA         958     A     
 DATA     *                (NICB) = BIAS0.                                                 DATA         959     A     
 DATA                                                                                      DATA         960     A     
 DATA      NIC40    SA3    NICB                                                            DATA         961     A     
 DATA               SX7    -B2         SET TO LOOP (RL) TIMES                              DATA         962     A     
 DATA               BX6    X3          JB = BIAS0        /* ITEM BIAS                      DATA         963     A     
 DATA               SA7    LI                                                              DATA         964     A     
 DATA               SA6    A7+B1                                                           DATA         965     A     
 DATA                                                                                      DATA         966     A     
 DATA      NIC44    SA1    NICN        N = (NICN)  */REP COUNT                             DATA         967     A     
 DATA               SA2    MP          I = (MP)          /* INCREMENT                      DATA         968     A     
 DATA               SX6    B1          B = 1             /* BLOCK LENGTH                   DATA         969     A     
 DATA     *         X3                 FB = JB           /* FWA BIAS                       DATA         970     A     
 DATA               RJ     ORH         OUTPUT REPI HEADER                                  DATA         971     A     
 DATA               RJ     GNI         GET NEXT ITEM                                       DATA         972     A     
 DATA               RJ     OVI         OUTPUT VALUE OF ITEM                                DATA         973     A     
 DATA               RJ     UPH         UPDATE PREVIOUS HEADER                              DATA         974     A     
 DATA               SA1    LI                                                              DATA         975     A     
 DATA               SA2    DA                                                              DATA         976     A     
 DATA               SA3    A1+B1                                                           DATA         977     A     
 DATA               IX6    X2+X3       JB = JB + DA       /* ADVANCE BIAS                  DATA         978     A     
 DATA               SA6    A3                                                              DATA         979     A     
 DATA               BX3    X6                                                              DATA         980     A     
 DATA               SX7    X1+B1       DECREMENT LOOP INDEX                                DATA         981     A     
 DATA               SA7    A1                                                              DATA         982     A     
 DATA               MI     X7,NIC44    IF LOOP NOT SATISFIED                               DATA         983     A     
 DATA                                                                                      DATA         984     A     
 DATA                                                                                      DATA         985     A     
 DATA     **        END OF REP OUTPUT - UPDATE COUNTERS (N.ITEM, TC, AND BIAS), TO         DATA         986     A     
 DATA     *         PROPERLY ACCOUNT FOR WHAT HAS BEEN ISSUED.                             DATA         987     A     
 DATA                                                                                      DATA         988     A     
 DATA      NIC50    SA1    NICN        N                                                   DATA         989     A     
 DATA               SA2    RL                                                              DATA         990     A     
 DATA               SA3    NICB        BIAS                                                DATA         991     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 938    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA4    N.ITEM                                                          DATA         992     A     
 DATA               IX0    X1*X2       NEP = N * RL   /* NUMBER OF ELEMENTS ISSUED         DATA         993     A     
 DATA               SA2    DA                                                              DATA         994     A     
 DATA               SA5    NICT        TC                                                  DATA         995     A     
 DATA               IX1    X0*X2                                                           DATA         996     A     
 DATA               IX7    X3+X1       BIAS = BIAS + DA * NEP                              DATA         997     A     
 DATA               SA7    A3                                                              DATA         998     A     
 DATA               IX6    X4-X0       (N.ITEM) = (N.ITEM) - NEP                           DATA         999     A     
 DATA               SA6    A4                                                              DATA        1000     A     
 DATA               IX7    X5-X0       TC = TC - NEP                                       DATA        1001     A     
 DATA               SA7    A5                                                              DATA        1002     A     
 DATA               ZR     X6,NIC56    IF ITEM LIST IS EXHAUSTED                           DATA        1003     A     
 DATA               NZ     X7,NIC20    IF TRIP COUNT NOT EXHAUSTED                         DATA        1004     A     
 DATA                                                                                      DATA        1005     A     
 DATA      NIC56    IX6    X6-X7       (N.ITEM) -= T                                       DATA        1006     A     
 DATA               SA6    A6          FORCE AN INFORMATIVE ERROR IF T .NZ.                DATA        1007     A     
 DATA               RJ     UPH         UPDATE PREVIOUS HEADER                              DATA        1008     A     
 DATA               EQ     EXIT.                                                           DATA        1009     A     
 DATA                                                                                      DATA        1010     A     
 DATA                                                                                      DATA        1011     A     
 DATA     **        CASE 3.  NO EXPLOITABLE PATTERN.                                       DATA        1012     A     
 DATA     *                (RL .GT. 1) AND (DA .NE. 1),                                    DATA        1013     A     
 DATA     *                OR (RC .LE. 1)                                                  DATA        1014     A     
 DATA     *         NOT AT THE START OF A REP OR CANNOT REP WITH THIS ITEM LIST.           DATA        1015     A     
 DATA     *         ISSUE ITEMS UNTIL THE START OF THE NEXT REP, OR UNTIL THIS             DATA        1016     A     
 DATA     *         REQUEST IS SATISFIED (TC=0), OR NO ITEMS ARE LEFT (N.ITEM=0).          DATA        1017     A     
 DATA     *         IF (DA .EQ. 1) THEN AN ORG IS ONLY NEEDED THE FIRST TIME.              DATA        1018     A     
 DATA                                                                                      DATA        1019     A     
 DATA      NIC60    SA1    DA                                                              DATA        1020     A     
 DATA               MX2    -1                                                              DATA        1021     A     
 DATA               IX6    X1+X2       (ORGN) = 0  ->  DA .EQ. 1                           DATA        1022     A     
 DATA               SA6    ORGN                                                            DATA        1023     A     
 DATA     ** FV            FOLLOWING KLUDGE FOR CHARACTER FORCES ORG ALWAYS.               DATA        1024     A     
 DATA      .FIX     EQU    --  REMOVE KLUDGE WHEN OVI USES MOVEB.                          DATA        1025     A     
 DATA      .KLUDGE  IFEQ   ON,ON       **** REMOVE WHEN OVI FIXED                          DATA        1026     A     
 DATA               MX0    -WB.MODEL                                                       DATA        1027     A     
 DATA               SA1    DVI+WB.W                                                        DATA        1028     A     
 DATA               LX1    -WB.MODEP                                                       DATA        1029     A     
 DATA               BX3    -X0*X1                                                          DATA        1030     A     
 DATA               SB7    X3-M.CHAR                                                       DATA        1031     A     
 DATA               NZ     B7,NIC63    IF NOT TYPE CHARACTER                               DATA        1032     A     
 DATA               MX6    -1                                                              DATA        1033     A     
 DATA               SA6    A6          FORCE ALL ORGS                                      DATA        1034     A     
 DATA      .KLUDGE  ELSE   1           ...END KLUDGE                                       DATA        1035     A     
 DATA               EQ     NIC63       FORCE INITIAL ORG                                   DATA        1036     A     
 DATA                                                                                      DATA        1037     A     
 DATA      NIC62    SA2    ORGN                                                            DATA        1038     A     
 DATA               ZR     X2,NIC64    IF NO ORG NEEDED                                    DATA        1039     A     
 DATA      NIC63    SA3    NICB                                                            DATA        1040     A     
 DATA               RJ     OSH         OUTPUT SCALAR HEADER                                DATA        1041     A     
 DATA      NIC64    RJ     GNI         GET NEXT DATA ITEM                                  DATA        1042     A     
 DATA               RJ     OVI         OUTPUT VALUE OF ITEM                                DATA        1043     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 939    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA3    NICB        BIAS                                                DATA        1044     A     
 DATA               SA4    DA                                                              DATA        1045     A     
 DATA               IX7    X4+X3       BIAS = BIAS + DA        /* ADVANCE BIAS             DATA        1046     A     
 DATA               MX0    -1                                                              DATA        1047     A     
 DATA               SA7    A3                                                              DATA        1048     A     
 DATA               SA4    N.ITEM                                                          DATA        1049     A     
 DATA               SA5    NICT        TC                                                  DATA        1050     A     
 DATA               IX6    X4+X0       (N.ITEM) -= 1     /* DECREMENT CONS LEFT            DATA        1051     A     
 DATA               SA6    A4                                                              DATA        1052     A     
 DATA               IX7    X5+X0        TC = TC - 1      /* DECREMENT VARS LEFT            DATA        1053     A     
 DATA               SA7    A5                                                              DATA        1054     A     
 DATA               ZR     X6,NIC56    IF NO MORE DATA ITEMS LEFT -- QUIT                  DATA        1055     A     
 DATA               ZR     X7,NIC68    IF FINISHED WITH THE VARS                           DATA        1056     A     
 DATA               SA2    T.DATI                                                          DATA        1057     A     
 DATA               SA1    I.DIT                                                           DATA        1058     A     
 DATA               IX1    X1+X2                                                           DATA        1059     A     
 DATA               SA3    X1          FETCH (X3) = NEXT DATA ITEM DESCRIPTOR              DATA        1060     A     
 DATA               HX3    DI.REP                                                          DATA        1061     A     
 DATA               PL     X3,NIC62    IF NOT THE START OF A REP -- LOOP                   DATA        1062     A     
 DATA                                                                                      DATA        1063     A     
 DATA               RJ     UPH         UPDATE PREVIOUS HEADER                              DATA        1064     A     
 DATA               SA5    I.DIT                                                           DATA        1065     A     
 DATA               EQ     NIC24                                                           DATA        1066     A     
 DATA                                                                                      DATA        1067     A     
 DATA      NIC68    RJ     UPH         UPDATE PREVIOUS HEADER                              DATA        1068     A     
 DATA               EQ     EXIT.                                                           DATA        1069     A     
 DATA                                                                                      DATA        1070     A     
 DATA      NICB     BSS    1           BIAS  LOCAL COPY OF BIAS                            DATA        1071     A     
 DATA      NICN     BSS    1           N     TIMES REP LIST CAN BE TRAVERSED               DATA        1072     A     
 DATA      NICT     BSS    1           TC    TRIP COUNT                                    DATA        1073     A     
 DATA      OSH      SPACE  4,20                                                            DATA        1074     A     
 DATA     **        OSH - OUTPUT SCALAR HEADER.                                            DATA        1075     A     
 DATA     *                                                                                DATA        1076     A     
 DATA     *         SET UP OUTPUT CONTROL WORDS (S. CELLS) FOR THE BEGINNING OF A          DATA        1077     A     
 DATA     *         DATA SUB-TABLE.  IF THE LAST SUB-TABLE IS STILL OPEN, IT MUST          DATA        1078     A     
 DATA     *         BE TERMINATED FIRST.                                                   DATA        1079     A     
 DATA     *                                                                                DATA        1080     A     
 DATA     *         NOTE THAT ALL HIGHER LEVEL BIAS AND LENGTH CALCULATIONS HAVE           DATA        1081     A     
 DATA     *         BEEN PERFORMED IN TERMS OF NUMBER OF ELEMENTS.  AT THIS POINT          DATA        1082     A     
 DATA     *         (ALSO ORH) THEY ARE TRANSFORMED INTO NUMBER OF STORAGE UNITS.          DATA        1083     A     
 DATA     *                                                                                DATA        1084     A     
 DATA     *         ENTRY  (X3) = FB = FWA BIAS (IN ELEMENTS).                             DATA        1085     A     
 DATA     *                (DVI+V1.W) = SYMORD OF FWA.                                     DATA        1086     A     
 DATA     *                                                                                DATA        1087     A     
 DATA     *         EXIT   (A6, X6) = SKELETAL (DA.) HEADER.                               DATA        1088     A     
 DATA     *                                                                                DATA        1089     A     
 DATA     *         CALLS  ADDWD, UPH.                                                     DATA        1090     A     
 DATA                                                                                      DATA        1091     A     
 DATA                                                                                      DATA        1092     A     
 DATA      OSH      SUBR               ENTRY/EXIT...                                       DATA        1093     A     
 DATA               SA2    S.POP                                                           DATA        1094     A     
 DATA               MI     X2,OSH20    IF NO UNTERMINATED BLOCK                            DATA        1095     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 940    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               BX6    X3                                                              DATA        1096     A     
 DATA               SA6    OSHA                                                            DATA        1097     A     
 DATA               RJ     UPH         UPDATE PREVIOUS HEADER                              DATA        1098     A     
 DATA               SA3    OSHA        RESTORE (X3) = FB                                   DATA        1099     A     
 DATA                                                                                      DATA        1100     A     
 DATA      OSH20    SA4    DVI+V1.W    V1I = (DVI+V1.W)                                    DATA        1101     A     
 DATA               SA2    A4-V1.W+WB.W      V2I = (DVI+WB.W)                              DATA        1102     A     
 DATA               BX7    0                                                               DATA        1103     A     
 DATA               MX0    -WB.MODEL                                                       DATA        1104     A     
 DATA               MX6    -V1.BASEL                                                       DATA        1105     A     
 DATA               LX4    -V1.BASEP                                                       DATA        1106     A     
 DATA               SA7    S.LEN       (S.LEN) = 0                                         DATA        1107     A     
 DATA               LX2    -WB.MODEP                                                       DATA        1108     A     
 DATA               BX6    -X6*X4      BASEI = BASE[V1I]                                   DATA        1109     A     
 DATA               =A7    A7-S.LEN+S.NCH    (S.NCH) = 0                                   DATA        1110     A     
 DATA               BX0    -X0*X2      MODEI = MODE[V2I]                                   DATA        1111     A     
 DATA               =A7    A7-S.NCH+S.PAD    (S.PAD) = 0                                   DATA        1112     A     
 DATA               LX6    DA.ORDP     (X6) = SKELETAL (DA.) HEADER                        DATA        1113     A     
 DATA                                                                                      DATA        1114     A     
 DATA     *         CONVERT BIAS FROM ELEMENTS TO STORAGE UNITS.                           DATA        1115     A     
 DATA                                                                                      DATA        1116     A     
 DATA               SA1    A2-WB.W+V3.W      V3I = (DVI+2)                                 DATA        1117     A     
 DATA               SB7    X0-M.CHAR                                                       DATA        1118     A     
 DATA               ZR     B7,OSH40    IF TYPE CHARACTER                                   DATA        1119     A     
 DATA               LX4    V1.BASEP-1-V1.SDPFP                                             DATA        1120     A     
 DATA               AX4    -0                                                              DATA        1121     A     
 DATA               BX2    X4*X3       (X2) = FB * SDPF                                    DATA        1122     A     
 DATA               IX3    X3+X2       FEA = FB * 2**SDPF                                  DATA        1123     A     
 DATA               EQ     OSH80                                                           DATA        1124     A     
 DATA                                                                                      DATA        1125     A     
 DATA      OSH40    CLAS=  X7,(DA),CH                                                      DATA        1126     A     
 DATA               MX0    -V3.ELSL                                                        DATA        1127     A     
 DATA               LX1    -V3.ELSP                                                        DATA        1128     A     
 DATA               IX6    X6+X7       INDICATE CHARACTER SUB-TABLE                        DATA        1129     A     
 DATA               BX2    -X0*X1      ELSI = ELS[V3I]                                     DATA        1130     A     
 DATA               IX3    X2*X3       FEA = FB * ELSI                                     DATA        1131     A     
 DATA               LX1    V3.ELSP                                                         DATA        1132     A     
 DATA                                                                                      DATA        1133     A     
 DATA      OSH80    MX0    -V3.ABUL                                                        DATA        1134     A     
 DATA               SA6    S.DHW+DA.W                                                      DATA        1135     A     
 DATA               LX1    -V3.ABUP                                                        DATA        1136     A     
 DATA               BX2    -X0*X1      ABUI = ABU[V3I]                                     DATA        1137     A     
 DATA               IX7    X3+X2       (S.FEA) = FEA + ABUI                                DATA        1138     A     
 DATA               SA7    S.FEA                                                           DATA        1139     A     
 DATA               ADDWD  T.DATS                                                          DATA        1140     A     
 DATA               SX7    X2-1        (S.POP) = INDEX OF (DA.) HEADER                     DATA        1141     A     
 DATA               SA7    S.POP                                                           DATA        1142     A     
 DATA               EQ     EXIT.                                                           DATA        1143     A     
 DATA      ORH      SPACE  4,20                                                            DATA        1144     A     
 DATA     **        ORH - OUTPUT REPLICATION HEADER.                                       DATA        1145     A     
 DATA     *                                                                                DATA        1146     A     
 DATA     *         CALLS OSH TO DO SCALAR INITIALIZATION, AND TRANSFORM (FB).             DATA        1147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 941    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *         THEN UPGRADES THE CONTROL BLOCK FOR REPLICATION.  THE                  DATA        1148     A     
 DATA     *         INCREMENT MUST ALSO BE CONVERTED INTO STORAGE UNITS.                   DATA        1149     A     
 DATA     *                                                                                DATA        1150     A     
 DATA     *         ENTRY  (X6) = B - BLOCK LENGTH, NUMBER OF VARIABLE ELEMENTS TO         DATA        1151     A     
 DATA     *                           BE REPEATED.                                         DATA        1152     A     
 DATA     *                (X1) = N - REP COUNT, NUMBER OF TIMES THE DATA IS TO            DATA        1153     A     
 DATA     *                           BE STORED, COUNTING THE ORIGINAL.                    DATA        1154     A     
 DATA     *                (X2) = I - INCREMENT BETWEEN COPIES, IN ELEMENTS.               DATA        1155     A     
 DATA     *                (X3) = FB - FWA BIAS, IN ELEMENTS.                              DATA        1156     A     
 DATA     *                                                                                DATA        1157     A     
 DATA     *         CALLS  ALLOC, OSH.                                                     DATA        1158     A     
 DATA                                                                                      DATA        1159     A     
 DATA                                                                                      DATA        1160     A     
 DATA      ORH      SUBR               ENTRY/EXIT...                                       DATA        1161     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA        1162     A     
 DATA               SA4    S.POP                                                           DATA        1163     A     
 DATA               PL     X4,"BLOWUP"  IF INCOMPLETE BLOCK                                DATA        1164     A     
 DATA               SA6    S.BLEN      (S.BLEN) = B                                        DATA        1165     A     
 DATA      .T       ENDIF                                                                  DATA        1166     A     
 DATA               SA4    DVI+V3.W                                                        DATA        1167     A     
 DATA               MX0    -V3.ELSL                                                        DATA        1168     A     
 DATA               SX7    B1                                                              DATA        1169     A     
 DATA               LX4    -V3.ELSP                                                        DATA        1170     A     
 DATA               BX0    -X0*X4      ELS = ELEMENT SIZE, IN STORAGE UNITS                DATA        1171     A     
 DATA               IX1    X1-X7       (DB.CNT) = N - 1                                    DATA        1172     A     
 DATA               IX2    X0*X2       (DB.INC) = I * ELS                                  DATA        1173     A     
 DATA               LX1    DB.CNTP                                                         DATA        1174     A     
 DATA               LX2    DB.INCP                                                         DATA        1175     A     
 DATA               BX7    X1+X2                                                           DATA        1176     A     
 DATA               SA7    S.DHW+DB.W                                                      DATA        1177     A     
 DATA               RJ     OSH         OUTPUT SCALAR HEADER (FB)                           DATA        1178     A     
 DATA                                                                                      DATA        1179     A     
 DATA               CLAS=  X0,DA,(RP)                                                      DATA        1180     A     
 DATA               SA1    S.DHW+DB.W                                                      DATA        1181     A     
 DATA               BX6    X0+X6       INDICATE REPLICATED BLOCK                           DATA        1182     A     
 DATA               MX7    -1                                                              DATA        1183     A     
 DATA               =A6    A1-DB.W+DA.W                                                    DATA        1184     A     
 DATA               BX6    X1                                                              DATA        1185     A     
 DATA               SA7    S.PAD       INDICATE INNER REP NOT POSSIBLE                     DATA        1186     A     
 DATA               ADDWD  T.DATS                                                          DATA        1187     A     
 DATA               EQ     EXIT.                                                           DATA        1188     A     
 DATA      OVI      SPACE  4,30                                                            DATA        1189     A     
 DATA     **        OVI - OUTPUT VALUE OF ITEM.                                            DATA        1190     A     
 DATA     *                                                                                DATA        1191     A     
 DATA     *         OVI COERCES THE CONSTANT INTO THE MODE OF THE ELEMENT, AND             DATA        1192     A     
 DATA     *         THEREFORE ALWAYS ISSUES ENOUGH DATA TO EXACTLY COVER ONE               DATA        1193     A     
 DATA     *         ELEMENT.  WHENEVER THE CONSTANT ITEM IS MODE-CONVERTED, THE            DATA        1194     A     
 DATA     *         DESCRIPTOR IS UPDATED TO THE NEW CONSTANT.  THIS PREVENTS              DATA        1195     A     
 DATA     *         CONVERSION OVERHEAD FOR AN UN-REPLICATIBLE REPEATED CONSTANT.          DATA        1196     A     
 DATA     *                                                                                DATA        1197     A     
 DATA     *         ENTRY  (A5, X5) = DATA CONSTANT ITEM DESCRIPTOR.                       DATA        1198     A     
 DATA     *                (DVI) = DATA VARIABLE ELEMENT DESCRIPTOR.                       DATA        1199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 942    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *                                                                                DATA        1200     A     
 DATA     *         EXIT   (S.LEN) ADVANCED BY NUMBER OF STORAGE UNITS IN THIS             DATA        1201     A     
 DATA     *                            ELEMENT.                                            DATA        1202     A     
 DATA     *                ITEM DESCRIPTOR CHANGED IF CONSTANT WAS CONVERTED.              DATA        1203     A     
 DATA     *                                                                                DATA        1204     A     
 DATA     *         CALLS  ALLOC, CMV, MOVE.                                               DATA        1205     A     
 DATA                                                                                      DATA        1206     A     
 DATA                                                                                      DATA        1207     A     
 DATA      OVI      SUBR               ENTRY/EXIT...                                       DATA        1208     A     
 DATA               SA1    T.DATI                                                          DATA        1209     A     
 DATA               SA4    DVI+V3.W    V3I = (DVI+V3.W)                                    DATA        1210     A     
 DATA               SA3    S.LEN                                                           DATA        1211     A     
 DATA               SB2    X1                                                              DATA        1212     A     
 DATA               SX6    A5-B2       DITIND = (A5) - FWA(T.DATI)                         DATA        1213     A     
 DATA               SA6    OVIA        SAVE (OVIA) = DITIND                                DATA        1214     A     
 DATA               MX1    -V3.SSUL                                                        DATA        1215     A     
 DATA               LX4    -V3.SSUP                                                        DATA        1216     A     
 DATA               =A2    A4-V3.W+WB.W      V2I = (DVI+WB.W)                              DATA        1217     A     
 DATA               BX4    -X1*X4      SSUI = SSU[V3I], STORAGE DESIRED                    DATA        1218     A     
 DATA               IX7    X3+X4       (S.LEN) = (S.LEN) + SSUI                            DATA        1219     A     
 DATA               LX2    -WB.MODEP                                                       DATA        1220     A     
 DATA               SA7    A3          (S.LEN) = (S.LEN) + SSUI                            DATA        1221     A     
 DATA               RJ     CMV         CONVERT MODE OF VALUE                               DATA        1222     A     
 DATA               LX5    -DI.PNTP                                                        DATA        1223     A     
 DATA               SB2    X5          PNTI = PNT [CON DESCRIPTOR]                         DATA        1224     A     
 DATA               ERRNZ  18-DI.PNTL                                                      DATA        1225     A     
 DATA               LX5    DI.PNTP-DI.DLENP                                                DATA        1226     A     
 DATA               ZR     B3,OVI5     IF TYPE CHARACTER ELEMENT                           DATA        1227     A     
 DATA               SB6    X5          LEN = DLEN [CON DESCRIPTOR]                         DATA        1228     A     
 DATA               ERRNZ  18-DI.DLENL                                                     DATA        1229     A     
 DATA               ALLOC  T.DATS,B6   ALLOCATE SPACE FOR ITEM                             DATA        1230     A     
 DATA               SA1    T.CON                                                           DATA        1231     A     
 DATA               SB2    B2+B1       PNTI = PNTI + 1                                     DATA        1232     A     
 DATA               SA3    X1+B2       FETCH 2ND WORD OF CON (OR GARBAGE)                  DATA        1233     A     
 DATA               SA2    A3-B1       FETCH 1ST WORD OF CON                               DATA        1234     A     
 DATA               BX7    X3                                                              DATA        1235     A     
 DATA               LX6    X2                                                              DATA        1236     A     
 DATA               SA7    B7-B1       (2ND WORD) => (LWA(TABLE))                          DATA        1237     A     
 DATA               SA6    B7-B6       (1ST WORD) => (LWA(TABLE)+1-WC)                     DATA        1238     A     
 DATA               EQ     EXIT.                                                           DATA        1239     A     
 DATA                                                                                      DATA        1240     A     
 DATA                                                                                      DATA        1241     A     
 DATA     *         OUTPUT CHARACTER ELEMENT.                                              DATA        1242     A     
 DATA     *         TRUNCATION OF CONSTANT IS AUTOMATIC, SINCE WE ONLY ISSUE               DATA        1243     A     
 DATA     *         THE NUMBER OF CHARS IN THE VARIABLE.  BLANK PADDING MUST HAVE          DATA        1244     A     
 DATA     *         ALREADY BEEN DONE.                                                     DATA        1245     A     
 DATA     *                (B2) = PNTI, POINTER INTO T.CHAR                                DATA        1246     A     
 DATA     *                (X5) = DI.PNT, UPPER BITS JUNK                                  DATA        1247     A     
 DATA                                                                                      DATA        1248     A     
 DATA      OVI5     SX2    X5          LEN = DLEN [CON DESCRIPTOR]                         DATA        1249     A     
 DATA               CW     X4,X2       LEN = LEN / 10                                      DATA        1250     A     
 DATA               ALLOC  T.DATS,X4   ALLOCATE SPACE FOR ITEM                             DATA        1251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 943    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX7    B7          LAST = LWA+1 OF (T.DATS)                            DATA        1252     A     
 DATA               SA1    T.CON                                                           DATA        1253     A     
 DATA               IX3    X7-X4       DEST = LAST - WC                                    DATA        1254     A     
 DATA               SX2    X1+B2       SOURCE = (T.CHAR) + INDEX                           DATA        1255     A     
 DATA               SX1    X4          WC = (X4)                                           DATA        1256     A     
 DATA               MOVE   X1,X2,X3                                                        DATA        1257     A     
 DATA      .FIX     EQU    --  USE MOVEB, CAUSE CHAR AIN'T WORD ALIGNED.                   DATA        1258     A     
 DATA               EQ     EXIT.                                                           DATA        1259     A     
 DATA      SDV      SPACE  4,10        SETUP DATA VARIABLE.                                DATA        1260     A     
 DATA     **        SDV -  SETUP DATA VARIABLE.                                            DATA        1261     A     
 DATA     *                                                                                DATA        1262     A     
 DATA     *         BUILD (DVI) ENTRY DESCRIBING THE DATA TARGET --                        DATA        1263     A     
 DATA     *                (DVI+0) = (V1.) FORMAT.                                         DATA        1264     A     
 DATA     *                (DVI+1) = (WB.) FORMAT.                                         DATA        1265     A     
 DATA     *                (DVI+2) = (V2.) FORMAT.                                         DATA        1266     A     
 DATA     *                                                                                DATA        1267     A     
 DATA     *         ENTRY  (B6) = SYMORD OF ORIGINAL.                                      DATA        1268     A     
 DATA     *                (B7) = SYMORD OF EQUIV BASE.                                    DATA        1269     A     
 DATA     *                (X4) = FWA BIAS, (WC.) FORMAT, RELATIVE TO RA[BASE].            DATA        1270     A     
 DATA     *                                                                                DATA        1271     A     
 DATA     *         EXIT   (DVI AREA)  SET UP.                                             DATA        1272     A     
 DATA                                                                                      DATA        1273     A     
 DATA                                                                                      DATA        1274     A     
 DATA      SDV      SUBR   0           ENTRY/EXIT...                                       DATA        1275     A     
 DATA               SA2    T.SYM                                                           DATA        1276     A     
 DATA               SX1    B6+B6                                                           DATA        1277     A     
 DATA               SX5    B6                                                              DATA        1278     A     
 DATA               =B2    X2+WB.W                                                         DATA        1279     A     
 DATA               SX7    X1+B6       (X7) = INDEX OF SYMTAB (WB.)                        DATA        1280     A     
 DATA               ERRNZ  3-Z=SYM                                                         DATA        1281     A     
 DATA               SA2    X7+B2                                                           DATA        1282     A     
 DATA               SX3    B7                                                              DATA        1283     A     
 DATA               LX3    V1.BASEP                                                        DATA        1284     A     
 DATA               LX5    V1.ORDP     SAVE SYMTAB ORDINAL                                 DATA        1285     A     
 DATA               BX6    X2                                                              DATA        1286     A     
 DATA               SA6    DVI+WB.W                                                        DATA        1287     A     
 DATA               BX5    X5+X3                                                           DATA        1288     A     
 DATA                                                                                      DATA        1289     A     
 DATA     *         EXAMINE MODE TO DETERMINE PHYSICAL MAPPING OF SYMBOL --                DATA        1290     A     
 DATA     *         LET    WCS = (WC.) OF ORIGINAL SYMBOL.                                 DATA        1291     A     
 DATA     *                WCE = (WC.) OF EFFECTIVE OPERAND (X4).                          DATA        1292     A     
 DATA     *         SET    (SDPF) = LOG2 OF WORDS-PER-ELEMENT.                             DATA        1293     A     
 DATA     *                (ELS) = STORAGE UNITS PER ELEMENT.                              DATA        1294     A     
 DATA     *                (SSU) = ELS.                                                    DATA        1295     A     
 DATA     *                (ABU) = RA[WCE]                                                 DATA        1296     A     
 DATA     *         WHEN TYPE CHARACTER --                                                 DATA        1297     A     
 DATA     *                (SDPF) = 0.                                                     DATA        1298     A     
 DATA     *                (ELS) = CLEN[WCS]                                               DATA        1299     A     
 DATA     *                (SSU) = CLEN[WCE]                                               DATA        1300     A     
 DATA     *                (ABU) = 10*RA[WCE] + BCP[WCE]                                   DATA        1301     A     
 DATA                                                                                      DATA        1302     A     
 DATA               MX0    -WB.MODEL                                                       DATA        1303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 944    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               LX6    -WB.MODEP                                                       DATA        1304     A     
 DATA               BX0    -X0*X6      MODEI = MODE[V2I]                                   DATA        1305     A     
 DATA               SX7    B1          UNIT = 1                                            DATA        1306     A     
 DATA               SB5    X0-M.DBL                                                        DATA        1307     A     
 DATA               EQ     B5,B0,SDV4  IF MODE DOUBLE                                      DATA        1308     A     
 DATA               EQ     B5,B1,SDV4  IF MODE COMPLEX                                     DATA        1309     A     
 DATA               ERRNZ  M.DBL+1-M.CPLX                                                  DATA        1310     A     
 DATA               SX7    +           UNIT = 0                                            DATA        1311     A     
 DATA      SDV4     SX3    X7+B1       ELS = UNIT + 1                                      DATA        1312     A     
 DATA               LX7    V1.SDPFP                                                        DATA        1313     A     
 DATA               BX7    X5+X7       FORM (V1.)                                          DATA        1314     A     
 DATA               =A7    A6-WB.W+V1.W                                                    DATA        1315     A     
 DATA                                                                                      DATA        1316     A     
 DATA     *         COMPUTE ADDITIONAL BIAS FROM WC[OPERAND] --                            DATA        1317     A     
 DATA                                                                                      DATA        1318     A     
 DATA               LX4    -WC.RAP                                                         DATA        1319     A     
 DATA               MX7    -WC.RAL                                                         DATA        1320     A     
 DATA               BX6    -X7*X4      RAI = RA[WCE]                                       DATA        1321     A     
 DATA               BX0    X3          SSU = ELS                                           DATA        1322     A     
 DATA               LE     B5,B1,SDV7  IF NOT MODE CHARACTER                               DATA        1323     A     
 DATA               ERRNZ  M.CPLX+1-M.CHAR                                                 DATA        1324     A     
 DATA               MX0    -WC.BCPL                                                        DATA        1325     A     
 DATA               LX4    WC.RAP-WC.BCPP                                                  DATA        1326     A     
 DATA               BX1    -X0*X4      BCPI = BCP[WCE]                                     DATA        1327     A     
 DATA               LX4    WC.BCPP-WC.CLENP                                                DATA        1328     A     
 DATA               WC     X7,X6       (X7) = 10 * RAI                                     DATA        1329     A     
 DATA               MX3    -WC.CLENL                                                       DATA        1330     A     
 DATA               IX6    X7+X1       ABUI = 10 * RAI + BCPI                              DATA        1331     A     
 DATA               BX0    -X3*X4      SSU = CLEN[WCE]                                     DATA        1332     A     
 DATA               =A1    A2-WB.W+WC.W      WCS                                           DATA        1333     A     
 DATA               LX1    -WC.CLENP                                                       DATA        1334     A     
 DATA               BX3    -X3*X1      ELS = CLEN[WCS]                                     DATA        1335     A     
 DATA                                                                                      DATA        1336     A     
 DATA      SDV7     LX3    V3.ELSP                                                         DATA        1337     A     
 DATA               LX0    V3.SSUP                                                         DATA        1338     A     
 DATA               BX7    X3+X0                                                           DATA        1339     A     
 DATA               LX6    V3.ABUP                                                         DATA        1340     A     
 DATA               BX7    X6+X7                                                           DATA        1341     A     
 DATA               =A7    A6-WB.W+V3.W                                                    DATA        1342     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA        1343     A     
 DATA               SA1    CO.SNAP                                                         DATA        1344     A     
 DATA               LX1    1R9                                                             DATA        1345     A     
 DATA               PL     X1,EXIT.    IF (SNAP=9) NOT SELECTED                            DATA        1346     A     
 DATA      SDVX     CORE   DVI,3                                                           DATA        1347     A     
 DATA      .T       ENDIF                                                                  DATA        1348     A     
 DATA               EQ     EXIT.                                                           DATA        1349     A     
 DATA      UPH      SPACE  4,10                                                            DATA        1350     A     
 DATA     **        UPH - UPDATE PREVIOUS HEADER.                                          DATA        1351     A     
 DATA     *                                                                                DATA        1352     A     
 DATA     *         DOES NOTHING IF NO BLOCK IN PROGRESS ON ENTRY.                         DATA        1353     A     
 DATA     *                                                                                DATA        1354     A     
 DATA     *         ENTRY  (S. CELLS) DESCRIBE CURRENT BLOCK.                              DATA        1355     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 945    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *                                                                                DATA        1356     A     
 DATA     *         EXIT   (S.POP) INDICATES NO BLOCK IN PROGRESS.                         DATA        1357     A     
 DATA     *                HEADER WORDS UPDATED IN THE SUB-TABLE.                          DATA        1358     A     
 DATA     *                                                                                DATA        1359     A     
 DATA     *         USES   ALL BUT A0  B4,B5,B6.                                           DATA        1360     A     
 DATA                                                                                      DATA        1361     A     
 DATA                                                                                      DATA        1362     A     
 DATA      UPH      SUBR   0           ENTRY/EXIT...                                       DATA        1363     A     
 DATA               SA3    S.LEN                                                           DATA        1364     A     
 DATA               SA4    S.DHW+DA.W                                                      DATA        1365     A     
 DATA               LX3    DA.WCP                                                          DATA        1366     A     
 DATA               SA5    S.POP                                                           DATA        1367     A     
 DATA               MI     X5,EXIT.    IF NO BLOCK IN PROGRESS                             DATA        1368     A     
 DATA               SA2    T.DATS                                                          DATA        1369     A     
 DATA               BX6    X3+X4       (DA.WC) = (S.LEN)                                   DATA        1370     A     
 DATA               IX5    X2+X5                                                           DATA        1371     A     
 DATA               SA3    S.FEA                                                           DATA        1372     A     
 DATA               LX3    DA.BIASP                                                        DATA        1373     A     
 DATA               BX6    X6+X3       (DA.BIAS) = FEA                                     DATA        1374     A     
 DATA               MX7    -1          INDICATE NO INCOMPLETE BLOCK                        DATA        1375     A     
 DATA               =A6    X5+DA.W                                                         DATA        1376     A     
 DATA               SA7    A5                                                              DATA        1377     A     
 DATA               EQ     EXIT.                                                           DATA        1378     A     
 DATA               TITLE  CONSTANT LIST SCANNING AND CONVERSION.                          DATA        1379     A     
 DATA      ADC      SPACE  4,10                                                            DATA        1380     A     
 DATA     **        ADC -  ADD CONSTANT TO DATA ITEM TABLE.                                DATA        1381     A     
 DATA     *                                                                                DATA        1382     A     
 DATA     *         ENTRY  (A4, X4) -> FIRST TOKEN OF CONSTANT.                            DATA        1383     A     
 DATA     *                (X7) = -0 IF CON PRECEEDED BY - SIGN , ELSE 0.                  DATA        1384     A     
 DATA     *                FIRST TOKEN IS ONE OF O.(CONS, PERIOD, CHAR, HOLL,              DATA        1385     A     
 DATA     *                            OCT, HEX).                                          DATA        1386     A     
 DATA     *                                                                                DATA        1387     A     
 DATA     *         EXIT   (X6) = ITEM DESCRIPTOR (DI. FORMAT).                            DATA        1388     A     
 DATA     *                (SELIST) = ADVANCED OVER THE CONSTANT TOKENS.                   DATA        1389     A     
 DATA     *                                                                                DATA        1390     A     
 DATA     *         CALLS  ADDWD, ASI, ANSI, WARN.                                         DATA        1391     A     
 DATA                                                                                      DATA        1392     A     
 DATA                                                                                      DATA        1393     A     
 DATA      ADC      SUBR               ENTRY/EXIT...                                       DATA        1394     A     
 DATA               SB2    X4                                                              DATA        1395     A     
 DATA               ERRNZ  18-TB.TOTL                                                      DATA        1396     A     
 DATA               =X6    A4+1                                                            DATA        1397     A     
 DATA               SA6    SELIST      SAVE STRING BUFFER ADDRESS                          DATA        1398     A     
 DATA      .T       IFEQ   TEST,ON                                                         DATA        1399     A     
 DATA      ADCA     BITMIC (O.CONS,O.PERIOD,O.CHAR,O.HOLL,O.OCT,O.HEX)                     DATA        1400          I
          -FC5A258
 DATA      ADCA     BITMIC (O.CONS,O.PERIOD,O.CHAR,O.HOLL,O.QHOLL,O.RLCON,O.OCT,__         FC5A258       29     A     
 DATA     ,O.HEX)                                                                          FC5A258       30     A     
 DATA               SA1    ="ADCA"                                                         DATA        1401     A     
 DATA               LX1    B2                                                              DATA        1402     A     
 DATA               PL     X1,"BLOWUP" IF NOT A LEGAL TOKEN FOR US                         DATA        1403     A     
 DATA      .T       ENDIF                                                                  DATA        1404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 946    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               IF.EQ  O.HOLL,ADC2 IF HOLLERITH CONSTANT                               DATA        1405     A     
 DATA               IF.EQ  O.QHOLL,ADC2      IF "" STRING                                  FC5A258       31     A     
 DATA               IF.EQ  O.RLCON,ADC2      IF R OR L CONSTANT                            FC5A258       32     A     
 DATA               IF.NE  O.CHAR,ADC4       IF NOT CHARACTER CONSTANT                     DATA        1406     A     
 DATA                                                                                      DATA        1407     A     
 DATA     *         CHARACTER CONSTANT.                                                    DATA        1408     A     
 DATA                                                                                      DATA        1409     A     
 DATA               MX0    -TB.CLCNL                                                       DATA        1410     A     
 DATA               =X6    M.CHAR                                                          DATA        1411     A     
 DATA               LX4    -TB.CLCNP                                                       DATA        1412     A     
 DATA               MI     X7,E.DIL1   IF CHAR PRECEDED BY MINUS SIGN                      DATA        1413     A     
 DATA               BX1    -X0*X4      CLEN = NUMBER OF CHARACTERS IN CONSTANT             DATA        1414     A     
 DATA      .FIX     EQU    --  CANNOT CON LEN BE ROUNDED UP 10 ??                          DATA        1415     A     
 DATA               IFNE   TB.CLCNL,TB.SHCL,1                                              DATA        1416     A     
 DATA               MX0    -TB.SHCL                                                        DATA        1417     A     
 DATA               LX4    TB.CLCNP-TB.SHCP                                                DATA        1418     A     
 DATA               BX2    -X0*X4      INDX = INDEX OF CONSTANT IN (T.CHAR)                DATA        1419     A     
 DATA               EQ     ADC3                                                            DATA        1420     A     
 DATA                                                                                      DATA        1421     A     
 DATA                                                                                      DATA        1422     A     
 DATA     *         HOLLERITH CONSTANT.                                                    DATA        1423     A     
 DATA                                                                                      DATA        1424     A     
 DATA      ADC2     MI     X7,E.DIL1   IF HOLLERITH PRECEDED BY MINUS SIGN                 DATA        1425     A     
 DATA               ANSI   E.AT08      HOLLERITH IS NON ANSI                               DATA        1426     A     
 DATA               MX0    -TB.LCONL                                                       DATA        1427     A     
 DATA               LX4    -TB.LCONP                                                       DATA        1428     A     
 DATA               BX3    -X0*X4      (B7) = WORD LENGTH OF HOLLERITH                     DATA        1429     A     
 DATA               MX0    -TB.SHCL                                                        DATA        1430     A     
 DATA               LX4    TB.LCONP-TB.SHCP                                                DATA        1431     A     
 DATA               BX2    -X0*X4      (X2) = INDEX IN (T.CON)                             DATA        1432     A     
 DATA               =X6    M.BOOL                                                          DATA        1433     A     
 DATA               SB7    X3                                                              DATA        1434     A     
 DATA               =X1    1           LENGTH = 1                                          DATA        1435     A     
 DATA               EQ     B7,B1,ADC3  IF SINGLE-WORD HOLLERITH                            DATA        1436     A     
 DATA               WARN   E.AT03      HOLLERITH EXCEEDS 10 CHARACTERS                     DATA        1437     A     
 DATA                                                                                      DATA        1438     A     
 DATA     *         ADD ITEM DESCRIPTOR (DI.) TO DATA ITEM TABLE (T.DATI).                 DATA        1439     A     
 DATA     *                (X1) = CONSTANT LENGTH.                                         DATA        1440     A     
 DATA     *                (X2) = CONSTANT TABLE INDEX.                                    DATA        1441     A     
 DATA     *                (X6) = MODE OF CONSTANT.                                        DATA        1442     A     
 DATA                                                                                      DATA        1443     A     
 DATA      ADC3     LX6    DI.MODEP    (DI.MODE) = X6                                      DATA        1444     A     
 DATA               LX1    DI.DLENP    (DI.DLEN) = X1                                      DATA        1445     A     
 DATA               IX7    X6+X1                                                           DATA        1446     A     
 DATA               LX2    DI.PNTP     (DI.PNT) = X2                                       DATA        1447     A     
 DATA               BX6    X2+X7                                                           DATA        1448     A     
 DATA               EQ     EXIT.                                                           DATA        1449     A     
 DATA                                                                                      DATA        1450     A     
 DATA     *         NUMERIC CONSTANT.  CONVERT AND ADD TO (T.CON).                         DATA        1451     A     
 DATA                                                                                      DATA        1452     A     
 DATA      ADC4     BX5    X7          SAVE CONSTANT SIGN                                  DATA        1453     A     
 DATA               SB4    A4                                                              DATA        1454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 947    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               CALL   TNK         TRANSLATE NUMERIC CONSTANT                          DATA        1455     A     
 DATA               SX7    B4+B1                                                           DATA        1456     A     
 DATA               SA7    SELIST                                                          DATA        1457     A     
 DATA               BX6    X6-X5       (X6) = SIGN * (UPPER HALF)                          DATA        1458     A     
 DATA               BX7    X2-X5       (X7) = SIGN * (LOWER HALF)                          DATA        1459     A     
 DATA               RJ     ASI         ADD SCALAR ITEM                                     DATA        1460     A     
 DATA               EQ     EXIT.                                                           DATA        1461     A     
 DATA      ASC      SPACE  4,10                                                            DATA        1462     A     
 DATA     **        ASC -  ADD SYMBOLIC CONSTANT TO DATA TABLE.                            DATA        1463     A     
 DATA     *                                                                                DATA        1464     A     
 DATA     *         ENTRY  (B6) = CONSTANT POINTER                                         DATA        1465     A     
 DATA     *                (X1) = MODE OF CONSTANT                                         DATA        1466     A     
 DATA     *                 A3 -> WB WORD OF SYMBOLIC CONSTANT                             DATA        1467          I
          -FC50570
 DATA     *                (X3) = WC WORD OF SYMBOLIC CONSTANT                             FC50570       16     A     
 DATA     *         EXIT   (X6) = ITEM DESCRIPTOR (DI. FORMAT).                            DATA        1468     A     
 DATA     *         USES   A - NONE                                                        DATA        1469     A     
 DATA     *                X - 0,1,2,3,6                                                   DATA        1470     A     
 DATA     *                B - 2,3,5                                                       DATA        1471     A     
 DATA                                                                                      DATA        1472     A     
 DATA                                                                                      DATA        1473     A     
 DATA      ASC      SUBR               ENTRY/EXIT.                                         DATA        1474     A     
 DATA               SA3    A3          WCI = WC WORD OF T.SYM                              DATA        1475          I
          -FC50570
 DATA               SB2    X1-M.CHAR                                                       DATA        1476     A     
 DATA               SX6    B6                                                              DATA        1477     A     
 DATA               LX6    DI.PNTP                                                         DATA        1478     A     
 DATA               MX0    -WC.CLENL                                                       DATA        1479     A     
 DATA               NZ     B2,ASC10    IF NOT TYPE CHARACTER                               DATA        1480     A     
 DATA                                                                                      DATA        1481     A     
 DATA     *         TYPE CHARACTER, GET LENGTH FROM WC.CLEN.                               DATA        1482     A     
 DATA                                                                                      DATA        1483     A     
 DATA               LX3    -WC.CLENP                                                       DATA        1484     A     
 DATA               BX2    -X0*X3      DLEN = CLEN[WCI]                                    DATA        1485     A     
 DATA               LX3    WC.CLENP                                                        DATA        1486     A     
 DATA               EQ     ASC20                                                           DATA        1487     A     
 DATA                                                                                      DATA        1488     A     
 DATA      ASC10    =B3    X1-M.DBL                                                        DATA        1489     A     
 DATA               =X2    2           DLEN = 2                                            DATA        1490     A     
 DATA               EQ     B3,ASC20    IF DOUBLE                                           DATA        1491     A     
 DATA               EQ     B3,B1,ASC20 IF COMPLEX                                          DATA        1492     A     
 DATA               ERRNZ  M.DBL+1-M.CPLX                                                  DATA        1493     A     
 DATA               =X2    1           DLEN = 1                                            DATA        1494     A     
 DATA                                                                                      FC50570       17     A     
 DATA      ASC20    LX1    DI.MODEP                                                        DATA        1495     A     
 DATA               LX2    DI.DLENP                                                        DATA        1496     A     
 DATA               BX6    X6+X1                                                           DATA        1497     A     
 DATA               BX6    X6+X2                                                           DATA        1498     A     
 DATA               EQ     EXIT.                                                           DATA        1499     A     
 DATA      ASI      SPACE  4,10                                                            DATA        1500     A     
 DATA     **        ASI - ADD SCALAR ITEM.                                                 DATA        1501     A     
 DATA     *                                                                                DATA        1502     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 948    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *         ENTRY  (X1) = MODE OF CONSTANT.                                        DATA        1503     A     
 DATA     *                (X6) = UPPER HALF OF CONSTANT.                                  DATA        1504     A     
 DATA     *                (X7) = LOWER HALF OF CONSTANT, IF DBL OR CPLX.                  DATA        1505     A     
 DATA     *                                                                                DATA        1506     A     
 DATA     *         EXIT   (X6) = ITEM DESCRIPTOR (DI. FORMAT).                            DATA        1507     A     
 DATA                                                                                      DATA        1508     A     
 DATA                                                                                      DATA        1509     A     
 DATA      ASI      SUBR               ENTRY/EXIT...                                       DATA        1510     A     
 DATA               SB2    X1-M.DBL                                                        DATA        1511     A     
 DATA               SB5    X1+         REMEMBER (B5) = MODE OF CONSTANT                    DATA        1512     A     
 DATA               EQ     B2,B0,ASI4  IF MODE DOUBLE                                      DATA        1513     A     
 DATA               EQ     B2,B1,ASI4  IF MODE COMPLEX                                     DATA        1514     A     
 DATA               ERRNZ  M.DBL+1-M.CPLX                                                  DATA        1515     A     
 DATA                                                                                      DATA        1516     A     
 DATA               SCAN   T.CON,SCT                                                       DATA        1517     A     
 DATA               SX4    B1          INDICATE SINGLE-WORD CONSTANT                       DATA        1518     A     
 DATA               SX2    B7+B1                                                           DATA        1519     A     
 DATA               PL     B7,ASI2     IF CONSTANT ALREADY IN TABLE                        DATA        1520     A     
 DATA               ADDWD  A1                                                              DATA        1521     A     
 DATA                                                                                      DATA        1522     A     
 DATA     *         CONSTANT IN (T.CON) -- CONSTRUCT DESCRIPTOR.                           DATA        1523     A     
 DATA     *                (B5) = MODE                                                     DATA        1524     A     
 DATA     *                (X4) = WORD COUNT                                               DATA        1525     A     
 DATA     *                (X2) = INDEX + 1                                                DATA        1526     A     
 DATA                                                                                      DATA        1527     A     
 DATA      ASI2     SX6    B5          (X6) = MODE OF CON                                  DATA        1528     A     
 DATA               SX2    X2-1        (X2) = INDEX OF CON                                 DATA        1529     A     
 DATA               LX4    DI.DLENP                                                        DATA        1530     A     
 DATA               LX2    DI.PNTP                                                         DATA        1531     A     
 DATA               LX6    DI.MODEP                                                        DATA        1532     A     
 DATA               BX7    X4+X2                                                           DATA        1533     A     
 DATA               BX6    X7+X6       ADD ITEM DESCRIPTOR TO (T.DATI)                     DATA        1534     A     
 DATA               EQ     EXIT.                                                           DATA        1535     A     
 DATA                                                                                      DATA        1536     A     
 DATA     *         DOUBLE WORD CONSTANT.                                                  DATA        1537     A     
 DATA                                                                                      DATA        1538     A     
 DATA      ASI4     CALL   NBC         ENTER BINARY OF CONSTANT                            DATA        1539     A     
 DATA               HX6    TP.BIAS                                                         DATA        1540     A     
 DATA               SX4    B1+B1       INDICATE DOUBLE-WORD CONSTANT                       DATA        1541     A     
 DATA               AX6    -TP.BIASL                                                       DATA        1542     A     
 DATA               SX2    X6+B1                                                           DATA        1543     A     
 DATA               EQ     ASI2                                                            DATA        1544     A     
 DATA      CFC      SPACE  4,20                                                            DATA        1545     A     
 DATA     **        CFC - CHECK FOR COMPLEX CONSTANT.                                      DATA        1546     A     
 DATA     *                                                                                DATA        1547     A     
 DATA     *         SEE ANSI 4.6.1, NO CDC EXTENSIONS.                                     DATA        1548     A     
 DATA     *                                                                                DATA        1549     A     
 DATA     *         ENTRY  (A4,X4) -> LPAREN TOKEN BEGINNING SUSPECTED CONSTANT.           DATA        1550     A     
 DATA     *                                                                                DATA        1551     A     
 DATA     *         EXIT   IF COMPLEX CONSTANT WAS PRESENT --                              DATA        1552     A     
 DATA     *                (X0) .ZR.                                                       DATA        1553     A     
 DATA     *                (X1,X2) = (REAL, IMAGINARY) OF CONVERTED CONSTANT.              DATA        1554     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 949    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *                (SELIST) -> AFTER TERMINATING RPAREN.                           DATA        1555     A     
 DATA     *                                                                                DATA        1556     A     
 DATA     *         ELSE   LPAREN WAS NOT A COMPLEX CON BEGIN TOKEN --                     DATA        1557     A     
 DATA     *                (X0) .NZ.                                                       DATA        1558     A     
 DATA     *                (A4,X4) PRESERVED.                                              DATA        1559     A     
 DATA     *                                                                                DATA        1560     A     
 DATA     *         USES   A1-A7,  B2-4,B7,  X0-X7.                                        DATA        1561     A     
 DATA     *         CALLS  CHC.                                                            DATA        1562          I
          -FC50570
 DATA     *                                                                                FC50570       18     A     
 DATA     *         CALLS  CHC, CPR                                                        FC50570       19     A     
 DATA                                                                                      DATA        1563     A     
 DATA                                                                                      DATA        1564     A     
 DATA      CFC9     MX0    1           INDICATE FAILURE                                    DATA        1565     A     
 DATA               SA4    X5          RESTORE A4                                          DATA        1566     A     
 DATA                                                                                      DATA        1567     A     
 DATA      CFC      SUBR   =           ENTRY/EXIT...                                       DATA        1568     A     
 DATA               SA3    A4+B1                                                           DATA        1569     A     
 DATA               SX5    A4          REMEMBER (X5) = ORIGINAL (A4)                       DATA        1570     A     
 DATA               RJ     CHC         CONVERT REAL HALF OF COMPLEX                        DATA        1571     A     
 DATA               SA6    CFCA                                                            DATA        1572     A     
 DATA               SA1    B4+B1       CHECK TOKEN FOLLOWING CON                           DATA        1573     A     
 DATA               SB2    X1-O.COMMA                                                      DATA        1574     A     
 DATA               SA3    A1+B1       ADVANCE (A3)                                        DATA        1575     A     
 DATA               SB4    A3                                                              FC50570       20     A     
 DATA               NZ     B2,CFC9     IF NO COMMA                                         DATA        1576     A     
 DATA               ZR     B7,CFC1     IF REAL HALF NOT PARAMETER                          FC50180       10     A     
 DATA               ANSI   B7                                                              FC50180       11     A     
 DATA               RJ     CPR         OUTPUT PARAMETER REFERENCE                          FC50570       21     A     
 DATA                                                                                      DATA        1577     A     
 DATA               RJ     CHC         CONVERT (IMAGINARY) HALF OF COMPLEX                 DATA        1578          I
          -FC50180
 DATA               SA3    B4+B1       ADVANCE (A3)                                        DATA        1579          I
          -FC50180
 DATA      CFC1     RJ     CHC         CONVERT IMAGINARY HALF OF COMPLEX                   FC50180       12     A     
 DATA               ZR     B7,CFC2     IF IMAGINARY HALF NOT PARAMETER                     FC50180       13     A     
 DATA               ANSI   B7                                                              FC50180       14     A     
 DATA               BX4    X6          PRESERVE BINARY OF IMAGINARY                        FC50570       22     A     
 DATA               RJ     CPR         OUTPUT PARAMETER REFERENCE                          FC50570       23     A     
 DATA               LX6    X4          RESTORE BINARY                                      FC50570       24     A     
 DATA                                                                                      FC50180       15     A     
 DATA      CFC2     =A3    B4+1                                                            FC50180       16     A     
 DATA               SB2    X3-O.RP                                                         DATA        1580     A     
 DATA               BX2    X6          RETURN (X2) = VALUE OF IMAGINARY HALF               DATA        1581     A     
 DATA               NZ     B2,CFC9     IF NO TERMINAL RIGHT PAREN                          DATA        1582     A     
 DATA     ** FV            SHOULD DIAGNOSE, BECAUSE IN VER5 THE AMBIGUIOUS CASES           DATA        1583          I
          -FC50180
 DATA     *                ARE GONE.  THIS MUST BE A COMPLEX CON WE ARE INVOLVED           DATA        1584          I
          -FC50180
 DATA     *                WITH HERE, ALBEIT ILL FORMED.                                   DATA        1585          I
          -FC50180
 DATA               SA1    CFCA        RETURN (X1) = VALUE OF REAL HALF                    DATA        1586     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 950    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               =X6    A3+1                                                            DATA        1587     A     
 DATA               =A4    A3+1                                                            DATA        1588     A     
 DATA               MX0    0           INDICATE SUCCESS                                    DATA        1589     A     
 DATA               SA6    SELIST                                                          DATA        1590     A     
 DATA               EQ     EXIT.                                                           DATA        1591     A     
 DATA                                                                                      DATA        1592     A     
 DATA      CFCA     BSS    1           SAVE REAL PART                                      DATA        1593     A     
 DATA      CHC      SPACE  4,10                                                            DATA        1594     A     
 DATA     **        CHC - CONVERT HALF OF COMPLEX.                                         DATA        1595     A     
 DATA     *                                                                                DATA        1596     A     
 DATA     *         NOTE THAT CHC IS REALLY A PART OF CFC, AND CAN ONLY                    DATA        1597     A     
 DATA     *         BE CALLED FROM THERE.                                                  DATA        1598     A     
 DATA     *                                                                                DATA        1599     A     
 DATA     *         ENTRY  (A3,X3) -> FIRST TOKEN OF SUSPECTED CON.                        DATA        1600     A     
 DATA     *                                                                                DATA        1601     A     
 DATA     *         EXIT   IF LEGITIMATE COMPLEX HALF FOUND --                             DATA        1602     A     
 DATA     *                (B4) -> LAST TOKEN OF CONSTANT.                                 DATA        1603     A     
 DATA     *                (B7) = DIAGNOSTIC ADDR IF PARAMETER USED, 0 ELSE                FC50180       17     A     
 DATA     *                (X1) = SYMTAB ORDINAL OF PARAMETER, IF PRESENT                  FC50570       25     A     
 DATA     *                (X6) = SIGNED FLOATING POINT VALUE OF CONSTANT.                 DATA        1604     A     
 DATA     *                                                                                DATA        1605     A     
 DATA     *         ELSE   TO *CFC9* --                                                    DATA        1606     A     
 DATA     *                TOKENS FOUND CANNOT BE PART OF A COMPLEX CON.                   DATA        1607     A     
 DATA     *                                                                                DATA        1608     A     
 DATA     *         USES   A1-7,  B2-4,B7,  X0-4,X6-7.                                     DATA        1609     A     
 DATA     *         CALLS  CSC, DEC, KCV.                                                  DATA        1610     A     
 DATA                                                                                      DATA        1611     A     
 DATA                                                                                      DATA        1612     A     
 DATA      CHC      SUBR   0           ENTRY/EXIT...                                       DATA        1613     A     
 DATA               SB2    X3                                                              DATA        1614     A     
 DATA               MX7    0           SET FOR PLUS SIGN                                   DATA        1615     A     
 DATA               SA7    CHCB        PARAMETER FLAG                                      FC50180       18     A     
 DATA               SB3    B2-O.PL                                                         DATA        1616     A     
 DATA               EQ     B3,B0,CHC2  IF PLUS SIGN                                        DATA        1617     A     
 DATA               NE     B3,B1,CHC3  IF NOT MINUS SIGN                                   DATA        1618     A     
 DATA               ERRNZ  O.PL+1-O.MIN                                                    DATA        1619     A     
 DATA               MX7    -0                                                              DATA        1620     A     
 DATA                                                                                      FC50570       26     A     
 DATA      CHC2     SA3    A3+1        ADVANCE OVER SIGN TOKEN                             DATA        1621     A     
 DATA               SB2    X3+                                                             DATA        1622     A     
 DATA                                                                                      FC50570       27     A     
 DATA      CHC3     SB7    O.PERIOD                                                        DATA        1623     A     
 DATA               SB3    O.CONS                                                          DATA        1624     A     
 DATA               SA7    CHCA        REMEMBER (CHCA) = SIGN                              DATA        1625     A     
 DATA               EQ     B7,B2,CHC5  IF DECIMAL POINT                                    DATA        1626     A     
 DATA               EQ     B3,B2,CHC5  IF DIGIT                                            DATA        1627     A     
 DATA               SB7    O.VAR                                                           DATA        1628     A     
 DATA               NE     B7,B2,CFC9  IF NOT *VAR*                  ...FAIL               DATA        1629     A     
 DATA               SA4    A3+                                                             DATA        1630          I
          -FC5A231
 DATA               SA4    A3                                                              FC5A231       51     A     
 DATA               SB4    A3                                                              FC5A231       52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 951    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               RJ     CSC         CONVERT SYMBOLIC CONSTANT                           DATA        1631     A     
 DATA               MI     B7,CFC9     IF NOT A PARAMETER NAME       ...FAIL               DATA        1632     A     
 DATA               ANSI   E.DC10                                                          FC5A174       16          I
          -FC50180
 DATA               SX7    E.DC10                                                          FC50180       19     A     
 DATA               SA7    CHCB        PARAMETER FLAG                                      FC50180       20     A     
 DATA               SB4    A4+         RETURN (B4) -> CONSTANT TOKEN                       DATA        1633          I
          -FC5A231
 DATA               LX7    X0                                                              FC50570       28     A     
 DATA               =A7    A7+1        SAVE SYMTAB ORDINAL                                 FC50570       29     A     
 DATA               EQ     CHC6                                                            DATA        1634     A     
 DATA                                                                                      DATA        1635     A     
 DATA      CHC5     SB4    A3                                                              DATA        1636     A     
 DATA               CALL   DEC         CONVERT DECIMAL CONSTANT                            DATA        1637     A     
 DATA                                                                                      FC50180       21     A     
 DATA      CHC6     =X0    M.INT                                                           DATA        1638     A     
 DATA               IX3    X1-X0                                                           DATA        1639     A     
 DATA               NZ     X3,CHC7     IF NOT INTEGER CONSTANT                             DATA        1640     A     
 DATA               =X1    X0-M.INT+M.REAL                                                 DATA        1641     A     
 DATA               CALL   KCV         CONVERT CONSTANT VALUE                              DATA        1642     A     
 DATA                                                                                      DATA        1643     A     
 DATA      CHC7     SX3    X1-M.REAL                                                       DATA        1644     A     
 DATA               NZ     X3,CFC9     IF NOT REAL OR INTEG.  NOT COMPLEX CON              DATA        1645     A     
 DATA               SA1    CHCB                                                            FC50180       22     A     
 DATA               SB7    X1          PARAMETER FLAG                                      FC50180       23     A     
 DATA               =A1    A1+1        SYMTAB ORDINAL                                      FC50570       30     A     
 DATA               SA2    CHCA                                                            DATA        1646     A     
 DATA               ZR     X6,EXIT.    IF VALUE = 0, AVOID COMPLEMENT                      DATA        1647     A     
 DATA               BX6    X6-X2       RETURN (X6) = SIGNED VALUE OF CON                   DATA        1648     A     
 DATA               EQ     EXIT.                                                           DATA        1649     A     
 DATA                                                                                      DATA        1650     A     
 DATA      CHCA     BSS    1           REMEMBER SIGN                                       DATA        1651     A     
 DATA      CHCB     BSS    1           PARAMETER AS CONSTANT PART FLAG                     FC50180       24     A     
 DATA               BSS    1           PARAMETER SYMTAB ORDINAL                            FC50570       31     A     
 DATA      CMV      SPACE  4,10                                                            DATA        1652     A     
 DATA     **        CMV - COERCE MODE OF VALUE.                                            DATA        1653     A     
 DATA     *                                                                                DATA        1654     A     
 DATA     *         ENTRY  (A5,X5) = CONSTANT DESCRIPTOR.                                  DATA        1655     A     
 DATA     *                (X4) = ELS, STORAGE UNITS DESIRED.                              DATA        1656     A     
 DATA     *                (X2) = DM, DESIRED MODE (LEADING GARBAGE OKAY).                 DATA        1657     A     
 DATA     *                                                                                DATA        1658     A     
 DATA     *         EXIT   (X5) = NEW CONSTANT DESCRIPTOR WORD                             DATA        1659     A     
 DATA     *                (B3) .ZR. = DM IS TYPE CHARACTER.                               DATA        1660     A     
 DATA     *                NEW CONSTANT VALUE IS INCLUDED IN (T.CON).                      DATA        1661     A     
 DATA     *                                                                                DATA        1662     A     
 DATA     *         USES   ALL BUT A0,  B4.                                                DATA        1663     A     
 DATA     *         CALLS  ALLOC, ASI, FATAL, KCV, MOVE, NCM.                              DATA        1664     A     
 DATA                                                                                      DATA        1665     A     
 DATA     *         CONSTANT NOT IN TABLE.                                                 DATA        1666     A     
 DATA                                                                                      DATA        1667     A     
 DATA                                                                                      DATA        1668     A     
 DATA      CMV      SUBR   =           ENTRY/EXIT.                                         DATA        1669     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 952    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               MX0    -WB.MODEL                                                       DATA        1670     A     
 DATA               LX5    -DI.DLENP                                                       DATA        1671     A     
 DATA               BX6    -X0*X2      (X6) = MODE OF VARIABLE                             DATA        1672     A     
 DATA               SB7    -M.CHAR                                                         DATA        1673     A     
 DATA               SB3    X6+B7       (B3) = 0 IFF CHARACTER VARIABLE                     DATA        1674     A     
 DATA               IFNE   WB.MODEL,DI.MODEL,1                                             DATA        1675     A     
 DATA               MX0    -DI.MODEL                                                       DATA        1676     A     
 DATA               SB6    X5          CONLEN = DLEN[DATI]                                 DATA        1677     A     
 DATA               ERRNZ  18-DI.DLENL                                                     DATA        1678     A     
 DATA               LX5    DI.DLENP-DI.MODEP                                               DATA        1679     A     
 DATA               BX2    -X0*X5      (B2) = 0 IFF CHARACTER CONSTANT                     DATA        1680     A     
 DATA               BX5    X0*X5                                                           DATA        1681     A     
 DATA               SB2    X2+B7                                                           DATA        1682     A     
 DATA               BX5    X5+X6       (X5) = RMD                                          DATA        1683     A     
 DATA               LX5    DI.MODEP-DI.PNTP                                                DATA        1684     A     
 DATA               SB7    X5          PNTI = PNT[DITI]                                    DATA        1685     A     
 DATA               LX5    DI.PNTP                                                         DATA        1686     A     
 DATA               ZR     B3,CMV30    IF TYPE CHARACTER VARIABLE                          DATA        1687     A     
 DATA                                                                                      DATA        1688     A     
 DATA     *         DESIRED MODE IS SCALAR (NON-CHARACTER).                                DATA        1689     A     
 DATA                                                                                      DATA        1690     A     
 DATA               EQ     B2,B3,EXIT. IF CONMODE SAME AS VARMODE                          DATA        1691     A     
 DATA               ZR     B2,CMV60    IF CHAR AND SCALAR MIXED                            DATA        1692     A     
 DATA               SA1    T.CON                                                           DATA        1693     A     
 DATA               BX0    X2          (X0) = OLD MODE                                     DATA        1694     A     
 DATA               SA2    X1+B7       (X6,X7) = OLD VALUE                                 DATA        1695     A     
 DATA               SA3    A2+B1                                                           DATA        1696     A     
 DATA               BX1    X6          (X1) = DESIRED MODE                                 DATA        1697     A     
 DATA               LX7    X3                                                              DATA        1698     A     
 DATA               BX6    X2                                                              DATA        1699     A     
 DATA               CALL   KCV         CONVERT CONSTANT VALUE                              DATA        1700     A     
 DATA               PL     B2,CMV10    IF NO CONVERSION ERROR                              DATA        1701     A     
 DATA               FATAL  E.AT01      MIXED LOGICAL AND NON LOGICAL                       DATA        1702     A     
 DATA                                                                                      DATA        1703     A     
 DATA      CMV10    RJ     ASI         ADD SCALAR ITEM                                     DATA        1704     A     
 DATA               BX5    X6          (X5) = NEW CONSTANT DESCRIPTOR                      DATA        1705     A     
 DATA               SB3    B1          INDICATE SCALAR MODE                                DATA        1706     A     
 DATA               EQ     EXIT.                                                           DATA        1707     A     
 DATA                                                                                      DATA        1708     A     
 DATA     *         CONVERT CHARACTER CONSTANT.                                            DATA        1709     A     
 DATA     *                IF CONSTANT LONGER THAN VAR, LEAVE IT ALONE.                    DATA        1710     A     
 DATA     *                IF CONSTANT SHORTER THAN VAR -- BLANK PAD IT.                   DATA        1711     A     
 DATA     *         REPLACE (T.DATI) ENTRY WITH THE LONGER (NEW) CONSTANT, SO THAT         DATA        1712     A     
 DATA     *         THE PADDING PROCESS WILL NOT BE REPEATED OFTEN.                        DATA        1713     A     
 DATA     *         NOTE ALSO THAT CHAR CONSTANTS WHICH ARE NOT A FULLWORD                 DATA        1714     A     
 DATA     *         MULTIPLE ARE ALWAYS (ALREADY) BLANK FILLED TO NEXT WORD                DATA        1715     A     
 DATA     *         BOUNDARY.                                                              DATA        1716     A     
 DATA     *         (X5) = NEW CONSTANT DESCRIPTOR                                         DATA        1717     A     
 DATA     *                (B6) = CONLEN -  CHAR LEN OF OLD CON.                           DATA        1718     A     
 DATA     *                (X4) = ELS   -  CHAR LEN OF VAR.                                DATA        1719     A     
 DATA     *         (B7) =PNTI                                                             DATA        1720     A     
 DATA                                                                                      DATA        1721     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 953    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      CMV30    NZ     B2,CMV60    IF CONSTANT NOT TYPE CHARACTER                      DATA        1722     A     
 DATA               SX3    B6                                                              DATA        1723     A     
 DATA               LX5    -DI.DLENP                                                       DATA        1724     A     
 DATA               MX0    -DI.DLENL                                                       DATA        1725     A     
 DATA               BX7    X0*X5       CLEAR DLEN FIELD                                    DATA        1726     A     
 DATA               BX5    X7+X4       DLEN[DITI] = VARLEN                                 DATA        1727     A     
 DATA               LX5    DI.DLENP                                                        DATA        1728     A     
 DATA               CW     X1,X4       NWLEN = VARLEN / 10                                 DATA        1729     A     
 DATA               CW     X2,X3       OWLEN = CONLEN / 10                                 DATA        1730     A     
 DATA               IX7    X2-X1                                                           DATA        1731     A     
 DATA               SB6    X1          ELS = NWLEN                                         DATA        1732     A     
 DATA               PL     X7,EXIT.    IF OWLEN .GE. NWLEN                                 DATA        1733     A     
 DATA               BX7    -X7                                                             DATA        1734     A     
 DATA               SB5    X7          NWBLNK = NWLEN - OWLEN                              DATA        1735     A     
 DATA               SB6    X2          REMEMBER (B6) = OWLEN                               DATA        1736     A     
 DATA               SB3    X1          REMEMBER (B3) = NWLEN                               DATA        1737     A     
 DATA               SX4    B7          PNTI = PNT[DITI]                                    DATA        1738     A     
 DATA               ALLOC  T.CON,B3    ALLOCATATE FOR NEW CHAR CON                         DATA        1739     A     
 DATA                                                                                      DATA        1740     A     
 DATA               SB2    B7-B3       DEST = LWA(T.CHAR) - NWLEN                          DATA        1741     A     
 DATA               IX2    X1+X4       SOURCE = FWA(T.CHAR) + PNTI                         DATA        1742     A     
 DATA               MOVE   B6,X2,B2    COPY OVER THE OLD CONSTANT                          DATA        1743     A     
 DATA               SA1    =10H                                                            DATA        1744     A     
 DATA               SETMEM B2+B6,B5,X1 BLANK FILL                                          DATA        1745     A     
 DATA                                                                                      DATA        1746     A     
 DATA               SA1    T.CON                                                           DATA        1747     A     
 DATA               SB7    X1          SET (B7) .NE. 0                                     DATA        1748     A     
 DATA               SB6    B2-B7       NEWORD = DEST - FWA(T.CHAR)                         DATA        1749     A     
 DATA               SA2    T=CON                                                           DATA        1750     A     
 DATA               SX3    B3                                                              DATA        1751     A     
 DATA               IX6    X2-X3                                                           DATA        1752     A     
 DATA               SA6    A2          (T=CHAR) = (T=CHAR) - NWLEN                         DATA        1753     A     
 DATA               SB5    B3          REMEMBER (B5) = NWLEN                               DATA        1754     A     
 DATA               SB3    B2+B5       (B3) = DEST + NWLEN                                 DATA        1755     A     
 DATA               CALL   NCM                                                             DATA        1756     A     
 DATA               MI     B7,CMV40    IF NOT ALREADY IN TABLE                             DATA        1757     A     
 DATA               SB6    B7          NEW ORD = (B7)                                      DATA        1758     A     
 DATA               EQ     CMV50                                                           DATA        1759     A     
 DATA                                                                                      DATA        1760     A     
 DATA      CMV40    SA1    T=CON                                                           DATA        1761     A     
 DATA               SX6    X1+B5                                                           DATA        1762     A     
 DATA               SA6    A1          (T=CHAR) = (T=CHAR) + NWLEN                         DATA        1763     A     
 DATA                                                                                      DATA        1764     A     
 DATA     *         (B2) = NEW T.CHAR ORDINAL.                                             DATA        1765     A     
 DATA                                                                                      DATA        1766     A     
 DATA      CMV50    SX1    B6                                                              DATA        1767     A     
 DATA               MX0    -DI.PNTL                                                        DATA        1768     A     
 DATA               LX5    -DI.PNTP                                                        DATA        1769     A     
 DATA               BX5    X0*X5       CLEAR PNT FIELD                                     DATA        1770     A     
 DATA               BX5    X5+X1                                                           DATA        1771     A     
 DATA               LX5    DI.PNTP                                                         DATA        1772     A     
 DATA               =B3    0           INDICATE CHARACTER                                  DATA        1773     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 954    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EQ     EXIT.                                                           DATA        1774     A     
 DATA                                                                                      DATA        1775     A     
 DATA     *         CHARACTER AND SCALAR MIXED.  DO NOT CHANGE DESCRIPTOR.                 DATA        1776     A     
 DATA                                                                                      DATA        1777     A     
 DATA      CMV60    FATAL  E.AT13      ** CHAR AND OTHER MIXED                             DATA        1778     A     
 DATA               BX5    0           PNT = 0     /* FAKE UP RETURN                       DATA        1779     A     
 DATA               EQ     EXIT.                                                           DATA        1780     A     
 DATA      CPR      SPACE  4,10                                                            FC50570       32     A     
 DATA     **        CPR -  COMPLEX PARAMETER REFERENCE OUTPUT                              FC50570       33     A     
 DATA     *                                                                                FC50570       34     A     
 DATA     *         ENTRY  (X1) = SYMTAB ORDINAL                                           FC50570       35     A     
 DATA     *                                                                                FC50570       36     A     
 DATA     *         USES   X0,X1,X2,X5,X6  A1                                              FC50570       37     A     
 DATA     *                                                                                FC50570       38     A     
 DATA     *         CALLS  ERT                                                             FC50570       39     A     
 DATA                                                                                      FC50570       40     A     
 DATA                                                                                      FC50570       41     A     
 DATA      CPR      SUBR               ...ENTRY/EXIT...                                    FC50570       42     A     
 DATA               LX0    X1                                                              FC50570       43     A     
 DATA               LX0    XR.TAGP                                                         FC50570       44     A     
 DATA               SA1    REFVAR                                                          FC50570       45     A     
 DATA               SX2    B4                                                              FC50570       46     A     
 DATA               IX5    X5-X2       CONVERT ORIGINAL POSITION TO DIFFERENCE             FC50570       47     A     
 DATA               ADDREF X0,X1                                                           FC50570       48     A     
 DATA               SA3    B4          PROTECTION FOR TABLE MOVE IF IN STMT-FUN            FC50570       49     A     
 DATA               SX5    X5+B4       ORIGINAL POSITION (MAY BE UPDATED)                  FC50570       50     A     
 DATA               EQ     EXIT.                                                           FC50570       51     A     
 DATA      CRL      SPACE  4,10                                                            DATA        1781     A     
 DATA     **        CRL - CLOSE OUT REP LIST.                                              DATA        1782     A     
 DATA     *                                                                                DATA        1783     A     
 DATA     *         ENTRY  (A1, X1) = CLOSREP.                                             DATA        1784     A     
 DATA     *                (REPFLAG) =  24/ 0,  18/ OLDN,  18/ HDRI                        DATA        1785          I
          -FC5A132
 DATA     *                (REPFLAG) = 18/0, 24/OLDN, 18/HDRI                              FC5A132       61     A     
 DATA     *                OLDN = PREVIOUS (N.ITEM), BEFORE THIS REP BEGAN.                DATA        1786     A     
 DATA     *                HDRI = INDEX OF REP HEADER IN (T.DATI).                         DATA        1787     A     
 DATA     *                                                                                DATA        1788     A     
 DATA     *         EXIT   REP HEADER UPDATED.                                             DATA        1789     A     
 DATA     *                (N.ITEM) = TOTAL DATA ITEMS SO FOR, INCLUDING (OLDN),           DATA        1790          I
          -FC50336
 DATA     *                (N.ITEM) = TOTAL DATA ITEMS SO FAR, INCLUDING (OLDN),           FC50336        8     A     
 DATA     *                           PLUS THE NUMBER OF CONSTANTS GENERATED BY            DATA        1791     A     
 DATA     *                           THIS REP LIST.                                       DATA        1792     A     
 DATA     *                (CLOSREP) = 0.                                                  DATA        1793     A     
 DATA     *                (REPFLAG) = 0.                                                  DATA        1794     A     
 DATA     *         USES   A1,A2,A3,A6,A7  B3,B5,B7  X0,X1,X2,X3,X5,X6,X7                  FC50336        9     A     
 DATA     *                                                                                FC50336       10     A     
 DATA     *         CALLS  ALC, MVE=                                                       FC50336       11     A     
 DATA                                                                                      DATA        1795     A     
 DATA                                                                                      DATA        1796     A     
 DATA      CRL      SUBR               ENTRY/EXIT...                                       DATA        1797     A     
 DATA               SA2    REPFLAG                                                         DATA        1798     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 955    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA3    T.DATI                                                          DATA        1799     A     
 DATA               MX7    0                                                               DATA        1800     A     
 DATA               SA7    A1          (CLOSREP) = (REPFLAG) = 0                           DATA        1801     A     
 DATA               SA7    A2                                                              DATA        1802     A     
 DATA                                                                                      DATA        1803          I
          -FC50336
 DATA               IX6    X3+X2       HDRA = HDRI + (T.DATI)                              DATA        1804     A     
 DATA               SA1    X6          FETCH HEADER OF REP ENTRY                           DATA        1805          I
          -FC5A269
 DATA               SA1    X6-1        HDRA = DATI(HDRI)                                   FC5A269        5     A     
 DATA               SA3    N.ITEM      NI = NUMBER OF ITEMS IN REP LIST                    DATA        1806     A     
 DATA               LX1    -DI.RCP                                                         DATA        1807     A     
 DATA               AX2    DI.NDXP     OLDN                                                DATA        1808          I
          -FC5A132
 DATA               SX0    X1          RC = (DI.RC)                                        DATA        1809          I
          -FC5A132
 DATA               ERRNZ  18-DI.RCL                                                       DATA        1810          I
          -FC5A132
 DATA               AX2    18          OLDN                                                FC5A132       62     A     
 DATA               MX0    -DI.RCL                                                         FC5A132       63     A     
 DATA               BX0    -X0*X1      RC = (DI.RC)                                        FC5A132       64     A     
 DATA               IX6    X0*X3                                                           DATA        1811     A     
 DATA               IX7    X6+X2       (N.ITEM) = RC * NI + OLDN                           DATA        1812     A     
 DATA               SA7    A3                                                              DATA        1813     A     
 DATA               LX3    DI.RLP                                                          DATA        1814     A     
 DATA               BX6    X3+X1       (DI.RL) = NI                                        DATA        1815     A     
 DATA               SA2    T.DATI                                                          DATA        1816          I
          -FC5A132
 DATA               SA3    T=DATI                                                          DATA        1817          I
          -FC5A132
 DATA               IX2    X2+X3       NEXT = LWA+1 OF (T.DATI)                            DATA        1818          I
          -FC5A132
 DATA               SX0    A1                                                              DATA        1819          I
          -FC5A132
 DATA               IX7    X2-X0       (DI.NDX) = NEXT - HDRA                              DATA        1820          I
          -FC5A132
 DATA               LX7    DI.NDXP                                                         DATA        1821          I
          -FC5A132
 DATA               BX6    X7+X6       UPDATE REP HEADER                                   DATA        1822          I
          -FC5A132
 DATA               SA6    A1                                                              DATA        1823     A     
 DATA               EQ     EXIT.                                                           DATA        1824          I
          -FC50336
 DATA               LX3    -DI.RLP                                                         FC50336       12     A     
 DATA               BX5    X0                                                              FC50336       13     A     
 DATA               =B3    X3+1        NUMBER OF ITEMS + REPL HEADER                       FC50336       14     A     
 DATA                                                                                      FC50336       15     A     
 DATA     *                (X5)    = RC                                                    FC50336       16     A     
 DATA     *                (B3)    = RL                                                    FC50336       17     A     
 DATA     *                (A6,X6) = REPL HEADER (DI. FORMAT 1)                            FC50336       18     A     
 DATA                                                                                      FC50336       19     A     
 DATA      CRL1     SX1    MAX.REPL                                                        FC50336       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 956    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               IX0    X1-X5                                                           FC50336       21     A     
 DATA               PL     X0,EXIT.    IF LOADER REPLICATION LIMIT NOT EXCEEDED            FC50336       22     A     
 DATA                                                                                      FC50336       23     A     
 DATA     *         MUST SPLIT REPLICATION GROUP.  DUPLICATE THE GROUP (INCLUDING          FC50336       24     A     
 DATA     *         HEADER), EXCEPT DECREMENT RC-MAX.REPL.  LOOP UNTIL ALL GROUPS          FC50336       25     A     
 DATA     *         REPEAT COUNT .LE. MAX.REPL.                                            FC50336       26     A     
 DATA                                                                                      FC50336       27     A     
 DATA               MX0    -DI.RCL                                                         FC50336       28     A     
 DATA               LX6    -DI.RCP                                                         FC50336       29     A     
 DATA               BX6    X0*X6       CLEAR RC                                            FC50336       30     A     
 DATA               BX6    X6+X1       INSERT MAXIMUM VALUE                                FC50336       31     A     
 DATA               LX6    DI.RCP                                                          FC50336       32     A     
 DATA               SA6    A6+                                                             FC50336       33     A     
 DATA               IX5    X5-X1       DECREMENT FOR NEXT REP GROUP                        FC50336       34     A     
 DATA               ALLOC  T.DATI,B3                                                       FC50336       35     A     
 DATA               SX1    B3          COUNT                                               FC50336       36     A     
 DATA               SX3    B7-B3       DESTINATION                                         FC50336       37     A     
 DATA               SB7    B7-B3                                                           FC50336       38     A     
 DATA               SX2    B7-B3       SOURCE                                              FC50336       39     A     
 DATA               SB5    B7          (B5) _ HEADER WORD (NOT YET COPIED)                 FC50336       40     A     
 DATA               SX0    A4          SAVE A4                                             FC51073        8     A     
 DATA               MOVE   X1,X2,X3                                                        FC50336       41     A     
 DATA               SA4    X0          RESTORE A4                                          FC51073        9     A     
 DATA               SA1    B5          FETCH NEW HEADER                                    FC50336       42     A     
 DATA               MX0    -DI.RCL                                                         FC50336       43     A     
 DATA               LX1    -DI.RCP                                                         FC50336       44     A     
 DATA               BX1    X1*X0       CLEAR DI.RC                                         FC50336       45     A     
 DATA               BX6    X1+X5       MERGE IN REMAINDER COUNT                            FC50336       46     A     
 DATA               LX6    DI.RCP                                                          FC50336       47     A     
 DATA               SA6    A1          UPDATE                                              FC50336       48     A     
 DATA               EQ     CRL1                                                            FC50336       49     A     
 DATA      CRC      SPACE  4,10                                                            DATA        1825     A     
 DATA     **        CRC -  CHECK REPEAT CONSTANT.                                          DATA        1826     A     
 DATA     *                                                                                DATA        1827     A     
 DATA     *                CHECKS CONSTANT FOR PROPER TYPE (INTEGER OR OCTAL )             DATA        1828     A     
 DATA     *                AND MAGNITUDE ( 0 < CON < 2**17 )                               DATA        1829          I
          -FC5A132
 DATA     *                AND MAGNITUDE ( 0 < CON < 2**24 )                               FC5A132       65     A     
 DATA     *                                                                                DATA        1830     A     
 DATA     *         ENTRY  (X5) = CONSTANT                                                 DATA        1831     A     
 DATA     *                (X1) = MODE OF CONSTANT                                         DATA        1832     A     
 DATA     *                                                                                DATA        1833     A     
 DATA     *         EXIT   (X6) = CONVERTED CONSTANT VALUE.                                DATA        1834     A     
 DATA     *         USES   X5,B2                                                           DATA        1835     A     
 DATA                                                                                      DATA        1836     A     
 DATA                                                                                      DATA        1837     A     
 DATA      CRC      SUBR               ENTRY/EXIT...                                       DATA        1838     A     
 DATA               BX6    X5                                                              DATA        1839     A     
 DATA               ZR     X5,E.DCE    IF .EQ. 0                                           DATA        1840     A     
 DATA               AX5    17                                                              DATA        1841          I
          -FC5A132
 DATA               AX5    24                                                              FC5A132       66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 957    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SB2    X1-M.INT                                                        DATA        1842     A     
 DATA               NZ     X5,E.DCE    IF .GT. 2**17-1                                     DATA        1843          I
          -FC5A132
 DATA               NZ     X5,E.DCE    IF .GT. 2**24-1                                     FC5A132       67     A     
 DATA               ZR     X1,EXIT.    IF BOOLEAN TYPE                                     DATA        1844          I
          -FC5A304
 DATA               ERRNZ  M.BOOL                                                          DATA        1845          I
          -FC5A304
 DATA               ZR     B2,EXIT.    IF INTEGER TYPE                                     DATA        1846     A     
 DATA               EQ     E.DCE       ILLEGAL TYPE                                        DATA        1847     A     
 DATA      CSC      SPACE  4,10                                                            DATA        1848     A     
 DATA     **        CSC -  CHECK FOR SYMBOLIC CONSTANT.                                    DATA        1849     A     
 DATA     *                                                                                DATA        1850     A     
 DATA     *         ENTRY  (A4) -> O.VAR TOKEN.                                            DATA        1851          I
          -FC5A231
 DATA     *         ENTRY  (B4) _ O.VAR TOKEN                                              FC5A231       53     A     
 DATA     *                (X4) = O.VAR TOKEN                                              FC5A231       54     A     
 DATA     *                                                                                DATA        1852     A     
 DATA     *         EXIT   (B7) .MI. = VAR IS NOT A SYMBOLIC CONSTANT.                     DATA        1853     A     
 DATA     *                (A4) PRESERVED.                                                 DATA        1854          I
          -FC5A231
 DATA     *                (B4) _ LAST TOKEN OF SUPPOSED SYMBOLIC CONSTANT                 FC5A231       55     A     
 DATA     *                                                                                DATA        1855     A     
 DATA     *         ELSE   (B7) .PL. = VAR IS A SYMBOLIC CONSTANT.                         DATA        1856     A     
 DATA     *                (X0) = SYMORD OF THE SYMBOLIC CONSTANT (S.C.).                  DATA        1857     A     
 DATA     *                (X1) = MODE OF CONSTANT.                                        DATA        1858     A     
 DATA     *                (X6) = VALUE OF SYMBOLIC CONSTANT (S.C.)                        DATA        1859     A     
 DATA     *                (X4) = (X6)       **** TEMP (FOR DECL/LVL) ****                 DATA        1860          I
          -FC5A231
 DATA     *                (A3) -> T.SYM (WC.) WORD OF S.C.                                DATA        1861          I
          -FC5A231
 DATA     *                (A4) -> FINAL TOKEN OF THE NAME.                                DATA        1862          I
          -FC5A231
 DATA     *                (A3) _ T.SYM (WC.) OF (S.C.)                                    FC5A231       56     A     
 DATA     *                (B3) = CONSTANT TABLE POINTER OF S.C.                           DATA        1863     A     
 DATA     *                                                                                DATA        1864     A     
 DATA     *         USES   A1-4,6-7.  X0-4,6-7.  B2-3,7.                                   DATA        1865          I
          -FC5A231
 DATA     *         CALLS  SSY.                                                            DATA        1866          I
          -FC5A231
 DATA     *         USES   A1-3,6-7  X0-3,6-7  B2-3,7                                      FC5A231       57     A     
 DATA     *                                                                                FC5A231       58     A     
 DATA     *         CALLS  SSY, TLV                                                        FC5A231       59     A     
 DATA                                                                                      DATA        1867     A     
 DATA                                                                                      DATA        1868     A     
 DATA      CSC      SUBR   =           ENTRY/EXIT.                                         DATA        1869     A     
 DATA               MX1    TB.TOCL                                                         DATA        1870          I
          -FC5A231
 DATA               SA1    A4+1                                                            FC5A231       60     A     
 DATA               SX1    X1-O.VAR                                                        FC5A231       61     A     
 DATA               NZ     X1,CSC1     IF NOT LONG NAME                                    FC5A231       62     A     
 DATA               CALL   TLV         TRUNCATE LONG NAME                                  FC5A231       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 958    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX6    B4+1                                                            FC5A231       64     A     
 DATA               SA6    SELIST      UPDATE TO REFLECT LONG NAME                         FC5A231       65     A     
 DATA                                                                                      FC5A231       66     A     
 DATA      CSC1     MX1    TB.TOCL                                                         FC5A231       67     A     
 DATA               BX6    X1*X4                                                           DATA        1871     A     
 DATA               CALL   SSY         SCAN SYMBOL TABLE                                   DATA        1872     A     
 DATA               MI     B7,EXIT.    IF NOT IN TABLE                                     DATA        1873     A     
 DATA     ** FV            MUST MAKE ADDREF CALL.                                          DATA        1874          I
          -FC5A231
 DATA               SA1    REFVAR                                                          FC5A231       68          I
          -FC50570
 DATA               LX0    XR.TAGP                                                         FC5A231       69          I
          -FC50570
 DATA               SX6    B7          PRESERVE ACROSS ERT                                 FC5A231       70          I
          -FC50570
 DATA               SA6    CSCA                                                            FC5A231       71          I
          -FC50570
 DATA               SX2    B4                                                              FC50437        7          I
          -FC50570
 DATA               IX5    X5-X2       CONVERT ORIGINAL POSITION TO DIFFERENCE             FC50437        8          I
          -FC50570
 DATA               ADDREF X0,X1                                                           FC5A231       72          I
          -FC50570
 DATA               SB4    B4          PROTECTION FOR TABLE MOVE IF IN STMT-FUN            FC50437        9          I
          -FC50570
 DATA               SX5    X5+B4       REVERT TO ORIGINAL POSTION (MAY BE UPDATED)         FC50437       10          I
          -FC50570
 DATA               SA1    T.SYM                                                           FC5A231       73          I
          -FC50570
 DATA               SA2    CSCA        FETCH SAVED INDEX                                   FC5A231       74          I
          -FC50570
 DATA               SB7    X2                                                              FC5A231       75          I
          -FC50570
 DATA               SA2    X1+B7                                                           FC5A231       76          I
          -FC50570
 DATA               HX2    WB.PARM                                                         DATA        1875     A     
 DATA               SB7    -B1         INDICATE FAILURE                                    DATA        1876     A     
 DATA               PL     X2,EXIT.    IF NOT PARAMETER                                    DATA        1877     A     
 DATA                                                                                      DATA        1878          I
          -FC50437
 DATA               LX2    1+WB.PARMP-WB.MODEP                                             DATA        1879     A     
 DATA               SB7    B0          INDICATE SUCCESS                                    DATA        1880     A     
 DATA               =A3    A2-WB.W+WC.W      WCI = WC ENTRY OF T.SYM                       DATA        1881     A     
 DATA               MX1    -WB.MODEL                                                       DATA        1882     A     
 DATA               BX1    -X1*X2      MODEI = MODE[WBI]                                   DATA        1883     A     
 DATA               LX3    -WC.RAP                                                         DATA        1884     A     
 DATA               SB3    X3          PNT = RA[WCI]                                       DATA        1885     A     
 DATA               ERRNZ  18-DI.PNTL                                                      DATA        1886     A     
 DATA               SA2    T.CON                                                           DATA        1887     A     
 DATA               SA2    B3+X2       VALUE = T.CON(PNT)                                  DATA        1888     A     
 DATA               BX6    X2                                                              DATA        1889     A     
 DATA               LX4    X6          **** TEMP ****                                      DATA        1890          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 959    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
          -FC5A231
 DATA               EQ     EXIT.                                                           DATA        1891     A     
 DATA                                                                                      FC5A231       77          I
          -FC50570
 DATA      CSCA     BSS    1           SAVE SYMTAB INDEX                                   FC5A231       78          I
          -FC50570
 DATA      GNI      SPACE  4,10                                                            DATA        1892     A     
 DATA     **        GNI - GET NEXT ITEM.                                                   DATA        1893     A     
 DATA     *                                                                                DATA        1894     A     
 DATA     *         EXIT   (A5, X5) = ADDRESS AND CONTENTS OF NEXT ITEM DESCRIPTOR         DATA        1895     A     
 DATA     *                            FROM (T.DATI).                                      DATA        1896     A     
 DATA     *         (REPFLAG), (I.DIT) UPDATED.                                            DATA        1897     A     
 DATA                                                                                      DATA        1898     A     
 DATA                                                                                      DATA        1899     A     
 DATA      GNI      SUBR               ENTRY/EXIT...                                       DATA        1900     A     
 DATA               SA1    I.DIT                                                           DATA        1901     A     
 DATA               SA2    T.DATI                                                          DATA        1902     A     
 DATA               IX6    X1+X2                                                           DATA        1903     A     
 DATA               SA5    X6          NEXT WORD                                           DATA        1904     A     
 DATA               SA2    A1+B1       REP COUNT REMAINDER                                 DATA        1905     A     
 DATA               HX5    DI.REP                                                          DATA        1906     A     
 DATA               PL     X5,GNI1     IF NOT THE START OF A REP LIST                      DATA        1907     A     
 DATA                                                                                      DATA        1908     A     
 DATA     **        INITIALIZE REP LIST PROCESSING                                         DATA        1909     A     
 DATA                                                                                      DATA        1910     A     
 DATA               BX6    X5                                                              DATA        1911     A     
 DATA               SX7    X1+B1                                                           DATA        1912     A     
 DATA               SA6    REPFLAG                                                         DATA        1913     A     
 DATA               SA7    A2+B1       SAVE ORDINAL OF REP LIST START                      DATA        1914     A     
 DATA               LX6    -DI.RLP                                                         DATA        1915     A     
 DATA               SX7    X6                                                              DATA        1916     A     
 DATA               ERRNZ  18-DI.RLL                                                       DATA        1917     A     
 DATA               BX7    -X7         SET REMAINDER = - (N.ITEMS IN REP LIST)             DATA        1918     A     
 DATA               SA7    A2                                                              DATA        1919     A     
 DATA               BX2    X7                                                              DATA        1920     A     
 DATA               SA5    A5+B1       FETCH (X5) = FIRST DATA ITEM DESCRIPTOR             DATA        1921     A     
 DATA               SX1    X1+B1       INDEX += 1    /* ADVANCE PAST REP WORD              DATA        1922     A     
 DATA                                                                                      DATA        1923     A     
 DATA     *         ADVANCE (I.DIT) TO POINT TO NEXT ITEM, AND THEN SEE IF WE              DATA        1924     A     
 DATA     *         ARE IN A REP LIST.                                                     DATA        1925     A     
 DATA                                                                                      DATA        1926     A     
 DATA      GNI1     SX0    B1                                                              DATA        1927     A     
 DATA               IX7    X0+X1       INDEX += 1                                          DATA        1928     A     
 DATA               SA7    A1                                                              DATA        1929     A     
 DATA               ZR     X2,EXIT.    IF NO REPETITION                                    DATA        1930     A     
 DATA               SX7    X2+B1       REMAINDER += 1                                      DATA        1931     A     
 DATA               SA7    A2                                                              DATA        1932     A     
 DATA               NZ     X7,EXIT.    IF MORE TO GO                                       DATA        1933     A     
 DATA                                                                                      DATA        1934     A     
 DATA     *         DECREMENT REP COUNT, GO BACK TO START OF REP LIST                      DATA        1935     A     
 DATA     *         IF RC NOT EXHAUSTED.                                                   DATA        1936     A     
 DATA                                                                                      DATA        1937     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 960    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA3    REPFLAG                                                         DATA        1938     A     
 DATA               SX0    B1                                                              DATA        1939     A     
 DATA               LX3    -DI.RCP                                                         DATA        1940     A     
 DATA               IX7    X3-X0       RC -= 1                                             DATA        1941     A     
 DATA               SB7    X7                                                              DATA        1942          I
          -FC5A132
 DATA               ERRNZ  18-DI.RCL                                                       DATA        1943          I
          -FC5A132
 DATA               MX0    -DI.RCL                                                         FC5A132       68     A     
 DATA               BX0    -X0*X7                                                          FC5A132       69     A     
 DATA               LX7    DI.RCP                                                          DATA        1944     A     
 DATA               SA7    A3                                                              DATA        1945     A     
 DATA               ZR     B7,GNI2     IF (DI.RC) = 0 THEN FINISHED                        DATA        1946          I
          -FC5A132
 DATA               ZR     X0,GNI2     IF (DI.RC) = 0 THEN FINISHED                        FC5A132       70     A     
 DATA               LX3    DI.RCP-DI.RLP                                                   DATA        1947     A     
 DATA               SX7    X3                                                              DATA        1948     A     
 DATA               ERRNZ  18-DI.RLL                                                       DATA        1949     A     
 DATA               BX7    -X7         REMAINDER = - (DI.RL)                               DATA        1950     A     
 DATA               SA7    A2                                                              DATA        1951     A     
 DATA               SA4    A2+B1       OF = ORDINAL OF FIRST DATA ITEM IN REP LIST         DATA        1952     A     
 DATA               BX7    X4                                                              DATA        1953     A     
 DATA               SA7    A1          (I.DIT+0) = OF    /* RESET FOR NEXT ENTRY           DATA        1954     A     
 DATA               EQ     EXIT.                                                           DATA        1955     A     
 DATA                                                                                      DATA        1956     A     
 DATA      GNI2     BX7    0                                                               DATA        1957     A     
 DATA               SA7    A7          (REPFLAG) = 0     /* INDICATE REP LIST OVER         DATA        1958     A     
 DATA               EQ     EXIT.                                                           DATA        1959     A     
 DATA      MDL      EJECT  MDL - MATCH DATA LISTS                                          DATA        1960     A     
 DATA     **        MDL - MATCH DATA LISTS.                                                DATA        1961     A     
 DATA     *                                                                                DATA        1962     A     
 DATA     *         MATCHS A (SET OF) ELEMENT(S) TO DATA ITEM LIST.                        DATA        1963     A     
 DATA     *                                                                                DATA        1964     A     
 DATA     *         ENTRY  (X5) = NUMBER OF EXPLICIT LOOPS.                                DATA        1965     A     
 DATA     *                (DVI) AND SUBSCRIPT INFO BLOCK SET UP BY BVT.                   DATA        1966     A     
 DATA     *                (BIAS) = CONSTANT SUBSCRIPT CONTRIBUTION.                       DATA        1967     A     
 DATA     *                LOOP AND SUBSCRIPT INFO SET UP.                                 DATA        1968     A     
 DATA     *                                                                                DATA        1969     A     
 DATA     *         CALLS  GNI, NIC, OSH, OVI, UPH.                                        DATA        1970     A     
 DATA                                                                                      DATA        1971     A     
 DATA                                                                                      DATA        1972     A     
 DATA               LIST   -F                                                              DATA        1973     A     
 DATA      .MDL     SKIP               **** FOLLOWING OBSOLETE ****                        DATA        1974     A     
 DATA                                                                                      DATA        1975     A     
 DATA      MDL      SUBR               ENTRY/EXIT...                                       DATA        1976     A     
 DATA               SA4    N.ITEM      NUMBER OF ITEMS LEFT IN DATA LIST                   DATA        1977     A     
 DATA               SX6    X4-1                                                            DATA        1978     A     
 DATA               PL     X6,MDL10    IF (N.ITEM) .GT. 0                                  DATA        1979     A     
 DATA               SA6    A4                                                              DATA        1980     A     
 DATA               EQ     EXIT.                                                           DATA        1981     A     
 DATA                                                                                      DATA        1982     A     
 DATA      MDL10    SA2    DVI+V1.W                                                        DATA        1983     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 961    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               MX3    -V1.NELL                                                        DATA        1984     A     
 DATA               MX7    0                                                               DATA        1985     A     
 DATA               SA7    ORGN        ORGN = 0          /* INDICATE ORG NEEDED            DATA        1986     A     
 DATA               LX2    -V1.NELP                                                        DATA        1987     A     
 DATA               BX7    -X3*X2      NELI = NUMBER OF ELEMENTS TO BE INITIALIZED         DATA        1988     A     
 DATA               =X3    2                                                               DATA        1989     A     
 DATA               IX3    X7-X3                                                           DATA        1990     A     
 DATA               NZ     X5,MDL40    IF EXPLICIT LOOPS                                   DATA        1991     A     
 DATA               PL     X3,MDL20    IF NOT A SINGLE ELEMENT                             DATA        1992     A     
 DATA                                                                                      DATA        1993     A     
 DATA     *         PROCESS A SINGLE ELEMENT                                               DATA        1994     A     
 DATA                                                                                      DATA        1995     A     
 DATA               SA3    BIAS                                                            DATA        1996     A     
 DATA               SA6    A4          UPDATE N.ITEM                                       DATA        1997     A     
 DATA               RJ     OSH         OUTPUT SCALAR HEADER                                DATA        1998     A     
 DATA               RJ     GNI         GET NEXT ITEM                                       DATA        1999     A     
 DATA               RJ     OVI         OUTPUT VALUE OF ITEM                                DATA        2000     A     
 DATA               RJ     UPH         UPDATE PREVIOUS HEADER                              DATA        2001     A     
 DATA               EQ     EXIT.                                                           DATA        2002     A     
 DATA                                                                                      DATA        2003     A     
 DATA     *         PROCESS REFERENCE TO ARRAY SLICE --                                    DATA        2004     A     
 DATA     *                (ARY (I + BIAS), I=1, TC)                                       DATA        2005     A     
 DATA     *         ENTRY  (X7) = TC                                                       DATA        2006     A     
 DATA                                                                                      DATA        2007     A     
 DATA      MDL20    SX6    B1          DA = 1      /* ADDRESS DIFFERENCE                   DATA        2008     A     
 DATA               SA5    BIAS                                                            DATA        2009     A     
 DATA      MDL30    RJ     NIC         OUTPUT INITIALIZATION CODE                          DATA        2010     A     
 DATA               EQ     EXIT.                                                           DATA        2011     A     
 DATA                                                                                      DATA        2012     A     
 DATA     **        PROCESS EXPLICIT DO INDEXING.                                          DATA        2013     A     
 DATA                                                                                      DATA        2014     A     
 DATA                                                                                      DATA        2015     A     
 DATA      MDL40    SB4    X5          B4 = NUMBER OF LOOPS                                DATA        2016     A     
 DATA               GT     B4,B1,MDL50 IF MORE THAN 1 LOOP                                 DATA        2017     A     
 DATA               SA2    LPINF       LPI = (LPINF)                                       DATA        2018     A     
 DATA               LX2    -LP.TCP                                                         DATA        2019     A     
 DATA               SX7    X2          TRIP COUNT = TC[LPI]                                DATA        2020     A     
 DATA               ERRNZ  18-LP.TCL                                                       DATA        2021     A     
 DATA               LX2    LP.TCP-LP.MP                                                    DATA        2022     A     
 DATA               SX3    X2          M = M[LPI]                                          DATA        2023     A     
 DATA               ERRNZ  18-LP.ML                                                        DATA        2024     A     
 DATA               LX2    LP.MP-LP.PP                                                     DATA        2025     A     
 DATA               SB2    X2          P = P[LPI]                                          DATA        2026     A     
 DATA               ERRNZ  18-LP.PL                                                        DATA        2027     A     
 DATA               SA4    B2+DPROD    PROD = DPROD(P)                                     DATA        2028     A     
 DATA               SA1    B2+DLOB     LB = DLOB(P)                                        DATA        2029     A     
 DATA               SA5    BIAS                                                            DATA        2030     A     
 DATA               IX6    X3*X4       DA = M * PROD                                       DATA        2031     A     
 DATA               IX4    X4*X1       = PROD*LB                                           DATA        2032     A     
 DATA               IX0    X6-X4       = DA - PROD*LB                                      DATA        2033     A     
 DATA               IX5    X0+X5       BIAS = BIAS + DA - PROD*LB                          DATA        2034     A     
 DATA               EQ     MDL30                                                           DATA        2035     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 962    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        2036     A     
 DATA                                                                                      DATA        2037     A     
 DATA     **        IRREDUCEABLE NEST OF LOOPS                                             DATA        2038     A     
 DATA                                                                                      DATA        2039     A     
 DATA      MDL50    SA2    LPINF       LPF = (LPINF)                                       DATA        2040     A     
 DATA               LX2    -LP.MP                                                          DATA        2041     A     
 DATA               SX3    X2          M = M[LPF]                                          DATA        2042     A     
 DATA               ERRNZ  18-LP.ML                                                        DATA        2043     A     
 DATA               LX2    LP.MP-LP.PP                                                     DATA        2044     A     
 DATA               SB2    X2          P = P[LPF]                                          DATA        2045     A     
 DATA               ERRNZ  18-LP.PL                                                        DATA        2046     A     
 DATA               SA4    B2+DPROD    PROD = DPROD(P)                                     DATA        2047     A     
 DATA               SA1    B2+DLOB     LB = DLOB(P)                                        DATA        2048     A     
 DATA               IX7    X3*X4       DA = DM(P) * M(P)                                   DATA        2049     A     
 DATA               IX1    X4*X1       = PROD*LB                                           DATA        2050     A     
 DATA               SA7    DA          (DA) = DA                                           DATA        2051     A     
 DATA               SA5    BIAS                                                            DATA        2052     A     
 DATA               IX0    X7-X1       = DA - PROD*LB                                      DATA        2053     A     
 DATA               IX7    X0+X5                                                           DATA        2054     A     
 DATA               SA7    A5          (BIAS) = BIAS + DA - PROD*LB                        DATA        2055     A     
 DATA               =X6    1                                                               DATA        2056     A     
 DATA               SETMEM LI,MAX.DIM,X6     INITIALIZE LOOP INDEXES                       DATA        2057     A     
 DATA                                                                                      DATA        2058     A     
 DATA     *         CALCULATE BIAS.                                                        DATA        2059     A     
 DATA                                                                                      DATA        2060     A     
 DATA      MDL60    SA4    N.VSUB                                                          DATA        2061     A     
 DATA               SA5    BIAS                                                            DATA        2062     A     
 DATA               SB5    B1          J = 1                                               DATA        2063     A     
 DATA               SB2    X4          (B2) = (N.VSUB)                                     DATA        2064     A     
 DATA               MX7    0                                                               DATA        2065     A     
 DATA               SA7    ORGN        (ORGN) = 0  */INDICATE ORG NEEDED                   DATA        2066     A     
 DATA                                                                                      DATA        2067     A     
 DATA      MDL70    SA1    LPINF+B5    LPJ = LPINF(J)                                      DATA        2068     A     
 DATA               LX1    -LP.MP                                                          DATA        2069     A     
 DATA               SX2    X1          M = M[LPJ]                                          DATA        2070     A     
 DATA               ERRNZ  18-LP.ML                                                        DATA        2071     A     
 DATA               LX1    LP.MP-LP.PP                                                     DATA        2072     A     
 DATA               SB3    X1          P = P[LPJ]                                          DATA        2073     A     
 DATA               SA3    LI+B5       LIJ = LI(J)                                         DATA        2074     A     
 DATA               SA1    B3+DPROD    PROD = DPROD(P)                                     DATA        2075     A     
 DATA               SA4    B3+DLOB     LB = DLOB(P)                                        DATA        2076     A     
 DATA               IX3    X2*X3       = M*LIJ                                             DATA        2077     A     
 DATA               IX2    X1*X4       = PROD*LB                                           DATA        2078     A     
 DATA               IX6    X1*X3       = PROD * M * LIJ                                    DATA        2079     A     
 DATA               IX0    X6-X2       = PROD* (M*LIJ - LB)                                DATA        2080     A     
 DATA               SB5    B5+B1       J = J + 1                                           DATA        2081     A     
 DATA               IX5    X5+X0       BIAS = BIAS + PROD* (M*LIJ -LB)                     DATA        2082     A     
 DATA               LT     B5,B2,MDL70 IF MORE VARIABLE SUBSCRIPT TO GO                    DATA        2083     A     
 DATA                                                                                      DATA        2084     A     
 DATA               SA1    DA                                                              DATA        2085     A     
 DATA               SA2    LPINF       LPF = (LPINF)                                       DATA        2086     A     
 DATA               BX6    X1          DA = ADDRESS DIFFERENCE                             DATA        2087     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 963    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               AX2    LP.TCP                                                          DATA        2088     A     
 DATA               SX7    X2          TRIP COUNT = TC[LPF]                                DATA        2089     A     
 DATA               ERRNZ  18-LP.TCL                                                       DATA        2090     A     
 DATA               RJ     NIC         MATCH UP LISTS                                      DATA        2091     A     
 DATA                                                                                      DATA        2092     A     
 DATA     *         INCREMENT INDICES.                                                     DATA        2093     A     
 DATA                                                                                      DATA        2094     A     
 DATA               SA4    N.VSUB                                                          DATA        2095     A     
 DATA               SB5    B1          J = 1                                               DATA        2096     A     
 DATA               SB2    X4          LIMIT = (N.VSUB)        /* NUMBER OF LOOPS          DATA        2097     A     
 DATA                                                                                      DATA        2098     A     
 DATA      MDL80    SA1    LI+B5       LIJ = LI(J)                                         DATA        2099     A     
 DATA               SA2    LPINF+B5    LPJ = LPINF(J)                                      DATA        2100     A     
 DATA               SX6    X1+B1                                                           DATA        2101     A     
 DATA               AX2    LP.TCP                                                          DATA        2102     A     
 DATA               SX3    X2          TCJ = TC[LPJ]                                       DATA        2103     A     
 DATA               ERRNZ  18-LP.TCL                                                       DATA        2104     A     
 DATA               SA6    A1          (LIJ) = (LIJ) + 1                                   DATA        2105     A     
 DATA               IX0    X1-X3       = LIJ - TCJ                                         DATA        2106     A     
 DATA               MI     X0,MDL90    IF LIJ .LT. TCJ                                     DATA        2107     A     
 DATA               SX6    B1                                                              DATA        2108     A     
 DATA               SA6    A6          (LIJ) = 1                                           DATA        2109     A     
 DATA               SB5    B5+B1       J = J + 1                                           DATA        2110     A     
 DATA               LT     B5,B2,MDL80 IF J .LT. (N.VSUB) -- LOOP                          DATA        2111     A     
 DATA               EQ     EXIT.                                                           DATA        2112     A     
 DATA                                                                                      DATA        2113     A     
 DATA      MDL90    SA1    N.ITEM                                                          DATA        2114     A     
 DATA               SX2    X1-1                                                            DATA        2115     A     
 DATA               PL     X2,MDL60    IF MORE ITEMS TO GO                                 DATA        2116     A     
 DATA               EQ     EXIT.                                                           DATA        2117     A     
 DATA                                                                                      DATA        2118     A     
 DATA      .MDL     ENDIF                                                                  DATA        2119     A     
 DATA               LIST   *                                                               DATA        2120     A     
 DATA               SPACE  4,10                                                            DATA        2121     A     
 DATA               LIST   D                                                               DATA        2122     A     
 DATA                                                                                      DATA        2123     A     
 DATA      .FIX     EQU    --  TEMP SCAFFOLD FOR NEW MCQ CODE.                             DATA        2124     A     
 DATA      .MQ      IF     -DEF,C=DVL                                                      DATA        2125     A     
 DATA      C=DVL    BSSENT 0                                                               DATA        2126     A     
 DATA      EDI      BSSENT 0                                                               DATA        2127     A     
 DATA               EQ     "BLOWUP"                                                        DATA        2128     A     
 DATA      .MQ      ENDIF                                                                  DATA        2129     A     
 DATA               END                                                                    DATA        2130     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DATA    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DATA                      2130      1977
          FC5A111                     14        14
          FC5A132                     13        13
          FC5A147                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 964    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
          FC5A152                     12        11
          FC5A174                      1         0
          FC5A218                      3         3
          FC5A231                     40        28
          FC5A258                      9         8
          FC5A264                      7         7
          FC5A266                      7         7
          FC5A269                      2         2
          FC5A304                      8         8
          FC50104                      2         2
          FC50180                     20        19
          FC50336                     42        42
          FC50437                      4         0
          FC50554                      4         4
          FC50570                     45        45
          FC51073                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *DECK     DECL                                                                   DECL           1     A     
 DECL               IDENT  DECL                                                            DECL           2     A     
 DECL      DECL     SECT   (DECLARATIVE PHASE STATEMENTS.)                                 DECL           3     A     
 DECL      DECL     SPACE  4                                                               DECL           4     A     
 DECL     *         IN ALLOC                                                               DECL           5     A     
 DECL               EXT    ADW,ALC                                                         DECL           6          I
          -FC50958
 DECL               EXT    ADW,ADWT,ALC                                                    FC50958        9     A     
 DECL                                                                                      DECL           7     A     
 DECL     *         IN CONRED                                                              DECL           8     A     
 DECL               EXT    GPS,NCS                                                         DECL           9     A     
 DECL                                                                                      DECL          10     A     
 DECL     *         IN DATA                                                                DECL          11     A     
 DECL               EXT    CSC,CMV                                                         DECL          12     A     
 DECL                                                                                      DECL          13     A     
 DECL     *         IN FEC                                                                 DECL          14     A     
 DECL               EXT    ARGCOMA,ARGMODE,CCT,CT1,ERT,ESY,FEC=STF,FEC.RTN,INN,NCM         DECL          15     A     
 DECL               EXT    PARMODE,REFVAR,SCSA,SCS,SCT,SLT,SSY,STAGE,STY,TLV,TRV           DECL          16          I
          -FC5A225
 DECL               EXT    PARAMC,PARMODE,REFVAR,SCSA,SCS,SCT,SLT,SSY,STAGE,TLV            FC5A225       12          I
          -FC50570
 DECL               EXT    TRV                                                             FC5A225       13          I
          -FC50570
 DECL               EXT    WANFP                                                           FC5A192       59          I
          -FC50570
 DECL               EXT    PARAMC,PARMODE,REFVAR,SCSA,SCS,SCT,SLT,SSY,STAGE,STY            FC50570       52     A     
 DECL               EXT    TLV,TRV,WANFP                                                   FC50570       53     A     
 DECL                                                                                      DECL          17     A     
 DECL     *         IN FERRS                                                               DECL          18     A     
 DECL               EXT    E.ANS,E.ANS2,E.AT16,E.CM,E.CM1,E.CM2,E.CM3,E.CM5,E.CM6          DECL          19     A     
 DECL               EXT    E.CM9,E.CM10,E.CM11,E.CM12,E.DM00,E.DM02,E.DM05,E.DM06          DECL          20     A     
 DECL               EXT    E.DM07,E.DM08,E.DM09,E.DM10,E.DM12,E.DM13,E.DM15,E.DM16         DECL          21     A     
 DECL               EXT    E.DM19,E.DM20,E.EQ,E.EQ1,E.EQ2,E.EQ3,E.EQ4,E.EQ6,E.EQ7          DECL          22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 965    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               EXT    E.EQ8,E.EQ10,E.EQ11,E.EQ12,E.EQ13,E.EQ14,E.EQ15,E.EQ16          DECL          23     A     
 DECL               EXT    E.EQ17,E.EX1,E.EX2,E.EX3,E.EX4,E.IN,E.IN1,E.IN2,E.IN3           DECL          24     A     
 DECL               EXT    E.IN4,E.LV1,E.LV2,E.LV3,E.LV4,E.LV5,E.LV6,E.LV7,E.LV8           DECL          25          I
          -FC5A278
 DECL               EXT    E.LV9,E.MR2,E.MR3,E.PX2,E.PX3,E.PX4,E.PX5,E.SA,E.SA1            DECL          26          I
          -FC5A278
 DECL               EXT    E.SA2,E.SA3,E.SA4,E.SA5,E.SA6,E.ST,E.ST1,E.TY,E.VA08            DECL          27          I
          -FC5A278
 DECL               EXT    E.VA09,FILL.,FILL.2                                             DECL          28          I
          -FC5A278
 DECL               EXT    E.IN4,E.LV1,E.LV2,E.LV3,E.LV4,E.LV5,E.LV7,E.LV8,E.LV9           FC5A278        8     A     
 DECL               EXT    E.MR2,E.MR3,E.PX2,E.PX3,E.PX4,E.PX5,E.PX8,E.SA,E.SA1            FC5A278        9     A     
 DECL               EXT    E.SA2,E.SA3,E.SA4,E.SA5,E.SA6,E.ST,E.ST1,E.TY,E.VA09            FC5A278       10     A     
 DECL               EXT    FILL.,FILL.2                                                    FC5A278       11     A     
 DECL                                                                                      DECL          29     A     
 DECL     *         IN FSNAP                                                               DECL          30     A     
 DECL               EXT    DMT=                                                            DECL          31     A     
 DECL                                                                                      DECL          32     A     
 DECL     *         IN FTN                                                                 DECL          33     A     
 DECL               EXT    CO.DBPM,CO.LCM,CO.SNAP                                          DECL          34          I
          -FC50570
 DECL               EXT    CO.DBPM,CO.LCM,CO.SNAP,CO.TMLC                                  FC50570       54          I
          -FC5A444
 DECL               EXT    CO.AL,CO.DBPM,CO.LCM,CO.SNAP,CO.TMLC                            FC5A444      108     A     
 DECL                                                                                      DECL          35     A     
 DECL     *         IN LEX                                                                 DECL          36     A     
 DECL               EXT    TB=TYPE                                                         DECL          37     A     
 DECL                                                                                      DECL          38          I
          -FC50110
 DECL     *         IN LABEL                                                               DECL          39          I
          -FC50110
 DECL               EXT    PSL                                                             DECL          40          I
          -FC50110
 DECL                                                                                      DECL          41     A     
 DECL     *         IN PAR                                                                 DECL          42     A     
 DECL               EXT    EMT,LBARM,PAR,PAREXIT,UBARM,VD.EQ,VD.GP,VD.MI,VD.PL             DECL          43     A     
 DECL               EXT    ERROP,PIX,PKX,VD.MU                                             DECL          44     A     
 DECL                                                                                      DECL          45     A     
 DECL     *         IN PEM                                                                 DECL          46     A     
 DECL               EXT    ANSI=,PDM                                                       DECL          47     A     
 DECL                                                                                      DECL          48     A     
 DECL     *         IN PUC                                                                 DECL          49     A     
 DECL               EXT    BLNKCOM,CHARDCL,CONONE,E=TOTAL,LEVEL,LEVEL2,MOD,N.EPL           DECL          50          I
          -FC50773
 DECL               EXT    N.TABLE,N.VD,SAVE,S=CON,S=ENTRY,S=VALUE,S=VD,T=BLKS             DECL          51          I
          -FC50773
 DECL               EXT    T=COMM,T=ECT,T=EOT,T=EQUS,T=FPI,T=LCA,T=PAR,T=SYM,T=VDI         DECL          52          I
          -FC50773
 DECL               EXT    T=ENTP,T.ENTP                                                   FC50512       24          I
          -FC50773
 DECL               EXT    T=VDIM,T.BLKS,T.COMM,T.CON,T.DIM,T.ECT,T.EOT,T.EQUS             DECL          53          I
          -FC50773
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 966    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               EXT    T.FPI,T.LCA,T.PAR,T.SYM,T.TB,T.VDI,T.VDIM,USAVE,WOF             DECL          54          I
          -FC50773
 DECL               EXT    WO.LOM                                                          DECL          55          I
          -FC5A132
 DECL               EXT    WO.LOM,WO.LCM                                                   FC5A132       71          I
          -FC50773
 DECL               EXT    BLNKCOM,CHARDCL,CONONE,E=TOTAL,LEVEL,LEVEL2,MOD,N.CPL           FC50773        8     A     
 DECL               EXT    N.EPL,N.TABLE,N.VD,SAVE,S=CON,S=ENTRY,S=VALUE,S=VD              FC50773        9     A     
 DECL               EXT    T=BLKS,T=COMM,T=ENTP,T=ECT,T=EOT,T=EQUS,T=FPI,T=LCA             FC50773       10     A     
 DECL               EXT    T=PAR,T=SYM,T=VDI,T=VDIM,T.BLKS,T.COMM,T.CON,T.DIM              FC50773       11     A     
 DECL               EXT    T.ECT,T.ENTP,T.EOT,T.EQUS,T.FPI,T.LCA,T.PAR,T.SYM,T.TB          FC50773       12     A     
 DECL               EXT    T.VDI,T.VDIM,USAVE,WOF,WO.LOM,WO.LCM                            FC50773       13     A     
 DECL                                                                                      DECL          56     A     
 DECL     *         IN QSKEL/FSKEL                                                         DECL          57     A     
 DECL               EXT    F.INTF                                                          DECL          58     A     
 DECL                                                                                      DECL          59     A     
 DECL     *         IN UTILITY                                                             DECL          60     A     
 DECL               EXT    MVE=                                                            DECL          61     A     
 DECL                                                                                      DECL          62     A     
 DECL      DIMI     BSS    2*MAX.DIM+1                                                     DECL          63     A     
 DECL               TITLE  DECLARATIVE SCANNING AND SUPPORTING ROUTINES                    DECL          64     A     
 DECL      CMN      SPACE 4,8                                                              DECL          65     A     
 DECL      CMN      SPACE 4,8                                                              DECL          66     A     
 DECL     **        CMN -  PROCESS "COMMON" STATEMENT.                                     DECL          67     A     
 DECL     *                                                                                DECL          68     A     
 DECL     *         CONSTRUCTS T.COMM ENTRIES:  FORMAT AS CT. .                            DECL          69     A     
 DECL     *         FWA(T.COMM) CONTAINS 0 AND IS NEVER USED.                              DECL          70     A     
 DECL     *         (N.B.  RA[CT.] IS LEFT ZERO FOR *MCA* TO FILL IN LATER)                DECL          71     A     
 DECL     *                                                                                DECL          72     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER.                                        DECL          73     A     
 DECL     *                                                                                DECL          74     A     
 DECL     *         SEE ANSI 8.3                                                           DECL          75     A     
 DECL                                                                                      DECL          76     A     
 DECL                                                                                      DECL          77     A     
 DECL               HEREIF COMMON                                                          DECL          78     A     
 DECL                                                                                      DECL          79     A     
 DECL               =X7    CR.DEC                                                          DECL          80     A     
 DECL               SA7    REFVAR      SET REFERENCE TYPE                                  DECL          81     A     
 DECL               SA1    BLNKCOM                                                         DECL          82     A     
 DECL               MX6    CA.BNAML                                                        DECL          83     A     
 DECL               SB7    X1          BLANK COMMON BLOCK NUMBER                           DECL          84     A     
 DECL               SA1    B4                                                              DECL          85     A     
 DECL               SB4    B4+B1                                                           DECL          86     A     
 DECL               SA6    SCSA        SET MASK FOR SCAN ROUTINE *SCS*                     DECL          87     A     
 DECL               SA2    =7L                                                             DECL          88     A     
 DECL               SB3    X1-O.VAR                                                        DECL          89     A     
 DECL               BX6    X2          NAME FOR BLANK COMMON                               DECL          90     A     
 DECL               NZ     B3,CMN150   IF NOT VAR                                          DECL          91     A     
 DECL               SB4    B4-B1                                                           DECL          92     A     
 DECL               EQ     CMN60                                                           DECL          93     A     
 DECL                                                                                      DECL          94     A     
 DECL     *         PROCESS BLOCK NAME.                                                    DECL          95     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 967    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL          96     A     
 DECL      CMN30    SA1    B4                                                              DECL          97     A     
 DECL               ZR     X1,E.CM1    IF PREMATURE EOS                                    DECL          98     A     
 DECL               SB4    B4+B1                                                           DECL          99     A     
 DECL               SA3    B4                                                              DECL         100     A     
 DECL               SB7    X1-O.VAR                                                        DECL         101     A     
 DECL               NZ     B7,E.CM5    ILLEGAL BLOCK NAME                                  DECL         102     A     
 DECL               SB7    X3-O.VAR                                                        DECL         103     A     
 DECL               NZ     B7,CMN50    IF NOT LONG NAME                                    DECL         104     A     
 DECL               =B4    B4-1                                                            DECL         105     A     
 DECL               CALL   TLV         TRUNCATE NAME                                       DECL         106     A     
 DECL               =B4    B4+1                                                            DECL         107     A     
 DECL               =A3    B4                                                              DECL         108     A     
 DECL      CMN50    SX2    X1                                                              DECL         109     A     
 DECL               BX6    X1-X2                                                           DECL         110     A     
 DECL               SB7    X3-O.SLASH                                                      DECL         111     A     
 DECL               NZ     B7,E.CM     IF NO SLASH                                         DECL         112     A     
 DECL               =B4    B4+1                                                            DECL         113     A     
 DECL               MX0    CHAR                                                            DECL         114     A     
 DECL               LX0    -MAX.VAR*CHAR+CHAR                                              DECL         115     A     
 DECL               BX2    X0*X6                                                           DECL         116     A     
 DECL               ZR     X2,CMN60    IF BLOCK NAME NOT SEVEN CHARACTERS                  DECL         117     A     
 DECL               AX2    18                                                              DECL         118     A     
 DECL               SB2    X2-1R+                                                          DECL         119     A     
 DECL               PL     B2,CMN60    IF NOT BLANK COMMON                                 DECL         120     A     
 DECL               SA6    FILL.                                                           DECL         121     A     
 DECL               ANSI   E.ANS2                                                          DECL         122     A     
 DECL      CMN60    SCAN   T.BLKS,SCS                                                      DECL         123     A     
 DECL               MI     B7,CMN80    IF NOT ALREADY IN TABLE                             DECL         124     A     
 DECL               =A3    A2-CA.W+CB.W  CBI = CB ENTRY OF T.BLKS                          DECL         125     A     
 DECL               BX7    X3                                                              DECL         126     A     
 DECL               SA4    T=COMM                                                          DECL         127     A     
 DECL               LX4    CB.FMIP     FMIND = LEN(T.COMM)                                 DECL         128     A     
 DECL               HX3    CB.FMI                                                          DECL         129     A     
 DECL               AX3    -CB.FMIL    FMI = FMI[CBI]                                      DECL         130     A     
 DECL               BX7    X7+X4                                                           DECL         131     A     
 DECL               NZ     X3,CMN90    IF FMI .NE. 0                                       DECL         132     A     
 DECL               SA7    A3          FMI[CBI] = FMIND                                    DECL         133     A     
 DECL               EQ     CMN90                                                           DECL         134     A     
 DECL                                                                                      DECL         135     A     
 DECL      CMN80    SA2    T=BLKS                                                          DECL         136     A     
 DECL               BX5    X6          NAME                                                DECL         137     A     
 DECL               SX3    X2-MAX.BLK*Z=BLKS+1                                             DECL         138     A     
 DECL               PL     X3,E.CM2    IF TOO MANY BLOCKS                                  DECL         139     A     
 DECL               ALLOC  T.BLKS,Z=BLKS                                                   DECL         140     A     
 DECL               SA4    T=COMM                                                          DECL         141     A     
 DECL               LX4    CB.FMIP     FMIND = LEN(T.COMM)                                 DECL         142     A     
 DECL               =B7    X2-Z=BLKS   CBIND = INDEX OF LAST ENTRY                         DECL         143     A     
 DECL               BX7    X5                                                              DECL         144     A     
 DECL               BX6    X4                                                              DECL         145     A     
 DECL               SA7    X1+B7       (BNAM,LMI)[T.BLKS(CBIND)] =(NAME,0) [CA.]           DECL         146     A     
 DECL               SA6    A7+B1       FMI [T.BLKS(CBIND)+1] = FMIND                       DECL         147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 968    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA2    =7L                                                             DECL         148     A     
 DECL               IX5    X2-X5                                                           DECL         149     A     
 DECL               NZ     X5,CMN90    IF NOT BLANK COMMON                                 DECL         150     A     
 DECL               SX6    B7                                                              DECL         151     A     
 DECL               SA6    BLNKCOM     BLANK COMMON BLOCK NUMBER INDICATOR                 DECL         152     A     
 DECL                                                                                      DECL         153     A     
 DECL      CMN90    SX6    B7                                                              DECL         154     A     
 DECL               SA2    B4                                                              DECL         155     A     
 DECL               BX5    X6                                                              DECL         156     A     
 DECL               SA6    CMNA        SAVE BLOCK INDICATOR                                DECL         157     A     
 DECL                                                                                      DECL         158     A     
 DECL     *         PROCESS VARIABLE LIST.                                                 DECL         159     A     
 DECL     *         (A2,X2) = VARIABLE                                                     DECL         160     A     
 DECL     *         (B4) _ VARIABLE                                                        DECL         161     A     
 DECL                                                                                      DECL         162     A     
 DECL      CMN100   SA1    A2+B1       FETCH NEXT ELEMENT                                  DECL         163     A     
 DECL               SB7    X1-O.VAR                                                        DECL         164     A     
 DECL               BX6    X2                                                              DECL         165     A     
 DECL               NZ     B7,CMN110   IF NOT LONG NAME                                    DECL         166     A     
 DECL               CALL   TLV         TRUNCATE NAME                                       DECL         167     A     
 DECL               =A1    B4+1                                                            DECL         168     A     
 DECL      CMN110   SX1    X1-O.(                                                          DECL         169     A     
 DECL               SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE                DECL         170     A     
 DECL               NZ     X1,CMN120   IF NO LPAREN                                        DECL         171     A     
 DECL               RJ     DIR                                                             DECL         172     A     
 DECL               SA5    CMNA        RETRIEVE BLOCK INDICATOR                            DECL         173     A     
 DECL               SA3    DIRS                                                            DECL         174     A     
 DECL               ZR     X6,CMN140   IF ERROR IN DIMS                                    DECL         175     A     
 DECL               BX0    X3                                                              DECL         176     A     
 DECL               CALL   CT1         CONSTRUCT PASS 1 TAG FORM                           DECL         177     A     
 DECL               EQ     CMN130                                                          DECL         178     A     
 DECL                                                                                      DECL         179     A     
 DECL      CMN120   SB2    0           ENTRY (VALUE.) NOT ALLOWED                          DECL         180     A     
 DECL               CALL   TRV         TRANSLATE VARIABLE                                  DECL         181     A     
 DECL               MI     X0,CMN140   IF TRV DETECTED ERROR                               DECL         182     A     
 DECL      CMN130   =X1    WB.COMP                                                         DECL         183     A     
 DECL               CLAS=  X3,WB,(FP,DEXT,EXT,ENT,NLST,COM,PARM)                           DECL         184     A     
 DECL               RJ     CCT         CHECK CONFLICTING CLASSES                           DECL         185     A     
 DECL               MI     X0,CMN140   IF USAGE CONFLICT                                   DECL         186     A     
 DECL               CLAS=  X4,WB,(COM,DEF,VAR,MAT)                                         DECL         187     A     
 DECL               =A3    A2-WB.W+WC.W                                                    DECL         188     A     
 DECL               HX3    WC.CTYP                                                         DECL         189     A     
 DECL               BX7    X4+X2       MERGE NEW PROPERTY BITS                             DECL         190     A     
 DECL               LX0    CT.TAGP                                                         DECL         191     A     
 DECL               MI     X3,CMN140   IF WC.CTYP .EQ. 1                                   DECL         192     A     
 DECL               SA7    A2          UPDATE SYMTAB (WB)                                  DECL         193     A     
 DECL               BX6    X0          CREATE (T.COMM) ENTRY                               DECL         194     A     
 DECL               ADDWD  T.COMM      ADVANCE TABLE ORGIN                                 DECL         195     A     
 DECL               SA4    T.BLKS                                                          DECL         196     A     
 DECL               SX7    X2-1        COMIND = (T=COMM) - 1                               DECL         197     A     
 DECL               MX0    -CA.LMIL                                                        DECL         198     A     
 DECL               IX4    X4+X5       RBAD = RBI + FWA(T.BLKS)                            DECL         199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 969    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =A4    X4+CA.W     CAI = T.BLKS(RBAD)+CA.W                             DECL         200     A     
 DECL               LX4    -CA.LMIP                                                        DECL         201     A     
 DECL               BX6    -X0*X4      LMI = LMI[CAI]                                      DECL         202     A     
 DECL               BX4    X0*X4                                                           DECL         203     A     
 DECL               IX6    X1+X6                                                           DECL         204     A     
 DECL               LX7    CT.LNKP                                                         DECL         205     A     
 DECL               SA1    X6          CTI = T.COMM(LMI)                                   DECL         206     A     
 DECL               BX6    X7+X1                                                           DECL         207     A     
 DECL               LX7    CA.LMIP-CT.LNKP                                                 DECL         208     A     
 DECL               BX7    X7+X4                                                           DECL         209     A     
 DECL               LX7    CA.LMIP                                                         DECL         210     A     
 DECL               SA6    A1          LNK[CTI] = COMIND                                   DECL         211     A     
 DECL               SA7    A4          LMI[CAI] = COMIND                                   DECL         212     A     
 DECL      CMN140   SA1    B4+B1                                                           DECL         213     A     
 DECL               SB4    A1+B1       B4 = B4+2                                           DECL         214     A     
 DECL               SA2    B4          LOOK AHEAD                                          DECL         215     A     
 DECL               =B2    X2-O.VAR                                                        DECL         216     A     
 DECL               =X3    X1-O.COMMA                                                      DECL         217     A     
 DECL               ERRNZ  O.EOS                                                           DECL         218     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL         219     A     
 DECL               NZ     X3,CMN150   IF NOT COMMA                                        DECL         220     A     
 DECL                                                                                      DECL         221     A     
 DECL     *         COMMA, MUST FOLLOWED BY A VARIABLE, SLASH OR BLANK COMMON.             DECL         222     A     
 DECL                                                                                      DECL         223     A     
 DECL               EQ     B2,CMN100   IF VARIABLE                                         DECL         224     A     
 DECL               ZR     X2,E.CM6          IF PREMATURE *EOS*                            DECL         225     A     
 DECL               SA1    A2          IGNORE THIS COMMA                                   DECL         226     A     
 DECL               SB4    B4+B1                                                           DECL         227     A     
 DECL      CMN150   SB2    X1-O.SLASH                                                      DECL         228     A     
 DECL               SX3    X1-O.CAT                                                        DECL         229     A     
 DECL               ZR     B2,CMN30    IF SLASH                                            DECL         230     A     
 DECL               NZ     X3,E.CM3    IF NOT //                                           DECL         231     A     
 DECL               SA2    =7L                                                             DECL         232     A     
 DECL               BX6    X2                                                              DECL         233     A     
 DECL               EQ     CMN60                                                           DECL         234     A     
 DECL                                                                                      DECL         235     A     
 DECL      CMNA     BSS    1           HOLDS BLOCK NUMBER                                  DECL         236     A     
 DECL               TITLE  *DIMENSION* AND ARRAY DECLARATIONS.                             DECL         237     A     
 DECL               SPACE  2                                                               DECL         238     A     
 DECL      DIM      SPACE  4,8                                                             DECL         239     A     
 DECL     **        DIM -  PROCESS "DIMENSION" DECLARATION.                                DECL         240     A     
 DECL     *                                                                                DECL         241     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER.                                        DECL         242     A     
 DECL     *                                                                                DECL         243     A     
 DECL     *         SEE ANSI 8.1                                                           DECL         244     A     
 DECL                                                                                      DECL         245     A     
 DECL                                                                                      DECL         246     A     
 DECL               HEREIF DIMENSION                                                       DECL         247     A     
 DECL                                                                                      DECL         248     A     
 DECL               =X6    CR.DEC                                                          DECL         249     A     
 DECL               SA6    REFVAR      SET REFERENCE TYPE                                  DECL         250     A     
 DECL                                                                                      DECL         251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 970    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      DIM1     RJ     DIR         PROCESS DIMENSIONED VARIABLE                        DECL         252     A     
 DECL               SA1    B4+B1                                                           DECL         253     A     
 DECL               SB4    A1+B1       (B4) = (B4) + 2                                     DECL         254     A     
 DECL               SX2    X1-O.COMMA                                                      DECL         255     A     
 DECL               ZR     X2,DIM1     IF *,*                                              DECL         256     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL         257     A     
 DECL               ERRNZ  O.EOS                                                           DECL         258     A     
 DECL               =B4    B4-1                                                            DECL         259     A     
 DECL               FATAL  E.TY                                                            DECL         260     A     
 DECL               =B4    B4+1                                                            DECL         261     A     
 DECL               EQ     FEC.RTN                                                         DECL         262     A     
 DECL      DIR      SPACE  4,15                                                            DECL         263     A     
 DECL     **        DIR -  PROCESS DIMENSIONED VARIABLE.                                   DECL         264     A     
 DECL     *                                                                                DECL         265     A     
 DECL     *         ENTRY  (B4) _ VARIABLE NAME IN *SB*.  LPAREN EXPECTED AS NEXT          DECL         266     A     
 DECL     *                            CHARACTER.                                          DECL         267     A     
 DECL     *                                                                                DECL         268     A     
 DECL     *         EXIT   (B4) _ TERMINAL *)*, OR *EOS*-1.                                DECL         269     A     
 DECL     *                (X6) = *WB* ENTRY (ZERO IF ERROR)                               DECL         270     A     
 DECL     *                (DIRS) = ORDINAL OF SYMTAB ENTRY.                               DECL         271     A     
 DECL     *                DIMENSIONING INFORMATION ENTERED INTO T.DIM AND                 DECL         272     A     
 DECL     *                POINTER ENTERED INTO *WB.PNTP*                                  DECL         273     A     
 DECL     *                                                                                DECL         274     A     
 DECL     *         CALLS  DIS, TRV.                                                       DECL         275     A     
 DECL     *                                                                                DECL         276     A     
 DECL     *         USES   ALL REGISTERS.                                                  DECL         277     A     
 DECL                                                                                      DECL         278     A     
 DECL                                                                                      DECL         279     A     
 DECL     **        HERE WHEN A SYNTAX ERROR IS FOUND -- SEARCHES FOR NEXT *)* IN          DECL         280     A     
 DECL     *                ATTEMPT TO RECOVER SO THAT REST OF STATEMENT MAY BE             DECL         281     A     
 DECL     *                PROCESSED.                                                      DECL         282     A     
 DECL                                                                                      DECL         283     A     
 DECL      DIR6     FATAL  B7          OUTPUT DIAGNOSTIC                                   DECL         284     A     
 DECL               JP     B2          SKIP PROPERLY                                       DECL         285     A     
 DECL                                                                                      DECL         286     A     
 DECL      DIR7     =B4    B4+1                                                            DECL         287     A     
 DECL                                                                                      FC50438       10     A     
 DECL      DIR8     BSS    0                                                               DECL         288     A     
 DECL               SA1    B4                                                              DECL         289     A     
 DECL               ZR     X1,E.DM10   IF *EOS* -- ERROR                                   DECL         290     A     
 DECL               SX1    X1-O.)                                                          DECL         291     A     
 DECL               NZ     X1,DIR7     ADVANCE TO NEXT RIGHT PAREN                         DECL         292     A     
 DECL                                                                                      FC50438       11     A     
 DECL      DIR9     BX6    0                                                               DECL         293     A     
 DECL                                                                                      DECL         294     A     
 DECL      DIR      SUBR   =           ...ENTRY/EXIT...                                    DECL         295     A     
 DECL               SA4    B4                                                              DECL         296     A     
 DECL               ZR     X4,E.DM16   IF *EOS*                                            DECL         297     A     
 DECL               BX6    X4                                                              DECL         298     A     
 DECL               SB2    0           ENTRY (VALUE.) NOT ALLOWED                          DECL         299     A     
 DECL               CALL   TRV         TRANSLATE VARIABLE                                  DECL         300     A     
 DECL               MI     X0,DIR8     IF TRV DETECTED ERROR                               DECL         301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 971    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               CLAS=  X3,WB,(NVAR,NLST,DEXT,ENT,PARM,EXT)                             DECL         302     A     
 DECL               =X1    WB.ARYP                                                         DECL         303     A     
 DECL               CALL   CCT         CHECK FOR CONFLICTING CLASS                         DECL         304     A     
 DECL               MI     X0,DIR8     IF CLASS CONFLICT                                   DECL         305     A     
 DECL               BX7    X0                                                              DECL         306     A     
 DECL               SBIT   X2,WB.ARYP                                                      DECL         307     A     
 DECL               SA7    DIRS                                                            DECL         308     A     
 DECL               SX7    B7                                                              DECL         309     A     
 DECL               SA7    DIRT        SAVE WB INDEX OF SYMTAB ENTRY                       DECL         310     A     
 DECL               BX7    0                                                               DECL         311     A     
 DECL               PL     X2,DIR1     IF NOT ALREADY AN ARRAY                             DECL         312     A     
 DECL               BX7    X2                                                              DECL         313     A     
 DECL               LX7    WB.ARYP+1   RESTORE *WB* ENTRY                                  DECL         314     A     
 DECL               WARN   E.DM09      PREVIOUS DIMENSIONALITY HOLDS                       DECL         315          I
          -FC5A126
 DECL               FATAL  E.DM09      PREVIOUS DIMENSIONALITY HOLDS                       FC5A126       33     A     
 DECL                                                                                      FC50438       12     A     
 DECL      DIR1     SA7    DIRI        SET PREVIOUSLY DIMENSIONED FLAG                     DECL         316     A     
 DECL               LX2    1+WB.ARYP   RESTORE (X2)                                        DECL         317     A     
 DECL               CLAS=  X3,WB,(ARY,VAR)                                                 DECL         318     A     
 DECL               BX6    X2+X3                                                           DECL         319     A     
 DECL               SA6    A2          UPDATE SYMBOL TABLE (WB)                            DECL         320     A     
 DECL                                                                                      DECL         321     A     
 DECL     **        PROCESS DIMENSION ARGUMENTS                                            DECL         322     A     
 DECL                                                                                      DECL         323     A     
 DECL               SA1    B4+B1       FETCH SEPARATOR                                     DECL         324     A     
 DECL               SB2    DIR9                                                            DECL         325     A     
 DECL               SB7    E.DM05                                                          DECL         326     A     
 DECL               ZR     X1,DIR6     IF *EOS*                                            DECL         327     A     
 DECL               SX2    X1-O.COMMA                                                      DECL         328     A     
 DECL               SX6    X1-O.(+O.COMMA                                                  DECL         329     A     
 DECL               SB3    X1-O.(                                                          DECL         330     A     
 DECL               ZR     X2,DIR6     IF COMMA                                            DECL         331     A     
 DECL               SB2    DIR8                                                            DECL         332     A     
 DECL               SB7    E.DM00                                                          DECL         333     A     
 DECL               NZ     B3,DIR6     IF NOT LEFT PAREN                                   DECL         334     A     
 DECL               SA2    DIR.HEAD                                                        DECL         335     A     
 DECL               SA6    A1          FAKE UP A COMMA FOR *DIS*                           DECL         336     A     
 DECL               LX7    X2                                                              DECL         337     A     
 DECL               SA7    DIMI        INITIALIZE HEADER WORD                              DECL         338     A     
 DECL               SB5    A7          READY TO INCREMENT FOR DIMENSIONS                   DECL         339     A     
 DECL               RJ     DIS                                                             DECL         340     A     
 DECL               SB2    DIR8                                                            DECL         341     A     
 DECL               NZ     B7,DIR6     IF ERROR                                            DECL         342     A     
 DECL               SA3    DIMI                                                            DECL         343     A     
 DECL               SA2    CO.DBPM                                                         DECL         344     A     
 DECL               MX4    0                                                               DECL         345     A     
 DECL               SBIT   X3,DH.ASP                                                       DECL         346     A     
 DECL               PL     X3,DIR3     IF NOT ASSUMED SIZE ARRAY                           DECL         347     A     
 DECL               CLAS=  X4,WB,(VDS) MARK FORMAL PARAMETER REQUIRED                      DECL         348     A     
 DECL               LX3    DH.ASL+DH.ASP                                                   DECL         349     A     
 DECL               ZR     X2,DIR5     IF PMD NOT ON                                       DECL         350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 972    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               CLAS=  X6,DH,(MAT)                                                     DECL         351     A     
 DECL               BX6    X3+X6       PMD REQUIRES MATERIALIZE                            DECL         352     A     
 DECL               SA6    A3                                                              DECL         353     A     
 DECL               EQ     DIR5                                                            DECL         354     A     
 DECL                                                                                      DECL         355     A     
 DECL      DIR3     SBIT   X3,DH.VDP/DH.ASP                                                DECL         356     A     
 DECL               PL     X3,DIR5     IF NOT ADJUSTABLY DIMENSIONED                       DECL         357     A     
 DECL               LX3    DH.VDL+DH.VDP                                                   DECL         358     A     
 DECL               ZR     X2,DIR4     IF PMD NOT ON                                       DECL         359     A     
 DECL               CLAS=  X6,DH,(MAT)                                                     DECL         360     A     
 DECL               BX6    X3+X6       PMD REQUIRES MATERIALIZE                            DECL         361     A     
 DECL               SA6    A3                                                              DECL         362     A     
 DECL                                                                                      FC50438       13     A     
 DECL      DIR4     RJ     OVP         OUTPUT VARIABLE PRODUCT OF SPANS                    DECL         363     A     
 DECL               CLAS=  X4,WB,(VDS) MARK FORMAL PARAMETER REQUIRED                      DECL         364     A     
 DECL                                                                                      DECL         365     A     
 DECL      DIR5     SA1    DIRI                                                            DECL         366     A     
 DECL               SX6    0           ERROR INDICATION                                    DECL         367     A     
 DECL               NZ     X1,EXIT.    IF PREVIOUSLY DIMENSIONED                           DECL         368     A     
 DECL               SB2    DIMI        FWA OF DIMENSION DESCRIPTORS                        DECL         369     A     
 DECL               SB3    B5+1        LWA+1                                               DECL         370     A     
 DECL               =B7    0                                                               DECL         371     A     
 DECL               SCAN   T.DIM,NCM                                                       DECL         372          I
          -FC50958
 DECL               RJ     EDD         ENTER DIMENSION DESCRIPTOR INTO T.DIM               FC50958       10     A     
 DECL               SA1    T.SYM       IN CASE TABLES MOVED                                DECL         373     A     
 DECL               SA2    DIRT                                                            DECL         374     A     
 DECL               IX3    X1+X2                                                           DECL         375     A     
 DECL               SA5    X3          REFETCH *WB* ENTRY                                  DECL         376     A     
 DECL               LX6    WB.PNTP                                                         DECL         377     A     
 DECL               BX6    X5+X6                                                           DECL         378     A     
 DECL               SA6    X3          INSERT DIM TABLE POINTER                            DECL         379     A     
 DECL               SBIT   X5,WB.FPP                                                       DECL         380     A     
 DECL               MI     X5,EXIT.    IF FORMAL PARAMETER                                 DECL         381     A     
 DECL               BX6    X6+X4       MARK FORMAL PARAMETER REQUIRED, AS NEEDED           DECL         382     A     
 DECL               SA6    A6                                                              DECL         383     A     
 DECL               EQ     EXIT.                                                           DECL         384     A     
 DECL                                                                                      DECL         385     A     
 DECL      DIRS     BSS    1           RETURN ORDINAL OF SYMTAB ENTRY                      DECL         386     A     
 DECL      DIRT     BSS    1           TEMP HOLDING OF SYMTAB *WB* INDEX                   DECL         387          I
          -FC50438
 DECL      DIRT     BSSENT 1           TEMP HOLDING OF SYMTAB *WB* INDEX                   FC50438       14     A     
 DECL      DIRI     BSS    1           PREVIOUSLY DIMENSIONED FLAG                         DECL         388     A     
 DECL      DIR.HEAD VFD    DH.ATTRL/0,DH.PSL/1,DH.RAL/0,DH.DIML/0                          DECL         389     A     
 DECL      DIS      SPACE  4,8                                                             DECL         390     A     
 DECL     **        DIS -  ASSEMBLE DIMENSION SUBSCRIPT.                                   DECL         391     A     
 DECL     *                                                                                DECL         392     A     
 DECL     *         ASSEMBLES DIMENSION DESCRIPTORS INTO A SAVE BUFFER.                    DECL         393     A     
 DECL     *                                                                                DECL         394     A     
 DECL     *         ENTRY  (B4)+1 _ SUBSCRIPT ENTRY.                                       DECL         395     A     
 DECL     *                (B5) = FIRST D2. SAVE LOCATION TO INCREMENT                     DECL         396     A     
 DECL     *                                                                                DECL         397     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 973    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         EXIT   (B4) _ *)* OR *EOS* WHICH CAUSED *DIS* TO QUIT                  DECL         398     A     
 DECL     *                                                                                DECL         399     A     
 DECL     *                IF NO ERROR...                                                  DECL         400     A     
 DECL     *                (B7) = 0                                                        DECL         401     A     
 DECL     *                (B5) = LWA OF STORED DIMENSION DESCRIPTORS                      DECL         402     A     
 DECL     *                                                                                DECL         403     A     
 DECL     *                IF ERROR...                                                     DECL         404     A     
 DECL     *                (B7) = DIAGNOSTIC ADDRESS                                       DECL         405     A     
 DECL     *                (B5) = UNDEFINED                                                DECL         406     A     
 DECL     *                                                                                DECL         407     A     
 DECL     *         USES   ALL BUT A0                                                      DECL         408     A     
 DECL     *                                                                                DECL         409     A     
 DECL     *         CALLS  CDB, NCS, OVS, OVT                                              DECL         410     A     
 DECL                                                                                      DECL         411     A     
 DECL                                                                                      DECL         412     A     
 DECL      DIS      SUBR               ...ENTRY/EXIT...                                    DECL         413     A     
 DECL      DIS1     SA1    DIMI        FETCH HEADER                                        DECL         414     A     
 DECL               SB2    1R0                                                             DECL         415     A     
 DECL               MX6    -DH.DIML                                                        DECL         416     A     
 DECL               LX1    -DH.DIMP                                                        DECL         417     A     
 DECL               BX6    -X6*X1      EXTRACT DIMENSION COUNT                             DECL         418     A     
 DECL               =X6    X6+1        INCREMENT FOR THE UPCOMING DIMENSION                DECL         419     A     
 DECL               SX6    X6+B2       CONVERT TO DPC                                      DECL         420     A     
 DECL               ERRPL  MAX.DIM-10  CODE WORKS FOR ONLY ONE DIGIT                       DECL         421     A     
 DECL               LX6    9*CHAR      HIGH ORDER                                          DECL         422     A     
 DECL               SA6    FILL.2      SAVE FOR POSSIBLE ERROR                             DECL         423     A     
 DECL               =B7    0                                                               DECL         424     A     
 DECL               SA1    B4+B1       FETCH SEPARATOR                                     DECL         425     A     
 DECL               SB4    B4+B1                                                           DECL         426     A     
 DECL               SX2    X1-O.)                                                          DECL         427     A     
 DECL               ZR     X1,E.MR2    IF *EOS*, ERR..                                     DECL         428     A     
 DECL               SB3    X1-O.COMMA                                                      DECL         429     A     
 DECL               ZR     X2,EXIT.    IF *RP*, EXIT                                       DECL         430     A     
 DECL               ZR     B3,DIS3     IF COMMA                                            DECL         431     A     
 DECL               SB7    E.DM15                                                          DECL         432     A     
 DECL               EQ     EXIT.                                                           DECL         433     A     
 DECL                                                                                      DECL         434     A     
 DECL      DIS3     SA2    B4+1                                                            DECL         435     A     
 DECL               =B4    B4+1                                                            DECL         436     A     
 DECL               SX6    X2                                                              DECL         437     A     
 DECL               SB7    E.DM00                                                          DECL         438     A     
 DECL               ZR     X2,EXIT.    IF *EOS*                                            DECL         439     A     
 DECL               SB5    B5+Z=DD     INCREMENT DIMENSION SAVE POINTER                    DECL         440     A     
 DECL               =X1    1                                                               DECL         441     A     
 DECL               LX1    D2.LBP      DEFAULT LOWER BOUND                                 DECL         442     A     
 DECL               SB3    X2-O.STAR                                                       DECL         443     A     
 DECL               ZR     B3,DIS30    IF ASSUMED SIZE ARRAY                               DECL         444     A     
 DECL               SB3    X2-O.)                                                          FC51422        6     A     
 DECL               ZR     B3,EXIT.    IF O.) ERROR                                        FC51422        7     A     
 DECL               SA3    LBARM                                                           DECL         445     A     
 DECL               RJ     CDB         COMPILE DIMENSION BOUND                             DECL         446     A     
 DECL               NZ     B7,EXIT.    IF ERROR, EXIT...                                   DECL         447     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 974    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =A1    B4+1        FETCH SEPARATOR                                     DECL         448     A     
 DECL               SB3    X1-O.COLON                                                      DECL         449     A     
 DECL               =X1    1                                                               DECL         450     A     
 DECL               LX1    D2.LBP      DEFAULT LOWER BOUND                                 DECL         451     A     
 DECL               NZ     B3,DIS5     IF NOT COLON, NO LOWER BOUND                        DECL         452     A     
 DECL                                                                                      DECL         453     A     
 DECL     *         SAVE EXPLICIT LOWER BOUND, PROCESS UPPER BOUND                         DECL         454     A     
 DECL     *                (X5) = EXPLICIT LOWER BOUND (DI. FORMAT)                        DECL         455     A     
 DECL                                                                                      DECL         456     A     
 DECL               LX5    D2.LBP      CURRENT BOUND WAS LOWER BOUND                       DECL         457     A     
 DECL               BX6    X5                                                              DECL         458     A     
 DECL               SA6    DIS.LB      SAVE LOWER BOUND                                    DECL         459     A     
 DECL               SA3    UBARM                                                           DECL         460     A     
 DECL               =B4    B4+2        POINT TO UB                                         DECL         461     A     
 DECL               SA2    B4                                                              DECL         462     A     
 DECL               LX1    X6                                                              DECL         463     A     
 DECL               SB3    X2-O.STAR                                                       DECL         464     A     
 DECL               ZR     B3,DIS30    IF ASSUMED SIZE ARRAY                               DECL         465     A     
 DECL               RJ     CDB         COMPILE DIMENSION BOUND                             DECL         466     A     
 DECL               NZ     B7,EXIT.    IF ERROR, EXIT...                                   DECL         467     A     
 DECL               SA1    DIS.LB                                                          DECL         468     A     
 DECL                                                                                      DECL         469     A     
 DECL     *         PROCESS DIMENSION BOUND PAIR                                           DECL         470     A     
 DECL     *                (X1) = LOWER BOUND (D2. FORMAT)                                 DECL         471     A     
 DECL     *                (X5) = UPPER BOUND (D2. FORMAT)                                 DECL         472     A     
 DECL                                                                                      DECL         473     A     
 DECL      DIS5     BX6    X1+X5       LB + UB = D2.                                       DECL         474     A     
 DECL               SA1    DIMI        FETCH HEADER ENTRY                                  DECL         475     A     
 DECL               =X7    1                                                               DECL         476     A     
 DECL               LX7    DH.DIMP                                                         FC5A274        5     A     
 DECL               IX7    X1+X7       INCREMENT NUMBER OF DIMENSIONS                      DECL         477     A     
 DECL               ERRNZ  DH.DIMP                                                         DECL         478          I
          -FC5A274
 DECL               MX0    -DH.DIML                                                        DECL         479     A     
 DECL               SX2    MAX.DIM                                                         DECL         480     A     
 DECL               BX0    -X0*X7      ISOLATE DIMENSIONALITY                              DECL         481     A     
 DECL               IX2    X2-X0                                                           DECL         482     A     
 DECL               SB7    E.DM06                                                          DECL         483     A     
 DECL               MI     X2,EXIT.    IF DIMENSIONALITY EXCEEDED                          DECL         484     A     
 DECL               SA7    A1          HEADER ENTRY                                        DECL         485     A     
 DECL               SA6    B5          *D2* ENTRY                                          DECL         486     A     
 DECL                                                                                      DECL         487     A     
 DECL     *         DETERMINE DIMENSION SPAN                                               DECL         488     A     
 DECL                                                                                      DECL         489     A     
 DECL               BX1    X6                                                              DECL         490     A     
 DECL               LX2    X6                                                              DECL         491     A     
 DECL               HX2    D2.UB                                                           DECL         492     A     
 DECL               MI     X6,DIS20    IF LOWER BOUND VARIABLE                             DECL         493     A     
 DECL               LX1    -DI.INFL-DI.INFP+D2.LBL                                         DECL         494          I
          -FC5A231
 DECL               AX1    -DI.INFL    (X1) = LOWER BOUND (CONSTANT)                       DECL         495          I
          -FC5A231
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 975    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX1    -DM.INFL-DM.INFP+D2.LBL                                         FC5A231       79     A     
 DECL               AX1    -DM.INFL    (X1) = LOWER BOUND (CONSTANT)                       FC5A231       80     A     
 DECL               MI     X2,DIS10    IF UPPER BOUND VARIABLE                             DECL         496     A     
 DECL               LX2    -DI.INFL-DI.INFP+D2.UBL                                         DECL         497          I
          -FC5A231
 DECL               AX2    -DI.INFL    (X2) = UPPER BOUND (CONSTANT)                       DECL         498          I
          -FC5A231
 DECL               LX2    -DM.INFL-DM.INFP+D2.UBL                                         FC5A231       81     A     
 DECL               AX2    -DM.INFL    (X2) = UPPER BOUND (CONSTANT)                       FC5A231       82     A     
 DECL               IX7    X2-X1                                                           DECL         499     A     
 DECL               SB7    E.DM02                                                          DECL         500     A     
 DECL               MI     X7,EXIT.    IF LB .GT. UB                                       DECL         501     A     
 DECL               =X6    1                                                               DECL         502     A     
 DECL               IX7    X7+X6                                                           DECL         503     A     
 DECL               LX7    D1.SPANP                                                        DECL         504     A     
 DECL               SA7    A6-D2.W+D1.W                                                    DECL         505     A     
 DECL               EQ     DIS40                                                           DECL         506     A     
 DECL                                                                                      DECL         507     A     
 DECL     *         UPPER BOUND VARIABLE, LOWER BOUND CONSTANT                             DECL         508     A     
 DECL                                                                                      DECL         509     A     
 DECL      DIS10    =X0    1                                                               DECL         510     A     
 DECL               IX0    X0-X1                                                           DECL         511     A     
 DECL               NZ     X0,DIS15    IF LB " 1                                           DECL         512     A     
 DECL               MX0    -D1.SPANL                                                       DECL         513     A     
 DECL               LX2    D1.SPANL                                                        DECL         514     A     
 DECL               BX7    -X0*X2      SPAN = UB                                           DECL         515     A     
 DECL               ERRNZ  D1.SPANL-D2.UBL+D1.SPANP-D2.UBP                                 DECL         516     A     
 DECL               =A7    A6-D2.W+D1.W                                                    DECL         517     A     
 DECL               EQ     DIS1                                                            DECL         518     A     
 DECL                                                                                      DECL         519     A     
 DECL     *         UPPER BOUND VARIABLE, LOWER BOUND CONSTANT " 1                         DECL         520     A     
 DECL     *         MUST MANUFACTURE VD. ENTRY FOR SPAN                                    DECL         521     A     
 DECL     *                (X0) = 1 - LOWER BOUND                                          DECL         522     A     
 DECL     *                (X2) = UPPER BOUND (SHIFTED HIGH ORDER)                         DECL         523     A     
 DECL                                                                                      DECL         524     A     
 DECL      DIS15    SA3    T.VDI                                                           DECL         525     A     
 DECL               LX2    -DI.INFL-DI.INFP+D2.UBL                                         DECL         526          I
          -FC5A231
 DECL               AX2    -DI.INFL    (X2) = UPPER BOUND (VD. INDEX)                      DECL         527          I
          -FC5A231
 DECL               LX2    -DM.INFL-DM.INFP+D2.UBL                                         FC5A231       83     A     
 DECL               AX2    -DM.INFL    (X2) = UPPER BOUND (VD. INDEX)                      FC5A231       84     A     
 DECL               IX2    X3+X2                                                           DECL         528     A     
 DECL               SA4    X2          FETCH VD. INFORMATION                               DECL         529     A     
 DECL               HX4    VD.IND                                                          DECL         530     A     
 DECL               AX4    -VD.INDL    EXTRACT STORE OPERAND INDEX                         DECL         531     A     
 DECL               SA3    T.VDIM                                                          DECL         532     A     
 DECL               IX4    X3+X4                                                           DECL         533     A     
 DECL               SA4    X4          FETCH VD. STORE OPERAND                             DECL         534     A     
 DECL               =X7    M.INT                                                           DECL         535     A     
 DECL               LX6    X0          CONSTANT                                            DECL         536     A     
 DECL               CALL   NCS         ENTER THE CONSTANT                                  DECL         537     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 976    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX5    X6                                                              DECL         538     A     
 DECL               SB3    VD.PL                                                           DECL         539     A     
 DECL               RJ     OVT         OUTPUT VARDIM TURPLE                                DECL         540     A     
 DECL               RJ     OVS         OUTPUT VARDIM STORE                                 DECL         541     A     
 DECL               SA7    B5-D2.W+D1.W                                                    DECL         542     A     
 DECL               EQ     DIS1                                                            DECL         543     A     
 DECL                                                                                      DECL         544     A     
 DECL     *         LOWER BOUND VARIABLE                                                   DECL         545     A     
 DECL     *         MUST MANUFACTURE VD. ENTRY FOR SPAN                                    DECL         546     A     
 DECL     *                (X1) = LOWER BOUND (HIGH ORDER)                                 DECL         547     A     
 DECL     *                (X2) = UPPER BOUND (SHIFTED HIGH ORDER)                         DECL         548     A     
 DECL                                                                                      DECL         549     A     
 DECL      DIS20    SA3    T.VDI                                                           DECL         550     A     
 DECL               LX1    -DI.INFL-DI.INFP+D2.LBL                                         DECL         551          I
          -FC5A231
 DECL               AX1    -DI.INFL    ISOLATE VD. INDEX                                   DECL         552          I
          -FC5A231
 DECL               LX1    -DM.INFL-DM.INFP+D2.LBL                                         FC5A231       85     A     
 DECL               AX1    -DM.INFL    EXTRACT VD. INDEX                                   FC5A231       86     A     
 DECL               IX1    X3+X1                                                           DECL         553     A     
 DECL               SA5    X1          FETCH VD. INFORMATION                               DECL         554     A     
 DECL               HX5    VD.IND                                                          DECL         555     A     
 DECL               AX5    -VD.INDL    EXTRACT STORE OPERAND INDEX                         DECL         556     A     
 DECL               SA3    T.VDIM                                                          DECL         557     A     
 DECL               IX5    X3+X5                                                           DECL         558     A     
 DECL               SA5    X5          FETCH VD. STORE OPERAND                             DECL         559     A     
 DECL               MI     X2,DIS25    IF UPPER BOUND VARIABLE                             DECL         560     A     
 DECL               LX2    -DI.INFL-DI.INFP+D2.UBL                                         DECL         561          I
          -FC5A231
 DECL               LX2    -DM.INFL-DM.INFP+D2.UBL                                         FC5A231       87     A     
 DECL               =X0    1                                                               DECL         562     A     
 DECL               AX2    -DI.INFL    ISOLATE (SIGN EXTEND) CONSTANT                      DECL         563          I
          -FC5A231
 DECL               AX2    -DM.INFL    EXTRACT (SIGN EXTEND) CONSTANT                      FC5A231       88     A     
 DECL               IX6    X2+X0                                                           DECL         564     A     
 DECL               =X7    M.INT                                                           DECL         565     A     
 DECL               CALL   NCS         ENTER THE CONSTANT                                  DECL         566     A     
 DECL               LX4    X6                                                              DECL         567     A     
 DECL               SB3    VD.MI                                                           DECL         568     A     
 DECL               RJ     OVT         OUTPUT VARDIM TURPLE                                DECL         569     A     
 DECL               RJ     OVS         OUTPUT VARDIM STORE TURPLE                          DECL         570     A     
 DECL               SA7    B5-D2.W+D1.W                                                    DECL         571     A     
 DECL               EQ     DIS1                                                            DECL         572     A     
 DECL                                                                                      DECL         573     A     
 DECL      DIS25    SA3    T.VDI                                                           DECL         574     A     
 DECL               LX2    -DI.INFL-DI.INFP+D2.UBL                                         DECL         575          I
          -FC5A231
 DECL               AX2    -DI.INFL    ISOLATE VD. INDEX                                   DECL         576          I
          -FC5A231
 DECL               LX2    -DM.INFL-DM.INFP+D2.UBL                                         FC5A231       89     A     
 DECL               AX2    -DM.INFL    EXTRACT VD. INDEX                                   FC5A231       90     A     
 DECL               IX2    X3+X2                                                           DECL         577     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 977    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA4    X2          FETCH VD. INFORMATION                               DECL         578     A     
 DECL               HX4    VD.IND                                                          DECL         579     A     
 DECL               AX4    -VD.INDL    EXTRACT STORE OPERAND INDEX                         DECL         580     A     
 DECL               SA3    T.VDIM                                                          DECL         581     A     
 DECL               IX4    X3+X4                                                           DECL         582     A     
 DECL               SA4    X4          FETCH VD. STORE OPERAND                             DECL         583     A     
 DECL               SB3    VD.MI                                                           DECL         584     A     
 DECL               RJ     OVT         OUTPUT VD.MI TURPLE                                 DECL         585     A     
 DECL               SA5    CONONE                                                          DECL         586     A     
 DECL               SB3    VD.PL                                                           DECL         587     A     
 DECL               RJ     OVT         OUTPUT VD.PL TURPLE                                 DECL         588     A     
 DECL               RJ     OVS         OUTPUT VD.EQ TURPLE                                 DECL         589     A     
 DECL               SA7    B5-D2.W+D1.W                                                    DECL         590     A     
 DECL               EQ     DIS1                                                            DECL         591     A     
 DECL                                                                                      DECL         592     A     
 DECL     *         PROCESS ASSUMED SIZE ARRAY                                             DECL         593     A     
 DECL     *                (X1) = LOWER BOUND (D2. FORMAT)                                 DECL         594     A     
 DECL     *                (B4) _ * IN *TB*                                                DECL         595     A     
 DECL                                                                                      DECL         596     A     
 DECL      DIS30    =A2    B4+1                                                            DECL         597     A     
 DECL               =X7    1                                                               DECL         598     A     
 DECL               LX7    DH.DIMP                                                         FC5A274        6     A     
 DECL               SB3    X2-O.RP                                                         DECL         599     A     
 DECL               SB7    E.DM13                                                          DECL         600     A     
 DECL               NZ     B3,EXIT.    IF NOT *)* FOLLOWING, ERROR                         DECL         601     A     
 DECL               SA2    DIMI        FETCH HEADER ENTRY                                  DECL         602     A     
 DECL               IX2    X2+X7       INCREMENT NUMBER OF DIMENSIONS                      DECL         603     A     
 DECL               MX0    -DH.DIML                                                        FC5A274        7     A     
 DECL               LX2    -DH.DIMP                                                        FC5A274        8     A     
 DECL               BX0    -X0*X2      EXTRACT NUMBER OF DIMENSIONS                        FC5A274        9     A     
 DECL               LX2    DH.DIMP                                                         FC5A274       10     A     
 DECL               SB7    E.DM06                                                          FC5A274       11     A     
 DECL               SB3    X0-MAX.DIM-1                                                    FC5A274       12     A     
 DECL               PL     B3,EXIT.    IF MAXIMUM DIMENSIONALITY EXCEEDED                  FC5A274       13     A     
 DECL               CLAS=  X7,DH,(AS)                                                      DECL         604     A     
 DECL               BX7    X2+X7       ADD IN ASSUMED BIT                                  DECL         605     A     
 DECL               MX0    -DH.PSL                                                         DECL         606     A     
 DECL               LX0    DH.PSP                                                          DECL         607     A     
 DECL               BX7    X0*X7       PRODUCT OF SPANS = 0.                               DECL         608     A     
 DECL               SA7    A2          UPDATE HEADER                                       DECL         609     A     
 DECL               SA2    =37777777B  INDICATE UPPER BOUND IS ASSUMED                     DECL         610     A     
 DECL               BX6    X1+X2                                                           DECL         611     A     
 DECL               SA6    B5          *D2* = LB + ASSUMED (MAXIMUM +) UB                  DECL         612     A     
 DECL               LX7    X2          SPAN IS ASSUMED (MAXIMUM +)                         DECL         613     A     
 DECL               SA7    A6-D2.W+D1.W                                                    DECL         614     A     
 DECL               EQ     DIS1        FINISH PROCESSING                                   DECL         615     A     
 DECL                                                                                      DECL         616     A     
 DECL     *         UPDATE PRODUCT OF SPANS (CURRENT SPAN CONSTANT)                        DECL         617     A     
 DECL     *                (X7) = SPAN                                                     DECL         618     A     
 DECL                                                                                      DECL         619     A     
 DECL      DIS40    SA1    DIMI        FETCH HEADER ENTRY                                  DECL         620     A     
 DECL               MX0    -DH.PSL                                                         DECL         621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 978    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX1    -DH.PSP                                                         DECL         622     A     
 DECL               BX2    -X0*X1      ISOLATE SIZE                                        DECL         623     A     
 DECL               IX2    X2*X7       MULTIPLY TIMES CURRENT SPAN                         DECL         624     A     
 DECL               BX1    X1*X0       CLEAR OLD SIZE                                      DECL         625     A     
 DECL               IX7    X1+X2       INSERT NEW SIZE                                     DECL         626     A     
 DECL               LX7    DH.PSP                                                          DECL         627     A     
 DECL               AX2    MAX.SPAN                                                        DECL         628     A     
 DECL               SB7    E.DM08                                                          DECL         629     A     
 DECL               NZ     X2,EXIT.    IF SIZE .GT. 2**23-1                                DECL         630     A     
 DECL               SA7    A1+         UPDATE HEADER ENTRY                                 DECL         631     A     
 DECL               EQ     DIS1        CONTINUE PROCESSING                                 DECL         632     A     
 DECL                                                                                      DECL         633     A     
 DECL      DIS.LB   BSS    1           SAVE LOWER BOUND                                    DECL         634     A     
 DECL      EDD      SPACE  4                                                               FC50958       11     A     
 DECL     **        EDD -  ENTER DIMENSION DESCRIPTOR INTO T.DIM                           FC50958       12     A     
 DECL     *                                                                                FC50958       13     A     
 DECL     *         ENTRY  (B2) _ FWA CONSTANTS                                            FC50958       14     A     
 DECL     *                (B3) _ LWA+1 DESCRIPTOR TO BE ENTERED                           FC50958       15     A     
 DECL     *                                                                                FC50958       16     A     
 DECL     *                                                                                FC50958       17     A     
 DECL     *         EXIT   (B7) = ORDINAL OF FWA OF DESCRIPTOR IF                          FC50958       18     A     
 DECL     *                       ENTERED OR ALREADY PRESENT                               FC50958       19     A     
 DECL     *                (X6) = (B7) IF ELEMENT ENTERED                                  FC50958       20     A     
 DECL     *                                                                                FC50958       21     A     
 DECL     *                                                                                FC50958       22     A     
 DECL     *                                                                                FC50958       23     A     
 DECL     *         CALLS ALLOC, MOVE                                                      FC50958       24     A     
 DECL     *                                                                                FC50958       25     A     
 DECL     *         CANNOT DESTORY A4,A5 B4,B5,B6                                          FC50958       26     A     
 DECL                                                                                      FC50958       27     A     
 DECL                                                                                      FC50958       28     A     
 DECL      EDD      SUBR   =           ...ENTRY/EXIT...                                    FC50958       29     A     
 DECL               SX6    B3                                                              FC50958       30     A     
 DECL               SA6    EDDA                                                            FC50958       31     A     
 DECL               SX7    B5                                                              FC50958       32     A     
 DECL               SA7    EDDB5                                                           FC50958       33     A     
 DECL               EQ     B2,B3,EXIT. IF NO WORDS TO ADD                                  FC50958       34     A     
 DECL               MX0    -DH.DIML                                                        FC50958       35     A     
 DECL               SB7    B3-B2       LENGTH OF DESCRIPTOR                                FC50958       36     A     
 DECL               SA1    T.DIM                                                           FC50958       37     A     
 DECL               SA3    A1+N.TABLE                                                      FC50958       38     A     
 DECL               SB3    X3          T.DIM LENGTH                                        FC50958       39     A     
 DECL               LT     B3,B7,EDD16 IF TABLE TOO SMALL TO HOLD DESCRIPTOR               FC50958       40     A     
 DECL               SA3    X1-1        PRESET TO T.DIM-1                                   FC50958       41     A     
 DECL               SA2    B2          PRESET FWA OF DESCRIPTOR                            FC50958       42     A     
 DECL                                                                                      FC50958       43     A     
 DECL      EDD4     SA3    A3+1                                                            FC50958       44     A     
 DECL               BX5    -X0*X3                                                          FC50958       45     A     
 DECL               LX5    1                                                               FC50958       46     A     
 DECL               SX5    X5+1                                                            FC50958       47     A     
 DECL               SB5    X5          NUM OF WORDS IN NEXT DESCRIPTOR IN T.DIM            FC50958       48     A     
 DECL               SX7    B5          X7 USED IN CASE OF MISMATCH                         FC50958       49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 979    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               EQ     B5,B7,EDD8  IF NUMBER OF WORDS IN DESCRIPTORS EQUAL             FC50958       50     A     
 DECL                                                                                      FC50958       51     A     
 DECL     **        HERE IF SIZE MISMATCH                                                  FC50958       52     A     
 DECL                                                                                      FC50958       53     A     
 DECL               SB3    B3-B5       T.DIM LENGTH MINUS CURRENT DESCRIPTOR               FC50958       54     A     
 DECL               ZR     B3,EDD16    IF NO MORE DESCRIPTORS IN T.DIM                     FC50958       55     A     
 DECL               SX3    A3+B5                                                           FC50958       56     A     
 DECL               SA3    X3-1        NEXT DESCRIPTOR-1                                   FC50958       57     A     
 DECL               EQ     EDD4        CHECK SIZE OF NEXT DESCRIPTOR                       FC50958       58     A     
 DECL                                                                                      FC50958       59     A     
 DECL     **        HERE TO COMPARE DESCRIPTORS OF EQUAL SIZE                              FC50958       60     A     
 DECL                                                                                      FC50958       61     A     
 DECL      EDD8     SA2    B2          RESET FWA OF DESCRIPTOR                             FC50958       62     A     
 DECL                                                                                      FC50958       63     A     
 DECL      EDD10    ZR     B5,EDD14    IF CURRENT DESCRIPTOR MATCHES                       FC50958       64     A     
 DECL               BX6    X2-X3                                                           FC50958       65     A     
 DECL               SB5    B5-B1                                                           FC50958       66     A     
 DECL               SA2    A2+1                                                            FC50958       67     A     
 DECL               SA3    A3+1                                                            FC50958       68     A     
 DECL               MI     X6,EDD12    IF NO MATCH                                         FC50958       69     A     
 DECL               ZR     X6,EDD10    IF CURRENT WORD MATCHES                             FC50958       70     A     
 DECL                                                                                      FC50958       71     A     
 DECL     **        HERE IF MISMATCH                                                       FC50958       72     A     
 DECL                                                                                      FC50958       73     A     
 DECL      EDD12    BX7    -X7                                                             FC50958       74     A     
 DECL               SB3    B3+X7                                                           FC50958       75     A     
 DECL               ZR     B3,EDD16    IF NO MORE DESCRIPTORS                              FC50958       76     A     
 DECL               SX3    A3+B5                                                           FC50958       77     A     
 DECL               SA3    X3-1        NEXT DESCRIPTOR-1                                   FC50958       78     A     
 DECL               EQ     EDD4        CHECK SIZE OF NEXT                                  FC50958       79     A     
 DECL                                                                                      FC50958       80     A     
 DECL     **        HERE IF DESCRIPTOR ALREADY IN T.DIM                                    FC50958       81     A     
 DECL                                                                                      FC50958       82     A     
 DECL      EDD14    SX6    A3-B7                                                           FC50958       83     A     
 DECL               IX6    X6-X1       ORDINAL                                             FC50958       84     A     
 DECL               SB7    X6                                                              FC50958       85     A     
 DECL               SA2    EDDB5                                                           FC50958       86     A     
 DECL               SB5    X2          RESTORE B5                                          FC50958       87     A     
 DECL               EQ     EXIT.                                                           FC50958       88     A     
 DECL                                                                                      FC50958       89     A     
 DECL     **        HERE IF DESCRIPTOR NOT IN T.DIM                                        FC50958       90     A     
 DECL                                                                                      FC50958       91     A     
 DECL      EDD16    SX6    B2                                                              FC50958       92     A     
 DECL               SA6    EDDA+1      SAVE (B2) FWA                                       FC50958       93     A     
 DECL               ALLOC  A1,B7                                                           FC50958       94     A     
 DECL               BX0    X1                                                              FC50958       95     A     
 DECL               SA3    EDDA                                                            FC50958       96     A     
 DECL               SA1    A3+1                                                            FC50958       97     A     
 DECL               IX7    X2-X3                                                           FC50958       98     A     
 DECL               SB3    X3          RESTORE B3                                          FC50958       99     A     
 DECL               SB2    X1          RESTORE B2                                          FC50958      100     A     
 DECL               BX2    X1          (X2) = SOURCE                                       FC50958      101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 980    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SX6    X7+B2       ORDINAL = NEW LENGTH - WORD COUNT                   FC50958      102     A     
 DECL               IX3    X6+X0       (X3) = DESTINATION(ORDINAL+ORIGN)                   FC50958      103     A     
 DECL               SA6    A3          SAVE ORDINAL                                        FC50958      104     A     
 DECL               BX6    X4                                                              FC50958      105     A     
 DECL               SX1    B3-B2       (X1) = WORD COUNT                                   FC50958      106     A     
 DECL               SA6    EDDA+1      SAVE X4                                             FC50958      107     A     
 DECL               SX6    A4                                                              FC50958      108     A     
 DECL               SA6    A6+1        SAVE A4                                             FC50958      109     A     
 DECL               MOVE   X1,X2,X3                                                        FC50958      110     A     
 DECL               SA4    EDDA+2      RESTORE A4                                          FC50958      111     A     
 DECL               SA1    A4-1                                                            FC50958      112     A     
 DECL               BX4    X1          RESTORE X4                                          FC50958      113     A     
 DECL               SA2    EDDB5                                                           FC50958      114     A     
 DECL               SB5    X2          RESTORE B5                                          FC50958      115     A     
 DECL               SA1    EDDA                                                            FC50958      116     A     
 DECL               BX6    X1                                                              FC50958      117     A     
 DECL               SB7    X1                                                              FC50958      118     A     
 DECL               EQ     EXIT.                                                           FC50958      119     A     
 DECL                                                                                      FC50958      120     A     
 DECL      EDDB5    CON    0           B5 SAVED HERE                                       FC50958      121     A     
 DECL      EDDA     EQU    ADWT        ADDITIONAL SAVE AREA                                FC50958      122     A     
 DECL      CDB      SPACE  4,8                                                             DECL         635     A     
 DECL     **        CDB -  COMPILE DIMENSION BOUND                                         DECL         636     A     
 DECL     *                                                                                DECL         637     A     
 DECL     *         FOR *PHASE 1A*, THIS ROUTINE EVALUATES CONSTANT EXPRESSIONS            DECL         638     A     
 DECL     *         AND VARIABLE DIMENSIONS WHICH USE A FORMAL PARAMETER OR COMMON         DECL         639     A     
 DECL     *         ELEMENT ONLY.  THIS ROUTINE MUST BE EXTENDED TO COMPILE ALL            DECL         640     A     
 DECL     *         ALL DIMENSION EXPRESSIONS.                                             DECL         641     A     
 DECL     *                                                                                DECL         642     A     
 DECL     *         ENTRY  (B4) _ FWA OF DIMENSION BOUND                                   DECL         643     A     
 DECL     *                (X3) = ARGMODE SETTING                                          DECL         644     A     
 DECL     *                                                                                DECL         645     A     
 DECL     *         EXIT   (B4) _ END OF DIMENSION DESCRIPTOR                              DECL         646     A     
 DECL     *                                                                                DECL         647     A     
 DECL     *                IF NO ERROR...                                                  DECL         648     A     
 DECL     *                (B7) = 0                                                        DECL         649     A     
 DECL     *                (X5) = DIMENSION DESCRIPTOR (DI. FORMAT)                        DECL         650          I
          -FC50069
 DECL     *                (X5) = DIMENSION DESCRIPTOR (DM. FORMAT)                        FC50069       44     A     
 DECL     *                                                                                DECL         651     A     
 DECL     *                IF ERROR...                                                     DECL         652     A     
 DECL     *                (B7) = DIAGNOSTIC ADDRESS                                       DECL         653     A     
 DECL     *                (X5) = UNDEFINED                                                DECL         654     A     
 DECL     *                                                                                DECL         655     A     
 DECL     *         USES   A1,A2,A3,A4,A5,A6,A7  B2,B7  X0,X1,X2,X3,X4,X5,X6,X7            DECL         656     A     
 DECL     *                                                                                DECL         657     A     
 DECL     *         PRESERVES B5  (FILL.)  (FILL.2)  (T=PAR)  (E=TOTAL)                    DECL         658     A     
 DECL     *                                                                                DECL         659     A     
 DECL     *         CALLS  PAR                                                             DECL         660     A     
 DECL                                                                                      DECL         661     A     
 DECL                                                                                      DECL         662     A     
 DECL      CDB      SUBR               ...ENTRY/EXIT...                                    DECL         663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 981    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA1    T=PAR                                                           DECL         664     A     
 DECL               SA2    FILL.                                                           DECL         665     A     
 DECL               LX7    X1                                                              DECL         666     A     
 DECL               BX6    X2                                                              DECL         667     A     
 DECL               SA1    E=TOTAL                                                         DECL         668     A     
 DECL               SA7    CDBA        CDBA+0 = (T=PAR)                                    DECL         669     A     
 DECL               =A2    A2+1        FILL.2                                              DECL         670     A     
 DECL               =A6    A7+1            +1 = (FILL.)                                    DECL         671     A     
 DECL               LX7    X2                                                              DECL         672     A     
 DECL               =A7    A6+1            +2 = (FILL.2)                                   DECL         673     A     
 DECL               SX6    B5                                                              DECL         674     A     
 DECL               BX7    X1                                                              DECL         675     A     
 DECL               =A6    A7+1            +3 = (B5)                                       DECL         676     A     
 DECL               BX6    X3                                                              DECL         677     A     
 DECL               =A7    A6+1            +4 = (E=TOTAL)                                  DECL         678     A     
 DECL               MX7    0                                                               DECL         679     A     
 DECL               SA7    ARGCOMA                                                         DECL         680     A     
 DECL               =X7    O.SLP                                                           DECL         681     A     
 DECL               SA6    ARGMODE                                                         DECL         682     A     
 DECL               =A7    B4-1        PUT SPECIAL BEGINNING PAREN TO SET ARGMODE          DECL         683     A     
 DECL               =B4    B4-1        MOVE *TB* POINTER TO BEGINNING LEFT PAREN           DECL         684     A     
 DECL               =X6    PM=DIM                                                          DECL         685     A     
 DECL               SA6    PARMODE     SET FOR NON STANDARD PARSE                          DECL         686     A     
 DECL               CALL   PAR         PARSE/REDUCE EXPRESSION                             DECL         687     A     
 DECL               SX6    0                                                               DECL         688     A     
 DECL               SA6    PARMODE     CLEAR                                               DECL         689     A     
 DECL               SA1    CDBA+1                                                          DECL         690     A     
 DECL               =A2    A1+1                                                            DECL         691     A     
 DECL               LX7    X2                                                              DECL         692     A     
 DECL               BX6    X1                                                              DECL         693     A     
 DECL               SA6    FILL.       RESTORE FILL.                                       DECL         694     A     
 DECL               =A7    A6+1        RESTORE FILL.2                                      DECL         695     A     
 DECL               LX2    X5                                                              DECL         696     A     
 DECL               SBIT   X2,TP.SHRTP                                                     DECL         697     A     
 DECL               PL     X2,CDB20    IF NOT SHORT CONSTANT                               DECL         698     A     
 DECL               MX0    -DI.INFL                                                        DECL         699          I
          -FC5A231
 DECL               MX0    -DM.INFL                                                        FC5A231       91     A     
 DECL               HX5    TP.BIAS                                                         DECL         700     A     
 DECL               AX5    -TP.BIASL   SIGN EXTEND                                         DECL         701     A     
 DECL               BX5    -X0*X5      ISOLATE CONSTANT BOUND                              DECL         702     A     
 DECL               EQ     CDB40       CONTINUE PROCESSING...                              DECL         703     A     
 DECL                                                                                      DECL         704     A     
 DECL      CDB20    MX0    -TP.ORDL                                                        DECL         705     A     
 DECL               SA2    S=VD                                                            DECL         706     A     
 DECL               LX5    -TP.ORDP                                                        DECL         707     A     
 DECL               BX3    -X0*X5      ISOLATE ORDINAL                                     DECL         708     A     
 DECL               IX2    X3-X2                                                           DECL         709     A     
 DECL               MX0    -TP.BIASL                                                       DECL         710     A     
 DECL               LX5    TP.ORDP-TP.BIASP                                                DECL         711     A     
 DECL               BX5    -X0*X5      BIAS (CON. OR VD.)                                  DECL         712     A     
 DECL               ZR     X2,CDB30    IF VARIABLE DIMENSION BOUND                         DECL         713     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 982    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA2    T.CON                                                           DECL         714     A     
 DECL               SB2    X5                                                              DECL         715     A     
 DECL               SA2    X2+B2       FETCH THE CONSTANT                                  DECL         716     A     
 DECL               MX0    -DI.INFL                                                        DECL         717          I
          -FC5A231
 DECL               MX0    -DM.INFL                                                        FC5A231       92     A     
 DECL               BX5    -X0*X2      ISOLATE CONSTANT BOUND                              DECL         718     A     
 DECL               AX2    MAX.SPAN                                                        DECL         719     A     
 DECL               ZR     X2,CDB40    IF BOUND .LE. 2**23-1                               DECL         720     A     
 DECL               SB7    E.DM07                                                          DECL         721     A     
 DECL               EQ     EXIT.                                                           DECL         722     A     
 DECL                                                                                      DECL         723     A     
 DECL      CDB30    SA2    DIMI        FETCH HEADER ENTRY                                  DECL         724     A     
 DECL               CLAS=  X6,DH,(VD)                                                      DECL         725     A     
 DECL               BX6    X2+X6       ADD IN VARIABLE DIMENSION BIT                       DECL         726     A     
 DECL               SA6    A2                                                              DECL         727     A     
 DECL               CLAS=  X4,DI,(TD)                                                      DECL         728          I
          -FC5A231
 DECL               CLAS=  X4,DM,(TD)                                                      FC5A231       93     A     
 DECL               BX5    X4+X5       DI.TD + DI.INF = DIMENSION BOUND                    DECL         729     A     
 DECL                                                                                      DECL         730     A     
 DECL      CDB40    SA1    CDBA+3                                                          DECL         731     A     
 DECL               SB5    X1          RESTORE (B5)                                        DECL         732     A     
 DECL               =B7    0           INDICATE NO ERROR                                   DECL         733     A     
 DECL               =B4    B4-1        RESET *TB* TO END OF DIMENSION DESCRIPTOR           DECL         734     A     
 DECL               EQ     EXIT.                                                           DECL         735     A     
 DECL                                                                                      DECL         736     A     
 DECL      CDBA     BSS    5           CDB SAVE AREA                                       DECL         737     A     
 DECL      CDBB     EQUENT CDBA+1      FILL. CELLS NEEDED IN PAR                           DECL         738     A     
 DECL      C=DBD    SPACE  4,8                                                             DECL         739     A     
 DECL     **        C=DBD/A=DBD - PROCESS CLOSING *,* OR *)* FOR DIMENSION                 DECL         740     A     
 DECL     *                       BOUND EXPRESSION.                                        DECL         741     A     
 DECL     *                                                                                DECL         742     A     
 DECL     *         ENTRY  (X5) = RESULTS OF EXPRESSION (TP. FORMAT)                       DECL         743     A     
 DECL     *                                                                                DECL         744     A     
 DECL     *         EXIT   (X5) = RESULTS OF EXPRESSION OR VARDIM TURPLE                   DECL         745     A     
 DECL     *                                                                                DECL         746     A     
 DECL     *         USES   A1,A2,A5,A6  B2,B3,B7  X0,X1,X2,X3,X5,X6                        DECL         747     A     
 DECL     *                                                                                DECL         748     A     
 DECL     *         CALLS  EMT, MVE=, OVS                                                  DECL         749     A     
 DECL                                                                                      DECL         750     A     
 DECL                                                                                      DECL         751     A     
 DECL      C=DBD    BSSENT 0           ENTRY...                                            DECL         752     A     
 DECL               SB4    B4+1                                                            DECL         753     A     
 DECL      A=DBD    BSSENT 0           ENTRY...                                            DECL         754     A     
 DECL               LX2    X5                                                              DECL         755     A     
 DECL               SBIT   X2,TP.INTRP                                                     DECL         756     A     
 DECL               PL     X2,DBD10    IF NOT EXPRESSION                                   DECL         757     A     
 DECL               SA1    CDBA        FETCH FORMER T=PAR                                  DECL         758     A     
 DECL               SA2    E=TOTAL                                                         DECL         759     A     
 DECL               SA3    A1+4        FETCH PREVIOUS STATEMENT ERROR COUNT                DECL         760     A     
 DECL               IX2    X2-X3                                                           DECL         761     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 983    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               ZR     X2,DBD1     IF NO ERRORS THIS DIMENSION BOUND                   DECL         762     A     
 DECL               SHRINK T=PAR,X1    RESET PARSE FILE LENGTH                             DECL         763     A     
 DECL               MX4    0                                                               DECL         764     A     
 DECL               BX5    0                                                               DECL         765     A     
 DECL               EMIT   ERROP,*                                                         DECL         766     A     
 DECL               SA5    CONONE      DEFAULT BOUND WHEN ERROR                            DECL         767     A     
 DECL               EQ     PAREXIT                                                         DECL         768     A     
 DECL                                                                                      DECL         769     A     
 DECL     *         HERE IF LEGAL DIMENSION BOUND EXPRESSION                               DECL         770     A     
 DECL     *                (X1) = OLD PARSE FILE LENGTH                                    DECL         771     A     
 DECL                                                                                      DECL         772     A     
 DECL      DBD1     SA2    T=PAR                                                           DECL         773     A     
 DECL               SA3    T=VDIM                                                          DECL         774     A     
 DECL               IX0    X2-X1       LENGTH OF DIMENSION BOUND EXPRESSION                DECL         775     A     
 DECL               IX3    X3-X1       OFFSET FOR INTERMEDIATE CONVERSION                  DECL         776     A     
 DECL               SA2    T.PAR                                                           DECL         777     A     
 DECL               LX6    X0                                                              DECL         778     A     
 DECL               IX2    X1+X2       STARTING POINT FOR CONVERSION                       DECL         779     A     
 DECL               SB2    X0          LOOP COUNTER                                        DECL         780     A     
 DECL               SA1    X2          INITIALIZE LOOP                                     DECL         781     A     
 DECL               SA6    OVSA        SAVE EXPRESSION LENGTH FOR OVS                      DECL         782     A     
 DECL                                                                                      DECL         783     A     
 DECL      DBD2     =A2    A1+OR.1OP                                                       DECL         784     A     
 DECL               =A4    A2-OR.1OP+OR.2OP                                                DECL         785     A     
 DECL               SBIT   X2,TP.INTRP                                                     DECL         786     A     
 DECL               SBIT   X4,TP.INTRP                                                     DECL         787     A     
 DECL               PL     X2,DBD3     IF NOT INTERMEDIATE                                 DECL         788     A     
 DECL               LX2    TP.INTRL+TP.INTRP-TP.ORDP                                       DECL         789     A     
 DECL               IX2    X3+X2       ADJUST WITH OFFSET                                  DECL         790     A     
 DECL               LX2    TP.ORDP                                                         DECL         791     A     
 DECL               BX6    X2                                                              DECL         792     A     
 DECL               SA6    A2          RESET                                               DECL         793     A     
 DECL      DBD3     PL     X4,DBD4     IF NOT INTERMEDIATE                                 DECL         794     A     
 DECL               LX4    TP.INTRL+TP.INTRP-TP.ORDP                                       DECL         795     A     
 DECL               IX4    X3+X4       ADJUST WITH OFFSET                                  DECL         796     A     
 DECL               LX4    TP.ORDP                                                         DECL         797     A     
 DECL               BX6    X4                                                              DECL         798     A     
 DECL               SA6    A4          RESET                                               DECL         799     A     
 DECL      DBD4     SA1    A1+Z=TURP                                                       DECL         800     A     
 DECL               SB2    B2-Z=TURP                                                       DECL         801     A     
 DECL               NZ     B2,DBD2     IF NOT FINISHED                                     DECL         802     A     
 DECL                                                                                      DECL         803     A     
 DECL     *         THE PARSE FILE NOW CONTAINS DIMENSION BOUND TURPLES, ADJUSTED          DECL         804     A     
 DECL     *         FOR INCLUSION IN THE VARDIM TABLE.                                     DECL         805     A     
 DECL     *                (X0) = LENGTH OF DIMENSION BOUND TURPLES                        DECL         806     A     
 DECL                                                                                      DECL         807     A     
 DECL               HX5    TP.ORD                                                          DECL         808     A     
 DECL               LX5    TP.ORDL                                                         DECL         809     A     
 DECL               IX5    X5+X3       ADJUST THE FINAL INTERMEDIATE WITH OFFSET           DECL         810     A     
 DECL               LX5    TP.ORDP                                                         DECL         811     A     
 DECL               LX4    X0                                                              DECL         812     A     
 DECL               ALLOC  T.VDIM,X0   GET NEEDED SPACE                                    DECL         813     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 984    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA1    CDBA                                                            DECL         814     A     
 DECL               SHRINK T=PAR,X1    RESET PARSE FILE LENGTH                             DECL         815     A     
 DECL               SA2    T.PAR                                                           DECL         816     A     
 DECL               IX2    X2+X1       ORIGIN OF DIMENSION BOUND TURPLES                   DECL         817     A     
 DECL               SX3    B7                                                              DECL         818     A     
 DECL               IX3    X3-X4       DESTINATION OF TURPLES                              DECL         819     A     
 DECL               MOVE   X4,X2,X3                                                        DECL         820     A     
 DECL               BX4    X5                                                              DECL         821     A     
 DECL               RJ     OVS         OUTPUT VARIABLE STORE TURPLE                        DECL         822     A     
 DECL               EQ     PAREXIT                                                         DECL         823     A     
 DECL                                                                                      DECL         824     A     
 DECL      DBD10    SBIT   X2,TP.SHRTP/TP.INTRP                                            DECL         825     A     
 DECL               MI     X2,PAREXIT  IF SHORT CONSTANT                                   DECL         826     A     
 DECL               LX2    X5                                                              DECL         827     A     
 DECL               HX2    TP.ORD                                                          DECL         828     A     
 DECL               SA1    S=CON                                                           DECL         829     A     
 DECL               AX2    -TP.ORDL    ISOLATE ORDINAL                                     DECL         830     A     
 DECL               IX3    X1-X2                                                           DECL         831     A     
 DECL               ZR     X3,PAREXIT  IF CONSTANT                                         DECL         832     A     
 DECL                                                                                      DECL         833     A     
 DECL     *         HERE IF VARIABLE.                                                      DECL         834     A     
 DECL                                                                                      DECL         835     A     
 DECL               BX4    X5                                                              DECL         836     A     
 DECL               RJ     OVS         OUTPUT VARIABLE STORE TURPLE                        DECL         837     A     
 DECL               EQ     PAREXIT                                                         DECL         838     A     
 DECL      OVP      SPACE  4,8                                                             DECL         839     A     
 DECL     **        OVP -  OUTPUT VARDIM PRODUCT OF SPANS                                  DECL         840     A     
 DECL     *                                                                                DECL         841     A     
 DECL     *         ENTRY  (DIMI) = T.DIM ENTRY CURRENTLY PROCESSING                       DECL         842     A     
 DECL     *                                                                                DECL         843     A     
 DECL     *         EXIT   (DIMI) = DH.PS CONTAINS VD. INDEX FOR PRODUCT OF SPANS          DECL         844     A     
 DECL     *                (T.VDIM) - UPDATED WITH MULTIPLY TURPLES (AS NEEDED)            DECL         845     A     
 DECL     *                (T.VDI)  - UPDATED WITH NEW VD. INFORMATION (AS NEEDED)         DECL         846     A     
 DECL     *                                                                                DECL         847     A     
 DECL     *         USES   A1,A2,A3,A4,A5,A6,A7  B6  X0,X1,X2,X3,X4,X5,X6,X7               DECL         848     A     
 DECL     *                                                                                DECL         849     A     
 DECL     *         CALLS  EMT, NCS, OVS                                                   DECL         850     A     
 DECL                                                                                      DECL         851     A     
 DECL                                                                                      DECL         852     A     
 DECL      OVP      SUBR               ...ENTRY/EXIT...                                    DECL         853     A     
 DECL               SA1    DIMI        FETCH HEADER                                        DECL         854     A     
 DECL               LX1    -DH.DIMP                                                        DECL         855     A     
 DECL               MX0    -DH.DIML                                                        DECL         856     A     
 DECL               BX5    -X0*X1      EXTRACT NUMBER OF DIMENSIONS                        DECL         857     A     
 DECL               LX1    DH.DIMP                                                         DECL         858     A     
 DECL               HX1    DH.PS                                                           DECL         859     A     
 DECL               AX1    -DH.PSL     EXTRACT PRODUCT OF CONSTANT SPANS                   DECL         860     A     
 DECL               =B6    0                                                               DECL         861     A     
 DECL               =X0    1                                                               DECL         862     A     
 DECL               IX0    X1-X0                                                           DECL         863     A     
 DECL               ZR     X0,OVP1     IF NO CONSTANT SPAN                                 DECL         864     A     
 DECL               LX6    X1                                                              DECL         865     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 985    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =X7    M.INT                                                           DECL         866     A     
 DECL               CALL   NCS                                                             DECL         867     A     
 DECL               SA6    B6+OVPA                                                         DECL         868     A     
 DECL               =B6    B6+1                                                            DECL         869     A     
 DECL                                                                                      DECL         870     A     
 DECL     *         FETCH LOOP ON SPANS TO DETERMINE NUMBER OF MULTIPLIES                  DECL         871     A     
 DECL     *                (X5) = NUMBER OF DIMENSIONS                                     DECL         872     A     
 DECL     *                (B6) = COUNTER OF OPERANDS                                      DECL         873     A     
 DECL                                                                                      DECL         874     A     
 DECL      OVP1     =A1    A1+1        PREFETCH SPAN (INITIAL)                             DECL         875     A     
 DECL               SA3    T.VDI                                                           DECL         876     A     
 DECL               SA4    T.VDIM                                                          DECL         877     A     
 DECL                                                                                      DECL         878     A     
 DECL      OVP2     HX1    D1.SPAN                                                         DECL         879          I
          -FC50069
 DECL      OVP2     BX7    X1          SAVE POSSIBLE VARIABLE SPAN                         FC50069       45     A     
 DECL               HX1    D1.SPAN                                                         FC50069       46     A     
 DECL               PL     X1,OVP3     IF NOT VARIABLE SPAN                                DECL         880     A     
 DECL               LX1    -DI.INFL-DI.INFP+D1.SPANL                                       DECL         881          I
          -FC5A231
 DECL               AX1    -DI.INFL    EXTRACT VD. INDEX                                   DECL         882          I
          -FC5A231
 DECL               LX1    -DM.INFL-DM.INFP+D1.SPANL                                       FC5A231       94     A     
 DECL               AX1    -DM.INFL    EXTRACT VD. INDEX                                   FC5A231       95     A     
 DECL               IX1    X3+X1                                                           DECL         883     A     
 DECL               SA2    X1          FETCH VD. INFORMATION                               DECL         884     A     
 DECL               HX2    VD.IND                                                          DECL         885     A     
 DECL               AX2    -VD.INDL    EXTRACT STORE OPERAND INDEX                         DECL         886     A     
 DECL               IX2    X4+X2                                                           DECL         887     A     
 DECL               SA2    X2          FETCH VD. STORE OPERAND                             DECL         888     A     
 DECL               LX6    X2                                                              DECL         889     A     
 DECL               SA6    B6+OVPA                                                         DECL         890     A     
 DECL               =B6    B6+1                                                            DECL         891     A     
 DECL               SA7    OVPB        SAVE D1. ENTRY                                      FC50069       47     A     
 DECL                                                                                      FC50069       48     A     
 DECL      OVP3     =X5    X5-1                                                            DECL         892     A     
 DECL               ZR     X5,OVP4                                                         DECL         893     A     
 DECL               SA1    A1+Z=DD     FETCH NEXT SPAN                                     DECL         894     A     
 DECL               EQ     OVP2                                                            DECL         895     A     
 DECL                                                                                      DECL         896     A     
 DECL     *         LOOP FOR THE MULTIPLIES                                                DECL         897     A     
 DECL     *                (B6) = COUNT OF OPERANDS                                        DECL         898     A     
 DECL                                                                                      DECL         899     A     
 DECL      OVP4     =B6    B6-1                                                            DECL         900     A     
 DECL               SA4    B6+OVPA     FETCH OPERAND                                       DECL         901     A     
 DECL               LX7    X4                                                              DECL         902     A     
 DECL               HX7    TP.BIAS                                                         DECL         903     A     
 DECL               AX7    -TP.BIASL   EXTRACT THE VD. INDEX                               DECL         904     A     
 DECL               ERRNZ  DI.INFP                                                         DECL         905          I
          -FC5A231
 DECL               ERRNZ  DM.INFP                                                         FC5A231       96     A     
 DECL               ZR     B6,OVP11    IF ONLY ONE MULTIPLIER, USE SPAN                    DECL         906          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 986    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC50069
 DECL               NZ     B6,OVP5     IF MULTIPLY TURPLES NEEDED                          FC50069       49     A     
 DECL               SA1    OVPB        FETCH D1. ENTRY                                     FC50069       50     A     
 DECL               LX7    X1          USE FOR DH. COMPLETION                              FC50069       51     A     
 DECL               EQ     OVP11                                                           FC50069       52     A     
 DECL                                                                                      FC50069       53     A     
 DECL      OVP5     ZR     B6,OVP10    IF FINISHED                                         DECL         907     A     
 DECL               =B6    B6-1                                                            DECL         908     A     
 DECL               SA5    B6+OVPA     FETCH OPERAND                                       DECL         909     A     
 DECL               EMIT   VD.MU,*,T.VDIM                                                  DECL         910     A     
 DECL               SA1    OVSA                                                            DECL         911     A     
 DECL               SX6    Z=TURP                                                          DECL         912     A     
 DECL               IX6    X1+X6                                                           DECL         913     A     
 DECL               SA6    A1          INCREMENT TURPLE COUNT                              DECL         914     A     
 DECL               SA2    T=VDIM                                                          DECL         915     A     
 DECL               SX2    X2-Z=TURP                                                       DECL         916     A     
 DECL               CLAS=  X4,TP,(INTR),INT                                                DECL         917     A     
 DECL               LX2    TP.ORDP                                                         DECL         918     A     
 DECL               BX4    X2+X4       ORD + INTR + MODE                                   DECL         919     A     
 DECL               EQ     OVP5        CONTINUE                                            DECL         920     A     
 DECL                                                                                      DECL         921     A     
 DECL     *         ALL MULTIPLIES OUTPUT, MAKE VD. FOR THE PRODUCT OF SPANS               DECL         922     A     
 DECL     *                (X4) = STORE OPERAND FOR PRODUCT OF SPANS VD.                   DECL         923     A     
 DECL                                                                                      DECL         924     A     
 DECL      OVP10    RJ     OVS                                                             DECL         925     A     
 DECL      OVP11    SA1    DIMI        FETCH HEADER                                        DECL         926     A     
 DECL               MX0    DH.PSL                                                          DECL         927     A     
 DECL               LX7    DH.PSP                                                          DECL         928     A     
 DECL               CLAS=  X6,DH,(VP)                                                      DECL         929     A     
 DECL               LX0    DH.PSL+DH.PSP                                                   DECL         930     A     
 DECL               BX7    X0*X7       EXTRACT VD. INDEX                                   DECL         931     A     
 DECL               BX1    -X0*X1      CLEAR CONSTANT PRODUCT                              DECL         932     A     
 DECL               BX7    X1+X7       VD. INDEX IS NOW PRODUCT OF SPANS                   DECL         933     A     
 DECL               BX7    X6+X7       INDICATE THIS                                       DECL         934     A     
 DECL               SA7    A1                                                              DECL         935     A     
 DECL               EQ     EXIT.                                                           DECL         936     A     
 DECL                                                                                      DECL         937     A     
 DECL      OVPA     BSS    MAX.DIM                                                         DECL         938     A     
 DECL      OVPB     BSS    1                                                               FC50069       54     A     
 DECL      OVS      SPACE  4,8                                                             DECL         939     A     
 DECL     **        OVS -  OUTPUT VARIABLE DIMENSION STORE (VD.EQ) TURPLE                  DECL         940     A     
 DECL     *                                                                                DECL         941     A     
 DECL     *         ENTRY  (X4) = OR.1OP (VALUE OF VD.)                                    DECL         942     A     
 DECL     *                                                                                DECL         943     A     
 DECL     *         EXIT   (X5) = VARDIM (TP. FORMAT)                                      DECL         944     A     
 DECL     *                (X7) = DIMENSION DESCRIPTOR (DI. FORMAT)                        DECL         945          I
          -FC50069
 DECL     *                (X7) = DIMENSION DESCRIPTOR (DM. FORMAT)                        FC50069       55     A     
 DECL     *                                                                                DECL         946     A     
 DECL     *         USES   A1,2,3,4,5,6,7  B2,3,6,7  X0,1,2,3,4,5,6,7                      DECL         947     A     
 DECL     *                                                                                DECL         948     A     
 DECL     *         CALLS  ADW, EMT                                                        DECL         949     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 987    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL         950     A     
 DECL                                                                                      DECL         951     A     
 DECL      OVS      SUBR               ...ENTRY/EXIT...                                    DECL         952     A     
 DECL               SA5    S=VD                                                            DECL         953     A     
 DECL               SA1    OVSA        TURPLE COUNT                                        DECL         954     A     
 DECL               SA2    N.VD                                                            DECL         955     A     
 DECL               =X7    M.INT                                                           DECL         956     A     
 DECL               LX5    TP.ORDP     VD. ORDINAL                                         DECL         957     A     
 DECL               LX2    TP.BIASP    USE CURRENT VDIM COUNTER                            DECL         958     A     
 DECL               BX5    X5+X2       ORDINAL + BIAS                                      DECL         959     A     
 DECL               BX5    X5+X7       ORDINAL + BIAS + MODE                               DECL         960     A     
 DECL               SX7    X1+Z=TURP   INCREMENT FOR THE STORE TURPLE                      DECL         961     A     
 DECL               SA7    A1                                                              DECL         962     A     
 DECL               LX7    X5                                                              DECL         963     A     
 DECL               SA7    OVSB        SAVE VD. OPERAND                                    DECL         964     A     
 DECL               EMIT   VD.EQ,*,T.VDIM                                                  DECL         965     A     
 DECL                                                                                      DECL         966     A     
 DECL     *         THIS PORTION OF OVS ATTEMPTS TO SQUEEZE OUT THE TURPLES JUST           DECL         967     A     
 DECL     *         ADDED TO T.VDIM.  IF AN EXACT MATCH IS FOUND (ALLOWING FOR             DECL         968     A     
 DECL     *         ADJUSTED INTERMEDIATE OPERANDS) THAT VD. WILL BE USED AND THE          DECL         969     A     
 DECL     *         TURPLES ADDED TO T.VDIM WILL BE TRASHED.  IF NOT, THE ENTRY            DECL         970     A     
 DECL     *         STANDS AND A T.VDI ENTRY WILL BE MADE, N.VD UPDATED, ETC.  THE         DECL         971     A     
 DECL     *         SQUEEZE LOOP DEPENDS UPON NO TABLE MOVEMENT.  MODIFIERS BE             DECL         972     A     
 DECL     *         WARNED.                                                                DECL         973     A     
 DECL                                                                                      DECL         974     A     
 DECL               SA1    OVSA        LENGTH OF VD. EXPRESSION                            DECL         975     A     
 DECL               SA2    T=VDIM                                                          DECL         976     A     
 DECL               IX7    X2-X1       OFFSET FOR INTERMEDIATES                            DECL         977     A     
 DECL               SX0    Z=TURP                                                          DECL         978     A     
 DECL               IX1    X1/X0,B7    CONVERT SIZE TO NUMBER OF TURPLES                   DECL         979     A     
 DECL               SA2    T=VDI                                                           DECL         980     A     
 DECL               SB2    X1          NUMBER OF TURPLES, CURRENT VD. EXPRESSION           DECL         981     A     
 DECL               SB3    X2          NUMBER OF T.VDI ENTRIES                             DECL         982     A     
 DECL                                                                                      DECL         983     A     
 DECL     *         THE FOLLOWING DUAL LOOP WILL TEST T.VDI ENTRIES FOR LENGTH             DECL         984     A     
 DECL     *         COMPATIBILITY.  IF AN EXISTING VD. EXPRESSION MATCHES THE              DECL         985     A     
 DECL     *         CURRENT EXPRESSION IN LENGTH, AN INTERMEDIATE OFFSET IS                DECL         986     A     
 DECL     *         CALCULATED, AND THE TWO EXPRESSIONS WILL BE COMPARED, TURPLE           DECL         987     A     
 DECL     *         BY TURPLE FOR A MATCH.  IF A MATCH IS FOUND, THE CURRENT               DECL         988     A     
 DECL     *         EXPRESSION TURPLES ARE ELIMINATED AND THAT VD. OPERAND IS              DECL         989     A     
 DECL     *         USED.  IF NO MATCH, LOOP IS CONTINUED UNTIL T.VDI IS EXHAUSTED         DECL         990     A     
 DECL     *         AT WHICH POINT THE CURRENT ENTRY STANDS AS UNIQUE.                     DECL         991     A     
 DECL     *                (X7) = INDEX OF CURRENT VD. EXPRESSION START                    DECL         992     A     
 DECL     *                (B2) = NUMBER OF TURPLES IN CURRENT VD. EXPRESSION              DECL         993     A     
 DECL     *                (B3) = COUNT OF T.VDI ENTRIES (AS YET UNCHECKED)                DECL         994     A     
 DECL                                                                                      DECL         995     A     
 DECL      OVS1     ZR     B3,OVS15    IF NO MORE ENTRIES                                  DECL         996     A     
 DECL               SA1    T.VDI                                                           DECL         997     A     
 DECL               =B3    B3-1                                                            DECL         998     A     
 DECL               SA2    X1+B3       FETCH T.VDI ENTRY                                   DECL         999     A     
 DECL               LX2    -VD.LENP                                                        DECL        1000     A     
 DECL               SB6    X2          EXTRACT NUMBER OF TURPLES                           DECL        1001     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 988    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               ERRNZ  18-VD.LENL                                                      DECL        1002     A     
 DECL               SB6    B6-B2                                                           DECL        1003     A     
 DECL               NZ     B6,OVS1     IF LENGTH NOT EQUAL, NO MATCH POSSIBLE              DECL        1004     A     
 DECL                                                                                      DECL        1005     A     
 DECL     *         A LENGTH MATCH IS FOUND.  PERFORM WORD BY WORD COMPARE FOR             DECL        1006     A     
 DECL     *         MATCHING VD. ENTRY.                                                    DECL        1007     A     
 DECL                                                                                      DECL        1008     A     
 DECL               LX2    VD.LENP-VD.PNTP                                                 DECL        1009     A     
 DECL               SB6    X2          EXTRACT ORDINAL OF START OF VD. EXPRESSION          DECL        1010     A     
 DECL               ERRNZ  18-VD.PNTL                                                      DECL        1011     A     
 DECL               SX0    B6+B6                                                           DECL        1012     A     
 DECL               SX0    X0+B6       CONVERT ORDINAL TO INDEX                            DECL        1013     A     
 DECL               ERRNZ  3-Z=TURP                                                        DECL        1014     A     
 DECL               SA1    T.VDIM                                                          DECL        1015     A     
 DECL               IX2    X1+X7       STARTING POINT, CURRENT VD. EXPRESSION              DECL        1016     A     
 DECL               IX1    X1+X0       STARTING POINT, TO BE TESTED VD. EXPRESSION         DECL        1017     A     
 DECL               IX0    X7-X0       INTERMEDIATE OFFSET                                 DECL        1018     A     
 DECL               =B6    1           LOOP COUNTER                                        DECL        1019     A     
 DECL               SA1    X1          PRE-FETCH TO BE TESTED VD.                          DECL        1020     A     
 DECL               SA2    X2          PRE-FETCH CURRENT VD.                               DECL        1021     A     
 DECL               =A4    A2-OR.OPR+OR.1OP                                                DECL        1022     A     
 DECL               SBIT   X4,TP.INTRP                                                     DECL        1023     A     
 DECL               PL     X4,OVS3     IF NOT INTERMEDIATE                                 DECL        1024     A     
 DECL               SX0    0           IF FIRST TURPLE IS INTERMEDIATE, NO OFFSET          DECL        1025     A     
 DECL                                                                                      DECL        1026     A     
 DECL      OVS3     EQ     B6,B2,OVS9  IF LAST (STORE) TURPLE                              DECL        1027     A     
 DECL               =A3    A1-OR.OPR+OR.1OP                                                DECL        1028     A     
 DECL               =A4    A2-OR.OPR+OR.1OP                                                DECL        1029     A     
 DECL               IX1    X1-X2                                                           DECL        1030     A     
 DECL               NZ     X1,OVS1     IF OPERATORS DONT MATCH                             DECL        1031     A     
 DECL               LX5    X4                                                              DECL        1032     A     
 DECL               SBIT   X5,TP.INTRP                                                     DECL        1033     A     
 DECL               PL     X5,OVS5     IF NOT INTERMEDIATE                                 DECL        1034     A     
 DECL               LX4    -TP.ORDP                                                        DECL        1035     A     
 DECL               IX4    X4-X0       ADJUST BY OFFSET                                    DECL        1036     A     
 DECL               LX4    TP.ORDP                                                         DECL        1037     A     
 DECL      OVS5     IX3    X3-X4                                                           DECL        1038     A     
 DECL               NZ     X3,OVS1     IF 1OPS DONT MATCH                                  DECL        1039     A     
 DECL               =A3    A3-OR.1OP+OR.2OP                                                DECL        1040     A     
 DECL               =A4    A4-OR.1OP+OR.2OP                                                DECL        1041     A     
 DECL               LX5    X4                                                              DECL        1042     A     
 DECL               SBIT   X5,TP.INTRP                                                     DECL        1043     A     
 DECL               PL     X5,OVS7     IF NOT INTERMEDIATE                                 DECL        1044     A     
 DECL               LX4    -TP.ORDP                                                        DECL        1045     A     
 DECL               IX4    X4-X0       ADJUST BY OFFSET                                    DECL        1046     A     
 DECL               LX4    TP.ORDP                                                         DECL        1047     A     
 DECL      OVS7     IX3    X3-X4                                                           DECL        1048     A     
 DECL               NZ     X3,OVS1     IF 2OPS DONT MATCH                                  DECL        1049     A     
 DECL               =A1    A1+Z=TURP                                                       DECL        1050     A     
 DECL               =A2    A2+Z=TURP                                                       DECL        1051     A     
 DECL               =B6    B6+1                                                            DECL        1052     A     
 DECL               EQ     OVS3        CONTINUE LOOP                                       DECL        1053     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 989    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        1054     A     
 DECL     *         ONLY CHECK OPERATOR AND FIRST OPERAND OF STORE TURPLE                  DECL        1055     A     
 DECL                                                                                      DECL        1056     A     
 DECL      OVS9     =A3    A1-OR.OPR+OR.1OP                                                DECL        1057     A     
 DECL               =A4    A2-OR.OPR+OR.1OP                                                DECL        1058     A     
 DECL               IX1    X1-X2                                                           DECL        1059     A     
 DECL               NZ     X1,OVS1     IF OPERATORS DONT MATCH                             DECL        1060     A     
 DECL               LX5    X4                                                              DECL        1061     A     
 DECL               SBIT   X5,TP.INTRP                                                     DECL        1062     A     
 DECL               PL     X5,OVS11    IF NOT INTERMEDIATE                                 DECL        1063     A     
 DECL               LX4    -TP.ORDP                                                        DECL        1064     A     
 DECL               IX4    X4-X0       ADJUST BY OFFSET                                    DECL        1065     A     
 DECL               LX4    TP.ORDP                                                         DECL        1066     A     
 DECL      OVS11    IX3    X3-X4                                                           DECL        1067     A     
 DECL               NZ     X3,OVS1     IF 1OPS DONT MATCH                                  DECL        1068     A     
 DECL                                                                                      DECL        1069     A     
 DECL     *         WE HAVE A MATCH, EXCEPT FOR VD. (WHICH CANT).  USE THE                 DECL        1070     A     
 DECL     *         TESTED VD. EXPRESSION                                                  DECL        1071     A     
 DECL                                                                                      DECL        1072     A     
 DECL               SA5    A3-OR.1OP+OR.2OP                                                DECL        1073     A     
 DECL               SHRINK T=VDIM,X7   TRASH CURRENT VD. EXPRESSION                        DECL        1074     A     
 DECL               EQ     OVS20                                                           DECL        1075     A     
 DECL                                                                                      DECL        1076     A     
 DECL      OVS15    SA5    OVSB                                                            DECL        1077     A     
 DECL               SA2    N.VD                                                            DECL        1078     A     
 DECL               =X7    X2+1        INCREMENT VD. COUNTER                               DECL        1079     A     
 DECL               SA7    A2                                                              DECL        1080     A     
 DECL               SA1    OVSA        NUMBER OF TURPLES * Z=TURP                          DECL        1081     A     
 DECL               SA2    T=VDIM                                                          DECL        1082     A     
 DECL               SX0    Z=TURP                                                          DECL        1083     A     
 DECL               =X6    X2-OR.2OP+OR.1OP-1                                              DECL        1084     A     
 DECL               IX2    X2-X1       STARTING POSITION                                   DECL        1085     A     
 DECL               LX6    VD.INDP                                                         DECL        1086     A     
 DECL               IX1    X1/X0,B7    CONVERT LENGTH TO NUMBER OF TURPLES                 DECL        1087     A     
 DECL               SX0    Z=TURP                                                          DECL        1088     A     
 DECL               IX2    X2/X0,B7    CONVERT STARTING POSITION TO ORDINAL                DECL        1089     A     
 DECL               LX1    VD.LENP                                                         DECL        1090     A     
 DECL               LX2    VD.PNTP                                                         DECL        1091     A     
 DECL               BX6    X6+X1       IND + LEN                                           DECL        1092     A     
 DECL               BX6    X6+X2       IND + PNT + LEN                                     DECL        1093     A     
 DECL               ADDWD  T.VDI                                                           DECL        1094     A     
 DECL      OVS20    LX7    X5                                                              DECL        1095     A     
 DECL               CLAS=  X6,DI,(TD)                                                      DECL        1096          I
          -FC5A231
 DECL               CLAS=  X6,DM,(TD)                                                      FC5A231       97     A     
 DECL               HX7    TP.BIAS                                                         DECL        1097     A     
 DECL               AX7    -TP.BIASL   EXTRACT VD. INDEX                                   DECL        1098     A     
 DECL               LX7    DI.INFP                                                         DECL        1099          I
          -FC5A231
 DECL               LX7    DM.INFP                                                         FC5A231       98     A     
 DECL               BX7    X6+X7       DIMENSION DESCRIPTOR                                DECL        1100     A     
 DECL               SX6    0                                                               DECL        1101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 990    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA6    OVSA        CLEAR TURPLE COUNT                                  DECL        1102     A     
 DECL               EQ     EXIT.                                                           DECL        1103     A     
 DECL                                                                                      DECL        1104     A     
 DECL      OVSA     CON    0           TURPLE COUNT FOR VD. (* Z=TURP)                     DECL        1105     A     
 DECL      OVSB     BSS    1           SAVE VD. OPERAND DURING SQUEEZE                     DECL        1106     A     
 DECL      OVT      SPACE  4,8                                                             DECL        1107     A     
 DECL     **        OVT -  OUTPUT VARIABLE DIMENSION TURPLE (VD.PL OR VD.MI)               DECL        1108     A     
 DECL     *                                                                                DECL        1109     A     
 DECL     *         ENTRY  (X4) = OR.1OP                                                   DECL        1110     A     
 DECL     *                (X5) = OR.2OP                                                   DECL        1111     A     
 DECL     *                (B3) = TURPLE TO OUTPUT                                         DECL        1112     A     
 DECL     *                                                                                DECL        1113     A     
 DECL     *         EXIT   (X4) = INTERMEDIATE (TP. FORMAT)                                DECL        1114     A     
 DECL     *                                                                                DECL        1115     A     
 DECL     *         USES   A1,A2,A7  B3  X1,X2,X4,X7                                       DECL        1116     A     
 DECL     *                                                                                DECL        1117     A     
 DECL     *         CALLS  EMT                                                             DECL        1118     A     
 DECL                                                                                      DECL        1119     A     
 DECL                                                                                      DECL        1120     A     
 DECL      OVT      SUBR               ...ENTRY/EXIT...                                    DECL        1121     A     
 DECL               EMIT   B3,*,T.VDIM                                                     DECL        1122     A     
 DECL               SA2    T=VDIM                                                          DECL        1123     A     
 DECL               SA1    OVSA                                                            DECL        1124     A     
 DECL               SX7    Z=TURP                                                          DECL        1125     A     
 DECL               IX2    X2-X7       FORM THE INTERMEDIATE INDEX                         DECL        1126     A     
 DECL               IX7    X1+X7       INCREMENT TURPLE COUNT                              DECL        1127     A     
 DECL               SA7    A1                                                              DECL        1128     A     
 DECL               LX2    TP.ORDP                                                         DECL        1129     A     
 DECL               CLAS=  X4,TP,(INTR),INT                                                DECL        1130     A     
 DECL               BX4    X2+X4       ORD + INTR + MODE                                   DECL        1131     A     
 DECL               EQ     EXIT.                                                           DECL        1132     A     
 DECL               TITLE  DECLARATIVE SCANNING AND SUPPORTING ROUTINES                    DECL        1133     A     
 DECL      EQS      SPACE  4,8                                                             DECL        1134     A     
 DECL     **        EQS -  PROCESS "EQUIVALENCE" DECLARATION.                              DECL        1135     A     
 DECL     *                                                                                DECL        1136     A     
 DECL     *         PERFORMS SYNTAX CHECKING OF THE STATEMENT, AND TRANSLATES THE          DECL        1137     A     
 DECL     *         EQUIVALENCES INTO T.EQUS TO AWAIT THE CLOSE OF DECLARATIVES.           DECL        1138     A     
 DECL     *                                                                                DECL        1139     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER.                                        DECL        1140     A     
 DECL     *                                                                                DECL        1141     A     
 DECL     *         SEE ANSI 8.2                                                           DECL        1142     A     
 DECL                                                                                      DECL        1143     A     
 DECL                                                                                      DECL        1144     A     
 DECL               HEREIF EQUIVALENCE                                                     DECL        1145     A     
 DECL                                                                                      DECL        1146     A     
 DECL               =X6    CR.DEC                                                          DECL        1147     A     
 DECL               SA6    REFVAR      SET REFERENCE TYPE                                  DECL        1148     A     
 DECL               SB4    B4-B1                                                           DECL        1149     A     
 DECL                                                                                      DECL        1150     A     
 DECL     **        BEGIN NEW EQUIVALENCE GROUP.                                           DECL        1151     A     
 DECL     *                (B4) _ LPAREN IN FRONT OF GROUP.                                DECL        1152     A     
 DECL                                                                                      DECL        1153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 991    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      EQS10    SA1    B4+B1                                                           DECL        1154     A     
 DECL               SB4    B4+B1       ADVANCE B4 TO 1ST SYMBOL                            DECL        1155     A     
 DECL               ZR     X1,E.MR3    IF *EOS* - ERROR                                    DECL        1156     A     
 DECL               SB7    X1-O.(                                                          DECL        1157     A     
 DECL               SX6    B1                                                              DECL        1158     A     
 DECL               SA6    EQSR        (EQSR) = GROUP COUNT = 1                            DECL        1159     A     
 DECL               NZ     B7,E.EQ1    IF NO *(* - ERROR                                   DECL        1160     A     
 DECL                                                                                      DECL        1161     A     
 DECL                                                                                      DECL        1162     A     
 DECL     **        NOW PROCESS A NAME.                                                    DECL        1163     A     
 DECL     *                (B4) _ SYMBOL                                                   DECL        1164     A     
 DECL                                                                                      DECL        1165     A     
 DECL      EQS20    SA1    B4+B1                                                           DECL        1166     A     
 DECL               SB4    B4+B1                                                           DECL        1167     A     
 DECL               BX6    X1                                                              DECL        1168     A     
 DECL               =B2    0           ENTRY (VALUE.) NOT ALLOWED                          DECL        1169     A     
 DECL               SA6    FILL.       SAVE NAME FOR (POSSIBLE) ERROR MESSAGE              DECL        1170     A     
 DECL               CALL   TRV         TRANSLATE VARIABLE                                  DECL        1171     A     
 DECL               MI     X0,EQS80    IF TRV DETECTED ERROR                               DECL        1172     A     
 DECL               =A3    A2-WB.W+WA.W                                                    FC5A192       60     A     
 DECL               CLAS=  X6,WA,NFP                                                       FC5A192       61     A     
 DECL               BX6    X3+X6                                                           FC5A192       62     A     
 DECL               SA6    A3          NFP[WA] = 1                                         FC5A192       63     A     
 DECL               CLAS=  X3,WB,(NVAR,LAB,FP,NLST,DEXT,ENT,PARM,EXT)                      DECL        1173     A     
 DECL               =X1    WB.EQVP                                                         DECL        1174     A     
 DECL               CALL   CCT         CHECK FOR CONFLICTING CLASS                         DECL        1175     A     
 DECL               MI     X0,EQS80    IF CLASS CONFLICT                                   DECL        1176     A     
 DECL               SA4    EQSR                                                            DECL        1177     A     
 DECL               SB6    X4                                                              DECL        1178          I
          -FC50757
 DECL               LX6    X4                                                              FC50757       10     A     
 DECL               BX7    X2                                                              DECL        1179     A     
 DECL               SX1    B7                                                              DECL        1180     A     
 DECL               LX6    EQ.LINKP                                                        FC50757       11     A     
 DECL               SA7    EQSB        SAVE SYMTAB PROPERTIES (WB)                         DECL        1181     A     
 DECL               PX6    X1,B6       MERGE GROUP-FLAG WITH SYMTAB WB INDEX               DECL        1182          I
          -FC50757
 DECL               BX6    X6+X1       MERGE GROUP FLAG WITH SYMTAB WB INDEX               FC50757       12     A     
 DECL               SX7    X4+B1                                                           DECL        1183     A     
 DECL               SA7    A4          (EQSR) = (EQSR) + 1                                 DECL        1184     A     
 DECL               ADDWD  T.EQUS      1ST WORD TO TABLE                                   DECL        1185     A     
 DECL               SX6    X2-1        HDIND = (T=EQUS) - 1                                DECL        1186     A     
 DECL               SA6    EQSH        (EQSH) = INDEX OF 1ST WORD                          DECL        1187     A     
 DECL               SA4    B4+B1                                                           DECL        1188     A     
 DECL               SB4    B4+B1       ADVANCE B4                                          DECL        1189     A     
 DECL               SB6    X4-O.LP                                                         DECL        1190     A     
 DECL               MX6    0                                                               DECL        1191     A     
 DECL               SA6    EQSS        (EQSS) = SUBSCRIPT COUNT = 0                        DECL        1192     A     
 DECL               SA2    EQSB                                                            DECL        1193     A     
 DECL               MX3    0                                                               DECL        1194          I
          -FC50757
 DECL               PX6    X3          SUBS = 0                                            DECL        1195          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 992    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC50757
 DECL               HX4    TB.COL                                                          DECL        1196     A     
 DECL               HX2    WB.ARY                                                          DECL        1197     A     
 DECL               NZ     B6,EQS25    IF NOT LEFT PAREN                                   DECL        1198     A     
 DECL               PL     X4,EQS40    IF NO COLON IMBEDED                                 DECL        1199     A     
 DECL               ADDWD  T.EQUS      FAKE SUBSCRIPT OF ZERO                              DECL        1200     A     
 DECL               EQ     EQS60       BEFORE GO OFF TO SUB-STRING PROCESSING              DECL        1201     A     
 DECL                                                                                      DECL        1202     A     
 DECL      EQS25    PL     X2,EQS30    IF NOT ARRAY                                        DECL        1203          I
          -FC5A217
 DECL               ANSI   E.VA08                                                          DECL        1204          I
          -FC5A217
 DECL      EQS30    ADDWD  T.EQUS      FAKE SUBSCRIPT OF ZERO                              DECL        1205          I
          -FC5A217
 DECL      EQS25    ADDWD  T.EQUS      FAKE SUBSCRIPT OF ZERO                              FC5A217        5     A     
 DECL               EQ     EQS65                                                           DECL        1206     A     
 DECL                                                                                      DECL        1207     A     
 DECL                                                                                      DECL        1208     A     
 DECL     **        PROCESS SUBSCRIPT.  (IF ANY)                                           DECL        1209          I
          -FC50299
 DECL     **        PROCESS SUBSCRIPT.                                                     FC50299       13     A     
 DECL                                                                                      DECL        1210     A     
 DECL      EQS40    SA1    B4+B1                                                           DECL        1211          I
          -FC50299
 DECL               SB4    B4+B1       ADVANCE B4                                          DECL        1212          I
          -FC50299
 DECL      EQS40    SA1    EQSH        1ST WORD INDEX                                      FC50299       14     A     
 DECL               SA2    T.EQUS                                                          FC50299       15     A     
 DECL               SB7    X1                                                              FC50299       16     A     
 DECL               SA1    X2+B7       FETCH ITEM 1ST WORD                                 FC50299       17     A     
 DECL               CLAS=  X2,EQ,(ISUB)                                                    FC50299       18     A     
 DECL               BX6    X1+X2       MERGE IN SUBSCRIPTED INDICATOR                      FC50299       19     A     
 DECL               SA6    A1          UPDATE                                              FC50299       20     A     
 DECL               SB4    B4+1        ADVANCE *TB* POINTER                                FC50299       21     A     
 DECL               CALL   PIX         PARSE THE SUBSCRIPT                                 DECL        1213     A     
 DECL               SA5    EQSS        SUBSCRIPT COUNT = (EQSS)                            DECL        1214     A     
 DECL               SX4    X5-MAX.DIM-1                                                    DECL        1215     A     
 DECL               SX7    X5+B1                                                           DECL        1216     A     
 DECL               SA7    A5          (EQSS) = (EQSS) + 1                                 DECL        1217     A     
 DECL               PX6    X6                                                              DECL        1218          I
          -FC50757
 DECL               MX0    -EQ.SUBSL                                                       FC50757       13     A     
 DECL               LX6    -EQ.SUBSP                                                       FC50757       14     A     
 DECL               BX6    -X0*X6      TRUNCATE TO EQ.SUBS (IF NEGATIVE)                   FC50757       15     A     
 DECL               LX6    EQ.SUBSP                                                        FC50757       16     A     
 DECL               ADDWD  T.EQUS      ADD SUBSC TO TABLE                                  DECL        1219     A     
 DECL               SA1    B4                                                              DECL        1220     A     
 DECL               SX2    X1-O.COMMA                                                      DECL        1221     A     
 DECL               SB7    X1-O.)                                                          DECL        1222     A     
 DECL               PL     X4,E.EQ4    IF TOO MANY SUBSCRIPTS                              DECL        1223     A     
 DECL               ZR     X2,EQS40    IF COMMA, MORE SUBSCRIPTS                           DECL        1224     A     
 DECL               NZ     B7,E.EQ3    IF NO RPAREN, ERROR                                 DECL        1225     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 993    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA4    B4+B1                                                           DECL        1226     A     
 DECL               SB4    B4+B1                                                           DECL        1227     A     
 DECL                                                                                      DECL        1228     A     
 DECL     *         PROCESS (POSSIBLE) SUBSTRING.                                          DECL        1229     A     
 DECL                                                                                      DECL        1230     A     
 DECL      EQS60    SB3    X4-O.LP                                                         DECL        1231     A     
 DECL               NE     B3,EQS65    IF NOT LEFT PAREN                                   DECL        1232     A     
 DECL               SA1    EQSH                                                            DECL        1233     A     
 DECL               SA2    T.EQUS                                                          DECL        1234     A     
 DECL               IX3    X1+X2                                                           DECL        1235     A     
 DECL               SA1    X3          SYMIND = SYMI[T.EQUS( (EQSH) )                      DECL        1236     A     
 DECL               RJ     PKS         PARSE CONSTANT SUBSTRING                            DECL        1237     A     
 DECL               SA1    EQSH                                                            DECL        1238     A     
 DECL               SA2    T.EQUS                                                          DECL        1239     A     
 DECL               IX1    X1+X2                                                           DECL        1240     A     
 DECL               LX5    EQ.STFP                                                         DECL        1241     A     
 DECL               SA1    X1          EQI = T.EQUS(EQIND)                                 DECL        1242     A     
 DECL               BX6    X1+X5                                                           DECL        1243     A     
 DECL               SA6    A1          STF[EQI] = SUBSTRING-FIRST                          DECL        1244     A     
 DECL               SA4    B4                                                              DECL        1245     A     
 DECL                                                                                      DECL        1246     A     
 DECL     **        END OF EQUIVALENCE ITEM.                                               DECL        1247     A     
 DECL     *                (X4) = NEXT *SB* ENTRY.                                         DECL        1248     A     
 DECL     *                (B4) _ COMMA, AFTER THE SYMBOL, OR                              DECL        1249     A     
 DECL     *                       RPAREN, TERMINATING THE GROUP.                           DECL        1250     A     
 DECL                                                                                      DECL        1251     A     
 DECL      EQS65    SB7    X4-O.COMMA                                                      DECL        1252     A     
 DECL               SX3    X4-O.)                                                          DECL        1253     A     
 DECL               ZR     B7,EQS20    IF COMMA, GET MORE NAMES                            DECL        1254     A     
 DECL               NZ     X3,E.EQ     IF NO RIGHT PAREN ... ERROR                         DECL        1255     A     
 DECL                                                                                      DECL        1256     A     
 DECL                                                                                      DECL        1257     A     
 DECL     **        CLOSE OUT AN EQUIVALENCE GROUP.                                        DECL        1258     A     
 DECL     *                CHECK FOR TRIVAL GROUP.                                         DECL        1259     A     
 DECL     *                SYNTAX CHECK FOR COMMA OR *EOS*.                                DECL        1260     A     
 DECL                                                                                      DECL        1261     A     
 DECL               SA2    EQSR                                                            DECL        1262     A     
 DECL               SB6    X2                                                              DECL        1263     A     
 DECL               =B7    2                                                               DECL        1264     A     
 DECL               =A4    B4+1                                                            DECL        1265     A     
 DECL               GT     B6,B7,EQS70 IF MORE THAN ONE MEMBER IN GROUP                    DECL        1266     A     
 DECL               WARN   E.EQ6       TRIVIAL GROUP - WARNING                             DECL        1267     A     
 DECL                                                                                      FC50299       22     A     
 DECL      EQS70    SB4    B4+B1       ADVANCE B4                                          DECL        1268     A     
 DECL               SB7    X4-O.COMMA                                                      DECL        1269     A     
 DECL               ZR     B7,EQS10    IF COMMA                                            DECL        1270     A     
 DECL               NZ     X4,E.EQ2    IF NOT *EOS*                                        DECL        1271     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1272     A     
 DECL               EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     DECL        1273     A     
 DECL                                                                                      DECL        1274     A     
 DECL                                                                                      DECL        1275     A     
 DECL     **        RETURN TO HERE WHEN AN ERROR IS FOUND.                                 DECL        1276     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 994    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *                SEARCH FOR AN LPAREN IN ATTEMPT TO RECOVER FROM THE             DECL        1277     A     
 DECL     *                ERROR, AND RESUME SYNTAX CHECKING.                              DECL        1278     A     
 DECL                                                                                      DECL        1279     A     
 DECL      EQS80    BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      DECL        1280     A     
 DECL               SA1    B4+B1                                                           DECL        1281     A     
 DECL               SB4    B4+B1                                                           DECL        1282     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL        1283     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1284     A     
 DECL               LX1    CHAR                                                            DECL        1285     A     
 DECL               SX1    X1-O.(                                                          DECL        1286     A     
 DECL               NZ     X1,EQS80    IF NO LPAREN                                        DECL        1287     A     
 DECL               SB4    B4-B1                                                           DECL        1288     A     
 DECL               EQ     EQS10       TRY FOR MORE                                        DECL        1289     A     
 DECL                                                                                      DECL        1290     A     
 DECL      EQSB     EQU    DIRT        CELL TO SAVE SYMTAB WORD WB                         DECL        1291     A     
 DECL      EQSH     EQU    DIRS        CELL TO SAVE T.EQUS INDEX OF FIRST WORD             DECL        1292     A     
 DECL      EQSS     EQU    DIRI        CELL TO SAVE SUBSCRIPT COUNT                        DECL        1293     A     
 DECL      EQSR     BSS    1           CELL TO SAVE GROUP MEMBER COUNT                     DECL        1294     A     
 DECL      EXT      SPACE  4,10                                                            DECL        1295     A     
 DECL     **        EXT -  PROCESS "EXTERNAL" DECLARATION.                                 DECL        1296     A     
 DECL     *                                                                                DECL        1297     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER.                                        DECL        1298     A     
 DECL     *                                                                                DECL        1299     A     
 DECL     *         SEE ANSI 8.7                                                           DECL        1300     A     
 DECL                                                                                      DECL        1301     A     
 DECL                                                                                      DECL        1302     A     
 DECL               HEREIF EXTERNAL                                                        DECL        1303     A     
 DECL                                                                                      DECL        1304     A     
 DECL               CLAS=  X2,WB,(DEXT,EXT,NVAR)                                           DECL        1305     A     
 DECL               BX6    X2                                                              DECL        1306     A     
 DECL               SA6    EXTA        INDICATE *EXTERNAL* STATEMENT                       DECL        1307     A     
 DECL      EXT1     SA1    B4                                                              DECL        1308     A     
 DECL               ZR     X1,E.EX3    IF NO NEXT ITEM - ERROR                             DECL        1309     A     
 DECL               MX0    CH.DPCL                                                         DECL        1310     A     
 DECL               SB2    X1-O.VAR                                                        DECL        1311     A     
 DECL               BX6    X0*X1       ELEMENT ONLY.                                       DECL        1312     A     
 DECL               SB4    B4+B1                                                           DECL        1313          I
          -FC50110
 DECL               SA6    FILL.       IN CASE OF ERROR.                                   DECL        1314     A     
 DECL               ZR     B2,EXT5     IF VARIABLE.                                        DECL        1315          I
          -FC50110
 DECL               =B4    B4-1                                                            DECL        1316          I
          -FC50110
 DECL               FATAL  E.VA09                                                          DECL        1317          I
          -FC50110
 DECL               NZ     B2,E.VA09   IF NOT VARIABLE                                     FC50110       11     A     
 DECL               =A1    B4+1                                                            FC50110       12     A     
 DECL               =B4    B4+1                                                            DECL        1318     A     
 DECL               EQ     PSL                                                             DECL        1319          I
          -FC50110
 DECL                                                                                      DECL        1320          I
          -FC50110
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 995    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      EXT5     SA1    B4                                                              DECL        1321          I
          -FC50110
 DECL               SB7    X1-O.VAR                                                        DECL        1322     A     
 DECL               NZ     B7,EXT6     IF NOT LONG NAME                                    DECL        1323     A     
 DECL               =B4    B4-1                                                            DECL        1324     A     
 DECL               CALL   TLV         TRUNCATE NAME                                       DECL        1325     A     
 DECL               =B4    B4+1                                                            DECL        1326     A     
 DECL      EXT6     CALL   SSY         SCAN SYMBOL TABLE                                   DECL        1327     A     
 DECL               MI     B7,EXT10    IF *NIT*                                            DECL        1328     A     
 DECL               BX1    X2                                                              DECL        1329     A     
 DECL               SBIT   X1,WB.DEXTP                                                     DECL        1330     A     
 DECL               PL     X1,EXT7     IF NOT DEFINED EXTERNAL                             DECL        1331     A     
 DECL               WARN   E.EX1                                                           DECL        1332     A     
 DECL               EQ     EXT15       CONTINUE.                                           DECL        1333     A     
 DECL                                                                                      DECL        1334     A     
 DECL      EXT7     SBIT   X1,WB.ENTP/WB.DEXTP                                             DECL        1335     A     
 DECL               PL     X1,EXT9     IF NOT EXTERNAL                                     DECL        1336          I
          -FC5A444
 DECL               PL     X1,EXT8     IF NOT EXTERNAL                                     FC5A444      109     A     
 DECL               WARN   E.EX4                                                           DECL        1337     A     
 DECL               EQ     EXT15       CONTINUE                                            DECL        1338     A     
 DECL                                                                                      FC5A444      110     A     
 DECL      EXT8     SBIT   X1,WB.ALP/WB.ENTP                                               FC5A444      111     A     
 DECL               PL     X1,EXT9     IF AUTOMATIC LEVEL OFF                              FC5A444      112     A     
 DECL               CLAS=  X1,WB,(AL,LEV)                                                  FC5A444      113     A     
 DECL               BX2    -X1*X2      CLEAR AL AND LEV FOR EXTERNAL SYMBOL                FC5A444      114     A     
 DECL                                                                                      DECL        1339     A     
 DECL      EXT9     CLAS=  X3,WB,(LAB,VAR,INTF,GENF,ENT,PARM)                              DECL        1340     A     
 DECL               SX1    WB.DEXTP                                                        DECL        1341     A     
 DECL               CALL   CCT         CHECK FOR CONFLICTING CLASS                         DECL        1342     A     
 DECL               MI     X0,EXT15    IF CLASS CONFLICT                                   DECL        1343     A     
 DECL               SA3    EXTA                                                            DECL        1344     A     
 DECL               BX7    X3+X2       MERGE *EXTERNAL* PROPERTY BITS                      DECL        1345     A     
 DECL               SA7    A2                                                              DECL        1346     A     
 DECL               EQ     EXT15       CONTINUE.                                           DECL        1347     A     
 DECL                                                                                      DECL        1348     A     
 DECL      EXT10    CALL   STY         SET NATURAL TYPE                                    DECL        1349     A     
 DECL               SA3    EXTA                                                            DECL        1350     A     
 DECL               BX7    X3+X1                                                           DECL        1351     A     
 DECL               ADSYM  T.SYM                                                           DECL        1352     A     
 DECL                                                                                      DECL        1353     A     
 DECL      EXT15    =X6    X0          CONSTRUCT XREF ORD                                  DECL        1354     A     
 DECL               LX6    XR.TAGP                                                         DECL        1355     A     
 DECL               ADDREF X6,CR.SUB                                                       DECL        1356     A     
 DECL               SA1    B4                                                              DECL        1357     A     
 DECL               SB4    B4+B1                                                           DECL        1358     A     
 DECL               SX2    X1-O.COMMA                                                      DECL        1359     A     
 DECL               ZR     X2,EXT1     IF NO *EOS*                                         DECL        1360     A     
 DECL               ZR     X1,FEC.RTN  IF COMPLETE                                         DECL        1361     A     
 DECL               =B4    B4-1                                                            DECL        1362     A     
 DECL               FATAL  E.EX2                                                           DECL        1363     A     
 DECL                                                                                      DECL        1364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 996    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     **        HERE IF SYNTAX ERROR ENCOUNTERED                                       DECL        1365     A     
 DECL     *         ADVANCE TILL NEXT SEPARATOR FOUND AND CONTINUE.                        DECL        1366     A     
 DECL                                                                                      DECL        1367     A     
 DECL      EXT20    SA1    B4                                                              DECL        1368     A     
 DECL               SX2    X1-O.COMMA                                                      DECL        1369     A     
 DECL               ZR     X2,EXT1     IF COMMA AFTER ERROR                                DECL        1370     A     
 DECL               SB4    B4+B1                                                           DECL        1371     A     
 DECL               NZ     X1,EXT20    CONTINUE.                                           DECL        1372     A     
 DECL               EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER                        DECL        1373     A     
 DECL                                                                                      DECL        1374     A     
 DECL      EXTA     EQU    DIMI        HOLDS PROPERTY BITS FOR SYMTAB (WB)                 DECL        1375     A     
 DECL      INT      SPACE  4,8                                                             DECL        1376     A     
 DECL     **        INT -  PROCESS "INTRINSIC" DECLARATION                                 DECL        1377     A     
 DECL     *                                                                                DECL        1378     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER                                         DECL        1379     A     
 DECL     *                                                                                DECL        1380     A     
 DECL     *         SEE ANSI 8.8                                                           DECL        1381     A     
 DECL                                                                                      DECL        1382     A     
 DECL                                                                                      DECL        1383     A     
 DECL               HEREIF INTRINSIC                                                       DECL        1384     A     
 DECL                                                                                      DECL        1385     A     
 DECL      INT1     SA1    B4          FETCH INTRINSIC                                     DECL        1386     A     
 DECL               SB2    X1-O.VAR                                                        DECL        1387     A     
 DECL               NZ     B2,E.IN     IF NOT INTRINSIC                                    DECL        1388     A     
 DECL               SX2    X1                                                              DECL        1389     A     
 DECL               IX1    X1-X2       NAME ONLY                                           DECL        1390     A     
 DECL               BX6    X1                                                              DECL        1391     A     
 DECL               SA6    FILL.                                                           DECL        1392     A     
 DECL               CALL   SLT         SCAN LIBRARY TABLE                                  DECL        1393     A     
 DECL               SB5    B2          SAVE F.INTF INDEX                                   DECL        1394     A     
 DECL               PL     B2,INT2     IF IN INTRINSIC TABLE                               DECL        1395     A     
 DECL               FATAL  E.IN1                                                           DECL        1396     A     
 DECL               EQ     INT10                                                           DECL        1397     A     
 DECL                                                                                      DECL        1398     A     
 DECL     *                (X3) = *WB* SYMTAB ENTRY                                        DECL        1399     A     
 DECL     *                (X7) = *WC* SYMTAB ENTRY                                        DECL        1400     A     
 DECL                                                                                      DECL        1401     A     
 DECL      INT2     LX5    X7          SAVE *WC*                                           DECL        1402     A     
 DECL               CLAS=  X7,WB,(INTF)                                                    DECL        1403     A     
 DECL               BX7    X3+X7       SAVE *WB* (CORRECT REGISTER FOR ESY)                DECL        1404     A     
 DECL               CALL   SSY         SCAN SYMBOL TABLE                                   DECL        1405     A     
 DECL               PL     B7,INT5     IF ALREADY IN SYMBOL TABLE                          DECL        1406     A     
 DECL               BX2    X5                                                              DECL        1407     A     
 DECL               ADSYM  A1          ENTER INTO SYMBOL TABLE                             DECL        1408     A     
 DECL               EQ     INT10                                                           DECL        1409     A     
 DECL                                                                                      DECL        1410     A     
 DECL     *                (X5) = *WC* SYMTAB ENTRY                                        DECL        1411     A     
 DECL     *                (X7) = *WB* SYMTAB ENTRY                                        DECL        1412     A     
 DECL                                                                                      DECL        1413     A     
 DECL      INT5     SX1    WB.INTFP                                                        DECL        1414     A     
 DECL               CLAS=  X3,WB,(VAR,EXT,ENT,FP)                                          DECL        1415     A     
 DECL               CALL   CCT         CHECK CONFLICTS                                     DECL        1416     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 997    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               MI     X0,INT10    IF CONFLICT                                         DECL        1417     A     
 DECL               LX0    X2                                                              DECL        1418     A     
 DECL               SBIT   X0,WB.INTFP                                                     DECL        1419     A     
 DECL               PL     X0,INT6     IF NOT ALREADY INTRINSIC                            DECL        1420     A     
 DECL               WARN   E.IN2                                                           DECL        1421     A     
 DECL               EQ     INT10                                                           DECL        1422     A     
 DECL                                                                                      DECL        1423     A     
 DECL     *                (B5) = F.INTF INDEX OF INTRINSIC                                DECL        1424     A     
 DECL                                                                                      DECL        1425     A     
 DECL      INT6     SBIT   X0,WB.TYPP/WB.INTFP                                             DECL        1426     A     
 DECL               PL     X0,INT7     IF NOT TYPED                                        DECL        1427     A     
 DECL               MX0    -WB.MODEL                                                       DECL        1428     A     
 DECL               BX3    -X0*X2      ISOLATE TYPED MODE                                  DECL        1429     A     
 DECL               ERRNZ  WB.MODEP                                                        DECL        1430     A     
 DECL               SA1    B5+F.INTF   FETCH INTRINSIC TABLE ENTRY                         DECL        1431     A     
 DECL               BX1    -X0*X1      ISOLATE INTRINSIC MODE                              DECL        1432     A     
 DECL               ERRNZ  IT.MODEP                                                        DECL        1433     A     
 DECL               ERRNZ  IT.MODEL-WB.MODEL                                               DECL        1434     A     
 DECL               IX3    X1-X3                                                           DECL        1435     A     
 DECL               ZR     X3,INT7     IF CONFIRMING MODE                                  DECL        1436     A     
 DECL               BX2    X0*X2       CLEAR NON CONFIRMING MODE                           DECL        1437     A     
 DECL               IX2    X2+X1       REPLACE WITH INTRINSIC MODE                         DECL        1438     A     
 DECL               WARN   E.IN3                                                           DECL        1439     A     
 DECL                                                                                      DECL        1440     A     
 DECL      INT7     BX6    X5          *WC*                                                DECL        1441     A     
 DECL               BX7    X2+X7       MERGE IN INTRINSIC BITS                             DECL        1442     A     
 DECL               SA7    A2          UPDATE *WB*                                         DECL        1443     A     
 DECL               =A6    A7-WB.W+WC.W                                                    DECL        1444     A     
 DECL                                                                                      DECL        1445     A     
 DECL      INT10    =A1    B4+1                                                            DECL        1446     A     
 DECL               =B4    B4+1                                                            DECL        1447     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1448     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL        1449     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1450     A     
 DECL               NZ     B2,E.IN4    IF NOT *COMMA*                                      DECL        1451     A     
 DECL               =B4    B4+1                                                            DECL        1452     A     
 DECL               EQ     INT1        CONTINUE..                                          DECL        1453     A     
 DECL      LVL      SPACE  4,10                                                            DECL        1454     A     
 DECL     **        LVL -  PROCESS "LEVEL" STATEMENT                                       DECL        1455     A     
 DECL     *                                                                                DECL        1456     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER.                                        DECL        1457     A     
 DECL                                                                                      DECL        1458     A     
 DECL                                                                                      DECL        1459     A     
 DECL               HEREIF LEVEL                                                           DECL        1460     A     
 DECL                                                                                      DECL        1461     A     
 DECL               ANSI   E.ANS                                                           DECL        1462     A     
 DECL               SA4    B4          LEVEL NUMBER                                        FC5A231       99     A     
 DECL               MX6    CA.BNAML                                                        DECL        1463     A     
 DECL               SA6    LEVEL       FLAG LEVEL STATEMENT                                DECL        1464     A     
 DECL               SA6    SCSA        MASK FOR SCS                                        DECL        1465     A     
 DECL               SA4    B4          FETCH LEVEL NUMBER                                  DECL        1466          I
          -FC5A231
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 998    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB2    X4-O.CONS                                                       DECL        1467     A     
 DECL               SB3    X4-O.VAR                                                        DECL        1468     A     
 DECL               ZR     X4,E.LV1    IF PREMATURE E.O.S.                                 DECL        1469     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1470     A     
 DECL               ZR     B2,LVL05    IF NUMBER                                           DECL        1471     A     
 DECL               NZ     B3,E.LV1    IF NOT VARIABLE                                     DECL        1472     A     
 DECL                                                                                      DECL        1473     A     
 DECL     *         CHECK FOR POSSIBLE SYMBOLIC CONSTANT.                                  DECL        1474     A     
 DECL                                                                                      DECL        1475     A     
 DECL               CALL   CSC         CHECK SYMBOLIC CONSTANT                             DECL        1476     A     
 DECL               MI     B7,E.LV1    IF VAR NOT SYMBOLIC CONSTANT                        DECL        1477     A     
 DECL               SX5    X4+1R0                                                          DECL        1478          I
          -FC5A231
 DECL               SX5    X6+1R0                                                          FC5A231      100     A     
 DECL               SB3    X1-M.INT                                                        DECL        1479          I
          -FC50570
 DECL               ZR     X1,LVL10    IF MODE BOOLEAN                                     DECL        1480          I
          -FC50570
 DECL               LX0    XR.TAGP                                                         FC50570       55     A     
 DECL               SB5    X1          SAVE MODE ACROSS ERT CALL                           FC50570       56     A     
 DECL               BX4    X6          SAVE BINARY ACROSS ERT                              FC50570       57     A     
 DECL               SX1    CR.DEC                                                          FC50570       58     A     
 DECL               ADDREF X0,X1       FOR PARAMETER                                       FC50570       59     A     
 DECL               LX6    X4          RESTORE BINARY                                      FC50570       60     A     
 DECL               ZR     B5,LVL10    IF MODE BOOLEAN                                     FC50570       61     A     
 DECL               ERRNZ  M.BOOL                                                          DECL        1481     A     
 DECL               ZR     B3,LVL10    IF TYPE INTEGER                                     DECL        1482          I
          -FC50570
 DECL               SB5    B5-M.INT                                                        FC50570       62     A     
 DECL               ZR     B5,LVL10    IF MODE INTEGER                                     FC50570       63     A     
 DECL               EQ     E.LV1                                                           DECL        1483     A     
 DECL                                                                                      DECL        1484     A     
 DECL      LVL05    MX0    TB.TOCL                                                         DECL        1485     A     
 DECL               HX4    TB.TOC                                                          DECL        1486     A     
 DECL               BX5    X0*X4       ISOLATE TOKEN VALUE FOR THE NUMBER                  DECL        1487     A     
 DECL               LX5    6                                                               DECL        1488          I
          -FC5A231
 DECL               SX6    1R0                                                             DECL        1489          I
          -FC5A231
 DECL               IX4    X5-X6       (X4) = LEVNO                                        DECL        1490          I
          -FC5A231
 DECL               SX6    1R0                                                             FC5A231      101     A     
 DECL               LX5    CHAR                                                            FC5A231      102     A     
 DECL               IX6    X5-X6       BINARY OF LEVEL NUMBER                              FC5A231      103     A     
 DECL                                                                                      FC5A231      104     A     
 DECL      LVL10    SX2    1R3                                                             DECL        1491     A     
 DECL               IX1    X2-X5       .MI. IFF (3 .LT. LEV)                               DECL        1492     A     
 DECL               BX2    X2+X4                                                           DECL        1493          I
          -FC5A231
 DECL               MI     X7,E.LV1    IF (LEV .LT. 0) OR (LEV .GT. 3)                     DECL        1494          I
          -FC5A231
 DECL               BX6    X4                                                              DECL        1495          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE 999    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC5A231
 DECL               BX7    X4                                                              DECL        1496          I
          -FC5A231
 DECL               NZ     X4,LVL15    IF LEVNO .NE. 0                                     DECL        1497          I
          -FC5A231
 DECL               SX4    X4+2                                                            DECL        1498          I
          -FC5A231
 DECL               BX7    X4                                                              DECL        1499          I
          -FC5A231
 DECL      LVL15    =X2    X4+.DAL-3                                                       DECL        1500          I
          -FC5A231
 DECL               BX2    X1+X6                                                           FC5A231      105     A     
 DECL               MI     X2,E.LV1    IF (LEV .LT. 0) OR (LEV .GT. 3)                     FC5A231      106     A     
 DECL               BX7    X6                                                              FC5A231      107     A     
 DECL               NZ     X6,LVL15    IF (LEV .NE. 0)                                     FC5A231      108     A     
 DECL               SX7    X6+2                                                            FC5A231      109     A     
 DECL                                                                                      FC5A231      110     A     
 DECL      LVL15    SX2    X7+.DAL-3                                                       FC5A231      111     A     
 DECL               ERRPL  .DAL-3                                                          DECL        1501          I
          -F1037F5
 DECL               ERRPL  .DAL-2                                                          F1037F5      406     A     
 DECL               MI     X2,LVL20    IF (LEVNO+.DAL) .LT. 3 THEN NOT LARGE CORE          DECL        1502     A     
 DECL               IFEQ   .MI,1,4                                                         F1037F5      407          I
          -FC50570
 DECL                                                                                      FC50570       64     A     
 DECL      #MI      IFEQ   .MI,ON                                                          FC50570       65     A     
 DECL               NZ     X2,LVL19    IF LEVEL 3                                          F1037F5      408     A     
 DECL               SA2    =XCO.TMLC                                                       F1037F5      409          I
          -FC50570
 DECL               SA2    CO.TMLC                                                         FC50570       66     A     
 DECL               ZR     X2,LVL20    IF NO LCM                                           F1037F5      410     A     
 DECL                                                                                      FC50570       67     A     
 DECL      LVL19    BSS    0                                                               F1037F5      411     A     
 DECL      #MI      ENDIF                                                                  FC50570       68     A     
 DECL                                                                                      F1037F5      412     A     
 DECL               SA7    LEVEL2      INDICATE THAT LARGE CORE VARIABLES APPEARED         DECL        1503     A     
 DECL                                                                                      FC50570       69     A     
 DECL      LVL20    SA6    LVLA        REMEMBER (LVLA) = LEVNO                             DECL        1504     A     
 DECL                                                                                      DECL        1505     A     
 DECL     *         PROCESS COMMA FOLLOWING LEVEL NUMBER.                                  DECL        1506     A     
 DECL                                                                                      DECL        1507     A     
 DECL               =A1    B4+1                                                            DECL        1508     A     
 DECL               =B4    A1+1                                                            DECL        1509     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1510     A     
 DECL               ZR     X1,E.LV3    IF PREMATURE E.O.S.                                 DECL        1511     A     
 DECL               ZR     B2,LVL25    IF COMMA                                            DECL        1512     A     
 DECL               WARN   E.LV2       MISSING COMMA                                       DECL        1513     A     
 DECL               =B4    B4-1                                                            FC5A194        5     A     
 DECL                                                                                      DECL        1514     A     
 DECL     *         PROCESS VARIABLE/ARRAY LIST                                            DECL        1515     A     
 DECL                                                                                      DECL        1516     A     
 DECL      LVL25    SA1    B4          FETCH NAME                                          DECL        1517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1000    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB2    X1-O.VAR                                                        DECL        1518     A     
 DECL               SB3    X1-O.SLASH                                                      DECL        1519     A     
 DECL               SB7    X1-O.CAT                                                        DECL        1520     A     
 DECL               ZR     B2,LVL30    IF NAME                                             DECL        1521     A     
 DECL               ZR     B3,LVL35    IF SLASH                                            DECL        1522     A     
 DECL               ZR     B7,LVL32    IF BLANK COMMON                                     DECL        1523     A     
 DECL               EQ     E.LV3       ERROR...                                            DECL        1524     A     
 DECL                                                                                      DECL        1525     A     
 DECL     *         PROCESS VARIABLE NAME.                                                 DECL        1526     A     
 DECL                                                                                      DECL        1527     A     
 DECL      LVL30    BSS    0                                                               DECL        1528     A     
 DECL               MX0    WA.SYML                                                         DECL        1529     A     
 DECL               BX6    X0*X1                                                           DECL        1530     A     
 DECL               SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE                DECL        1531     A     
 DECL               SB2    0           ENTRY (VALUE.) NOT ALLOWED                          DECL        1532     A     
 DECL               CALL   TRV         TRANSLATE VARIABLE                                  DECL        1533     A     
 DECL               MI     X0,LVL90    IF TRV DETECTED ERROR                               DECL        1534     A     
 DECL               CLAS=  X3,WB,(LAB,NVAR,PARM,DEXT,ENT,NLST,EXT)                         DECL        1535     A     
 DECL               SBIT   X2,WB.LEVP                                                      DECL        1536          I
          -FC5A444
 DECL               SBIT   X2,WB.ALP                                                       FC5A444      115     A     
 DECL               PL     X2,LVL31    IF AUTOMATIC LEVEL OFF                              FC5A444      116     A     
 DECL               CLAS=  X1,WB,(AL,LEV,LCM)                                              FC5A444      117     A     
 DECL               SBIT   X1,WB.ALP                                                       FC5A444      118     A     
 DECL               BX2    -X1*X2      CLEAR AL, LEV, LCM BITS                             FC5A444      119     A     
 DECL                                                                                      FC5A444      120     A     
 DECL      LVL31    SBIT   X2,WB.LEVP/WB.ALP                                               FC5A444      121     A     
 DECL               MI     X2,E.LV4    IF ALREADY *LEVELED*                                DECL        1537     A     
 DECL               LX2    1+WB.LEVP   RESTORE (X2)                                        DECL        1538     A     
 DECL               =X1    WB.LEVP                                                         DECL        1539     A     
 DECL               CALL   CCT         CHECK FOR CONFLICTING CLASS                         DECL        1540     A     
 DECL               MI     X0,LVL90    IF CLASS CONFLICT                                   DECL        1541     A     
 DECL               SA4    LVLA                                                            DECL        1542     A     
 DECL               LX4    WB.LEVNP                                                        DECL        1543     A     
 DECL               CLAS=  X3,WB,(LEV,VAR)                                                 DECL        1544     A     
 DECL               BX4    X4+X3                                                           DECL        1545     A     
 DECL               BX6    X2+X4       MERGE LEVEL NUMBER AND PROPERTY BITS                DECL        1546     A     
 DECL               SA6    A2          (LEV,LEVN,VAR)[WBI] = (1,LEVNO,1)[WB.]              DECL        1547     A     
 DECL               EQ     LVL90                                                           DECL        1548     A     
 DECL                                                                                      DECL        1549     A     
 DECL     *         PROCESS BLOCK NAME.                                                    DECL        1550     A     
 DECL                                                                                      DECL        1551     A     
 DECL      LVL32    SA1    =2H//       BLANK COMMON NAME FOR ERROR MESSAGE                 DECL        1552     A     
 DECL               SA4    =7L         BLANK COMMON NAME IN BLOCK TABLE                    DECL        1553     A     
 DECL               SX7    O.SLASH                                                         DECL        1554     A     
 DECL               BX6    X1                                                              DECL        1555     A     
 DECL               SA7    B4          REPLACE // WITH SLASH                               DECL        1556     A     
 DECL               SB4    B4-B1       AND DECREMENT TB POINTER                            DECL        1557     A     
 DECL               EQ     LVL50                                                           DECL        1558     A     
 DECL                                                                                      DECL        1559     A     
 DECL      LVL35    BSS    0                                                               DECL        1560     A     
 DECL               SA1    B4+B1                                                           DECL        1561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1001    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB4    B4+B1                                                           DECL        1562     A     
 DECL               SB2    X1-O.VAR                                                        DECL        1563     A     
 DECL               NZ     B2,E.LV3    IF NOT ALPAHBETIC                                   DECL        1564     A     
 DECL               SA2    B4+B1                                                           DECL        1565     A     
 DECL               SB2    X2-O.VAR                                                        DECL        1566     A     
 DECL               NZ     B2,LVL40    IF NOT LONG NAME                                    DECL        1567     A     
 DECL               CALL   TLV                                                             DECL        1568     A     
 DECL                                                                                      FC50570       70     A     
 DECL      LVL40    SX2    X1                                                              DECL        1569     A     
 DECL               IX6    X1-X2                                                           DECL        1570     A     
 DECL               BX4    X6                                                              DECL        1571     A     
 DECL                                                                                      FC50570       71     A     
 DECL      LVL50    SA6    FILL.       SAVE BLOCK NAME FOR ERROR MESSAGE                   DECL        1572     A     
 DECL               SA5    LVLA                                                            DECL        1573     A     
 DECL               LX5    CA.BLVLP                                                        DECL        1574     A     
 DECL               BX6    X4                                                              DECL        1575     A     
 DECL               ZR     X5,E.LV8    IF LEVEL 0 DECLARATION                              DECL        1576     A     
 DECL               SCAN   T.BLKS,SCS                                                      DECL        1577     A     
 DECL               MI     B7,LVL70    IF BLOCK NOT ALREADY DECLARED                       DECL        1578     A     
 DECL                                                                                      DECL        1579     A     
 DECL     *         CHECK FOR REDUNDANT BLOCK LEVEL DECLARATION.                           DECL        1580     A     
 DECL     *         (X5) = LEVEL NUMBER                                                    DECL        1581     A     
 DECL                                                                                      DECL        1582     A     
 DECL               MX0    -CA.BLVLL                                                       DECL        1583     A     
 DECL               LX2    -CA.BLVLP                                                       DECL        1584     A     
 DECL               BX0    -X0*X2      BLKLEV = BLVL[CAI]                                  DECL        1585     A     
 DECL               LX2    CA.BLVLP                                                        DECL        1586     A     
 DECL               NZ     X0,E.LV7    IF BLKLEVL .NE. 0                                   DECL        1587     A     
 DECL               BX7    X5+X2                                                           DECL        1588     A     
 DECL               SA7    A2          BLVL[CAI] = BLKLEV                                  DECL        1589     A     
 DECL               EQ     LVL80                                                           DECL        1590     A     
 DECL                                                                                      DECL        1591     A     
 DECL     *         COMMON BLOCK NOT BEING DECLARED YET, CREATE AN                         DECL        1592     A     
 DECL     *         ENTRY FOR THIS BLOCK.                                                  DECL        1593     A     
 DECL                                                                                      DECL        1594     A     
 DECL      LVL70    ALLOC  T.BLKS,Z=BLKS                                                   DECL        1595     A     
 DECL               SX3    X2-MAX.BLK*Z=BLKS+1                                             DECL        1596     A     
 DECL               SA1    =7L                                                             DECL        1597     A     
 DECL               BX7    0                                                               DECL        1598     A     
 DECL               BX6    X4+X5                                                           DECL        1599     A     
 DECL               =A6    B7-Z=BLKS+CA.W    (BNAM,BLVL)[CAI] = (NAME,BLKLEV)[CA.]         DECL        1600     A     
 DECL               =A7    A6-CA.W+CB.W                                                    DECL        1601     A     
 DECL               IX4    X4-X1                                                           DECL        1602     A     
 DECL               PL     X3,E.CM2    IF TOO MANY BLOCKS                                  DECL        1603     A     
 DECL               NZ     X4,LVL80    IF NOT BLANK COMMON                                 DECL        1604     A     
 DECL               SX7    X2-Z=BLKS   BLOCK ORD = LEN(T=BLKS) - Z=BLKS                    DECL        1605     A     
 DECL               SA7    BLNKCOM                                                         DECL        1606     A     
 DECL                                                                                      DECL        1607     A     
 DECL      LVL80    BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      DECL        1608     A     
 DECL               =A1    B4+1                                                            DECL        1609     A     
 DECL               =B4    B4+1                                                            DECL        1610     A     
 DECL               SB2    X1-O.SLASH                                                      DECL        1611     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1002    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               NZ     B2,E.CM3    IF SLASH MISSING                                    DECL        1612     A     
 DECL                                                                                      DECL        1613     A     
 DECL     *         CHECK NEXT SEPARATOR, LOOP FOR MORE ITEMS.                             DECL        1614     A     
 DECL                                                                                      DECL        1615     A     
 DECL      LVL90    BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      DECL        1616     A     
 DECL               =A1    B4+1                                                            DECL        1617     A     
 DECL               =B4    A1+1        B4 = B4 + 2                                         DECL        1618     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1619     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL        1620     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1621     A     
 DECL               ZR     B2,LVL25    IF COMMA,CONTINUE PROCESSING LIST                   DECL        1622     A     
 DECL               EQ     E.LV5       BAD SYNTAX                                          DECL        1623     A     
 DECL                                                                                      DECL        1624     A     
 DECL      LVLA     EQU    DIMI        HOLDS LEVEL NUMBER                                  DECL        1625     A     
 DECL      PARAM    SPACE  4,10                                                            DECL        1626     A     
 DECL     **        PROCESS "PARAMETER" STATEMENT.                                         DECL        1627     A     
 DECL     *                                                                                DECL        1628     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER.                                        DECL        1629     A     
 DECL     *                                                                                DECL        1630     A     
 DECL     *         SEE ANSI 8.6                                                           DECL        1631     A     
 DECL                                                                                      DECL        1632     A     
 DECL                                                                                      DECL        1633     A     
 DECL               HEREIF PARAMETER                                                       DECL        1634     A     
 DECL                                                                                      DECL        1635     A     
 DECL               SA1    B4                                                              DECL        1636     A     
 DECL               SB2    X1-O.LP                                                         DECL        1637     A     
 DECL               ZR     B2,PRM10    IF LEFT PAREN                                       DECL        1638     A     
 DECL               FATAL  E.PX2       INITIAL LEFT PAREN MISSING                          DECL        1639     A     
 DECL      PRM10    SB4    B4+B1                                                           DECL        1640     A     
 DECL                                                                                      DECL        1641     A     
 DECL     *         LOOP TO PROCESS INDIVIDUAL PARAMETER DECLARATIONS.                     DECL        1642     A     
 DECL     *         CURRENT TOKEN MUST BE O.VAR FOLLOWED BY O.=                            DECL        1643     A     
 DECL                                                                                      DECL        1644     A     
 DECL      PRM20    SA1    B4                                                              DECL        1645     A     
 DECL               SA2    B4+B1                                                           DECL        1646     A     
 DECL               SB2    X1-O.VAR                                                        DECL        1647     A     
 DECL               NZ     B2,E.PX3    IF NO VARIABLE                                      DECL        1648     A     
 DECL               SB3    X2-O.=                                                          DECL        1649          I
          -FC5A231
 DECL               SB3    X2-O.VAR                                                        FC5A231      112     A     
 DECL               NZ     B3,PRM21    IF NOT LONG NAME                                    FC5A231      113     A     
 DECL               CALL   TLV         TRUNCATE THE LONG NAME                              FC5A231      114     A     
 DECL               SA2    B4+1                                                            FC5A231      115     A     
 DECL                                                                                      FC5A231      116     A     
 DECL      PRM21    SB3    X2-O.=                                                          FC5A231      117     A     
 DECL               MX0    TB.TOCL                                                         DECL        1650     A     
 DECL               HX1    TB.TOC                                                          DECL        1651     A     
 DECL               BX6    X0*X1                                                           DECL        1652     A     
 DECL               SB4    B4+1                                                            FC5A231      118     A     
 DECL               NZ     B3,E.PX4    IF NO EQUAL SIGN                                    DECL        1653     A     
 DECL               SA6    PRMA        (PRMA) = VARIABLE NAME                              DECL        1654     A     
 DECL               SB4    B4+B1                                                           DECL        1655          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1003    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC5A231
 DECL                                                                                      DECL        1656     A     
 DECL     *         CALL PARSER TO EVALUATE THE EXPRESSION.  THE NAME IS NOT YET           DECL        1657     A     
 DECL     *         IN THE SYMTAB, SO PAR WILL GIVE A DIAGNOSTIC IF IT IS USED ON          DECL        1658     A     
 DECL     *         THE RIGHT HAND SIDE.                                                   DECL        1659     A     
 DECL                                                                                      DECL        1660     A     
 DECL               SX6    PM=PARM     *PKX* STORES THIS INTO *PARMODE*                    FC5A156       10     A     
 DECL               SB4    B4+B1                                                           DECL        1661     A     
 DECL               CALL   PKX         PARSE KONSTANT EXPRESSION                           DECL        1662     A     
 DECL                                                                                      DECL        1663     A     
 DECL               SX2    X6+B1       CO1 = CONORD + 1                                    DECL        1664     A     
 DECL               SX5    B6          CONLEN = LENGTH OF CONSTANT                         DECL        1665     A     
 DECL               LE     B2,PRM28    IF MATERIAL CONSTANT                                DECL        1666          I
          -FC51377
 DECL               LT     B2,PRM28    IF MATERIAL CONSTANT                                FC51377        5     A     
 DECL               EQ     B2,PRM29    IF RESULT IS NOT A CONSTANT                         FC51377        6     A     
 DECL               SCAN   T.CON,SCT                                                       DECL        1667     A     
 DECL               SX2    B7+B1       CO1 = CONORD + 1                                    DECL        1668     A     
 DECL               PL     B7,PRM28    IF THIS VALUE ALREADY PRESENT                       DECL        1669     A     
 DECL               ADDWD  A1                                                              DECL        1670     A     
 DECL                                                                                      DECL        1671     A     
 DECL      PRM28    SX6    X2-1        CONORD = CO1 - 1                                    DECL        1672     A     
 DECL               LX5    DI.DLENP                                                        DECL        1673     A     
 DECL               SX1    B5          (DI.MODE) = CONMODE                                 DECL        1674     A     
 DECL               LX6    DI.PNTP                                                         DECL        1675     A     
 DECL               BX7    X6+X5                                                           DECL        1676     A     
 DECL               LX1    DI.MODEP                                                        DECL        1677     A     
 DECL               BX7    X1+X7                                                           DECL        1678     A     
 DECL               SA7    PRMB        (PRMB) = (MODE,PNT,LEN) [DI.]                       DECL        1679     A     
 DECL                                                                                      DECL        1680     A     
 DECL     *         NOW ENTER THE PARAMETER NAME IN THE SYMBOL TABLE.                      DECL        1681     A     
 DECL                                                                                      DECL        1682     A     
 DECL               SA1    PRMA                                                            DECL        1683          I
          -FC51377
 DECL      PRM29    SA1    PRMA                                                            FC51377        7     A     
 DECL               BX6    X1                                                              DECL        1684     A     
 DECL               SA6    FILL.       FOR POSSIBLE DIAGNOSTIC                             FC5A386        5     A     
 DECL               CALL   SSY         SCAN SYMBOL TABLE                                   DECL        1685     A     
 DECL               CLAS=  X7,WB,(PARM,DEF,NVAR)                                           DECL        1686     A     
 DECL               MI     B7,PRM30    IF SYMBOL NOT IN TABLE                              DECL        1687     A     
 DECL                                                                                      DECL        1688     A     
 DECL     *         SYMBOL ALREADY IN TABLE.                                               DECL        1689     A     
 DECL                                                                                      DECL        1690     A     
 DECL               BX6    X0                                                              DECL        1691     A     
 DECL               SA6    PRMC        SAVE THE SYMORD                                     DECL        1692     A     
 DECL               CLAS=  X3,WB,(FP,VAR,NVAR,LAB,PARM)                                    DECL        1693     A     
 DECL               SX1    WB.PARMP                                                        DECL        1694     A     
 DECL               CALL   CCT         CHECK CONFLICTING TYPE                              DECL        1695     A     
 DECL               MI     X0,PRM70    IF CONFLICT                                         DECL        1696     A     
 DECL               BX6    X7+X2       UPDATE SYMTAB ATTRIBUTES                            DECL        1697     A     
 DECL               SA6    A2          (PARM,DEF,VAR) [WBI] = (1,1,1) [WB.]                DECL        1698     A     
 DECL               EQ     PRM40                                                           DECL        1699     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1004    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        1700     A     
 DECL     *         SYMBOL NOT IN TABLE, CONSTRUCT AN ENTRY FOR IT.                        DECL        1701     A     
 DECL                                                                                      DECL        1702     A     
 DECL      PRM30    CALL   STY         SET NATURAL TYPE                                    DECL        1703     A     
 DECL               BX5    X1          REMEMBER (X5) = MODE                                DECL        1704     A     
 DECL               BX4    X2          REMEMBER (X4) = CLEN                                DECL        1705     A     
 DECL               LX1    WB.MODEP                                                        DECL        1706     A     
 DECL               BX7    X1+X7       ADD IN NATURAL MODE                                 DECL        1707     A     
 DECL               AX4    WC.CLENP                                                        DECL        1708     A     
 DECL               ADSYM  T.SYM       ADD TO SYMBOL TABLE                                 DECL        1709     A     
 DECL               BX7    X0                                                              DECL        1710     A     
 DECL               SA7    PRMC        SAVE THE SYMORD                                     DECL        1711     A     
 DECL                                                                                      DECL        1712     A     
 DECL      PRM40    =A3    A2-WB.W+WC.W      WCI                                           DECL        1713          I
          -FC5A225
 DECL      PRM40    SA1    PARAMC                                                          FC5A225       14     A     
 DECL               =X6    X1+1                                                            FC5A225       15     A     
 DECL               SA6    A1          INCREMENT PARAMETER COUNT                           FC5A225       16     A     
 DECL               =A3    A2-WB.W+WC.W                                                    FC5A225       17     A     
 DECL               HX3    WC.CTYP                                                         DECL        1714     A     
 DECL               MX7    -WB.MODEL                                                       DECL        1715     A     
 DECL               AX2    WB.MODEP                                                        DECL        1716     A     
 DECL               BX2    -X7*X2      MODEI = MODE[WBI]                                   DECL        1717     A     
 DECL               =X4    2           WDCNT = 2                                           DECL        1718     A     
 DECL               SB3    X2-M.CHAR                                                       DECL        1719     A     
 DECL               MI     X3,PRM50    IF WC.CTYP .EQ. 1                                   DECL        1720     A     
 DECL               SB2    X2-M.DBL                                                        DECL        1721     A     
 DECL               LX3    WC.CTYPP+1-WC.CLENP                                             DECL        1722     A     
 DECL               ZR     B2,PRM60    IF DOUBLE                                           DECL        1723     A     
 DECL               EQ     B2,B1,PRM60 IF COMPLEX                                          DECL        1724     A     
 DECL               ERRNZ  M.CPLX-1-M.DBL                                                  DECL        1725     A     
 DECL               =X4    1           WDCNT = 1                                           DECL        1726     A     
 DECL               NZ     B3,PRM60    IF NOT CHARACTER                                    DECL        1727     A     
 DECL               MX1    -WC.CLENL                                                       DECL        1728     A     
 DECL               BX4    -X1*X3      WDCNT = CLEN[WCI]                                   DECL        1729     A     
 DECL               EQ     PRM60                                                           DECL        1730     A     
 DECL                                                                                      DECL        1731     A     
 DECL      PRM50    CLAS=  X4,WC,(CTYP,CLEN)                                               DECL        1732     A     
 DECL               LX3    1+WC.CTYPP                                                      DECL        1733     A     
 DECL               BX7    -X4*X3      CLEAR (CTYP,CLEN) FILEDS                            DECL        1734     A     
 DECL               SA1    PRMB                                                            DECL        1735     A     
 DECL               AX1    DI.DLENP                                                        DECL        1736     A     
 DECL               SX4    X1          CONLEN = DLEN[PRMB]                                 DECL        1737     A     
 DECL               ERRNZ  18-DI.DLENL                                                     DECL        1738     A     
 DECL               LX4    WC.CLENP                                                        DECL        1739     A     
 DECL               BX7    X7+X4                                                           DECL        1740     A     
 DECL               SA7    A3          (CTYP,CLEN) [WCI] = (0,CONLEN)[WC.]                 DECL        1741     A     
 DECL               LX4    -WC.CLENP                                                       DECL        1742     A     
 DECL                                                                                      DECL        1743     A     
 DECL     *         NOW THAT EXPRESSION AND NAME ARE BOTH AVAILABLE, CONVERT TYPE          DECL        1744     A     
 DECL     *         ACCORDING TO ASSIGNMENT RULES, AND ENTER CONSTANT VALUE.               DECL        1745     A     
 DECL     *         (X2) = DESIRED VARIABLE TYPE                                           DECL        1746     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1005    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         (X4) = DESIRED VARIABLE LENGTH                                         DECL        1747     A     
 DECL                                                                                      DECL        1748     A     
 DECL      PRM60    BSS    0                                                               DECL        1749     A     
 DECL               SA5    PRMB        CONSTANT DESCRIPTOR = (PRMB)                        DECL        1750     A     
 DECL               CALL   CMV                                                             DECL        1751     A     
 DECL               AX5    DI.PNTP                                                         DECL        1752     A     
 DECL               SX5    X5          PNT = PNT[DI.]                                      DECL        1753     A     
 DECL               ERRNZ  18-DI.PNTL                                                      DECL        1754     A     
 DECL               SA1    PRMC        ORDI = (PRMC)                                       DECL        1755     A     
 DECL               SA2    T.SYM                                                           DECL        1756     A     
 DECL               =B2    X1+WC.W                                                         DECL        1757     A     
 DECL               LX3    X1,B1                                                           DECL        1758     A     
 DECL               SB2    X3+B2       STIND = 3 * ORDI                                    DECL        1759     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        1760     A     
 DECL               SA1    X2+B2       WCI = T.SYM(STIND) + WC.W                           DECL        1761     A     
 DECL               MX4    -WC.RAL                                                         DECL        1762     A     
 DECL               LX1    -WC.RAP                                                         DECL        1763     A     
 DECL               BX7    X4*X1                                                           DECL        1764     A     
 DECL               BX7    X7+X5                                                           DECL        1765     A     
 DECL               LX7    WC.RAP                                                          DECL        1766     A     
 DECL               SA7    A1          RA[WCI] = PNT                                       DECL        1767     A     
 DECL                                                                                      DECL        1768     A     
 DECL      PRM70    SA1    PRMC        CONSTRUCT XREF ENTRY                                DECL        1769     A     
 DECL               LX1    XR.TAGP                                                         DECL        1770     A     
 DECL               ADDREF X1,CR.STR                                                       DECL        1771     A     
 DECL                                                                                      DECL        1772     A     
 DECL     *         FINISHED INDIVIDUAL PARAMETER.  CHECK FOR MORE DEFINITINONS,           DECL        1773     A     
 DECL     *         OR STATEMENT TERMINATION.                                              DECL        1774     A     
 DECL                                                                                      DECL        1775     A     
 DECL      PRM80    SA4    B4                                                              DECL        1776     A     
 DECL               SB4    B4+B1                                                           DECL        1777     A     
 DECL               SB3    X4-O.COMMA                                                      DECL        1778     A     
 DECL               SB2    X4-O.RP                                                         DECL        1779     A     
 DECL               ZR     B3,PRM20    IF COMMA                                            DECL        1780     A     
 DECL               ZR     B2,FEC.RTN  IF *)*                                              DECL        1781          I
          -FC5A278
 DECL               EQ     E.PX5       ERROR...                                            DECL        1782          I
          -FC5A278
 DECL               NZ     B2,E.PX5    IF NOT *)*                                          FC5A278       12     A     
 DECL               SA1    B4+                                                             FC5A278       13     A     
 DECL               NZ     X1,E.PX8    IF NOT *EOS*                                        FC5A278       14     A     
 DECL               ERRNZ  O.EOS                                                           FC5A278       15     A     
 DECL               EQ     FEC.RTN                                                         FC5A278       16     A     
 DECL                                                                                      DECL        1783     A     
 DECL      PRMERR   BSSENT 0                                                               DECL        1784     A     
 DECL               SB4    B4+B1                                                           DECL        1785     A     
 DECL               SA1    B4                                                              DECL        1786     A     
 DECL               =B2    X1-O.COMMA                                                      DECL        1787     A     
 DECL               =B3    X1-O.RP                                                         DECL        1788     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL        1789     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1790     A     
 DECL               ZR     B3,FEC.RTN  IF TERMINATING *)*                                  DECL        1791     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1006    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               ZR     B2,PRM20    IF COMMA, CONTINUE                                  DECL        1792     A     
 DECL               EQ     PRMERR      LOOP                                                DECL        1793     A     
 DECL                                                                                      DECL        1794     A     
 DECL      PRMA     EQU    DIMI        SAVE SYMBOL NAME                                    DECL        1795     A     
 DECL      PRMB     EQU    PRMA+1      SAVE CONSTANT DESCRIPTOR WORD                       DECL        1796     A     
 DECL      PRMC     EQU    PRMB+1      SAVE SYMORD                                         DECL        1797     A     
 DECL      SAV      SPACE  4,8                                                             DECL        1798     A     
 DECL     **        SAV -  PROCESS "SAVE" STATEMENT                                        DECL        1799     A     
 DECL     *                                                                                DECL        1800     A     
 DECL     *         EXIT   TO FRONT END CONTROLLER                                         DECL        1801     A     
 DECL     *                                                                                DECL        1802     A     
 DECL     *         SEE ANSI 8.9                                                           DECL        1803     A     
 DECL                                                                                      DECL        1804     A     
 DECL                                                                                      DECL        1805     A     
 DECL               HEREIF SAVE                                                            DECL        1806     A     
 DECL                                                                                      DECL        1807     A     
 DECL               SA1    B4                                                              DECL        1808     A     
 DECL               MX6    CA.BNAML                                                        DECL        1809     A     
 DECL               SA6    SCSA        MASK FOR SCS                                        DECL        1810     A     
 DECL               NZ     X1,SAV1     IF NOT *EOS* (NOT UNIVERSAL SAVE)                   DECL        1811     A     
 DECL               CLAS=  X6,WB,(SAVE)                                                    DECL        1812     A     
 DECL               SA6    USAVE       SET UNIVERSAL SAVE                                  DECL        1813     A     
 DECL               EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     DECL        1814     A     
 DECL                                                                                      DECL        1815     A     
 DECL      SAV1     CLAS=  X6,WB,(SAVE)                                                    DECL        1816     A     
 DECL               SA6    SAVE        SET SAVE PRESENT                                    DECL        1817     A     
 DECL      SAV2     SB2    X1-O.VAR                                                        DECL        1818     A     
 DECL               SB3    X1-O.SLASH                                                      DECL        1819     A     
 DECL               ZR     B2,SAV5     IF VARIABLE                                         DECL        1820     A     
 DECL               ZR     B3,SAV10    IF COMMON BLOCK                                     DECL        1821     A     
 DECL               EQ     E.SA1       ELSE ERROR                                          DECL        1822     A     
 DECL                                                                                      DECL        1823     A     
 DECL      SAV5     BSS    0                                                               DECL        1824     A     
 DECL               CALL   TRV         TRANSLATE THE VARIABLE                              DECL        1825     A     
 DECL               MI     X0,SAV20    IF CONFLICT, BYPASS                                 DECL        1826     A     
 DECL               LX0    X2                                                              DECL        1827     A     
 DECL               SBIT   X0,WB.FPP                                                       DECL        1828     A     
 DECL               PL     X0,SAV6     IF NOT FORMAL PARAMETER                             DECL        1829     A     
 DECL               FATAL  E.SA5                                                           DECL        1830     A     
 DECL               EQ     SAV20                                                           DECL        1831     A     
 DECL                                                                                      DECL        1832     A     
 DECL      SAV6     CLAS=  X1,WB,(SAVE)                                                    DECL        1833     A     
 DECL               BX0    X1*X2                                                           DECL        1834     A     
 DECL               ZR     X0,SAV7     IF NOT REDUNDANT DECLARATION                        DECL        1835     A     
 DECL               WARN   E.SA2                                                           DECL        1836     A     
 DECL      SAV7     BX7    X1+X2       MERGE IN SAVE BIT                                   DECL        1837     A     
 DECL               SA7    A2          AND UPDATE SYMTAB                                   DECL        1838     A     
 DECL               EQ     SAV20                                                           DECL        1839     A     
 DECL                                                                                      DECL        1840     A     
 DECL      SAV10    BSS    0                                                               DECL        1841     A     
 DECL               =A1    B4+1                                                            DECL        1842     A     
 DECL               =B4    B4+1                                                            DECL        1843     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1007    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB2    X1-O.VAR                                                        DECL        1844     A     
 DECL               NZ     B2,E.SA1    IF NOT ALPHABETIC                                   DECL        1845     A     
 DECL               SA2    B4+1                                                            DECL        1846     A     
 DECL               SB2    X2-O.VAR                                                        DECL        1847     A     
 DECL               NZ     B2,SAV13    IF NOT LONG NAME                                    DECL        1848     A     
 DECL               CALL   TLV         TRUNCATE                                            DECL        1849     A     
 DECL      SAV13    SX2    X1                                                              DECL        1850     A     
 DECL               IX6    X1-X2                                                           DECL        1851     A     
 DECL               SA6    FILL.       SAVE FOR POSSIBLE DIAGNOSTIC                        DECL        1852     A     
 DECL               SCAN   T.BLKS,SCS                                                      DECL        1853     A     
 DECL               MI     B7,SAV16    IF COMMON BLOCK NOT IN T.BLKS                       DECL        1854     A     
 DECL               CLAS=  X1,CB,(SAVE)                                                    DECL        1855     A     
 DECL               =A2    A2-CA.W+CB.W                                                    DECL        1856     A     
 DECL               BX3    X1*X2                                                           DECL        1857     A     
 DECL               ZR     X3,SAV15    IF NOT REDUNDANT SAVE                               DECL        1858     A     
 DECL               WARN   E.SA2                                                           DECL        1859     A     
 DECL               EQ     SAV18                                                           DECL        1860     A     
 DECL                                                                                      DECL        1861     A     
 DECL      SAV15    BX6    X1+X2       MERGE IN SAVE BIT                                   DECL        1862     A     
 DECL               SA6    A2          UPDATE T.BLKS                                       DECL        1863     A     
 DECL               EQ     SAV18                                                           DECL        1864     A     
 DECL                                                                                      DECL        1865     A     
 DECL      SAV16    BX5    X6          SAVE BLOCK NAME                                     DECL        1866     A     
 DECL               ALLOC  T.BLKS,Z=BLKS                                                   DECL        1867     A     
 DECL               SX3    X2-MAX.BLK*Z=BLKS+1                                             DECL        1868     A     
 DECL               PL     X3,E.CM2    IF TOO MANY BLOCKS                                  DECL        1869     A     
 DECL               LX6    X5          RESTORE BLOCK NAME                                  DECL        1870     A     
 DECL               CLAS=  X7,CB,(SAVE)                                                    DECL        1871     A     
 DECL               =A7    B7-Z=BLKS+CB.W                                                  DECL        1872     A     
 DECL               =A6    A7-CB.W+CA.W                                                    DECL        1873     A     
 DECL                                                                                      DECL        1874     A     
 DECL      SAV18    =A1    B4+1                                                            DECL        1875     A     
 DECL               =B4    B4+1                                                            DECL        1876     A     
 DECL               SB2    X1-O.SLASH                                                      DECL        1877     A     
 DECL               NZ     B2,E.SA3    IF NOT SLASH                                        DECL        1878     A     
 DECL                                                                                      DECL        1879     A     
 DECL      SAV20    BSS    0                                                               DECL        1880     A     
 DECL               =A1    B4+1                                                            DECL        1881     A     
 DECL               =B4    B4+1                                                            DECL        1882     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1883     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL        1884     A     
 DECL               ERRNZ  O.EOS                                                           DECL        1885     A     
 DECL               NZ     B2,E.SA4    IF NOT *COMMA*                                      DECL        1886     A     
 DECL               =A1    B4+1                                                            DECL        1887     A     
 DECL               =B4    B4+1                                                            DECL        1888     A     
 DECL               EQ     SAV2        CONTINUE PROCESSING                                 DECL        1889     A     
 DECL                                                                                      DECL        1890     A     
 DECL      SAVERR   BSSENT 0                                                               DECL        1891     A     
 DECL               =A1    B4+1                                                            DECL        1892     A     
 DECL               =B4    B4+1                                                            DECL        1893     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1894     A     
 DECL               ZR     X1,FEC.RTN  IF *EOS*                                            DECL        1895     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1008    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               ERRNZ  O.EOS                                                           DECL        1896     A     
 DECL               NZ     B2,SAVERR   IF NOT *COMMA*                                      DECL        1897     A     
 DECL               =A1    B4+1                                                            DECL        1898     A     
 DECL               =B4    B4+1                                                            DECL        1899     A     
 DECL               EQ     SAV2        CONTINUE PROCESSING                                 DECL        1900     A     
 DECL               TITLE  CLOSE OF DECLARATIVE ROUTINES.                                  DECL        1901     A     
 DECL      TABLES   SPACE  4,4                                                             DECL        1902     A     
 DECL     **        CLOSE OF EQUIVALENCE PROCESSING  DATA STRUCTURES.                      DECL        1903     A     
 DECL                                                                                      DECL        1904     A     
 DECL                                                                                      DECL        1905     A     
 DECL     *         G/F TABLE - GALLER / FISHER EQUIVALENCE TABLE.                         DECL        1906     A     
 DECL                                                                                      DECL        1907     A     
 DECL                                                                                      DECL        1908     A     
 DECL               DESCRIBE G1.,,,0                                                       DECL        1909     A     
 DECL      SYMI     DEFINE 18          INDEX OF SYMTAB WORD WB                             DECL        1910     A     
 DECL      CHAR     DEFINE 1           INDICATE CHARACTER ENTITY                           DECL        1911     A     
 DECL      SAVE     DEFINE 1           INDICATE SAVE                                       DECL        1912     A     
 DECL               DEFINE 7           0                                                   DECL        1913          I
          -FC50933
 DECL               DEFINE 6                                                               FC50933        9     A     
 DECL      ADR      DEFINE WC.RBL+WC.RAL                                                   DECL        1914     A     
 DECL               REDEF  ADR                                                             DECL        1915     A     
 DECL      RB       DEFINE WC.RBL      RELOCATION BASE                                     DECL        1916     A     
 DECL      RA       DEFINE WC.RAL      RELATIVE ADDRESS                                    DECL        1917     A     
 DECL                                                                                      DECL        1918     A     
 DECL               DESCRIBE G2.,,,1                                                       DECL        1919     A     
 DECL      LINK     DEFINE EQ.LINKL    2000B + INDEX IN EQUIV TABLE                        DECL        1920          I
          -FC50757
 DECL      LINK     DEFINE EQ.LINKL    INDEX IN EQUIV TABLE                                FC50757       17     A     
 DECL               ERRNZ  EQ.LINKP-G2.LINKP                                               DECL        1921     A     
 DECL      HI       DEFINE 24          SPACE NEEDED ABOVE ROOT                             DECL        1922     A     
 DECL      LO       DEFINE 24          SPACE NEEDED BELOW ROOT                             DECL        1923     A     
 DECL                                                                                      DECL        1924     A     
 DECL               DESCRIBE F2.,60                                                        DECL        1925     A     
 DECL      LINK     DEFINE G2.LINKL                                                        DECL        1926     A     
 DECL      EOI      DEFINE 12          INDEX TO T.EO                                       DECL        1927          I
          -FC50299
 DECL      EOI      DEFINE 12          INDEX TO T.EOT                                      FC50299       23     A     
 DECL      BSYM     DEFINE 12          INDEX OF SYMTAB WORD WB OF BASE MEMBER              DECL        1928     A     
 DECL      FWA      DEFINE 24          FWA OF CLASS                                        DECL        1929     A     
 DECL                                                                                      DECL        1930     A     
 DECL     *         T.EOT - EQUIVALENCE OVERLAP TABLE.                                     DECL        1931     A     
 DECL                                                                                      DECL        1932     A     
 DECL               DESCRIBE OA.,,,0                                                       DECL        1933     A     
 DECL               DEFINE                                                                 FC50662        6     A     
 DECL      RB       DEFINE WC.RBL      RELOCATION BASE OF CLASS                            DECL        1934     A     
 DECL               DEFINE 3           0                                                   DECL        1935          I
          -FC50662
 DECL               DEFINE 2                                                               FC50662        7          I
          -FC50933
 DECL               DEFINE                                                                 FC50933       10     A     
 DECL      FWA      DEFINE 24          FWA OF CLASS                                        DECL        1936     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1009    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      LWA      DEFINE 24          LWA OF CLASS                                        DECL        1937     A     
 DECL                                                                                      DECL        1938     A     
 DECL               DESCRIBE OB.,,,1                                                       DECL        1939     A     
 DECL               DEFINE 42          0                                                   DECL        1940     A     
 DECL      GFI      DEFINE 18          INDEX OF CLASS ROOT IN T.EQUS                       DECL        1941     A     
 DECL                                                                                      DECL        1942     A     
 DECL                                                                                      DECL        1943     A     
 DECL      Z=EQS    EQU    2           WORDS PER EQUIV TABLE ENTRY                         DECL        1944     A     
 DECL      Z=EOT    EQU    2           WORDS PER EOT TABLE ENTRY                           DECL        1945     A     
 DECL      PCD      SPACE  4,10                                                            DECL        1946          I
          -FC50299
 DECL      PCD      EJECT                                                                  FC50299       24     A     
 DECL     **        PCD  - PROCESS END OF DECLARATIVES.                                    DECL        1947     A     
 DECL     *         CONTROL ROUTINE FOR END OF DECLARATIVE PROCESSING.                     DECL        1948     A     
 DECL     *         ENTRY  FIRST EXECUTABLE STATEMENT HAS BEEN ENCOUNTERED                 DECL        1949     A     
 DECL     *         EXIT   (STAGE) ADVANCED TO *FEC=STF*                                   DECL        1950     A     
 DECL     *                (X5) RESTORED FROM ("SB.KEY").                                  DECL        1951     A     
 DECL     *                (B4) PRESERVED.                                                 DECL        1952     A     
 DECL     *                (A0) RESTORED TO (F.SB)                                         DECL        1953     A     
 DECL                                                                                      DECL        1954     A     
 DECL                                                                                      DECL        1955     A     
 DECL      PCD      SUBR   =           ...ENTRY/EXIT...                                    DECL        1956     A     
 DECL               SX6    FEC=STF                                                         DECL        1957     A     
 DECL               SX7    B4                                                              DECL        1958     A     
 DECL               SA6    STAGE                                                           DECL        1959     A     
 DECL               SA7    PCDA        SAVE (B4)                                           DECL        1960     A     
 DECL                                                                                      DECL        1961     A     
 DECL               RJ     MFR         MARK FUNCTION AS REFERENCED                         DECL        1962     A     
 DECL                                                                                      DECL        1963     A     
 DECL               RJ     MCA         MAKE /COMMON/ ADDRESS ASSIGNMENTS                   DECL        1964     A     
 DECL                                                                                      DECL        1965     A     
 DECL               RJ     EQU         PROCESS EQUIVALENCES                                DECL        1966     A     
 DECL                                                                                      DECL        1967     A     
 DECL               RJ     CCL         CORDINATE COMMON LEVEL INFORMATION                  DECL        1968     A     
 DECL                                                                                      DECL        1969     A     
 DECL               RJ     CCC         CHECK CHARACTER COMMON BLOCKS                       DECL        1970     A     
 DECL                                                                                      DECL        1971     A     
 DECL               RJ     CCS         CONVERT CHARACTER SYMBOLS                           DECL        1972     A     
 DECL                                                                                      DECL        1973     A     
 DECL               RJ     DCS         DIAGNOSE COMMON-SAVE VARIABLES                      DECL        1974     A     
 DECL                                                                                      DECL        1975     A     
 DECL               RJ     PSC         PROPAGATE SAVE BIT THROUGH COMMON                   DECL        1976     A     
 DECL                                                                                      DECL        1977     A     
 DECL               RJ     PCF         PROCESS CHARACTER/FORMAL PARAMETER INTERACT         DECL        1978     A     
 DECL                                                                                      DECL        1979     A     
 DECL               RJ     VDP         PROCESS VARABLE DIMENSIONS                          DECL        1980     A     
 DECL                                                                                      DECL        1981     A     
 DECL               RJ     APT         ASSIGN ECS/LCM POINTER TAGS                         DECL        1982     A     
 DECL                                                                                      DECL        1983     A     
 DECL               RJ     ASL         ASSIGN STORAGE LEVELS                               DECL        1984     A     
 DECL                                                                                      DECL        1985     A     
 DECL               RJ     SAS         SCAN ARRAY SIZES                                    DECL        1986     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1010    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        1987     A     
 DECL               SA1    T=VDIM                                                          DECL        1988          I
          -FC50558
 DECL               SX0    X1-Z=TURP-1                                                     DECL        1989          I
          -FC50558
 DECL               PL     X0,PCD2     IF VARDIM CODE NECC.                                DECL        1990          I
          -FC50558
 DECL               SHRINK A1                                                              DECL        1991          I
          -FC50558
 DECL                                                                                      DECL        1992          I
          -FC50558
 DECL      PCD2     SHRINK T=COMM,0    TRASH TEMP. TABLE                                   DECL        1993          I
          -FC50558
 DECL               SHRINK T=COMM,0    COMM TABLE NO LONGER NEEDED                         FC50558       43     A     
 DECL      SNAP=D   IFNE   TEST                                                            DECL        1994     A     
 DECL               SA1    CO.SNAP                                                         DECL        1995     A     
 DECL               LX1    1RD                                                             DECL        1996     A     
 DECL               PL     X1,PCD7     IF DECL SNAP NOT SELECTED                           DECL        1997     A     
 DECL      SNP=D    DUMPT  (SYM,BLKS,DIM)                                                  DECL        1998     A     
 DECL      PCD7     BSS                                                                    DECL        1999     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        2000     A     
 DECL               SA2    T.TB                                                            DECL        2001     A     
 DECL               SA1    PCDA                                                            DECL        2002     A     
 DECL               SA0    X2          RESTORE (A0)                                        DECL        2003     A     
 DECL               SA5    TB=TYPE     RESTORE (X5)                                        DECL        2004     A     
 DECL               SB4    X1          RESTORE (B4)                                        DECL        2005     A     
 DECL               MX6    1                                                               FC5A192       64          I
          -FC51554
 DECL               LX6    1+WA.NFPP                                                       FC5A192       65          I
          -FC51554
 DECL               SA6    WANFP                                                           FC5A192       66          I
          -FC51554
 DECL               EQ     EXIT.       EXIT...                                             DECL        2006     A     
 DECL                                                                                      DECL        2007     A     
 DECL      PCDA     CON    0           SAVE AREA                                           DECL        2008     A     
 DECL      APT      SPACE  4,10                                                            DECL        2009     A     
 DECL     **        APT -  ASSIGN POINTER TAGS                                             DECL        2010     A     
 DECL     *                                                                                DECL        2011     A     
 DECL     *         ENTRY  (T.BLKS) = (CB.LEVN) COMPLETELY DETERMINED.                     DECL        2012     A     
 DECL     *                (.DAL) = 0 IF LEVEL 2 IS CM/SCM,                                DECL        2013     A     
 DECL     *                       = 1 IF LEVEL 2 IS ECS/LCM.                               DECL        2014     A     
 DECL     *                                                                                DECL        2015     A     
 DECL     *         FOR EACH COMMON BLOCK, *APT* DECIDES FROM ITS LEVEL AND THE            DECL        2016     A     
 DECL     *         OBJECT MACHINE TYPE, WHAT STORAGE TYPE IS FOR THE BLOCK.               DECL        2017     A     
 DECL     *         FOR COMMON BLOCKS WHICH ARE ECS/LCM RESIDENT, THE (CB.LCM) BIT         DECL        2018     A     
 DECL     *         IS SET, AND A POINTER WORD TAG IS SET IN (CB.TAG).                     DECL        2019     A     
 DECL     *         POINTER WORDS ARE CONSTRUCTED AND STORED IN (T.APL).                   DECL        2020     A     
 DECL     *                                                                                DECL        2021     A     
 DECL     *         EACH COMMON BLOCK LENGTH IS CHECKED AGAINST THE MAXIMUM                DECL        2022     A     
 DECL     *         LENGTH ALLOWED, ERROR MESSAGE ISSUED ACCORDINGLY.                      DECL        2023     A     
 DECL     *            FOR (LCM=G), MAXIMUM ECS/LCM BLOCK LENGTH IS (MAX.SPLC),            DECL        2024     A     
 DECL     *         AND FOR ALL OTHER CASES, BLOCK LENGTHS SHOULD NOT EXCEED               DECL        2025     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1011    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         (MAX.SPCM).                                                            DECL        2026     A     
 DECL                                                                                      DECL        2027     A     
 DECL                                                                                      DECL        2028     A     
 DECL      APT      SUBR               ...ENTRY/EXIT...                                    DECL        2029     A     
 DECL               SA4    CO.LCM                                                          DECL        2030          I
          -FC5A132
 DECL               SA4    WO.LCM                                                          FC5A132       72     A     
 DECL               SB4    X4          (B4) = LCM INDICATOR                                DECL        2031     A     
 DECL               MX6    0                                                               DECL        2032     A     
 DECL               ADDWD  T.LCA                                                           DECL        2033     A     
 DECL               SA1    T.BLKS                                                          DECL        2034     A     
 DECL               SA2    T=BLKS                                                          DECL        2035     A     
 DECL               AX2    1           X2 = (TABLE LENGTH) DIV (Z=BLKS)                    DECL        2036     A     
 DECL               ERRNZ  2-Z=BLKS                                                        DECL        2037     A     
 DECL               SB2    X2-1        B2 = NO. ENTRIES TO PROCESS                         DECL        2038     A     
 DECL     *                            (1ST ENTRY IS NOT A COMMON BLOCK)                   DECL        2039     A     
 DECL               =B3    Z=BLKS                                                          DECL        2040     A     
 DECL               =A1    X1+CB.W                                                         DECL        2041     A     
 DECL                                                                                      DECL        2042     A     
 DECL      APT10    SA1    A1+B3       CBI = CB ENTRY                                      DECL        2043     A     
 DECL               =A4    A1-CB.W+CA.W      CAI = CA ENTRY                                DECL        2044     A     
 DECL               ZR     B2,EXIT.    IF NO MORE ENTRIES, EXIT..                          DECL        2045     A     
 DECL               MX7    -CB.BLENL                                                       DECL        2046     A     
 DECL               MX6    CA.BNAML                                                        DECL        2047     A     
 DECL               LX1    -CB.BLENP                                                       DECL        2048     A     
 DECL               BX5    -X7*X1      BLENI = BLEN[CBI]                                   DECL        2049     A     
 DECL               LX1    CB.BLENP                                                        DECL        2050     A     
 DECL               BX6    X6*X4       BLOCK NAME = BNAM[CAI]                              DECL        2051     A     
 DECL               SA6    FILL.                                                           DECL        2052     A     
 DECL               SB2    B2-B1                                                           DECL        2053     A     
 DECL               MX0    -CA.BLVLL                                                       DECL        2054     A     
 DECL               LX4    -CA.BLVLP                                                       DECL        2055     A     
 DECL               BX2    -X0*X4      EXTRACT (X2) = LEVEL OF THIS BLOCK                  DECL        2056     A     
 DECL               SX7    X2+.DAL-3                                                       DECL        2057     A     
 DECL               ERRPL  .DAL-2                                                          DECL        2058     A     
 DECL               CLAS=  X3,CB,(LCM)                                                     DECL        2059     A     
 DECL               BX6    X1+X3                                                           DECL        2060     A     
 DECL               SX0    B4          LCM INDICATOR                                       DECL        2061     A     
 DECL               MI     X7,APT20    IF (LEV+.DAL .LT. 3), THEN NOT LARGE CORE           DECL        2062     A     
 DECL               IFEQ   .MI,1,6                                                         F1037F5      413     A     
 DECL               NZ     X7,APT19    IF LEVEL 3                                          F1037F5      414     A     
 DECL               SA3    =XCO.TMLC                                                       F1037F5      415     A     
 DECL               MX7    1                                                               F1037F5      416     A     
 DECL               ZR     X3,APT20    IF NO LCM                                           F1037F5      417     A     
 DECL               MX7    0                                                               F1037F5      418     A     
 DECL                                                                                      FC50443        4     A     
 DECL      APT19    BSS    0                                                               F1037F5      419     A     
 DECL                                                                                      F1037F5      420          I
          -FC50443
 DECL               SA6    A1+         LCM(CBI] = 1                                        DECL        2063     A     
 DECL      APT20    SX3    MAX.SPCM-1  MAXLEN = (MAX.SPCM)                                 DECL        2064          I
          -FC50443
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1012    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      FC50443        5     A     
 DECL      APT20    SA3    APTB        MAXLEN = (MAX.SPCM)                                 FC50443        6     A     
 DECL               SB7    E.CM9                                                           DECL        2065     A     
 DECL               AX7    59                                                              DECL        2066     A     
 DECL               SA2    CO.LCM                                                          FC5A132       73     A     
 DECL               BX2    -X7*X2                                                          FC5A132       74     A     
 DECL               BX4    -X7*X0                                                          DECL        2067     A     
 DECL               PL     X4,APT30    IF NOT LCM=G AND LCM                                DECL        2068          I
          -FC5A132
 DECL               PL     X2,APT30           IF NOT LCM=G AND LCM                         FC5A132       75     A     
 DECL               SA3    APTA        MAXLEN = (MAX.SPLC)                                 DECL        2069     A     
 DECL               SB7    E.CM10                                                          DECL        2070     A     
 DECL                                                                                      FC50443        7     A     
 DECL      APT30    IX7    X5-X3                                                           DECL        2071     A     
 DECL               MI     X7,APT40    IF BLENI .LT. MAXLEN                                DECL        2072     A     
 DECL               FATAL  B7                                                              DECL        2073     A     
 DECL                                                                                      FC50443        8     A     
 DECL      APT40    ZR     X4,APT10    IF (LCM=D OR NOT LCM BLOCK)                         DECL        2074     A     
 DECL                                                                                      DECL        2075     A     
 DECL     **        GENERATE AND SET POINTER TAG                                           DECL        2076     A     
 DECL                                                                                      DECL        2077     A     
 DECL               SA3    T=LCA                                                           DECL        2078     A     
 DECL               SX7    K=LC                                                            DECL        2079     A     
 DECL               LX7    P=PFX                                                           DECL        2080     A     
 DECL               IX7    X3+X7                                                           DECL        2081     A     
 DECL               LX7    CB.TAGP                                                         DECL        2082     A     
 DECL               BX6    X6+X7       SET TAG INTO BLOCK TABLE ENTRY                      DECL        2083     A     
 DECL               SA6    A1                                                              DECL        2084     A     
 DECL                                                                                      DECL        2085     A     
 DECL     **        CONSTRUCT POINTER WORD -- GET TAG OF FIRST NAME IN BLOCK AND           DECL        2086     A     
 DECL     *         PLACE INTO AP-LIST WORD FORMAT WITH BIT *ALCM* ON.                     DECL        2087     A     
 DECL     *         T.COMM HAS BEEN KEPT SO WE CAN FIND FIRST NAMES.                       DECL        2088     A     
 DECL                                                                                      DECL        2089     A     
 DECL               SA2    T.COMM                                                          DECL        2090     A     
 DECL               HX1    CB.FMI                                                          DECL        2091     A     
 DECL               AX1    -CB.FMIL    FMIND = FMI[CBI]                                    DECL        2092     A     
 DECL               MX4    -CB.FMIL                                                        FC5A522        6     A     
 DECL               ERRNZ  12-CB.FMIL                                                      FC5A522        7     A     
 DECL               BX1    -X4*X1                                                          FC5A522        8     A     
 DECL               IX4    X2+X1                                                           DECL        2093     A     
 DECL               SA2    X4          CMI = T.COMM(FMIND)                                 DECL        2094     A     
 DECL                                                                                      DECL        2095     A     
 DECL     *         FIRST NAME IN BLOCK FOUND                                              DECL        2096     A     
 DECL                                                                                      DECL        2097     A     
 DECL               MX7    -CT.TAGL                                                        DECL        2098     A     
 DECL               LX2    -CT.TAGP                                                        DECL        2099     A     
 DECL               BX6    -X7*X2      TAGI = TAG[CMI]                                     DECL        2100     A     
 DECL               LX6    IA.TAGP     POSITION TAG FOR APLIST TABLE                       DECL        2101     A     
 DECL               SX4    A1                                                              DECL        2102          I
          -FC50156
 DECL               SA4    T.BLKS                                                          FC50156        7     A     
 DECL               SB3    X4                                                              FC50156        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1013    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SX4    A1-B3       RELATIVIZE BLOCK POINTER                            FC50156        9     A     
 DECL               ADDWD  T.LCA                                                           DECL        2103     A     
 DECL               SA1    X4          RESTORE A1                                          DECL        2104          I
          -FC50156
 DECL               SA1    T.BLKS                                                          FC50156       10     A     
 DECL               SB3    X1                                                              FC50156       11     A     
 DECL               SA1    X4+B3       ABSOLUTIZE BLOCK POINTER                            FC50156       12     A     
 DECL               =B3    Z=BLKS                                                          DECL        2105     A     
 DECL               MX0    -CA.BLVLL     RESTORE X0                                        DECL        2106     A     
 DECL               EQ     APT10       LOOP                                                DECL        2107     A     
 DECL                                                                                      DECL        2108     A     
 DECL      APTA     CON    MAX.SPLC-1                                                      DECL        2109          I
          -FC5A231
 DECL      APTA     CON    MAX.SPLC+1                                                      FC5A231      119     A     
 DECL      APTB     CON    MAX.SPCM+1                                                      FC50443        9     A     
 DECL      ASL      SPACE  4,10                                                            DECL        2110     A     
 DECL     **        ASL - ASSIGN STORAGE LEVELS.                                           DECL        2111     A     
 DECL     *                                                                                DECL        2112     A     
 DECL     *         ENTRY  (T.SYM/WB) = (LAB, VAR, FP, COM, LEVN) SET CORRECTLY.           DECL        2113     A     
 DECL     *                                                                                DECL        2114     A     
 DECL     *         FOR EACH *VAR* SYMBOL, *ASL* DECIDES FROM ITS LEVEL AND THE            DECL        2115     A     
 DECL     *         OBJECT MACHINE TYPE, WHAT STORAGE TYPE IS FOR THE VARIABLE.            DECL        2116     A     
 DECL     *         FOR VARIABLES WHICH ARE ECS/LCM RESIDENT, THE (WB.LCM) BIT             DECL        2117     A     
 DECL     *         IS SET.                                                                DECL        2118     A     
 DECL                                                                                      DECL        2119     A     
 DECL                                                                                      DECL        2120     A     
 DECL      ASL      SUBR               ...ENTRY/EXIT...                                    DECL        2121     A     
 DECL               SA1    LEVEL2                                                          FC5A184       70     A     
 DECL               SA2    T=SYM                                                           DECL        2122     A     
 DECL               SA3    T.SYM                                                           DECL        2123     A     
 DECL               =B3    Z=SYM                                                           DECL        2124     A     
 DECL               SA1    T.BLKS                                                          DECL        2125          I
          -FC5A184
 DECL               ZR     X1,EXIT.    IF NO LCM/ECS IN PROGRAM                            FC5A184       71     A     
 DECL               SB6    X2          (B6) = LENGTH OF SYMTAB                             DECL        2126     A     
 DECL               MX0    -WB.LEVNL                                                       DECL        2127     A     
 DECL               =A3    X3-Z=SYM+WB.W                                                   DECL        2128     A     
 DECL               =B5    X1+CB.W     (B5) = FWA BLOCK TABLE                              DECL        2129          I
          -FC5A184
 DECL               CLAS=  X5,WB,LEV                                                       DECL        2130     A     
 DECL               CLAS=  X7,WB,(LCM)                                                     DECL        2131     A     
 DECL                                                                                      DECL        2132     A     
 DECL      ASL2     SA3    A3+B3       FETCH SYMTAB ATTRIBUTE WORD                         DECL        2133     A     
 DECL               ZR     B6,EXIT.    IF TABLE EXHAUSTED                                  DECL        2134     A     
 DECL               BX4    X5*X3                                                           DECL        2135     A     
 DECL      .TEST    IFEQ   TEST,ON,1                                                       DECL        2136     A     
 DECL               MI     B6,"BLOWUP" IF SYMTAB LEN NOT MULTIPLE OF Z=SYM                 DECL        2137     A     
 DECL               SB6    B6-B3                                                           FC5A517        7     A     
 DECL               LX3    59-WB.LABP                                                      DECL        2138     A     
 DECL               MI     X3,ASL2     IF LAB, IGNORE                                      FC5A444      122     A     
 DECL               MX6    1                                                               FC5A444      123     A     
 DECL               LX6    WB.ALP-WB.LABP                                                  FC5A444      124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1014    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX3    -X6*X3      CLEAR WB.ALP SINCE THE BIT IS RE-USED BY            FC5A444      125     A     
 DECL               BX6    X3          STATEMENT FUNCS AND ASSIGN GOTO PROCESSING          FC5A444      126     A     
 DECL               LX6    WB.LABP+1                                                       FC5A444      127     A     
 DECL               SA6    A3          UPDATE MEMORY COPY OF WORD B                        FC5A444      128     A     
 DECL               SB6    B6-B3                                                           DECL        2139          I
          -FC5A517
 DECL               BX2    X3                                                              DECL        2140          I
          -FC5A444
 DECL               LX3    WB.LABP-WB.VARP                                                 DECL        2141     A     
 DECL               BX2    -X2*X3                                                          DECL        2142          I
          -FC5A444
 DECL               PL     X2,ASL2     IF NOT ((NOT LAB) AND (VAR)) -- IGNORE              DECL        2143          I
          -FC5A444
 DECL               PL     X3,ASL2     IF NOT VAR, IGNORE                                  FC5A444      129     A     
 DECL               ZR     X4,ASL2     IF NOT DECLARED IN LEVEL                            DECL        2144     A     
 DECL               LX3    WB.VARP+1-WB.LEVNP                                              DECL        2145     A     
 DECL               BX2    -X0*X3      EXTRACT (X2) = LEVEL NUMBER                         DECL        2146     A     
 DECL               NZ     X2,ASL10    IF LEVEL NUMBER .NE. 0                              DECL        2147     A     
 DECL               =X2    2                                                               DECL        2148     A     
 DECL      ASL10    =X4    X2+.DAL-3                                                       DECL        2149     A     
 DECL               ERRPL  .DAL-2                                                          DECL        2150     A     
 DECL               MI     X4,ASL2     IF (LEV + .DAL) .LT. 3, THEN NOT LARGE CORE         DECL        2151     A     
 DECL               IFEQ   .MI,1,4                                                         F1037F5      421     A     
 DECL               NZ     X4,ASL15    IF LEVEL 3                                          F1037F5      422     A     
 DECL               SA4    =XCO.TMLC                                                       F1037F5      423     A     
 DECL               ZR     X4,ASL2     IF NO LCM                                           F1037F5      424     A     
 DECL      ASL15    BSS    0                                                               F1037F5      425     A     
 DECL                                                                                      F1037F5      426     A     
 DECL               LX3    WB.LEVNP                                                        DECL        2152     A     
 DECL               BX6    X7+X3       SET (LCM) BIT                                       DECL        2153     A     
 DECL               SA6    A3                                                              DECL        2154     A     
 DECL               EQ     ASL2        LOOP..                                              DECL        2155     A     
 DECL      CCC      SPACE  4,10                                                            DECL        2156     A     
 DECL     **        CCC - CHECK CHARACTER COMMON BLOCK.                                    DECL        2157     A     
 DECL     *         DETECT CHARACTER DECLARATION CONFLICT IN COMMON BLOCK AND              DECL        2158     A     
 DECL     *         CONVERT CHARACTER BLOCK LENGTH TO NO. OF WORDS.                        DECL        2159     A     
 DECL     *                                                                                DECL        2160     A     
 DECL     *         ENTRY  COMMON BLOCK LENGTH HAVE BEEN CALCULATED, EQUIVALENCE           DECL        2161     A     
 DECL     *                PROCESSING (IF ANY) HAVE BEEN DONE.                             DECL        2162     A     
 DECL     *         EXIT   ALL COMMON BLOCK LENGTHS NOW ARE IN NO. OF WORDS.               DECL        2163     A     
 DECL                                                                                      DECL        2164     A     
 DECL                                                                                      DECL        2165     A     
 DECL      CCC      SUBR               ...ENTRY/EXIT...                                    DECL        2166     A     
 DECL               SA1    CHARDCL                                                         DECL        2167     A     
 DECL               SA2    T.BLKS                                                          DECL        2168     A     
 DECL               PL     X1,EXIT.    IF NO CHARACTER DECLARATIONS                        DECL        2169     A     
 DECL               SA3    T=BLKS                                                          DECL        2170     A     
 DECL               SA4    BLNKCOM                                                         DECL        2171     A     
 DECL               SB5    X4          (B5) = BLKIND FOR BLANK COMMON                      DECL        2172     A     
 DECL               =B6    Z=BLKS                                                          DECL        2173          I
          -FC5A312
 DECL               =B3    Z=BLKS                                                          FC5A312        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1015    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =B2    X2+CA.W                                                         DECL        2174     A     
 DECL               SB4    X3          LEN = (T=BLKS)                                      DECL        2175     A     
 DECL               MX0    -CB.BLENL                                                       DECL        2176     A     
 DECL               MX4    CA.BNAML                                                        DECL        2177     A     
 DECL               SB3    B6                                                              DECL        2178          I
          -FC5A312
 DECL               SB6    -Z=BLKS     INITIALIZE FOR LOOP                                 FC5A312        6     A     
 DECL                                                                                      DECL        2179     A     
 DECL     *         PROCESS NEXT COMMON BLOCK.                                             DECL        2180     A     
 DECL                                                                                      DECL        2181     A     
 DECL      CCC10    GE     B6,B4,EXIT. IF END OF T.BLKS                                    DECL        2182          I
          -FC5A312
 DECL      CCC10    SB6    B6+B3       BLKIND = BLKIND + Z=BLKS                            FC5A312        7     A     
 DECL               GT     B6,B4,EXIT. IF END OF T.BLKS                                    FC5A312        8          I
          -FC5A330
 DECL               GE     B6,B4,EXIT. IF END OF T.BLKS                                    FC5A330        4     A     
 DECL               SA1    B2+B6       CAI = T.BLKS(BKLIND)                                DECL        2183     A     
 DECL               BX7    X1                                                              DECL        2184     A     
 DECL               HX1    CA.CHAR                                                         DECL        2185     A     
 DECL               SB6    B6+B3       BLKIND = BLKIND + Z=BLKS                            DECL        2186          I
          -FC5A312
 DECL               PL     X1,CCC30    IF NOT CHAR BLOCK                                   DECL        2187     A     
 DECL               =A2    A1-CA.W+CB.W      CBI = CB ENTRY OF T.BLKS                      DECL        2188     A     
 DECL               LX2    -CB.BLENP                                                       DECL        2189     A     
 DECL               BX6    X0*X2       CLEAR BLEN FIELD                                    DECL        2190     A     
 DECL               BX3    -X0*X2      BLENI = BLEN[CBI]                                   DECL        2191     A     
 DECL               WX5    X3,X2       BLENI = BLENI / 10                                  DECL        2192     A     
 DECL               BX5    -X0*X5                                                          DECL        2193     A     
 DECL                                                                                      FC5A330        5     A     
 DECL      .TEST    IFEQ   TEST,ON                                                         DECL        2194     A     
 DECL               SX3    X2-10                                                           DECL        2195     A     
 DECL               PL     X3,"BLOWUP" IF REMAINING CHARS .GE. 10                          DECL        2196     A     
 DECL      .TEST    ENDIF                                                                  DECL        2197     A     
 DECL                                                                                      DECL        2198     A     
 DECL               =X3    1                                                               DECL        2199     A     
 DECL               ZR     X2,CCC20    IF NO REMAINDER                                     DECL        2200     A     
 DECL               IX5    X5+X3       BLENI = BLENI + 1                                   DECL        2201     A     
 DECL               LX2    CB.RNCP-CB.BLENP                                                DECL        2202     A     
 DECL               BX6    X6+X2                                                           DECL        2203     A     
 DECL                                                                                      FC5A330        6     A     
 DECL      CCC20    IX6    X6+X5                                                           DECL        2204     A     
 DECL               LX6    CB.BLENP                                                        DECL        2205     A     
 DECL               SA6    A2          (RNC,BLEN)[CBI] = (RNC,BLENI) [CB.]                 DECL        2206     A     
 DECL                                                                                      DECL        2207     A     
 DECL     *         ISSUE MESSAGE FOR CHARACTER CONFLICT IN THIS BLOCK IF                  DECL        2208     A     
 DECL     *         NAC[CAI] = 1.                                                          DECL        2209     A     
 DECL                                                                                      DECL        2210     A     
 DECL      CCC30    LX1    CA.CHARP-CA.NACP                                                DECL        2211     A     
 DECL               PL     X1,CCC10    IF NO CONFLICT                                      DECL        2212     A     
 DECL               BX7    X4*X7                                                           DECL        2213     A     
 DECL               NE     B6,B5,CCC40 IF NOT BLANK COMMON                                 DECL        2214     A     
 DECL               SX7    =2R//                                                           DECL        2215          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1016    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC50797
 DECL               SX7    2R//                                                            FC50797        5     A     
 DECL               LX7    8*CHAR                                                          DECL        2216     A     
 DECL                                                                                      FC5A330        7     A     
 DECL      CCC40    SA7    FILL.       STORE BLOCK NAME                                    DECL        2217     A     
 DECL               FATAL  E.CM11                                                          DECL        2218     A     
 DECL               EQ     CCC10                                                           DECL        2219     A     
 DECL      CCL      SPACE  4,10                                                            DECL        2220     A     
 DECL     **        CCL - CORDINATE COMMON LEVEL INFORMATION.                              DECL        2221     A     
 DECL     *                                                                                DECL        2222     A     
 DECL     *         FOR EACH COMMON BLOCK, PROPAGATE LEVEL INFORMATION                     DECL        2223     A     
 DECL     *         TO ALL THE COMMON MEMBERS, DIAGNOSING ANY PREVIOUS                     DECL        2224     A     
 DECL     *         INDIVIDUAL LEVEL DECLARATIONS.                                         DECL        2225     A     
 DECL                                                                                      DECL        2226     A     
 DECL                                                                                      DECL        2227     A     
 DECL      CCL      SUBR               ...ENTRY/EXIT...                                    DECL        2228     A     
 DECL               SA4    LEVEL                                                           FC5A184       72     A     
 DECL               SA3    T.BLKS                                                          DECL        2229     A     
 DECL               SA2    T.COMM                                                          DECL        2230     A     
 DECL               ZR     X4,EXIT.    IF NO LEVEL DECLARATIONS                            FC5A184       73     A     
 DECL               SA4    T.SYM                                                           DECL        2231     A     
 DECL               SB3    X2                                                              DECL        2232     A     
 DECL               =B6    X4+WB.W                                                         DECL        2233     A     
 DECL               SA1    T=BLKS                                                          DECL        2234     A     
 DECL               =B5    X3+CA.W                                                         DECL        2235     A     
 DECL               MX0    -CT.LNKL                                                        DECL        2236     A     
 DECL               ERRNZ  12-CT.LNKL                                                      FC5A522        9     A     
 DECL               SB2    X1          BLKIND = (T=BLKS)                                   DECL        2237     A     
 DECL               =B4    Z=BLKS                                                          DECL        2238     A     
 DECL                                                                                      DECL        2239     A     
 DECL      CCL10    SB2    B2-B4       BLKIND = BLKIND - Z=BLKS                            DECL        2240     A     
 DECL               SA4    B5+B2       CAI = T.BLKS(BLKIND)                                DECL        2241     A     
 DECL               LE     B2,B0,EXIT. IF END OF TABLE                                     DECL        2242     A     
 DECL               =A3    A4-CA.W+CB.W      CBI = CB ENTRY OF T.BLKS                      DECL        2243     A     
 DECL               MX7    -CA.BLVLL                                                       DECL        2244     A     
 DECL               LX4    -CA.BLVLP                                                       DECL        2245     A     
 DECL               HX3    CB.FMI                                                          DECL        2246     A     
 DECL               AX3    -CB.FMIL    CMIND = FMI[CBI]                                    DECL        2247     A     
 DECL               BX7    -X7*X4      BLEV = BLVL[CAI]                                    DECL        2248     A     
 DECL               LX7    WB.LEVNP                                                        DECL        2249     A     
 DECL               BX3    -X0*X3                                                          FC5A522       10     A     
 DECL                                                                                      DECL        2250     A     
 DECL     *         NEXT COMMON MEMBER OF THIS BLOCK.                                      DECL        2251     A     
 DECL     *         (A4,X4) = CAI                                                          DECL        2252     A     
 DECL     *         (X3) = CMIND                                                           DECL        2253     A     
 DECL     *         (X7) = BLEV, SHIFTED TO WB.LEVNP                                       DECL        2254     A     
 DECL                                                                                      DECL        2255     A     
 DECL      CCL20    ZR     X3,CCL10    IF CMIND .EQ.0                                      DECL        2256     A     
 DECL               SA1    X3+B3       CMI = T.COMM(CMIND)                                 DECL        2257     A     
 DECL               LX1    -CT.TAGP                                                        DECL        2258     A     
 DECL               SB7    X1          TAGI = TAG[CMI]                                     DECL        2259     A     
 DECL               ERRNZ  18-CT.TAGL                                                      DECL        2260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1017    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SX2    B7+B7                                                           DECL        2261     A     
 DECL               LX1    CT.TAGP-CT.LNKP                                                 DECL        2262     A     
 DECL               BX3    -X0*X1      CMIND = LNK[CMI]                                    DECL        2263     A     
 DECL               SX6    X2+B7       STINDB = 3 * TAGI                                   DECL        2264     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        2265     A     
 DECL               SA2    X6+B6       WBI = T.SYM(STINDB)                                 DECL        2266     A     
 DECL               =A1    A2-WB.W+WA.W                                                    DECL        2267     A     
 DECL               CLAS=  X5,WB,(LEV,LEVN)                                                DECL        2268     A     
 DECL               MX6    WA.SYML                                                         DECL        2269     A     
 DECL               BX5    -X5*X2                                                          DECL        2270     A     
 DECL               HX2    WB.EQV                                                          DECL        2271     A     
 DECL               BX6    X6*X1                                                           DECL        2272     A     
 DECL               SA6    FILL.       STORE NAME IN MESSAGE                               DECL        2273     A     
 DECL               MI     X2,CCL20    IF EQUIVALENCED                                     DECL        2274     A     
 DECL               LX2    WB.EQVP-WB.LEVP                                                 DECL        2275     A     
 DECL               PL     X2,CCL30    IF NOT ALREADY LEVELED                              DECL        2276     A     
 DECL               FATAL  E.LV9       EXPLICT LEVEL DECLARATION BY COM MEMBER             DECL        2277     A     
 DECL      CCL30    ZR     X7,CCL20    IF BLOCK NOT LEVELED                                DECL        2278     A     
 DECL               CLAS=  X1,WB,(LEV)                                                     DECL        2279     A     
 DECL               BX1    X1+X7                                                           DECL        2280     A     
 DECL               BX6    X5+X1                                                           DECL        2281     A     
 DECL               SA6    A2          (LEV,LEVN) [WBI] = (1,BLEV) [WB.]                   DECL        2282     A     
 DECL               EQ     CCL20                                                           DECL        2283     A     
 DECL      CCS      SPACE  4,10                                                            DECL        2284     A     
 DECL     **        CCS - CONVERT CHARACTER SYMBOL.                                        DECL        2285     A     
 DECL     *         FOR EACH CHARACTER SYMBOL, CONVERT ITS RA[WCI] FROM CHARACTER          DECL        2286     A     
 DECL     *         OFFSET TO WORD OFFSET AND BCP (BEGINNING CHARACTER POSITION).          DECL        2287     A     
 DECL                                                                                      DECL        2288     A     
 DECL                                                                                      DECL        2289     A     
 DECL      CCS      SUBR               ...ENTRY/EXIT...                                    DECL        2290     A     
 DECL               SA1    CHARDCL                                                         DECL        2291     A     
 DECL               SA2    T=SYM                                                           DECL        2292     A     
 DECL               PL     X1,EXIT.    IF NO CHARACTER DECLARATIONS                        DECL        2293     A     
 DECL               SA3    T.SYM                                                           DECL        2294     A     
 DECL               SB6    X2                                                              DECL        2295     A     
 DECL               SB2    -M.CHAR                                                         DECL        2296     A     
 DECL               =B3    Z=SYM                                                           DECL        2297     A     
 DECL               =A3    X3+WB.W                                                         DECL        2298     A     
 DECL               MX0    -WB.MODEL                                                       DECL        2299     A     
 DECL               MX7    -WC.RAL                                                         DECL        2300     A     
 DECL               CLAS=  X2,WB,(LAB,FP,PARM,NVAR,EXT,NLST,ENT)                           DECL        2301     A     
 DECL      CCS10    SA3    A3+B3       WBI = T.SYM(SYMIND)                                 DECL        2302     A     
 DECL               SB6    B6-B3                                                           DECL        2303     A     
 DECL               ZR     B6,EXIT.    IF END OF T.SYM                                     DECL        2304     A     
 DECL               BX1    X2*X3                                                           DECL        2305     A     
 DECL               LX3    -WB.MODEP                                                       DECL        2306     A     
 DECL               BX3    -X0*X3      MODEI = MODE[WBI]                                   DECL        2307     A     
 DECL               SX6    X3+B2                                                           DECL        2308     A     
 DECL               NZ     X6,CCS10    IF NOT MODE CHARACTER                               DECL        2309     A     
 DECL               NZ     X1,CCS10    IF WRONG CLASS                                      DECL        2310     A     
 DECL               =A4    A3-WB.W+WC.W      WCI = WC ENTRY OF T.SYM                       DECL        2311     A     
 DECL               LX4    -WC.RAP                                                         DECL        2312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1018    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX6    X7*X4       CLEAR RA FIELD                                      DECL        2313     A     
 DECL               BX4    -X7*X4      RAI = RA[WCI]                                       DECL        2314     A     
 DECL               WX5    X4,X3       RAI = RAI / 10                                      DECL        2315     A     
 DECL               LX3    WC.BCPP                                                         DECL        2316     A     
 DECL               BX6    X6+X5                                                           DECL        2317     A     
 DECL               LX6    WC.RAP                                                          DECL        2318     A     
 DECL               BX6    X6+X3                                                           DECL        2319     A     
 DECL               SA6    A4          (BCP,RA) [WCI] = (BCP,RAI) [WC.]                    DECL        2320     A     
 DECL               EQ     CCS10                                                           DECL        2321     A     
 DECL      DCS      SPACE  4,10                                                            DECL        2322     A     
 DECL     **        DCS - DIAGNOSE COMMON-SAVE VARIABLES.                                  DECL        2323     A     
 DECL     *                                                                                DECL        2324     A     
 DECL     *         FIRST, DIAGNOSE REDUNDANT SAVE STATEMENTS WHEN UNIVERSAL               DECL        2325     A     
 DECL     *         SAVE IS ON.                                                            DECL        2326     A     
 DECL     *                                                                                DECL        2327     A     
 DECL     *         BEFORE PROPAGATION OF SAVE BIT THROUGH SAVE DECLARED                   DECL        2328     A     
 DECL     *         COMMON BLOCK, SYMBOL TABLE IS SCANNED FOR COMMON ELEMENTS              DECL        2329     A     
 DECL     *         WHICH ARE ALREADY DECLARED THROUGH SAVE EXPLICITLY, AND                DECL        2330     A     
 DECL     *         FATAL ERRORS ARE ISSUED.                                               DECL        2331     A     
 DECL     *                                                                                DECL        2332     A     
 DECL     *         USES   ALL                                                             DECL        2333     A     
 DECL                                                                                      DECL        2334     A     
 DECL                                                                                      DECL        2335     A     
 DECL      DCS      SUBR               ...ENTRY/EXIT...                                    DECL        2336     A     
 DECL               SA1    SAVE                                                            DECL        2337     A     
 DECL               SA3    USAVE                                                           DECL        2338     A     
 DECL               BX6    X1*X3                                                           DECL        2339     A     
 DECL               BX1    X1+X3                                                           DECL        2340     A     
 DECL               ZR     X1,EXIT.    IF NO SAVE STATEMENTS OCCURED                       DECL        2341     A     
 DECL               ZR     X6,DCS10    IF NOT BOTH SAVE FLAGS ON                           DECL        2342     A     
 DECL               WARN   E.SA        REDUNDANT SAVE DECLARATIONS                         DECL        2343     A     
 DECL                                                                                      DECL        2344     A     
 DECL      DCS10    SA2    T=SYM                                                           DECL        2345     A     
 DECL               SA4    T.SYM                                                           DECL        2346     A     
 DECL               MX0    WA.SYML                                                         DECL        2347     A     
 DECL               SB6    X2                                                              DECL        2348     A     
 DECL               =B3    Z=SYM                                                           DECL        2349     A     
 DECL               =A5    X4+WB.W                                                         DECL        2350     A     
 DECL               CLAS=  X2,WB,(LAB,CGS)                                                 DECL        2351     A     
 DECL               CLAS=  X3,WB,(COM,SAVE)                                                DECL        2352     A     
 DECL      DCS20    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                             DECL        2353     A     
 DECL               SB6    B6-B3                                                           DECL        2354     A     
 DECL               ZR     B6,EXIT.    IF END OF T.SYM                                     DECL        2355     A     
 DECL               BX6    X2*X5                                                           DECL        2356     A     
 DECL               BX4    X3*X5                                                           DECL        2357     A     
 DECL               =A1    A5-WB.W+WA.W                                                    DECL        2358     A     
 DECL               BX7    X1*X0                                                           DECL        2359     A     
 DECL               BX5    X4-X3                                                           DECL        2360     A     
 DECL               NZ     X6,DCS20    IF LABEL OR CGS                                     DECL        2361     A     
 DECL               NZ     X5,DCS20    IF NOT (COMMON AND SAVE)                            DECL        2362     A     
 DECL               SA7    FILL.                                                           DECL        2363     A     
 DECL               FATAL  E.SA6                                                           DECL        2364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1019    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               EQ     DCS20                                                           DECL        2365     A     
 DECL                                                                                      DECL        2366     A     
 DECL     *CALL,COMFDST                                                                    DECL        2367     A     
 DECL      ELV      SPACE  4,8                                                             DECL        2368     A     
 DECL               TITLE  *EQUIVALENCE* DIGESTION.                                        DECL        2369     A     
 DECL      EQU      SPACE  4,8                                                             DECL        2370     A     
 DECL     **        EQU -  PROCESS EQUIVALENCES.                                           DECL        2371     A     
 DECL     *                                                                                DECL        2372     A     
 DECL     *         ENTRY  (T.EQUS) CONTAINS TRANSLATED EQUIVALENCE STATEMENTS.            DECL        2373          I
          -FC50757
 DECL     *                END OF DECLARATIVES HAS BEEN ENCOUNTERED.                       DECL        2374          I
          -FC50757
 DECL     *                ADDRESS TABLE HAS BEEN CREATED, AND COMMON VARIABLES            DECL        2375          I
          -FC50757
 DECL     *                            DEFINED.                                            DECL        2376          I
          -FC50757
 DECL     *         ENTRY  END OF DECLARATIVES HAS BEEN ENCOUNTERED.  COMMON               FC50757       18     A     
 DECL     *                ADDRESSES (IF PRESENT) ARE RESOLVED.  T.EQUS CONTAINS           FC50757       19     A     
 DECL     *                TRANSLATED EQUIVALENCE STATEMENTS (IF PRESENT).                 FC50757       20     A     
 DECL     *                                                                                FC50757       21     A     
 DECL     *         EXIT   EQUIVALENCE ADDRESSES ASSIGNED.                                 DECL        2377     A     
 DECL     *                (EQUA) = LOCAL EQUIVALENCE LENGTH                               DECL        2378     A     
 DECL                                                                                      DECL        2379     A     
 DECL                                                                                      DECL        2380     A     
 DECL      EQU      SUBR               ...ENTRY/EXIT...                                    DECL        2381     A     
 DECL               SA2    T=EQUS                                                          DECL        2382     A     
 DECL               ZR     X2,EQUX     IF NO EQUIV STATEMENTS                              DECL        2383     A     
 DECL                                                                                      DECL        2384     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        2385     A     
 DECL               SA1    CO.SNAP                                                         DECL        2386     A     
 DECL               LX1    1RD                                                             DECL        2387     A     
 DECL               PL     X1,EQUS0    IF DECLARATIVE SNAP NOT SELECTED                    DECL        2388     A     
 DECL               PLINE  (=C=  (TRANSLATED EQUIV STATEMENTS.)=),4,2                      DECL        2389     A     
 DECL      EQU.0    DUMPT  EQUS                                                            DECL        2390     A     
 DECL      EQU.1    DUMPT  COMM                                                            DECL        2391     A     
 DECL      EQUS0    BSS    0                                                               DECL        2392     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        2393     A     
 DECL      EQU      SPACE  4,10                                                            DECL        2394     A     
 DECL     **        PHASE 0 OF EQUIVALENCE DIGESTION.                                      DECL        2395     A     
 DECL     *         A.   DETECT SUBSTRINGED VARIABLE WITH MODE NOT CHARACTER.              DECL        2396     A     
 DECL     *         B.   DETECT SUBSTRING FIRST GREATER THAN DECLARED                      DECL        2397     A     
 DECL     *              LENGTH OF ASSOCIATED VARIABLE.                                    DECL        2398     A     
 DECL                                                                                      DECL        2399     A     
 DECL               MX6    1                                                               DECL        2400          I
          -FC50299
 DECL               MX6    0                                                               FC50299       25          I
          -FC50757
 DECL               MX6    1                                                               FC50757       22     A     
 DECL               ADDWD  T.EQUS      MARK END OF TABLE                                   DECL        2401     A     
 DECL               =A5    X1-1        INITIALIZE FETCH REG                                DECL        2402     A     
 DECL               MX0    -EQ.STFL                                                        DECL        2403     A     
 DECL               MX7    -EQ.SYMIL                                                       DECL        2404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1020    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA4    T.SYM                                                           DECL        2405     A     
 DECL               SB3    X4-1                                                            DECL        2406     A     
 DECL               MX4    -WA.SYML                                                        DECL        2407     A     
 DECL                                                                                      DECL        2408     A     
 DECL     EQU5      =A5    A5+1                                                            DECL        2409     A     
 DECL               MI     X5,EQU15    IF TABLE EXHAUSTED                                  DECL        2410          I
          -FC50299
 DECL               ZR     X5,EQU15    IF TABLE EXHAUSTED                                  FC50299       26          I
          -FC50757
 DECL               MI     X5,EQU15    IF TABLE EXHAUSTED                                  FC50757       23     A     
 DECL               UX2    X5,B2       B2 = LINKI                                          DECL        2411          I
          -FC50757
 DECL               ZR     B2,EQU5     IF NOT HEADER WORD                                  DECL        2412          I
          -FC50757
 DECL               LX5    -EQ.STFP                                                        DECL        2413          I
          -FC50757
 DECL               MX2    -EQ.LINKL                                                       FC50757       24     A     
 DECL               LX5    -EQ.LINKP                                                       FC50757       25     A     
 DECL               BX2    -X2*X5      EXTRACT LINK                                        FC50757       26     A     
 DECL               ZR     X2,EQU5     IF NOT HEADER WORD                                  FC50757       27     A     
 DECL               LX5    -EQ.STFP+EQ.LINKP                                               FC50757       28     A     
 DECL               BX2    -X0*X5      ISOLATE SUBSTRING FIRST                             DECL        2414     A     
 DECL               ZR     X2,EQU5     IF NOT SUBSTRINGED                                  DECL        2415     A     
 DECL               =X3    X2-1                                                            DECL        2416     A     
 DECL               BX6    X0*X5       ERASE OLD FIRST                                     DECL        2417     A     
 DECL               BX6    X6+X3       REPLACE WITH DECREMENTED VERSION                    DECL        2418     A     
 DECL               LX6    EQ.STFP                                                         DECL        2419     A     
 DECL               SA6    A5                                                              DECL        2420     A     
 DECL               LX5    EQ.STFP-EQ.SYMIP                                                DECL        2421     A     
 DECL               BX3    -X7*X5      ISOLATE SYMTAB *WB* INDEX                           DECL        2422     A     
 DECL               SA3    B3+X3       *WA*                                                DECL        2423     A     
 DECL               LX3    -WA.SYMP                                                        DECL        2424     A     
 DECL               BX6    -X4*X3      ISOLATE NAME                                        DECL        2425     A     
 DECL               LX6    -WA.SYML    LEFT JUSTIFY                                        DECL        2426     A     
 DECL               SA6    FILL.       SET CELL FOR DIAGNOSTICS                            DECL        2427     A     
 DECL               =A3    A3-WA.W+WB.W      *WB*                                          DECL        2428     A     
 DECL               LX3    -WB.MODEP                                                       DECL        2429     A     
 DECL               MX5    -WB.MODEL                                                       DECL        2430     A     
 DECL               BX5    -X5*X3      ISOLATE MODE                                        DECL        2431     A     
 DECL               SX5    X5-M.CHAR                                                       DECL        2432     A     
 DECL               ZR     X5,EQU10    IF NO ERROR                                         DECL        2433     A     
 DECL               FATAL  E.ST1       MODE NOT CHARACTER                                  DECL        2434     A     
 DECL               EQ     EQU5                                                            DECL        2435     A     
 DECL                                                                                      DECL        2436     A     
 DECL      EQU10    =A3    A3-WB.W+WC.W      *WC*                                          DECL        2437     A     
 DECL               MX5    -WC.CLIFL                                                       DECL        2438     A     
 DECL               LX3    -WC.CLIFP                                                       DECL        2439     A     
 DECL               BX3    -X5*X3      ISOLATE LENGTH INFO                                 DECL        2440     A     
 DECL               LX3    WC.CTYPP-WC.CLENP                                               DECL        2441     A     
 DECL               MI     X3,EQU5     IF VARIABLE LENGTH                                  DECL        2442     A     
 DECL               IX3    X3-X2       MI IF FIRST GT LENGTH                               DECL        2443     A     
 DECL               PL     X3,EQU5     IF NO ERROR                                         DECL        2444     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1021    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               FATAL  E.AT16      INVALID SUBSTRING                                   DECL        2445     A     
 DECL               EQ     EQU5                                                            DECL        2446     A     
 DECL      PHASE1   SPACE  3,8                                                             DECL        2447     A     
 DECL     **        PHASE 1 OF EQUIVALENCE DIGESTION.                                      DECL        2448     A     
 DECL     *         A.     COPY BLOCK AND RELADD (RB + RA) FROM T.SYM.                     DECL        2449     A     
 DECL     *         B.     SAVE ARRAY LENGTH (FROM T.DIM).                                 DECL        2450     A     
 DECL     *         C.     REDUCE SUBSCRIPTS TO A SINGLE OFFSET (IN WORDS).                DECL        2451     A     
 DECL     *         D.     COLLAPSE TABLE TO 2-WORD ENTRIES.                               DECL        2452     A     
 DECL     *         EXIT   (G1.) WORD SET UP.                                              DECL        2453     A     
 DECL     *                (G2.HI) = LENGTH OF ARRAY.                                      DECL        2454     A     
 DECL     *                (G2.LO) = SUBSCRIPT.                                            DECL        2455     A     
 DECL                                                                                      DECL        2456     A     
 DECL      EQU15    SA5    T.DIM                                                           DECL        2457     A     
 DECL               SB4    X1          (B4) = FWA EQUIV SOURCE TABLE                       DECL        2458     A     
 DECL               SB3    X5          (B3) = FWA DIMENSION PARAMETERS                     DECL        2459     A     
 DECL               SA5    X1          (A5) _ CURRENT FETCH (FROM T.EQUS)                  DECL        2460     A     
 DECL               =A7    A5-1        DUMMY STORE                                         DECL        2461     A     
 DECL               ERRMI  FUDGE-1     CODE REQUIRES AT LEAST 1 SLOP WORD                  DECL        2462     A     
 DECL               EQ     EQU30       BEGIN LOOP..                                        DECL        2463     A     
 DECL                                                                                      DECL        2464     A     
 DECL     *         FORM PHASE 1 EQV TABLE WORD 2, FORMATTED AS G2. .                      DECL        2465     A     
 DECL     *         A5 = EQI =  NEXT EAUIV SOURCE ENTRY                                    DECL        2466          I
          -FC50299
 DECL     *         A0 = G1I ENTRY                                                         DECL        2467          I
          -FC50299
 DECL     *         (A5) _ EQI = NEXT EQUIV SOURCE ENTRY                                   FC50299       27     A     
 DECL     *         (A0) _ G1I ENTRY                                                       FC50299       28     A     
 DECL     *         (B6) = CLENI                                                           DECL        2468     A     
 DECL     *         (X0) = SIGMA = LOI                                                     DECL        2469     A     
 DECL     *         (X7) = (LINK,HII) [G2.]                                                DECL        2470     A     
 DECL                                                                                      DECL        2471     A     
 DECL      EQU20    SA5    A5          (X5) = EQI ENTRY                                    DECL        2472     A     
 DECL               SX6    B6          (X6) = CLENI                                        DECL        2473     A     
 DECL               IX6    X0*X6       LOI = LOI * CLENI                                   DECL        2474     A     
 DECL               LX6    G2.LOP                                                          DECL        2475     A     
 DECL               IX7    X7+X6                                                           DECL        2476     A     
 DECL               SA7    A0+B1       (LINK,HI,LO)[G2I] = (LINKI,HII,LOI+STFI)            DECL        2477     A     
 DECL                                                                                      DECL        2478     A     
 DECL     *         (B3) = FWA(T.DIM)                                                      DECL        2479     A     
 DECL     *         (B4) = FWA(T.EQUS)                                                     DECL        2480     A     
 DECL     *         A5 _ FETCH ADDRESS FOR EQI ENTRY                                       DECL        2481          I
          -FC50299
 DECL     *         A7 _ STORE ADDRESS FOR EQI                                             DECL        2482          I
          -FC50299
 DECL     *         (A5) _ FETCH ADDRESS FOR EQI ENTRY                                     FC50299       29     A     
 DECL     *         (A7) _ G1I ENTRY                                                       FC50299       30     A     
 DECL                                                                                      DECL        2483     A     
 DECL      EQU30    MI     X5,EQU99    IF TABLE EXHAUSTED                                  DECL        2484          I
          -FC50299
 DECL      EQU30    ZR     X5,EQU99    IF TABLE EXHAUSTED                                  FC50299       31          I
          -FC50757
 DECL      EQU30    MI     X5,EQU99    IF TABLE EXHAUSTED                                  FC50757       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1022    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX6    X5                                                              FC50299       32     A     
 DECL               HX6    EQ.ISUB                                                         FC50299       33     A     
 DECL               SA6    EQUS        SAVE SUBSCRIPTION INDICATOR                         FC50299       34     A     
 DECL               SA3    T.SYM                                                           DECL        2485     A     
 DECL               SB7    X3                                                              DECL        2486     A     
 DECL               SA1    X5+B7       WBI = T.SYM( SYMI[EQI])                             DECL        2487     A     
 DECL               =A2    A1-WB.W+WA.W      WAI = WA ENTRY                                DECL        2488     A     
 DECL               MX3    WA.SYML                                                         DECL        2489     A     
 DECL               BX6    X3*X2                                                           DECL        2490     A     
 DECL               SA6    FILL.                                                           DECL        2491     A     
 DECL               CLAS=  X3,WB,(ARY)                                                     DECL        2492     A     
 DECL               BX6    X3*X1                                                           DECL        2493     A     
 DECL               SA6    EQUDIM                                                          DECL        2494     A     
 DECL               UX5    X5,B2       (X5) = SYMI, (B2) = LINKI                           DECL        2495          I
          -FC50757
 DECL               MX3    EQ.LINKL                                                        FC50757       30     A     
 DECL               BX2    X3*X5       EXTRACT LINK                                        FC50757       31     A     
 DECL               BX5    -X3*X5      EXTRACT SYMBOL INFORMATION                          FC50757       32     A     
 DECL               LX2    EQ.LINKL                                                        FC50757       33     A     
 DECL               SB2    X2          (B2) = LINKI                                        FC50757       34     A     
 DECL               MX3    -WB.MODEL                                                       DECL        2496     A     
 DECL               BX6    X1                                                              DECL        2497     A     
 DECL               HX6    WB.LEV                                                          DECL        2498     A     
 DECL               LX1    -WB.MODEP                                                       DECL        2499     A     
 DECL               BX3    -X3*X1                                                          DECL        2500     A     
 DECL               SB5    X3          (B5) = MODEI = MODE[WBI]                            DECL        2501     A     
 DECL               SB7    E.EQ10      CLASS CONFLICT -- F.P. IN EQV GROUP                 DECL        2502     A     
 DECL               MI     X6,EQU45    IF LEVELED                                          DECL        2503     A     
 DECL               LX1    WB.MODEP-WB.SAVEP                                               DECL        2504     A     
 DECL               SX7    X3-M.CHAR                                                       DECL        2505     A     
 DECL               SA4    GCI         GROUP CHAR INDICATER = (GCI)                        DECL        2506     A     
 DECL               CLAS=  X6,G1,(CHAR)      CHARI = 1                                     DECL        2507     A     
 DECL               ZR     X7,EQU35    IF MODE CHARACTER                                   DECL        2508     A     
 DECL               MX6    0           CHARI = 0                                           DECL        2509     A     
 DECL                                                                                      FC50299       35     A     
 DECL      EQU35    NE     B2,B1,EQU40 IF NOT FIRST ELEMENT IN GROUP                       DECL        2510     A     
 DECL               LX4    X6          SET GROUP CHARACTER INDICATER                       DECL        2511     A     
 DECL               SA6    A4          (GCI) = CHARI                                       DECL        2512     A     
 DECL                                                                                      FC50299       36     A     
 DECL      EQU40    IX7    X6-X4                                                           DECL        2513     A     
 DECL               MX6    -WC.RAL                                                         DECL        2514     A     
 DECL               SB7    E.EQ17      CHARACTER DECLARATION CONFLICT                      DECL        2515     A     
 DECL               ZR     X7,EQU50    IF NO CONFLICT                                      DECL        2516     A     
 DECL                                                                                      DECL        2517     A     
 DECL     *         THIS ELEMENT IS LEVELED OR IS CAUSING CHARACTER DECLARATION            DECL        2518     A     
 DECL     *         CONFLICT IN EQV GROUP, DROP IT FROM THE GROUP.                         DECL        2519     A     
 DECL                                                                                      DECL        2520     A     
 DECL      EQU45    =A5    A5+1                                                            DECL        2521     A     
 DECL               ZR     X5,EQU47    IF TABLE ENDS BEFORE END OF CLASS                   FC50299       37          I
          -FC50757
 DECL               UX1    X5,B2                                                           DECL        2522          I
          -FC50757
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1023    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               MI     X5,EQU47    IF TABLE ENDS BEFORE END OF CLASS                   FC50757       35     A     
 DECL               MX1    EQ.LINKL                                                        FC50757       36     A     
 DECL               BX1    -X1*X5      EXTRACT LINK                                        FC50757       37     A     
 DECL               LX1    EQ.LINKL                                                        FC50757       38     A     
 DECL               SB2    X1                                                              FC50757       39     A     
 DECL               MI     X5,EQU47    IF TABLE ENDS BEFORE END OF CLASS                   DECL        2523          I
          -FC50299
 DECL               NE     B2,B1,EQU45 IF NOT END OF THIS CLASS                            DECL        2524     A     
 DECL                                                                                      FC50299       38     A     
 DECL      EQU47    FATAL  B7          CHARACTER DECLARATION CONFLICT                      DECL        2525     A     
 DECL               EQ     EQU30                                                           DECL        2526     A     
 DECL                                                                                      DECL        2527     A     
 DECL     *         FORM PHASE 1 EQUIVALENCE TABLE WORD 1 (G1.).                           DECL        2528     A     
 DECL                                                                                      DECL        2529     A     
 DECL      EQU50    CLAS=  X3,EQ,(STF)                                                     DECL        2530          I
          -FC50299
 DECL      EQU50    CLAS=  X3,EQ,(ISUB)                                                    FC50299       39     A     
 DECL               BX5    -X3*X5      CLEAR SUBSCRIPTION INDICATOR                        FC50299       40     A     
 DECL               CLAS=  X3,EQ,(STF)                                                     FC50299       41     A     
 DECL               BX0    X3*X5       STFI = STF[EQI]                                     DECL        2531     A     
 DECL               BX5    X5-X0                                                           DECL        2532     A     
 DECL               AX0    EQ.STFP                                                         DECL        2533     A     
 DECL               =X2    1                                                               DECL        2534     A     
 DECL               BX2    X2*X1       SAVEI = SAVE[WBI]                                   DECL        2535     A     
 DECL               LX2    G1.SAVEP                                                        DECL        2536     A     
 DECL               BX2    X4+X2                                                           DECL        2537     A     
 DECL               LX5    G1.SYMIP-EQ.SYMIP                                               DECL        2538     A     
 DECL               BX5    X5+X2                                                           DECL        2539     A     
 DECL               MX7    -WC.CLENL                                                       DECL        2540     A     
 DECL               CLAS=  X2,WC,(RB)                                                      DECL        2541     A     
 DECL               =A3    A1-WB.W+WC.W      WCI = WC ENTRY                                DECL        2542     A     
 DECL               BX2    X2*X3       RBI = RB[WCI]                                       DECL        2543     A     
 DECL               LX3    -WC.RAP                                                         DECL        2544     A     
 DECL               BX6    -X6*X3      RAI = RA[WCI]                                       DECL        2545     A     
 DECL               LX3    WC.RAP-WC.CLENP                                                 DECL        2546     A     
 DECL               LX2    G1.RBP-WC.RBP                                                   DECL        2547     A     
 DECL               BX2    X2+X5                                                           DECL        2548     A     
 DECL               BX3    -X7*X3      CLENI = CLEN[WCI]                                   DECL        2549     A     
 DECL               SB6    X3          REMEMBER (B6) = CLENI                               DECL        2550     A     
 DECL               ERRNZ  18-WC.CLENL                                                     DECL        2551     A     
 DECL               LX6    G1.RAP                                                          DECL        2552     A     
 DECL               BX6    X6+X2                                                           DECL        2553     A     
 DECL               SA6    A7+B1       [G1I] = (SYMI,CHAR,RBI,RAI) [G1.]                   DECL        2554     A     
 DECL               SA0    A7+B1                                                           DECL        2555     A     
 DECL               CLAS=  X2,G1,(CHAR)                                                    DECL        2556     A     
 DECL               BX2    X4-X2                                                           DECL        2557     A     
 DECL               LX2    -G1.CHARP   (X2) .EQ. 0 IF CHAR, .EQ. 1 IF NON-CHAR             DECL        2558     A     
 DECL               SB6    X2+B6       CLENI = CLENI + (X2)                                DECL        2559     A     
 DECL                                                                                      DECL        2560     A     
 DECL     *         GET HI[G2.] FROM  T.DIM ENTRY OF ELEMENT.                              DECL        2561     A     
 DECL     *         (B5) = MODEI                                                           DECL        2562     A     
 DECL     *         (X0) = STFI                                                            DECL        2563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1024    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         (B2) = LINKI                                                           DECL        2564     A     
 DECL                                                                                      DECL        2565     A     
 DECL               LX1    WB.SAVEP-WB.PNTP                                                DECL        2566     A     
 DECL               MX3    -WB.PNTL                                                        DECL        2567     A     
 DECL               BX2    -X3*X1      DIMIND = PNT[WBI]                                   DECL        2568     A     
 DECL               MX6    -DH.PSL                                                         DECL        2569     A     
 DECL               SA2    X2+B3       D1I = T.DIM(DIMIND)                                 DECL        2570     A     
 DECL               LX2    -DH.PSP                                                         DECL        2571     A     
 DECL               BX7    -X6*X2      SIZI = SIZ[D1I]                                     DECL        2572     A     
 DECL               LX2    DH.PSP-DH.DIMP                                                  DECL        2573     A     
 DECL               MX1    -0          INDICATES TWO WORD ELEMENT                          DECL        2574     A     
 DECL               SB5    B5-M.DBL                                                        DECL        2575     A     
 DECL               EQ     B5,B0,EQU60 IF MODE DOUBLE                                      DECL        2576     A     
 DECL               EQ     B5,B1,EQU60 IF MODE COMPLEX                                     DECL        2577     A     
 DECL               =X1    0           INDICATES ONE WORD ELEMENT                          DECL        2578     A     
 DECL               SX3    B6                                                              DECL        2579     A     
 DECL               IX7    X3*X7       SIZI = SIZI * CLENI                                 DECL        2580     A     
 DECL                                                                                      FC50299       42     A     
 DECL      EQU60    =A3    A2+1                                                            DECL        2581     A     
 DECL               MX6    -DH.DIML                                                        DECL        2582     A     
 DECL               BX2    -X6*X2                                                          DECL        2583     A     
 DECL               SB5    X2          (B5) = NO. OF DIMENSIONS                            DECL        2584     A     
 DECL               BX6    X1*X7                                                           DECL        2585     A     
 DECL               IX7    X7+X6       DOUBLE SIZE IF *LONG*                               DECL        2586     A     
 DECL               LX7    G2.HIP                                                          DECL        2587     A     
 DECL               LX0    G2.LOP                                                          DECL        2588     A     
 DECL               BX7    X7+X0       ADD IN SUB STRING OFF SET                           DECL        2589     A     
 DECL               PX7    X7,B2       (LINK,HI,LO) = (LINKI,SIZI,STFI)[G2.]               DECL        2590          I
          -FC50757
 DECL               SX2    B2                                                              FC50757       40     A     
 DECL               LX2    G2.LINKP                                                        FC50757       41     A     
 DECL               BX7    X2+X7       (LINKI,SIZI,STFI)[G2.]                              FC50757       42     A     
 DECL                                                                                      DECL        2591     A     
 DECL                                                                                      DECL        2592     A     
 DECL     **        COMPUTE EFFECTIVE SUBSCRIPT --                                         DECL        2593     A     
 DECL     *                                                                                FC50299       43     A     
 DECL     *         ENTRY  (B5) = NUMBER OF DIMENSIONS.    (N)                             DECL        2594     A     
 DECL     *                (X1) = 0 IF SINGLE,  -0 IF LONG.                                DECL        2595     A     
 DECL     *                A3, (X3) = FIRST DIM WORD               (S(I))                  DECL        2596          I
          -FC50299
 DECL     *                (A3,X3) = FIRST DIM WORD        (S(I))                          FC50299       44     A     
 DECL     *                                                                                FC50299       45     A     
 DECL     *         METHOD --                                                              DECL        2597     A     
 DECL     *         I=1                LOOP INDEX                                          DECL        2598     A     
 DECL     *         PI=1               PARTIAL PRODUCT                                     DECL        2599     A     
 DECL     *         SIGMA=0            ACCUMULATOR                                         DECL        2600     A     
 DECL     * ALPHA   R1 = (S(I)) - LB(I)      SUBTRACT LOWER BOUND                          DECL        2601     A     
 DECL     *         SIGMA = SIGMA+R1*PI      ADD CONTRIBUTION FOR THIS SUB                 DECL        2602     A     
 DECL     *         PI = PI*D(I)                                                           DECL        2603     A     
 DECL     *         I=I+1                                                                  DECL        2604     A     
 DECL     *         IF I@N, _ALPHA     IF MORE SUBS TO DO                                  DECL        2605     A     
 DECL     *         BIAS = SIGMA*2**((WB.LONGP))                                           DECL        2606     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1025    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        2607     A     
 DECL               =X2    1           X2 # PI = 1                                         DECL        2608     A     
 DECL               BX1    X1*X2                                                           DECL        2609     A     
 DECL               BX0    0           SIGMA = 0                                           DECL        2610     A     
 DECL               IX2    X1+X2                                                           DECL        2611     A     
 DECL                                                                                      DECL        2612     A     
 DECL      EQU70    =A5    A5+1                                                            DECL        2613     A     
 DECL               UX5    X5,B7       S(I) = SUBS[EQI]                                    DECL        2614          I
          -FC50757
 DECL               NZ     B7,EQU90    IF NO MORE SUBSCRIPTS                               DECL        2615          I
          -FC50757
 DECL               MX4    EQ.LINKL                                                        FC50757       43     A     
 DECL               BX4    X4*X5                                                           FC50757       44     A     
 DECL               HX5    EQ.SUBS                                                         FC50757       45     A     
 DECL               NZ     X4,EQU90    IF NO MORE SUBSCRIPTS                               FC50757       46     A     
 DECL               AX5    -EQ.SUBSL   SIGN EXTEND SUBSCRIPT                               FC50757       47     A     
 DECL               BX6    X5                                                              DECL        2616     A     
 DECL               SA6    EQUDIM+1                                                        DECL        2617     A     
 DECL               =A1    A6-1        NO. OF DIMENSIONS                                   DECL        2618     A     
 DECL               SB7    E.EQ13                                                          DECL        2619     A     
 DECL               ZR     X5,EQU75    IF NOT SUBSCRIPTED                                  DECL        2620          I
          -FC50299
 DECL               SA4    EQUS                                                            FC50299       46     A     
 DECL               PL     X4,EQU75    IF NOT SUBSCRIPTED                                  FC50299       47     A     
 DECL               ZR     X1,EQU80    IF NOT DIMENSIONED                                  DECL        2621     A     
 DECL               HX3    D1.SPAN                                                         DECL        2622     A     
 DECL               AX3    -D1.SPANL   D(I) = SPAN[D1I]                                    DECL        2623     A     
 DECL               =A1    A3+D2.W     FETCH *D2* ENTRY                                    DECL        2624     A     
 DECL               HX1    D2.LB                                                           DECL        2625     A     
 DECL               AX1    D2.LBP      LB(I) = LB[D2I]                                     DECL        2626          I
          -FC50299
 DECL               LX1    D2.LBL-DM.INFL-DM.INFP                                          FC50299       48     A     
 DECL               AX1    -DM.INFL    LB(I) = LB(D2I) [SIGN EXTENDED]                     FC50299       49     A     
 DECL               IX5    X5-X1       R1 = S(I) - LB(I)                                   DECL        2627     A     
 DECL     *                            */UB(I) = D(I) + LB(I) - 1                          DECL        2628     A     
 DECL               IX4    X5-X3       */S(I) - UB(I) = R1 - D(I) + 1                      DECL        2629     A     
 DECL               SB7    E.EQ7                                                           DECL        2630     A     
 DECL               MI     X5,EQU80    IF R1 .LT. 0      */SUBS TOO SMALL                  DECL        2631     A     
 DECL               SB7    E.EQ8                                                           DECL        2632     A     
 DECL               PL     X4,EQU80    IF SX .GE. 0      */SUS TOO BIG                     DECL        2633     A     
 DECL                                                                                      DECL        2634     A     
 DECL      EQU75    IX1    X5*X2       R1(I) = R1(I) * PI                                  DECL        2635     A     
 DECL               =B5    B5-1        I = I-1                                             DECL        2636     A     
 DECL               IX0    X0+X1       SIGMA=SIGMA+R1                                      DECL        2637     A     
 DECL               IX2    X2*X3       PI = PI*D(I)                                        DECL        2638     A     
 DECL               MI     B5,EQU70    IF NO MORE DIMS                                     DECL        2639     A     
 DECL               SA3    A3+Z=DD     FETCH NEXT DIMENSION DESCRIPTOR                     DECL        2640     A     
 DECL               EQ     EQU70                                                           DECL        2641     A     
 DECL                                                                                      DECL        2642     A     
 DECL     *         ERROR - SKIP OVER REST OF SUBSCRIPTS.                                  DECL        2643     A     
 DECL                                                                                      DECL        2644     A     
 DECL      EQU80    FATAL  B7          OUTPUT THE MESSAGE                                  DECL        2645     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1026    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               MX0    0           SIGMA = 0                                           DECL        2646     A     
 DECL                                                                                      FC50299       50     A     
 DECL      EQU85    =A5    A5+1        NEXT SUBSCRIPT WORD                                 DECL        2647     A     
 DECL               UX1    X5,B7                                                           DECL        2648          I
          -FC50757
 DECL               ZR     B7,EQU85    IF LAST SUBS NOT YET FOUND                          DECL        2649          I
          -FC50757
 DECL               MX1    EQ.LINKL                                                        FC50757       48     A     
 DECL               BX1    X1*X5       EXTRACT LINK                                        FC50757       49     A     
 DECL               ZR     X1,EQU85    IF LAST SUBSCRIPT NOT YET FOUND                     FC50757       50     A     
 DECL               WARN   E.EQ14      EXCESS SUBSCRIPTS IGNORED                           DECL        2650     A     
 DECL               EQ     EQU20                                                           DECL        2651     A     
 DECL                                                                                      DECL        2652     A     
 DECL      EQU90    ZR     B5,EQU20    IF NO MORE DIMENSIONS                               DECL        2653     A     
 DECL               SA1    EQUDIM+1                                                        DECL        2654     A     
 DECL               ZR     X1,EQU20    IF NO SUBSCRIPT ON EQUIVALENCE                      DECL        2655     A     
 DECL               WARN   E.EQ15      MISSING SUBSCRIPTS SET TO ONE                       DECL        2656          I
          -FC5A126
 DECL               FATAL  E.EQ15      MISSING SUBSCRIPTS SET TO LOWER BOUND               FC5A126       34     A     
 DECL               EQ     EQU20                                                           DECL        2657     A     
 DECL      PHASE2   SPACE  3,8                                                             DECL        2658     A     
 DECL     **        PHASE 2 -- PASS 1 OF GALLER / FISHER EQUIVALENCE ALGORITHM.            DECL        2659     A     
 DECL     *         A.     MARK NEW END-OF-TABLE, AND RE-SET LENGTH.                       DECL        2660     A     
 DECL     *         B.     BEGIN.                                                          DECL        2661     A     
 DECL                                                                                      DECL        2662     A     
 DECL      EQU99    MX7    -1                                                              DECL        2663     A     
 DECL               =A7    A7+1        MARK END OF TABLE                                   DECL        2664     A     
 DECL               SB7    A7-B4                                                           DECL        2665     A     
 DECL               ZR     B7,EQUX     IF TABLE EMPTY                                      DECL        2666     A     
 DECL               SHRINK T=EQUS,B7+1 RESULTANT LENGTH OF TABLE                           DECL        2667     A     
 DECL               SA0    B4          (A0) = FWA EQUIVALENCE STATEMENTS                   DECL        2668     A     
 DECL               =B2    Z=EQS                                                           DECL        2669     A     
 DECL               =B5                GFLEN = 0 (LENGTH OF G/F INFO IN TABLE)             DECL        2670     A     
 DECL               =B4                (B4) = POINTER TO EQUIV SOURCE INFO                 DECL        2671     A     
 DECL                                                                                      DECL        2672     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        2673     A     
 DECL               SA1    CO.SNAP                                                         DECL        2674     A     
 DECL               LX1    1RD                                                             DECL        2675     A     
 DECL               PL     X1,EQU99S   IF DECLARATIVE SNAP NOT SELECTED                    DECL        2676     A     
 DECL      EQU.99   DUMPT  EQUS                                                            DECL        2677     A     
 DECL      EQU99S   BSS    0                                                               DECL        2678     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        2679     A     
 DECL                                                                                      DECL        2680     A     
 DECL                                                                                      DECL        2681     A     
 DECL     **        HERE WE BEGIN TO ADD AN ITEM INTO THE G/F TABLE, WHICH IS              DECL        2682     A     
 DECL     *                GROWING INTO THE SAME SPACE NOW OCCUPIED BY THE EQUIV           DECL        2683     A     
 DECL     *                STATEMENT TABLE.                                                DECL        2684     A     
 DECL                                                                                      DECL        2685     A     
 DECL      EQU100   =A5    B4+A0                                                           DECL        2686     A     
 DECL               MX0    -G2.LOL                                                         DECL        2687     A     
 DECL               MI     X5,EQU195   IF END OF EQUIV. INPUT                              DECL        2688     A     
 DECL               SA4    T.SYM                                                           DECL        2689     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1027    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB3    X4          FWA OF SYMBOL TABLE                                 DECL        2690     A     
 DECL               LX5    -G1.SYMIP                                                       DECL        2691     A     
 DECL               SB3    X5+B3                                                           DECL        2692     A     
 DECL               =A4    B3-WB.W+WA.W                                                    DECL        2693     A     
 DECL               BX6    X4                                                              DECL        2694          I
          -FC50238
 DECL               MX6    WA.SYML                                                         FC50238        5     A     
 DECL               BX6    X6*X4       SYMBOL ONLY                                         FC50238        6     A     
 DECL               LX5    G1.SYMIP    RESTORE (X5)                                        DECL        2695     A     
 DECL               SA6    FILL.       STORE NAME INTO MESSAGE                             DECL        2696     A     
 DECL               =A4    A5+1                                                            DECL        2697          I
          -FC50757
 DECL               =A4    A5-G1.W+G2.W                                                    FC50757       51     A     
 DECL               SB3    -B2                                                             DECL        2698     A     
 DECL               UX4,B6             (B6) = ROOT FLAG OF CURRENT                         DECL        2699          I
          -FC50757
 DECL               MX6    G2.LINKL                                                        FC50757       52     A     
 DECL               BX2    X6*X4       EXTRACT LINK                                        FC50757       53     A     
 DECL               BX4    -X6*X4      G2.HI+G2.LO                                         FC50757       54     A     
 DECL               LX2    G2.LINKL                                                        FC50757       55     A     
 DECL               SB6    X2          (B6) = ROOT FLAG OF CURRENT                         FC50757       56     A     
 DECL               SB4    B4+B2                                                           DECL        2700     A     
 DECL                                                                                      DECL        2701     A     
 DECL      EQU110   SB3    B3+B2                                                           DECL        2702     A     
 DECL               SA3    B3+A0                                                           DECL        2703     A     
 DECL               GE     B3,B5,EQU130      IF END OF G/F TABLE                           DECL        2704     A     
 DECL               BX2    X3-X5                                                           DECL        2705     A     
 DECL               AX2    G1.SYMIP                                                        DECL        2706     A     
 DECL               NZ     X2,EQU110   IF NO MATCH IN G/F                                  DECL        2707     A     
 DECL               BX4    -X0*X4      ISOLATE SUBSCRIPT                                   DECL        2708     A     
 DECL                                                                                      DECL        2709     A     
 DECL     **        CURRENT TAG IS FOUND TO BE ALREADY IN THE G/F TABLE.                   DECL        2710     A     
 DECL     *                CHAIN BACK UNTIL ITS ROOT IS FOUND, ADJUSTING SUBCRIPT          DECL        2711     A     
 DECL     *                AS WE GO.                                                       DECL        2712     A     
 DECL                                                                                      DECL        2713     A     
 DECL      EQU120   =A2    A3+1                                                            DECL        2714     A     
 DECL               UX2,B7             EXTRACT ROOT FLAG                                   DECL        2715          I
          -FC50757
 DECL               MX0    G2.LINKL                                                        FC50757       57     A     
 DECL               BX0    X0*X2       EXTRACT LINK                                        FC50757       58     A     
 DECL               LX0    EQ.LINKL                                                        FC50757       59     A     
 DECL               SB7    X0          ROOT FLAG                                           FC50757       60     A     
 DECL               EQ     B7,B3,EQU140      IF THIS IS A ROOT                             DECL        2716     A     
 DECL               LX3    59-G1.RAL-G1.RAP+1                                              DECL        2717          I
          -FC50757
 DECL               HX3    G1.RA                                                           FC50757       61     A     
 DECL               SB3    B7                                                              DECL        2718     A     
 DECL               AX3    -G1.RAL     EXTEND SIGN OF ADDRESS                              DECL        2719     A     
 DECL               IX4    X3+X4       ACCUMULATE (X4) = TOTAL DISTANCE TO ROOT            DECL        2720     A     
 DECL               SA3    B7+A0                                                           DECL        2721     A     
 DECL               EQ     EQU120                                                          DECL        2722     A     
 DECL                                                                                      DECL        2723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1028    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     **        CURRENT TAG NOT YET IN G/F TABLE.  CREATE AN ENTRY FOR IT.             DECL        2724     A     
 DECL                                                                                      DECL        2725     A     
 DECL      EQU130   BX3    X0*X4       LENGTH                                              DECL        2726     A     
 DECL               SB5    B5+B2       GFLEN = GFLEN + Z=EQS                               DECL        2727     A     
 DECL               LX6    X5                                                              DECL        2728     A     
 DECL               PX7    X3,B3       HI = LEN,  LO = 0,  LINK = SELF.                    DECL        2729          I
          -FC50757
 DECL               SX7    B3                                                              FC50757       62     A     
 DECL               LX7    G2.LINKP                                                        FC50757       63     A     
 DECL               BX7    X7+X3       HI = LEN, LO = 0, LINK = SELF.                      FC50757       64     A     
 DECL               SA6    B3+A0                                                           DECL        2730     A     
 DECL               =A7    A6+1                                                            DECL        2731     A     
 DECL               BX4    -X0*X4      ISOLATE SUBSCRIPT                                   DECL        2732     A     
 DECL                                                                                      DECL        2733     A     
 DECL     **        CURRENT TAG IS NOW IN THE G/F TABLE, AND WE KNOW ITS DISTANCE          DECL        2734     A     
 DECL     *                FROM ITS ROOT.   IF IT IS THE FIRST MEMBER OF A GROUP,          DECL        2735     A     
 DECL     *                REMEMBER IT AND RETURN TO PROCESS THE NEXT ONE.                 DECL        2736     A     
 DECL     *                (B3) = G/F TABLE ORDINAL (T).                                   DECL        2737     A     
 DECL     *                (B6) = ROOT FLAG.                                               DECL        2738     A     
 DECL     *                (X4) = SUBSCRIPT.                                               DECL        2739     A     
 DECL                                                                                      DECL        2740     A     
 DECL      EQU140   NE     B6,B1,EQU150      IF NOT A NEW GROUP                            DECL        2741          I
          -FC50757
 DECL               PX6    X4,B3                                                           DECL        2742          I
          -FC50757
 DECL      EQU140   MX6    -G2.LOL                                                         FC50757       65     A     
 DECL               BX4    -X6*X4      EXTRACT SUBSRIPT ONLY                               FC50757       66     A     
 DECL               NE     B6,B1,EQU150 IF NOT A NEW GROUP                                 FC50757       67     A     
 DECL               SX6    B3                                                              FC50757       68     A     
 DECL               LX6    G2.LINKP                                                        FC50757       69     A     
 DECL               BX6    X6+X4                                                           FC50757       70     A     
 DECL               SA6    EQUA                                                            DECL        2743     A     
 DECL               EQ     EQU100                                                          DECL        2744     A     
 DECL                                                                                      DECL        2745     A     
 DECL     **        WHEN IT DOES NOT BEGIN A GROUP, LINK IT INTO THE G/F TABLE.            DECL        2746     A     
 DECL     *                (B3) # T    G/F TABLE ORDINAL                                   DECL        2747     A     
 DECL     *                (X4) # D    SUBSCRIPT                                           DECL        2748     A     
 DECL                                                                                      DECL        2749     A     
 DECL      EQU150   SA2    EQUA                                                            DECL        2750     A     
 DECL               UX3    X2,B6       (B6) = T0, (X3) = D0                                DECL        2751          I
          -FC50757
 DECL     ,                            X3 = D0                                             DECL        2752          I
          -FC50757
 DECL               MX6    G2.LINKL                                                        FC50757       71     A     
 DECL               BX3    -X6*X2      EXTRACT D0                                          FC50757       72     A     
 DECL               BX2    X6*X2                                                           FC50757       73     A     
 DECL               LX2    G2.LINKL                                                        FC50757       74     A     
 DECL               SB6    X2          EXTRACT T0                                          FC50757       75     A     
 DECL               IX5    X3-X4       X5 = DIST = D0 - Y                                  DECL        2753     A     
 DECL               HX5    G1.RA                                                           FC50757       76     A     
 DECL               AX5    -G1.RAL     SIGN EXTEND                                         FC50757       77     A     
 DECL               GT     B3,B6,EQU160 IF CURRENT OCCURS LATER THAN THIS ROOT             DECL        2754     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1029    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               EQ     B3,B6,EQU.10 IF CURRENT ALREADY LINKED TO THIS ROOT             DECL        2755     A     
 DECL                                                                                      DECL        2756     A     
 DECL     **        IF CURRENT OCCURS BEFORE ITS ROOT, SWITCH THEM SO TABLE                DECL        2757     A     
 DECL     *                ALWAYS LINKS UPWARD.                                            DECL        2758     A     
 DECL                                                                                      DECL        2759     A     
 DECL               SB7    B3          W = T                                               DECL        2760     A     
 DECL               SB3    B6          T = T0                                              DECL        2761     A     
 DECL               BX5    -X5         DIST = -DIST                                        DECL        2762     A     
 DECL               SB6    B7          T0 = W                                              DECL        2763     A     
 DECL               PX6    X4,B7       D0 = Y                                              DECL        2764          I
          -FC50757
 DECL               SX6    B7                                                              FC50757       78     A     
 DECL               LX6    G2.LINKP                                                        FC50757       79     A     
 DECL               BX6    X6+X4       D0 = Y                                              FC50757       80     A     
 DECL               SA6    A2                                                              DECL        2765     A     
 DECL                                                                                      DECL        2766     A     
 DECL     **        BEFORE ADDING TO THE TREE, CHECK FOR CONSISTENCY.                      DECL        2767     A     
 DECL     *         NOTE   R(T) = ( BLOCK(T), RELADD(T) )                                  DECL        2768     A     
 DECL                                                                                      DECL        2769     A     
 DECL      EQU160   SA3    B3+A0       G1T = T.EQUS(T)                                     DECL        2770     A     
 DECL               SA2    B6+A0       G1T0 = T.EQUS(T0)                                   DECL        2771     A     
 DECL               CLAS=  X4,G1,(RB)                                                      DECL        2772     A     
 DECL               LX7    X2                                                              DECL        2773     A     
 DECL               HX7    G1.RA                                                           DECL        2774     A     
 DECL               AX7    -G1.RAL     RAT0 = RA[G1T0], SIGN EXTENTED                      DECL        2775     A     
 DECL               BX1    X4*X3       RBT = RB[G1T]                                       DECL        2776     A     
 DECL               BX6    X4*X2       RBT0 = RB[G1T]                                      DECL        2777     A     
 DECL               BX4    X3                                                              DECL        2778     A     
 DECL               HX4    G1.RA                                                           DECL        2779     A     
 DECL               AX4    -G1.RAL     RAT = RA[G1T], SIGN EXTENTED                        DECL        2780     A     
 DECL               NZ     X1,EQU170   IF RBT .NE. 0                                       DECL        2781     A     
 DECL               NZ     X6,EQU.50   IF RBT0 .NE. 0                                      DECL        2782     A     
 DECL               EQ     EQU190                                                          DECL        2783     A     
 DECL                                                                                      DECL        2784     A     
 DECL     **        CURRENT ELEMENT HAS AN ADDRESS -- CHECK ITS ROOT.                      DECL        2785     A     
 DECL                                                                                      DECL        2786     A     
 DECL      EQU170   NZ     X6,EQU.30   IF RBT0 .NE. 0                                      DECL        2787     A     
 DECL                                                                                      DECL        2788     A     
 DECL     **        ROOT HAS NO ADDRESS.                                                   DECL        2789     A     
 DECL     *                SET R(T0) = R(T) - DIST                                         DECL        2790     A     
 DECL                                                                                      DECL        2791     A     
 DECL               IX7    X4-X5       D = RAT - DIST                                      DECL        2792     A     
 DECL               MI     X7,EQU.60   IF RAT .LT. DIST                                    DECL        2793     A     
 DECL               BX6    X1          PRESERVE X1                                         DECL        2794     A     
 DECL               =A1    A2+1                                                            DECL        2795     A     
 DECL               HX1    G2.LO                                                           DECL        2796     A     
 DECL               AX1    -G2.LOL     X1 = LOT0                                           DECL        2797     A     
 DECL               IX1    X7-X1       X1 = D - LOT0                                       DECL        2798     A     
 DECL               MI     X1,EQU.70   ILLEGAL EXTENSION OF BLOCK ORIGIN                   DECL        2799     A     
 DECL               BX1    X6          RESTORE X1                                          DECL        2800     A     
 DECL                                                                                      DECL        2801     A     
 DECL      EQU180   LX7    G1.RAP                                                          DECL        2802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1030    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX7    X1+X7                                                           DECL        2803     A     
 DECL               CLAS=  X1,G1,(RB,RA)                                                   DECL        2804     A     
 DECL               BX2    -X1*X2      (RB,RA)[G1T0] = 0                                   DECL        2805     A     
 DECL               BX6    X2+X7                                                           DECL        2806     A     
 DECL               SA6    A2          (RB,RA)[G1T0] = (RBT,D)[G1.]                        DECL        2807     A     
 DECL                                                                                      DECL        2808     A     
 DECL                                                                                      DECL        2809     A     
 DECL     **        ADD ELEMENT TO PROPER TREE.                                            DECL        2810     A     
 DECL     *         SET    R(T) = DIST                                                     DECL        2811     A     
 DECL     *                S(T) = T0                                                       DECL        2812     A     
 DECL     *                HI(T0) = MAX (HI(T0), HI(T)+DIST)                               DECL        2813     A     
 DECL     *                LO(T0) = MAX (LO(T0), LO(T)-DIST)                               DECL        2814     A     
 DECL                                                                                      DECL        2815     A     
 DECL     *         ENTRY  (B3) = T                                                        DECL        2816     A     
 DECL     *                (B6) = T0                                                       DECL        2817     A     
 DECL     *                (X3) = CURRENT (T)                                              DECL        2818     A     
 DECL     *                (X5) = DIST                                                     DECL        2819     A     
 DECL     *                (A2) _ T0                                                       DECL        2820     A     
 DECL     *                (A3) _ T                                                        DECL        2821     A     
 DECL                                                                                      DECL        2822     A     
 DECL      EQU190   SA2    A2          G1R = G1 ENTRY OF T0                                DECL        2823     A     
 DECL               MX0    -G1.ADRL                                                        DECL        2824     A     
 DECL               CLAS=  X4,G1,(SAVE)                                                    DECL        2825     A     
 DECL               BX6    X0*X3       CLEAR (RB,RA) FIELD                                 DECL        2826     A     
 DECL               ERRNZ  0-G1.ADRP                                                       DECL        2827     A     
 DECL               BX4    X4*X3                                                           DECL        2828     A     
 DECL               BX7    X2+X4                                                           DECL        2829     A     
 DECL               SA7    A2          SAVE[G1R] = SAVE[G1R] .OR. SAVE[G1I]                DECL        2830     A     
 DECL               MX0    -G1.RAL                                                         DECL        2831     A     
 DECL               BX0    -X0*X5      ISOLATE (X0) = DISTANCE                             DECL        2832     A     
 DECL               =A2    A2-G1.W+G2.W      G2R = G2 ENTRY OF T0                          DECL        2833     A     
 DECL               =A3    A3-G1.W+G2.W      G2I = G2 ENTRY OF T                           DECL        2834     A     
 DECL               LX0    G1.RAP                                                          DECL        2835     A     
 DECL               BX6    X6+X0                                                           DECL        2836     A     
 DECL               =A6    A3-G2.W+G1.W      (RB,RA)[G1I] = (0,DIST) [G1.]                 DECL        2837     A     
 DECL               PX7    X3,B6       LINK(T) = T0                                        DECL        2838          I
          -FC50757
 DECL               MX0    G2.LINKL                                                        FC50757       81     A     
 DECL               BX2    -X0*X2      EXTRACT (HI+LO)[G2R]                                FC50757       82     A     
 DECL               BX3    -X0*X3      EXTRACT (HI+LO)[G2I]                                FC50757       83     A     
 DECL               SX7    B6                                                              FC50757       84     A     
 DECL               LX7    G2.LINKP                                                        FC50757       85     A     
 DECL               BX7    X7+X3       LINK(T) = T0                                        FC50757       86     A     
 DECL               SA7    A3          LNK[G2I] = T0                                       DECL        2839     A     
 DECL               HX3    G2.LO                                                           DECL        2840     A     
 DECL               HX2    G2.LO                                                           DECL        2841     A     
 DECL               =B7    59-G2.LOL-G2.LOP+1                                              DECL        2842     A     
 DECL               AX0    X3,B7                                                           DECL        2843     A     
 DECL               IX1    X0-X5       = LO(T) - DIST                                      DECL        2844     A     
 DECL               AX7    X2,B7                                                           DECL        2845     A     
 DECL               MX6    X7+X1       X6 = MAX ( LO(T0), LO(T)-DIST )                     DECL        2846     A     
 DECL                                                                                      DECL        2847     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1031    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      A        SET    G2.LOL+G2.LOP-G2.HIL-G2.HIP                                     DECL        2848     A     
 DECL               LX3    A           (G2.HI) FIELDS TO TOP                               DECL        2849     A     
 DECL                                                                                      FC50757       87     A     
 DECL      .TEST    IFEQ   TEST,ON,1                                                       DECL        2850     A     
 DECL               MI     X6,"BLOWUP"       IF NEGATIVE OFFSET                            DECL        2851     A     
 DECL                                                                                      FC50757       88     A     
 DECL               LX2    A                                                               DECL        2852     A     
 DECL               AX3    B7                                                              DECL        2853     A     
 DECL               IX0    X3+X5       = HI(T) + DIST                                      DECL        2854     A     
 DECL               LX6    G2.LOP                                                          DECL        2855     A     
 DECL               AX7    X2,B7                                                           DECL        2856     A     
 DECL               PX1    X6,B6       RESTORE LINK                                        DECL        2857          I
          -FC50757
 DECL               MX1    G2.LINKL                                                        FC50757       89     A     
 DECL               BX6    -X1*X6                                                          FC50757       90     A     
 DECL               SX1    B6                                                              FC50757       91     A     
 DECL               LX1    G2.LINKP                                                        FC50757       92     A     
 DECL               BX1    X1+X6       RESTORE LINK                                        FC50757       93     A     
 DECL               MX3    X7+X0       X3 = MAX ( HI(T0), HI(T)+DIST )                     DECL        2858     A     
 DECL                                                                                      FC50757       94     A     
 DECL      .TEST    IFEQ   TEST,ON,1                                                       DECL        2859     A     
 DECL               MI     X3,"BLOWUP"       IF NEGATIVE OFFSET                            DECL        2860     A     
 DECL                                                                                      FC50757       95     A     
 DECL               LX3    G2.HIP                                                          DECL        2861     A     
 DECL               BX7    X1+X3                                                           DECL        2862     A     
 DECL               SA7    A2          RESET (T0) (S, HI, LO)                              DECL        2863     A     
 DECL               EQ     EQU100                                                          DECL        2864     A     
 DECL      EQU.N    SPACE  4,10                                                            DECL        2865     A     
 DECL     **        PHASE 2 ERROR PROCESSING.                                              DECL        2866     A     
 DECL     *         CHECK / PROCESS EQUIVALENCE REDUNDANCY / CONTRADICTION ERRORS.         DECL        2867     A     
 DECL                                                                                      DECL        2868     A     
 DECL                                                                                      DECL        2869     A     
 DECL      EQU.10   NZ     X5,EQU.20   IF CONTRADICTION                                    DECL        2870     A     
 DECL               WARN   E.EQ11      REDUNDANT SPECIFICATIONS                            DECL        2871     A     
 DECL               EQ     EQU100                                                          DECL        2872     A     
 DECL                                                                                      DECL        2873     A     
 DECL      EQU.20   FATAL  E.EQ12      CONFLICTING SPECS.                                  DECL        2874     A     
 DECL               EQ     EQU100                                                          DECL        2875     A     
 DECL                                                                                      DECL        2876     A     
 DECL      EQU.30   IX4    X4-X7                                                           DECL        2877     A     
 DECL               IX6    X1-X6       = RBT - RBT0                                        DECL        2878     A     
 DECL               IX1    X4-X5       = RAT - RAT0 - DIST                                 DECL        2879     A     
 DECL               NZ     X6,EQU.40   IF RBT .NE. RBT0                                    DECL        2880     A     
 DECL               NZ     X1,EQU.40   IF CONTRADICTION                                    DECL        2881     A     
 DECL               WARN   E.EQ11      REDUNDANT SPECIFICATION                             DECL        2882     A     
 DECL               EQ     EQU190                                                          DECL        2883     A     
 DECL                                                                                      DECL        2884     A     
 DECL      EQU.40   FATAL  E.EQ12      CONFLICTING SPECS.                                  DECL        2885     A     
 DECL               EQ     EQU190                                                          DECL        2886     A     
 DECL                                                                                      DECL        2887     A     
 DECL     *         CHECK/ PROCESS ILLLGAL COMMON BLOCK EXTENSION ERROR.                   DECL        2888          I
          -FC50757
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1032    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         CHECK/PROCESS ILLEGAL COMMON BLOCK EXTENSION ERROR.                    FC50757       96     A     
 DECL     *                                                                                DECL        2889     A     
 DECL     *         TEST ILLEGAL EXTENSION BY MEMBER.                                      DECL        2890     A     
 DECL                                                                                      DECL        2891     A     
 DECL      EQU.50   IX0    X7+X5       D = RAT0 + DIST                                     DECL        2892     A     
 DECL               PL     X0,EQU190   IF D .GT. 0                                         DECL        2893     A     
 DECL               BX5    -X7         DIST = -RAT0                                        DECL        2894     A     
 DECL               FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN            DECL        2895     A     
 DECL               EQ     EQU190                                                          DECL        2896     A     
 DECL                                                                                      DECL        2897     A     
 DECL     *         ILLEGAL EXTENSION BY ROOT.                                             DECL        2898     A     
 DECL                                                                                      DECL        2899     A     
 DECL      EQU.60   BX5    X4          DIST = RAT                                          DECL        2900     A     
 DECL                                                                                      DECL        2901     A     
 DECL     *         PLACE IN (FILL.) NAME OF ROOT.                                         DECL        2902     A     
 DECL                                                                                      DECL        2903     A     
 DECL               SA1    T.SYM                                                           DECL        2904     A     
 DECL               MX7    WA.SYML                                                         FC5A299        5     A     
 DECL               =B7    X1-WB.W+WA.W                                                    DECL        2905     A     
 DECL               LX2    -G1.SYMIP                                                       DECL        2906     A     
 DECL               =A1    X2+B7                                                           DECL        2907     A     
 DECL               ERRNZ  18-G1.SYMIL                                                     DECL        2908     A     
 DECL               BX7    X1                                                              DECL        2909          I
          -FC5A299
 DECL               BX7    X7*X1       SYMBOL ONLY                                         FC5A299        6     A     
 DECL               LX2    G1.SYMIP    RESTORE (X2)                                        DECL        2910     A     
 DECL               SA7    FILL.       SET NAME OF ROOT INTO MESSAGE                       DECL        2911     A     
 DECL                                                                                      FC50757       97     A     
 DECL      EQU.70   FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN            DECL        2912     A     
 DECL               BX7    0           RAT0 = RAT - DIST = 0                               DECL        2913     A     
 DECL               MX1    0           RBT = RB[G1T] = 0                                   DECL        2914     A     
 DECL               EQ     EQU180                                                          DECL        2915     A     
 DECL      PHASE3   SPACE  3,8                                                             DECL        2916     A     
 DECL     **        PHASE 3 -- COMMON-EQUIVALENCE OVERLAP SEARCH.                          DECL        2917     A     
 DECL     *                                                                                DECL        2918     A     
 DECL     *         CONSTRUCT T.EOT TABLE.                                                 DECL        2919     A     
 DECL     *         FOR EACH EQUIVALENCE GROUP IN COMMON, EXTEND ITS RANGE TO              DECL        2920     A     
 DECL     *         INCLUDE MEMBERS OF COMMON BLOCK WHICH IT OVERLAPS.                     DECL        2921     A     
 DECL     *         ADD ADDITIONAL ENTRIES TO G-F TABLE FOR THESE MEMBERS AND              DECL        2922     A     
 DECL     *         UPDATE FWA AND LWA OF CLASS.                                           DECL        2923     A     
 DECL     *         ENTRY  (B5) = EQLEN                                                    DECL        2924     A     
 DECL     *                (B2) = Z=EQS                                                    DECL        2925     A     
 DECL     *                (X1) = FWA(T.EOT)                                               DECL        2926     A     
 DECL                                                                                      DECL        2927     A     
 DECL     *         SHRINK LENGTH OF T.EQUS TO GFLEN.                                      DECL        2928     A     
 DECL     *         ALLOCATE TABLE SPACE FOR T.EOT AND T.ECT. .                            DECL        2929     A     
 DECL                                                                                      DECL        2930     A     
 DECL      EQU195   BSS    0                                                               DECL        2931     A     
 DECL               SHRINK T=EQUS,B5                                                       DECL        2932     A     
 DECL               ALLOC  T.ECT,B5    ALLOCATE SPACE FOR T.ECT                            DECL        2933     A     
 DECL               ALLOC  T.EOT,B5    ALLOCATE SPACE FOR T.EOT                            DECL        2934     A     
 DECL                                                                                      DECL        2935     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1033    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        2936     A     
 DECL               SA2    CO.SNAP                                                         DECL        2937     A     
 DECL               LX2    1RD                                                             DECL        2938     A     
 DECL               PL     X2,EQU195S  IF DECLARATIVE SNAP NOT SELECTED                    DECL        2939     A     
 DECL      EQU.195  DUMPT  EQUS                                                            DECL        2940     A     
 DECL      EQU195S  BSS    0                                                               DECL        2941     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        2942     A     
 DECL                                                                                      DECL        2943     A     
 DECL               SA3    T.EQUS                                                          DECL        2944     A     
 DECL               =B6    X1+OA.W                                                         DECL        2945     A     
 DECL               =B7    0           EOIND = 0                                           DECL        2946     A     
 DECL               SB4    -B2         GFIND = -Z=EQS                                      DECL        2947     A     
 DECL               =A0    X3+G1.W                                                         DECL        2948     A     
 DECL               MX0    -G2.LOL                                                         DECL        2949     A     
 DECL                                                                                      DECL        2950     A     
 DECL     **        CONSTRUCT EQUIVALENCE OVERLAP TABLE (T.EOT).                           DECL        2951     A     
 DECL     *         FOR EACH ROOT OF AN EQUIVALENCED GROUP, FORMAT T.EOT                   DECL        2952     A     
 DECL     *         ENTRIES AS OA., OB. .                                                  DECL        2953     A     
 DECL                                                                                      DECL        2954     A     
 DECL      EQU200   ZR     B5,EQU210   IF END OF T.EQUS                                    DECL        2955     A     
 DECL               SB4    B4+B2       GFIND = GFIND + Z=EQS                               DECL        2956     A     
 DECL               SA1    A0+B4       G1I = T.EQUS(GFIND)                                 DECL        2957     A     
 DECL               =A2    A1-G1.W+G2.W      G2I                                           DECL        2958     A     
 DECL               MX5    -G1.RBL                                                         DECL        2959     A     
 DECL               UX7    X2,B3       (B3) = LINKI = LINK[G2I]                            DECL        2960          I
          -FC50757
 DECL               MX4    G2.LINKL                                                        FC50757       98     A     
 DECL               BX3    X4*X2                                                           FC50757       99     A     
 DECL               BX7    -X4*X2                                                          FC50757      100     A     
 DECL               LX3    G2.LINKL                                                        FC50757      101     A     
 DECL               SB3    X3          (B3) = LINKI = LINK[G2I]                            FC50757      102     A     
 DECL               SB5    B5-B2       GFLEN = GFLEN - Z=EQS                               DECL        2961     A     
 DECL               NE     B3,B4,EQU200      IF LNKI .NE. GFIND (IF NOT ROOT)              DECL        2962     A     
 DECL               BX3    X1                                                              DECL        2963     A     
 DECL               LX2    -G2.LOP                                                         DECL        2964     A     
 DECL               HX3    G1.RA                                                           DECL        2965     A     
 DECL               LX7    -G2.HIP                                                         DECL        2966     A     
 DECL               BX4    -X0*X2      LOI = LO[G2I]                                       DECL        2967     A     
 DECL               LX1    -G1.RBP                                                         DECL        2968     A     
 DECL               AX3    -G1.RAL     RAI = RA[G1I], SIGN EXTENTED                        DECL        2969     A     
 DECL               BX6    -X5*X1      RBI = RB[G1I]                                       DECL        2970     A     
 DECL               BX2    -X0*X7      HII = HI[G1I]                                       DECL        2971     A     
 DECL               ERRNZ  G2.LOL-G2.HIL                                                   DECL        2972     A     
 DECL               IX4    X3-X4       FWAI = RAI - LOI (COULD BE NEGATIVE)                DECL        2973     A     
 DECL               IX2    X3+X2       LWAI =RAI + HII                                     DECL        2974     A     
 DECL               BX4    -X0*X4                                                          DECL        2975     A     
 DECL               ERRNZ  G2.LOL-OA.FWAL                                                  DECL        2976     A     
 DECL               LX6    OA.RBP                                                          DECL        2977     A     
 DECL               LX4    OA.FWAP                                                         DECL        2978     A     
 DECL               BX6    X6+X4                                                           DECL        2979     A     
 DECL               LX2    OA.LWAP                                                         DECL        2980     A     
 DECL               SX7    B4                                                              DECL        2981     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1034    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               IX6    X6+X2                                                           DECL        2982     A     
 DECL               SA6    B6+B7       T.EOT(EOIND) = (RBI,FWAI,LWAI) [OA.]                DECL        2983     A     
 DECL               SA7    A6-OA.W+OB.W      T.EOT(EOIND+OB.W) = GFIND[OB.]                DECL        2984     A     
 DECL               SB7    B7+B2       EOIND = EOIND + Z=EOT                               DECL        2985     A     
 DECL               ERRNZ  Z=EOT-Z=EQS                                                     DECL        2986     A     
 DECL               EQ     EQU200                                                          DECL        2987     A     
 DECL                                                                                      DECL        2988     A     
 DECL     *         SORT T.EOT IN ASCENDING ORDER OF (RB,FWA,LWA).                         DECL        2989     A     
 DECL                                                                                      DECL        2990     A     
 DECL      EQU210   SX6    B7+Z=EOT                                                        DECL        2991     A     
 DECL               MX5    1                                                               DECL        2992     A     
 DECL               BX7    -X5         STORE A POSITIVE LARGE NUMBER INTO                  DECL        2993     A     
 DECL               SA7    B6+B7       TERMINATOR WORD                                     DECL        2994     A     
 DECL               SHRINK T=EOT,X6    SHRINK (T=EOT) TO EOIND+1                           DECL        2995     A     
 DECL                                                                                      DECL        2996     A     
 DECL      SNAP=D   IFNE   TEST                                                            DECL        2997     A     
 DECL               SA1    CO.SNAP                                                         DECL        2998     A     
 DECL               LX1    1RD                                                             DECL        2999     A     
 DECL               PL     X1,EQU210S                                                      DECL        3000     A     
 DECL      EQU.210  DUMPT  EOT                                                             DECL        3001     A     
 DECL      EQU210S  BSS    0                                                               DECL        3002     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        3003     A     
 DECL                                                                                      DECL        3004     A     
 DECL               SA1    T.EOT                                                           DECL        3005     A     
 DECL               RJ     DSRT        SORT T.EOT                                          DECL        3006     A     
 DECL               SA2    T.EOT                                                           DECL        3007     A     
 DECL               SA3    T=EOT                                                           DECL        3008     A     
 DECL               =B2    -Z=EOT      EOIND = -Z=EOT                                      DECL        3009     A     
 DECL               SB4    X3+B2       LWIND = LEN(T.EOT) - Z=EOT                          DECL        3010     A     
 DECL               BX7    X5                                                              DECL        3011     A     
 DECL               =B3    X2+OA.W                                                         DECL        3012     A     
 DECL               SA7    B3+B4       T.EOT(LWIND) = 1S59                                 DECL        3013     A     
 DECL                                                                                      DECL        3014     A     
 DECL                                                                                      DECL        3015     A     
 DECL     **        BEGIN COMMON EQUIVALENCE OVERLAP SEARCH.                               DECL        3016     A     
 DECL     *         FOR EACH EQUIVALENCE GROUP IN COMMON, SEARCH ITS ENTIRE                DECL        3017     A     
 DECL     *         COMMON BLOCK FOR MEMBERS OVERLAPPING WITH SPAN OF EQUIVALENCE          DECL        3018     A     
 DECL     *         CLASS, ADD THESE TO THE CLASS.                                         DECL        3019     A     
 DECL     *         (B2) = EOIND                                                           DECL        3020     A     
 DECL     *         (B3) = FWA(T.EOT) + OA.W                                               DECL        3021     A     
 DECL                                                                                      DECL        3022     A     
 DECL                                                                                      DECL        3023     A     
 DECL      EQU220   SB2    B2+Z=EOT    EOIND = EOIND + Z=EOT                               DECL        3024     A     
 DECL               SA3    B3+B2       OAI = T.EOT(EOIND)                                  DECL        3025     A     
 DECL               MX0    -OA.RBL                                                         DECL        3026     A     
 DECL               MI     X3,EQU300   IF END OF T.EOT                                     DECL        3027     A     
 DECL               LX3    -OA.RBP                                                         DECL        3028     A     
 DECL               BX7    -X0*X3      RBI = RB[OAI]                                       DECL        3029     A     
 DECL               SA2    T.BLKS                                                          DECL        3030     A     
 DECL               ZR     X7,EQU220   IF RBI .NE. 0                                       DECL        3031     A     
 DECL               IX6    X2+X7                                                           DECL        3032     A     
 DECL               SA2    T.COMM                                                          DECL        3033     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1035    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =A4    X6+CB.W     CBI = T.BLKS(RBI)                                   DECL        3034     A     
 DECL               MX5    -CB.BLENL                                                       DECL        3035     A     
 DECL               LX4    -CB.BLENP                                                       DECL        3036     A     
 DECL               BX5    -X5*X4      BLENI = BLEN[CBI]                                   DECL        3037     A     
 DECL               LX4    CB.BLENP-CB.FMIP                                                DECL        3038     A     
 DECL               SB4    X2                                                              DECL        3039     A     
 DECL               MX0    -CB.FMIL                                                        DECL        3040     A     
 DECL               BX0    -X0*X4                                                          DECL        3041     A     
 DECL               SB5    X0          COMIND = FMI[CBI]                                   DECL        3042     A     
 DECL                                                                                      DECL        3043     A     
 DECL     *         NEXT ELEMENT IN THIS COMMON BLOCK.                                     DECL        3044     A     
 DECL     *         (B2) = EOIND                                                           DECL        3045     A     
 DECL     *         (B3) = FWA(T.EOT) + OA.W                                               DECL        3046     A     
 DECL     *         (B4) = FWA(T.COMM)                                                     DECL        3047     A     
 DECL     *         (B5) = COMIND                                                          DECL        3048     A     
 DECL     *         (X5) = BLENI                                                           DECL        3049     A     
 DECL                                                                                      DECL        3050     A     
 DECL      EQU230   ZR     B5,EQU220   IF END OF THIS BLOCK                                DECL        3051     A     
 DECL               SA3    B3+B2       OAI                                                 DECL        3052     A     
 DECL               SA4    B4+B5       CMI = T.COMM(COMIND)                                DECL        3053     A     
 DECL               MX7    -CT.LNKL                                                        DECL        3054     A     
 DECL               CLAS=  X1,OA,(FWA,LWA)                                                 DECL        3055     A     
 DECL               LX4    -CT.LNKP                                                        DECL        3056     A     
 DECL               BX6    -X7*X4                                                          DECL        3057     A     
 DECL               SB5    X6          COMIND = LNK[CMI]                                   DECL        3058     A     
 DECL               BX7    -X1*X3      CLEAR FWA, LWA FIELDS                               DECL        3059     A     
 DECL               LX3    -OA.FWAP                                                        DECL        3060     A     
 DECL               MX0    -OA.FWAL                                                        DECL        3061     A     
 DECL               LX4    CT.LNKP-CT.RAP                                                  DECL        3062     A     
 DECL               BX2    -X0*X3      FWAC = FWA[OAI]                                     DECL        3063     A     
 DECL               BX4    -X0*X4      FWAM = RA[CMI]                                      DECL        3064     A     
 DECL               ERRNZ  OA.FWAL-CT.RAL                                                  DECL        3065     A     
 DECL               LX3    OA.FWAP-OA.LWAP                                                 DECL        3066     A     
 DECL               BX3    -X0*X3      LWAC = LWA[OAI]                                     DECL        3067     A     
 DECL               ERRNZ  OA.FWAL-OA.LWAL                                                 DECL        3068     A     
 DECL               IX6    X3-X4                                                           DECL        3069     A     
 DECL               BX1    X5          LWAM = BLENI                                        DECL        3070     A     
 DECL               ZR     B5,EQU235   IF LAST ELEMENT OF BLOCK                            DECL        3071     A     
 DECL               SA1    B4+B5       CMN = T.BLKS(COMIND)                                DECL        3072     A     
 DECL               HX1    CT.RA                                                           DECL        3073     A     
 DECL               AX1    -CT.RAL     LWAM = RA[CMN]                                      DECL        3074     A     
 DECL                                                                                      FC50299       51     A     
 DECL      EQU235   MI     X6,EQU230   IF LWAC .LT. FWAM                                   DECL        3075     A     
 DECL               ZR     X6,EQU230   IF LWAC .EQ. FWAM                                   DECL        3076     A     
 DECL               IX0    X1-X2                                                           DECL        3077     A     
 DECL               MI     X0,EQU230   IF LWAM .LT. FWAC                                   DECL        3078     A     
 DECL               ZR     X0,EQU230   IF LWAM .EQ. FWAC                                   DECL        3079     A     
 DECL                                                                                      DECL        3080     A     
 DECL     *         OVERLAP EXISTS, UPDATE (FWA,LWA) OF CLASS.                             DECL        3081     A     
 DECL                                                                                      DECL        3082     A     
 DECL               MX6    X4-X2       FWAC = MIN (FWAM, FWAC)                             DECL        3083     A     
 DECL               LX6    OA.FWAP                                                         DECL        3084     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1036    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               IX7    X6+X7                                                           DECL        3085     A     
 DECL               MX0    X1+X3       LWAC = MAX (LWAM, LWAC)                             DECL        3086     A     
 DECL               LX0    OA.LWAP                                                         DECL        3087     A     
 DECL               IX7    X7+X0                                                           DECL        3088     A     
 DECL               SA7    A3          (FWA,LWA) [OAI] = (FWAC,LWAC) [OA.]                 DECL        3089     A     
 DECL                                                                                      DECL        3090     A     
 DECL     *         CHECK IF THIS COMMON ELEMENT IS IN THE G-F TABLE.                      DECL        3091     A     
 DECL     *         (A4) = CMI                                                             DECL        3092     A     
 DECL                                                                                      DECL        3093     A     
 DECL               SA4    A4          CMI                                                 DECL        3094     A     
 DECL               SA1    T.EQUS                                                          DECL        3095     A     
 DECL               SA2    T=EQUS                                                          DECL        3096     A     
 DECL               =B7    X1+G1.W                                                         DECL        3097     A     
 DECL               MX7    -G1.SYMIL                                                       DECL        3098     A     
 DECL               BX6    X4                                                              DECL        3099     A     
 DECL               LX6    -CT.TAGP                                                        DECL        3100     A     
 DECL               BX6    -X7*X6      TAGI = TAG[CMI]                                     DECL        3101     A     
 DECL               ERRNZ  CT.TAGL-G1.SYMIL                                                DECL        3102     A     
 DECL               LX0    X6,B1                                                           DECL        3103     A     
 DECL               IX6    X6+X0       SYMM = 3 * TAGI                                     DECL        3104     A     
 DECL               LX7    G1.SYMIP                                                        DECL        3105     A     
 DECL               =X6    X6+WB.W                                                         DECL        3106     A     
 DECL               SB6    X2-Z=EQS    LENGF = LEN(T.EQUS) - Z=EQS                         DECL        3107     A     
 DECL               LX6    G1.SYMIP                                                        DECL        3108     A     
 DECL                                                                                      FC50299       52     A     
 DECL      EQU240   SA1    B7+B6       G1I = T.EQUS(LENGF)                                 DECL        3109     A     
 DECL               SB6    B6-Z=EQS    LENGF = LENGF - Z=EQS                               DECL        3110     A     
 DECL               BX3    -X7*X1      SYMI = SYM[G1I]                                     DECL        3111     A     
 DECL               IX2    X6-X3                                                           DECL        3112     A     
 DECL               ZR     X2,EQU230   IF MATCH                                            DECL        3113     A     
 DECL               GE     B6,B0,EQU240      IF TABLE NOT EXHAUSTED                        DECL        3114     A     
 DECL                                                                                      DECL        3115     A     
 DECL     *         MATCH NOT FOUND, CREATE AN ENTRY FOR IT.                               DECL        3116     A     
 DECL     *         (A3) = OAI                                                             DECL        3117     A     
 DECL     *         (A4,X4) = CMI                                                          DECL        3118     A     
 DECL                                                                                      DECL        3119     A     
 DECL               MX0    -G1.RAL                                                         DECL        3120     A     
 DECL               SA2    A3-OA.W+OB.W                                                    DECL        3121     A     
 DECL               HX4    CT.RA                                                           DECL        3122     A     
 DECL               SB6    X2          GFIR = GFI(OBI)                                     DECL        3123     A     
 DECL               ERRNZ  18-OB.GFIL                                                      DECL        3124     A     
 DECL               AX4    -CT.RAL     RAI = RA[CMI]                                       DECL        3125     A     
 DECL               SA2    B7+B6       G1R = T.EQUS(GFIR)                                  DECL        3126     A     
 DECL               HX2    G1.RA                                                           DECL        3127     A     
 DECL               AX2    -G1.RAL     RAR = RA[G1R], SIGN EXTENTED                        DECL        3128     A     
 DECL               IX4    X4-X2       RAM = RAM - RAR                                     DECL        3129     A     
 DECL               BX0    -X0*X4                                                          DECL        3130     A     
 DECL               LX0    G1.RAP                                                          DECL        3131     A     
 DECL               IX4    X6+X0                                                           DECL        3132     A     
 DECL               ALLOC  T.EQUS,Z=EQS                                                    DECL        3133     A     
 DECL               MX7    0                                                               DECL        3134          I
          -FC50757
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1037    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX6    X4                                                              DECL        3135     A     
 DECL               PX7    X7,B6                                                           DECL        3136          I
          -FC50757
 DECL               SX7    B6                                                              FC50757      103     A     
 DECL               LX7    G2.LINKP                                                        FC50757      104     A     
 DECL               =A7    B7-1        GF2 = (GFIR)[G2.]                                   DECL        3137     A     
 DECL               SA6    A7-B1       GF1 = (SYMM,RAM) [G1.]                              DECL        3138     A     
 DECL                                                                                      DECL        3139     A     
 DECL     *         RESTORE SOME TABLE ORGINS.                                             DECL        3140     A     
 DECL                                                                                      DECL        3141     A     
 DECL               SA2    T.EOT                                                           DECL        3142     A     
 DECL               SA1    T.COMM                                                          DECL        3143     A     
 DECL               SB4    X1                                                              DECL        3144     A     
 DECL               =B3    X2+WA.W                                                         DECL        3145          I
          -FC5A319
 DECL               =B3    X2+OA.W                                                         FC5A319        7     A     
 DECL               EQ     EQU230                                                          DECL        3146     A     
 DECL                                                                                      DECL        3147     A     
 DECL      PHASE4   SPACE  3,8                                                             DECL        3148     A     
 DECL     **        PHASE 4 -- EQUIVALENCE CLASS OVERLAP SEARCH.                           DECL        3149     A     
 DECL     *                                                                                DECL        3150     A     
 DECL     *         IF EQUIVALENCE CLASS(N) AND CLASS(N+1) OF THE SAVE COMMON              DECL        3151          I
          -FC5A319
 DECL     *         BLOCK OVERLAP WITH EACH OTHER, MERGE THESE TWO CLASSES.                DECL        3152          I
          -FC5A319
 DECL     *         ENTRY: T.EOT FORMATTED AS OA. ,OB. .                                   DECL        3153          I
          -FC5A319
 DECL     *         MERGE OVERLAPPING EQUIVALENCE CLASSES WITHIN COMMON BLOCKS.            FC5A319        8     A     
 DECL     *                                                                                FC5A319        9     A     
 DECL     *         ENTRY  T.EOT FORMATED [OA.,OB.], SORTED BY [RB.,RA.]                   FC5A319       10     A     
 DECL     *                (B3) = FWA(T.EOT) + OA.W                                        DECL        3154     A     
 DECL                                                                                      DECL        3155     A     
 DECL                                                                                      DECL        3156     A     
 DECL      EQU300   SA1    T.EOT                                                           DECL        3157          I
          -FC50757
 DECL      EQU300   BSS    0                                                               FC50757      105     A     
 DECL                                                                                      FC50757      106     A     
 DECL      SNAP=D   IFNE   TEST                                                            FC50757      107     A     
 DECL               SA1    CO.SNAP                                                         FC50757      108     A     
 DECL               LX1    1RD                                                             FC50757      109     A     
 DECL               PL     X1,EQU300S  IF SNAP NOT REQUESTED                               FC50757      110     A     
 DECL      EQU.300  DUMPT  EQUS                                                            FC50757      111     A     
 DECL      EQU300S  BSS    0                                                               FC50757      112     A     
 DECL      SNAP=D   ENDIF                                                                  FC50757      113     A     
 DECL                                                                                      FC50757      114     A     
 DECL               SA1    T.EOT                                                           FC50757      115     A     
 DECL               SA2    T.EQUS                                                          DECL        3158     A     
 DECL               =X7    1                                                               DECL        3159     A     
 DECL               SB6    B0          ECIND = 0                                           DECL        3160          I
          -FC5A195
 DECL               =B5    -Z=EOT      EOIND = -Z=EOT                                      DECL        3161     A     
 DECL               =B2    X2+G1.W                                                         DECL        3162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1038    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA7    N.EQ        INITIALIZE (N.EQ) = 1                               DECL        3163     A     
 DECL               =B4    Z=EOT                                                           DECL        3164     A     
 DECL               =A1    X1-Z=EOT+OA.W     OANA = FWA(T.EOT) - Z=EOT                     DECL        3165     A     
 DECL                                                                                      DECL        3166     A     
 DECL                                                                                      DECL        3167     A     
 DECL     **        OVERLAP SEARCH BEGINS.                                                 DECL        3168     A     
 DECL     *         (A1) _ OANA                                                            DECL        3169     A     
 DECL     *         (B4) = Z=EOT                                                           DECL        3170     A     
 DECL                                                                                      DECL        3171     A     
 DECL                                                                                      DECL        3172     A     
 DECL      EQU310   SA1    A1+B4       OANA = OANA + Z=EOT, OAN = (OANA)                   DECL        3173     A     
 DECL               MI     X1,EQU350   IF END OF T.EOT                                     DECL        3174          I
          -FC5A195
 DECL               MI     X1,EQU340   IF END OF T.EOT                                     FC5A195        5     A     
 DECL               MX6    OA.RBL                                                          DECL        3175     A     
 DECL               LX6    OA.RBL+OA.RBP                                                   DECL        3176     A     
 DECL               SA2    A1+B4       OAN1 = OAN + Z=EOT                                  DECL        3177          I
          -FC5A195
 DECL               BX7    X6*X1       RBN = RB[OAN]                                       DECL        3178          I
          -FC5A195
 DECL               BX6    X6*X2       RBN1 = RB[OAN1]                                     DECL        3179          I
          -FC5A195
 DECL               =A3    A1-OA.W+OB.W      OBN                                           DECL        3180          I
          -FC5A195
 DECL               ZR     X7,EQU310   IF RBN .EQ. 0                                       DECL        3181          I
          -FC5A195
 DECL               IX5    X7-X6                                                           DECL        3182          I
          -FC5A195
 DECL               NZ     X5,EQU310   IF RBN .NE. RBN1                                    DECL        3183          I
          -FC5A195
 DECL               BX7    X6*X1       RBN = RB[OAN]                                       FC5A195        6     A     
 DECL               ZR     X7,EQU310   IF RBN .EQ. 0                                       FC5A195        7     A     
 DECL               =B6    Z=EOT                                                           FC5A195        8     A     
 DECL                                                                                      FC5A195        9     A     
 DECL      EQU320   SA2    A1+B6       OAN1 = OAN + OFFSET                                 FC5A195       10     A     
 DECL               =B6    B6+Z=EOT                                                        FC5A195       11     A     
 DECL               MI     X2,EQU310   IF END OF TABLE                                     FC5A195       12     A     
 DECL               MX6    OA.RBL                                                          FC5A195       13     A     
 DECL               LX6    OA.RBL+OA.RBP                                                   FC5A195       14     A     
 DECL               BX6    X6*X2       RBN1 = RB[OAN1]                                     FC5A195       15     A     
 DECL               IX5    X7-X6                                                           FC5A195       16     A     
 DECL               NZ     X5,EQU320   IF RBN .NE. RBN1                                    FC5A195       17     A     
 DECL                                                                                      DECL        3184     A     
 DECL     *         SAME RB, CHECK FOR OVERLAP.                                            DECL        3185     A     
 DECL                                                                                      DECL        3186     A     
 DECL               MX0    -OA.LWAL                                                        DECL        3187     A     
 DECL               ERRNZ  OA.LWAL-OA.FWAL                                                 DECL        3188     A     
 DECL               LX2    -OA.LWAP                                                        DECL        3189     A     
 DECL               LX1    -OA.LWAP                                                        DECL        3190     A     
 DECL               BX5    -X0*X2      LWAN1 = LWA[OAN1]                                   DECL        3191     A     
 DECL               BX6    -X0*X1      LWAN = LWA[OAN]                                     DECL        3192     A     
 DECL               LX2    OA.LWAP-OA.FWAP                                                 DECL        3193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1039    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX2    -X0*X2      FWAN1 = FWA[OAN1]                                   DECL        3194     A     
 DECL               =X3    1                                                               FC5A319       11     A     
 DECL               IX2    X2+X3       TRUE FWA                                            FC5A319       12     A     
 DECL               IX7    X6-X2                                                           DECL        3195          I
          -FC5A195
 DECL               =X7    X7-1                                                            FC5A114        4          I
          -FC5A195
 DECL               MI     X7,EQU310   IF LWAN .LT. FWAN1  (NO OVERLAP)                    DECL        3196          I
          -FC5A195
 DECL               IX2    X6-X2                                                           FC5A195       18     A     
 DECL               =X2    X2-1                                                            FC5A195       19          I
          -FC5A319
 DECL               MI     X2,EQU320   IF LWAN .LT. FWAN1  (NO OVERLAP)                    FC5A195       20     A     
 DECL                                                                                      DECL        3197     A     
 DECL     *         THERE IS OVERLAP, JOIN TWO CLASSES.                                    DECL        3198     A     
 DECL                                                                                      DECL        3199     A     
 DECL               =A3    A2-OA.W+OB.W      OBN1                                          DECL        3200     A     
 DECL               =A4    A1-OA.W+OB.W      OBN                                           DECL        3201     A     
 DECL               LX1    OA.LWAP-OA.FWAP                                                 DECL        3202     A     
 DECL               MX2    X5+X6       LWASR = MAX (LWAN, LWAN1)                           DECL        3203     A     
 DECL               SX3    X3          GNSR = GFI[OBN1]                                    DECL        3204     A     
 DECL               SX4    X4          GSR = GFI[OBN]                                      DECL        3205     A     
 DECL               ERRNZ  18-OB.GFIL                                                      DECL        3206     A     
 DECL               IX7    X4-X3                                                           DECL        3207          I
          -FC5A195
 DECL               MI     X7,EQU330   IF GSR .LT. GNSR                                    DECL        3208          I
          -FC5A195
 DECL               IX6    X4-X3                                                           FC5A195       21     A     
 DECL               MI     X6,EQU330   IF GSR .LT. GNSR                                    FC5A195       22     A     
 DECL               BX6    X3          TEMP = GNSR                                         DECL        3209     A     
 DECL               LX3    X4          GNSR = GSR                                          DECL        3210     A     
 DECL               BX4    X6          GSR = TEMP                                          DECL        3211     A     
 DECL                                                                                      FC50299       53     A     
 DECL      EQU330   SB7    X4                                                              DECL        3212     A     
 DECL               BX7    0                                                               DECL        3213          I
          -FC5A195
 DECL               SA7    A2          (OAN1) = 0                                          DECL        3214          I
          -FC5A195
 DECL               BX6    0                                                               FC5A195       23     A     
 DECL               SA6    A2          (OAN1) = 0                                          FC5A195       24          I
          -FC5A319
 DECL               SA6    A1          (OANA) = 0                                          FC5A319       13     A     
 DECL               LX1    OA.FWAP-OA.LWAP                                                 DECL        3215     A     
 DECL               BX6    X0*X1       ALL BUT LWA                                         DECL        3216     A     
 DECL               IX6    X6+X2                                                           DECL        3217     A     
 DECL               BX7    X4                                                              DECL        3218          I
          -FC5A195
 DECL               SA7    A4          GFI[OBN] = GSR[OB.]                                 DECL        3219          I
          -FC5A195
 DECL               LX6    OA.LWAP                                                         DECL        3220          I
          -FC5A195
 DECL               SA6    A1          LWA[OAN1] = (LWASR) [OA.]                           DECL        3221          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1040    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC5A195
 DECL               LX6    OA.LWAP                                                         FC5A195       25     A     
 DECL               SA6    A1          LWA[OAN1] = (LWASR) [OA.]                           FC5A195       26          I
          -FC5A319
 DECL               SA6    A2          LWA[OAN1] = (LWASR)[OA.]                            FC5A319       14     A     
 DECL               BX6    X4                                                              FC5A195       27     A     
 DECL               SA6    A4          GFI[OBN] = GSR[OB.]                                 FC5A195       28          I
          -FC5A319
 DECL               SA6    A2-OA.W+OB.W  GFI[OBN1] = GSR[OB.]                              FC5A319       15     A     
 DECL                                                                                      DECL        3222     A     
 DECL     *         UPDATE G-F ENTRY OF NON SURVIVING ROOT.  ADJUST ITS RA                 DECL        3223     A     
 DECL     *         AND MAKE IT POINT TO THE SURVIVING ROOT.                               DECL        3224     A     
 DECL                                                                                      DECL        3225     A     
 DECL               SA4    B2+X4       GF1SR = T.EQUS(GSR)                                 DECL        3226     A     
 DECL               SA3    B2+X3       GF1NSR = T.EQUS(GNSR)                               DECL        3227     A     
 DECL               BX7    X0*X3                                                           DECL        3228          I
          -FC5A195
 DECL               BX2    X0*X3                                                           FC5A195       29     A     
 DECL               HX4    G1.RA       SIGN EXTEND                                         DECL        3229     A     
 DECL               HX3    G1.RA                                                           DECL        3230     A     
 DECL               AX4    -G1.RAL     RASR = RA[GF1SR]                                    DECL        3231     A     
 DECL               AX3    -G1.RAL     RANSR = RA[GF1NSR]                                  DECL        3232     A     
 DECL               IX5    X3-X4                                                           DECL        3233     A     
 DECL               BX3    -X0*X5      RANSR = RANSR - RASR                                DECL        3234     A     
 DECL               ERRNZ  OA.LWAL-G1.RAL                                                  DECL        3235     A     
 DECL               =A5    A3-G1.W+G2.W      G2NSR                                         DECL        3236     A     
 DECL               UX5                                                                    DECL        3237          I
          -FC50757
 DECL               PX6    B7,X5                                                           DECL        3238          I
          -FC50757
 DECL               MX6    G2.LINKL                                                        FC50757      116     A     
 DECL               BX5    -X6*X5                                                          FC50757      117     A     
 DECL               SX6    B7                                                              FC50757      118     A     
 DECL               LX6    G2.LINKP                                                        FC50757      119     A     
 DECL               BX6    X6+X5                                                           FC50757      120     A     
 DECL               SA6    A5          LINK[G2NSR] = GSR[G2.]                              DECL        3239     A     
 DECL               IX7    X7+X3                                                           DECL        3240          I
          -FC5A195
 DECL               SA7    A3          RA[GF1NSR] = RANSR[G1.]                             DECL        3241          I
          -FC5A195
 DECL               EQ     EQU310                                                          DECL        3242          I
          -FC5A195
 DECL               IX6    X2+X3                                                           FC5A195       30     A     
 DECL               SA6    A3          RA[GF1NSR] = RANSR[G1.]                             FC5A195       31     A     
 DECL               EQ     EQU320                                                          FC5A195       32          I
          -FC5A319
 DECL               EQ     EQU310                                                          FC5A319       16     A     
 DECL                                                                                      DECL        3243     A     
 DECL     **        OVERLAP SEARCH COMPLETE.                                               DECL        3244     A     
 DECL     *         PREPARE FOR PHASE 5.                                                   DECL        3245     A     
 DECL     *         (B6) = ECIND                                                           DECL        3246          I
          -FC5A195
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1041    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         (B5) = EOIND                                                           DECL        3247     A     
 DECL     *         (B3) = FWA(T.EOT) + OA.W                                               DECL        3248     A     
 DECL                                                                                      DECL        3249     A     
 DECL      EQU340   =B6    0           ECIND = 0                                           FC5A195       33     A     
 DECL                                                                                      DECL        3250     A     
 DECL      EQU350   SB5    B5+Z=EOT    EOIND = EOIND + Z=EOT                               DECL        3251     A     
 DECL               SA2    B3+B5       OAI = T.EOT(EOIND)                                  DECL        3252     A     
 DECL               BX3    X2                                                              DECL        3253     A     
 DECL               MI     X2,EQU400   IF END OF T.EOT                                     DECL        3254     A     
 DECL               ZR     X2,EQU350   IF NULL ENTRY                                       DECL        3255     A     
 DECL                                                                                      DECL        3256     A     
 DECL     *         CREATE A BASE SYMBOL *EQ.N* FOR EACH EQUIVALENCE CLASS N               DECL        3257     A     
 DECL     *         WITH DIMENSION OF 1 AND LENGTH OF SPAN OF CLASS.                       DECL        3258     A     
 DECL                                                                                      DECL        3259     A     
 DECL               =A1    A2-OA.W+OB.W      OBI = OB ENTRY OF T.EOT                       DECL        3260     A     
 DECL               SA4    T.EQUS                                                          DECL        3261     A     
 DECL               IX1    X4+X1                                                           DECL        3262     A     
 DECL               =A4    X1+G1.W     G1I = G1 ENTRY OF T.EQUS                            DECL        3263     A     
 DECL               HX4    G1.CHAR                                                         DECL        3264     A     
 DECL               HX3    OA.LWA                                                          DECL        3265     A     
 DECL               HX2    OA.FWA                                                          DECL        3266     A     
 DECL               AX2    -OA.FWAL    FWAC = FWA[OAI], SIGN EXTENTED                      DECL        3267     A     
 DECL               AX3    -OA.LWAL    LWAC = LWA[OAI], SIGN EXTENTED                      DECL        3268     A     
 DECL                                                                                      FC50757      121     A     
 DECL               IFEQ   TEST,ON,1                                                       DECL        3269     A     
 DECL               MI     X3,"BLOWUP" LWA OF CLASS SHOULD NEVER BE NEGATIVE               DECL        3270     A     
 DECL                                                                                      FC50757      122     A     
 DECL               IX5    X3-X2       SPANC = LWAC - FWAC                                 DECL        3271     A     
 DECL               PL     X4,EQU355   IF NON-CHAR                                         DECL        3272     A     
 DECL               CW     X1,X5       SPANC = SPANC / 10                                  DECL        3273     A     
 DECL               LX5    X1                                                              DECL        3274     A     
 DECL                                                                                      FC50299       54     A     
 DECL      EQU355   SA1    N.EQ                                                            DECL        3275     A     
 DECL               SX7    3REQ.                                                           DECL        3276     A     
 DECL               RJ     INN         INVENT A BASE SYMBOL                                DECL        3277     A     
 DECL               SB4    X0          SAVE (B4) = SYMORD OF BASE MEMBER                   DECL        3278     A     
 DECL               SX3    B1                                                              DECL        3279     A     
 DECL               SX7    B1                                                              DECL        3280     A     
 DECL               BX4    X5                                                              DECL        3281     A     
 DECL               LX5    DH.PSP                                                          DECL        3282     A     
 DECL               LX4    D2.UBP                                                          DECL        3283     A     
 DECL               LX7    DH.DIMP                                                         DECL        3284     A     
 DECL               IX7    X7+X5                                                           DECL        3285     A     
 DECL               SA7    DIMI        (SIZ,DIM)[DH.] = (SPANC,1)                          DECL        3286     A     
 DECL               LX3    D2.LBP                                                          DECL        3287     A     
 DECL               LX5    D1.SPANP-DH.PSP                                                 DECL        3288     A     
 DECL               BX6    X5                                                              DECL        3289     A     
 DECL               SA6    A7+B1       (LOC,SPAN)[D1.] = (0,SPANC)                         DECL        3290     A     
 DECL               IX7    X4+X3                                                           DECL        3291     A     
 DECL               SA7    A6+B1       (LB,UB)[D2.] = (1,SPANC)                            DECL        3292     A     
 DECL               SB2    DIMI                                                            DECL        3293     A     
 DECL               SB3    B2+3                                                            DECL        3294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1042    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =B7    0                                                               DECL        3295     A     
 DECL               SCAN   T.DIM,NCM   (B7) = DIMIND OF BASE MEMBER                        DECL        3296     A     
 DECL                                                                                      DECL        3297     A     
 DECL     *         PUT (EOT INDEX, SYMORD OF BASE MEMBER, FWA OF CLASS) INTO              DECL        3298     A     
 DECL     *         GF2 ENTRY OF EACH CLASS ROOT, SO THEY CAN BE PROPAGATED                DECL        3299     A     
 DECL     *         TO EACH MEMBER OF THE CLASS IN PHASE 5.                                DECL        3300     A     
 DECL     *         (B5) = EOIND                                                           DECL        3301     A     
 DECL                                                                                      DECL        3302     A     
 DECL               SA1    T.EOT                                                           DECL        3303     A     
 DECL               SA3    T.EQUS                                                          DECL        3304     A     
 DECL               =B3    X1+OA.W                                                         DECL        3305     A     
 DECL               SB2    X3+G2.W                                                         DECL        3306     A     
 DECL               SA4    B3+B5       OAI = T.EOT(EOIND)                                  DECL        3307     A     
 DECL               =A3    A4-OA.W+OB.W      OBI                                           DECL        3308     A     
 DECL               LX4    -OA.FWAP                                                        DECL        3309     A     
 DECL               MX0    -OA.FWAL                                                        DECL        3310     A     
 DECL               SA3    B2+X3       G2R = T.EQUS(GFI[OBI])                              DECL        3311     A     
 DECL               ERRNZ  18-OB.GFIL                                                      DECL        3312     A     
 DECL               UX3    B2                                                              DECL        3313          I
          -FC50757
 DECL               MX2    F2.LINKL                                                        FC50757      123     A     
 DECL               BX2    X2*X3                                                           FC50757      124     A     
 DECL               LX2    F2.LINKL                                                        FC50757      125     A     
 DECL               SB2    X2                                                              FC50757      126     A     
 DECL               SX1    B5                                                              DECL        3314     A     
 DECL               SX2    B4          BSYM = SYMORD OF BASE MEMBER                        DECL        3315     A     
 DECL               BX3    -X0*X4      FWAC = FWA[OAI]                                     DECL        3316     A     
 DECL               LX2    F2.BSYMP                                                        DECL        3317     A     
 DECL               LX1    F2.EOIP                                                         DECL        3318     A     
 DECL               LX3    F2.FWAP                                                         DECL        3319     A     
 DECL               BX2    X2+X1                                                           DECL        3320     A     
 DECL               BX6    X2+X3                                                           DECL        3321     A     
 DECL               PX6    X6,B2                                                           DECL        3322          I
          -FC50757
 DECL               MX0    F2.LINKL                                                        FC50757      127     A     
 DECL               BX6    -X0*X6      CLEAR LINK                                          FC50757      128     A     
 DECL               SX0    B2                                                              FC50757      129     A     
 DECL               LX0    F2.LINKP                                                        FC50757      130     A     
 DECL               BX6    X0+X6       NEW LINK                                            FC50757      131     A     
 DECL               MX0    -OA.RBL                                                         DECL        3323     A     
 DECL               SA6    A3          (EOI,BSYM,FWA)[G2R]= (EOIND,BSYM,FWAC)[F2.]         DECL        3324     A     
 DECL               LX4    OA.FWAP-OA.RBP                                                  DECL        3325     A     
 DECL               BX0    -X0*X4      RBC = RB[OAI]                                       DECL        3326     A     
 DECL                                                                                      DECL        3327     A     
 DECL     *         CREATE AN T.ECT ENTRY FOR THE BASE MEMBER, FORMAT AS:                  DECL        3328     A     
 DECL     *         TE. .                                                                  DECL        3329     A     
 DECL                                                                                      DECL        3330     A     
 DECL               SA4    T.ECT                                                           DECL        3331     A     
 DECL               SX2    B4+B4                                                           DECL        3332     A     
 DECL               SB4    X2+B4                                                           DECL        3333     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3334     A     
 DECL               SX6    B4+WA.W     WAINDB = 3 * BSYM + WA.W                            DECL        3335     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1043    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX1    TE.EOIP-F2.EOIP                                                 DECL        3336     A     
 DECL               SB4    X6-WA.W+WB.W                                                    DECL        3337     A     
 DECL               LX6    TE.SYMIP                                                        DECL        3338     A     
 DECL               BX6    X6+X1                                                           DECL        3339     A     
 DECL               SA6    X4+B6       T.ECT(ECIND) = (EOIND,0,WAINDB) [TE.]               DECL        3340     A     
 DECL               SB6    B6+B1       ECIND = ECIND + 1                                   DECL        3341     A     
 DECL                                                                                      DECL        3342     A     
 DECL     *         UPDATE (WB,WC) ENTRY OF T.SYM FOR THE INVENTED BASE MEMBER.            DECL        3343     A     
 DECL     *         (A5) = G1R                                                             DECL        3344     A     
 DECL     *         (B4) = WBINDB                                                          DECL        3345     A     
 DECL     *         (X3) = FWAC                                                            DECL        3346     A     
 DECL     *         (X0) = RBC                                                             DECL        3347     A     
 DECL                                                                                      DECL        3348     A     
 DECL               LX0    WC.RBP                                                          DECL        3349     A     
 DECL               LX3    WC.RAP-F2.FWAP                                                  DECL        3350     A     
 DECL               ERRNZ  WC.RAL-F2.FWAL                                                  DECL        3351     A     
 DECL               BX7    X0          RAI[WCI] = 0                                        DECL        3352     A     
 DECL               SA1    T.SYM                                                           DECL        3353     A     
 DECL               SA2    X1+B4       WBI = T.SYM(WBINDB)                                 DECL        3354     A     
 DECL               SX6    B7          DIMIND OF BASE                                      DECL        3355     A     
 DECL               CLAS=  X4,WB,(VAR,BMEM,ARY)                                            DECL        3356     A     
 DECL               LX6    WB.PNTP                                                         DECL        3357     A     
 DECL               BX4    X4+X2                                                           DECL        3358     A     
 DECL               BX6    X4+X6                                                           DECL        3359     A     
 DECL               =X1    0                                                               DECL        3360     A     
 DECL               ZR     X0,EQU370   IF RBC .EQ. 0                                       DECL        3361     A     
 DECL               BX7    X7+X3                                                           DECL        3362     A     
 DECL               CLAS=  X1,WB,(COM,MAT)                                                 DECL        3363     A     
 DECL                                                                                      DECL        3364     A     
 DECL      EQU370   BX6    X6+X1       SET (COM,MAT)[WBI] IFF COMMON                       DECL        3365     A     
 DECL               CLAS=  X1,G1,(SAVE)                                                    DECL        3366     A     
 DECL               =A5    A3-G2.W+G1.W      G1R = G1 ENTRY OF ROOT                        DECL        3367     A     
 DECL               BX1    X5*X1       SAVEI = SAVE[G1R]                                   DECL        3368     A     
 DECL               LX1    WB.SAVEP-G1.SAVEP                                               DECL        3369     A     
 DECL               BX6    X6+X1                                                           DECL        3370     A     
 DECL               =X2    10                                                              DECL        3371     A     
 DECL               LX2    WC.CLENP                                                        DECL        3372     A     
 DECL               MX1    1                                                               DECL        3373     A     
 DECL               HX5    G1.CHAR                                                         DECL        3374     A     
 DECL               BX1    X1*X5                                                           DECL        3375     A     
 DECL               =X3    M.CHAR                                                          DECL        3376     A     
 DECL               AX1    59          FORM MASK FOR MODE CHARACTER                        DECL        3377     A     
 DECL               BX3    X1*X3       (X3) = M.CHAR IF CHAR[G1I] = 1                      DECL        3378     A     
 DECL               BX5    X2*X1       (X5) = 10 IF CHAR[G1I] = 1                          DECL        3379     A     
 DECL               LX3    WB.MODEP                                                        DECL        3380     A     
 DECL               BX7    X7+X5                                                           DECL        3381     A     
 DECL               =A7    A2-WB.W+WC.W      (RB,RA) [WCI] = (RBC,RAI) [WC.]               DECL        3382     A     
 DECL               BX6    X6+X3       ADD IN MODE                                         DECL        3383     A     
 DECL               SA6    A2          (VAR,BMEM,ARY,COM,SAVE,PNT) [WBI] = [WB.]           DECL        3384     A     
 DECL               ZR     X0,EQU350   IF RBC .EQ. 0 (LOCAL CLASS)                         DECL        3385     A     
 DECL                                                                                      DECL        3386     A     
 DECL     *         COMMON BLOCK LENGTH IS EXTENTED IF BLOCK LENGTH  .LT.                  DECL        3387          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1044    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FC50757
 DECL     *         COMMON BLOCK LENGTH IS EXTENDED IF BLOCK LENGTH .LT.                   FC50757      132     A     
 DECL     *         LWA OF CLASS.                                                          DECL        3388     A     
 DECL     *         ALSO COPY BLOCK LEVEL INFORMATION TO LVLN[WBI] OF BASE MEMBER,         DECL        3389     A     
 DECL     *         AND SET LVL[WBI] = 1 IF BLOCK IS LEVELED.                              DECL        3390     A     
 DECL                                                                                      DECL        3391     A     
 DECL               SA1    B3+B5       OAI = T.EOT(EOIND)                                  DECL        3392     A     
 DECL               SA4    T.BLKS                                                          DECL        3393     A     
 DECL               HX1    OA.LWA                                                          DECL        3394     A     
 DECL               AX1    -OA.LWAL    LWAC = LWA[OAI]                                     DECL        3395     A     
 DECL               =B2    X4+CB.W                                                         DECL        3396     A     
 DECL               CLAS=  X5,CA,(BLVL)                                                    DECL        3397     A     
 DECL               LX0    -WC.RBP                                                         DECL        3398     A     
 DECL               SA3    X0+B2       CBI = T.BLKS(RBC)                                   DECL        3399     A     
 DECL               =A4    A3-CB.W+CA.W      CAI = CA ENTRY OF T.BLKS                      DECL        3400     A     
 DECL               MX7    -CB.BLENL                                                       DECL        3401     A     
 DECL               BX2    X5*X4       BLKLEV = BLVL[CAI]                                  DECL        3402     A     
 DECL               LX3    -CB.BLENP                                                       DECL        3403     A     
 DECL               LX2    WB.LEVNP-CA.BLVLP                                               DECL        3404     A     
 DECL               BX4    -X7*X3      BLEN = BLEN[CBI]                                    DECL        3405     A     
 DECL               BX7    X7*X3                                                           DECL        3406     A     
 DECL               MX5    X4+X1                                                           DECL        3407     A     
 DECL               IX7    X5+X7                                                           DECL        3408     A     
 DECL               LX7    CB.BLENP                                                        DECL        3409     A     
 DECL               SA7    A3          BLEN[CBI] = MAX (BLEN,LWAC)                         DECL        3410     A     
 DECL               ZR     X2,EQU350   IF BLOCK NOT LEVELED                                DECL        3411     A     
 DECL               CLAS=  X1,WB,(LEV)                                                     DECL        3412     A     
 DECL               BX1    X1+X2                                                           DECL        3413     A     
 DECL               BX6    X6+X1                                                           DECL        3414     A     
 DECL               SA6    A2          (LEV,LEVN)[WBI] = (1,BLKLEV) [WB.]                  DECL        3415     A     
 DECL               EQ     EQU350                                                          DECL        3416     A     
 DECL      PHASE5   SPACE  3,8                                                             DECL        3417     A     
 DECL     **        PHASE 5 -- GALLER / FISHER ADDRESS ASSIGNMENT.                         DECL        3418     A     
 DECL     *                WE NOW DO G/F ADDRESS ASSIGNMENT, RELATIVE TO                   DECL        3419     A     
 DECL     *         THE CLASS BASE.  THE *END* PROCESSOR WILL RELOCATE OUR                 DECL        3420     A     
 DECL     *         ADDRESSES TO THE ACTUAL LOCAL-VARIABLE BLOCK.  VARIABLES IN            DECL        3421     A     
 DECL     *         COMMON ARE ASSIGNED ADDRESSES RELATIVE TO THEIR RESPECTIVE             DECL        3422     A     
 DECL     *         BLOCKS.                                                                DECL        3423     A     
 DECL     *         VARIABLES WHICH ARE IN COMMON NOW, BECAUSE OF EQUIVALENCING            DECL        3424     A     
 DECL     *         MUST BE SO MARKED IN THE SYMBOL TABLE.                                 DECL        3425     A     
 DECL     *         A TEMPORARY EQUIVALENCE CLASS TABLE (TE.) IS FORMED FOR                DECL        3426     A     
 DECL     *         EACH MEMBER OF THE CLASS. IF LONG MAP (R=3) IS SELECTED,               DECL        3427          I
          -FC50757
 DECL     *         EACH MEMBER OF THE CLASS.  IF LO=R IS SELECTED,                        FC50757      133     A     
 DECL     *         THIS WILL BE USED TO FORMAT THE EQUIVALENCE CLASS MAP.                 DECL        3428     A     
 DECL     *                                                                                DECL        3429     A     
 DECL     *         ENTRY: (B6) = ECIND                                                    DECL        3430     A     
 DECL                                                                                      DECL        3431     A     
 DECL                                                                                      DECL        3432     A     
 DECL      EQU400   BSS    0                                                               DECL        3433     A     
 DECL      SNAP=D   IFNE   TEST                                                            DECL        3434     A     
 DECL               SA1    CO.SNAP                                                         DECL        3435     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1045    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX1    1RD                                                             DECL        3436     A     
 DECL               PL     X1,EQU400S                                                      DECL        3437     A     
 DECL      EQU.400  DUMPT  EQUS                                                            DECL        3438     A     
 DECL               DUMPT  EOT                                                             DECL        3439     A     
 DECL      EQU400S  BSS    0                                                               DECL        3440     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        3441     A     
 DECL                                                                                      DECL        3442     A     
 DECL               SA3    T=EQUS      X3 = NUMBER OF EQUIVALENCED VARIABLES               FC5A128      307     A     
 DECL               SA2    T=ECT                                                           FC5A128      308     A     
 DECL               SA1    N.EQ                                                            FC5A128      309     A     
 DECL               AX3    1                                                               FC5A128      310     A     
 DECL               =X1    X1-1        X1 = NUMBER OF EQUIVALENCE CLASSES                  FC5A128      311     A     
 DECL               IX1    X1+X3       X1 = DESIRED LENGTH OF T.ECT                        FC5A128      312     A     
 DECL               IX0    X1-X2       X0 = INCREMENT TO LENGTH                            FC5A128      313     A     
 DECL               ALLOC  T.ECT,X0                                                        FC5A128      314     A     
 DECL               SA1    T.EQUS                                                          DECL        3443     A     
 DECL               SA2    T.SYM                                                           DECL        3444     A     
 DECL               SA3    T=EQUS                                                          DECL        3445     A     
 DECL               =A0    X1+G1.W                                                         DECL        3446     A     
 DECL               SB7    X2                                                              DECL        3447     A     
 DECL               =B4    -Z=EQS      GFIND = -Z=EQS                                      DECL        3448     A     
 DECL               SHRINK T=EOT,0     DISCARD T.EOT                                       DECL        3449     A     
 DECL               SB5    X3          GFLEN = LEN(T.EQUS)                                 DECL        3450     A     
 DECL                                                                                      FC50299       55     A     
 DECL      EQU410   SB4    B4+Z=EQS    GFIND = GFIND + Z=EQS                               DECL        3451     A     
 DECL               SA1    A0+B4       G1I = T.EQUS(GFIND)                                 DECL        3452     A     
 DECL               SB5    B5-Z=EQS    GFLEN = GFLEN - Z=EQS                               DECL        3453     A     
 DECL               MI     B5,EQU450   IF END OF T.EQUS                                    DECL        3454     A     
 DECL               MX0    G1.RBL                                                          DECL        3455          I
          -FC50757
 DECL               MX3    -G1.SYMIL                                                       DECL        3456     A     
 DECL               =A5    A1-G1.W+G2.W      G2I                                           DECL        3457     A     
 DECL               UX5    B2,X5                                                           DECL        3458          I
          -FC50757
 DECL               MX0    G2.LINKL                                                        FC50757      134     A     
 DECL               BX6    X0*X5                                                           FC50757      135     A     
 DECL               BX5    -X0*X5                                                          FC50757      136     A     
 DECL               MX0    G1.RBL                                                          FC50757      137     A     
 DECL               LX6    G2.LINKL                                                        FC50757      138     A     
 DECL               SB2    X6                                                              FC50757      139     A     
 DECL               LX0    G1.RBL+G1.RBP                                                   DECL        3459     A     
 DECL               BX6    X1                                                              DECL        3460     A     
 DECL               BX4    X0*X1       RBC = RB[G1I]                                       DECL        3461     A     
 DECL               HX6    G1.RA                                                           DECL        3462     A     
 DECL               AX6    -G1.RAL     RAI = RA[G1I]                                       DECL        3463     A     
 DECL               LX1    -G1.SYMIP                                                       DECL        3464     A     
 DECL               BX7    -X3*X1      SYMI = SYM[G1I]                                     DECL        3465     A     
 DECL               SB3    X7                                                              DECL        3466     A     
 DECL               EQ     B2,B4,EQU420      IF ROOT                                       DECL        3467     A     
 DECL                                                                                      DECL        3468     A     
 DECL     *         NON-ROOT MEMBERS.                                                      DECL        3469     A     
 DECL     *         PROPAGATE (EOI,BSYM,FWA)[F2.] FROM ROOT TO MEMBER.                     DECL        3470     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1046    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         COMPUTE RA OF MEMBER AS:                                               DECL        3471     A     
 DECL     *                RAI = RAI + RA[G1ROOT]                                          DECL        3472     A     
 DECL                                                                                      DECL        3473     A     
 DECL               SA3    A0+B2       G1R = T.EQUS(GFIR)                                  DECL        3474     A     
 DECL               BX4    X0*X3       RBC = RB[G1R]                                       DECL        3475     A     
 DECL               LX1    G1.SYMIP                                                        DECL        3476     A     
 DECL               MX0    -G1.RAL                                                         DECL        3477     A     
 DECL               BX7    X0*X1       CLEAR RA FIELD                                      DECL        3478     A     
 DECL               BX7    X7+X4       ADD IN RB OF CLASS                                  DECL        3479     A     
 DECL               HX3    G1.RA                                                           DECL        3480     A     
 DECL               AX3    -G1.RAL     RAR = RA[G1R], SIGN EXTENTED                        DECL        3481     A     
 DECL               IX6    X6+X3       RAI = RAI + RAR                                     DECL        3482     A     
 DECL               BX3    -X0*X6      GET RID OF SIGN EXTENSION                           DECL        3483     A     
 DECL               LX3    G1.RAP                                                          DECL        3484     A     
 DECL               BX7    X7+X3                                                           DECL        3485     A     
 DECL               SA7    A1          (RB,RA)[G1I] = (RBR,RAI) [G1.]                      DECL        3486     A     
 DECL               =A3    A3-G1.W+G2.W      G2R = G2 ENTRY OF ROOT                        DECL        3487     A     
 DECL               PX7    X3,B2                                                           DECL        3488          I
          -FC50757
 DECL               MX7    G2.LINKL                                                        FC50757      140     A     
 DECL               BX3    -X7*X3      CLEAR LINK                                          FC50757      141     A     
 DECL               SX7    B2                                                              FC50757      142     A     
 DECL               LX7    G2.LINKP                                                        FC50757      143     A     
 DECL               BX7    X7+X3                                                           FC50757      144     A     
 DECL               SA7    A5          (EOI,BSYM,FWA)[G2I] = [G2R]                         DECL        3489     A     
 DECL               SA5    A3                                                              DECL        3490     A     
 DECL                                                                                      DECL        3491     A     
 DECL     *         FORM TE. ENTRY.                                                        DECL        3492     A     
 DECL     *         (X4) = RB OF CLASS                                                     DECL        3493     A     
 DECL     *         (X6) = RAI                                                             DECL        3494     A     
 DECL     *         (X5) = G2R                                                             DECL        3495     A     
 DECL     *         (B3) = SYMI                                                            DECL        3496     A     
 DECL                                                                                      DECL        3497     A     
 DECL      EQU420   BX7    X5                                                              DECL        3498     A     
 DECL               LX5    -F2.EOIP                                                        DECL        3499     A     
 DECL               MX0    -F2.EOIL                                                        DECL        3500     A     
 DECL               HX7    F2.FWA                                                          DECL        3501     A     
 DECL               AX7    -F2.FWAL    FWAC = FWA[G2R]                                     DECL        3502     A     
 DECL               BX1    -X0*X5      EOI = EOI[G2R]                                      DECL        3503     A     
 DECL               IX6    X6-X7       BIASI = RAI - FWAC                                  DECL        3504     A     
 DECL               LX1    TE.EOIP                                                         DECL        3505     A     
 DECL               SX3    B3-WB.W+WA.W                                                    DECL        3506     A     
 DECL               LX3    TE.SYMIP                                                        DECL        3507     A     
 DECL               BX1    X1+X3                                                           DECL        3508     A     
 DECL               LX5    F2.EOIP-F2.BSYMP                                                DECL        3509     A     
 DECL                                                                                      DECL        3510     A     
 DECL               IFEQ   TEST,ON,1                                                       DECL        3511     A     
 DECL               MI     X6,"BLOWUP" BIAS SHOULD NOT BE .LT. 0                           DECL        3512     A     
 DECL                                                                                      DECL        3513     A     
 DECL               LX6    TE.BIASP                                                        DECL        3514     A     
 DECL               CLAS=  X3,TE,(NB)                                                      DECL        3515     A     
 DECL               BX7    X6+X3                                                           DECL        3516     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1047    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX7    X7+X1                                                           DECL        3517     A     
 DECL               LX4    -G1.RBP                                                         DECL        3518     A     
 DECL               SA3    T.ECT                                                           DECL        3519     A     
 DECL               SA7    X3+B6       [T.ECT(ECIND)] = (EOI,NB,BIASI,SYMI)[TE.]           DECL        3520     A     
 DECL               SB6    B6+B1       ECIND = ECIND + 1                                   DECL        3521     A     
 DECL                                                                                      DECL        3522     A     
 DECL     *         UPDATE SYMTAB WB,WC.                                                   DECL        3523     A     
 DECL     *         SET (EQU,DEF,VAR,COM,SAVE)[WBI] BITS,                                  DECL        3524     A     
 DECL     *                (BMEM)[WB.] = BSYM(G2R),                                        DECL        3525     A     
 DECL     *                (RB,RA)[WC.] = (RBC,BIASI) [WC.]                                DECL        3526     A     
 DECL                                                                                      DECL        3527     A     
 DECL               MX3    0           COMI = 0                                            DECL        3528     A     
 DECL               ZR     X4,EQU430   IF RBR .EQ. 0                                       DECL        3529     A     
 DECL               SA1    T.BLKS                                                          DECL        3530     A     
 DECL               =B2    X1+CA.W                                                         DECL        3531     A     
 DECL               CLAS=  X3,WB,(COM) COMI = COM[WB.] = 1                                 DECL        3532     A     
 DECL               CLAS=  X2,CA,(BLVL)                                                    DECL        3533     A     
 DECL               SA1    X4+B2       CAI = T.BLKS(RBI) + CA.W                            DECL        3534     A     
 DECL               BX7    X2*X1       BLKLEV = BLVL[CAI]                                  DECL        3535     A     
 DECL               LX4    WC.RBP                                                          DECL        3536     A     
 DECL               ZR     X7,EQU430   IF BLOCK NOT LEVELED                                DECL        3537     A     
 DECL               LX7    WB.LEVNP-CA.BLVLP                                               DECL        3538     A     
 DECL               BX3    X3+X7                                                           DECL        3539     A     
 DECL               CLAS=  X2,WB,(LEV)                                                     DECL        3540     A     
 DECL               BX3    X3+X2       COMI = (COM,LEV,LEVN) [WB.]                         DECL        3541     A     
 DECL                                                                                      FC50299       56     A     
 DECL      EQU430   LX6    WC.RAP-TE.BIASP                                                 DECL        3542     A     
 DECL               ERRNZ  WC.RAL-TE.BIASL                                                 DECL        3543     A     
 DECL               BX7    X6+X4                                                           DECL        3544     A     
 DECL               MX0    -F2.BSYML                                                       DECL        3545     A     
 DECL               BX5    -X0*X5      BSYM = BSYM[G2R]                                    DECL        3546     A     
 DECL               LX5    WB.BASEP                                                        DECL        3547     A     
 DECL               BX5    X5+X3                                                           DECL        3548     A     
 DECL               SA3    B7+B3       WBI = T.SYM(SYMI)                                   DECL        3549     A     
 DECL               =A4    A3-WB.W+WC.W      WCI                                           DECL        3550     A     
 DECL               BX3    X3+X5                                                           DECL        3551     A     
 DECL               CLAS=  X6,WB,(EQV,DEF,VAR)                                             DECL        3552     A     
 DECL               BX6    X6+X3                                                           DECL        3553     A     
 DECL               SA6    A3          (EQV,DEF,VAR,BASE,COMI)[WBI] = [WB.]                DECL        3554     A     
 DECL               CLAS=  X1,WC,(RB,RA)                                                   DECL        3555     A     
 DECL               BX4    -X1*X4                                                          DECL        3556     A     
 DECL               BX7    X4+X7                                                           DECL        3557     A     
 DECL               SA7    A4          (RB,RA)[WCI] = (RBR,RAI) [WC.]                      DECL        3558     A     
 DECL               EQ     EQU410                                                          DECL        3559     A     
 DECL                                                                                      DECL        3560     A     
 DECL      EQU450   BSS    0                                                               DECL        3561     A     
 DECL               SHRINK T=ECT,B6    SHRINK T.ECT TO ACTUAL SIZE                         DECL        3562     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        3563     A     
 DECL               SA1    CO.SNAP                                                         DECL        3564     A     
 DECL               LX1    1RD                                                             DECL        3565     A     
 DECL               PL     X1,EQU450S  IF DECLARATIVE SNAP NOT SELECTED                    DECL        3566     A     
 DECL      EQU.450  DUMPT  EQUS                                                            DECL        3567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1048    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               DUMPT  ECT                                                             DECL        3568     A     
 DECL      EQU450S  BSS    0                                                               DECL        3569     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        3570     A     
 DECL                                                                                      DECL        3571     A     
 DECL               SA1    WO.LOM                                                          DECL        3572     A     
 DECL               MX6    0                                                               DECL        3573     A     
 DECL               SHRINK T=EQUS,X6   DISCARD T.EQUS                                      DECL        3574     A     
 DECL               MI     X1,EXIT.    IF COMMON-EQUIVALENCE MAP SELECTED                  DECL        3575     A     
 DECL               SHRINK T=ECT,X6                                                        DECL        3576     A     
 DECL               EQ     EXIT.                                                           DECL        3577     A     
 DECL                                                                                      DECL        3578     A     
 DECL      N.EQ     EQU    EQSR        NUMBER OF EQUIVALENCE CLASSES                       DECL        3579     A     
 DECL      EQUA     CON    0           12/2000B+T0, 48/D0, (PHASE 1 OF EQU)                DECL        3580          I
          -FC50757
 DECL      EQUA     CON    0           12/T0, 48/D0,[PHASE 1 OF EQU]                       FC50757      145     A     
 DECL      EQUS     BSS    1           SUBSCRIPTED ITEM INDICATOR                          FC50299       57     A     
 DECL      GCI      EQU    EQUA        GROUP CHARACTER INDEX IN PHASE 1 OF *EQU*           DECL        3581     A     
 DECL      EQUC     BFLIT  WC,(RB,RA)                                                      DECL        3582     A     
 DECL      EQUDIM   EQU    DIMI                                                            DECL        3583     A     
 DECL               TITLE  CLOSE OF DECLARATIVE ROUTINES.                                  DECL        3584     A     
 DECL      ACV      SPACE  4,10                                                            DECL        3585     A     
 DECL     **        ACV -  ASSUMED LENGTH CHARACTER VARDIM PROCESSING                      DECL        3586     A     
 DECL     *                                                                                DECL        3587     A     
 DECL     *         CHECKS A FORMAL PARAMETER FOR ASSUMED LENGTH CHARACTER.  IF SO         DECL        3588     A     
 DECL     *         VARDIM TURPLES WILL BE OUTPUT AND THE VD. INDEX PLACED IN THE          DECL        3589     A     
 DECL     *         WC.CLEN FIELD FOR THE FORMAL PARAMETER.                                DECL        3590     A     
 DECL     *                                                                                DECL        3591     A     
 DECL     *         ENTRY  (X1) = FORMAL PARAMETER INDEX                                   DECL        3592          I
          -FC50558
 DECL     *         ENTRY  (X1) = FORMAL PARAMETER ORDINAL                                 FC50558       44     A     
 DECL     *                                                                                DECL        3593     A     
 DECL     *         USES   A1,A2,A5,A6  X0,X1,X2,X3,X4,X5,X6  B2,B3,B5                     DECL        3594     A     
 DECL                                                                                      DECL        3595     A     
 DECL                                                                                      DECL        3596     A     
 DECL      ACV      SUBR               ...ENTRY/EXIT...                                    DECL        3597          I
          -FC50558
 DECL      ACV      SUBR   =           ...ENTRY/EXIT...                                    FC50558       45     A     
 DECL               SA5    T.SYM                                                           DECL        3598     A     
 DECL               LX1    -FP.PNTP                                                        DECL        3599     A     
 DECL               SX1    X1                                                              DECL        3600     A     
 DECL               ERRNZ  FP.PNTL-18                                                      DECL        3601     A     
 DECL               BX0    X1                                                              DECL        3602     A     
 DECL               SB5    X1                                                              DECL        3603     A     
 DECL               LX1    1                                                               DECL        3604     A     
 DECL               SX1    X1+B5       CONVERT ORDINAL TO INDEX                            DECL        3605     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3606     A     
 DECL               =B5    X1-WA.W+WB.W                                                    DECL        3607     A     
 DECL               SA1    X5+B5       FETCH *WB*                                          DECL        3608     A     
 DECL               MX3    -WB.MODEL                                                       DECL        3609     A     
 DECL               BX2    -X3*X1      ISOLATE MODE                                        DECL        3610     A     
 DECL               SB2    X2-M.CHAR                                                       DECL        3611     A     
 DECL               NZ     B2,EXIT.    IF NOT TYPE CHARACTER                               DECL        3612     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1049    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =A2    A1-WB.W+WC.W                                                    DECL        3613     A     
 DECL               SBIT   X2,WC.CTYPP                                                     DECL        3614     A     
 DECL               PL     X2,ACV1     IF NOT ASSUMED LENGTH                               DECL        3615     A     
 DECL               CALL   CT1         GET TP. FORMAT                                      DECL        3616     A     
 DECL               CLAS=  X4,TP,(ADDR)                                                    DECL        3617     A     
 DECL               BX4    X4+X6       MERGE IN ADDRESS BIT                                DECL        3618     A     
 DECL               MX5    0           2OP IS NULL                                         DECL        3619     A     
 DECL               SB3    VD.GP                                                           DECL        3620     A     
 DECL               RJ     OVT         OUTPUT THE GPL TURPLE                               DECL        3621     A     
 DECL               RJ     OVS         OUTPUT VARDIM STORE TURPLE                          DECL        3622     A     
 DECL               SA1    T.SYM                                                           DECL        3623     A     
 DECL               HX5    TP.BIAS                                                         DECL        3624     A     
 DECL               AX5    -TP.BIASL   EXTRACT VD. INDEX                                   DECL        3625     A     
 DECL               =X1    X1-WB.W+WC.W                                                    DECL        3626     A     
 DECL               SA2    X1+B5       FETCH *WC* ENTRY                                    DECL        3627     A     
 DECL               LX5    WC.CLENP                                                        DECL        3628     A     
 DECL               BX6    X2+X5       MERGE IN VD. INDEX                                  DECL        3629     A     
 DECL               SA6    A2                                                              DECL        3630     A     
 DECL               EQ     EXIT.                                                           DECL        3631     A     
 DECL                                                                                      DECL        3632     A     
 DECL      ACV1     SA1    S=VALUE                                                         DECL        3633     A     
 DECL               SX1    X1+M.CHAR                                                       DECL        3634     A     
 DECL               IX1    X0-X1                                                           DECL        3635     A     
 DECL               =X6    1                                                               DECL        3636     A     
 DECL               ZR     X1,EXIT.    IF VALUE.                                           DECL        3637     A     
 DECL               SA6    N.EPL       SET FIXED CHARACTER LENGTH FP PRESENT FLAG          DECL        3638     A     
 DECL               EQ     EXIT.                                                           DECL        3639     A     
 DECL      MCA      SPACE  4,8                                                             DECL        3640     A     
 DECL     **        MCA -  MAKE RELATIVE COMMON ASSIGNMENTS                                DECL        3641     A     
 DECL     *                                                                                DECL        3642     A     
 DECL     *         ENTRY- END OF DECLARATIVES HAS BEEN ENCOUNTERED                        DECL        3643     A     
 DECL     *                                                                                DECL        3644     A     
 DECL     *         EXIT-  VARIABLES IN COMMON HAVE BEEN ASSIGNED BLOCK RELATIVE           DECL        3645     A     
 DECL     *         ADDRESSES (IN T.COMM), AND THE LENGTH OF ALL COMMON BLOCKS             DECL        3646     A     
 DECL     *         HAS BEEN COMPUTED AND ENTERED IN T.BLKS.                               DECL        3647     A     
 DECL     *                THE BLOCK IS MARKED CHARACTER  (CHAR[CA.] = 1)                  DECL        3648     A     
 DECL     *         IF FIRST MEMBER OF THE BLOCK IS MODE CHARACTER.  MEMBERS WITH          DECL        3649     A     
 DECL     *         CONFLICTING MODES WITH THE BLOCK WILL BE ELIMINATED.                   DECL        3650     A     
 DECL     *                FOR A CHARACTER COMMON BLOCK, BLOCK LENGTH AND BLOCK            DECL        3651     A     
 DECL     *         RELATIVE ADDRESSES ARE EXPRESSED IN TERMS OF CHARACTERS.               DECL        3652     A     
 DECL     *         AT END OF EQUIVALENCE PROCESSING, THESE WILL BE CONVERTED INTO         DECL        3653     A     
 DECL     *         NO. OF WORDS AND CHARACTERS.                                           DECL        3654     A     
 DECL     *         IF AUTOMATIC LEVEL OF COMMON AND ARGS IS SELECTED, ALL COMMON          FC5A444      130     A     
 DECL     *         BLOCKS WILL HAVE *LEVEL* 2 INSERTED IN THE LVL FIELD.                  FC5A444      131     A     
 DECL                                                                                      DECL        3655     A     
 DECL                                                                                      DECL        3656     A     
 DECL      MCA      SUBR               ...ENTRY/EXIT...                                    DECL        3657     A     
 DECL               ERRNZ  FUDGE-1                                                         DECL        3658     A     
 DECL               SA2    T=BLKS                                                          DECL        3659     A     
 DECL               SA3    T.BLKS                                                          DECL        3660     A     
 DECL               SA4    T.COMM                                                          DECL        3661     A     
 DECL               BX6    0                                                               DECL        3662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1050    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               IX2    X2+X3                                                           DECL        3663     A     
 DECL               SA5    T.SYM                                                           DECL        3664     A     
 DECL               SA1    T.DIM                                                           DECL        3665     A     
 DECL               SA0    X4          (A0) = FWA(T.COMM)                                  DECL        3666     A     
 DECL               SA6    X2          LWA+1 (T.BLKS) = 0                                  DECL        3667     A     
 DECL               =B6    X5+WB.W     (B6) = FWA(T.SYM) + WB.W                            DECL        3668     A     
 DECL               =A3    X3+CB.W     CBA = FWA(T.BLKS)+CB.W                              DECL        3669     A     
 DECL               SB4    B0          RBI = 0                                             DECL        3670     A     
 DECL               SB2    X1          (B2) = FWA(T.DIM)                                   DECL        3671     A     
 DECL                                                                                      DECL        3672     A     
 DECL     *         FETCH NEXT ENTRY FROM COMMON BLOCK TABLE AND FIND                      DECL        3673     A     
 DECL     *         ITS FIRST MEMBER.                                                      DECL        3674     A     
 DECL     *         FROM MODE[WBI] OF FIRST MEMBER, DETERMINE IF THIS IS                   DECL        3675     A     
 DECL     *         A CHARACTER COMON BLOCK.                                               DECL        3676     A     
 DECL                                                                                      DECL        3677     A     
 DECL      MCA10    SA3    A3+Z=BLKS   CBA = CBA+Z=BLKS, CBI =T.BLKS(CBA)                  DECL        3678     A     
 DECL               =A4    A3-CB.W+CA.W      CAI = CA ENTRY                                DECL        3679     A     
 DECL               ZR     X4,MCA99    IF END OF T.BLKS                                    DECL        3680     A     
 DECL               MX0    -CA.LMIL                                                        DECL        3681          I
          -FC5A444
 DECL                                                                                      FC5A444      132     A     
 DECL     *         IF AUTOMATIC LEVEL IS ON, SET A LEVEL OF 2 INTO ALL COMMON             FC5A444      133     A     
 DECL     *         BLOCKS NOT EXPLICITLY ASSIGNED A LEVEL.                                FC5A444      134     A     
 DECL                                                                                      FC5A444      135     A     
 DECL               SA1    CO.AL                                                           FC5A444      136     A     
 DECL               PL     X1,MCA11    IF AUTOMATIC LEVEL IS OFF                           FC5A444      137     A     
 DECL               MX6    -CA.BLVLL                                                       FC5A444      138     A     
 DECL               LX6    CA.BLVLP                                                        FC5A444      139     A     
 DECL               BX0    -X6*X4                                                          FC5A444      140     A     
 DECL               NZ     X0,MCA11    IF EXPLICITLY LEVELED                               FC5A444      141     A     
 DECL               =X6    2                                                               FC5A444      142     A     
 DECL               LX6    CA.BLVLP                                                        FC5A444      143     A     
 DECL               BX4    X6+X4       SET LEVEL 2                                         FC5A444      144     A     
 DECL               BX6    X4                                                              FC5A444      145     A     
 DECL               SA6    A4          UPDATE CAI                                          FC5A444      146     A     
 DECL               SA6    LEVEL2      MARK LEVEL 2 STORAGE IN USE                         FC5A444      147     A     
 DECL               SA6    LEVEL                                                           FC5A444      148     A     
 DECL                                                                                      FC5A444      149     A     
 DECL      MCA11    MX0    -CA.LMIL                                                        FC5A444      150     A     
 DECL               LX4    -CA.LMIP                                                        DECL        3682     A     
 DECL               BX6    -X0*X4      LASTMEM = LMI[CBA]                                  DECL        3683     A     
 DECL               NZ     X6,MCA11    IF AT LEAST ONE MEMBER ENTERED                      DECL        3684          I
          -FC5A444
 DECL               NZ     X6,MCA13    IF AT LEAST ONE MEMBER ENTERED                      FC5A444      151     A     
 DECL               SA6    A3          CBI = 0     SET FMI[CBA] = 0                        DECL        3685     A     
 DECL               BX3    X6                                                              DECL        3686     A     
 DECL                                                                                      DECL        3687     A     
 DECL      MCA11    SB4    B4+Z=BLKS                                                       DECL        3688          I
          -FC5A444
 DECL      MCA13    SB4    B4+Z=BLKS                                                       FC5A444      152     A     
 DECL               MX0    -WB.MODEL                                                       DECL        3689     A     
 DECL               MX6    -CB.FMIL                                                        DECL        3690     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1051    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX3    -CB.FMIP                                                        DECL        3691     A     
 DECL               BX6    -X6*X3      COMIND = FMI[CBI]                                   DECL        3692     A     
 DECL               SB5    X6                                                              DECL        3693     A     
 DECL               SB3    B5          BPNTER = COMIND                                     DECL        3694     A     
 DECL                                                                                      DECL        3695     A     
 DECL     *         DIAGNOSE EMPTY COMMON BLOCK DECLARED THROUGH SAVE.                     DECL        3696     A     
 DECL                                                                                      DECL        3697     A     
 DECL               NZ     X6,MCA15    IF COMIND .NE. 0                                    DECL        3698     A     
 DECL               MX0    CA.BNAML                                                        DECL        3699     A     
 DECL               BX6    X0*X4       EXTRACT BLOCK NAME                                  DECL        3700     A     
 DECL               SA6    FILL.                                                           DECL        3701     A     
 DECL               FATAL  E.CM12                                                          DECL        3702     A     
 DECL               EQ     MCA10                                                           DECL        3703     A     
 DECL                                                                                      DECL        3704     A     
 DECL                                                                                      DECL        3705     A     
 DECL      MCA15    SA1    A0+B5       CMF = T.COMM(COMIND)                                DECL        3706     A     
 DECL               LX1    -CT.TAGP                                                        DECL        3707     A     
 DECL               SB7    X1                                                              DECL        3708     A     
 DECL               ERRNZ  18-CT.TAGL                                                      DECL        3709     A     
 DECL               SX2    B7+B7                                                           DECL        3710     A     
 DECL               SX7    X2+B7       STIND = 3 * TAG[CMF]                                DECL        3711     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3712     A     
 DECL               SA2    X7+B6       WBF = T.SYM(STIND)                                  DECL        3713     A     
 DECL               LX2    -WB.MODEP                                                       DECL        3714     A     
 DECL               BX2    -X0*X2      MODEI = MODE[WBF]                                   DECL        3715     A     
 DECL               SX7    X2-M.CHAR                                                       DECL        3716     A     
 DECL               CLAS=  X2,CA,(CHAR)                                                    DECL        3717     A     
 DECL               NZ     X7,MCA20    IF NOT MODE CHARACTER                               DECL        3718     A     
 DECL               BX6    X4+X2                                                           DECL        3719     A     
 DECL               SA6    A4          CHAR[CAI] = 1                                       DECL        3720     A     
 DECL                                                                                      DECL        3721     A     
 DECL     *         FETCH FROM T.COMM NEXT COMMON MEMBER OF THIS BLOCK AND                 DECL        3722     A     
 DECL     *         SET ITS  RB[WC.] = RBI, RA[WC.] = BLEN[CBI].                           DECL        3723     A     
 DECL     *                                                                                DECL        3724     A     
 DECL     *         A3 = CBI                                                               DECL        3725     A     
 DECL     *         (B3) = BPNTER, PNTER TO THE PREVIOUS COMMON ELEMENT                    DECL        3726     A     
 DECL     *         (B4) = RBI                                                             DECL        3727     A     
 DECL     *         (A0) = FWA(T.COMM)                                                     DECL        3728     A     
 DECL     *         (B5) = COMIND                                                          DECL        3729     A     
 DECL     *         (B6) = FWA(T.SYM) + WB.W                                               DECL        3730     A     
 DECL                                                                                      DECL        3731     A     
 DECL      MCA20    ZR     B5,MCA10    IF COMIND .EQ.0  (END OF THIS BLOCK)                DECL        3732     A     
 DECL               SA1    A0+B5       CMI = T.COMM(COMIND)                                DECL        3733     A     
 DECL               =A4    A3-CB.W+CA.W      CAI = CA ENTRY                                DECL        3734     A     
 DECL               MX0    1                                                               DECL        3735     A     
 DECL               HX4    CA.CHAR                                                         DECL        3736     A     
 DECL               BX4    X4*X0       (X4) = CHAR INDICATOR                               DECL        3737     A     
 DECL               BX2    X1                                                              DECL        3738     A     
 DECL               LX1    -CT.TAGP                                                        DECL        3739     A     
 DECL               HX2    CT.LNK                                                          DECL        3740          I
          -FC50533
 DECL               MX0    -CT.LNKL                                                        FC50533        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1052    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB7    X1          TAGI = TAG[CMI]                                     DECL        3741     A     
 DECL               ERRNZ  18-CT.TAGL                                                      DECL        3742     A     
 DECL               AX2    -CT.LNKL    COMIND = LNK[CMI]                                   DECL        3743          I
          -FC50533
 DECL               LX2    -CT.LNKP                                                        FC50533        7     A     
 DECL               BX2    -X0*X2      COMIND = LNK[CMI]                                   FC50533        8     A     
 DECL               SX3    B7+B7                                                           DECL        3744     A     
 DECL               SX3    X3+B7       STINDB = 3 * TAGI                                   DECL        3745     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3746     A     
 DECL               SX0    B3          SAVE BPNTER                                         DECL        3747     A     
 DECL               SB3    B5          BPNTER = COMIND                                     DECL        3748     A     
 DECL               MX7    -WB.MODEL                                                       DECL        3749     A     
 DECL               SB5    X2          COMIND = LNK[CMI]                                   DECL        3750     A     
 DECL               SA2    X3+B6       WBI = T.SYM(STINDB)                                 DECL        3751     A     
 DECL               LX2    -WB.MODEP                                                       DECL        3752     A     
 DECL               BX3    -X7*X2      MODEI = MODE[WBI]                                   DECL        3753     A     
 DECL               SB7    X3          CMI = MODEI                                         DECL        3754     A     
 DECL               SX6    B7-M.CHAR                                                       DECL        3755     A     
 DECL               LX2    WB.MODEP                                                        DECL        3756     A     
 DECL               BX3    0           INDICATE NON-CHAR                                   DECL        3757     A     
 DECL               NZ     X6,MCA25    IF ELEMENT NOT MODE CHAR                            DECL        3758     A     
 DECL               MX3    1           INDICATE CHARACTER                                  FC50533        9     A     
 DECL               =B7    477777B     CMI = -300000B (CHARACTER MODE INDICATOR)           DECL        3759     A     
 DECL               MX3    1           INDICATE CHAR                                       DECL        3760          I
          -FC50533
 DECL                                                                                      FC50533       10     A     
 DECL      MCA25    IX6    X3-X4       COMPARE WITH BLOCK CHAR INDICATOR                   DECL        3761     A     
 DECL               MX3    -CT.LNKL                                                        DECL        3762     A     
 DECL               ZR     X6,MCA40    IF NO CONFLICT                                      DECL        3763     A     
 DECL                                                                                      DECL        3764     A     
 DECL     *         THIS ELEMENT CAUSES CHARACTER MODE CONFLICT IN THIS BLOCK.             DECL        3765     A     
 DECL     *         DELETE IT FROM THE BLOCK, AND SET ITS COM[WBI] = 0.                    DECL        3766     A     
 DECL     *         INDICATE ERROR BY SETTING NAC[CAI] = 1.                                DECL        3767     A     
 DECL                                                                                      DECL        3768     A     
 DECL               CLAS=  X7,WB,(COM)                                                     DECL        3769     A     
 DECL               BX6    -X7*X2      CLEAR COM[WBI] FIELD                                DECL        3770     A     
 DECL               SB3    X0          BPTER = SAVED BPTER                                 DECL        3771     A     
 DECL               SA5    A0+B3       CMB = T.COMM(BPTER)                                 DECL        3772     A     
 DECL               SA6    A2          COM[WBI] = 0                                        DECL        3773     A     
 DECL               SX7    B5                                                              DECL        3774     A     
 DECL               LX5    -CT.LNKP                                                        DECL        3775     A     
 DECL               BX6    X3*X5       CLEAR LNK[CT.] FIELD                                DECL        3776     A     
 DECL               =A4    A3-CB.W+CA.W      CAI = CA ENTRY                                DECL        3777     A     
 DECL               BX6    X6+X7       ADD IN NEW LINK                                     DECL        3778     A     
 DECL               LX6    CT.LNKP                                                         DECL        3779     A     
 DECL               CLAS=  X0,CA,(NAC)                                                     DECL        3780     A     
 DECL               BX7    X0+X4                                                           DECL        3781     A     
 DECL               SA6    A5          LNK[CMB] = CMIND                                    DECL        3782     A     
 DECL               SA7    A4          NAC[CAI] = 1                                        DECL        3783     A     
 DECL               EQ     MCA20                                                           DECL        3784     A     
 DECL                                                                                      DECL        3785     A     
 DECL     *         UPDATE BLOCK LENGTH, STORE BLOCK RELATIVE ADDRESS.                     DECL        3786     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1053    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        3787     A     
 DECL      MCA40    SA3    A3          CBI = CB ENTRY OF T.BLKS                            DECL        3788     A     
 DECL               =A5    A2-WB.W+WC.W      WCI = WC ENTRY OF T.SYM                       DECL        3789     A     
 DECL               LX3    -CB.BLENP                                                       DECL        3790     A     
 DECL               SX4    B4                                                              DECL        3791     A     
 DECL               LX4    WC.RBP                                                          DECL        3792     A     
 DECL               MX0    -CB.BLENL                                                       DECL        3793     A     
 DECL               BX6    -X0*X3      BLENI = BLEN[CBI]                                   DECL        3794     A     
 DECL               LX1    CT.TAGP-CT.RAP                                                  DECL        3795     A     
 DECL               BX7    X1+X6                                                           DECL        3796     A     
 DECL               LX7    CT.RAP                                                          DECL        3797     A     
 DECL               LX6    WC.RAP                                                          DECL        3798     A     
 DECL               IX6    X4+X6                                                           DECL        3799     A     
 DECL               SA7    A1          RA[CMI] = BLENI[CT.]                                DECL        3800     A     
 DECL               MX4    -WB.PNTL                                                        DECL        3801     A     
 DECL               BX6    X6+X5                                                           DECL        3802     A     
 DECL               SA6    A5          (RB,RA) [WCI] = (RBI,BLENI) [WC.]                   DECL        3803     A     
 DECL               BX1    X2                                                              DECL        3804     A     
 DECL               LX2    -WB.PNTP                                                        DECL        3805     A     
 DECL               BX0    -X4*X2      DTIND = PNT[WBI]                                    DECL        3806     A     
 DECL                                                                                      DECL        3807     A     
 DECL     *         FETCH ARRAY LENGTH FROM T.DIM ENTRY AND UPDATE                         DECL        3808     A     
 DECL     *                BLEN[CBI] = BELN[CBI] + ARRAY LENGTH.                           DECL        3809     A     
 DECL     *         FOR CHARACTER ITEM, ARRAY LENGTH = ARRAY LENGTH * CLEN[WCI]            DECL        3810     A     
 DECL     *         (X5) = DTA, DIMENSION TABLE ENTRY OF THIS COMMON ELEMENT               DECL        3811     A     
 DECL     *         (B7) = CMI                                                             DECL        3812     A     
 DECL     *         A3,(X3) = CBI                                                          DECL        3813     A     
 DECL                                                                                      DECL        3814     A     
 DECL      MCA70    SA5    X0+B2       DTI = T.DIM(DTIND)                                  DECL        3815     A     
 DECL               LX5    -DH.PSP                                                         DECL        3816     A     
 DECL               MX7    -DH.PSL                                                         DECL        3817     A     
 DECL               BX4    -X7*X5      CMLEN = SIZ[DIT]                                    DECL        3818     A     
 DECL               MX2    -0          FOR TWO WORD ELEMENTS                               DECL        3819     A     
 DECL               SX1    B7-M.DBL                                                        DECL        3820     A     
 DECL               ZR     X1,MCA90    IF MODE DOUBLE                                      DECL        3821     A     
 DECL               SX1    X1+M.DBL-M.CPLX                                                 DECL        3822     A     
 DECL               ZR     X1,MCA90    IF MODE COMPLEX                                     DECL        3823     A     
 DECL               SX2    0           FOR ONE WORD ELEMENTS                               DECL        3824     A     
 DECL               GE     B7,B0,MCA90 IF CMI .GE. 0 (IF NOT MODE CHARACTER)               DECL        3825     A     
 DECL               SA5    A2-WB.W+WC.W      WCI = WC ENTRY                                DECL        3826     A     
 DECL               HX5    WC.CLEN                                                         DECL        3827     A     
 DECL               AX5    -WC.CLENL                                                       DECL        3828     A     
 DECL               IX4    X4*X5       CMLEN = CMLEN * CLEN[WCI]                           DECL        3829     A     
 DECL                                                                                      DECL        3830     A     
 DECL      .TEST    IFEQ   TEST,ON                                                         DECL        3831     A     
 DECL               ZR     X5,"BLOWUP" IF CLEN .EQ. 0                                      DECL        3832     A     
 DECL               LX4    -CB.BLENL                                                       DECL        3833     A     
 DECL               AX4    -CB.BLENL                                                       DECL        3834     A     
 DECL               MI     X4,"BLOWUP" CHARACTER BLOCK LENGTH TOO LONG                     DECL        3835     A     
 DECL      .TEST    ENDIF                                                                  DECL        3836     A     
 DECL                                                                                      DECL        3837     A     
 DECL      MCA90    BX2    X2*X4                                                           DECL        3838     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1054    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               IX4    X2+X4       CMLEN = 2 * CMLEN IF DOUBLE                         DECL        3839     A     
 DECL               MX1    -CB.BLENL                                                       DECL        3840     A     
 DECL               BX7    X1*X3                                                           DECL        3841     A     
 DECL               BX3    -X1*X3      BLEN = BLEN[CBI]                                    DECL        3842     A     
 DECL               IX4    X3+X4       BLEN = BLEN + CMLEN                                 DECL        3843     A     
 DECL               BX6    -X1*X4      TRUNCATE TO CB.BLENL                                DECL        3844     A     
 DECL               BX6    X7+X6                                                           DECL        3845     A     
 DECL               LX6    CB.BLENP                                                        DECL        3846     A     
 DECL               SA6    A3          BLEN[CBI] = BLEN[CBI] + CMLEN                       DECL        3847     A     
 DECL               EQ     MCA20                                                           DECL        3848     A     
 DECL      MCA99    BSS    0                                                               DECL        3849     A     
 DECL      SNAP=B   IFNE   TEST                                                            DECL        3850     A     
 DECL               SA3    CO.SNAP                                                         DECL        3851     A     
 DECL               LX3    1RB                                                             DECL        3852     A     
 DECL               PL     X3,MCA99S   IF BLOCK TABLE SNAP NOT SELECTED                    DECL        3853     A     
 DECL      MCA.99   DUMPT  BLKS                                                            DECL        3854     A     
 DECL      MCA99S   BSS    0                                                               DECL        3855     A     
 DECL      SNAP=B   ENDIF                                                                  DECL        3856     A     
 DECL                                                                                      DECL        3857     A     
 DECL               EQ     EXIT.                                                           DECL        3858     A     
 DECL      MFR      SPACE  3,10                                                            DECL        3859     A     
 DECL     **        MFR -  MARK FUNCTION AS REFERENCED                                     DECL        3860     A     
 DECL     *                                                                                DECL        3861     A     
 DECL     *         IF COMPILING A FUNCTION THIS ROUTINE WILL SET WB.1REF                  DECL        3862          I
          -FC5A191
 DECL     *         IF COMPILING A FUNCTION, THIS ROUTINE WILL SET WB.MDF                  FC5A191       17     A     
 DECL     *         ON THE VALUE. SYMBOL CORRESPONDING TO THE MODE OF                      DECL        3863     A     
 DECL     *         THE FUNCTION.                                                          DECL        3864     A     
 DECL     *                                                                                DECL        3865     A     
 DECL     *         USES   X - 0,1,2,6  A - 1,2,6  B - 2                                   DECL        3866     A     
 DECL                                                                                      DECL        3867     A     
 DECL      MFR      SUBR               ...ENTRY/EXIT...                                    DECL        3868     A     
 DECL               SA1    MOD                                                             DECL        3869     A     
 DECL               HX1    MO.FUN                                                          DECL        3870     A     
 DECL               PL     X1,EXIT.    IF NOT COMPILING A FUNCTION                         DECL        3871     A     
 DECL               SA2    S=VALUE                                                         DECL        3872     A     
 DECL               LX1    MO.FUNP+1-MO.MODEP                                              DECL        3873     A     
 DECL               MX0    -MO.MODEL                                                       DECL        3874     A     
 DECL               BX1    -X0*X1      ISOLATE FUNCTION MODE                               DECL        3875     A     
 DECL               IX1    X1+X2       X1 = SYMORD OF PROPER VALUE. SYMBOL                 DECL        3876     A     
 DECL               SB2    X1                                                              DECL        3877     A     
 DECL               LX1    1                                                               DECL        3878     A     
 DECL               SX1    X1+B2       CONVERT TO INDEX                                    DECL        3879     A     
 DECL               SA2    T.SYM                                                           DECL        3880     A     
 DECL               SB2    X1+WB.W                                                         DECL        3881     A     
 DECL               SA2    X2+B2       *WB* OF PROPER VALUE. SYMBOL                        DECL        3882     A     
 DECL               LDBIT  X1,WB.1REFP                                                     DECL        3883          I
          -FC5A191
 DECL               LDBIT  X1,WB.MDFP                                                      FC5A191       18     A     
 DECL               BX6    X1+X2                                                           DECL        3884     A     
 DECL               SA6    A2          SET 1REF *DEFINITION REQUIRED* FLAG                 DECL        3885     A     
 DECL               EQ     EXIT.                                                           DECL        3886     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1055    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      PCF      SPACE  4,10                                                            DECL        3887     A     
 DECL     **        PCF -  PROCESS CHARACTER/FORMAL PARAMETER INTERACTION                  DECL        3888     A     
 DECL     *                                                                                DECL        3889     A     
 DECL     *         IF THE MAIN ENTRY (FUNCTION ONLY) IS TYPE CHARACTER, THE               DECL        3890     A     
 DECL     *         CORRESPONDING VALUE. IS MADE THE FIRST FORMAL PARAMETER.  ANY          DECL        3891     A     
 DECL     *         FORMAL PARAMETER WITH ASSUMED CHARACTER LENGTH WILL HAVE A             DECL        3892     A     
 DECL     *         VARDIM TURPLE ASSOCIATED WITH IT.                                      DECL        3893     A     
 DECL     *                                                                                DECL        3894     A     
 DECL     *         CALLS  ACV, ALC                                                        DECL        3895          I
          -FC50512
 DECL     *         CALLS  ACV, ADW, ALC, MVE=                                             FC50512       25     A     
 DECL                                                                                      DECL        3896     A     
 DECL                                                                                      DECL        3897     A     
 DECL      PCF      SUBR               ...ENTRY/EXIT...                                    DECL        3898     A     
 DECL               SA1    CHARDCL                                                         DECL        3899     A     
 DECL               ZR     X1,EXIT.    IF NO CHARACTER DECLARATIONS                        DECL        3900     A     
 DECL               SA1    S=ENTRY                                                         DECL        3901     A     
 DECL               SA2    T.SYM                                                           DECL        3902     A     
 DECL               SB2    X1                                                              DECL        3903     A     
 DECL               LX1    1                                                               DECL        3904     A     
 DECL               SX1    X1+B2       CONVERT ORDINAL TO INDEX                            DECL        3905     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3906     A     
 DECL               =B2    X1-WA.W+WB.W                                                    DECL        3907     A     
 DECL               SA1    X2+B2       FETCH MAIN ENTRY *WB*                               DECL        3908     A     
 DECL               MX0    -WB.MODEL                                                       DECL        3909     A     
 DECL               LX1    -WB.MODEP                                                       DECL        3910     A     
 DECL               BX0    -X0*X1      EXTRACT MODE                                        DECL        3911     A     
 DECL               SB2    X0-M.CHAR                                                       DECL        3912     A     
 DECL               NZ     B2,PCF5     IF MAIN ENTRY NOT TYPE CHARACTER                    DECL        3913          I
          -FC50773
 DECL               NZ     B2,PCF6     IF MAIN ENTRY NOT TYPE CHARACTER                    FC50773       14     A     
 DECL               SA3    A1-WB.W+WC.W      *WC* OF MAIN ENTRY                            DECL        3914          I
          -FC50512
 DECL               =A3    A1-WB.W+WC.W                                                    FC50512       26     A     
 DECL               MX0    -WC.CLIFL                                                       DECL        3915     A     
 DECL               LX3    -WC.CLIFP                                                       DECL        3916     A     
 DECL               BX3    -X0*X3      ISOLATE CLIF OF MAIN ENTRY                          DECL        3917     A     
 DECL               SA5    S=VALUE                                                         DECL        3918     A     
 DECL               SA4    T.SYM                                                           DECL        3919     A     
 DECL               SX5    X5+M.CHAR                                                       DECL        3920     A     
 DECL               SB2    X5                                                              DECL        3921     A     
 DECL               LX1    X5,B1                                                           DECL        3922     A     
 DECL               SX1    X1+B2       CONVERT ORDINAL TO INDEX                            DECL        3923     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3924     A     
 DECL               =B2    X1-WA.W+WB.W                                                    DECL        3925     A     
 DECL               SA2    B2+X4       FETCH VALUE. *WB*                                   DECL        3926     A     
 DECL               CLAS=  X6,WB,(FP)                                                      DECL        3927     A     
 DECL               BX6    X2+X6       VALUE. BECOMES A FORMAL PARAMETER                   DECL        3928     A     
 DECL               SA1    MOD                                                             DECL        3929     A     
 DECL               LX3    MO.CLIFP                                                        DECL        3930     A     
 DECL               BX7    X1+X3                                                           DECL        3931     A     
 DECL               SA7    A1          PROPAGATE CLIF TO MOD                               DECL        3932     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1056    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA1    A2-WB.W+WC.W      *WC* OF VALUH.                                DECL        3933     A     
 DECL               LX3    WC.CLIFP-MO.CLIFP                                               DECL        3934     A     
 DECL               BX7    X1+X3                                                           DECL        3935     A     
 DECL               SA7    A1          PROPAGATE CLIF TO VALUH.                            DECL        3936     A     
 DECL               CLAS=  X3,WB,(EQV,BASE)                                                DECL        3937     A     
 DECL               BX6    -X3*X6                                                          DECL        3938     A     
 DECL               SA6    A2                                                              DECL        3939     A     
 DECL               ALLOC  T.FPI,1     NEED A NEW ENTRY FOR VALUE.                         DECL        3940     A     
 DECL               BX6    X5                                                              DECL        3941          I
          -FC5A128
 DECL               =A6    X1-1        VALUE. BECOMES FPNO 1                               DECL        3942          I
          -FC5A128
 DECL               ERRMI  1-FUDGE     NEED ONE WORD BETWEEN TABLES FOR THIS               DECL        3943          I
          -FC5A128
 DECL               SX7    A6                                                              DECL        3944          I
          -FC5A128
 DECL               SA7    A1          RESET T.FPI TO REFLECT NEW BASE                     DECL        3945          I
          -FC5A128
 DECL               =X1    1                                                               DECL        3946          I
          -FC5A128
 DECL               LX1    WB.FPNOP                                                        DECL        3947          I
          -FC5A128
 DECL               =B4    X2-1        LAST FORMAL PARAMETER                               DECL        3948          I
          -FC5A128
 DECL      PCF1     SA2    X7+B4       FETCH FORMAL PARAMETER ORDINAL                      DECL        3949          I
          -FC5A128
 DECL               BX3    X1                                                              FC5A128      315     A     
 DECL               SX1    X2-1        COUNT (LESS NEW CELL)                               FC5A128      316     A     
 DECL               BX2    X3          SOURCE                                              FC5A128      317     A     
 DECL               =X3    X2+1        DESTINATION                                         FC5A128      318     A     
 DECL               SB4    X1          SAVE COUNT                                          FC5A128      319     A     
 DECL               MOVE   X1,X2,X3    MAKE ROOM FOR NEW FPNO 1                            FC5A128      320     A     
 DECL               SA1    T.FPI                                                           FC5A128      321     A     
 DECL               BX6    X5                                                              FC5A128      322     A     
 DECL               SA6    X1          VALUE. BECOMES FPNO 1                               FC5A128      323     A     
 DECL               =X7    1                                                               FC5A128      324     A     
 DECL               LX7    WB.FPNOP                                                        FC5A128      325     A     
 DECL               SA4    T.SYM                                                           FC5A128      326     A     
 DECL                                                                                      FC50512       27     A     
 DECL      PCF1     SA2    X1+B4                                                           FC5A128      327     A     
 DECL               SB2    X2                                                              DECL        3950     A     
 DECL               LX2    1                                                               DECL        3951     A     
 DECL               SX2    B2+X2       CONVERT ORDINAL TO INDEX                            DECL        3952     A     
 DECL               ERRNZ  3-Z=SYM                                                         DECL        3953     A     
 DECL               =B2    X2-WA.W+WB.W                                                    DECL        3954     A     
 DECL               SA3    X4+B2       FETCH FORMAL PARAMETER *WB*                         DECL        3955     A     
 DECL               IX6    X1+X3       INCREMENT FORMAL PARAMETER NUMBER                   DECL        3956          I
          -FC5A128
 DECL               IX6    X7+X3       INCREMENT FORMAL PARAMETER NUMBER                   FC5A128      328     A     
 DECL               SA6    A3                                                              DECL        3957     A     
 DECL               =B4    B4-1                                                            DECL        3958     A     
 DECL               PL     B4,PCF1     IF NOT FINISHED                                     DECL        3959     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1057    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      FC50512       28     A     
 DECL     *         IF ASSUMED SIZE, MUST INSERT ENTRY FOR VALUH. INTO T.ENTP AND          FC50512       29     A     
 DECL     *         ADJUST EXISTING ENTRIES.                                               FC50512       30     A     
 DECL                                                                                      FC50512       31     A     
 DECL               SA1    MOD                                                             FC50512       32     A     
 DECL               SBIT   X1,MO.CTYPP                                                     FC50512       33     A     
 DECL               PL     X1,PCF5     IF NOT ASSUMED SIZE                                 FC50512       34          I
          -FC50773
 DECL               PL     X1,PCF6     IF NOT ASSUMED SIZE                                 FC50773       15     A     
 DECL               SA1    T.ENTP                                                          FC50512       35     A     
 DECL               SA2    T=ENTP                                                          FC50512       36     A     
 DECL               =B4    X2-1        COUNT EF. WORDS ONLY                                FC50512       37          I
          -FC50773
 DECL               NZ     X2,PCF2     IF NOT NULL PARAMETER LIST                          FC50773       16     A     
 DECL               =X6    1                                                               FC50773       17     A     
 DECL               LX6    EH.FPCP     COUNT IS ONE                                        FC50773       18     A     
 DECL               =X0    1                                                               FC50773       19     A     
 DECL               LX0    EH.BIASP    CPL. BIAS WILL BE 1                                 FC50773       20     A     
 DECL               BX6    X6+X1       FORM EH.                                            FC50773       21     A     
 DECL               ADDWD  T.ENTP                                                          FC50773       22     A     
 DECL               SA1    S=VALUE                                                         FC50773       23     A     
 DECL               SX6    X1+M.CHAR   VALUE.H                                             FC50773       24     A     
 DECL               LX6    EF.ORDP                                                         FC50773       25     A     
 DECL               ADDWD  T.ENTP      EF. WORD                                            FC50773       26     A     
 DECL               =X6    2                                                               FC50773       27     A     
 DECL               SA6    N.CPL                                                           FC50773       28     A     
 DECL               EQ     PCF6                                                            FC50773       29     A     
 DECL                                                                                      FC50773       30     A     
 DECL      PCF2     =B4    X2-1        COUNT EF. WORDS ONLY                                FC50773       31     A     
 DECL               =B7    X1+1        POINT TO FIRST EF. WORD                             FC50512       38     A     
 DECL               SA1    X1          FETCH HEADER (EH. WORD)                             FC50512       39     A     
 DECL               SX6    1                                                               FC50512       40     A     
 DECL               LX1    -EH.FPCP                                                        FC50512       41     A     
 DECL               MX0    -EH.FPCL                                                        FC50512       42     A     
 DECL               IX6    X6+X1       INCREMENT FP COUNT                                  FC50512       43     A     
 DECL               BX0    -X0*X6      EXTRACT COUNT                                       FC50512       44     A     
 DECL               LX6    EH.FPCP                                                         FC50512       45     A     
 DECL               SX1    1                                                               FC50962       20          I
          -FC51250
 DECL               IX6    X6+X1       SET CPL. BIAS TO 1                                  FC50962       21          I
          -FC51250
 DECL               SA6    A1          UPDATE                                              FC50512       46     A     
 DECL               =X0    X0+1        INCREMENT FOR THE MANDATORY NULL ELEMENT            FC50512       47     A     
 DECL               MX1    -2                                                              FC50512       48     A     
 DECL               BX1    -X1*X0      FOR MOD4 ARITHMETIC                                 FC50512       49     A     
 DECL               AX0    2                                                               FC50512       50     A     
 DECL               SB6    X0                                                              FC50512       51     A     
 DECL               ZR     X1,PFC2     IF PARCELED EXACTLY                                 FC50512       52          I
          -FC50773
 DECL               ZR     X1,PCF3     IF PARCELLED EXACTLY                                FC50773       32     A     
 DECL               =B6    B6+1                                                            FC50512       53     A     
 DECL                                                                                      FC50512       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1058    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      PFC2     EQ     B6,B4,PFC3  IF NO ALLOCATION NEEDED                             FC50512       55          I
          -FC50773
 DECL      PCF3     EQ     B6,B4,PCF4  IF NO ALLOCATION NEEDED                             FC50773       33     A     
 DECL               MX6    0                                                               FC50512       56     A     
 DECL               ADDWD  T.ENTP      ADD NEW WORD                                        FC50512       57     A     
 DECL               =B7    X1+1        POINT TO FIRST EF. WORD                             FC50512       58     A     
 DECL               =B4    X2-1        COUNT EF. WORDS ONLY                                FC50512       59     A     
 DECL                                                                                      FC50512       60     A     
 DECL      PFC3     SA1    S=VALUE                                                         FC50512       61          I
          -FC50773
 DECL      PCF4     SA1    N.CPL                                                           FC50773       34     A     
 DECL               =X6    X1+1        INCREMENT                                           FC50773       35     A     
 DECL               SA6    A1                                                              FC50773       36     A     
 DECL               SA1    S=VALUE                                                         FC50773       37     A     
 DECL               SX1    X1+M.CHAR   FIRST 'CARRY OVER' IS VALUH.                        FC50512       62     A     
 DECL                                                                                      FC50512       63     A     
 DECL      PFC4     SA2    B7          FETCH EF. WORD                                      FC50512       64          I
          -FC50773
 DECL      PCF5     SA2    B7          FETCH EF. WORD                                      FC50773       38     A     
 DECL               LX1    EF.ORDP     POSITION CARRY OVER                                 FC50512       65     A     
 DECL               MX0    -EF.ORDL                                                        FC50512       66     A     
 DECL               BX0    -X0*X2                                                          FC50512       67     A     
 DECL               AX2    EF.ORDL     DROP ONE ENTRY                                      FC50512       68     A     
 DECL               BX6    X1+X2       ADD IN CARRY OVER                                   FC50512       69     A     
 DECL               SA6    A2                                                              FC50512       70     A     
 DECL               =B7    B7+1        INCREMENT POINTER                                   FC50512       71     A     
 DECL               =B4    B4-1        DECREMENT COUNT                                     FC50512       72     A     
 DECL               BX1    X0          CARRY OVER FOR NEXT EF. WORD                        FC50512       73     A     
 DECL               NZ     B4,PFC4     IF MORE ADJUSTMENT                                  FC50512       74          I
          -FC50773
 DECL               NZ     B4,PCF5     IF MORE ADJUSTMENT                                  FC50773       39     A     
 DECL                                                                                      DECL        3960     A     
 DECL     *         TEST FOR ASSUMED LENGTH CHARACTER                                      DECL        3961     A     
 DECL                                                                                      DECL        3962     A     
 DECL      PCF5     SA2    T=FPI                                                           DECL        3963          I
          -FC50773
 DECL      PCF6     SA2    T=FPI                                                           FC50773       40     A     
 DECL               SA3    T.FPI                                                           DECL        3964     A     
 DECL               ZR     X2,EXIT.    IF NO FORMAL PARAMETERS                             DECL        3965     A     
 DECL               SB4    X2-1        LAST T.PFI ELEMENT                                  DECL        3966     A     
 DECL                                                                                      FC50512       75     A     
 DECL      PCF10    SA1    X3+B4       FORMAL PARAMETER INFORMATION (ORDINAL)              DECL        3967     A     
 DECL               RJ     ACV         PROCESS FOR ASSUMED LENGTH CHARACTER                DECL        3968     A     
 DECL               SA1    MOD                                                             DECL        3969     A     
 DECL               MX0    -MO.CLIFL                                                       DECL        3970     A     
 DECL               LX1    -MO.CLIFP                                                       DECL        3971     A     
 DECL               BX1    -X0*X1      ISOLATE CLIF                                        DECL        3972     A     
 DECL               SA2    S=VALUE     SYMORD OF VALUE.                                    DECL        3973     A     
 DECL               SA4    T.SYM                                                           DECL        3974     A     
 DECL               =X2    X2+M.CHAR   SYMORD OF VALUH.                                    DECL        3975     A     
 DECL               SB2    X2                                                              DECL        3976     A     
 DECL               LX2    1                                                               DECL        3977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1059    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB2    X2+B2       CONVERT TO INDEX                                    DECL        3978     A     
 DECL               SB2    B2-WA.W+WC.W                                                    DECL        3979     A     
 DECL               SA2    X4+B2       *WC* OF VALUH.                                      DECL        3980     A     
 DECL               LX1    WC.CLIFP                                                        DECL        3981     A     
 DECL               BX6    X2+X1                                                           DECL        3982     A     
 DECL               SA6    A2          RESET WC.CLIF OF VALUH.                             DECL        3983     A     
 DECL               SA3    T.FPI                                                           DECL        3984     A     
 DECL               SB4    B4-1                                                            DECL        3985     A     
 DECL               PL     B4,PCF10    IF NOT FINISHED                                     DECL        3986     A     
 DECL               EQ     EXIT.                                                           DECL        3987     A     
 DECL      PKS      SPACE  4,10                                                            DECL        3988     A     
 DECL     **        PKS -  PARSE CONSTANT SUBSTRING.                                       DECL        3989     A     
 DECL     *                                                                                DECL        3990     A     
 DECL     *         ENTRY  (B4) _ SUBSTRING LEFT PAREN                                     DECL        3991     A     
 DECL     *                (X1) = WB INDEX OF VARIABLE                                     DECL        3992     A     
 DECL     *                (FILL.) = VARIABLE NAME FOR DIAGNOSTICS                         DECL        3993     A     
 DECL     *                                                                                DECL        3994     A     
 DECL     *         EXIT   (B4) _ TOKEN AFTER SUBSTRING RIGHT PAREN.                       DECL        3995     A     
 DECL     *                (X5) = SUBSTRING FIRST                                          DECL        3996     A     
 DECL     *                (X6) = SUBSTRING LAST                                           DECL        3997     A     
 DECL     *                FIRST AND LAST ARE GUARANTEED TO BE LEGITIMATE.                 DECL        3998     A     
 DECL     *                                                                                DECL        3999     A     
 DECL     *         USES   ALL.                                                            DECL        4000     A     
 DECL     *                                                                                DECL        4001     A     
 DECL     *         CALLS  FATAL,PIX.                                                      DECL        4002     A     
 DECL                                                                                      DECL        4003     A     
 DECL      PKS      SUBR               ...ENTRY/EXIT...                                    DECL        4004     A     
 DECL               SA4    B4                                                              DECL        4005     A     
 DECL               MX6    -TB.IOCPL                                                       DECL        4006     A     
 DECL               LX4    -TB.IOCPP                                                       DECL        4007     A     
 DECL               BX6    -X6*X4      PNTRP = IOCP(TOKEN)                                 DECL        4008     A     
 DECL               LX4    TB.IOCPP-1-TB.COLP                                              DECL        4009     A     
 DECL               SA6    PKSA+1      (PKSA+1) = PNTRP                                    DECL        4010     A     
 DECL               PL     X4,PKS80    IF THERE IS NO COLON                                DECL        4011     A     
 DECL               =A4    B4+1                                                            DECL        4012     A     
 DECL               =B4    B4+1                                                            DECL        4013     A     
 DECL               SB2    X4-O.COLON                                                      DECL        4014     A     
 DECL               =X6    1           FIRST = 1                                           DECL        4015     A     
 DECL               ZR     B2,PKS30    IF SUBSTRING FIRST OMITTED                          DECL        4016     A     
 DECL               CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION                   DECL        4017     A     
 DECL                                                                                      DECL        4018     A     
 DECL      PKS30    SA6    PKSA        (PKSA) = FIRST                                      DECL        4019     A     
 DECL               SA2    B4                                                              DECL        4020     A     
 DECL               =B4    B4+1                                                            DECL        4021     A     
 DECL               SB7    X2-O.COLON                                                      DECL        4022     A     
 DECL               NZ     B7,PKS80    IF NEXT NOT COLON                                   DECL        4023     A     
 DECL               SA4    B4                                                              DECL        4024     A     
 DECL               SB2    X4-O.RP                                                         DECL        4025     A     
 DECL               =X6    1                                                               DECL        4026     A     
 DECL               LX6    18          X6 = POSITIVE LARGE NUMBER                          DECL        4027     A     
 DECL               ZR     B2,PKS40    IF SUBSTRING LAST OMITTED                           DECL        4028     A     
 DECL               CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION                   DECL        4029     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1060    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        4030     A     
 DECL      PKS40    SA2    B4                                                              DECL        4031     A     
 DECL               SB7    X2-O.RP                                                         DECL        4032     A     
 DECL               NZ     B7,PKS80    IF NO RIGHT PAREN                                   DECL        4033     A     
 DECL               =B4    B4+1        ADVANCE CURSOR PAST SUBSTRING RP                    DECL        4034     A     
 DECL               SA5    PKSA        X5 = FIRST                                          DECL        4035     A     
 DECL               =X0    1                                                               DECL        4036     A     
 DECL               IX3    X5-X0                                                           DECL        4037     A     
 DECL               IX4    X6-X0                                                           DECL        4038     A     
 DECL               BX3    X3+X4       MI IFF FIRST OR LAST NOT POSITIVE                   DECL        4039     A     
 DECL               IX0    X6-X5       MI IFF FIRST GT LAST                                DECL        4040     A     
 DECL               BX0    X0+X3                                                           DECL        4041     A     
 DECL               PL     X0,EXIT.    IF NO ERROR                                         DECL        4042     A     
 DECL               FATAL  E.AT16                                                          DECL        4043     A     
 DECL               =X5    1                                                               DECL        4044     A     
 DECL               =X6    1                                                               DECL        4045     A     
 DECL               EQ     EXIT.                                                           DECL        4046     A     
 DECL                                                                                      DECL        4047     A     
 DECL     *         SYNTAX ERROR OCCURED IN THIS SUBSTRING EXPRESSION,                     DECL        4048     A     
 DECL     *         DIAGNOSE, SET DEFAULT AND EXIT.                                        DECL        4049     A     
 DECL                                                                                      DECL        4050     A     
 DECL      PKS80    FATAL  E.ST        SYNTAX ERROR                                        DECL        4051     A     
 DECL               =A1    PKSA+1                                                          DECL        4052     A     
 DECL               =B4    X1+1        ADVANCE PAST CLOSING RIGHT PAREN                    DECL        4053     A     
 DECL               =X5    1                                                               DECL        4054     A     
 DECL               =X6    1                                                               DECL        4055     A     
 DECL               EQ     EXIT.                                                           DECL        4056     A     
 DECL                                                                                      DECL        4057     A     
 DECL      PKSA     BSS    2           SAVE SUBSTRING RESULT AND CLOSING RP                DECL        4058     A     
 DECL      PSC      SPACE  4,10                                                            DECL        4059     A     
 DECL     **        PSC - PROPAGATE SAVE BIT THROUGH COMMON.                               DECL        4060     A     
 DECL     *                                                                                DECL        4061     A     
 DECL     *         ENTRY - COMMON,EQUIVALENCE PROCESSING COMPLETED.                       DECL        4062     A     
 DECL     *                EXPLICIT SAVE DECLARATION OF COMMON ELEMENT HAVE BEEN           DECL        4063     A     
 DECL     *                DIAGNOSED.                                                      DECL        4064     A     
 DECL     *         EXIT - ALL COMMON ELEMENT BELONGIN TO A SAVE DECALRED                  DECL        4065          I
          -FC50773
 DECL     *                                                                                FC50773       41     A     
 DECL     *         EXIT - ALL COMMON ELEMENTS BELONGING TO A SAVE DECLARED                FC50773       42     A     
 DECL     *                COMMON BLOCK HAVE SAVE[WB.] = 1.                                DECL        4066     A     
 DECL                                                                                      DECL        4067     A     
 DECL                                                                                      DECL        4068     A     
 DECL      PSC      SUBR               ...ENTRY/EXIT...                                    DECL        4069     A     
 DECL               SA1    SAVE                                                            DECL        4070     A     
 DECL               SA3    USAVE                                                           DECL        4071     A     
 DECL               SA2    T=SYM                                                           DECL        4072     A     
 DECL               ZR     X1,EXIT.    IF NO EXPLICIT SAVE DECLARATION                     DECL        4073     A     
 DECL               NZ     X3,EXIT.    IF UNIVERSAL SAVE                                   DECL        4074     A     
 DECL               SA4    T.SYM                                                           DECL        4075     A     
 DECL               SA1    T.BLKS                                                          DECL        4076     A     
 DECL               SB6    X2                                                              DECL        4077     A     
 DECL               SB4    X1+CB.W                                                         DECL        4078     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1061    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =B3    Z=SYM                                                           DECL        4079     A     
 DECL               =A5    X4+WB.W                                                         DECL        4080     A     
 DECL               CLAS=  X2,WB,(COM)                                                     DECL        4081     A     
 DECL               MX0    -WC.RBL                                                         DECL        4082     A     
 DECL               CLAS=  X4,CB,(SAVE)                                                    DECL        4083     A     
 DECL      PSC10    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                             DECL        4084     A     
 DECL               SB6    B6-B3                                                           DECL        4085     A     
 DECL               ZR     B6,EXIT.    IF END OF T.SYM                                     DECL        4086     A     
 DECL               BX6    X2*X5       COMI = COM[WBI]                                     DECL        4087     A     
 DECL               =A1    A5+WC.W-WB.W                                                    DECL        4088     A     
 DECL               SBIT   X5,WB.LABP                                                      DECL        4089     A     
 DECL               MI     X5,PSC10    IF LABEL                                            DECL        4090     A     
 DECL               ZR     X6,PSC10    IF NOT COMMON                                       DECL        4091     A     
 DECL               LX1    -WC.RBP                                                         DECL        4092     A     
 DECL               BX1    -X0*X1      RBI = RB[WCI]                                       DECL        4093     A     
 DECL               SA3    X1+B4       CBI = T.BLKS(RBI) + CB.W                            DECL        4094     A     
 DECL               BX3    X4*X3       SAVEI = SAVE[CBI]                                   DECL        4095     A     
 DECL               LX5    1+WB.LABP                                                       DECL        4096     A     
 DECL               LX3    WB.SAVEP-CB.SAVEP                                               DECL        4097     A     
 DECL               BX6    X5+X3                                                           DECL        4098     A     
 DECL               SA6    A5          SAVE[WBI] = SAVE[CBI]                               DECL        4099     A     
 DECL               EQ     PSC10                                                           DECL        4100     A     
 DECL      SAS      SPACE  4,10                                                            DECL        4101     A     
 DECL     **        SAS -  SCAN ARRAY SIZES.                                               DECL        4102     A     
 DECL     *                                                                                DECL        4103     A     
 DECL     *         RESPONSIBLE FOR ISSUING FATAL ERROR FOR EVERY                          DECL        4104     A     
 DECL     *         ARRAY WHOSE SIZE EXCEEDS THE MAXIMUM ALLOWED.                          DECL        4105     A     
 DECL     *                                                                                DECL        4106     A     
 DECL     *         CALLS  GPS,PDM.                                                        DECL        4107     A     
 DECL     *                                                                                DECL        4108     A     
 DECL     *         USES   X - ALL  A - 1,2,3,4,5,7  B - 2,3,5,6,7.                        DECL        4109     A     
 DECL                                                                                      DECL        4110     A     
 DECL      SAS      SUBR               ...ENTRY/EXIT...                                    DECL        4111     A     
 DECL               SA2    T=SYM                                                           DECL        4112     A     
 DECL               SA4    T.SYM                                                           DECL        4113     A     
 DECL               =B3    Z=SYM                                                           DECL        4114     A     
 DECL               SB5    X2          B5 = LENGTH OF SYMTAB                               DECL        4115     A     
 DECL               =A4    X4-Z=SYM+WB.W                                                   DECL        4116     A     
 DECL               =B6    -1          INITIAL SYMTAB ORDINAL                              DECL        4117     A     
 DECL               SA5    CO.LCM                                                          DECL        4118     A     
 DECL               MX6    WA.SYML                                                         DECL        4119     A     
 DECL                                                                                      DECL        4120     A     
 DECL      SAS10    SA4    A4+B3                                                           DECL        4121     A     
 DECL               ZR     B5,EXIT.    IF TABLE EXHAUSTED                                  DECL        4122     A     
 DECL               HX4    WB.ARY                                                          DECL        4123     A     
 DECL               IFEQ   TEST,ON,1                                                       DECL        4124     A     
 DECL               MI     B5,"BLOWUP" IF SYMTAB LENGTH NOT MULTIPLE OF Z=SYM              DECL        4125     A     
 DECL               SB5    B5-B3                                                           DECL        4126     A     
 DECL               =B6    B6+1                                                            DECL        4127     A     
 DECL               PL     X4,SAS10    IF NOT AN ARRAY                                     DECL        4128     A     
 DECL               CALL   GPS         GET PRODUCT OF SPANS                                DECL        4129     A     
 DECL               LX4    WB.ARYP-WB.LCMP                                                 DECL        4130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1062    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX0    X4*X5                                                           DECL        4131     A     
 DECL               SB2    E.DM19                                                          DECL        4132     A     
 DECL               SX7    MAX.SPCM                                                        DECL        4133     A     
 DECL               PL     X0,SAS20    IF X7,B2 ARE CORRECT                                DECL        4134     A     
 DECL               SB2    E.DM20                                                          DECL        4135     A     
 DECL               SA1    SASA                                                            DECL        4136     A     
 DECL               BX7    X1                                                              DECL        4137     A     
 DECL                                                                                      DECL        4138     A     
 DECL      SAS20    IX0    X7-X2                                                           DECL        4139     A     
 DECL               PL     X0,SAS10    IF SIZE OK                                          DECL        4140     A     
 DECL               SA1    A4-WB.W+WA.W      *WA*                                          DECL        4141     A     
 DECL               HX1    WA.SYM                                                          DECL        4142     A     
 DECL               BX7    X6*X1       ISOLATE ARRAY NAME                                  DECL        4143     A     
 DECL               SA7    FILL.                                                           DECL        4144     A     
 DECL               FATAL  B2                                                              DECL        4145     A     
 DECL               EQ     SAS10       CONTINUE                                            DECL        4146     A     
 DECL                                                                                      DECL        4147     A     
 DECL      SASA     CON    MAX.SPLC                                                        DECL        4148     A     
 DECL      VDP      SPACE  4,8                                                             DECL        4149     A     
 DECL     **        VDP -  VARIABLE DIMENSION PROCESSING                                   DECL        4150     A     
 DECL     *                                                                                DECL        4151     A     
 DECL     *         CHECK ALL VARIABLES IN SYMBOL TABLE FOR THOSE USED AS                  DECL        4152     A     
 DECL     *         SUBSCRIPTS IN ARRAYS.  IF THESE ARE FORMAL PARAMETERS OR IN            DECL        4153     A     
 DECL     *         COMMON, SET OFF THE WB.VDS BIT.  TEST FOR TYPE INTEGER.                DECL        4154     A     
 DECL     *                                                                                DECL        4155     A     
 DECL     *         CLEAR THE VD.IND FIELD FOR ALL ENTRIES IN T.VDI.                       DECL        4156     A     
 DECL                                                                                      DECL        4157     A     
 DECL      VDP      SUBR               ...ENTRY/EXIT...                                    DECL        4158     A     
 DECL               SA4    N.VD                                                            DECL        4159     A     
 DECL               SA2    T.SYM                                                           DECL        4160     A     
 DECL               ZR     X4,EXIT.    IF NO VARIABLE SUBSCRIPTS                           DECL        4161     A     
 DECL               SA3    T=SYM                                                           DECL        4162     A     
 DECL               MX7    -WB.MODEL                                                       DECL        4163     A     
 DECL               =B6    X3-Z=SYM+WB.W                                                   DECL        4164     A     
 DECL               CLAS=  X5,WB,(VDS)                                                     DECL        4165     A     
 DECL      VDP1     MI     B6,VDP3     IF LIST IS EXHAUSTED                                DECL        4166     A     
 DECL               SA3    X2+B6                                                           DECL        4167     A     
 DECL               =B6    B6-Z=SYM                                                        DECL        4168     A     
 DECL               LX3    -WB.MODEP                                                       DECL        4169     A     
 DECL               BX4    -X7*X3      EXTRACT MODE                                        DECL        4170     A     
 DECL               LX3    WB.MODEP                                                        DECL        4171     A     
 DECL               BX6    X3-X5       CLEAR WB.VDS FOR POSSIBLE REMOVAL                   DECL        4172     A     
 DECL               CLAS=  X1,WB,(COM,FP)                                                  DECL        4173     A     
 DECL               SX4    X4-M.INT                                                        DECL        4174     A     
 DECL               BX0    X1*X3                                                           DECL        4175     A     
 DECL               CLAS=  X1,WB,(ARY,LAB)                                                 DECL        4176     A     
 DECL               BX1    X1*X3                                                           DECL        4177     A     
 DECL               NZ     X1,VDP1     IF ARRAY OR STATEMENT LABEL                         DECL        4178     A     
 DECL               SBIT   X3,WB.VDSP                                                      DECL        4179     A     
 DECL               PL     X3,VDP1     IF NOT USED AS VARIABLE SUBSCRIPT OR ARRAY          DECL        4180     A     
 DECL               ZR     X0,VDP2     IF NOT FORMAL PARAMETER OR IN COMMON                DECL        4181     A     
 DECL               SA6    A3          REMOVE WB.VDS FOR THIS ENTRY                        DECL        4182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1063    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SBIT   X0,WB.FPP                                                       DECL        4183     A     
 DECL               PL     X0,VDP2     IF NOT FORMAL PARAMETER                             DECL        4184     A     
 DECL               SA1    T.FPI                                                           DECL        4185     A     
 DECL               HX6    WB.FPNO                                                         DECL        4186     A     
 DECL               AX6    -WB.FPNOL   EXTRACT FORMAL PARAMETER NUMBER                     DECL        4187     A     
 DECL               SB2    X6-1                                                            DECL        4188     A     
 DECL               SA1    X1+B2       FETCH T.FPI ENTRY                                   DECL        4189     A     
 DECL               CLAS=  X6,FP,(VDS)                                                     DECL        4190     A     
 DECL               BX6    X6+X1                                                           DECL        4191     A     
 DECL               SA6    A1          UPDATE WITH FP.VDS                                  DECL        4192     A     
 DECL      VDP2     ZR     X4,VDP1     IF TYPE INTEGER, OK                                 DECL        4193     A     
 DECL               MX1    WA.SYML                                                         DECL        4194     A     
 DECL               =A4    A3-WB.W+WA.W                                                    DECL        4195     A     
 DECL               BX6    X1*X4                                                           DECL        4196     A     
 DECL               SA6    FILL.                                                           DECL        4197     A     
 DECL               FATAL  E.DM12                                                          DECL        4198     A     
 DECL               EQ     VDP1                                                            DECL        4199     A     
 DECL                                                                                      DECL        4200     A     
 DECL     *         PROCESS T.VDI                                                          DECL        4201     A     
 DECL                                                                                      DECL        4202     A     
 DECL      VDP3     SA1    T=VDI                                                           DECL        4203     A     
 DECL               SA2    T.VDI                                                           DECL        4204     A     
 DECL               =B2    X1-1                                                            DECL        4205     A     
 DECL               MX0    VD.INDL                                                         DECL        4206     A     
 DECL               LX0    VD.INDL+VD.INDP                                                 DECL        4207     A     
 DECL      VDP4     SA1    X2+B2       FETCH T.VDI ENTRY                                   DECL        4208     A     
 DECL               BX6    -X0*X1      CLEAR VD.IND                                        DECL        4209     A     
 DECL               SA6    A1                                                              DECL        4210     A     
 DECL               =B2    B2-1                                                            DECL        4211     A     
 DECL               MI     B2,EXIT.    IF DONE                                             DECL        4212     A     
 DECL               EQ     VDP4        CONTINUE LOOP                                       DECL        4213     A     
 DECL               SPACE  4,8                                                             DECL        4214     A     
 DECL               LIST   D                                                               DECL        4215     A     
 DECL               END                                                                    DECL        4216     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DECL    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DECL                      4216      3991
          FC5A114                      1         0
          FC5A126                      2         2
          FC5A128                     22        22
          FC5A132                      5         4
          FC5A156                      1         1
          FC5A184                      4         4
          FC5A191                      2         2
          FC5A192                      8         4
          FC5A194                      1         1
          FC5A195                     29        24
          F1037F5                     21        18
          FC5A217                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1064    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          FC5A225                      6         4
          FC5A231                     41        41
          FC50069                     12        12
          FC50110                      2         2
          FC50156                      6         6
          FC5A274                      9         9
          FC5A278                      9         9
          FC5A299                      2         2
          FC5A312                      4         3
          FC50238                      2         2
          FC5A330                      4         4
          FC50299                     45        41
          FC50438                      5         5
          FC50443                      6         6
          FC50512                     52        44
          FC50533                      5         5
          FC50558                      3         3
          FC50570                     20        19
          FC5A386                      1         1
          FC50662                      2         1
          FC5A319                     10        10
          FC50757                    136       136
          FC50773                     35        35
          FC50797                      1         1
          FC50933                      2         2
          FC5A444                     45        45
          FC50958                    114       114
          FC50962                      2         0
          FC51377                      3         3
          FC51422                      2         2
          FC5A517                      1         1
          FC5A522                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE     *DECK     TYPE                                                                   TYPE           1     A     
 TYPE               IDENT  TYPE                                                            TYPE           2     A     
 TYPE      TYPE     SECT   (EXPLICIT / IMPLICIT TYPE DECLARATIONS.)                        TYPE           3     A     
 TYPE      TYPE     SPACE  4                                                               TYPE           4     A     
 TYPE     *         IN CONRED                                                              TYPE           5     A     
 TYPE               EXT    DEC                                                             TYPE           6     A     
 TYPE                                                                                      TYPE           7     A     
 TYPE     *         IN DECL                                                                TYPE           8     A     
 TYPE               EXT    DIR                                                             TYPE           9     A     
 TYPE                                                                                      TYPE          10     A     
 TYPE     *         IN FEC                                                                 TYPE          11     A     
 TYPE               EXT    ASK,ERT,ESY,FEC=1ST,FEC.RTN,NAT.LEN,NAT.TYP,REFVAR,SSY          TYPE          12          I
          -FC5A225
 TYPE               EXT    STAGE,STY,TLV                                                   TYPE          13          I
          -FC5A225
 TYPE               EXT    ASK,ERT,ESY,FEC=1ST,FEC.RTN,NAT.LEN,NAT.TYP,PARAMC              FC5A225       18     A     
 TYPE               EXT    REFVAR,SSY,STAGE,STY,TLV                                        FC5A225       19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1065    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE                                                                                      TYPE          14     A     
 TYPE     *         IN FERRS                                                               TYPE          15     A     
 TYPE               EXT    E.ADP,E.TY,E.TY1,E.TY2,E.TY3,E.TY4,E.TY5,E.TY6                  TYPE          16          I
          -FC5A126
 TYPE               EXT    E.TY,E.TY1,E.TY2,E.TY3,E.TY4,E.TY5,E.TY6                        FC5A126       35          I
          -FC5A225
 TYPE               EXT    E.TY,E.TY1,E.TY2,E.TY3,E.TY4,E.TY5,E.TY6,E.TY8                  FC5A225       20          I
          -FC5A338
 TYPE               EXT    E.TYI,E.TYI1,E.TYI2,E.TYI3,E.TYI4,E.TYI5,E.TYI6,E.TYI7          TYPE          17          I
          -FC5A338
 TYPE               EXT    E.TYI8,E.TYI9,E.VA09,FILL.,FILL.3                               TYPE          18          I
          -F1037F5
 TYPE               EXT    E.TYI8,E.TYI9,E.VA09,E.MDE2,FILL.,FILL.3                        F1037F5      427          I
          -FC5A338
 TYPE               EXT    E.ANS,E.MDE2,E.TY,E.TY0,E.TY1,E.TY2,E.TY3,E.TY4,E.TY5           FC5A338       19     A     
 TYPE               EXT    E.TY6,E.TY8,E.TY9,E.TYI,E.TYI1,E.TYI2,E.TYI3,E.TYI4             FC5A338       20     A     
 TYPE               EXT    E.TYI5,E.TYI6,E.TYI7,E.TYI8,E.TYI9,E.VA09,FILL.,FILL.3          FC5A338       21     A     
 TYPE               EXT    E.TY10                                                          FC50972       10     A     
 TYPE                                                                                      TYPE          19     A     
 TYPE     *         IN HEADER                                                              TYPE          20     A     
 TYPE               EXT    KW=FUNC,PSF                                                     TYPE          21     A     
 TYPE                                                                                      TYPE          22          I
          -FC50110
 TYPE     *         IN LABEL                                                               TYPE          23          I
          -FC50110
 TYPE               EXT    PSL                                                             TYPE          24          I
          -FC50110
 TYPE                                                                                      TYPE          25     A     
 TYPE     *         IN LEX                                                                 TYPE          26     A     
 TYPE               EXT    CAK                                                             TYPE          27     A     
 TYPE                                                                                      TYPE          28     A     
 TYPE     *         IN PAR                                                                 TYPE          29     A     
 TYPE               EXT    PARNOW,PIX                                                      TYPE          30     A     
 TYPE                                                                                      TYPE          31     A     
 TYPE     *         IN PEM                                                                 TYPE          32     A     
 TYPE               EXT    ANSI=,PDM                                                       TYPE          33          I
          -FC5A225
 TYPE               EXT    PDM                                                             FC5A225       21          I
          -FC5A338
 TYPE               EXT    ANSI=,MDERR=,PDM                                                FC5A338       22     A     
 TYPE                                                                                      TYPE          34     A     
 TYPE     *         IN PUC                                                                 TYPE          35     A     
 TYPE               EXT    CHARDCL,IDENT,MOD,S=ENTRY,T=FPI,T.FPI,T.SYM                     TYPE          36          I
          -FC5A225
 TYPE               EXT    CHARDCL,IDENT,MOD,S=ENTRY,T=FPI,T=SYM,T.FPI,T.SYM               FC5A225       22     A     
 TYPE                                                                                      FC5A227       73     A     
 TYPE     *         IN QSKEL/FSKEL                                                         FC5A227       74     A     
 TYPE               EXT    F.INTF                                                          FC5A227       75     A     
 TYPE               TITLE  EXPLICIT                                                        TYPE          37     A     
 TYPE      TYPE-KEY SPACE  4,8                                                             TYPE          38     A     
 TYPE     **        TYPE KEY WORDS.                                                        TYPE          39     A     
 TYPE     *                                                                                TYPE          40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1066    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE     *         EXIT   TO *TYP* WITH                                                   TYPE          41     A     
 TYPE     *                (X4) = APPROPRIATE TYPE INDICATION.                             TYPE          42     A     
 TYPE                                                                                      TYPE          43     A     
 TYPE                                                                                      TYPE          44     A     
 TYPE               HEREIF BOOLEAN                                                         TYPE          45     A     
 TYPE               ANSI   E.ANS                                                           FC5A262       34     A     
 TYPE               MDERR  E.MDE2      ** USE OF BOOLEAN IS MACHINE DEPENDENT              F1037F5      428     A     
 TYPE               =X4    M.BOOL                                                          TYPE          46     A     
 TYPE               EQ     TYP                                                             TYPE          47     A     
 TYPE                                                                                      TYPE          48     A     
 TYPE               HEREIF LOGICAL                                                         TYPE          49     A     
 TYPE               =X4    M.LOG                                                           TYPE          50     A     
 TYPE               EQ     TYP                                                             TYPE          51     A     
 TYPE                                                                                      TYPE          52     A     
 TYPE               HEREIF INTEGER                                                         TYPE          53     A     
 TYPE               =X4    M.INT                                                           TYPE          54     A     
 TYPE               EQ     TYP                                                             TYPE          55     A     
 TYPE                                                                                      TYPE          56     A     
 TYPE               HEREIF REAL                                                            TYPE          57     A     
 TYPE               =X4    M.REAL                                                          TYPE          58     A     
 TYPE               EQ     TYP                                                             TYPE          59     A     
 TYPE                                                                                      TYPE          60     A     
 TYPE               HEREIF DOUBLE                                                          TYPE          61          I
          -FC5A126
 TYPE               RJ     CDP         CHECK *DOUBLE PRECISION*                            TYPE          62          I
          -FC5A126
 TYPE               HEREIF DOUBLEPRECISION                                                 FC5A126       36     A     
 TYPE               =X4    M.DBL                                                           TYPE          63     A     
 TYPE               EQ     TYP                                                             TYPE          64     A     
 TYPE                                                                                      TYPE          65     A     
 TYPE               HEREIF COMPLEX                                                         TYPE          66     A     
 TYPE               =X4    M.CPLX                                                          TYPE          67     A     
 TYPE               EQ     TYP                                                             TYPE          68     A     
 TYPE                                                                                      TYPE          69     A     
 TYPE               HEREIF CHARACTER                                                       TYPE          70     A     
 TYPE               MX7    1                                                               TYPE          71     A     
 TYPE               =X6    1           DEFAULT CHARACTER LENGTH                            TYPE          72     A     
 TYPE               LX6    WC.CLENP                                                        TYPE          73     A     
 TYPE               SA7    CHARDCL     INDICATE CHARACTER TYPE PRESENT                     TYPE          74     A     
 TYPE               SA2    B4+                                                             TYPE          75     A     
 TYPE               SB2    X2-O.COMMA                                                      TYPE          76     A     
 TYPE               ZR     B2,TYP24    IF PREMATURE COMMA                                  TYPE          77          I
          -FC50110
 TYPE               ZR     B2,E.VA09   IF PREMATURE COMMA                                  FC50110       13     A     
 TYPE               CALL   CCL         CHECK CHARACTER LENGTH                              TYPE          78          I
          -FC5A257
 TYPE               RJ     CCL         CHECK CHARACTER LENGTH                              FC5A257        7     A     
 TYPE               SA6    TYPC                                                            TYPE          79     A     
 TYPE               =X4    M.CHAR                                                          TYPE          80     A     
 TYPE               SA1    B4                                                              TYPE          81     A     
 TYPE               SB2    X1-O.COMMA                                                      TYPE          82     A     
 TYPE               NZ     B2,TYP      IF NOT OPTIONAL COMMA                               TYPE          83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1067    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               =B4    B4+1        SKIP OPTIONAL COMMA                                 TYPE          84     A     
 TYPE      TYP      SPACE  4,15                                                            TYPE          85     A     
 TYPE     **        TYP -  PROCESS TYPE-LIST.                                              TYPE          86     A     
 TYPE     *                                                                                TYPE          87     A     
 TYPE     *         ENTERED FROM THE VARIOUS *TYPE* PROCESSORS, TO DIGEST THE              TYPE          88     A     
 TYPE     *                VARIABLE-LIST OF THE STATEMENT.                                 TYPE          89     A     
 TYPE     *                                                                                TYPE          90     A     
 TYPE     *         ENTRY  (X4) = TYPE TO BE SET.                                          TYPE          91     A     
 TYPE     *                (B4) _ FWA OF THE VARIABLE LIST.                                TYPE          92     A     
 TYPE     *         IF A *FIRST CARD* IS EXPECTED, TYP WILL CHECK FOR A *FUNCTION*         TYPE          93     A     
 TYPE     *                STATEMENT, AND EXIT TO THERE, OR TO *PSF*.                      TYPE          94     A     
 TYPE     *                                                                                TYPE          95     A     
 TYPE     *         USES   ALL                                                             TYPE          96     A     
 TYPE     *                                                                                TYPE          97     A     
 TYPE     *         CALLS  ASK, DIR, ERT, ESY, ETF, PSF, SSY, TLV                          TYPE          98     A     
 TYPE                                                                                      TYPE          99     A     
 TYPE                                                                                      TYPE         100     A     
 TYPE      TYP      SA1    STAGE                                                           TYPE         101     A     
 TYPE               IFNE   TEST,,2                                                         TYPE         102     A     
 TYPE               SB7    FEC=1ST                                                         TYPE         103     A     
 TYPE               NZ     B7,"BLOWUP" IF NOT EXPECTED VALUE                               TYPE         104     A     
 TYPE               NZ     X1,TYP4     IF NOT IN *1ST CARD* PROCESSING.                    TYPE         105     A     
 TYPE               SA1    B4                                                              TYPE         106     A     
 TYPE               SA2    B4+B1                                                           TYPE         107     A     
 TYPE               AX2    9*CHAR                                                          TYPE         108     A     
 TYPE               LX2    2*CHAR                                                          TYPE         109     A     
 TYPE               SA3    TYPB                                                            TYPE         110     A     
 TYPE               BX2    X1+X2                                                           TYPE         111     A     
 TYPE               IX1    X3-X2                                                           TYPE         112     A     
 TYPE               NZ     X1,TYP2     IF NOT *FUNCTION*                                   TYPE         113     A     
 TYPE               SX1    X4-M.CHAR                                                       TYPE         114     A     
 TYPE               NZ     X1,TYP1     IF NOT TYPE CHARACTER                               TYPE         115     A     
 TYPE               SA1    TYPC        FETCH CHARACTER LENGTH                              TYPE         116     A     
 TYPE               BX4    X4+X1       MERGE IN WITH MODE                                  TYPE         117     A     
 TYPE                                                                                      FC5A257        8     A     
 TYPE      TYP1     BX6    X4                                                              TYPE         118          I
          -FC5A116
 TYPE      TYP1     CLAS=  X6,MO,(TYP)                                                     FC5A116       12     A     
 TYPE               BX6    X6+X4                                                           FC5A116       13     A     
 TYPE               SA6    MOD         INDICATE FUNCTION EXPLICITLY TYPED                  TYPE         119     A     
 TYPE               SX5    1+=0                                                            TYPE         120     A     
 TYPE               SX3    8*CHAR-1                                                        TYPE         121     A     
 TYPE               LX3    KW.LENP                                                         TYPE         122     A     
 TYPE               BX5    X3+X5       PSEUDO *SATTR* FOR ASK                              TYPE         123     A     
 TYPE               RJ     ASK         ADJUST STATEMENT KEYWORD                            TYPE         124     A     
 TYPE               EQ     KW=FUNC                                                         TYPE         125     A     
 TYPE                                                                                      TYPE         126     A     
 TYPE      TYP2     BX6    X4                                                              TYPE         127     A     
 TYPE               SA6    TYPA        SAVE TYPE                                           TYPE         128     A     
 TYPE               CALL   PSF         PROCESS DUMMY HEADER STATEMENT                      TYPE         129     A     
 TYPE               SA4    TYPA                                                            TYPE         130     A     
 TYPE                                                                                      FC5A257        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1068    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      TYP4     CLAS=  X6,WB,(TYP)                                                     TYPE         131     A     
 TYPE               LX4    WB.MODEP                                                        TYPE         132     A     
 TYPE               BX6    X4+X6       MERGE TYPE-DECL BIT AND MODE                        TYPE         133     A     
 TYPE               LX4    X6                                                              TYPE         134     A     
 TYPE               SA6    TYPA        SAVE TYPE                                           TYPE         135     A     
 TYPE               =X7    CR.DEC                                                          TYPE         136     A     
 TYPE               SA7    REFVAR                                                          TYPE         137     A     
 TYPE                                                                                      FC5A257       10     A     
 TYPE      TYP6     SA2    B4                                                              TYPE         138          I
          -FC5A338
 TYPE      TYP5     SA2    B4                                                              FC5A338       23     A     
 TYPE               MX0    MAX.VAR*CHAR                                                    TYPE         139     A     
 TYPE               SB7    X2-O.VAR                                                        TYPE         140     A     
 TYPE               BX6    X0*X2                                                           TYPE         141     A     
 TYPE               SA6    FILL.                                                           TYPE         142     A     
 TYPE               LX6    CHAR                                                            TYPE         143     A     
 TYPE               SB6    X6-1R0                                                          TYPE         144     A     
 TYPE               PL     B6,TYP24    IF FIRST CHARACTER NOT LETTER                       TYPE         145          I
          -FC50110
 TYPE               PL     B6,E.VA09   IF FIRST CHARACTER NOT LETTER                       FC50110       14     A     
 TYPE               LX6    -CHAR       RESTORE                                             TYPE         146     A     
 TYPE               NZ     B7,TYP24    IF NOT SYMBOL                                       TYPE         147          I
          -FC50110
 TYPE               NZ     B7,E.VA09   IF NOT SYMBOL                                       FC50110       15     A     
 TYPE               CALL   SSY         SCAN SYMBOL TABLE                                   TYPE         148     A     
 TYPE               MI     B7,TYP10    IF NO ENTRY                                         TYPE         149     A     
 TYPE               =X7    B7-WB.W+WC.W                                                    TYPE         150     A     
 TYPE               SA7    TYPE        SAVE *WC* INDEX                                     TYPE         151     A     
 TYPE               MX7    -WB.MODEL                                                       TYPE         152     A     
 TYPE               BX5    X6                                                              FC5A225       23     A     
 TYPE               SBIT   X6,WB.TYPP                                                      TYPE         153     A     
 TYPE               LX7    WB.MODEP                                                        TYPE         154     A     
 TYPE               HX5    WB.PARM                                                         FC5A225       24     A     
 TYPE               MI     X5,TYP9     IF TYPING SYMBOLIC CONSTANT                         FC5A225       25     A     
 TYPE               SB7    E.TY1       **PREVIOUSLY TYPED                                  FC5A338       24          I
          -FC50972
 TYPE               SB7    E.TY10      ** NON-CONFIRMING PREVIOUS TYPING                   FC50972       11     A     
 TYPE               MI     X6,TYP8     IF PREVIOUSLY TYPED                                 TYPE         155          I
          -FC50972
 TYPE               =A5    A2-WB.W+WC.W                                                    TYPE         156          I
          -FC50972
 TYPE               PL     X6,TYP5.1   IF NOT PREVIOUSLY TYPED                             FC50972       12     A     
 TYPE               SA1    TYPA        CURRENT TYPE                                        FC50972       13     A     
 TYPE               BX2    -X7*X2      EXTRACT PREVIOUS TYPE                               FC50972       14     A     
 TYPE               BX1    -X7*X1                                                          FC50972       15     A     
 TYPE               IX1    X1-X2                                                           FC50972       16     A     
 TYPE               NZ     X1,TYP8     IF NON CONFIRMING TYPE                              FC50972       17     A     
 TYPE               SX1    X2-M.CHAR                                                       FC50972       18     A     
 TYPE               SB7    E.TY1                                                           FC50972       19     A     
 TYPE               NZ     X1,TYP8     IF NOT CHARACTER, CONFIRMING TYPE                   FC50972       20     A     
 TYPE               EQ     TYP8.1                                                          FC50972       21     A     
 TYPE                                                                                      FC50972       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1069    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      TYP5.1   =A5    A2-WB.W+WC.W                                                    FC50972       23     A     
 TYPE               SBIT   X6,WB.INTFP/WB.TYPP                                             TYPE         157     A     
 TYPE               MI     X6,TYP7     IF INTRINSIC FUNTION                                TYPE         158     A     
 TYPE               BX6    X7*X2       CLEAR IMPLICIT MODE                                 TYPE         159     A     
 TYPE               IX6    X4+X6       ADD IN NEW MODE + TYP BIT                           TYPE         160     A     
 TYPE               SA6    A2          RESET INTO T.SYM                                    TYPE         161     A     
 TYPE               MX3    WC.CLIFL                                                        TYPE         162     A     
 TYPE               LX3    WC.CLIFL+WC.CLIFP                                               TYPE         163     A     
 TYPE               BX6    -X3*X5      CLEAR CHARACTER LENGTH INFORMATION                  TYPE         164     A     
 TYPE               SA6    A5                                                              TYPE         165     A     
 TYPE                                                                                      TYPE         166     A     
 TYPE     *         IF TYPING MAIN ENTRY POINT, ALSO TYPE MOD                              TYPE         167     A     
 TYPE                                                                                      TYPE         168     A     
 TYPE               SA1    S=ENTRY                                                         TYPE         169     A     
 TYPE               IX1    X1-X0                                                           TYPE         170     A     
 TYPE               NZ     X1,TYP12    IF NOT TYPING THE MAIN ENTRY POINT                  TYPE         171     A     
 TYPE               SA1    MOD                                                             TYPE         172     A     
 TYPE               SBIT   X1,MO.SUBP                                                      FC5A338       25     A     
 TYPE               PL     X1,TYP6     IF NOT SUBROUTINE                                   FC5A338       26     A     
 TYPE               SB7    E.TY0       **SUBROUTINE MAY NOT BE TYPED                       FC5A338       27     A     
 TYPE               EQ     TYP8                                                            FC5A338       28     A     
 TYPE                                                                                      FC5A338       29     A     
 TYPE      TYP6     LX1    1+MO.SUBP                                                       FC5A338       30     A     
 TYPE               BX1    -X3*X1      CLEAR CHARACTER LENGTH INFORMATION                  TYPE         173     A     
 TYPE               ERRNZ  MO.CLIFL-WC.CLIFL+MO.CLIFP-WC.CLIFP                             TYPE         174     A     
 TYPE               BX4    -X7*X4      EXTRACT THE NEW MODE                                TYPE         175     A     
 TYPE               BX6    X7*X1       CLEAR IMPLICIT MODE                                 TYPE         176     A     
 TYPE               BX6    X6+X4       ADD IN NEW MODE                                     TYPE         177     A     
 TYPE               ERRNZ  MO.MODEL-WB.MODEL                                               TYPE         178     A     
 TYPE               SA6    A1          RESET MOD                                           TYPE         179     A     
 TYPE               EQ     TYP12                                                           TYPE         180     A     
 TYPE                                                                                      TYPE         181     A     
 TYPE      TYP7     BX0    -X7*X2      ISOLATE INTRINSIC MODE                              TYPE         182          I
          -FC5A227
 TYPE      TYP7     BX1    X2                                                              FC5A227       76     A     
 TYPE               MX0    -WB.JPFL                                                        FC5A227       77          I
          -FC5A339
 TYPE               MX3    -WB.JPFL                                                        FC5A339        6     A     
 TYPE               LX1    -WB.JPFP                                                        FC5A227       78     A     
 TYPE               BX1    -X0*X1      EXTRACT INTF ORDINAL                                FC5A227       79          I
          -FC5A339
 TYPE               BX1    -X3*X1      EXTRACT INTF ORDINAL                                FC5A339        7     A     
 TYPE               SA1    X1+F.INTF                                                       FC5A227       80     A     
 TYPE               SBIT   X1,IT.GNOP                                                      FC5A227       81     A     
 TYPE               PL     X1,TYP7.1   IF NOT GENERIC ONLY INTRINSIC                       FC5A227       82     A     
 TYPE               WARN   E.TY9                                                           FC5A227       83     A     
 TYPE               EQ     TYP12                                                           FC5A227       84     A     
 TYPE                                                                                      FC5A227       85     A     
 TYPE      TYP7.1   BX0    -X7*X2      EXTRACT INTRINSIC MODE                              FC5A227       86          I
          -FC5A339
 TYPE      TYP7.1   BX3    -X7*X2      EXTRACT INTRINSIC MODE                              FC5A339        8     A     
 TYPE               BX4    -X7*X4      ISOLATE DECLARED MODE                               TYPE         183     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1070    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               IX0    X4-X0                                                           TYPE         184          I
          -FC5A339
 TYPE               ZR     X0,TYP12    IF CONFIRMING MODE                                  TYPE         185          I
          -FC5A339
 TYPE               IX3    X4-X3                                                           FC5A339        9     A     
 TYPE               ZR     X3,TYP12    IF CONFIRMING MODE                                  FC5A339       10     A     
 TYPE               WARN   E.TY2                                                           TYPE         186     A     
 TYPE               EQ     TYP12                                                           TYPE         187     A     
 TYPE                                                                                      TYPE         188     A     
 TYPE      TYP8     WARN   E.TY1                                                           TYPE         189          I
          -FC5A338
 TYPE      TYP8     WARN   B7                                                              FC5A338       31     A     
 TYPE               SA1    TYPE                                                            TYPE         190          I
          -FC50972
 TYPE                                                                                      FC50972       24     A     
 TYPE      TYP8.1   SA1    TYPE                                                            FC50972       25     A     
 TYPE               MX7    1                                                               TYPE         191     A     
 TYPE               BX7    X7+X1       INDICATE THIS TYPE NOT USED                         TYPE         192     A     
 TYPE               SA7    A1                                                              TYPE         193     A     
 TYPE               EQ     TYP12                                                           TYPE         194     A     
 TYPE                                                                                      FC5A225       26     A     
 TYPE      TYP9     BX0    -X7*X2                                                          FC5A225       27          I
          -FC5A339
 TYPE      TYP9     BX3    -X7*X2                                                          FC5A339       11     A     
 TYPE               BX4    -X7*X4                                                          FC5A225       28     A     
 TYPE               IX0    X4-X0                                                           FC5A225       29          I
          -FC5A339
 TYPE               IX3    X4-X3                                                           FC5A339       12     A     
 TYPE               ZR     X0,TYP12    IF CONFIRMING MODE                                  FC5A225       30          I
          -FC50515
 TYPE               FATAL  E.TY8                                                           FC5A225       31          I
          -FC50515
 TYPE               NZ     X0,TYP9.1   IF NOT CONFIRMING TYPE                              FC50515        5          I
          -FC5A339
 TYPE               NZ     X3,TYP9.1   IF NOT CONFIRMING TYPE                              FC5A339       13     A     
 TYPE               PL     X6,TYP12    IF NOT PREVIOUSLY TYPED                             FC50515        6     A     
 TYPE               SX3    X4-M.CHAR                                                       FC50972       26     A     
 TYPE               ZR     X3,TYP12    IF TYPE CHARACTER                                   FC50972       27     A     
 TYPE               SB7    E.TY1       **PREVIOUSLY TYPED                                  FC50515        7     A     
 TYPE               EQ     TYP8        OUTPUT DIAGNOSTIC                                   FC50515        8     A     
 TYPE                                                                                      FC50515        9     A     
 TYPE      TYP9.1   FATAL  E.TY8       **CANT CHANGE TYPE OF PARAMETER                     FC50515       10     A     
 TYPE               EQ     TYP12                                                           FC5A225       32     A     
 TYPE                                                                                      TYPE         195     A     
 TYPE      TYP10    BX7    X4          SET TYPE-DECL BIT AND MODE                          TYPE         196     A     
 TYPE               MX2    0           *WC*                                                TYPE         197     A     
 TYPE               ADSYM  A1                                                              TYPE         198     A     
 TYPE               =X7    B7-WB.W+WC.W                                                    TYPE         199     A     
 TYPE               SA7    TYPE        SAVE *WC* INDEX                                     TYPE         200     A     
 TYPE                                                                                      TYPE         201     A     
 TYPE     *         (X0) = SYMTAB ORDINAL OF TYPED ITEM                                    FC5A339       14     A     
 TYPE                                                                                      FC5A339       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1071    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      TYP12    SA1    B4+B1                                                           TYPE         202     A     
 TYPE               SB7    X1-O.VAR                                                        TYPE         203     A     
 TYPE               SX5    X0          REMEMBER (X5) = SYMTAB ORDINAL                      TYPE         204     A     
 TYPE               NZ     B7,TYP14    IF NOT LONG NAME                                    TYPE         205     A     
 TYPE               CALL   TLV         TRUNCATE NAME                                       TYPE         206     A     
 TYPE               =A1    B4+1                                                            TYPE         207     A     
 TYPE                                                                                      FC5A338       32     A     
 TYPE      TYP14    SX2    X1-O.(                                                          TYPE         208     A     
 TYPE               ZR     X2,TYP16    IF DIMENSIONED                                      TYPE         209     A     
 TYPE               SX6    X5          CONSTRUCT ORD FOR XREF                              TYPE         210     A     
 TYPE               LX6    XR.TAGP                                                         TYPE         211     A     
 TYPE               ADDREF X6,CR.DEC,TYP18                                                 TYPE         212     A     
 TYPE                                                                                      TYPE         213     A     
 TYPE      TYP16    CALL   DIR         PROCESS DIMENSIONED VARIABLE                        TYPE         214          I
          -FC5A257
 TYPE      TYP16    SA1    TYPA                                                            FC5A257       11     A     
 TYPE               SX1    X1-M.CHAR                                                       FC5A257       12     A     
 TYPE               NZ     X1,TYP17    IF NOT TYPE CHARACTER                               FC5A257       13     A     
 TYPE               SA1    T.SYM                                                           FC5A257       14     A     
 TYPE               SA2    TYPE        *WC* INDEX                                          FC5A257       15     A     
 TYPE               MX0    WC.CLIFL                                                        FC5A257       16     A     
 TYPE               SB2    X2                                                              FC5A257       17     A     
 TYPE               LX0    WC.CLIFL+WC.CLIFP                                               FC5A257       18     A     
 TYPE               SA2    X1+B2       *WC*                                                FC5A257       19     A     
 TYPE               BX6    X0*X2                                                           FC5A257       20     A     
 TYPE               =X1    1                                                               FC5A257       21     A     
 TYPE               SA6    TYPF        SAVE ACROSS DIR CALL                                FC5A257       22     A     
 TYPE               BX6    -X0*X2      CLEAR WC.CLIF                                       FC5A257       23     A     
 TYPE               LX1    WC.CLENP                                                        FC5A257       24     A     
 TYPE               BX6    X6+X1       DUMMY LENGTH 1 (FOR ERROR RECOVERY)                 FC5A257       25     A     
 TYPE               SA6    A2                                                              FC5A257       26     A     
 TYPE                                                                                      FC5A257       27     A     
 TYPE      TYP17    CALL   DIR         PROCESS DIMENSIONED VARIABLE                        FC5A257       28     A     
 TYPE               SA1    TYPA                                                            FC5A257       29     A     
 TYPE               SX1    X1-M.CHAR                                                       FC5A257       30     A     
 TYPE               NZ     X1,TYP18    IF NOT TYPE CHARACTER                               FC5A257       31     A     
 TYPE               SA1    T.SYM                                                           FC5A257       32     A     
 TYPE               SA2    TYPE        *WC* INDEX                                          FC5A257       33     A     
 TYPE               MX0    WC.CLIFL                                                        FC5A257       34     A     
 TYPE               SB2    X2                                                              FC5A257       35     A     
 TYPE               LX0    WC.CLIFL+WC.CLIFP                                               FC5A257       36     A     
 TYPE               SA2    X1+B2       *WC*                                                FC5A257       37     A     
 TYPE               BX6    -X0*X2      CLEAR TEMPORARY LENGTH                              FC5A257       38     A     
 TYPE               SA1    TYPF        SAVED LENGTH INFORMATION                            FC5A257       39     A     
 TYPE               BX6    X6+X1                                                           FC5A257       40     A     
 TYPE               SA6    A2          RESTORE                                             FC5A257       41     A     
 TYPE                                                                                      TYPE         215     A     
 TYPE      TYP18    SA1    TYPA                                                            TYPE         216     A     
 TYPE               SB4    B4+1                                                            TYPE         217     A     
 TYPE               SX1    X1-M.CHAR                                                       TYPE         218     A     
 TYPE               NZ     X1,TYP20    IF NOT TYPE CHARACTER                               TYPE         219     A     
 TYPE               SA1    TYPC        FETCH DEFAULT CHARACTER LENGTH                      TYPE         220     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1072    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               BX6    X1                                                              TYPE         221     A     
 TYPE               CALL   CCL         CHECK CHARACTER LENGTH                              TYPE         222          I
          -FC5A257
 TYPE               RJ     CCL         CHECK CHARACTER LENGTH                              FC5A257       42     A     
 TYPE               SA1    TYPE        FETCH *WC* INDEX                                    TYPE         223     A     
 TYPE               MI     X1,TYP20    IF PREVIOUSLY TYPED                                 TYPE         224          I
          -FC5A338
 TYPE               MI     X1,TYP20    IF TYPE NOT TO BE USED                              FC5A338       33          I
          -FC50972
 TYPE               SB7    X1                                                              TYPE         225     A     
 TYPE               SA3    T.SYM                                                           TYPE         226     A     
 TYPE               SA4    X3+B7       FETCH *WC* ENTRY                                    TYPE         227     A     
 TYPE               BX7    X6+X4       MERGE IN CHARACTER LENGTH                           TYPE         228          I
          -FC5A225
 TYPE               =A2    A4+WB.W-WC.W                                                    FC5A225       33     A     
 TYPE               HX2    WB.PARM                                                         FC5A225       34     A     
 TYPE               PL     X2,TYP19    IF NOT SYMBOLIC CONSTANT                            FC5A225       35          I
          -FC50972
 TYPE               BX0    X2          SAVE EXPOSED PARAMETER BIT                          FC50972       28     A     
 TYPE               BX7    X6-X4                                                           FC5A225       36     A     
 TYPE               CLAS=  X2,WC,(CLIF)                                                    FC5A225       37     A     
 TYPE               BX7    X2*X7                                                           FC5A225       38     A     
 TYPE               ZR     X7,TYP19    IF CONFIRMING LENGTH                                FC5A225       39          I
          -FC50972
 TYPE               FATAL  E.TY8                                                           FC5A225       40          I
          -FC50972
 TYPE               MI     X1,TYP18.1  IF PREVIOUS CONFLICT NOTED                          FC50972       29     A     
 TYPE               PL     X0,TYP19    IF NOT SYMBOLIC CONSTANT                            FC50972       30     A     
 TYPE               SB7    E.TY1       ** CONFIRMING TYPE                                  FC50972       31     A     
 TYPE               ZR     X7,TYP18.2  IF CONFIRMING TYPE                                  FC50972       32     A     
 TYPE               SB7    E.TY8       ** NON CONFIRMING TYPE                              FC50972       33     A     
 TYPE               EQ     TYP18.2                                                         FC50972       34     A     
 TYPE                                                                                      FC50972       35     A     
 TYPE      TYP18.1  MI     X0,TYP20    IF SYMBOLIC CONSTANT, ALREADY DIAGNOSED             FC50972       36     A     
 TYPE               SB7    E.TY1                                                           FC50972       37     A     
 TYPE               ZR     X7,TYP18.2  IF CONFIRMING TYPE                                  FC50972       38     A     
 TYPE               SB7    E.TY10                                                          FC50972       39     A     
 TYPE                                                                                      FC50972       40     A     
 TYPE      TYP18.2  FATAL  B7                                                              FC50972       41     A     
 TYPE                                                                                      FC5A225       41     A     
 TYPE     TYP19     BX7    X6+X4       MERGE CHARACTER LENGTH                              FC5A225       42          I
          -FC50972
 TYPE      TYP19    BX7    X6+X4                                                           FC50972       42     A     
 TYPE               SA7    A4          UPDATE                                              TYPE         229     A     
 TYPE               AX1    18                                                              TYPE         230     A     
 TYPE               SB7    X1          *WC* INDEX OF VALUE. (IF THIS IS ENTRY)             TYPE         231     A     
 TYPE               ZR     X1,TYP20    IF NOT ENTRY                                        TYPE         232          I
          -FC50972
 TYPE               ZR     B7,TYP20    IF NOT ENTRY.                                       FC50972       43     A     
 TYPE               SA2    X3+B7       FETCH VALUE. *WC* ENTRY                             TYPE         233     A     
 TYPE               BX7    X6+X2       MERGE IN CHARACTER LENGTH INFORMATION               TYPE         234     A     
 TYPE               SA7    A2          UPDATE                                              TYPE         235     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1073    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               SA1    MOD                                                             TYPE         236     A     
 TYPE               BX7    X6+X1       MERGE IN CHARACTER LENGTH INFORMATION               TYPE         237     A     
 TYPE               SA7    A1                                                              TYPE         238     A     
 TYPE                                                                                      TYPE         239     A     
 TYPE      TYP20    SA1    B4                                                              TYPE         240     A     
 TYPE               SA4    TYPA        RESTORE (X4) = TYPE CODE                            TYPE         241     A     
 TYPE               =B4    A1+1        POINT TO NEXT ITEM                                  TYPE         242     A     
 TYPE               SX2    X1-O.COMMA                                                      TYPE         243     A     
 TYPE               ZR     X1,FEC.RTN  IF *EOS*                                            TYPE         244     A     
 TYPE               ERRNZ  O.EOS                                                           TYPE         245     A     
 TYPE               ZR     X2,TYP6     IF *COMMA*                                          TYPE         246          I
          -FC5A338
 TYPE               ZR     X2,TYP5     IF *COMMA*                                          FC5A338       34     A     
 TYPE               =B4    B4-1                                                            TYPE         247     A     
 TYPE               FATAL  E.TY        ISSUE NON-COMMA ERROR MESSAGE                       TYPE         248     A     
 TYPE               =B4    B4+1                                                            TYPE         249     A     
 TYPE               EQ     FEC.RTN                                                         TYPE         250     A     
 TYPE                                                                                      TYPE         251          I
          -FC50110
 TYPE      TYP24    FATAL  E.VA09      SYNTAX ERROR                                        TYPE         252          I
          -FC50110
 TYPE               EQ     PSL                                                             TYPE         253          I
          -FC50110
 TYPE                                                                                      TYPE         254     A     
 TYPE      TYP26    SA1    B4          ATTEMPT TO RESUME SCAN                              TYPE         255     A     
 TYPE               SB7    X1-O.COMMA                                                      TYPE         256     A     
 TYPE               ZR     B7,TYP20    IF *COMMA*                                          TYPE         257     A     
 TYPE               SB4    B4+B1                                                           TYPE         258     A     
 TYPE               NZ     X1,TYP26    IF NO *EOS*                                         TYPE         259     A     
 TYPE               ERRNZ  O.EOS                                                           TYPE         260     A     
 TYPE               EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     TYPE         261     A     
 TYPE                                                                                      TYPE         262     A     
 TYPE      TYPA     BSSENT 1           TEMP CELL FOR TYPE                                  TYPE         263     A     
 TYPE      TYPB     CON    8LFUNCTION+O.VAR                                                TYPE         264     A     
 TYPE      TYPC     BSS    1           CHARACTER LENGTH (WC. FORMAT)                       TYPE         265     A     
 TYPE      TYPD     CONENT 0           LETTERS SELECTED ON IMPLICIT STATEMENT              TYPE         266     A     
 TYPE      TYPE     BSS    1           *WC* INDEX OF DECLARED SYMBOL                       TYPE         267     A     
 TYPE      TYPF     BSS    1           WC.CLIF SAVE ACROSS DIR CALL                        FC5A257       43     A     
 TYPE               TITLE  IMPLICIT                                                        TYPE         268     A     
 TYPE      IMP      SPACE  4,20                                                            TYPE         269     A     
 TYPE     **        IMP -  PROCESS IMPLICIT TYPE DECLARATION.                              TYPE         270     A     
 TYPE     *                                                                                TYPE         271     A     
 TYPE     *         ENTRY  FROM FRONT END CONTROLLER                                       TYPE         272     A     
 TYPE     *                CAN ALSO BE REENTERED IF FURTHER <TYPE-WORDS> ARE FOUND         TYPE         273     A     
 TYPE     *                                                                                TYPE         274     A     
 TYPE     *                (B4) _ A <TYPE-WORD> IN *TB*                                    TYPE         275     A     
 TYPE     *                                                                                TYPE         276     A     
 TYPE     *         EXIT   TO FRONT END CONTROLLER                                         TYPE         277     A     
 TYPE                                                                                      TYPE         278     A     
 TYPE                                                                                      TYPE         279     A     
 TYPE               HEREIF IMPLICIT                                                        TYPE         280     A     
 TYPE                                                                                      TYPE         281     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1074    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      IMP      RJ     CSK         CHECK *IMPLICIT* SUB-KEYWORD                        TYPE         282     A     
 TYPE                                                                                      TYPE         283     A     
 TYPE     *                (X4) = TYPE CODE FOR THIS SUB-KEYWORD                           TYPE         284     A     
 TYPE     *                (X6) = CHARACTER LENGTH, IF TYPE CHARACTER                      TYPE         285     A     
 TYPE                                                                                      TYPE         286     A     
 TYPE               SA5    B4                                                              TYPE         287     A     
 TYPE               SA3    A5+B1                                                           TYPE         288     A     
 TYPE               SB7    X5-O.(                                                          TYPE         289     A     
 TYPE               NZ     B7,E.TYI1   MISSING BEGINNING LPAREN                            TYPE         290     A     
 TYPE               MX7    0           CLEAR LETTER MASK FOR THIS TYPE                     TYPE         291     A     
 TYPE               HX6    WC.CLEN                                                         TYPE         292     A     
 TYPE               LX6    WC.CLENL                                                        TYPE         293     A     
 TYPE               SA6    TYPC        SAVE CHARACTER LENGTH                               TYPE         294     A     
 TYPE               =B4    B4+1                                                            TYPE         295     A     
 TYPE               LX6    WC.CLENP                                                        TYPE         296     A     
 TYPE               SBIT   X6,WC.CTYPP                                                     TYPE         297     A     
 TYPE               PL     X6,IMP1     IF NOT ASSUMED LENGTH                               TYPE         298     A     
 TYPE               FATAL  E.TYI9                                                          TYPE         299     A     
 TYPE               =X6    1                                                               TYPE         300     A     
 TYPE               SA6    A6          RESET TO DEFAULT CHARACTER LENGTH                   TYPE         301     A     
 TYPE                                                                                      TYPE         302     A     
 TYPE                                                                                      TYPE         303     A     
 TYPE     *         ADD LETTER(S) TO THE RANGE MASK ACCUMULATING.                          TYPE         304     A     
 TYPE     *                (X7) = RANGE MASK -- LETTER BITS ACCUMULATED SO FAR.            TYPE         305     A     
 TYPE                                                                                      TYPE         306     A     
 TYPE      IMP1     SX6    X3                                                              TYPE         307     A     
 TYPE               BX6    X3-X6                                                           TYPE         308     A     
 TYPE               SB2    X3-O.VAR                                                        TYPE         309     A     
 TYPE               MX0    MAX.VAR*CHAR-CHAR                                               TYPE         310     A     
 TYPE               SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE                     TYPE         311     A     
 TYPE               =A6    A6+1        SAVE FOR POSSIBLE ERROR MESSAGE                     TYPE         312     A     
 TYPE               LX0    -CHAR                                                           TYPE         313     A     
 TYPE               NZ     B2,E.TYI2   LETTER IS REQUIRED                                  TYPE         314     A     
 TYPE               BX1    X0*X6                                                           TYPE         315     A     
 TYPE               =A2    B4+1                                                            TYPE         316     A     
 TYPE               =B4    B4+1                                                            TYPE         317     A     
 TYPE               ZR     X1,IMP3     IF SINGLE CHARACTER ONLY                            TYPE         318     A     
 TYPE               MX5    CHAR                                                            TYPE         319     A     
 TYPE               SA1    FILL.                                                           TYPE         320     A     
 TYPE               BX6    X1*X5                                                           TYPE         321     A     
 TYPE               SA6    FILL.3                                                          TYPE         322     A     
 TYPE               WARN   E.TYI3                                                          TYPE         323     A     
 TYPE                                                                                      FC5A257       44     A     
 TYPE      IMP3     AX3    -CHAR                                                           TYPE         324     A     
 TYPE               SB7    X2-O.MIN                                                        TYPE         325     A     
 TYPE               BX5    0                                                               TYPE         326     A     
 TYPE               NZ     B7,IMP10    IF NOT A RANGE                                      TYPE         327     A     
 TYPE               =A5    B4+1                                                            TYPE         328     A     
 TYPE               =B4    B4+1                                                            TYPE         329     A     
 TYPE               SX6    X5                                                              TYPE         330     A     
 TYPE               BX6    X5-X6                                                           TYPE         331     A     
 TYPE               SB2    X5-O.VAR                                                        TYPE         332     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1075    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               BX1    X0*X5                                                           TYPE         333     A     
 TYPE               SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE                     TYPE         334     A     
 TYPE               NZ     B2,E.TYI2   LETTER IS REQUIRED                                  TYPE         335     A     
 TYPE               AX5    -CHAR                                                           TYPE         336     A     
 TYPE               ZR     X1,IMP5     IF SINGLE CHARACTER                                 TYPE         337     A     
 TYPE               SA1    FILL.                                                           TYPE         338     A     
 TYPE               MX0    CHAR                                                            TYPE         339     A     
 TYPE               BX6    X0*X1                                                           TYPE         340     A     
 TYPE               SA6    FILL.3                                                          TYPE         341     A     
 TYPE               WARN   E.TYI3                                                          TYPE         342     A     
 TYPE                                                                                      FC5A257       45     A     
 TYPE      IMP5     IX5    X5-X3                                                           TYPE         343     A     
 TYPE               =A2    B4+1                                                            TYPE         344     A     
 TYPE               =B4    B4+1                                                            TYPE         345     A     
 TYPE               NZ     X5,IMP7                                                         TYPE         346     A     
 TYPE               WARN   E.TYI5      LAST = FIRST, WARN                                  TYPE         347     A     
 TYPE                                                                                      FC5A257       46     A     
 TYPE      IMP7     PL     X5,IMP10                                                        TYPE         348     A     
 TYPE               BX5    0           TRUNCATE RANGE TO 1ST LETTER ONLY                   TYPE         349     A     
 TYPE               FATAL  E.TYI4      LAST .GT. FIRST                                     TYPE         350     A     
 TYPE                                                                                      FC5A257       47     A     
 TYPE      IMP10    MX0    1                                                               TYPE         351     A     
 TYPE               SB7    X5                                                              TYPE         352     A     
 TYPE               SB3    X3-60                                                           TYPE         353     A     
 TYPE               AX0    B7          MASK AS WIDE AS RANGE                               TYPE         354     A     
 TYPE               SB2    X2-O.COMMA                                                      TYPE         355     A     
 TYPE               AX0    B3          POSITION MASK WHERE RANGE STARTS                    TYPE         356     A     
 TYPE               BX7    X0+X7       ACCUMULATE MASK FOR THIS TYPE                       TYPE         357     A     
 TYPE               SB7    X2-O.)                                                          TYPE         358     A     
 TYPE               =A3    B4+1                                                            TYPE         359     A     
 TYPE               =B4    B4+1                                                            TYPE         360     A     
 TYPE               ZR     B2,IMP1     IF *COMMA*                                          TYPE         361     A     
 TYPE                                                                                      TYPE         362     A     
 TYPE                                                                                      TYPE         363     A     
 TYPE     **        CURRENT <TYPE> RANGE HAS BEEN ASSIMILATED.                             TYPE         364     A     
 TYPE     *         ENTRY  (X4) = <TYPE>.                                                  TYPE         365     A     
 TYPE     *                (X7) = ITS NEW LETTER BITS..                                    TYPE         366     A     
 TYPE     *         EXIT   TO *IMP.EOS* IF STATEMENT IS ENDED, OR                          TYPE         367     A     
 TYPE     *                TO *IMP.KEY* TO BEGIN PROCESSING THE NEXT <TYPE-WORD>.          TYPE         368     A     
 TYPE     *         NOW WE PROCEED TO ALTER NATURAL TYPE TABLE AS REQUESTED.               TYPE         369     A     
 TYPE                                                                                      TYPE         370     A     
 TYPE               SB2    N.TYPE-1                                                        TYPE         371     A     
 TYPE               SA1    TYPD                                                            TYPE         372     A     
 TYPE               BX6    X1+X7       SET SELECTED LETTERS                                TYPE         373     A     
 TYPE               BX5    X7*X1                                                           TYPE         374     A     
 TYPE               SA6    A1                                                              TYPE         375     A     
 TYPE               ZR     X5,IMP15    IF LETTERS NOT PREVIOUSLY MENTIONED                 TYPE         376     A     
 TYPE               SB3    B7          SAVE B7                                             TYPE         377     A     
 TYPE               WARN   E.TYI8                                                          TYPE         378     A     
 TYPE               SB7    B3          RESTORE B7                                          TYPE         379     A     
 TYPE               BX7    X7-X5       REMOVE BAD LETTERS                                  TYPE         380     A     
 TYPE                                                                                      FC5A257       48     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1076    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      IMP15    SA1    B2+NAT.TYP                                                      TYPE         381     A     
 TYPE               SB2    B2-B1                                                           TYPE         382     A     
 TYPE               BX6    -X7*X1      CLEAR SELECTED LETTERS FOR ALL TYPES                TYPE         383     A     
 TYPE               SA6    A1                                                              TYPE         384     A     
 TYPE               PL     B2,IMP15    LOOP THROUGH ALL TYPES                              TYPE         385     A     
 TYPE               SA1    X4+NAT.TYP                                                      TYPE         386     A     
 TYPE               BX6    X1+X7       SET SELECTED LETTERS FOR SPECIFIED TYPES            TYPE         387     A     
 TYPE               SA6    A1                                                              TYPE         388     A     
 TYPE                                                                                      TYPE         389          I
          -FC5A257
 TYPE               SX4    X4-M.CHAR                                                       TYPE         390     A     
 TYPE               NZ     X4,IMP19    IF NOT TYPE CHARACTER                               TYPE         391     A     
 TYPE               SA1    TYPC                                                            TYPE         392     A     
 TYPE               SB2    26+1                                                            TYPE         393     A     
 TYPE               =B3    0                                                               TYPE         394     A     
 TYPE               SB6    X1                                                              TYPE         395     A     
 TYPE                                                                                      FC5A257       49     A     
 TYPE      IMP16    PL     X7,IMP18    IF LETTER NOT SELECTED                              TYPE         396     A     
 TYPE               SX2    B3-1                                                            TYPE         397     A     
 TYPE               MX0    30                                                              TYPE         398     A     
 TYPE               LX2    -1                                                              TYPE         399     A     
 TYPE               SX6    B6                                                              TYPE         400     A     
 TYPE               SA5    X2+NAT.LEN  FETCH CHARACTER LENGTH PAIR                         TYPE         401     A     
 TYPE               MI     X2,IMP17    IF LOWER HALF                                       TYPE         402     A     
 TYPE               BX5    -X0*X5      CLEAR UPPER HALF                                    TYPE         403     A     
 TYPE               LX6    30          CHARACTER LENGTH TO UPPER                           TYPE         404     A     
 TYPE               BX6    X6+X5       NEW LENGTH PAIR                                     TYPE         405     A     
 TYPE               SA6    A5                                                              TYPE         406     A     
 TYPE               EQ     IMP18                                                           TYPE         407     A     
 TYPE                                                                                      TYPE         408     A     
 TYPE      IMP17    BX5    X0*X5       CLEAR LOWER HALF                                    TYPE         409     A     
 TYPE               BX6    X5+X6       NEW LENGTH PAIR                                     TYPE         410     A     
 TYPE               SA6    A5                                                              TYPE         411     A     
 TYPE                                                                                      TYPE         412     A     
 TYPE      IMP18    =B2    B2-1                                                            TYPE         413     A     
 TYPE               =B3    B3+1                                                            TYPE         414     A     
 TYPE               LX7    1                                                               TYPE         415     A     
 TYPE               NZ     B2,IMP16    IF MORE TO CHECK                                    TYPE         416     A     
 TYPE                                                                                      TYPE         417     A     
 TYPE      IMP19    NZ     B7,E.TYI6   IF MISSING ENDING *)*                               TYPE         418     A     
 TYPE               SB3    X3-O.COMMA                                                      TYPE         419     A     
 TYPE               =B4    B4+1                                                            TYPE         420     A     
 TYPE               ZR     X3,IMP20    IF *EOS*                                            TYPE         421     A     
 TYPE               ZR     B3,IMP      IF MORE TYPES TO SET                                TYPE         422     A     
 TYPE               SB4    A3                                                              TYPE         423     A     
 TYPE               EQ     E.TYI7                                                          TYPE         424     A     
 TYPE                                                                                      TYPE         425     A     
 TYPE                                                                                      TYPE         426     A     
 TYPE     **        HERE WHEN STATEMENT FULLY DIGESTED.  ANY FUNCTION NAME AND             TYPE         427     A     
 TYPE     *         FORMAL PARAMETERS ARE GIVEN THE PROPER IMPLICIT TYPE, AS PER           TYPE         428     A     
 TYPE     *         THE CURRENT DECLARATION.                                               TYPE         429     A     
 TYPE                                                                                      TYPE         430     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1077    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      IMP20    SA3    MOD                                                             TYPE         431     A     
 TYPE               SA1    IDENT                                                           TYPE         432     A     
 TYPE               SA5    T.SYM                                                           TYPE         433     A     
 TYPE               MX0    -WB.MODEL                                                       TYPE         434     A     
 TYPE               SBIT   X3,MO.FUNP                                                      TYPE         435     A     
 TYPE               PL     X3,IMP25    IF NOT FUNCTION SUBPROGRAM                          TYPE         436     A     
 TYPE               SBIT   X3,MO.TYPP/MO.FUNP                                              TYPE         437     A     
 TYPE               MI     X3,IMP25    IF EXPLICITLY TYPED                                 TYPE         438     A     
 TYPE               BX6    X1                                                              TYPE         439     A     
 TYPE               LX3    MO.TYPP+1   RESTORE X3                                          TYPE         440     A     
 TYPE               RJ     STY         GET (NEW) IMPLICIT TYPE                             TYPE         441     A     
 TYPE               HX2    WC.CLEN                                                         TYPE         442     A     
 TYPE               LX2    WC.CLENL                                                        TYPE         443     A     
 TYPE               SB3    X2          SAVE CHARACTER LENGTH                               TYPE         444     A     
 TYPE               SA2    S=ENTRY                                                         TYPE         445     A     
 TYPE               SB2    X2                                                              TYPE         446     A     
 TYPE               SX6    B2+B2                                                           TYPE         447     A     
 TYPE               SX2    B2+X6       (X2) = INDEX = Z=SYM * ORDINAL                      TYPE         448     A     
 TYPE               ERRNZ  3-Z=SYM                                                         TYPE         449     A     
 TYPE               IX2    X2+X5                                                           TYPE         450     A     
 TYPE               =A2    X2+WB.W                                                         TYPE         451     A     
 TYPE               BX2    X0*X2       DELETE FORMER MODE                                  TYPE         452     A     
 TYPE               IX7    X2+X1       INSERT NEW MODE                                     TYPE         453     A     
 TYPE               SA7    A2          RESET (ENTRY.-TAG)                                  TYPE         454     A     
 TYPE               SX6    B3          CHARACTER LENGTH                                    TYPE         455     A     
 TYPE               LX6    WC.CLENP                                                        TYPE         456     A     
 TYPE               =A6    A7-WB.W+WC.W                                                    TYPE         457     A     
 TYPE               BX3    X0*X3       DELETE FORMER MODE                                  TYPE         458     A     
 TYPE               IX3    X3+X1       INSERT NEW MODE                                     TYPE         459     A     
 TYPE               BX6    X6+X3       MERGE WITH CHARACTER LENGTH                         TYPE         460     A     
 TYPE               SA6    A3          UPDATE (MOD)                                        TYPE         461     A     
 TYPE                                                                                      TYPE         462     A     
 TYPE      IMP25    SA2    T=FPI                                                           TYPE         463     A     
 TYPE               ZR     X2,FEC.RTN  IF NO FORMAL PARAMETERS                             TYPE         464          I
          -FC5A225
 TYPE               ZR     X2,IMP30    IF NO FORMAL PARAMETERS                             FC5A225       43     A     
 TYPE               SA1    T.FPI                                                           TYPE         465     A     
 TYPE               MX3    -FP.PNTL                                                        TYPE         466     A     
 TYPE               SA4    X1          INITIALIZE (T.FPI) FETCH                            TYPE         467     A     
 TYPE               =B3    X5+WA.W                                                         TYPE         468     A     
 TYPE               SB6    X2          (B6) = NUMBER OF FORMALS                            TYPE         469     A     
 TYPE                                                                                      TYPE         470     A     
 TYPE      IMP27    LX4    -FP.PNTP                                                        TYPE         471     A     
 TYPE               BX2    -X3*X4      (X2) = SYMORD OF FP                                 TYPE         472     A     
 TYPE               LX6    X2,B1                                                           TYPE         473     A     
 TYPE               IX7    X6+X2       (X7) = SYMTAB INDEX                                 TYPE         474     A     
 TYPE               ERRNZ  3-Z=SYM                                                         TYPE         475     A     
 TYPE               SA5    B3+X7       FETCH (X5) = (WA.)                                  TYPE         476     A     
 TYPE               HX5    WA.SYM                                                          TYPE         477     A     
 TYPE               SX2    X5                                                              TYPE         478     A     
 TYPE               ERRNZ  18+WA.SYML-60                                                   TYPE         479     A     
 TYPE               BX6    X5-X2       ISOLATE NAME = (WA.SYM)                             TYPE         480     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1078    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               CALL   STY         GET (NEW) IMPLICIT TYPE                             TYPE         481     A     
 TYPE               =A5    A5-WA.W+WB.W                                                    TYPE         482     A     
 TYPE               LX7    X2          CHARACTER LENGTH                                    TYPE         483     A     
 TYPE               SA4    A4+B1       FETCH NEXT (T.FPI)                                  TYPE         484     A     
 TYPE               BX2    X0*X5       CLEAR FORMER TYPE                                   TYPE         485     A     
 TYPE               IX6    X1+X2                                                           TYPE         486     A     
 TYPE               =A7    A5-WB.W+WC.W                                                    TYPE         487     A     
 TYPE               SB6    B6-B1                                                           TYPE         488     A     
 TYPE               SA6    A5                                                              TYPE         489     A     
 TYPE               GT     B6,IMP27    IF TABLE NOT EXHAUSTED                              TYPE         490     A     
 TYPE               EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     TYPE         491          I
          -FC5A225
 TYPE                                                                                      FC5A225       44     A     
 TYPE     **        ANY PARAMETERS (SYMBOLIC CONSTANTS) WHICH MAY HAVE BEEN                FC5A225       45     A     
 TYPE     *         AFFECTED BY THE CURRENT IMPLICIT STATEMENT ARE DIAGNOSED.              FC5A225       46     A     
 TYPE                                                                                      FC5A225       47     A     
 TYPE      IMP30    SA1    PARAMC      PARAMETER (SYMBOLIC CONSTANT) COUNT                 FC5A225       48     A     
 TYPE               ZR     X1,FEC.RTN  IF NONE                                             FC5A225       49     A     
 TYPE               SA5    T.SYM                                                           FC5A225       50     A     
 TYPE               SA2    T=SYM                                                           FC5A225       51     A     
 TYPE               SB2    X2+WB.W                                                         FC5A225       52     A     
 TYPE               SB3    X1          PARAMETER COUNT                                     FC5A225       53     A     
 TYPE               MX0    -WB.MODEL                                                       FC5A225       54     A     
 TYPE                                                                                      FC5A225       55     A     
 TYPE      IMP31    SB2    B2-Z=SYM                                                        FC5A225       56     A     
 TYPE               ZR     B3,FEC.RTN  IF ALL PARAMETERS CHECKED                           FC5A225       57     A     
 TYPE               SA4    X5+B2       FETCH WB.W                                          FC5A225       58     A     
 TYPE               LX4    -WB.MODEP                                                       FC5A225       59     A     
 TYPE               BX1    -X0*X4                                                          FC5A225       60     A     
 TYPE               SB6    X1                                                              FC5A225       61     A     
 TYPE               LX4    WB.MODEP                                                        FC5A225       62     A     
 TYPE               SB6    -B6         FOR CONFIRMING TYPE TEST                            FC5A225       63     A     
 TYPE               SBIT   X4,WB.LABP                                                      FC5A225       64     A     
 TYPE               MI     X4,IMP31    IF STATEMENT LABEL                                  FC5A225       65     A     
 TYPE               SBIT   X4,WB.PARMP/WB.LABP                                             FC5A225       66     A     
 TYPE               PL     X4,IMP31    IF NOT PARAMETER                                    FC5A225       67     A     
 TYPE               =A1    A4-WB.W+WA.W                                                    FC5A225       68     A     
 TYPE               =B3    B3-1                                                            FC5A225       69     A     
 TYPE               MX6    WA.SYML                                                         FC5A225       70     A     
 TYPE               BX6    X6*X1                                                           FC5A225       71     A     
 TYPE               SA6    FILL.                                                           FC5A225       72     A     
 TYPE               CALL   STY         CHECK IMPLICIT TYPE                                 FC5A225       73     A     
 TYPE               SX1    X1+B6                                                           FC5A225       74     A     
 TYPE               ZR     X1,IMP31    IF TYPE NOT MODIFIED                                FC5A225       75     A     
 TYPE               FATAL  E.TY8                                                           FC5A225       76     A     
 TYPE               EQ     IMP31       CONTINUE...                                         FC5A225       77     A     
 TYPE                                                                                      TYPE         492     A     
 TYPE                                                                                      TYPE         493     A     
 TYPE     **        IMP.ER - RETURN HERE FROM ERRORS TO ATTEMPT RECOVERY.                  TYPE         494     A     
 TYPE     *                LOOK FOR  ")," TO RESUME PROCESSING.                            TYPE         495     A     
 TYPE     *         ENTRY  (B4) _ CURRENT *SB* POSITION.                                   TYPE         496     A     
 TYPE     *                                                                                TYPE         497     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1079    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE     *                                                                                TYPE         498     A     
 TYPE     *         EXIT   TO *IMP* IF A ")," IS FOUND, OR                                 TYPE         499     A     
 TYPE     *                TO *IMP20* IF RECOVERY IS NOT SUCCESSFUL.                       TYPE         500     A     
 TYPE                                                                                      TYPE         501     A     
 TYPE      IMP.ER   BSSENT 0           ...RETURN FROM ERROR PROCESSING                     TYPE         502     A     
 TYPE               SA1    B4+B1                                                           TYPE         503     A     
 TYPE               SB4    B4+B1                                                           TYPE         504     A     
 TYPE               SB2    X1-O.)                                                          TYPE         505     A     
 TYPE               ZR     X1,IMP20    IF *EOS*                                            TYPE         506     A     
 TYPE               NZ     B2,IMP.ER   IF NO RPAREN                                        TYPE         507     A     
 TYPE               SA1    B4+B1                                                           TYPE         508     A     
 TYPE               SB4    B4+B1                                                           TYPE         509     A     
 TYPE               SB2    X1-O.COMMA                                                      TYPE         510     A     
 TYPE               ZR     X1,IMP20    IF *EOS*                                            TYPE         511     A     
 TYPE               NZ     B2,IMP.ER   IF NO COMMA                                         TYPE         512     A     
 TYPE               SB4    B4+B1       FOUND  COMMA FOLLOWED BY COMMA                      TYPE         513     A     
 TYPE               EQ     IMP         TRY ANOTHER KEYWORD                                 TYPE         514     A     
 TYPE               TITLE  SUBROUTINES                                                     TYPE         515     A     
 TYPE      CCL      SPACE  4,8                                                             TYPE         516     A     
 TYPE     **        CCL -  CHECK CHARACTER LENGTH                                          TYPE         517     A     
 TYPE     *                                                                                TYPE         518     A     
 TYPE     *         ENTRY  (B4) _ * OF CHARACTER LENGTH SPECIFIER (IF PRESENT)             TYPE         519     A     
 TYPE     *                (X6) = DEFAULT CHARACTER LENGTH (WC. FORMAT)                    TYPE         520     A     
 TYPE     *                                                                                TYPE         521     A     
 TYPE     *         EXIT   IF CHARACTER LENGTH SPECIFICATION PRESENT                       TYPE         522     A     
 TYPE     *                                                                                TYPE         523     A     
 TYPE     *                (B4) _ TOKEN FOLLOWING LENGTH SPECIFICATION                     TYPE         524     A     
 TYPE     *                (X6) = LENGTH SPECIFIED (WC. FORMAT)                            TYPE         525     A     
 TYPE     *                                                                                TYPE         526     A     
 TYPE     *                IF CHARACTER LENGTH SPECIFICATION ABSENT                        TYPE         527     A     
 TYPE     *                                                                                TYPE         528     A     
 TYPE     *                (B4) _ UNCHANGED                                                TYPE         529     A     
 TYPE     *                (X6) = UNCHANGED                                                TYPE         530     A     
 TYPE     *                                                                                TYPE         531     A     
 TYPE     *         USES   ALL                                                             TYPE         532     A     
 TYPE     *                                                                                TYPE         533     A     
 TYPE     *         CALLS  DEC, PAR                                                        TYPE         534     A     
 TYPE                                                                                      TYPE         535     A     
 TYPE                                                                                      TYPE         536     A     
 TYPE      CCL      SUBR               ENTRY/EXIT                                          TYPE         537     A     
 TYPE               SA1    B4                                                              TYPE         538          I
          -FC50592
 TYPE               SA1    B4+                                                             FC50592        6     A     
 TYPE               SB7    X1-O.STAR                                                       TYPE         539     A     
 TYPE               NZ     B7,EXIT.    IF NO CHARACTER LENGTH SPECIFICATION                TYPE         540     A     
 TYPE               =A1    B4+1                                                            TYPE         541     A     
 TYPE               =B4    B4+1                                                            TYPE         542     A     
 TYPE               SB3    X1-O.LP                                                         TYPE         543     A     
 TYPE               SB2    X1-O.CONS                                                       TYPE         544     A     
 TYPE               ZR     B3,CCL2     IF *(*                                              TYPE         545     A     
 TYPE               SB7    E.TY3                                                           TYPE         546     A     
 TYPE               NZ     B2,CCL4     IF NOT CONSTANT                                     TYPE         547     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1080    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               SX6    PM=PARM     INDICATE 3D0 NOT CONSTANT                           TYPE         548          I
          -FC5A156
 TYPE               SX6    PM=ICE      INDICATE 3D0 NOT CONSTANT                           FC5A156       11     A     
 TYPE               SA6    PARNOW                                                          TYPE         549     A     
 TYPE               CALL   DEC                                                             TYPE         550     A     
 TYPE               SX1    X1-M.INT                                                        TYPE         551     A     
 TYPE               SB7    E.TY3                                                           TYPE         552     A     
 TYPE               NZ     X1,CCL4     IF NOT INTEGER                                      TYPE         553     A     
 TYPE               SB7    E.TY6                                                           TYPE         554     A     
 TYPE               ZR     X6,CCL4     IF ZERO                                             TYPE         555     A     
 TYPE               SX2    X6-MAX.CL-1                                                     TYPE         556     A     
 TYPE               SB7    E.TY4                                                           TYPE         557     A     
 TYPE               PL     X2,CCL4     IF LENGTH SPECIFIER TOO LARGE                       TYPE         558     A     
 TYPE               LX6    WC.CLENP                                                        TYPE         559     A     
 TYPE               =B4    B4+1                                                            TYPE         560     A     
 TYPE               EQ     EXIT.                                                           TYPE         561     A     
 TYPE                                                                                      TYPE         562     A     
 TYPE      CCL2     =A1    B4+1                                                            TYPE         563     A     
 TYPE               =B4    B4+1                                                            TYPE         564     A     
 TYPE               SB2    X1-O.STAR                                                       TYPE         565     A     
 TYPE               NZ     B2,CCL3     IF NOT ASSUMED LENGTH                               TYPE         566     A     
 TYPE               CLAS=  X6,WC,(CTYP)                                                    TYPE         567     A     
 TYPE               =A1    B4+1                                                            TYPE         568     A     
 TYPE               =B4    B4+1                                                            TYPE         569     A     
 TYPE               SB2    X1-O.RP                                                         TYPE         570     A     
 TYPE               =B4    B4+1                                                            TYPE         571     A     
 TYPE               ZR     B2,EXIT.    IF NO ERROR                                         TYPE         572     A     
 TYPE               =B4    B4-1                                                            TYPE         573     A     
 TYPE               EQ     E.TY5                                                           TYPE         574     A     
 TYPE                                                                                      TYPE         575     A     
 TYPE      CCL3     CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION                   TYPE         576     A     
 TYPE               SA1    B4                                                              TYPE         577     A     
 TYPE               SB2    X1-O.RP                                                         TYPE         578     A     
 TYPE               NZ     B2,E.TY5    IF NOT RIGHT PAREN FOLLOWING LENGTH                 TYPE         579     A     
 TYPE               SB7    E.TY3                                                           TYPE         580     A     
 TYPE               MI     X6,CCL4     IF NEGATIVE CONSTANT                                TYPE         581     A     
 TYPE               SB7    E.TY6                                                           TYPE         582     A     
 TYPE               ZR     X6,CCL4     IF ZERO                                             TYPE         583     A     
 TYPE               SX2    X6-MAX.CL-1                                                     TYPE         584     A     
 TYPE               SB7    E.TY4                                                           TYPE         585     A     
 TYPE               SB4    B4+B1       ADVANCE TB POINTER TO SEPARATOR                     TYPE         586     A     
 TYPE               LX6    WC.CLENP                                                        TYPE         587     A     
 TYPE               MI     X2,EXIT.    IF LENGTH SPECIFIER NOT TOO LARGE                   TYPE         588     A     
 TYPE                                                                                      TYPE         589     A     
 TYPE      CCL4     FATAL  B7                                                              TYPE         590     A     
 TYPE               SA1    B4+                                                             FC50592        7     A     
 TYPE               =X6    1           DEFAULT LENGTH                                      TYPE         591     A     
 TYPE               LX6    WC.CLENP                                                        TYPE         592     A     
 TYPE               =B4    B4+1                                                            TYPE         593          I
          -FC50592
 TYPE               ZR     X1,EXIT.    IF *EOS*                                            FC50592        8     A     
 TYPE               SB7    X1-O.COMMA                                                      FC50592        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1081    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               ZR     B7,EXIT.    IF *,*                                              FC50592       10     A     
 TYPE               SB4    B4+1                                                            FC50592       11     A     
 TYPE               EQ     EXIT.                                                           TYPE         594     A     
 TYPE      CDP      SPACE  4,10                                                            TYPE         595          I
          -FC5A126
 TYPE     **        CDP - CHECK *DOUBLE PRECISION*.                                        TYPE         596          I
          -FC5A126
 TYPE     *                                                                                TYPE         597          I
          -FC5A126
 TYPE     *                                                                                TYPE         598          I
          -FC5A126
 TYPE     *         THIS ROUTINE PERFORMS A SPECIAL-CASE TEST FOR THE                      TYPE         599          I
          -FC5A126
 TYPE     *         REMOVAL OF THE CHARACTERS *PRECISION*.                                 TYPE         600          I
          -FC5A126
 TYPE     *                                                                                TYPE         601          I
          -FC5A126
 TYPE     *         ENTRY  (B4) = ADDR OF POSSIBLE *PRECISION* IN *T.TB*.                  TYPE         602          I
          -FC5A126
 TYPE     *                                                                                TYPE         603          I
          -FC5A126
 TYPE     *         EXIT   (B4) = ADDR OF TOKEN FOLLOWING *PRECISION*.                     TYPE         604          I
          -FC5A126
 TYPE     *                                                                                TYPE         605          I
          -FC5A126
 TYPE     *         USES   ALL                                                             TYPE         606          I
          -FC5A126
 TYPE     *                                                                                TYPE         607          I
          -FC5A126
 TYPE     *         CALLS  ANSI,CAK,WARN                                                   TYPE         608          I
          -FC5A126
 TYPE                                                                                      TYPE         609          I
          -FC5A126
 TYPE                                                                                      TYPE         610          I
          -FC5A126
 TYPE      CDP      SUBR               ** ENTRY/EXIT **                                    TYPE         611          I
          -FC5A126
 TYPE               SA1    B4                                                              TYPE         612          I
          -FC5A126
 TYPE               SA2    CDPA        (X2) = O.VAR'PRECISI' TOKEN SKEL                    TYPE         613          I
          -FC5A126
 TYPE               BX6    X1-X2                                                           TYPE         614          I
          -FC5A126
 TYPE               NZ     X6,CDP2     IF NOT *DOUBLEPRECISI*                              TYPE         615          I
          -FC5A126
 TYPE               SA3    B4+B1                                                           TYPE         616          I
          -FC5A126
 TYPE               SB7    -2RON                                                           TYPE         617          I
          -FC5A126
 TYPE               AX3    8*CHAR                                                          TYPE         618          I
          -FC5A126
 TYPE               SB2    X3+B7                                                           TYPE         619          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1082    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
          -FC5A126
 TYPE               NZ     B2,CDP2     IF NOT *DOUBLEPRECISION*, *ANSI* ERR...             TYPE         620          I
          -FC5A126
 TYPE               SB6    CDPB        (B6) = FWA OF DUMMY *SUBKEY* TABLE                  TYPE         621          I
          -FC5A126
 TYPE               SB7    B1          (B7) = LEN OF DUMMY *SUBKEY* TABLE                  TYPE         622          I
          -FC5A126
 TYPE               CALL   CAK         CHECK FOR AND ADJUST *PRECISION*                    TYPE         623          I
          -FC5A126
 TYPE               ZR     B7,"BLOWUP" IF NO FIND, BIG TROUBLE....                         TYPE         624          I
          -FC5A126
 TYPE               MI     B7,"BLOWUP" IF MISSPELLED, ALSO BIG TROUBLE...                  TYPE         625          I
          -FC5A126
 TYPE               EQ     EXIT.                                                           TYPE         626          I
          -FC5A126
 TYPE                                                                                      TYPE         627          I
          -FC5A126
 TYPE     *         HERE TO ISSUE *ANSI* WARNING MSG FOR *DOUBLE* WITH                     TYPE         628          I
          -FC5A126
 TYPE     *         NO *PRECISION*.                                                        TYPE         629          I
          -FC5A126
 TYPE                                                                                      TYPE         630          I
          -FC5A126
 TYPE      CDP2     ANSI   E.ADP       ANSI REQUIRES *PRECISION*                           TYPE         631          I
          -FC5A126
 TYPE               EQ     EXIT.                                                           TYPE         632          I
          -FC5A126
 TYPE                                                                                      TYPE         633          I
          -FC5A126
 TYPE                                                                                      TYPE         634          I
          -FC5A126
 TYPE      CDPA     CON    7LPRECISI+O.VAR                                                 TYPE         635          I
          -FC5A126
 TYPE      CDPB     SUBKEY PRECISION                                                       TYPE         636          I
          -FC5A126
 TYPE      CSK      SPACE  4,10                                                            TYPE         637     A     
 TYPE     **        CSK - CHECK SUB-KEYWORD.                                               TYPE         638     A     
 TYPE     *                                                                                TYPE         639     A     
 TYPE     *                                                                                TYPE         640     A     
 TYPE     *         THIS ROUTINE CHECKS A SUB-KEYWORD ON AN *IMPLICIT*                     TYPE         641     A     
 TYPE     *         STATEMENT AND RETURNS A SUB-KEYWORD TYPE CODE.                         TYPE         642     A     
 TYPE     *                                                                                TYPE         643     A     
 TYPE     *         ENTRY  (B4) = ADDR OF SUB-KEYWORD IN *T.TB*.                           TYPE         644     A     
 TYPE     *                                                                                TYPE         645     A     
 TYPE     *         EXIT   (B4) = ADDR OF TOKEN FOLLOWING SUB-KEYWORD.                     TYPE         646     A     
 TYPE     *                (X4) = SUB-KEYWORD TYPE CODE.                                   TYPE         647     A     
 TYPE     *                (X6) = CHARACTER LENGTH (WC. FORMAT, IF TYPE CHARACTER)         TYPE         648     A     
 TYPE     *                                                                                TYPE         649     A     
 TYPE     *         USES   ALL                                                             TYPE         650     A     
 TYPE     *                                                                                TYPE         651     A     
 TYPE     *         CALLS  CAK, CCL, CDP                                                   TYPE         652     A     
 TYPE                                                                                      TYPE         653     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1083    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE                                                                                      TYPE         654     A     
 TYPE      CSK      SUBR               ** ENTRY/EXIT **                                    TYPE         655     A     
 TYPE               SB6    FW.TYSK     (B6) = FWA OF *TYPE* SUB-KEYWORD TABLE              TYPE         656     A     
 TYPE               SB7    L.TYSK      (B7) = LEN OF *TYPE* SUB-KEYWORD TABLE              TYPE         657     A     
 TYPE               CALL   CAK         CHECK FOR AND ADJUST KEYWORD                        TYPE         658     A     
 TYPE               ZR     B7,E.TYI    IF NO SUB-KEYWORD                                   TYPE         659     A     
 TYPE               MI     B7,E.TYI    IF MISSPELLED KEYWORD                               TYPE         660     A     
 TYPE               SA6    CSKA        SAVE *SUBKEY* TABLE ENTRY                           TYPE         661          I
          -FC5A126
 TYPE               LX6    0-KW.INFOP                                                      TYPE         662     A     
 TYPE               SX7    X6-M.DBL                                                        TYPE         663          I
          -FC5A126
 TYPE               NZ     X7,CSK3     IF NOT *DOUBLE*                                     TYPE         664          I
          -FC5A126
 TYPE                                                                                      TYPE         665          I
          -FC5A126
 TYPE     *         NEED TO SPECIAL-CASE *DOUBLE PRECISION*.                               TYPE         666          I
          -FC5A126
 TYPE                                                                                      TYPE         667          I
          -FC5A126
 TYPE               RJ     CDP         CHECK *DOUBLE PRECISION*                            TYPE         668          I
          -FC5A126
 TYPE                                                                                      TYPE         669          I
          -FC5A126
 TYPE     *         HERE TO SET UP EXIT CONDITIONS.                                        TYPE         670          I
          -FC5A126
 TYPE                                                                                      TYPE         671          I
          -FC5A126
 TYPE      CSK3     SA4    CSKA        (X4) = SAVED FOUND *SUBKEY* ENTRY                   TYPE         672          I
          -FC5A126
 TYPE               LX4    0-KW.INFOP                                                      TYPE         673          I
          -FC5A126
 TYPE               SX4    X4                                                              TYPE         674          I
          -FC5A126
 TYPE               SX4    X6                                                              FC5A126       37     A     
 TYPE               ERRNZ  18-KW.INFOL                                                     TYPE         675     A     
 TYPE               MX6    0           RETURN (X6) = 0 WHEN NOT CHAR                       TYPE         676     A     
 TYPE               SX7    X4-M.CHAR                                                       TYPE         677     A     
 TYPE               NZ     X7,EXIT.    IF NOT CHARACTER                                    TYPE         678     A     
 TYPE               MX7    1                                                               TYPE         679     A     
 TYPE               SA7    CHARDCL                                                         TYPE         680     A     
 TYPE               =X6    1           DEFAULT CHARACTER LENGTH                            TYPE         681     A     
 TYPE               LX6    WC.CLENP                                                        TYPE         682     A     
 TYPE               CALL   CCL         CHECK CHARACTER LENGTH                              TYPE         683          I
          -FC5A257
 TYPE               RJ     CCL         CHECK CHARACTER LENGTH                              FC5A257       50     A     
 TYPE               =X4    M.CHAR      RESTORE (X4) = CHAR                                 TYPE         684     A     
 TYPE               EQ     EXIT.                                                           TYPE         685     A     
 TYPE                                                                                      TYPE         686          I
          -FC5A126
 TYPE                                                                                      TYPE         687          I
          -FC5A126
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1084    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE      CSKA     BSSZ   1           SAVED FOUND *SUBKEY* ENTRY                          TYPE         688          I
          -FC5A126
 TYPE      FW.TYSK  SPACE  4,10                                                            TYPE         689     A     
 TYPE     **        FW.TYSK - *TYPE/IMPLICIT* SUB-KEYWORD TABLE.                           TYPE         690     A     
 TYPE     *                                                                                TYPE         691     A     
 TYPE     *                                                                                TYPE         692     A     
 TYPE                                                                                      TYPE         693     A     
 TYPE      FW.TYSK  BSS    0           FWA OF *IMPLICIT* SUB-KEYWORD TABLE                 TYPE         694     A     
 TYPE               SUBKEY BOOLEAN,M.BOOL                                                  TYPE         695     A     
 TYPE               SUBKEY CHARACTER,M.CHAR                                                TYPE         696     A     
 TYPE               SUBKEY COMPLEX,M.CPLX                                                  TYPE         697     A     
 TYPE               SUBKEY DOUBLE,M.DBL                                                    TYPE         698          I
          -FC5A126
 TYPE               SUBKEY DOUBLEPRECISION,M.DBL                                           FC5A126       38     A     
 TYPE               SUBKEY INTEGER,M.INT                                                   TYPE         699     A     
 TYPE               SUBKEY LOGICAL,M.LOG                                                   TYPE         700     A     
 TYPE               SUBKEY REAL,M.REAL                                                     TYPE         701     A     
 TYPE      L.TYSK   =      *-FW.TYSK                                                       TYPE         702     A     
 TYPE               SPACE  4,10                                                            TYPE         703     A     
 TYPE               LIST   D                                                               TYPE         704     A     
 TYPE               END                                                                    TYPE         705     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TYPE    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TYPE                       705       605
          FC5A116                      2         2
          FC5A126                      4         3
          FC5A156                      1         1
          F1037F5                      2         1
          FC5A225                     60        50
          FC5A227                     14        11
          FC5A257                     44        44
          FC5A262                      1         1
          FC50110                      3         3
          FC5A338                     16        14
          FC50515                      6         5
          FC5A339                     10        10
          FC50592                      6         6
          FC50972                     34        34
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      *DECK     FMT                                                                    FMT            1     A     
 FMT                IDENT  FMT                                                             FMT            2     A     
 FMT       FMT      SECT   (FORMAT STATEMENT PROCESSOR.)                                   FMT            3     A     
 FMT       FMT      SPACE  4                                                               FMT            4     A     
 FMT      *         IN ALLOC                                                               FMT            5     A     
 FMT                EXT    ALC                                                             FMT            6     A     
 FMT                                                                                       FMT            7     A     
 FMT      *         IN FEC                                                                 FMT            8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1085    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                EXT    CT1,FEC.RTN,FORSKEL,SSY,T=CONB                                  FMT            9     A     
 FMT                                                                                       FMT           10     A     
 FMT      *         IN FERRS                                                               FMT           11     A     
 FMT                EXT    E.FS00,E.FS01,E.FS02,E.FS03,E.FS04,E.FS05,E.FS06,E.FS07         FMT           12     A     
 FMT                EXT    E.FS08,E.FS09,E.FS10,E.FS11,E.FS12,E.FS13,E.FS14,E.FS15         FMT           13     A     
 FMT                EXT    E.FS16,E.FS17,E.FS18,E.FS19,E.FS20,E.FS21,E.FS22,E.FS23         FMT           14     A     
 FMT                EXT    E.FS24,E.FS25,FILL.                                             FMT           15          I
          -FC5A184
 FMT                EXT    E.FS24,E.FS25,E.FS26,FILL.                                      FC5A184       74     A     
 FMT                                                                                       FMT           16     A     
 FMT      *         IN LEX                                                                 FMT           17     A     
 FMT                EXT    TB=LABR                                                         FMT           18     A     
 FMT                                                                                       FMT           19     A     
 FMT      *         IN PEM                                                                 FMT           20     A     
 FMT                EXT    ANSI=,PDM                                                       FMT           21     A     
 FMT                                                                                       FMT           22     A     
 FMT      *         IN PUC                                                                 FMT           23     A     
 FMT                EXT    T=CON,T=FMT,T.CON,T.FMT,T.SYM                                   FMT           24     A     
 FMT                                                                                       FMT           25     A     
 FMT      *         IN UTILITY                                                             FMT           26     A     
 FMT                EXT    CDD,MVE=                                                        FMT           27     A     
 FMT                TITLE  TABLES, CELLS, DESCRIBES.                                       FMT           28     A     
 FMT       FM.      SPACE  4,10                                                            FMT           29     A     
 FMT      **        FM. -  FORMAT TOKEN JUMP TABLE DEFINITION.                             FMT           30     A     
 FMT                                                                                       FMT           31     A     
 FMT                DESCRIBE FM.                                                           FMT           32     A     
 FMT                                                                                       FMT           33     A     
 FMT       DPC      DEFINE 36          DPC OF TOKEN FOR FORMAT PROCESSING                  FMT           34     A     
 FMT                DEFINE 5                                                               FMT           35     A     
 FMT       FIX      DEFINE             FIXED CHARACTER STRING FOR FORMAT PROCESSOR         FMT           36     A     
 FMT       ADDR     DEFINE 18          FMT PROCESSOR ADDRESS                               FMT           37     A     
 FMT       FMT=     SPACE  4,10                                                            FMT           38     A     
 FMT      **        FMT= - MACRO TO DEFINE FORMAT TOKEN CONTROL TABLE.                     FMT           39     A     
 FMT                                                                                       FMT           40     A     
 FMT                                                                                       FMT           41     A     
 FMT                PURGMAC  FMT=                                                          FMT           42     A     
 FMT                                                                                       FMT           43     A     
 FMT                MACRO  FMT=,DEST,DPC,ILL                                               FMT           44     A     
 FMT       .1       IFC    EQ,/ILL//                                                       FMT           45     A     
 FMT       A        MICRO  1,3, DEST                                                       FMT           46     A     
 FMT       .1       ELSE                                                                   FMT           47     A     
 FMT       A        MICRO  1,, ILL                                                         FMT           48     A     
 FMT       .1       ENDIF                                                                  FMT           49     A     
 FMT       B        MICRO  1,, DPC                                                         FMT           50     A     
 FMT       C        MICCNT B                                                               FMT           51     A     
 FMT       C        DECMIC C                                                               FMT           52     A     
 FMT       .1       IFEQ   C,0                                                             FMT           53     A     
 FMT       D        DECMIC C                                                               FMT           54     A     
 FMT       .1       ELSE                                                                   FMT           55     A     
 FMT       D        DECMIC 1                                                               FMT           56     A     
 FMT       .1       ENDIF                                                                  FMT           57     A     
 FMT                VFD    FM.DPCL/"C"L"B",5/0,FM.FIXL/"D",FM.ADDRL/FMT="A"                FMT           58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1086    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMT=     ENDM                                                                   FMT           59     A     
 FMT       FMT=TOK  SPACE  4,10                                                            FMT           60     A     
 FMT      *         ****NOTE****  THIS TABLE WILL EVENTUALLY BE PRODUCED VIA A             FMT           61     A     
 FMT      *         COMDECK WHICH WILL BE USED BY O.X (FTN5TXT) AND CHARMAP (FEC).         FMT           62     A     
 FMT                                                                                       FMT           63     A     
 FMT      **        FMT=TOK - BRANCH TABLE FOR TOKENS.                                     FMT           64     A     
 FMT                                                                                       FMT           65     A     
 FMT                                                                                       FMT           66     A     
 FMT       FMT=TOK  EQU    *-O.DEF                                                         FMT           67     A     
 FMT                LOC    O.DEF                                                           FMT           68     A     
 FMT                                                                                       FMT           69     A     
 FMT       EOS      FMT=                                                                   FMT           70     A     
 FMT       HOLL     FMT=                                                                   FMT           71     A     
 FMT       QHOLL    FMT=                                                                   FC5A258       33     A     
 FMT       RLCON    FMT=                                                                   FC5A258       34     A     
 FMT       CHAR     FMT=                                                                   FMT           72     A     
 FMT       CONS     FMT=                                                                   FMT           73     A     
 FMT       OCT      FMT=   O"CTAL,ILL                                                      FMT           74     A     
 FMT       HEX      FMT=   X"HEX,ILL                                                       FMT           75     A     
 FMT       PERIOD   FMT=   .                                                               FMT           76     A     
 FMT       VAR      FMT=                                                                   FMT           77     A     
 FMT       TRUE     FMT=   TRUE,ILL                                                        FMT           78     A     
 FMT       FALSE    FMT=   FALSE,ILL                                                       FMT           79     A     
 FMT       PL       FMT=   +                                                               FMT           80     A     
 FMT       MIN      FMT=   -                                                               FMT           81     A     
 FMT       STAR     FMT=   *,ILL                                                           FMT           82     A     
 FMT       SLASH    FMT=   /                                                               FMT           83     A     
 FMT       UMIN     FMT=   UNARY-,INV                                                      FMT           84     A     
 FMT       EXP      FMT=   **,ILL                                                          FMT           85     A     
 FMT       LT       FMT=   .LT.,ILL                                                        FMT           86     A     
 FMT       GE       FMT=   .GE.,ILL                                                        FMT           87     A     
 FMT       EQ       FMT=   .EQ.,ILL                                                        FMT           88     A     
 FMT       NE       FMT=   .NE.,ILL                                                        FMT           89     A     
 FMT       LE       FMT=   .LE.,ILL                                                        FMT           90     A     
 FMT       GT       FMT=   .GT.,ILL                                                        FMT           91     A     
 FMT       NOT      FMT=   .NOT.,ILL                                                       FMT           92     A     
 FMT       AND      FMT=   .AND.,ILL                                                       FMT           93     A     
 FMT       XOR      FMT=   .NEQV.,ILL                                                      FMT           94          I
          -FC51485
 FMT       XOR      FMT=   .XOR.,ILL                                                       FC51485       21     A     
 FMT       NEQV     FMT=   .NEQV.,ILL                                                      FC51485       22     A     
 FMT       EQV      FMT=   .EQV.,ILL                                                       FMT           95     A     
 FMT       OR       FMT=   .OR.,ILL                                                        FMT           96     A     
 FMT       CAT      FMT=   //                                                              FMT           97     A     
 FMT       LP       FMT=   ()(                                                             FMT           98     A     
 FMT       RP       FMT=   )                                                               FMT           99     A     
 FMT       =        FMT=   (=),ILL                                                         FMT          100     A     
 FMT       COMMA    FMT=   (,)                                                             FMT          101     A     
 FMT       COLON    FMT=   (: )                                                            FMT          102     A     
 FMT       SLP      FMT=   NSTD(,INV                                                       FMT          103     A     
 FMT       STFA     FMT=   STFARG,INV                                                      FMT          104     A     
 FMT       ILL      FMT=   ILL-CH      **MODIFY WHEN LEX PUTS CHARACTER IN TOKEN**         FMT          105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1087    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                                                                                       FMT          106     A     
 FMT                LOC    *O                                                              FMT          107     A     
 FMT                                                                                       FC5A380        5     A     
 FMT       FMTSEP   BITMIC (O.COMMA,O.RP,O.COLON,O.SLASH,O.CAT)                            FC5A380        6     A     
 FMT       JTFMT    SPACE  4,10                                                            FMT          108     A     
 FMT      **        JTFMT - FORMAT JUMP TABLE. (O.VAR AND O.CONS)                          FMT          109     A     
 FMT                                                                                       FMT          110     A     
 FMT                                                                                       FMT          111     A     
 FMT       JTFMT    MACRO  JUMPS                                                           FMT          112     A     
 FMT                VFD    28/0                                                            FMT          113     A     
 FMT                IRP    JUMPS                                                           FMT          114     A     
 FMT       .1       IFC    EQ,/JUMPS//                                                     FMT          115     A     
 FMT                VFD    8/0                                                             FMT          116     A     
 FMT       .1       ELSE                                                                   FMT          117     A     
 FMT                VFD    8/FMT.JUMPS-FMT.                                                FMT          118     A     
 FMT       .1       ENDIF                                                                  FMT          119     A     
 FMT                IRP                                                                    FMT          120     A     
 FMT       JTFMT    ENDM                                                                   FMT          121     A     
 FMT                                                                                       FMT          122     A     
 FMT                                                                                       FMT          123     A     
 FMT      **        JUMP TABLE PARAMETERS.                                                 FMT          124     A     
 FMT                                                                                       FMT          125     A     
 FMT                                                                                       FMT          126     A     
 FMT       FMTJT    BSS    0                                                               FMT          127     A     
 FMT                JTFMT  (C,B,A,ILL)                                                     FMT          128     A     
 FMT                JTFMT  (G,F,E,D)                                                       FMT          129     A     
 FMT                JTFMT  (K,J,I,H)                                                       FMT          130     A     
 FMT                JTFMT  (O,N,M,L)                                                       FMT          131     A     
 FMT                JTFMT  (S,R,Q,P)                                                       FMT          132     A     
 FMT                JTFMT  (W,V,U,T)                                                       FMT          133     A     
 FMT                JTFMT  (,Z,Y,X)                                                        FMT          134     A     
 FMT       CELLS    SPACE  4,10                                                            FMT          135     A     
 FMT       LVMAX    EQU    9           MAXIMUM LEVEL OF PARENTHESES                        FMT          136          I
          -FC50553
 FMT       LVMAX    EQU    10          MAXIMUM LEVEL OF PARENTHESES                        FC50553        7     A     
 FMT       FMTRC    CON    1           CURRENT REPEAT COUNT (FOR THIS PAREN LEVEL)         FMT          137     A     
 FMT       LVSTAK   BSS    LVMAX       PAREN LEVEL STACK -- 1/SLASH-TAB, 23/0,             FMT          138     A     
 FMT                                   18/FMTRL, 18/REPEAT COUNT                           FMT          139     A     
 FMT       FMTRL    DATA   0           CURRENT RECORD LENGTH.                              FMT          140     A     
 FMT       FMTPRL   DATA   0           RECORD LENGTH OF NESTED PAREN LEVEL                 FC50800       10          I
          -FC51497
 FMT       FMTRLC   DATA   0           FLAG TO INDICATE WHETHER ERROR SHOULD BE            FMT          141     A     
 FMT                                   ISSUED FOR COLUMN COUNT EXCEEDED                    FMT          142     A     
 FMT       EDRPT    CON    1           EDIT DESCRIPTOR REPEAT COUNT                        FMT          143     A     
 FMT       EDWID    CON    1           EDIT DESCRIPTOR FIELD WIDTH                         FMT          144     A     
 FMT       FMTIDX   BSS    1           SYMTAB *WB* INDEX OF FORMAT                         FC5A369        6     A     
 FMT       ES.      SPACE  4,10                                                            FMT          145     A     
 FMT      **        EDSTA - EDIT STATUS WORD.                                              FMT          146     A     
 FMT      *                                                                                FMT          147     A     
 FMT      *         USED TO KEEP TRACK OF WHAT HAS HAPPENED DURING RECOGNITION OF          FMT          148     A     
 FMT      *         EDIT DESCRIPTORS.                                                      FMT          149     A     
 FMT                                                                                       FMT          150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1088    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                                                                                       FMT          151     A     
 FMT                DESCRIBE ES.                                                           FMT          152     A     
 FMT       TB       DEFINE 18          ADDRESS OF FIRST TOKEN OF DESCRIPTOR                FMT          153     A     
 FMT       TGRP     DEFINE 3           TAB GROUP (T,TL,TR EDIT DESCRIPTORS)                FMT          154     A     
 FMT       ATTR     DEFINE 33          ATTRIBUTES                                          FMT          155     A     
 FMT       SC       DEFINE 6           STATUS CODES                                        FMT          156     A     
 FMT                                                                                       FMT          157     A     
 FMT                REDEF  TGRP                                                            FMT          158     A     
 FMT       T        DEFINE             EDIT DESCRIPTOR IS TAB                              FMT          159     A     
 FMT       TL       DEFINE             EDIT DESCRIPTOR IS TAB LEFT                         FMT          160     A     
 FMT       TR       DEFINE             EDIT DESCRIPTOR IS TAB RIGHT                        FMT          161     A     
 FMT                                                                                       FMT          162     A     
 FMT                REDEF  ATTR                                                            FMT          163     A     
 FMT                DEFINE 17                                                              FMT          164          I
          -FC5A161
 FMT                DEFINE 16                                                              FC5A161        5          I
          -FC50555
 FMT                DEFINE 15                                                              FC50555        7     A     
 FMT       MD       DEFINE             M OR D FIELD OCCURRED                               FC50555        8     A     
 FMT       WLD      DEFINE             WIDTH-LESS DESCRIPTOR                               FC5A161        6     A     
 FMT       HOL      DEFINE             HOLLERITH/CHARACTER DESCRIPTOR                      FMT          165     A     
 FMT       SF       DEFINE             SCALE FACTOR OCCURRED                               FMT          166     A     
 FMT       SP       DEFINE             SCALE FACTOR PERMITTED                              FMT          167     A     
 FMT       SGN      DEFINE             + OR - OCCURRED                                     FMT          168     A     
 FMT       RPT      DEFINE             REPEAT COUNT FIELD PRESENT                          FMT          169     A     
 FMT       WF       DEFINE             FIELD WIDTH OCCURRED                                FMT          170     A     
 FMT       WR       DEFINE             FIELD WIDTH REQUIRED                                FMT          171     A     
 FMT       DES      DEFINE             DESCRIPTOR OCCURRED                                 FMT          172     A     
 FMT       EXP      DEFINE             EXPONENT OCCURRED                                   FMT          173     A     
 FMT       EF       DEFINE             EXPONENT FIELD OCCURRED                             FMT          174     A     
 FMT       EP       DEFINE             EXPONENT PERMITTED                                  FMT          175     A     
 FMT       PER      DEFINE             . OCCURRED                                          FMT          176     A     
 FMT       PP       DEFINE             . PERMITTED                                         FMT          177     A     
 FMT       PR       DEFINE             . REQUIRED                                          FMT          178     A     
 FMT       ERR      DEFINE             ERROR DETECTED                                      FMT          179     A     
 FMT       FIN      DEFINE             FINAL ALLOWABLE STRING IN DESCRIPTOR FOUND          FMT          180     A     
 FMT                                                                                       FMT          181     A     
 FMT                REDEF  SC                                                              FMT          182     A     
 FMT       IS       DEFINE             INITIAL TOKEN STATE                                 FMT          183     A     
 FMT       SS       DEFINE             SCALE FACTOR STATE                                  FMT          184     A     
 FMT       RS       DEFINE             REPEAT COUNT STATE                                  FMT          185     A     
 FMT       DS       DEFINE             EDIT DESCRIPTOR STATE                               FMT          186     A     
 FMT       WS       DEFINE             FIELD WIDTH STATE                                   FMT          187     A     
 FMT       MS       DEFINE             M OR D FIELD STATE                                  FMT          188     A     
 FMT                                                                                       FMT          189     A     
 FMT                                                                                       FMT          190     A     
 FMT       EDSTA    CON    0           EDIT STATUS WORD                                    FMT          191     A     
 FMT                TITLE  FORMAT                                                          FMT          192     A     
 FMT       FMT      SPACE  4,10                                                            FMT          193     A     
 FMT      **        FMT -  PROCESS "FORMAT" STATEMENT.                                     FMT          194     A     
 FMT      *                                                                                FMT          195     A     
 FMT      *         *FMT* SCANS FORMAT FOR SYNTACTICAL CORRECTNESS, CHECKING FOR           FMT          196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1089    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      *         ILLEGAL COMBINATIONS AND MISCELLANEOUS PROGRAMMER ERRORS.  THE         FMT          197     A     
 FMT      *         GOAL IS TO CONTINUE TO VERIFY THE FORMAT IN ALL CASES, EVEN            FMT          198     A     
 FMT      *         WHEN ERROR(S) ARE ENCOUNTERED.                                         FMT          199     A     
 FMT      *                                                                                FMT          200     A     
 FMT      *         ENTRY  (B4) _ START OF *TB*.                                           FMT          201     A     
 FMT      *                                                                                FMT          202     A     
 FMT      *         EXIT   TO *FEC.RTN*                                                    FMT          203     A     
 FMT      *                                                                                FMT          204     A     
 FMT      *         CALLS  AED, CRL, CT1, EST, MVE=, PFC, SSY                              FMT          205     A     
 FMT      *                                                                                FMT          206     A     
 FMT      *         USES   ALL REGISTERS.                                                  FMT          207     A     
 FMT                                                                                       FMT          208     A     
 FMT                                                                                       FMT          209     A     
 FMT                HEREIF FORMAT                                                          FMT          210     A     
 FMT                                                                                       FMT          211     A     
 FMT                SX6    0                                                               FC5A369        7     A     
 FMT                SA6    FMTIDX      INITIALIZE                                          FC5A369        8     A     
 FMT                SA1    TB=LABR     STATEMENT LABEL, IN -R- FORMAT                      FMT          212     A     
 FMT                SA5    =5L.BAD.                                                        FMT          213     A     
 FMT                SB2    B0+                                                             FMT          214     A     
 FMT                NZ     X1,FMT1     IF STATEMENT LABEL FIELD PRESENT                    FMT          215     A     
 FMT                FATAL  E.FS00                                                          FMT          216     A     
 FMT                EQ     FMT5                                                            FC5A108        6     A     
 FMT                                                                                       FC5A108        7     A     
 FMT       FMT1     MI     X1,FMT5     IF BAD LABEL                                        FMT          217     A     
 FMT                SA3    =5L                                                             FMT          218     A     
 FMT                BX6    X1                                                              FMT          219     A     
 FMT                LX1    5*CHAR                                                          FMT          220     A     
 FMT                MX0    -CHAR                                                           FMT          221     A     
 FMT                BX5    0                                                               FMT          222     A     
 FMT                                                                                       FMT          223     A     
 FMT      *        PACK STATEMENT LABEL AND LINE NUMBER FOR I/O ROUTINES.                  FMT          224     A     
 FMT                                                                                       FMT          225     A     
 FMT       FMT2     LX1    CHAR                                                            FMT          226     A     
 FMT                BX2    -X0*X1                                                          FMT          227     A     
 FMT                ZR     X2,FMT2     IF NO DIGIT YET                                     FMT          228     A     
 FMT                                                                                       FC5A369        9     A     
 FMT       FMT3     ZR     X2,FMT4     IF END OF STATEMENT LABEL                           FMT          229     A     
 FMT                LX5    CHAR                                                            FMT          230     A     
 FMT                SB2    B2+CHAR                                                         FMT          231     A     
 FMT                LX1    CHAR                                                            FMT          232     A     
 FMT                BX5    X2+X5                                                           FMT          233     A     
 FMT                BX2    -X0*X1                                                          FMT          234     A     
 FMT                EQ     FMT3        CONTINUE                                            FMT          235     A     
 FMT                                                                                       FMT          236     A     
 FMT      **        (X5) = 0L [STATEMENT LABEL]                                            FMT          237     A     
 FMT                                                                                       FMT          238     A     
 FMT       FMT4     SB3    10*CHAR-1                                                       FMT          239     A     
 FMT                SB2    B2-B1                                                           FMT          240     A     
 FMT                MX0    1                                                               FMT          241     A     
 FMT                SB6    B3-B2                                                           FMT          242     A     
 FMT                AX0    B2,X0                                                           FMT          243     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1090    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                BX1    -X0*X3                                                          FMT          244     A     
 FMT                LX5    B6,X5                                                           FMT          245     A     
 FMT                BX5    X1+X5       ADD IN TRAILING BLANKS.                             FMT          246     A     
 FMT                LX6    WA.STLP                                                         FMT          247     A     
 FMT                RJ     SSY                                                             FMT          248     A     
 FMT                IFEQ   TEST,ON,1                                                       FMT          249     A     
 FMT                MI     B7,"BLOWUP" IF LABEL NOT IN SYMTAB                              FMT          250     A     
 FMT                                                                                       FMT          251     A     
 FMT      *         (B7) = SYMBOL TABLE INDEX FOR STATEMENT LABEL.                         FMT          252     A     
 FMT      *         (X0) = SYMBOL TABLE ORDINAL FOR STATEMENT LABEL.                       FMT          253     A     
 FMT      *         (X5) = FORMAT LABEL FOR ENTRY INTO FORMAT SKELETON TABLE.              FMT          254     A     
 FMT                                                                                       FMT          255     A     
 FMT                SX6    B7                                                              FC5A369       10     A     
 FMT                SA6    FMTIDX                                                          FC5A369       11     A     
 FMT                RJ     CT1         GET LABEL TAG                                       FMT          256     A     
 FMT                SA3    T=FMT                                                           FMT          257     A     
 FMT                SA4    T.SYM                                                           FMT          258     A     
 FMT                =B7    B7-WB.W+WC.W                                                    FMT          259     A     
 FMT                SA4    X4+B7       FETCH SYMTAB WORD (WC.)                             FMT          260     A     
 FMT                LX3    WC.RAP                                                          FMT          261     A     
 FMT                IX6    X4+X3       (WC.RA) = ADDRESS RELATIVE TO (T.FMT)               FMT          262     A     
 FMT                SA6    A4                                                              FMT          263     A     
 FMT                                                                                       FMT          264     A     
 FMT       FMT5     BX7    X5                                                              FMT          265     A     
 FMT                SA7    FORSKEL     5L [STATEMENT LABEL (BLANK PADDED)]                 FMT          266     A     
 FMT                                                                                       FMT          267     A     
 FMT      **        INITIALIZE FOR MASTER LOOP.                                            FMT          268     A     
 FMT                                                                                       FMT          269     A     
 FMT                SB6    B0          PARENTHESIS LEVEL COUNTER                           FMT          270     A     
 FMT                BX6    0                                                               FMT          271     A     
 FMT                SB5    9*CHAR      CHARACTER SHIFT COUNT FOR FORMAT BUILD WORD         FMT          272     A     
 FMT                SA4    B4          FETCH 1ST *(* OF FORMAT                             FMT          273     A     
 FMT                SA6    FMTRL       CHARACTER/RECORD COUNTER                            FMT          274     A     
 FMT                SA6    FMTRLC      CLEAR RECORD LENGTH CHECK                           FMT          275     A     
 FMT                SA6    EDSTA       CLEAR EDIT STATUS WORD                              FMT          276     A     
 FMT                MX7    0           FORMAT BUILD WORD                                   FMT          277     A     
 FMT                SB2    X4-O.LP                                                         FC5A184       75     A     
 FMT                ZR     B2,FMT=NX   IF LEFT PAREN                                       FC5A184       76     A     
 FMT                FATAL  E.FS26      **  MISSING LEFT PAREN                              FC5A184       77     A     
 FMT      *         EQ     FMT=NX                                                          FMT          278     A     
 FMT                TITLE  TOKEN LOOP.                                                     FMT          279     A     
 FMT       FMT=     SPACE  4,10                                                            FMT          280     A     
 FMT      **        MASTER LOOP FOR CHECKING SYNTAX OF FORMAT.                             FMT          281     A     
 FMT      *                                                                                FMT          282     A     
 FMT      *         (A4) _ CURRENT *TB* TOKEN PROCESSING                                   FMT          283     A     
 FMT      *         (A7) = SKELETON STORE ADDRESS-1                                        FMT          284     A     
 FMT      *         (X7) = CURRENT BUILD WORD                                              FMT          285     A     
 FMT      *         (B6) = PARENTHESIS LEVEL                                               FMT          286     A     
 FMT                                                                                       FMT          287     A     
 FMT                                                                                       FMT          288     A     
 FMT       FMT=NX   BSS    0                                                               FMT          289     A     
 FMT                SB2    X4+                                                             FMT          290     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1091    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SX1    B2-O.ILL-1                                                      FMT          291     A     
 FMT                PL     X1,"BLOWUP" IF BAD TOKEN                                        FMT          292     A     
 FMT                SA1    B2+FMT=TOK  FETCH TOKEN TABLE ENTRY                             FMT          293     A     
 FMT                LX1    -FM.ADDRP                                                       FMT          294     A     
 FMT                SB7    X1          JUMP ADDRESS                                        FMT          295     A     
 FMT                ERRNZ  18-FM.ADDRL                                                     FMT          296     A     
 FMT                LX1    FM.ADDRP                                                        FMT          297     A     
 FMT                MX0    FM.DPCL                                                         FMT          298     A     
 FMT                BX6    X0*X1                                                           FMT          299     A     
 FMT                SBIT   X1,FM.FIXP                                                      FMT          300     A     
 FMT                MI     X1,FMT=NX1  IF FIXED CHARACTER STRING                           FMT          301     A     
 FMT                JP     B7          PROCESS FORMAT INFORMATION FROM TOKEN               FMT          302     A     
 FMT                                                                                       FMT          303     A     
 FMT       FMT=NX1  LX4    X6                                                              FMT          304     A     
 FMT                RJ     PFC         PROCESS FORMAT CHARACTER(S)                         FMT          305     A     
 FMT                JP     B7          FINISH PROCESSING                                   FMT          306     A     
 FMT       FMT=COM  SPACE  4,10                                                            FMT          307     A     
 FMT      **        HERE ON *,*.                                                           FMT          308     A     
 FMT                                                                                       FMT          309     A     
 FMT       FMT=COM  BSS    0                                                               FMT          310     A     
 FMT                SA1    EDSTA                                                           FMT          311     A     
 FMT                NZ     X1,FMT=COM1 IF NOT EXTRANEOUS *,*                               FMT          312     A     
 FMT                SA1    A4-1                                                            FMT          313     A     
 FMT                SB2    X1-O.RP                                                         FMT          314     A     
 FMT                ZR     B2,FMT=COM1 IF PREVIOUS *)*                                     FMT          315     A     
 FMT                WARN   E.FS20                                                          FMT          316     A     
 FMT       FMT=COM1 RJ     AED         ANALYZE EDIT DESCRIPTOR                             FMT          317     A     
 FMT                SA4    A4+1        NEXT TOKEN                                          FMT          318     A     
 FMT                EQ     FMT=NX                                                          FMT          319     A     
 FMT       FMT=COL  SPACE  4,10                                                            FMT          320     A     
 FMT      **        HERE ON *:*.                                                           FMT          321     A     
 FMT                                                                                       FMT          322     A     
 FMT       FMT=COL  BSS    0                                                               FMT          323     A     
 FMT                RJ     AED         ANALYZE EDIT DESCRIPTOR                             FMT          324     A     
 FMT                SA4    A4+1        NEXT TOKEN                                          FMT          325     A     
 FMT                EQ     FMT=SL2     ATTEMPT TO BYPASS *,*                               FMT          326     A     
 FMT       FMT=CAT  SPACE  4,10                                                            FMT          327     A     
 FMT      **        HERE ON */*, OR *//*.                                                  FMT          328     A     
 FMT                                                                                       FMT          329     A     
 FMT       FMT=CAT  BSS    0                                                               FMT          330     A     
 FMT       FMT=SLA  BSS    0                                                               FMT          331     A     
 FMT                RJ     AED         ANALYZE EDIT DESCRIPTOR                             FMT          332     A     
 FMT                SA1    B6+LVSTAK-1                                                     FC5A161        7     A     
 FMT                MX6    1           MARK *SLASH IN NEST*                                FC5A161        8     A     
 FMT                SA6    A1                                                              FC5A161        9     A     
 FMT                SA2    FMTRL                                                           FC5A161       10     A     
 FMT                MX0    1                                                               FC5A161       11     A     
 FMT                BX1    -X0*X1      CLEAR SLASH BIT                                     FC5A161       12     A     
 FMT                AX1    18                                                              FC5A161       13     A     
 FMT                IX6    X1+X2                                                           FC5A161       14     A     
 FMT                RJ     CRL         CHECK RECORD LENGTH UP TO SLASH                     FC5A161       15     A     
 FMT                BX6    0                                                               FMT          333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1092    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SA6    FMTRL       RESTART RECORD LENGTH                               FMT          334     A     
 FMT                =A4    A4+1        NEXT TOKEN                                          FMT          335     A     
 FMT                                                                                       FMT          336     A     
 FMT      *         *,* CAN BE ELIMINATED IF NEXT CHARACTER.                               FMT          337     A     
 FMT                                                                                       FMT          338     A     
 FMT       FMT=SL2  SB7    X4-O.COMMA                                                      FMT          339     A     
 FMT                NZ     B7,FMT=NX   IF NOT FOLLOWED BY *,*                              FMT          340     A     
 FMT                SA4    A4+1        BYPASS *,*                                          FMT          341     A     
 FMT                EQ     FMT=NX                                                          FMT          342     A     
 FMT       FMT=PER  SPACE  4,10                                                            FMT          343     A     
 FMT      **        HERE ON *.*                                                            FMT          344     A     
 FMT                                                                                       FMT          345     A     
 FMT       FMT=PER  BSS    0                                                               FMT          346     A     
 FMT                SA1    EDSTA       EDIT STATUS WORD                                    FMT          347     A     
 FMT                ZR     X1,FMT=ILL  IF O.PER AS FIRST TOKEN OF EDIT DESCRIPTOR          FMT          348     A     
 FMT                CLAS=  X6,ES,(PER)                                                     FMT          349     A     
 FMT                LX1    -ES.TBP                                                         FMT          350     A     
 FMT                SB4    X1          SET FOR POSSIBLE DIAGNOSTIC                         FMT          351     A     
 FMT                ERRNZ  18-ES.TBL                                                       FMT          352     A     
 FMT                LX1    ES.TBP                                                          FMT          353     A     
 FMT                BX2    X1                                                              FMT          354     A     
 FMT                SBIT   X2,ES.PPP                                                       FMT          355     A     
 FMT                MI     X2,FMT=PER1 IF PERIOD ALLOWED                                   FMT          356     A     
 FMT                FATAL  E.FS16                                                          FMT          357     A     
 FMT                CLAS=  X6,ES,(ERR)                                                     FMT          358     A     
 FMT                EQ     FMT=PER2                                                        FMT          359     A     
 FMT                                                                                       FMT          360     A     
 FMT       FMT=PER1 SBIT   X2,ES.PERP/ES.PPP                                               FMT          361     A     
 FMT                PL     X2,FMT=PER2 IF NOT MULTIPLE *.*                                 FMT          362     A     
 FMT                FATAL  E.FS21                                                          FMT          363     A     
 FMT                CLAS=  X6,ES,(ERR)                                                     FMT          364     A     
 FMT                                                                                       FMT          365     A     
 FMT       FMT=PER2 BX6    X1+X6                                                           FMT          366     A     
 FMT                SA6    A1          UPDATE                                              FMT          367     A     
 FMT                SA4    A4+1        NEXT TOKEN                                          FMT          368     A     
 FMT                EQ     FMT=NX                                                          FMT          369     A     
 FMT       FMT=PL   SPACE  4,10                                                            FMT          370     A     
 FMT      **        HERE ON *+* OR *-*.                                                    FMT          371     A     
 FMT                                                                                       FMT          372     A     
 FMT       FMT=PL   BSS    0                                                               FMT          373     A     
 FMT       FMT=MIN  BSS    0                                                               FMT          374     A     
 FMT                SA1    EDSTA       EDIT STATUS WORD                                    FMT          375     A     
 FMT                ZR     X1,FMT=PL1  IF SIGN IS FIRST TOKEN OF EDIT DESCRIPTOR           FMT          376     A     
 FMT                LX1    -ES.TBP                                                         FMT          377     A     
 FMT                SB4    X1          FOR DIAGNOSTIC                                      FMT          378     A     
 FMT                ERRNZ  18-ES.TBL                                                       FMT          379     A     
 FMT                FATAL  E.FS25                                                          FMT          380     A     
 FMT                RJ     AED         ANALYZE EDIT DESCRIPTOR.                            FMT          381     A     
 FMT                                                                                       FC50766        5     A     
 FMT       FMT=PL1  RJ     RED         RESTART EDIT DESCRIPTOR                             FMT          382     A     
 FMT                SA1    EDSTA                                                           FMT          383     A     
 FMT                CLAS=  X6,ES,(SGN)                                                     FMT          384     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1093    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                BX6    X1+X6                                                           FMT          385     A     
 FMT                SA6    A1          UPDATE                                              FMT          386     A     
 FMT                SA4    A4+1        NEXT TOKEN                                          FMT          387     A     
 FMT                EQ     FMT=NX                                                          FMT          388     A     
 FMT       FMT=LP   SPACE  4,10                                                            FMT          389     A     
 FMT      **        HERE ON *(*.                                                           FMT          390     A     
 FMT                                                                                       FMT          391     A     
 FMT       FMT=LP   BSS    0                                                               FMT          392     A     
 FMT                RJ     AED         ANALYZE EDIT DESCRIPTOR                             FMT          393          I
          -FC50766
 FMT                SA1    EDSTA                                                           FC50766        6     A     
 FMT                CLAS=  X2,ES,(TGRP,MD,SF,SGN,WF,DES,EXP,EF,PER)                        FC50766        7     A     
 FMT                BX2    X2*X1                                                           FC50766        8     A     
 FMT                ZR     X2,FMT=LP1  IF NO INVALID PRECEDENT                             FC50766        9     A     
 FMT                LX1    -ES.TBP                                                         FC50766       10     A     
 FMT                SB4    X1          FOR DIAGNOSTIC                                      FC50766       11     A     
 FMT                ERRNZ  18-ES.TBL                                                       FC50766       12     A     
 FMT                FATAL  E.FS25                                                          FC50766       13     A     
 FMT                                                                                       FC50766       14     A     
 FMT       FMT=LP1  RJ     AED         ANALYZE EDIT DESCRIPTOR                             FC50766       15     A     
 FMT                SA1    EDRPT                                                           FMT          394     A     
 FMT                SA2    FMTRC                                                           FMT          395     A     
 FMT                SA3    FMTRL                                                           FMT          396     A     
 FMT                =A4    A4+1        NEXT TOKEN                                          FMT          397     A     
 FMT                =B6    B6+1                                                            FMT          398     A     
 FMT                LX3    18                                                              FMT          399     A     
 FMT                BX6    X3+X2       24/0,18/FMTRL,18/FMTRC                              FMT          400     A     
 FMT                SX2    B6-LVMAX-1                                                      FMT          401     A     
 FMT                SA6    B6+LVSTAK-1 NTH LEVEL STACK WORD                                FMT          402     A     
 FMT                LX6    X1                                                              FMT          403     A     
 FMT                SA6    A2          SET FMTRC                                           FMT          404     A     
 FMT                MX6    0                                                               FMT          405          I
          -FC50800
 FMT                SA6    A3          RESET FMTRL                                         FMT          406          I
          -FC50800
 FMT                MX6    0                                                               FC50800       11     A     
 FMT                SA6    FMTPRL      RESET RECORD LENGTH OF PAREN LEVEL                  FC50800       12          I
          -FC51497
 FMT                SA6    A3          RESET FMTRL                                         FC51497        9     A     
 FMT                =X6    1                                                               FC5A161       16     A     
 FMT                SA6    A1          EDIT DESCRIPTOR REPEAT COUNT = 1                    FC5A161       17     A     
 FMT                MI     X2,FMT=NX   IF PAREN LEVEL .LE. MAX                             FMT          407     A     
 FMT                FATAL  E.FS03      EXCEEDED MAX PAREN LEVELS                           FMT          408     A     
 FMT                =B6    B6-1        IN CASE MORE LEFT PARENS                            FMT          409     A     
 FMT                EQ     FMT=NX                                                          FMT          410     A     
 FMT       FMT=RP   SPACE  4,10                                                            FMT          411     A     
 FMT      **        HERE ON *)*.                                                           FMT          412     A     
 FMT                                                                                       FMT          413     A     
 FMT       FMT=RP   BSS    0                                                               FMT          414     A     
 FMT                RJ     AED         ANALYZE EDIT DESCRIPTOR                             FMT          415          I
          -FC50553
 FMT                EQ     B6,B1,FMT=RP1  IF AT OUTERMOST (                                FC50553        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1094    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                =A1    A4-1        PREVIOUS TOKEN                                      FC50553        9     A     
 FMT                SB4    A1          FOR POSSIBLE DIAGNOSTIC                             FC50553       10     A     
 FMT                SX1    X1-O.LP                                                         FC50553       11     A     
 FMT                NZ     X1,FMT=RP1  IF NOT () [NULL EDIT DESCRIPTOR]                    FC50553       12     A     
 FMT                FATAL  E.FS22                                                          FC50553       13     A     
 FMT                                                                                       FC50553       14     A     
 FMT       FMT=RP1  RJ     AED         ANALYZE EDIT DESCRIPTOR                             FC50553       15     A     
 FMT                SA1    FMTRL                                                           FMT          416          I
          -FC5A161
 FMT                SA2    FMTRC                                                           FMT          417     A     
 FMT                SA3    B6+LVSTAK-1                                                     FMT          418     A     
 FMT                PL     X3,FMT=RP1  IF NO SLASH IN THIS LEVEL                           FC5A161       18          I
          -FC50553
 FMT                PL     X3,FMT=RP2  IF NO SLASH IN THIS LEVEL                           FC50553       16     A     
 FMT                =X2    1           USE 1 AS REPEAT COUNT                               FC5A161       19     A     
 FMT                =X3    0           USE ZERO FOR PREVIOUS LEN AND REP COUNT             FC5A161       20     A     
 FMT                ZR     B6,FMT=RP1  IF AT OUTERMOST (                                   FC5A161       21          I
          -FC50553
 FMT                EQ     B6,B1,FMT=RP2  IF AT OUTERMOST (                                FC50553       17     A     
 FMT                MX6    1                                                               FC5A161       22     A     
 FMT                =A1    A3-1                                                            FC5A161       23     A     
 FMT                BX6    X6+X1       PROPOGATE / TO OUTER LEVEL OF NEST                  FC5A161       24     A     
 FMT                SA6    A1                                                              FC5A161       25     A     
 FMT                                                                                       FC5A161       26     A     
 FMT       FMT=RP1  SA1    FMTRL                                                           FC5A161       27          I
          -FC50553
 FMT       FMT=RP2  SA1    FMTRL                                                           FC50553       18          I
          -FC50800
 FMT       FMT=RP2  SA1    FMTPRL                                                          FC50800       13          I
          -FC51497
 FMT       FMT=RP2  SA1    FMTRL                                                           FC51497       10     A     
 FMT                =B6    B6-1                                                            FMT          419     A     
 FMT                =A4    A4+1        NEXT TOKEN                                          FMT          420     A     
 FMT                IX6    X1*X2       RECORD LENGTH * REPEAT COUNT                        FMT          421     A     
 FMT                SX2    X3          PREVIOUS REPEAT COUNT                               FMT          422     A     
 FMT                AX3    18          PREVIOUS RECORD LENGTH                              FMT          423     A     
 FMT                IX6    X1+X3       INCREMENT RECORD LENGTH                             FMT          424          I
          -FC5A161
 FMT                IX6    X6+X3       INCREMENT RECORD LENGTH                             FC5A161       28     A     
 FMT                SA6    A1                                                              FMT          425          I
          -FC50800
 FMT                SA3    FMTRL                                                           FC50800       14     A     
 FMT                SA6    A3          UPDATE REAL RECORD LENGTH                           FC50800       15     A     
 FMT                RJ     CRL         CHECK RECORD LENGTH                                 FMT          426     A     
 FMT                LX6    X2                                                              FMT          427     A     
 FMT                SA6    A2          RESTORE PREVIOUS REPEAT COUNT                       FMT          428     A     
 FMT                ZR     B6,FMT=EOS1 IF TERMINAL *(*                                     FMT          429          I
          -FC5A380
 FMT                ZR     B6,FMT=EOS1 IF TERMINAL *)*                                     FC5A380        7     A     
 FMT                SA1    ="FMTSEP"                                                       FC5A380        8     A     
 FMT                SB7    X4          UPCOMING TOKEN                                      FC5A380        9     A     
 FMT                LX1    X1,B7                                                           FC5A380       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1095    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                MI     X1,FMT=NX   IF NEXT IS SEPARATOR                                FC5A380       11     A     
 FMT                SB4    A4+         POINT TO UPCOMING TOKEN                             FC5A380       12     A     
 FMT                FATAL  E.FS25      ** MISSING SEPARATOR                                FC5A380       13     A     
 FMT                EQ     FMT=NX                                                          FMT          430     A     
 FMT       FMT=CHA  SPACE  4,10                                                            FMT          431     A     
 FMT      **        HERE ON CHARACTER OR HOLLERITH TOKEN.                                  FMT          432     A     
 FMT      *                                                                                FMT          433     A     
 FMT      *         (X4) = CHARACTER/HOLLERITH TOKEN.                                      FMT          434     A     
 FMT                                                                                       FMT          435     A     
 FMT       FMT=RLC  BSS    0                                                               FC5A258       35     A     
 FMT                SA1    =7L R" OR                                                       FC5A258       36     A     
 FMT                SA2    =3RL"                                                           FC5A258       37     A     
 FMT                BX6    X1+X2                                                           FC5A258       38     A     
 FMT                EQ     FMT=ILL                                                         FC5A258       39     A     
 FMT                                                                                       FC5A258       40     A     
 FMT       FMT=QHO  BSS    0                                                               FC5A258       41     A     
 FMT                SA1    =7L"STRING                                                      FC5A258       42     A     
 FMT                BX6    X1                                                              FC5A258       43     A     
 FMT                SA6    FILL.                                                           FC5A258       44     A     
 FMT                ANSI   E.FS08                                                          FC5A258       45     A     
 FMT                                                                                       FC5A258       46     A     
 FMT       FMT=CHA  BSS    0                                                               FMT          436     A     
 FMT       FMT=HOL  BSS    0                                                               FMT          437     A     
 FMT                SA1    EDSTA                                                           FMT          438     A     
 FMT                ZR     X1,FMT=CHA1 IF NO MISSING PUNCTUATION                           FMT          439     A     
 FMT                LX1    -ES.TBP                                                         FMT          440     A     
 FMT                SB4    X1          SET FOR DIAGNOSTIC                                  FMT          441     A     
 FMT                ERRNZ  18-ES.TBL                                                       FMT          442     A     
 FMT                FATAL  E.FS25                                                          FMT          443     A     
 FMT                RJ     AED         ANALYZE EDIT DESCRIPTOR                             FMT          444     A     
 FMT       FMT=CHA1 SA5    A4+         SAVE TOKEN POINTER                                  FMT          445     A     
 FMT                SB7    A7          SAVE LAST BUILD WORD                                FMT          446     A     
 FMT                MX0    -TB.CLCNL                                                       FMT          447     A     
 FMT                HX4    TB.CLCN                                                         FMT          448     A     
 FMT                LX4    TB.CLCNL                                                        FMT          449     A     
 FMT                BX1    -X0*X4      NUMBER OF CHARACTERS                                FMT          450     A     
 FMT                LX0    X7          SAVE CURRENT BUILD WORD                             FMT          451     A     
 FMT                CALL   CDD         CONVERT TO DPC                                      FMT          452     A     
 FMT                SA1    B7          LAST BUILD WORD                                     FMT          453     A     
 FMT                BX7    X1                                                              FMT          454     A     
 FMT                SA7    A1          RESTORE                                             FMT          455     A     
 FMT                LX7    X0          RESTORE CURRENT BUILD WORD                          FMT          456     A     
 FMT                SX1    1RH                                                             FMT          457     A     
 FMT                SB7    9*CHAR                                                          FMT          458     A     
 FMT                SB7    B7-B2                                                           FMT          459     A     
 FMT                LX1    X1,B7       POSITION THE H                                      FMT          460     A     
 FMT                =B2    B2-1                                                            FMT          461     A     
 FMT                MX0    1                                                               FMT          462     A     
 FMT                AX0    X0,B2                                                           FMT          463     A     
 FMT                BX4    X0*X4       EXTRACT COUNT (DPC)                                 FMT          464     A     
 FMT                BX4    X4+X1       MAKE NH PREFIX                                      FMT          465     A     
 FMT                RJ     PFC         PROCESS FORMAT CHARACTERS FOR PREFIX                FMT          466     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1096    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SA4    A5          RESTORE TOKEN POINTER                               FMT          467     A     
 FMT                                                                                       FMT          468     A     
 FMT      *         THE PREFIX IS OUTPUT.  NOW PROCESS THE CHARACTER STRING.               FMT          469     A     
 FMT                                                                                       FMT          470     A     
 FMT                SA5    T.CON                                                           FMT          471     A     
 FMT                LX4    -TB.SHCP                                                        FMT          472     A     
 FMT                SB2    X4                                                              FMT          473     A     
 FMT                ERRNZ  18-TB.SHCL                                                      FMT          474     A     
 FMT                SA5    X5+B2       FIRST WORD OF CHARACTER                             FMT          475     A     
 FMT                MX0    -TB.CLCNL                                                       FMT          476     A     
 FMT                LX4    TB.SHCP-TB.CLCNP                                                FMT          477     A     
 FMT                BX6    -X0*X4      EXTRACT CHARACTER COUNT                             FMT          478     A     
 FMT                SB2    X6                                                              FMT          479     A     
 FMT                SA6    EDWID                                                           FMT          480     A     
 FMT                =A5    A5-1        PREFETCH FOR LOOP                                   FMT          481     A     
 FMT                MX0    -CHAR                                                           FMT          482     A     
 FMT                                                                                       FMT          483     A     
 FMT       FMT=CHA2 SB3    10          RESET CURRENT WORD CHARACTER COUNT                  FMT          484     A     
 FMT                SA5    A5+1        FETCH NEXT WORD                                     FMT          485     A     
 FMT       FMT=CHA3 =B2    B2-1        TOTAL CHARACTER COUNT                               FMT          486     A     
 FMT                =B3    B3-1        CHARACTER COUNT THIS WORD                           FMT          487     A     
 FMT                LX5    CHAR                                                            FMT          488     A     
 FMT                BX2    -X0*X5      EXTRACT CHARACTER                                   FMT          489     A     
 FMT                LX2    X2,B5                                                           FMT          490     A     
 FMT                BX7    X7+X2       MERGE INTO BUILD WORD                               FMT          491     A     
 FMT                SB5    B5-CHAR                                                         FMT          492     A     
 FMT                MI     B5,FMT=CHA4 IF WORD FULL                                        FMT          493     A     
 FMT                ZR     B2,FMT=CHA5 IF HOLLERITH/CHARACTER FINISHED                     FMT          494     A     
 FMT                NZ     B3,FMT=CHA3 IF MORE TO PROCESS THIS WORD                        FMT          495     A     
 FMT                EQ     FMT=CHA2    GET NEXT WORD OF HOLLERITH/CHARACTER                FMT          496     A     
 FMT                                                                                       FMT          497     A     
 FMT       FMT=CHA4 =A7    A7+1        STORE FULL WORD                                     FMT          498     A     
 FMT                MX7    0           RESET BUILD WORD                                    FMT          499     A     
 FMT                SB5    9*CHAR      SHIFT COUNT                                         FMT          500     A     
 FMT                ZR     B2,FMT=CHA5 IF HOLLERITH/CHARACTER FINISHED                     FMT          501     A     
 FMT                NZ     B3,FMT=CHA3 IF MORE TO PROCESS THIS WORD                        FMT          502     A     
 FMT                EQ     FMT=CHA2    GET NEXT WORD OF HOLLERITH/CHARACTER                FMT          503     A     
 FMT                                                                                       FMT          504     A     
 FMT       FMT=CHA5 SX6    A4                                                              FMT          505     A     
 FMT                =A4    A4+1        NEXT TOKEN                                          FMT          506     A     
 FMT                CLAS=  X2,ES,(HOL,FIN,DES,DS)                                          FMT          507     A     
 FMT                LX6    ES.TBP                                                          FMT          508     A     
 FMT                BX6    X6+X2                                                           FMT          509     A     
 FMT                SA6    EDSTA       UPDATE EDIT DESCRIPTOR STATUS                       FMT          510     A     
 FMT                EQ     FMT=NX                                                          FMT          511     A     
 FMT       FMT=EOS  SPACE  4,10                                                            FMT          512     A     
 FMT      **        HERE ON *EOS*.                                                         FMT          513     A     
 FMT      *                                                                                FMT          514     A     
 FMT      *         (X7) = FORMAT BUILD WORD                                               FMT          515     A     
 FMT      *         (B5) = CURRENT CHARACTERS SHIFT COUNT.                                 FMT          516     A     
 FMT                                                                                       FMT          517     A     
 FMT       FMT=EOS  BSS    0                                                               FMT          518     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1097    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                FATAL  E.FS19      ENTRY FROM MAIN LOOP -- PARENS UNBALANCED           FMT          519     A     
 FMT                EQ     FMT=EOS2                                                        FMT          520     A     
 FMT                                                                                       FMT          521     A     
 FMT       FMT=EOS1 ZR     X4,FMT=EOS2 IF *EOS*                                            FMT          522     A     
 FMT                SB4    A4+         FOR DIAGNOSTIC FILL.                                FC50806        5     A     
 FMT                FATAL  E.FS18                                                          FMT          523          I
          -FC5A315
 FMT                EQ     E.FS18                                                          FC5A315        5     A     
 FMT                                                                                       FMT          524     A     
 FMT       FMT=EOS2 ZR     X7,FMT=EOS3 IF NULL WORD                                        FMT          525     A     
 FMT                                                                                       FMT          526     A     
 FMT      *         OTHERWISE, BLANK PAD THE FINAL WORD AND OUTPUT.                        FMT          527     A     
 FMT                                                                                       FMT          528     A     
 FMT                SA1    =10H                                                            FMT          529     A     
 FMT                SB2    10*CHAR                                                         FMT          530     A     
 FMT                SB3    B2-B5                                                           FMT          531     A     
 FMT                MX0    CHAR                                                            FMT          532     A     
 FMT                SB2    B3-2*CHAR                                                       FMT          533     A     
 FMT                AX0    X0,B2                                                           FMT          534     A     
 FMT                BX1    -X0*X1                                                          FMT          535     A     
 FMT                BX7    X7+X1                                                           FMT          536     A     
 FMT                =A7    A7+1                                                            FMT          537     A     
 FMT                                                                                       FMT          538     A     
 FMT      *         ADD FORMAT TO T.FMT AND EXIT.                                          FMT          539     A     
 FMT                                                                                       FMT          540     A     
 FMT       FMT=EOS3 SB6    FORSKEL-1                                                       FMT          541     A     
 FMT                SB6    A7-B6       = LENGTH OF THIS FORMAT                             FMT          542     A     
 FMT                ALLOC  T.FMT,B6                                                        FMT          543          I
          -FC5A369
 FMT                SA1    FMTIDX                                                          FC5A369       12     A     
 FMT                ZR     X1,FMT=EOS4 IF NO FORMAT LABEL                                  FC5A369       13     A     
 FMT                SA3    T.SYM                                                           FC5A369       14     A     
 FMT                SB3    X1                                                              FC5A369       15     A     
 FMT                SX1    B6-1        FORMAT TEXT LENGTH (WORDS)                          FC5A369       16     A     
 FMT                SX7    B6-1                                                            FC5A369       17     A     
 FMT                SA3    X3+B3       *WB* OF FORMAT                                      FC5A369       18     A     
 FMT                LX1    3           (F.T.L.)*8                                          FC5A369       19     A     
 FMT                LX7    1           (F.T.L.)*2                                          FC5A369       20     A     
 FMT                IX7    X1+X7       (F.T.L.)*10                                         FC5A369       21     A     
 FMT                LX7    WB.FMTLP                                                        FC5A369       22     A     
 FMT                BX7    X3+X7       MERGE IN FORMAT LENGTH (CHARACTERS)                 FC5A369       23     A     
 FMT                SA7    A3                                                              FC5A369       24     A     
 FMT                                                                                       FC5A369       25     A     
 FMT       FMT=EOS4 ALLOC  T.FMT,B6                                                        FC5A369       26     A     
 FMT                SX1    B6          = W.C.                                              FMT          544     A     
 FMT                SX2    FORSKEL     = SOURCE                                            FMT          545     A     
 FMT                SX3    B7-B6       = DESTINATION = (LWA+1 OF TABLE) - (W.C.)           FMT          546     A     
 FMT                MOVE   X1,X2,X3                                                        FMT          547     A     
 FMT                SA1    T=CONB                                                          FMT          548     A     
 FMT                SHRINK T=CON,X1    SCRATCH CONSTANTS FORMED FOR FORMAT                 FMT          549     A     
 FMT                EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     FMT          550     A     
 FMT       FMT=ILL  SPACE  4,10                                                            FMT          551     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1098    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      **        HERE ON ILLEGAL TOKEN.                                                 FMT          552     A     
 FMT       DELIM    BITMIC (O.EOS,O.LP,O.RP,O.COMMA,O.COLON,O.SLASH,O.CAT)                 FC50086        6     A     
 FMT                                                                                       FMT          553     A     
 FMT       FMT=ILL  BSS    0                                                               FMT          554     A     
 FMT                SA6    FILL.                                                           FMT          555     A     
 FMT                FATAL  E.FS14                                                          FMT          556     A     
 FMT                SA4    A4+1        NEXT TOKEN                                          FMT          557          I
          -FC50086
 FMT       FMT=ILL1 =A4    A4+1        NEXT TOKEN                                          FC50086        7     A     
 FMT                SB4    X4                                                              FC50086        8     A     
 FMT                SA1    ="DELIM"                                                        FC50086        9     A     
 FMT                LX1    B4,X1                                                           FC50086       10     A     
 FMT                PL     X1,FMT=ILL1 IF NOT DELIMETER                                    FC50086       11     A     
 FMT                RJ     RED         RESET EDIT DESCRIPTOR                               FC50086       12     A     
 FMT                EQ     FMT=NX      CONTINUE PROCESSING                                 FMT          558     A     
 FMT       FMT=INV  SPACE  4,10                                                            FMT          559     A     
 FMT      **        HERE ON TOTALLY INVALID TOKEN.                                         FMT          560     A     
 FMT      *         (CANNOT BE PRODUCED (LEGALLY) BY LEX)                                  FMT          561     A     
 FMT                                                                                       FMT          562     A     
 FMT       FMT=INV  EQ     "BLOWUP"                                                        FMT          563     A     
 FMT                TITLE  FMT=VAR/FMT=CON SUBLOOP.                                        FMT          564     A     
 FMT       FMT=CON  SPACE  4,10                                                            FMT          565     A     
 FMT      **        HERE ON CONSTANT OR VARIABLE TOKEN.                                    FMT          566     A     
 FMT                                                                                       FMT          567     A     
 FMT       FMT=CON  BSS    0                                                               FMT          568     A     
 FMT       FMT=VAR  BSS    0                                                               FMT          569     A     
 FMT                RJ     PFC         PROCESS THE STRING                                  FMT          570     A     
 FMT                SA1    EDSTA                                                           FMT          571     A     
 FMT                NZ     X1,FMT.NX   IF NOT FIRST TOKEN IN EDIT DESCRIPTOR               FMT          572     A     
 FMT                SX6    A4                                                              FMT          573     A     
 FMT                LX6    ES.TBP                                                          FMT          574     A     
 FMT                CLAS=  X1,ES,(IS)                                                      FMT          575     A     
 FMT                BX6    X6+X1       SET TO INITIAL STATE                                FMT          576     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT          577     A     
 FMT      *         EQ     FMT.NX                                                          FMT          578     A     
 FMT       FMT.NX   SPACE  4,10                                                            FMT          579     A     
 FMT      **        JUMP TO NEXT PROCESSOR UNIT                                            FMT          580     A     
 FMT      *                                                                                FMT          581     A     
 FMT      *         (X4) = CHARACTER STRING PROCESSING (FROM O.VAR OR O.CONS).             FMT          582     A     
 FMT      *         (B3) = NUMBER OF CHARACTERS (IN X4) REMAINING TO PROCESS.              FMT          583     A     
 FMT                                                                                       FMT          584     A     
 FMT       FMT.NX   BSS    0                                                               FMT          585     A     
 FMT                ZR     B3,FMT.NX1  IF NO MORE CHARACTERS TO PROCESS                    FMT          586     A     
 FMT                MX0    -CHAR                                                           FMT          587     A     
 FMT                LX4    CHAR                                                            FMT          588     A     
 FMT                BX2    -X0*X4      EXTRACT CURRENT CHARACTER                           FMT          589     A     
 FMT                SX1    3                                                               FMT          590     A     
 FMT                SX6    X2                                                              FMT          591     A     
 FMT                BX0    X1*X2       2 BITS ONLY FOR SHIFT COUNT                         FMT          592     A     
 FMT                LX6    9*CHAR                                                          FMT          593     A     
 FMT                SB2    X2-1R+                                                          FMT          594     A     
 FMT                PL     B2,FMT.ILL  IF NOT ALPHANUMERIC                                 FMT          595     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1099    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SA5    ="NUM09"                                                        FMT          596     A     
 FMT                SB2    X2                                                              FMT          597     A     
 FMT                LX5    X5,B2                                                           FMT          598     A     
 FMT                MI     X5,FMT.DIG  IF CHARACTER 0-9                                    FMT          599     A     
 FMT                LX0    3           *8--SHIFT COUNT WITHIN JUMP WORD                    FMT          600     A     
 FMT                AX2    2           INDEX TO JUMP WORD                                  FMT          601     A     
 FMT                SA6    FILL.       CHARACTER IN CASE OF ERROR                          FMT          602     A     
 FMT                SA1    X2+FMTJT    JUMP WORD                                           FMT          603     A     
 FMT                SB7    X0                                                              FMT          604     A     
 FMT                AX1    X1,B7                                                           FMT          605     A     
 FMT                SX0    377B                                                            FMT          606     A     
 FMT                BX1    X1*X0                                                           FMT          607     A     
 FMT                SB2    X1                                                              FMT          608     A     
 FMT                EQ     FMT.ED      PREPROCESS EDIT DESCRIPTOR                          FMT          609     A     
 FMT                                                                                       FMT          610     A     
 FMT       FMT.NX1  SA4    A4+1        NEXT TOKEN                                          FMT          611     A     
 FMT                EQ     FMT=NX                                                          FMT          612     A     
 FMT       FMT.ED   SPACE  4,10                                                            FMT          613     A     
 FMT      **        HERE ON EDIT DESCRIPTOR.                                               FMT          614     A     
 FMT      *                                                                                FMT          615     A     
 FMT      *         (B2) = PROCESSOR ADDRESS (-FMT.)                                       FMT          616     A     
 FMT                                                                                       FMT          617     A     
 FMT       FMT.ED   BSS    0                                                               FMT          618     A     
 FMT                SA1    EDSTA                                                           FMT          619     A     
 FMT                =B3    B3-1                                                            FMT          620     A     
 FMT                LX1    -ES.TBP                                                         FMT          621     A     
 FMT                SB4    X1          SET FOR POSSIBLE DIAGNOSTIC                         FMT          622     A     
 FMT                ERRNZ  18-ES.TBL                                                       FMT          623     A     
 FMT                LX1    ES.TBP                                                          FMT          624     A     
 FMT                BX2    X1                                                              FMT          625     A     
 FMT                SBIT   X2,ES.DESP                                                      FMT          626     A     
 FMT                PL     X2,FMT.ED2  IF NO EDIT DESCRIPTOR YET                           FMT          627     A     
 FMT                                                                                       FMT          628     A     
 FMT      *         TEST FOR EXPONENT.                                                     FMT          629     A     
 FMT                                                                                       FMT          630     A     
 FMT                SBIT   X2,ES.EPP/ES.DESP                                               FMT          631     A     
 FMT                PL     X2,FMT.ED1  IF EXPONENT NOT PERMITTED                           FMT          632     A     
 FMT                MX0    -CHAR                                                           FMT          633     A     
 FMT                BX0    -X0*X4                                                          FMT          634     A     
 FMT                SX0    X0-1RE                                                          FMT          635     A     
 FMT                NZ     X0,FMT.ED1  IF NOT EXPONENT                                     FMT          636     A     
 FMT                SBIT   X2,ES.MSP/ES.EPP                                                FMT          637     A     
 FMT                PL     X2,FMT.ED1  IF NOT PROPERLY FORMED                              FMT          638     A     
 FMT                CLAS=  X2,ES,(EXP)                                                     FMT          639     A     
 FMT                BX6    X1+X2                                                           FMT          640     A     
 FMT                SA6    A1          RESET TO INDICATE EXPONENT                          FMT          641     A     
 FMT                EQ     FMT.NX                                                          FMT          642     A     
 FMT                                                                                       FMT          643     A     
 FMT       FMT.ED1  FATAL  E.FS25      DESCRIPTOR WITHOUT PUNCTUATION                      FMT          644     A     
 FMT                CLAS=  X6,ES,(ERR)                                                     FMT          645     A     
 FMT                BX6    X1+X6                                                           FMT          646     A     
 FMT                SA6    A1          UPDATE WITH ERROR                                   FMT          647     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                RJ     AED         ANALYZE THE PREVIOUS EDIT DESCRIPTOR                FMT          648     A     
 FMT                =B3    B3+1                                                            FMT          649     A     
 FMT                LX4    -CHAR                                                           FMT          650     A     
 FMT                RJ     RED         RESTART EDIT DESCRIPTOR STATUS                      FMT          651     A     
 FMT                EQ     FMT.NX      REPROCESS                                           FMT          652     A     
 FMT                                                                                       FMT          653     A     
 FMT       FMT.ED2  MX0    -CHAR                                                           FMT          654     A     
 FMT                BX0    -X0*X4                                                          FMT          655     A     
 FMT                SX0    X0-1RP                                                          FMT          656     A     
 FMT                ZR     X0,FMT.P    IF SCALE FACTOR                                     FMT          657     A     
 FMT                MX0    -ES.SCL                                                         FMT          658     A     
 FMT                LX1    -ES.SCP                                                         FMT          659     A     
 FMT                BX1    X0*X1       CLEAR OLD STATE                                     FMT          660     A     
 FMT                LX1    ES.SCP                                                          FMT          661     A     
 FMT                CLAS=  X6,ES,(DS,DES)                                                  FMT          662     A     
 FMT                BX6    X1+X6                                                           FMT          663     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT          664     A     
 FMT                BX1    X6                                                              FMT          665     A     
 FMT                SBIT   X6,ES.SGNP                                                      FMT          666     A     
 FMT                PL     X6,FMT.ED3  IF NO SIGNED REPEAT COUNT                           FMT          667     A     
 FMT                FATAL  E.FS06                                                          FMT          668     A     
 FMT       FMT.ED3  JP     B2+FMT.                                                         FMT          669     A     
 FMT                TITLE  FMT. - EDIT DESCRIPTOR PROCESSORS.                              FMT          670     A     
 FMT       FMT.RPT  SPACE  4,10                                                            FMT          671     A     
 FMT      **        HERE ON EDIT DESCRIPTOR WHICH ALLOW A REPEAT COUNT.                    FMT          672     A     
 FMT      *         (A,D,E,F,G,I,L,O,R,Z)                                                  FMT          673     A     
 FMT                                                                                       FMT          674     A     
 FMT       FMT.     BSS    0                                                               FMT          675     A     
 FMT                                                                                       FMT          676     A     
 FMT       FMT.R    BSS    0                                                               FMT          677     A     
 FMT                CLAS=  X3,ES,(WR)                                                      FMT          678     A     
 FMT                EQ     FMT.ANSI                                                        FMT          679     A     
 FMT                                                                                       FMT          680     A     
 FMT       FMT.O    BSS    0                                                               FMT          681     A     
 FMT       FMT.Z    BSS    0                                                               FMT          682     A     
 FMT                CLAS=  X3,ES,(WR,PP)                                                   FMT          683     A     
 FMT       FMT.ANSI ANSI   E.FS08      O,R,Z ARE NON-ANSI                                  FMT          684     A     
 FMT                EQ     FMT.RPT                                                         FMT          685     A     
 FMT                                                                                       FMT          686     A     
 FMT       FMT.A    BSS    0                                                               FMT          687     A     
 FMT                SX3    0                                                               FMT          688     A     
 FMT                EQ     FMT.RPT                                                         FMT          689     A     
 FMT                                                                                       FMT          690     A     
 FMT       FMT.D    BSS    0                                                               FMT          691     A     
 FMT       FMT.F    BSS    0                                                               FMT          692     A     
 FMT                CLAS=  X3,ES,(WR,PP,PR,SP)                                             FMT          693     A     
 FMT                EQ     FMT.RPT                                                         FMT          694     A     
 FMT                                                                                       FMT          695     A     
 FMT       FMT.E    BSS    0                                                               FMT          696     A     
 FMT       FMT.G    BSS    0                                                               FMT          697     A     
 FMT                CLAS=  X3,ES,(WR,PP,PR,EP,SP)                                          FMT          698     A     
 FMT                EQ     FMT.RPT                                                         FMT          699     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1101    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                                                                                       FMT          700     A     
 FMT       FMT.I    BSS    0                                                               FMT          701     A     
 FMT                CLAS=  X3,ES,(WR,PP)                                                   FMT          702     A     
 FMT                EQ     FMT.RPT                                                         FMT          703     A     
 FMT                                                                                       FMT          704     A     
 FMT       FMT.L    BSS    0                                                               FMT          705     A     
 FMT                CLAS=  X3,ES,(WR)                                                      FMT          706     A     
 FMT                                                                                       FMT          707     A     
 FMT      *                (A1) _ EDIT DESCRIPTOR STATUS WORD                              FMT          708     A     
 FMT      *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                        FMT          709     A     
 FMT      *                (X3) = CURRENT STATUS BITS                                      FMT          710     A     
 FMT                                                                                       FMT          711     A     
 FMT       FMT.RPT  BSS    0                                                               FMT          712     A     
 FMT                BX6    X1+X3       MERGE IN STATUS BITS                                FMT          713     A     
 FMT                SA6    A1                                                              FMT          714     A     
 FMT                EQ     FMT.NX                                                          FMT          715     A     
 FMT       FMT.NRPT SPACE  4,10                                                            FMT          716     A     
 FMT      **        HERE ON EDIT DESCRIPTORS WHICH DISALLOW REPEAT COUNTS.                 FMT          717     A     
 FMT      *         (BN,BZ,P,S,SP,SS,T,TL,TR,X)                                            FMT          718     A     
 FMT                                                                                       FMT          719     A     
 FMT                                                                                       FMT          720     A     
 FMT      **        HERE ON *BN* OR *BZ*.                                                  FMT          721     A     
 FMT      *                                                                                FMT          722     A     
 FMT      *                (A1) _ EDIT DESCRIPTOR STATUS WORD                              FMT          723     A     
 FMT      *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                        FMT          724     A     
 FMT      *                (B3) = COUNT OF REMAINING CHARACTERS IN (X4)                    FMT          725     A     
 FMT                                                                                       FMT          726     A     
 FMT       FMT.B    BSS    0                                                               FMT          727     A     
 FMT                NZ     B3,FMT.B2   IF MORE CHARACTERS IN STRING                        FMT          728     A     
 FMT                SA2    A4+1        FETCH NEXT TOKEN                                    FMT          729     A     
 FMT                SB2    X2-O.CONS                                                       FMT          730     A     
 FMT                ZR     B2,FMT.B1   IF CONSTANT TOKEN                                   FMT          731     A     
 FMT                SB2    X2-O.VAR                                                        FMT          732     A     
 FMT                NZ     B2,FMT.B2   IF NOT VARIABLE TOKEN                               FMT          733     A     
 FMT       FMT.B1   SA4    A4+1                                                            FMT          734     A     
 FMT                RJ     PFC         PROCESS STRING (FROM TOKEN)                         FMT          735     A     
 FMT       FMT.B2   SA3    FILL.                                                           FMT          736     A     
 FMT                LX4    CHAR                                                            FMT          737     A     
 FMT                MX0    -CHAR                                                           FMT          738     A     
 FMT                BX2    -X0*X4      EXTRACT NEXT CHARACTER                              FMT          739     A     
 FMT                LX0    X2                                                              FMT          740     A     
 FMT                LX0    8*CHAR                                                          FMT          741     A     
 FMT                BX6    X3+X0                                                           FMT          742     A     
 FMT                SA6    A3          UPDATE FOR POSSIBLE DIAGNOSTIC                      FMT          743     A     
 FMT                LX4    -CHAR       RESTORE                                             FMT          744     A     
 FMT                ZR     X2,FMT.INV  IF *B* ONLY                                         FMT          745     A     
 FMT                =B3    B3-1                                                            FMT          746     A     
 FMT                LX4    CHAR                                                            FMT          747     A     
 FMT                SB2    X2-1RN                                                          FMT          748     A     
 FMT                ZR     B2,FMT.B3   IF *BN*                                             FMT          749     A     
 FMT                SB2    X2-1RZ                                                          FMT          750     A     
 FMT                ZR     B2,FMT.B3   IF *BZ*                                             FMT          751     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                EQ     FMT.INV     INVALID CODE                                        FMT          752     A     
 FMT                                                                                       FMT          753     A     
 FMT       FMT.B3   SBIT   X1,ES.RPTP                                                      FMT          754     A     
 FMT                PL     X1,FMT.B4   IF NOT REPEAT COUNT                                 FMT          755     A     
 FMT                FATAL  E.FS04                                                          FMT          756     A     
 FMT       FMT.B4   LX1    ES.RPTL+ES.RPTP                                                 FMT          757     A     
 FMT                CLAS=  X3,ES,(FIN)                                                     FMT          758          I
          -FC5A161
 FMT                CLAS=  X3,ES,(FIN,WLD)                                                 FC5A161       29     A     
 FMT                BX6    X1+X3                                                           FMT          759     A     
 FMT                SA6    A1+         UPDATE                                              FMT          760     A     
 FMT                EQ     FMT.NX                                                          FMT          761     A     
 FMT                                                                                       FMT          762     A     
 FMT      **        HERE ON *P*.                                                           FMT          763     A     
 FMT      *                                                                                FMT          764     A     
 FMT      *                (A1) _ EDIT DESCRIPTOR STATUS WORD                              FMT          765     A     
 FMT      *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                        FMT          766     A     
 FMT      *                (B3) = COUNT OF REMAINING CHARACTERS IN (X4)                    FMT          767     A     
 FMT                                                                                       FMT          768     A     
 FMT       FMT.P    BSS    0                                                               FMT          769     A     
 FMT                BX0    X1                                                              FMT          770     A     
 FMT                SBIT   X0,ES.SFP                                                       FMT          771     A     
 FMT                PL     X0,FMT.P1   IF NOT ALREADY A SCALE FACTOR                       FMT          772     A     
 FMT                CLAS=  X6,ES,(ERR)                                                     FMT          773     A     
 FMT                BX6    X6+X1                                                           FMT          774     A     
 FMT                SA6    A1          REFLECT THE ERROR                                   FMT          775     A     
 FMT                FATAL  E.FS25                                                          FMT          776     A     
 FMT       FMT.P1   MX0    -ES.SCL                                                         FMT          777     A     
 FMT                LX1    -ES.SCP                                                         FMT          778     A     
 FMT                BX1    X0*X1       CLEAR OLD STATE                                     FMT          779     A     
 FMT                LX1    ES.SCP                                                          FMT          780     A     
 FMT                CLAS=  X2,ES,(SS,SF)                                                   FMT          781     A     
 FMT                BX6    X1+X2                                                           FMT          782     A     
 FMT                SBIT   X6,ES.RPTP                                                      FMT          783     A     
 FMT                MI     X6,FMT.P2   IF SCALE FACTOR COUNT PRESENT                       FMT          784     A     
 FMT                FATAL  E.FS07                                                          FMT          785     A     
 FMT       FMT.P2   LX6    ES.RPTL+ES.RPTP                                                 FMT          786     A     
 FMT                CLAS=  X2,ES,(SGN,RPT)                                                 FMT          787     A     
 FMT                BX6    -X0*X6      CLEAR ES.RPT AND ES.SGN                             FMT          788          I
          -FC5A234
 FMT                BX6    -X2*X6      CLEAR ES.RPT AND ES.SGN                             FC5A234        5     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT          789     A     
 FMT                =X6    1                                                               FMT          790     A     
 FMT                SA6    EDRPT       RESET EDIT DESCRIPTOR REPEAT COUNT                  FMT          791     A     
 FMT                EQ     FMT.NX                                                          FMT          792     A     
 FMT                                                                                       FMT          793     A     
 FMT      **        HERE ON *S*, *SP*, *SS*.                                               FMT          794     A     
 FMT      *                                                                                FMT          795     A     
 FMT      *                (A1) _ EDIT DESCRIPTOR STATUS WORD                              FMT          796     A     
 FMT      *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                        FMT          797     A     
 FMT      *                (B3) = COUNT OF CHARACTERS REMAINING IN (X4)                    FMT          798     A     
 FMT                                                                                       FMT          799     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMT.S    BSS    0                                                               FMT          800     A     
 FMT                NZ     B3,FMT.S2   IF MORE CHARACTERS IN STRING                        FMT          801     A     
 FMT                SA2    A4+1        FETCH NEXT TOKEN                                    FMT          802     A     
 FMT                SB2    X2-O.CONS                                                       FMT          803     A     
 FMT                ZR     B2,FMT.S1   IF CONSTANT TOKEN                                   FMT          804     A     
 FMT                SB2    X2-O.VAR                                                        FMT          805     A     
 FMT                NZ     B2,FMT.S2   IF NOT VARIABLE TOKEN                               FMT          806     A     
 FMT       FMT.S1   SA4    A4+1                                                            FMT          807     A     
 FMT                RJ     PFC         PROCESS STRING (FROM TOKEN)                         FMT          808     A     
 FMT       FMT.S2   SA3    FILL.                                                           FMT          809     A     
 FMT                LX4    CHAR                                                            FMT          810     A     
 FMT                MX0    -CHAR                                                           FMT          811     A     
 FMT                BX2    -X0*X4      EXTRACT NEXT CHARACTER                              FMT          812     A     
 FMT                LX0    X2                                                              FMT          813     A     
 FMT                LX0    8*CHAR                                                          FMT          814     A     
 FMT                BX6    X3+X0                                                           FMT          815     A     
 FMT                SA6    A3          UPDATE FOR POSSIBLE DIAGNOSTIC                      FMT          816     A     
 FMT                SB3    B3+1                                                            FMT          817     A     
 FMT                LX4    -CHAR       RESTORE                                             FMT          818     A     
 FMT                ZR     X2,FMT.S3   IF *S*                                              FMT          819     A     
 FMT                =B3    B3-1                                                            FMT          820     A     
 FMT                LX4    CHAR                                                            FMT          821     A     
 FMT                SB2    X2-1RP                                                          FMT          822     A     
 FMT                ZR     B2,FMT.S3   IF *SP*                                             FMT          823     A     
 FMT                SB2    X2-1RS                                                          FMT          824     A     
 FMT                ZR     B2,FMT.S3   IF *SS*                                             FMT          825     A     
 FMT                SB3    B3-1                                                            FMT          826     A     
 FMT                EQ     FMT.INV     INVALID CODE                                        FMT          827     A     
 FMT                                                                                       FMT          828     A     
 FMT       FMT.S3   SBIT   X1,ES.RPTP                                                      FMT          829     A     
 FMT                PL     X1,FMT.S4   IF NOT REPEAT COUNT                                 FMT          830     A     
 FMT                FATAL  E.FS04                                                          FMT          831     A     
 FMT       FMT.S4   LX1    ES.RPTL+ES.RPTP                                                 FMT          832     A     
 FMT                CLAS=  X3,ES,(FIN)                                                     FMT          833          I
          -FC5A161
 FMT                CLAS=  X3,ES,(FIN,WLD)                                                 FC5A161       30     A     
 FMT                BX6    X1+X3                                                           FMT          834     A     
 FMT                SA6    A1          UPDATE                                              FMT          835     A     
 FMT                =B3    B3-1                                                            FMT          836     A     
 FMT                EQ     FMT.NX                                                          FMT          837     A     
 FMT                                                                                       FMT          838     A     
 FMT      **        HERE ON *T*, *TL* OR *TR*.                                             FMT          839     A     
 FMT      *                                                                                FMT          840     A     
 FMT      *                (A1) _ EDIT DESCRIPTOR STATUS WORD                              FMT          841     A     
 FMT      *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                        FMT          842     A     
 FMT      *                (B3) = COUNT OF CHARACTERS REMAINING IN (X4)                    FMT          843     A     
 FMT                                                                                       FMT          844     A     
 FMT       FMT.T    BSS    0                                                               FMT          845     A     
 FMT                NZ     B3,FMT.T2   IF MORE CHARACTERS IN STRING                        FMT          846     A     
 FMT                SA2    A4+1        FETCH NEXT TOKEN                                    FMT          847     A     
 FMT                SB2    X2-O.CONS                                                       FMT          848     A     
 FMT                ZR     B2,FMT.T1   IF CONSTANT TOKEN                                   FMT          849     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SB2    X2-O.VAR                                                        FMT          850     A     
 FMT                NZ     B2,FMT.T2   IF NOT VARIABLE TOKEN                               FMT          851     A     
 FMT       FMT.T1   SA4    A4+1                                                            FMT          852     A     
 FMT                RJ     PFC         PROCESS STRING (FROM TOKEN)                         FMT          853     A     
 FMT       FMT.T2   SA3    FILL.                                                           FMT          854     A     
 FMT                LX4    CHAR                                                            FMT          855     A     
 FMT                MX0    -CHAR                                                           FMT          856     A     
 FMT                BX2    -X0*X4      EXTRACT NEXT CHARACTER                              FMT          857     A     
 FMT                LX0    X2                                                              FMT          858     A     
 FMT                LX0    8*CHAR                                                          FMT          859     A     
 FMT                BX6    X3+X0                                                           FMT          860     A     
 FMT                SA6    A3          UPDATE FOR POSSIBLE DIAGNOSTIC                      FMT          861     A     
 FMT                SB3    B3+1                                                            FMT          862     A     
 FMT                LX4    -CHAR       RESTORE                                             FMT          863     A     
 FMT                CLAS=  X3,ES,(T)                                                       FMT          864     A     
 FMT                ZR     X2,FMT.T3   IF *T*                                              FMT          865     A     
 FMT                SA5    ="NUM09"                                                        FMT          866     A     
 FMT                SB2    X2                                                              FMT          867     A     
 FMT                LX5    X5,B2                                                           FMT          868     A     
 FMT                MI     X5,FMT.T3   IF *TNNNN*                                          FMT          869     A     
 FMT                =B3    B3-1                                                            FMT          870     A     
 FMT                LX4    CHAR                                                            FMT          871     A     
 FMT                CLAS=  X3,ES,(TL)                                                      FMT          872     A     
 FMT                SB2    X2-1RL                                                          FMT          873     A     
 FMT                ZR     B2,FMT.T3   IF *TL*                                             FMT          874     A     
 FMT                CLAS=  X3,ES,(TR)                                                      FMT          875     A     
 FMT                SB2    X2-1RR                                                          FMT          876     A     
 FMT                ZR     B2,FMT.T3   IF *TR*                                             FMT          877     A     
 FMT                SB3    B3-1                                                            FMT          878     A     
 FMT                EQ     FMT.INV     INVALID CODE                                        FMT          879     A     
 FMT                                                                                       FMT          880     A     
 FMT       FMT.T3   SBIT   X1,ES.RPTP                                                      FMT          881     A     
 FMT                PL     X1,FMT.T4   IF NOT REPEAT COUNT                                 FMT          882     A     
 FMT                FATAL  E.FS04                                                          FMT          883     A     
 FMT       FMT.T4   LX1    ES.RPTL+ES.RPTP                                                 FMT          884     A     
 FMT                BX6    X1+X3                                                           FMT          885     A     
 FMT                SA6    A1          UPDATE                                              FMT          886     A     
 FMT                =B3    B3-1                                                            FMT          887     A     
 FMT                EQ     FMT.NX                                                          FMT          888     A     
 FMT                                                                                       FMT          889     A     
 FMT      **        HERE ON *X*.                                                           FMT          890     A     
 FMT      *                                                                                FMT          891     A     
 FMT      *                (A1) _ EDIT DESCRIPTOR STATUS WORD                              FMT          892     A     
 FMT      *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                        FMT          893     A     
 FMT                                                                                       FMT          894     A     
 FMT       FMT.X    BSS    0                                                               FMT          895     A     
 FMT                SBIT   X1,ES.RPTP                                                      FMT          896     A     
 FMT                MI     X1,FMT.X1   IF COUNT PRESENT                                    FMT          897     A     
 FMT                FATAL  E.FS07      COUNT MISSING                                       FMT          898     A     
 FMT       FMT.X1   LX1    ES.RPTL+ES.RPTP                                                 FMT          899     A     
 FMT                CLAS=  X2,ES,(FIN)                                                     FMT          900     A     
 FMT                BX6    X1+X2                                                           FMT          901     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SA6    A1+         UPDATE EDIT DESCRIPTOR STATUS                       FMT          902     A     
 FMT                EQ     FMT.NX                                                          FMT          903     A     
 FMT       FMT.ILL  SPACE  4,10                                                            FMT          904     A     
 FMT      *         HERE ON ALL ILLEGAL CHARACTER CODES.                                   FMT          905     A     
 FMT                                                                                       FMT          906     A     
 FMT       FMT.C    BSS    0                                                               FMT          907     A     
 FMT       FMT.H    BSS    0                                                               FMT          908     A     
 FMT       FMT.J    BSS    0                                                               FMT          909     A     
 FMT       FMT.K    BSS    0                                                               FMT          910     A     
 FMT       FMT.M    BSS    0                                                               FMT          911     A     
 FMT       FMT.N    BSS    0                                                               FMT          912     A     
 FMT       FMT.Q    BSS    0                                                               FMT          913     A     
 FMT       FMT.U    BSS    0                                                               FMT          914     A     
 FMT       FMT.V    BSS    0                                                               FMT          915     A     
 FMT       FMT.W    BSS    0                                                               FMT          916     A     
 FMT       FMT.Y    BSS    0                                                               FMT          917     A     
 FMT       FMT.INV  BSS    0                                                               FMT          918     A     
 FMT                FATAL  E.FS14                                                          FMT          919     A     
 FMT                CLAS=  X2,ES,(ERR)                                                     FMT          920          I
          -FC50086
 FMT                BX6    X1+X2                                                           FMT          921          I
          -FC50086
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS WITH ERROR            FMT          922          I
          -FC50086
 FMT                EQ     FMT.NX      TO NEXT CHARACTER                                   FMT          923          I
          -FC50086
 FMT                EQ     FMT=ILL1                                                        FC50086       13     A     
 FMT                                                                                       FMT          924     A     
 FMT                                                                                       FMT          925     A     
 FMT       FMT.ILL  EQ     "BLOWUP"    NON ALPHANUMERIC FOUND IN O.VAR OR O.CONS           FMT          926     A     
 FMT                                                                                       FMT          927     A     
 FMT                ERRPL  FMT.ILL-FMT.-400B                                               FMT          928     A     
 FMT                TITLE  FMT. - DIGIT STRING PROCESSOR.                                  FMT          929     A     
 FMT       FMT.DIG  SPACE  4,10                                                            FMT          930     A     
 FMT      **        HERE ON DIGIT STRING.                                                  FMT          931     A     
 FMT      *                                                                                FMT          932     A     
 FMT      *                (B3) = COUNT OF CHARACTERS REMAINING IN CURRENT TOKEN           FMT          933     A     
 FMT      *                (A4) _ CURRENT TOKEN IN T.TB                                    FMT          934     A     
 FMT      *                (X4) = CHARS OF CURRENT TOKEN (CURRENT CHAR LOW ORDER)          FMT          935     A     
 FMT      *                (X7) = CURRENT BUILD WORD                                       FMT          936     A     
 FMT      *                (B5) = BUILD WORD SHIFT COUNT                                   FMT          937     A     
 FMT                                                                                       FMT          938     A     
 FMT       FMT.DIG  BSS    0                                                               FMT          939     A     
 FMT                SA5    ="NUM09"    FOR DIGIT TEST                                      FMT          940     A     
 FMT                SX6    0           INITIALIZE BINARY WORD                              FMT          941     A     
 FMT                                                                                       FC50555        9     A     
 FMT       DIG      ZR     B3,DIG1     IF CURRENT TOKEN USED UP                            FMT          942     A     
 FMT                MX0    -CHAR                                                           FMT          943     A     
 FMT                BX2    -X0*X4      EXTRACT CHARACTER                                   FMT          944     A     
 FMT                SB2    X2                                                              FMT          945     A     
 FMT                LX3    B2,X5                                                           FMT          946     A     
 FMT                PL     X3,DIG5     IF NOT DIGIT                                        FMT          947     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                LX1    B1,X6       FORMER BINARY *2                                    FMT          948     A     
 FMT                SX0    X2-1R0                                                          FMT          949     A     
 FMT                LX6    3           FORMER BINARY *8                                    FMT          950     A     
 FMT                IX6    X6+X1       EFFECTIVE MULTIPLY BY 10                            FMT          951     A     
 FMT                IX6    X6+X0       ADD IN CURRENT DIGIT                                FMT          952     A     
 FMT                =B3    B3-1                                                            FMT          953     A     
 FMT                LX4    CHAR                                                            FMT          954     A     
 FMT                EQ     DIG         CONTINUE                                            FMT          955     A     
 FMT                                                                                       FMT          956     A     
 FMT      *         TEST FOR CONTINUATION TOKEN                                            FMT          957     A     
 FMT                                                                                       FMT          958     A     
 FMT       DIG1     SA1    A4+1        FETCH NEXT TOKEN                                    FMT          959     A     
 FMT                SB2    X1-O.CONS                                                       FMT          960     A     
 FMT                ZR     B2,DIG2     IF CONSTANT TOKEN                                   FMT          961     A     
 FMT                SB2    X1-O.VAR                                                        FMT          962     A     
 FMT                NZ     B2,DIG5     IF NOT VARIABLE TOKEN                               FMT          963     A     
 FMT                                                                                       FC50555       10     A     
 FMT       DIG2     SA4    A4+1                                                            FMT          964     A     
 FMT                SA6    DIGA        PRESERVE                                            FMT          965     A     
 FMT                RJ     PFC         PROCESS STRING (FROM TOKEN)                         FMT          966     A     
 FMT                SA1    DIGA                                                            FMT          967     A     
 FMT                LX4    CHAR                                                            FMT          968     A     
 FMT                BX6    X1                                                              FMT          969     A     
 FMT                EQ     DIG         CONTINUE                                            FMT          970     A     
 FMT                                                                                       FMT          971     A     
 FMT      *         ANALYZE THE DESCRIPTOR STATUS                                          FMT          972     A     
 FMT                                                                                       FMT          973     A     
 FMT       DIG5     SA1    EDSTA                                                           FMT          974     A     
 FMT                LX4    -CHAR       RESTORE                                             FMT          975     A     
 FMT                MX0    -ES.SCL                                                         FMT          976     A     
 FMT                BX2    X1                                                              FMT          977     A     
 FMT                LX1    -ES.TBP                                                         FMT          978     A     
 FMT                SB4    X1          SET FOR POSSIBLE DIAGNOSTIC                         FMT          979     A     
 FMT                ERRNZ  18-ES.TBL                                                       FMT          980     A     
 FMT                LX1    ES.TBP                                                          FMT          981     A     
 FMT                SBIT   X2,ES.ERRP                                                      FMT          982     A     
 FMT                MI     X2,FMT.NX   IF PREVIOUS ERROR, IGNORE                           FMT          983     A     
 FMT                SBIT   X2,ES.ISP/ES.ERRP                                               FMT          984     A     
 FMT                PL     X2,DIG10    IF NOT IN INITIAL STATE                             FMT          985     A     
 FMT                                                                                       FC50555       11     A     
 FMT       DIG7     LX1    -ES.SCP                                                         FMT          986     A     
 FMT                BX1    X0*X1       CLEAR STATUS CODE                                   FMT          987     A     
 FMT                CLAS=  X2,ES,(RPT,RS)                                                  FMT          988     A     
 FMT                LX1    ES.SCP                                                          FMT          989     A     
 FMT                SA6    EDRPT       MUST BE REPEAT COUNT                                FMT          990     A     
 FMT                BX6    X1+X2                                                           FMT          991     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT          992     A     
 FMT                EQ     FMT.NX      CONTINUE PROCESSING                                 FMT          993     A     
 FMT                                                                                       FMT          994     A     
 FMT       DIG10    SBIT   X2,ES.SSP/ES.ISP                                                FMT          995     A     
 FMT                MI     X2,DIG7     IF SCALE FACTOR STATE (TREAT AS RPT CNT)            FMT          996     A     
 FMT                SBIT   X2,ES.RSP/ES.SSP                                                FMT          997     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                PL     X2,DIG15    IF NOT IN REPEAT COUNT STATE                        FMT          998     A     
 FMT                CLAS=  X6,ES,(ERR)                                                     FMT          999     A     
 FMT                BX6    X1+X6                                                           FMT         1000     A     
 FMT                SA6    A1          UPDATE WITH ERROR FLAG                              FMT         1001     A     
 FMT                FATAL  E.FS15                                                          FMT         1002     A     
 FMT                EQ     FMT.NX                                                          FMT         1003     A     
 FMT                                                                                       FMT         1004     A     
 FMT       DIG15    SBIT   X2,ES.DSP/ES.RSP                                                FMT         1005     A     
 FMT                PL     X2,DIG20    IF NOT IN EDIT DESCRIPTOR STATE                     FMT         1006     A     
 FMT                LX1    -ES.SCP                                                         FMT         1007     A     
 FMT                BX1    X0*X1       CLEAR STATUS CODE                                   FMT         1008     A     
 FMT                LX1    ES.SCP                                                          FMT         1009     A     
 FMT                SBIT   X2,ES.FINP/ES.DSP                                               FMT         1010     A     
 FMT                PL     X2,DIG16    IF NOT FINISHED                                     FMT         1011     A     
 FMT                FATAL  E.FS05                                                          FMT         1012     A     
 FMT                CLAS=  X2,ES,(ERR)                                                     FMT         1013     A     
 FMT                BX6    X1+X2                                                           FMT         1014     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT         1015     A     
 FMT                EQ     FMT.NX                                                          FMT         1016     A     
 FMT                                                                                       FMT         1017     A     
 FMT       DIG16    CLAS=  X2,ES,(WF,WS)                                                   FMT         1018     A     
 FMT                SA6    EDWID       MUST BE FIELD WIDTH                                 FMT         1019     A     
 FMT                BX6    X1+X2                                                           FMT         1020     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT         1021     A     
 FMT                EQ     FMT.NX      CONTINUE PROCESSING                                 FMT         1022     A     
 FMT                                                                                       FMT         1023     A     
 FMT       DIG20    SBIT   X2,ES.WSP/ES.DSP                                                FMT         1024     A     
 FMT                PL     X2,DIG25    IF NOT IN FIELD WIDTH STATE                         FMT         1025     A     
 FMT                LX1    -ES.SCP                                                         FMT         1026     A     
 FMT                BX1    X0*X1       CLEAR STATUS CODE                                   FMT         1027     A     
 FMT                CLAS=  X2,ES,(MS)                                                      FMT         1028          I
          -FC50555
 FMT                CLAS=  X2,ES,(MD,MS)                                                   FC50555       12     A     
 FMT                LX1    ES.SCP                                                          FMT         1029     A     
 FMT                SA3    EDWID                                                           FMT         1030     A     
 FMT                IX0    X3-X6                                                           FMT         1031     A     
 FMT                PL     X0,DIG21    IF FIELD WIDTH .GE. M OR D                          FMT         1032     A     
 FMT                WARN   E.FS17                                                          FMT         1033     A     
 FMT                                                                                       FC50555       13     A     
 FMT       DIG21    BX6    X1+X2                                                           FMT         1034     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT         1035     A     
 FMT                EQ     FMT.NX      CONTINUE                                            FMT         1036     A     
 FMT                                                                                       FMT         1037     A     
 FMT       DIG25    SBIT   X2,ES.MSP/ES.WSP                                                FMT         1038     A     
 FMT                PL     X2,DIG30    IF NOT IN M OR D STATE                              FMT         1039     A     
 FMT                SBIT   X2,ES.EXPP                                                      FMT         1040     A     
 FMT                PL     X2,DIG30    IF NOT EXPONENT                                     FMT         1041     A     
 FMT                CLAS=  X2,ES,(EF,FIN)    MUST BE EXPONENT FIELD                        FMT         1042     A     
 FMT                BX6    X1+X2                                                           FMT         1043     A     
 FMT                SA6    A1          UPDATE EDIT DESCRIPTOR STATUS                       FMT         1044     A     
 FMT                EQ     FMT.NX                                                          FMT         1045     A     
 FMT                                                                                       FMT         1046     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       DIG30    CLAS=  X2,ES,(ERR)                                                     FMT         1047     A     
 FMT                BX6    X1+X2                                                           FMT         1048     A     
 FMT                SA6    A1                                                              FMT         1049     A     
 FMT                FATAL  E.FS15                                                          FMT         1050     A     
 FMT                EQ     FMT.NX                                                          FMT         1051     A     
 FMT                                                                                       FMT         1052     A     
 FMT       DIGA     BSS    1           SAVE BINARY CONSTANT                                FMT         1053     A     
 FMT                TITLE  SUBROUTINES.                                                    FMT         1054     A     
 FMT       AED      SPACE  4,10                                                            FMT         1055     A     
 FMT      **        AED -  ANALYZE EDIT DESCRIPTOR                                         FMT         1056     A     
 FMT      *                                                                                FMT         1057     A     
 FMT      *         ANALYZES THE EDIT DESCRIPTOR STATUS WORD TO DETERMINE IF ANY           FMT         1058     A     
 FMT      *         UNDIAGNOSED ERRORS HAVE OCCURRED.  UPDATES THE CURRENT RECORD          FMT         1059     A     
 FMT      *         LENGTH WITH THE SIZE OF THE EDIT DESCRIPTOR (* REPEAT COUNT)           FMT         1060     A     
 FMT      *         JUST PROCESSED.  RESETS EDIT DESCRIPTOR CELLS.                         FMT         1061     A     
 FMT      *                                                                                FMT         1062     A     
 FMT      *         USES   X1,X2,X3,X6  B2,B4,B7  A1,A2,A3,A6                              FMT         1063     A     
 FMT      *                                                                                FMT         1064     A     
 FMT      *         CALLS  CRL                                                             FMT         1065     A     
 FMT                                                                                       FMT         1066     A     
 FMT                                                                                       FMT         1067     A     
 FMT       AED      SUBR               ...ENTRY/EXIT...                                    FMT         1068     A     
 FMT                SA1    EDSTA       EDIT DESCRIPTOR STATUS WORD                         FMT         1069     A     
 FMT                ZR     X1,EXIT.    IF NOT EDIT DESCRIPTOR                              FMT         1070     A     
 FMT                LX1    -ES.TBP                                                         FMT         1071     A     
 FMT                SB4    X1          SET IN CASE OF DIAGNOSTIC                           FMT         1072     A     
 FMT                ERRNZ  18-ES.TBL                                                       FMT         1073     A     
 FMT                LX1    ES.TBP                                                          FMT         1074     A     
 FMT                MX0    -ES.TGRPL                                                       FMT         1075     A     
 FMT                LX1    -ES.TGRPP                                                       FMT         1076     A     
 FMT                BX0    -X0*X1      EXTRACT TAB GROUP BITS                              FMT         1077     A     
 FMT                LX1    ES.TGRPP                                                        FMT         1078     A     
 FMT                SBIT   X1,ES.ERRP                                                      FMT         1079     A     
 FMT                MI     X1,AED40    IF ERROR                                            FMT         1080     A     
 FMT                NZ     X0,AED30    IF TAB EDIT DESCRIPTOR                              FMT         1081     A     
 FMT                SBIT   X1,ES.HOLP/ES.ERRP                                              FMT         1082     A     
 FMT                MI     X1,AED10    IF HOLLERITH/CHARACTER                              FMT         1083     A     
 FMT                SBIT   X1,ES.SSP/ES.HOLP                                               FMT         1084     A     
 FMT                MI     X1,AED40    IF SCALE FACTOR (ONLY)                              FMT         1085     A     
 FMT                SBIT   X1,ES.DESP/ES.SSP                                               FMT         1086     A     
 FMT                PL     X1,AED20    IF NO EDIT DESCRIPTOR                               FMT         1087     A     
 FMT                BX0    X1                                                              FMT         1088     A     
 FMT                SBIT   X0,ES.SFP/ES.DESP                                               FMT         1089     A     
 FMT                PL     X0,AED1     IF NO SCALE FACTOR                                  FMT         1090     A     
 FMT                SBIT   X0,ES.SPP/ES.SFP                                                FMT         1091     A     
 FMT                MI     X0,AED1     IF SCALE FACTOR PERMITTED                           FMT         1092     A     
 FMT                FATAL  E.FS25                                                          FMT         1093     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1094     A     
 FMT                                                                                       FMT         1095     A     
 FMT       AED1     SBIT   X1,ES.WRP/ES.DESP                                               FMT         1096     A     
 FMT                PL     X1,AED10    IF FIELD WIDTH NOT REQUIRED                         FMT         1097     A     
 FMT                SBIT   X1,ES.WFP/ES.WRP                                                FMT         1098     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                MI     X1,AED2     IF FIELD WIDTH PRESENT                              FMT         1099     A     
 FMT                FATAL  E.FS13                                                          FMT         1100     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1101     A     
 FMT                                                                                       FMT         1102     A     
 FMT       AED2     SBIT   X1,ES.PRP/ES.WFP                                                FMT         1103          I
          -FC50555
 FMT                PL     X1,AED10    IF *.* NOT REQUIRED                                 FMT         1104          I
          -FC50555
 FMT                SBIT   X1,ES.PERP/ES.PRP                                               FMT         1105          I
          -FC50555
 FMT                MI     X1,AED3     IF *.* OCCURRED                                     FMT         1106          I
          -FC50555
 FMT       AED2     SBIT   X1,ES.PERP/ES.WFP                                               FC50555       14     A     
 FMT                PL     X1,AED3     IF *.* DIDNT OCCUR                                  FC50555       15     A     
 FMT                SBIT   X1,ES.MDP/ES.PERP                                               FC50555       16     A     
 FMT                MI     X1,AED4     IF M OR D FIELD OCCURED                             FC50555       17     A     
 FMT                FATAL  E.FS01                                                          FC50555       18     A     
 FMT                EQ     AED40       FINISH UP                                           FC50555       19     A     
 FMT                                                                                       FC50555       20     A     
 FMT       AED3     SBIT   X1,ES.PRP/ES.PERP                                               FC50555       21     A     
 FMT                PL     X1,AED10    IF *.* NOT REQUIRED                                 FC50555       22     A     
 FMT                FATAL  E.FS23                                                          FMT         1107     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1108     A     
 FMT                                                                                       FMT         1109     A     
 FMT       AED3     SBIT   X1,ES.EXPP/ES.PERP                                              FMT         1110          I
          -FC50555
 FMT       AED4     SBIT   X1,ES.EXPP/ES.MDP                                               FC50555       23     A     
 FMT                PL     X1,AED10    IF EXPONENT NOT PRESENT                             FMT         1111     A     
 FMT                SBIT   X1,ES.EFP/ES.EXPP                                               FMT         1112     A     
 FMT                MI     X1,AED10    IF EXPONENT FIELD PRESENT                           FMT         1113          I
          -FC50555
 FMT                MI     X1,AED10    IF EXPONENT FIELD PERMITTED                         FC50555       24     A     
 FMT                FATAL  E.FS24                                                          FMT         1114     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1115     A     
 FMT                                                                                       FMT         1116     A     
 FMT      *         UPDATE RECORD LENGTH AND TEST FOR ERRORS.                              FMT         1117     A     
 FMT                                                                                       FMT         1118     A     
 FMT       AED10    SA2    EDRPT       EDIT DESCRIPTOR REPEAT COUNT                        FMT         1119     A     
 FMT                SA1    A1          RELOAD STATUS WORD                                  FC5A161       31     A     
 FMT                SA3    EDWID       EDIT DESCRIPTOR FIELD WIDTH                         FMT         1120     A     
 FMT                NZ     X2,AED11    IF REPEAT COUNT NOT ZERO                            FMT         1121     A     
 FMT                FATAL  E.FS10                                                          FMT         1122     A     
 FMT                SX2    1                                                               FMT         1123     A     
 FMT                                                                                       FC50555       25     A     
 FMT       AED11    NZ     X3,AED12    IF FIELD WIDTH NOT ZERO                             FMT         1124     A     
 FMT                FATAL  E.FS13                                                          FMT         1125     A     
 FMT                SX3    1                                                               FMT         1126     A     
 FMT                                                                                       FC50555       26     A     
 FMT       AED12    IX6    X2*X3                                                           FMT         1127     A     
 FMT                HX1    ES.WLD                                                          FC5A161       32     A     
 FMT                MI     X1,AED40    IF WIDTHLESS DESCRIPTOR (E.G. *BZ*)                 FC5A161       33     A     
 FMT                SA3    FMTRL       CURRENT RECORD LENGTH                               FMT         1128     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                IX6    X3+X6                                                           FMT         1129     A     
 FMT                SA6    A3          UPDATE RECORD LENGTH                                FMT         1130     A     
 FMT                RJ     CRL         CHECK RECORD LENGTH                                 FMT         1131     A     
 FMT                EQ     AED40                                                           FMT         1132     A     
 FMT                                                                                       FMT         1133     A     
 FMT      *         HERE WHEN NO EDIT DESCRIPTOR. (MUST BE REPEAT ON O.LP)                 FMT         1134     A     
 FMT                                                                                       FMT         1135     A     
 FMT       AED20    SA2    A4          REFETCH TOKEN                                       FMT         1136     A     
 FMT                SB2    X2-O.LP                                                         FMT         1137     A     
 FMT                ZR     B2,AED21    IF REPEAT COUNT ON *(*                              FMT         1138     A     
 FMT                FATAL  E.FS22                                                          FMT         1139     A     
 FMT                EQ     AED40       FINISH UP                                           FC50755        6     A     
 FMT                                                                                       FC50555       27     A     
 FMT       AED21    =X6    1                                                               FMT         1140     A     
 FMT                SA6    EDWID                                                           FMT         1141     A     
 FMT                SA6    EDRPT                                                           FC50169        5          I
          -FC50755
 FMT                MX6    0                                                               FMT         1142     A     
 FMT                SA6    EDSTA       CLEAR EDIT DESCRIPTOR STATUS                        FMT         1143     A     
 FMT                EQ     EXIT.                                                           FMT         1144     A     
 FMT                                                                                       FMT         1145     A     
 FMT      *         HERE WHEN EDIT DESCRIPTOR IS *T*, *TL* OR *TR*                         FMT         1146     A     
 FMT                                                                                       FMT         1147     A     
 FMT       AED30    SA2    EDWID       CHARACTER POSITION                                  FMT         1148     A     
 FMT                SBIT   X1,ES.WFP/ES.ERRP                                               FMT         1149     A     
 FMT                PL     X1,AED31    IF NO CHARACTER POSITION SPECIFIED                  FMT         1150     A     
 FMT                NZ     X2,AED32    IF CHARACTER POSITION NOT NULL                      FMT         1151     A     
 FMT                                                                                       FC50555       28     A     
 FMT       AED31    FATAL  E.FS02                                                          FMT         1152     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1153     A     
 FMT                                                                                       FMT         1154     A     
 FMT       AED32    SA3    FMTRL       CURRENT RECORD LENGTH                               FMT         1155     A     
 FMT                SBIT   X1,ES.TP/ES.WFP                                                 FMT         1156     A     
 FMT                PL     X1,AED34    IF NOT *T*                                          FMT         1157     A     
 FMT                BX6    X2                                                              FMT         1158          I
          -FC50026
 FMT                SX6    X2-1                                                            FC50026        4     A     
 FMT                IX2    X2-X3                                                           FMT         1159          I
          -FC5A126
 FMT                PL     X2,AED33    IF NEW POSITION DOESNT OVERLAY                      FMT         1160          I
          -FC5A126
 FMT                TRIV   E.FS01                                                          FMT         1161          I
          -FC5A126
 FMT       AED33    SA6    A3          UPDATE RL                                           FMT         1162          I
          -FC5A126
 FMT                SA6    A3          UPDATE RL                                           FC5A126       39     A     
 FMT                SB2    B6          PAREN NESTING LEVEL                                 FC50625        6     A     
 FMT                MX1    18                                                              FC50625        7     A     
 FMT                LX1    18+18                                                           FC50625        8     A     
 FMT                ZR     B2,AED40    IF NO LEVELS - FINISH UP                            FC50882        7          I
          -FC50941
 FMT                LE     B2,AED40    IF NO LEVELS - FINISH UP                            FC50941        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                                                                                       FC50625        9     A     
 FMT       AED33    SA3    B2+LVSTAK-1                                                     FC50625       10     A     
 FMT                BX6    -X1*X3      CLEAR LENGTH                                        FC50625       11     A     
 FMT                SA6    A3                                                              FC50625       12     A     
 FMT                SB2    B2-1                                                            FC50625       13     A     
 FMT                NZ     B2,AED33    IF MORE LEVELS TO CLEAR                             FC50625       14     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1163     A     
 FMT                                                                                       FMT         1164     A     
 FMT       AED34    SBIT   X1,ES.TLP/ES.TP                                                 FMT         1165     A     
 FMT                PL     X1,AED36    IF NOT *TL*                                         FMT         1166     A     
 FMT                IX6    X3-X2                                                           FMT         1167     A     
 FMT                PL     X6,AED35    IF NOT TAB LEFT PAST FRONT OF RECORD                FMT         1168     A     
 FMT                TRIV   E.FS09                                                          FMT         1169     A     
 FMT                SX6    0                                                               FMT         1170     A     
 FMT                                                                                       FC50555       29     A     
 FMT       AED35    SA6    A3                                                              FMT         1171     A     
 FMT                EQ     AED40       FINISH UP                                           FMT         1172     A     
 FMT                                                                                       FMT         1173     A     
 FMT       AED36    IX6    X3+X2                                                           FMT         1174     A     
 FMT                SA6    A3                                                              FMT         1175     A     
 FMT                RJ     CRL         CHECK RECORD LENGTH                                 FMT         1176     A     
 FMT                                                                                       FMT         1177     A     
 FMT       AED40    MX6    0                                                               FMT         1178     A     
 FMT                SA6    A1                                                              FMT         1179     A     
 FMT                =X6    1                                                               FMT         1180     A     
 FMT                SA6    EDWID                                                           FMT         1181     A     
 FMT                =A6    A6-EDWID+EDRPT                                                  FMT         1182     A     
 FMT                EQ     EXIT.                                                           FMT         1183     A     
 FMT       CRL      SPACE  4,10                                                            FMT         1184     A     
 FMT      **        CRL -  CHECK RECORD LENGTH                                             FMT         1185     A     
 FMT      *                                                                                FMT         1186     A     
 FMT      *         CHECKS RECORD LENGTH AND OUTPUTS DIAGNOSTIC IF LENGTH IS               FMT         1187     A     
 FMT      *         .GT. -- 137(WARNING) OR 131,071(FATAL).                                FMT         1188     A     
 FMT      *                                                                                FMT         1189     A     
 FMT      *         ENTRY  (X6) = RECORD LENGTH                                            FMT         1190     A     
 FMT      *                                                                                FMT         1191     A     
 FMT      *         EXIT   DIAGNOSTIC OUTPUT IF NECESSARY                                  FMT         1192     A     
 FMT      *                                                                                FMT         1193     A     
 FMT      *         USES   X3,X6  B3,B7  A3                                                FMT         1194     A     
 FMT                                                                                       FMT         1195     A     
 FMT                                                                                       FMT         1196     A     
 FMT       CRL      SUBR               ...ENTRY/EXIT...                                    FMT         1197     A     
 FMT                SB3    X6-137-1                                                        FMT         1198     A     
 FMT                =A3    A3-FMTRL+FMTRLC                                                 FMT         1199          I
          -FC5A161
 FMT                SA3    FMTRLC                                                          FC5A161       34     A     
 FMT                MI     B3,EXIT.    IF COUNT IS .LE. 137                                FMT         1200     A     
 FMT                SB7    E.FS12                                                          FMT         1201     A     
 FMT                AX6    17                                                              FMT         1202     A     
 FMT                ZR     X6,CRL1     IF COUNT .LE. 131,071                               FMT         1203     A     
 FMT                SB7    E.FS11                                                          FMT         1204     A     
 FMT                                                                                       FMT         1205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       CRL1     SB3    X3+B7                                                           FMT         1206     A     
 FMT                ZR     B3,EXIT.    IF ERROR ALREADY DETECTED                           FMT         1207     A     
 FMT                SX6    -B7                                                             FMT         1208     A     
 FMT                SA6    A3          UPDATE RECORD LENGTH ERROR                          FMT         1209     A     
 FMT                WARN   B7          OUTPUT RECORD LENGTH DIAGNOSTIC                     FMT         1210     A     
 FMT                EQ     EXIT.                                                           FMT         1211     A     
 FMT       PFC      SPACE  4,10                                                            FMT         1212     A     
 FMT      **        PFC -  PROCESS FORMAT CHARACTER(S).                                    FMT         1213     A     
 FMT      *                                                                                FMT         1214     A     
 FMT      *         ENTRY  (X4) = TOKEN TO PROCESS.                                        FMT         1215     A     
 FMT      *                (X7) = CURRENT BUILD WORD.                                      FMT         1216     A     
 FMT      *                (B5) = CURRENT SHIFT POSITION.                                  FMT         1217     A     
 FMT      *                                                                                FMT         1218     A     
 FMT      *         EXIT   (X4) = STRING                                                   FMT         1219     A     
 FMT      *                (X7) = UPDATED                                                  FMT         1220     A     
 FMT      *                (B3) = STRING COUNT                                             FMT         1221     A     
 FMT      *                (B5) = UPDATED                                                  FMT         1222     A     
 FMT      *                                                                                FMT         1223     A     
 FMT      *         USES   X0,X2,X3,X4  B3                                                 FMT         1224     A     
 FMT                                                                                       FMT         1225     A     
 FMT                                                                                       FMT         1226     A     
 FMT       PFC      SUBR               ...ENTRY/EXIT...                                    FMT         1227     A     
 FMT                MX0    TB.TOCL                                                         FMT         1228     A     
 FMT                BX3    X0*X4       CHARACTERS ONLY                                     FMT         1229     A     
 FMT                MX0    -CHAR                                                           FMT         1230     A     
 FMT                BX4    X3                                                              FMT         1231     A     
 FMT                =B3    0           INITIALIZE                                          FMT         1232     A     
 FMT                LX3    CHAR                                                            FMT         1233     A     
 FMT                BX2    -X0*X3                                                          FMT         1234     A     
 FMT       PFC1     SB3    B3+1                                                            FMT         1235     A     
 FMT                LX2    X2,B5                                                           FMT         1236     A     
 FMT                BX7    X7+X2       MERGE INTO BUILD WORD                               FMT         1237     A     
 FMT                SB5    B5-CHAR                                                         FMT         1238     A     
 FMT                MI     B5,PFC2     IF BUILD WORD FULL                                  FMT         1239     A     
 FMT                LX3    CHAR                                                            FMT         1240     A     
 FMT                BX2    -X0*X3                                                          FMT         1241     A     
 FMT                ZR     X2,EXIT.    IF STRING PROCESSED                                 FMT         1242     A     
 FMT                EQ     PFC1                                                            FMT         1243     A     
 FMT                                                                                       FMT         1244     A     
 FMT       PFC2     =A7    A7+1        STORE BUILD WORD                                    FMT         1245     A     
 FMT                MX7    0           RESET                                               FMT         1246     A     
 FMT                SB5    9*CHAR      SHIFT COUNT                                         FMT         1247     A     
 FMT                LX3    CHAR                                                            FMT         1248     A     
 FMT                BX2    -X0*X3                                                          FMT         1249     A     
 FMT                ZR     X2,EXIT.    IF STRING PROCESSED                                 FMT         1250     A     
 FMT                EQ     PFC1        CONTINUE                                            FMT         1251     A     
 FMT       RED      SPACE  4,10                                                            FMT         1252     A     
 FMT      **        RED -  RESTART EDIT DESCRIPTOR                                         FMT         1253     A     
 FMT      *                                                                                FMT         1254     A     
 FMT      *         CALLED TO RESTART THE EDIT DESCRIPTOR STATUS WORD WHEN                 FMT         1255     A     
 FMT      *         A PUNCTUATION ERROR (OR LEGAL LACK OF PUNCTUATION) OCCURRED.           FMT         1256     A     
 FMT      *                                                                                FMT         1257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      *         ENTRY  (X4) = CHARACTERS TO PROCESS                                    FMT         1258     A     
 FMT      *                (A4) _ T.TB ENTRY                                               FMT         1259     A     
 FMT      *                (B3) = NUMBER OF CHARACTERS REMAINING IN (X4)                   FMT         1260     A     
 FMT      *                                                                                FMT         1261     A     
 FMT      *         USES   X1,X6  A6                                                       FMT         1262     A     
 FMT                                                                                       FMT         1263     A     
 FMT                                                                                       FMT         1264     A     
 FMT       RED      SUBR               ...ENTRY/EXIT...                                    FMT         1265     A     
 FMT                CLAS=  X1,ES,(IS)                                                      FMT         1266     A     
 FMT                SX6    A4                                                              FMT         1267     A     
 FMT                LX6    ES.TBP                                                          FMT         1268     A     
 FMT                BX6    X6+X1                                                           FMT         1269     A     
 FMT                SA6    EDSTA                                                           FMT         1270     A     
 FMT                EQ     EXIT.                                                           FMT         1271     A     
 FMT                SPACE  4,10                                                            FMT         1272     A     
 FMT                LIST   D                                                               FMT         1273     A     
 FMT                END                                                                    FMT         1274     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FMT     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FMT                       1274      1239
          FC5A108                      2         2
          FC5A126                      1         1
          FC5A161                     30        26
          FC5A184                      4         4
          FC50026                      1         1
          FC5A234                      1         1
          FC5A258                     14        14
          FC50086                      8         8
          FC5A315                      1         1
          FC50169                      1         0
          FC5A369                     21        21
          FC50553                     12        11
          FC50555                     23        23
          FC5A380                      9         9
          FC50625                      9         9
          FC50755                      1         1
          FC50766                     11        11
          FC50806                      1         1
          FC50882                      1         0
          FC50941                      1         1
          FC50800                      6         3
          FC51485                      2         2
          FC51497                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *DECK     IO                                                                     IO             1     A     
 IO                 IDENT  IO                                                              IO             2     A     
 IO        IO       SECT   (INPUT/OUTPUT STATEMENT PROCESSING.)                            IO             3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        IO       SPACE  4                                                               IO             4     A     
 IO       *         IN ALLOC                                                               IO             5     A     
 IO                 EXT    ADW,ALC                                                         IO             6     A     
 IO                                                                                        IO             7     A     
 IO       *         IN CONRED                                                              IO             8     A     
 IO                 EXT    LCH,LCT                                                         IO             9     A     
 IO                                                                                        IO            10     A     
 IO       *         IN FEC                                                                 IO            11     A     
 IO                 EXT    ARGCOMA,ARGMODE,CT1,ERT,ESY,NCS,OIL,PARMODE                     IO            12          I
          -FC5A211
 IO                 EXT    ARGCOMA,ARGMODE,BBC,CT1,ERT,ESY,NCS,OIL,PARMODE                 FC5A211       11          I
          -FC50317
 IO                 EXT    REFNUM,REFVAR,SSY,TSX,DATFLG                                    IO            13          I
          -FC50317
 IO                 EXT    ARGCOMA,ARGMODE,BBC,CHARMAP,CT1,DATFLG,ERT,ESY,NCS,OIL          FC50317        6     A     
 IO                 EXT    PARMODE,REFNUM,REFVAR,SSY,TSX                                   FC50317        7     A     
 IO                                                                                        IO            14     A     
 IO       *         IN FERRS                                                               IO            15     A     
 IO                 EXT    E.ANS,E.DO08,E.IOB0,E.IOB1,E.IOB2,E.IOB3,E.IOB4,E.IOB5          IO            16          I
          -FC5A232
 IO                 EXT    E.ANS,E.IOB0,E.IOB1,E.IOB2,E.IOB3,E.IOB4,E.IOB5                 FC5A232        5     A     
 IO                 EXT    E.IOB6,E.IOB7,E.IOB8,E.IOB9                                     IO            17          I
          -FC5A171A 
 IO                 EXT    E.IOB6,E.IOB7,E.IOB8,E.IOB9,E.IO36                              FC5A171A      18          I
          -FC50887
 IO                 EXT    E.IOB6,E.IOB7,E.IOB8,E.IOB9,E.IO36,E.IO37                       FC50887        7     A     
 IO                 EXT    E.IOD1,E.IOD2,E.IOD3,E.IOD4,E.IOF,E.IOF1,E.IOF2                 IO            18     A     
 IO                 EXT    E.IOL2,E.IOL5,E.IOL6,E.IOL7,E.IOL8,E.ION,E.ION1                 IO            19          I
          -FC5A232
 IO                 EXT    E.IOL2,E.IOL5,E.IOL6,E.ION,E.ION1                               FC5A232        6          I
          -FC50643
 IO                 EXT    E.IOL1,E.IOL2,E.IOL5,E.IOL6,E.ION,E.ION1                        FC50643        6     A     
 IO                 EXT    E.IOS1,E.IOS2,E.IOS3,E.IOS4,E.IOS5,E.IOS6,E.IOS7,E.IOS8         IO            20     A     
 IO                 EXT    E.IOS9,E.IOS10                                                  IO            21          I
          -F1037F5
 IO                 EXT    E.IOS9,E.IOS10,E.MDE3,E.MDE4                                    F1037F5      429     A     
 IO                 EXT    E.IO00,E.IO01,E.IO02,E.IO03,E.IO04,E.IO05,E.IO06,E.IO07         IO            22     A     
 IO                 EXT    E.IO08,E.IO09,E.IO10,E.IO11,E.IO12,E.IO13,E.IO14,E.IO15         IO            23     A     
 IO                 EXT    E.IO16,E.IO17,E.IO18,E.IO19,E.IO20,E.IO21,E.IO22,E.IO23         IO            24     A     
 IO                 EXT    E.IO24,E.IO25,E.IO26,E.IO27,E.IO28,E.IO29,E.IO30,E.IO31         IO            25          I
          -FC5A232
 IO                 EXT    E.IO24,E.IO25,E.IO28,E.IO29,E.IO30,E.IO31                       FC5A232        7          I
          -FC5A338
 IO                 EXT    E.IO24,E.IO25,E.IO26,E.IO28,E.IO29,E.IO30,E.IO31                FC5A338       35     A     
 IO                 EXT    E.IO32,E.IO33,FILL.,FILL.2,FILL.3,MOD.DPC                       IO            26          I
          -FC5A171A 
 IO                 EXT    E.IO32,E.IO33,E.IO34,E.IO35,FILL.,FILL.2,FILL.3,MOD.DPC         FC5A171A      19     A     
 IO                                                                                        IO            27     A     
 IO       *         IN FSNAP                                                               IO            28     A     
 IO                 EXT    LTB=                                                            IO            29     A     
 IO                                                                                        IO            30     A     
 IO       *         IN FTN                                                                 IO            31     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 EXT    CO.SNAP,CO.DBSB                                                 IO            32     A     
 IO                                                                                        IO            33     A     
 IO       *         IN LABEL                                                               IO            34     A     
 IO                 EXT    CDI,ISL,PDT,PSL                                                 IO            35          I
          -FC5A211
 IO                 EXT    CDI,DDR,ISL,PDT,PSL                                             FC5A211       12     A     
 IO                                                                                        IO            36     A     
 IO       *         IN PAR                                                                 IO            37     A     
 IO                 EXT    BUFFWA,BUFLWA,BUFMOD,CNTARM,CURST,C=ERR,DOCOLI,DOCOLS           IO            38     A     
 IO                 EXT    DOA,EMT,ERROP,FAT,FMTARM,ICCARM,ICCXARM,ICIARM,ICIXARM          IO            39     A     
 IO                 EXT    ICLARM,IOARGM,IOCTL,IODTA,IOL.RTN,IOUNT,OPBSS,PAR               IO            40          I
          -FC5A248
 IO                 EXT    ICLARM,IOARGM,IOCTL,IODTA,IOL.RTN,IOUNT,OPBSS,OPDUM,PAR         FC5A248       12     A     
 IO                 EXT    PAREXIT,PAR.NX,STRARM,TPC,UNTARM                                IO            41          I
          -FC5A171A 
 IO                 EXT    PAREXIT,PAR.NX,STRARM,TPC,UNTARM,FOUARM,GOL                     FC5A171A      20     A     
 IO                 EXT    ARYOP                                                           FC50620       15     A     
 IO                                                                                        IO            42     A     
 IO       *         IN PEM                                                                 IO            43     A     
 IO                 EXT    ANSI=,PDM                                                       IO            44          I
          -FC5A248
 IO                 EXT    ANSI=,MDERR=,PDM                                                FC5A248       13     A     
 IO                                                                                        IO            45     A     
 IO       *         IN PUC                                                                 IO            46     A     
 IO                 EXT    CONONE,CONZER,N.GL,S=BU,S=CON,S=VD,T=IOARG,T=BLST               IO            47          I
          -FC5A248
 IO                 EXT    T=ILI,T=PAR,T=SCR,T.IOARG,T.DIM,T.ILI,T.PAR,T.SCR,T.SYM         IO            48          I
          -FC5A248
 IO                 EXT    T.TB,WO.LOA,WO.LOM,WO.LOR                                       IO            49          I
          -FC5A141  -FC5A248
 IO                 EXT    T.TB,WO.LOA,WO.LOM,WO.LOR,SCR                                   FC5A141       66          I
          -FC5A248
 IO                 EXT    CONONE,CONZER,N.GL,SCR,S=BU,S=CON,S=VD,T=IOARG,T=BLST           FC5A248       14          I
          -FC50464
 IO                 EXT    T=ILI,T=IOA,T=IOLC,T=PAR,T=SCR,T.IOARG,T.DIM,T.ILI              FC5A248       15          I
          -FC50464
 IO                 EXT    T.IOA,T.IOLC,T.PAR,T.SCR,T.SYM,T.TB,WO.DOOT,WO.LOA              FC5A248       16          I
          -FC50464
 IO                 EXT    WO.LOM,WO.LOR                                                   FC5A248       17          I
          -FC50464
 IO                 EXT    CONONE,CONZER,LOSTREF,N.GL,SCR,S=BU,S=CON,S=VD,T=IOARG          FC50464        8     A     
 IO                 EXT    T=BLST,T=ILI,T=IOA,T=IOLC,T=PAR,T=REF,T=SCR,T.IOARG             FC50464        9     A     
 IO                 EXT    T.DIM,T.ILI,T.IOA,T.IOLC,T.PAR,T.SCR,T.SYM,T.TB,WO.DOOT         FC50464       10     A     
 IO                 EXT    WO.LOA,WO.LOM,WO.LOR                                            FC50464       11     A     
 IO                                                                                        IO            50     A     
 IO       *         IN QSKEL                                                               IO            51          I
          -FC5A248
 IO                 EXT    V=APIOC,V=IOSUB,V=MUL.I,V=STR.I                                 IO            52          I
          -FC5A248
 IO       *         IN QSKEL/FSKEL                                                         FC5A248       18     A     
 IO                 EXT    V=APIOC,V=IOLC,V=IOSUB,V=LCIF,V=MUL,V=MUL.I,V=NOOP              FC5A248       19     A     
 IO                 EXT    V=STR.I                                                         FC5A248       20          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50620
 IO                 EXT    V=STR.I,V=MAX0,V=SUB.I,V=ADD.I                                  FC50620       16     A     
 IO                                                                                        IO            53     A     
 IO       *         IN UTILITY                                                             IO            54     A     
 IO                 EXT    CDD,MVE=                                                        IO            55     A     
 IO                 TITLE  STORAGE AND TABLES.                                             IO            56     A     
 IO       **        MISCELLANEOUS CELLS USED BY I/O PROCESSORS                             IO            57     A     
 IO                                                                                        IO            58     A     
 IO                                                                                        IO            59     A     
 IO        IODIR    CONENT 0           I/O DIRECTION (S=INP OR S=OUT)                      IO            60     A     
 IO        IOARGT   BSS    1           (ARGMODE) FOR THIS DIRECTION                        IO            61     A     
 IO        IOREF    BSS    1           I/O REFERENCE LETTER                                IO            62     A     
 IO        IODTH    BSS    1           DATA TURPLE HEADER                                  IO            63     A     
 IO        IOSKP    BSS    1           TAG FOR SKIP= LABEL                                 IO            64     A     
 IO       IOARY     BSS    1           ARRAY LOAD TURPLE HEADER                            FC50620       17          I
          -FC5A431
 IO        IOARY    BSS    1           ARRAY LOAD TURPLE HEADER                            FC5A431        7     A     
 IO                                                                                        IO            65     A     
 IO        IOORD    BSS    1           I/O ROUTINE SYMBOL TABLE ORDINAL (TP.ORDP)          IO            66          I
          -FC5A232
 IO        IONAM    BSSENT 1           ORDINAL OF I/O ROUTINE NAME (IN S.LIB)              IO            67     A     
 IO                                    COMPLEMENTED UNTIL INITIAL CALL COMPILED.           IO            68     A     
 IO                                                                                        IO            69     A     
 IO        IODOCOL  BSS    1           POINTER TO LAST PROCESSED I/O DO STRUCTURE          IO            70     A     
 IO        IODOLEN  BSS    1           LENGTH OF DO-TABLE BEFORE THIS STATEMENT            IO            71          I
          -FC5A111
 IO        IODOLEN  BSZENT 1           LENGTH OF DO-TABLE BEFORE THIS STATEMENT            FC5A111       24     A     
 IO        IODOIND  BSZENT 2           INDICATOR THAT PARTIAL COLLAPSE OCCURRED            IO            72     A     
 IO                                    SECOND WORD IS THE COLLAPSE COUNT                   IO            73     A     
 IO        IOPCFD   CON    0           POSSIBLE CHARACTER FORMAT DESIGNATOR FLAG           FC5A171A      21          I
          -FC5A232
 IO                                                                                        IO            74     A     
 IO        IOBFWA   BSS    1           BUFFER I/O FIRST WORD ADDRESS                       IO            75     A     
 IO        IOBLWA   BSS    1           BUFFER I/O LAST WORD ADDRESS                        IO            76     A     
 IO                                                                                        IO            77     A     
 IO        LISTDIR  CON    0           LIST DIRECTED I/O FLAG                              IO            78     A     
 IO        S.IOCALL SPACE  4,10                                                            IO            79     A     
 IO       **        S.IOCALL - LIST OF ROUTINES USED BY OBJECT TIME INPUT/OUTPUT.          IO            80     A     
 IO       *         MUST ALWAYS BE KEPT IN ORDER, AS THE PROPER NAME IS  SELECTED          IO            81     A     
 IO       *         BY INDEXING INTO THIS TABLE.                                           IO            82     A     
 IO                                                                                        IO            83     A     
 IO                                                                                        IO            84     A     
 IO        S.IOCALL BSS    0           BASE OF *I/O* ROUTINE NAMES                         IO            85     A     
 IO                                                                                        IO            86     A     
 IO                 LOC    0                                                               IO            87     A     
 IO        S=COD    BSS    0           *CODED* MODE                                        IO            88     A     
 IO        S=INIT   BSS    0           *INITIAL* CALL                                      IO            89     A     
 IO        S=INP    =XLIB  INPCI       *INPUT* DIRECTION                                   IO            90     A     
 IO        S=CONT   =XLIB  INPCR                                                           IO            91     A     
 IO        S=OUT    =XLIB  OUTCI       *OUTPUT* DIRECTION                                  IO            92     A     
 IO                 =XLIB  OUTCR                                                           IO            93     A     
 IO        S=BIN    =XLIB  INPBI       *BINARY* MODE                                       IO            94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =XLIB  INPBR                                                           IO            95     A     
 IO                 =XLIB  OUTBI                                                           IO            96     A     
 IO                 =XLIB  OUTBR                                                           IO            97     A     
 IO        S=FREE   =XLIB  INPFI       *LIST-DIRECTED* (FREE FIELD)                        IO            98     A     
 IO                 =XLIB  INPFR                                                           IO            99     A     
 IO                 =XLIB  OUTFI                                                           IO           100     A     
 IO                 =XLIB  OUTFR                                                           IO           101     A     
 IO        S=STR    =XLIB  DECODI      *STRING* MODE                                       IO           102     A     
 IO                 =XLIB  DECODR                                                          IO           103     A     
 IO                 =XLIB  ENCODI                                                          IO           104     A     
 IO                 =XLIB  ENCODR                                                          IO           105     A     
 IO        S=INF    =XLIB  IIFCI       *INTERNAL FILE*                                     IO           106     A     
 IO                 =XLIB  IIFCR                                                           IO           107     A     
 IO                 =XLIB  OIFCI                                                           IO           108     A     
 IO                 =XLIB  OIFCR                                                           IO           109     A     
 IO        S=DA     =XLIB  IDACI       *DIRECT ACCESS* MODE                                IO           110     A     
 IO                 =XLIB  IDACR                                                           IO           111     A     
 IO                 =XLIB  ODACI                                                           IO           112     A     
 IO                 =XLIB  ODACR                                                           IO           113     A     
 IO                 =XLIB  IDABI                                                           IO           114     A     
 IO                 =XLIB  IDABR                                                           IO           115     A     
 IO                 =XLIB  ODABI                                                           IO           116     A     
 IO                 =XLIB  ODABR                                                           IO           117     A     
 IO                 LOC    *O                                                              IO           118     A     
 IO                                                                                        IO           119     A     
 IO        S.NLST   =XLIB  NAMIN       *NAMELIST* MODE                                     IO           120     A     
 IO                 =XLIB  NAMOUT                                                          IO           121     A     
 IO        S.BKSP   =XLIB  BACKSP                                                          IO           122     A     
 IO        S.CLOSE  =XLIB  CLOSE                                                           IO           123     A     
 IO        S.ENDFI  =XLIB  ENDFIL                                                          IO           124     A     
 IO        S.INQUI  =XLIB  INQUIR                                                          IO           125     A     
 IO        S.OPEN   =XLIB  OPEN                                                            IO           126     A     
 IO        S.REWIN  =XLIB  REWIND                                                          IO           127     A     
 IO                 =XLIB  BUFOUT                                                          IO           128     A     
 IO        S.BUFIO  =XLIB  BUFIN                                                           IO           129     A     
 IO                                                                                        IO           130     A     
 IO        S=NLST   EQU    -3          NAMELIST INDICATOR                                  IO           131     A     
 IO        DC=      SPACE  4,10                                                            IO           132     A     
 IO       **        DO COLLAPSE POINTER VALUES                                             IO           133     A     
 IO       *         INDEX INTO TOKEN BUFFER, BEGINNING WITH COLLAPSE CONCLUDE              IO           134     A     
 IO                                                                                        IO           135     A     
 IO                                                                                        IO           136     A     
 IO        DC=CCT   EQU    0           DO COLLAPSE CONCLUSION TOKEN                        IO           137     A     
 IO        DC=ISV   EQU    1           INITIAL SUBSCRIPT VALUE                             IO           138     A     
 IO        DC=SIZ   EQU    2           COLLAPSE SIZE                                       IO           139     A     
 IO        DC=VAR   EQU    3           VARIABLE FOR SIZE MULTIPLY                          IO           140     A     
 IO        DC=OFF   EQU    4           STARTING OFFSET (BIAS)                              IO           141     A     
 IO        KW.CTL   EJECT                                                                  IO           142     A     
 IO       **        FW.CTL - *I/O CONTROL* SUB-KEYWORD TABLE.                              IO           143     A     
 IO                                                                                        IO           144     A     
 IO        FW.CTL   BSS    0           FWA OF *I/O CONTROL* SUB-KEYWORD TABLE              IO           145     A     
 IO                                                                                        IO           146     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO           147     A     
 IO       **        IODEF - MACRO TO DEFINE I/O CONTROL SUB-KEYWORD TABLE                  IO           148     A     
 IO                                                                                        IO           149     A     
 IO                                                                                        IO           150     A     
 IO                 PURGMAC  ICDEF                                                         IO           151     A     
 IO                 MACRO  ICDEF,INFO,KEY                                                  IO           152     A     
 IO        A        MICRO  1,, KEY                                                         IO           153     A     
 IO        B        MICCNT A                                                               IO           154     A     
 IO        C        MICRO  B,1, KEY                                                        IO           155     A     
 IO        .1       IFC    EQ,/"C"/=/                                                      IO           156     A     
 IO        D        MICRO  1,B-1, KEY                                                      IO           157     A     
 IO                 SUBKEY "D",PKC=INFO                                                    IO           158     A     
 IO        .1       ELSE                                                                   IO           159     A     
 IO                 SUBKEY $,PKC=                                                          IO           160     A     
 IO        .1       ENDIF                                                                  IO           161     A     
 IO        ICDEF    ENDM                                                                   IO           162     A     
 IO                                                                                        IO           163     A     
 IO                                                                                        IO           164     A     
 IO       *CALL COMSIOC                                                                    IO           165     A     
 IO                                                                                        IO           166     A     
 IO        L.CTL    EQU    *-FW.CTL    LENGTH OF *I/O CONTROL* SUB-KEYWORD TABLE           IO           167     A     
 IO                 TITLE  AUXILIARY I/O STATEMENTS - SOURCE TRANSLATION.                  IO           168     A     
 IO        BACKSPAC SPACE  4,10                                                            IO           169     A     
 IO       **        PROCESS "BACKSPACE" STATEMENT.                                         IO           170     A     
 IO       *                                                                                IO           171     A     
 IO       *         SEE ANSI 12.10.4                                                       IO           172     A     
 IO       *                                                                                IO           173     A     
 IO       *         EXIT   TO FPS WITH                                                     IO           174     A     
 IO       *                (B6) _ BACKSPACE ROUTINE NAME.                                  IO           175     A     
 IO                                                                                        IO           176     A     
 IO                                                                                        IO           177     A     
 IO                 HEREIF BACKSPACE                                                       IO           178     A     
 IO                                                                                        IO           179     A     
 IO                 SB6    S.BKSP                                                          IO           180     A     
 IO                 EQ     FPS                                                             IO           181     A     
 IO        CLOSE    SPACE  4,10                                                            IO           182     A     
 IO       ***       PROCESS "CLOSE" STATEMENT.                                             IO           183     A     
 IO       *                                                                                IO           184     A     
 IO       *         SEE ANSI 12.10.2                                                       IO           185     A     
 IO       *                                                                                IO           186     A     
 IO       *         EXIT   TO FMS WITH                                                     IO           187     A     
 IO       *                (B6) _ CLOSE ROUTINE NAME                                       IO           188     A     
 IO       *                (X1) = "CLLC" (KEYWORD LEGALITY MASK)                           IO           189     A     
 IO                                                                                        IO           190     A     
 IO                                                                                        IO           191     A     
 IO        CLLC     BITMIC (IC.UNT,IC.ERR,IC.IOS,IC.STA)                                   IO           192     A     
 IO                                                                                        IO           193     A     
 IO                 HEREIF CLOSE                                                           IO           194     A     
 IO                 SB6    S.CLOSE                                                         IO           195     A     
 IO                 SA1    ="CLLC"     FETCH LEGALITY MASK                                 IO           196     A     
 IO                 EQ     FMS                                                             IO           197     A     
 IO        ENDFILE  SPACE  4,10                                                            IO           198     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       **        PROCESS "ENDFILE" STATEMENT.                                           IO           199     A     
 IO       *                                                                                IO           200     A     
 IO       *         SEE ANSI 12.10.4                                                       IO           201     A     
 IO       *                                                                                IO           202     A     
 IO       *         EXIT   TO FPS WITH                                                     IO           203     A     
 IO       *                (B6) _ ENDFILE ROUTINE NAME.                                    IO           204     A     
 IO                                                                                        IO           205     A     
 IO                                                                                        IO           206     A     
 IO                 HEREIF ENDFILE                                                         IO           207     A     
 IO                                                                                        IO           208     A     
 IO                 SB6    S.ENDFI                                                         IO           209     A     
 IO                 EQ     FPS                                                             IO           210     A     
 IO        INQUIRE  SPACE  4,10                                                            IO           211     A     
 IO       **        PROCESS "INQUIRE" STATEMENT.                                           IO           212     A     
 IO       *                                                                                IO           213     A     
 IO       *         SEE ANSI 12.10.3                                                       IO           214     A     
 IO       *                                                                                IO           215     A     
 IO       *         EXIT   TO FMS WITH                                                     IO           216     A     
 IO       *                (B6) _ INQUIRE ROUTINE NAME                                     IO           217     A     
 IO       *                (X1) = "INCL" (KEYWORD LEGALITY MASK)                           IO           218     A     
 IO                                                                                        IO           219     A     
 IO                                                                                        IO           220     A     
 IO        INCL     BITMIC (IC.UNT,IC.ERR,IC.IOS,IC.ACC,IC.BLK,IC.DIR,IC.EXS,_____         IO           221     A     
 IO       ,IC.FIL,IC.FOR,IC.FMD,IC.NAM,IC.NMD,IC.NXT,IC.NUM,IC.OPE,IC.RCL,IC.SEQ,_         IO           222     A     
 IO       ,IC.UNF)                                                                         IO           223     A     
 IO                                                                                        IO           224     A     
 IO                 HEREIF INQUIRE                                                         IO           225     A     
 IO                 SB6    S.INQUI                                                         IO           226     A     
 IO                 SA1    ="INCL"     FETCH LEGALITY MASK                                 IO           227     A     
 IO                 EQ     FMS                                                             IO           228     A     
 IO        OPEN     SPACE  4,10                                                            IO           229     A     
 IO       **        PROCESS "OPEN" STATEMENT.                                              IO           230     A     
 IO       *                                                                                IO           231     A     
 IO       *         SEE ANSI 12.10.1                                                       IO           232     A     
 IO       *                                                                                IO           233     A     
 IO       *         EXIT   TO FMS WITH                                                     IO           234     A     
 IO       *                (B6) _ OPEN ROUTINE NAME.                                       IO           235     A     
 IO       *                (X1) = "OPLC" (KEYWORD LEGALITY MASK)                           IO           236     A     
 IO                                                                                        IO           237     A     
 IO                                                                                        IO           238     A     
 IO        OPLC     BITMIC (IC.UNT,IC.ERR,IC.IOS,IC.ACC,IC.BLK,IC.BFL,IC.FIL,_____         IO           239     A     
 IO       ,IC.FOR,IC.RCL,IC.STA)                                                           IO           240     A     
 IO                                                                                        IO           241     A     
 IO                 HEREIF OPEN                                                            IO           242     A     
 IO                 SB6    S.OPEN                                                          IO           243     A     
 IO                 SA1    ="OPLC"     FETCH LEGALITY MASK                                 IO           244     A     
 IO                 EQ     FMS                                                             IO           245     A     
 IO        REWIND   SPACE  4,10                                                            IO           246     A     
 IO       **        PROCESS "REWIND" STATEMENT.                                            IO           247     A     
 IO       *                                                                                IO           248     A     
 IO       *         SEE ANSI 12.10.4                                                       IO           249     A     
 IO       *                                                                                IO           250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         EXIT   TO FPS WITH                                                     IO           251     A     
 IO       *                (B6) _ REWIND ROUTINE NAME.                                     IO           252     A     
 IO                                                                                        IO           253     A     
 IO                                                                                        IO           254     A     
 IO                 HEREIF REWIND                                                          IO           255     A     
 IO                                                                                        IO           256     A     
 IO                 SB6    S.REWIN                                                         IO           257     A     
 IO                 EQ     FPS                                                             IO           258     A     
 IO        FMS      SPACE  4,10                                                            IO           259     A     
 IO       **        FMS -  PROCESS FILE MANIPULATION STATEMENTS                            IO           260     A     
 IO       *                                                                                IO           261     A     
 IO       *         ENTRY  (B6) _ NAME OF FILE MANIPULATION ROUTINE (*TB* FORMAT)          IO           262     A     
 IO       *                (X1) = KEYWORD LEGALITY MASK FOR CURRENT STATEMENT.             IO           263     A     
 IO       *                                                                                IO           264     A     
 IO       *         EXIT   TO PSL                                                          IO           265     A     
 IO       *                                                                                IO           266     A     
 IO       *         CALLS  ALC, CUD, EMT, IOJ, PCT, PKC, SFP, TSX                          IO           267     A     
 IO                                                                                        IO           268     A     
 IO                                                                                        IO           269     A     
 IO        FMS      SX7    CR.REF                                                          IO           270     A     
 IO                 SA7    IOREF       SET XREF CELL TO * *                                IO           271     A     
 IO                 SX6    0                                                               IO           272     A     
 IO                 SA6    PKCA        INITIALIZE                                          IO           273     A     
 IO                 SA6    IOSKP       CLEAR                                               IO           274     A     
 IO                 SA6    CVLPM       INITIALIZE                                          IO           275     A     
 IO                 ERRNZ  PM=EXPR                                                         IO           276     A     
 IO                 MX7    1                                                               IO           277     A     
 IO                 BX6    X1                                                              IO           278     A     
 IO                 SA7    IODIR       INDICATE NO ASSUMED UNIT OR INTERNAL FILE           IO           279     A     
 IO                 SA6    FMSA        SAVE LEGALITY MASK                                  IO           280     A     
 IO                 ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                           IO           281     A     
 IO                 SA2    B4                                                              IO           282     A     
 IO                 =A1    B4+1                                                            IO           283          I
          -FC50035
 IO                 SB2    X2-O.(                                                          IO           284     A     
 IO                 ZR     X2,E.IO01   IF PREMATURE *EOS*                                  IO           285     A     
 IO                 NZ     B2,E.IO19   IF NOT *(*                                          IO           286     A     
 IO                 =B4    B4+1                                                            IO           287     A     
 IO                 =A2    B4+1                                                            IO           288     A     
 IO                 SB7    X2-O.=                                                          IO           289     A     
 IO                 SB2    X2-O.VAR                                                        IO           290          I
          -FC50035
 IO                 ZR     B7,FMS3     IF *=*                                              IO           291     A     
 IO                 NZ     B2,FMS1     IF NOT KEYWORD FORM                                 IO           292          I
          -FC50035
 IO                 =A2    A2+1                                                            IO           293          I
          -FC50035
 IO                 SB7    X2-O.=                                                          IO           294          I
          -FC50035
 IO                 ZR     B7,FMS3     IF *=*                                              IO           295          I
          -FC50035
 IO                                                                                        IO           296          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50035
 IO        FMS1     RJ     CUD         COMPILE THE UNIT DESIGNATOR                         IO           297          I
          -FC50035
 IO                 RJ     CUD         COMPILE THE UNIT DESIGNATOR                         FC50035        5     A     
 IO                 =A1    B4+1                                                            IO           298     A     
 IO                 =B4    B4+1                                                            IO           299     A     
 IO                 SB2    X1-O.)                                                          IO           300     A     
 IO                 SB3    X1-O.COMMA                                                      IO           301     A     
 IO                 MX3    0                                                               IO           302     A     
 IO                 ZR     B2,FMS4     IF *)*, FINISHED                                    IO           303          I
          -FC50887
 IO                 ZR     B2,FMS4A    IF *)*, FINISH                                      FC50887        8     A     
 IO                 NZ     B3,E.IO16   IF NOT *,*, ERROR                                   IO           304     A     
 IO                 =X6    1                                                               IO           305     A     
 IO                 LX6    59-IC.UNT                                                       IO           306     A     
 IO                 SA6    PKCA        INDICATE I/O UNIT DEFINED                           IO           307     A     
 IO                 =B4    B4+1                                                            IO           308     A     
 IO                                                                                        IO           309     A     
 IO        FMS3     SA1    FMSA        FETCH KEYWORD LEGALITY MASK                         IO           310          I
          -FC50035
 IO        FMS3     SA1    B4                                                              FC50035        6     A     
 IO                 SX1    X1-O.VAR                                                        FC50035        7     A     
 IO                 NZ     X1,E.IO16   IF NOT O.VAR TOKEN (CANT BE KEYWORD)                FC50035        8     A     
 IO                 SA1    FMSA        FETCH KEYWORD LEGALITY MASK                         FC50035        9     A     
 IO                 RJ     PKC         PROCESS KEYWORD CONTROL ITEMS                       IO           311     A     
 IO                                                                                        IO           312          I
          -FC5A143
 IO                 RJ     OST         OUTPUT SKIP TURPLE                                  FC5A143        5     A     
 IO                 SA3    PKCA                                                            FC5A143        6     A     
 IO                                                                                        FC5A343        6          I
          -FC50887
 IO                                                                                        FC50887        9     A     
 IO        FMS4A    =A1    B4+1                                                            FC50887       10     A     
 IO                 SB4    B4+1        ADVANCE B4                                          FC50887       11     A     
 IO                 ZR     X1,FMS4     IF *EOS*, FINISH                                    FC50887       12     A     
 IO                 ERRNZ  O.EOS                                                           FC50887       13     A     
 IO                 WARN   E.IO37      IF NOT *EOS*                                        FC50887       14     A     
 IO                                                                                        FC50887       15     A     
 IO        FMS4     RJ     SFP         SET FILE PROPERTY BITS                              IO           313     A     
 IO                 TAGSEX B6          PROCESS I/O ROUTINE NAME                            IO           314     A     
 IO                 RJ     PCT         PROCESS THE CONTROL TURPLES                         IO           315          I
          -FC5A232
 IO                 SB3    S.IOCALL                                                        IO           316     A     
 IO                 SX7    B3-B6       NEGATIVE ORDINAL = FIRST CALL                       IO           317     A     
 IO                 BX6    0                                                               IO           318     A     
 IO                 SA7    IONAM                                                           IO           319     A     
 IO                 RJ     IOJ                                                             IO           320     A     
 IO                 SA4    IOSKP                                                           FC5A143        7     A     
 IO                 ZR     X4,PSL      IF NO SKIP LABEL                                    FC5A143        8     A     
 IO                 MX5    0           2OP = NULL                                          FC5A143        9     A     
 IO                 EMIT   OPBSS,*                                                         FC5A143       10     A     
 IO                 EQ     PSL         EXIT...                                             IO           321     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO           322     A     
 IO        FMSA     BSS    1           SAVE KEYWORD LEGALITY MASK                          IO           323     A     
 IO        FPS      SPACE  4,10                                                            IO           324     A     
 IO       **        FPS -  PROCESS FILE POSITIONING STATEMENTS                             IO           325     A     
 IO       *                                                                                IO           326     A     
 IO       *         ENTRY  (B6) _ NAME OF FILE POSITIONING ROUTINE (*TB* FORMAT).          IO           327     A     
 IO       *                                                                                IO           328     A     
 IO       *         EXIT   TO PSL                                                          IO           329     A     
 IO       *                                                                                IO           330     A     
 IO       *         CALLS  ALC, CUD, EMT, IOJ, OCT, PCT, PKC, TSX                          IO           331     A     
 IO                                                                                        IO           332     A     
 IO                                                                                        IO           333     A     
 IO        FPLC     BITMIC (IC.ERR,IC.IOS,IC.UNT)                                          IO           334     A     
 IO                                                                                        IO           335     A     
 IO        FPS      SX7    CR.REF                                                          IO           336     A     
 IO                 SA7    IOREF       SET XREF CELL TO * *                                IO           337     A     
 IO                 SX6    0                                                               IO           338     A     
 IO                 SA6    PKCA        INITIALIZE                                          IO           339     A     
 IO                 SA6    IOSKP       CLEAR                                               IO           340     A     
 IO                 SA6    CVLPM       INITIALIZE                                          IO           341     A     
 IO                 ERRNZ  PM=EXPR                                                         IO           342     A     
 IO                 MX7    1                                                               IO           343     A     
 IO                 SA7    IODIR       INDICATE NO ASSUMED UNIT OR INTERNAL FILE           IO           344     A     
 IO                 ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                           IO           345     A     
 IO                 SA2    B4                                                              IO           346     A     
 IO                 SA1    B4+B1                                                           IO           347     A     
 IO                 SB2    X2-O.(                                                          IO           348     A     
 IO                 ZR     X2,E.IO01   IF PREMATURE *EOS*                                  IO           349     A     
 IO                 ZR     B2,FPS2     IF *(*                                              IO           350     A     
 IO                 RJ     CUD         COMPILE THE UNIT DESIGNATOR                         IO           351     A     
 IO                 =A1    B4+1                                                            IO           352     A     
 IO                 ZR     X1,FPS4     IF *EOS*                                            IO           353     A     
 IO                 =B4    B4+1                                                            IO           354     A     
 IO                 WARN   E.IO06      EXTRA CHARACTERS - WARNING                          IO           355     A     
 IO                 EQ     FPS4        FINISH PROCESSING                                   IO           356     A     
 IO                                                                                        IO           357     A     
 IO       *         PROCESS CONTROL ITEM LIST                                              IO           358     A     
 IO                                                                                        IO           359     A     
 IO        FPS2     =B4    B4+1                                                            IO           360     A     
 IO                 =A2    B4+1                                                            IO           361     A     
 IO                 SB2    X2-O.=                                                          IO           362     A     
 IO                 ZR     B2,FPS3     IF KEYWORD FORM                                     IO           363     A     
 IO                 RJ     CUD         COMPILE THE UNIT DESIGNATOR                         IO           364     A     
 IO                 =A1    B4+1                                                            IO           365     A     
 IO                 =B4    B4+1                                                            IO           366     A     
 IO                 SB2    X1-O.)                                                          IO           367     A     
 IO                 SB3    X1-O.COMMA                                                      IO           368     A     
 IO                 ZR     B2,FPS4     IF *)*, FINISHED                                    IO           369     A     
 IO                 NZ     B3,E.IO16   IF NOT *,*, ERROR                                   IO           370     A     
 IO                 =X6    1                                                               IO           371     A     
 IO                 LX6    59-IC.UNT                                                       IO           372     A     
 IO                 SA6    PKCA        INDICATE I/O UNIT DEFINED                           IO           373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =B4    B4+1                                                            IO           374     A     
 IO                                                                                        IO           375     A     
 IO        FPS3     SA1    ="FPLC"     KEYWORD LEGALITY MASK                               IO           376     A     
 IO                 RJ     PKC         PROCESS KEYWORD CONTROL ITEMS                       IO           377     A     
 IO                 SA1    PKCA        FETCH DEFINED SPECIFIER MASK                        IO           378          I
          -FC5A143
 IO                 SX2    1                                                               IO           379          I
          -FC5A143
 IO                 LX2    59-IC.IOS                                                       IO           380          I
          -FC5A143
 IO                 BX0    X1*X2                                                           IO           381          I
          -FC5A143
 IO                 ZR     X0,FPS4     IF IOSTAT= NOT SPECIFIED                            IO           382          I
          -FC5A143
 IO                 LX2    IC.IOS-IC.ERR                                                   IO           383          I
          -FC5A143
 IO                 BX0    X1*X2                                                           IO           384          I
          -FC5A143
 IO                 NZ     X0,FPS4     IF ERR= SPECIFIED                                   IO           385          I
          -FC5A143
 IO                                                                                        IO           386          I
          -FC5A143
 IO       *         EMIT DEFAULT SKIP LABEL.                                               IO           387          I
          -FC5A143
 IO                                                                                        IO           388          I
          -FC5A143
 IO                 SX4    IC.SKP      1OP = CONTROL CODE                                  IO           389          I
          -FC5A143
 IO                 SA1    N.GL        NEXT GENERATED LABEL                                IO           390          I
          -FC5A143
 IO                 BX6    X1                                                              IO           391          I
          -FC5A143
 IO                 =X2    1                                                               IO           392          I
          -FC5A143
 IO                 =X7    X6+1                                                            IO           393          I
          -FC5A143
 IO                 LX2    TP.GLP                                                          IO           394          I
          -FC5A143
 IO                 SA7    A1          UPDATE GL COUNT                                     IO           395          I
          -FC5A143
 IO                 LX1    TP.ORDP                                                         IO           396          I
          -FC5A143
 IO                 BX6    X1+X2       2OP = GL ORD                                        IO           397          I
          -FC5A143
 IO                 LX5    X6                                                              IO           398          I
          -FC5A143
 IO                 SA6    IOSKP                                                           IO           399          I
          -FC5A143
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO           400          I
          -FC5A143
 IO                                                                                        IO           401          I
          -FC5A143
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO           402          I
          -FC5A143
 IO                 RJ     OST         OUTPUT SKIP TURPLE                                  FC5A143       11     A     
 IO        FPS4     TAGSEX B6          PROCESS I/O ROUTINE NAME                            IO           403     A     
 IO                 RJ     PCT         PROCESS THE CONTROL TURPLES                         IO           404          I
          -FC5A232
 IO                 SB3    S.IOCALL                                                        IO           405     A     
 IO                 SX7    B3-B6       NEGATIVE ORDINAL = FIRST CALL                       IO           406     A     
 IO                 BX6    0                                                               IO           407     A     
 IO                 SA7    IONAM                                                           IO           408     A     
 IO                 RJ     IOJ                                                             IO           409     A     
 IO                 SA4    IOSKP                                                           IO           410     A     
 IO                 ZR     X4,FPS5     IF NO SKIP LABEL                                    IO           411          I
          -FC5A143
 IO                 ZR     X4,PSL      IF NO SKIP LABEL                                    FC5A143       12     A     
 IO                 MX5    0           2OP = NULL                                          IO           412     A     
 IO                 EMIT   OPBSS,*                                                         IO           413     A     
 IO        FPS5     EQ     PSL         EXIT...                                             IO           414          I
          -FC5A143
 IO                 EQ     PSL         EXIT...                                             FC5A143       13     A     
 IO                 TITLE  DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.              IO           415     A     
 IO        PRINT    SPACE  4,10                                                            IO           416     A     
 IO       **        PROCESS "PRINT" STATEMENT.                                             IO           417     A     
 IO       *                                                                                IO           418     A     
 IO       *         SEE ANSI 12.8                                                          IO           419     A     
 IO       *                                                                                IO           420     A     
 IO       *         EXIT   TO *PIC* WITH --                                                IO           421     A     
 IO       *                (X5) = *OUTPUT* FILE                                            IO           422     A     
 IO       *                (X7) = CR.OUT                                                   IO           423     A     
 IO       *                (B4) _ FORMAT DESIGNATOR                                        IO           424     A     
 IO       *                (B6) = S=OUT                                                    IO           425     A     
 IO                                                                                        IO           426     A     
 IO                                                                                        IO           427     A     
 IO                 HEREIF PRINT                                                           IO           428     A     
 IO                                                                                        IO           429     A     
 IO                 SX7    CR.OUT                                                          IO           430     A     
 IO                 SB6    S=OUT                                                           IO           431     A     
 IO                 SA5    =0LOUTPUT                                                       IO           432     A     
 IO                 EQ     PIC         PROCESS REMAINDER OF STATEMENT                      IO           433     A     
 IO        PUNCH    SPACE  4,10                                                            IO           434     A     
 IO       **        PROCESS "PUNCH" STATEMENT.                                             IO           435     A     
 IO       *                                                                                IO           436     A     
 IO       *         NON-ANSI:  SEE ERS 12.8                                                IO           437     A     
 IO       *                                                                                IO           438     A     
 IO       *         EXIT   TO *PIC* WITH --                                                IO           439     A     
 IO       *                (X5) = *PUNCH* FILE                                             IO           440     A     
 IO       *                (X7) = CR.OUT                                                   IO           441     A     
 IO       *                (B4) _ FORMAT DESIGNATOR                                        IO           442     A     
 IO       *                (B6) = S=OUT                                                    IO           443     A     
 IO                                                                                        IO           444     A     
 IO                                                                                        IO           445     A     
 IO                 HEREIF PUNCH                                                           IO           446     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO           447     A     
 IO                 ANSI   E.ANS       *PUNCH* STATEMENT IS NON-ANSI                       IO           448     A     
 IO                 SA5    =0LPUNCH                                                        IO           449     A     
 IO                 SX7    CR.OUT                                                          IO           450     A     
 IO                 SB6    S=OUT                                                           IO           451     A     
 IO                 EQ     PIC         PROCESS REMAINDER OF STATEMENT                      IO           452     A     
 IO        READ     SPACE  4,10                                                            IO           453     A     
 IO       **        PROCESS "READ" STATEMENT.                                              IO           454     A     
 IO       *                                                                                IO           455     A     
 IO       *         SEE ANSI 12.8                                                          IO           456     A     
 IO       *                                                                                IO           457     A     
 IO       *         EXIT TO *PIC* WITH --                                                  IO           458     A     
 IO       *                (X5) = *INPUT* FILE                                             IO           459     A     
 IO       *                (X7) = CR.INP                                                   IO           460     A     
 IO       *                (B4) _ FORMAT DESIGNATOR                                        IO           461     A     
 IO       *                (B6) = S=INP                                                    IO           462     A     
 IO       *                                                                                IO           463     A     
 IO       *           OR TO *PEC* WITH --                                                  IO           464     A     
 IO       *                (B4) _ *(*                                                      IO           465     A     
 IO       *                (X1) = KEYWORD LEGALITY MASK                                    IO           466     A     
 IO       *                (X5),(X7),(B6) AS ABOVE                                         IO           467     A     
 IO                                                                                        IO           468     A     
 IO                 HEREIF READ                                                            IO           469     A     
 IO                                                                                        IO           470     A     
 IO        RLC      BITMIC (IC.UNT,IC.END,IC.ERR,IC.FMT,IC.IOS,IC.REC)                     IO           471     A     
 IO                                                                                        IO           472     A     
 IO                 SA1    B4                                                              IO           473     A     
 IO                 =B6    S=INP                                                           IO           474     A     
 IO                 SX7    CR.INP                                                          IO           475     A     
 IO                 SA5    =0LINPUT                                                        IO           476     A     
 IO                 SX2    X1-O.(                                                          IO           477     A     
 IO                 SA1    ="RLC"      KEYWORD LEGALITY MASK                               IO           478     A     
 IO                 ZR     X2,PEC      IF *READ(*                                          IO           479     A     
 IO                 EQ     PIC         PROCESS *READ FMT,*                                 IO           480     A     
 IO        WRITE    SPACE  4,10                                                            IO           481     A     
 IO       **        PROCESS "WRITE" STATEMENT.                                             IO           482     A     
 IO       *                                                                                IO           483     A     
 IO       *         SEE ANSI 12.8                                                          IO           484     A     
 IO       *                                                                                IO           485     A     
 IO       *         EXIT TO *PEC* WITH --                                                  IO           486     A     
 IO       *                (X1) = KEYWORD LEGALITY MASK                                    IO           487     A     
 IO       *                (X7) = CR.OUT                                                   IO           488     A     
 IO       *                (B4) _ *(*                                                      IO           489     A     
 IO       *                (B6) = S=OUT                                                    IO           490     A     
 IO                                                                                        IO           491     A     
 IO                                                                                        IO           492     A     
 IO                 HEREIF WRITE                                                           IO           493     A     
 IO                                                                                        IO           494     A     
 IO        WLC      BITMIC (IC.UNT,IC.ERR,IC.FMT,IC.IOS,IC.REC)                            IO           495     A     
 IO                                                                                        IO           496     A     
 IO                 SA1    B4                                                              IO           497     A     
 IO                 SX7    CR.OUT                                                          IO           498     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =B6    S=OUT                                                           IO           499     A     
 IO                 SX2    X1-O.(                                                          IO           500     A     
 IO                 SA1    ="WLC"      KEYWORD LEGALITY MASK                               IO           501     A     
 IO                 ZR     X2,PEC      IF *WRITE(*                                         IO           502     A     
 IO                 EQ     E.IO19                                                          IO           503     A     
 IO        PIC      SPACE  4,10                                                            IO           504     A     
 IO       **        PIC -  PROCESS IMPLIED CONTROL LIST                                    IO           505     A     
 IO       *                                                                                IO           506     A     
 IO       *         ENTERED BY *PRINT*, *PUNCH* AND *READ FMT,*                            IO           507     A     
 IO       *                                                                                IO           508     A     
 IO       *         ENTRY  (X5) = DEFAULT UNIT DESIGNATOR                                  IO           509     A     
 IO       *                (X7) = CROSS REFERENCE INDICATOR                                IO           510     A     
 IO       *                (B4) _ FORMAT DESIGNATOR                                        IO           511     A     
 IO       *                (B6) = I/O DIRECTION (S=INP OR S=OUT)                           IO           512     A     
 IO       *                                                                                IO           513     A     
 IO       *         EXIT   TO *LST* WITH --                                                IO           514     A     
 IO       *                (B6) = DIRECTION + CODED MODE (S=COD) INDICATION.               IO           515     A     
 IO       *                                                                                IO           516     A     
 IO       *         CALLS  EMT, IIC, NCS, PFN                                              IO           517     A     
 IO                                                                                        IO           518     A     
 IO                                                                                        IO           519     A     
 IO        PIC      SA7    IOREF       CROSS REFERENCE INDICATOR                           IO           520     A     
 IO                 SX6    0                                                               IO           521     A     
 IO                 SA6    PKCA        INITIALIZE                                          IO           522     A     
 IO                 BX6    X5                                                              IO           523     A     
 IO                 =X7    M.BOOL                                                          IO           524     A     
 IO                 CALL   NCS         FILE DESIGNATOR INTO CONSTANT TABLE                 IO           525     A     
 IO                 SA5    CONONE                                                          IO           526     A     
 IO                 BX4    X6          UNIT DESIGNATOR                                     IO           527     A     
 IO                 EMIT   IOUNT,*,T.IOARG                                                 IO           528     A     
 IO                 ERRNZ  M.BOOL      MUST MERGE MODE INTO HEADER                         IO           529     A     
 IO                 RJ     IIC         INITIALIZE CONTROL CELLS                            IO           530     A     
 IO                 RJ     PFN         PROCESS FORMAT/NAMELIST DESIGNATOR                  IO           531     A     
 IO                 SA1    B4                                                              IO           532          I
          -FC50014
 IO                 SB2    X1-O.STAR                                                       IO           533          I
          -FC50014
 IO                 =A1    B4+1                                                            IO           534     A     
 IO                 =B4    B4+1                                                            IO           535     A     
 IO                 NZ     B2,PIC5     IF NOT LIST DIRECTED I/O                            IO           536          I
          -FC50014
 IO                 =A3    B4+1                                                            IO           537          I
          -FC50014
 IO                 SB2    X1-O.COMMA                                                      IO           538          I
          -FC50014
 IO                 ZR     X1,E.IO27   IF NO I/O LIST                                      IO           539          I
          -FC50014
 IO                 NZ     B2,PIC4     IF NOT A COMMA                                      IO           540          I
          -FC50014
 IO                 ZR     X3,E.IO27   IF *,* TERMINATOR WITH NO IOLIST.                   IO           541          I
          -FC50014
 IO                 EQ     LST                                                             IO           542          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50014
 IO                                                                                        IO           543          I
          -FC50014
 IO        PIC4     WARN   E.IO09                                                          IO           544          I
          -FC50014
 IO                 =B4    B4-1        NO COMMA, SO PRETEND THERE IS ONE.                  IO           545          I
          -FC50014
 IO                 EQ     LST         PROCESS I/O LIST                                    IO           546          I
          -FC50014
 IO                                                                                        IO           547          I
          -FC50014
 IO        PIC5     SB2    X1-O.COMMA                                                      IO           548          I
          -FC50014
 IO                 ZR     X1,LST      IF *EOS*                                            IO           549          I
          -FC50014
 IO                 ZR     B2,LST      IF COMMA                                            IO           550          I
          -FC50014
 IO                 WARN   E.IO09                                                          IO           551          I
          -FC50014
 IO                 EQ     LST         PROCESS I/O LIST                                    IO           552          I
          -FC50014
 IO                 SB7    X1-O.COMMA                                                      FC50014        8     A     
 IO                 ZR     X1,LST      IF NO LIST                                          FC50014        9     A     
 IO                 NZ     B7,E.IO16   IF NO COMMA SEPARATOR                               FC50014       10     A     
 IO                 EQ     LST                                                             FC50014       11     A     
 IO        PEC      SPACE  4,10                                                            IO           553     A     
 IO       **        PEC -  PROCESS EXPLICIT CONTROL LIST                                   IO           554     A     
 IO       *                                                                                IO           555     A     
 IO       *         ENTERED BY *READ(* AND *WRITE* STATEMENTS.                             IO           556     A     
 IO       *                                                                                IO           557     A     
 IO       *         ENTRY  (B6) = I/O DIRECTION (S=INP OR S=OUT)                           IO           558     A     
 IO       *                (B4) _ *(*                                                      IO           559     A     
 IO       *                (X1) = KEYWORD LEGALITY MASK.                                   IO           560     A     
 IO       *                (X7) = CROSS REFERENCE INDICATOR                                IO           561     A     
 IO       *                                                                                IO           562     A     
 IO       *         EXIT   TO *LST* WITH --                                                IO           563     A     
 IO       *                (B6) = DIRECTION + CODED MODE (S=COD) INDICATION                IO           564     A     
 IO       *                                                                                IO           565     A     
 IO       *         CALLS  ALC, CUD, IIC, PFN, PKC, SFP                                    IO           566          I
          -FC5A171A 
 IO       *         CALLS  ALC, CUD, IIC, PFN, PKC, SFP, OUT, UDP, PAR, TPC.               FC5A171A      22     A     
 IO                                                                                        IO           567     A     
 IO                                                                                        IO           568     A     
 IO        PEC      SA7    IOREF       CROSS REFERENCE INDICATOR                           IO           569     A     
 IO                 SA5    =0LINPUT                                                        FC5A171A      23     A     
 IO                 SX7    B6-S=INP                                                        FC5A171A      24     A     
 IO                 ZR     X7,PEC10    IF INPUT DIRECTION                                  FC5A171A      25     A     
 IO                 SA5    =0LOUTPUT                                                       FC5A171A      26     A     
 IO                                                                                        FC5A171A      27     A     
 IO        PEC10    BX6    X5                                                              FC5A171A      28     A     
 IO                 SA6    PECB        PRESERVE DEFAULT UNIT DESIGNATOR                    FC5A171A      29     A     
 IO                 =X6    0                                                               IO           570     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX7    X1                                                              IO           571     A     
 IO                 SA6    PKCA        INITIALIZE                                          IO           572     A     
 IO                 SA7    PECA        SAVE KEYWORD LEGALITY MASK                          IO           573     A     
 IO                 ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                           IO           574     A     
 IO                 RJ     IIC         INITIALIZE CONTROL CELLS                            IO           575     A     
 IO                 =B4    B4+1                                                            IO           576     A     
 IO                 =A2    B4+1                                                            IO           577     A     
 IO                 SA1    B4+                                                             FC5A251        5     A     
 IO                 SX1    X1-O.STAR                                                       FC5A251        6     A     
 IO                 ZR     X1,PEC80    IF DEFAULT UNIT DESIGNATOR                          FC5A251        7     A     
 IO                 SX2    X2-O.=                                                          IO           578     A     
 IO                 ZR     X2,PEC10    IF KEYWORD FORM                                     IO           579          I
          -FC5A171A 
 IO                 RJ     CUD         COMPILE UNIT DESIGNATOR                             IO           580          I
          -FC5A171A 
 IO                 SB6    B6+B2       ADJUST IF INTERNAL FILE                             IO           581          I
          -FC5A171A 
 IO                 ZR     X2,PEC170    IF KEYWORD FORM                                    FC5A171A      30     A     
 IO                 =A2    B4-1        X2 = *(*                                            FC5A171A      31     A     
 IO                 LX2    -TB.IOCPP                                                       FC5A171A      32     A     
 IO                 SX2    X2                                                              FC5A171A      33     A     
 IO                 ZR     X2,PEC80    IF NO MATCHING RP                                   FC5A171A      34     A     
 IO                 =A2    X2+1        X2 = TOKEN AFTER MATCHING RP                        FC5A171A      35     A     
 IO                 SX1    X2-O.COMMA                                                      FC5A171A      36     A     
 IO                 SX3    X2-O.CAT                                                        FC5A171A      37     A     
 IO                 SA4    IODIR                                                           FC5A171A      38     A     
 IO                 NZ     X1,PEC20    IF NO COMMA                                         FC5A171A      39     A     
 IO                 NZ     X4,PEC80    IF *WRITE(XXXXX),*                                  FC5A171A      40     A     
 IO                 ERRNZ  S=INP                                                           FC5A171A      41     A     
 IO                 EQ     PEC70                                                           FC5A171A      42     A     
 IO                                                                                        FC5A171A      43     A     
 IO        PEC20    NZ     X3,PEC30    IF NO CAT                                           FC5A171A      44     A     
 IO                 NZ     X4,PEC80    IF *WRITE(XXXX)//*                                  FC5A171A      45     A     
 IO                 ERRNZ  S=INP                                                           FC5A171A      46     A     
 IO                 EQ     PEC70                                                           FC5A171A      47     A     
 IO                                                                                        FC5A171A      48     A     
 IO        PEC30    NZ     X2,PEC80    IF CONTROL LIST                                     FC5A171A      49     A     
 IO                 SX1    B4          LOOP START                                          FC5A171A      50     A     
 IO                 SX2    A2          LOOP END                                            FC5A171A      51     A     
 IO                                                                                        FC5A171A      52     A     
 IO        PEC40    SA3    X1          X3 = NEXT TOKEN                                     FC5A171A      53     A     
 IO                 SB2    X3-O.COMMA                                                      FC5A171A      54     A     
 IO                 SB7    X3-O.LP                                                         FC5A171A      55     A     
 IO                 LX3    -TB.IOCPP                                                       FC5A171A      56     A     
 IO                 =X1    X3+1        X1 = ADDRESS OF POSSIBLE MATCHING RP + 1            FC5A171A      57     A     
 IO                 ZR     B7,PEC40    IF LEFT PAREN                                       FC5A171A      58     A     
 IO                 ZR     B2,PEC80    IF ZERO LEVEL COMMA                                 FC5A171A      59     A     
 IO                 =X1    A3+1                                                            FC5A171A      60     A     
 IO                 IX3    X1-X2                                                           FC5A171A      61     A     
 IO                 MI     X3,PEC40    IF MORE TOKENS                                      FC5A171A      62     A     
 IO                                                                                        FC5A171A      63     A     
 IO       **        HERE IF NO ZERO LEVEL COMMA INSIDE PARENS.                             FC5A171A      64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         MUST CALL PAR TO FIND OUT IF EXPRESSION IS UNIT OR FORMAT              FC5A171A      65     A     
 IO                                                                                        FC5A171A      66     A     
 IO                 SA1    FOUARM                                                          FC5A171A      67     A     
 IO                 SX6    B6                                                              FC5A171A      68     A     
 IO                 SA6    CUDA        PRESERVE B6                                         FC5A171A      69     A     
 IO                 MX6    0                                                               FC5A171A      70     A     
 IO                 SA6    LISTDIR                                                         FC5A171A      71     A     
 IO                 =B4    B4-1        B4 _ *(*                                            FC5A171A      72     A     
 IO                 SX6    O.SLP                                                           FC5A171A      73     A     
 IO                 SA6    B4          TURN O.LP INTO O.SLP                                FC5A171A      74     A     
 IO                 BX6    X1                                                              FC5A171A      75     A     
 IO                 SA6    ARGMODE     SET *FORMAT OR UNIT* ARGMODE                        FC5A171A      76     A     
 IO                 CALL   PAR         PARSE THE EXPRESSION                                FC5A171A      77     A     
 IO                 CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION                FC5A171A      78     A     
 IO                 MX0    -TP.MODEL                                                       FC5A171A      79     A     
 IO                 LX5    -TP.MODEP                                                       FC5A171A      80     A     
 IO                 BX1    -X0*X5      EXTRACT MODE OF RESULT                              FC5A171A      81     A     
 IO                 LX5    TP.MODEP                                                        FC5A171A      82     A     
 IO                 SX1    X1-M.CHAR                                                       FC5A171A      83     A     
 IO                 NZ     X1,PEC50    IF NOT CHARACTER (NOT A FORMAT)                     FC5A171A      84     A     
 IO                 SA3    IODIR                                                           FC5A171A      85     A     
 IO                 =B4    B4+1        B4 _ *)*                                            FC5A171A      86     A     
 IO                 SB2    S=INF                                                           FC5A171A      87     A     
 IO                 NZ     X3,PEC110   IF *WRITE(CEXP) *                                   FC5A171A      88     A     
 IO                 SA1    CUDA                                                            FC5A171A      89     A     
 IO                 SB6    X1          RESTORE B6                                          FC5A171A      90     A     
 IO                 =B4    B4+1        B4 _ BEGINING OF I/O LIST (EOS)                     FC5A171A      91     A     
 IO                 EQ     LST                                                             FC5A171A      92     A     
 IO                                                                                        FC5A171A      93     A     
 IO       **        EXPRESSION MUST BE A UNIT DESIGNATOR IF HERE. COMPLETE                 FC5A171A      94     A     
 IO       *         PROCESSING AS SUCH.                                                    FC5A171A      95     A     
 IO                                                                                        FC5A171A      96     A     
 IO        PEC50    SA2    CUDA                                                            FC5A171A      97     A     
 IO                 MX6    1                                                               FC5A171A      98     A     
 IO                 SA6    CUDA+1      INDICATE UNIT NOT CONSTANT (INITIALLY)              FC5A171A      99          I
          -FC5A343
 IO                 =A6    A2+1        INDICATE UNIT NOT CONSTANT (INITIALLY)              FC5A343        7     A     
 IO                 LX1    X5                                                              FC5A171A     100     A     
 IO                 BX4    X5                                                              FC5A171A     101     A     
 IO                 SA5    CONONE                                                          FC5A171A     102     A     
 IO                 SB6    X2                                                              FC5A171A     103     A     
 IO                 CALL   LCH         LOAD CONSTANT TEST                                  FC5A171A     104     A     
 IO                 SB3    X0-M.INT                                                        FC5A171A     105     A     
 IO                 ZR     X0,PEC60    IF BOOLEAN                                          FC5A171A     106     A     
 IO                 ZR     B3,PEC60    IF INTEGER                                          FC5A171A     107     A     
 IO                 SA4    S=BU                                                            FC5A171A     108     A     
 IO                 FATAL  E.IO00      ** UNIT DESIGNATOR IS BAD                           FC5A171A     109     A     
 IO                 LX4    TP.ORDP                                                         FC5A171A     110     A     
 IO                 ERRNZ  M.BOOL                                                          FC5A171A     111     A     
 IO                 RJ     OUT         OUTPUT UNIT DESIGNATOR TURPLE                       FC5A171A     112     A     
 IO                 EQ     PEC90                                                           FC5A171A     113     A     
 IO                                                                                        FC5A171A     114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        PEC60    RJ     UDP         UNIT DESIGNATOR PROCESSING                          FC5A171A     115     A     
 IO                 RJ     OUT         OUTPUT UNIT TURPLE                                  FC5A171A     116     A     
 IO                 EQ     PEC90                                                           FC5A171A     117     A     
 IO                                                                                        FC5A171A     118     A     
 IO       **        HERE IF  *(EXP),* OR *(EXP)//* . EXPRESSION MUST                       FC5A171A     119     A     
 IO       *         BE A CHARACTER FORMAT DESIGNATOR.                                      FC5A171A     120     A     
 IO                                                                                        FC5A171A     121     A     
 IO        PEC70    =B4    B4-1        B4 _ FORMAT                                         FC5A171A     122          I
          -FC50811
 IO        PEC70    SA1    B4           GET FIRST TOKEN AFTER LP                           FC50811       12     A     
 IO                 SX3    X1-O.VAR     IF VARIABLE TOKEN                                  FC50811       13     A     
 IO                 ZR     X3,PEC75     POSSIBLE CHARACTER FORMAT                          FC50811       14     A     
 IO                 SX3    X1-O.LP      IF LEFT PAREN                                      FC50811       15     A     
 IO                 ZR     X3,PEC75                                                        FC50811       16     A     
 IO                 SX3    X1-O.CHAR    IF CHARACTER CONSTANT                              FC50811       17     A     
 IO                 NZ     X3,PEC80     CANNOT BE CHARACTER FORMAT                         FC50811       18     A     
 IO                                                                                        FC50811       19     A     
 IO        PEC75    =B4    B4-1         B4 POINTS TO FORMAT                                FC50811       20     A     
 IO                 SA1    IOREF                                                           FC5A171A     123     A     
 IO                 BX7    X1                                                              FC5A171A     124     A     
 IO                 SHRINK T=IOARG     NO NEED FOR ROOM FOR UNIT DESIGNATOR                FC5A171A     125     A     
 IO                 SA5    PECB        X5 = DEFAULT UNIT DESIGNATOR                        FC5A171A     126     A     
 IO                 EQ     PIC         PROCESS AS IMPLIED CONTROL LIST                     FC5A171A     127     A     
 IO                                                                                        FC5A171A     128     A     
 IO        PEC80    RJ     CUD         COMPILE UNIT DESIGNATOR                             FC5A171A     129     A     
 IO                                                                                        FC5A171A     130     A     
 IO        PEC90    SB6    B6+B2       ADJUST IF INTERNAL FILE                             FC5A171A     131     A     
 IO                 =X6    1                                                               IO           582     A     
 IO                 LX6    59-IC.UNT                                                       IO           583     A     
 IO                 SA6    PKCA        INDICATE I/O UNIT DEFINED                           IO           584     A     
 IO                 =A1    B4+1        RIGHT PAREN OR COMMA                                IO           585     A     
 IO                 =B4    B4+1                                                            IO           586     A     
 IO                 SB7    X1-O.)                                                          IO           587     A     
 IO                 NZ     B7,PEC2     IF NOT *)*                                          IO           588          I
          -FC5A171A 
 IO        PEC1     =B6    B6+S=BIN                                                        IO           589          I
          -FC5A171A 
 IO                 SA3    IODIR                                                           IO           590          I
          -FC5A171A 
 IO                 SA3    IODIR                                                           FC5A171A     132     A     
 IO                 NZ     B7,PEC140   IF NOT *)*                                          FC5A171A     133     A     
 IO                                                                                        FC5A171A     134     A     
 IO        PEC110   SX1    B2-S=INF                                                        FC5A171A     135     A     
 IO                 NZ     X1,PEC130   IF NOT AN INTERNAL FILE                             FC5A171A     136     A     
 IO                 SB7    E.IO34      ** INTERNAL FILE REQUIRES A FORMAT                  FC5A171A     137     A     
 IO                 NZ     X3,PEC120   IF *WRITE(CEXP)VAR*                                 FC5A171A     138     A     
 IO                 SB7    E.IO35      ** MISSING COMMA OR MISSING FORMAT                  FC5A171A     139     A     
 IO                                                                                        FC5A171A     140     A     
 IO        PEC120   FATAL  B7                                                              FC5A171A     141     A     
 IO                                                                                        FC5A171A     142     A     
 IO        PEC130   =B6    B6+S=BIN                                                        FC5A171A     143     A     
 IO                 ZR     X3,LST      IF *READ*                                           IO           591          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50218
 IO                 SA3    PKCA                                                            FC50218        5     A     
 IO                 RJ     SFP         SET FILE PROPERTIES                                 FC50218        6     A     
 IO                 SA1    B4+1                                                            IO           592          I
          -FC50014
 IO                 NZ     X1,LST      IF NOT *EOS*                                        IO           593          I
          -FC50014
 IO                 ANSI   E.IO26      ANSI REQUIRES AN I/O LIST                           IO           594          I
          -FC50014
 IO                 EQ     LST                                                             IO           595     A     
 IO                                                                                        IO           596     A     
 IO        PEC2     ZR     X1,E.IO08   IF PREMATURE *EOS*                                  IO           597          I
          -FC5A171A 
 IO                 SB2    X1-O.COMMA                                                      IO           598          I
          -FC5A171A 
 IO                 ZR     B2,PEC4     IF *COMMA*                                          IO           599          I
          -FC5A171A 
 IO                 WARN   E.IO09      ** ASSUMED COMMA AFTER UNIT **                      IO           600          I
          -FC5A171A 
 IO        PEC4     =A1    B4+1                                                            IO           601          I
          -FC5A171A 
 IO        PEC140   ZR     X1,E.IO08   IF PREMATURE *EOS*                                  FC5A171A     144     A     
 IO                 SB2    X1-O.COMMA                                                      FC5A171A     145     A     
 IO                 ZR     B2,PEC150   IF *COMMA*                                          FC5A171A     146     A     
 IO                 WARN   E.IO09      ** ASSUMED COMMA AFTER UNIT **                      FC5A171A     147     A     
 IO                                                                                        FC5A171A     148     A     
 IO        PEC150   =A1    B4+1                                                            FC5A171A     149     A     
 IO                 ZR     X1,E.IO13   IF PREMATURE EOS (RETURN LST)                       IO           602     A     
 IO                 =B4    B4+1                                                            IO           603     A     
 IO                 SA2    B4+1                                                            IO           604     A     
 IO                 SX2    X2-O.=                                                          IO           605     A     
 IO                 ZR     X2,PEC10    IF KEYWORD FORM                                     IO           606          I
          -FC5A171A 
 IO                 RJ     PFN         PROCESS FORMAT/NAMELIST DESIGNATOR                  IO           607          I
          -FC5A171A 
 IO                 ZR     X2,PEC170    IF KEYWORD FORM                                    FC5A171A     150     A     
 IO                                                                                        FC5A171A     151     A     
 IO                 RJ     PFN         PROCESS FORMAT/NAMELIST DESIGNATOR                  FC5A171A     152     A     
 IO                 =A1    B4+1                                                            IO           608     A     
 IO                 =B4    B4+1                                                            IO           609     A     
 IO                 ZR     X1,E.IO08   IF PREMATURE *EOS*                                  IO           610     A     
 IO                 SB2    X1-O.)                                                          IO           611     A     
 IO                 SA3    PKCA                                                            IO           612     A     
 IO                 SX6    1                                                               IO           613     A     
 IO                 LX6    59-IC.FMT                                                       IO           614     A     
 IO                 BX6    X3+X6                                                           IO           615     A     
 IO                 NZ     B2,PEC6                                                         IO           616          I
          -FC5A171A 
 IO                 NZ     B2,PEC160                                                       FC5A171A     153     A     
 IO                 BX3    X6                                                              IO           617     A     
 IO                 RJ     SFP                                                             IO           618     A     
 IO                 EQ     LST                                                             IO           619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO           620     A     
 IO        PEC6     SA6    A3                                                              IO           621          I
          -FC5A171A 
 IO                 =B4    B4+1                                                            IO           622          I
          -FC5A171A 
 IO                                                                                        IO           623          I
          -FC5A171A 
 IO        PEC10    SA1    PECA        KEYWORD LEGALITY MASK                               IO           624          I
          -FC5A171A 
 IO        PEC160    SA6    A3                                                             FC5A171A     154          I
          -FC5A214
 IO        PEC160   SA6    A3                                                              FC5A214        5     A     
 IO                 =B4    B4+1                                                            FC5A171A     155     A     
 IO                                                                                        FC5A171A     156     A     
 IO        PEC170    SA1    PECA        KEYWORD LEGALITY MASK                              FC5A171A     157          I
          -FC5A214
 IO        PEC170   SA1    PECA        KEYWORD LEGALITY MASK                               FC5A214        6     A     
 IO                 RJ     PKC         PROCESS KEYWORD CONTROL ITEMS                       IO           625     A     
 IO                 RJ     SFP         SET FILE PROPERTY BITS                              IO           626     A     
 IO                 SX0    1                                                               IO           627     A     
 IO                 LX0    59-IC.REC                                                       IO           628     A     
 IO                 BX1    X3*X0                                                           IO           629     A     
 IO                 ZR     X1,PEC11    IF REC= NOT SPECIFIED                               IO           630          I
          -FC5A171A 
 IO                 ZR     X1,PEC180   IF REC= NOT SPECIFIED                               FC5A171A     158     A     
 IO                                                                                        IO           631     A     
 IO       *         TEST FOR DIRECT ACCESS INCONSISTENCY                                   IO           632     A     
 IO                                                                                        IO           633     A     
 IO                 LX0    IC.REC-IC.NML                                                   IO           634     A     
 IO                 BX1    X3*X0                                                           IO           635     A     
 IO                 NZ     X1,E.IO28   IF REC= AND NAMELIST                                IO           636     A     
 IO                 LX0    IC.NML-IC.END                                                   IO           637     A     
 IO                 BX1    X3*X0                                                           IO           638     A     
 IO                 NZ     X1,E.IO29   IF REC= AND END= SPECIFIED                          IO           639     A     
 IO                 SB2    B6-S=FREE                                                       IO           640     A     
 IO                 PL     B2,E.IO25   IF REC= AND FMT=*                                   IO           641     A     
 IO                 SB6    B6+S=DA     INDICATE DIRECT ACCESS                              IO           642     A     
 IO        PEC11    SX0    1                                                               IO           643          I
          -FC5A171A 
 IO        PEC180   SX0    1                                                               FC5A171A     159     A     
 IO                 LX0    59-IC.FMT                                                       IO           644     A     
 IO                 BX0    X3*X0                                                           IO           645     A     
 IO                 ZR     X0,PEC1     IF NOT FORMATTED                                    IO           646          I
          -FC5A171A 
 IO                 SA3    IODIR                                                           FC5A171A     160     A     
 IO                 ZR     X0,PEC130   IF NOT FORMATTED                                    FC5A171A     161     A     
 IO                 EQ     LST         PROCESS THE I/O LIST                                IO           647     A     
 IO                                                                                        IO           648     A     
 IO        PECA     EQU    FMSA        SAVE KEYWORD LEGALITY MASK                          IO           649     A     
 IO        PECB     BSS    1           PRESERVE DEFAULT UNIT DESIGNATOR HERE               FC5A171A     162     A     
 IO                 TITLE  NON ANSI I/O STATEMENTS - SOURCE TRANSLATION.                   IO           650     A     
 IO        BUFFER   SPACE  4,10                                                            IO           651     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       **        PROCESS "BUFFER IN/OUT" STATEMENTS.                                    IO           652     A     
 IO       *                                                                                IO           653     A     
 IO       *         NON-ANSI:  SEE ERS 12.16                                               IO           654     A     
 IO       *                                                                                IO           655     A     
 IO       *         BUFFER <DIR> (<FILE>,<MODE>) (FWA,LWA)                                 IO           656     A     
 IO       *         <DIR>  #  *IN* OR *OUT*                                                IO           657     A     
 IO       *         <FILE> # AS DEFINED BY *CUD*                                           IO           658     A     
 IO       *         <MODE> #  <INTEGER-CONSTANT> OR <SIMPLE-INTEGER-VARIABLE>              IO           659     A     
 IO       *                                                                                IO           660     A     
 IO       *         CALLS  ALC, CUD, IIC, IOJ, PAR, PCT, SFP, TSX                          IO           661     A     
 IO                                                                                        IO           662     A     
 IO                                                                                        IO           663     A     
 IO                 HEREIF BUFFER                                                          IO           664     A     
 IO                                                                                        IO           665     A     
 IO                 ANSI   E.ANS       NON ANSI STATEMENT.                                 IO           666     A     
 IO                 MDERR  E.MDE3      ** BUFFER IO IS MACHINE DEPENDENT                   F1037F5      430     A     
 IO                 SA5    B4                                                              IO           667     A     
 IO                 SA2    BUFA                                                            IO           668     A     
 IO                 =A3    A2+1                                                            IO           669     A     
 IO                 =B5    0           INDICATE INPUT                                      IO           670     A     
 IO                 =B6    S=INP       INDICATE INPUT                                      IO           671     A     
 IO                 BX2    X5-X2                                                           IO           672     A     
 IO                 =A1    A5+1        *(*                                                 IO           673     A     
 IO                 SB2    X1-O.LP                                                         IO           674     A     
 IO                 BX3    X5-X3                                                           IO           675     A     
 IO                 =B4    B4+1                                                            IO           676     A     
 IO                 ZR     X2,BUF1     IF *IN*                                             IO           677     A     
 IO                 =B5    1           INDICATE OUTPUT                                     IO           678     A     
 IO                 =B6    S=OUT       INDICATE OUTPUT                                     IO           679     A     
 IO                 NZ     X3,E.IOB1   IF NOT *OUT*, ERR..                                 IO           680     A     
 IO        BUF1     ZR     B2,BUF2     IF SYNTAX OK                                        IO           681     A     
 IO                 EQ     E.IOB3                                                          IO           682     A     
 IO                                                                                        IO           683     A     
 IO        BUF2     RJ     IIC         INITIALIZE I/O CONTROL                              IO           684     A     
 IO                 SB6    S.BUFIO                                                         IO           685     A     
 IO                 SB6    B6-B5       ADJUST FOR I/O DIRECTION                            IO           686     A     
 IO                 TAGSEX B6          PROCESS I/O ROUTINE NAME                            IO           687     A     
 IO                 SX6    X0+         ORDINAL ONLY                                        IO           688          I
          -FC5A232
 IO                 SA6    IOORD       FOR FUTURE CONTROL TURPLES                          IO           689          I
          -FC5A232
 IO                 SB3    S.IOCALL                                                        IO           690     A     
 IO                 SX6    B3-B6       NEGATIVE ORDINAL = FIRST CALL                       IO           691     A     
 IO                 =A6    A6-IOORD+IONAM  SAVE ROUTINE NAME                               IO           692          I
          -FC5A232
 IO                 SA6    IONAM       SAVE ROUTINE NAME                                   FC5A232        8     A     
 IO                                                                                        IO           693     A     
 IO       **        PROCESS UNIT DESIGNATOR                                                IO           694     A     
 IO                                                                                        IO           695     A     
 IO                 =B4    B4+1        POSITION TO UNIT DESIGNATOR                         IO           696     A     
 IO                 SA1    IODIR                                                           IO           697     A     
 IO                 BX6    -X1                                                             IO           698     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA6    A1          SET IODIR NEGATIVE TO PREVENT FUNNY UNITS           IO           699     A     
 IO                 ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                           IO           700     A     
 IO                 RJ     CUD         COMPILE THE UNIT DESIGNATOR                         IO           701     A     
 IO                 =X3    1                                                               IO           702     A     
 IO                 RJ     SFP         SET FILE PROPERTY BITS                              IO           703     A     
 IO                 =B4    B4+1                                                            IO           704     A     
 IO                                                                                        IO           705     A     
 IO       **        PROCESS MODE DESIGNATOR                                                IO           706     A     
 IO                                                                                        IO           707     A     
 IO                 =A2    B4                                                              IO           708     A     
 IO                 SB7    X2-O.COMMA                                                      IO           709     A     
 IO                 NZ     B7,E.IOB4                                                       IO           710     A     
 IO                 SA2    BUFMOD                                                          IO           711     A     
 IO                 SA1    IOREF                                                           IO           712     A     
 IO                 LX1    AM.REFP                                                         IO           713          I
          -FC5A125
 IO                 BX6    X2+X1                                                           IO           714          I
          -FC5A125
 IO                 SX6    55B                                                             FC5A125        4     A     
 IO                 BX1    X6-X1                                                           FC5A125        5     A     
 IO                 LX1    AM.REFP                                                         FC5A125        6     A     
 IO                 BX6    X2-X1                                                           FC5A125        7     A     
 IO                 SA6    ARGMODE                                                         IO           715     A     
 IO                 =X7    O.SLP                                                           IO           716     A     
 IO                 SA7    B4                                                              IO           717     A     
 IO                 CALL   PAR         PARSE THE MODE DESIGNATOR                           IO           718     A     
 IO                                                                                        IO           719     A     
 IO                 SA1    B4                                                              IO           720     A     
 IO                 =A2    B4+1                                                            IO           721     A     
 IO                 =B4    A2+1        POINT TO FWA                                        IO           722     A     
 IO                 =X6                                                                    IO           723     A     
 IO                 SX1    X1-O.RP                                                         IO           724     A     
 IO                 SX2    X2-O.LP                                                         IO           725     A     
 IO                 NZ     X1,E.IOB5   IF NO ) AFTER MODE DESIGNATOR                       IO           726     A     
 IO                 ZR     X2,BUF3     IF SYNTAX OK                                        IO           727     A     
 IO                 =B4    B4-1        RESET FOR DIAGNOSTIC                                IO           728     A     
 IO                 EQ     E.IOB3                                                          IO           729     A     
 IO                                                                                        IO           730     A     
 IO       **        PROCESS FWA AND LWA                                                    IO           731     A     
 IO                                                                                        IO           732     A     
 IO        BUF3     SA6    ARGCOMA                                                         IO           733     A     
 IO                 SA2    BUFFWA                                                          IO           734     A     
 IO                 SA3    IOREF                                                           IO           735     A     
 IO                 LX3    AM.REFP                                                         IO           736     A     
 IO                 MX0    AM.REFL                                                         FC5A338       36     A     
 IO                 BX2    -X0*X2      CLEAR OLD REFERENCE LETTER                          FC5A338       37     A     
 IO                 ERRNZ  60-AM.REFL-AM.REFP                                              FC5A338       38     A     
 IO                 BX7    X2+X3                                                           IO           737     A     
 IO                 SA7    ARGMODE                                                         IO           738     A     
 IO                 CALL   PAR         PARSE FIRST WORD ADDRESS                            IO           739     A     
 IO                 =A2    B4+1                                                            IO           740     A     
 IO                 =B4    B4+1                                                            IO           741     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB7    X2-O.COMMA                                                      IO           742     A     
 IO                 NZ     B7,E.IOB4   IF NO *,* AFTER FWA                                 IO           743     A     
 IO                                                                                        IO           744     A     
 IO                 SA2    BUFLWA                                                          IO           745     A     
 IO                 SA3    IOREF                                                           FC5A338       39     A     
 IO                 =X7    O.SLP                                                           IO           746     A     
 IO                 BX6    X2                                                              IO           747          I
          -FC5A338
 IO                 MX0    AM.REFL                                                         FC5A338       40     A     
 IO                 LX3    AM.REFP                                                         FC5A338       41     A     
 IO                 BX2    -X0*X2                                                          FC5A338       42     A     
 IO                 ERRNZ  60-AM.REFL-AM.REFP                                              FC5A338       43     A     
 IO                 BX6    X3+X2                                                           FC5A338       44     A     
 IO                 SA7    B4                                                              IO           748     A     
 IO                 SA6    ARGMODE                                                         IO           749     A     
 IO                 CALL   PAR         PARSE LAST WORD ADDRESS                             IO           750     A     
 IO                 =A2    B4                                                              IO           751     A     
 IO                 SA1    IOORD                                                           IO           752          I
          -FC5A232
 IO                 BX0    X1                                                              IO           753          I
          -FC5A232
 IO                 SB7    X2-O.RP                                                         IO           754     A     
 IO                 NZ     B7,E.IOB5   IF NO *)* AFTER LWA                                 IO           755     A     
 IO                 RJ     PCT         PROCESS CONTROL TURPLES                             IO           756          I
          -FC5A232
 IO                 SX6    0+                                                              IO           757     A     
 IO                 RJ     IOJ         COMPILE THE CALL                                    IO           758     A     
 IO                 EQ     PSL         EXIT...                                             IO           759     A     
 IO                                                                                        IO           760     A     
 IO       **        HERE IF FATAL ERROR IN BUFFER STATEMENT.                               IO           761     A     
 IO       *                ADD *O=ERR* OPERATOR TO PARSED FILE.                            IO           762     A     
 IO                                                                                        IO           763     A     
 IO        BUFERR   BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      IO           764     A     
 IO                 MX4    0                                                               IO           765     A     
 IO                 =X5    0                                                               IO           766     A     
 IO                 EMIT   ERROP,*                                                         IO           767     A     
 IO                 EQ     PSL         EXIT...                                             IO           768     A     
 IO                                                                                        IO           769     A     
 IO        BUFA     CON    0LIN+O.VAR                                                      IO           770     A     
 IO                 CON    0LOUT+O.VAR                                                     IO           771     A     
 IO        DECODE   SPACE  4,10                                                            IO           772     A     
 IO       **        PROCESS "DECODE" STATEMENT.                                            IO           773     A     
 IO       *                                                                                IO           774     A     
 IO       *         NON-ANSI:  SEE ERS 12.15                                               IO           775     A     
 IO       *                                                                                IO           776     A     
 IO       *         EXIT   TO *NDC* WITH                                                   IO           777     A     
 IO       *                (B6) = OUTPUT DIRECTION INDICATION. (FOR STRING)                IO           778     A     
 IO                                                                                        IO           779     A     
 IO                                                                                        IO           780     A     
 IO                 HEREIF DECODE                                                          IO           781     A     
 IO                                                                                        IO           782     A     
 IO                 SB6    S=OUT                                                           IO           783     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SX7    CR.OUT                                                          IO           784     A     
 IO                 EQ     NDC         PROCESS ARGUMENTS AND LIST                          IO           785     A     
 IO        ENCODE   SPACE  4,10                                                            IO           786     A     
 IO       **        PROCESS "ENCODE" STATEMENT.                                            IO           787     A     
 IO       *                                                                                IO           788     A     
 IO       *         NON-ANSI:  SEE ERS 12.15                                               IO           789     A     
 IO       *                                                                                IO           790     A     
 IO       *         EXIT   TO *NDC* WITH                                                   IO           791     A     
 IO       *                (B6) = INPUT DIRECTION INDICATION. (FOR STRING)                 IO           792     A     
 IO                                                                                        IO           793     A     
 IO                                                                                        IO           794     A     
 IO                 HEREIF ENCODE                                                          IO           795     A     
 IO                                                                                        IO           796     A     
 IO                 SB6    S=INP                                                           IO           797     A     
 IO                 SX7    CR.INP                                                          IO           798     A     
 IO       *         EQ     NDC                                                             IO           799     A     
 IO        NDC      SPACE  4,10                                                            IO           800     A     
 IO       **        NDC -  ENCODE / DECODE ARGUMENTS.                                      IO           801     A     
 IO       *                                                                                IO           802     A     
 IO       *         ENTRY  (B4) _ *(* IN *TB*                                              IO           803     A     
 IO       *                (B6) = S=INP OR S=OUT (FOR STRING-ADDRESS)                      IO           804     A     
 IO       *                (X7) = CROSS REFERENCE SYMBOL (FOR STRING)                      IO           805     A     
 IO       *                                                                                IO           806     A     
 IO       *         EXIT   TO *LST* WITH --                                                IO           807     A     
 IO       *                (B4) _ *)* IN *TB*                                              IO           808     A     
 IO       *                (B6) = S=INP OR S=OUT (FOR IOLIST) + *STRING* MODE              IO           809     A     
 IO       *                                                                                IO           810     A     
 IO       *         CALLS  IIC, PAR, PFN                                                   IO           811     A     
 IO                                                                                        IO           812     A     
 IO                                                                                        IO           813     A     
 IO        NDC      ANSI   E.ANS       NON-ANSI STATEMENT                                  IO           814     A     
 IO                 MDERR  E.MDE4      ** ENCODE/DECODE ARE MACHINE DEPENDENT              F1037F5      431     A     
 IO                 SA7    IOREF                                                           IO           815     A     
 IO                 RJ     IIC         INITIALIZE CONTROL CELLS                            IO           816     A     
 IO                                                                                        IO           817     A     
 IO       **        ASSEMBLE RECORD LENGTH.                                                IO           818     A     
 IO                                                                                        IO           819     A     
 IO                 SA4    B4                                                              IO           820     A     
 IO                 =B2    X4-O.LP                                                         IO           821     A     
 IO                 ZR     X4,E.IOS6   IF PREMATURE EOS                                    IO           822     A     
 IO                 NZ     B2,E.IOS1   IF NOT LEFT PARENTHESIS, ERROR                      IO           823     A     
 IO                 SA2    IOREF                                                           IO           824     A     
 IO                 SA1    CNTARM                                                          IO           825     A     
 IO                 LX2    AM.REFP                                                         IO           826          I
          -FC5A125
 IO                 BX6    X1+X2                                                           IO           827          I
          -FC5A125
 IO                 SX6    55B                                                             FC5A125        8     A     
 IO                 BX2    X6-X2                                                           FC5A125        9     A     
 IO                 LX2    AM.REFP                                                         FC5A125       10     A     
 IO                 BX6    X1-X2                                                           FC5A125       11     A     
 IO                 SA6    ARGMODE                                                         IO           828     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SX7    O.SLP                                                           IO           829     A     
 IO                 SA7    B4          SET FOR PAR                                         IO           830     A     
 IO                 CALL   PAR         PARSE RECORD COUNT                                  IO           831     A     
 IO                 =A4    B4+1                                                            IO           832     A     
 IO                 =B4    A4+1        POINT TO FORMAT                                     IO           833     A     
 IO                 =B2    X4-O.COMMA                                                      IO           834     A     
 IO                 ZR     X4,E.IOS6   IF PREMATURE EOS                                    IO           835     A     
 IO                 NZ     B2,E.IOS2   IF NO COMMA                                         IO           836     A     
 IO                                                                                        IO           837     A     
 IO       **        PROCESS THE FORMAT DESIGNATOR.                                         IO           838     A     
 IO                                                                                        IO           839     A     
 IO                 RJ     PFN         PROCESS THE FORMAT DESIGNATOR                       IO           840     A     
 IO                 SA1    B4+                                                             IO           841     A     
 IO                 SB2    X1-O.STAR                                                       IO           842     A     
 IO                 ZR     B2,E.IOS8   IF LIST DIRECTED                                    IO           843     A     
 IO                 MI     B6,E.IOS3   IF NAMELIST NAME                                    IO           844     A     
 IO                 =A1    B4+1                                                            IO           845     A     
 IO                 =B4    B4+1                                                            IO           846     A     
 IO                 SB2    X1-O.COMMA                                                      IO           847     A     
 IO                 ZR     X1,E.IOS6   IF PREMATURE EOS                                    IO           848     A     
 IO                 NZ     B2,E.IOS4   IF NO COMMA                                         IO           849     A     
 IO                                                                                        IO           850     A     
 IO       **        DIGEST STRING ADDRESS.                                                 IO           851     A     
 IO                                                                                        IO           852     A     
 IO                 =X6    O.SLP                                                           IO           853     A     
 IO                 SA2    IOREF                                                           IO           854     A     
 IO                 SA1    STRARM                                                          IO           855     A     
 IO                 LX2    AM.REFP                                                         IO           856          I
          -FC5A125
 IO                 BX7    X1+X2                                                           IO           857          I
          -FC5A125
 IO                 SX7    55B                                                             FC5A125       12     A     
 IO                 BX2    X7-X2                                                           FC5A125       13     A     
 IO                 LX2    AM.REFP                                                         FC5A125       14     A     
 IO                 BX7    X1-X2                                                           FC5A125       15     A     
 IO                 SA7    ARGMODE                                                         IO           858     A     
 IO                 SA6    B4                                                              IO           859     A     
 IO                 CALL   PAR         PARSE STRING ADDRESS                                IO           860     A     
 IO                 SA4    B4                                                              IO           861     A     
 IO                 =B2    X4-O.RP                                                         IO           862     A     
 IO                 NZ     B2,E.IOS5   IF NO RIGHT PAREN                                   IO           863     A     
 IO                                                                                        IO           864     A     
 IO       *         THE I/O DIRECTION WAS ORIGINALLY SET FOR THE STRING.  IT               IO           865     A     
 IO       *         MUST NOW BE REVERSED FOR THE I/O LIST.                                 IO           866     A     
 IO                                                                                        IO           867     A     
 IO                 SA3    IODIR                                                           IO           868     A     
 IO                 SX7    CR.INP                                                          IO           869     A     
 IO                 SB6    S=INP                                                           IO           870     A     
 IO                 NZ     X3,NDC4     IF OUTPUT DIRECTION (ORIGINALLY)                    IO           871     A     
 IO                 SX7    CR.OUT                                                          IO           872     A     
 IO                 SB6    S=OUT                                                           IO           873     A     
 IO        NDC4     SX6    B6          RESET (IODIR) FOR DIAGNOSTICS                       IO           874     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB6    B6+S=STR                                                        IO           875     A     
 IO                 SA6    A3                                                              IO           876     A     
 IO                 SA7    REFVAR                                                          IO           877     A     
 IO                 EQ     LST.S       EXIT..  (TO PROCESS I/O LIST)                       IO           878     A     
 IO                 TITLE  SOURCE STATEMENT SUBROUTINES.                                   IO           879     A     
 IO        CUD      SPACE  4,10                                                            IO           880     A     
 IO       **        CUD -  COMPILE UNIT DESIGNATOR                                         IO           881     A     
 IO       *                                                                                IO           882     A     
 IO       *         CALLED BY ALL I/O STATEMENTS WHICH CONTAIN AN EXPLICIT UNIT            IO           883     A     
 IO       *         DESIGNATOR.                                                            IO           884     A     
 IO       *                                                                                IO           885     A     
 IO       *         ENTRY  (B4) _ THE UNIT DESIGNATOR IN THE *TB*                          IO           886     A     
 IO       *                (IODIR) = SIGN BIT SET IF NEITHER IMPLIED UNIT NOR              IO           887     A     
 IO       *                          INTERNAL FILE IS ALLOWED.                             IO           888     A     
 IO       *                                                                                IO           889     A     
 IO       *         EXIT   (B4) _ LAST TOKEN OF UNIT DESIGNATOR                            IO           890     A     
 IO       *                (B2) = S=INF IF INTERNAL FILE, ELSE 0                           IO           891     A     
 IO       *                UNIT DESIGNATOR TURPLE OUTPUT                                   IO           892     A     
 IO       *                (CUDA+1) = MI IF UNIT DESIGNATOR NOT CONSTANT                   IO           893     A     
 IO       *                         = SYMTAB *WB* INDEX OF FILE OTHERWISE                  IO           894     A     
 IO       *                                                                                IO           895     A     
 IO       *         USES   A1,A2,A3,A5,A6  X0,X1,X2,X3,X4,X5,X6 B2,B7                      IO           896     A     
 IO       *                                                                                IO           897     A     
 IO       *         CALLS  CDD, EMT, ERT, ESY, LCH, MVE=, NCS, PAR, SSY, TPC, VAI          IO           898          I
          -FC5A171A 
 IO       *         CALLS  CDD,EMT,ERT,ESY,LCH,MVE=,NCS,PAR,SSY,TPC,VAI,OUT,UDP.           FC5A171A     163     A     
 IO                                                                                        IO           899     A     
 IO                                                                                        IO           900     A     
 IO                                                                                        IO           901     A     
 IO        CUD      SUBR               ENTRY/EXIT...                                       IO           902     A     
 IO                 MX6    1                                                               IO           903     A     
 IO                 =A6    CUDA+1      INDICATE UNIT NOT CONSTANT (INITIALLY)              IO           904     A     
 IO                 SA1    B4                                                              IO           905     A     
 IO                 SB7    X1-O.STAR                                                       IO           906     A     
 IO                 NZ     B7,CUD3     IF NOT IMPLIED UNIT DESIGNATOR                      IO           907     A     
 IO                 SA1    IODIR                                                           IO           908     A     
 IO                 SB7    E.IO04      ** IMPLIED UNIT NOT ALLOWED                         IO           909     A     
 IO                 MI     X1,CUD9     IF IMPLIED UNIT PROHIBITED                          IO           910     A     
 IO                 SA2    =0LINPUT                                                        IO           911     A     
 IO                 ZR     X1,CUD2     IF INPUT DIRECTION                                  IO           912     A     
 IO                 SA2    =0LOUTPUT                                                       IO           913     A     
 IO        CUD2     LX6    X2                                                              IO           914     A     
 IO                 =X7    M.BOOL                                                          IO           915     A     
 IO                 CALL   NCS         SCAN IMPLIED UNIT                                   IO           916     A     
 IO                 BX4    X6                                                              IO           917     A     
 IO                 SA5    CONONE                                                          IO           918     A     
 IO                 EQ     CUD7                                                            IO           919     A     
 IO                                                                                        IO           920     A     
 IO        CUD3     SA1    UNTARM                                                          IO           921     A     
 IO                 SX7    B6                                                              IO           922     A     
 IO                 LX6    X1                                                              IO           923     A     
 IO                 SA6    ARGMODE                                                         IO           924     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA7    CUDA        SAVE (B6)                                           IO           925     A     
 IO                 SX6    O.SLP                                                           IO           926     A     
 IO                 =A6    B4-1                                                            IO           927     A     
 IO                 =B4    B4-1                                                            IO           928     A     
 IO                 CALL   PAR         PARSE THE UNIT DESIGNATOR                           IO           929     A     
 IO                 CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION                IO           930     A     
 IO                 SA1    CUDA                                                            IO           931     A     
 IO                 SB6    X1          RESTORE (B6)                                        IO           932     A     
 IO                 LX1    X5                                                              IO           933     A     
 IO                 BX4    X5                                                              IO           934     A     
 IO                 SA5    CONONE                                                          IO           935     A     
 IO                 CALL   LCH         LOAD CONSTANT TEST                                  IO           936     A     
 IO                 SB3    X0-M.INT                                                        IO           937     A     
 IO                 ZR     X0,CUD4     IF BOOLEAN                                          IO           938     A     
 IO                 ZR     B3,CUD4     IF INTEGER                                          IO           939     A     
 IO                 SB3    X0-M.CHAR                                                       IO           940     A     
 IO                 SB7    E.IO00      ** UNIT DESIGNATOR NOT INTEGER NOR CHAR XPR         IO           941     A     
 IO                 NZ     B3,CUD9     IF NOT CHARACTER                                    IO           942     A     
 IO                 BX5    X4                                                              IO           943     A     
 IO                 SA3    IODIR                                                           IO           944     A     
 IO                 SB7    E.IO30      INTERNAL FILE NOT PERMITTED                         IO           945     A     
 IO                 MI     X3,CUD9     IF INTERNAL FILE NOT ALLOWED                        IO           946     A     
 IO                 SA1    PKCA                                                            IO           947     A     
 IO                 SB7    E.IO33                                                          IO           948     A     
 IO                 SX2    1                                                               IO           949     A     
 IO                 LX2    59-IC.NML                                                       IO           950     A     
 IO                 BX1    X2*X1                                                           IO           951     A     
 IO                 NZ     X1,CUD9     IF ALREADY NAMELIST                                 IO           952     A     
 IO                 SA1    LISTDIR                                                         FC5A338       45     A     
 IO                 SB7    E.IO26      **INTERNAL FILE CANT BE FREE FORMAT                 FC5A338       46     A     
 IO                 NZ     X1,CUD9     IF FREE FORMAT                                      FC5A338       47     A     
 IO                 SB3    E.IO23      INTERNAL FILE CANT BE CONSTANT/EXPRESSION           IO           953     A     
 IO                                                                                        IO           954     A     
 IO       **        WE MUST NOW REVERSE THE I/O DIRECTION FOR VAI.                         IO           955     A     
 IO                                                                                        IO           956     A     
 IO                 SX4    S=INP                                                           IO           957     A     
 IO                 NZ     X3,CUD3A    IF OUTPUT ORIGINAL DIRECTION                        IO           958     A     
 IO                 SX4    S=OUT                                                           IO           959     A     
 IO                                                                                        IO           960     A     
 IO        CUD3A    RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO           961     A     
 IO                 LX4    X5                                                              IO           962     A     
 IO                 BX1    X5                                                              IO           963     A     
 IO                 SA5    CONONE                                                          IO           964     A     
 IO                 SBIT   X1,TP.AREP                                                      IO           965     A     
 IO                 PL     X1,CUD7     IF NOT ENTIRE ARRAY                                 IO           966     A     
 IO                 SA2    T.SYM                                                           IO           967     A     
 IO                 LX1    TP.AREL+TP.AREP-TP.ORDL-TP.ORDP                                 IO           968     A     
 IO                 AX1    -TP.ORDL    EXTRACT ORDINAL                                     IO           969     A     
 IO                 SB2    X1                                                              IO           970     A     
 IO                 LX1    1                                                               IO           971     A     
 IO                 SX1    B2+X1       CONVERT ORDINAL TO INDEX                            IO           972     A     
 IO                 ERRNZ  3-Z=SYM                                                         IO           973     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =B2    X1-WA.W+WB.W                                                    IO           974     A     
 IO                 SA1    X2+B2       FETCH *WB*                                          IO           975     A     
 IO                 SA2    T.DIM                                                           IO           976     A     
 IO                 HX1    WB.PNT                                                          IO           977     A     
 IO                 AX1    -WB.PNTL    EXTRACT T.DIM POINTER                               IO           978     A     
 IO                 IX1    X2+X1                                                           IO           979     A     
 IO                 SA1    X1          FETCH *DH* OF DIMENSION DESCRIPTOR                  IO           980     A     
 IO                 MX0    -DH.PSL                                                         IO           981     A     
 IO                 LX1    -DH.PSP                                                         IO           982     A     
 IO                 BX5    -X0*X1      EXTRACT ARRAY SIZE                                  IO           983     A     
 IO                 LX5    TP.BIASP                                                        IO           984     A     
 IO                 SB7    E.IO24      INTERNAL FILE CANT BE ASSUMED SIZE                  IO           985     A     
 IO                 SBIT   X1,DH.ASP/DH.PSP-1                                              IO           986     A     
 IO                 MI     X1,CUD9     IF ASSUMED SIZE ARRAY                               IO           987     A     
 IO                 SBIT   X1,DH.VDP/DH.ASP                                                IO           988     A     
 IO                 CLAS=  X2,TP,(SHRT),INT                                                IO           989     A     
 IO                 BX5    X5+X2       MAKE INTO SHORT CONSTANT                            IO           990     A     
 IO                 PL     X1,CUD7     IF NOT ADJUSTABLY DIMENSIONED                       IO           991     A     
 IO                 SA1    S=VD                                                            IO           992     A     
 IO                 CLAS=  X2,TP,(SHRT)                                                    IO           993     A     
 IO                 LX1    TP.ORDP                                                         IO           994     A     
 IO                 BX5    -X2*X5      REMOVE TP.SHRT (LEAVING BIAS + MODE)                IO           995     A     
 IO                 BX5    X1+X5       ORD + BIAS + MODE = VD. PRODUCT OF SPANS            IO           996     A     
 IO                 EQ     CUD7                                                            IO           997     A     
 IO                                                                                        IO           998     A     
 IO        CUD4     ZR     B2,CUD7     IF NOT CONSTANT                                     IO           999     A     
 IO                 SB7    E.IO03      UNIT NUMBER OUTSIDE RANGE 0-100                     IO          1000          I
          -FC5A171A 
 IO                 MI     X6,CUD9     ** IF UNIT DESIGNATOR TOO SMALL                     IO          1001          I
          -FC5A171A 
 IO                 RJ     VUD         VALIDATE THE UNIT DESIGNATOR                        IO          1002          I
          -FC5A171A 
 IO                 ZR     B7,CUD5     IF LEGAL FILE NAME                                  IO          1003          I
          -FC5A171A 
 IO                 PL     B7,CUD9     IF ILLEGAL FILE NAME                                IO          1004          I
          -FC5A171A 
 IO                 SX1    1000                                                            IO          1005          I
          -FC5A171A 
 IO                 IX1    X6-X1                                                           IO          1006          I
          -FC5A171A 
 IO                 SB7    E.IO03      ** UNIT NUMBER TOO LARGE                            IO          1007          I
          -FC5A171A 
 IO                 PL     X1,CUD9     IF UNIT MORE THAN THREE DIGITS                      IO          1008          I
          -FC5A171A 
 IO                 BX1    X6                                                              IO          1009          I
          -FC5A171A 
 IO                 BX6    X4                                                              IO          1010          I
          -FC5A171A 
 IO                 SA6    CUDA        SAVE X4                                             IO          1011          I
          -FC5A171A 
 IO                 BX6    X5                                                              IO          1012          I
          -FC5A171A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =A6    A6+1        SAVE X5                                             IO          1013          I
          -FC5A171A 
 IO                 SX5    B4          SAVE B4                                             IO          1014          I
          -FC5A171A 
 IO                 CALL   CDD         CONVERT TO DPC                                      IO          1015          I
          -FC5A171A 
 IO                 MX6    1                                                               IO          1016          I
          -FC5A171A 
 IO                 =B2    B2-1                                                            IO          1017          I
          -FC5A171A 
 IO                 AX6    B2,X6                                                           IO          1018          I
          -FC5A171A 
 IO                 SA1    =4LTAPE                                                         IO          1019          I
          -FC5A171A 
 IO                 BX4    X6*X4       ERASE SUPERFLUOUS CHARS                             IO          1020          I
          -FC5A171A 
 IO                 LX4    -4*CHAR                                                         IO          1021          I
          -FC5A171A 
 IO                 BX6    X4+X1       APPEND TO TAPE                                      IO          1022          I
          -FC5A171A 
 IO                 SA4    CUDA        RESTORE X4                                          IO          1023          I
          -FC5A171A 
 IO                 SB4    X5          RESTORE B4                                          IO          1024          I
          -FC5A171A 
 IO                 =A5    A4+1        RESTORE X5                                          IO          1025          I
          -FC5A171A 
 IO                                                                                        IO          1026          I
          -FC5A171A 
 IO        CUD5     MX1    1                                                               IO          1027          I
          -FC5A171A 
 IO                 BX6    X6+X1       SET BIT 59 ON FILE NAME                             IO          1028          I
          -FC5A171A 
 IO                 CALL   SSY         FIND WHERE TO PUT FILE                              IO          1029          I
          -FC5A171A 
 IO                 PL     B7,CUD6     IF *HIT*                                            IO          1030          I
          -FC5A171A 
 IO                 MX7    0                                                               IO          1031          I
          -FC5A171A 
 IO                 MX2    0                                                               IO          1032          I
          -FC5A171A 
 IO                 ADSYM  T.SYM       ADD FILE TO SYMTAB                                  IO          1033          I
          -FC5A171A 
 IO                                                                                        IO          1034          I
          -FC5A171A 
 IO        CUD6     SX6    B7                                                              IO          1035          I
          -FC5A171A 
 IO                 =A6    CUDA+1      SET *WB* INDEX EXIT CONDITION                       IO          1036          I
          -FC5A171A 
 IO                 CLAS=  X2,WB,(NVAR,UDC,CGS)                                            IO          1037          I
          -FC5A171A 
 IO                 SA1    X1+B7       *WB*                                                IO          1038          I
          -FC5A171A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX6    X1+X2       MERGE ABOVE BITS                                    IO          1039          I
          -FC5A171A 
 IO                 SA6    A1          UPDATE *WB*                                         IO          1040          I
          -FC5A171A 
 IO                 LX0    XR.TAGP                                                         IO          1041          I
          -FC5A171A 
 IO                 SA1    IOREF                                                           IO          1042          I
          -FC5A171A 
 IO                 ADDREF X0,X1       ISSUE REFERENCE                                     IO          1043          I
          -FC5A171A 
 IO                                                                                        IO          1044          I
          -FC5A171A 
 IO       **        OUTPUT THE UNIT DESIGNATOR TURPLE                                      IO          1045          I
          -FC5A171A 
 IO       *                (X4) = UNIT DESIGNATOR (TP. FORMAT)                             IO          1046          I
          -FC5A171A 
 IO       *                (X5) = UNIT DESIGNATOR SIZE (TP. FORMAT)                        IO          1047          I
          -FC5A171A 
 IO                                                                                        IO          1048          I
          -FC5A171A 
 IO        CUD7     SA1    IOUNT       FETCH PROTOTYPE                                     IO          1049          I
          -FC5A171A 
 IO                 MX0    -TP.MODEL                                                       IO          1050          I
          -FC5A171A 
 IO                 LX4    -TP.MODEP                                                       IO          1051          I
          -FC5A171A 
 IO                 BX0    -X0*X4      EXTRACT MODE OF UNIT DESIGNATOR                     IO          1052          I
          -FC5A171A 
 IO                 LX4    TP.MODEP                                                        IO          1053          I
          -FC5A171A 
 IO                 LX0    TH.MODEP                                                        IO          1054          I
          -FC5A171A 
 IO                 BX6    X1+X0       MERGE IN MODE                                       IO          1055          I
          -FC5A171A 
 IO                 SA6    CUDA                                                            IO          1056          I
          -FC5A171A 
 IO                 SHRINK T=SCR                                                           IO          1057          I
          -FC5A171A 
 IO                 EMIT   CUDA,*,T.SCR                                                    IO          1058          I
          -FC5A171A 
 IO                 BX5    X4          PRESERVE ACROSS MOVE                                IO          1059          I
          -FC5A171A 
 IO                 SX1    Z=TURP      LENGTH                                              IO          1060          I
          -FC5A171A 
 IO                 SA2    T.SCR       SOURCE                                              IO          1061          I
          -FC5A171A 
 IO                 SA3    T.IOARG     DESTINATION                                         IO          1062          I
          -FC5A171A 
 IO                 MOVE   X1,X2,X3    UNIT DESIGNATOR MUST BE FIRST I/O CONTROL           IO          1063          I
          -FC5A171A 
 IO                 SHRINK T=SCR                                                           IO          1064          I
          -FC5A171A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =B2    0                                                               IO          1065          I
          -FC5A171A 
 IO                 MX0    -TP.MODEL                                                       IO          1066          I
          -FC5A171A 
 IO                 LX5    -TP.MODEP                                                       IO          1067          I
          -FC5A171A 
 IO                 BX0    -X0*X5      EXTRACT MODE OF UNIT DESIGNATOR                     IO          1068          I
          -FC5A171A 
 IO                 SB7    X0-M.CHAR                                                       IO          1069          I
          -FC5A171A 
 IO                 NZ     B7,EXIT.    IF NOT INTERNAL FILE                                IO          1070          I
          -FC5A171A 
 IO                 SB2    S=INF                                                           IO          1071          I
          -FC5A171A 
 IO                 EQ     EXIT.                                                           IO          1072          I
          -FC5A171A 
 IO                 RJ     UDP         UNIT DESIGNATOR PROCESSING                          FC5A171A     164     A     
 IO                                                                                        FC5A171A     165     A     
 IO        CUD7     RJ     OUT         OUTPUT UNIT TURPLE                                  FC5A171A     166     A     
 IO                 EQ     EXIT.                                                           FC5A171A     167     A     
 IO                                                                                        IO          1073     A     
 IO        CUD9     SA4    S=BU                                                            IO          1074     A     
 IO                 FATAL  B7                                                              IO          1075     A     
 IO                 LX4    TP.ORDP                                                         IO          1076     A     
 IO                 ERRNZ  M.BOOL                                                          IO          1077     A     
 IO                 EQ     CUD7                                                            IO          1078     A     
 IO                                                                                        IO          1079     A     
 IO        CUDA     BSS    2                                                               IO          1080     A     
 IO        ICK      SPACE  4,10                                                            IO          1081     A     
 IO       **        ICK -  I/O CONTROL KEYWORD CHECK                                       IO          1082     A     
 IO       *                                                                                IO          1083     A     
 IO       *         ENTRY  (B4) _ SUPPOSED KEYWORD TOKEN                                   IO          1084     A     
 IO       *                (B6) = FWA OF KEYWORD TABLE TO SEARCH                           IO          1085     A     
 IO       *                (B7) = LENGTH OF KEYWORD TABLE                                  IO          1086     A     
 IO       *                                                                                IO          1087     A     
 IO       *         EXIT   (B7) = KEYWORD TABLE ADDRESS IF KEYWORD                         IO          1088     A     
 IO       *                (B4) _ TOKEN FOLLOWING KEYWORD                                  IO          1089     A     
 IO       *                (X6) = KEYWORD TABLE ENTRY                                      IO          1090     A     
 IO       *                                                                                IO          1091     A     
 IO       *                (B7) = 0 IF NOT KEYWORD                                         IO          1092     A     
 IO       *                (B4) _ UNCHANGED                                                IO          1093     A     
 IO       *                                                                                IO          1094     A     
 IO       *         USES                                                                   IO          1095          I
          -FC50317
 IO       *         USES   A1,A2,A3,A4,A6,A7  B2,B7  X1,X2,X3,X4,X6,X7                     FC50317        8     A     
 IO                                                                                        IO          1096     A     
 IO                                                                                        IO          1097     A     
 IO        ICK      SUBR               ...ENTRY/EXIT...                                    IO          1098     A     
 IO                                                                                        IO          1099     A     
 IO       *         INITIALIZATION                                                         IO          1100     A     
 IO                                                                                        IO          1101     A     
 IO                 SA1    B4          THE SUPPOSED KEYWORD (1ST 7 CHARACTERS)             IO          1102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =A2    A1+1        (2ND 7 CHARACTERS, IF PRESENT)                      IO          1103     A     
 IO                 SB2    X1-O.VAR                                                        FC50317        9     A     
 IO                 NZ     B2,ICK6     IF NOT O.VAR, CANT BE KEYWORD                       FC50317       10     A     
 IO                 MX4    7*CHAR                                                          IO          1104     A     
 IO                 SA3    B6                                                              IO          1105     A     
 IO                 BX6    X4*X1       FIRST 7 CHARACTERS                                  IO          1106     A     
 IO                 BX7    X7-X7                                                           IO          1107     A     
 IO                 SB2    X2-O.VAR                                                        IO          1108     A     
 IO                 NZ     B2,ICK1     IF NOT ANOTHER O.VAR TOKEN                          IO          1109     A     
 IO                 BX7    X4*X2                                                           IO          1110     A     
 IO                                                                                        IO          1111     A     
 IO       *         SET UP FOR DIAGNOSTICS.  (FILL.S FOR IMMEDIATE MESSAGES, ICKA          IO          1112     A     
 IO       *         FOR DELAYED MESSAGES.)                                                 IO          1113     A     
 IO                                                                                        IO          1114     A     
 IO        ICK1     SA6    FILL.                                                           IO          1115     A     
 IO                 SA7    FILL.2                                                          IO          1116     A     
 IO                 SA6    ICKA                                                            IO          1117     A     
 IO                 SA7    A6+1                                                            IO          1118     A     
 IO                                                                                        IO          1119     A     
 IO       *         SCAN KEYWORD TABLE                                                     IO          1120     A     
 IO       *                (A3) _ CURRENT KEYWORD ENTRY                                    IO          1121     A     
 IO       *                (X6) = 1ST 7 CHARACTERS OF KEYWORD (FROM T.TB)                  IO          1122     A     
 IO       *                (X7) = 2ND 7 CHARACTERS OF KEYWORD (FROM T.TB)                  IO          1123     A     
 IO                                                                                        IO          1124     A     
 IO        ICK2     LX3    0-KW.KEYP                                                       IO          1125     A     
 IO                 SA2    X3                                                              IO          1126     A     
 IO                 ERRNZ  18-KW.KEYL                                                      IO          1127     A     
 IO                 =B7    B7-1        DECREMENT LOOP COUNTER                              IO          1128     A     
 IO                 IX2    X2-X6                                                           IO          1129     A     
 IO                 ZR     X2,ICK3     IF A 7 CHARACTER MATCH                              IO          1130     A     
 IO                 =A3    A3+1        FETCH NEXT TABLE ENTRY                              IO          1131     A     
 IO                 NZ     B7,ICK2     IF MORE TABLE TO SEARCH                             IO          1132     A     
 IO                 EQ     EXIT.                                                           IO          1133     A     
 IO                                                                                        IO          1134     A     
 IO       *         HERE IF 7 CHARACTER MATCH                                              IO          1135     A     
 IO                                                                                        IO          1136     A     
 IO        ICK3     LX3    KW.KEYP                                                         IO          1137     A     
 IO                 BX6    X3                                                              IO          1138     A     
 IO                 LX3    -KW.LENP                                                        IO          1139     A     
 IO                 MX4    -KW.LENL                                                        IO          1140     A     
 IO                 BX4    -X4*X3                                                          IO          1141     A     
 IO                 SB2    X4                                                              IO          1142     A     
 IO                 SB3    7*CHAR                                                          IO          1143     A     
 IO                 =A4    A2+1        SECOND 7 CHARACTERS                                 IO          1144     A     
 IO                 IX7    X7-X4                                                           IO          1145     A     
 IO                 SB7    A3                                                              IO          1146     A     
 IO                 LE     B2,B3,ICK5  IF KEYWORD HAS .LE. 7 CHARACTERS                    IO          1147     A     
 IO                 ZR     X7,ICK4     IF KEYWORD MATCH ON ALL CHARACTERS                  IO          1148     A     
 IO                 SB7    0           INDICATE NO MATCH                                   IO          1149     A     
 IO                 EQ     EXIT.                                                           IO          1150     A     
 IO                                                                                        IO          1151     A     
 IO       ICK4      SB4    B4+1        PAST KEYWORD (2ND TOKEN)                            IO          1152     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        FC50317       11     A     
 IO       ICK5      SB4    B4+1        PASK KEYWORD (1ST TOKEN)                            IO          1153     A     
 IO                 EQ     EXIT.                                                           IO          1154     A     
 IO                                                                                        FC50317       12     A     
 IO        ICK6     SA2    X1+CHARMAP                                                      FC50317       13     A     
 IO                 =B7    0           INDICATE NOT KEYWORD                                FC50317       14     A     
 IO                 MX4    TB.TOCL                                                         FC50317       15     A     
 IO                 MX7    0           FILL.2 WILL BE NULL                                 FC50317       16     A     
 IO                 ERRNZ  TB.TOCL-CH.DPCL                                                 FC50317       17     A     
 IO                 NZ     X2,ICK7     IF TOKEN FORCES STRING                              FC50317       18     A     
 IO                 LX2    X1          ELSE USE TOKEN BUFFER STRING                        FC50317       19     A     
 IO                                                                                        FC50317       20     A     
 IO        ICK7     BX6    X4*X2       EXTRACT STRING FOR FILL.                            FC50317       21     A     
 IO                 SA6    FILL.                                                           FC50317       22     A     
 IO                 =A7    A6+1                                                            FC50317       23     A     
 IO                 EQ     EXIT.                                                           FC50317       24     A     
 IO                                                                                        IO          1155     A     
 IO       ICKA      BSS    2           KEYWORD (DPC) FOR DELAYED DIAGNOSTICS               IO          1156     A     
 IO        IIC      SPACE  4,10                                                            IO          1157     A     
 IO       **        IIC - INITIALIZE I/O CONTROL                                           IO          1158     A     
 IO       *                                                                                IO          1159     A     
 IO       *         INITIALIZES I/O CONTROL CELLS AND SOME PARSER CONTROL CELLS.           IO          1160     A     
 IO       *                                                                                IO          1161     A     
 IO       *         ENTRY  (B6) = DIRECTION INDICATOR.                                     IO          1162     A     
 IO       *                                                                                IO          1163     A     
 IO       *         EXIT   (B6) = PRESERVED                                                IO          1164     A     
 IO       *                (IODIR)   = (B6) FOR TESTING I/O DIRECTION.                     IO          1165     A     
 IO       *                (IOSKP)   = 0 FOR NO SKIP TAG                                   IO          1166     A     
 IO       *                (IOARGT)  = S=DIR FOR SETTING (ARGMODE) LATER.                  IO          1167     A     
 IO       *                (IOREF)   = CR.DIR FOR X-REF.                                   IO          1168     A     
 IO       *                (ARGCOMA) = 0 FOR PARSING OPERATIONS.                           IO          1169     A     
 IO       *                (LISTDIR) = 0, NOT LIST-DIRECTED (TP.IOD VICE IOP).             IO          1170     A     
 IO       *                                                                                IO          1171     A     
 IO       *         USES   A1,A6,A7  X1,X6,X7                                              IO          1172     A     
 IO                                                                                        IO          1173     A     
 IO                                                                                        IO          1174     A     
 IO        IIC      SUBR               ENTRY/EXIT...                                       IO          1175     A     
 IO                 SA1    IOARGM                                                          IO          1176     A     
 IO                 NZ     B6,IIC1     IF OUTPUT DIRECTION                                 IO          1177     A     
 IO                 =A1    A1+1                                                            IO          1178     A     
 IO        IIC1     SX7    B6                                                              IO          1179     A     
 IO                 SA7    IODIR                                                           IO          1180     A     
 IO                 BX6    X1                                                              IO          1181     A     
 IO                 AX1    AM.REFP                                                         IO          1182     A     
 IO                 =A6    A7-IODIR+IOARGT                                                 IO          1183     A     
 IO                 BX7    X1                                                              IO          1184     A     
 IO                 =A7    A6-IOARGT+IOREF                                                 IO          1185     A     
 IO                 SX6    0                                                               IO          1186     A     
 IO                 SA6    ARGCOMA                                                         IO          1187     A     
 IO                 SA6    LISTDIR                                                         IO          1188     A     
 IO                 SA6    IOSKP                                                           IO          1189     A     
 IO                 ERRNZ  PM=EXPR     (NEEDS SX6)                                         IO          1190     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA6    CVLPM                                                           IO          1191     A     
 IO                 EQ     EXIT.                                                           IO          1192     A     
 IO        IOJ      SPACE  4,10                                                            IO          1193     A     
 IO       **        IOJ -  COMPILE JUMP TO I/O ROUTINE.                                    IO          1194     A     
 IO       *                                                                                IO          1195     A     
 IO       *         IF NOT PROCESSING LIST FOR *DATA*,                                     IO          1196     A     
 IO       *         ADDS A V=IOSUB TURPLE TO T.PAR (WHEN NECESSARY).                       IO          1197     A     
 IO       *         MOVES THE CONTENTS OF T.ARG TO T.PAR                                   IO          1198     A     
 IO       *                                                                                IO          1199     A     
 IO       *         ENTRY  (X6) = TERMINATION CODE --                                      IO          1200     A     
 IO       *                        1 = INTERRUPTION OF LIST.  NOTHING COMPILED IF          IO          1201     A     
 IO       *                            (IOLEN) = 0.                                        IO          1202     A     
 IO       *                        0 = TERMINAL CALL.  MUST BE COMPILED.                   IO          1203     A     
 IO       *                (IONAM) = I/O ROUTINE ORDINAL (RELATIVE TO S.IOCALL).           IO          1204     A     
 IO       *                          IF THE INITIAL CALL HAS NOT BEEN COMPILED,            IO          1205     A     
 IO       *                          THE ORDINAL IS COMPLEMENTED.                          IO          1206     A     
 IO       *                (CVLPM) = CALLER'S PARSE MODE.                                  IO          1207     A     
 IO       *                                                                                IO          1208     A     
 IO       *         EXIT   (CURST) = RESET TO (T=PAR)                                      IO          1209     A     
 IO       *                                                                                IO          1210     A     
 IO       *         USES   ALL BUT  A0  B4                                                 IO          1211     A     
 IO       *                                                                                IO          1212     A     
 IO       *         CALLS  EMT, FAT, MFP, TSX                                              IO          1213     A     
 IO                                                                                        IO          1214     A     
 IO                                                                                        IO          1215     A     
 IO        IOJ      SUBR               ENTRY/EXIT...                                       IO          1216          I
          -FC5A141
 IO        IOJ      SUBR   =           ENTRY/EXIT...                                       FC5A141       67     A     
 IO                 SA1    CVLPM                                                           IO          1217     A     
 IO                 SA5    T=IOARG                                                         IO          1218     A     
 IO                 NZ     X1,EXIT.    IF FUNNY PARSING MODE                               IO          1219     A     
 IO                 ERRNZ  PM=EXPR                                                         IO          1220     A     
 IO                 ERRNZ  PM=EXPR                                                         IO          1221          I
          -FC5A214
 IO                 ZR     X6,IOJ1     IF TERMINAL CALL, MUST COMPILE                      IO          1222     A     
 IO                 ZR     X5,EXIT.    IF EMPTY LIST, IGNORE..                             IO          1223     A     
 IO        IOJ1     SA6    IOJA        SAVE TERMINATION CODE                               IO          1224     A     
 IO                 ZR     X5,IOJ2     IF NO AP TURPLES                                    IO          1225     A     
 IO                 BX4    0           INDICATE RETAIN NO TURPLES                          IO          1226     A     
 IO                 CALL   FAT         FLUSH APLIST TURPLES                                IO          1227     A     
 IO       **        CALL   MFP         (WAS) MARK FIRST PARAMETERS                         IO          1228     A     
 IO        IOJ2     SA5    IOJA        TERMINATION CODE                                    IO          1229     A     
 IO                 LX5    TP.BIASP    INDICATE CALL STATUS                                IO          1230     A     
 IO                 SA3    IONAM                                                           IO          1231     A     
 IO                 PL     X3,IOJ4     IF NOT INITIAL CALL                                 IO          1232     A     
 IO                 BX3    -X3                                                             IO          1233     A     
 IO                 =X6    X3+S=CONT   RESET ROUTINE NAME TO CONTINUATION TYPE             IO          1234     A     
 IO                 SA6    A3                                                              IO          1235     A     
 IO        IOJ4     TAGSEX X3+S.IOCALL                                                     IO          1236     A     
 IO                 BX4    X6          SAVE ROUTINE TAG                                    IO          1237     A     
 IO                                                                                        IO          1238     A     
 IO       *         (X4) = (1OP) = I/O ROUTINE (TP. FORMAT)                                IO          1239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         (X5) = (2OP) = RESTART INDICATOR                                       IO          1240     A     
 IO                                                                                        IO          1241     A     
 IO                 EMIT   V=IOSUB                                                         IO          1242     A     
 IO                 SA1    T=PAR                                                           IO          1243          I
          -FC5A218
 IO                                                                                        FC5A218       37     A     
 IO       *         EMIT LIST COLLAPSE CONTROL VARIABLE DEFINITIONS.                       FC5A218       38     A     
 IO                                                                                        FC5A218       39     A     
 IO                 SA5    =XT=IOLC                                                        FC5A218       40     A     
 IO                 SA1    DATFLG                                                          FC5A218       41     A     
 IO                 NZ     X1,IOJ5     IF *DATA*                                           FC5A218       42     A     
 IO                 ZR     X5,IOJ5     IF NO COLLAPSE *CV* DEFINITIONS                     FC5A218       43     A     
 IO                 ALLOC  T.PAR,X5                                                        FC5A218       44     A     
 IO                 SHRINK T=IOLC                                                          FC5A218       45     A     
 IO                 SX0    B7          LWA1 OF T.PAR                                       FC5A218       46     A     
 IO                 SA2    =XT.IOLC    SOURCE OF TURPLES                                   FC5A218       47     A     
 IO                 IX3    X0-X5       DESTINATION                                         FC5A218       48     A     
 IO                 BX1    X5          NUMBER OF WORDS TO MOVE                             FC5A218       49     A     
 IO                 MOVE   X1,X2,X3    MOVE TURPLES TO T.PAR                               FC5A218       50     A     
 IO                                                                                        FC5A218       51     A     
 IO        IOJ5     SA1    T=PAR                                                           FC5A218       52     A     
 IO                 LX6    X1                                                              IO          1244     A     
 IO                 SA6    CURST                                                           IO          1245     A     
 IO                 SHRINK T=ILI                                                           IO          1246     A     
 IO                 EQ     EXIT.                                                           IO          1247     A     
 IO                                                                                        IO          1248     A     
 IO        IOJA     BSS    1           TERMINATION CODE SAVE                               IO          1249     A     
 IO        OUT      SPACE  4,10                                                            FC5A171A     168     A     
 IO       **        OUT - OUTPUT UNIT DESIGNATOR TURPLE.                                   FC5A171A     169     A     
 IO       *                                                                                FC5A171A     170     A     
 IO       *         ENTRY  (X4) = UNIT DESIGNATOR (TP. FORMAT)                             FC5A171A     171     A     
 IO       *                (X5) = UNIT DESIGNATOR SIZE (TP. FORMAT)                        FC5A171A     172     A     
 IO       *                                                                                FC5A171A     173     A     
 IO       *         EXIT   (B2) = S=INF IF INTERNAL FILE, ELSE 0.                          FC5A171A     174     A     
 IO       *                UNIT DESIGNATOR TURPLE OUTPUT.                                  FC5A171A     175     A     
 IO       *                                                                                FC5A171A     176     A     
 IO       *         USES   X - ALL  A - 1,2,3,4,6,7  B - 2,3,7.                            FC5A171A     177     A     
 IO       *                                                                                FC5A171A     178     A     
 IO       *         CALLS  EMT,MVE=.                                                       FC5A171A     179     A     
 IO                                                                                        FC5A171A     180     A     
 IO                                                                                        FC5A171A     181     A     
 IO        OUT      SUBR               ENTRY/EXIT...                                       FC5A171A     182     A     
 IO                 SA1    IOUNT       FETCH PROTOTYPE                                     FC5A171A     183     A     
 IO                 MX0    -TP.MODEL                                                       FC5A171A     184     A     
 IO                 LX4    -TP.MODEP                                                       FC5A171A     185     A     
 IO                 BX0    -X0*X4      EXTRACT MODE OF UNIT DESIGNATOR                     FC5A171A     186     A     
 IO                 LX4    TP.MODEP                                                        FC5A171A     187     A     
 IO                 LX0    TH.MODEP                                                        FC5A171A     188          I
          -FC50104
 IO                 LX0    SP.MODEP                                                        FC50104       64     A     
 IO                 BX6    X1+X0       MERGE IN MODE                                       FC5A171A     189     A     
 IO                 SA6    CUDA                                                            FC5A171A     190     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SHRINK T=SCR                                                           FC5A171A     191     A     
 IO                 EMIT   CUDA,*,T.SCR                                                    FC5A171A     192     A     
 IO                 BX5    X4          PRESERVE ACROSS MOVE                                FC5A171A     193     A     
 IO                 SX1    Z=TURP      LENGTH                                              FC5A171A     194     A     
 IO                 SA2    T.SCR       SOURCE                                              FC5A171A     195     A     
 IO                 SA3    T.IOARG     DESTINATION                                         FC5A171A     196     A     
 IO                 MOVE   X1,X2,X3    UNIT DESIGNATOR MUST BE FIRST I/O CONTROL           FC5A171A     197     A     
 IO                 SHRINK T=SCR                                                           FC5A171A     198     A     
 IO                 =B2    0                                                               FC5A171A     199     A     
 IO                 MX0    -TP.MODEL                                                       FC5A171A     200     A     
 IO                 LX5    -TP.MODEP                                                       FC5A171A     201     A     
 IO                 BX0    -X0*X5      EXTRACT MODE OF UNIT DESIGNATOR                     FC5A171A     202     A     
 IO                 SB7    X0-M.CHAR                                                       FC5A171A     203     A     
 IO                 NZ     B7,EXIT.    IF NOT INTERNAL FILE                                FC5A171A     204     A     
 IO                 SB2    S=INF                                                           FC5A171A     205     A     
 IO                 EQ     EXIT.                                                           FC5A171A     206     A     
 IO                 EQ     EXIT.                                                           FC5A171A     207          I
          -FC5A184
 IO        PCT      SPACE  4,10                                                            IO          1250          I
          -FC5A232
 IO       **        PCT -  PROCESS CONTROL TURPLES                                         IO          1251          I
          -FC5A232
 IO       *                                                                                IO          1252          I
          -FC5A232
 IO       *         CALLED WHEN I/O ROUTINE NAME KNOWN.  ALL I/O CONTROL                   IO          1253          I
          -FC5A232
 IO       *         TURPLES STACKED ON T.ARG WILL BE UPDATED TO INCLUDE THE                IO          1254          I
          -FC5A232
 IO       *         I/O ROUTINE SYMBOL TABLE ORDINAL.                                      IO          1255          I
          -FC5A232
 IO       *                                                                                IO          1256          I
          -FC5A232
 IO       *         ENTRY  (X0) = I/O ROUTINE SYMBOL TABLE ORDINAL                         IO          1257          I
          -FC5A232
 IO       *                                                                                IO          1258          I
          -FC5A232
 IO       *         EXIT   I/O CONTROL TURPLES UPDATED                                     IO          1259          I
          -FC5A232
 IO       *                                                                                IO          1260          I
          -FC5A232
 IO       *         USES   A1,A2,A6  X0,X1,X2,X6  B2,B3,B7                                 IO          1261          I
          -FC5A232
 IO                                                                                        IO          1262          I
          -FC5A232
 IO                                                                                        IO          1263          I
          -FC5A232
 IO        PCT      SUBR               ENTRY/EXIT...                                       IO          1264          I
          -FC5A232
 IO                 SA1    T=IOARG                                                         IO          1265          I
          -FC5A232
 IO                 ZR     X1,EXIT.    IF NO CONTROL TURPLES STACKED                       IO          1266          I
          -FC5A232
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB7    X1-OR.1OP-1 POSITION FOR LOOP                                   IO          1267          I
          -FC5A232
 IO                 SA2    T.IOARG                                                         IO          1268          I
          -FC5A232
 IO                 SB2    X2                                                              IO          1269          I
          -FC5A232
 IO                 LX0    TP.ORDP     POSITION THE ORDINAL                                IO          1270          I
          -FC5A232
 IO                 SB3    V=APIOC                                                         IO          1271          I
          -FC5A232
 IO                 SB3    -B3                                                             IO          1272          I
          -FC5A232
 IO        PCT1     SA1    B2+B7       FETCH 1OP ENTRY                                     IO          1273          I
          -FC5A232
 IO                 =A2    A1-OR.1OP+OR.OPR                                                IO          1274          I
          -FC5A232
 IO                 HX2    TH.SKEL                                                         IO          1275          I
          -FC5A232
 IO                 AX2    -TH.SKELL   EXTRACT SKELETON NUMBER                             IO          1276          I
          -FC5A232
 IO                 SX2    X2+B3                                                           IO          1277          I
          -FC5A232
 IO                 NZ     X2,PCT2     IF NOT I/O CONTROL TURPLE                           IO          1278          I
          -FC5A232
 IO                 BX6    X1+X0       UPDATE WITH I/O ROUTINE ORDINAL                     IO          1279          I
          -FC5A232
 IO                 SA6    A1                                                              IO          1280          I
          -FC5A232
 IO        PCT2     SB7    B7-Z=TURP                                                       IO          1281          I
          -FC5A232
 IO                 PL     B7,PCT1     IF NOT FINISHED, LOOP...                            IO          1282          I
          -FC5A232
 IO                 SA1    T=BLST                                                          IO          1283          I
          -FC5A232
 IO                 LX6    X1                                                              IO          1284          I
          -FC5A232
 IO                 SA6    IODOLEN     PRESERVE FOR LATER RESTORATION                      IO          1285          I
          -FC5A232
 IO                 EQ     EXIT.                                                           IO          1286          I
          -FC5A232
 IO        PFN      SPACE  4,10                                                            IO          1287     A     
 IO       **        PFN -  PROCESS FORMAT/NAMELIST DESIGNATOR                              IO          1288     A     
 IO       *                ALSO PROCESSES LIST DIRECTED I/O INDICATOR (*)                  IO          1289     A     
 IO       *                                                                                IO          1290     A     
 IO       *         ENTRY  (B4) _ FORMAT DESIGNATOR                                        IO          1291     A     
 IO       *                (B6) = S=INP OR S=OUT                                           IO          1292     A     
 IO       *                                                                                IO          1293     A     
 IO       *         EXIT   (B4) _ LAST TOKEN OF FORMAT DESIGNATOR IN *TB*                  IO          1294     A     
 IO       *                (B6) =  RESET WITH PROPER S=CODE INDICATOR                      IO          1295     A     
 IO       *                FORMAT/NAMELIST CONTROL TURPLE OUTPUT, AS NEEDED                IO          1296     A     
 IO       *                                                                                IO          1297     A     
 IO       *         USES   ALL EXCEPT A0                                                   IO          1298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                                                                                IO          1299     A     
 IO       *         CALLS  CT1, ISL, OCT, PAR, SSY, TPC                                    IO          1300     A     
 IO                                                                                        IO          1301     A     
 IO                                                                                        IO          1302     A     
 IO        PFN      SUBR               ...ENTRY/EXIT...                                    IO          1303     A     
 IO                 SA1    B4+                                                             IO          1304     A     
 IO                 SA2    LISTDIR                                                         IO          1305     A     
 IO                 SB2    X1-O.STAR                                                       IO          1306     A     
 IO                 NZ     B2,PFN1     IF NOT LIST DIRECTED I/O                            IO          1307     A     
 IO                 =X6    1                                                               IO          1308     A     
 IO                 SA6    A2          SET LIST DIRECTED FLAG                              IO          1309     A     
 IO                 SB6    B6+S=FREE                                                       IO          1310     A     
 IO                 SA1    PKCA                                                            FC5A338       48     A     
 IO                 SA2    IODIR                                                           FC5A338       49     A     
 IO                 =X7    1                                                               FC5A338       50     A     
 IO                 LX7    59-IC.UNT                                                       FC5A338       51     A     
 IO                 BX1    X1*X7                                                           FC5A338       52     A     
 IO                 SX7    B6                                                              FC5A338       53     A     
 IO                 ZR     X1,EXIT.    IF UNIT NOT SPECIFIED                               FC5A338       54     A     
 IO                 IX2    X7-X2       REMOVE I/O DIRECTION                                FC5A338       55     A     
 IO                 SX2    X2-S=FREE-S=INF                                                 FC5A338       56     A     
 IO                 NZ     X2,EXIT.    IF NOT INTERNAL FILE                                FC5A338       57     A     
 IO                 FATAL  E.IO26      **INTERNAL FILE CANT BE FREE FORMAT                 FC5A338       58     A     
 IO                 EQ     EXIT.                                                           IO          1311     A     
 IO                                                                                        IO          1312     A     
 IO                                                                                        IO          1313     A     
 IO        PFN1     SA3    IOREF                                                           IO          1314     A     
 IO                 MX7    0                                                               IO          1315     A     
 IO                 BX6    X3                                                              IO          1316     A     
 IO                 SA7    A2          INDICATE FORMATTED, NOT LIST DIRECTED I/O           IO          1317     A     
 IO                 SA6    REFNUM                                                          IO          1318     A     
 IO                 SA7    NRF         NAMELIST CROSS REF FLAG                             FC50857       13     A     
 IO                 ZR     X1,E.IO07   IF *EOS* -- ERROR                                   IO          1319     A     
 IO                 SX2    X1                                                              IO          1320     A     
 IO                 ERRNZ  18-TB.TOTL+0-TB.TOTP                                            IO          1321     A     
 IO                 BX6    X1-X2                                                           IO          1322     A     
 IO                 SB7    X1-O.CONS                                                       IO          1323     A     
 IO                 NZ     B7,PFN2     IF NO FORMAT LABEL                                  IO          1324     A     
 IO                 CLAS=  X2,WB,(FREF)                                                    IO          1325     A     
 IO                 CALL   ISL         IDENTIFY STATEMENT LABEL                            IO          1326     A     
 IO                 SB6    B6+S=COD                                                        IO          1327     A     
 IO                 SX4    IC.FMT                                                          IO          1328     A     
 IO                 EQ     PFN9                                                            IO          1329     A     
 IO                                                                                        IO          1330     A     
 IO                                                                                        IO          1331     A     
 IO       **        HERE IF NON-NUMERIC.  WILL BE VARIABLE FORMAT OR NAMELIST.             IO          1332     A     
 IO                                                                                        IO          1333     A     
 IO        PFN2     SB7    X1-O.CHAR                                                       IO          1334     A     
 IO                 ZR     B7,PFN3     IF CHARACTER CONSTANT                               IO          1335     A     
 IO                 SX6    X1-O.LP                                                         FC5A171A     208     A     
 IO                 SA6    PFNPFE      SET *PARENTHESIZED FMT EXPR* FLAG PROPERLY          FC5A171A     209     A     
 IO                 ZR     X6,PFN3     IF PARENTHESIZED FORMAT EXPRESSION                  FC5A171A     210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB7    X1-O.VAR                                                        IO          1336     A     
 IO                 NZ     B7,E.IO07   IF NOT VARIABLE EITHER                              IO          1337     A     
 IO                 MX6    WA.SYML                                                         IO          1338     A     
 IO                 BX6    X6*X1       SYMBOL ONLY                                         IO          1339     A     
 IO                 CALL   SSY                                                             IO          1340     A     
 IO                 MI     B7,PFN3     IF NOT IN SYMTAB, NOT NAMELIST                      IO          1341     A     
 IO                 SBIT   X2,WB.NLSTP                                                     IO          1342     A     
 IO                 MI     X2,PFN5     IF NAMELIST                                         IO          1343     A     
 IO                                                                                        IO          1344     A     
 IO       **        PROCESS VARIABLE OR ASSIGNED FORMATS                                   IO          1345     A     
 IO                                                                                        IO          1346     A     
 IO        PFN3     SX6    B6                                                              IO          1347     A     
 IO                 SB6    B6+S=COD                                                        IO          1348     A     
 IO                 SA2    IOREF                                                           IO          1349     A     
 IO                 SA1    FMTARM                                                          IO          1350     A     
 IO                 SX7    55B                                                             IO          1351     A     
 IO                 BX2    X7-X2                                                           IO          1352     A     
 IO                 LX2    AM.REFP                                                         IO          1353     A     
 IO                 BX7    X1-X2                                                           IO          1354     A     
 IO                 SA7    ARGMODE                                                         IO          1355     A     
 IO                 SX7    O.SLP                                                           IO          1356     A     
 IO                 SA6    IONAM       SAVE (B6)                                           IO          1357     A     
 IO                 =A7    B4-1                                                            IO          1358     A     
 IO                 =B4    B4-1                                                            IO          1359     A     
 IO                 CALL   PAR         PARSE THE FORMAT DESIGNATOR                         IO          1360     A     
 IO                 CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION                IO          1361     A     
 IO                 SA2    IONAM                                                           IO          1362     A     
 IO                 SB6    X2          RESTORE (B6)                                        IO          1363     A     
 IO                 EQ     EXIT.                                                           IO          1364     A     
 IO                                                                                        IO          1365     A     
 IO       **        PROCESS NAMELIST NAME.                                                 IO          1366     A     
 IO                                                                                        IO          1367     A     
 IO        PFN5     CALL   CT1         GET TP. FORMAT                                      IO          1368     A     
 IO                 CLAS=  X0,WB,(MAT)                                                     IO          1369          I
          -FC50857
 IO                 SA1    WO.LOR                                                          FC50857       14     A     
 IO                 PL     X1,PFN7     IF NO CROSS REFERENCE SELECTED                      FC50857       15     A     
 IO                 SA4    IODIR                                                           FC50857       16     A     
 IO                 SX1    CR.OUT                                                          FC50857       17     A     
 IO                 NZ     X4,PFN6     IF OUTPUT DIRECTION                                 FC50857       18     A     
 IO                 SX1    CR.INP                                                          FC50857       19     A     
 IO                                                                                        FC50857       20     A     
 IO        PFN6     LX1    XR.TAGL                                                         FC50857       21     A     
 IO                 BX7    X1+X0                                                           FC50857       22     A     
 IO                 SA7    NRF         24/0,18/IO DIRECTION,18/SYMTAB ORDINAL              FC50857       23     A     
 IO                                                                                        FC50857       24     A     
 IO        PFN7     CLAS=  X0,WB,(MAT)                                                     FC50857       25     A     
 IO                 BX7    X0+X2       MERGE IN MATERIALIZE BIT                            IO          1370     A     
 IO                 SA7    A2          UPDATE *WB*                                         IO          1371     A     
 IO                 SA1    PKCA        CONTROL ITEM SPECIFIED FLAG                         IO          1372     A     
 IO                 =X7    1                                                               IO          1373     A     
 IO                 LX7    59-IC.NML                                                       IO          1374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX7    X7+X1       MERGE IN NAMELIST BIT                               IO          1375     A     
 IO                 SA7    A1                                                              IO          1376     A     
 IO                 SA1    IODIR                                                           IO          1377     A     
 IO                 =X2    1                                                               IO          1378     A     
 IO                 LX2    59-IC.UNT                                                       IO          1379     A     
 IO                 BX2    X7*X2                                                           IO          1380     A     
 IO                 SX7    B6                                                              IO          1381     A     
 IO                 ZR     X2,PFN8     IF UNIT NOT SPECIFIED                               IO          1382     A     
 IO                 IX2    X7-X1                                                           IO          1383     A     
 IO                 SX2    X2-S=INF                                                        IO          1384     A     
 IO                 NZ     X2,PFN8     IF NOT INTERNAL FILE                                IO          1385     A     
 IO                 FATAL  E.IO33                                                          IO          1386     A     
 IO                                                                                        IO          1387     A     
 IO        PFN8     SB6    B6+S=NLST                                                       IO          1388     A     
 IO                 SX4    IC.NML                                                          IO          1389     A     
 IO                 NZ     X1,PFN9     IF OUTPUT DIRECTION                                 IO          1390     A     
 IO                 CLAS=  X2,TP,(IOD,IOP)                                                 IO          1391     A     
 IO                 BX6    X6+X2       FLAG POTENTIAL DEFINITION                           IO          1392     A     
 IO                                                                                        IO          1393     A     
 IO       **        OUTPUT FORMAT/NAMELIST CONTROL TURPLE.                                 IO          1394     A     
 IO                                                                                        IO          1395     A     
 IO        PFN9     BX5    X6                                                              IO          1396     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1397     A     
 IO                 SA2    NRF                                                             FC50857       26     A     
 IO                 ZR     X2,EXIT.    IF NO CROSS REFERENCE SELECTED                      FC50857       27     A     
 IO                 SX6    X2          X6 = SYMTAB ORDINAL                                 FC50857       28     A     
 IO                 AX2    XR.TAGL                                                         FC50857       29     A     
 IO                 SX1    X2          X1 = IO DIRECTION                                   FC50857       30     A     
 IO                 LX6    XR.TAGP     XREF TAG                                            FC50857       31     A     
 IO                 ADDREF X6,X1                                                           FC50857       32     A     
 IO                 EQ     EXIT.                                                           IO          1398     A     
 IO                                                                                        FC5A171A     211     A     
 IO        PFNPFE   CON    1           0 IFF FORMAT EXPRESSION IS PARENTHESIZED            FC5A171A     212     A     
 IO        NRF      CON    0           24/0,18/IO DIRECTION,18/SYMTAB ORDINAL              FC50857       33     A     
 IO        PKC      SPACE  4,10                                                            IO          1399     A     
 IO       **        PKC -  PROCESS KEYWORD CONTROL ITEMS                                   IO          1400     A     
 IO       *                                                                                IO          1401     A     
 IO       *         ENTRY  (X1) = KEYWORD LEGALITY                                         IO          1402     A     
 IO       *                (B4) _ FIRST CONTROL KEYWORD                                    IO          1403     A     
 IO       *                (B6) = (S=COD) INDICATOR                                        IO          1404     A     
 IO       *                (PKCA) = BIT MASK OF DEFINED CONTROL ITEMS                      IO          1405     A     
 IO       *                                                                                IO          1406     A     
 IO       *         EXIT   (B4) _ CLOSING *)*                                              IO          1407     A     
 IO       *                (X3) = I/O CONTROL DEFINED MASK (PKCA)                          IO          1408     A     
 IO       *                                                                                IO          1409     A     
 IO       *         CALLS  CUD, EMT, ICK, ISL, OCT, PAR, PFN, TPC                          IO          1410     A     
 IO                                                                                        IO          1411     A     
 IO                                                                                        IO          1412     A     
 IO        PKCA     BSS    1           CONTROL ITEM DEFINED MASK                           IO          1413     A     
 IO        PKCB     BSS    1           S=INDICATOR SAVE                                    IO          1414     A     
 IO        PKCC     BSS    1           LEGALITY MASK                                       IO          1415     A     
 IO        PKCD     BSS    1           IC. CONTROL CODE SAVE                               IO          1416     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO          1417     A     
 IO        PKC      SUBR               ...ENTRY/EXIT...                                    IO          1418     A     
 IO                 LX7    X1                                                              IO          1419     A     
 IO                 SA7    PKCC                                                            IO          1420     A     
 IO                 SX6    B6                                                              IO          1421     A     
 IO                 =A6    A7-PKCC+PKCB                                                    IO          1422     A     
 IO                                                                                        IO          1423     A     
 IO        PKC1     SB6    FW.CTL                                                          IO          1424     A     
 IO                 SB7    L.CTL                                                           IO          1425     A     
 IO                 RJ     ICK         CHECK FOR I/O CONTROL KEYWORD                       IO          1426     A     
 IO                 ZR     B7,E.IO10   IF NOT KEYWORD                                      IO          1427     A     
 IO                 SA1    B4+                                                             IO          1428     A     
 IO                 SB2    X1-O.=                                                          IO          1429     A     
 IO                 NZ     B2,E.IO16   IF NOT *=*                                          IO          1430     A     
 IO                 HX6    KW.INFO                                                         IO          1431     A     
 IO                 AX6    -KW.INFOL   EXTRACT KEYWORD JUMP ADDRESS                        IO          1432     A     
 IO                 SB2    X6                                                              IO          1433     A     
 IO                 SA1    PKCC        LEGALITY MASK                                       IO          1434     A     
 IO                 SB7    B7-FW.CTL+1 CONVERT TABLE ADDRESS TO ORDINAL                    IO          1435     A     
 IO                 LX1    X1,B7                                                           IO          1436     A     
 IO                 PL     X1,E.IO11   IF KEYWORD NOT LEGAL                                IO          1437     A     
 IO                 SA1    PKCA        ALREADY DEFINED MASK                                IO          1438     A     
 IO                 SB3    59                                                              IO          1439     A     
 IO                 =X6    1                                                               IO          1440     A     
 IO                 SB3    B3-B7                                                           IO          1441     A     
 IO                 LX6    B3                                                              IO          1442     A     
 IO                 BX0    X1*X6                                                           IO          1443     A     
 IO                 NZ     X0,E.IO12   IF ALREADY DEFINED                                  IO          1444     A     
 IO                 BX6    X1+X6       ADD IN THIS DEFINITION BIT                          IO          1445     A     
 IO                 SA6    A1                                                              IO          1446     A     
 IO                 SX6    B7                                                              IO          1447     A     
 IO                 SA6    PKCD        SAVE THE CONTROL CODE                               IO          1448     A     
 IO                 =A1    B4+1                                                            IO          1449     A     
 IO                 =B4    B4+1        SKIP THE *=*                                        IO          1450     A     
 IO                 JP     B2          PROCESS THE KEYWORD PARAMETER                       IO          1451     A     
 IO                                                                                        IO          1452     A     
 IO        PKC=     EQ     "BLOWUP"    FOR UNUSED CODES                                    IO          1453     A     
 IO                                                                                        IO          1454     A     
 IO        PKC=DIR  BSS    0                                                               IO          1455     A     
 IO        PKC=FMD  BSS    0                                                               IO          1456     A     
 IO        PKC=NAM  BSS    0                                                               IO          1457     A     
 IO        PKC=SEQ  BSS    0                                                               IO          1458     A     
 IO        PKC=UNF  BSS    0                                                               IO          1459     A     
 IO        PKC10    SA1    ICCARM      MUST BE CHARACTER VARIABLE OR ARRAY ELEMENT         IO          1460     A     
 IO                 EQ     PKC14       CONTINUE PROCESSING                                 IO          1461     A     
 IO                                                                                        IO          1462     A     
 IO        PKC=ACC  BSS    0                                                               IO          1463     A     
 IO        PKC=BLK  BSS    0                                                               IO          1464     A     
 IO        PKC=FOR  BSS    0                                                               IO          1465     A     
 IO                 SA1    PKCB        STATEMENT INDICATOR                                 IO          1466     A     
 IO                 SB2    S.INQUI                                                         IO          1467     A     
 IO                 SB2    -B2                                                             IO          1468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SX1    X1+B2                                                           IO          1469     A     
 IO                 ZR     X1,PKC10    IF INQUIRE, PARAMETER MUST BE VARIABLE              IO          1470     A     
 IO        PKC=STA  BSS    0                                                               IO          1471     A     
 IO                 SA1    ICCXARM     MUST BE CHARACTER EXPRESSION                        IO          1472     A     
 IO                 EQ     PKC14       CONTINUE PROCESSING                                 IO          1473     A     
 IO                                                                                        IO          1474     A     
 IO        PKC=RCL  BSS    0                                                               IO          1475     A     
 IO                 SA1    PKCB        STATEMENT INDICATOR                                 IO          1476     A     
 IO                 SB2    S.INQUI                                                         IO          1477     A     
 IO                 SB2    -B2                                                             IO          1478     A     
 IO                 SX1    X1+B2                                                           IO          1479     A     
 IO                 NZ     X1,PKC12    IF NOT INQUIRE                                      IO          1480     A     
 IO        PKC=IOS  BSS    0                                                               IO          1481     A     
 IO        PKC=NXT  BSS    0                                                               IO          1482     A     
 IO        PKC=NUM  BSS    0                                                               IO          1483     A     
 IO                 SA1    ICIARM      MUST BE INTEGER VARIABLE OR ARRAY ELEMENT           IO          1484     A     
 IO                 EQ     PKC14       CONTINUE PROCESSING                                 IO          1485     A     
 IO                                                                                        IO          1486     A     
 IO        PKC=BFL  BSS    0                                                               IO          1487     A     
 IO                 ANSI   E.IO22                                                          IO          1488     A     
 IO        PKC=REC  BSS    0                                                               IO          1489     A     
 IO        PKC12    SA1    ICIXARM     MUST BE POSITIVE INTEGER EXPRESSION                 IO          1490     A     
 IO                 EQ     PKC14       CONTINUE PROCESSING                                 IO          1491     A     
 IO                                                                                        IO          1492     A     
 IO        PKC=EXS  BSS    0                                                               IO          1493     A     
 IO        PKC=NMD  BSS    0                                                               IO          1494     A     
 IO        PKC=OPE  BSS    0                                                               IO          1495     A     
 IO                 SA1    ICLARM      MUST BE LOGICAL VARIABLE OR ARRAY ELEMENT           IO          1496     A     
 IO                 EQ     PKC14       CONTINUE PROCESSING                                 IO          1497     A     
 IO                                                                                        IO          1498     A     
 IO        PKC=END  BSS    0                                                               IO          1499     A     
 IO        PKC=ERR  BSS    0                                                               IO          1500     A     
 IO                 SB2    X1-O.CONS                                                       IO          1501     A     
 IO                 NZ     B2,E.IO15   IF NOT STATEMENT LABEL                              IO          1502     A     
 IO                 CLAS=  X2,WB,(SREF)                                                    IO          1503          I
          -FC51356
 IO                 CLAS=  X2,WB,(GOTO,SREF)                                               FC51356       19     A     
 IO                 LX6    X1                                                              IO          1504     A     
 IO                 CALL   ISL         IDENTIFY THE STATEMENT LABEL                        IO          1505     A     
 IO                 MI     X6,PSL      IF ERROR IN STATEMENT LABEL                         IO          1506     A     
 IO                 BX5    X6                                                              IO          1507     A     
 IO                 EQ     PKC15       FINISH PROCESSING                                   IO          1508     A     
 IO                                                                                        IO          1509     A     
 IO        PKC=FIL  BSS    0                                                               IO          1510     A     
 IO                 SA1    ICCXARM     MUST BE CHARACTER EXPRESSION                        IO          1511     A     
 IO                 SX7    O.SLP                                                           IO          1512     A     
 IO                 =A7    B4-1        SET FOR PAR                                         IO          1513     A     
 IO                 =B4    B4-1                                                            IO          1514     A     
 IO                 LX6    X1                                                              IO          1515     A     
 IO                 SA6    ARGMODE                                                         IO          1516     A     
 IO                 CALL   PAR                                                             IO          1517     A     
 IO                 CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION                IO          1518     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA1    PKCB        STATEMENT INDICATOR                                 IO          1519     A     
 IO                 SB2    S.INQUI                                                         IO          1520     A     
 IO                 SB2    -B2                                                             IO          1521     A     
 IO                 SX1    X1+B2                                                           IO          1522     A     
 IO                 NZ     X1,PKC15    IF NOT INQUIRE, PROCESS NORMALLY                    IO          1523     A     
 IO                 SA1    IOCTL       FETCH PROTOTYPE                                     IO          1524     A     
 IO                 SA4    PKCD        I/O CONTROL CODE                                    IO          1525     A     
 IO                 SX6    M.CHAR                                                          IO          1526     A     
 IO                 LX6    TH.MODEP                                                        IO          1527          I
          -FC50104
 IO                 LX6    SP.MODEP                                                        FC50104       65     A     
 IO                 BX6    X1+X6       MERGE IN MODE                                       IO          1528     A     
 IO                 SA6    OCTA                                                            IO          1529     A     
 IO                 SHRINK T=SCR                                                           IO          1530     A     
 IO                 LX4    TP.IOCP                                                         IO          1531     A     
 IO                 MX6    1                                                               FC5A235        5     A     
 IO                 SA6    CUDA+1      FLAG FOR SFP                                        FC5A235        6     A     
 IO                 EMIT   OCTA,*,T.SCR                                                    IO          1532     A     
 IO                 SX1    Z=TURP      LENGTH                                              IO          1533     A     
 IO                 SA2    T.SCR       SOURCE                                              IO          1534     A     
 IO                 SA3    T.IOARG     DESTINATION                                         IO          1535     A     
 IO                 MOVE   X1,X2,X3    FOR INQUIRE, FILE SPECIFIER MUST BE FIRST           IO          1536     A     
 IO                 SHRINK T=SCR                                                           IO          1537     A     
 IO                 EQ     PKC16       CONTINUE PROCESSING                                 IO          1538     A     
 IO                                                                                        IO          1539     A     
 IO        PKC=FMT  BSS    0                                                               IO          1540     A     
 IO                 SA1    PKCB                                                            IO          1541     A     
 IO                 SB6    X1          PFN NEEDS (B6) = S=CODE INDICATOR                   IO          1542     A     
 IO                 RJ     PFN         PROCESS THE FORMAT DESIGNATOR                       IO          1543     A     
 IO                 SX6    B6                                                              IO          1544     A     
 IO                 SA6    PKCB        SAVE (B6)                                           IO          1545     A     
 IO                 EQ     PKC16       FINISH PROCESSING                                   IO          1546     A     
 IO                                                                                        IO          1547     A     
 IO        PKC=UNT  BSS    0                                                               IO          1548     A     
 IO                 RJ     CUD         COMPILE THE UNIT DESIGNATOR                         IO          1549     A     
 IO                 SA1    PKCB                                                            IO          1550     A     
 IO                 SX6    X1+B2       ADJUST IF INTERNAL FILE                             IO          1551     A     
 IO                 SA6    A1                                                              IO          1552     A     
 IO                 EQ     PKC16       FINISH PROCESSING                                   IO          1553     A     
 IO                                                                                        IO          1554     A     
 IO       **        CALL PAR TO PROCESS THE KEYWORD PARAMETER                              IO          1555     A     
 IO       *                (X1) = ARGMODE VALUE                                            IO          1556     A     
 IO                                                                                        IO          1557     A     
 IO        PKC14    SX7    O.SLP                                                           IO          1558     A     
 IO                 =A7    B4-1        SET FOR PAR                                         IO          1559     A     
 IO                 =B4    B4-1                                                            IO          1560     A     
 IO                 LX6    X1                                                              IO          1561     A     
 IO                 SA6    ARGMODE                                                         IO          1562     A     
 IO                 CALL   PAR         PARSE THE KEYWORD PARAMETER                         IO          1563     A     
 IO                 CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION                IO          1564     A     
 IO                                                                                        IO          1565     A     
 IO       **        FINISH PROCESSING INDIVIDUAL CONTROL KEYWORDS                          IO          1566     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                (X5) = I/O CONTROL PARAMETER (TP. FORMAT)                       IO          1567     A     
 IO                                                                                        IO          1568     A     
 IO        PKC15    SA4    PKCD        I/O CONTROL CODE                                    IO          1569     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1570     A     
 IO        PKC16    =A1    B4+1                                                            IO          1571     A     
 IO                 =B4    B4+1                                                            IO          1572     A     
 IO                 SB2    X1-O.COMMA                                                      IO          1573     A     
 IO                 SB3    X1-O.RP                                                         IO          1574     A     
 IO                 ZR     B3,PKC20    IF *)*, FINISHED                                    IO          1575     A     
 IO                 NZ     B2,E.IO16   IF NOT *,*, ERROR                                   IO          1576     A     
 IO                 =B4    B4+1        NEXT KEYWORD                                        IO          1577     A     
 IO                 EQ     PKC1        CONTINUE PROCESSING                                 IO          1578     A     
 IO                                                                                        IO          1579     A     
 IO        PKC20    SA2    PKCB                                                            IO          1580     A     
 IO                 SB6    X2          RESTORE (B6) = S=CODE                               IO          1581     A     
 IO                 =A3    A2-PKCB+PKCA                                                    IO          1582     A     
 IO                 SB2    S.INQUI                                                         IO          1583     A     
 IO                 SB2    B6-B2                                                           IO          1584     A     
 IO                 =X0    1                                                               IO          1585     A     
 IO                 LX0    59-IC.UNT                                                       IO          1586     A     
 IO                 ZR     B2,PKC25    IF INQUIRE                                          IO          1587     A     
 IO                 BX0    X3*X0                                                           IO          1588     A     
 IO                 ZR     X0,E.IO01   IF NO UNIT DESIGNATOR                               IO          1589     A     
 IO                 EQ     EXIT.                                                           IO          1590     A     
 IO                                                                                        IO          1591     A     
 IO        PKC25    SX1    1                                                               IO          1592     A     
 IO                 LX1    59-IC.FIL                                                       IO          1593     A     
 IO                 BX0    X0+X1                                                           IO          1594     A     
 IO                 BX1    X3*X0                                                           IO          1595     A     
 IO                 BX0    X1-X0                                                           IO          1596     A     
 IO                 ZR     X1,E.IO20   IF NEITHER UNIT NOR FILE SPECIFIED                  IO          1597     A     
 IO                 ZR     X0,E.IO21   IF BOTH UNIT AND FILE SPECIFIED                     IO          1598     A     
 IO                 EQ     EXIT.                                                           IO          1599     A     
 IO        SFP      SPACE  4,10                                                            IO          1600     A     
 IO       **        SFP -  SET FILE PROPERTY BITS                                          IO          1601     A     
 IO       *                                                                                IO          1602     A     
 IO       *         THIS ROUTINE WILL SET BITS IN *WC* ENTRY                               IO          1603     A     
 IO       *         FOR A FILE SO THAT THE I/O REFMAP CAN BE OUTPUT.                       IO          1604     A     
 IO       *                                                                                IO          1605     A     
 IO       *         ENTRY  (X3) = 1 IF BUFFER IN/OUT STMT                                  IO          1606     A     
 IO       *                     = CONTENTS OF PKCA OTHERWISE.                              IO          1607     A     
 IO       *                                                                                IO          1608     A     
 IO       *                (CUDA+1) = MI IF SUPPRESS PROPERTIES                            IO          1609     A     
 IO       *                         = SYMTAB *WB* INDEX OF FILE OTHERWISE.                 IO          1610     A     
 IO       *                                                                                IO          1611     A     
 IO       *         USES   X - 0,1,2,4,6  A - 1,2,4,6  B - 2                               IO          1612     A     
 IO                                                                                        IO          1613     A     
 IO        SFP      SUBR               ...ENTRY/EXIT...                                    IO          1614     A     
 IO                 SA1    WO.LOA                                                          IO          1615     A     
 IO                 SA2    WO.LOM                                                          IO          1616     A     
 IO                 SA4    WO.LOR                                                          IO          1617     A     
 IO                 BX1    X1+X2                                                           IO          1618     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX1    X1+X4                                                           IO          1619     A     
 IO                 ZR     X1,EXIT.    IF REFMAP NOT SELECTED                              IO          1620     A     
 IO                 =A1    CUDA+1      X1 = *WB* INDEX OF FILE                             IO          1621     A     
 IO                 MI     X1,EXIT.    IF SUPPRESSION DESIRED                              IO          1622     A     
 IO                 =B2    X1                                                              IO          1623     A     
 IO                 MX6    0                                                               FC5A343        8     A     
 IO                 SA1    T.SYM                                                           IO          1624     A     
 IO                 MX6    0                                                               IO          1625          I
          -FC5A343
 IO                 SA4    IODIR                                                           IO          1626     A     
 IO                 =X0    1                                                               IO          1627          I
          -FC5A343
 IO                 PL     X4,SFP30    IF NOT AUXILLARY I/O STMT                           IO          1628     A     
 IO                 LDBIT  X2,WB.AUXP                                                      IO          1629     A     
 IO                 BX6    X2+X6                                                           IO          1630     A     
 IO                 LX0    59-IC.ACC                                                       IO          1631          I
          -FC5A343
 IO                 BX4    X0*X3                                                           IO          1632          I
          -FC5A343
 IO                 LDBIT  X2,WB.SEQP                                                      IO          1633          I
          -FC5A343
 IO                 ZR     X4,SFP10    IF SEQUENTIAL FILE                                  IO          1634          I
          -FC5A343
 IO                 MX2    0                                                               IO          1635          I
          -FC5A343
 IO                                                                                        IO          1636          I
          -FC5A343
 IO        SFP10    BX6    X6+X2                                                           IO          1637          I
          -FC5A343
 IO                 LX0    IC.ACC-IC.FOR                                                   IO          1638          I
          -FC5A314
 IO                 BX4    X0*X3                                                           IO          1639          I
          -FC5A314
 IO                 LDBIT  X2,WB.FMTP                                                      IO          1640          I
          -FC5A314
 IO                 ZR     X4,SFP20    IF FORMATTED FILE                                   IO          1641          I
          -FC5A314
 IO                 MX2    0                                                               IO          1642          I
          -FC5A314
 IO                                                                                        IO          1643          I
          -FC5A314
 IO        SFP20    BX6    X2+X6                                                           IO          1644          I
          -FC5A314
 IO                 BX0    X3                                                              IO          1645     A     
 IO                 LX0    -1                                                              IO          1646     A     
 IO                 PL     X0,SFP60    IF NOT BUFFER IN/OUT STMT                           IO          1647     A     
 IO                 SX0    145B                                                            IO          1648     A     
 IO                 LX0    WB.FMTP-6                                                       IO          1649     A     
 IO                 BX6    X6-X0       INDICATE BINARY, SEQUENTIAL FILE                    IO          1650     A     
 IO                 EQ     SFP60                                                           IO          1651     A     
 IO                                                                                        IO          1652     A     
 IO        SFP30    LDBIT  X2,WB.SEQP                                                      IO          1653     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =X0    1                                                               FC5A343        9     A     
 IO                 LX0    59-IC.REC                                                       IO          1654     A     
 IO                 BX4    X0*X3                                                           IO          1655     A     
 IO                 ZR     X4,SFP40    IF SEQUENTIAL FILE                                  IO          1656     A     
 IO                 LX2    -WB.SEQP+WB.DIRP                                                IO          1657     A     
 IO                                                                                        IO          1658     A     
 IO        SFP40    BX6    X6+X2                                                           IO          1659     A     
 IO                 LX0    IC.REC-IC.FMT                                                   IO          1660     A     
 IO                 BX4    X0*X3                                                           IO          1661     A     
 IO                 LDBIT  X2,WB.FMTP                                                      IO          1662     A     
 IO                 NZ     X4,SFP50    IF FORMATTED FILE                                   IO          1663     A     
 IO                 LX2    -WB.FMTP+WB.BINP                                                IO          1664     A     
 IO                                                                                        IO          1665     A     
 IO        SFP50    BX6    X6+X2                                                           IO          1666     A     
 IO                                                                                        FC5A343       10     A     
 IO        SFP60    SA1    X1+B2       *WB* OF FILE                                        IO          1667     A     
 IO                 BX6    X6+X1       MERGE WITH PROPERTY BITS                            IO          1668     A     
 IO                 SA6    A1          UPDATE *WB*                                         IO          1669     A     
 IO                 EQ     EXIT.                                                           IO          1670     A     
 IO        SKS      SPACE  4,10                                                            IO          1671          I
          -FC5A214
 IO       **        SKS -  SKIP OVER SUBSCRIPT.                                            IO          1672          I
          -FC5A214
 IO       *                                                                                IO          1673          I
          -FC5A214
 IO       *         ENTRY  (A4) _ *(*.                                                     IO          1674          I
          -FC5A214
 IO       *                                                                                IO          1675          I
          -FC5A214
 IO       *         EXIT   (A4) _ *)*.                                                     IO          1676          I
          -FC5A214
 IO       *                                                                                IO          1677          I
          -FC5A214
 IO       *         USES   B2,B3,B7                                                        IO          1678          I
          -FC5A214
 IO                                                                                        IO          1679          I
          -FC5A214
 IO                                                                                        IO          1680          I
          -FC5A214
 IO        SKS2     SB3    B3+1                                                            IO          1681          I
          -FC5A214
 IO                                                                                        IO          1682          I
          -FC5A214
 IO        SKS4     SA4    A4+B1                                                           IO          1683          I
          -FC5A214
 IO                 SB7    X4-O.LP                                                         IO          1684          I
          -FC5A214
 IO                 ZR     X4,E.IOL7   IF *EOS*, ERROR                                     IO          1685          I
          -FC5A214
 IO                 ZR     B7,SKS2     IF LPAREN                                           IO          1686          I
          -FC5A214
 IO                 IFNE   O.RP-O.LP,1,1                                                   IO          1687          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC5A214
 IO                 ERR    (SKS) --  O.LP + 1  .NE.  O.RP                                  IO          1688          I
          -FC5A214
 IO                 NE     B7,B1,SKS4  IF NO RPAREN, LOOP..                                IO          1689          I
          -FC5A214
 IO                 SB3    B3-B1       DECREMENT PAREN LEVEL COUNT                         IO          1690          I
          -FC5A214
 IO                 GT     B3,SKS4     IF A LOWER LEVEL                                    IO          1691          I
          -FC5A214
 IO                 MI     B3,E.IOL8   IF TOO MANY *(*, ERROR                              IO          1692          I
          -FC5A214
 IO                                                                                        IO          1693          I
          -FC5A214
 IO        SKS      SUBR               ENTRY/EXIT...                                       IO          1694          I
          -FC5A214
 IO                 SB3    B1                                                              IO          1695          I
          -FC5A214
 IO                 EQ     SKS4                                                            IO          1696          I
          -FC5A214
 IO        UDP      SPACE  4,10                                                            FC5A171A     213     A     
 IO       **        UDP - UNIT DESIGNATOR PROCESSING.                                      FC5A171A     214     A     
 IO       *                                                                                FC5A171A     215     A     
 IO       *         ENTRY  (X6) = BINARY OF UNIT DESIGNATOR.                               FC5A171A     216     A     
 IO       *                                                                                FC5A171A     217     A     
 IO       *         EXIT   IF UNIT IS OK                                                   FC5A171A     218     A     
 IO       *                                                                                FC5A171A     219     A     
 IO       *                (CUDA+1) = SYMTAB *WB* INDEX OF FILE NAME.                      FC5A171A     220     A     
 IO       *                FILE NAME TAPENNN IS IN SYMBOL TABLE, WITH                      FC5A171A     221     A     
 IO       *                APPROPRIATE FIELDS FILLED IN. (NNN IS DPC OF UNIT)              FC5A171A     222     A     
 IO       *                                                                                FC5A171A     223     A     
 IO       *                IF UNIT IS BAD -                                                FC5A171A     224     A     
 IO       *                                                                                FC5A171A     225     A     
 IO       *                (X4) = TP. OPERAND FOR BAD UNIT (S=BU)                          FC5A171A     226     A     
 IO       *                DIAGNOSTIC ISSUED.                                              FC5A171A     227     A     
 IO       *                                                                                FC5A171A     228     A     
 IO       *         USES   X - 0,1,2,3,6,7  A - 1,2,3,4,5,6,7  B - 2,3,7.                  FC5A171A     229     A     
 IO       *                                                                                FC5A171A     230     A     
 IO       *         CALLS  VUD,CDD,SSY,ESY,ERT.                                            FC5A171A     231     A     
 IO                                                                                        FC5A171A     232     A     
 IO                                                                                        FC5A171A     233     A     
 IO        UDP      SUBR               ENTRY/EXIT...                                       FC5A171A     234     A     
 IO                 SB7    E.IO03      UNIT NUMBER OUTSIDE RANGE 0-100                     FC5A171A     235     A     
 IO                 MI     X6,UDP30    ** IF UNIT DESIGNATOR TOO SMALL                     FC5A171A     236     A     
 IO                 RJ     VUD         VALIDATE THE UNIT DESIGNATOR                        FC5A171A     237     A     
 IO                 ZR     B7,UDP10    IF LEGAL FILE NAME                                  FC5A171A     238     A     
 IO                 PL     B7,UDP30    IF ILLEGAL FILE NAME                                FC5A171A     239     A     
 IO                 SX1    1000                                                            FC5A171A     240     A     
 IO                 IX1    X6-X1                                                           FC5A171A     241     A     
 IO                 SB7    E.IO03      ** UNIT NUMBER TOO LARGE                            FC5A171A     242     A     
 IO                 PL     X1,UDP30    IF UNIT MORE THAN THREE DIGITS                      FC5A171A     243     A     
 IO                 BX1    X6                                                              FC5A171A     244     A     
 IO                 BX6    X4                                                              FC5A171A     245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA6    UDPA        SAVE X4                                             FC5A171A     246     A     
 IO                 BX6    X5                                                              FC5A171A     247     A     
 IO                 =A6    A6+1        SAVE X5                                             FC5A171A     248     A     
 IO                 SX5    B4          SAVE B4                                             FC5A171A     249     A     
 IO                 CALL   CDD         CONVERT TO DPC                                      FC5A171A     250     A     
 IO                 MX6    1                                                               FC5A171A     251     A     
 IO                 =B2    B2-1                                                            FC5A171A     252     A     
 IO                 AX6    B2,X6                                                           FC5A171A     253     A     
 IO                 SA1    =4LTAPE                                                         FC5A171A     254     A     
 IO                 BX4    X6*X4       ERASE SUPERFLUOUS CHARS                             FC5A171A     255     A     
 IO                 LX4    -4*CHAR                                                         FC5A171A     256     A     
 IO                 BX6    X4+X1       APPEND TO TAPE                                      FC5A171A     257     A     
 IO                 SA4    UDPA        RESTORE X4                                          FC5A171A     258     A     
 IO                 SB4    X5          RESTORE B4                                          FC5A171A     259     A     
 IO                 =A5    A4+1        RESTORE X5                                          FC5A171A     260     A     
 IO                                                                                        FC5A171A     261     A     
 IO        UDP10    MX1    1                                                               FC5A171A     262     A     
 IO                 BX6    X6+X1       SET BIT 59 ON FILE NAME                             FC5A171A     263     A     
 IO                 CALL   SSY         FIND WHERE TO PUT FILE                              FC5A171A     264     A     
 IO                 PL     B7,UDP20    IF *HIT*                                            FC5A171A     265     A     
 IO                 MX7    0                                                               FC5A171A     266     A     
 IO                 MX2    0                                                               FC5A171A     267     A     
 IO                 ADSYM  T.SYM       ADD FILE TO SYMTAB                                  FC5A171A     268     A     
 IO                                                                                        FC5A171A     269     A     
 IO        UDP20    SX6    B7                                                              FC5A171A     270     A     
 IO                 =A6    CUDA+1      SET *WB* INDEX EXIT CONDITION                       FC5A171A     271     A     
 IO                 CLAS=  X2,WB,(NVAR,UDC,CGS)                                            FC5A171A     272     A     
 IO                 SA1    X1+B7       *WB*                                                FC5A171A     273     A     
 IO                 BX6    X1+X2       MERGE ABOVE BITS                                    FC5A171A     274     A     
 IO                 SA6    A1          UPDATE *WB*                                         FC5A171A     275     A     
 IO                 LX0    XR.TAGP                                                         FC5A171A     276     A     
 IO                 SA1    IOREF                                                           FC5A171A     277     A     
 IO                 ADDREF X0,X1       ISSUE REFERENCE                                     FC5A171A     278     A     
 IO                 EQ     EXIT.                                                           FC5A171A     279     A     
 IO                                                                                        FC5A171A     280     A     
 IO       **        HERE IF UNIT DESIGNATOR IS BAD.                                        FC5A171A     281     A     
 IO                                                                                        FC5A171A     282     A     
 IO        UDP30    SA4    S=BU                                                            FC5A171A     283     A     
 IO                 FATAL  B7                                                              FC5A171A     284     A     
 IO                 LX4    TP.ORDP                                                         FC5A171A     285     A     
 IO                 ERRNZ  M.BOOL                                                          FC5A171A     286     A     
 IO                 EQ     EXIT.                                                           FC5A171A     287     A     
 IO                                                                                        FC5A171A     288     A     
 IO        UDPA     EQU    CUDA                                                            FC5A171A     289     A     
 IO        VUD      SPACE  4,10                                                            IO          1697     A     
 IO       **        VUD -  VALIDATE UNIT DESIGNATOR.                                       IO          1698     A     
 IO       *                                                                                IO          1699     A     
 IO       *         ENTRY  (X6) = POSSIBLE CONSTANT UNIT DESIGNATOR.                       IO          1700     A     
 IO       *                                                                                IO          1701     A     
 IO       *         EXIT   (B7) = ZR IF DESIGNATOR IS LEGAL FILE NAME.                     IO          1702     A     
 IO       *                     = ERROR ADDRS IF DESIGNATOR IS ILLEGAL FILE NAME.          IO          1703     A     
 IO       *                     = MI IF DESIGNATOR IS A NUMBER.                            IO          1704     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                                                                                IO          1705     A     
 IO       *         USES   X - 0,7  B - 7                                                  IO          1706     A     
 IO                                                                                        IO          1707     A     
 IO        VUD      SUBR               ENTRY/EXIT...                                       IO          1708     A     
 IO                 =B7    -1                                                              IO          1709     A     
 IO                 MX0    7*CHAR                                                          IO          1710     A     
 IO                 BX0    X0*X6                                                           IO          1711     A     
 IO                 ZR     X0,EXIT.    IF NOT BOOLEAN FILE NAME                            IO          1712     A     
 IO                 MX0    CHAR                                                            IO          1713     A     
 IO                 BX0    X0*X6                                                           IO          1714     A     
 IO                 LX0    CHAR                                                            IO          1715     A     
 IO                 SX7    X0-1RA                                                          IO          1716     A     
 IO                 SB7    E.IO31      ** NOT LEGAL FILE NAME                              IO          1717     A     
 IO                 MI     X7,EXIT.    IF ILLEGAL FILE NAME                                IO          1718     A     
 IO                 SX7    X0-1RZ                                                          IO          1719     A     
 IO                 =X7    X7-1                                                            IO          1720     A     
 IO                 PL     X7,EXIT.    IF ILLEGAL FILE NAME                                IO          1721     A     
 IO                 MX0    7*CHAR                                                          IO          1722     A     
 IO                 BX0    -X0*X6                                                          IO          1723     A     
 IO                 SB7    E.IO32      ** FILE NAME GT 7 CHARS                             IO          1724     A     
 IO                 NZ     X0,EXIT.    IF FILE NAME GT 7 CHARS                             IO          1725     A     
 IO                 =B7    0                                                               IO          1726     A     
 IO                 EQ     EXIT.                                                           IO          1727     A     
 IO                 TITLE  PARSER INTERFACE ROUTINES.                                      IO          1728     A     
 IO        A=BMOD   SPACE  4,10                                                            IO          1729     A     
 IO       **        A=BMOD - CHECK BUFFER IN/OUT MODE DESIGNATOR.                          IO          1730     A     
 IO       *                                                                                IO          1731     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          1732     A     
 IO       *                                                                                IO          1733     A     
 IO       *         CALLS  LCT, OCT                                                        IO          1734     A     
 IO                                                                                        IO          1735     A     
 IO                                                                                        IO          1736     A     
 IO        A=BMOD   BSSENT 0           ENTRY...                                            IO          1737     A     
 IO                 BX1    X5                                                              IO          1738     A     
 IO                 CALL   LCT         TEST FOR CONSTANT                                   IO          1739     A     
 IO                 SB3    X0-M.INT                                                        IO          1740     A     
 IO                 NZ     B3,E.IOB2   IF NOT INTEGER                                      IO          1741     A     
 IO                 ZR     B2,BMOD1    IF NOT CONSTANT                                     IO          1742     A     
 IO                 ZR     X6,BMOD1    IF CONSTANT *0*                                     IO          1743     A     
 IO                 =X0    1                                                               IO          1744     A     
 IO                 IX6    X6-X0                                                           IO          1745     A     
 IO                 ZR     X6,BMOD1    IF CONSTANT *1*                                     IO          1746     A     
 IO                 EQ     E.IOB8                                                          IO          1747     A     
 IO                                                                                        IO          1748     A     
 IO        BMOD1    LX0    X5                                                              IO          1749     A     
 IO                 SBIT   X0,TP.INTRP                                                     IO          1750     A     
 IO                 MI     X0,E.IOB2   IF EXPRESSION                                       IO          1751     A     
 IO                 SX4    IC.MOD                                                          IO          1752     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1753     A     
 IO                 EQ     PAREXIT                                                         IO          1754     A     
 IO        A=BLWA   SPACE  4,10                                                            IO          1755     A     
 IO       **        A=BLWA - CHECK BUFFER IN/OUT LAST WORD ADDRESS.                        IO          1756     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                                                                                IO          1757     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          1758     A     
 IO       *                                                                                IO          1759     A     
 IO       *         CALLS  OCT, VAI                                                        IO          1760     A     
 IO                                                                                        IO          1761     A     
 IO                                                                                        IO          1762     A     
 IO        A=BLWA   BSSENT 0           ENTRY...                                            IO          1763     A     
 IO                 SA4    IODIR                                                           IO          1764     A     
 IO                 SB3    E.IOB7      ** BUFFER ADDRESS CANNOT BE CONST/EXPR              IO          1765     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          1766     A     
 IO                 MI     B3,BUFERR   IF NOT ADDRESSABLE                                  IO          1767     A     
 IO                 SB2    X0-M.CHAR                                                       IO          1768     A     
 IO                 ZR     B2,E.IOB0   IF TYPE CHARACTER                                   IO          1769     A     
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORMAT                         FC50557        6     A     
 IO                 SB3    X0-M.DBL                                                        IO          1770     A     
 IO                 BX7    X5                                                              IO          1771     A     
 IO                 LX2    X5                                                              IO          1772     A     
 IO                 SA7    IOBLWA                                                          IO          1773     A     
 IO                 SA3    T.PAR                                                           IO          1774     A     
 IO                 HX7    TP.BIAS                                                         IO          1775     A     
 IO                 AX7    -TP.BIASL   POSITION FOR LATER USE                              IO          1776     A     
 IO                 CLAS=  X0,TP,(INTR)                                                    IO          1777     A     
 IO                 BX0    X0*X2                                                           IO          1778     A     
 IO                 LX2    -TP.ORDP                                                        IO          1779     A     
 IO                 ZR     X0,BLWA3    IF NOT ARRAY LOAD                                   IO          1780     A     
 IO                 MX0    -TP.ORDL                                                        IO          1781     A     
 IO                 BX2    -X0*X2      ISOLATE ORDINAL (T.PAR)                             IO          1782     A     
 IO                 =B2    X2+OR.1OP                                                       IO          1783     A     
 IO                 SA2    X3+B2       FETCH ARRAY OPERAND                                 IO          1784     A     
 IO                 BX0    X2                                                              IO          1785     A     
 IO                 LX2    -TP.ORDP                                                        IO          1786     A     
 IO                 MI     B3,BLWA4    IF NOT DOUBLE OR COMPLEX                            IO          1787     A     
 IO                 HX0    TP.BIAS                                                         IO          1788     A     
 IO                 AX0    -TP.BIASL   EXTRACT (SIGN EXTEND) BIAS                          IO          1789     A     
 IO                 =X1    1                                                               IO          1790     A     
 IO                 IX0    X0+X1       INCREMENT FOR DOUBLE WORD ELEMENT                   IO          1791     A     
 IO                 BX1    X2                                                              IO          1792     A     
 IO                 LX1    TP.ORDP                                                         IO          1793     A     
 IO                 MX7    -TP.BIASL                                                       IO          1794     A     
 IO                 BX0    -X7*X0      EXTRACT NEW BIAS                                    IO          1795     A     
 IO                 LX0    TP.BIASP                                                        IO          1796     A     
 IO                 LX7    TP.BIASP                                                        IO          1797     A     
 IO                 BX1    X7*X1       REMOVE OLD BIAS                                     IO          1798     A     
 IO                 BX7    X1+X0       INSERT NEW BIAS                                     IO          1799     A     
 IO                 SA7    A2          UPDATE PARSE FILE                                   IO          1800     A     
 IO                 EQ     BLWA4                                                           IO          1801     A     
 IO                                                                                        IO          1802     A     
 IO        BLWA3    MI     B3,BLWA4    IF NOT DOUBLE OR COMPLEX                            IO          1803     A     
 IO                 =X1    1                                                               IO          1804     A     
 IO                 LX1    TP.BIASP                                                        IO          1805     A     
 IO                 IX5    X5+X1       INCREMENT FOR DOUBLE WORD ITEM                      IO          1806     A     
 IO                 BX7    X5                                                              IO          1807     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA7    IOBLWA                                                          IO          1808     A     
 IO                                                                                        IO          1809     A     
 IO        BLWA4    SA1    IOBFWA                                                          IO          1810     A     
 IO                 BX6    X1                                                              IO          1811     A     
 IO                 HX6    TP.BIAS     LEFT JUSTIFY BIAS                                   IO          1812     A     
 IO                 AX6    -TP.BIASL   POSITION FOR LATER USE                              IO          1813     A     
 IO                 LX4    X1          FWA (ACTUAL OPERAND)                                IO          1814     A     
 IO                 CLAS=  X0,TP,(INTR)                                                    IO          1815     A     
 IO                 BX0    X0*X1                                                           IO          1816     A     
 IO                 LX1    -TP.ORDP                                                        IO          1817     A     
 IO                 ZR     X0,BLWA5    IF NOT ARRAY LOAD                                   IO          1818     A     
 IO                 MX0    -TP.ORDL                                                        IO          1819     A     
 IO                 BX1    -X0*X1      ISOLATE ORDINAL (T.PAR)                             IO          1820     A     
 IO                 =B2    X1+OR.1OP                                                       IO          1821     A     
 IO                 SA1    X3+B2       FETCH ARRAY OPERAND                                 IO          1822     A     
 IO                 LX1    -TP.ORDP                                                        IO          1823     A     
 IO                                                                                        FC50557        7     A     
 IO        BLWA5    MX3    -TP.ORDL                                                        IO          1824     A     
 IO                 BX0    -X3*X2                                                          IO          1825     A     
 IO                 BX3    -X3*X1                                                          IO          1826     A     
 IO                 SB3    X0          SET (B3) = SYMORD OF LWA                            IO          1827     A     
 IO                 SB2    X3          SET (B2) = SYMORD OF FWA                            IO          1828     A     
 IO                 BX3    X4+X5                                                           IO          1829     A     
 IO                 HX3    TP.INTR                                                         IO          1830     A     
 IO                 NE     B2,B3,BLWA10      IF NOT SAME SYMBOL                            IO          1831     A     
 IO                 MI     X3,BLWA30   IF EITHER SUBSCRIPT NON-CONSTANT                    IO          1832     A     
 IO                 EQ     BLWA28                                                          IO          1833     A     
 IO                                                                                        IO          1834     A     
 IO       *         TEST FOR FWA AND LWA BOTH FORMAL PARAMETERS.                           IO          1835     A     
 IO       *                (X4) = OPERAND FOR FWA (TP. FORMAT)                             IO          1836     A     
 IO       *                (X5) = OPERAND FOR LWA (TP. FORMAT)                             IO          1837     A     
 IO                                                                                        IO          1838     A     
 IO        BLWA10   BX0    X4-X5                                                           IO          1839     A     
 IO                 HX0    TP.FP                                                           IO          1840     A     
 IO                 MI     X0,E.IOB9   IF ONLY ONE IS A FORMAL PARAMETER                   IO          1841     A     
 IO                 BX3    X4+X5                                                           IO          1842     A     
 IO                 HX3    TP.FP                                                           IO          1843     A     
 IO                 MI     X3,BLWA30   IF BOTH ARE FORMAL PARAMETERS                       IO          1844     A     
 IO                                                                                        IO          1845     A     
 IO       *         TEST FOR FWA AND LWA IN SAME COMMON BLOCK                              IO          1846     A     
 IO       *                (B2) = SYMORD OF FWA                                            IO          1847     A     
 IO       *                (B3) = SYMORD OF LWA                                            IO          1848     A     
 IO                                                                                        IO          1849     A     
 IO                 SA3    T.SYM                                                           IO          1850     A     
 IO                 SX1    B2+B2                                                           IO          1851     A     
 IO                 SX2    B3+B3                                                           IO          1852     A     
 IO                 =X3    X3+WB.W                                                         IO          1853     A     
 IO                 SB2    B2+X1       (B2) = INDEX OF FWA                                 IO          1854     A     
 IO                 SB3    B3+X2       (B3) = INDEX OF LWA                                 IO          1855     A     
 IO                 ERRNZ  3-Z=SYM                                                         IO          1856     A     
 IO                 SA1    X3+B2       (X1) = SYMTAB ENTRY OF FWA                          IO          1857     A     
 IO                 SA2    X3+B3       (X2) = SYMTAB ENTRY OF LWA                          IO          1858     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX0    X1-X2                                                           IO          1859     A     
 IO                 BX3    X1+X2                                                           IO          1860     A     
 IO                 SBIT   X0,WB.COMP                                                      IO          1861     A     
 IO                 SBIT   X3,WB.COMP                                                      IO          1862     A     
 IO                 MI     X0,E.IOB9   IF ONLY ONE IN COMMON                               IO          1863     A     
 IO                 PL     X3,BLWA20   IF NEITHER IN COMMON                                IO          1864     A     
 IO                 =A1    A1-WB.W+WC.W                                                    IO          1865     A     
 IO                 =A2    A2-WB.W+WC.W                                                    IO          1866     A     
 IO                 MX0    -WC.RBL                                                         IO          1867     A     
 IO                 BX3    X1-X2       COMPARE BLOCK NUMBERS                               IO          1868     A     
 IO                 LX0    WC.RBP                                                          IO          1869     A     
 IO                 BX0    -X0*X3                                                          IO          1870     A     
 IO                 ZR     X0,BLWA26   IF IN SAME COMMON BLOCK                             IO          1871     A     
 IO                                                                                        IO          1872     A     
 IO       *         TEST FOR FWA AND LWA IN SAME EQUIVALENCE CLASS.                        IO          1873     A     
 IO       *                (X1) = SYMTAB WORD WB OF FWA                                    IO          1874     A     
 IO       *                (X2) = SYMTAB WORD WB OF LWA                                    IO          1875     A     
 IO                                                                                        IO          1876     A     
 IO        BLWA20   BX3    X1*X2                                                           IO          1877     A     
 IO                 SBIT   X3,WB.EQVP                                                      IO          1878     A     
 IO                 PL     X3,E.IOB9   IF BOTH NOT EQUIVALENCED                            IO          1879     A     
 IO                 HX1    WB.BASE                                                         IO          1880     A     
 IO                 HX2    WB.BASE                                                         IO          1881     A     
 IO                 AX1    -WB.BASEL   ISOLATE BASE MEMBER                                 IO          1882     A     
 IO                 AX2    -WB.BASEL   ISOLATE BASE MEMBER                                 IO          1883     A     
 IO                 IX0    X1-X2                                                           IO          1884     A     
 IO                 NZ     X0,E.IOB9   IF NOT IN SAME EQUIVALENCE CLASS                    IO          1885     A     
 IO                 =A1    A1-WB.W+WC.W                                                    IO          1886     A     
 IO                 =A2    A2-WB.W+WC.W                                                    IO          1887     A     
 IO                                                                                        IO          1888     A     
 IO                                                                                        IO          1889     A     
 IO       *         FWA AND LWA ARE NOW KNOWN TO BE IN SAME STORAGE BLOCK (COMMON          IO          1890     A     
 IO       *         OR LOCAL-EQUIVALENCED).  IF SUBSCRIPTS ARE CONSTANT, CHECK             IO          1891     A     
 IO       *         THAT(FWA .LE. LWA).                                                    IO          1892     A     
 IO       *                (X1) = SYMTAB WORD WC OF FWA                                    IO          1893     A     
 IO       *                (X2) = SYMTAB WORD WC OF LWA                                    IO          1894     A     
 IO                                                                                        IO          1895     A     
 IO        BLWA26   BX3    X4+X5                                                           IO          1896     A     
 IO                 HX3    TP.INTR                                                         IO          1897     A     
 IO                 MI     X3,BLWA30   IF EITHER SUBSCRIPT NON-CONSTANT                    IO          1898     A     
 IO                 MX3    -WC.RAL                                                         IO          1899     A     
 IO                 LX1    -WC.RAP                                                         IO          1900     A     
 IO                 LX2    -WC.RAP                                                         IO          1901     A     
 IO                 BX1    -X3*X1      RELATIVE BIAS OF FWA                                IO          1902     A     
 IO                 BX2    -X3*X2      RELATIVE BIAS OF LWA                                IO          1903     A     
 IO                 IX6    X1+X6       TOTAL BIAS OF FWA                                   IO          1904     A     
 IO                 IX7    X2+X7       TOTAL BIAS OF LWA                                   IO          1905     A     
 IO                                                                                        IO          1906     A     
 IO        BLWA28   IX0    X7-X6                                                           IO          1907     A     
 IO                 MI     X0,E.IOB6   IF LWA .LT. FWA                                     IO          1908     A     
 IO                                                                                        IO          1909     A     
 IO        BLWA     BSSENT 0           ...DIAGNOSTIC RETURN                                IO          1910     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO          1911     A     
 IO        BLWA30   SX4    IC.BUF                                                          IO          1912     A     
 IO                 SA5    IOBLWA                                                          IO          1913     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1914     A     
 IO                 EQ     PAREXIT                                                         IO          1915     A     
 IO        C=BFWA   SPACE  4,10                                                            IO          1916     A     
 IO       **        C=BFWA - CHECK BUFFER IN/OUT FIRST WORD ADDRESS.                       IO          1917     A     
 IO       *                                                                                IO          1918     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          1919     A     
 IO       *                (IOBFWA) = BUFFER I/O FIRST WORD ADDRESS                        IO          1920     A     
 IO       *                                                                                IO          1921     A     
 IO       *         CALLS  OCT, VAI                                                        IO          1922     A     
 IO                                                                                        IO          1923     A     
 IO                                                                                        IO          1924     A     
 IO        C=BFWA   BSSENT 0           ENTRY...                                            IO          1925     A     
 IO                 SA4    IODIR                                                           IO          1926     A     
 IO                 SB3    E.IOB7      ** BUFFER ADDRESS CANNOT BE CONST/EXPR              IO          1927     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          1928     A     
 IO                 MI     B3,BUFERR   IF NOT ADDRESSABLE                                  IO          1929     A     
 IO                 SB2    X0-M.CHAR                                                       IO          1930     A     
 IO                 ZR     B2,E.IOB0   IF TYPE CHARACTER                                   IO          1931     A     
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORMAT                         FC50557        8     A     
 IO                 SX4    IC.BUF                                                          IO          1932     A     
 IO                 LX6    X5                                                              IO          1933     A     
 IO                 SA6    IOBFWA                                                          IO          1934     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1935     A     
 IO                 EQ     PAREXIT                                                         IO          1936     A     
 IO        C=CNT    SPACE  4,10                                                            IO          1937     A     
 IO       **        C=CNT - CHECK XXCODE *COUNT* INDICATOR.                                IO          1938     A     
 IO       *                                                                                IO          1939     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          1940     A     
 IO       *                                                                                IO          1941     A     
 IO       *         CALLS  OCT                                                             IO          1942     A     
 IO                                                                                        IO          1943     A     
 IO                                                                                        IO          1944     A     
 IO        C=CNT    BSSENT 0           ENTRY...                                            IO          1945     A     
 IO                 BX0    X5                                                              IO          1946     A     
 IO                 SBIT   X0,TP.INTRP                                                     IO          1947     A     
 IO                 MI     X0,E.IOS9   IF EXPRESSION                                       IO          1948     A     
 IO                 MX0    -TP.MODEL                                                       IO          1949     A     
 IO                 BX0    -X0*X5      EXTRACT MODE                                        IO          1950     A     
 IO                 ZR     X0,CNT1     IF BOOLEAN, OKAY                                    IO          1951     A     
 IO                 SX0    X0-M.INT                                                        IO          1952     A     
 IO                 NZ     X0,E.IOS9   IF NOT INTEGER                                      IO          1953     A     
 IO        CNT1     SX4    IC.CNT                                                          IO          1954     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1955     A     
 IO                 EQ     PAREXIT                                                         IO          1956     A     
 IO        C=FMT    SPACE  4,10                                                            IO          1957     A     
 IO       **        C=FMT - CHECK FORMAT VALIDITY.                                         IO          1958     A     
 IO       *                                                                                IO          1959     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          1960     A     
 IO       *                                                                                IO          1961     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         CALLS  LCH, OCT                                                        IO          1962     A     
 IO                                                                                        IO          1963     A     
 IO                                                                                        IO          1964     A     
 IO        A=FMT    BSSENT 0           ENTRY...                                            IO          1965     A     
 IO                 =B4    B4-1        AJUST FOR FURTHER PROCESSING                        IO          1966     A     
 IO        C=FMT    BSSENT 0           ENTRY...                                            IO          1967     A     
 IO                 LX1    X5                                                              IO          1968     A     
 IO                 CALL   LCH         TEST FOR CONSTANT                                   IO          1969     A     
 IO                 SX4    IC.FMT                                                          IO          1970     A     
 IO                 SB3    X0-M.CHAR                                                       IO          1971     A     
 IO                 ZR     B3,FMT2     IF TYPE CHARACTER                                   IO          1972          I
          -FC5A171A 
 IO                 NZ     B3,FMT10    IF NOT TYPE CHARACTER                               FC5A171A     290     A     
 IO                 BX1    X5                                                              FC5A171A     291     A     
 IO                 SBIT   X1,TP.AREP                                                      FC5A252        5     A     
 IO                 MI     X1,FMT30    IF ENTIRE ARRAY                                     FC5A252        6     A     
 IO                 LX1    TP.AREL+TP.AREP                                                 FC5A252        7     A     
 IO                 CALL   GOL                                                             FC5A171A     292     A     
 IO                 =A5    B6-1        RESTORE X5                                          FC5A171A     293     A     
 IO                 SX4    IC.FMT      RESTORE X4                                          FC5A171A     294     A     
 IO                 SX6    X7-2                                                            FC5A171A     295     A     
 IO                 BX6    -X6+X7                                                          FC5A171A     296     A     
 IO                 MI     X6,FMT30    IF LENGTH IS OKAY                                   FC5A171A     297     A     
 IO                 FATAL  E.IO36      ** LENGTH OF FORMAT MUST BE GREATER THAN 1          FC5A171A     298     A     
 IO                 EQ     FMT30                                                           FC5A171A     299     A     
 IO                                                                                        FC5A171A     300     A     
 IO        FMT10    SA1    PFNPFE                                                          FC5A171A     301     A     
 IO                 ZR     X1,E.IOF    IF NON-CHAR PARENTHESIZED EXPR                      FC5A171A     302     A     
 IO                 NZ     B2,E.IOF    IF NON CHARACTER CONSTANT                           IO          1973     A     
 IO                 BX1    X5                                                              IO          1974     A     
 IO                 SBIT   X1,TP.INTRP                                                     IO          1975     A     
 IO                 MI     X1,E.IOF    IF NON CHARACTER EXPRESSION                         IO          1976     A     
 IO                 SBIT   X1,TP.ARRP/TP.INTRP                                             IO          1977     A     
 IO                 PL     X1,FMT1     IF NOT ARRAY                                        IO          1978          I
          -FC5A171A 
 IO                 PL     X1,FMT20    IF NOT ARRAY                                        FC5A171A     303     A     
 IO                 ANSI   E.IOF1      NON CHARACTER ARRAYS ARE NON ANSI                   IO          1979          I
          -FC50011
 IO                 SBIT   X1,TP.AREP/TP.ARRP                                              FC50011        5     A     
 IO                 PL     X1,E.IOF    IF ARRAY ELEMENT (A(1)) REFERENCE                   FC50011        6     A     
 IO                 ANSI   E.IOF1      NON CHAR ARRAY FMT NON-ANSI                         FC50011        7     A     
 IO                 EQ     FMT2                                                            IO          1980          I
          -FC5A171A 
 IO                 EQ     FMT30                                                           FC5A171A     304     A     
 IO                                                                                        IO          1981     A     
 IO        FMT1     SB2    X0-M.INT                                                        IO          1982          I
          -FC5A171A 
 IO        FMT20    SB2    X0-M.INT                                                        FC5A171A     305     A     
 IO                 NZ     B2,E.IOF2   IF NOT INTEGER                                      IO          1983     A     
 IO                 SX4    IC.FMTA                                                         IO          1984     A     
 IO                                                                                        IO          1985     A     
 IO        FMT2     RJ     OCT         OUTPUT CONTROL TURPLE                               IO          1986          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC5A171A 
 IO        FMT30    RJ     OCT         OUTPUT CONTROL TURPLE                               FC5A171A     306     A     
 IO                 EQ     PAREXIT                                                         IO          1987     A     
 IO        A=FOU    SPACE  4,10                                                            FC5A171A     307     A     
 IO       **        A=FOU - DETERMINE WHETHER EXPRESSION JUST PARSED IS                    FC5A171A     308     A     
 IO       **                A FORMAT OR A UNIT DESIGNATOR.                                 FC5A171A     309     A     
 IO       *                                                                                FC5A171A     310     A     
 IO       *         ENTRY  (X5) = TP. OPERAND FOR EXPRESSION.                              FC5A171A     311     A     
 IO       *                                                                                FC5A171A     312     A     
 IO       *         EXIT   TO *A=FMT* IF EXPRESSION IS TYPE CHARACTER.                     FC5A171A     313     A     
 IO       *                TO *A=UNT* OTHERWISE.                                           FC5A171A     314     A     
 IO       *                                                                                FC5A171A     315     A     
 IO       *         USES   X - 1.                                                          FC5A171A     316     A     
 IO                                                                                        FC5A171A     317     A     
 IO                                                                                        FC5A171A     318     A     
 IO        C=FOU    BSSENT 0                                                               FC5A171A     319     A     
 IO                 IFEQ   TEST,ON,1                                                       FC5A171A     320     A     
 IO                 EQ     "BLOWUP"    *FOUARM* IMPLIES NO ZERO LEVEL COMMAS               FC5A171A     321     A     
 IO                                                                                        FC5A171A     322     A     
 IO        A=FOU    BSSENT 0           ENTRY...                                            FC5A171A     323     A     
 IO                 MX1    -TP.MODEL                                                       FC5A171A     324     A     
 IO                 LX5    -TP.MODEP                                                       FC5A171A     325     A     
 IO                 BX1    -X1*X5      EXTRACT MODE OF EXPRESSION                          FC5A171A     326     A     
 IO                 LX5    TP.MODEP                                                        FC5A171A     327     A     
 IO                 SX1    X1-M.CHAR                                                       FC5A171A     328     A     
 IO                 NZ     X1,A=UNT    IF EXPRESSION MUST BE A UNIT DESIGNATOR             FC5A171A     329     A     
 IO                 SHRINK T=IOARG                                                         FC5A171A     330     A     
 IO                 SA5    PECB                                                            FC5A171A     331     A     
 IO                 BX6    X5                                                              FC5A171A     332     A     
 IO                 =X7    M.BOOL                                                          FC5A171A     333     A     
 IO                 CALL   NCS         ENTER DEFAULT UNIT DESIGNATOR IN CON TABLE          FC5A171A     334     A     
 IO                 SA5    CONONE                                                          FC5A171A     335     A     
 IO                 BX4    X6                                                              FC5A171A     336     A     
 IO                 EMIT   IOUNT,*,T.IOARG                                                 FC5A171A     337     A     
 IO                 ERRNZ  M.BOOL      MUST MERGE MODE INTO HEADER                         FC5A171A     338     A     
 IO                 =A5    B6-1        RESTORE X5                                          FC5A171A     339     A     
 IO                 =A4    A5-1        RESTORE X4                                          FC5A171A     340     A     
 IO                 EQ     A=FMT       EXPRESSION MUST BE A FORMAT DESIGNATOR              FC5A171A     341     A     
 IO        C=ICC    SPACE  4,10                                                            IO          1988     A     
 IO       **        C=ICC - CHECK I/O CONTROL CHARACTER VARIABLE                           IO          1989     A     
 IO       *         USED BY - ACCESS=       (FROM INQUIRE)                                 IO          1990     A     
 IO       *                   BLANK=        (FROM INQUIRE)                                 IO          1991     A     
 IO       *                   DIRECT=                                                      IO          1992     A     
 IO       *                   FORM=         (FROM INQUIRE)                                 IO          1993     A     
 IO       *                   FORMATTED=                                                   IO          1994     A     
 IO       *                   NAME=                                                        IO          1995     A     
 IO       *                   SEQUENTIAL=                                                  IO          1996     A     
 IO       *                   UNFORMATTED=                                                 IO          1997     A     
 IO       *                                                                                IO          1998     A     
 IO       *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                           IO          1999     A     
 IO       *                                                                                IO          2000     A     
 IO       *         CALLS  KWE, VAI                                                        IO          2001     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO          2002     A     
 IO                                                                                        IO          2003     A     
 IO        A=ICC    BSSENT 0                                                               IO          2004     A     
 IO                 SB4    B4-1                                                            IO          2005     A     
 IO                                                                                        FC50596        4     A     
 IO        C=ICC    BSSENT 0                                                               IO          2006     A     
 IO                 RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC                 IO          2007     A     
 IO                 MX4    0           INDICATE DEFINITIONAL OCCURRANCE                    IO          2008     A     
 IO                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR                   IO          2009     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          2010     A     
 IO                 SB2    X0-M.CHAR                                                       IO          2011     A     
 IO                 ZR     B2,PAREXIT  IF CHARACTER                                        IO          2012     A     
 IO                 SA1    MOD.DPC+M.CHAR                                                  IO          2013     A     
 IO                 LX6    X1                                                              IO          2014     A     
 IO                 SA6    FILL.3                                                          IO          2015     A     
 IO                 FATAL  E.IO05                                                          IO          2016     A     
 IO                 EQ     PAREXIT                                                         IO          2017     A     
 IO        C=ICCX   SPACE  4,10                                                            IO          2018     A     
 IO       **        C=ICCX - CHECK I/O CONTROL CHARACTER EXPRESSION                        IO          2019     A     
 IO       *         USED BY - ACCESS=  (FROM OPEN)                                         IO          2020     A     
 IO       *                   BLANK=   (FROM OPEN)                                         IO          2021     A     
 IO       *                   FILE=                                                        IO          2022     A     
 IO       *                   FORM=    (FROM OPEN)                                         IO          2023     A     
 IO       *                   STATUS=                                                      IO          2024     A     
 IO       *                                                                                IO          2025     A     
 IO       *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                           IO          2026     A     
 IO                                                                                        IO          2027     A     
 IO                                                                                        IO          2028     A     
 IO        A=ICCX   BSSENT 0                                                               IO          2029     A     
 IO                 SB4    B4-1                                                            IO          2030     A     
 IO                                                                                        FC50596        5     A     
 IO        C=ICCX   BSSENT 0                                                               IO          2031     A     
 IO                 MX0    -TP.MODEL                                                       IO          2032     A     
 IO                 LX5    -TP.MODEP                                                       IO          2033     A     
 IO                 BX0    -X0*X5      EXTRACT MODE                                        IO          2034     A     
 IO                 LX5    TP.MODEP                                                        IO          2035     A     
 IO                 SB7    X0-M.CHAR                                                       IO          2036     A     
 IO                 ZR     B7,PAREXIT  IF TYPE CHARACTER                                   IO          2037     A     
 IO                 RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC                 IO          2038     A     
 IO                 SA1    MOD.DPC+M.CHAR                                                  IO          2039     A     
 IO                 BX6    X1                                                              IO          2040     A     
 IO                 SA6    FILL.3                                                          IO          2041     A     
 IO                 FATAL  E.IO05                                                          IO          2042     A     
 IO                 EQ     PAREXIT                                                         IO          2043     A     
 IO        C=ICI    SPACE  4,10                                                            IO          2044     A     
 IO       **        C=ICI - CHECK I/O CONTROL INTEGER VARIABLE                             IO          2045     A     
 IO       *         USED BY - IOSTAT=                                                      IO          2046     A     
 IO       *                   NEXTREC=                                                     IO          2047     A     
 IO       *                   NUMBER=                                                      IO          2048     A     
 IO       *                   RECL=     (FROM INQUIRE)                                     IO          2049     A     
 IO       *                                                                                IO          2050     A     
 IO       *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                           IO          2051     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                                                                                IO          2052     A     
 IO       *         CALLS  KWE, VAI                                                        IO          2053     A     
 IO                                                                                        IO          2054     A     
 IO                                                                                        IO          2055     A     
 IO        A=ICI    BSSENT 0                                                               IO          2056     A     
 IO                 SB4    B4-1                                                            IO          2057     A     
 IO                                                                                        FC50596        6     A     
 IO        C=ICI    BSSENT 0                                                               IO          2058     A     
 IO                 RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC                 IO          2059     A     
 IO                 MX4    0           INDICATE DEFINITIONAL OCCURRANCE                    IO          2060     A     
 IO                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR                   IO          2061     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          2062     A     
 IO                 SB2    X0-M.INT                                                        IO          2063     A     
 IO                 ZR     X0,PAREXIT  IF BOOLEAN                                          IO          2064     A     
 IO                 ERRNZ  M.BOOL                                                          IO          2065     A     
 IO                 ZR     B2,PAREXIT  IF INTEGER                                          IO          2066     A     
 IO                 SA1    MOD.DPC+M.INT                                                   IO          2067     A     
 IO                 LX6    X1                                                              IO          2068     A     
 IO                 SA6    FILL.3                                                          IO          2069     A     
 IO                 FATAL  E.IO05                                                          IO          2070     A     
 IO                 EQ     PAREXIT                                                         IO          2071     A     
 IO        C=ICIX   SPACE  4,10                                                            IO          2072     A     
 IO       **        C=ICIX - I/O CONTROL POSITIVE INTEGER EXPRESSION                       IO          2073     A     
 IO       *         USED BY - BUFL=                                                        IO          2074     A     
 IO       *                   REC=                                                         IO          2075     A     
 IO       *                   RECL=  (FROM OPEN)                                           IO          2076     A     
 IO       *                                                                                IO          2077     A     
 IO       *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                           IO          2078     A     
 IO       *                                                                                IO          2079     A     
 IO       *         CALLS  KWE, LCH                                                        IO          2080     A     
 IO                                                                                        IO          2081     A     
 IO                                                                                        IO          2082     A     
 IO        A=ICIX   BSSENT 0                                                               IO          2083     A     
 IO                 SB4    B4-1                                                            IO          2084     A     
 IO                                                                                        FC50596        7     A     
 IO        C=ICIX   BSSENT 0                                                               IO          2085     A     
 IO                 RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC                 IO          2086     A     
 IO                 LX1    X5                                                              IO          2087     A     
 IO                 CALL   LCH         LOAD CONSTANT TEST                                  IO          2088     A     
 IO                 ZR     X0,ICIX1    IF BOOLEAN                                          IO          2089     A     
 IO                 ERRNZ  M.BOOL                                                          IO          2090     A     
 IO                 SB7    X0-M.INT                                                        IO          2091     A     
 IO                 NZ     B7,E.IO17   IF NOT INTEGER (OR BOOLEAN)                         IO          2092     A     
 IO                                                                                        FC50596        8     A     
 IO        ICIX1    ZR     B2,PAREXIT  IF NOT CONSTANT                                     IO          2093     A     
 IO                 ZR     X6,E.IO17   IF ZERO, ERROR                                      IO          2094          I
          -FC50596
 IO                 MI     X6,E.IO17   IF NEGATIVE, ERROR                                  IO          2095     A     
 IO                 EQ     PAREXIT                                                         IO          2096          I
          -FC50596
 IO                 NZ     X6,PAREXIT  IF NOT ZERO                                         FC50596        9     A     
 IO                 SA1    FILL.                                                           FC50596       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA2    =4LBUFL                                                         FC50596       11     A     
 IO                 IX2    X1-X2                                                           FC50596       12     A     
 IO                 ZR     X2,PAREXIT  IF BUFL, BUFL=0 OKAY                                FC50596       13     A     
 IO                 EQ     E.IO17      REC=0 AND RECL=0 NOT OKAY                           FC50596       14     A     
 IO        C=ICL    SPACE  4,10                                                            IO          2097     A     
 IO       **        C=ICL - CHECK I/O CONTROL LOGICAL VARIABLE                             IO          2098     A     
 IO       *         USED BY - EXIST=                                                       IO          2099     A     
 IO       *                   NAMED=                                                       IO          2100     A     
 IO       *                   OPENED=                                                      IO          2101     A     
 IO       *                                                                                IO          2102     A     
 IO       *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                           IO          2103     A     
 IO       *                                                                                IO          2104     A     
 IO       *         CALLS  KWE, VAI                                                        IO          2105     A     
 IO                                                                                        IO          2106     A     
 IO                                                                                        IO          2107     A     
 IO        A=ICL    BSSENT 0                                                               IO          2108     A     
 IO                 SB4    B4-1                                                            IO          2109     A     
 IO                                                                                        FC50596       15     A     
 IO        C=ICL    BSSENT 0                                                               IO          2110     A     
 IO                 RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC                 IO          2111     A     
 IO                 MX4    0           INDICATE DEFINITIONAL OCCURRANCE                    IO          2112     A     
 IO                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR                   IO          2113     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          2114     A     
 IO                 SB2    X0-M.LOG                                                        IO          2115     A     
 IO                 ZR     B2,PAREXIT  IF LOGICAL                                          IO          2116     A     
 IO                 SA1    MOD.DPC+M.LOG                                                   IO          2117     A     
 IO                 LX6    X1                                                              IO          2118     A     
 IO                 SA6    FILL.3                                                          IO          2119     A     
 IO                 FATAL  E.IO05                                                          IO          2120     A     
 IO                 EQ     PAREXIT                                                         IO          2121     A     
 IO        C=IOL    EJECT                                                                  IO          2122     A     
 IO       **        C=IOL - MAKE I/O AP-LIST ENTRIES.                                      IO          2123     A     
 IO       *                                                                                IO          2124     A     
 IO       *         EXIT   TO IOL.RTN                                                      IO          2125     A     
 IO       *                                                                                IO          2126     A     
 IO       *         CALLS  EMT, LCH, TPC, VAI                                              IO          2127     A     
 IO                                                                                        IO          2128     A     
 IO                                                                                        IO          2129     A     
 IO        C=IOL    BSSENT 0           ENTRY...                                            IO          2130     A     
 IO                 RJ     PAX         PREPARE ARRAY CROSS-SECTION                         FC5A218       53     A     
 IO                 CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION                IO          2131     A     
 IO                 SA4    IODIR                                                           IO          2132          I
          -FC5A218
 IO                 NZ     X4,IOL05    IF OUTPUT DIRECTION                                 IO          2133          I
          -FC5A218
 IO                 SB3    E.IOL2      ** CONSTANT/EXPRESSION IN INPUT LIST                IO          2134          I
          -FC5A218
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          2135          I
          -FC5A218
 IO        IOL05    BX1    X5                                                              IO          2136          I
          -FC5A218
 IO                 BX1    X5                                                              FC5A218       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 CALL   LCH         LOAD CONSTANT TEST                                  IO          2137     A     
 IO                 LX0    X5                                                              IO          2138     A     
 IO                 BX4    X5                                                              IO          2139     A     
 IO                 HX0    TP.EXPR                                                         IO          2140     A     
 IO                 SA5    CONONE                                                          IO          2141     A     
 IO                 MI     X0,IOL30    IF ITEM IS EXPRESSION                               IO          2142     A     
 IO                 NZ     B2,IOL30    IF ITEM IS A CONSTANT                               IO          2143     A     
 IO                 LX0    TP.EXPRP-TP.INTRP                                               IO          2144     A     
 IO                 PL     X0,IOL10    IF ITEM NOT INTERMEDIATE                            IO          2145     A     
 IO                 LX0    TP.INTRP-TP.ARRP                                                IO          2146     A     
 IO                 PL     X0,IOL30    IF ITEM NOT SUBSCRIPTED ARRAY                       IO          2147     A     
 IO                 SA3    IODOIND                                                         IO          2148     A     
 IO                 ZR     X3,IOL30    IF I/O DO COLLAPSE NOT INVOLVED                     IO          2149     A     
 IO                 HX3    TP.BIAS                                                         IO          2150          I
          -FC50084
 IO                 AX3    -TP.BIASL   ISOLATE OFFSET                                      IO          2151          I
          -FC50084
 IO                 ZR     X3,IOL1     IF NO OFFSET TO ADD TO BIAS                         IO          2152          I
          -FC50084
 IO                 SA1    T.PAR                                                           IO          2153          I
          -FC50084
 IO                 LX2    X4                                                              IO          2154          I
          -FC50084
 IO                 HX2    TP.ORD                                                          IO          2155          I
          -FC50084
 IO                 AX2    -TP.ORDL    ISOLATE INTERMEDIATE POINTER                        IO          2156          I
          -FC50084
 IO                 =B2    X2+OR.1OP   THE ARRAY OPERAND                                   IO          2157          I
          -FC50084
 IO                 SA1    X1+B2       FETCH ARRAY-LOAD ARRAY OPERAND                      IO          2158          I
          -FC50084
 IO                 MX0    TP.BIASL                                                        IO          2159          I
          -FC50084
 IO                 LX2    X1                                                              IO          2160          I
          -FC50084
 IO                 HX1    TP.BIAS                                                         IO          2161          I
          -FC50084
 IO                 AX1    -TP.BIASL   ISOLATE (SIGN EXTEND) BIAS                          IO          2162          I
          -FC50084
 IO                 IX3    X1+X3       ADD IN COLLAPSE OFFSET                              IO          2163          I
          -FC50084
 IO                 LX3    TP.BIASP    TO BIAS FIELD                                       IO          2164          I
          -FC50084
 IO                 LX0    TP.BIASL+TP.BIASP                                               IO          2165          I
          -FC50084
 IO                 BX3    X3*X0       ISOLATE NEW BIAS                                    IO          2166          I
          -FC50084
 IO                 BX2    -X0*X2      CLEAR OLD BIAS                                      IO          2167          I
          -FC50084
 IO                 BX6    X2+X3       REPLACE WITH NEW BIAS                               IO          2168          I
          -FC50084
 IO                 SA6    A1          RESTORE TO T.PAR                                    IO          2169          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50084
 IO        IOL1     =A5    A3+1        FETCH PARTIAL COLLAPSE SIZE                         IO          2170          I
          -FC50084
 IO                 =A5    A3+1        FETCH PARTIAL COLLAPSE SIZE                         FC50084        7     A     
 IO                 =X6    0                                                               IO          2171     A     
 IO                 SA6    A5                                                              IO          2172     A     
 IO                 =A6    A5-1        CLEAR COLLAPSE INDICATORS                           IO          2173     A     
 IO                 EQ     IOL30                                                           IO          2174     A     
 IO                                                                                        IO          2175     A     
 IO        IOL10    BX7    X4                                                              IO          2176     A     
 IO                 HX7    TP.ORD                                                          IO          2177     A     
 IO                 AX7    -TP.ORDL    ISOLATE ORDINAL                                     IO          2178     A     
 IO                 SB2    X7                                                              IO          2179     A     
 IO                 SB2    B2+B2                                                           IO          2180     A     
 IO                 SB2    B2+X7       CONVERT ORDINAL TO INDEX                            IO          2181     A     
 IO                 ERRNZ  3-Z=SYM                                                         IO          2182     A     
 IO                 SB2    B2+WB.W                                                         IO          2183     A     
 IO                 SA1    T.SYM                                                           IO          2184     A     
 IO                 SA2    X1+B2       FETCH *WB* ENTRY                                    IO          2185     A     
 IO                 LX0    X4                                                              IO          2186     A     
 IO                 SBIT   X2,WB.ARYP                                                      IO          2187     A     
 IO                 PL     X2,IOL30    IF NOT ARRAY                                        IO          2188     A     
 IO                 SBIT   X0,TP.AREP                                                      IO          2189     A     
 IO                 PL     X0,IOL30    IF SINGLE ELEMENT                                   IO          2190     A     
 IO                 SBIT   X2,WB.PNTP/WB.ARYP+1                                            IO          2191     A     
 IO                 SA3    T.DIM                                                           IO          2192     A     
 IO                 MX0    -WB.PNTL                                                        IO          2193     A     
 IO                 BX5    -X0*X2      ISOLATE T.DIM ORD                                   IO          2194     A     
 IO                 SB3    X5                                                              IO          2195     A     
 IO                 MX0    -DH.PSL                                                         IO          2196     A     
 IO                 SA1    X3+B3       FETCH DIMENSION PARAMETERS                          IO          2197     A     
 IO                 LX1    -DH.PSP                                                         IO          2198     A     
 IO                 BX5    -X0*X1      ARRAY LENGTH                                        IO          2199     A     
 IO                 LX5    TP.BIASP                                                        IO          2200     A     
 IO                 SBIT   X1,DH.ASP/DH.PSP-1                                              IO          2201     A     
 IO                 CLAS=  X2,TP,(SHRT),INT                                                IO          2202     A     
 IO                 BX5    X5+X2       MAKE INTO SHORT CONSTANT                            IO          2203     A     
 IO                 PL     X1,IOL20    IF NOT ASSUMED SIZE ARRAY                           IO          2204     A     
 IO                 FATAL  E.IOL6                                                          IO          2205     A     
 IO                 EQ     C=ERR                                                           IO          2206     A     
 IO                                                                                        IO          2207     A     
 IO        IOL20    SBIT   X1,DH.VDP/DH.ASP                                                IO          2208     A     
 IO                 PL     X1,IOL30    IF NOT ADJUSTABLY DIMENSIONED                       IO          2209     A     
 IO                 SA1    S=VD                                                            IO          2210     A     
 IO                 LX1    TP.ORDP                                                         IO          2211     A     
 IO                 CLAS=  X2,TP,(SHRT)                                                    IO          2212     A     
 IO                 BX5    -X2*X5      REMOVE TP.SHRT (LEAVING BIAS + MODE)                IO          2213     A     
 IO                 BX5    X1+X5       ORD + BIAS + MODE = VD. PRODUCT OF SPANS            IO          2214     A     
 IO                                                                                        IO          2215     A     
 IO       *         (X4) = (1OP) = LIST ITEM (TP. FORMAT)                                  IO          2216     A     
 IO       *         (X5) = (2OP) = LENGTH INDICATOR (TP. FORMAT)                           IO          2217     A     
 IO                                                                                        IO          2218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        IOL30    SA1    IODTA       FETCH TURPLE HEADER PROTOTYPE                       IO          2219          I
          -FC5A141
 IO        IOL30    SA1    IODIR                                                           FC5A141       68     A     
 IO                 SA2    DATFLG                                                          FC5A141       69     A     
 IO                 NZ     X1,IOL40    IF NOT INPUT DIRECTION                              FC5A141       70     A     
 IO                 NZ     X2,IOL40    IF DATA LIST                                        FC5A141       71     A     
 IO                 RJ     AII         ADD INPUT ITEM TO T.ILI                             FC5A141       72     A     
 IO                                                                                        FC5A141       73     A     
 IO        IOL40    SA1    IODTA                                                           FC5A141       74     A     
 IO                 MX0    -TP.MODEL                                                       IO          2220     A     
 IO                 LX4    -TP.MODEP                                                       IO          2221     A     
 IO                 BX0    -X0*X4      EXTRACT MODE                                        IO          2222     A     
 IO                 LX0    TH.MODEP                                                        IO          2223          I
          -FC50104
 IO                 LX0    SP.MODEP                                                        FC50104       66     A     
 IO                 BX6    X1+X0       MERGE MODE INTO TURPLE HEADER                       IO          2224     A     
 IO                 SA6    IODTH                                                           IO          2225     A     
 IO                 LX4    TP.MODEP                                                        IO          2226     A     
 IO                 EMIT   IODTH,*,T.IOARG                                                 IO          2227     A     
 IO                 EQ     IOL.RTN     EXIT...                                             IO          2228     A     
 IO                                                                                        IO          2229          I
          -FC5A232
 IO        IOLA     BSS    1           SAVE OPERAND                                        IO          2230          I
          -FC5A232
 IO        A=STR    SPACE  4,10                                                            IO          2231     A     
 IO       **        A=STR - CHECK XXCODE *STRING* ADDRESS.                                 IO          2232     A     
 IO       *                                                                                IO          2233     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          2234     A     
 IO       *                                                                                IO          2235     A     
 IO       *         CALLS  OCT                                                             IO          2236     A     
 IO                                                                                        IO          2237     A     
 IO                                                                                        IO          2238     A     
 IO        A=STR    BSSENT 0           ENTRY...                                            IO          2239     A     
 IO                 SA4    IODIR                                                           IO          2240     A     
 IO                 SB3    E.IOS7      ** STRING ADDRESS CANNOT BE CONST/EXPR              IO          2241     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABLE ITEM                           IO          2242     A     
 IO                 SB2    X0-M.CHAR                                                       IO          2243     A     
 IO                 ZR     B2,E.IOS10  IF TYPE CHARACTER                                   IO          2244     A     
 IO                 SX4    IC.STR                                                          IO          2245     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          2246     A     
 IO                 EQ     PAREXIT                                                         IO          2247     A     
 IO        C=UNT    SPACE  4,10                                                            IO          2248     A     
 IO       **        C=UNT - UNIT DESIGNATOR CHECK                                          IO          2249     A     
 IO       *                                                                                IO          2250     A     
 IO       *         EXIT   (X5) = UNIT DESIGNATOR (TP. FORMAT)                             IO          2251     A     
 IO                                                                                        IO          2252     A     
 IO                                                                                        IO          2253     A     
 IO        A=UNT    BSSENT                                                                 IO          2254     A     
 IO                 SB4    B4-1                                                            IO          2255     A     
 IO        C=UNT    BSSENT                                                                 IO          2256     A     
 IO                 EQ     PAREXIT                                                         IO          2257     A     
 IO        CML      SPACE  4,10                                                            IO          2258     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       **        CML - CHECK FOR MATCH IN LIST (T.ILI)                                  IO          2259     A     
 IO       *                                                                                IO          2260     A     
 IO       *         I/O RESTART CALLS WILL BE ISSUED WHEN CERTAIN CONDITIONS ARE           IO          2261     A     
 IO       *         SATISFIED FOR ITEMS IN INPUT LISTS.                                    IO          2262     A     
 IO       *                                                                                IO          2263     A     
 IO       *         ENTRY  (X6) = ITEM TO BE CHECKED (TP. FORMAT)                          IO          2264     A     
 IO       *                                                                                IO          2265          I
          -FC5A141
 IO       *         KEEPS  X5,X6  B2,B4,B5,B6                                              IO          2266          I
          -FC5A141
 IO       *                                                                                IO          2267          I
          -FC5A141
 IO       *         CALLS  ADW, IOJ                                                        IO          2268          I
          -FC5A141
 IO                                                                                        IO          2269          I
          -FC5A141
 IO        .FIX     SET    --          CONVERT TO BASE/BIAS FOR EQUIVALENCED ITEMS         IO          2270          I
          -FC5A141
 IO                                                                                        IO          2271          I
          -FC5A141
 IO                                                                                        IO          2272          I
          -FC5A141
 IO        CML      SUBR   =           ...ENTRY/EXIT...                                    IO          2273          I
          -FC5A141
 IO                 SA2    T=ILI       LENGTH OF LIST ITEM TABLE                           IO          2274          I
          -FC5A141
 IO                 BX4    X6                                                              IO          2275          I
          -FC5A141
 IO                 MX0    -TP.ORDL                                                        IO          2276          I
          -FC5A141
 IO                 BX1    X6                                                              IO          2277          I
          -FC5A141
 IO                 SBIT   X1,TP.EQVP                                                      IO          2278          I
          -FC5A141
 IO                 SA3    T.ILI                                                           FC5A136        4          I
          -FC5A141
 IO                 MI     X1,CML2     IF ITEM EQUIVALENCED                                IO          2279          I
          -FC5A141
 IO                 SA3    T.ILI       (X3) = FWA OF TABLE                                 IO          2280          I
          -FC5A136  -FC5A141
 IO                 HX4    TP.ORD                                                          IO          2281          I
          -FC5A141
 IO                 LX4    TP.ORDL                                                         IO          2282          I
          -FC5A141
 IO                 BX4    -X0*X4      EXTRACT ORDINAL                                     IO          2283          I
          -FC5A141
 IO                 SA1    X3                                                              IO          2284          I
          -FC5A141
 IO        CML1     HX1    TP.ORD                                                          IO          2285          I
          -FC5A141
 IO                 LX1    TP.ORDL                                                         IO          2286          I
          -FC5A141
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX1    -X0*X1      EXTRACT ORDINAL                                     IO          2287          I
          -FC5A141
 IO                 SX2    X2-1        DECREMENT LENGTH OF ITEMS                           IO          2288          I
          -FC5A141
 IO                 IX7    X1-X4                                                           IO          2289          I
          -FC5A141
 IO                 =A1    A1+1                                                            IO          2290          I
          -FC5A141
 IO                 ZR     X7,CML2     IF ORDINALS MATCH                                   IO          2291          I
          -FC5A141
 IO                 ZR     X2,EXIT.    IF TABLE EXHAUSTED                                  IO          2292          I
          -FC5A141
 IO                 EQ     CML1        CONTINUE TABLE SEARCH                               IO          2293          I
          -FC5A141
 IO                                                                                        IO          2294          I
          -FC5A141
 IO        CML2     SA6    CMLA        X6 SAVED                                            IO          2295          I
          -FC5A141
 IO                 SA4    T=ILI                                                           IO          2296          I
          -FC5A141
 IO                 BX6    X5                                                              IO          2297          I
          -FC5A141
 IO                 IX0    X3+X4                                                           IO          2298          I
          -FC5A141
 IO                 SA2    X0-1                                                            IO          2299          I
          -FC5A141
 IO                 SX1    B2                                                              IO          2300          I
          -FC5A141
 IO                 LX7    X2                                                              IO          2301          I
          -FC5A141
 IO                 =A6    A6+1        X5 SAVED                                            IO          2302          I
          -FC5A141
 IO                 SA7    CMLB        ARRAY NAME IS RETAINED                              IO          2303          I
          -FC5A141
 IO                 SX4    B5                                                              IO          2304          I
          -FC5A141
 IO                 LX1    18                                                              IO          2305          I
          -FC5A141
 IO                 BX0    X1+X4                                                           IO          2306          I
          -FC5A141
 IO                 SX2    B6                                                              IO          2307          I
          -FC5A141
 IO                 LX0    18                                                              IO          2308          I
          -FC5A141
 IO                 BX7    X0+X2       B2,B5,B6 SAVED                                      IO          2309          I
          -FC5A141
 IO                 =A7    A6+1                                                            IO          2310          I
          -FC5A141
 IO                 =X6    1                                                               IO          2311          I
          -FC5A141
 IO                 RJ     IOJ         I/O APLIST INTERRUPT ISSUED                         IO          2312          I
          -FC5A141
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA4    CMLB                                                            IO          2313          I
          -FC5A141
 IO                 LX6    X4                                                              IO          2314          I
          -FC5A141
 IO                 ADDWD  T.ILI       ARRAY NAME IS RETAINED IN TABLE                     IO          2315          I
          -FC5A141
 IO                 SA1    CMLA                                                            IO          2316          I
          -FC5A141
 IO                 =A4    A1+1                                                            IO          2317          I
          -FC5A141
 IO                 BX6    X1          X6 RESTORED                                         IO          2318          I
          -FC5A141
 IO                 =A2    A4+1                                                            IO          2319          I
          -FC5A141
 IO                 BX5    X4          X5 RESTORED                                         IO          2320          I
          -FC5A141
 IO                 SB6    X2          B6 RESTORED                                         IO          2321          I
          -FC5A141
 IO                 AX2    18                                                              IO          2322          I
          -FC5A141
 IO                 SB5    X2          B5                                                  IO          2323          I
          -FC5A141
 IO                 AX2    18                                                              IO          2324          I
          -FC5A141
 IO                 SB2    X2          B2                                                  IO          2325          I
          -FC5A141
 IO                 EQ     EXIT.                                                           IO          2326          I
          -FC5A141
 IO       *                (X0) = 0 IF ITEM IS AN INDEXED ARRAY                            FC5A141       75     A     
 IO       *                     = .NZ. OTHERWISE.                                          FC5A141       76     A     
 IO       *                                                                                FC5A141       77     A     
 IO       *         KEEPS  X - 5,6  B - 2,4,5,6.                                           FC5A141       78     A     
 IO       *                                                                                FC5A141       79     A     
 IO       *         CALLS  BBC,FII,CT1,IOJ.                                                FC5A141       80     A     
 IO                                                                                        FC5A141       81     A     
 IO        CML30    SA5    CMLA                                                            FC5A141       82     A     
 IO                 BX6    X5          RESTORE X6                                          FC5A141       83     A     
 IO                 =A5    A5+1        RESTORE X5                                          FC5A141       84     A     
 IO                 =A1    A5+1                                                            FC5A141       85     A     
 IO                 SB6    X1          RESTORE B6                                          FC5A141       86     A     
 IO                 LX1    -18                                                             FC5A141       87     A     
 IO                 SB5    X1          RESTORE B5                                          FC5A141       88     A     
 IO                 LX1    -18                                                             FC5A141       89     A     
 IO                 SB2    X1          RESTORE B2                                          FC5A141       90     A     
 IO                                                                                        FC5A141       91     A     
 IO        CML      SUBR   =           ENTRY/EXIT...                                       FC5A141       92     A     
 IO                 SA1    T=ILI                                                           FC5A141       93     A     
 IO                 ZR     X1,EXIT.    IF TABLE EMPTY                                      FC5A141       94     A     
 IO                 SA6    CMLA        PRESERVE X6                                         FC5A141       95     A     
 IO                 BX7    X5                                                              FC5A141       96     A     
 IO                 =A7    A6+1        PRESERVE X5                                         FC5A141       97     A     
 IO                 MX4    -18                                                             FC5A141       98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SX1    B6                                                              FC5A141       99     A     
 IO                 BX7    -X4*X1                                                          FC5A141      100     A     
 IO                 SX2    B5                                                              FC5A141      101     A     
 IO                 BX2    -X4*X2                                                          FC5A141      102     A     
 IO                 LX2    18                                                              FC5A141      103     A     
 IO                 BX7    X7+X2                                                           FC5A141      104     A     
 IO                 SX2    B2                                                              FC5A141      105     A     
 IO                 BX2    -X4*X2                                                          FC5A141      106     A     
 IO                 LX2    18+18                                                           FC5A141      107     A     
 IO                 BX7    X7+X2                                                           FC5A141      108     A     
 IO                 =A7    A7+1        PRESERVE B2,B5,B6                                   FC5A141      109     A     
 IO                 BX4    X0                                                              FC5A141      110     A     
 IO                 MX1    -TP.ORDL                                                        FC5A141      111     A     
 IO                 LX6    -TP.ORDP                                                        FC5A141      112     A     
 IO                 BX0    -X1*X6      X0 = SYMORD                                         FC5A141      113     A     
 IO                 CALL   CT1         GET EQV BIT INTO OPERAND                            FC5A141      114     A     
 IO                 BX5    X6          X5 = OPERAND                                        FC5A141      115     A     
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORM                           FC5A141      116     A     
 IO                 BX0    X4                                                              FC5A141      117     A     
 IO                 RJ     FII         FORMAT INPUT ITEM                                   FC5A141      118     A     
 IO                 HX5    II.CHAR                                                         FC5A141      119     A     
 IO                 MI     X5,CML30    IF ITEM IS CHARACTER                                FC5A141      120     A     
 IO                 MX0    -II.ORDL                                                        FC5A141      121     A     
 IO                 MX7    -II.BIASL                                                       FC5A141      122     A     
 IO                 LX5    1+II.CHARP-II.ORDP                                              FC5A141      123     A     
 IO                 BX1    -X0*X5      X1 = ORDINAL OF ITEM                                FC5A141      124     A     
 IO                 LX5    II.ORDP-II.BIASP                                                FC5A141      125     A     
 IO                 BX2    -X7*X5      X2 = BIAS OF ITEM                                   FC5A141      126     A     
 IO                 LX5    II.BIASP                                                        FC5A141      127     A     
 IO                 SA3    T=ILI                                                           FC5A141      128     A     
 IO                 SA4    T.ILI                                                           FC5A141      129     A     
 IO                 =B2    -1          B2 = LOOP COUNTER                                   FC5A141      130     A     
 IO                 =B5    X3          B5 = LOOP LIMIT                                     FC5A141      131     A     
 IO                 SB3    X4          B3 = FWA OF TABLE                                   FC5A141      132     A     
 IO                                                                                        FC5A141      133     A     
 IO        CML10    =B2    B2+1                                                            FC5A141      134     A     
 IO                 GE     B2,B5,CML30 IF TABLE EXHAUSTED                                  FC5A141      135     A     
 IO                 SA3    B3+B2       X3 = TABLE ENTRY                                    FC5A141      136     A     
 IO                 LX3    -II.ORDP                                                        FC5A141      137     A     
 IO                 BX4    -X0*X3      X4 = ORDINAL OF ENTRY                               FC5A141      138     A     
 IO                 IX4    X4-X1                                                           FC5A141      139     A     
 IO                 NZ     X4,CML10    IF ORDINALS DONT MATCH                              FC5A141      140     A     
 IO                 LX3    II.ORDP                                                         FC5A141      141     A     
 IO                 BX4    X5+X3                                                           FC5A141      142     A     
 IO                 HX4    II.ARY                                                          FC5A141      143     A     
 IO                 MI     X4,CML20    IF EITHER ONE IS AN INDEXED ARRAY                   FC5A141      144     A     
 IO                 LX3    -II.BIASP                                                       FC5A141      145     A     
 IO                 BX4    -X7*X3      X4 = BIAS OF ENTRY                                  FC5A141      146     A     
 IO                 IX4    X4-X2                                                           FC5A141      147     A     
 IO                 NZ     X4,CML10    IF BIASES ARE NOT EQUAL                             FC5A141      148     A     
 IO                                                                                        FC5A141      149     A     
 IO       **        HERE IF WE NEED TO ISSUE APLIST INTERRUPT.                             FC5A141      150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        FC5A141      151     A     
 IO        CML20    =X6    1                                                               FC5A141      152     A     
 IO                 RJ     IOJ         ISSUE APLIST INTERRUPT                              FC5A141      153     A     
 IO                 EQ     CML30                                                           FC5A141      154     A     
 IO                                                                                        IO          2327     A     
 IO        CMLA     BSS    1           TEMPORARY FOR X6                                    IO          2328     A     
 IO                 BSS    1                         X5                                    IO          2329     A     
 IO                 BSS    1                         B2,B5,B6                              IO          2330     A     
 IO        CMLB     BSS    1           TEMP FOR ARRAY NAME                                 IO          2331     A     
 IO        KWE      SPACE  4,10                                                            IO          2332     A     
 IO       **        KWE -  KEYWORD PARAMETER DIAGNOSTIC SETUP                              IO          2333     A     
 IO       *                                                                                IO          2334     A     
 IO       *         ENTRY  (ICKA) = I/O CONTROL KEYWORD (DPC)                              IO          2335     A     
 IO       *                                                                                IO          2336     A     
 IO       *         EXIT   (FILL., FILL.2) = I/O CONTROL KEYWORD                           IO          2337     A     
 IO                                                                                        IO          2338     A     
 IO                                                                                        IO          2339     A     
 IO        KWE      SUBR               ...ENTRY/EXIT...                                    IO          2340     A     
 IO                 SA1    ICKA        FETCH THE KEYWORD                                   IO          2341     A     
 IO                 =A2    A1+1                                                            IO          2342     A     
 IO                 BX6    X1                                                              IO          2343     A     
 IO                 LX7    X2                                                              IO          2344     A     
 IO                 SA6    FILL.                                                           IO          2345     A     
 IO                 =A7    A6+1                                                            IO          2346     A     
 IO                 EQ     EXIT.                                                           IO          2347     A     
 IO        OCT      SPACE  4,10                                                            IO          2348     A     
 IO       **        OCT -  OUTPUT CONTROL TURPLE                                           IO          2349     A     
 IO       *                                                                                IO          2350     A     
 IO       *         PUTS MODE OF CONTROL OPERAND INTO THE CONTROL TURPLE HEADER.           IO          2351     A     
 IO       *                                                                                IO          2352     A     
 IO       *         ENTRY  (X4) = I/O CONTROL CODE                                         IO          2353     A     
 IO       *                (X5) = I/O CONTROL OPERAND (TP. FORMAT)                         IO          2354     A     
 IO       *                                                                                IO          2355     A     
 IO       *         EXIT   CONTROL TURPLE OUTPUT                                           IO          2356     A     
 IO       *                                                                                IO          2357     A     
 IO       *         USES   A1,A6  X0,X1,X6                                                 IO          2358     A     
 IO       *                                                                                IO          2359     A     
 IO       *         CALLS  EMT                                                             IO          2360     A     
 IO                                                                                        IO          2361     A     
 IO                                                                                        IO          2362     A     
 IO        OCT      SUBR   0           ...ENTRY/EXIT...                                    IO          2363     A     
 IO                 SA1    IOCTL                                                           IO          2364     A     
 IO                 LX4    TP.IOCP                                                         IO          2365     A     
 IO                 MX0    -TP.MODEL                                                       IO          2366     A     
 IO                 LX5    -TP.MODEP                                                       IO          2367     A     
 IO                 BX0    -X0*X5      EXTRACT MODE OF CONTROL OPERAND                     IO          2368     A     
 IO                 LX5    TP.MODEP                                                        IO          2369     A     
 IO                 LX0    TH.MODEP                                                        IO          2370          I
          -FC50104
 IO                 LX0    SP.MODEP                                                        FC50104       67     A     
 IO                 BX6    X1+X0                                                           IO          2371     A     
 IO                 SA6    OCTA                                                            IO          2372     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 EMIT   OCTA,*,T.IOARG                                                  IO          2373     A     
 IO                 EQ     EXIT.                                                           IO          2374     A     
 IO                                                                                        IO          2375     A     
 IO        OCTA     BSS    1           I/O CONTROL TURPLE HEADER (WITH MODE)               IO          2376     A     
 IO        OST      SPACE  4,10                                                            FC5A143       14     A     
 IO       **        OST -  OUTPUT SKIP TURPLE                                              FC5A143       15     A     
 IO       *                                                                                FC5A143       16     A     
 IO       *         OUTPUTS DEFAULT SKIP TURPLE, AS NECESSARY.                             FC5A143       17     A     
 IO       *                                                                                FC5A143       18     A     
 IO       *         USES   A1,A2,A6,A7  X0,X1,X2,X4,X5,X6,X7                               FC5A143       19     A     
 IO       *                                                                                FC5A143       20     A     
 IO       *         CALLS  OCT                                                             FC5A143       21     A     
 IO                                                                                        FC5A143       22     A     
 IO                                                                                        FC5A143       23     A     
 IO        OST      SUBR               ...ENTRY/EXIT...                                    FC5A143       24     A     
 IO                 SA1    IODIR       I/O DIRECTION                                       FC5A143       25     A     
 IO                 ZR     X1,OST1     IF INPUT                                            FC5A143       26     A     
 IO                 SA1    PKCA        FETCH DEFINED SPECIFIER MASK                        FC5A143       27     A     
 IO                 SX2    1                                                               FC5A143       28     A     
 IO                 LX2    59-IC.IOS                                                       FC5A143       29     A     
 IO                 BX0    X1*X2                                                           FC5A143       30     A     
 IO                 ZR     X0,EXIT.    IF IOSTAT= NOT SPECIFIED                            FC5A143       31     A     
 IO                 LX2    IC.IOS-IC.ERR                                                   FC5A143       32     A     
 IO                 BX0    X1*X2                                                           FC5A143       33     A     
 IO                 NZ     X0,EXIT.    IF ERR= SPECIFIED                                   FC5A143       34     A     
 IO                                                                                        FC5A143       35     A     
 IO       *         EMIT DEFAULT SKIP LABEL.                                               FC5A143       36     A     
 IO                                                                                        FC5A143       37     A     
 IO        OST1     SX4    IC.SKP      1OP = CONTROL CODE                                  FC5A143       38     A     
 IO                 SA1    N.GL        NEXT GENERATED LABEL                                FC5A143       39     A     
 IO                 BX6    X1                                                              FC5A143       40     A     
 IO                 =X2    1                                                               FC5A143       41     A     
 IO                 =X7    X6+1                                                            FC5A143       42     A     
 IO                 LX2    TP.GLP                                                          FC5A143       43     A     
 IO                 SA7    A1          UPDATE GL COUNT                                     FC5A143       44     A     
 IO                 LX1    TP.ORDP                                                         FC5A143       45     A     
 IO                 BX6    X1+X2       2OP = GL ORD                                        FC5A143       46     A     
 IO                 LX5    X6                                                              FC5A143       47     A     
 IO                 SA6    IOSKP                                                           FC5A143       48     A     
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               FC5A143       49     A     
 IO                 EQ     EXIT.                                                           FC5A143       50     A     
 IO        VAI      SPACE  4,10                                                            IO          2377     A     
 IO       **        VAI - VALIDATE ADDRESSABLE ITEM.                                       IO          2378     A     
 IO       *                                                                                IO          2379     A     
 IO       *         VALIDATE THAT OPERAND IS LEGALLY ADDRESSABLE.  IF NOT, ISSUE           IO          2380     A     
 IO       *         DIAGNOSTIC.  IF SO, AND THIS IS A DEFINING OCCURANCE,                  IO          2381     A     
 IO       *         SET (WB.DEF), AND CHECK THAT AN ACTIVE DO-CONTROL INDEX IS             IO          2382     A     
 IO       *         NOT BEING REDEFINED.                                                   IO          2383     A     
 IO       *                                                                                IO          2384     A     
 IO       *         ENTRY  (X5) = OPERAND.                                                 IO          2385     A     
 IO       *                (X4) .ZR. = THIS IS A DEFINING OCCURANCE.                       IO          2386     A     
 IO       *                     .NZ. = DO NOT SET/CHECK DEF.                               IO          2387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                (B3) = ADDRESS OF DIAGNOSTIC.                                   IO          2388     A     
 IO       *                (LISTDIR) .NZ. = DEFINITION IS ONLY POTENTIAL.                  IO          2389     A     
 IO       *                                                                                IO          2390     A     
 IO       *         EXIT   (X5) = OPERAND TO BE USED.                                      IO          2391     A     
 IO       *                            (TP.IOD) OR (TP.IOP) SET IF APPROPRIATE.            IO          2392     A     
 IO       *                (X0) = MODE OF OPERAND.                                         IO          2393     A     
 IO       *                (B3) = ERROR INDICATION                                         IO          2394     A     
 IO       *                                                                                IO          2395     A     
 IO       *         CALLS  DOA, PDM                                                        IO          2396          I
          -FC5A211
 IO       *         CALLS  DDR, DOA, PDM                                                   FC5A211       13     A     
 IO       *                                                                                FC5A211       14     A     
 IO       *         USES   A1-7.  B2,3,7.  X0-7.                                           IO          2397     A     
 IO                                                                                        IO          2398     A     
 IO                                                                                        IO          2399     A     
 IO        VAI      SUBR   0           ENTRY/EXIT...                                       IO          2400          I
          -FC5A218
 IO        VAI      SUBR   =           ENTRY/EXIT...                                       FC5A218       55     A     
 IO                 CALL   DOA         DETERMINE OPERAND ADDRESSABILITY                    IO          2401     A     
 IO                 SB7    B3                                                              IO          2402     A     
 IO                 NZ     X6,VAI8     IF INVALID STORE TARGET                             IO          2403     A     
 IO                 NZ     X4,EXIT.    IF NOT DEFINING OCCURANCE                           IO          2404     A     
 IO                 SA1    LISTDIR                                                         IO          2405     A     
 IO                 CLAS=  X6,WB,(DEF)                                                     IO          2406     A     
 IO                 BX7    X6+X2       MARK DEFINED IN SYMTAB                              IO          2407     A     
 IO                 CLAS=  X3,TP,(IOD)                                                     IO          2408     A     
 IO                 BX5    X5+X3       INDICATE DEFINITION OF OPERAND                      IO          2409     A     
 IO                 ZR     X1,VAI4     IF NOT LIST-DIRECTED OPERATION                      IO          2410     A     
 IO                 LX3    -TP.IODP+TP.IOPP                                                IO          2411     A     
 IO                 BX5    X5+X3       ALSO MARK AS POTENTIAL DEFINITION                   IO          2412     A     
 IO                                                                                        FC50718        8     A     
 IO        VAI4     SA7    A2                                                              IO          2413     A     
 IO                                                                                        IO          2414     A     
 IO       *         CHECK IF VARIABLE IS A DO CONTROL INDEX                                IO          2415     A     
 IO                                                                                        IO          2416     A     
 IO                 =B3    0           INDICATE NOT DO CONTROL INDEX                       FC50718        9     A     
 IO                 SBIT   X7,WB.DOIXP                                                     IO          2417          I
          -FC5A211
 IO                 PL     X7,EXIT.    IF NOT CONTROL INDEX                                IO          2418          I
          -FC5A211
 IO                 FATAL  E.DO08                                                          IO          2419          I
          -FC5A211
 IO                 CALL   DDR         DIAGNOSE DO REDEFINITION                            FC5A211       15     A     
 IO                 EQ     EXIT.                                                           IO          2420     A     
 IO                                                                                        IO          2421     A     
 IO        VAI8     FATAL  B7                                                              IO          2422     A     
 IO                 SB3    -1                                                              IO          2423     A     
 IO                 EQ     EXIT.                                                           IO          2424     A     
 IO                 TITLE  I/O LIST PROCESSING.                                            IO          2425     A     
 IO        AII      SPACE  4,10                                                            FC5A141      155     A     
 IO       **        AII - ADD INPUT LIST ITEM TO TABLE.                                    FC5A141      156     A     
 IO       *                                                                                FC5A141      157     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         ENTRY  (X4) = OPERAND OF LIST ITEM.                                    FC5A141      158     A     
 IO       *                (X5) = LENGTH OF LIST ITEM.                                     FC5A141      159     A     
 IO       *                                                                                FC5A141      160     A     
 IO       *         CALLS  DOA,FII,BBC,ADDWD,CT1.                                          FC5A141      161     A     
 IO       *                                                                                FC5A141      162     A     
 IO       *         USES   ALL BUT X4,X5.                                                  FC5A141      163     A     
 IO                                                                                        FC5A141      164     A     
 IO        AII      SUBR               ENTRY/EXIT...                                       FC5A141      165     A     
 IO                 SA1    CONONE                                                          FC5A141      166          I
          -FC5A248
 IO                 BX1    X5-X1                                                           FC5A141      167          I
          -FC5A248
 IO                 =X0    1           ASSUME ITEM NOT AN INDEXED ARRAY                    FC5A141      168          I
          -FC5A248
 IO                 ZR     X1,AII10    IF ASSUMPTION CORRECT                               FC5A141      169          I
          -FC5A248
 IO                 =X0    0           INDICATE ITEM IS INDEXED ARRAY                      FC5A141      170          I
          -FC5A248
 IO                                                                                        FC5A141      171          I
          -FC5A248
 IO        AII10    BX6    X5                                                              FC5A141      172          I
          -FC5A248
 IO                 BX6    X5                                                              FC5A248       21     A     
 IO                 SA6    AIIA        PRESERVE X5                                         FC5A141      173     A     
 IO                 BX6    X4                                                              FC5A141      174     A     
 IO                 =A6    A6+1        PRESERVE X4                                         FC5A141      175     A     
 IO                 BX5    X4                                                              FC5A141      176     A     
 IO                 HX6    TP.INTR                                                         FC5A141      177     A     
 IO                 MI     X6,AII20    IF INTERMEDIATE OPERAND                             FC5A141      178     A     
 IO                 MX0    -TP.ORDL                                                        FC5A141      179     A     
 IO                 LX6    1+TP.INTRP-TP.ORDP                                              FC5A141      180     A     
 IO                 BX0    -X0*X6      X0 = ORDINAL                                        FC5A141      181     A     
 IO                 CALL   CT1         COPY EQV BIT INTO OPERAND                           FC5A141      182     A     
 IO                 MX0    -TP.BIASL                                                       FC5A141      183     A     
 IO                 LX0    TP.BIASP                                                        FC5A141      184     A     
 IO                 BX5    -X0*X5      ERASE ALL BUT BIAS                                  FC5A141      185     A     
 IO                 BX5    X5+X6       CREATE NEW OPERAND                                  FC5A141      186     A     
 IO                 SA1    CONONE                                                          FC5A248       22     A     
 IO                 SA2    AIIA                                                            FC5A248       23     A     
 IO                 =X0    1                                                               FC5A248       24     A     
 IO                 BX2    X1-X2                                                           FC5A248       25     A     
 IO                 ZR     X1,AII30    IF NOT INDEXED ARRAY                                FC5A248       26     A     
 IO                 SX0    0                                                               FC5A248       27     A     
 IO                 EQ     AII30                                                           FC5A141      187     A     
 IO                                                                                        FC5A141      188     A     
 IO        AII20    CALL   DOA                                                             FC5A141      189     A     
 IO                 IFEQ   TEST,ON,1                                                       FC5A141      190          I
          -FC5A218
 IO                 NZ     X6,"BLOWUP" OPERAND MUST BE ADDRESSABLE                         FC5A141      191          I
          -FC5A218
 IO                 NZ     X6,AII35    IF NOT ADDRESSABLE                                  FC5A218       56     A     
 IO                 =X0    A2-1                                                            FC5A141      192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA1    T.SYM                                                           FC5A141      193     A     
 IO                 IX0    X0-X1                                                           FC5A141      194     A     
 IO                 SX1    Z=SYM                                                           FC5A141      195     A     
 IO                 IX3    X0/X1       X3 = CORRECT ORDINAL                                FC5A141      196     A     
 IO                 MX0    -TP.BIASL                                                       FC5A141      197     A     
 IO                 LX0    TP.BIASP                                                        FC5A141      198     A     
 IO                 BX5    -X0*X5      ERASE ALL BUT BIAS                                  FC5A141      199     A     
 IO                 LX3    TP.ORDP                                                         FC5A141      200     A     
 IO                 CLAS=  X1,WB,(EQV)                                                     FC5A141      201     A     
 IO                 BX1    X1*X2       EXTRACT EQV BIT FROM *WB*                           FC5A141      202     A     
 IO                 LX1    -WB.EQVP+TP.EQVP                                                FC5A141      203     A     
 IO                 BX5    X5+X3                                                           FC5A141      204     A     
 IO                 BX5    X5+X1       CREATE OPERAND                                      FC5A141      205     A     
 IO                 =X0    0           INDICATE INDEXED ARRAY                              FC5A141      206     A     
 IO                                                                                        FC5A141      207     A     
 IO        AII30    CALL   BBC         CONVERT TO BASE/BIAS FORM                           FC5A141      208     A     
 IO                 RJ     FII         FORMAT INPUT LIST ITEM                              FC5A141      209     A     
 IO                 BX6    X5          X6 = FORMATTED ITEM                                 FC5A141      210     A     
 IO                 ADDWD  T.ILI                                                           FC5A141      211     A     
 IO                                                                                        FC5A218       57     A     
 IO        AII35    SA5    AIIA+1      ARRAY OPERAND                                       FC5A218       58     A     
 IO                 MX4    0           WE ARE DEFINING IT                                  FC5A218       59     A     
 IO                 SB3    E.IOL2      **CON/EXPR IN IO LIST                               FC5A218       60     A     
 IO                 RJ     VAI         VALIDATE ADDRESSABILITY                             FC5A218       61     A     
 IO                 BX4    X5          UPDATED OPERAND                                     FC5A218       62     A     
 IO                 SA5    AIIA        RESTORE X5                                          FC5A141      212     A     
 IO                 =A4    A5+1        RESTORE X4                                          FC5A141      213          I
          -FC5A218
 IO                 EQ     EXIT.                                                           FC5A141      214     A     
 IO                                                                                        FC5A141      215     A     
 IO        AIIA     EQU    SCR                                                             FC5A141      216     A     
 IO        FII      SPACE  4,10                                                            FC5A141      217     A     
 IO       **        FII - FORMAT INPUT LIST ITEM.                                          FC5A141      218     A     
 IO       *                                                                                FC5A141      219     A     
 IO       *         WILL PUT A TP. OPERAND INTO THE FORM NECESSARY                         FC5A141      220     A     
 IO       *         FOR ENTRY INTO T.ILI  .                                                FC5A141      221     A     
 IO       *                                                                                FC5A141      222     A     
 IO       *         ENTRY  (X5) = OPERAND                                                  FC5A141      223     A     
 IO       *                (X0) = 0 IF II.ARY TO BE SET                                    FC5A141      224     A     
 IO       *                                                                                FC5A141      225     A     
 IO       *         EXIT   (X5) = FORMATTED OPERAND                                        FC5A141      226     A     
 IO       *                                                                                FC5A141      227     A     
 IO       *         USES   X - 1,2,5  A - 1,2  B - 2                                       FC5A141      228     A     
 IO                                                                                        FC5A141      229     A     
 IO        FII      SUBR               ENTRY/EXIT...                                       FC5A141      230     A     
 IO                 SA2    T.SYM                                                           FC5A141      231     A     
 IO                 CLAS=  X1,TP,(ORD,BIAS)                                                FC5A141      232     A     
 IO                 BX5    X1*X5       ERASE ALL BUT ORD AND BIAS                          FC5A141      233     A     
 IO                 ERRNZ  II.ORDP-TP.ORDP+II.ORDL-TP.ORDL                                 FC5A141      234     A     
 IO                 ERRNZ  II.BIASP-TP.BIASP+II.BIASL-TP.BIASL                             FC5A141      235     A     
 IO                 MX1    -TP.ORDL                                                        FC5A141      236     A     
 IO                 LX5    -TP.ORDP                                                        FC5A141      237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX1    -X1*X5      X1 = ORDINAL                                        FC5A141      238     A     
 IO                 LX5    TP.ORDP                                                         FC5A141      239     A     
 IO                 =B2    X1+WB.W                                                         FC5A141      240     A     
 IO                 LX1    1                                                               FC5A141      241     A     
 IO                 SB2    X1+B2       CONVERT TO *WB* INDEX                               FC5A141      242     A     
 IO                 SA1    X2+B2       *WB*                                                FC5A141      243     A     
 IO                 MX2    -WB.MODEL                                                       FC5A141      244     A     
 IO                 LX1    -WB.MODEP                                                       FC5A141      245     A     
 IO                 BX2    -X2*X1      X2 = MODE                                           FC5A141      246     A     
 IO                 SX2    X2-M.CHAR                                                       FC5A141      247     A     
 IO                 MX1    0                                                               FC5A141      248     A     
 IO                 NZ     X2,FII10    IF NOT CHARACTER                                    FC5A141      249     A     
 IO                 LDBIT  X1,II.CHARP                                                     FC5A141      250     A     
 IO                                                                                        FC5A141      251     A     
 IO        FII10    BX5    X5+X1                                                           FC5A141      252     A     
 IO                 NZ     X0,EXIT.    IF NOT INDEXED ARRAY                                FC5A141      253     A     
 IO                 LDBIT  X1,II.ARYP                                                      FC5A141      254     A     
 IO                 BX5    X5+X1                                                           FC5A141      255     A     
 IO                 EQ     EXIT.                                                           FC5A141      256     A     
 IO        LST      SPACE  4,10                                                            IO          2426     A     
 IO       **        LST -  PROCESS INPUT/OUTPUT LIST                                       IO          2427     A     
 IO       *                                                                                IO          2428     A     
 IO       *         CALLED BY ALL I/O STATEMENT PROCESSORS WHICH HAVE AN I/O LIST.         IO          2429     A     
 IO       *                                                                                IO          2430     A     
 IO       *         THE INITIALIZATION PROCESS, BEGUN IN IIC IS COMPLETED.  THEN           IO          2431     A     
 IO       *         CVL IS CALLED TO COMPILE/COLLAPSE THE LIST.  IT CALLS C=IOL            IO          2432     A     
 IO       *         FOR EACH NON-COLLAPSIBLE LIST ITEM TO EMIT V=APIOD TURPLES.            IO          2433     A     
 IO       *                                                                                IO          2434     A     
 IO       *         ENTRY  (B4) _ SEPARATOR IN FRONT OF I/O LIST.                          IO          2435     A     
 IO       *                (B6) = I/O METHOD INDICATOR (S.IOCALL ORDINAL)                  IO          2436     A     
 IO       *                (T.ARG) - CONTAINS I/O CONTROL TURPLES (UNFINISHED)             IO          2437     A     
 IO       *                                                                                IO          2438     A     
 IO       *         EXIT   TO FRONT END CONTROLLER (*FEC*)                                 IO          2439     A     
 IO       *                                                                                IO          2440     A     
 IO       *         USES   ALL REGISTERS                                                   IO          2441     A     
 IO       *                                                                                IO          2442     A     
 IO       *         CALLS  ANSI, CVL, EMT, IOJ, OCT, OIL, PCT, TSX, WARN.                  IO          2443     A     
 IO                                                                                        IO          2444     A     
 IO                                                                                        IO          2445     A     
 IO        LST      BSSENT 0           ENTRY...                                            IO          2446     A     
 IO        LST1     BSS    0                                                               IO          2447     A     
 IO                 SA2    B4                                                              IO          2448     A     
 IO                 ZR     X2,LST3     IF NO I/O LIST                                      IO          2449     A     
 IO                 SB7    X2-O.COMMA                                                      FC50014       12     A     
 IO                 =A1    B4+1                                                            IO          2450     A     
 IO                 =A2    A1+1                                                            IO          2451     A     
 IO                 SA3    LISTDIR                                                         IO          2452     A     
 IO                 SX1    X1-O.COMMA                                                      IO          2453     A     
 IO                 NZ     X1,LST3     IF NOT EXTRANEOUS COMMA                             IO          2454     A     
 IO                 ZR     X3,LST2     IF NOT LIST DIRECTED I/O                            IO          2455     A     
 IO                 ZR     X2,E.IO27   IF LIST DIRECTED WITH *,* AND NO IOLIST.            IO          2456          I
          -FC50014
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        LST2     WARN   E.IO02                                                          IO          2457          I
          -FC50014
 IO                 =B4    B4+1                                                            IO          2458          I
          -FC50014
 IO                 EQ     LST1        CONTINUE COMMA CHECK                                IO          2459          I
          -FC50014
 IO                 SA3    IODIR                                                           FC50014       13     A     
 IO                 ZR     X3,LST2     IF INPUT                                            FC50014       14     A     
 IO                 =B4    B4+1                                                            FC50014       15     A     
 IO                 ZR     B7,LST2     IF *,,*                                             FC50014       16     A     
 IO                 ZR     X2,LST3     IF COMMA TERMINATED LIST DIRECTED OUTPUT            FC50014       17     A     
 IO                                                                                        FC50014       18     A     
 IO        LST2     FATAL  E.IO02                                                          FC50014       19     A     
 IO                 EQ     PSL                                                             FC50014       20     A     
 IO                                                                                        IO          2460     A     
 IO        LST3     SA1    IODIR       I/O DIRECTION                                       IO          2461          I
          -FC5A143
 IO                 ZR     X1,LST4     IF INPUT                                            IO          2462          I
          -FC5A143
 IO                 SA1    PKCA        FETCH DEFINED SPECIFIER MASK                        IO          2463          I
          -FC5A143
 IO                 SX2    1                                                               IO          2464          I
          -FC5A143
 IO                 LX2    59-IC.IOS                                                       IO          2465          I
          -FC5A143
 IO                 BX0    X1*X2                                                           IO          2466          I
          -FC5A143
 IO                 ZR     X0,LST.S    IF IOSTAT= NOT SPECIFIED                            IO          2467          I
          -FC5A143
 IO                 LX2    IC.IOS-IC.ERR                                                   IO          2468          I
          -FC5A143
 IO                 BX0    X1*X2                                                           IO          2469          I
          -FC5A143
 IO                 NZ     X0,LST.S    IF ERR= SPECIFIED                                   IO          2470          I
          -FC5A143
 IO                                                                                        IO          2471          I
          -FC5A143
 IO       *         EMIT DEFAULT SKIP LABEL.                                               IO          2472          I
          -FC5A143
 IO                                                                                        IO          2473          I
          -FC5A143
 IO        LST4     SX4    IC.SKP      1OP = CONTROL CODE                                  IO          2474          I
          -FC5A143
 IO                 SA1    N.GL        NEXT GENERATED LABEL                                IO          2475          I
          -FC5A143
 IO                 BX6    X1                                                              IO          2476          I
          -FC5A143
 IO                 =X2    1                                                               IO          2477          I
          -FC5A143
 IO                 =X7    X6+1                                                            IO          2478          I
          -FC5A143
 IO                 LX2    TP.GLP                                                          IO          2479          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC5A143
 IO                 SA7    A1          UPDATE GL COUNT                                     IO          2480          I
          -FC5A143
 IO                 LX1    TP.ORDP                                                         IO          2481          I
          -FC5A143
 IO                 BX6    X1+X2       2OP = GL ORD                                        IO          2482          I
          -FC5A143
 IO                 LX5    X6                                                              IO          2483          I
          -FC5A143
 IO                 SA6    IOSKP                                                           IO          2484          I
          -FC5A143
 IO                 RJ     OCT         OUTPUT CONTROL TURPLE                               IO          2485          I
          -FC5A143
 IO        LST3     RJ     OST         OUTPUT SKIP TURPLE                                  FC5A143       51     A     
 IO                                                                                        IO          2486     A     
 IO        LST.S    BSS    0           **** ENTRY FOR ENCODE/DECODE ****                   IO          2487     A     
 IO                 SA1    IOARGT                                                          IO          2488     A     
 IO                 =A2    A1-IOARGT+IOREF                                                 IO          2489     A     
 IO                 BX6    X1          SET DIRECTION INTO ARG MODE                         IO          2490     A     
 IO                 LX7    X2                                                              IO          2491     A     
 IO                 SA6    ARGMODE                                                         IO          2492     A     
 IO                 SX6    B6                                                              IO          2493     A     
 IO                 SA7    REFVAR                                                          IO          2494     A     
 IO                 MI     B6,LST.N    IF NAMELIST OPERATION                               IO          2495     A     
 IO                 BX6    -X6         INDICATE NO I/O CALLS YET                           IO          2496     A     
 IO                 SA6    IONAM                                                           IO          2497     A     
 IO                 SB3    S.IOCALL                                                        IO          2498     A     
 IO                 SB6    B6+B3       ADDRESS OF I/O NAME                                 IO          2499     A     
 IO                 TAGSEX B6                                                              IO          2500     A     
 IO                 BX6    X0                                                              IO          2501          I
          -FC5A232
 IO                 LX6    TP.ORDP                                                         IO          2502          I
          -FC5A232
 IO                 SA6    IOORD       SAVE FOR POSSIBLE FREE FORM COMMA CONTROL           IO          2503          I
          -FC5A232
 IO                 RJ     PCT         FINISH AND OUTPUT CONTROL TURPLES                   IO          2504          I
          -FC5A232
 IO                 SA1    T=BLST                                                          FC5A232        9     A     
 IO                 LX6    X1                                                              FC5A232       10     A     
 IO                 SA6    IODOLEN     PRESERVE FOR LATER RESTORATION                      FC5A232       11     A     
 IO                                                                                        IO          2505     A     
 IO       *         STORE SPECIAL LEFT PAREN OVER LAST TOKEN OF UNIT/FORMAT                IO          2506     A     
 IO       *         DESIGNATOR (OR WHATEVER PRECEDES THE LIST), TO PROTECT                 IO          2507     A     
 IO       *         UNARY MINUS IN I/O LIST.  THEN COMPILE THE LIST, WITH                  IO          2508     A     
 IO       *         PARSE MODE = 'EXPR'.                                                   IO          2509     A     
 IO                                                                                        IO          2510     A     
 IO                 SA1    ARGMODE                                                         IO          2511     A     
 IO                 SA2    IODTA                                                           IO          2512     A     
 IO                 SX7    O.SLP                                                           IO          2513     A     
 IO                 SX6    PM=EXPR                                                         IO          2514     A     
 IO                 SA7    B4-B1       INSTALL O.SLP BEFORE LIST                           IO          2515     A     
 IO                 CALL   CVL         COMPILE VARIABLE LIST                               IO          2516          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC5A232
 IO                                                                                        IO          2517          I
          -FC5A232
 IO                 RJ     CVL         COMPILE VARIABLE LIST                               FC5A232       12     A     
 IO                 SA1    B4-B1                                                           IO          2518     A     
 IO                 SA3    LISTDIR                                                         IO          2519     A     
 IO                 SX1    X1-O.COMMA                                                      IO          2520     A     
 IO                 SA4    IODIR                                                           IO          2521     A     
 IO                 NZ     X1,LST10    IF *EOS* NOT PRECEDED BY *,*                        IO          2522     A     
 IO                 ZR     X3,LST9     IF NOT LIST DIRECTED I/O                            IO          2523     A     
 IO                 ZR     X4,LST9     IF INPUT DIRECTION                                  IO          2524     A     
 IO                 ANSI   E.IOL1      ** I/O LIST ENDING WITH *,* NON-ANSI                FC50643        7     A     
 IO                 SA1    IODTA       FETCH TURPLE HEADER PROTOTYPE                       IO          2525     A     
 IO                 SX7    7           FUNNY MODE FOR LIBRARY                              IO          2526     A     
 IO                 LX7    TH.MODEP                                                        IO          2527          I
          -FC50104
 IO                 LX7    SP.MODEP                                                        FC50104       68     A     
 IO                 BX7    X1+X7                                                           IO          2528     A     
 IO                 SA7    IODTH                                                           IO          2529     A     
 IO                 SX4    7           FUNNY MODE FOR LIBRARY                              IO          2530     A     
 IO                 SA5    CONZER                                                          IO          2531          I
          -FC5A165
 IO                 LX4    TP.MODEP                                                        FC5A165        4     A     
 IO                 SA1    CONZER                                                          FC5A165        5     A     
 IO                 BX4    X4+X1       1OP = ZERO W/MODE=7                                 FC5A165        6     A     
 IO                 SA5    CONONE      2OP = LENGTH = 1                                    FC5A165        7     A     
 IO                 EMIT   IODTH,*,T.IOARG                                                 IO          2532     A     
 IO                 EQ     LST10                                                           IO          2533     A     
 IO                                                                                        IO          2534     A     
 IO        LST9     FATAL  E.IOL5      ** TRAILING COMMA NFG                               IO          2535     A     
 IO                                                                                        FC50643        8     A     
 IO        LST10    BSS                                                                    IO          2536     A     
 IO                 BX6    0                                                               IO          2537     A     
 IO                 RJ     IOJ         COMPILE TERMINAL CALL                               IO          2538     A     
 IO                 SA4    IOSKP                                                           IO          2539     A     
 IO                 ZR     X4,LST11    IF NO SKIP LABEL                                    IO          2540     A     
 IO                 =X5    0           2OP = NULL                                          IO          2541     A     
 IO                 EMIT   OPBSS,*                                                         IO          2542     A     
 IO                                                                                        FC50643        9     A     
 IO        LST11    BSS                                                                    IO          2543     A     
 IO                 CALL   OIL         OUTPUT IL                                           IO          2544     A     
 IO                 EQ     PSL                                                             IO          2545     A     
 IO        LST.N    SPACE  4,10                                                            IO          2546     A     
 IO       **        LST.N - FINISH UP FOR *NAMELIST* I/O STATEMENT.                        IO          2547     A     
 IO       *                                                                                IO          2548     A     
 IO       *         THE CONTROL TURPLES WILL BE FINISHED HERE (WHEN WE FETCH UP            IO          2549     A     
 IO       *         THE ACTUAL NAME).  TEST IS MADE FOR AN ERRONEOUS I/O LIST.             IO          2550     A     
 IO                                                                                        IO          2551     A     
 IO                                                                                        IO          2552     A     
 IO        LST.N    ANSI   E.ION1                                                          IO          2553     A     
 IO                 SA1    IODIR                                                           IO          2554     A     
 IO                 SA5    B4                                                              IO          2555     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 AX2    X1,B1       DIRECTION / 2                                       IO          2556     A     
 IO                 SB6    S.NLST                                                          IO          2557     A     
 IO                 SB6    B6+X2       ADJUST FOR I/O DIRECTION                            IO          2558     A     
 IO                 TAGSEX B6                                                              IO          2559     A     
 IO                 RJ     PCT         FINISH AND OUTPUT CONTROL TURPLES                   IO          2560          I
          -FC5A232
 IO                 SB3    S.IOCALL                                                        IO          2561     A     
 IO                 SX6    B3-B6       NEGATIVE INDICATES INITIAL CALL                     IO          2562     A     
 IO                 SA6    IONAM                                                           IO          2563     A     
 IO                 ZR     X5,LST10    IF *EOS* -- EXIT OK                                 IO          2564     A     
 IO                 SB3    X5-O.)                                                          IO          2565     A     
 IO                 NZ     B3,LST.N1   IF NOT *RP*                                         IO          2566     A     
 IO                 SA5    B4+1                                                            IO          2567     A     
 IO                 ZR     X5,LST10    IF *EOS* -- EXIT OK                                 IO          2568     A     
 IO        LST.N1   WARN   E.ION                                                           IO          2569     A     
 IO                 EQ     LST10                                                           IO          2570     A     
 IO                 TITLE  PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.             IO          2571     A     
 IO        CVL      SPACE  4,10                                                            IO          2572     A     
 IO       **        CVL -  COMPILE INPUT/OUTPUT/DATA LIST.                                 IO          2573     A     
 IO       *                                                                                IO          2574     A     
 IO       *         IF THE LIST IS NOT EMPTY, IOD IS CALLED TO SCEARCH THE LIST            IO          2575     A     
 IO       *         FOR IMPLIED DO LOOPS.                                                  IO          2576     A     
 IO       *                                                                                IO          2577     A     
 IO       *         TESTING FOR IMPLIED DO LOOP COLLAPSE IS PERFORMED AND                  IO          2578     A     
 IO       *         COLLAPSE IS PERFORMED WHERE POSSIBLE.  EACH LIST ITEM IS THEN          IO          2579     A     
 IO       *         PARSED.  THE APPROPRIATE COMMA PROCESSOR EMITS TURPLES.                IO          2580     A     
 IO       *                                                                                IO          2581     A     
 IO       *         ENTRY  (B4) -> SEPARATOR IN FRONT OF LIST.                             IO          2582     A     
 IO       *                (X1) = ARGMODE (AM.).                                           IO          2583     A     
 IO       *                (X2) = TURPLE HEADER (TH.).                                     IO          2584     A     
 IO       *                (X6) = PARSE-MODE FOR LIST ITEMS (PM=).                         IO          2585     A     
 IO       *                THE LIST TERMINATES WITH TWO (O.EOS) TOKENS.                    IO          2586     A     
 IO       *                                                                                IO          2587     A     
 IO       *         EXIT   (B4) -> TERMINATING (O.EOS) TOKEN.                              IO          2588     A     
 IO       *                                                                                IO          2589     A     
 IO       *         USES   ALL REGISTERS                                                   IO          2590     A     
 IO       *                                                                                IO          2591     A     
 IO       *         CALLS  EMT, FATAL, IOJ, OIL, PAR.                                      IO          2592     A     
 IO                                                                                        IO          2593     A     
 IO                                                                                        IO          2594     A     
 IO        CVL      SUBR   =           ENTRY/EXIT...                                       IO          2595     A     
 IO                 BX7    X1                                                              FC50061        5     A     
 IO                 HX7    AM.REF                                                          FC50061        6     A     
 IO                 AX7    -AM.REFL    EXTRACT CROSS REFERENCE CHARACTER                   FC50061        7     A     
 IO                 SA7    IOREF                                                           FC50061        8     A     
 IO                 SA4    T=BLST                                                          IO          2596     A     
 IO                 BX7    X2          SAVE CALLER'S TURPLE HEADER                         IO          2597     A     
 IO                 SA3    B4                                                              IO          2598     A     
 IO                 SA7    CVLTH                                                           IO          2599     A     
 IO                 BX7    X4          REMEMBER ORIGINAL DEPTH OF BLOCK-STRUCTURES         IO          2600     A     
 IO                 =A2    B4+1                                                            IO          2601     A     
 IO                 SA6    CVLPM       SAVE CALLER'S PARSE MODE                            IO          2602     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA7    IODOLEN                                                         IO          2603     A     
 IO                 ZR     X3,CVL8     IF EMPTY LIST                                       IO          2604          I
          -FC50014
 IO                 ZR     X3,EXIT.    IF EMPTY LIST                                       FC50014       21     A     
 IO                 ZR     X2,CVL10    IF PRINT *,                                         FC50014       22     A     
 IO                 BX7    X1                                                              IO          2605     A     
 IO                 SX6    B4                                                              IO          2606     A     
 IO                 SA7    CVLAM                                                           IO          2607     A     
 IO                 SA7    ARGMODE                                                         IO          2608     A     
 IO                 SA6    IODOCOL     INITIALIZE POINTER                                  IO          2609     A     
 IO                 RJ     IOD         MARK DO LOOPS                                       IO          2610     A     
 IO                 SX6    O.COMMA                                                         IO          2611          I
          -FC5A218
 IO                 SA4    DATFLG                                                          FC5A218       63     A     
 IO                 NZ     X4,CVL1     IF *DATA*                                           FC5A218       64     A     
 IO                 SHRINK T=IOLC                                                          FC5A218       65     A     
 IO                 SA6    TL=LCI                                                          FC5A218       66     A     
 IO                                                                                        FC5A218       67     A     
 IO        CVL1     SX6    O.COMMA                                                         FC5A218       68     A     
 IO                 SA6    B4          SET OFF I/O LIST                                    IO          2612     A     
 IO                                                                                        IO          2613     A     
 IO                                                                                        IO          2614     A     
 IO       *         CVL.N  - PROCESS NEXT ELEMENT OF THE I/O LIST.                         IO          2615     A     
 IO       *                                                                                IO          2616     A     
 IO       *         ENTRY  (B4) -> CURRENT TOKEN, MINUS ONE.                               IO          2617     A     
 IO       *                                                                                IO          2618     A     
 IO       *         FIRST, EXAMINE ELEMENT AND DETERMINE WHAT TO DO --                     IO          2619     A     
 IO       *                <EOS>  _ END-OF-STRING.  CONCLUDE LIST AT "CVL8".               IO          2620     A     
 IO       *                O.DOBI _ DO-BEGIN.  GO TO "DOB" TO COMPILE DO INITIAL           IO          2621     A     
 IO       *                         TURPLES.  RETURN TO HERE FOR NEXT ELEMENT.             IO          2622     A     
 IO       *                O.DOCI _ DO-CLOSE.  GO TO "DOC" TO COMPILE IMPLIED-DO           IO          2623     A     
 IO       *                         CONCLUSION TURPLE.  RETURN TO HERE FOR ELEMENT         IO          2624     A     
 IO       *                         PAST THE DO.                                           IO          2625     A     
 IO       *                O.DCBI _ DO-COLLAPSE BEGIN.  GO TO "DCB" TO PROCESS             IO          2626     A     
 IO       *                         MULTIPLY TURPLE IF NEEDED.  SET UP COLLAPSE            IO          2627     A     
 IO       *                         PROTOTYPE AND RETURN HERE TO PROCESS ARRAY.            IO          2628     A     
 IO       *                O.DCCI _ DO-COLLAPSE CONCLUSION.  MAKE AN INCREMENT             IO          2629     A     
 IO       *                         TURPLE AND RETURN TO PROCESS NEXT ELEMENT.             IO          2630     A     
 IO       *                <ELSE> _ A SIMPLE (OR ERRONEOUS) LIST IS AT HAND.               IO          2631     A     
 IO       *                         PARSE IT.                                              IO          2632     A     
 IO                                                                                        IO          2633     A     
 IO                                                                                        IO          2634     A     
 IO        CVL.N    =A2    B4+1        FETCH ELEMENT                                       IO          2635     A     
 IO                 =B4    B4+1                                                            IO          2636          I
          -FC50413
 IO                 SA1    T=PAR                                                           FC50413        6     A     
 IO                 BX6    X1                                                              FC50413        7     A     
 IO                 SB4    B4+1                                                            FC50413        8     A     
 IO                 SA6    CURST       RESET TO INHIBIT SQUEEZE                            FC50413        9     A     
 IO                 SB7    X2-O.DOBI                                                       IO          2637     A     
 IO                 ZR     X2,CVL8     IF END OF LIST                                      IO          2638     A     
 IO                 MI     B7,CVL4     IF SIMPLE LIST                                      IO          2639     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 JP     B7+*+1                                                          IO          2640     A     
 IO                                                                                        IO          2641     A     
 IO                 LOC    O.DOBI                                                          IO          2642     A     
 IO        O.DOBI   EQ     DOB         DO BEGIN                                            IO          2643     A     
 IO        O.DOCI   EQ     DOC         DO CONCLUSION                                       IO          2644     A     
 IO        O.DCBI   EQ     DCB         DO COLLAPSE BEGIN                                   IO          2645     A     
 IO        O.DCCI   EQ     DCC         DO COLLAPSE CONCLUSION                              IO          2646     A     
 IO                 IFEQ   TEST,ON,1                                                       IO          2647     A     
 IO                 EQ     "BLOWUP"    ERROR                                               IO          2648     A     
 IO                 LOC    *O                                                              IO          2649     A     
 IO                                                                                        IO          2650     A     
 IO       **                                                                               IO          2651     A     
 IO       *         HANDLE SIMPLE, BREAK-FREE LIST.                                        IO          2652     A     
 IO       *         *PAR* DOES THE DIRTY WORK, CALLING ON THE COMMA CHECKER                IO          2653     A     
 IO       *         C=DVL OR C=IOL.  HE WILL RETURN TO US UPON FINDING                     IO          2654     A     
 IO       *         AN *EOS*, WHICH MAY HAVE BEEN INVENTED BY SOME IMPLIED                 IO          2655     A     
 IO       *         LIST PROCESSING.  RETURN TO *CVL.N* TO CHECK.                          IO          2656     A     
 IO                                                                                        IO          2657     A     
 IO        CVL4     SA1    CVLPM                                                           IO          2658     A     
 IO                 BX6    X1                                                              IO          2659     A     
 IO                 SA6    PARMODE                                                         IO          2660     A     
 IO                 CALL   PAR         PARSE SIMPLE LIST                                   IO          2661     A     
 IO                 =B4    B4+1                                                            IO          2662     A     
 IO                 EQ     CVL.N       LOOP..                                              IO          2663     A     
 IO                                                                                        IO          2664     A     
 IO                                                                                        IO          2665     A     
 IO       *         HERE TO WRAP-UP WHEN END OF LIST IS REALLY ENCOUNTERED --              IO          2666     A     
 IO       *         TEST FOR UNTERMINATED IMPLIED DO LOOPS, AND THEN INSURE                IO          2667     A     
 IO       *         THAT (T.BLST) IS THE SAME AS IT WAS UPON ENTRY.                        IO          2668     A     
 IO                                                                                        IO          2669     A     
 IO        CVL8     BSS                                                                    IO          2670     A     
 IO                 SA3    IODOLEN                                                         IO          2671     A     
 IO                 SA2    T=BLST                                                          IO          2672     A     
 IO                 SB4    A2-B1                                                           IO          2673          I
          -FC5A165
 IO                 =B4    B4-1        B4 _ O.EOS TOKEN                                    FC5A165        8     A     
 IO                 BX0    X2-X3       CHECK FOR UNPROCESSED DO-S                          IO          2674     A     
 IO                 LX6    X3                                                              IO          2675     A     
 IO                 ZR     X0,EXIT.    IF ALL DO-S BALANCED                                IO          2676     A     
 IO                 SHRINK T=BLST,X6   RESET STRUCTURES TABLE                              IO          2677     A     
 IO                 FATAL  E.IO14      ** UN-TERMINATED IMPLIED LOOPS                      IO          2678     A     
 IO                 EQ     EXIT.                                                           IO          2679     A     
 IO                                                                                        FC50014       23     A     
 IO        CVL10    SB4    B4+1                                                            FC50014       24     A     
 IO                 EQ     EXIT.                                                           FC50014       25     A     
 IO                                                                                        IO          2680     A     
 IO        CVLAM    BSS    1           SAVE CALLER'S ARGUMENT MODE                         IO          2681     A     
 IO        CVLPM    BSS    1           SAVE CALLER'S PARSE MODE                            IO          2682     A     
 IO        CVLTH    BSS    1           SAVE CALLER'S DATA TURPLE-HEADER                    IO          2683     A     
 IO        DCB      SPACE  4,10                                                            IO          2684     A     
 IO       **        DCB  - I/O DO COLLAPSE BEGIN                                           IO          2685     A     
 IO       *                                                                                IO          2686     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         ENTRY  (B4) _ DO-COLLAPSE BEGIN TOKEN (O.DCBI)                         IO          2687     A     
 IO       *                (T.TB) = REFORMATTED BY *IOD* AND *IDC*                         IO          2688     A     
 IO       *                                                                                IO          2689     A     
 IO       *         EXIT   (B4) _ OBJECT ARRAY OF COLLAPSE                                 IO          2690     A     
 IO       *                                                                                IO          2691     A     
 IO       *         USES   A1,A2,A3,A4,A5,A6,A7  X1,X2,X3,X4,X5,X6,X7  B4,B5               IO          2692     A     
 IO       *                                                                                IO          2693     A     
 IO       *         CALLS  CT1, EMT, NCS                                                   IO          2694     A     
 IO                                                                                        IO          2695     A     
 IO                                                                                        IO          2696     A     
 IO        DCB      BSS    0           ...ENTRY                                            IO          2697     A     
 IO                 SA1    B4                                                              IO          2698     A     
 IO                 AX1    TB.IBCCP                                                        IO          2699     A     
 IO                 =B4    B4-1        RESET FOR *DCB3* LOOP                               IO          2700     A     
 IO                 =B5    X1+DC=CCT   POINTER TO DO COLLAPSE CONCLUSION TOKEN             IO          2701     A     
 IO                 ERRNZ  18-TB.IBCCL                                                     IO          2702     A     
 IO                 =A4    B5+DC=VAR   FETCH VARIABLE COLLAPSE MULTIPLIER                  IO          2703     A     
 IO                 ZR     X4,DCB2     IF COLLAPSE NOT VARIABLE                            IO          2704     A     
 IO                                                                                        IO          2705     A     
 IO       *         THE LAST LIMIT WAS VARIABLE, MUST OUTPUT MULTIPLY TURPLE               IO          2706     A     
 IO                                                                                        IO          2707     A     
 IO                 LX0    X4                                                              IO          2708     A     
 IO                 CALL   CT1         GET TP. FORMAT                                      IO          2709     A     
 IO                 BX4    X6          FOR MULTIPLY TURPLE, IF NECESSARY                   FC50378        6     A     
 IO                 =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 IO          2710          I
          -FC50620
 IO                 =A5    B5+DC=ISV   GET INITIAL VALUE                                   FC50620       18     A     
 IO                 LX0    X5                                                              FC50620       19     A     
 IO                 SBIT   X0,TP.SHRTP                                                     FC50620       20     A     
 IO                 PL     X0,DCB03    IF NOT SHORT CONSTANT                               FC50620       21     A     
 IO                 HX5    TP.BIAS                                                         FC50620       22     A     
 IO                 AX5    -TP.BIASL   ISOLATE CONSTANT                                    FC50620       23     A     
 IO                 SX6    X5-1        BIAS BY -1                                          FC50620       24     A     
 IO                 ZR     X6,DCB09    IF INITIAL=1                                        FC50620       25     A     
 IO                 =X7    M.INT                                                           FC50620       26     A     
 IO                 CALL   NCS         FORM CONSTANT                                       FC50620       27     A     
 IO                 BX5    X6                                                              FC50620       28     A     
 IO                 EMIT   V=SUB.I,BOTH   SUBTRACT INITIAL FROM LIMIT                      FC50620       29     A     
 IO                 EQ     DCB06                                                           FC50620       30     A     
 IO                                                                                        FC50620       31     A     
 IO        DCB03    EMIT   V=SUB.I,BOTH   SUBTRACT INITIAL FROM LIMIT                      FC50620       32     A     
 IO                 SA1    T=PAR                                                           FC50620       33     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620       34     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620       35     A     
 IO                 LX6    TP.ORDP                                                         FC50620       36     A     
 IO                 BX4    X6+X2       FORM INDIRECT OPERAND                               FC50620       37     A     
 IO                 SA5    CONONE      GET CONSTANT ONE                                    FC50620       38     A     
 IO                 EMIT   V=ADD.I,BOTH    ADD ONE                                         FC50620       39     A     
 IO                                                                                        FC50620       40     A     
 IO        DCB06    SA1    T=PAR                                                           FC50620       41     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620       42     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620       43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 LX6    TP.ORDP                                                         FC50620       44     A     
 IO                 BX6    X6+X2       FORM INDIRECT OPERAND                               FC50620       45     A     
 IO                 BX4    X6                                                              FC50620       46     A     
 IO                                                                                        FC50620       47     A     
 IO        DCB09    =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 FC50620       48     A     
 IO                 BX6    X4                                                              FC50620       49     A     
 IO                 =X2    X5-1                                                            IO          2711     A     
 IO                 NZ     X2,DCB1     IF SIZE .NE. 1                                      IO          2712     A     
 IO                 SA6    IODOIND+1   THE VARIABLE MULTIPLIER WILL BE SIZE                IO          2713     A     
 IO                 EQ     DCB3                                                            IO          2714     A     
 IO                                                                                        IO          2715     A     
 IO        DCB1     BX6    X5                                                              IO          2716          I
          -FC50620
 IO        DCB1     SA1    WO.DOOT     GET TRIP COUNT                                      FC50620       50     A     
 IO                 ZR     X1,DCB15    IF ZERO TRIP DO                                     FC50620       51     A     
 IO                 SA5    CONONE      GET CONSTANT ONE                                    FC50620       52     A     
 IO                 EMIT   V=MAX0,BOTH   GUARANTEE ONE TRIP                                FC50620       53     A     
 IO                 SA1    T=PAR                                                           FC50620       54     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620       55     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620       56     A     
 IO                 LX6    TP.ORDP                                                         FC50620       57     A     
 IO                 BX4    X2+X6       FORM INDIRECT OPERAND                               FC50620       58     A     
 IO                 =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 FC50620       59     A     
 IO                                                                                        FC50620       60     A     
 IO        DCB15    BX6    X5                                                              FC50620       61     A     
 IO                 =X7    M.INT                                                           IO          2717     A     
 IO                 CALL   NCS                                                             IO          2718     A     
 IO                 LX5    X6                                                              IO          2719     A     
 IO                 EMIT   V=MUL.I,BOTH                                                    IO          2720     A     
 IO                 SA1    T=PAR                                                           IO          2721     A     
 IO                 SX6    X1-Z=TURP                                                       IO          2722     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    IO          2723     A     
 IO                 LX6    TP.ORDP                                                         IO          2724     A     
 IO                 BX6    X6+X2       MAKE INTERMEDIATE OPERAND                           IO          2725     A     
 IO                 SA6    IODOIND+1   SAVE AS SIZE OPERAND                                IO          2726     A     
 IO                 EQ     DCB3                                                            IO          2727     A     
 IO                                                                                        IO          2728     A     
 IO        DCB2     SA4    IODOIND     FETCH ARRAY OPERAND                                 IO          2729          I
          -FC50084
 IO                 =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 IO          2730          I
          -FC50084
 IO                 =A1    B5+DC=OFF   FETCH OFFSET                                        IO          2731          I
          -FC50084
 IO                 LX1    TP.BIASP                                                        IO          2732          I
          -FC50084
 IO                 BX6    X4+X1       MERGE IN BIAS                                       IO          2733          I
          -FC50084
 IO        DCB2     =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 FC50084        8     A     
 IO                 LX5    TP.BIASP                                                        IO          2734     A     
 IO                 CLAS=  X2,TP,(SHRT)                                                    IO          2735     A     
 IO                 BX7    X2+X5                                                           IO          2736     A     
 IO                 SA6    IODOIND                                                         IO          2737          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50084
 IO                 =A7    A6+1                                                            IO          2738          I
          -FC50084
 IO                 SA7    IODOIND+1   SAVE COLLAPSE SIZE                                  FC50084        9     A     
 IO                                                                                        IO          2739     A     
 IO       *         OUTPUT INITIAL SUBSCRIPT VALUE TURPLES                                 IO          2740     A     
 IO                                                                                        IO          2741     A     
 IO        DCB3     SA1    B4+1                                                            IO          2742     A     
 IO                 SB2    X1-O.DCBI                                                       IO          2743     A     
 IO                 ERRNZ  18-TB.TOTL                                                      IO          2744     A     
 IO                 NZ     B2,CVL.N                                                        IO          2745     A     
 IO                 =B4    B4+1                                                            IO          2746     A     
 IO                 HX1    TB.IBCC                                                         IO          2747     A     
 IO                 AX1    -TB.IBCCL   ISOLATE COLLAPSE TOKEN ADDRESS                      IO          2748     A     
 IO                 SA1    X1          FETCH COLLAPSE TOKEN                                IO          2749     A     
 IO                 =A4    A1+DC=ISV                                                       IO          2750     A     
 IO                 HX1    TB.ICIX                                                         IO          2751     A     
 IO                 AX1    -TB.ICIXL   ISOLATE INDEX ORDINAL                               IO          2752          I
          -FC5A211
 IO                 BX5    X1                                                              IO          2753          I
          -FC5A211
 IO                 LX5    TP.ORDP                                                         IO          2754          I
          -FC5A211
 IO                 AX1    -TB.ICIXL   EXTRACT INDEX TO CONTROL INDEX                      FC5A211       16     A     
 IO                 SA5    X1+IDCIDX                                                       FC5A211       17     A     
 IO                 EMIT   V=STR.I,BOTH                                                    IO          2755     A     
 IO                 EQ     DCB3                                                            IO          2756     A     
 IO        DCC      SPACE  4,10                                                            IO          2757     A     
 IO       **        DCC -  I/O DO COLLAPSE CONCLUSION                                      IO          2758     A     
 IO       *                                                                                IO          2759     A     
 IO       *         ENTRY  (B4) _ DO-COLLAPSE CONCLUSION TOKEN (O.DCCI)                    IO          2760     A     
 IO       *                (T.TB) = REFORMATTED BY *IOD* AND *IDC*                         IO          2761     A     
 IO       *                                                                                IO          2762     A     
 IO       *         EXIT   (B4) _ CLOSING *)*+1 OF COLLAPSED DO LEVEL                      IO          2763     A     
 IO       *                                                                                IO          2764     A     
 IO       *         USES   A1  X1  B4                                                      IO          2765     A     
 IO       *                                                                                IO          2766     A     
 IO       *         CALLS  EMT                                                             IO          2767     A     
 IO                                                                                        IO          2768     A     
 IO                                                                                        IO          2769     A     
 IO        DCC      BSS    0           ...ENTRY                                            IO          2770     A     
 IO                 SA1    B4                                                              IO          2771     A     
 IO                 AX1    TB.ICCPP    ISOLATE POINTER TO CLOSING *)*                      IO          2772     A     
 IO                 =B4    X1+1        POINT PAST CLOSING *)*                              IO          2773     A     
 IO                 ERRNZ  18-TB.ICCPL                                                     IO          2774     A     
 IO                 EQ     CVL.N                                                           IO          2775     A     
 IO        DOB      SPACE  4,10                                                            IO          2776     A     
 IO       **        DOB -  I/O LIST DO-BEGIN PROCESSING.                                   IO          2777     A     
 IO       *                                                                                IO          2778     A     
 IO       *         ENTRY  (B4) _ O.DOBI MARK                                              IO          2779     A     
 IO       *                                                                                IO          2780     A     
 IO       *         EXIT   TO *CVL.N*.                                                     IO          2781     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                (B4) PRESERVED.                                                 IO          2782     A     
 IO       *                                                                                IO          2783     A     
 IO       *         USES   ALL BUT A0.                                                     IO          2784     A     
 IO       *                                                                                IO          2785     A     
 IO       *         CALLS  CDI, IOJ, MXP                                                   IO          2786     A     
 IO                                                                                        IO          2787     A     
 IO                                                                                        IO          2788     A     
 IO        DOB      BSS    0           ENTRY                                               IO          2789     A     
 IO                 RJ     IDC         PROCESS I/O IMPLIED DO COLLAPSE                     IO          2790     A     
 IO                 NZ     B7,DOB8     IF LOOP COLLAPSED                                   IO          2791          I
          -FC5A271
 IO                 SX6    1                                                               IO          2792          I
          -FC5A271
 IO                 ZR     B7,DOB1     IF LOOP NOT COMPLETLY COLLAPSED                     FC5A271        7     A     
 IO                 PL     B7,DOB8     IF COMPLETE COLLAPSE                                FC5A271        8     A     
 IO                 SX6    1                                                               FC5A271        9     A     
 IO                 RJ     IOJ         INTERRUPT LIST                                      FC5A271       10     A     
 IO                 EQ     DOB8                                                            FC5A271       11     A     
 IO                                                                                        FC5A271       12     A     
 IO        DOB1     SX6    1                                                               FC5A271       13     A     
 IO                 RJ     IOJ         INTERRUPT LIST                                      IO          2793     A     
 IO                 SA2    B4                                                              IO          2794     A     
 IO                 SA1    N.GL                                                            IO          2795     A     
 IO                 AX2    TB.IOIXP    ISOLATE LINK TO DO-INDEX                            IO          2796     A     
 IO                 SX2    X2          ADDRESS OF INDEX                                    IO          2797     A     
 IO                 =X7    O.=                                                             IO          2798     A     
 IO                 =X6    X1+1        UPDATE PROGRAM TAG                                  IO          2799     A     
 IO                 SX0    B4                                                              IO          2800     A     
 IO                 =A7    X2+1                                                            IO          2801     A     
 IO                 SA6    A1                                                              IO          2802     A     
 IO                 LX0    -18                                                             IO          2803     A     
 IO                 BX3    X6+X0                                                           IO          2804     A     
 IO                 =B4    X2+1        POINT TO*=*                                         IO          2805     A     
 IO                 LX3    2*18                                                            IO          2806     A     
 IO                 IX7    X3+X2       = 24/TP.ORDL, 18/FWA-DO, 18/INDEX-ADDR              IO          2807     A     
 IO                 SA7    DOBA        SAVE O.DOCI POINTERS                                IO          2808     A     
 IO                                                                                        IO          2809     A     
 IO       **        PARSE *DO* INITIAL CODE.                                               IO          2810     A     
 IO       *         (X6) = L-TAG FOR LOOP.                                                 IO          2811     A     
 IO                                                                                        IO          2812     A     
 IO                 CALL   CDI         PARSE IT                                            IO          2813     A     
 IO                                                                                        IO          2814     A     
 IO                 =X0    O.DOCI                                                          IO          2815     A     
 IO                 SA3    DOBA                                                            IO          2816     A     
 IO                 BX4    X6+X0       SAVE *DO-ERROR* FLAG                                IO          2817     A     
 IO                 SB3    B4          _ )                                                 IO          2818     A     
 IO                 SB2    X3          ADDRESS OF DO-INDEX                                 IO          2819     A     
 IO                 AX3    18                                                              IO          2820     A     
 IO                 SB4    X3          RESTORE (B4) _ FRONT OF DO-LIST                     IO          2821     A     
 IO                 SX2    B4-B3                                                           IO          2822     A     
 IO                 BX6    O.EOS                                                           IO          2823     A     
 IO                 =A6    B2-1        FORCE *EOS* AT END OF LIST                          IO          2824     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 IX0    X3-X2                                                           IO          2825     A     
 IO                 LX0    18                                                              IO          2826     A     
 IO                 IX7    X0+X4                                                           IO          2827     A     
 IO                 SA7    B2          STORE DO-CLOSE MARK (OVER THE INDEX)                IO          2828     A     
 IO       ,                            24/ TP.ORDL,  18/ _),  18/ O.DOCI                   IO          2829     A     
 IO                                                                                        IO          2830     A     
 IO       **        PARSER ARGUMENT MODE MAY HAVE BEEN DISTURBED BY ONE OF THE             IO          2831     A     
 IO       *         I/O DO LOOP PROCESSORS (IDC, CDI).                                     IO          2832     A     
 IO       *         RESET IT AS EXPECTED BY *CVL.N*.                                       IO          2833     A     
 IO                                                                                        IO          2834     A     
 IO        DOB8     SA1    CVLAM                                                           IO          2835     A     
 IO                 BX6    X1          RESET PARSER ARGUMENT MODE                          IO          2836     A     
 IO                 SA6    ARGMODE                                                         IO          2837     A     
 IO                 EQ     CVL.N       EXIT..                                              IO          2838     A     
 IO                                                                                        IO          2839     A     
 IO        DOBA     BSS    1           TEMP                                                IO          2840     A     
 IO        DOC      SPACE  4,10                                                            IO          2841     A     
 IO       **        DOC -  I/O LIST DO-CONCLUSION PROCESSING.                              IO          2842     A     
 IO       *                                                                                IO          2843     A     
 IO       *                MAKES DO-TERMINATION ENTRY IN PARSED FILE.                      IO          2844     A     
 IO       *                                                                                IO          2845     A     
 IO       *         ENTRY  (B4) _ O.DOCI MARK.                                             IO          2846     A     
 IO       *                                                                                IO          2847     A     
 IO       *         EXIT   TO *CVL.N*.                                                     IO          2848     A     
 IO       *                (B4) _ NEXT ITEM PAST THE DO.                                   IO          2849     A     
 IO       *                                                                                IO          2850     A     
 IO       *         USES   ALL.                                                            IO          2851     A     
 IO       *                                                                                IO          2852     A     
 IO       *         CALLS  IOJ, MXP, PDT                                                   IO          2853     A     
 IO                                                                                        IO          2854     A     
 IO                                                                                        IO          2855     A     
 IO        DOC      BSS    0           ENTRY                                               IO          2856     A     
 IO                 SX6    1                                                               IO          2857     A     
 IO                 RJ     IOJ         INTERRUPT LIST                                      IO          2858     A     
 IO                 SA3    B4          24/ TP.ORDL,  18/ _NEXT,  18/ O.DOCI                IO          2859     A     
 IO                 AX3    18                                                              IO          2860     A     
 IO                 =B4    X3+1        SKIP THE COMMA                                      IO          2861     A     
 IO        DOC2     SA2    B4                                                              IO          2862     A     
 IO                 SB2    X2-O.)                                                          IO          2863     A     
 IO                 NZ     B2,DOC4     IF NO REDUNDANT PAREN                               IO          2864     A     
 IO                 =B4    B4+1        SKIP REDUNDANT PAREN                                IO          2865     A     
 IO                 EQ     DOC2                                                            IO          2866     A     
 IO                                                                                        IO          2867     A     
 IO        DOC4     AX3    18                                                              IO          2868     A     
 IO                 SX2    X3          ISOLATE TP.ORDL OF THIS DO                          IO          2869     A     
 IO                 MI     X3,DOC6     IF ERROR IN DO-DEFINITION                           IO          2870     A     
 IO                 CALL   PDT         PROCESS DO TERMINATION (PASS 1)                     IO          2871     A     
 IO                                                                                        IO          2872     A     
 IO        DOC6     SA1    B4+B1                                                           IO          2873     A     
 IO                 =A1    B4+1                                                            IO          2874     A     
 IO                 NZ     X1,CVL.N    IF NOT EOS                                          IO          2875     A     
 IO                 =A2    B4                                                              IO          2876     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SX2    X2-O.COMMA                                                      IO          2877     A     
 IO                 NZ     X2,CVL.N    IF EOS, CHECK PRECEEDING ELEMENT                    IO          2878     A     
 IO                 =B4    B4+1                                                            IO          2879     A     
 IO                 EQ     CVL.N       EXIT..                                              IO          2880     A     
 IO        IDC      EJECT                                                                  IO          2881     A     
 IO       **        IDC -  IMPLIED DO COLLAPSE                                             IO          2882     A     
 IO       *                                                                                IO          2883     A     
 IO       *         THIS ROUTINE ATTEMPTS TO COLLAPSE AN I/O IMPLIED DO STRUCTURE.         IO          2884     A     
 IO       *         IF SUCCESSFUL, ONE OR MORE LEVELS OF THE DO NEST WILL BE               IO          2885     A     
 IO       *         DISCARDED, AND AN I/O AP-LIST DATA TURPLE WILL BE OUTPUT,              IO          2886     A     
 IO       *         WITH THE SIZE OPERAND THE AMOUNT OF COLLAPSE.                          IO          2887     A     
 IO       *                                                                                IO          2888     A     
 IO       *         ***PHASE 0*** THIS ROUTINE DOESNT ALLOW FOR LONG VARIABLES             IO          2889          I
          -FC50084
 IO       *         FOR THOSE FUNCTIONS DONE IN LINE (I.E., NOT HANDLED BY *PAR*).         IO          2890          I
          -FC50084
 IO       *         THIS WAS TO FACILITATE IMPLEMENTATION.  AS LONG VARIABLES GO           IO          2891          I
          -FC50084
 IO       *         AWAY AT PHASE 1, IT SEEMED FOOLISH TO LARD UP THE CODE WITH            IO          2892          I
          -FC50084
 IO       *         TESTS FOR THEM.  MRR                                                   IO          2893          I
          -FC50084
 IO       *                                                                                IO          2894          I
          -FC50084
 IO       *         ENTRY  (B4) _ I/O DO-BEGIN TOKEN                                       IO          2895     A     
 IO       *                (T.TB) = I/O LIST, WITH IMPLIED DOS MARKED BY *IOD*             IO          2896     A     
 IO       *                (IODOCOL) = POINTER TO LAST DO NEST PROCESSED                   IO          2897     A     
 IO       *                                                                                IO          2898     A     
 IO       *         EXIT   (B7) = 0  -  NO (OR PARTIAL) COLLAPSE                           IO          2899     A     
 IO       *                (B4) _ I/O DO-BEGIN TOKEN                                       IO          2900     A     
 IO       *                                                                                IO          2901     A     
 IO       *                (B7) = 1  -  COMPLETE COLLAPSE                                  IO          2902     A     
 IO       *                (B4) _ CLOSING RIGHT PAREN + 1                                  IO          2903     A     
 IO       *                                                                                FC5A271       14     A     
 IO       *                (B7) = -1 - COMPLETE COLLAPSE (DIMENSION .LT. COLLAPSE)         FC5A271       15     A     
 IO       *                (B4) _ FIRST I/O DO-COLLAPSE BEGIN TOKEN                        FC5A271       16     A     
 IO       *                                                                                IO          2904     A     
 IO       *                (T.TB) = MODIFIED WITH DO-COLLAPSE TOKENS, AS NECESSARY         IO          2905     A     
 IO       *                (IODOCOL) = UPDATED AS NECESSARY                                IO          2906     A     
 IO       *                                                                                IO          2907     A     
 IO       *         USES   ALL                                                             IO          2908     A     
 IO       *                                                                                IO          2909     A     
 IO       *         CALLS  EMT, NCS, PAR                                                   IO          2910          I
          -FC5A211
 IO       *         CALLS  AII, BBC, CML, CT1, EMT, NCS, PCI, SSY                          FC5A211       18     A     
 IO                                                                                        IO          2911     A     
 IO                                                                                        IO          2912     A     
 IO        IDC      SUBR               ...ENTRY/EXIT...                                    IO          2913     A     
 IO                 SA1    DATFLG                                                          IO          2914     A     
 IO                 SX1    X1-PM=DATA                                                      IO          2915     A     
 IO                 ZR     X1,IDC5     IF *DATA* CALLING                                   IO          2916     A     
 IO                 SA1    CO.DBSB                                                         IO          2917     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 MI     X1,EXIT.    IF ARRAY BOUNDS CHECKING ON                         IO          2918     A     
 IO                                                                                        IO          2919     A     
 IO        IDC5     =B7    0                                                               IO          2920     A     
 IO                 SA1    IODOCOL                                                         IO          2921     A     
 IO                 SA2    B4          FETCH THE I/O DO-BEGIN TOKEN                        IO          2922     A     
 IO                 HX2    TB.IOCP                                                         IO          2923     A     
 IO                 AX2    -TB.IOCPL   ISOLATE CLOSING RIGHT PAREN POINTER                 IO          2924     A     
 IO                 IX1    X2-X1                                                           IO          2925     A     
 IO                 MI     X1,EXIT.    IF THIS DO STRUCTURE ALREADY PROCESSED              IO          2926     A     
 IO                 BX6    X2                                                              IO          2927     A     
 IO                 SA6    A1          RESET IODOCOL FOR THIS DO NEST                      IO          2928     A     
 IO                                                                                        IO          2929     A     
 IO       *         TEST NESTING LEVEL                                                     IO          2930     A     
 IO                                                                                        IO          2931     A     
 IO                 SA4    B4          INITIALIZE FETCH                                    IO          2932     A     
 IO                 =B6    1           COUNT OF NESTING LEVEL                              IO          2933     A     
 IO                 =B5    MAX.DIM     LIMIT                                               IO          2934     A     
 IO                                                                                        IO          2935     A     
 IO        IDC10    =A4    A4+1        FETCH NEXT TOKEN                                    IO          2936     A     
 IO                 SB3    X4-O.DOBI                                                       IO          2937     A     
 IO                 ERRNZ  18-TB.TOTL-TB.TOTP                                              IO          2938     A     
 IO                 NZ     B3,IDC15    IF NOT DO BEGIN TOKEN                               IO          2939     A     
 IO                 =B6    B6+1        INCREMENT NESTING LEVEL                             IO          2940     A     
 IO                 GT     B6,B5,EXIT. IF TOO MANY LEVELS OF NESTING                       IO          2941     A     
 IO                 EQ     IDC10       CONTINUE                                            IO          2942     A     
 IO                                                                                        IO          2943     A     
 IO       *         TEST FOR SUBSCRIPTED ARRAY                                             IO          2944     A     
 IO       *                (A4) _ FIRST NON DO-BEGIN TOKEN                                 IO          2945     A     
 IO       *                (B6) = DO NESTING LEVEL                                         IO          2946     A     
 IO       *                (X4) = THE TOKEN                                                IO          2947     A     
 IO                                                                                        IO          2948     A     
 IO        IDC15    =B3    B3+O.DOBI-O.VAR                                                 IO          2949     A     
 IO                 NZ     B3,EXIT.    IF NOT VARIABLE                                     IO          2950     A     
 IO                 MX0    TB.TOCL                                                         IO          2951     A     
 IO                 BX6    X0*X4       ISOLATE ARRAY NAME                                  IO          2952     A     
 IO                 CALL   SSY                                                             IO          2953     A     
 IO                 PL     B7,IDC20    IF IN SYMBOL TABLE                                  IO          2954     A     
 IO                 =B7    0                                                               IO          2955     A     
 IO                 EQ     EXIT.       CANT BE ARRAY                                       IO          2956     A     
 IO                                                                                        IO          2957     A     
 IO        IDC20    SBIT   X2,WB.ARYP                                                      IO          2958     A     
 IO                 =B7    0                                                               IO          2959     A     
 IO                 PL     X2,EXIT.    IF NOT ARRAY                                        IO          2960     A     
 IO                 CALL   CT1         MAKE TAG                                            IO          2961     A     
 IO                 SA6    IDCA        SAVE                                                IO          2962     A     
 IO                 LX5    X6                                                              FC5A256        6     A     
 IO                 BX4    X2          PRESERVE ACCROSS BBC                                FC5A256        7     A     
 IO                 CALL   BBC         BASE/BIAS CONVERT ARRAY                             FC5A256        8     A     
 IO                 LX2    X4          RESTORE                                             FC5A256        9     A     
 IO                 BX6    X5                                                              FC5A256       10     A     
 IO                 SA6    IDCM        SAVE                                                FC5A256       11     A     
 IO                 SX6    B6                                                              IO          2963     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =B7    0                                                               IO          2964     A     
 IO                 HX2    WB.PNT                                                          IO          2965     A     
 IO                 MX0    -WB.PNTL                                                        IO          2966     A     
 IO                 LX2    WB.PNTL                                                         IO          2967     A     
 IO                 BX2    -X0*X2      ISOLATE T.DIM POINTER                               IO          2968     A     
 IO                 SA1    T.DIM                                                           IO          2969     A     
 IO                 SB2    X2                                                              IO          2970     A     
 IO                 SA2    B2+X1       FETCH DIMENSION HEADER                              IO          2971     A     
 IO                 HX2    DH.DIM                                                          IO          2972     A     
 IO                 AX2    -DH.DIML    ISOLATE NUMBER OF DIMENSIONS                        IO          2973     A     
 IO                 IX3    X2-X6                                                           IO          2974     A     
 IO                 MI     X3,EXIT.    IF NESTING LEVEL EXCEEDS DIMENSIONALITY             IO          2975     A     
 IO                 =X7    B2+1        POINT PAST THE HEADER ENTRY                         IO          2976     A     
 IO                 SA7    IDCB        SAVE POINTER TO FIRST DIMENSION                     IO          2977     A     
 IO                 =A4    A4+1        ADVANCE PAST ARRAY NAME                             IO          2978     A     
 IO                 SB2    X4-O.(                                                          IO          2979     A     
 IO                 NZ     B2,EXIT.    IF NOT SUBSCRIPTED ARRAY                            IO          2980     A     
 IO                 SA6    IDCC        SAVE NESTING LEVEL                                  IO          2981     A     
 IO                 SX7    B4                                                              IO          2982     A     
 IO                 BX6    X2                                                              IO          2983     A     
 IO                 SA7    IDCD        SAVE POINTER TO INITIAL DO-BEGIN                    IO          2984     A     
 IO                 SA6    IDCG        SAVE DIMENSIONALITY                                 IO          2985     A     
 IO                 SA1    T=PAR                                                           IO          2986     A     
 IO                 SA2    T=REF                                                           FC50464       12     A     
 IO                 LX6    X1                                                              IO          2987     A     
 IO                 BX7    X2                                                              FC50464       13     A     
 IO                 SA6    IDCJ        SAVE LENGTH OF PARSE FILE FOR RESET                 IO          2988     A     
 IO                 SA7    IDCN        SAVE EXTENT OF XREF FOR RESTORE                     FC50464       14     A     
 IO                 SA1    LOSTREF                                                         FC50464       15     A     
 IO                 BX6    X1                                                              FC50464       16     A     
 IO                 SA6    IDCO        SAVE REFERENCE COUNT FOR RESTORE                    FC50464       17     A     
 IO                                                                                        IO          2989     A     
 IO       **        PROCESS THE SUBSCRIPTS                                                 IO          2990     A     
 IO       *                                                                                IO          2991     A     
 IO       *         SUBSCRIPTS WILL BE TRANSLATED BY *PAR*.  INDIVIDUAL SUBSCRIPTS         IO          2992     A     
 IO       *         ARE PROCESSED BY A=DOCS/C=DOCS.                                        IO          2993     A     
 IO                                                                                        IO          2994     A     
 IO        IDCEXC   BFMIC  TP,(BIAS,ARR,ADDR,1ATR,INTR,SHRT,GL)                            IO          2995     A     
 IO                                                                                        IO          2996     A     
 IO                 SB4    A4                                                              IO          2997     A     
 IO                 MX6    0           INITIALIZE SUBSCRIPT COUNT                          IO          2998     A     
 IO                 SA1    DOCOLS                                                          IO          2999     A     
 IO                 SA6    IDCE                                                            IO          3000     A     
 IO                 RJ     PCI         PARSE COLLAPSE SUBSCRIPTS                           IO          3001     A     
 IO                 SA1    IDCJ        T.PAR UPON ENTRY                                    IO          3002     A     
 IO                 SA2    IDCE        NUMBER OF SUBSCRIPTS                                FC5A214        7     A     
 IO                 SHRINK T=PAR,X1                                                        IO          3003     A     
 IO                 =B4    B4+1        ADVANCE POINTER                                     IO          3004     A     
 IO                 SA3    IDCG        ARRAY DIMENSIONALITY                                FC5A214        8     A     
 IO                 IX2    X2-X3                                                           FC5A214        9     A     
 IO                 NZ     X2,IDCEX    IF SUBSCRIPT/DIMENSIONALITY MISMATCH                FC5A214       10     A     
 IO                                                                                        IO          3005     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         PROCESS INDUCTION VARIABLES                                            IO          3006     A     
 IO       *                (B4) _ *,* FOLLOWING SUBSCRIPTS                                 IO          3007     A     
 IO                                                                                        IO          3008     A     
 IO                 =X6    0                                                               IO          3009     A     
 IO                 SA6    IDCH        SAVE INDEX                                          IO          3010     A     
 IO                 =B3    0           INITIALIZE INDEX INTO IDCIDX                        IO          3011     A     
 IO                 =X7    1                                                               IO          3012     A     
 IO                 SA7    IDCI        INITIALIZE COLLAPSE MULTIPLIER                      IO          3013     A     
 IO                                                                                        IO          3014     A     
 IO       *         PROCESS INDEX                                                          IO          3015     A     
 IO                                                                                        IO          3016     A     
 IO        IDC30    SA5    B3+IDCIDX                                                       IO          3017          I
          -FC5A211
 IO                 MI     X5,IDCEX    IF COLLAPSE INVALID FOR THIS LEVEL                  IO          3018          I
          -FC5A211
 IO        IDC30    SA4    B3+IDCIDX                                                       FC5A211       19     A     
 IO                 MI     X4,IDCEX    IF COLLAPSE INVALID FOR THIS LEVEL                  FC5A211       20     A     
 IO                 SA1    B4                                                              IO          3019     A     
 IO                 SB2    X1-O.COMMA                                                      IO          3020     A     
 IO                 NZ     B2,IDCEX    IF NOT INDEX SEPERATOR                              IO          3021     A     
 IO                 =A1    B4+1                                                            IO          3022     A     
 IO                 =B4    B4+1                                                            IO          3023     A     
 IO                 SB2    X1-O.VAR                                                        IO          3024     A     
 IO                 NZ     B2,IDCEX    IF NOT AN INDEX                                     IO          3025     A     
 IO                 MX6    TB.TOCL                                                         IO          3026     A     
 IO                 BX6    X6*X1       NAME ONLY                                           IO          3027     A     
 IO                 SA6    FILL.                                                           FC5A211       21     A     
 IO                 CALL   SSY                                                             IO          3028     A     
 IO                 MI     B7,IDCEX    IF NOT IN SYMBOL TABLE, NOT A CORRECT INDEX         IO          3029     A     
 IO                 SBIT   X2,WB.DOIXP                                                     IO          3030          I
          -FC5A211
 IO                 IX0    X5-X0                                                           IO          3031          I
          -FC5A141  -FC5A211
 IO                 NZ     X0,IDCEX    IF NOT CORRECT INDEX                                IO          3032          I
          -FC5A141  -FC5A211
 IO                 MI     X2,IDCEX    IF ALREADY DO INDEX                                 IO          3033          I
          -FC5A141  -FC5A211
 IO                 =A4    B4+1                                                            IO          3034          I
          -FC5A141  -FC5A211
 IO                 IX1    X5-X0                                                           FC5A141      257          I
          -FC5A211
 IO                 NZ     X1,IDCEX    IF NOT RIGHT INDEX                                  FC5A141      258          I
          -FC5A211
 IO                 MI     X2,IDCEX    IF ALREADY DO INDEX                                 FC5A141      259          I
          -FC5A211
 IO                 SA1    IODIR                                                           FC5A141      260          I
          -FC5A211
 IO                 CALL   CT1         MAKE TP. FORMAT                                     FC5A211       22     A     
 IO                 BX5    X6                                                              FC5A211       23     A     
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORM                           FC5A211       24     A     
 IO                 BX6    X5                                                              FC5A211       25     A     
 IO                 SA6    IDCCV       SAVE CONTROL VARIABLE                               FC5A211       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 IX0    X4-X5                                                           FC5A211       27     A     
 IO                 NZ     X0,IDCEX    IF IMPLIED INDEX NOT SAME AS SUBSCRIPT              FC5A211       28     A     
 IO                                                                                        FC5A211       29     A     
 IO       *         CHECK FOR POSSIBLE REDEFINITION OF IMPLIED DO INDICIES                 FC5A211       30     A     
 IO       *         PREVIOUSLY COLLAPSED.                                                  FC5A211       31     A     
 IO                                                                                        FC5A211       32     A     
 IO                 ZR     B3,IDC32    IF FIRST LEVEL                                      FC5A211       33     A     
 IO                 SB2    B3-1                                                            FC5A211       34     A     
 IO                 SA1    IDCIDX                                                          FC5A211       35     A     
 IO                                                                                        FC5A431        8     A     
 IO        IDC31    SA2    A1+B2                                                           FC5A211       36     A     
 IO                 IX2    X5-X2                                                           FC5A211       37     A     
 IO                 ZR     X2,IDCEX    IF A DO INDEX REDEFINITION                          FC5A211       38     A     
 IO                 SB2    B2-1                                                            FC5A211       39     A     
 IO                 PL     B2,IDC31    IF MORE TO CHECK                                    FC5A211       40     A     
 IO                                                                                        FC5A211       41     A     
 IO        IDC32    SA1    IODIR                                                           FC5A211       42     A     
 IO                 SX1    X1-S=OUT                                                        FC5A141      261     A     
 IO                 NZ     X1,IDC33    IF NOT OUTPUT DIRECTION                             FC5A141      262     A     
 IO                 CALL   CT1         MAKE TAG                                            FC5A141      263          I
          -FC5A211
 IO                 BX5    X6                                                              FC5A141      264          I
          -FC5A211
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORM                           FC5A141      265          I
          -FC5A211
 IO                 BX3    X5          PRESERVE CONVERSION                                 FC5A141      266          I
          -FC5A211
 IO                 SA5    IDCA        X5 = OPERAND OF ARRAY                               FC5A141      267     A     
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORM                           FC5A141      268     A     
 IO                 LX5    -TP.ORDP                                                        FC5A141      269     A     
 IO                 MX2    -TP.ORDL                                                        FC5A141      270     A     
 IO                 LX3    -TP.ORDP                                                        FC5A141      271          I
          -FC5A211
 IO                 LX4    -TP.ORDP                                                        FC5A211       43     A     
 IO                 BX5    -X2*X5      X5 = SYMORD OF ARRAY                                FC5A141      272     A     
 IO                 BX3    -X2*X3      X3 = SYMORD OF INDEX                                FC5A141      273          I
          -FC5A211
 IO                 IX3    X3-X5                                                           FC5A141      274          I
          -FC5A211
 IO                 BX4    -X2*X4      X4 = SYMORD OF INDEX                                FC5A211       44     A     
 IO                 IX3    X4-X5                                                           FC5A211       45     A     
 IO                 ZR     X3,IDCEX    IF INDEX IS EQUIVALENCED TO THE ARRAY               FC5A141      275     A     
 IO                                                                                        FC5A141      276     A     
 IO        IDC33    =A4    B4+1                                                            FC5A141      277     A     
 IO                 =B4    B4+1                                                            IO          3035     A     
 IO                 SB2    X4-O.=                                                          IO          3036     A     
 IO                 NZ     B2,IDCEX    IF NOT *=*                                          IO          3037     A     
 IO                 SA1    CONONE                                                          IO          3038     A     
 IO                 BX6    X1          INITIALIZE INCREMENT = 1                            IO          3039     A     
 IO                 MX7    0           INITIALIZE INDUCTION VARIABLE COUNT                 IO          3040     A     
 IO                 SA6    IDCINC                                                          IO          3041     A     
 IO                 SA7    IDCF                                                            IO          3042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA1    DOCOLI                                                          IO          3043     A     
 IO                 RJ     PCI         PARSE COLLAPSE INDICIES                             IO          3044     A     
 IO                 SA1    IDCJ        T.PAR UPON ENTRY                                    IO          3045     A     
 IO                 SHRINK T=PAR,X1                                                        IO          3046     A     
 IO                 =B4    B4+1        ADVANCE POINTER                                     IO          3047     A     
 IO                                                                                        IO          3048     A     
 IO       *         CHECK INCREMENT                                                        IO          3049     A     
 IO                                                                                        IO          3050     A     
 IO                 SA1    IDCINC      FETCH INCREMENT                                     IO          3051     A     
 IO                 SA2    CONONE                                                          IO          3052     A     
 IO                 IX2    X1-X2                                                           IO          3053     A     
 IO                 NZ     X2,IDCEX    IF NON-UNIT INCREMENT, DO MUST MATERIALIZE          IO          3054     A     
 IO                                                                                        IO          3055     A     
 IO       *         CHECK INITIAL                                                          IO          3056     A     
 IO                                                                                        IO          3057     A     
 IO                 SA2    IDCB        T.DIM POINTER                                       IO          3058     A     
 IO                 SA1    T.DIM                                                           IO          3059     A     
 IO                 =B2    X2+D2.W                                                         IO          3060     A     
 IO                 SA3    X1+B2       FETCH *D2* ENTRY                                    IO          3061     A     
 IO                 BX4    X3                                                              IO          3062     A     
 IO                 HX3    D2.LB                                                           IO          3063     A     
 IO                 AX3    -D2.LBL     EXTRACT LOWER BOUND                                 IO          3064     A     
 IO                 SA1    IDCINT      FETCH INITIAL VARIABLE                              IO          3065     A     
 IO                 LX2    X1                                                              IO          3066     A     
 IO                 SBIT   X1,TP.SHRTP                                                     IO          3067     A     
 IO                 PL     X1,IDCEX    IF NOT SHORT CONSTANT                               IO          3068          I
          -FC50620
 IO                 MI     X3,IDCEX    IF ADJUSTABLE LOWER BOUND                           FC50620       62     A     
 IO                 PL     X1,IDC36    IF NOT SHORT CONSTANT                               FC50620       63          I
          -FC5A431
 IO                 HX2    TP.BIAS                                                         IO          3069          I
          -FC5A431
 IO                 MI     X1,IDC35    IF SHORT CONSTANT                                   FC5A431        9     A     
 IO                 SA1    IDCE        SUBSCRIPT COUNT                                     FC5A431       10     A     
 IO                 SA5    IDCF        CURRENT INDUCTION COUNTER                           FC5A431       11          I
          -FC51069
 IO                 SA5    IDCH        INDEX OF PROCESSING LEVEL                           FC51069        6     A     
 IO                 =X5    X5+1                                                            FC51069        7     A     
 IO                 IX1    X1-X5                                                           FC5A431       12     A     
 IO                 ZR     X1,IDC36    IF LAST SUBSCRIPT                                   FC5A431       13     A     
 IO                 EQ     IDCEX                                                           FC5A431       14     A     
 IO                                                                                        FC5A431       15     A     
 IO        IDC35    HX2    TP.BIAS                                                         FC5A431       16     A     
 IO                 AX2    -TP.BIASL   EXTRACT INITIAL VALUE                               IO          3070     A     
 IO                 MI     X3,IDCEX    IF VARIABLE LOWER BOUND                             IO          3071          I
          -FC50620
 IO                 SB3    59-23                                                           IO          3072     A     
 IO                 LX3    B3,X3                                                           IO          3073     A     
 IO                 AX3    B3          SIGN EXTEND LOWER BOUND                             IO          3074     A     
 IO                 IX0    X2-X3                                                           IO          3075     A     
 IO                 MI     X0,IDCEX    IF INITIAL .LT. LOWER BOUND                         IO          3076     A     
 IO                 =A1    A3+D1.W-D2.W                                                    IO          3077     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 HX1    D1.SPAN                                                         IO          3078     A     
 IO                 MI     X1,IDC36    IF UPPER OR LOWER VARIABLE                          IO          3079     A     
 IO                 ZR     X0,IDC37    IF INITIAL = LOWER                                  IO          3080     A     
 IO                                                                                        IO          3081     A     
 IO        IDC36    SA1    IDCH                                                            IO          3082     A     
 IO                 SA1    X1+IDCIDX                                                       IO          3083     A     
 IO                 MX6    -0                                                              IO          3084     A     
 IO                 =A6    A1+1        LAST LEVEL OF COLLAPSE                              IO          3085     A     
 IO                                                                                        IO          3086     A     
 IO       *         CHECK LIMIT                                                            IO          3087     A     
 IO       *                (X2) = INITIAL VALUE                                            IO          3088     A     
 IO                                                                                        IO          3089     A     
 IO        IDC37    LX4    -D2.UBP-DI.INFL                                                 IO          3090          I
          -FC5A231
 IO                 AX4    -DI.INFL    EXTRACT UPPER BOUND                                 IO          3091          I
          -FC5A231
 IO        IDC37    LX4    -D2.UBP-DM.INFL                                                 FC5A231      120     A     
 IO                 AX4    -DM.INFL    EXTRACT (SIGN EXTEND) UPPER BOUND                   FC5A231      121     A     
 IO                 SA1    IDCLMT      FETCH LIMIT VARIABLE                                IO          3092     A     
 IO                 LX0    X1                                                              IO          3093     A     
 IO                 SBIT   X1,TP.SHRTP                                                     IO          3094     A     
 IO                 PL     X1,IDC38    IF NOT SHORT CONSTANT                               IO          3095     A     
 IO                 HX0    TP.BIAS                                                         IO          3096     A     
 IO                 AX0    -TP.BIASL   EXTRACT LIMIT VALUE                                 IO          3097     A     
 IO                 IX2    X0-X2                                                           IO          3098     A     
 IO                 IX0    X0-X4                                                           IO          3099     A     
 IO                 SA4    IDCINT      GET INITIAL VALUE                                   FC50620       64     A     
 IO                 SBIT   X4,TP.SHRTP                                                     FC50620       65     A     
 IO                 BX2    X2*X4       SET X2.GE.0 IF NOT SHORT CONS.                      FC50620       66     A     
 IO                 MI     X2,IDCEX    IF INITIAL .GT. LIMIT                               IO          3100     A     
 IO                 ZR     X0,IDC40    IF LIMIT .EQ. UPPER BOUND                           IO          3101     A     
 IO        IDC38    SA2    IDCH                                                            IO          3102          I
          -FC5A249
 IO                 EQ     IDC39                                                           FC5A249        7     A     
 IO                                                                                        FC5A249        8     A     
 IO        IDC38    BX0    X1          SAVE SHIFTED LIMIT OPERAND                          FC5A249        9     A     
 IO                 SA5    IODIR                                                           FC5A249       10     A     
 IO                 SB2    X5-S=INP                                                        FC5A249       11     A     
 IO                 NZ     B2,IDC39    IF NOT INPUT                                        FC5A249       12     A     
 IO                 LX1    1+TP.SHRTP                                                      FC5A249       13     A     
 IO                 BX5    X1                                                              FC5A249       14     A     
 IO                 RJ     BBC                                                             FC5A249       15     A     
 IO                 BX4    X5          SAVE BASE/BIAS FORM OF LIMIT                        FC5A249       16     A     
 IO                 SA5    IDCA                                                            FC5A249       17     A     
 IO                 RJ     BBC         GET BASE/BIAS FORM OF ARRAY                         FC5A249       18     A     
 IO                 BX4    X4-X5                                                           FC5A249       19     A     
 IO                 MX6    -TP.ORDL                                                        FC5A249       20     A     
 IO                 LX4    -TP.ORDP                                                        FC5A249       21     A     
 IO                 BX6    -X6*X4                                                          FC5A249       22     A     
 IO                 ZR     X6,IDCEX    IF LIMIT EQUIVALENCED TO ARRAY                      FC5A249       23     A     
 IO                 BX1    X0                                                              FC5A249       24     A     
 IO                                                                                        FC5A249       25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        IDC39    SA2    IDCH                                                            FC5A249       26     A     
 IO                 SA2    X2+IDCIDX                                                       IO          3103     A     
 IO                 MX6    -0                                                              IO          3104     A     
 IO                 =A6    A2+1        LAST LEVEL OF COLLAPSE                              IO          3105     A     
 IO                 =X6    0                                                               FC50620       67     A     
 IO                 SA6    IDCP        CLEAR LENGTH BIAS                                   FC50620       68     A     
 IO                 MI     X1,IDC40    IF SHORT CONSTANT                                   IO          3106     A     
 IO                 SA2    IDCINT      FETCH INITIAL                                       IO          3107     A     
 IO                 HX2    TP.BIAS                                                         IO          3108     A     
 IO                 AX2    -TP.BIASL   EXTRACT INITIAL VALUE                               IO          3109     A     
 IO                 IX2    X2-X3                                                           IO          3110          I
          -FC5A136
 IO                 NZ     X2,IDCEX    IF INITIAL .NE. *LB*                                IO          3111          I
          -FC5A136
 IO                 =X0    1                                                               FC5A136        5     A     
 IO                 IX2    X2-X0                                                           FC5A136        6          I
          -FC50620
 IO                 NZ     X2,IDCEX    IF INITIAL .NE. 1                                   FC5A136        7          I
          -FC50620
 IO                 IX6    X2-X0       CALCULATE LENGTH BIAS                               FC50620       69     A     
 IO                 SA6    IDCP        SAVE LENGTH BIAS                                    FC50620       70     A     
 IO                 LX1    TP.SHRTP+TP.SHRTL  RESTORE                                      IO          3112     A     
 IO                 SA2    ="IDCEXC"   EXCLUSION MASK                                      IO          3113     A     
 IO                 MX0    -TP.MODEL                                                       IO          3114     A     
 IO                 BX1    X0*X1       REMOVE MODE                                         IO          3115     A     
 IO                 ERRNZ  TP.MODEP                                                        IO          3116     A     
 IO                 BX2    X1*X2                                                           IO          3117     A     
 IO                 NZ     X2,IDCEX    IF NOT SIMPLE VARIABLE                              IO          3118     A     
 IO                                                                                        IO          3119     A     
 IO       *         PERFORM COLLAPSE OPERATIONS                                            IO          3120     A     
 IO       *         TOKENS IN T.TB, STARTING WITH THE INDEX WILL BE REPLACED BY:           IO          3121     A     
 IO       *         1. DO COLLAPSE CONCLUSION TOKEN                                        IO          3122     A     
 IO       *         2. INITIAL SUBSCRIPT VALUE                                             IO          3123     A     
 IO       *         3. COLLAPSE SIZE                                                       IO          3124     A     
 IO       *         4. VARIABLE COLLAPSE MULTIPLIER (IF NEEDED)                            IO          3125     A     
 IO       *         5. BIAS (OFFSET OF LAST COLLAPSE, IF NEEDED)                           IO          3126     A     
 IO       *                                                                                IO          3127     A     
 IO       *                (X3) = LOWER BOUND                                              IO          3128     A     
 IO       *                (X4) = UPPER BOUND                                              IO          3129     A     
 IO                                                                                        IO          3130     A     
 IO        IDC40    SA1    IDCC        NESTING LEVEL                                       IO          3131          I
          -FC50620
 IO        IDC40    SA1    IDCINT      GET INITIAL VALUE                                   FC50620       71     A     
 IO                 BX5    X1                                                              FC50620       72     A     
 IO                 SBIT   X1,TP.SHRTP                                                     FC50620       73     A     
 IO                 MI     X1,IDC42    IF SHORT CONSTANT                                   FC50620       74     A     
 IO                 BX0    X1                                                              FC50620       75     A     
 IO                 SA1    IODIR       GET IO DIRECTION                                    FC50620       76     A     
 IO                 SB2    X1-S=INP                                                        FC50620       77     A     
 IO                 NZ     B2,IDC41    IF NOT INPUT                                        FC50620       78     A     
 IO                 RJ     BBC         CONVERT INITIAL TO BASE/BIAS                        FC50620       79     A     
 IO                 BX4    X5                                                              FC50620       80     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA5    IDCA        GET ARRAY                                           FC50620       81     A     
 IO                 RJ     BBC         CONVERT ARRAY TO BASE/BIAS                          FC50620       82     A     
 IO                 BX4    X4-X5                                                           FC50620       83     A     
 IO                 MX6    -TP.ORDL                                                        FC50620       84     A     
 IO                 LX4    -TP.ORDP                                                        FC50620       85     A     
 IO                 BX6    -X6*X4                                                          FC50620       86     A     
 IO                 ZR     X6,IDCEX    IF INITIAL EQUIV. TO ARRAY                          FC50620       87     A     
 IO                                                                                        FC50620       88     A     
 IO        IDC41    BX1    X0          RETRIEVE INITIAL                                    FC50620       89     A     
 IO                 LX1    TP.SHRTP+TP.SHRTL                                               FC50620       90     A     
 IO                 SA2    ="IDCEXC"                                                       FC50620       91     A     
 IO                 MX0    -TP.MODEL                                                       FC50620       92     A     
 IO                 BX1    X0*X1                                                           FC50620       93     A     
 IO                 ERRNZ  TP.MODEP                                                        FC50620       94     A     
 IO                 BX2    X1*X2                                                           FC50620       95     A     
 IO                 NZ     X2,IDCEX    IF INITIAL NOT SIMPLE VARIABLE                      FC50620       96     A     
 IO                                                                                        FC50620       97     A     
 IO        IDC42    SA1    IDCC        GET NESTING LEVEL                                   FC50620       98     A     
 IO                 SA2    IDCH        INDEX OF PROCESSING LEVEL                           IO          3132     A     
 IO                 SA5    IDCD        1ST DO-BEGIN                                        IO          3133     A     
 IO                 IX1    X1-X2                                                           IO          3134     A     
 IO                 =B3    X1-1                                                            IO          3135     A     
 IO                 SA1    X5+B3       FETCH CURRENT DO-BEGIN                              IO          3136     A     
 IO                 =X5    -O.DOBI+O.DCBI                                                  IO          3137     A     
 IO                 IX6    X1+X5       CONVERT TO DO-COLLAPSE BEGIN TOKEN                  IO          3138     A     
 IO                 SA6    A1                                                              IO          3139     A     
 IO                 AX6    TB.IOIXP                                                        IO          3140     A     
 IO                 SB5    X6          ISOLATE INDEX POINTER                               IO          3141     A     
 IO                 ERRNZ  18-TB.IOIXL                                                     IO          3142     A     
 IO                 =X7    O.EOS                                                           IO          3143     A     
 IO                 =A7    B5-1        MARK -EOS- OVER *,* BEFORE INDEX                    IO          3144     A     
 IO                 SA1    X2+IDCIDX   FETCH THE INDEX (SUBSCRIPT)                         IO          3145          I
          -FC5A211
 IO                 AX6    TB.IOCPP-TB.IOIXP                                               IO          3146     A     
 IO                 SX6    X6                                                              IO          3147     A     
 IO                 ERRNZ  TB.IOCPL-18                                                     IO          3148     A     
 IO                 LX6    TB.ICCPP                                                        IO          3149     A     
 IO                 =X5    O.DCCI                                                          IO          3150     A     
 IO                 BX6    X6+X5                                                           IO          3151     A     
 IO                 LX1    TB.ICIXP                                                        IO          3152          I
          -FC5A211
 IO                 BX6    X6+X1       MAKE DO CONCLUSION TOKEN                            IO          3153          I
          -FC5A211
 IO                 LX2    TB.ICIXP                                                        FC5A211       46     A     
 IO                 BX6    X6+X2       MAKE DO COLLAPSE CONCLUSION TOKEN                   FC5A211       47     A     
 IO                 =A6    B5+DC=CCT                                                       IO          3154     A     
 IO                 SA1    IDCINT                                                          IO          3155     A     
 IO                 LX7    X1                                                              IO          3156     A     
 IO                 =A7    A6-DC=CCT+DC=ISV                                                IO          3157     A     
 IO                 SA2    IDCLMT                                                          IO          3158     A     
 IO                 HX1    TP.BIAS                                                         IO          3159     A     
 IO                 AX1    -TP.BIASL   ISOLATE INITIAL                                     IO          3160     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA5    IDCI        FETCH COLLAPSE (PRIOR PRODUCT)                      IO          3161     A     
 IO                 BX6    X3                                                              FC50620       99     A     
 IO                 SA6    IDCQ        SAVE LOWER BOUND                                    FC50620      100     A     
 IO                 IX3    X1-X3       INITIAL - *LB*                                      IO          3162     A     
 IO                 IX3    X3*X5       * COLLAPSE SIZE = OFFSET                            IO          3163     A     
 IO                 LX7    X2                                                              IO          3164     A     
 IO                 HX7    TP.ORD                                                          IO          3165     A     
 IO                 AX7    -TP.ORDL    ISOLATE ORDINAL (FOR POSSIBLE MULTIPLIER)           IO          3166     A     
 IO                 BX6    X5                                                              IO          3167     A     
 IO                 SBIT   X2,TP.SHRTP                                                     IO          3168     A     
 IO                 PL     X2,IDC45    IF NOT SHORT CONSTANT                               IO          3169     A     
 IO                 SA5    IDCINT      GET INITIAL                                         FC50620      101     A     
 IO                 SBIT   X5,TP.SHRTP                                                     FC50620      102     A     
 IO                 PL     X5,IDC45    IF NOT SHORT CONSTANT                               FC50620      103     A     
 IO                 LX2    1+TP.SHRTP  RESTORE                                             IO          3170     A     
 IO                 HX2    TP.BIAS                                                         IO          3171     A     
 IO                 AX2    -TP.BIASL   ISOLATE LIMIT                                       IO          3172     A     
 IO                 IX1    X2-X1       LIMIT - INITIAL                                     IO          3173     A     
 IO                 =X1    X1+1        +1 = MULTIPLIER                                     IO          3174     A     
 IO                 IX6    X1*X6                                                           IO          3175     A     
 IO                 SA6    A5          UPDATE SIZE                                         IO          3176          I
          -FC50620
 IO                 SA6    IDCI        GET COLLAPSE SIZE                                   FC50620      104     A     
 IO                                                                                        FC50620      105     A     
 IO        IDC45    =A6    A7-DC=ISV+DC=SIZ                                                IO          3177     A     
 IO                 LX6    X3                                                              IO          3178     A     
 IO                 =A7    A6-DC=SIZ+DC=VAR                                                IO          3179     A     
 IO                 SA1    IDCA        FETCH ARRAY OPERAND                                 IO          3180     A     
 IO                 MX0    -TP.MODEL                                                       IO          3181     A     
 IO                 LX1    -TP.MODEP                                                       IO          3182     A     
 IO                 BX1    -X0*X1      ISOLATE MODE                                        IO          3183     A     
 IO                 SB2    X1-M.DBL                                                        IO          3184     A     
 IO                 =B6    1                                                               IO          3185     A     
 IO                 EQ     B2,B0,IDC47 IF MODE DOUBLE                                      IO          3186     A     
 IO                 EQ     B2,B1,IDC47 IF MODE COMPLEX                                     IO          3187     A     
 IO                 =B6    0                                                               IO          3188     A     
 IO                                                                                        FC5A431       17     A     
 IO        IDC47    LX6    X6,B6       ADJUST BIAS TO MODE                                 IO          3189     A     
 IO                 =A6    A7-DC=VAR+DC=OFF                                                IO          3190     A     
 IO                 SA2    DATFLG                                                          FC5A218       69     A     
 IO                 SA7    IDCL                                                            FC5A218       70     A     
 IO                 NZ     X2,IDC475   IF PROCESSING DATA                                  FC5A218       71     A     
 IO                                                                                        FC5A218       72     A     
 IO       *         ADD TO END OF T.IOA (TEMPORARILY) THE *LCI*, 3 WORDS:                  FC5A218       73     A     
 IO       *         CONTROL VAR, INITIAL AND LIMIT TAG WORDS.                              FC5A218       74     A     
 IO                                                                                        FC5A218       75     A     
 IO                 SB6    B3                                                              FC5A218       76     A     
 IO                 ALLOC  T.IOA,3                                                         FC5A218       77     A     
 IO                 SA1    IDCCV                                                           FC5A218       78     A     
 IO                 SA2    IDCINT                                                          FC5A218       79     A     
 IO                 SA3    IDCLMT                                                          FC5A218       80     A     
 IO                 BX6    X1                                                              FC5A218       81     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX7    X2                                                              FC5A218       82     A     
 IO                 SA6    B7-3                                                            FC5A218       83     A     
 IO                 BX6    X3                                                              FC5A218       84     A     
 IO                 =A7    A6+1                                                            FC5A218       85     A     
 IO                 =A6    B7-1                                                            FC5A218       86     A     
 IO                 SA1    TL=LCI                                                          FC5A218       87     A     
 IO                 SX6    X1+3                                                            FC5A218       88     A     
 IO                 SA6    A1          TL=LCI  =  TL=LCI + 3                               FC5A218       89     A     
 IO                 SB3    B6                                                              FC5A218       90     A     
 IO                 SA1    IDCL                                                            FC5A218       91     A     
 IO                 BX7    X1                                                              FC5A218       92     A     
 IO                                                                                        FC5A218       93     A     
 IO        IDC475   BSS    0                                                               FC5A218       94     A     
 IO                 ZR     B3,IDC50    IF COMPLETE COLLAPSE                                IO          3191          I
          -FC5A214
 IO                 NZ     B3,IDC48    IF MORE COLLAPSE TO TRY                             FC5A214       11     A     
 IO                 SA1    IDCC        NESTING LEVEL                                       FC5A214       12     A     
 IO                 SA2    IDCG        DIMENSIONALITY                                      FC5A214       13     A     
 IO                 IX1    X1-X2                                                           FC5A214       14     A     
 IO                 =B7    1                                                               FC5A214       15     A     
 IO                 ZR     X1,IDC50    IF TRUE COMPLETE COLLAPSE                           FC5A214       16     A     
 IO                                                                                        FC5A214       17     A     
 IO       *         WHEN THE DO STRUCTURE COMPLETELY COLLAPSES, BUT THE THE                FC5A214       18     A     
 IO       *         NESTING LEVEL IS LESS THAN DIMENSIONALITY, A PARTIAL STYLE             FC5A214       19     A     
 IO       *         COLLAPSE IS REQUIRED.                                                  FC5A214       20     A     
 IO                                                                                        FC5A214       21     A     
 IO                 SA1    IDCD                                                            FC5A214       22     A     
 IO                 SA2    IDCJ                                                            FC5A214       23     A     
 IO                 SB4    X1          RESTORE (B4) _ INITIAL DO-BEGIN TOKEN               FC5A214       24     A     
 IO                 SHRINK T=PAR,X2    RESTORE PARSE FILE                                  FC5A214       25     A     
 IO                 SA1    IDCA        TP. OF ARRAY                                        FC5A214       26     A     
 IO                 BX7    X1                                                              FC5A214       27     A     
 IO                 =B4    B4-1        RESET TO ALLOW CVL ACCESS TO THE O.DCBI             FC5A214       28     A     
 IO                 SA7    IODOIND     INDICATE PARTIAL COLLAPSE                           FC5A214       29     A     
 IO                 SB7    -1                                                              FC5A271       17     A     
 IO                 EQ     EXIT.                                                           FC5A214       30     A     
 IO                                                                                        IO          3192     A     
 IO       *         INCREMENT FOR NEXT COLLAPSE LOOP                                       IO          3193     A     
 IO                                                                                        IO          3194     A     
 IO                 SA2    IDCB        FETCH T.DIM POINTER                                 IO          3195          I
          -FC5A214
 IO        IDC48    SA2    IDCB        T.DIM POINTER                                       FC5A214       31     A     
 IO                 SA1    IDCH        FETCH INDEX OF PROCESSING LEVEL                     IO          3196     A     
 IO                 SX7    X2+Z=DD                                                         IO          3197     A     
 IO                 =X6    X1+1                                                            IO          3198     A     
 IO                 SA7    A2                                                              IO          3199     A     
 IO                 SA6    A1                                                              IO          3200     A     
 IO                 SB3    X6          INDEX FOR NEXT LEVEL                                FC5A211       48     A     
 IO                 SA1    IDCA        FETCH ARRAY TAG                                     IO          3201     A     
 IO                 SA2    IDCH                                                            IO          3202          I
          -FC5A211
 IO                 BX7    X1                                                              IO          3203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB3    X2          INDEX FOR NEXT LEVEL                                IO          3204          I
          -FC5A211
 IO                 SA7    IODOIND     INDICATE PARTIAL COLLAPSE                           IO          3205     A     
 IO                 EQ     IDC30       CONTINUE COLLAPSE PROCESSING                        IO          3206     A     
 IO                                                                                        IO          3207     A     
 IO       *         COLLAPSE COMPLETE                                                      IO          3208     A     
 IO       *                (B5) = POINTER TO DO COLLAPSE CONCLUSION TOKEN                  IO          3209     A     
 IO       *                (X7) = VARIABLE MULTIPLIER                                      IO          3210     A     
 IO                                                                                        IO          3211     A     
 IO        IDC50    SA1    IODIR                                                           IO          3212          I
          -FC5A218
 IO                 SA2    DATFLG                                                          IO          3213          I
          -FC5A218
 IO                 NZ     X1,IDC52    IF NOT INPUT                                        IO          3214          I
          -FC5A218
 IO                 NZ     X2,IDC52    IF DATA LIST                                        IO          3215          I
          -FC5A218
 IO                 ERRNZ  S=INP                                                           IO          3216          I
          -FC5A218
 IO                 SA7    IDCL        SAVE VARIABLE MULTIPLIER                            IO          3217          I
          -FC5A218
 IO                 SA1    IDCA                                                            IO          3218          I
          -FC5A141  -FC5A218
 IO                 BX6    X1                                                              IO          3219          I
          -FC5A141  -FC5A218
 IO                 =B2    0           CLEAR TO AVOID CML SAVE PROBLEM                     IO          3220          I
          -FC5A141  -FC5A218
 IO                 ADDWD  T.ILI       ADD ARRAY TO T.ILI                                  IO          3221          I
          -FC5A141  -FC5A218
 IO                 SA1    IDCLMT                                                          IO          3222          I
          -FC5A218
 IO                 BX6    X1                                                              IO          3223          I
          -FC5A218
 IO                 SBIT   X1,TP.SHRTP                                                     IO          3224          I
          -FC5A218
 IO                 MI     X1,IDC51    IF SHORT CONSTANT                                   IO          3225          I
          -FC5A218
 IO                 =X0    1           INDICATE LIMIT IS NOT AN ARRAY                      FC5A141      278          I
          -FC5A218
 IO                 RJ     CML         CHECK FOR RESTART                                   IO          3226          I
          -FC5A218
 IO        IDC51    SA1    IDCL                                                            IO          3227          I
          -FC5A218
 IO                 LX7    X1          RESTORE VARIABLE MULTIPLIER                         IO          3228          I
          -FC5A218
 IO                                                                                        IO          3229          I
          -FC5A218
 IO        IDC52    ZR     X7,IDC55    IF NO VARIABLE MULTIPLIER                           IO          3230          I
          -FC5A218
 IO        IDC50    SA1    DATFLG                                                          FC5A218       95     A     
 IO                 NZ     X1,IDC51    IF *DATA*                                           FC5A218       96     A     
 IO                 SA1    IDCA                                                            FC5A248       28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX6    X1                                                              FC5A248       29     A     
 IO                 =X0    0                                                               FC5A248       30     A     
 IO                 RJ     CML         SEE IF RESTART NEEDED ON ARRAY                      FC5A248       31     A     
 IO                 RJ     PAX         PREPARE ARRAY CROSS-SECTION                         FC5A218       97     A     
 IO                                                                                        FC5A218       98     A     
 IO        IDC51    SA1    IDCL                                                            FC5A218       99          I
          -FC50620
 IO        IDC51    SA1    IDCINT      GET INITIAL VALUE                                   FC50620      106     A     
 IO                 SBIT   X1,TP.SHRTP                                                     FC50620      107     A     
 IO                 PL     X1,IDC525   IF NOT SHORT CONSTANT                               FC50620      108          I
          -FC50946
 IO                 PL     X1,IDC52.1  IF NOT SHORT CONSTANT                               FC50946        8     A     
 IO                 SA1    IDCL        GET VARIABLE MULTIPLIER                             FC50620      109     A     
 IO                 BX7    X1                                                              FC5A218      100     A     
 IO                 ZR     X1,IDC55    IF NO VARIABLE MULTIPLIER                           FC5A218      101     A     
 IO                                                                                        IO          3231     A     
 IO       *         THE LAST LIMIT WAS VARIABLE, MUST OUTPUT MULTIPLY TURPLE               IO          3232     A     
 IO                                                                                        IO          3233     A     
 IO                 LX7    TP.ORDP                                                         IO          3234          I
          -FC50620
 IO                 SA1    IDCP        GET LENGTH BIAS                                     FC50620      110     A     
 IO                 ZR     X1,IDC52    IF NO BIAS                                          FC50620      111     A     
 IO                 BX6    X1                                                              FC50620      112     A     
 IO                 =X7    M.INT                                                           FC50620      113     A     
 IO                 CALL   NCS         FORM CONSTANT OPERAND                               FC50620      114     A     
 IO                 SA4    IDCLMT      GET LIMIT VALUE                                     FC50620      115     A     
 IO                 LX5    X6                                                              FC50620      116     A     
 IO                                                                                        FC50620      117     A     
 IO        IDC515   EMIT   V=SUB.I,BOTH  EMIT SUBTRACT TURPLE                              FC50620      118          I
          -FC50946
 IO        IDC51.1  EMIT   V=SUB.I,BOTH                                                    FC50946        9     A     
 IO                 SA1    T=PAR                                                           FC50620      119     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620      120     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620      121     A     
 IO                 LX6    TP.ORDP                                                         FC50620      122     A     
 IO                 BX6    X6+X2       FORM INDIRECT OPERAND                               FC50620      123     A     
 IO                 SA6    IDCLMT      SAVE AS LIMIT VALUE                                 FC50620      124     A     
 IO                 SA1    IDCL        GET VARIABLE MULTIPLIER                             FC50620      125     A     
 IO                 BX7    X1                                                              FC50620      126     A     
 IO                                                                                        FC50620      127     A     
 IO        IDC52    LX7    TP.ORDP                                                         FC50620      128     A     
 IO                 =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 IO          3235     A     
 IO                 =X2    X5-1                                                            IO          3236     A     
 IO                 NZ     X2,IDC53    IF SIZE .NE. 1                                      IO          3237     A     
 IO                 SA5    IDCLMT                                                          IO          3238     A     
 IO                 SA4    IDCA        FETCH ARRAY OPERAND                                 IO          3239     A     
 IO                 EQ     IDC56                                                           IO          3240     A     
 IO                                                                                        IO          3241     A     
 IO        IDC53    SA4    IDCLMT                                                          IO          3242          I
          -FC50620
 IO        IDC525   SA1    IDCQ        GET LOWER BOUND                                     FC50620      129          I
          -FC50946
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        IDC52.1  SA1    IDCQ        GET LOWER BOUND                                     FC50946       10     A     
 IO                 LX1   42           EXTEND SIGN                                         FC50620      130          I
          -FC5A431
 IO                 AX1   42                                                               FC50620      131          I
          -FC5A431
 IO                 LX1    42                                                              FC5A431       18     A     
 IO                 AX1    42          EXTEND SIGN                                         FC5A431       19     A     
 IO                 BX6    X1                                                              FC50620      132     A     
 IO                 =X7    M.INT                                                           FC50620      133     A     
 IO                 CALL   NCS         FORM CONSTANT OPERAND                               FC50620      134     A     
 IO                 LX5    X6                                                              FC50620      135     A     
 IO                 SA4    IDCINT      GET INITIAL VALUE                                   FC50620      136     A     
 IO                 EMIT   V=SUB.I,BOTH  EMIT SUBTRACT TURPLE                              FC50620      137     A     
 IO                 SA1    T=PAR                                                           FC50620      138          I
          -FC50946
 IO                 SA1    IDCA        ARRAY OPERAND                                       FC50946       11     A     
 IO                 MX0    -TP.MODEL                                                       FC50946       12     A     
 IO                 BX0    -X0*X1      EXTRACT MODE                                        FC50946       13     A     
 IO                 ERRNZ  TP.MODEP                                                        FC50946       14     A     
 IO                 SB7    X0-M.DBL                                                        FC50946       15     A     
 IO                 ZR     B7,IDC52.2  IF MODE DOUBLE                                      FC50946       16     A     
 IO                 EQ     B7,B1,IDC52.2  IF MODE COMPLEX                                  FC50946       17     A     
 IO                 EQ     IDC52.3                                                         FC50946       18     A     
 IO                                                                                        FC50946       19     A     
 IO        IDC52.2  SA1    T=PAR                                                           FC50946       20     A     
 IO                 SX4    X1-Z=TURP                                                       FC50946       21     A     
 IO                 CLAS=  X0,TP,(INTR),INT                                                FC50946       22     A     
 IO                 LX4    TP.ORDP                                                         FC50946       23     A     
 IO                 BX4    X4+X0                                                           FC50946       24     A     
 IO                 LX5    X4                                                              FC50946       25     A     
 IO                 EMIT   V=ADD.I,BOTH  DOUBLE SUBSCRIPT FOR COMPLEX AND DOUBLE           FC50946       26     A     
 IO                                                                                        FC50946       27     A     
 IO        IDC52.3  SA1    T=PAR                                                           FC50946       28     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620      139     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620      140          I
          -FC50946
 IO                 CLAS=  X2,TP,(INTR),INT                                                FC50946       29     A     
 IO                 LX6    TP.ORDP                                                         FC50620      141     A     
 IO                 BX6    X6+X2       FORM INDIRECT OPERAND                               FC50620      142          I
          -FC50946
 IO                 BX6    X6+X2       FORM INTERMEDIATE OPERAND                           FC50946       30     A     
 IO                 SA6    IDCQ        SAVE AS ARRAY OFFSET                                FC50620      143     A     
 IO                 SA1    IDCI        GET COLLAPSE SIZE                                   FC50620      144     A     
 IO                 SB2    X1                                                              FC50620      145     A     
 IO                 EQ     B2,B1,IDC526  IF COLLAPSE SIZE=1                                FC50620      146          I
          -FC50946
 IO                 EQ     B2,B1,IDC52.6  IF COLLAPSE SIZE=1                               FC50946       31     A     
 IO                 BX6    X1                                                              FC50620      147     A     
 IO                 =X7    M.INT                                                           FC50620      148     A     
 IO                 CALL   NCS         FORM CONSTANT OPERAND                               FC50620      149     A     
 IO                 LX5    X6                                                              FC50620      150     A     
 IO                 SA4    IDCQ        GET ARRAY OFFSET                                    FC50620      151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 EMIT   V=MUL.I,BOTH  ISSUE MULTIPLY TURPLE                             FC50620      152     A     
 IO                 SA1    T=PAR                                                           FC50620      153     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620      154     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620      155     A     
 IO                 LX6    TP.ORDP                                                         FC50620      156     A     
 IO                 BX6    X6+X2       FORM INDIRECT OPERAND                               FC50620      157          I
          -FC50946
 IO                 BX6    X6+X2       FORM INTERMEDIATE OPERAND                           FC50946       32     A     
 IO                 SA6    IDCQ        SAVE ARRAY OFFSET                                   FC50620      158     A     
 IO                                                                                        FC50620      159     A     
 IO        IDC526   SA1    IDCL        GET VARIABLE MULTIPLIER                             FC50620      160          I
          -FC50946
 IO                 ZR     X1,IDC527   IF NO VARIABLE MULTIPLIER                           FC50620      161          I
          -FC50946
 IO        IDC52.6  SA1    IDCL        GET VARIABLE MULTIPLIER                             FC50946       33     A     
 IO                 ZR     X1,IDC52.7  IF NO VARIABLE MULTIPLIER                           FC50946       34     A     
 IO                 SA4    IDCLMT      GET LIMIT (BIASED)                                  FC50620      162     A     
 IO                 SA5    CONONE      GET CONSTANT 1 OPERAND                              FC50620      163     A     
 IO                 EMIT   V=ADD.I,BOTH  EMIT ADD TURPLE                                   FC50620      164     A     
 IO                 SA1    T=PAR                                                           FC50620      165     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620      166     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620      167     A     
 IO                 LX6    TP.ORDP                                                         FC50620      168     A     
 IO                 BX4    X6+X2       FORM INDIRECT OPERAND                               FC50620      169          I
          -FC50946
 IO                 BX4    X6+X2       FORM INTERMEDIATE OPERAND                           FC50946       35     A     
 IO                 SA5    IDCINT      GET INITIAL VALUE                                   FC50620      170     A     
 IO                 EQ     IDC515      GO ISSUE SUBTRACT TURPLE                            FC50620      171          I
          -FC50946
 IO                 EQ     IDC51.1     GO ISSUE SUBTRACT TURPLE                            FC50946       36     A     
 IO                                                                                        FC50620      172     A     
 IO        IDC527   SA1    IDCLMT      GET LIMIT VALUE(CONSTANT)                           FC50620      173          I
          -FC50946
 IO        IDC52.7  SA1    IDCLMT      GET LIMIT VALUE (CONSTANT)                          FC50946       37     A     
 IO                 HX1    TP.BIAS                                                         FC50620      174     A     
 IO                 AX1    -TP.BIASL                                                       FC50620      175     A     
 IO                 =X6    X1+1        ADD ONE TO LIMIT                                    FC50620      176     A     
 IO                 =X7    M.INT                                                           FC50620      177     A     
 IO                 CALL   NCS         FORM CONSTANT OPERAND                               FC50620      178     A     
 IO                 LX4    X6                                                              FC50620      179     A     
 IO                 SA5    IDCINT      GET INITIAL VALUE                                   FC50620      180     A     
 IO                 EQ     IDC515      GO ISSUE SUBTRACT TURPLE                            FC50620      181          I
          -FC50946
 IO                 EQ     IDC51.1     GO ISSUE SUBTRACT TURPLE                            FC50946       38     A     
 IO                                                                                        FC50620      182     A     
 IO        IDC53    SA5    WO.DOOT     GET MIN. TRIP COUNT                                 FC50620      183     A     
 IO                 SA4    IDCLMT      GET VARIABLE MULTIPLIER                             FC50620      184     A     
 IO                 ZR     X5,IDC54    IF ZERO-TRIP DO                                     FC50620      185     A     
 IO                 SA5    CONONE      GET CONSTANT ONE                                    FC50620      186     A     
 IO                 EMIT   V=MAX0,BOTH ISSUE MAX0 TURPLE                                   FC50620      187     A     
 IO                 SA1    T=PAR                                                           FC50620      188     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620      189     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 CLAS=  X2,TP,(INTR)                                                    FC50620      190     A     
 IO                 LX6    TP.ORDP                                                         FC50620      191     A     
 IO                 BX4    X6+X2       FORM INDIRECT OPERAND                               FC50620      192     A     
 IO                                                                                        FC50620      193     A     
 IO        IDC54    SA5    B5+DC=SIZ                                                       FC50620      194     A     
 IO                 BX6    X5                                                              IO          3243     A     
 IO                 =X7    M.INT                                                           IO          3244     A     
 IO                 CALL   NCS         FORM CONSTANT OPERAND                               IO          3245     A     
 IO                 LX5    X6                                                              IO          3246     A     
 IO                 EMIT   V=MUL.I,BOTH                                                    IO          3247     A     
 IO                 SA1    T=PAR                                                           IO          3248     A     
 IO                 SX6    X1-Z=TURP                                                       IO          3249     A     
 IO                 CLAS=  X2,TP,(INTR)                                                    IO          3250     A     
 IO                 LX6    TP.ORDP                                                         IO          3251     A     
 IO                 BX5    X6+X2       MAKE INTERMEDIATE OPERAND                           IO          3252     A     
 IO                 SA4    IDCA        FETCH ARRAY OPERAND                                 IO          3253     A     
 IO                 EQ     IDC56                                                           IO          3254     A     
 IO                                                                                        IO          3255     A     
 IO       *         MAKE AND OUTPUT THE I/O DATA TURPLE                                    IO          3256     A     
 IO                                                                                        IO          3257     A     
 IO        IDC55    SA4    IDCA        FETCH ARRAY OPERAND                                 IO          3258     A     
 IO                 SA5    B5+DC=SIZ   FETCH COLLAPSE SIZE                                 IO          3259     A     
 IO                 =A1    A5-DC=SIZ+DC=OFF                                                IO          3260          I
          -FC50216
 IO                 BX6    X1                                                              IO          3261          I
          -FC50216
 IO                 LX6    TP.BIASP                                                        IO          3262          I
          -FC50216
 IO                 BX4    X4+X6       MERGE IN BIAS                                       IO          3263          I
          -FC50216
 IO                 LX5    TP.BIASP                                                        IO          3264     A     
 IO                 CLAS=  X2,TP,(SHRT)                                                    IO          3265     A     
 IO                 BX5    X2+X5                                                           IO          3266     A     
 IO                                                                                        IO          3267     A     
 IO       *                (X4) = ARRAY (TP. FORMAT W/BIAS)                                IO          3268          I
          -FC50216
 IO       *                (X4) = ARRAY (TP. FORMAT)                                       FC50216        6     A     
 IO       *                (X5) = BLOCK SIZE (TP. FORMAT)                                  IO          3269     A     
 IO                                                                                        IO          3270     A     
 IO        IDC56    SA1    CVLTH                                                           IO          3271          I
          -FC5A141
 IO        IDC56    SA1    IODIR                                                           FC5A141      279          I
          -FC50216
 IO        IDC56    SA1    B5+DC=OFF                                                       FC50216        7     A     
 IO                 LX1    TP.BIASP                                                        FC50216        8     A     
 IO                 BX4    X4+X1       MERGE IN BIAS                                       FC50216        9     A     
 IO                 SA1    IODIR                                                           FC50216       10          I
          -FC50620
 IO                 SA1    IDCINT      GET INITIAL VALUE                                   FC50620      195     A     
 IO                 SBIT   X1,TP.SHRTP                                                     FC50620      196     A     
 IO                 MI     X1,IDC565   IF SHORT CONSTANT                                   FC50620      197     A     
 IO                 BX6    X5                                                              FC50620      198     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA6    IDCP        SAVE X5 CONTENTS                                    FC50620      199     A     
 IO                 SA4    IDCA        GET ARRAY                                           FC50620      200     A     
 IO                 CLAS=  X5,TP,(ARR)                                                     FC50620      201     A     
 IO                 BX4    X4+X5       SET ARRAY REF BIT                                   FC50620      202     A     
 IO                 SA5    IDCQ        GET ARRAY OFFSET                                    FC50620      203     A     
 IO                 MX0    -TP.MODEL                                                       FC50620      204     A     
 IO                 BX7    -X0*X4      GET ARRAY MODE                                      FC50620      205     A     
 IO                 LX7    SP.MODEP                                                        FC50620      206     A     
 IO                 SA2    ARYOP       GET ARRAY LOAD TURPLE HEADER                        FC50620      207     A     
 IO                 BX7    X7+X2       MERGE IN ARRAY MODE                                 FC50620      208     A     
 IO                 SA7    IOARY                                                           FC50620      209     A     
 IO                 EMIT   IOARY,*     EMIT ARRAY LOAD TURPLE                              FC50620      210     A     
 IO                 SA1    T=PAR                                                           FC50620      211     A     
 IO                 SX6    X1-Z=TURP                                                       FC50620      212     A     
 IO                 CLAS=  X2,TP,(INTR,ARR,ARS)                                            FC50620      213     A     
 IO                 MX0    -TP.MODEL                                                       FC50620      214     A     
 IO                 BX4    -X0*X4      GET ARRAY MODE                                      FC50620      215     A     
 IO                 BX2    X2+X4       MERGE IN ARRAY MODE                                 FC50620      216     A     
 IO                 LX6    TP.ORDP                                                         FC50620      217     A     
 IO                 BX4    X6+X2       FORM INDIRECT OPERAND                               FC50620      218     A     
 IO                 SA5    IDCP        RESTORE X5                                          FC50620      219     A     
 IO                                                                                        FC50620      220     A     
 IO        IDC565   SA1    IODIR       GET IO DIRECTION                                    FC50620      221     A     
 IO                 SA2    DATFLG                                                          FC5A141      280     A     
 IO                 NZ     X1,IDC57    IF NOT INPUT DIRECTION                              FC5A141      281     A     
 IO                 NZ     X2,IDC57    IF DATA LIST                                        FC5A141      282     A     
 IO                 SA1    IDCA        FETCH ARRAY OPERAND                                 FC51066        5     A     
 IO                 BX0    X1                                                              FC51066        6     A     
 IO                 SA1    T.SYM                                                           FC5A211       49     A     
 IO                 BX0    X4                                                              FC5A211       50          I
          -FC51066
 IO                 HX0    TP.ORD                                                          FC5A211       51     A     
 IO                 AX0    -TP.ORDL    EXTRACT ORDINAL                                     FC5A211       52     A     
 IO                 SB2    X0                                                              FC5A211       53     A     
 IO                 LX0    1                                                               FC5A211       54     A     
 IO                 SB2    X0+B2       CONVERT ORDINAL TO INDEX                            FC5A211       55     A     
 IO                 ERRNZ  3-Z=SYM                                                         FC5A211       56     A     
 IO                 SA1    X1+B2       FETCH *WA*                                          FC5A211       57     A     
 IO                 ERRNZ  WA.W                                                            FC5A211       58     A     
 IO                 MX6    WA.SYML                                                         FC5A211       59     A     
 IO                 BX6    X6*X1       SYMBOL ONLY                                         FC5A211       60     A     
 IO                 SA6    FILL.                                                           FC5A211       61     A     
 IO                 RJ     AII         ADD INPUT LIST ITEM TO T.ILI                        FC5A141      283     A     
 IO                                                                                        FC5A141      284     A     
 IO        IDC57    SA1    CVLTH                                                           FC5A141      285     A     
 IO                 MX0    -TP.MODEL                                                       IO          3272     A     
 IO                 BX2    -X0*X4      ISOLATE MODE                                        IO          3273     A     
 IO                 ERRNZ  TP.MODEP                                                        IO          3274     A     
 IO                 =A3    A1-CVLTH+CVLPM                                                  IO          3275     A     
 IO                 LX2    TH.MODEP                                                        IO          3276          I
          -FC50104
 IO                 LX2    SP.MODEP                                                        FC50104       69     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX7    X1+X2       MERGE IN MODE                                       IO          3277     A     
 IO                 SA7    IODTH                                                           IO          3278     A     
 IO                 NZ     X3,IDC57    IF NOT NORMAL I/O PARSEMODE                         IO          3279          I
          -FC5A141
 IO                 NZ     X3,IDC58    IF NOT NORMAL I/O PARSEMODE                         FC5A141      286     A     
 IO                 EMIT   IODTH,*,T.IOARG                                                 IO          3280     A     
 IO                 EQ     IDC59                                                           IO          3281     A     
 IO                                                                                        IO          3282     A     
 IO        IDC57    EMIT   IODTH,*                                                         IO          3283          I
          -FC5A141
 IO        IDC58    EMIT   IODTH,*                                                         FC5A141      287     A     
 IO        IDC59    =X6    0                                                               IO          3284          I
          -FC50061
 IO                                                                                        FC50061        9     A     
 IO        IDC59    SA1    IOREF                                                           FC50061       10     A     
 IO                 SA2    IDCA        TP. FORMAT OF ARRAY                                 FC50061       11     A     
 IO                 HX2    TP.ORD                                                          FC50061       12     A     
 IO                 AX2    -TP.ORDL    EXTRACT ORDINAL                                     FC50061       13     A     
 IO                 LX2    XR.TAGP     POSITION FOR ERT                                    FC50061       14     A     
 IO                 ADDREF X2,X1                                                           FC50061       15     A     
 IO                 =X6    0                                                               FC50061       16     A     
 IO                 SA6    IODOIND                                                         IO          3285     A     
 IO                 =A6    A6+1        CLEAR PARTIAL COLLAPSE INDICATORS                   IO          3286     A     
 IO                 =B7    1                                                               IO          3287          I
          -FC50061
 IO                 SB7    1           INDICATE COMPLETE COLLAPSE                          FC50061       17          I
          -FC50683
 IO                 =B7    1           INDICATE COMPLETE COLLAPSE                          FC50683        6     A     
 IO                 =A1    B4+1                                                            FC50683        7     A     
 IO                 NZ     X1,EXIT.    IF NOT *EOS*, I.E., NO TRAILING COMMA               FC50683        8     A     
 IO                 ERRNZ  O.EOS                                                           FC50683        9     A     
 IO                 SA1    B4                                                              FC50683       10     A     
 IO                 SX1    X1-O.COMMA                                                      FC50683       11     A     
 IO                 NZ     X1,EXIT.    IF NOT COMMA                                        FC50683       12     A     
 IO                 SB4    B4+1        INCREMENT FOR DIAGNOSTIC                            FC50683       13     A     
 IO                 EQ     EXIT.                                                           IO          3288     A     
 IO                                                                                        IO          3289     A     
 IO       *         COMPLETE COLLAPSE HAS FAILED, SET EXIT CONDITIONS.                     IO          3290     A     
 IO                                                                                        IO          3291     A     
 IO        IDCEX    BSSENT 0           ENTRY HERE TO STOP COLLAPSE                         IO          3292     A     
 IO                 SA1    IDCD                                                            IO          3293     A     
 IO                 SA2    IDCJ                                                            IO          3294     A     
 IO                 SB4    X1          RESTORE (B4) _ INITIAL DO-BEGIN TOKEN               IO          3295     A     
 IO                 SHRINK T=PAR,X2    RESTORE PARSE FILE                                  IO          3296     A     
 IO                 SA2    T=REF                                                           FC50906        8     A     
 IO                 ZR     X2,IDC60    IF T=REF IS ZERO DON'T SHRINK                       FC50906        9     A     
 IO                 SA1    IDCN                                                            FC50464       18     A     
 IO                 SHRINK T=REF,X1    AVOID DUPLICATE REFERENCES                          FC50464       19     A     
 IO                 SA1    IDCO                                                            FC50464       20     A     
 IO                 BX6    X1                                                              FC50464       21     A     
 IO                 SA6    LOSTREF     RESTORE REFERENCE COUNT                             FC50464       22     A     
 IO                 SA1    IDCK                                                            IO          3297          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FC50906
 IO                                                                                        FC50906       10     A     
 IO        IDC60    SA1    IDCK                                                            FC50906       11     A     
 IO                 =B7    0                                                               IO          3298     A     
 IO                 =X6    0                                                               IO          3299     A     
 IO                 ZR     X1,EXIT.    IF NO T.TB RESTORE                                  IO          3300     A     
 IO                 SA2    A1+B1       FETCH ORIGINAL TOKEN                                IO          3301     A     
 IO                 BX7    X2                                                              IO          3302     A     
 IO                 SA6    A1          CLEAR RESTORATION FLAG                              IO          3303     A     
 IO                 SA7    X1                                                              IO          3304     A     
 IO                 EQ     EXIT.                                                           IO          3305     A     
 IO                                                                                        IO          3306     A     
 IO        IDCA     BSS    1           SAVE ARRAY TAG                                      IO          3307     A     
 IO        IDCB     BSS    1           POINTER TO T.DIM DIMENSION INFORMATION              IO          3308     A     
 IO        IDCC     BSS    1           I/O DO NESTING LEVEL                                IO          3309     A     
 IO        IDCD     BSS    1           POINTER TO INITIAL DO-BEGIN TOKEN                   IO          3310     A     
 IO        IDCE     BSS    1           SUBSCRIPT COUNT                                     IO          3311     A     
 IO        IDCF     BSS    1           INDUCTION VARIABLE COUNTER                          IO          3312     A     
 IO        IDCG     BSS    1           ARRAY DIMENSIONALITY                                IO          3313     A     
 IO        IDCH     BSS    1           INDEX OF PROCESSING LEVEL                           IO          3314     A     
 IO        IDCI     BSS    1           COLLAPSE SIZE                                       IO          3315     A     
 IO        IDCJ     BSS    1           VALUE OF T=PAR FOR RESET                            IO          3316     A     
 IO        IDCK     BSSZ   1           ADDRESS OF TOKEN TO RESTORE                         IO          3317     A     
 IO                 BSS    1           CONTENTS                                            IO          3318     A     
 IO        IDCL     BSS    1           SAVE VARIABLE MULITIPLIER                           IO          3319     A     
 IO        IDCM     BSS    1           ARRAY BASE/BIAS                                     FC5A256       12     A     
 IO        IDCN     BSS    1           REFERENCE TABLE COUNT (FOR RECOVER)                 FC50464       23     A     
 IO        IDCO     BSS    1           REFERENCE COUNT (FOR RECOVER)                       FC50464       24     A     
 IO        IDCP     BSS    1           LENGTH BIAS                                         FC50620      222     A     
 IO        IDCQ     BSS    1           LOWER BOUND / VARIABLE MULTIPLIER                   FC50620      223     A     
 IO        TL=LCI   BSS    1           LEN OF *LIST COL. INFO.* APPENDED TO T.IOA          FC5A218      102     A     
 IO        IDCIDX   BSS    MAX.DIM+1   INDICES (+ TRASH WORD)                              IO          3320     A     
 IO        IDCIND   BSS    3           INDUCTION VARIABLES                                 IO          3321     A     
 IO        IDCINT   EQU    IDCIND      INITIAL                                             IO          3322     A     
 IO        IDCLMT   EQU    IDCIND+1    LIMIT                                               IO          3323     A     
 IO        IDCINC   EQU    IDCIND+2    INCREMENT                                           IO          3324     A     
 IO        IDCCV    BSS    1           CONTROL VARIABLE                                    FC5A211       62     A     
 IO        IOD      EJECT                                                                  IO          3325     A     
 IO       **        IOD -  MARK OCCURANCES OF IMPLIED DO-LOOPS IN I/O LIST.                IO          3326     A     
 IO       *                                                                                IO          3327     A     
 IO       *                BEING A SIMPLE SCHEME FOR DISCOVERING AND MARKING THE           IO          3328     A     
 IO       *         EXTENT OF (ANY) IMPLIED-DOS IN AN I/O LIST.  A PSEUDO-STACK            IO          3329     A     
 IO       *         OF PARENTHESES IS KEPT IN THE STRING ITSELF, BY STORING OVER           IO          3330     A     
 IO       *         TOP OF EVERY LEFT PAREN THE ADDRESS OF THE PRECEDING ONE.              IO          3331     A     
 IO       *         THIS STACK IS POPPED UP FOR EVERY RIGHT PAREN ENCOUNTERED BY           IO          3332     A     
 IO       *         RESETTING THE STACK POINTER (B5) TO THE ADDRESS CONTAINED IN           IO          3333     A     
 IO       *         THE LAST LPAREN, AND RESTORING THE LPAREN TO ITS ORIGINAL              IO          3334     A     
 IO       *         VALUE (O.LP).  THUS, WHEN AN EQUAL SIGN IS ENCOUNTERED, THE            IO          3335     A     
 IO       *         TOP OF THE STACK IS ITS OPENING DO-PAREN.  THAT CELL IS                IO          3336     A     
 IO       *         MODIFIED SUCH THAT WHEN THE CLOSING RPAREN IS POPPED, THE              IO          3337     A     
 IO       *         SUPPOSED RESTORATION WILL ACTUALLY TURN IT INTO A DO-BEGIN             IO          3338     A     
 IO       *         MARK.  REDUNDANT (NON-DO-IMPLYING) PARENS ARE THEREFORE                IO          3339     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         EFFECTIVELY IGNORED.                                                   IO          3340     A     
 IO       *                AS TRUE DO-IMPLIED PARENS ARE DISCOVERED, WE INSERT             IO          3341     A     
 IO       *         *O.EOS* MARKS IN FRONT OF THEM SO THAT THE PARSER WILL LATER           IO          3342     A     
 IO       *         STOP THERE AND ALLOW *LST* TO LOOK AT THE DO-BEGIN MARK.               IO          3343     A     
 IO       *         THIS IS INHIBITED IF THE LPAREN IS NOT PRECEDED BY A COMMA,            IO          3344     A     
 IO       *         SINCE WHATEVER ELSE IS THERE WILL BE HANDLED BY *LST*, AND NOT         IO          3345     A     
 IO       *         THE PARSER.                                                            IO          3346     A     
 IO       *                OF COURSE, ANY LEFT PAREN PRECEDED BY A VARIABLE IS A           IO          3347     A     
 IO       *         SUBSCRIPT PAREN, AND IS SKIPPED OVER.                                  IO          3348     A     
 IO       *                                                                                IO          3349     A     
 IO       *         ENTRY  (B4) _ FWA I/O LIST.                                            IO          3350     A     
 IO       *                                                                                IO          3351     A     
 IO       *         EXIT   (B4) = PRESERVED.                                               IO          3352     A     
 IO       *                T.TB = UPDATED.                                                 IO          3353     A     
 IO       *                                                                                IO          3354     A     
 IO       *         USES   ALL BUT A0, B4.                                                 IO          3355     A     
 IO       *                                                                                IO          3356     A     
 IO       *         CALLS  ADW, SKS                                                        IO          3357     A     
 IO       *                                                                                IO          3358     A     
 IO       *         REGISTER ASSIGNMENTS --                                                IO          3359     A     
 IO       *                (A4) _ FETCH ADDRESS.                                           IO          3360     A     
 IO       *                (B5) _ LAST LPAREN LINK.                                        IO          3361     A     
 IO       *                (B6) = PAREN LEVEL.                                             IO          3362     A     
 IO                                                                                        IO          3363     A     
 IO                                                                                        IO          3364     A     
 IO        IOD9     NZ     B6,E.IOD1   IF UNBALANCED PARENTHESIS                           IO          3365     A     
 IO                 BX6    O.EOS                                                           IO          3366     A     
 IO                 SA6    A4          RESET THE EOS FOR PAR                               IO          3367     A     
 IO                 ADDWD  T.TB        ADD AN EXTRA -EOS- FOR *LST*                        IO          3368     A     
 IO                                                                                        IO          3369     A     
 IO        .T       IFNE   TEST        DUMP TOKEN BUFFER                                   IO          3370     A     
 IO                 SA1    CO.SNAP                                                         IO          3371     A     
 IO                 LX1    1RN         IMPLIED-LOOP SNAP FLAG                              IO          3372     A     
 IO                 PL     X1,IODX     IF (SNAP=N) NOT REQUESTED                           IO          3373     A     
 IO                 CALL   LTB=        LIST TOKEN BUFFER                                   IO          3374     A     
 IO        .T       ENDIF                                                                  IO          3375     A     
 IO                                                                                        IO          3376     A     
 IO        IOD      SUBR               ENTRY/EXIT...                                       IO          3377     A     
 IO                 SA4    B4          INITIALIZE (A4) = TOKEN CURSOR                      IO          3378     A     
 IO                 =B6    0           PAREN LEVEL = 0                                     IO          3379     A     
 IO                 MX4    0                                                               IO          3380     A     
 IO                 =B5    B4-1        FAKE UP A LINK TO LAST LPAREN                       IO          3381     A     
 IO                                                                                        IO          3382     A     
 IO        IOD2     BX3    X4                                                              IO          3383     A     
 IO                 =A4    A4+1                                                            IO          3384     A     
 IO                 =B7    X4-O.LP                                                         IO          3385     A     
 IO                 ZR     X4,IOD9     IF *EOS*                                            IO          3386     A     
 IO                 =B2    B7+O.(-O.)                                                      IO          3387     A     
 IO                 ZR     B7,IOD5     IF *(*                                              IO          3388     A     
 IO                 ZR     B2,IOD4     IF *)*                                              IO          3389     A     
 IO                 NE     B2,B1,IOD2  IF NO *=*, LOOP..                                   IO          3390     A     
 IO                 ERRNZ  O.)-O.(-1                                                       IO          3391     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 ERRNZ  O.=-O.)-1                                                       IO          3392     A     
 IO                                                                                        IO          3393     A     
 IO       **        FOUND A *=*  --  MARK CLOSE OF IMPLIED DO.                             IO          3394     A     
 IO                                                                                        IO          3395     A     
 IO                 =X7    A4-1        POINTS TO DO-INDEX                                  IO          3396     A     
 IO                 ERRNZ  18-TB.IOIXL                                                     IO          3397     A     
 IO                 SA3    B5          TOKTOP = T.TB (STACK TOP)                           IO          3398     A     
 IO                 =X2    O.LP&O.DOBI                                                     IO          3399     A     
 IO                 ERRNZ  18-TB.TOTL                                                      IO          3400     A     
 IO                 LX7    TB.IOIXP-TB.TOTP                                                IO          3401     A     
 IO                 BX0    X7+X2       (0, IOIX, TOT)                                      IO          3402     A     
 IO                 SA2    A4-2        TOKBE4 = T.TB (*-2)     /* TOK BEFORE INDEX         IO          3403     A     
 IO                 LX0    TB.TOTP                                                         IO          3404     A     
 IO                 BX7    X3-X0       TOKTOP(IOIX, TOT) = (*-1, O.DOBI)                   IO          3405     A     
 IO                 SA7    B5                                                              IO          3406     A     
 IO                 SB7    X2-O.COMMA  B7=0 IFF TOKBE4(TOT) = COMMA                        IO          3407     A     
 IO                 NZ     B7,E.IOD2   IF IMPLIED DO NOT PRECEEDED BY *,*                  IO          3408     A     
 IO                 EQ     IOD2                                                            IO          3409     A     
 IO                                                                                        IO          3410     A     
 IO                                                                                        IO          3411     A     
 IO       **        FOUND A *)*  --  POP UP PAREN STACK.                                   IO          3412     A     
 IO                                                                                        IO          3413     A     
 IO        IOD4     SA2    B5          TOKOT = T.TB (OLD STACK TOP)                        IO          3414     A     
 IO                 MX0    -TB.IOCPL                                                       IO          3415     A     
 IO                 SB6    B6-B1       PL = PL - 1                                         IO          3416     A     
 IO                 SX6    B1                                                              IO          3417     A     
 IO                 LX2    -TB.IOCPP                                                       IO          3418     A     
 IO                 BX1    X0*X2                                                           IO          3419     A     
 IO                 SB5    X2          NEW STACK TOP = TOKTOP(IOCP)                        IO          3420     A     
 IO                 LX6    TB.IOSPP                                                        IO          3421     A     
 IO                 MI     B6,E.IOD3   IF TOO MANY RPARENS (RETURN FEC.RNL)                IO          3422     A     
 IO                 SX0    A4          TI = *            /* POINTER TO THIS RPAREN         IO          3423     A     
 IO                 BX7    X1+X0       TOKOT(IOCP) = TI                                    IO          3424     A     
 IO                 IX6    X6+X4       T.TB(TI)(IOSP) = 1      /* MARK DOC RP              IO          3425     A     
 IO                 LX7    TB.IOCPP                                                        IO          3426     A     
 IO                 SA6    A4                                                              IO          3427     A     
 IO                 SA7    A2          T.TB (OLD STACK TOP) = TOKOT                        IO          3428     A     
 IO                 EQ     IOD6                                                            IO          3429     A     
 IO                                                                                        IO          3430     A     
 IO                                                                                        IO          3431     A     
 IO       **        FOUND A *(*  --  PUSH DOWN PAREN STACK.                                IO          3432     A     
 IO       *                HOWEVER, IF THIS IS A SUBSCRIPT PAREN (PRECEDING                IO          3433     A     
 IO       *                ELEMENT IS *O.VAR*), SKIP OVER THE SUBSCRIPT AND ANY            IO          3434     A     
 IO       *                PAIRED PARENS WITHIN IT, AND DO NOT MESS UP THE STACK.          IO          3435     A     
 IO                                                                                        IO          3436     A     
 IO        IOD5     BX2    X4                                                              IO          3437     A     
 IO                 HX2    TB.EQL                                                          IO          3438     A     
 IO                 MI     X2,IOD8     IF IMPLIED DO WITHIN THIS PAREN LEVEL               IO          3439     A     
 IO                 LX4    -TB.IOCPP                                                       IO          3440     A     
 IO                 SA4    X4          SWOOP IMMEDIATELY TO MATCHING RIGHT PAREN           IO          3441     A     
 IO        IOD6     SA2    A4+1                                                            IO          3442     A     
 IO                 ZR     X2,IOD2     IF *EOS*                                            IO          3443     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB2    X2-O.SEP                                                        IO          3444     A     
 IO                 MI     B2,IOD7     IF VARIABLE OR SOME FLAVOR OF CONSTANT              IO          3445     A     
 IO                 SB2    X2-O.LP                                                         IO          3446     A     
 IO                 NZ     B2,IOD2     IF NOT *(*                                          IO          3447     A     
 IO                 SBIT   X2,TB.COLP                                                      IO          3448     A     
 IO                 MI     X2,IOD2     SUBSTRING OK                                        IO          3449     A     
 IO        IOD7     SB4    A2+                                                             IO          3450     A     
 IO                 EQ     E.IOD4                                                          IO          3451     A     
 IO                                                                                        IO          3452     A     
 IO        IOD8     MX7    -TB.LLPL                                                        IO          3453     A     
 IO                 SX0    B5                                                              IO          3454     A     
 IO                 ERRNZ  18-TB.LLPL                                                      IO          3455     A     
 IO                 LX4    -TB.LLPP                                                        IO          3456     A     
 IO                 BX1    X7*X4       THISTOK(LLP) = 0                                    IO          3457     A     
 IO                 SB6    B6+B1       PL = PL + 1                                         IO          3458     A     
 IO                 LX1    TB.LLPP-TB.IOCPP                                                IO          3459     A     
 IO                 IFNE   TB.LLPL,TB.IOCPL,1                                              IO          3460     A     
 IO                 MX7    -TB.IOCPL                                                       IO          3461     A     
 IO                 BX4    X7*X1       THISTOK(IOCP) = 0                                   IO          3462     A     
 IO                 BX7    X4+X0       THISTOK(IOCP) = OLD STACK TOP                       IO          3463     A     
 IO                 LX7    TB.IOCPP                                                        IO          3464     A     
 IO                 SB5    A4          NEW STACK TOP = HERE                                IO          3465     A     
 IO                 SA7    A4          THIS PAREN LINKS BACK TO LAST ONE                   IO          3466     A     
 IO                 EQ     IOD2                                                            IO          3467     A     
 IO        C=DOCI   SPACE  4,10                                                            IO          3468     A     
 IO       **        C=DOCI - PROCESS I/O DO COLLAPSE INDUCTION VARIABLES                   IO          3469     A     
 IO       *                                                                                IO          3470     A     
 IO                                                                                        IO          3471     A     
 IO                                                                                        IO          3472     A     
 IO        A=DOCI   BSSENT 0           ENTRY...                                            IO          3473     A     
 IO                 =B4    B4-1                                                            IO          3474     A     
 IO        C=DOCI   BSSENT 0           ENTRY...                                            IO          3475     A     
 IO                 LX6    X5                                                              IO          3476          I
          -FC5A249
 IO                 MX0    -TP.MODEL                                                       FC5A249       27     A     
 IO                 LX5    -TP.MODEP                                                       FC5A249       28     A     
 IO                 BX0    -X0*X5                                                          FC5A249       29     A     
 IO                 LX5    TP.MODEP                                                        FC5A249       30     A     
 IO                 SB2    X0-M.INT                                                        FC5A249       31     A     
 IO                 ZR     B2,DOCI5    IF VARIABLE IS INTEGER                              FC5A249       32     A     
 IO                 NZ     X0,IDCEX    IF NOT BOOLEAN                                      FC5A249       33     A     
 IO                 ERRNZ  M.BOOL                                                          FC5A249       34     A     
 IO                                                                                        FC5A249       35     A     
 IO        DOCI5    BX6    X5                                                              FC5A249       36     A     
 IO                 SA1    IDCF                                                            IO          3477     A     
 IO                 SA2    B4                                                              IO          3478     A     
 IO                 SA6    X1+IDCIND                                                       IO          3479     A     
 IO                 SB2    X2-O.COMMA                                                      IO          3480     A     
 IO                 SB3    X2-O.)                                                          IO          3481     A     
 IO                 =B4    B4+1                                                            IO          3482     A     
 IO                 ZR     B3,PAREXIT  IF END OF INDUCTION VARIABLES                       IO          3483     A     
 IO                 =X6    X1+1                                                            IO          3484     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 NZ     B2,"BLOWUP" IF NOT *,* - ERROR                                  IO          3485     A     
 IO                 =B2    X6-3                                                            IO          3486     A     
 IO                 PL     B2,IDCEX    IF TOO MANY INDUCTION VARIABLES                     IO          3487     A     
 IO                 SA6    A1          INCREMENT                                           IO          3488     A     
 IO                 EQ     PAR.NX      PICK UP NEXT INDUCTION VARIABLE                     IO          3489     A     
 IO        C=DOCS   SPACE  4,10                                                            IO          3490     A     
 IO       **        C=DOCS - PROCESS I/O DO COLLAPSE SUBSCRIPTS                            IO          3491     A     
 IO       *                                                                                IO          3492     A     
 IO       *         IF THE TP. RETURNED BY *PAR* IS A SIMPLE INTEGER VARIABLE, THE         IO          3493     A     
 IO       *         ORDINAL WILL BE SAVED IN IDCIDX.  OTHERWISE, A STOP COLLAPSE           IO          3494     A     
 IO       *         INDICATOR IS STORED, AND SUBSCRIPT PROCESSING IS ABANDONED.            IO          3495          I
          -FC5A214
 IO       *         INDICATOR IS STORED.                                                   FC5A214       32     A     
 IO                                                                                        IO          3496     A     
 IO                                                                                        IO          3497     A     
 IO        A=DOCS   BSSENT 0           ENTRY...                                            IO          3498     A     
 IO                 =B4    B4-1                                                            IO          3499     A     
 IO                                                                                        FC50573        5     A     
 IO        C=DOCS   BSSENT 0           ENTRY...                                            IO          3500     A     
 IO                 MX0    -TP.MODEL                                                       IO          3501     A     
 IO                 LX2    X5                                                              IO          3502     A     
 IO                 MX6    -0          NON-COLLAPSE INDICATOR                              IO          3503     A     
 IO                 LX2    -TP.MODEP                                                       IO          3504     A     
 IO                 BX2    -X0*X2      ISOLATE MODE                                        IO          3505     A     
 IO                 SX2    X2-M.INT                                                        IO          3506     A     
 IO                 NZ     X2,DOCS5    IF NOT INTEGER, STOP COLLAPSE                       IO          3507     A     
 IO                 BX2    X5*X0       REMOVE MODE                                         IO          3508     A     
 IO                 ERRNZ  TP.MODEP                                                        IO          3509     A     
 IO                 SA1    ="IDCEXC"   FETCH EXCLUSION MASK                                IO          3510     A     
 IO                 BX2    X1*X2                                                           IO          3511     A     
 IO                 NZ     X2,DOCS5    IF NOT SIMPLE VARIABLE                              IO          3512     A     
 IO                 HX5    TP.ORD                                                          IO          3513          I
          -FC5A211
 IO                 AX5    -TP.ORDL    ISOLATE THE ORDINAL                                 IO          3514          I
          -FC5A211
 IO                 SA1    S=CON                                                           IO          3515          I
          -FC5A211
 IO                 IX1    X1-X5                                                           IO          3516          I
          -FC5A211
 IO                 SA1    S=CON                                                           FC5A211       63     A     
 IO                 BX2    X5                                                              FC5A211       64     A     
 IO                 HX2    TP.ORD                                                          FC5A211       65     A     
 IO                 AX2    -TP.ORDL    EXTRACT THE ORDINAL                                 FC5A211       66     A     
 IO                 IX1    X1-X2                                                           FC5A211       67     A     
 IO                 ZR     X1,DOCS5    IF CONSTANT                                         IO          3517     A     
 IO                 CALL   BBC         CONVERT TO BASE/BIAS FORM                           FC5A211       68     A     
 IO                 LX6    X5                                                              IO          3518     A     
 IO                                                                                        IO          3519     A     
 IO        DOCS5    SA1    IDCE                                                            IO          3520          I
          -FC50460
 IO        DOCS5    SBIT   X5,TP.INTRP                                                     FC50460        5     A     
 IO                 MI     X5,IDCEX    IF EXPRESSION, NO COLLAPSE                          FC50460        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 LX5    1+TP.INTRP  RESTORE                                             FC50460        7     A     
 IO                 SA1    IDCE                                                            FC50460        8     A     
 IO                 SA6    X1+IDCIDX   STORE COLLAPSE INDEX INFORMATION                    IO          3521     A     
 IO                 MI     X6,DOCS10   IF NO-COLLAPSE MARK                                 IO          3522          I
          -FC5A214
 IO                 =X7    X1+1        INCREMENT SUBSCRIPT COUNT                           IO          3523          I
          -FC5A247
 IO                 SB2    X1          FOR SUBSCRIPT DUPLICATION CHECK                     FC5A247        5     A     
 IO                 SA2    IDCG        FETCH NUMBER OF DIMENSIONS                          IO          3524     A     
 IO                 SA3    IDCC        FETCH NESTING LEVEL                                 IO          3525          I
          -FC5A214
 IO                 IX2    X1-X2                                                           IO          3526     A     
 IO                 IX3    X1-X3                                                           IO          3527          I
          -FC5A214
 IO                 PL     X2,IDCEX    IF DIMENSIONALITY EXCEEDED                          IO          3528     A     
 IO                 =X7    X1+1        INCREMENT SUBSCRIPT COUNT                           FC5A247        6     A     
 IO                 PL     X3,IDCEX    IF NESTING LEVEL EXCEEDED                           IO          3529          I
          -FC5A214
 IO                 SA7    A1                                                              IO          3530     A     
 IO                 SA1    IODIR                                                           FC5A256       13     A     
 IO                 NZ     X1,DOCS10   IF NOT INPUT                                        FC5A256       14     A     
 IO                 SA1    IDCM        BASE/BIAS FORM ARRAY                                FC5A256       15     A     
 IO                 BX6    X6-X1                                                           FC5A256       16     A     
 IO                 MX1    -TP.ORDL                                                        FC5A256       17     A     
 IO                 AX6    -TP.ORDP                                                        FC5A256       18          I
          -FC50573
 IO                 LX6    -TP.ORDP                                                        FC50573        6     A     
 IO                 BX6    -X1*X6                                                          FC5A256       19     A     
 IO                 ZR     X6,IDCEX    IF INTERFERENCE                                     FC5A256       20     A     
 IO                                                                                        FC5A256       21     A     
 IO        DOCS10   BSS    0                                                               FC5A256       22     A     
 IO                 ZR     B2,DOCS12   IF FIRST SUBSCRIPT                                  FC5A247        7     A     
 IO                 SB2    B2-1                                                            FC5A247        8     A     
 IO                 SA1    IDCIDX                                                          FC5A247        9     A     
 IO                                                                                        FC5A247       10     A     
 IO        DOCS11   SA2    A1+B2                                                           FC5A247       11     A     
 IO                 IX2    X5-X2                                                           FC5A247       12     A     
 IO                 ZR     X2,IDCEX    IF SUBSCRIPT DUPLICATION                            FC5A247       13     A     
 IO                 SB2    B2-1                                                            FC5A247       14     A     
 IO                 PL     B2,DOCS11   IF MORE TO CHECK                                    FC5A247       15     A     
 IO                                                                                        FC5A247       16     A     
 IO        DOCS12   BSS    0                                                               FC5A247       17     A     
 IO                 SA2    B4                                                              IO          3531     A     
 IO                 SB2    X2-O.)                                                          IO          3532     A     
 IO                 SB3    X2-O.COMMA                                                      IO          3533     A     
 IO                 =B4    B4+1                                                            IO          3534     A     
 IO                 ZR     B2,PAREXIT  IF SUBSCRIPTS COMPLETED                             IO          3535     A     
 IO                 =B6    B6-1        REMOVE OPERAND FROM ESTACK                          IO          3536     A     
 IO                 ZR     B3,PAR.NX   IF MORE SUBSCRIPTS TO PROCESS                       IO          3537     A     
 IO                 IFEQ   TEST,ON,1                                                       IO          3538     A     
 IO                 EQ     "BLOWUP"    SOMETHING WENT WRONG                                IO          3539     A     
 IO        PAX      EJECT                                                                  FC5A218      103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       **        PAX - PREPARE ARRAY CROSS-SECTION FOR ISSUE.                           FC5A218      104     A     
 IO       *                                                                                FC5A218      105     A     
 IO       *         PAX USES THE *LCI* APPENDED TO T.IOA FOR 3 TASKS:                      FC5A218      106     A     
 IO       *         1) CALL *CML* TO DETERMINE IF RESTART IS NEEDED DUE TO                 FC5A218      107     A     
 IO       *            A VARIABLE UPPER LIMIT BEING DEFINED PREVIOUSLY IN LIST.            FC5A218      108     A     
 IO       *         2) ADD ALL CONTROL VARIABLES TO *ILI* (CALL *AII*) SO                  FC5A218      109     A     
 IO       *            THEY ARE MARKED AS DEFINED FOR FUTURE INTERFERENCE.                 FC5A218      110     A     
 IO       *         3) EMIT TURPLES TO T.IOLC FOR DEFINING ALL CONTROL VARIABLES.          FC5A218      111     A     
 IO       *            THESE WILL BE OUTPUT TO *T.PAR* WHEN THE *IOSUB* TURPLE IS          FC5A218      112     A     
 IO       *            EMITTED (IN *IOJ*).                                                 FC5A218      113     A     
 IO       *                                                                                FC5A218      114     A     
 IO       *         EXIT   *LCI* DEALLOCATED FROM *T.IOA* .                                FC5A218      115     A     
 IO       *                                                                                FC5A218      116     A     
 IO       *         PRESERVES   X5, B4-B6                                                  FC5A218      117     A     
 IO                                                                                        FC5A218      118     A     
 IO        PAX      SUBR                                                                   FC5A218      119     A     
 IO                 SA4    TL=LCI                                                          FC5A218      120     A     
 IO                 SA2    =XT=IOA                                                         FC5A218      121          I
          -FC5A248
 IO                 SA2    T=IOA                                                           FC5A248       32     A     
 IO                 ZR     X4,EXIT.    IF NO *LCI* ON FILE                                 FC5A218      122     A     
 IO                 MX6    0                                                               FC5A248       33     A     
 IO                 IX7    X2-X4                                                           FC5A248       34     A     
 IO                 SA6    PAXF                                                            FC5A248       35     A     
 IO                 SA6    PAXG                                                            FC5A248       36     A     
 IO                 SA7    PAXH        OFFSET FOR *LCI* ON T.IOA                           FC5A248       37     A     
 IO                 BX6    X5                                                              FC5A218      123     A     
 IO                 SA6    PAXD                                                            FC5A218      124     A     
 IO                 SX7    B6                                                              FC5A218      125     A     
 IO                 SA7    PAXE                                                            FC5A218      126     A     
 IO                 SX6    B5                                                              FC5A218      127     A     
 IO                 IX0    X2-X4                                                           FC5A218      128     A     
 IO                 SA6    PAXA                                                            FC5A218      129     A     
 IO                 SA2    T.IOA                                                           FC5A218      130     A     
 IO                 IX0    X2+X0                                                           FC5A218      131     A     
 IO                 =A2    X0+2        FIRST LIMIT                                         FC5A218      132     A     
 IO                 BX5    X4                                                              FC5A218      133     A     
 IO                                                                                        FC5A218      134     A     
 IO       *         CALL CML ON ANY VARIABLE LIMIT.                                        FC5A218      135     A     
 IO                                                                                        FC5A218      136     A     
 IO        PAX10    BX6    X2                                                              FC5A218      137     A     
 IO                 SX4    X4-3                                                            FC5A218      138     A     
 IO                 HX6    TP.SHRT                                                         FC5A218      139     A     
 IO                 SA2    A2+3        NEXT LIMIT                                          FC5A218      140     A     
 IO                 PL     X6,PAX20    IF LIMIT IS NOT CONSTANT                            FC5A218      141     A     
 IO                 NZ     X4,PAX10    IF MORE LIMITS                                      FC5A218      142     A     
 IO                 EQ     PAX30                                                           FC5A218      143     A     
 IO                                                                                        FC5A218      144     A     
 IO        PAX20    LX6    TP.SHRTP+1  RESTORE LIMIT                                       FC5A218      145     A     
 IO                 =X0    1                                                               FC5A218      146     A     
 IO                 RJ     CML         CHECK FOR RESTART                                   FC5A218      147     A     
 IO                                                                                        FC5A218      148     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        PAX30    SB6    X5                                                              FC5A218      149     A     
 IO                 SA3    =XT.IOA                                                         FC5A218      150          I
          -FC5A248
 IO                                                                                        FC5A218      151          I
          -FC5A248
 IO        PAX40    SA2    T=IOA                                                           FC5A218      152          I
          -FC5A248
 IO                 IX0    X2-X5                                                           FC5A218      153          I
          -FC5A248
 IO                 SB6    B6-3                                                            FC5A218      154          I
          -FC5A248
 IO                 IX6    X3+X0                                                           FC5A218      155          I
          -FC5A248
 IO                 SA4    X6          NEXT *CV*                                           FC5A218      156          I
          -FC5A248
 IO        PAX40    SA3    T.IOA                                                           FC5A248       38     A     
 IO                 SA1    PAXH                                                            FC5A248       39     A     
 IO                 SA2    WO.DOOT                                                         FC5A248       40     A     
 IO                 NZ     X2,PAX50    IF DO = OT                                          FC5A248       41     A     
 IO                 SA2    PAXG                                                            FC5A248       42     A     
 IO                 HX2    TP.SHRT                                                         FC5A248       43     A     
 IO                 PL     X2,PAX50    IF LAST LOOP NOT VARIABLE TRIP COUNT                FC5A248       44     A     
 IO                 MX6    0                                                               FC5A248       45     A     
 IO                 SA6    A2          MARK BRANCH CODE OUT                                FC5A248       46     A     
 IO                                                                                        FC5A248       47     A     
 IO       *         ISSUE BRANCH CODE TO PROTECT INNER CONTROL VARIABLE                    FC5A248       48     A     
 IO       *         DEFINITIONS FROM ZERO TRIP COUNT OF OUTER LOOP, VIZ. DO NOT            FC5A248       49     A     
 IO       *         REDEFINE I IN                                                          FC5A248       50     A     
 IO       *         N=0                                                                    FC5A248       51     A     
 IO       *         READ(1)((A(I,J),I=1,10),J=1,N)                                         FC5A248       52     A     
 IO                                                                                        FC5A248       53     A     
 IO                 SA1    N.GL                                                            FC5A248       54     A     
 IO                 BX6    X1                                                              FC5A248       55     A     
 IO                 =X2    1                                                               FC5A248       56     A     
 IO                 =X7    X1+1        N.GL = N.GL + 1                                     FC5A248       57     A     
 IO                 LX2    TP.GLP                                                          FC5A248       58     A     
 IO                 SA7    A1                                                              FC5A248       59     A     
 IO                 LX1    TP.ORDP                                                         FC5A248       60     A     
 IO                 BX6    X1+X2                                                           FC5A248       61     A     
 IO                 BX4    X6                                                              FC5A248       62     A     
 IO                 SA6    PAXF        SAVE GL OPERAND                                     FC5A248       63     A     
 IO                 SA5    PAXB        INITIAL                                             FC5A248       64     A     
 IO                 SA1    OPDUM+O.2ND-O.NONE                                              FC5A248       65     A     
 IO                 SX0    V=LCIF                                                          FC5A248       66     A     
 IO                 LX0    TH.SKELP                                                        FC5A248       67          I
          -FC50104
 IO                 LX0    SP.SKELP                                                        FC50104       70     A     
 IO                 BX6    X0+X1                                                           FC5A248       68     A     
 IO                 SA6    IODTH                                                           FC5A248       69     A     
 IO                 EMIT   IODTH,*,T.IOLC                                                  FC5A248       70     A     
 IO                 SA1    OPDUM+O.BOTH-O.NONE                                             FC5A248       71     A     
 IO                 SX0    V=NOOP                                                          FC5A248       72     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 LX0    TH.SKELP                                                        FC5A248       73          I
          -FC50104
 IO                 LX0    SP.SKELP                                                        FC50104       71     A     
 IO                 BX6    X0+X1                                                           FC5A248       74     A     
 IO                 SA6    IODTH                                                           FC5A248       75     A     
 IO                 SA4    PAXC        UPPER LIMIT                                         FC5A248       76     A     
 IO                 SA5    CONONE      INCREMENT                                           FC5A248       77     A     
 IO                 EMIT   IODTH,*,T.IOLC                                                  FC5A248       78     A     
 IO                 SA3    T.IOA                                                           FC5A248       79     A     
 IO                 SA1    PAXH                                                            FC5A248       80     A     
 IO                                                                                        FC5A248       81     A     
 IO        PAX50    SB6    B6-3                                                            FC5A248       82     A     
 IO                 IX3    X3+X1       (T.IOA) + LCI OFFSET                                FC5A248       83     A     
 IO                 SA4    X3+B6       NEXT *CV*                                           FC5A248       84     A     
 IO                 SA5    CONONE                                                          FC5A218      157     A     
 IO                 =A3    A4+1        NEXT INITIAL                                        FC5A218      158     A     
 IO                 =A2    A3+1        NEXT LIMIT                                          FC5A218      159     A     
 IO                 BX6    -X3                                                             FC5A248       85     A     
 IO                 BX7    -X2+X6                                                          FC5A248       86     A     
 IO                 SA7    PAXG                                                            FC5A248       87     A     
 IO                 BX6    X3                                                              FC5A218      160     A     
 IO                 BX7    X2                                                              FC5A218      161     A     
 IO                 SA6    PAXB                                                            FC5A218      162     A     
 IO                 SA7    PAXC                                                            FC5A218      163     A     
 IO                 RJ     AII         ADD CONTROL VARIABLE TO *ILI*                       FC5A218      164     A     
 IO                 SA1    =XOPDUM+O.BOTH-O.NONE                                           FC5A218      165          I
          -FC5A248
 IO                 SX0    =XV=IOLC                                                        FC5A218      166          I
          -FC5A248
 IO                 SA1    OPDUM+O.BOTH-O.NONE                                             FC5A248       88     A     
 IO                 SX0    V=IOLC                                                          FC5A248       89     A     
 IO                 LX0    TH.SKELP                                                        FC5A218      167          I
          -FC50104
 IO                 LX0    SP.SKELP                                                        FC50104       72     A     
 IO                 BX6    X0+X1                                                           FC5A218      168     A     
 IO                 SA6    IODTH                                                           FC5A218      169     A     
 IO                 SA5    PAXB                                                            FC5A218      170     A     
 IO                 EMIT   IODTH,*,T.IOLC    EMIT FIRST HALF OF IOLC TURPLE                FC5A218      171     A     
 IO                 SA1    OPDUM+O.BOTH-O.NONE                                             FC5A218      172     A     
 IO                 SX0    =XV=NOOP                                                        FC5A218      173          I
          -FC5A248
 IO                 SX0    V=NOOP                                                          FC5A248       90     A     
 IO                 LX0    TH.SKELP                                                        FC5A218      174          I
          -FC50104
 IO                 LX0    SP.SKELP                                                        FC50104       73     A     
 IO                 BX6    X0+X1                                                           FC5A218      175     A     
 IO                 SA6    IODTH                                                           FC5A218      176     A     
 IO                 SA4    PAXC                                                            FC5A218      177     A     
 IO                 SA5    CONONE      INCREMENT                                           FC5A218      178     A     
 IO                 EMIT   IODTH,*,T.IOLC                                                  FC5A218      179     A     
 IO                                                                                        FC5A218      180          I
          -FC5A248
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA3    T.IOA                                                           FC5A218      181          I
          -FC5A248
 IO                 SX5    B6                                                              FC5A218      182          I
          -FC5A248
 IO                 NZ     B6,PAX40    IF MORE ENTRIES                                     FC5A218      183     A     
 IO                 SA1    TL=LCI                                                          FC5A218      184     A     
 IO                 SA2    T=IOA                                                           FC5A218      185     A     
 IO                 MX7    0                                                               FC5A218      186     A     
 IO                 IX6    X2-X1                                                           FC5A218      187     A     
 IO                 SA7    A1          TL=LCI  = 0                                         FC5A218      188     A     
 IO                 SHRINK T=IOA,X6    DEALLOCATE *LCI*                                    FC5A218      189     A     
 IO                 SA1    PAXA                                                            FC5A218      190          I
          -FC5A248
 IO                 SA4    PAXF                                                            FC5A248       91     A     
 IO                 ZR     X4,PAX60    IF NO PROTECT CODE ISSUED                           FC5A248       92     A     
 IO                 MX5    0                                                               FC5A248       93     A     
 IO                 EMIT   OPBSS,*,T.IOLC                                                  FC5A248       94     A     
 IO                                                                                        FC5A248       95     A     
 IO        PAX60    SA1    PAXA                                                            FC5A248       96     A     
 IO                 SB5    X1                                                              FC5A218      191     A     
 IO                 SA2    PAXD                                                            FC5A218      192     A     
 IO                 SA3    PAXE                                                            FC5A218      193     A     
 IO                 BX5    X2                                                              FC5A218      194     A     
 IO                 SB6    X3                                                              FC5A218      195     A     
 IO                 EQ     EXIT.                                                           FC5A218      196     A     
 IO                                                                                        FC5A218      197     A     
 IO        PAXA     BSS    1                                                               FC5A218      198     A     
 IO        PAXB     BSS    1                                                               FC5A218      199     A     
 IO        PAXC     BSS    1                                                               FC5A218      200     A     
 IO        PAXD     BSS    1                                                               FC5A218      201     A     
 IO        PAXE     BSS    1                                                               FC5A218      202     A     
 IO        PAXF     BSS    1                                                               FC5A248       97     A     
 IO        PAXG     BSS    1                                                               FC5A248       98     A     
 IO        PAXH     BSS    1                                                               FC5A248       99     A     
 IO                                                                                        IO          3540          I
          -FC5A214
 IO        DOCS10   SA4    B4          INITIALIZE                                          IO          3541          I
          -FC5A214
 IO                 RJ     SKS         SKIP REMAINING SUBSCRIPTS                           IO          3542          I
          -FC5A214
 IO                 =B4    A4+1        SET TO CHARACTER FOLLOWING CLOSING *)*              IO          3543          I
          -FC5A214
 IO                 EQ     PAREXIT                                                         IO          3544          I
          -FC5A214
 IO        PCI      SPACE  4,10                                                            IO          3545     A     
 IO       **        PCI -  PARSE COLLAPSE ITEMS.                                           IO          3546     A     
 IO       *                                                                                IO          3547     A     
 IO       *         CALLS PARSER FOR IDC.  PREFIX TOKEN STRING WITH A SPECIAL LEFT         IO          3548     A     
 IO       *         PAREN, TO KEEP PAR HAPPY.  PERTURBED TOKEN RESTORED BEFORE             IO          3549     A     
 IO       *         NORMAL EXIT. IF PAR ERROR EXITS, TOKEN MUST BE RESTORED BY             IO          3550     A     
 IO       *         CALLER.                                                                IO          3551     A     
 IO       *                                                                                IO          3552     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         ENTRY  (B4) _ TOKEN PRECEDING INTERESTING ONES.                        IO          3553     A     
 IO       *                (X4) = ((B4)) = TOKEN TO RESTORE.                               IO          3554     A     
 IO       *                (X1) = ARGMODE FOR PAR.                                         IO          3555     A     
 IO                                                                                        IO          3556     A     
 IO                                                                                        IO          3557     A     
 IO        PCI      SUBR   0           ENTRY/EXIT...                                       IO          3558     A     
 IO                 BX7    X4                                                              IO          3559     A     
 IO                 SX6    B4                                                              IO          3560     A     
 IO                 SA7    IDCK+1      SAVE TOKEN                                          IO          3561     A     
 IO                 SA6    A7-B1       SAVE ADDRESS                                        IO          3562     A     
 IO                 SX7    O.SLP                                                           IO          3563     A     
 IO                 BX6    X1                                                              IO          3564     A     
 IO                 SA7    B4                                                              IO          3565     A     
 IO                 SA6    ARGMODE                                                         IO          3566     A     
 IO                 CALL   PAR         PARSE COLLAPSE ITEMS                                IO          3567     A     
 IO                 SA1    IDCK                                                            IO          3568     A     
 IO                 SA2    A1+B1       FETCH ORIGINAL TOKEN                                IO          3569     A     
 IO                 MX6    0                                                               IO          3570     A     
 IO                 BX7    X2                                                              IO          3571     A     
 IO                 SA6    A1          CLEAR TOKEN RESTORATION FLAG                        IO          3572     A     
 IO                 SA7    X1          RESTORE                                             IO          3573     A     
 IO                 EQ     EXIT.                                                           IO          3574     A     
 IO                 SPACE  4,10                                                            IO          3575     A     
 IO                 LIST   D                                                               IO          3576     A     
 IO                 END                                                                    IO          3577     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - IO      
  
          IDENTIFIER               TOTAL    ACTIVE
  
          IO                        3577      3057
          FC5A111                      1         1
          FC5A125                     12        12
          FC5A136                      4         1
          FC5A141                    222       198
          FC5A143                     47        47
          FC5A165                      5         5
          FC5A171A                   324       316
          FC50011                      3         3
          FC50014                     18        18
          FC50035                      5         5
          F1037F5                      3         3
          FC5A211                     58        56
          FC5A214                     28        28
          FC5A218                    166       148
          FC5A231                      2         2
          FC5A232                      8         6
          FC5A235                      2         2
          FC5A248                     88        81
          FC5A251                      3         3
          FC5A252                      3         3
          FC5A271                     11        11
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1224    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          FC50061                     13        12
          FC50084                      3         3
          FC5A247                     13        13
          FC5A249                     30        30
          FC5A256                     17        16
          FC50104                     10        10
          FC50216                      5         4
          FC50218                      2         2
          FC50317                     19        19
          FC5A338                     24        24
          FC5A343                      5         4
          FC50378                      1         1
          FC50460                      4         4
          FC50413                      4         4
          FC50557                      3         3
          FC50573                      2         2
          FC50596                     12        12
          FC50464                     17        17
          FC50643                      4         4
          FC50683                      8         8
          FC50620                    209       191
          FC50718                      2         2
          FC5A431                     13        12
          FC50811                      9         9
          FC50857                     21        21
          FC50906                      4         4
          FC50946                     31        31
          FC51066                      2         2
          FC51069                      2         2
          FC50887                      9         9
          FC51356                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *DECK     PAR - EXPRESSION TRANSLATION.                                          PAR            1     A     
 PAR                IDENT  PAR                                                             PAR            2     A     
 PAR       PAR      SECT   (EXPRESSION TRANSLATION.)                                       PAR            3     A     
 PAR       PAR      SPACE  4                                                               PAR            4     A     
 PAR      ***       PAR - EXPRESSION TRANSLATION.                                          PAR            5     A     
 PAR      *                                                                                PAR            6     A     
 PAR      *         PAR TRANSLATES FORTRAN EXPRESSIONS INTO INTERMEDIATE LANGUAGE          PAR            7     A     
 PAR      *         TURPLES, OR, WITH THE HELP OF CONRED, CONSTANT EXPRESSIONS ARE         PAR            8     A     
 PAR      *         SOMETIMES REDUCED TO A SIMPLE OPERAND.  THIS DECK IS ORGANIZED         PAR            9     A     
 PAR      *         AS FOLLOWS --                                                          PAR           10     A     
 PAR      *                                                                                PAR           11     A     
 PAR      *         CNF - COMPILE ASSIGNMENT STATEMENT.                                    PAR           12     A     
 PAR      *         PIX - PARSE/REDUCE INTEGER CONSTANT EXPRESSION.                        PAR           13     A     
 PAR      *         PARSER CONTROL TABLES.                                                 PAR           14     A     
 PAR      *         PAR - OPERATOR PRECEDENCE PARSER.                                      PAR           15     A     
 PAR      *                PARSE/ANALYZE NEXT ELEMENT.                                     PAR           16     A     
 PAR      *                PARSE/ANALYZE CONSTANT ELEMENT.                                 PAR           17     A     
 PAR      *                PARSE/ANALYZE SYMBOLIC ELEMENT.                                 PAR           18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                PARSE/ANALYZE NEXT SEPARATOR.                                   PAR           19     A     
 PAR      *         POP - SYNTHESIZE SEMANTICS.                                            PAR           20     A     
 PAR      *                POP/EMIT SIMPLE OPERATORS.                                      PAR           21     A     
 PAR      *                POP/EMIT SUBSTRING.                                             PAR           22     A     
 PAR      *                POP/EMIT DO LOOP INDICIES.                                      PAR           23     A     
 PAR      *                POP/EMIT EXPONENTIATION.                                        PAR           24     A     
 PAR      *                POP/EMIT APLIST AND FUNCTION REFERENCE.                         PAR           25     A     
 PAR      *                POP/EMIT ARRAY SUBSCRIPTS.                                      PAR           26     A     
 PAR      *         SUBROUTINES.                                                           PAR           27     A     
 PAR                                                                                       PAR           28     A     
 PAR                                                                                       PAR           29     A     
 PAR      *         IN ALLOC                                                               PAR           30     A     
 PAR                EXT    ADW,ALC,ALC.REG,ALC.STF,ALC.00                                  PAR           31     A     
 PAR                                                                                       PAR           32     A     
 PAR      *         IN CONRED                                                              PAR           33     A     
 PAR                EXT    CCR,KCV,LCH,LCT,LIR,NBC,NCS,OCT,PCC                             PAR           34          I
          -FC50612
 PAR                EXT    CCR,DEC,KCV,LCH,LCT,LIR,NBC,NCS,OCT,PCC                         FC50612        6     A     
 PAR                EXT    PCR,PCR.1OP,PCR.2OP,PCR.RO                                      PAR           35     A     
 PAR                                                                                       PAR           36     A     
 PAR      *         IN DATA                                                                PAR           37     A     
 PAR                EXT    CFC,C=DVL                                                       PAR           38          I
          -FC5A111
 PAR                EXT    CFC,C=DVL,DAT.Z                                                 FC5A111       25     A     
 PAR                                                                                       PAR           39     A     
 PAR      *         IN DECL                                                                PAR           40     A     
 PAR                EXT    A=DBD,CDBB,C=DBD                                                PAR           41          I
          -FC50438
 PAR                EXT    A=DBD,CDBB,C=DBD,DIRT,KW=COMM                                   FC50438       15     A     
 PAR                                                                                       PAR           42     A     
 PAR      *         IN FEC                                                                 PAR           43     A     
 PAR                EXT    ARGCOMA,ARGMIS,ARGMODE,CALLTAG,CHARMAP,CT1,DATFLG,DEC           PAR           44          I
          -FC50396
 PAR                EXT    ERT,ESTACK,ESY,INSTF,LASTAD,LASTOP,LDEAD,NCS,OSTACK             PAR           45          I
          -FC5A227
 PAR                EXT    PARMODE,REFVAR,SLT,SSY,STY,TLV,TSX,ZLEQUAL,ZLE                  PAR           46          I
          -FC5A227
 PAR                EXT    ERT,ESTACK,ESY,FEC=EXU,INSTF,LASTAD,LASTOP,LDEAD,NCS            FC5A227       87          I
          -FC50396
 PAR                EXT    OSTACK,PARMODE,REFVAR,SLT,SSY,STAGE,STY,TLV,TSX,ZLE             FC5A227       88          I
          -FC50396
 PAR                EXT    ARGCOMA,ARGMIS,ARGMODE,BBC,CALLTAG,CHARMAP,CT1,DATFLG           FC50396        5     A     
 PAR                EXT    DEC,ERT,ESTACK,ESY,FEC=EXU,INSTF,LASTAD,LASTOP,LDEAD            FC50396        6          I
          -FC50612
 PAR                EXT    NCS,OSTACK,PARMODE,REFVAR,SLT,SSY,STAGE,STY,TLV,TSX,ZLE         FC50396        7          I
          -FC50612
 PAR                EXT    ZLEQUAL                                                         FC5A227       89          I
          -FC50612
 PAR                EXT    ERT,ESTACK,ESY,FEC=EXU,INSTF,LDEAD,NCS,OSTACK,PARMODE           FC50612        7     A     
 PAR                EXT    REFVAR,SLT,SSY,STAGE,STY,TLV,TSX,ZLE,ZLEQUAL                    FC50612        8     A     
 PAR                                                                                       PAR           47     A     
 PAR      *         IN FERRS                                                               PAR           48     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EXT    DO.DPC,E.AT01,E.AT02,E.AT03,E.AT04,E.AT05,E.AT06,E.AT07         PAR           49     A     
 PAR                EXT    E.AT08,E.AT09,E.AT10,E.AT13,E.AT14,E.AT15,E.AT16,E.AT17         PAR           50     A     
 PAR                EXT    E.AT18,E.AT19,E.DC4                                             PAR           51          I
          -FC5A111
 PAR                EXT    E.AT18,E.AT19,E.AT20,E.DC4                                      FC5A111       26          I
          -FC50014
 PAR                EXT    E.AT18,E.AT19,E.AT20,E.DC4,E.ANS4                               FC50014       26          I
          -FC5A302
 PAR                EXT    E.DO00,E.DO02,E.DO04,E.DO08,E.DO11,E.DO15,E.DO16,E.DO17         PAR           52          I
          -FC5A211
 PAR                EXT    E.DM01,E.DM11,E.DM17,E.DM18,E.INF                               PAR           53          I
          -FC5A211
 PAR                EXT    E.DO00,E.DO02,E.DO04,E.DO15,E.DO16,E.DO17                       FC5A211       69          I
          -FC5A302
 PAR                EXT    E.DM01,E.DM11,E.DM17,E.DM18,E.INF,E.INF1,E.INF2                 FC5A211       70          I
          -FC5A302
 PAR                EXT    E.AT18,E.AT19,E.AT20,E.ANS4,E.ANS5                              FC5A302        6          I
          -FC50560
 PAR                EXT    E.AT18,E.AT19,E.AT20,E.ANS4,E.ANS5,E.DC1                        FC50560        4          I
          -FC5A471
 PAR                EXT    E.AT18,E.AT19,E.AT20,E.AT21,E.ANS4,E.ANS5,E.DC1                 FC5A471        7     A     
 PAR                EXT    E.DC4,E.DM01,E.DM11,E.DM17,E.DM18,E.DO00,E.DO02,E.DO04          FC5A302        7          I
          -FC50438
 PAR                EXT    E.DO15,E.DO16,E.DVL1,E.DO17,E.DVR5                              FC5A302        8          I
          -FC50438
 PAR                EXT    E.DC4,E.DM01,E.DM11,E.DM14,E.DM17,E.DM18,E.DM21,E.DO00          FC50438       16     A     
 PAR                EXT    E.DO02,E.DO04,E.DO15,E.DO16,E.DVL1,E.DO17,E.DVR5                FC50438       17     A     
 PAR                EXT    E.INF,E.INF1,E.INF2,E.INF3                                      FC5A302        9     A     
 PAR                EXT    E.LP1,E.LP2,E.LP3,E.LV11,E.PX1,E.PX6                            PAR           54          I
          -FC5A156
 PAR                EXT    E.LP1,E.LP2,E.LP3,E.LV11,E.PX1,E.PX6,E.PX7                      FC5A156       12          I
          -FC50041
 PAR                EXT    E.LP1,E.LP2,E.LP3,E.LV11,E.PX1,E.PX5,E.PX6,E.PX7                FC50041        5     A     
 PAR                EXT    E.SB2,E.SB3,E.SB4,E.SB5,E.SB6,E.SB7,E.SF09,E.SF10               PAR           55     A     
 PAR                EXT    E.SU01,E.SU02,E.SU03,E.SU05,E.SU07,E.SU08,E.SU09,E.SU10         PAR           56     A     
 PAR                EXT    E.SU11,E.TY2,E.VA01,E.VA03,E.VA04,E.VA05,E.VA06,E.VA07          PAR           57          I
          -FC5A302
 PAR                EXT    E.VA08,E.VA11,E.VA12,E.VA13,E.DVL1                              PAR           58          I
          -FC5A184  -FC5A302
 PAR                EXT    E.VA08,E.VA11,E.VA12,E.VA13,E.DVL1,E.ANS5                       FC5A184       78          I
          -FC5A302
 PAR                EXT    E.XP1,E.XP2,E.XP3,E.XP4,E.XP5,E.XP6,E.XP7,E.ZEMT                PAR           59          I
          -FC5A302
 PAR                EXT    E.SU11,E.TY2,E.TY4,E.TY9,E.VA01,E.VA03,E.VA04,E.VA05            FC5A302       10     A     
 PAR                EXT    E.VA06,E.VA07,E.VA08,E.VA11,E.VA12,E.VA13                       FC5A302       11     A     
 PAR                EXT    E.XP1,E.XP3,E.XP4,E.XP5,E.XP6,E.XP7,E.ZEMT                      FC5A302       12     A     
 PAR                EXT    ERL=CON,ERL=XPR,FILL.,FILL.2,FILL.3,MOD.DPC,OSE                 PAR           60          I
          -F1037F5
 PAR                EXT    E.MDE5,ERL=CON,ERL=XPR,FILL.,FILL.2,FILL.3,MOD.DPC,OSE          F1037F5      432     A     
 PAR                EXT    E.SF13                                                          FC50148        8          I
          -FC50474
 PAR                EXT    E.SF13,E.SF15                                                   FC50474        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EXT    E.AT11                                                          FC50189       10     A     
 PAR                                                                                       PAR           61     A     
 PAR      *         IN FLINK                                                               PAR           62     A     
 PAR                EXT    MDD                                                             PAR           63          I
          -FC5A227
 PAR                EXT    MDD,PCD                                                         FC5A150      426          I
          -FC5A302
 PAR                EXT    MDD,PDC                                                         FC5A302       13     A     
 PAR                                                                                       PAR           64     A     
 PAR      *         IN FSNAP                                                               PAR           65     A     
 PAR                EXT    SN.EMT,SN.PAR                                                   PAR           66     A     
 PAR                                                                                       PAR           67     A     
 PAR      *         IN FTN                                                                 PAR           68     A     
 PAR                EXT    COD,CO.DBSB,CO.DBTB,CO.SNAP,FV.LGO                              PAR           69          I
          -FC50014
 PAR                EXT    COD,CO.DBSB,CO.DBTB,CO.SNAP,FV.LGO,CO.ANSI                      FC50014       27          I
          -FC5A227
 PAR                EXT    COD,CO.DBSB,CO.DBTB,CO.SNAP,CO.ANSI                             FC5A227       90          I
          -FC50392
 PAR                EXT    COD,CO.ANSI,CO.DBSB,CO.DBTB,CO.RNDD,CO.RNDM,CO.SNAP             FC50392       11     A     
 PAR                EXT    CO.DOLG                                                         FC50947        8     A     
 PAR                                                                                       PAR           70     A     
 PAR      *         IN IDP                                                                 PAR           71     A     
 PAR                EXT    REG=,RSR=,SNP=,SV=B,SVR=                                        PAR           72     A     
 PAR                                                                                       PAR           73     A     
 PAR      *         IN IO                                                                  PAR           74     A     
 PAR                EXT    A=BLWA,A=BMOD,A=DOCI,A=DOCS,A=FMT,A=ICC,A=ICCX,A=ICI            PAR           75     A     
 PAR                EXT    A=ICIX,A=ICL,A=STR,A=UNT,CML,C=BFWA,C=CNT,C=DOCI,C=DOCS         PAR           76     A     
 PAR                EXT    C=FMT,C=ICC,C=ICCX,C=ICI,C=ICIX,C=ICL,C=IOL,C=UNT,IDCEX         PAR           77     A     
 PAR                EXT    A=FOU,C=FOU                                                     FC5A171A     342          I
          -FC5A227
 PAR                EXT    A=FOU,C=FOU,IOJ                                                 FC5A227       91          I
          -FC5A338
 PAR                EXT    A=FOU,C=FOU,IODIR,IOJ                                           FC5A338       59     A     
 PAR                EXT    IODIR                                                           PAR           78          I
          -FC5A141
 PAR                EXT    IODIR,IOJ                                                       FC5A141      288          I
          -FC5A227
 PAR                                                                                       PAR           79     A     
 PAR      *         IN KEY                                                                 PAR           80     A     
 PAR                EXT    CRL,C=PJX,IFMOD,IFREL2,IFRESLT                                  PAR           81     A     
 PAR                                                                                       PAR           82     A     
 PAR      *         IN LABEL                                                               PAR           83     A     
 PAR                EXT    DOMODE,ISL,PDA,PSL                                              PAR           84          I
          -FC5A138
 PAR                EXT    CDIFLG,DOMODE,ISL,PDA,PSL                                       FC5A138        5          I
          -FC5A211
 PAR                EXT    CDIFLG,DDR,DOMODE,ISL,PDA,PSL                                   FC5A211       71     A     
 PAR                                                                                       PAR           85     A     
 PAR      *         IN LEX                                                                 PAR           86     A     
 PAR                EXT    TB=1ST                                                          PAR           87          I
          -FC50438
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EXT    TB=TYPE,TB=1ST                                                  FC50438       18     A     
 PAR                                                                                       PAR           88     A     
 PAR      *         IN PEM                                                                 PAR           89     A     
 PAR                EXT    ANSI=,PDM                                                       PAR           90          I
          -FC5A302
 PAR                EXT    ANSI=,MDERR=,PDM                                                FC5A302       14     A     
 PAR                                                                                       PAR           91     A     
 PAR      *         IN PUC                                                                 PAR           92     A     
 PAR                EXT    CONONE,CONZER,GCL,MOD,N.CT,SCR,S=BU,S=CON,S=CT,S=RD             PAR           93     A     
 PAR                EXT    S=VALUE,S=VD,T=ARG,T=BLST,T=DIM,T=IOARG,T=PAR,T=SLARG           PAR           94          I
          -FC50396
 PAR                EXT    T=SYM,T.ARG,T.BLST,T.DIM,T.ILI,T.IOARG,T.PAR,T.SLARG            PAR           95          I
          -FC50396
 PAR                EXT    T.STF,T.SYM,VTRUE,WOF,WO.CS,WO.DOLG,WO.LOO,WO.QC                PAR           96          I
          -FC50396
 PAR                EXT    T=ILI                                                           FC5A141      289          I
          -FC50275
 PAR                EXT    T=ILI,T.CON                                                     FC50275        7          I
          -FC50396
 PAR                EXT    S=VALUE,S=VD,T=ARG,T=BLST,T=DIM,T=ILI,T=IOARG,T=PAR             FC50396        8     A     
 PAR                EXT    T=SLARG,T=SYM,T.ARG,T.BLST,T.CON,T.DIM,T.IOARG,T.PAR            FC50396        9     A     
 PAR                EXT    T.SLARG,T.STF,T.SYM,T.TB,VTRUE,WOF,WO.CS,WO.DOLG                FC50396       10     A     
 PAR                EXT    NSQZLH                                                          FC5A415       11          I
          -FC51075
 PAR                EXT    NSQZLH,T.PCS,T=PCS                                              FC51075       10     A     
 PAR                                                                                       PAR           97          I
          -FC51082
 PAR                EXT    CONZERI                                                         FC51082        9     A     
 PAR                                                                                       FC51082       10     A     
 PAR      *         IN QSKEL/FSKEL                                                         PAR           98     A     
 PAR                EXT    F.IMCV,F.INTF,F.MODC,F.SKCR,F.SKNAM                             PAR           99     A     
 PAR                EXT    OMI=CPX,OMI=LCF,OMI=LEN,OM=ADD,OM=AND,OM=CONV,OM=DIV            PAR          100     A     
 PAR                EXT    OM=DOC,OM=EQ,OM=EQV,OM=GE,OM=INL,OM=LT,OM=MUL,OM=NE             PAR          101     A     
 PAR                EXT    OM=NOT,OM=OR,OM=STR,OM=SUB,OM=UMI,OM=XOR,V=ADD.I                PAR          102     A     
 PAR                EXT    V=APIOC,V=APIOD,V=APIOU,V=ARY,V=BSS,V=CAT,V=CMPLX               PAR          103     A     
 PAR                EXT    V=COLON,V=DOBL,V=DOBS,V=DOBZL,V=DOBZS,V=DVI,V=ERR               PAR          104          I
          -FC50396
 PAR                EXT    V=EXP.I,V=FAP,V=FUNC,V=GAP,V=GPL,V=IAP,V=INT,V=INTF             PAR          105          I
          -FC50396
 PAR                EXT    V=LGE,V=LIBF,V=LLT,V=MASK,V=MUL.C,V=MUL.D,V=MUL.I               PAR          106          I
          -FC50396
 PAR                EXT    V=MUL.R,V=NOOP,V=NOT.L,V=RANF,V=SHIFT,V=STR.H,V=STR.I           PAR          107          I
          -FC50396
 PAR                EXT    V=SUBST,V=SUB.I,V=UMI.I,Z.IMCV,Z.INTA,Z.INTF,Z.SKCR             PAR          108          I
          -FC50396
 PAR                EXT    V=DVC.R                                                         FC5A150      427          I
          -FC50396
 PAR                EXT    V=COLON,V=DOBL,V=DOBS,V=DOBZL,V=DOBZS,V=DVC.R,V=DVI             FC50396       11     A     
 PAR                EXT    V=ERR,V=EXP.I,V=FAP,V=FUNC,V=GAP,V=GPL,V=IAP,V=INT              FC50396       12     A     
 PAR                EXT    V=INTF,V=LGE,V=LIBF,V=LLT,V=MASK,V=MUL.C,V=MUL.D                FC50396       13     A     
 PAR                EXT    V=MUL.I,V=MUL.R,V=NOOP,V=NOT.L,V=RANF,V=SHIFT,V=STR.H           FC50396       14     A     
 PAR                EXT    V=STR.I,V=SUBST,V=SUB.I,V=UMI.I,V=XMIT,Z.IMCV,Z.INTA            FC50396       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EXT    Z.INTF,Z.SKCR                                                   FC50396       16     A     
 PAR                                                                                       PAR          109     A     
 PAR      *         IN UTILITY                                                             PAR          110     A     
 PAR                EXT    MVE=                                                            PAR          111     A     
 PAR       POEM     SPACE  4,10                                                            PAR          112     A     
 PAR      **        GENERAL COMMENT TO THOSE WHO GET THIS FAR --                           PAR          113     A     
 PAR      *                                                                                PAR          114     A     
 PAR      *         I THINK THAT I SHALL NEVER SEE                                         PAR          115     A     
 PAR      *         A SUBROUTINE THAT WORKS FOR ME                                         PAR          116     A     
 PAR      *         A MACRO OR ZERO TEST                                                   PAR          117     A     
 PAR      *         THAT ISNT JUST A RODENTS NEST                                          PAR          118     A     
 PAR      *         A STRING THAT DOESNT ALWAYS STRAY                                      PAR          119     A     
 PAR      *         AND MIX UP BITS IN WILD ARRAY                                          PAR          120     A     
 PAR      *         A PROCESS WITH RE-ENTRANT FLAIR                                        PAR          121     A     
 PAR      *         THAT ISNT JUST A LOOPING SNARE                                         PAR          122     A     
 PAR      *         ROUTINES WHOSE TIMINGS ARE NOT SLAIN                                   PAR          123     A     
 PAR      *         WHEN INTERRUPTS BEGIN TO RAIN                                          PAR          124     A     
 PAR      *         ONLY GOD CAN MAKE A TREE                                               PAR          125     A     
 PAR      *         BUT, BUGS ARE MADE BY GUYS LIKE ME.                                    PAR          126     A     
 PAR      *                                                                                PAR          127     A     
 PAR      *         TRADITIONAL.                                                           PAR          128     A     
 PAR       MISS     SPACE  4,10                                                            PAR          129     A     
 PAR                MACRO  PARSNAP,NAME                                                    PAR          130     A     
 PAR       NAME     REG                                                                    PAR          131     A     
 PAR       OPSTACK  CORE   OSTACK,8                                                        PAR          132     A     
 PAR       ELSTACK  CORE   ESTACK,8                                                        PAR          133     A     
 PAR       ARGCMOM  CORE   ARGCOMA,3                                                       PAR          134     A     
 PAR                ENDM                                                                   PAR          135     A     
 PAR       MICROS   SPACE  4,10                                                            PAR          136     A     
 PAR      **        BITMASK MICROS.                                                        PAR          137     A     
 PAR                                                                                       PAR          138     A     
 PAR                                                                                       PAR          139     A     
 PAR       M.OKINT  BITMIC (M.BOOL,M.INT)                                                  PAR          140     A     
 PAR       M.OKDO   BITMIC (M.BOOL,M.INT,M.REAL,M.DBL)                                     PAR          141     A     
 PAR       M.OKDOC  BITMIC (M.INT,M.REAL,M.DBL)                                            FC5A254        4     A     
 PAR       M.OKNUM  BITMIC (M.BOOL,M.INT,M.REAL,M.DBL,M.CPLX)                              PAR          142     A     
 PAR                SPACE  4,10                                                            PAR          143     A     
 PAR      **        MISCELLANEOUS CELLS USED BY PARSER.                                    PAR          144     A     
 PAR                                                                                       PAR          145     A     
 PAR                                                                                       PAR          146     A     
 PAR       PARPA    EQU    SCR         *TREX* PRESERVES PROCESSOR ADDRESS HERE             FC5A141      290     A     
 PAR       PARNOW   BSSENT 1           ACTIVE VALUE OF (PARMODE)                           PAR          147     A     
 PAR       ATTR     CON    0           ATTRIBUTES PER TRE                                  PAR          148     A     
 PAR       SMOD     BSSENT 1           SUB-EXPRESSION DOMINANT MODE                        PAR          149     A     
 PAR       SOPR     BSSENT 1           MODE CONVERSION OPERATOR                            PAR          150     A     
 PAR       CURST    BSSENT 1           LOW LIMIT (T.PAR) INDEX FOR SQUEEZE                 PAR          151     A     
 PAR       LASTOP   CON    0           SET = TO LAST OPERATOR IN PARSED FILE UPON          FC50612        9     A     
 PAR                                   ENTRY TO POP.                                       FC50612       10     A     
 PAR       LASTAD   CON    0           SET = TO LAST ADDRESS OF PARSE FILE UPON            FC50612       11     A     
 PAR                                   ENTRY TO POP.                                       FC50612       12     A     
 PAR       POPDPC   BSS    2           DPC FOR OPERATOR CAUSING POP                        PAR          152     A     
 PAR       POPPER   EQU    POPDPC+1    OPERATOR (SETOP) WORD FOR *POPDPC*                  PAR          153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR          154     A     
 PAR       LASTREL  BSS    1           OPERATOR OF LAST RELATIONAL POPPED                  PAR          155     A     
 PAR       CMLFLG   BSS    1           I/O RESTART CALLS INDICATOR                         PAR          156     A     
 PAR                                                                                       PAR          157     A     
 PAR       CSYMBOL  CON    0LSYMBOL    CURRENTLY BEING ANALYZED                            PAR          158     A     
 PAR       CSYTAG   BSS    1           (TP.) OPERAND FOR CURRENT SYMBOL                    PAR          159     A     
 PAR       CSYREF   BSS    1           CURRENT SYMBOL NAME USED IN REF MAP                 PAR          160     A     
 PAR       CSYWB    CON    0           SYMTAB ATTRIBUTE WORD OF CURRENT SYMBOL             PAR          161     A     
 PAR                                                                                       PAR          162     A     
 PAR                                                                                       PAR          163     A     
 PAR       TEMPS    BSS    2           SCRATCH CELLS FOR --                                PAR          164          I
          -FC5A441
 PAR       TEMPS    BSS    3           SCRATCH CELLS FOR --                                FC5A441        7     A     
 PAR       TREB     EQU    TEMPS       1     PAR.VAR                                       PAR          165     A     
 PAR       EXPA     EQU    TEMPS       1     POP.EXP                                       PAR          166     A     
 PAR       EXPB     EQU    TEMPS+1     1                                                   PAR          167     A     
 PAR       EQLA     EQU    TEMPS       1     POP.EQL                                       PAR          168     A     
 PAR       EQLB     EQU    TEMPS+1     1                                                   FC50189       11     A     
 PAR       EQLC     EQU    TEMPS+2     1                                                   FC5A441        8     A     
 PAR       RELA     EQU    TEMPS       1     POP.REL                                       PAR          169     A     
 PAR       MSPA     EQU    TEMPS       1     MSP                                           PAR          170     A     
 PAR       SSRA     EQU    TEMPS       1     SSR                                           PAR          171     A     
 PAR       VILA     EQU    TEMPS       1     VIL                                           PAR          172     A     
 PAR       VILB     EQU    TEMPS+1     2     VIL                                           FC5A411       35     A     
 PAR       CATA     EQU    TEMPS       1     POP.CAT                                       PAR          173     A     
 PAR       CATB     EQU    TEMPS+1     1                                                   PAR          174     A     
 PAR                                                                                       PAR          175     A     
 PAR       TER2     BSS    2           CAN HOLD CONSTANT 2OP                               PAR          176     A     
 PAR                                                                                       PAR          177     A     
 PAR                                                                                       PAR          178     A     
 PAR       FUNI     MACRO  FUNT,RJOP,SUFF,APOP                                             PAR          179     A     
 PAR                VFD    12/2000B+MF.FUNT,18/RJOP,12/2000B+1R_SUFF,18/APOP               PAR          180     A     
 PAR                ENDM                                                                   PAR          181     A     
 PAR                                                                                       PAR          182     A     
 PAR                BSS    1           WORKING COPY OF (FUNCALL(I))                        PAR          183     A     
 PAR       FUNCALL  FUNI   LIB,LIBOP,"XBYNAM",GAPOP                                        PAR          184     A     
 PAR                FUNI   BEF,INFOP,"XBYVAL",IAPOP                                        PAR          185     A     
 PAR                FUNI   LIB,LIBOP,"XUPNAM",GAPOP                                        PAR          186     A     
 PAR       CNF      EJECT  4,20                                                            PAR          187     A     
 PAR      **        CNF - COMPILE NORMAL FORMULA.                                          PAR          188     A     
 PAR                                                                                       PAR          189     A     
 PAR                                                                                       PAR          190     A     
 PAR       CNF      BSSENT 0           ENTRY...                                            PAR          191     A     
 PAR                SA1    ZLEQUAL                                                         PAR          192     A     
 PAR                =B4    X1+1        START AT RIGHT SIDE OF LAST *=*                     PAR          193     A     
 PAR                BX6    X1                                                              PAR          194     A     
 PAR                SA6    ZLE         SET                                                 PAR          195     A     
 PAR                SA1    X1                                                              PAR          196     A     
 PAR                AX1    TB.TOTL                                                         PAR          197     A     
 PAR                ERRNZ  TB.TOTP                                                         PAR          198     A     
 PAR                ZR     X1,CNF1     IF NO MULTIPLE ASSIGNMENT                           PAR          199     A     
 PAR                ANSI   E.AT09                                                          PAR          200     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR          201     A     
 PAR      *         PARSE STATEMENT.                                                       PAR          202     A     
 PAR                                                                                       PAR          203     A     
 PAR       CNF1     SA3    CNFARM                                                          PAR          204     A     
 PAR                =X7    0                                                               PAR          205     A     
 PAR                LX6    X3                                                              PAR          206     A     
 PAR                SA7    ARGCOMA                                                         PAR          207     A     
 PAR                SA6    ARGMODE                                                         PAR          208     A     
 PAR                RJ     PAR         PARSE STATEMENT                                     PAR          209     A     
 PAR                EQ     PSL         EXIT..                                              PAR          210     A     
 PAR                TITLE  PIX - PARSE INTEGER CONSTANT EXPRESSION.                        PAR          211     A     
 PAR      PIX       SPACE  4,10                                                            PAR          212     A     
 PAR      **        PIX -  PARSE INTEGER CONSTANT EXPRESSION.                              PAR          213     A     
 PAR      *                                                                                PAR          214     A     
 PAR      *         ENTRY  (B4) _ FWA EXPRESSION IN TOKEN BUFFER.                          PAR          215     A     
 PAR      *                (B4)-1 _ A TOKEN WHICH WILL BE DESTROYED.                       PAR          216     A     
 PAR      *                                                                                PAR          217     A     
 PAR      *         EXIT   (X5) = OPERAND FOR EXPRESSION RESULT.                           PAR          218     A     
 PAR      *                (X6) = VALUE OF EXPRESSION.                                     PAR          219     A     
 PAR      *                (X0) = ACTUAL MODE OF EXPRESSION.                               PAR          220     A     
 PAR      *                (B4) _ SEPARATOR TOKEN WHICH TERMINATED EXPRESSION.             PAR          221     A     
 PAR      *                                                                                PAR          222     A     
 PAR      *         USES   ALL.                                                            PAR          223     A     
 PAR      *                                                                                PAR          224     A     
 PAR      *         CALLS  LCT, PAR, PDM.                                                  PAR          225     A     
 PAR                                                                                       PAR          226     A     
 PAR                                                                                       PAR          227     A     
 PAR       PIX      SUBR   =           ENTRY/EXIT...                                       PAR          228     A     
 PAR                SX7    B4                                                              PAR          229     A     
 PAR                SA7    PIXB                                                            PAR          230     A     
 PAR                SA3    PIXARM                                                          PAR          231     A     
 PAR                =X6    PM=ICE      ALLOW ONLY INTEGER CONSTANT EXPRESSIONS             PAR          232     A     
 PAR                SA6    PARMODE                                                         PAR          233     A     
 PAR                SA1    T=PAR                                                           PAR          234     A     
 PAR                BX6    X3                                                              PAR          235     A     
 PAR                LX7    X1          REMEMBER OLD LENGTH OF (T.PAR)                      PAR          236     A     
 PAR                SA6    ARGMODE                                                         PAR          237     A     
 PAR                SA7    PIXA                                                            PAR          238     A     
 PAR                SB4    B4-B1       TOKEN BUFFER POINTER -> BEFORE EXPR                 PAR          239     A     
 PAR                BX6    0                                                               PAR          240     A     
 PAR                =X7    O.SLP       MARK EXPRESSION START BY SPECIAL LPAREN             PAR          241     A     
 PAR                SA6    ARGCOMA                                                         PAR          242     A     
 PAR                SA7    B4                                                              PAR          243     A     
 PAR                RJ     PAR         REDUCE THE EXPRESSION                               PAR          244     A     
 PAR                =X6    0                                                               PAR          245     A     
 PAR                SA6    PARNOW                                                          PAR          246     A     
 PAR                SA3    PIXA                                                            PAR          247     A     
 PAR                BX1    X5                                                              PAR          248     A     
 PAR                SHRINK T=PAR,X3    DISCARD NON-CONSTANT PARTS OF EXPR                  PAR          249     A     
 PAR                CALL   LCT                                                             PAR          250     A     
 PAR                ZR     B2,PIX8     IF RESULT NOT ARITHMETIC CONSTANT                   PAR          251     A     
 PAR                ZR     X0,EXIT.    IF RESULT MODELESS                                  PAR          252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B2    X0-M.INT                                                        PAR          253     A     
 PAR                ZR     B2,EXIT.    IF RESULT MODE INTEGER                              PAR          254     A     
 PAR                                                                                       PAR          255     A     
 PAR      PIX8      SA5    PIXB                                                            PAR          256     A     
 PAR                SX7    B4                                                              PAR          257     A     
 PAR                SB4    X5          POINT TO BEGIN. OF EXPRESSION                       PAR          258     A     
 PAR                FATAL  E.PX1       FILL. NOT INTEGER CONSTANT EXPRES.                  PAR          259     A     
 PAR                SB4    X7                                                              PAR          260     A     
 PAR                                                                                       PAR          261     A     
 PAR       PIX9     SA5    CONONE      RETURN RESULT AS INTEGER CONSTANT ONE               PAR          262     A     
 PAR                SX6    B1                                                              PAR          263     A     
 PAR                =X0    M.INT                                                           PAR          264     A     
 PAR                EQ     EXIT.                                                           PAR          265     A     
 PAR                                                                                       PAR          266     A     
 PAR       PIXA     BSS    1           SAVES OLD PARSED FILE LENGTH                        PAR          267     A     
 PAR       PIXB     BSS    1                                                               PAR          268     A     
 PAR       C=PIX    SPACE  4,10                                                            PAR          269     A     
 PAR      **        C/A =PIX - END OF INTEGER CONSTANT EXPRESSION.                         PAR          270     A     
 PAR                                                                                       PAR          271     A     
 PAR                                                                                       PAR          272     A     
 PAR       C=PIX    BSS    0           COMMA TERMINATED EXPRESSION                         PAR          273     A     
 PAR                SB4    B4+1                                                            PAR          274     A     
 PAR                                                                                       PAR          275     A     
 PAR       A=PIX    BSS    0           RIGHT PAREN TERMINATED EXPRESSION                   PAR          276     A     
 PAR                EQ     PAREXIT     EXIT..                                              PAR          277     A     
 PAR       PKX      SPACE  4,10                                                            PAR          278     A     
 PAR      **        PKX -  PARSE CONSTANT EXPRESSION.                                      PAR          279     A     
 PAR      *                                                                                PAR          280     A     
 PAR      *         CALLS PARSER TO EVALUATE AN EXPRESSION, AND RESTRICTS                  PAR          281     A     
 PAR      *         THE RESULT TO BEING A CONSTANT.  IF THE RESULT IS A SHORT              PAR          282     A     
 PAR      *         CONSTANT, ITS VALUE IS RETURNED.                                       PAR          283     A     
 PAR      *                                                                                PAR          284     A     
 PAR      *         ENTRY  (B4) -> FWA EXPRESSION IN TOKEN BUFFER.                         PAR          285     A     
 PAR      *                (B4)-1 -> A TOKEN WHICH WILL BE DESTROYED.                      PAR          286     A     
 PAR      *                (X6) = VALUE TO BE STORED INTO *PARMODE*.                       FC5A156       13     A     
 PAR      *                                                                                PAR          287     A     
 PAR      *         EXIT   (B4) -> SEPARATOR TOKEN WHICH TERMINATED EXPRESSION.            PAR          288     A     
 PAR      *                (B5) = MODE OF EXPRESSION RESULT.                               PAR          289     A     
 PAR      *                (B6) = CONSTANT LENGTH IN CHARS OR WORDS.                       PAR          290     A     
 PAR      *                                                                                PAR          291     A     
 PAR      *         IF CONSTANT RESULT IN TABLE --                                         PAR          292     A     
 PAR      *                (B2) = -1                                                       PAR          293     A     
 PAR      *                (X6) = WORD INDEX OF VALUE (IN T.CON OR T.CHAR).                PAR          294          I
          -FC5A302
 PAR      *                (X6) = WORD INDEX OF VALUE (IN T.CON)                           FC5A302       15     A     
 PAR      *                                                                                PAR          295     A     
 PAR      *         IF SHORT CONSTANT RESULT --                                            PAR          296     A     
 PAR      *                (B2) = 1                                                        PAR          297     A     
 PAR      *                (X6) = VALUE OF EXPRESSION.                                     PAR          298     A     
 PAR      *                                                                                PAR          299     A     
 PAR      *         IF RESULT NOT CONSTANT --                                              PAR          300     A     
 PAR      *                (B2) = 0                                                        PAR          301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                (X6) = 0                                                        PAR          302     A     
 PAR      *                                                                                PAR          303     A     
 PAR      *         NOTE THAT MODE AND LENGTH ARE ALWAYS RETURNED CORRECTLY,               PAR          304     A     
 PAR      *         EVEN IF THE EXPRESSION IS FAULTY.                                      PAR          305     A     
 PAR      *                                                                                PAR          306     A     
 PAR      *         USES   ALL.                                                            PAR          307     A     
 PAR      *                                                                                PAR          308     A     
 PAR      *         CALLS  LCT, PAR, PDM.                                                  PAR          309     A     
 PAR                                                                                       PAR          310     A     
 PAR                                                                                       PAR          311     A     
 PAR       PKX      SUBR   =           ENTRY/EXIT...                                       PAR          312     A     
 PAR                SA6    PARMODE                                                         FC5A156       14     A     
 PAR                SA3    PIXARM                                                          PAR          313     A     
 PAR                SA1    T=PAR                                                           PAR          314     A     
 PAR                BX6    X3                                                              PAR          315     A     
 PAR                LX7    X1          REMEMBER OLD LENGTH OF (T.PAR)                      PAR          316     A     
 PAR                SA6    ARGMODE                                                         PAR          317     A     
 PAR                SA7    PKXA                                                            PAR          318     A     
 PAR                SX6    B4          REMEMBER (PKXB) = ORIGINAL CURSOR                   PAR          319     A     
 PAR                SB4    B4-B1       TOKEN BUFFER CURSOR -> BEFORE EXPR                  PAR          320     A     
 PAR                SA6    PKXB                                                            PAR          321     A     
 PAR                BX6    0                                                               PAR          322     A     
 PAR                =X7    O.SLP       MARK EXPRESSION START BY SPECIAL LPAREN             PAR          323     A     
 PAR                SA6    ARGCOMA                                                         PAR          324     A     
 PAR                SX6    PM=CXP                                                          PAR          325          I
          -FC5A156
 PAR                SA6    PARMODE     CONSTANT EXPRESSIONS                                PAR          326          I
          -FC5A156
 PAR                SA7    B4                                                              PAR          327     A     
 PAR                RJ     PAR         REDUCE THE EXPRESSION                               PAR          328     A     
 PAR                                                                                       PAR          329     A     
 PAR                MX0    -TP.MODEL                                                       PAR          330     A     
 PAR                BX6    X5                                                              PAR          331     A     
 PAR                SB6    B1          CONLEN = 1                                          PAR          332     A     
 PAR                LX5    -TP.MODEP                                                       PAR          333     A     
 PAR                BX1    -X0*X5      (X1) = MODE OF RESULT                               PAR          334     A     
 PAR                HX6    TP.BIAS                                                         PAR          335     A     
 PAR                =B7    M.CHAR                                                          PAR          336     A     
 PAR                SB5    X1          CONMODE                                             PAR          337     A     
 PAR                LX5    TP.MODEP-TP.ORDP                                                PAR          338     A     
 PAR                AX6    -TP.BIASL   RETURN (X6) = INDEX INTO CON TABLE                  PAR          339     A     
 PAR                MX0    -TP.ORDL                                                        PAR          340     A     
 PAR                BX4    -X0*X5      (X4) = (TP.ORD)                                     PAR          341     A     
 PAR                LX5    TP.ORDP-1-TP.INTRP                                              PAR          342     A     
 PAR                NE     B5,B7,PKX6  IF RESULT MODE NOT CHARACTER                        PAR          343     A     
 PAR                LX5    TP.INTRP+1                                                      PAR          344     A     
 PAR                BX1    X5                                                              PAR          345     A     
 PAR                CALL   LCH         SEE IF CONSTANT                                     PAR          346     A     
 PAR                SB7    E.PX6       ** EXPRESSION MUST BE CONSTANT                      FC5A302       16     A     
 PAR                ZR     B2,PKX8     IF NOT CONSTANT, ERROR                              PAR          347     A     
 PAR                SB6    X7          LENGTH IN CHARS.                                    PAR          348          I
          -FC5A302
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB7    E.TY4       ** CHARACTER CONSTANT MUST BE .LE. 2**15-1          FC5A302       17     A     
 PAR                SX1    MAX.CL+1                                                        FC5A302       18     A     
 PAR                IX1    X7-X1                                                           FC5A302       19     A     
 PAR                PL     X1,PKX8     IF CHARACTER COUNT .GE. 2**15                       FC5A302       20     A     
 PAR                =B2    -1          INDICATE LONG CON                                   PAR          349     A     
 PAR                SB5    X0          M.CHAR                                              PAR          350     A     
 PAR                SB6    X7          LENGTH IN CHARACTERS                                FC5A302       21     A     
 PAR                EQ     EXIT.                                                           PAR          351     A     
 PAR                                                                                       PAR          352     A     
 PAR      *         RESULT IS NON-CHARACTER.                                               PAR          353     A     
 PAR                                                                                       PAR          354     A     
 PAR       PKX6     SB3    M.DBL                                                           PAR          355     A     
 PAR                SA2    S=CON                                                           PAR          356     A     
 PAR                SB2    B1          INDICATE SHORT CONSTANT                             PAR          357     A     
 PAR                LT     B5,B3,PKX7  IF NOT DOUBLE-WORD RESULT                           PAR          358     A     
 PAR                =B6    2           CONLEN = 2                                          PAR          359     A     
 PAR       PKX7     MI     X5,PKX8     IF RESULT IS INTERMEDIATE                           PAR          360          I
          -FC5A302
 PAR                                                                                       FC5A302       22     A     
 PAR       PKX7     SB7    E.PX6       ** EXPRESSION MUST BE CONSTANT                      FC5A302       23     A     
 PAR                MI     X5,PKX8     IF RESULT IS INTERMEDIATE                           FC5A302       24     A     
 PAR                LX5    TP.INTRP-TP.SHRTP                                               PAR          361     A     
 PAR                IX2    X4-X2                                                           PAR          362     A     
 PAR                MI     X5,PKX9     IF SHORT CONSTANT                                   PAR          363     A     
 PAR                SB2    -B1         INDICATE CONSTANT IN (T.CON)                        PAR          364     A     
 PAR                ZR     X2,PKX9     IF RESULT ARITHMETIC CONSTANT                       PAR          365     A     
 PAR                                                                                       PAR          366     A     
 PAR      *         ISSUE DIAGNOSTIC FOR FAULTY EXPRESSION.                                PAR          367     A     
 PAR                                                                                       PAR          368     A     
 PAR       PKX8     SA2    PKXB        RESET TOKEN CURSOR FOR DIAGNOSTIC                   PAR          369     A     
 PAR                SB3    B4                                                              PAR          370     A     
 PAR                SB4    X2                                                              PAR          371     A     
 PAR                FATAL  E.PX6       ** EXPRESSION MUST BE CONSTANT                      PAR          372          I
          -FC5A302
 PAR                FATAL  B7                                                              FC5A302       25     A     
 PAR                SB4    B3                                                              PAR          373     A     
 PAR                SB2    0+          INDICATE NO CONSTANT                                PAR          374     A     
 PAR                BX6    0                                                               PAR          375     A     
 PAR                                                                                       PAR          376     A     
 PAR       PKX9     SA3    PKXA                                                            PAR          377     A     
 PAR                NO                                                                     PAR          378     A     
 PAR                BX7    X3                                                              PAR          379     A     
 PAR                SA7    T=PAR       DISCARD NON-CONSTANT PARTS OF EXPR                  PAR          380     A     
 PAR      *         SHRINK                                                                 PAR          381     A     
 PAR                EQ     EXIT.                                                           PAR          382     A     
 PAR                                                                                       PAR          383     A     
 PAR       PKXA     EQU    PIXA        SAVES OLD PARSED FILE LENGTH                        PAR          384     A     
 PAR       PKXB     BSS    1           SAVES INITIAL TOKEN CURSOR                          PAR          385     A     
 PAR                TITLE  PARSER CONTROL TABLES.                                          PAR          386     A     
 PAR       CONO     SPACE  4,20                                                            PAR          387     A     
 PAR      **        F.CONO - CURRENT OP VERSUS NEXT OP LEGALITY MATRIX.                    PAR          388     A     
 PAR      *                                                                                PAR          389     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         TABLE IS SET UP WITH EACH OPERATOR/OPERAND HAVING A UNIQUE BIT         PAR          390     A     
 PAR      *         COMBINATION.                                                           PAR          391     A     
 PAR      *                                                                                PAR          392     A     
 PAR      *         THE APPEARANCE OF AN OPERATOR IN THE LIST FOR OPERATOR                 PAR          393     A     
 PAR      *         DEFINED IN LOCATION FIELD MEANS IT IS A LEGAL NEXT FOR THAT            PAR          394     A     
 PAR      *         OPERATOR.                                                              PAR          395     A     
 PAR      *                                                                                PAR          396     A     
 PAR      *         FORMAT OF TABLE IS --                                                  PAR          397     A     
 PAR      *                                                                                PAR          398     A     
 PAR      *         IF SET TO 0 - ILLEGAL COMBINATION.                                     PAR          399     A     
 PAR      *         IF        1 - LEGAL   COMBINATION.                                     PAR          400     A     
 PAR      *                                                                                PAR          401     A     
 PAR      *         ALSO IN THE LOWER 18 BITS OF THE OPERATOR/OPERAND WORD IS THE          PAR          402     A     
 PAR      *         JUMP ADDRESS FOR TRANSLATION OF THE ELEMENT.                           PAR          403     A     
 PAR                                                                                       PAR          404     A     
 PAR                                                                                       PAR          405     A     
 PAR                MACRO  CONO,TOK,ADDR,OPOK                                              PAR          406     A     
 PAR      *                                                                                PAR          407     A     
 PAR      *                            VERIFY SYNCHRONIZATION WITH TOKEN ORDER.            PAR          408     A     
 PAR                IFC    NE,/TOK//,1                                                     PAR          409     A     
 PAR       O.TOK    BSS                                                                    PAR          410     A     
 PAR      *                            CHECK FOR "DITTO" TOKEN SET.                        PAR          411     A     
 PAR                IFC    NE,/OPOK/DITTO/,1                                               PAR          412     A     
 PAR       DITTO    MICRO  1,, OPOK                                                        PAR          413     A     
 PAR      *                            SET LEGALITY BITS.                                  PAR          414     A     
 PAR       .1       ECHO   ,THIS=("DITTO")                                                 PAR          415     A     
 PAR                POS    60+O.DEF-O.THIS                                                 PAR          416     A     
 PAR                VFD    1/1                                                             PAR          417     A     
 PAR       .1       ENDD                                                                   PAR          418     A     
 PAR      *                            SET ELEMENT PROCESSOR ADDRESS.                      PAR          419     A     
 PAR                POS    18                                                              PAR          420     A     
 PAR                VFD    18/PAR.ADDR                                                     PAR          421     A     
 PAR       CONO     ENDM                                                                   PAR          422     A     
 PAR       CONOTBL  SPACE  4,30                                                            PAR          423     A     
 PAR      ****      CONO TABLE FOR PARSER.                                                 PAR          424     A     
 PAR                                                                                       PAR          425     A     
 PAR                                                                                       PAR          426     A     
 PAR       ARICON   MICRO  1,, HOLL,CONS,OCT,HEX                                           PAR          427          I
          -FC5A258
 PAR       ARICON   MICRO  1,, HOLL,QHOLL,RLCON,CONS,OCT,HEX                               FC5A258       47     A     
 PAR       CONSTS   MICRO  1,, "ARICON",CHAR,TRUE,FALSE                                    PAR          428     A     
 PAR       NAME     MICRO  1,, VAR,STFA                                                    PAR          429     A     
 PAR       RELAT    MICRO  1,, LT,LE,EQ,NE,GE,GT                                           PAR          430     A     
 PAR       LOGIC    MICRO  1,, AND,EQV,OR,XOR                                              PAR          431          I
          -FC51485
 PAR       LOGIC    MICRO  1,, AND,EQV,OR,XOR,NEQV                                         FC51485       23     A     
 PAR       ARITH    MICRO  1,, PL,MIN,MULT,DIV                                             PAR          432     A     
 PAR       ANYOP    MICRO  1,, EOS,"CONSTS",PERIOD,VAR,"ARITH",UMIN,EXP,"RELAT"___         PAR          433     A     
 PAR      ,,"LOGIC",NOT,CAT,LP,RP,=,COMMA,COLON,SLP                                        PAR          434     A     
 PAR       PREUNAR  BITMIC (O.=,O.COMMA,O.LP,O.LT,O.LE,O.NE,O.EQ,O.GE,O.GT,O.AND,O         FC5A230        4     A     
 PAR      ,.NOT,O.OR,O.XOR,O.SLP,O.EOS,O.COLON)                                            FC5A230        5          I
          -FC5A317
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      ,.NOT,O.OR,O.XOR,O.SLP,O.EOS,O.COLON,O.DOBI,O.DCBI)                              FC5A317        4          I
          -FC51485
 PAR      ,.NOT,O.OR,O.XOR,O.NEQV,O.SLP,O.EOS,O.COLON,O.DOBI,O.DCBI)                       FC51485       24     A     
 PAR                                                                                       PAR          435     A     
 PAR                                                                                       PAR          436     A     
 PAR       F.CONO   BSS                                                                    PAR          437     A     
 PAR                LOC    O.DEF                                                           PAR          438     A     
 PAR       EOS      CONO   EOS                                                             PAR          439     A     
 PAR       HOLL     CONO   HOL,("ARITH","RELAT","LOGIC",LP,RP,=,COMMA,EOS)                 PAR          440          I
          -FC50374
 PAR       HOLL     CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,EOS)                      FC50374        6          I
          -FC50775
 PAR       QHOLL    CONO   HOL,("ARITH","RELAT","LOGIC",LP,RP,=,COMMA,EOS)                 FC5A258       48          I
          -FC50374  -FC50775
 PAR       RLCON    CONO   HOL,("ARITH","RELAT","LOGIC",LP,RP,=,COMMA,EOS)                 FC5A258       49          I
          -FC50374  -FC50775
 PAR       QHOLL    CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,EOS)                      FC50374        7          I
          -FC50775
 PAR       RLCON    CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,EOS)                      FC50374        8          I
          -FC50775
 PAR       HOLL     CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,COLON,EOS)                FC50775        7     A     
 PAR       QHOLL    CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,COLON,EOS)                FC50775        8     A     
 PAR       RLCON    CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,COLON,EOS)                FC50775        9     A     
 PAR       CHAR     CONO   CHR,(CAT,"RELAT","LOGIC",LP,RP,=,COMMA,EOS)                     PAR          441          I
          -FC50374
 PAR       CHAR     CONO   CHR,(CAT,"RELAT","LOGIC",RP,COMMA,EOS)                          FC50374        9     A     
 PAR       CONS     CONO   DEC,("ANYOP")                                                   PAR          442     A     
 PAR       OCT      CONO   OCT,("ANYOP")     LET TNK CHECK NEXT TOKEN                      PAR          443     A     
 PAR       HEX      CONO   OCT,("ANYOP")                                                   PAR          444     A     
 PAR       PERIOD   CONO   DEC,(CONS)                                                      PAR          445     A     
 PAR       VAR      CONO   VAR,(VAR,"ARITH",EXP,LP,RP,=,COMMA,CAT,COLON,"RELAT"___         PAR          446     A     
 PAR      ,,"LOGIC",EOS)                                                                   PAR          447     A     
 PAR       TRUE     CONO   TRU,(RP,COMMA,"LOGIC",EOS)                                      PAR          448     A     
 PAR       FALSE    CONO   FAL,DITTO                                                       PAR          449     A     
 PAR                                                                                       PAR          450     A     
 PAR       PL       CONO   PL,("ARICON",PERIOD,"NAME",LP)                                  PAR          451     A     
 PAR       MIN      CONO   MIN,DITTO                                                       PAR          452     A     
 PAR       MULT     CONO   MULT,DITTO                                                      PAR          453     A     
 PAR       DIV      CONO   STD,DITTO                                                       PAR          454          I
          -FC5A150
 PAR       DIV      CONO   DIV,DITTO                                                       FC5A150      428     A     
 PAR       UMIN     CONO   STD,DITTO                                                       PAR          455     A     
 PAR       EXP      CONO   STD,DITTO                                                       PAR          456     A     
 PAR                                                                                       PAR          457     A     
 PAR       LT       CONO   STD,("ARICON",PERIOD,CHAR,"NAME",PL,MIN,LP)                     PAR          458     A     
 PAR       GE       CONO   STD,DITTO                                                       PAR          459     A     
 PAR       EQ       CONO   STD,DITTO                                                       PAR          460     A     
 PAR       NE       CONO   STD,DITTO                                                       PAR          461     A     
 PAR       LE       CONO   STD,DITTO                                                       PAR          462     A     
 PAR       GT       CONO   STD,DITTO                                                       PAR          463     A     
 PAR                                                                                       PAR          464     A     
 PAR       NOT      CONO   STD,("ARICON",PERIOD,TRUE,FALSE,"NAME",PL,MIN,NOT,LP)           PAR          465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       AND      CONO   STD,("CONSTS",PERIOD,"NAME",PL,MIN,NOT,LP)                      PAR          466     A     
 PAR       XOR      CONO   STD,DITTO                                                       PAR          467          I
          -FC5A471
 PAR       XOR      CONO   XOR,DITTO                                                       FC5A471        8     A     
 PAR       NEQV     CONO   STD,DITTO                                                       FC51485       25     A     
 PAR       EQV      CONO   STD,DITTO                                                       PAR          468     A     
 PAR       OR       CONO   STD,DITTO                                                       PAR          469     A     
 PAR       CAT      CONO   STD,(CHAR,"NAME",LP)                                            PAR          470          I
          -FC5A204
 PAR       CAT      CONO   CAT,(CHAR,"NAME",LP)                                            FC5A204        4     A     
 PAR                                                                                       PAR          471     A     
 PAR       LP       CONO   LP,("CONSTS",PERIOD,"NAME",PL,MIN,NOT,COLON,LP)                 PAR          472     A     
 PAR       RP       CONO   RP,(VAR,"ARITH",EXP,CAT,COLON,LP,RP,=,COMMA,"RELAT"____         PAR          473     A     
 PAR      ,,"LOGIC",EOS)                                                                   PAR          474     A     
 PAR       =        CONO   EQL,("CONSTS",PERIOD,"NAME",PL,MIN,LP,NOT)                      PAR          475     A     
 PAR       COMMA    CONO   CM,("CONSTS",PERIOD,"NAME",PL,MIN,STAR,LP,NOT,DOBI,EOS)         PAR          476     A     
 PAR       COLON    CONO   COL,("ARICON",PERIOD,"NAME",PL,MIN,STAR,LP,RP,NOT,EOS)          PAR          477     A     
 PAR       SLP      CONO   DLP,("CONSTS",PERIOD,"NAME",PL,MIN,STAR,LP,NOT)                 PAR          478     A     
 PAR       STFA     CONO   STFD,("ARITH",EXP,RP,COMMA,CAT,COLON,"RELAT","LOGIC",__         PAR          479     A     
 PAR      ,EOS)                                                                            PAR          480     A     
 PAR       ILL      CONO   STOP,("ANYOP")                                                  PAR          481     A     
 PAR                LOC    *O                                                              PAR          482     A     
 PAR                                                                                       PAR          483     A     
 PAR      *         OTHER TOKEN SETS USED BY PARSER.                                       PAR          484     A     
 PAR                                                                                       PAR          485     A     
 PAR       ACONS    BSS    0           (TNK)  LEGAL AFTER ARITH CONSTANT                   PAR          486     A     
 PAR                CONO   ERR,("ARITH",EXP,"RELAT","LOGIC",RP,COMMA,COLON,EOS)            PAR          487     A     
 PAR                                                                                       PAR          488     A     
 PAR       FEXPR    BSS    0           (PAR)  LEGAL FIRST TOKEN TO PARSE                   PAR          489     A     
 PAR                CONO   ERR,("CONSTS",PERIOD,"NAME",PL,MIN,LP,NOT,SLP)                  PAR          490     A     
 PAR      ****                                                                             PAR          491     A     
 PAR                PURGMAC CONO                                                           PAR          492     A     
 PAR       POPNX    SPACE  4,30                                                            PAR          493     A     
 PAR      **        F.POPNX - VECTOR OF OPERATOR SYNTHESIZER (POPPER) ADDRESSES.           PAR          494     A     
 PAR      *                                                                                PAR          495     A     
 PAR      * TOK     POPNX  ADDR                                                            PAR          496     A     
 PAR                                                                                       PAR          497     A     
 PAR                MACRO  POPNX,TOK,ADDR                                                  PAR          498     A     
 PAR       O.TOK    VFD    42/,18/POP.ADDR                                                 PAR          499     A     
 PAR                ENDM                                                                   PAR          500     A     
 PAR                                                                                       PAR          501     A     
 PAR                                                                                       PAR          502     A     
 PAR       F.POPNX  BSS                                                                    PAR          503     A     
 PAR                LOC    O.DEF                                                           PAR          504     A     
 PAR       EOS      POPNX  ERR                                                             PAR          505     A     
 PAR       HOLL     POPNX  ERR                                                             PAR          506     A     
 PAR       QHOLL    POPNX  ERR                                                             FC5A258       50     A     
 PAR       RLCON    POPNX  ERR                                                             FC5A258       51     A     
 PAR       CHAR     POPNX  ERR                                                             PAR          507     A     
 PAR       CONS     POPNX  ERR                                                             PAR          508     A     
 PAR       OCT      POPNX  ERR                                                             PAR          509     A     
 PAR       HEX      POPNX  ERR                                                             PAR          510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PERIOD   POPNX  ERR                                                             PAR          511     A     
 PAR       VAR      POPNX  ERR                                                             PAR          512     A     
 PAR       TRUE     POPNX  ERR                                                             PAR          513     A     
 PAR       FALSE    POPNX  ERR                                                             PAR          514     A     
 PAR                                                                                       PAR          515     A     
 PAR       PL       POPNX  PL                                                              PAR          516     A     
 PAR       MIN      POPNX  STD                                                             PAR          517     A     
 PAR       MULT     POPNX  MUL                                                             PAR          518     A     
 PAR       DIV      POPNX  DIV                                                             PAR          519     A     
 PAR       UMIN     POPNX  UM                                                              PAR          520     A     
 PAR       EXP      POPNX  EXP                                                             PAR          521     A     
 PAR                                                                                       PAR          522     A     
 PAR       LT       POPNX  REL                                                             PAR          523     A     
 PAR       GE       POPNX  REL                                                             PAR          524     A     
 PAR       EQ       POPNX  REL                                                             PAR          525     A     
 PAR       NE       POPNX  REL                                                             PAR          526     A     
 PAR       LE       POPNX  LE          REVERSED TO O.GE                                    PAR          527     A     
 PAR       GT       POPNX  GT          REVERSED TO O.LT                                    PAR          528     A     
 PAR                                                                                       PAR          529     A     
 PAR       NOT      POPNX  NOT                                                             PAR          530     A     
 PAR       AND      POPNX  LOG                                                             PAR          531     A     
 PAR       XOR      POPNX  LOG         AKA O.NEQV                                          PAR          532          I
          -FC51485
 PAR       XOR      POPNX  LOG                                                             FC51485       26     A     
 PAR       NEQV     POPNX  LOG                                                             FC51485       27     A     
 PAR       EQV      POPNX  LOG                                                             PAR          533     A     
 PAR       OR       POPNX  LOG                                                             PAR          534     A     
 PAR       CAT      POPNX  CAT                                                             PAR          535     A     
 PAR                                                                                       PAR          536     A     
 PAR       LP       POPNX  PN                                                              PAR          537     A     
 PAR       RP       POPNX  RP                                                              PAR          538     A     
 PAR       =        POPNX  EQL                                                             PAR          539     A     
 PAR       COMMA    POPNX  CM                                                              PAR          540     A     
 PAR       COLON    POPNX  COL                                                             PAR          541     A     
 PAR       SLP      POPNX  PN          SPECIAL LEFT PAREN                                  PAR          542     A     
 PAR                                                                                       PAR          543     A     
 PAR       STFA     POPNX  ERR                                                             PAR          544     A     
 PAR       ILL      POPNX  ERR                                                             PAR          545     A     
 PAR                LOC    *O                                                              PAR          546     A     
 PAR                                                                                       PAR          547     A     
 PAR                PURGMAC POPNX                                                          PAR          548     A     
 PAR       SETPRI   SPACE  4,30                                                            PAR          549     A     
 PAR      **        SETPRI - DEFINE OPERATOR PRIORITY.                                     PAR          550     A     
 PAR      *                                                                                PAR          551     A     
 PAR      *  OPR    SETPRI             SET PR.OPR TO COUNTER.                              PAR          552     A     
 PAR      *  OPR    SETPRI EXPR        SET PR.OPR TO EXPRESSION.                           PAR          553     A     
 PAR      *                                                                                PAR          554     A     
 PAR      *         EACH *SETPRI* CALL INCREMENTS PRIORITY COUNTER BY 3                    PAR          555     A     
 PAR      *         UNLESS AN EXPLICIT PRIORITY PARAMETER IS SPECIFIED.                    PAR          556     A     
 PAR      *         THE INCREMENT VALUE OF 3 IS AD HOC.  IT WORKS FOR THE                  PAR          557     A     
 PAR      *         PRESENT SET OF OPERATORS.                                              PAR          558     A     
 PAR      *                                                                                PAR          559     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         THE PRIORITY SYMBOLS ARE USED IN THE *SETOP* WORDS (BELOW).            PAR          560     A     
 PAR      *         PRIORITIES EVENTUALLY DRIVE THE PARSER STACK/POP DECISION.             PAR          561     A     
 PAR      *         THE PARSER FETCHES A (SETOP) WORD FROM THE (F.PRIOR) VECTOR            PAR          562     A     
 PAR      *         CORRESPONDING TO EACH INCOMING TOKEN.  THE TOKEN BUFFER                PAR          563     A     
 PAR      *         PRIORITY (TH.TBPR) OF THIS WORD IS COMPARED WITH THE STACK             PAR          564     A     
 PAR      *         PRIORITY (TH.STPR) OF THE OPERATOR AT THE TOP OF (OSTACK).             PAR          565     A     
 PAR      *                                                                                PAR          566     A     
 PAR      *         IF TOKEN PRIORITY .GE. STACK PRIORITY -- STACK TOKEN.                  PAR          567     A     
 PAR      *         IF TOKEN PRIORITY .LT. STACK PRIORITY -- POP STACK TOP.                PAR          568     A     
 PAR                                                                                       PAR          569     A     
 PAR                                                                                       PAR          570     A     
 PAR                MACRO  SETPRI,OPNAME,PRIORITY                                          PAR          571     A     
 PAR                LOC    PRIORITY  PR.SET                                                PAR          572     A     
 PAR       OPNAME   BSS                                                                    PAR          573     A     
 PAR      *                                                                                PAR          574     A     
 PAR                IFC    EQ,//PRIORITY/,1                                                PAR          575     A     
 PAR       PR.SET   SET    PR.SET+3                                                        PAR          576     A     
 PAR                ENDM                                                                   PAR          577     A     
 PAR       PR.SET   SPACE  4,10                                                            PAR          578     A     
 PAR      **        PRIORITY STACK LISTED FROM LOWEST TO HIGHEST PRIORITY.                 PAR          579     A     
 PAR                                                                                       PAR          580     A     
 PAR                                                                                       PAR          581     A     
 PAR       PR.SET   SET    5           LOWEST PRIORITY                                     PAR          582     A     
 PAR                                                                                       PAR          583     A     
 PAR       PR.RPAR  SETPRI                                                                 PAR          584     A     
 PAR       PR.LPAR  SETPRI                                                                 PAR          585     A     
 PAR       PR.EQUAL SETPRI                                                                 PAR          586     A     
 PAR       PR.SLP   SETPRI PR.EQUAL    SUBSCRIPT LEFT PAREN                                PAR          587     A     
 PAR       PR.SPL   SETPRI PR.SLP+1    SUBSCRIPT PLUS                                      PAR          588     A     
 PAR       PR.SMULT SETPRI PR.SPL+1    SUBSCRIPT MULTIPLY                                  PAR          589     A     
 PAR       PR.COM   SETPRI                                                                 PAR          590     A     
 PAR       PR.COL   SETPRI             COLON                                               PAR          591     A     
 PAR       PR.EQV   SETPRI                                                                 PAR          592     A     
 PAR      * FV                         NOTE XOR PRECEDENCE CHANGE FROM FTN 4               PAR          593     A     
 PAR       PR.XOR   SETPRI PR.EQV                                                          PAR          594     A     
 PAR       PR.NEQV  SETPRI PR.XOR                                                          FC51485       28     A     
 PAR       PR.OR    SETPRI                                                                 PAR          595     A     
 PAR       PR.AND   SETPRI                                                                 PAR          596     A     
 PAR       PR.NOT   SETPRI                                                                 PAR          597     A     
 PAR       PR.REL   SETPRI             LT, LE, NE, EQ, GE, GT                              PAR          598     A     
 PAR       PR.CAT   SETPRI             //                                                  PAR          599     A     
 PAR       PR.PL    SETPRI                                                                 PAR          600     A     
 PAR       PR.MI    SETPRI PR.PL                                                           PAR          601     A     
 PAR       PR.UMIN  SETPRI                                                                 PAR          602     A     
 PAR       PR.MULT  SETPRI                                                                 PAR          603     A     
 PAR       PR.DIV   SETPRI PR.MULT                                                         PAR          604     A     
 PAR       PR.SDIV  SETPRI PR.MULT+2                                                       PAR          605     A     
 PAR       PR.IDIV  SETPRI PR.MULT-1                                                       FC5A150      429     A     
 PAR       PR.EXP   SETPRI                                                                 PAR          606     A     
 PAR       PR.ILL   SETPRI             HIGHEST PRIORITY                                    PAR          607     A     
 PAR                LOC    *O                                                              PAR          608     A     
 PAR       SETOP    SPACE  4,30                                                            PAR          609     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      **        SETOP - MACRO TO SET UP OPERATOR ENTRY.                                PAR          610     A     
 PAR      *                                                                                PAR          611     A     
 PAR      *         SETOP  TBPR,STPR,SKEL,ATTR                                             PAR          612     A     
 PAR      *                                                                                PAR          613     A     
 PAR      *                TBPR = TOKEN BUFFER PRIORITY.                                   PAR          614     A     
 PAR      *                STPR = STACK PRIORITY.                                          PAR          615     A     
 PAR      *                SKEL = SKELETON WHICH GENERATES CODE FOR THIS OPERATOR.         PAR          616     A     
 PAR      *                ATTR = PARSING ATTRIBUTES.                                      PAR          617     A     
 PAR      *                                                                                PAR          618     A     
 PAR      *         GENERATES ONE WORD IN TURPLE HEADER (TH.) FORMAT.                      PAR          619          I
          -FC50104
 PAR      *         SEE THE DESCRIPTION OF (TH.) IN TEXT FOR LAYOUT.                       PAR          620          I
          -FC50104
 PAR      *                                                                                PAR          621          I
          -FC50104
 PAR      *         THIS MACRO MAKES ASSUMPTIONS ABOUT (TH.) FORMAT, THEREFORE,            PAR          622          I
          -FC50104
 PAR      *         IF (TH.) DESCRIPTION IS CHANGED, THE SETOP MACRO MUST BE               PAR          623          I
          -FC50104
 PAR      *         FIXED BY HAND.                                                         PAR          624          I
          -FC50104
 PAR                                                                                       PAR          625          I
          -FC50104
 PAR                ERRNZ  0-TH.TBPRP                                                      PAR          626          I
          -FC50104
 PAR                ERRNZ  TH.TBPRP+TH.TBPRL-TH.STPRP                                      PAR          627          I
          -FC50104
 PAR                ERRNZ  TH.STPRP+TH.STPRL-TH.MODEP                                      PAR          628          I
          -FC50104
 PAR                ERRNZ  TH.SKELP+TH.SKELL-60                                            PAR          629          I
          -FC50104
 PAR      *         GENERATES ONE WORD IN TURPLE HEADER (SP.) FORMAT.                      FC50104       74     A     
 PAR      *         SEE THE DESCRIPTION OF (SP.) IN TEXT FOR LAYOUT.                       FC50104       75     A     
 PAR      *                                                                                FC50104       76     A     
 PAR      *         UPON EMISSION OF A TURPLE, THE (SP.) FORMAT WILL BE CONVERTED          FC50104       77     A     
 PAR      *         TO (TH.) FORMAT.                                                       FC50104       78     A     
 PAR                                                                                       PAR          630     A     
 PAR                                                                                       PAR          631     A     
 PAR       SETOP    MACRO  TBP,STP,JPA,CLS                                                 PAR          632     A     
 PAR       A        MICRO                                                                  PAR          633     A     
 PAR                IFC    NE,/JPA//,1                                                     PAR          634     A     
 PAR       A        MICRO  1,,/=X_JPA/                                                     PAR          635     A     
 PAR                VFD    TH.SKELL/"A"                                                    PAR          636          I
          -FC50104
 PAR                VFD    SP.SKELL/"A"                                                    FC50104       79     A     
 PAR      *                                                                                PAR          637     A     
 PAR                IRP    CLS                                                             PAR          638     A     
 PAR                POS    TH.CLS_P+1                                                      PAR          639          I
          -FC50104
 PAR                POS    SP.CLS_P+1                                                      FC50104       80     A     
 PAR                VFD    1/1                                                             PAR          640     A     
 PAR                IRP                                                                    PAR          641     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR          642     A     
 PAR                POS    TH.MODEP                                                        PAR          643          I
          -FC50104
 PAR                POS    SP.STPRP+SP.STPRL                                               FC50104       81     A     
 PAR       C        SET    STP+TBP                                                         PAR          644     A     
 PAR                IFC    LT,/STP/+/,2                                                    PAR          645     A     
 PAR                IFC    NE,/STP//,1                                                     PAR          646     A     
 PAR       C        SET    STP                                                             PAR          647     A     
 PAR                VFD    TH.STPRL/C,TH.TBPRL/TBP                                         PAR          648          I
          -FC50104
 PAR                VFD    SP.STPRL/C,SP.TBPRL/TBP                                         FC50104       82     A     
 PAR                ENDM                                                                   PAR          649     A     
 PAR                                                                                       PAR          650     A     
 PAR                                                                                       PAR          651     A     
 PAR                MACRO  SOPENT,LAB,TBP,STP,JPA,CLS                                      PAR          652     A     
 PAR       LAB      SETOP  TBP,STP,JPA,(CLS)                                               PAR          653     A     
 PAR                ENTRY  LAB                                                             PAR          654     A     
 PAR                ENDM                                                                   PAR          655     A     
 PAR       F.PRIOR  SPACE  4,30                                                            PAR          656     A     
 PAR      **        F.PRIOR - OPERATOR PRIORITY VECTOR.                                    PAR          657     A     
 PAR      *                                                                                PAR          658     A     
 PAR      *         VECTOR OF STANDARD FORTRAN OPERATORS.  THE VECTOR IS                   PAR          659     A     
 PAR      *         INDEXED BY TOKEN TYPES FROM O.SEP THRU O.ILL.                          PAR          660     A     
 PAR      *         THE PRIOP MACRO INSURES THE VECTOR REMAINS IN ORDER.                   PAR          661     A     
 PAR                                                                                       PAR          662     A     
 PAR                                                                                       PAR          663     A     
 PAR                MACRO  PRIOP,LAB,TBP,STP,JPA,CLS                                       PAR          664     A     
 PAR       O.LAB    SETOP  TBP,STP,JPA,(CLS)                                               PAR          665     A     
 PAR                ENDM                                                                   PAR          666     A     
 PAR                                                                                       PAR          667     A     
 PAR                                                                                       PAR          668     A     
 PAR       F.PRIOR  BSS    0                                                               PAR          669     A     
 PAR                LOC    O.SEP                                                           PAR          670     A     
 PAR       PL       PRIOP  PR.PL,+1,OM=ADD,(AS,COM,BND)                                    PAR          671     A     
 PAR       MIN      PRIOP  PR.MI,+1,OM=SUB,(AS,BND)                                        PAR          672     A     
 PAR       MULT     PRIOP  PR.MULT,+1,OM=MUL,(AS,DIS,COM,BND)                              PAR          673     A     
 PAR       DIV      PRIOP  PR.DIV,+1,OM=DIV,(DIS,BND)                                      PAR          674     A     
 PAR       UMIN     PRIOP  PR.UMIN,,OM=UMI,(UNAR,BND)                                      PAR          675     A     
 PAR      * FV                         NOTE EXP ASSOCIATION CHANGE FROM FTN 4              PAR          676     A     
 PAR       EXP      PRIOP  PR.EXP            SEE POP.EXP                                   PAR          677     A     
 PAR                                                                                       PAR          678     A     
 PAR       LT       PRIOP  PR.REL,,OM=LT,(CHAR)                                            PAR          679     A     
 PAR       GE       PRIOP  PR.REL,,OM=GE,(CHAR)                                            PAR          680     A     
 PAR       EQ       PRIOP  PR.REL,,OM=EQ,(CHAR,COM)                                        PAR          681     A     
 PAR       NE       PRIOP  PR.REL,,OM=NE,(CHAR,COM)                                        PAR          682     A     
 PAR       LE       PRIOP  PR.REL,,OM=GE,(CHAR)          REVERSED TO O.GE                  PAR          683     A     
 PAR       GT       PRIOP  PR.REL,,OM=LT,(CHAR)          REVERSED TO O.LT                  PAR          684     A     
 PAR                                                                                       PAR          685     A     
 PAR       NOT      PRIOP  PR.NOT,,OM=NOT,(MASK,UNAR)                                      PAR          686     A     
 PAR       AND      PRIOP  PR.AND,+1,OM=AND,(AS,COM,MASK)                                  PAR          687     A     
 PAR       XOR      PRIOP  PR.XOR,+1,OM=XOR,(AS,COM,MASK)                                  PAR          688     A     
 PAR       NEQV     PRIOP  PR.XOR,+1,OM=XOR,(AS,COM,MASK)                                  FC51485       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       EQV      PRIOP  PR.EQV,+1,OM=EQV,(AS,COM,MASK)                                  PAR          689     A     
 PAR       OR       PRIOP  PR.OR_,+1,OM=OR_,(AS,COM,MASK)                                  PAR          690     A     
 PAR                                                                                       PAR          691     A     
 PAR       CAT      PRIOP  PR.CAT,+1,V=CAT,(AS,CHAR,MDLS)                                  PAR          692     A     
 PAR                                                                                       PAR          693     A     
 PAR       LP       PRIOP  PR.LPAR,-1,,(NSQZ)                                              PAR          694     A     
 PAR       RP       PRIOP  PR.RPAR                                                         PAR          695     A     
 PAR       =        PRIOP  PR.EQUAL,-1,OM=STR,(CHAR)                                       PAR          696     A     
 PAR       COMMA    PRIOP  PR.COM,+1,,(MDLS,NSQZ,UNAR)                                     PAR          697     A     
 PAR       COLON    PRIOP  PR.COL,+1,,(MDLS)                                               PAR          698     A     
 PAR       SLP      PRIOP  PR.ILL,,V=ERR                                                   PAR          699     A     
 PAR       STFA     PRIOP  PR.ILL                                                          PAR          700     A     
 PAR       ILL      PRIOP  PR.ILL,,V=ERR                                                   PAR          701     A     
 PAR                LOC    *O                                                              PAR          702     A     
 PAR       SPECOPS  SPACE  4,20                                                            PAR          703     A     
 PAR      **        INVENTED OPERATORS.                                                    PAR          704     A     
 PAR      *                                                                                PAR          705     A     
 PAR      *         THESE OPERATORS DO NOT DIRECTLY APPEAR IN THE SOURCE.                  PAR          706     A     
 PAR      *         THAT IS, THEY HAVE NO CORRESPONDING TOKENS TO INVOKE                   PAR          707     A     
 PAR      *         THEM.  THE SETOPS IN THE FIRST SET ARE STACKED BY THE                  PAR          708     A     
 PAR      *         PARSER IN SPECIAL CIRCUMSTANCES.  FOR EXAMPLE, IF A                    PAR          709     A     
 PAR      *         DIVIDE IS TURNED INTO A RECIPROCAL MULTIPLY.                           PAR          710     A     
 PAR                                                                                       PAR          711     A     
 PAR                                                                                       PAR          712     A     
 PAR       IDIV     SETOP  PR.IDIV,+2,OM=DIV,(DIS,BND)                                     FC5A150      430     A     
 PAR       SDIV     SETOP  PR.SDIV,+1,OM=MUL,(AS,DIS,COM,BND)                              PAR          713     A     
 PAR       MINUSOP  SETOP  O.MIN,0,OM=SUB,(AS,BND)                                         PAR          714     A     
 PAR       CRDIV    SETOP  O.DIV,0,V=DVC.R,(DIS,BND,MDLS)                                  FC5A150      431     A     
 PAR       /OP/     SPACE  4,10                                                            PAR          715     A     
 PAR      **        /OP/ - GENERATED INTEGER OPERATORS.                                    PAR          716     A     
 PAR      *                                                                                PAR          717     A     
 PAR      *         DEFINED AS SMALL CONSTANTS.                                            PAR          718     A     
 PAR      *         SEE USAGE IN SUBROUTINE *ASE* FOR DETAILS.                             PAR          719     A     
 PAR                                                                                       PAR          720     A     
 PAR                                                                                       PAR          721     A     
 PAR       INTEG    BSS                                                                    PAR          722     A     
 PAR                QUAL   OP          DEFINE OPERATOR CODES AS SHORT CONSTANTS            PAR          723     A     
 PAR                LOC    0                                                               PAR          724     A     
 PAR       PLUS     SETOP  O.PL,0,V=ADD.I,(AS,COM,MDLS)                                    PAR          725     A     
 PAR       MINUS    SETOP  O.MIN,0,V=SUB.I,(AS,BND,MDLS)                                   PAR          726     A     
 PAR       UMIN     SETOP  O.UMIN,0,V=UMI.I,(UNAR,BND,MDLS)                                PAR          727     A     
 PAR       MULT     SETOP  O.MULT,0,V=MUL.I,(AS,DIS,COM,MDLS)                              PAR          728     A     
 PAR                LOC    *O                                                              PAR          729     A     
 PAR                QUAL   *                                                               PAR          730     A     
 PAR       STATOPS  SPACE  4,10                                                            PAR          731     A     
 PAR      **        THE FOLLOWING SETOPS ARE NOT USED ON THE PARSING STACKS.               PAR          732     A     
 PAR      *         THEY ARE MERELY TEMPLATES FOR (TH.) EMISSION.  THEREFORE,              PAR          733     A     
 PAR      *         THERE ARE NO PRIORITY IMPLICATIONS OF THESE.  NEW ENTRIES              PAR          734     A     
 PAR      *         ARE ADDED AS MAY BE CONVIENIENT FOR TURPLE EMITTERS.                   PAR          735     A     
 PAR      *         THE (TH.TBPR) IS SPECIFIED ONLY TO DRIVE THE USE-COUNT                 PAR          736     A     
 PAR      *         DETERMINATION IN *QCG*.                                                PAR          737     A     
 PAR                                                                                       PAR          738     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR          739     A     
 PAR       DO.BEG   SOPENT O.BOTH,0,V=DOBZS,(MDLS,NSQZ)                                    PAR          740     A     
 PAR                SETOP  O.BOTH,0,V=DOBS,(NSQZ,MDLS)                                     PAR          741     A     
 PAR                SETOP  O.BOTH,0,V=DOBZL,(NSQZ,MDLS)                                    PAR          742     A     
 PAR                SETOP  O.BOTH,0,V=DOBL,(NSQZ,MDLS)                                     PAR          743     A     
 PAR       DO.END   SETOP  O.BOTH,0,OM=DOC,(NSQZ)                                          PAR          744     A     
 PAR                                                                                       PAR          745     A     
 PAR                                                                                       PAR          746     A     
 PAR       MULROP   SOPENT O.MULT,0,V=MUL.R,(AS,DIS,COM,MDLS)                              PAR          747     A     
 PAR       NOTLOP   SETOP  O.NOT,0,V=NOT.L,(MDLS,UNAR)                                     PAR          748     A     
 PAR       IN.EXP   SETOP  O.EXP,0,,(MDLS,BND)                                             PAR          749     A     
 PAR       ARYOP    SETOP  O.ARY,0,V=ARY,(MDLS)                                            PAR          750          I
          -FC50620
 PAR      ARYOP     SOPENT O.ARY,0,V=ARY,(MDLS)                                            FC50620      224     A     
 PAR       DVLOP    SOPENT O.NONE,0,V=DVI,(MDLS,NSQZ)                                      PAR          751     A     
 PAR       ERROP    SOPENT O.ERR,0,V=ERR,(BND,MDLS,NSQZ)                                   PAR          752     A     
 PAR       FUNOP    SETOP  O.NONE,0,V=FUNC,(MDLS,NSQZ)                                     PAR          753     A     
 PAR       INFOP    SETOP  O.NONE,0,V=INTF,(MDLS,NSQZ,BND)                                 PAR          754     A     
 PAR       LIBOP    SETOP  O.NONE,0,V=LIBF,(MDLS,NSQZ,BND)                                 PAR          755     A     
 PAR       FAPOP    SETOP  O.NONE,0,V=FAP,(MDLS,NSQZ,BND)                                  PAR          756     A     
 PAR       GAPOP    SOPENT O.1ST,0,V=GAP,(MDLS,NSQZ,UNAR)                                  PAR          757     A     
 PAR       IAPOP    SETOP  O.1ST,0,V=IAP,(MDLS,NSQZ,UNAR)                                  PAR          758     A     
 PAR       IOCTL    SOPENT O.2ND,0,V=APIOC,(MDLS,NSQZ)                                     PAR          759     A     
 PAR       IODTA    SOPENT O.BOTH,0,V=APIOD,(MDLS,NSQZ)                                    PAR          760     A     
 PAR       IOUNT    SOPENT O.BOTH,0,V=APIOU,(MDLS,NSQZ)                                    PAR          761     A     
 PAR       COLOP    SETOP  O.COLON,0,V=COLON,(MDLS)                                        PAR          762          I
          -FC50417
 PAR       SUBST    SETOP  O.BOTH,0,V=SUBST,(MDLS)                                         PAR          763          I
          -FC50417
 PAR       COLOP    SETOP  O.COLON,0,V=COLON,(MDLS,NSQZ)                                   FC50417        6     A     
 PAR       SUBST    SETOP  O.BOTH,0,V=SUBST,(MDLS,NSQZ)                                    FC50417        7     A     
 PAR       INTMAC   SETOP  O.MODC,0,V=INT,(MDLS,UNAR)                                      PAR          764     A     
 PAR       MCVOP    SETOP  O.MODC,0,OM=CONV,(UNAR)                                         PAR          765     A     
 PAR       NOOPP    SOPENT O.SPACE,0,V=NOOP,(MDLS,NSQZ)                                    PAR          766     A     
 PAR       OPBOS    SOPENT O.SPACE,0,V=NOOP                                                PAR          767          I
          -FC50104
 PAR       OPBSS    SOPENT O.NONE,0,V=BSS,(MDLS,NSQZ)                                      PAR          768     A     
 PAR       XMITOP   SETOP  O.1ST,0,V=XMIT,(MDLS)                                           FC5A140        7     A     
 PAR                                                                                       PAR          769     A     
 PAR                                                                                       PAR          770     A     
 PAR       OPDUM    SOPENT O.NONE,0,,(MDLS,NSQZ)                                           PAR          771     A     
 PAR                SETOP  O.1ST,0,,(MDLS,NSQZ)                                            PAR          772     A     
 PAR                SETOP  O.2ND,0,,(MDLS,NSQZ)                                            PAR          773     A     
 PAR                SETOP  O.BOTH,0,,(MDLS,NSQZ)                                           PAR          774     A     
 PAR       RANOP    SETOP  O.BOTH,0,V=RANF,(MDLS,NSQZ)                                     PAR          775     A     
 PAR       EXPOP    SETOP  O.NONE,0,V=EXP.I,(MDLS)  FOR DATA ONLY                          PAR          776     A     
 PAR       LGEOP    SETOP  O.BOTH,0,V=LGE                                                  PAR          777     A     
 PAR       LLTOP    SETOP  O.BOTH,0,V=LLT                                                  PAR          778     A     
 PAR       BIFFUN   SETOP  O.BOTH,0,,(MDLS)                                                PAR          779     A     
 PAR                                                                                       PAR          780     A     
 PAR                                                                                       PAR          781     A     
 PAR       STRHOP   SETOP  O.=,0,V=STR.H,(MDLS,NSQZ)                                       PAR          782     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       VD.EQ    SOPENT O.=,0,V=STR.I,(MDLS,NSQZ)                                       PAR          783     A     
 PAR       VD.MI    SOPENT O.MIN,0,V=SUB.I,(AS,MDLS)                                       PAR          784     A     
 PAR       VD.MU    SOPENT O.MULT,0,V=MUL.I,(AS,DIS,COM,MDLS)                              PAR          785     A     
 PAR       VD.PL    SOPENT O.PL,0,V=ADD.I,(AS,COM,MDLS)                                    PAR          786     A     
 PAR       VD.GP    SOPENT O.1ST,0,V=GPL,(MDLS,NSQZ)                                       PAR          787     A     
 PAR       NEGOP    SPACE  4,10                                                            PAR          788     A     
 PAR      **        F.NEGOP - NEGATION OF OPERATOR.                                        PAR          789     A     
 PAR                                                                                       PAR          790     A     
 PAR                                                                                       PAR          791     A     
 PAR       F.NEGOP  BSS                                                                    PAR          792     A     
 PAR                LOC    O.LT                                                            PAR          793     A     
 PAR       O.NEGOP  BSS                LOWER LIMIT OF NEGATABLE OPS                        PAR          794     A     
 PAR                                                                                       PAR          795     A     
 PAR       LT       PRIOP  O.GE,0,OM=GE                                                    PAR          796     A     
 PAR       GE       PRIOP  O.LT,0,OM=LT                                                    PAR          797     A     
 PAR       EQ       PRIOP  O.NE,0,OM=NE,(COM)                                              PAR          798     A     
 PAR       NE       PRIOP  O.EQ,0,OM=EQ,(COM)                                              PAR          799     A     
 PAR       LE       PRIOP  O.GT,0      NONE SUCH                                           PAR          800     A     
 PAR       GT       PRIOP  O.LE,0      NONE SUCH                                           PAR          801     A     
 PAR                                                                                       PAR          802     A     
 PAR       Z.NEGOP  BSS                UPPER LIMIT OF NEGATABLE OPS                        PAR          803     A     
 PAR                LOC    *O                                                              PAR          804     A     
 PAR       SETARM   SPACE  4,50                                                            PAR          805     A     
 PAR      **        SETARM - SET *ARGMODE* CELL FOR USE BY *PARSER*.                       PAR          806     A     
 PAR      *                                                                                PAR          807     A     
 PAR      *         SETARM REF,(ATTR),COMAD,PARAD                                          PAR          808     A     
 PAR      *                                                                                PAR          809     A     
 PAR      *         REF   = CROSS REFERENCE VALUE.                                         PAR          810     A     
 PAR      *         ATTR  = ATTRIBUTE BITS FOR THIS *ARGMODE*.                             PAR          811     A     
 PAR      *         COMAD = C=XXX PROCESSOR ADDRESS FOR COMMA.                             PAR          812     A     
 PAR      *         PARAD = A=XXX PROCESSOR ADDRESS FOR PAREN.                             PAR          813     A     
 PAR      *                                                                                PAR          814     A     
 PAR      *         FOR DEFINITION OF VARIOUS FIELDS AND THEIR USE SEE WRITE-UP            PAR          815     A     
 PAR      *         OF CELL *ARGMODE*.                                                     PAR          816     A     
 PAR                                                                                       PAR          817     A     
 PAR                                                                                       PAR          818     A     
 PAR       SETARM   MACRO  REF,ATTR,COMAD,PARAD                                            PAR          819     A     
 PAR                IFEQ   REF,,2                                                          PAR          820     A     
 PAR                VFD    AM.REFL/55B                                                     PAR          821     A     
 PAR                SKIP   1                                                               PAR          822     A     
 PAR                VFD    AM.REFL/REF                                                     PAR          823     A     
 PAR                IRP    ATTR                                                            PAR          824     A     
 PAR                POS    AM.ATTR_P+1                                                     PAR          825     A     
 PAR                VFD    1/1                                                             PAR          826     A     
 PAR                IRP                                                                    PAR          827     A     
 PAR                POS    AM.ATRP                                                         PAR          828     A     
 PAR                VFD    AM.COML/=X_COMAD                                                PAR          829     A     
 PAR                VFD    AM.PADL/=X_PARAD                                                PAR          830     A     
 PAR       SETARM   ENDM                                                                   PAR          831     A     
 PAR                                                                                       PAR          832     A     
 PAR                                                                                       PAR          833     A     
 PAR                MACRO  SARENT,LAB,REF,ATTR,COMAD,PARAD                                 PAR          834     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       LAB      SETARM REF,(ATTR),COMAD,PARAD                                          PAR          835     A     
 PAR                ENTRY  LAB                                                             PAR          836     A     
 PAR                ENDM                                                                   PAR          837     A     
 PAR                                                                                       PAR          838     A     
 PAR                                                                                       PAR          839     A     
 PAR       ARRARM   SETARM ,,C=ARRAY,A=ARRAY                                               PAR          840     A     
 PAR       CALLARM  SARENT ,(ARE,FUN,LEV3),C=CALL,A=CALL                                   PAR          841          I
          -FC5A188
 PAR       CALLARM  SARENT CR.PAR,(ARE,FUN,LEV3),C=CALL,A=CALL                             FC5A188        5     A     
 PAR       CNFARM   SETARM ,(EQ),C=CERR,PAR.NX                                             PAR          842     A     
 PAR       DATARM   SARENT CR.DAT,(ARE,EQ,EOS),C=DVL,A=DVL  DATA STATEMENT                 PAR          843     A     
 PAR       DOARM    SARENT CR.DOI,(EQ),C=DO,A=DO         DO CONTROL                        PAR          844     A     
 PAR       EXTFARM  SETARM ,(ARE,FUN,LEV3),C=FUN,A=FUN                                     PAR          845          I
          -FC5A188
 PAR       EXTFARM  SETARM CR.PAR,(ARE,FUN,LEV3),C=FUN,A=FUN                               FC5A188        6     A     
 PAR       IFARM    SARENT CR.IF,,C=CERR,A=IF            IF EXPRESSION                     PAR          846     A     
 PAR       INFARM   SETARM CR.INF,,C=INF,A=INF                                             PAR          847     A     
 PAR       LPARM    SETARM ,,C=CERR,PAR.NX                                                 PAR          848          I
          -FC5A221
 PAR       LPARM    SETARM ,,C=CERR,A=EXPR                                                 FC5A221        5     A     
 PAR       LBARM    SARENT CR.DEC,(COL),C=DBD,A=DBD      LOWER BOUND EXPRESSION            PAR          849     A     
 PAR       UBARM    SARENT CR.DEC,,C=DBD,A=DBD           UPPER BOUND EXPRESSION            PAR          850     A     
 PAR       PIXARM   SETARM ,(RP,COL),C=PIX,A=PIX                                           PAR          851     A     
 PAR       PJXARM   SARENT CR.VGOTO,(EOS),C=PJX,PAR.NX   JUMP EXPRESSION                   PAR          852     A     
 PAR       SBSARM   SETARM CR.REF,(COL),C=SBS,A=SBS      SUBSTRING                         PAR          853     A     
 PAR       STFARM   SETARM CR.PAR,,C=STFA,A=STFA                                           PAR          854          I
          -FC5A125
 PAR       ESFARM   SETARM CR.PAR,,C=CERR,A=STFE                                           PAR          855          I
          -FC5A125
 PAR       STFARM   SETARM CR.REF,,C=STFA,A=STFA                                           FC5A125       16     A     
 PAR       ESFARM   SETARM CR.REF,,C=CERR,A=STFE                                           FC5A125       17     A     
 PAR                                                                                       PAR          856     A     
 PAR      *         I/O SETARMS                                                            PAR          857     A     
 PAR                                                                                       PAR          858     A     
 PAR       BUFMOD   SARENT ,(RP),C=CERR,A=BMOD           BUFFER I/O MODE                   PAR          859     A     
 PAR       BUFFWA   SARENT ,,C=BFWA,C=CERR               BUFFER I/O FWA                    PAR          860     A     
 PAR       BUFLWA   SARENT ,,C=CERR,A=BLWA               BUFFER I/O LWA                    PAR          861     A     
 PAR       CNTARM   SARENT ,,C=CNT,C=CERR                ENCODE/DECODE COUNT               PAR          862     A     
 PAR       DOCOLI   SARENT ,,C=DOCI,A=DOCI               DO COLLAPSE INDUCTION             PAR          863          I
          -FC50464
 PAR       DOCOLI   SARENT CR.DOI,,C=DOCI,A=DOCI         DO COLLAPSE INDUCTION             FC50464       25     A     
 PAR       DOCOLS   SARENT ,,C=DOCS,A=DOCS               DO COLLAPSE SUBSCRIPTS            PAR          864     A     
 PAR       FMTARM   SARENT ,(ARE,EOS,RP),C=FMT,A=FMT     FORMAT                            PAR          865     A     
 PAR       FOUARM   SARENT ,(ARE,EOS,RP),C=FOU,A=FOU   FORMAT OR UNIT                      FC5A171A     343          I
          -FC50464
 PAR       FOUARM   SARENT ,(ARE,EOS,RP),C=FOU,A=FOU     FORMAT OR UNIT                    FC50464       26     A     
 PAR       ICCARM   SARENT ,(RP),C=ICC,A=ICC             I/O CONTROL CHAR VARIABLE         PAR          866     A     
 PAR       ICCXARM  SARENT ,(RP),C=ICCX,A=ICCX           I/O CONTROL CHAR EXPR             PAR          867     A     
 PAR       ICIARM   SARENT ,(RP),C=ICI,A=ICI             I/O CONTROL INT VARIABLE          PAR          868     A     
 PAR       ICIXARM  SARENT ,(RP),C=ICIX,A=ICIX           I/O CONTROL INT EXPR              PAR          869     A     
 PAR       ICLARM   SARENT ,(RP),C=ICL,A=ICL             I/O CONTROL LOG VARIABLE          PAR          870     A     
 PAR       IOARGM   SARENT CR.OUT,(ARE,EQ,EOS),C=IOL,A=LIST    OUTPUT LIST ITEM            PAR          871     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SETARM CR.INP,(ARE,EQ,EOS),C=IOL,A=LIST    INPUT LIST ITEM             PAR          872     A     
 PAR       STRARM   SARENT ,(ARE,RP),C=CERR,A=STR        ENCODE/DECODE STRING ADDR         PAR          873     A     
 PAR       UNTARM   SARENT CR.IOU,(ARE,EOS,RP),C=UNT,A=UNT     UNIT SPECIFIER              PAR          874     A     
 PAR                TITLE  PARSING (ANALYSIS).                                             PAR          875     A     
 PAR       PARSE    EJECT                                                                  PAR          876     A     
 PAR      **        PAR -  ARITHMETIC STATEMENT PARSING ROUTINE.                           PAR          877     A     
 PAR      *                                                                                PAR          878     A     
 PAR      *         A GENERAL PURPOSE *ONE-PASS* ARITHMETIC PARSING ROUTINE USING          PAR          879     A     
 PAR      *         PSEUDO REVERSE POLISH ALGORITHM. (N-TURPLE)                            PAR          880     A     
 PAR      *                                                                                PAR          881     A     
 PAR      *         THIS ROUTINE WILL TRANSLATE ANY ARITHMETIC, LOGICAL,                   PAR          882     A     
 PAR      *         RELATIONAL, OR MASKING EXPRESSION INTO PSEUDO- POLISH                  PAR          883     A     
 PAR      *         NOTATION.                                                              PAR          884     A     
 PAR      *                                                                                PAR          885     A     
 PAR      *         ENTRY  (B4) _ FIRST TOKEN TO PROCESS.                                  PAR          886     A     
 PAR      *                (ARGMODE) = PRESET TO INDICATE CURRENT MODE OF                  PAR          887     A     
 PAR      *                            EXPRESSION *PARSE* WILL HANDLE.                     PAR          888     A     
 PAR      *                            CONTROLS THE OUTERMOST PAREN LAYER.                 PAR          889     A     
 PAR      *                (ARGCOMA) = PRESET TO CURRENT ARGUMENT COUNT.                   PAR          890     A     
 PAR      *                            CAN BE GARBAGE IF NOT NEEDED.                       PAR          891     A     
 PAR      *                (PARMODE) = PARSE MODE FOR ENTIRE EXPRESSION.                   PAR          892     A     
 PAR      *                (CURST) = ORDINAL, RELATIVE TO T.PAR, POINTING TO               PAR          893     A     
 PAR      *                          BREAK FOR SQUEEZING PROCESS.                          PAR          894     A     
 PAR      *                                                                                PAR          895     A     
 PAR      *         EXIT   (B4) _ LAST TOKEN PROCESSED.                                    PAR          896     A     
 PAR      *                (PARMODE) = 'PM=EXPR', RESET FOR NORMAL PARSE.                  PAR          897     A     
 PAR      *                                                                                PAR          898     A     
 PAR      *                                                                                PAR          899     A     
 PAR      *         --------------- L O C K  -  R E G I S T E R S --------------           PAR          900     A     
 PAR      *                (B4) _ CURRENT TOKEN.                                           PAR          901     A     
 PAR      *                (B5) _ CURRENT OP-STACK ENTRY.                                  PAR          902     A     
 PAR      *                (B6)-1 _ TOP ELEMENT (ESTACK) ENTRY.                            PAR          903     A     
 PAR      *         NO ROUTINE CALLED BY *PAR* MAY DESTROY ANY OF THE ABOVE REGS.          PAR          904     A     
 PAR      *         ------------------------------------------------------------           PAR          905     A     
 PAR      *                                                                                PAR          906     A     
 PAR      *         USES   ALL REGISTERS.                                                  PAR          907     A     
 PAR                                                                                       PAR          908     A     
 PAR                                                                                       PAR          909     A     
 PAR                                                                                       PAR          910     A     
 PAR       PAR      SUBR   =           ENTRY/EXIT...                                       PAR          911     A     
 PAR                SHRINK T=PCS                                                           FC51075       11     A     
 PAR                SA1    T=PAR                                                           PAR          912     A     
 PAR                SA2    ARGMODE                                                         PAR          913     A     
 PAR                SA3    PARMODE                                                         PAR          914     A     
 PAR                BX7    X3          SET (PARNOW) = (PARMODE)                            PAR          915     A     
 PAR                SA7    PARNOW                                                          PAR          916     A     
 PAR                SB6    ESTACK      (B6) -> ELEMENT STACK                               PAR          917     A     
 PAR                BX6    X1                                                              PAR          918     A     
 PAR                MX7    0                                                               PAR          919     A     
 PAR                ERRNZ  PM=EXPR                                                         PAR          920     A     
 PAR                SX0    X2-A=LIST                                                       PAR          921     A     
 PAR                ERRNZ  18-AM.PADL                                                      PAR          922     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ERRNZ  AM.PADP                                                         PAR          923     A     
 PAR                SA7    A3          RESET (PARMODE) FOR NEXT TIME                       PAR          924     A     
 PAR                NZ     X0,PAR1     IF NOT I/O LIST ITEM                                PAR          925     A     
 PAR                SA1    IODIR                                                           PAR          926          I
          -FC5A218
 PAR                NZ     X1,PAR1     IF NOT INPUT                                        PAR          927          I
          -FC5A218
 PAR                SA1    DATFLG                                                          FC5A218      203     A     
 PAR                NZ     X1,PAR1     IF PROCESSING *DATA*                                FC5A218      204     A     
 PAR                =X7    1                                                               PAR          928     A     
 PAR       PAR1     SB5    OSTACK      (B5) -> OPERATOR STACK                              PAR          929     A     
 PAR                SA7    CMLFLG                                                          PAR          930     A     
 PAR                HX2    AM.REF                                                          PAR          931     A     
 PAR                AX2    AM.REFP                                                         PAR          932     A     
 PAR                BX7    0                                                               PAR          933     A     
 PAR                SA6    LDEAD       SET = LENGTH + 1 OF T.PAR ON ENTRY                  PAR          934     A     
 PAR                SA7    INSTF       INDICATE NO STATEMENT FUNCTION EXPANSION            PAR          935     A     
 PAR                SA7    IFREL2      INDICATE NOT IF OF ONE RELATIONAL                   PAR          936     A     
 PAR                SX6    X2                                                              PAR          937     A     
 PAR                =X7    O.EOS                                                           PAR          938     A     
 PAR                SA6    REFVAR      RESET CURRENT REFERENCE VALUE                       PAR          939     A     
 PAR                SA7    OSTACK      EOS TO OPERATOR STACK                               PAR          940     A     
 PAR                SA5    B4                                                              PAR          941     A     
 PAR                SB3    X5                                                              PAR          942     A     
 PAR                SA3    FEXPR                                                           PAR          943     A     
 PAR                LX4    B3,X3                                                           PAR          944     A     
 PAR                MI     X4,PAR.NX   IF FIRST ELEMENT LEGAL                              PAR          945     A     
 PAR                                                                                       PAR          946     A     
 PAR      **        NOTE - FOLLOWING IS A ***KLUDGE*** DESIGNED TO PREVENT                 PAR          947     A     
 PAR      *         A MODE-OUT WHEN PROCESSING :    DATA 1XX                               PAR          948     A     
 PAR                                                                                       PAR          949     A     
 PAR                SA1    PARNOW                                                          PAR          950     A     
 PAR                SX0    X1-PM=DATA                                                      PAR          951     A     
 PAR                SA1    ERL=CON                                                         PAR          952          I
          -FC5A111
 PAR                BX6    X1                                                              PAR          953          I
          -FC5A111
 PAR                SA6    FILL.3                                                          PAR          954          I
          -FC5A111
 PAR                ZR     X0,E.DVL1   DATA VARIABLE LIST CONTAINS CONSTANT                PAR          955          I
          -FC5A111
 PAR                FATAL  E.AT10                                                          PAR          956          I
          -FC5A111
 PAR                NZ     X0,PAR5     IF NOT *DATA* CALLING                               FC5A111       27     A     
 PAR                SA1    ERL=CON                                                         FC5A111       28     A     
 PAR                BX6    X1                                                              FC5A111       29     A     
 PAR                SA6    FILL.3      SET FILLER FOR DIAGNOSTIC                           FC5A111       30     A     
 PAR                FATAL  E.DVL1      DATA VARIABLE LIST CONTAINS CONSTANT                FC5A111       31     A     
 PAR                EQ     DAT.Z       GO TO DATA ERROR PROCESSOR                          FC5A111       32     A     
 PAR                                                                                       FC5A111       33     A     
 PAR       PAR5     FATAL  E.AT10      ILLEGAL FIRST ELEMENT OF STATEMENT                  FC5A111       34     A     
 PAR                ZR     X5,PAR.EOS  IF *EOS* FIRST ELEMENT                              PAR          957     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ERRNZ  O.EOS                                                           FC50068        5     A     
 PAR                SB2    X5-O.ILL                                                        FC50068        6     A     
 PAR                ZR     B2,PAR.STOP IF INVALID STRING TOKEN                             FC50068        7     A     
 PAR                SA5    B4+1        POINT TO NEXT TOKEN                                 FC50377        6     A     
 PAR                EQ     PAREX11                                                         PAR          958     A     
 PAR       A=EXPR   SPACE  4,8                                                             FC5A221        6     A     
 PAR      **        A=EXPR - POP EXPRESSION PAREN.  DO NOTHING BUT MARK                    FC5A221        7     A     
 PAR      *         TOP OF ESTACK AS *EXPR*.                                               FC5A221        8     A     
 PAR                                                                                       FC5A221        9     A     
 PAR       A=EXPR   =A1    B6-1                                                            FC5A221       10     A     
 PAR                CLAS=  X2,TP,(EXPR)                                                    FC5A221       11     A     
 PAR                BX7    X1+X2                                                           FC5A221       12     A     
 PAR                SA7    A1                                                              FC5A221       13     A     
 PAR      *         EQ     PAR.NX                                                          FC5A221       14     A     
 PAR                TITLE  PARSE/ANALYZE NEXT ELEMENT.                                     PAR          959     A     
 PAR       PAR.NX   EJECT  4,20                                                            PAR          960     A     
 PAR      **        PARSE MASTER LOOP.                                                     PAR          961     A     
 PAR      *         PAR.NX LOADS THE NEXT ELEMENT AND FOLLOWING ELEMENT AND                PAR          962     A     
 PAR      *         CHECKS IF AN ILLEGAL OPERATOR/OPERAND COMBINATION IS ABOUT             PAR          963     A     
 PAR      *         TO BE PROCESSED.                                                       PAR          964     A     
 PAR      *                                                                                PAR          965     A     
 PAR      *         IF LEGAL COMBINATION --                                                PAR          966     A     
 PAR      *                JUMP TO PROCESS ELEMENT.                                        PAR          967     A     
 PAR      *                                                                                PAR          968     A     
 PAR      *         IF ILLEGAL COMBINATION --                                              PAR          969     A     
 PAR      *                JUMP TO PAR.EX TO OUTPUT COMBINATION THAT IS IN ERROR           PAR          970     A     
 PAR      *                AND EXIT PAR.                                                   PAR          971     A     
 PAR      *                                                                                PAR          972     A     
 PAR      *         UPON EXIT FROM PAR.NX REGISTERS ARE SET TO --                          PAR          973     A     
 PAR      *                                                                                PAR          974     A     
 PAR      *                (X1) = CURRENT *TB* ENTRY.                                      PAR          975     A     
 PAR      *                (X2) = CURRENT OPERATOR PRIORITY TABLE ENTRY (SETOP).           PAR          976     A     
 PAR      *                (X3) = LAST OPERATOR STACK ENTRY.                               PAR          977     A     
 PAR      *                (X5) = NEXT *TB* ENTRY.                                         PAR          978     A     
 PAR      *                (B4) _ CURRENT *TB* ENTRY.                                      PAR          979     A     
 PAR      *                (B5) _ CURRENT *OSTACK* ENTRY.                                  PAR          980     A     
 PAR                                                                                       PAR          981     A     
 PAR       PAR.NX   BSSENT 0           ENTRY...                                            PAR          982     A     
 PAR                SA1    B4          CURRENT *TB* ENTRY                                  PAR          983     A     
 PAR                SA5    B4+B1       NEXT *TB* ENTRY                                     PAR          984     A     
 PAR                ZR     X1,PAR.EOS  IF END OF STATEMENT  (*EOS*)                        PAR          985     A     
 PAR                ERRNZ  O.EOS                                                           PAR          986     A     
 PAR                SB3    X5                                                              PAR          987     A     
 PAR                ERRNZ  18-TB.TOTL                                                      PAR          988     A     
 PAR                SA3    X1-O.DEF+F.CONO                                                 PAR          989     A     
 PAR                ERRNZ  18-TB.TOTL                                                      PAR          990     A     
 PAR                LX4    B3,X3                                                           PAR          991     A     
 PAR                SA2    X1-O.SEP+F.PRIOR                                                PAR          992     A     
 PAR                SB7    X3          JUMP ADDRESS                                        PAR          993     A     
 PAR                SA3    B5                                                              PAR          994     A     
 PAR                                                                                       PAR          995     A     
 PAR       SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                                   PAR          996     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA3    CO.SNAP                                                         PAR          997     A     
 PAR                LX3    1RZ                                                             PAR          998     A     
 PAR                PL     X3,PAR.NXS  IF PARSE SNAP NOT SELECTED                          PAR          999     A     
 PAR                SA3    B5                                                              PAR         1000     A     
 PAR       MASTER   PARSNAP                                                                PAR         1001     A     
 PAR       PAR.NXS  SA3    B5                                                              PAR         1002     A     
 PAR       SNAP=Z   ENDIF                                                                  PAR         1003     A     
 PAR                                                                                       PAR         1004     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         1005     A     
 PAR                =B2    X1-O.DEF                                                        PAR         1006     A     
 PAR                MI     B2,"BLOWUP" TOKEN VERRY ILL                                     PAR         1007     A     
 PAR                SB2    X1-O.ILL                                                        PAR         1008     A     
 PAR                GT     B2,"BLOWUP" THIS TOKEN TOO BIG FOR CONO TABLE                   PAR         1009     A     
 PAR       .T       ENDIF                                                                  PAR         1010     A     
 PAR                                                                                       PAR         1011     A     
 PAR                SB2    O.ENDNX                                                         PAR         1012     A     
 PAR                GT     B3,B2,PAREX IF FOLLOWING TOKEN OUT OF CONO TABLE                PAR         1013     A     
 PAR                PL     X4,PAREX    IF ILLEGAL OPERATOR COMBINATION                     PAR         1014     A     
 PAR                JP     B7          JUMP TO ANALYZE CURRENT TOKEN                       PAR         1015     A     
 PAR                TITLE  PARSE/ANALYZE CONSTANT ELEMENT.                                 PAR         1016     A     
 PAR       O.TRUE   SPACE  4,10                                                            PAR         1017     A     
 PAR      **        HERE IF ELEMENT IS LOGICAL CONSTANT.                                   PAR         1018     A     
 PAR                                                                                       PAR         1019     A     
 PAR                                                                                       PAR         1020     A     
 PAR       PAR.TRU  BSS    0           ENTRY...    (FROM CONO)                             PAR         1021     A     
 PAR       PAR.FAL  BSS    0           ENTRY...    (FROM CONO)                             PAR         1022     A     
 PAR                SA3    PARNOW                                                          PAR         1023     A     
 PAR                SB7    X3-PM=DIM                                                       PAR         1024     A     
 PAR                NZ     B7,PAR.FAL1       IF NOT 'DIM BOUND' PARSING                    PAR         1025     A     
 PAR                SB7    E.DM01                                                          PAR         1026     A     
 PAR                RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR                   PAR         1027     A     
 PAR                SA1    CONONE                                                          PAR         1028     A     
 PAR                LX6    X1                                                              PAR         1029     A     
 PAR                EQ     TNK.ES                                                          PAR         1030     A     
 PAR                                                                                       PAR         1031     A     
 PAR       PAR.FAL1 SB7    X1-O.TRUE                                                       PAR         1032     A     
 PAR                ERRNZ  O.TRUE+1-O.FALSE                                                PAR         1033     A     
 PAR                SA1    B7+VTRUE                                                        PAR         1034     A     
 PAR                BX6    X1                                                              PAR         1035     A     
 PAR                                                                                       PAR         1036     A     
 PAR                                                                                       PAR         1037     A     
 PAR       TNK.ES   BSS    0           CONSTANT OPERAND TO ESTACK                          PAR         1038     A     
 PAR                SB4    B4+B1       ADVANCE TOKEN POINTER                               PAR         1039     A     
 PAR                SA6    B6                                                              PAR         1040     A     
 PAR                SB6    B6+1        ADVANCE ESTACK TOP                                  PAR         1041     A     
 PAR                EQ     PAR.NX                                                          PAR         1042     A     
 PAR       PAR.TNK  SPACE  4,10                                                            PAR         1043     A     
 PAR      **        TNK - CONVERT NUMERIC CONSTANTS.                                       PAR         1044     A     
 PAR      *                                                                                PAR         1045     A     
 PAR      *         CALLS  DEC, OCT, NBC.                                                  PAR         1046     A     
 PAR                                                                                       PAR         1047     A     
 PAR                                                                                       PAR         1048     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAR.OCT  BSS    0           O.OCT + O.HEX = BOOLEAN CONSTANTS                   PAR         1049     A     
 PAR                ANSI   E.DC1       O.OCT AND O.HEX NON-ANSI                            FC50560        5     A     
 PAR                MDERR  E.MDE2      OCTAL AND HEX ARE MACHINE DEPENDENT                 F1037F5      433     A     
 PAR                CALL   OCT                                                             PAR         1050     A     
 PAR                EQ     TNK.DBL                                                         PAR         1051     A     
 PAR                                                                                       PAR         1052     A     
 PAR                                                                                       PAR         1053     A     
 PAR       PAR.DEC  BSS    0           O.CONS = DECIMAL CONSTANT                           PAR         1054     A     
 PAR                CALL   DEC         TRANSLATE CONSTANT TO BINARY VALUE                  PAR         1055     A     
 PAR                                                                                       PAR         1056     A     
 PAR                                                                                       PAR         1057     A     
 PAR      *         TNK.DBL - ENTRY WHEN COMPLEX CONSTANT DISCOVERED.                      PAR         1058     A     
 PAR      *                (X1) = MODE OF CONSTANT.                                        PAR         1059     A     
 PAR      *                (X2) = LOWER HALF OF VALUE (IF DOUBLE-WORD).                    PAR         1060     A     
 PAR      *                (X6) = UPPER (OR ONLY) HALF OF VALUE.                           PAR         1061     A     
 PAR                                                                                       PAR         1062     A     
 PAR       TNK.DBL  SA3    PARNOW                                                          PAR         1063     A     
 PAR                SB7    X3-PM=DIM                                                       PAR         1064     A     
 PAR                NZ     B7,TNK.DBL5    IF NOT 'DIM BOUND' PROCESSING                    PAR         1065     A     
 PAR                ZR     X1,TNK.DBL5    IF MODE BOOLEAN                                  PAR         1066     A     
 PAR                SB2    X1-M.INT                                                        PAR         1067     A     
 PAR                ZR     B2,TNK.DBL5    IF MODE INTEGER                                  PAR         1068     A     
 PAR                SB7    E.DM01                                                          PAR         1069     A     
 PAR                RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR                   PAR         1070     A     
 PAR                =X1    M.INT                                                           PAR         1071     A     
 PAR                =X6    1           DUMMY UP A CONSTANT 1                               PAR         1072     A     
 PAR       TNK.DBL5 BX7    X2                                                              PAR         1073     A     
 PAR                CALL   NBC         ENTER BINARY OF CONSTANT                            PAR         1074     A     
 PAR                SA2    B4+B1                                                           PAR         1075     A     
 PAR                SA1    ACONS                                                           PAR         1076     A     
 PAR                =B4    B4+1                                                            PAR         1077     A     
 PAR                SB3    X2                                                              PAR         1078     A     
 PAR                SA6    B6                                                              PAR         1079     A     
 PAR                LX4    B3,X1                                                           PAR         1080     A     
 PAR                =B6    B6+1                                                            PAR         1081     A     
 PAR                MI     X4,PAR.NX   IF NEXT OK TO FOLLOW CONSTANT                       PAR         1082     A     
 PAR                =A1    B4-1                                                            PAR         1083     A     
 PAR                SA5    B4          SET TOKEN FOR ERROR MESSAGE                         PAR         1084     A     
 PAR                SB4    B4-1                                                            FC5A216        6     A     
 PAR                SB2    X1-O.RP                                                         FC5A216        7     A     
 PAR                NZ     B2,PAREX    IF NOT COMPLEX CONSTANT                             FC5A216        8     A     
 PAR                SA4    ARGMODE                                                         FC5A216        9     A     
 PAR                SBIT   X4,AM.RPP                                                       FC5A216       10     A     
 PAR                PL     X4,PAREX    IF NO SPECIAL PROCESSING                            FC5A216       11     A     
 PAR                =B4    B4+1                                                            FC5A216       12     A     
 PAR                SB4    B4-1                                                            PAR         1085          I
          -FC50041
 PAR                SB7    E.PX5                                                           FC50041        6     A     
 PAR                EQ     PAREX                                                           PAR         1086     A     
 PAR       TNK.PARM SPACE  4,10                                                            PAR         1087     A     
 PAR      **        ELEMENT IS A PARAMETER SYMBOL.                                         PAR         1088     A     
 PAR      *                                                                                PAR         1089     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         ENTRY  (B7) = SYMTAB *WB* INDEX.                                       PAR         1090     A     
 PAR      *                (A2, X2) = SYMTAB (WB).                                         PAR         1091     A     
 PAR                                                                                       PAR         1092     A     
 PAR                                                                                       PAR         1093     A     
 PAR       TNK.PARM BSS    0           ENTRY ... FROM TRE                                  PAR         1094     A     
 PAR                SA3    PARNOW                                                          PAR         1095          I
          -F1037F5
 PAR                LX2    -WB.MODEP                                                       F1037F5      434     A     
 PAR                MX3    -WB.MODEL                                                       F1037F5      435     A     
 PAR                BX3    -X3*X2      EXTRACT MODE                                        F1037F5      436     A     
 PAR                LX2    WB.MODEP                                                        F1037F5      437     A     
 PAR                NZ     X3,TNKPR0   IF NOT BOOLEAN                                      F1037F5      438     A     
 PAR                ERRNZ  M.BOOL                                                          F1037F5      439     A     
 PAR                MDERR  E.MDE2                                                          F1037F5      440     A     
 PAR                                                                                       F1037F5      441     A     
 PAR       TNKPR0   SA3    PARNOW                                                          F1037F5      442     A     
 PAR                SX3    X3-PM=DIM                                                       PAR         1096     A     
 PAR                NZ     X3,TNKPR1   IF NOT 'DIM BOUND' PARSE                            PAR         1097     A     
 PAR                MX7    -WB.MODEL                                                       PAR         1098     A     
 PAR                LX2    -WB.MODEP                                                       PAR         1099     A     
 PAR                BX1    -X7*X2      EXTRACT MODE                                        PAR         1100     A     
 PAR                LX2    WB.MODEP    RESTORE X2 TO NOMINAL POSITION                      FC5A111       35     A     
 PAR                SB2    X1-M.INT                                                        PAR         1101     A     
 PAR                ZR     X1,TNKPR1   IF MODE BOOLEAN                                     PAR         1102     A     
 PAR                ZR     B2,TNKPR1   IF MODE INTEGER                                     PAR         1103     A     
 PAR                SB7    E.DM01                                                          PAR         1104     A     
 PAR                RJ     DBE         OUTPUT ILLEGAL MODE DIAGNOSTIC                      PAR         1105     A     
 PAR                SA1    CONONE                                                          PAR         1106     A     
 PAR                LX6    X1                                                              PAR         1107     A     
 PAR                EQ     TNK.ES                                                          PAR         1108     A     
 PAR                                                                                       PAR         1109     A     
 PAR       TNKPR1   MX7    -WB.MODEL                                                       PAR         1110     A     
 PAR                LX2    -WB.MODEP                                                       PAR         1111     A     
 PAR                LX0    XR.TAGP                                                         PAR         1112     A     
 PAR                BX5    -X7*X2      (X5) = MODE                                         PAR         1113     A     
 PAR                =A4    A2-WB.W+WC.W                                                    PAR         1114     A     
 PAR                SA1    REFVAR                                                          PAR         1115     A     
 PAR                BX6    X0                                                              PAR         1116     A     
 PAR                ADDREF X6,X1       ENTER REFERENCE TABLE                               PAR         1117     A     
 PAR                =A3    B4+1                                                            FC5A111       36          I
          -FC50275
 PAR                MX6    -WC.RAL                                                         PAR         1118     A     
 PAR                LX4    -WC.RAP                                                         PAR         1119     A     
 PAR                SB2    X5-M.CHAR                                                       PAR         1120     A     
 PAR                BX7    -X6*X4      (X7) = INDEX OF CONSTANT                            PAR         1121     A     
 PAR                LX3    -TB.TOTP                                                        FC5A111       37          I
          -FC50275
 PAR                SB7    X3-O.LP                                                         FC5A111       38          I
          -FC50275
 PAR                ERRNZ  18-TB.TOTL                                                      FC5A111       39          I
          -FC50275
 PAR                ZR     B2,TNKPR4   IF CHARACTER PARAMETER                              PAR         1122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA3    S=CON                                                           PAR         1123          I
          -FC50275
 PAR                LX5    TP.MODEP                                                        PAR         1124          I
          -FC50275
 PAR                LX3    TP.ORDP                                                         PAR         1125          I
          -FC50275
 PAR                BX1    X3+X5                                                           PAR         1126          I
          -FC50275
 PAR                LX7    TP.BIASP                                                        PAR         1127          I
          -FC50275
 PAR                BX6    X7+X1       FORM (TP.) OPERAND FOR CONSTANT                     PAR         1128          I
          -FC50275
 PAR                SA3    T.CON                                                           FC50275        8     A     
 PAR                SB7    X7          CONSTANT INDEX                                      FC50275        9     A     
 PAR                SA1    X3+B7       UPPER HALF                                          FC50275       10     A     
 PAR                =A2    A1+1        LOWER HALF (MAY BE NEEDED)                          FC50275       11     A     
 PAR                LX6    X1                                                              FC50275       12     A     
 PAR                BX1    X5          MODE                                                FC50275       13     A     
 PAR                LX7    X2                                                              FC50275       14     A     
 PAR                CALL   NBC         ENTER BINARY OF CONSTANT                            FC50275       15     A     
 PAR                SA3    B4+1                                                            FC50275       16     A     
 PAR                LX3    -TB.TOTP                                                        FC50275       17     A     
 PAR                SB7    X3-O.LP                                                         FC50275       18     A     
 PAR                ERRNZ  18-TB.TOTL                                                      FC50275       19     A     
 PAR                EQ     TNK.ES      ENTER STACK                                         PAR         1129          I
          -FC5A111
 PAR                NZ     B7,TNK.ES   IF NOT FOLLOWED BY LEFT PAREN                       FC5A111       40     A     
 PAR                FATAL  E.AT20      ** ILLEGAL USE OF PARAMETER                         FC5A111       41     A     
 PAR                =B4    B4+1        B4 _ LEFT PAREN                                     FC5A111       42     A     
 PAR                RJ     SPE         SKIP PARENTHESIZED EXPR                             FC5A111       43     A     
 PAR                PL     B2,PSL      IF *EOS* FOUND BY SPE                               FC5A111       44     A     
 PAR                =B4    B4+1        MOVE PAST THE *)*                                   FC5A111       45          I
          -FC5A403
 PAR                EQ     PAR.NX                                                          FC5A111       46          I
          -FC5A403
 PAR                EQ     TNK.ES                                                          FC5A403        7     A     
 PAR                                                                                       PAR         1130     A     
 PAR       TNKPR4   MX6    -WC.CLENL                                                       PAR         1131     A     
 PAR                LX4    WC.RAP-WC.CLENP                                                 PAR         1132     A     
 PAR                SA3    B4+B1                                                           PAR         1133          I
          -FC5A111
 PAR                LX2    X7          (X1) = CHAR INDEX  = (WC.RA)                        PAR         1134     A     
 PAR                BX1    -X6*X4      (X2) = CHAR LENGTH = (WC.CLEN)                      PAR         1135     A     
 PAR                SA3    B4+1                                                            FC50275       20     A     
 PAR                LX3    -TB.TOTP                                                        FC50275       21     A     
 PAR                SB7    X3-O.LP                                                         FC50275       22     A     
 PAR                ERRNZ  18-TB.TOTL                                                      FC50275       23     A     
 PAR                LX3    -TB.TOTP                                                        PAR         1136          I
          -FC5A111
 PAR                SB7    X3-O.LP                                                         PAR         1137          I
          -FC5A111
 PAR                ERRNZ  18-TB.TOTL                                                      PAR         1138          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A111
 PAR                NZ     B7,PAR.CHR1 IF NOT FOLLOWED BY LEFT PAREN                       PAR         1139     A     
 PAR                FATAL  E.AT18      ** SUBSTRING ILLEGAL FOR PARAMETER FILL.            PAR         1140     A     
 PAR                LX3    TB.TOTP-TB.IOCPP                                                PAR         1141     A     
 PAR                SB4    X3          SKIP OVER THE PARENTHESIZED GROUP                   PAR         1142     A     
 PAR                EQ     PAR.CHR1                                                        PAR         1143     A     
 PAR       PAR.HOL  SPACE  4,10                                                            PAR         1144     A     
 PAR      **        HERE IF ELEMENT IS A *HOLLERITH CONSTANT*.                             PAR         1145     A     
 PAR                                                                                       PAR         1146     A     
 PAR                                                                                       PAR         1147     A     
 PAR       PAR.HOL  BSS    0                                                               PAR         1148     A     
 PAR                MDERR  E.MDE2      ALL HOLLERITH FORMS ARE MACHINE DEPENDENT           F1037F5      443     A     
 PAR                ANSI   E.AT08      HOLLERITH IS NON-ANSI                               FC50796        6     A     
 PAR                BX0    X1                                                              PAR         1149     A     
 PAR                AX0    TB.LCONP                                                        PAR         1150     A     
 PAR                MX2    -TB.LCONL                                                       PAR         1151     A     
 PAR                BX7    -X2*X0                                                          PAR         1152     A     
 PAR                SB7    X7-1                                                            PAR         1153     A     
 PAR                ZR     B7,PAR.HOL5 IF LENGTH=1, OK                                     PAR         1154     A     
 PAR                SA2    ARGMODE                                                         FC5A415       12     A     
 PAR                SB7    X2-A=CALL                                                       FC5A415       13     A     
 PAR                ZR     B7,PAR.HOL1 IF SUBROUTINE ARGUMENT                              FC5A415       14     A     
 PAR                SB7    X2-A=FUN                                                        FC5A415       15     A     
 PAR                ZR     B7,PAR.HOL1 IF FUNCTION ARGUMENT                                FC5A415       16     A     
 PAR                ERRNZ  18-AM.PADL                                                      FC5A415       17     A     
 PAR                TRIV   E.AT03      HOLLERITH MORE THAN ONE WORD - TRUNCATED            PAR         1155     A     
 PAR                EQ     PAR.HOL2                                                        FC5A415       18     A     
 PAR                                                                                       FC5A415       19     A     
 PAR       PAR.HOL1 SX6    1                                                               FC5A415       20     A     
 PAR                SA6    NSQZLH      SET FLAG TO NOT SQUEEZE                             FC5A415       21     A     
 PAR                                                                                       FC5A415       22     A     
 PAR       PAR.HOL2 BSS    0                                                               FC5A415       23     A     
 PAR       PAR.HOL5 LX1    -TB.SHCP                                                        PAR         1156          I
          -FC50796
 PAR                LX1    -TB.SHCP                                                        FC50796        7     A     
 PAR                SX6    X1          INDEX INTO (T.CON)                                  PAR         1157     A     
 PAR                ERRNZ  18-TB.SHCL                                                      PAR         1158     A     
 PAR                SA1    S=CON                                                           PAR         1159     A     
 PAR                LX1    TP.ORDP                                                         PAR         1160     A     
 PAR                LX6    TP.BIASP                                                        PAR         1161     A     
 PAR                BX6    X1+X6       FORM CON. *P1* ENTRY                                PAR         1162     A     
 PAR                ANSI   E.AT08      HOLLERITH IS NON ANSI                               PAR         1163          I
          -FC50796
 PAR                EQ     TNK.ES      GO ENTER STACK                                      PAR         1164     A     
 PAR                                                                                       FC50796        8     A     
 PAR       PAR.HOL5 LX1    -TB.SHCP                                                        FC50796        9     A     
 PAR                SA2    T.CON                                                           FC50796       10     A     
 PAR                SB7    X1                                                              FC50796       11     A     
 PAR                ERRNZ  18-TB.SHCL                                                      FC50796       12     A     
 PAR                SA1    X2+B7       BINARY OF CONSTANT                                  FC50796       13     A     
 PAR                =X7    M.BOOL                                                          FC50796       14     A     
 PAR                LX6    X1                                                              FC50796       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                CALL   NCS         PROVIDE TP.SHRT WHEN APPROPRIATE                    FC50796       16     A     
 PAR                EQ     TNK.ES      GO ENTER STACK                                      FC50796       17     A     
 PAR       PAR.CHR  SPACE  4,10                                                            PAR         1165     A     
 PAR      **        PAR.CHR - ELEMENT IS A CHARACTER CONSTANT.                             PAR         1166     A     
 PAR      *                                                                                PAR         1167     A     
 PAR      *         STACK A SUBSTRING OPERAND (INTERMEDIATE).                              PAR         1168     A     
 PAR      *                                                                                PAR         1169     A     
 PAR      *         ENTRY  (X1) = CURRENT TOKEN.                                           PAR         1170     A     
 PAR      *                                                                                PAR         1171     A     
 PAR      *         CALLS  ECC.                                                            PAR         1172     A     
 PAR                                                                                       PAR         1173     A     
 PAR                                                                                       PAR         1174     A     
 PAR       PAR.CHR  BSS    0           ENTRY ... FROM (F.CONO)                             PAR         1175     A     
 PAR                SA3    PARNOW                                                          PAR         1176     A     
 PAR                LX1    -TB.SHCP                                                        PAR         1177     A     
 PAR                MX7    -TB.CLCNL                                                       PAR         1178     A     
 PAR                MX0    -TB.SHCL                                                        PAR         1179     A     
 PAR                BX2    -X0*X1      CHAR IND = SHC [TB ENTRY]                           PAR         1180     A     
 PAR                SB7    E.DM01                                                          PAR         1181     A     
 PAR                LX1    TB.SHCP-TB.CLCNP                                                PAR         1182     A     
 PAR                BX1    -X7*X1      CHAR LEN = CLCN [TB ENTRY]                          PAR         1183     A     
 PAR                SX3    X3-PM=DIM                                                       PAR         1184     A     
 PAR                NZ     X3,PAR.CHR1       IF NOT 'DIM BOUND' PARSE                      PAR         1185     A     
 PAR                RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR                   PAR         1186     A     
 PAR                SA1    CONONE                                                          PAR         1187     A     
 PAR                LX6    X1                                                              PAR         1188     A     
 PAR                EQ     TNK.ES                                                          PAR         1189     A     
 PAR                                                                                       PAR         1190     A     
 PAR      PAR.CHR1  RJ     ECC         EMIT CHARACTER CONSTANT                             PAR         1191     A     
 PAR                SB4    B4+B1                                                           PAR         1192     A     
 PAR                EQ     PAR.NX                                                          PAR         1193     A     
 PAR                TITLE  PARSE/ANALYZE SYMBOLIC ELEMENT.                                 PAR         1194     A     
 PAR       TRE      SPACE  4,20                                                            PAR         1195     A     
 PAR      **        TRE - TRANSLATE ELEMENT.                                               PAR         1196     A     
 PAR      *                                                                                PAR         1197     A     
 PAR      *         TRE FIRST SCANS THE SYMBOL TABLE TO CHECK IF ELEMENT HAS               PAR         1198     A     
 PAR      *         ALREADY BEEN TAGGED.  IF IT HAS IT DOES SOME SIMPLE SYNTAX             PAR         1199     A     
 PAR      *         CHECKING AND EXITS.  IF NOT IT THEN CHECKS THE SYNTAX USAGE            PAR         1200     A     
 PAR      *         AND DEPENDING ON ITS USE WILL EITHER ---                               PAR         1201     A     
 PAR      *                A.  CALL TSF TO TRANSLATE SPECIAL FUNCTION, OR,                 PAR         1202     A     
 PAR      *                B.  ENTER TAG INTO SYMBOL TABLE AS A VARIABLE.                  PAR         1203     A     
 PAR      *                                                                                PAR         1204     A     
 PAR      *         IN ALL CASES TRE WILL SET UP THE EXIT CONDITIONS NEEDED FOR            PAR         1205     A     
 PAR      *         PARSE TO MAKE SENSE OUT OF THIS MESS.                                  PAR         1206     A     
 PAR      *                                                                                PAR         1207     A     
 PAR      *         ENTRY  (B4) _ TOKEN TO TRANSLATE.                                      PAR         1208     A     
 PAR      *                       (MUST CONTAIN O.VAR BITS IN LOW ORDER.)                  PAR         1209     A     
 PAR      *                                                                                PAR         1210     A     
 PAR      *         EXIT   (X6) = SYMBOL TABLE ENTRY.                                      PAR         1211     A     
 PAR      *                (B2) = PAR.NX     IF VARIABLE,                                  PAR         1212     A     
 PAR      *                     = PAR.SUB    IF ARRAY,                                     PAR         1213     A     
 PAR      *                     = PAR.FUN    IF FUNCTION                                   PAR         1214     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR         1215     A     
 PAR      *         USES   CANNOT DESTROY   A4-5,A7   B4-B6.                               PAR         1216     A     
 PAR      *                                                                                PAR         1217     A     
 PAR      *         CALLS  SCAN, TRV, TSF.                                                 PAR         1218     A     
 PAR                                                                                       PAR         1219     A     
 PAR                                                                                       PAR         1220     A     
 PAR       PAR.VAR  BSS    0                                                               PAR         1221     A     
 PAR                SA1    B4                                                              PAR         1222     A     
 PAR                MX0    TB.TOCL                                                         PAR         1223     A     
 PAR                BX6    X0*X1       SYMBOL ONLY                                         PAR         1224     A     
 PAR                BX7    0                                                               PAR         1225     A     
 PAR                SA6    FILL.       IN CASE OF ERROR                                    PAR         1226     A     
 PAR                SA7    ATTR        CLEAR ATTRIBUTE CELL                                PAR         1227     A     
 PAR                SA6    CSYMBOL     SAVE CURRENT SYMBOL                                 PAR         1228     A     
 PAR                =A2    B4+1                                                            PAR         1229     A     
 PAR                SB7    X2-O.VAR                                                        PAR         1230     A     
 PAR                NZ     B7,PAR.VAR2 IF LESS THAN 8 CHARACTERS IN NAME                   PAR         1231     A     
 PAR                CALL   TLV         TRUNCATE NAME -- SORT OF                            PAR         1232     A     
 PAR                                                                                       FC50326       17     A     
 PAR       PAR.VAR2 CALL   SSY         SEARCH SYMBOL TABLE                                 PAR         1233     A     
 PAR                SA3    REFVAR                                                          PAR         1234     A     
 PAR                CLAS=  X7,WB,(VAR)                                                     PAR         1235     A     
 PAR                SB2    X3-CR.STR                                                       PAR         1236     A     
 PAR                NZ     B2,TRE6     IF NOT PROCESSING A *SET*                           PAR         1237     A     
 PAR                CLAS=  X7,WB,(VAR,DEF)                                                 PAR         1238     A     
 PAR                                                                                       FC50326       18     A     
 PAR       TRE6     MI     B7,TRE80    IF *NIT*                                            PAR         1239     A     
 PAR                                                                                       PAR         1240     A     
 PAR      *         HERE IF ELEMENT ALREADY IN SYMBOL TABLE.                               PAR         1241          I
          -FC5A294
 PAR      *         IF PARAMETER -- GOTO TNK.                                              PAR         1242          I
          -FC5A294
 PAR      *                                                                                PAR         1243          I
          -FC5A294
 PAR      *         GO THRU SEQUENCE OF CHECKS FOR PROPER USE.                             PAR         1244          I
          -FC5A294
 PAR      *         1. CHECK IF CLASS = ARRAY.                                             PAR         1245          I
          -FC5A294
 PAR      *                YES - CHECK IF FOLLOWED BY *(*.                                 PAR         1246          I
          -FC5A294
 PAR      *                   IF NOT OUTPUT ANSI MESSAGE NOTING REFERENCE TO               PAR         1247          I
          -FC5A294
 PAR      *                   AN ARRAY WITHOUT SUBSCRIPT.                                  PAR         1248          I
          -FC5A294
 PAR      *                NO - GO TO 2.                                                   PAR         1249          I
          -FC5A294
 PAR      *                                                                                PAR         1250          I
          -FC5A294
 PAR      *         2. CHECK IF IT IS A VARIABLE.                                          PAR         1251          I
          -FC5A294
 PAR      *                YES - CHECK IF FOLLOWED BY *(*.                                 PAR         1252          I
          -FC5A294
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                   IF SO OUTPUT ILLEGAL USE OF VARIABLE.                        PAR         1253          I
          -FC5A294
 PAR      *                NO  - GO TO 3.                                                  PAR         1254          I
          -FC5A294
 PAR      *                                                                                PAR         1255          I
          -FC5A294
 PAR      *         3. CHECK IF IT IS A FUNCTION.                                          PAR         1256          I
          -FC5A294
 PAR      **        HERE IF ELEMENT ALREADY IN SYMBOL TABLE.                               FC5A294        6     A     
 PAR      *                                                                                FC5A294        7     A     
 PAR      *         GO THRU SEQUENCE OF CHECKS FOR PROPER USE.                             FC5A294        8     A     
 PAR      *                                                                                FC5A294        9     A     
 PAR      *         1. CHECK IF PARAMETER.                                                 FC5A294       10     A     
 PAR      *                YES - GO TO TNK.PARM.                                           FC5A294       11     A     
 PAR      *                NO  - GO TO 2.                                                  FC5A294       12     A     
 PAR      *                                                                                FC5A294       13     A     
 PAR      *         3. CHECK IF CLASS " VARIABLE.                                          FC5A294       14     A     
 PAR      *                YES - CHECK AND PROCESS THE REQUIRED NONVARIABLE.               FC5A294       15     A     
 PAR      *                NO  - GO TO 3.                                                  FC5A294       16     A     
 PAR      *                                                                                FC5A294       17     A     
 PAR      *         3. CHECK IF CLASS = ARRAY.                                             FC5A294       18     A     
 PAR      *                YES - CHECK IF FOLLOWED BY *(*.                                 FC5A294       19     A     
 PAR      *                      IF NOT OUTPUT FATAL MESSAGE NOTING REFERENCE TO           FC5A294       20     A     
 PAR      *                      AN ARRAY WITHOUT SUBSCRIPT (AS REQUIRED).                 FC5A294       21     A     
 PAR      *                NO  - GO TO 4.                                                  FC5A294       22     A     
 PAR      *                                                                                FC5A294       23     A     
 PAR      *         4. TREAT AS A VARIABLE.                                                FC5A294       24     A     
 PAR      *                    - CHECK IF FOLLOWED BY *(*.                                 FC5A294       25     A     
 PAR      *                      IF SO OUTPUT ILLEGAL USE OF VARIABLE.                     FC5A294       26     A     
 PAR                                                                                       PAR         1257     A     
 PAR                                                                                       PAR         1258     A     
 PAR                HX6    WB.PARM                                                         PAR         1259     A     
 PAR                MI     X6,TNK.PARM       IF PARAMETER VARIABLE                         PAR         1260     A     
 PAR                CALL   CT1         CONSTRUCT (TP.) FORM OPERAND                        PAR         1261     A     
 PAR                SA6    CSYTAG                                                          PAR         1262     A     
 PAR                =A6    A6-CSYTAG+CSYREF                                                PAR         1263     A     
 PAR                BX6    X2          SAVE (WB)                                           PAR         1264     A     
 PAR                CLAS=  X4,WB,(SFA)                                                     FC50326       19     A     
 PAR                BX6    -X4*X6      CLEAR WB.SFA (IF PRESENT)                           FC50326       20     A     
 PAR                SA1    B4+B1       FETCH NEXT TOKEN                                    PAR         1265     A     
 PAR                LX3    X2                                                              PAR         1266     A     
 PAR                =A6    A6-CSYREF+CSYWB                                                 PAR         1267     A     
 PAR                SX0    X1-O.LP                                                         PAR         1268     A     
 PAR                SBIT   X3,WB.VARP                                                      PAR         1269     A     
 PAR                PL     X3,TRE30    IF NOT VARIABLE                                     PAR         1270     A     
 PAR                SBIT   X3,WB.ARYP/WB.VARP                                              PAR         1271     A     
 PAR                PL     X3,TRE22    IF NOT ARRAY                                        PAR         1272     A     
 PAR                BX6    X6+X7                                                           PAR         1273     A     
 PAR                CLAS=  X7,TP,(ARR)                                                     PAR         1274     A     
 PAR                SB2    PAR.SUB                                                         PAR         1275     A     
 PAR                SA6    A2          RESET TAG WITH APPROPRIATE CLASS BITS               PAR         1276     A     
 PAR                SA7    ATTR                                                            PAR         1277     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                RJ     CIL         CHECK IF ILLEGAL LEVEL                              PAR         1278     A     
 PAR                ZR     X0,TREX     IF ARRAY FOLLOWED BY *(*                            PAR         1279     A     
 PAR                SA3    ARGMODE                                                         PAR         1280     A     
 PAR                SB7    E.VA08                                                          PAR         1281          I
          -FC5A228
 PAR                HX3    AM.ARE                                                          PAR         1282     A     
 PAR                MX6    1                                                               PAR         1283          I
          -FC5A279
 PAR                MX4    1                                                               FC5A279        5     A     
 PAR                MI     X3,TRE16    IF ENTIRE ARRAY REFERENCE LEGAL                     PAR         1284          I
          -FC5A228
 PAR                FATAL  B7                                                              PAR         1285          I
          -FC5A228
 PAR                PL     X3,TRE15    IF ENTIRE ARRAY REFERENCE ILLEGAL                   FC5A228        5     A     
 PAR                SA1    B4-1        FETCH PREVIOUS TOKEN                                FC5A228        6     A     
 PAR                SX1    X1-O.LP                                                         FC5A228        7     A     
 PAR                ZR     X1,TRE14    IF LP PRECEDES, OK                                  FC5A228        8     A     
 PAR                SX1    X1+O.LP-O.SLP                                                   FC5A228        9     A     
 PAR                ZR     X1,TRE14    IF SPECIAL LP PRECEDES, OK                          FC5A228       10     A     
 PAR                SX1    X1+O.SLP-O.COMMA                                                FC5A228       11     A     
 PAR                ZR     X1,TRE14    IF COMMA PRECEDES, OK                               FC5A228       12     A     
 PAR                SX1    X1+O.COMMA-O.DOBI                                               FC5A228       13     A     
 PAR                ZR     X1,TRE14    IF DO-BEGIN PRECEDES, OK                            FC5A228       14     A     
 PAR                EQ     TRE15       IF PREVIOUS TOKEN INDICATES INVALID                 FC5A228       15     A     
 PAR                                                                                       FC5A228       16     A     
 PAR       TRE14    SX0    X0+O.LP-O.RP                                                    FC5A228       17     A     
 PAR                ZR     X0,TRE16    IF RP FOLLOWS, OK                                   FC5A228       18     A     
 PAR                SX0    X0+O.RP-O.COMMA                                                 FC5A228       19     A     
 PAR                ZR     X0,TRE16    IF COMMA FOLLOWS, OK                                FC5A228       20     A     
 PAR                SX0    X0+O.COMMA-O.EOS                                                FC5A228       21     A     
 PAR                ZR     X0,TRE16    IF EOS FOLLOWS, OK (FOR I/O LISTS)                  FC5A228       22     A     
 PAR                                                                                       FC5A228       23     A     
 PAR       TRE15    FATAL  E.VA08      ** ARRAY MISSING SUBSCRIPT                          FC5A228       24     A     
 PAR                                                                                       FC5A228       25     A     
 PAR       TRE16    BX1    X6*X3       SET (TP.ARE) = (AM.ARE)                             PAR         1286          I
          -FC5A279
 PAR       TRE16    BX1    X4*X3       SET (TP.ARE) = (AM.ARE)                             FC5A279        6     A     
 PAR                LX1    TP.AREP+1                                                       PAR         1287     A     
 PAR                SB2    PAR.NX                                                          PAR         1288     A     
 PAR                BX7    X1+X7       UPDATE (ATTR)                                       PAR         1289     A     
 PAR                SA7    A7                                                              PAR         1290     A     
 PAR                EQ     TREX        EXIT..                                              PAR         1291     A     
 PAR                                                                                       PAR         1292     A     
 PAR                                                                                       PAR         1293     A     
 PAR      *         HERE IF POSSIBLE VARIABLE.                                             PAR         1294     A     
 PAR                                                                                       PAR         1295     A     
 PAR       TRE22    BX6    X6+X7       ADD IN CLASS BITS                                   PAR         1296     A     
 PAR                SB2    PAR.NX      INDICATE VARIABLE                                   PAR         1297     A     
 PAR                SA6    A2          RESET TAG WITH APPROPRIATE CLASS BITS               PAR         1298     A     
 PAR                RJ     CIL         CHECK ILLEGAL LEVEL                                 PAR         1299     A     
 PAR                NZ     X0,TREX     IF NOT FOLLOWED BY LEFT PAREN                       PAR         1300     A     
 PAR                SA1    B4+B1                                                           PAR         1301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB2    PAR.SBS                                                         PAR         1302     A     
 PAR                HX1    TB.COL                                                          PAR         1303     A     
 PAR                MI     X1,TREX     IF SUBSTRING LPAREN                                 PAR         1304     A     
 PAR                FATAL  E.VA03      ILLEGAL *(* FOLLOWING VARIABLE NAME                 PAR         1305     A     
 PAR                                                                                       PAR         1306     A     
 PAR      *         SKIP OVER BAD PARENTHESIZED EXPRESSION.                                PAR         1307     A     
 PAR                                                                                       PAR         1308     A     
 PAR                =B4    B4+1                                                            PAR         1309     A     
 PAR       TRE22A   =B3    1           INITIALIZE *LP* COUNTER                             PAR         1310          I
          -FC5A111
 PAR                =B2    0           INITIALIZE *RP* COUNTER                             PAR         1311          I
          -FC5A111
 PAR       TRE23    =B4    B4+1                                                            PAR         1312          I
          -FC5A111
 PAR                SA1    B4                                                              PAR         1313          I
          -FC5A111
 PAR                ZR     X1,PSL      IF *EOS*, EXIT...                                   PAR         1314          I
          -FC5A111
 PAR                SB7    X1-O.LP                                                         PAR         1315          I
          -FC5A111
 PAR                ZR     B7,TRE24    IF *(*                                              PAR         1316          I
          -FC5A111
 PAR                SB7    X1-O.RP                                                         PAR         1317          I
          -FC5A111
 PAR                ZR     B7,TRE25    IF *)*                                              PAR         1318          I
          -FC5A111
 PAR                EQ     TRE23                                                           PAR         1319          I
          -FC5A111
 PAR       TRE24    =B3    B3+1                                                            PAR         1320          I
          -FC5A111
 PAR                EQ     TRE23                                                           PAR         1321          I
          -FC5A111
 PAR       TRE25    =B2    B2+1                                                            PAR         1322          I
          -FC5A111
 PAR                NE     B2,B3,TRE23                                                     PAR         1323          I
          -FC5A111
 PAR       TRE22A   RJ     SPE         SKIP PARENTHESIZED EXPRESSION                       FC5A111       47          I
          -FC5A294
 PAR                RJ     SPE         SKIP PARENTHESIZED EXPRESSION                       FC5A294       27     A     
 PAR                PL     B2,PSL      IF *EOS* FOUND                                      FC5A111       48     A     
 PAR                SB2    PAR.NX                                                          PAR         1324     A     
 PAR                EQ     TREX        EXIT..                                              PAR         1325     A     
 PAR                                                                                       PAR         1326     A     
 PAR      *         HERE IF POSSIBLE FUNCTION/SUBROUTINE.                                  PAR         1327     A     
 PAR                                                                                       PAR         1328     A     
 PAR       TRE30    SB2    PAR.FUN     INDICATE EXTERNAL                                   PAR         1329     A     
 PAR                SBIT   X3,WB.NVARP/WB.VARP                                             PAR         1330     A     
 PAR                PL     X3,TRE70    IF VARIABLE                                         PAR         1331     A     
 PAR                =A5    B4-1        X5 = TOKEN BEFORE POSSIBLE FUNCTION                 FC5A164       44     A     
 PAR                SX4    X0+O.LP-O.COMMA                                                 FC5A164       45     A     
 PAR                SB3    X5-O.COMMA                                                      FC5A164       46     A     
 PAR                SX5    X5-O.SLP                                                        FC5A164       47     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SBIT   X3,WB.FUNP/WB.NVARP                                             PAR         1332     A     
 PAR                PL     X3,TRE40    IF NOT A FUNCTION                                   PAR         1333     A     
 PAR                ZR     X0,TREX     IF FOLLOWED BY *(* - OK                             PAR         1334     A     
 PAR                                                                                       PAR         1335     A     
 PAR      *         REFERENCE TO A FUNCTION/SUBROUTINE WITHOUT A LEFT PAREN,               PAR         1336     A     
 PAR      *         LEGAL IF INSIDE OF A FUNCTION ARGUMENT LIST.                           PAR         1337     A     
 PAR                                                                                       PAR         1338     A     
 PAR                SA1    ARGMODE                                                         PAR         1339          I
          -FC5A164
 PAR                HX1    AM.FUN                                                          PAR         1340          I
          -FC5A164
 PAR                BX7    X3                                                              PAR         1341          I
          -FC5A437
 PAR       TRE30.1  BX7    X3                                                              FC5A437        5     A     
 PAR                SB2    PAR.NX                                                          PAR         1342     A     
 PAR                SB7    E.VA04                                                          PAR         1343     A     
 PAR                SA1    ARGMODE                                                         FC5A437        6     A     
 PAR                SBIT   X1,AM.FUNP                                                      FC5A437        7     A     
 PAR                PL     X1,TRE35    IF STAND ALONE EXTERNAL NOT ALLOWED                 FC5A437        8     A     
 PAR                PL     X1,TRE35    IF NOT INSIDE OF A FUNCTION ARGUMENT LIST           PAR         1344          I
          -FC5A164
 PAR                SB7    E.VA05                                                          PAR         1345          I
          -FC5A164
 PAR                SX0    X0+O.LP-O.RP                                                    FC5A164       48     A     
 PAR                ZR     X0,TRE31    IF FOLLOWED BY RP                                   FC5A164       49     A     
 PAR                NZ     X4,TRE35    IF NOT FOLLOWED BY A COMMA                          FC5A164       50     A     
 PAR                                                                                       FC5A164       51     A     
 PAR       TRE31    ZR     X5,TRE33    IF PRECEDED BY A SPECIAL LP                         FC5A164       52     A     
 PAR                SX5    X5+O.SLP-O.LP                                                   FC5A164       53     A     
 PAR                ZR     X5,TRE33    IF PRECEDED BY LP                                   FC5A164       54     A     
 PAR                NZ     B3,TRE35    IF NOT PRECEDED BY A COMMA                          FC5A164       55     A     
 PAR                                                                                       FC5A164       56     A     
 PAR       TRE33    SB7    E.VA05                                                          FC5A164       57     A     
 PAR                LX7    WB.FUNP-WB.INTFP                                                PAR         1346     A     
 PAR                SBIT   X3,WB.DEXTP/WB.FUNP                                             PAR         1347     A     
 PAR                MI     X3,TREX     IF DECLARED AS EXTERNAL                             PAR         1348     A     
 PAR                PL     X7,TRE35    IF NOT DECLARED AS INTRINSIC                        PAR         1349     A     
 PAR                                                                                       PAR         1350     A     
 PAR      *         CHECK WHETHER INTRINSIC NAME ALLOWED AS ACTUAL ARGUMENT.               PAR         1351     A     
 PAR                                                                                       PAR         1352     A     
 PAR                MX0    -WB.JPFL                                                        PAR         1353     A     
 PAR                LX3    1+WB.DEXTP-WB.JPFP                                              PAR         1354     A     
 PAR                BX7    -X0*X3      JPFI = JPF[WBI] = INTRINSIC TABLE INDEX             PAR         1355     A     
 PAR                SX0    Z.INTA                                                          PAR         1356     A     
 PAR                SB7    E.VA06                                                          PAR         1357     A     
 PAR                IX3    X7-X0                                                           PAR         1358     A     
 PAR                MI     X3,TRE35    IF FUNC NAME NOT ALLOWED                            PAR         1359     A     
 PAR                                                                                       PAR         1360     A     
 PAR      *         APPEND SUFFIX TO INTRINSIC FUNCTION NAME.                              PAR         1361     A     
 PAR                                                                                       PAR         1362     A     
 PAR                SA1    X7+F.INTF                                                       PAR         1363     A     
 PAR                SA2    FUNCALL                                                         PAR         1364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA7    /CF/IT                                                          PAR         1365     A     
 PAR                RJ     TXI         TAG EXTERNAL INTRINSICS                             PAR         1366     A     
 PAR                SA1    /CF/TP                                                          PAR         1367     A     
 PAR                SA3    CSYTAG                                                          PAR         1368     A     
 PAR                CLAS=  X2,TP,(ORD)                                                     PAR         1369     A     
 PAR                BX1    X2*X1       GET ORD FROM (/CF/TP)                               PAR         1370     A     
 PAR                BX6    -X2*X1      GET REST OF ATTRIBUTES FROM (CSYTAG)                PAR         1371     A     
 PAR                SB2    PAR.NX                                                          PAR         1372     A     
 PAR                BX6    X1+X6                                                           PAR         1373     A     
 PAR                SA6    CSYTAG      UPDATE CSYTAG                                       PAR         1374     A     
 PAR                EQ     TREX        EXIT...                                             PAR         1375     A     
 PAR                                                                                       PAR         1376     A     
 PAR       TRE35    FATAL  B7                                                              PAR         1377     A     
 PAR                EQ     TREX        EXIT...                                             PAR         1378     A     
 PAR                                                                                       PAR         1379     A     
 PAR      *         HERE IF POSSIBLE SUBROUTINE.                                           PAR         1380     A     
 PAR                                                                                       PAR         1381     A     
 PAR       TRE40    SBIT   X3,WB.SUBP/WB.FUNP                                              PAR         1382     A     
 PAR                PL     X3,TRE60    IF NOT A SUBROUTINE                                 PAR         1383     A     
 PAR                ZR     X0,TRE41    IF FOLLOWED BY *(*                                  FC5A294       28     A     
 PAR                SA3    ARGMODE                                                         PAR         1384     A     
 PAR                =B2    PAR.NX                                                          PAR         1385     A     
 PAR                SBIT   X3,AM.FUNP                                                      PAR         1386     A     
 PAR                MI     X3,TRE41    IF STAND ALONE REFERENCE MANDATORY                  PAR         1387          I
          -FC5A294
 PAR                SB2    PAR.FUN                                                         PAR         1388          I
          -FC5A294
 PAR                ZR     X0,TREX     IF FOLLOWED BY *(* - OK                             PAR         1389          I
          -FC5A294
 PAR                EQ     TRE42                                                           PAR         1390          I
          -FC5A294
 PAR       TRE41    NZ     X0,TREX     MUST BE STAND ALONE                                 PAR         1391          I
          -FC5A294
 PAR                FATAL  E.VA07                                                          PAR         1392          I
          -FC5A294
 PAR                EQ     TRE22A                                                          PAR         1393          I
          -FC5A294
 PAR       TRE42    FATAL  E.VA07      SUBROUTINE WITH NO *(* FOLLOWING                    PAR         1394          I
          -FC5A294
 PAR                =B2    PAR.NX                                                          PAR         1395          I
          -FC5A294
 PAR                MI     X3,TREX     IF STAND ALONE OK THIS CASE                         FC5A294       29     A     
 PAR                FATAL  E.VA04      ** EXTERNAL REFERENCE REQUIRES ARGUMENTS            FC5A294       30     A     
 PAR                EQ     TREX                                                            FC5A294       31     A     
 PAR                                                                                       FC5A294       32     A     
 PAR       TRE41    WARN   E.VA07      ** SUBROUTINE USED AS FUNCTION                      FC5A294       33     A     
 PAR                SB2    PAR.FUN     TREAT AS FUNCTION                                   FC5A294       34     A     
 PAR                EQ     TREX        EXIT..                                              PAR         1396     A     
 PAR                                                                                       PAR         1397     A     
 PAR      *         HERE IF DEFINED AS NOT-VAR BUT NOT A SUBROUTINE/FUNCTION.              PAR         1398     A     
 PAR                                                                                       PAR         1399     A     
 PAR       TRE60    SBIT   X3,WB.ENTP/WB.SUBP                                              PAR         1400     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                PL     X3,TRE65    IF NOT ENTRY POINT                                  PAR         1401     A     
 PAR                SA3    S=VALUE                                                         PAR         1402     A     
 PAR                MX0    -WB.MODEL                                                       PAR         1403     A     
 PAR                LX6    -WB.MODEP                                                       PAR         1404     A     
 PAR                BX1    -X0*X6      ISOLATE MODE OF THIS ENTRY NAME                     PAR         1405     A     
 PAR                LX6    WB.MODEP                                                        PAR         1406     A     
 PAR                IX0    X3+X1       (X0) = SYMORD OF PROPER VALUE. SYMBOL               PAR         1407     A     
 PAR                SA1    MOD                                                             PAR         1408     A     
 PAR                HX1    MO.FUN                                                          PAR         1409     A     
 PAR                PL     X1,TRE62    IF NOT IN FUNCTION SUBPROGRAM                       PAR         1410     A     
 PAR                SA2    PARNOW                                                          PAR         1411     A     
 PAR                SB7    X2-PM=DIM                                                       PAR         1412     A     
 PAR                SB2    B7+PM=DIM-PM=DATA                                               PAR         1413     A     
 PAR                ZR     B7,TRE62    IF PARSING DIMENSION BOUND                          PAR         1414     A     
 PAR                NZ     B2,TRE63    IF NOT PARSING DATA STATEMENT                       PAR         1415     A     
 PAR                                                                                       FC5A279        7     A     
 PAR       TRE62    SA1    S=BU                                                            PAR         1416     A     
 PAR                BX0    X1                                                              PAR         1417     A     
 PAR                FATAL  E.VA01      ** ILLEGAL USE OF ENTRY NAME                        PAR         1418     A     
 PAR                                                                                       PAR         1419     A     
 PAR       TRE63    CALL   CT1         CONSTRUCT (TP.) FORM OPERAND                        PAR         1420     A     
 PAR                SA6    CSYTAG                                                          PAR         1421     A     
 PAR                BX6    X2          SAVE *WB*                                           PAR         1422     A     
 PAR                SA1    B4+B1       FETCH NEXT TOKEN                                    PAR         1423     A     
 PAR                SX0    X1-O.LP                                                         PAR         1424     A     
 PAR                SA6    CSYWB                                                           PAR         1425     A     
 PAR                EQ     TRE22                                                           PAR         1426     A     
 PAR                                                                                       PAR         1427     A     
 PAR       TRE65    SBIT   X3,WB.NLSTP/WB.ENTP                                             PAR         1428     A     
 PAR                MI     X3,E.VA13   IF NAMELIST GROUP NAME                              PAR         1429     A     
 PAR      *         EQ     TRE70       (FALL THROUGH NOW)                                  PAR         1430          I
          -FC5A437
 PAR                SBIT   X3,WB.DEXTP/WB.NLSTP                                            FC5A437        9     A     
 PAR                PL     X3,TRE70    IF UNCLASSIFIED NON-VARIABLE                        FC5A437       10     A     
 PAR                ZR     X0,TRE70    IF FOLLOWED BY *(*, OKAY                            FC5A437       11     A     
 PAR                SBIT   X3,WB.FUNP/WB.DEXTP                                             FC5A437       12     A     
 PAR                EQ     TRE30.1     TREAT AS FUNCTION IN THIS CONTEXT                   FC5A437       13     A     
 PAR       TRE70    SPACE  4,30                                                            PAR         1431     A     
 PAR      *         CHECK UNCLASSIFIED TAG FOR POSSIBLE VARIABLE OR FUNCTION               PAR         1432     A     
 PAR      *         CLASSIFICATION.                                                        PAR         1433     A     
 PAR      *                                                                                PAR         1434     A     
 PAR      *         ANSI COMMENT......                                                     PAR         1435     A     
 PAR      *         ANSI ALLOWS A PROGRAMMER TO DEFINE AN INTRINSIC FUNCTION IN A          PAR         1436     A     
 PAR      *         TYPE STATEMENT.  THUS A SYMBOL BY THE NAME OF A KNOWN                  PAR         1437     A     
 PAR      *         INTRINSIC FUNCTION WILL BE SET INTO OUR SYMBOL TABLE BUT WILL          PAR         1438     A     
 PAR      *         NOT HAVE A CLASSIFICATION ON ITS USE.  WE ALSO HAVE TO WATCH           PAR         1439     A     
 PAR      *         OUT FOR A SYMBOL THAT IS IN THE SYMBOL TABLE THAT HAS ONLY THE         PAR         1440     A     
 PAR      *         *EXTERNAL* CLASSIFICATION BITS ON.  IN *EXTERNAL* CASE IT IS           PAR         1441     A     
 PAR      *         SORT OF SIMPLE, CONTEXT TELLS USE WHAT TO DO.                          PAR         1442     A     
 PAR      *                IN THE CASE OF A SYMBOL THAT HAS MERELY BEEN TYPED, WE          PAR         1443     A     
 PAR      *         MUST CHECK IF IT IS A *BEF* OR *INLINE* AND THEN CHECK IF THE          PAR         1444     A     
 PAR      *         MODE OF TYPING IS THE SAME AS THE EXPLICIT TYPING GIVEN THE            PAR         1445     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         FUNCTION BY ANSI.                                                      PAR         1446     A     
 PAR      *         IF IT IS, THEN SYMBOL IS THE INTRINSIC DEFINED BY                      PAR         1447     A     
 PAR      *         ANSI.  IF NOT, ITS DEFAULT IS SET TO A VARIABLE OR                     PAR         1448     A     
 PAR      *         EXTERNAL FUNCTION DEPENDING ON THE CONTEXT.                            PAR         1449     A     
 PAR      *                                                                                PAR         1450     A     
 PAR      *                                                                                PAR         1451     A     
 PAR      *         ENTRY  (X0) = 0, IF FOLLOWED BY *(*.                                   PAR         1452     A     
 PAR      *                (X6) = SYMTAB (WB) FOR SYMBOL IN PROGRESS.                      PAR         1453     A     
 PAR      *                (A2) = ADDRESS OF SYMTAB (WB).                                  PAR         1454     A     
 PAR      *                (X7) = CLASS BITS (ONLY IF FOUND TO BE A VARIABLE).             PAR         1455     A     
 PAR      *                (B7) = INDEX OF SYMTAB (WB).                                    PAR         1456     A     
 PAR      *                                                                                PAR         1457     A     
 PAR      *         EXIT   (X6) = UPDATED (WB) WORD.                                       PAR         1458     A     
 PAR      *                       ALSO UPDATED IN TABLE OFF OF *A2*.                       PAR         1459     A     
 PAR      *                (B2) = PAR.XX PROCESSING ADDRESS FOR PARSER.                    PAR         1460     A     
 PAR      *                                                                                PAR         1461     A     
 PAR      *         CALLS  SLT.                                                            PAR         1462     A     
 PAR                                                                                       PAR         1463     A     
 PAR                                                                                       PAR         1464     A     
 PAR       TRE70    LX2    X7                                                              PAR         1465     A     
 PAR                =B2    PAR.NX                                                          PAR         1466     A     
 PAR                BX1    X6                                                              PAR         1467     A     
 PAR                NZ     X0,TRE76    IF NOT FOLLOWED BY *(* - SET VARIABLE BIT           PAR         1468     A     
 PAR                                                                                       PAR         1469     A     
 PAR      **        HERE IF ENTITY FOLLOWED BY *(*, BUT DOES NOT HAVE CLASS.               PAR         1470     A     
 PAR      *         IF DECLARED EXTERNAL, SET CLASS = USER FUNCTION.                       PAR         1471     A     
 PAR      *         ELSE IF FOLLOWED BY SUBSTRING LPAREN, IT MUST BE                       PAR         1472     A     
 PAR      *                A CHARACTER VARIABLE.                                           PAR         1473     A     
 PAR      *         ELSE IF IT IS A FORMAL PARAMETER, CLASS = USER FUNCTION.               PAR         1474     A     
 PAR      *         ELSE SET CLASS = FUNCTION,                                             PAR         1475     A     
 PAR      *                IF IN TABLE, FUNT = INTRINSIC, ELSE FUNT = USER.                PAR         1476     A     
 PAR                                                                                       PAR         1477     A     
 PAR                HX1    WB.DEXT                                                         PAR         1478     A     
 PAR                SA3    B4+B1                                                           PAR         1479     A     
 PAR                MI     X1,TRE74    IF DECLARED EXTERNAL                                PAR         1480     A     
 PAR                HX3    TB.COL                                                          PAR         1481     A     
 PAR                SB2    PAR.SBS                                                         PAR         1482     A     
 PAR                MI     X3,TRE78    IF FOLLOWED BY SUBSTRING LPAREN                     PAR         1483     A     
 PAR                LX1    WB.DEXTP-WB.FPP                                                 PAR         1484     A     
 PAR                MI     X1,TRE74    IF FORMAL PARAMETER                                 PAR         1485     A     
 PAR                                                                                       PAR         1486     A     
 PAR      *         HERE IF NOT FORMAL PARAM.  CHECK IF ENTITY APPEARED IN TYPE            PAR         1487     A     
 PAR      *         STATEMENT AND TYPE AND NAME SAME AS AN INTRINSIC.                      PAR         1488     A     
 PAR                                                                                       PAR         1489     A     
 PAR                MX0    WA.SYML                                                         PAR         1490     A     
 PAR                =A3    A2-WB.W+WA.W                                                    PAR         1491     A     
 PAR                SX5    B7          REMEMBER (X5) = WB INDEX OF SYMBOL                  PAR         1492     A     
 PAR                BX1    X0*X3       SYMBOL ONLY                                         PAR         1493     A     
 PAR                CALL   SLT         SCAN LIBRARY TABLE                                  PAR         1494     A     
 PAR                SA1    T.SYM                                                           PAR         1495     A     
 PAR                SB7    X5          RESTORE (B7) = WB INDEX                             PAR         1496     A     
 PAR                SA2    X1+B7       RESTORE (A2) -> SYMTAB (WB)                         PAR         1497     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MI     B2,TRE74    IF NOT IN TABLE -- USER FUNCTION                    PAR         1498     A     
 PAR                MX0    -WB.MODEL                                                       PAR         1499          I
          -FC5A227
 PAR                BX1    X6-X3                                                           PAR         1500          I
          -FC5A227
 PAR                SA1    B2+F.INTF                                                       FC5A227       92     A     
 PAR                SBIT   X1,IT.GNOP                                                      FC5A227       93     A     
 PAR                MX0    -WB.MODEL                                                       FC5A227       94     A     
 PAR                LX0    WB.MODEP                                                        FC5A227       95     A     
 PAR                PL     X1,TRE71    IF NOT GENERIC ONLY INTRINSIC                       FC5A227       96     A     
 PAR                WARN   E.TY9                                                           FC5A227       97     A     
 PAR                EQ     TRE72                                                           FC5A227       98     A     
 PAR                                                                                       FC5A227       99     A     
 PAR       TRE71    BX1    X6-X3                                                           FC5A227      100     A     
 PAR                LX0    WB.MODEP                                                        PAR         1501          I
          -FC5A227
 PAR                BX1    -X0*X1                                                          PAR         1502     A     
 PAR                ZR     X1,TRE72    IF DECLARED MODE AGREES WITH INTRIN TABLE           PAR         1503     A     
 PAR                WARN   E.TY2       ** CONFLICTING MODE IGNORED                         PAR         1504     A     
 PAR                                                                                       PAR         1505     A     
 PAR      *         CONFIRMED AS INTRINSIC FUNCTION.                                       PAR         1506     A     
 PAR                                                                                       PAR         1507     A     
 PAR       TRE72    BX6    X0*X6       CLEAR USER DECLARED MODE                            PAR         1508          I
          -FC5A227
 PAR                CLAS=  X1,WB,(TYP)                                                     PAR         1509          I
          -FC5A227
 PAR                BX6    -X1*X6      CLEAR EXPLICIT TYPE FLAG                            PAR         1510          I
          -FC5A227
 PAR       TRE72    SA1    STAGE                                                           FC5A227      101     A     
 PAR                SX4    FEC=EXU                                                         FC5A227      102     A     
 PAR                BX6    X0*X6       CLEAR USER DEFINED MODE                             FC5A227      103     A     
 PAR                IX4    X4-X1                                                           FC5A227      104     A     
 PAR                MX0    0                                                               FC5A227      105     A     
 PAR                BX6    X6+X3       MERGE IN NEW CLASS BITS                             FC5A227      106     A     
 PAR                NZ     X4,TRE73    IF NOT IN EXECUTABLES                               FC5A227      107     A     
 PAR                CLAS=  X0,WB,(TYP)                                                     FC5A227      108     A     
 PAR                                                                                       FC5A227      109     A     
 PAR       TRE73    BX6    -X0*X6      CLEAR EXPLICIT TYPE BIT (AS APPLICABLE)             FC5A227      110     A     
 PAR                SA6    A2                                                              FC5A227      111     A     
 PAR                =A1    A2-WB.W+WC.W                                                    PAR         1511     A     
 PAR                BX7    X1+X7       MERGE (WC.FUNI) PER SLT                             PAR         1512     A     
 PAR                SB2    PAR.FUN                                                         PAR         1513     A     
 PAR                SA7    A1                                                              PAR         1514     A     
 PAR                BX6    X6+X3       MERGE NEW CLASS BITS                                PAR         1515          I
          -FC5A227
 PAR      ** MCQ           CAN EVER BE CONFLICT  ..QQ..                                    PAR         1516          I
          -FC5A227
 PAR                SA6    A2                                                              PAR         1517          I
          -FC5A227
 PAR                EQ     TREX        EXIT..                                              PAR         1518     A     
 PAR                                                                                       PAR         1519     A     
 PAR      *         CONFIRMED USER FUNCTION.                                               PAR         1520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         1521     A     
 PAR       TRE74    BSS                                                                    PAR         1522     A     
 PAR       .USER    IFNE   MF.USER                                                         PAR         1523     A     
 PAR                =A3    A2-WB.W+WC.W                                                    PAR         1524     A     
 PAR                =X0    MF.USER                                                         PAR         1525     A     
 PAR                LX0    WC.FUNTP                                                        PAR         1526     A     
 PAR                BX7    X0+X3       SET FUNCTION TYPE = USER FUNC                       PAR         1527     A     
 PAR                SA7    A3                                                              PAR         1528     A     
 PAR       .USER    ENDIF                                                                  PAR         1529     A     
 PAR                CLAS=  X3,WB,(NVAR,FUN,EXT)                                            PAR         1530     A     
 PAR                BX6    X6+X3       MERGE NEW CLASS BITS                                PAR         1531     A     
 PAR                SB2    PAR.FUN                                                         PAR         1532     A     
 PAR                SA6    A2          UPDATE INFO IN SYMTAB                               PAR         1533     A     
 PAR                EQ     TREX        EXIT..                                              PAR         1534     A     
 PAR                                                                                       PAR         1535     A     
 PAR      *         HERE IF NAME NOT FOLLOWED BY LEFT PAREN.                               PAR         1536     A     
 PAR      *         A.  IF EXTERNAL BIT SET, CONTINUE, NOT SETTING ANY OTHER BITS.         PAR         1537     A     
 PAR      *         B.  IF NOT (A), SET VARIABLE BITS DEFINED IN (X2).                     PAR         1538     A     
 PAR                                                                                       PAR         1539     A     
 PAR       TRE76    HX1    WB.DEXT                                                         PAR         1540     A     
 PAR                MI     X1,TREX     IF DECLARED EXTERNAL, DONT CHANGE CLASS             PAR         1541          I
          -FC5A164
 PAR                PL     X1,TRE78    IF NOT DECLARED EXTERNAL, CHANGE CLASS              FC5A164       58     A     
 PAR                SB7    E.VA04                                                          FC5A164       59     A     
 PAR                SX0    X0+O.LP-O.RP                                                    FC5A164       60     A     
 PAR                ZR     X0,TRE77    IF FOLLOWED BY RP                                   FC5A164       61     A     
 PAR                NZ     X4,TRE35    IF NOT FOLLOWED BY A COMMA                          FC5A164       62     A     
 PAR                                                                                       FC5A164       63     A     
 PAR       TRE77    ZR     X5,TREX     IF PRECEDED BY A SLP                                FC5A164       64     A     
 PAR                SX5    X5+O.SLP-O.LP                                                   FC5A164       65     A     
 PAR                ZR     X5,TREX     IF PRECEDED BY LP                                   FC5A164       66     A     
 PAR                NZ     B3,TRE35    IF NOT PRECEDED BY A COMMA                          FC5A164       67     A     
 PAR                EQ     TREX                                                            FC5A164       68     A     
 PAR                                                                                       FC5A164       69     A     
 PAR       TRE78    BX6    X6+X2       CONFIRMED AS VAR                                    PAR         1542     A     
 PAR                SA6    A2                                                              PAR         1543     A     
 PAR                EQ     TREX        EXIT..                                              PAR         1544     A     
 PAR                                                                                       PAR         1545     A     
 PAR      *         HERE IF ELEMENT NOT IN SYMBOL TABLE.                                   PAR         1546     A     
 PAR      *         CHECK IF FOLLOWED BY NON-COLON LEFT PAREN.                             PAR         1547     A     
 PAR      *         IF YES, MUST BE A FUNCTION REFERENCE -- CALL *SLT*.                    PAR         1548     A     
 PAR      *         IF NO,  MUST BE A SIMPLE VARIABLE -- ADD TO TABLE AND EXIT.            PAR         1549     A     
 PAR                                                                                       PAR         1550     A     
 PAR       TRE80    =A1    B4+1                                                            PAR         1551     A     
 PAR                SX2    X1-O.LP                                                         PAR         1552     A     
 PAR                SX4    PAR.NX                                                          PAR         1553     A     
 PAR                NZ     X2,TRE83    IF NOT FOLLOWED BY LPAREN                           PAR         1554     A     
 PAR                HX1    TB.COL                                                          PAR         1555     A     
 PAR                PL     X1,TRE90    IF NOT SUBSTRING LPAREN                             PAR         1556     A     
 PAR                SX4    PAR.SBS                                                         PAR         1557     A     
 PAR                                                                                       FC5A279        8     A     
 PAR       TRE83    CALL   STY         SET MODE                                            PAR         1558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX7    X7+X1       ADD IN CLASS FIELD                                  PAR         1559     A     
 PAR                ADSYM  T.SYM       ADD SYMBOL, TAG TO TABLE                            PAR         1560     A     
 PAR                CALL   CT1         CONSTRUCT OPERAND FOR SYMBOL                        PAR         1561     A     
 PAR                SB2    X4                                                              PAR         1562     A     
 PAR                SA6    CSYTAG      SAVE P2 TAG                                         PAR         1563     A     
 PAR                =A6    A6-CSYTAG+CSYREF                                                PAR         1564     A     
 PAR                BX6    X2                                                              PAR         1565     A     
 PAR                EQ     TREX        EXIT..                                              PAR         1566     A     
 PAR                                                                                       PAR         1567     A     
 PAR      *         HERE IF NOT IN TABLE AND FOLLOWED BY *(*.                              PAR         1568     A     
 PAR      *         EXIT   (NEXT) = 0, SYMBOL ALREADY USED, ARGUMENT COUNT SET.            PAR         1569     A     
 PAR                                                                                       PAR         1570     A     
 PAR       TRE90    BX1    X6                                                              PAR         1571     A     
 PAR                CALL   SLT         SCAN LIBRARY TABLE                                  PAR         1572     A     
 PAR                BX5    X7          REMEMBER SYMTAB (WC) PER SLT                        PAR         1573     A     
 PAR                MX1    0                                                               PAR         1574     A     
 PAR                BX2    0                                                               PAR         1575     A     
 PAR                PL     B2,TRE94    IF INTRINSIC FUNCTION                               PAR         1576     A     
 PAR                CALL   STY         SET IMPLICIT TYPE                                   PAR         1577     A     
 PAR                                                                                       FC5A279        9     A     
 PAR       TRE94    BX7    X1+X3       *WB*                                                PAR         1578     A     
 PAR                BX2    X2+X5       *WC*                                                PAR         1579     A     
 PAR                SA7    CSYWB                                                           PAR         1580     A     
 PAR                ADSYM  T.SYM       ADD NAME TO SYMTAB                                  PAR         1581     A     
 PAR                CALL   CT1         CONSTRUCT OPERAND FOR SYMBOL                        PAR         1582     A     
 PAR                SA6    CSYTAG                                                          PAR         1583     A     
 PAR                =A6    A6-CSYTAG+CSYREF                                                PAR         1584     A     
 PAR                SB2    PAR.FUN     INDICATE EXTERNAL                                   PAR         1585     A     
 PAR                BX6    X2                                                              PAR         1586     A     
 PAR      *         EQ     TREX        EXIT..                                              PAR         1587     A     
 PAR                                                                                       PAR         1588     A     
 PAR                                                                                       PAR         1589     A     
 PAR      **        EXIT ROUTINE, BUT CHECK IF CROSS REFERENCE HAS BEEN REQUESTED          PAR         1590     A     
 PAR      *         FIRST....                                                              PAR         1591     A     
 PAR      *         ENTRY  (CSYMBOL, CSYTAG) = SET UP.                                     PAR         1592     A     
 PAR      *                (X6) = SYMTAB PROPERTY WORD (WB).                               PAR         1593     A     
 PAR      *                (B2) = PROCESSOR ADDRESS.                                       PAR         1594     A     
 PAR                                                                                       PAR         1595     A     
 PAR       TREX     SA6    CSYWB                                                           PAR         1596     A     
 PAR                LX6    -WB.MODEP                                                       F1037F5      444     A     
 PAR                MX1    -WB.MODEL                                                       F1037F5      445     A     
 PAR                BX1    -X1*X6      EXTRACT MODE                                        F1037F5      446     A     
 PAR                LX6    WB.MODEP                                                        F1037F5      447     A     
 PAR                NZ     X1,TREX00   IF NOT MODE BOOLEAN                                 F1037F5      448     A     
 PAR                ERRNZ  M.BOOL                                                          F1037F5      449     A     
 PAR                MDERR  E.MDE2                                                          F1037F5      450     A     
 PAR                                                                                       F1037F5      451     A     
 PAR       TREX00   BX1    X6                                                              F1037F5      452     A     
 PAR                HX1    WB.FUN                                                          F1037F5      453     A     
 PAR                HX6    WB.EXT                                                          F1037F5      454     A     
 PAR                BX1    X1*X6                                                           F1037F5      455     A     
 PAR                PL     X1,TREX0A   IF NOT EXTERNAL FUNCTION                            F1037F5      456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA1    =0LDATE                                                         F1037F5      457     A     
 PAR                SA2    CSYMBOL                                                         F1037F5      458     A     
 PAR                SA3    =0LTIME                                                         F1037F5      459     A     
 PAR                SA4    =0LCLOCK                                                        F1037F5      460     A     
 PAR                BX1    X1-X2                                                           F1037F5      461     A     
 PAR                ZR     X1,TREX0    IF *DATE*                                           F1037F5      462     A     
 PAR                BX1    X3-X2                                                           F1037F5      463     A     
 PAR                ZR     X1,TREX0    IF *TIME*                                           F1037F5      464     A     
 PAR                BX1    X4-X2                                                           F1037F5      465     A     
 PAR                NZ     X1,TREX0A   IF NOT *CLOCK*                                      F1037F5      466     A     
 PAR                                                                                       F1037F5      467     A     
 PAR       TREX0    MDERR  E.MDE5      ** DATE, TIME, AND CLOCK ARE MACHINE DEP.           F1037F5      468     A     
 PAR                                                                                       F1037F5      469     A     
 PAR       TREX0A   LX6    WB.EXTP+1   RESTORE X6                                          F1037F5      470     A     
 PAR                SA1    PARNOW                                                          PAR         1597          I
          -FC5A141
 PAR                SA1    CMLFLG                                                          FC5A141      291     A     
 PAR                ZR     X1,TREX1    IF NOT INPUT LIST ITEMS                             FC5A141      292     A     
 PAR                PL     X1,TREX1    IF NOT ARRAY SUBSCRIPT                              FC5A141      293     A     
 PAR                BX1    X6                                                              FC5A141      294     A     
 PAR                HX1    WB.FUN                                                          FC5A141      295     A     
 PAR                PL     X1,TREX1    IF NOT A FUNCTION                                   FC5A141      296     A     
 PAR                SA1    T=ILI                                                           FC5A141      297     A     
 PAR                ZR     X1,TREX1    IF NO INPUT LIST ITEMS                              FC5A141      298     A     
 PAR                SX6    B2                                                              FC5A141      299     A     
 PAR                SA6    PARPA       PRESERVE PROCESSOR ADDRESS (B2)                     FC5A141      300     A     
 PAR                =X6    0                                                               FC5A141      301          I
          -FC50935
 PAR                =X6    1           INDICATE RESTART                                    FC50935        6     A     
 PAR                CALL   IOJ         ISSUE RESTART                                       FC5A141      302     A     
 PAR                SA1    PARPA                                                           FC5A141      303     A     
 PAR                SA2    CSYWB                                                           FC5A141      304     A     
 PAR                SB2    X1          RESTORE B2                                          FC5A141      305     A     
 PAR                BX6    X2          RESTORE X6                                          FC5A141      306     A     
 PAR                                                                                       FC5A141      307     A     
 PAR       TREX1    SA1    PARNOW                                                          FC5A141      308     A     
 PAR                ZR     X1,TREX8    IF STANDARD PARSE                                   PAR         1598     A     
 PAR                SX1    X1-PM=DIM                                                       PAR         1599     A     
 PAR                NZ     X1,TREX8    IF NOT 'DIM BOUND' PARSING                          PAR         1600     A     
 PAR                SBIT   X6,WB.VARP                                                      PAR         1601     A     
 PAR                SB7    E.DM17                                                          PAR         1602     A     
 PAR                PL     X6,TREX1    IF NOT VARIABLE                                     PAR         1603          I
          -FC5A141
 PAR                PL     X6,TREX2    IF NOT VARIABLE                                     FC5A141      309     A     
 PAR                SBIT   X6,WB.ARYP/WB.VARP                                              PAR         1604     A     
 PAR                SB7    E.DM18                                                          PAR         1605     A     
 PAR                MI     X6,TREX1    IF ARRAY                                            PAR         1606          I
          -FC5A141
 PAR                MI     X6,TREX2    IF ARRAY                                            FC5A141      310     A     
 PAR                SA1    MOD                                                             FC50438       19     A     
 PAR                SB7    E.DM14      ** ADJUSTABLE ARRAY CANT BE IN MAIN PROGRAM         FC50438       20     A     
 PAR                SBIT   X1,MO.PROP                                                      FC50438       21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MI     X1,TREX2    IF IN MAIN PROGRAM                                  FC50438       22     A     
 PAR                SA1    TB=TYPE                                                         FC50438       23     A     
 PAR                SB7    E.DM21      ** ADJUSTABLE ARRAY CANT BE IN COMMON               FC50438       24     A     
 PAR                LX1    -KW.JMPP                                                        FC50438       25     A     
 PAR                SB3    X1                                                              FC50438       26     A     
 PAR                ERRNZ  18-KW.JMPL                                                      FC50438       27     A     
 PAR                SB3    -B3                                                             FC50438       28     A     
 PAR                SX1    B3+KW=COMM                                                      FC50438       29     A     
 PAR                ZR     X1,TREX2    IF PROCESSING COMMON ARRAY                          FC50438       30     A     
 PAR                SA1    T.SYM                                                           FC50438       31     A     
 PAR                SA2    DIRT                                                            FC50438       32     A     
 PAR                SB3    X2                                                              FC50438       33     A     
 PAR                SA1    X1+B3       FETCH ARRAY *WB*                                    FC50438       34     A     
 PAR                SBIT   X1,WB.COMP                                                      FC50438       35     A     
 PAR                MI     X1,TREX2    IF PROCESSING COMMON ARRAY                          FC50438       36     A     
 PAR                SA1    CSYTAG                                                          PAR         1607     A     
 PAR                MX0    -TP.MODEL                                                       PAR         1608     A     
 PAR                LX1    -TP.MODEP                                                       PAR         1609     A     
 PAR                BX1    X0*X1       CLEAR MODE                                          PAR         1610     A     
 PAR                =X0    M.INT                                                           PAR         1611     A     
 PAR                IX6    X1+X0       FORCE MODE INTEGER                                  PAR         1612     A     
 PAR                LX6    TP.MODEP                                                        PAR         1613     A     
 PAR                SA6    A1                                                              PAR         1614     A     
 PAR                SA1    T.SYM                                                           PAR         1615     A     
 PAR                HX6    TP.ORD                                                          PAR         1616     A     
 PAR                AX6    -TP.ORDL    EXTRACT ORDINAL                                     PAR         1617     A     
 PAR                SB3    X6                                                              PAR         1618     A     
 PAR                LX6    1                                                               PAR         1619     A     
 PAR                SB3    X6+B3       CONVERT ORDINAL TO INDEX                            PAR         1620     A     
 PAR                ERRNZ  3-Z=SYM                                                         PAR         1621     A     
 PAR                =B3    B3-WA.W+WB.W                                                    PAR         1622     A     
 PAR                SA1    X1+B3                                                           PAR         1623     A     
 PAR                CLAS=  X6,WB,(VDS)                                                     PAR         1624     A     
 PAR                BX6    X6+X1                                                           PAR         1625     A     
 PAR                SA6    A1          SET VDS BIT FOR THE VARIABLE                        PAR         1626     A     
 PAR                EQ     TREX9                                                           PAR         1627     A     
 PAR                                                                                       PAR         1628     A     
 PAR       TREX1    RJ     DBE         OUTPUT DIMENSION BOUND ERROR                        PAR         1629          I
          -FC5A141
 PAR       TREX2    RJ     DBE         OUTPUT DIMENSION ERROR                              FC5A141      311     A     
 PAR                =A1    B4+1                                                            PAR         1630     A     
 PAR                SX1    X1-O.LP                                                         PAR         1631     A     
 PAR                NZ     X1,TREX6    IF NOT *(* FOLLOWING ILLEGAL NAME                   PAR         1632     A     
 PAR                =B4    B4+1                                                            PAR         1633     A     
 PAR                =B3    1           INITIALIZE *LP* COUNTER                             PAR         1634     A     
 PAR                =B2    0           INITIALIZE *RP* COUNTER                             PAR         1635     A     
 PAR                                                                                       FC5A279       10     A     
 PAR       TREX3    =B4    B4+1                                                            PAR         1636     A     
 PAR                SA1    B4                                                              PAR         1637     A     
 PAR                ZR     X1,PSL      IF *EOS*, EXIT...                                   PAR         1638     A     
 PAR                SB7    X1-O.LP                                                         PAR         1639     A     
 PAR                ZR     B7,TREX4    IF *(*                                              PAR         1640     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB7    X1-O.RP                                                         PAR         1641     A     
 PAR                ZR     B7,TREX5    IF *)*                                              PAR         1642     A     
 PAR                EQ     TREX3                                                           PAR         1643     A     
 PAR                                                                                       FC5A279       11     A     
 PAR       TREX4    =B3    B3+1                                                            PAR         1644     A     
 PAR                EQ     TREX3                                                           PAR         1645     A     
 PAR                                                                                       FC5A279       12     A     
 PAR       TREX5    =B2    B2+1                                                            PAR         1646     A     
 PAR                NE     B2,B3,TREX3                                                     PAR         1647     A     
 PAR                                                                                       FC5A279       13     A     
 PAR       TREX6    SA1    CONONE                                                          PAR         1648     A     
 PAR                =B6    B6+1                                                            PAR         1649     A     
 PAR                LX6    X1                                                              PAR         1650     A     
 PAR                =A6    B6-1                                                            PAR         1651     A     
 PAR                =B4    B4+1        ADVANCE CURSOR PAST *)*                             PAR         1652     A     
 PAR                EQ     PAR.NX                                                          PAR         1653     A     
 PAR                                                                                       PAR         1654     A     
 PAR       TREX8    SBIT   X6,WB.VDSP                                                      PAR         1655     A     
 PAR                PL     X6,TREX9    IF NOT FORWARD REFERENCE FORMAL PARAMETER           PAR         1656     A     
 PAR                FATAL  E.AT04                                                          PAR         1657     A     
 PAR                                                                                       PAR         1658     A     
 PAR       TREX9    SA2    CSYREF                                                          PAR         1659     A     
 PAR                HX2    TP.ORD                                                          PAR         1660     A     
 PAR                SX5    B2          SET (X5) = PROCESSOR ADDRESS                        PAR         1661     A     
 PAR                AX2    -TP.ORDL    ISOLATE (X2) = SYMBOL ORDINAL                       PAR         1662     A     
 PAR                LX2    XR.TAGP                                                         PAR         1663     A     
 PAR                SA1    REFVAR      TYPE OF REFERENCE                                   PAR         1664     A     
 PAR                LX6    X2                                                              PAR         1665     A     
 PAR                ADDREF X6,X1                                                           PAR         1666          I
          -FC5A338
 PAR                SA3    ARGMODE                                                         FC5A338       60     A     
 PAR                SB7    A=UNT                                                           FC5A338       61     A     
 PAR                SB7    -B7                                                             FC5A338       62     A     
 PAR                SB7    X3+B7                                                           FC5A338       63     A     
 PAR                NZ     B7,TREX10   IF NOT UNIT SPECIFIER                               FC5A338       64     A     
 PAR                SA3    CSYTAG                                                          FC5A338       65     A     
 PAR                MX0    -TP.MODEL                                                       FC5A338       66     A     
 PAR                BX0    -X0*X3      EXTRACT MODE                                        FC5A338       67     A     
 PAR                SX0    X0-M.CHAR                                                       FC5A338       68     A     
 PAR                NZ     X0,TREX10   IF NOT INTERNAL FILE                                FC5A338       69     A     
 PAR                SA3    IODIR                                                           FC5A338       70     A     
 PAR                SX1    CR.OUT                                                          FC5A338       71     A     
 PAR                ZR     X3,TREX10   IF READ                                             FC5A338       72     A     
 PAR                SX1    CR.INP                                                          FC5A338       73     A     
 PAR                                                                                       FC5A338       74     A     
 PAR       TREX10   ADDREF X6,X1                                                           FC5A338       75     A     
 PAR       VARX     SPACE  4,10                                                            PAR         1667     A     
 PAR      **        VARX - TRANSLATION OF SYMBOL COMPLETE.                                 PAR         1668     A     
 PAR      *                                                                                PAR         1669     A     
 PAR      *         ENTRY  (X5) = PROCESSOR ADDRESS.                                       PAR         1670     A     
 PAR      *                (ATTR) = ATTRIBUTE BITS TO BE SET FOR PASS 2.                   PAR         1671     A     
 PAR      *                (CSYMBOL, CSYTAG, CSYWB) = SET UP.                              PAR         1672     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         1673     A     
 PAR                                                                                       PAR         1674     A     
 PAR                SB2    X5          (B2) = PROCESSOR JUMP ADDRESS                       PAR         1675     A     
 PAR                SA5    CSYTAG      FETCH (X5) = PASS 1 TAG FORM                        PAR         1676     A     
 PAR                SA4    ATTR                                                            PAR         1677     A     
 PAR                =B4    B4+1                                                            PAR         1678     A     
 PAR                SB6    B6+B1       ADVANCE ESTACK POINTER                              PAR         1679     A     
 PAR                BX6    X4+X5       MERGE P2 ATTRIBUTE BITS                             PAR         1680     A     
 PAR                SA6    B6-B1       STACK THE SYMBOL                                    PAR         1681     A     
 PAR                SA2    CMLFLG                                                          PAR         1682     A     
 PAR                ZR     X2,PAR.VAR7 IF NOT INPUT I/O LIST ITEMS                         PAR         1683     A     
 PAR                MI     X2,PAR.VAR6 IF ARRAY SUBSCRIPT                                  PAR         1684          I
          -FC5A141
 PAR                SX4    B2          SAVE B2                                             PAR         1685          I
          -FC5A141
 PAR                ADDWD  T.ILI       ADD INPUT LIST ITEM TO TABLE                        PAR         1686          I
          -FC5A141
 PAR                SB2    X4                                                              PAR         1687          I
          -FC5A141
 PAR                EQ     PAR.VAR7                                                        PAR         1688          I
          -FC5A141
 PAR       PAR.VAR6 RJ     CML         CHECK FOR MATCH IN LIST TABLE                       PAR         1689          I
          -FC5A141
 PAR                PL     X2,PAR.VAR7 IF NOT ARRAY SUBSCRIPT                              FC5A141      312          I
          -FC5A218
 PAR                =A2    B4+1                                                            FC5A141      313     A     
 PAR                SX0    X2-O.LP                                                         FC5A141      314     A     
 PAR                CALL   CML         CHECK FOR MATCH IN LIST TABLE                       FC5A141      315     A     
 PAR                                                                                       PAR         1690     A     
 PAR      *         TRANSFER TO SELECTED PROCESSOR --                                      PAR         1691     A     
 PAR      *                (X6) = EL-STAK ENTRY = P2 TAG OF SYMBOL.                        PAR         1692     A     
 PAR                                                                                       PAR         1693     A     
 PAR       PAR.VAR7 JP     B2          JUMP TO PROCESS TRANSLATED SYMBOL                   PAR         1694     A     
 PAR      PAR.STFD  SPACE  4,10                                                            PAR         1695     A     
 PAR      **        STFD - PARSE STATEMENT FUNCTION DUMMY ARG. TOKEN.                      PAR         1696     A     
 PAR                                                                                       PAR         1697     A     
 PAR       PAR.STFD LX1    -TB.ACTEP                                                       PAR         1698     A     
 PAR                SA5    X1                                                              PAR         1699     A     
 PAR                ERRNZ  TB.ACTEL-18                                                     PAR         1700     A     
 PAR                MX0    -TB.ORDL                                                        PAR         1701     A     
 PAR                LX1    TB.ACTEP-TB.ORDP                                                PAR         1702     A     
 PAR                BX6    -X0*X1                                                          PAR         1703     A     
 PAR                SA2    T.SYM                                                           PAR         1704     A     
 PAR                LX0    B1,X6                                                           PAR         1705     A     
 PAR                =B7    X2+WB.W                                                         PAR         1706     A     
 PAR                IX0    X0+X6                                                           PAR         1707     A     
 PAR                SA2    B7+X0       WB(DUMMY)                                           PAR         1708     A     
 PAR                =A3    A2+WC.W-WB.W                                                    PAR         1709     A     
 PAR                MX0    -WB.MODEL                                                       PAR         1710     A     
 PAR                LX2    -WB.MODEP                                                       PAR         1711     A     
 PAR                BX6    -X0*X2                                                          PAR         1712     A     
 PAR                MX0    -WC.CLENL                                                       PAR         1713     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX3    -WC.CLENP                                                       PAR         1714     A     
 PAR                BX1    -X0*X3                                                          PAR         1715     A     
 PAR                MX7    -TP.ATTRL                                                       FC50445        7          I
          -FC50652
 PAR                LX7    TP.ATTRP                                                        FC50445        8          I
          -FC50652
 PAR                BX7    -X7*X5      EXTRACT ACTUAL ARGUMENT ATTRIBUTES                  FC50445        9          I
          -FC50652
 PAR                MX7    0           CLEAR ATTRIBUTE SUMP                                FC50652        6     A     
 PAR                SA7    ATTR        UPDATE                                              FC50445       10     A     
 PAR                RJ     CLM         COERCE MODE AND CHARACTER LENGTH                    PAR         1716     A     
 PAR                BX6    X5                                                              PAR         1717     A     
 PAR                SA6    B6          STACK CONVERTED ACTUAL                              PAR         1718     A     
 PAR                =B6    B6+1                                                            PAR         1719     A     
 PAR                =B4    B4+1                                                            PAR         1720     A     
 PAR                ZR     B7,PAR.NX   IF NO CONVERSION PROBLEM                            PAR         1721          I
          -FC50148
 PAR                ZR     B7,STFD1    IF NO CONVERSION PROBLEM                            FC50148        9     A     
 PAR                FATAL  B7                                                              PAR         1722     A     
 PAR                EQ     PAR.NX                                                          PAR         1723     A     
 PAR                                                                                       FC50148       10     A     
 PAR       STFD1    =A1    B4-1                                                            FC50148       11     A     
 PAR                LX1    -TB.ACTEP   ACTUAL ARGUMENT POINTER                             FC50148       12     A     
 PAR                SA1    X1                                                              FC50148       13     A     
 PAR                ERRNZ  18-TB.ACTEL                                                     FC50148       14     A     
 PAR                IX1    X1-X5                                                           FC50148       15     A     
 PAR                ZR     X1,PAR.NX   IF NO MODE COERSION                                 FC50148       16     A     
 PAR                ANSI   E.SF13      ** DUMMY/ACTUAL ARGUMENT TYPES MUST MATCH           FC50148       17     A     
 PAR                EQ     PAR.NX                                                          FC50148       18     A     
 PAR       PAR.SUB  SPACE  4,20                                                            PAR         1724     A     
 PAR      **        HERE IF ELEMENT IS *ARRAY(*.                                           PAR         1725     A     
 PAR                                                                                       PAR         1726     A     
 PAR       PAR.SUB  RJ     SSO         SET UP SUBSCRIPT OPERATOR                           PAR         1727          I
          -FC50281
 PAR       PAR.SUB  SA1    CO.DBSB                                                         FC50281        6     A     
 PAR                PL     X1,PAR.SUB1 IF SUBSCRIPTS IN-LINE                               FC50281        7     A     
 PAR                SA1    T=PAR                                                           FC50281        8     A     
 PAR                BX6    X1                                                              FC50281        9     A     
 PAR                SA6    CURST       INHIBIT SQUEEZE                                     FC50281       10     A     
 PAR                                                                                       FC50281       11     A     
 PAR       PAR.SUB1 RJ     SSO         SET UP SUBSCRIPT OPERATOR                           FC50281       12     A     
 PAR                                   *SSO* RETURNS  (X4) = NEW *ARGMIS*,                 PAR         1728     A     
 PAR                                                  (X7) = NEW *ARGCOMA*.                PAR         1729     A     
 PAR                SA1    CMLFLG                                                          PAR         1730     A     
 PAR                ZR     X1,PAR.SUB1 IF NOT I/O INPUT LIST ITEM                          PAR         1731          I
          -FC50281
 PAR                MI     X1,PAR.SUB1 IF FLAG ALREADY SET FOR A *(*                       PAR         1732          I
          -FC50281
 PAR                ZR     X1,PAR.SUB2 IF NOT I/O INPUT LIST ITEM                          FC50281       13     A     
 PAR                MI     X1,PAR.SUB2 IF FLAG ALREADY SET FOR A *(*                       FC50281       14     A     
 PAR                =X6    -B5         FLAG SET TO ADDR OF *(*                             PAR         1733     A     
 PAR                SA6    A1                                                              PAR         1734     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAR.SUB1 SA3    ARRARM                                                          PAR         1735          I
          -FC50281
 PAR                                                                                       FC50281       15     A     
 PAR       PAR.SUB2 SA3    ARRARM                                                          FC50281       16     A     
 PAR                BX6    X3                                                              PAR         1736     A     
 PAR                =B3    O.SLP                                                           PAR         1737     A     
 PAR                EQ     PAR.SPS     ENTER PAREN STACK                                   PAR         1738     A     
 PAR       PAR.SBS  SPACE  4,10                                                            PAR         1739     A     
 PAR      **        HERE IF ELEMENT IS SUBSTRINGED VARIABLE.                               PAR         1740     A     
 PAR      *                                                                                PAR         1741     A     
 PAR      *         ENTRY  (X6) = VARIABLE BEING SUBSTRINGED.                              PAR         1742     A     
 PAR      *                                                                                PAR         1743     A     
 PAR      *         EXIT   TO PAR.SPS --                                                   PAR         1744     A     
 PAR      *                ARGMIS = OPERAND FOR VARIABLE.                                  PAR         1745     A     
 PAR                                                                                       PAR         1746     A     
 PAR                                                                                       PAR         1747     A     
 PAR       PAR.SBS  BSS    0           ENTRY...                                            PAR         1748     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         1749     A     
 PAR                SA1    B4                                                              PAR         1750     A     
 PAR                HX1    TB.COL                                                          PAR         1751     A     
 PAR                PL     X1,"BLOWUP" IF NOT SUBSTRING LPAREN                             PAR         1752     A     
 PAR       .T       ENDIF                                                                  PAR         1753     A     
 PAR                                                                                       PAR         1754     A     
 PAR                BX4    X6          ARGMIS = OPERAND                                    PAR         1755          I
          -FC5A141
 PAR                SA1    CMLFLG                                                          FC5A141      316     A     
 PAR                ZR     X1,PAR.SBS5 IF NOT I/O INPUT LIST ITEM                          FC5A141      317     A     
 PAR                MI     X1,PAR.SBS5 IF FLAG ALREADY SET FOR SUBSTRING *(*               FC5A141      318     A     
 PAR                =X7    -B5         FLAG SET TO ADDRESS OF *(*                          FC5A141      319     A     
 PAR                SA7    A1                                                              FC5A141      320     A     
 PAR                                                                                       FC5A141      321     A     
 PAR       PAR.SBS5 BX4    X6          ARGMIS = OPERAND                                    FC5A141      322     A     
 PAR                LX6    -TP.MODEP                                                       PAR         1756     A     
 PAR                MX1    -TP.MODEL                                                       PAR         1757     A     
 PAR                SA3    SBSARM                                                          PAR         1758     A     
 PAR                BX7    -X1*X6                                                          PAR         1759     A     
 PAR                SB3    O.SLP                                                           PAR         1760     A     
 PAR                SB2    X7-M.CHAR                                                       PAR         1761     A     
 PAR                LX7    AC.MODEP    ARGCOMA = [MODE, CNT=0]                             PAR         1762     A     
 PAR                BX6    X3          ARGMODE = (SBSARM)                                  PAR         1763     A     
 PAR                ZR     B2,PAR.SPS  IF MODE = CHARACTER                                 PAR         1764     A     
 PAR                FATAL  E.AT16      ** CAN ONLY SUBSTRING CHAR                          PAR         1765     A     
 PAR                EQ     PAR.SPS     SET PAREN STACK                                     PAR         1766          I
          -FC50774
 PAR                RJ     SPE         SKIP THE SUBSTRING                                  FC50774        6     A     
 PAR                SB4    B4+1                                                            FC50774        7     A     
 PAR                EQ     PAR.NX      CONTINUE                                            FC50774        8     A     
 PAR       PAR.FUN  SPACE  4,20                                                            PAR         1767     A     
 PAR      **        HERE IF ELEMENT IS A *FUNCTION* OF SOME KIND ....                      PAR         1768     A     
 PAR                                                                                       PAR         1769     A     
 PAR                                                                                       PAR         1770     A     
 PAR       PAR.FUN  BX0    X6                                                              PAR         1771     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                HX0    TP.ORD                                                          PAR         1772     A     
 PAR                SA1    T.SYM                                                           PAR         1773     A     
 PAR                AX0    -TP.ORDL    ISOLATE (X0) = SYMORD OF FUNCTION                   PAR         1774     A     
 PAR                IX7    X0+X0                                                           PAR         1775     A     
 PAR                =B7    X1+WC.W                                                         PAR         1776     A     
 PAR                IX3    X0+X7       (X3) = INDEX = Z=SYM * ORDINAL                      PAR         1777     A     
 PAR                ERRNZ  3-Z=SYM                                                         PAR         1778     A     
 PAR                SA5    X3+B7       FETCH SYMTAB WORD (WC)                              PAR         1779     A     
 PAR                MX1    -WC.FUNTL                                                       PAR         1780     A     
 PAR                LX5    -WC.FUNTP                                                       PAR         1781     A     
 PAR                BX2    -X1*X5      ISOLATE TYPE OF FUNCTION                            PAR         1782     A     
 PAR                SB7    X2                                                              PAR         1783     A     
 PAR                JP     B7+FUNT     PROCESS EACH FUNCTION TYPE                          PAR         1784     A     
 PAR                                                                                       PAR         1785     A     
 PAR       FUNT     BSS    0                                                               PAR         1786     A     
 PAR                LOC    0                                                               PAR         1787     A     
 PAR                                                                                       PAR         1788     A     
 PAR       MF.USER  SA3    EXTFARM                                                         PAR         1789     A     
 PAR                EQ     FUN.XU      EXTERNAL USER                                       PAR         1790     A     
 PAR                                                                                       PAR         1791     A     
 PAR       MF.STF   EQ     FUN.IS      INLINE STATEMENT FUNCTION                           PAR         1792     A     
 PAR                                                                                       PAR         1793     A     
 PAR       MF.LIB   SA3    INFARM                                                          PAR         1794     A     
 PAR                EQ     FUN.IN      INTRINSIC FUNCTION                                  PAR         1795     A     
 PAR                                                                                       PAR         1796     A     
 PAR       MF.BEF   LX5    WC.FUNTP    RESTORE (X5) = SYMTAB (WC)                          PAR         1797     A     
 PAR                EQ     "BLOWUP"    **** DOES NOT HAPPEN IN PHASE 0 ****                PAR         1798     A     
 PAR                                                                                       PAR         1799     A     
 PAR       MF.INL   SA3    INFARM                                                          PAR         1800     A     
 PAR                EQ     "BLOWUP"                                                        PAR         1801     A     
 PAR                                                                                       PAR         1802     A     
 PAR                LOC    *O                                                              PAR         1803     A     
 PAR       FUN.IS   SPACE  4,10                                                            PAR         1804     A     
 PAR      **        HERE IF REFERENCE TO STATEMENT FUNCTION.                               PAR         1805     A     
 PAR      *                                                                                PAR         1806     A     
 PAR      *         CALL STMFT/SFR TO EXPAND THE REFERENCE BY SUBSTITUTING                 PAR         1807     A     
 PAR      *         PARAMETERS.                                                            PAR         1808     A     
 PAR      *                                                                                PAR         1809     A     
 PAR      *         EXIT   TO PAR.SPS --                                                   PAR         1810     A     
 PAR      *                (B4) -> FIRST TOKEN OF EXPANSION, IN (T.STF).                   PAR         1811     A     
 PAR      *                (B6) RESET ABOVE STATEMENT FUNCTION ESTACK ENTRY.               PAR         1812     A     
 PAR      *                (INSTF) RESET TO INDICATE IN STATEMENT FUNCTION.                PAR         1813     A     
 PAR      *                (ALC.REG) = LOCKS (B4) TO (T.STF).                              PAR         1814     A     
 PAR      *                 ARGMODE = (STFARM).                                            PAR         1815     A     
 PAR      *                 ARGMIS = OPERAND FOR FUNCTION NAME.                            PAR         1816     A     
 PAR      *                 ARGCOMA = B3.                                                  PAR         1817     A     
 PAR                                                                                       PAR         1818     A     
 PAR                                                                                       PAR         1819     A     
 PAR       FUN.IS   =A5    A5+WB.W-WC.W                                                    PAR         1820     A     
 PAR                HX5    WB.SFX                                                          PAR         1821     A     
 PAR                PL     X5,FUN.IN1  IF NOT RECURSIVE FUNCTION NEST                      PAR         1822          I
          -FC5A411
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                PL     X5,FUN.IS1  IF NOT RECURSIVE FUNCTION NEST                      FC5A411       36     A     
 PAR                FATAL  E.SF10                                                          PAR         1823     A     
 PAR                EQ     PAR.STOP                                                        PAR         1824     A     
 PAR                                                                                       PAR         1825     A     
 PAR       FUN.IN1  BX4    X6          ARGMIS = FUNCTION NAME OPERAND                      PAR         1826          I
          -FC5A411
 PAR       FUN.IS1  BX4    X6          ARGMIS = FUNCTION NAME OPERAND                      FC5A411       37     A     
 PAR                SA3    STFARM                                                          PAR         1827     A     
 PAR                =B6    B6-1        UNSTACK SF NAME                                     PAR         1828     A     
 PAR                =X7    B6                                                              PAR         1829     A     
 PAR                LX7    AC.EARGP    ARGCOMA = (ESTACK(ARG1),COMMA COUNT)                PAR         1830     A     
 PAR                BX6    X3                                                              PAR         1831     A     
 PAR                SB3    O.SLP                                                           PAR         1832     A     
 PAR                EQ     PAR.SPS     SET PAREN STACK                                     PAR         1833     A     
 PAR       FUN.II   SPACE  4,10                                                            PAR         1834     A     
 PAR      **        HERE IF INTRINSIC FUNCTION REFERENCE.                                  PAR         1835     A     
 PAR                                                                                       PAR         1836     A     
 PAR       FUN.IN   BSS                                                                    PAR         1837     A     
 PAR                SA1    CSYMBOL     NAME OF INTRINSIC                                   PAR         1838     A     
 PAR                SB3    O.ILP       SET INTRINSIC LEFT-PAREN                            PAR         1839     A     
 PAR                LX0    AS.ORDP                                                         PAR         1840     A     
 PAR                IX4    X1+X0       (X4) = ARGMIS   = AS.[SYM, ORD]                     PAR         1841     A     
 PAR                SA2    =4LLOCF                                                         PAR         1842     A     
 PAR                IX7    X1-X2                                                           PAR         1843     A     
 PAR                NZ     X7,FUN.IN2  IF THIS IS NOT 'LOCF'                               PAR         1844          I
          -FC5A411
 PAR                NZ     X7,FUN.IN1  IF THIS IS NOT 'LOCF'                               FC5A411       38     A     
 PAR                CLAS=  X1,AM,(ARE,FUN,LEV3)                                            PAR         1845     A     
 PAR                BX3    X1+X3       ALLOW UN-LOADABLE NAMES                             PAR         1846     A     
 PAR       FUN.IN2  BX6    X3          (X6) = ARGMODE                                      PAR         1847          I
          -FC5A411
 PAR                BX7    0           CLEAR (ARGMODE) INITIALLY                           PAR         1848          I
          -FC5A411
 PAR                                                                                       FC5A411       39     A     
 PAR       FUN.IN1  BX6    X3          ARGMODE                                             FC5A411       40     A     
 PAR                BX7    0           CLEAR ARGCOMA INITIALLY                             FC5A411       41     A     
 PAR                ERRNZ  M.BOOL      IF FALSE, MUST INITIALIZE AC.MODE TO M.BOOL         FC5A411       42     A     
 PAR                EQ     PAR.SPS     ENTER PAREN STACK                                   PAR         1849     A     
 PAR       FUN.XU   SPACE  4,10                                                            PAR         1850     A     
 PAR      **        HERE IF REFERENCE TO AN EXTERNAL FUNCTION.                             PAR         1851     A     
 PAR                                                                                       PAR         1852     A     
 PAR       FUN.XU   LX5    WC.FUNTP-1-WC.CTYPP                                             PAR         1853     A     
 PAR                PL     X5,FUN.XU4  IF NOT ASSUMED-LENGTH CHARACTER                     PAR         1854     A     
 PAR                MX1    1                                                               PAR         1855     A     
 PAR                BX7    -X1*X5      CLEAR (WC.CTYP), TO AVOID FURTHER MESSAGES          PAR         1856     A     
 PAR                LX7    WC.CTYPP+1                                                      PAR         1857     A     
 PAR                SA7    A5                                                              PAR         1858     A     
 PAR                FATAL  E.VA12      ** F.P. FUNCTION WITH LENGTH=(*)                    PAR         1859     A     
 PAR       FUN.XU4  MX2    -TP.MODEL                                                       PAR         1860     A     
 PAR                BX4    X6                                                              PAR         1861     A     
 PAR                LX6    -TP.MODEP                                                       PAR         1862     A     
 PAR                BX7    -X2*X6      EXTRACT (X7) = MODE OF FUNCTION                     PAR         1863     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ERRMI  AC.MODEL-WB.MODEL                                               PAR         1864     A     
 PAR                BX6    X3                                                              PAR         1865     A     
 PAR                LX7    AC.MODEP                                                        PAR         1866     A     
 PAR                SA2    T=BLST                                                          PAR         1867     A     
 PAR                ZR     X2,FUN.XU5  IF NOT IN BLOCK STRUCTURE                           PAR         1868     A     
 PAR                CLAS=  X0,WB,(DLER)                                                    PAR         1869     A     
 PAR                BX5    X7                                                              PAR         1870     A     
 PAR                CALL   PDA         PROPOGATE DO LOOP ATTRIBUTE                         PAR         1871     A     
 PAR                BX7    X5                                                              PAR         1872     A     
 PAR       FUN.XU5  SB3    O.SLP                                                           PAR         1873     A     
 PAR                EQ     PAR.SPS                                                         PAR         1874     A     
 PAR                TITLE  PARSE/ANALYZE NEXT SEPARATOR.                                   PAR         1875     A     
 PAR       PAR.SPS  SPACE  4,25                                                            PAR         1876     A     
 PAR      **        SPS - SET PARENTHESIS STACK.                                           PAR         1877     A     
 PAR      *                                                                                PAR         1878     A     
 PAR      *                                                                                PAR         1879     A     
 PAR      *         ENTRY  (X4) = NEW VALUE FOR ARGMIS.                                    PAR         1880     A     
 PAR      *                (X6) = NEW VALUE FOR ARGMODE.                                   PAR         1881     A     
 PAR      *                (X7) = NEW VALUE FOR ARGCOMA.                                   PAR         1882     A     
 PAR      *                (B3) = TOKEN VALUE TO BE ENTERED IN OSTACK.  MUST BE            PAR         1883     A     
 PAR      *                       A LEFT PAREN OPERATOR (O.LP, O.SLP, ETC.).               PAR         1884     A     
 PAR      *                (B4) _ LEFT PAREN IN *TB*.                                      PAR         1885     A     
 PAR      *                                                                                PAR         1886     A     
 PAR      *         EXIT   WITH *ADDOP* ENTRY CONDITIONS SET.                              PAR         1887     A     
 PAR      *                (X1) = SPECIAL LEFT PAREN TOKEN VALUE (=B3 ON ENTRY).           PAR         1888     A     
 PAR      *                (X2) = STANDARD LEFT PAREN OPERATOR.                            PAR         1889     A     
 PAR      *                (B3) = TOKEN VALUE OF NEXT *TB* ENTRY.                          PAR         1890     A     
 PAR      *                (B4) _ NEXT *TB* ENTRY.                                         PAR         1891     A     
 PAR      *                (B5) = ADVANCED BY:  Z=PSTACK + 1                               PAR         1892          I
          -FC51075
 PAR      *                (B5) = ADVANCED BY:  1                                          FC51075       12     A     
 PAR      *                                                                                PAR         1893     A     
 PAR      *         RESET ...                                                              PAR         1894     A     
 PAR      *                (ARGMODE,ARGCOMA,ARGMIS).                                       PAR         1895     A     
 PAR      *                (REFVAR).                                                       PAR         1896     A     
 PAR      *                                                                                PAR         1897     A     
 PAR      *         OPERATOR STACK UPON EXIT ...                                           PAR         1898     A     
 PAR      *                N   = OLD *ARGMODE*.                                            PAR         1899          I
          -FC51075
 PAR      *                N+1 = OLD *ARGCOMA*.                                            PAR         1900          I
          -FC51075
 PAR      *                N+2 = OLD *ARGMIS*.                                             PAR         1901          I
          -FC51075
 PAR      *                N+3 = LEFT PAREN OPERATOR.                                      PAR         1902          I
          -FC51075
 PAR      *                N = LEFT PAREN OPERATOR                                         FC51075       13     A     
 PAR      *                                                                                FC51075       14     A     
 PAR      *         PARSER CONTEXT STACK ( T.PCS ) UPON EXIT ...                           FC51075       15     A     
 PAR      *                N - 2      =  OLD ARGMODE                                       FC51075       16     A     
 PAR      *                N - 1      =  OLD ARGCOMA                                       FC51075       17     A     
 PAR      *                N          =  OLD ARGMIS                                        FC51075       18     A     
 PAR                                                                                       PAR         1903     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         1904     A     
 PAR       PAR.SPS  BX0    X6                                                              PAR         1905          I
          -FC51075
 PAR       PAR.SPS  SA6    SV67        SAV NEW ARGMODE                                     FC51075       19     A     
 PAR                SA7    A6+1        SAV NEW ARGCOMA                                     FC51075       20     A     
 PAR                SA2    ARGMODE                                                         PAR         1906     A     
 PAR                SA6    A2          RESET NEW *ARGMODE*                                 PAR         1907          I
          -FC51075
 PAR                BX6    X2                                                              PAR         1908          I
          -FC51075
 PAR                =A6    B5+1        SAVE OLD VALUE FOR ARGMODE TO *OSTACK*              PAR         1909          I
          -FC51075
 PAR                LX6    X2                                                              FC51075       21     A     
 PAR                ADDWD  T.PCS       SAVE OLD VALUE FOR ARGMODE TO T.PCS                 FC51075       22     A     
 PAR                SA5    ARGCOMA                                                         PAR         1910     A     
 PAR                SB5    B5+Z=PSTACK                                                     PAR         1911          I
          -FC51075
 PAR                SB2    ESTACK-4*Z=PSTACK                                               PAR         1912          I
          -FC51075
 PAR                LX6    X5                                                              FC51075       23     A     
 PAR                ADDWD  T.PCS       SAVE OLD VALUE FOR ARGCOMA TO T.PCS                 FC51075       24     A     
 PAR                SB2    ESTACK-4                                                        FC51075       25     A     
 PAR                SB7    E.LP3       ** EXPRESSION TOO COMPLICATED                       PAR         1913     A     
 PAR                GE     B5,B2,POP.RP5     IF OUT OF ROOM                                PAR         1914     A     
 PAR                BX6    X5                                                              PAR         1915          I
          -FC51075
 PAR                HX0    AM.REF                                                          PAR         1916          I
          -FC51075
 PAR                SA3    ARGMIS                                                          PAR         1917     A     
 PAR                SA7    A5          RESET NEW *ARGCOMA*                                 PAR         1918          I
          -FC51075
 PAR                =A6    A6+1        SAVE OLD VALUE FOR ARGCOMA TO *OSTACK*              PAR         1919          I
          -FC51075
 PAR                LX7    X3                                                              PAR         1920          I
          -FC51075
 PAR                BX6    X4                                                              PAR         1921          I
          -FC51075
 PAR                BX6    X3                                                              FC51075       26     A     
 PAR                ADDWD  T.PCS       SAVE OLD VALUE FOR ARGMIS TO T.PCS                  FC51075       27     A     
 PAR                SX1    B3          DPC FOR *(*                                         PAR         1922     A     
 PAR                =A7    A6+1        SAVE OLD VALUE FOR ARGMIS TO *OSTACK*               PAR         1923          I
          -FC51075
 PAR                SA2    SV67                                                            FC51075       28     A     
 PAR                SA3    A2+1                                                            FC51075       29     A     
 PAR                BX6    X2          NEW ARGMODE                                         FC51075       30     A     
 PAR                LX7    X3          NEW ARGCOMA                                         FC51075       31     A     
 PAR                SA6    ARGMODE     RESET NEW *ARGMODE*                                 FC51075       32     A     
 PAR                SA7    ARGCOMA     RESET NEW *ARGCOMA*                                 FC51075       33     A     
 PAR                BX0    X6                                                              FC51075       34     A     
 PAR                LX7    X4                                                              FC51075       35     A     
 PAR                HX0    AM.REF                                                          FC51075       36     A     
 PAR                SA7    ARGMIS      RESET NEW *ARGMIS*                                  FC51075       37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA2    F.PRIOR-O.SEP+O.LP                                              PAR         1924     A     
 PAR                AX0    AM.REFP                                                         PAR         1925     A     
 PAR                =B4    B4+1        UPDATE TO NEXT ELEMENT                              PAR         1926     A     
 PAR                BX7    X0                                                              PAR         1927     A     
 PAR                SA6    A3          RESET NEW *ARGMIS*                                  PAR         1928     A     
 PAR                SA7    REFVAR      SET REFERENCE CELL TO NEW VALUE                     PAR         1929     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         1930          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104       83     A     
 PAR                SB5    B5+B1                                                           PAR         1931     A     
 PAR                LX0    TH.TBPRP                                                        PAR         1932          I
          -FC50104
 PAR                LX0    SP.TBPRP                                                        FC50104       84     A     
 PAR                BX3    X0*X2                                                           PAR         1933     A     
 PAR                IX6    X3+X1       CONSTRUCT LOP INSTAK SETOP WORD                     PAR         1934     A     
 PAR                SA6    B5                                                              PAR         1935     A     
 PAR                =A5    B4                                                              PAR         1936     A     
 PAR                SB3    X5                                                              PAR         1937     A     
 PAR                ERRNZ  18-TB.TOTL                                                      PAR         1938     A     
 PAR                SA3    X1-O.DEF+F.CONO                                                 PAR         1939     A     
 PAR                LX4    B3,X3                                                           PAR         1940     A     
 PAR                MI     X4,PAR.NX   IF CURRENT / NEXT TOKEN PAIR LEGAL                  PAR         1941     A     
 PAR                                                                                       PAR         1942     A     
 PAR      *         CHECK FOR IRREGULAR SYNTAX ALLOWED FOR --                              PAR         1943     A     
 PAR      *         ( )    FUNCTION WITH NO ARGUMENTS.                                     PAR         1944     A     
 PAR      *         ( :    SUBSTRING DEFAULT FIRST.                                        PAR         1945     A     
 PAR                                                                                       PAR         1946     A     
 PAR                SB2    X5-O.RP                                                         PAR         1947     A     
 PAR                SA2    ARGMODE                                                         PAR         1948     A     
 PAR                LX2    -AM.PADP                                                        PAR         1949     A     
 PAR                ERRNZ  18-AM.PADL                                                      PAR         1950     A     
 PAR                NZ     B2,PAR.SPS2 IF NOT RIGHT PAREN                                  PAR         1951     A     
 PAR                SB2    X2-A=FUN                                                        PAR         1952     A     
 PAR                ZR     B2,PAR.SPS1 IF PROCESSING FUNCTION                              PAR         1953     A     
 PAR                SB2    X2-A=STFA                                                       PAR         1954     A     
 PAR                ZR     B2,PAR.SPS1 IF PROCESSING ASF                                   PAR         1955     A     
 PAR                SB2    X2-A=INF                                                        PAR         1956     A     
 PAR                NZ     B2,PAREX    IF NOT PROCESSING INTRINSIC FUNCTION                PAR         1957     A     
 PAR       PAR.SPS1 SA2    ARGCOMA                                                         PAR         1958     A     
 PAR                MX7    AC.CNTL-1                                                       PAR         1959     A     
 PAR                LX7    AC.CNTL+AC.CNTP                                                 PAR         1960     A     
 PAR                BX7    X2+X7       MAKE COUNT -1 FOR NULL ARGUMENT LIST                PAR         1961     A     
 PAR                SA7    A2                                                              PAR         1962     A     
 PAR                EQ     PAR.NX                                                          PAR         1963     A     
 PAR                                                                                       PAR         1964     A     
 PAR       PAR.SPS2 =B2    B2+O.RP-O.COLON                                                 PAR         1965     A     
 PAR                NZ     B2,PAREX    IF NOT COLON                                        PAR         1966          I
          -FC5A167
 PAR                NZ     B2,PAR.SPS5 IF NOT COLON                                        FC5A167        4     A     
 PAR                SB2    X2-A=SBS                                                        PAR         1967     A     
 PAR                NZ     B2,PAREX    IF NOT SUBSTRING LPAREN                             PAR         1968     A     
 PAR                SA1    CONONE                                                          PAR         1969     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX6    X1                                                              PAR         1970     A     
 PAR                SB6    B6+B1       INVENT AND STACK DEFAULT FIRST OPERAND              PAR         1971     A     
 PAR                SA6    B6-B1                                                           PAR         1972     A     
 PAR                EQ     PAR.NX                                                          PAR         1973     A     
 PAR                                                                                       FC5A167        5     A     
 PAR       PAR.SPS5 =B2    B2+O.COLON-O.EOS                                                FC5A167        6     A     
 PAR                NZ     B2,PAREX    IF NOT EOS                                          FC5A167        7     A     
 PAR                =B4    B4-1        **KLUDGE** TO PREVENT MODE OUT ON  ( EOS            FC5A167        8     A     
 PAR                EQ     PAREX                                                           FC5A167        9     A     
 PAR                                                                                       FC51075       38     A     
 PAR       SV67     BSS    2                                                               FC51075       39     A     
 PAR       PAR.CM   EJECT  4,8                                                             PAR         1974     A     
 PAR      **        PROCESS COMMA OPERATOR.                                                PAR         1975     A     
 PAR      *                                                                                PAR         1976     A     
 PAR      *         WHEN A COLON IS LEGAL, IT IS PARSED THE SAME AS A COMMA.               PAR         1977     A     
 PAR      ** FV     IT WOULD BE NICE TO TELL HERE A BIT ABOUT (OSTACK) FLUSHING.           PAR         1978     A     
 PAR      *         MOTIVATION FOR THE FOLLOWING CODE IS NOT EXACTLY STRAIGHT-             PAR         1979     A     
 PAR      *         FORWARD.                                                               PAR         1980     A     
 PAR                                                                                       PAR         1981     A     
 PAR                                                                                       PAR         1982     A     
 PAR       PAR.CM   BSS    0                                                               PAR         1983     A     
 PAR                SA4    ARGMODE                                                         FC5A414        5     A     
 PAR                LX4    -AM.PADP                                                        FC5A414        6          I
          -FC50985
 PAR                SB7    X4-A=ARRAY                                                      FC5A414        7          I
          -FC50985
 PAR                ERRNZ  18-AM.PADL                                                      FC5A414        8          I
          -FC50985
 PAR                ZR     B7,PAR.CM1  IF SUBSCRIPT, DONT INHIBIT SQUEEZE                  FC5A414        9          I
          -FC50985
 PAR                SA1    T=PAR                                                           FC50612       13          I
          -FC50985
 PAR                BX6    X1                                                              FC50612       14          I
          -FC50985
 PAR                SA6    CURST       RESET SQUEEZE LIMIT                                 FC50612       15          I
          -FC50985
 PAR                SA4    ARGMODE                                                         PAR         1984          I
          -FC5A414
 PAR                LX4    -AM.PADP                                                        PAR         1985          I
          -FC5A414
 PAR                ZR     X5,PAR.CM8  IF *,* FOLLOWED BY *EOS*                            PAR         1986          I
          -FC5A414
 PAR                                                                                       FC5A414       10          I
          -FC50985
 PAR       PAR.CM1  ZR     X5,PAR.CM8  IF *,* FOLLOWED BYE *EOS*                           FC5A414       11          I
          -FC50985
 PAR                ZR     X5,PAR.CM9  IF *,* FOLLOWED BYE *EOS*                           FC50985        8     A     
 PAR                ERRNZ  O.EOS                                                           PAR         1987     A     
 PAR                                                                                       PAR         1988     A     
 PAR      *         POP HOLDING STACK FOR ARGUMENT.                                        PAR         1989     A     
 PAR      *         JOINED HERE BY COLON PARSING.                                          PAR         1990     A     
 PAR                                                                                       PAR         1991     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAR.CM5  LX3    -TH.STPRP                                                       PAR         1992          I
          -FC50104
 PAR                MX4    -TH.STPRL                                                       PAR         1993          I
          -FC50104
 PAR       PAR.CM5  LX3    -SP.STPRP                                                       FC50104       85     A     
 PAR                MX4    -SP.STPRL                                                       FC50104       86     A     
 PAR                BX3    -X4*X3      EXTRACT (X3) = LOP STACK PRIORITY                   PAR         1994     A     
 PAR                SB7    PR.SLP+1                                                        PAR         1995     A     
 PAR                SB7    -B7                                                             PAR         1996     A     
 PAR                SB7    X3+B7                                                           PAR         1997     A     
 PAR                MI     B7,PAR.CM7  IF NOT ARITHMETIC OPERATOR                          PAR         1998     A     
 PAR                =X6    O.COMMA                                                         PAR         1999     A     
 PAR                SA3    B5          (X3) = POPP-ED OPERATOR                             PAR         2000     A     
 PAR                LX6    TH.TBPRP                                                        PAR         2001          I
          -FC50104
 PAR                LX6    SP.TBPRP                                                        FC50104       87     A     
 PAR                =B5    B5-1                                                            PAR         2002     A     
 PAR                LX1    X6                                                              PAR         2003     A     
 PAR                SA6    POPDPC      INDICATE *,* CAUSING POP                            PAR         2004     A     
 PAR                RJ     POP         POP OPERATOR                                        PAR         2005     A     
 PAR                SA3    B5                                                              PAR         2006     A     
 PAR                EQ     PAR.CM5     LOOP                                                PAR         2007     A     
 PAR                                                                                       PAR         2008     A     
 PAR      *         SET COMMA INTO OPERATOR STACK AND POP ARGUMENT.                        PAR         2009     A     
 PAR                                                                                       PAR         2010     A     
 PAR       PAR.CM7  SA1    B4                                                              PAR         2011     A     
 PAR                LX1    -TB.TOTP                                                        PAR         2012     A     
 PAR                SA2    F.PRIOR-O.SEP+X1                                                PAR         2013     A     
 PAR                ERRNZ  18-TB.TOTL                                                      PAR         2014     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         2015          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104       88     A     
 PAR       .T       IFEQ   TEST,ON     ASSERT:  TOKEN IN [COMMA, COLON]                    PAR         2016     A     
 PAR       A        BITMIC (O.COMMA,O.COLON)                                               PAR         2017     A     
 PAR                SB7    X1                                                              PAR         2018     A     
 PAR                SA3    ="A"                                                            PAR         2019     A     
 PAR                LX6    X3,B7                                                           PAR         2020     A     
 PAR                PL     X6,"BLOWUP"                                                     PAR         2021     A     
 PAR       .T       ENDIF                                                                  PAR         2022     A     
 PAR                LX0    TH.TBPRP                                                        PAR         2023          I
          -FC50104
 PAR                LX1    TH.TBPRP                                                        PAR         2024          I
          -FC50104
 PAR                LX0    SP.TBPRP                                                        FC50104       89     A     
 PAR                LX1    SP.TBPRP                                                        FC50104       90     A     
 PAR                BX3    X0*X2       FORM COP INSTAK SETOP WORD                          PAR         2025     A     
 PAR                IX6    X3+X1                                                           PAR         2026     A     
 PAR                =A6    B5+1        *,* OPERATOR TO OP-STACK                            PAR         2027     A     
 PAR                                                                                       PAR         2028     A     
 PAR      *         POP COMMA OPERATOR.  ADD IMPLIED COMMA TO OPERATOR STACK               PAR         2029     A     
 PAR      *         IF NEXT IS *EOS*.                                                      PAR         2030     A     
 PAR                                                                                       PAR         2031     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX3    X6                                                              PAR         2032     A     
 PAR                SA1    B5                                                              PAR         2033     A     
 PAR                RJ     POP         POP COMMA OPERATOR                                  PAR         2034     A     
 PAR                SA3    ARGMODE                                                         PAR         2035     A     
 PAR                LX3    -AM.PADP                                                        PAR         2036     A     
 PAR                SB7    X3-A=LIST                                                       PAR         2037          I
          -FC50985
 PAR                ERRNZ  18-AM.PADL                                                      FC50985        9     A     
 PAR                SB7    X3-A=ARRAY                                                      FC50985       10     A     
 PAR                ZR     B7,PAR.CM8  IF SUBSCRIPT DONT INHIBIT SQUEEZE                   FC50985       11     A     
 PAR                SA1    T=PAR                                                           FC50985       12     A     
 PAR                BX6    X1                                                              FC50985       13     A     
 PAR                SA6    CURST       RESET SQUEEZE LIMIT                                 FC50985       14     A     
 PAR                                                                                       FC50985       15     A     
 PAR       PAR.CM8  SB7    X3-A=LIST                                                       FC50985       16     A     
 PAR                ERRNZ  18-AM.PADL                                                      PAR         2038          I
          -FC50985
 PAR                ZR     B7,PAREXIT  IF IN I/O LIST                                      PAR         2039     A     
 PAR                SB7    X3-A=DVL                                                        FC50147        7     A     
 PAR                ZR     B7,PAREXIT  IF IN DATA VARIABLE LIST                            FC50147        8     A     
 PAR                =B4    B4+1        NEXT                                                PAR         2040     A     
 PAR                EQ     PAR.NX                                                          PAR         2041     A     
 PAR                                                                                       PAR         2042     A     
 PAR      *         HERE IF COMMA FOLLOWED BY *EOS*.  LEGAL ONLY IN I/O LIST.              PAR         2043     A     
 PAR                                                                                       PAR         2044     A     
 PAR       PAR.CM8  SB2    X4-A=LIST                                                       PAR         2045          I
          -FC50985
 PAR       PAR.CM9  SB2    X4-A=LIST                                                       FC50985       17     A     
 PAR                NZ     B2,PAREX    IF NOT I/O LIST PROCESSING                          PAR         2046     A     
 PAR                =B4    B4+1                                                            PAR         2047     A     
 PAR                EQ     PAR.NX      CONTINUE TO NEXT                                    PAR         2048     A     
 PAR       PAR.COL  SPACE  4,10                                                            PAR         2049     A     
 PAR      **        PAR.COL - PARSE COLON.                                                 PAR         2050     A     
 PAR      *                                                                                PAR         2051     A     
 PAR      *         VERIFY THAT COLON IS LEGAL IN THIS (ARGMODE).                          PAR         2052     A     
 PAR      *         THEN HANDLE AS IF IT WERE A COMMA.  THIS MEANS THAT ALL (C=)           PAR         2053     A     
 PAR      *         PROCESSORS FOR CONTEXTS WHERE COLON IS LEGAL MUST BE ABLE TO           PAR         2054     A     
 PAR      *         PROPERLY DISCRIMINATE BETWEEN COMMA AND COLON.                         PAR         2055     A     
 PAR      *                                                                                PAR         2056     A     
 PAR      *         ALSO PERMITS IRREGULAR SYNTAX FOR OMITTED SUBSTRING-LAST.              PAR         2057     A     
 PAR                                                                                       PAR         2058     A     
 PAR                                                                                       PAR         2059     A     
 PAR       PAR.COL  BSS                ENTRY...                                            PAR         2060     A     
 PAR                SA4    ARGMODE                                                         PAR         2061     A     
 PAR                LX4    -AM.PADP                                                        PAR         2062     A     
 PAR                SB7    X4          (B7) = PAREN POPPER ADDRESS                         PAR         2063     A     
 PAR                ERRNZ  18-AM.PADL                                                      PAR         2064     A     
 PAR                LX4    AM.PADP-1-AM.COLP                                               PAR         2065     A     
 PAR                PL     X4,PAR.ERR  IF COLON NOT PERMITTED                              PAR         2066     A     
 PAR                SB2    X5-O.RP                                                         PAR         2067     A     
 PAR                NZ     B2,PAR.CM5  IF NOT FOLLOWED BY RPAREN                           PAR         2068     A     
 PAR                SB2    A=SBS                                                           PAR         2069     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     B2,B7,PAR.CM5     IF A SUBSTRING COLON                          PAR         2070     A     
 PAR                SB2    A=PIX                                                           PAR         2071     A     
 PAR                EQ     B2,B7,PAR.CM5     IF PIX CALL -- DIAGNOSIS BY CALLER            PAR         2072     A     
 PAR                EQ     PAREX                                                           PAR         2073     A     
 PAR       PAR.LP   EJECT  4,8                                                             PAR         2074     A     
 PAR      **        HERE IF UNQUALIFIED LEFT PARENTHESIS.                                  PAR         2075     A     
 PAR      *         IF THIS IS AN ARRAY SUBSTRING LPAREN, THEN (TB.SBS) WILL               PAR         2076     A     
 PAR      *         HAVE BEEN SET WHEN THE SUBSCRIPT RPAREN WAS FOUND.  OTHERWISE,         PAR         2077     A     
 PAR      *         IF IT IS NOT PART OF A COMPLEX CONSTANT, THEN IT ENCLOSES              PAR         2078     A     
 PAR      *         SOME EXPRESSION.                                                       PAR         2079     A     
 PAR                                                                                       PAR         2080     A     
 PAR                                                                                       PAR         2081     A     
 PAR       PAR.LP   BSS    0                                                               PAR         2082     A     
 PAR                SA4    B4                                                              PAR         2083     A     
 PAR                HX4    TB.SBS                                                          PAR         2084     A     
 PAR                PL     X4,PAR.LP2  IF NOT A SUBSTRING LEFT PAREN                       PAR         2085     A     
 PAR                SA1    B6-B1                                                           PAR         2086     A     
 PAR                BX6    X1          OBJECT OF SUBSTRING IS STACK TOP                    PAR         2087     A     
 PAR                EQ     PAR.SBS                                                         PAR         2088     A     
 PAR                                                                                       PAR         2089     A     
 PAR       PAR.LP2  LX4    -TB.SBSP                                                        PAR         2090     A     
 PAR                RJ     CFC         CHECK FOR COMPLEX CONSTANT                          PAR         2091     A     
 PAR                SB4    A4                                                              PAR         2092     A     
 PAR                ZR     X0,PAR.LP5  IF CPLX CONST                                       PAR         2093     A     
 PAR                =X7                                                                    PAR         2094     A     
 PAR                SA1    LPARM                                                           PAR         2095     A     
 PAR                SB3    O.LP                                                            PAR         2096     A     
 PAR                BX6    X1                                                              PAR         2097     A     
 PAR                MX4    0                                                               PAR         2098     A     
 PAR                EQ     PAR.SPS                                                         PAR         2099     A     
 PAR                                                                                       PAR         2100     A     
 PAR       PAR.LP5  BX6    X1          REAL PART, IMAGINARY IN X2                          PAR         2101     A     
 PAR                =X1    M.CPLX                                                          PAR         2102     A     
 PAR                =B4    B4-1                                                            PAR         2103     A     
 PAR                EQ     TNK.DBL                                                         PAR         2104     A     
 PAR       PAR.DLP  SPACE  4,10                                                            PAR         2105     A     
 PAR      **        HERE IF DUMMY LEFT PAREN AT BEGINNING OF *TB* FOUND.                   PAR         2106     A     
 PAR      *                                                                                PAR         2107     A     
 PAR      *         PROCESS BY SETTING PAREN STACK TO PROPER MODE FOR OPERATING            PAR         2108     A     
 PAR      *         WITHIN CURRENT STATEMENT, THEN ADD SPECIAL PAREN TO OPERATOR           PAR         2109     A     
 PAR      *         STACK.                                                                 PAR         2110     A     
 PAR                                                                                       PAR         2111     A     
 PAR       PAR.DLP  BSS    0                                                               PAR         2112     A     
 PAR                SA3    ARGMODE                                                         PAR         2113     A     
 PAR                SA2    ARGCOMA                                                         PAR         2114     A     
 PAR                SB3    X1          OPERATOR                                            PAR         2115     A     
 PAR                BX6    X3                                                              PAR         2116     A     
 PAR                LX7    X2                                                              PAR         2117     A     
 PAR                EQ     PAR.SPS     SET PAREN STACK                                     PAR         2118     A     
 PAR       PAR.RP   SPACE  4,10                                                            PAR         2119     A     
 PAR      **        HERE FOR ALL RIGHT PARENS.                                             PAR         2120     A     
 PAR      *                                                                                PAR         2121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      ** FV            ----- THIS NEEDS WORK ----                                      PAR         2122     A     
 PAR      *         THE CONO TABLE ENTRY FOR RIGHT PAREN ALLOWS TWO FOLLOWERS              PAR         2123     A     
 PAR      *         WHICH ARE NOT PERMITTED IN NORMAL CONTEXTS --                          PAR         2124     A     
 PAR      *                O.LP     O.VAR                                                  PAR         2125     A     
 PAR      *         ARE LEGAL RIGHT PAREN FOLLOWER TOKENS ONLY WHEN --                     PAR         2126     A     
 PAR      *                CHARARY (SUBX) (F : L)                                          PAR         2127     A     
 PAR      *                IOVERB (IOCTL) VAR                                              PAR         2128     A     
 PAR      *                IOVERB (IOCTL) (IOLOOP...)                                      PAR         2129     A     
 PAR      *                IF (EXPR) VAR ...                                               PAR         2130     A     
 PAR      *         THE CHARACTER ARRAY SUBSTRING CONTEXT IS DISCOVERED BY                 PAR         2131     A     
 PAR      *         THE CODE BELOW.  THE OTHER STRANGE CONTEXTS ARE DENOTED                PAR         2132     A     
 PAR      *         BY THE (AM.RP) BIT IN THE CURRENT (ARGMODE).  WHEN NONE                PAR         2133     A     
 PAR      *         OF THESE "SPECIAL" RULES APPLY, WE MUST TREAT VAR AND LP               PAR         2134     A     
 PAR      *         AS CONO VIOLATIONS.                                                    PAR         2135     A     
 PAR      *                                                                                PAR         2136     A     
 PAR      *         ENTRY  (A5, X5) = NEXT TOKEN.                                          PAR         2137     A     
 PAR                                                                                       PAR         2138     A     
 PAR                                                                                       PAR         2139     A     
 PAR       PAR.RP   BSS                                                                    PAR         2140     A     
 PAR                MX7    1                                                               PAR         2141     A     
 PAR                SB7    O.LP                                                            PAR         2142     A     
 PAR                SB2    X5          (B2) = NEXT TOKEN                                   PAR         2143     A     
 PAR                ERRNZ  TB.TOTP                                                         PAR         2144     A     
 PAR                HX5    TB.COL                                                          PAR         2145     A     
 PAR                SA4    ARGMODE                                                         PAR         2146     A     
 PAR                NE     B7,B2,PAR.RP1     IF NOT FOLLOWED BY LEFT PAREN                 PAR         2147     A     
 PAR                SB2    A=DOCS                                                          PAR         2148     A     
 PAR                SB7    X4                                                              PAR         2149     A     
 PAR                ERRNZ  18-AM.PADL                                                      PAR         2150     A     
 PAR                ERRNZ  AM.PADP                                                         PAR         2151     A     
 PAR                EQ     B2,B7,IDCEX IF I/O LOOP SCAN -- STOP COLLAPSE                   PAR         2152     A     
 PAR                PL     X5,PAR.RP2  IF NOT A COLON LP                                   PAR         2153     A     
 PAR                SB7    X4-A=ARRAY                                                      PAR         2154     A     
 PAR                NZ     B7,PAR.RP2  IF THIS NOT END OF ARRAY SUBSCRIPT                  PAR         2155     A     
 PAR                LX5    TB.COLP-TB.SBSP                                                 PAR         2156     A     
 PAR                BX6    X7+X5       MARK THE LP AS ARRAY SUBSTRING                      PAR         2157     A     
 PAR                LX6    TB.SBSP+1                                                       PAR         2158     A     
 PAR                SA6    A5                                                              PAR         2159     A     
 PAR                EQ     PAR.STD                                                         PAR         2160     A     
 PAR                                                                                       PAR         2161     A     
 PAR       PAR.RP1  SB7    O.VAR                                                           PAR         2162     A     
 PAR                NE     B7,B2,PAR.STD     IF NOT FOLLOWED BY VAR                        PAR         2163     A     
 PAR                SB2    X4-A=IF                                                         PAR         2164     A     
 PAR                ZR     B2,PAR.STD  IF PARSING *IF* STATEMENT                           PAR         2165     A     
 PAR                                                                                       PAR         2166     A     
 PAR       PAR.RP2  HX4    AM.RP                                                           PAR         2167     A     
 PAR                MI     X4,PAR.STD  IF SPECIAL SYNTAX ALLOWED                           PAR         2168     A     
 PAR                SA5    A5          RELOAD TOKEN FOR ERROR MESSAGE                      PAR         2169     A     
 PAR                EQ     PAREX3                                                          PAR         2170     A     
 PAR       PAR.=    SPACE  4,20                                                            PAR         2171     A     
 PAR      **        EQUAL SIGN - ADVANCE THRU CHAIN.                                       PAR         2172     A     
 PAR                                                                                       PAR         2173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         2174     A     
 PAR       PAR.EQL  BSS    0                                                               PAR         2175     A     
 PAR                SA4    ARGMODE                                                         PAR         2176     A     
 PAR                MX0    1                                                               PAR         2177     A     
 PAR                LX0    AM.EQP+1                                                        PAR         2178     A     
 PAR                BX0    X0*X4                                                           PAR         2179     A     
 PAR                NZ     X0,PAR.EQL2 IF *=* ALLOWED                                      PAR         2180     A     
 PAR                FATAL  E.AT06      ILLEGAL USE OF ASSIGNMENT OPERATOR                  PAR         2181     A     
 PAR                =B4    B4+1        BYPASS BAD *=*                                      PAR         2182     A     
 PAR                EQ     PAR.NX                                                          PAR         2183     A     
 PAR                                                                                       PAR         2184     A     
 PAR       PAR.EQL2 SA4    ZLE                                                             PAR         2185     A     
 PAR                ZR     X4,PAR.STD  IF ZERO LEVEL EQUAL SIGN                            PAR         2186     A     
 PAR                =B4    B4+1        IGNORE ( SEE *EOS* PROCESS.)                        PAR         2187     A     
 PAR                EQ     PAR.NX      CONTINUE ...  (IGNORING *=*)                        PAR         2188     A     
 PAR       PAR.DIV  SPACE  4,8                                                             FC5A150      432     A     
 PAR      **        DIVIDE - CHECK FOR POSSIBLE INTEGER DIVIDE.                            FC5A150      433     A     
 PAR                                                                                       FC5A150      434     A     
 PAR       PAR.DIV  =A4    B6-1        LAST OPERAND                                        FC5A150      435     A     
 PAR                MX0    -TP.MODEL                                                       FC5A150      436     A     
 PAR                LX4    -TP.MODEP                                                       FC5A150      437     A     
 PAR                SA5    MULTOG                                                          FC5A150      438     A     
 PAR                =X6    1                                                               FC5A150      439     A     
 PAR                BX7    -X0*X4                                                          FC5A150      440     A     
 PAR                LX6    TH.STPRP                                                        FC5A150      441          I
          -FC50104
 PAR                LX6    SP.STPRP                                                        FC50104       91     A     
 PAR                SX4    X7-M.INT-1                                                      FC5A150      442     A     
 PAR                BX6    X5-X6       TOGGLE MULTOG (FOR A/B*C*D === A/B *(C*D) )         FC5A150      443     A     
 PAR                SA6    A5                                                              FC5A150      444     A     
 PAR                PL     X4,PAR.STD  IF NOT POSSIBLE INTEGER DIVIDE                      FC5A150      445     A     
 PAR                SA2    IDIV        THIS POPS ALL MULTS                                 FC5A150      446     A     
 PAR                EQ     PAR.STD                                                         FC5A150      447     A     
 PAR       PAR.PL   SPACE  4,10                                                            PAR         2189     A     
 PAR      **        PLUS - CHECK WHETHER UNARY OR BINARY.                                  PAR         2190     A     
 PAR                                                                                       PAR         2191     A     
 PAR                                                                                       PAR         2192     A     
 PAR       PAR.PL   BSS    0                                                               PAR         2193     A     
 PAR                =A4    B4-1        LOAD LAST OPERATOR                                  PAR         2194     A     
 PAR                SA5    ="PREUNAR"                                                      PAR         2195     A     
 PAR                SB7    X4                                                              PAR         2196     A     
 PAR                LX0    B7,X5                                                           PAR         2197     A     
 PAR                PL     X0,PAR.STD  IF NOT UNARY PLUS                                   PAR         2198     A     
 PAR                SA4    CONZER                                                          PAR         2199     A     
 PAR                BX7    X4                                                              PAR         2200     A     
 PAR                SA7    B6                                                              PAR         2201     A     
 PAR                =B6    B6+1                                                            PAR         2202     A     
 PAR                EQ     PAR.STD                                                         PAR         2203     A     
 PAR       PAR.MI   SPACE  4                                                               PAR         2204     A     
 PAR      **        MINUS - CHECK WHETHER UNARY OR BINARY.                                 PAR         2205     A     
 PAR                                                                                       PAR         2206     A     
 PAR                                                                                       PAR         2207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAR.MIN  BSS    0                                                               PAR         2208     A     
 PAR                =A4    B4-1        LOAD LAST OPERATOR                                  PAR         2209     A     
 PAR                SA5    ="PREUNAR"                                                      PAR         2210     A     
 PAR                SB7    X4                                                              PAR         2211     A     
 PAR                LX0    B7,X5                                                           PAR         2212     A     
 PAR                PL     X0,PAR.STD  IF NOT UNARY MINUS                                  PAR         2213     A     
 PAR                SA2    F.PRIOR-O.SEP+O.UMIN                                            PAR         2214     A     
 PAR                =X1    O.UMIN                                                          PAR         2215     A     
 PAR                EQ     PAR.STD     PROCESS AS UNARY MINUS                              PAR         2216     A     
 PAR       PAR.MULT SPACE  4,20                                                            PAR         2217     A     
 PAR      **        STAR - MAY BE STATEMENT LABEL PARAMETER INDICATOR.                     PAR         2218     A     
 PAR                                                                                       PAR         2219     A     
 PAR                                                                                       PAR         2220     A     
 PAR       PRELABL  BITMIC (O.LP,O.SLP,O.COMMA)                                            PAR         2221     A     
 PAR       POSTLAB  BITMIC (O.COMMA,O.RP)                                                  PAR         2222     A     
 PAR                                                                                       PAR         2223     A     
 PAR       PAR.MULT BSS    0                                                               PAR         2224     A     
 PAR                SA4    B4-B1                                                           PAR         2225     A     
 PAR                SA5    ="PRELABL"                                                      PAR         2226     A     
 PAR                SB7    X4                                                              PAR         2227     A     
 PAR                ERRNZ  18-TB.TOTL                                                      PAR         2228     A     
 PAR                LX7    X5,B7                                                           PAR         2229     A     
 PAR                PL     X7,PAR.STD  IF NOT UNARY STAR                                   PAR         2230          I
          -FC5A150
 PAR                PL     X7,PAR.MU10 IF NOT UNARY STAR                                   FC5A150      448     A     
 PAR                SA4    ARGMODE                                                         PAR         2231     A     
 PAR                LX4    -AM.PADP                                                        PAR         2232     A     
 PAR                SB2    X4-A=CALL                                                       PAR         2233     A     
 PAR                NZ     B2,PAREX    IF NOT IN SUBROUTINE ARGLIST                        PAR         2234     A     
 PAR                SA4    B4+B1                                                           PAR         2235     A     
 PAR                SA2    A4+B1                                                           PAR         2236     A     
 PAR                SB7    X4-O.CONS                                                       PAR         2237     A     
 PAR                SB2    X2                                                              PAR         2238     A     
 PAR                NZ     B7,PAREX    IF STAR NOT FOLLOWED BY DIGIT(S)                    PAR         2239     A     
 PAR                SA5    ="POSTLAB"                                                      PAR         2240     A     
 PAR                LX7    X5,B2                                                           PAR         2241     A     
 PAR                PL     X7,PAREX    IF LABEL NOT STANDING ALONE                         PAR         2242     A     
 PAR                SB4    A2          ADVANCE TOKEN POINTER PAST LABEL                    PAR         2243     A     
 PAR                BX6    X4                                                              PAR         2244     A     
 PAR                CLAS=  X2,WB,(SREF)                                                    PAR         2245          I
          -FC51356
 PAR                CLAS=  X2,WB,(ALRN,SREF)                                               FC51356       20     A     
 PAR                CALL   ISL         IDENTIFY STATEMENT LABEL                            PAR         2246     A     
 PAR                MI     X6,PAREX11  IF ERROR IN LABEL                                   PAR         2247     A     
 PAR                MX4    -TP.MODEL   = -7                                                PAR         2248     A     
 PAR                ERRNZ  7-N.TYPE                                                        PAR         2249     A     
 PAR                BX6    -X4+X6      **** KLUDGE ****                                    PAR         2250     A     
 PAR                SA6    B6          STACK THE LABEL OPERAND                             PAR         2251     A     
 PAR                SB6    B6+B1                                                           PAR         2252     A     
 PAR                EQ     PAR.NX                                                          PAR         2253     A     
 PAR                                                                                       FC5A150      449     A     
 PAR       PAR.MU10 SA4    MULTOG                                                          FC5A150      450     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX2    X2-X4                                                           FC5A150      451     A     
 PAR                =X5    1                                                               FC5A150      452     A     
 PAR                LX5    TH.STPRP                                                        FC5A150      453          I
          -FC50104
 PAR                LX5    SP.STPRP                                                        FC50104       92     A     
 PAR                BX7    X4-X5                                                           FC5A150      454     A     
 PAR                SA7    A4                                                              FC5A150      455     A     
 PAR                EQ     PAR.STD                                                         FC5A150      456     A     
 PAR                                                                                       FC5A150      457     A     
 PAR       MULTOG   BSSZ   1                                                               FC5A150      458     A     
 PAR       PAR.STD  SPACE  4,20                                                            PAR         2254     A     
 PAR      **        XOR - DIAGNOSE NON-ANSI                                                FC5A471        9     A     
 PAR                                                                                       FC5A471       10     A     
 PAR       PAR.XOR  ANSI   E.AT21                                                          FC5A471       11     A     
 PAR      *         EQ     PAR.STD     FALL THROUGH FOR NOW                                FC5A471       12     A     
 PAR                                                                                       FC5A471       13     A     
 PAR                                                                                       FC5A471       14     A     
 PAR      **        PAR.STD - MAKE STACK OR POP DECISION.                                  PAR         2255     A     
 PAR      *                                                                                PAR         2256     A     
 PAR      *         COMPARE CURRENT OPERATOR (COP) TO LAST OPERATOR (LOP) --               PAR         2257     A     
 PAR      *         IF COP .GE. LOP  --  ADD COP TO OPERATOR STACK.                        PAR         2258     A     
 PAR      *         IF COP .LT. LOP  --  POP LOP, AND LOOP TO PERFORM SAME CHECK           PAR         2259     A     
 PAR      *                           ON NEW STACK TOP, AGAIN.                             PAR         2260     A     
 PAR      *                                                                                PAR         2261     A     
 PAR      *         ENTRY  (X1) = COP, TOKEN TYPE FOR CURRENT OPERATOR.                    PAR         2262     A     
 PAR      *                (X2) = SETOP WORD FOR COP.                                      PAR         2263     A     
 PAR      *                (X3) = LOP, LAST OPERATOR (INSTACK *SETOP* WORD).               PAR         2264     A     
 PAR      *                                                                                PAR         2265     A     
 PAR      *         EXIT   PAR.ADOP -- IF COP BECOMES .GE. LOP.                            PAR         2266     A     
 PAR      *                PAR.NX   -- WHEN POP REPLIES ENUF DONE.                         PAR         2267     A     
 PAR      *                                                                                PAR         2268     A     
 PAR      *         CALLS  POP.                                                            PAR         2269     A     
 PAR                                                                                       PAR         2270     A     
 PAR                                                                                       PAR         2271     A     
 PAR       PAR.STD  BSS    0                                                               PAR         2272     A     
 PAR                LX3    -TH.STPRP                                                       PAR         2273          I
          -FC5A204
 PAR                MX5    CH.DPCL                                                         FC5A204        5     A     
 PAR                SA4    X1+CHARMAP                                                      FC5A204        6     A     
 PAR                HX4    CH.DPC                                                          FC5A204        7     A     
 PAR                BX6    X5*X4       X6 = DPC OF COP                                     FC5A204        8     A     
 PAR                SA6    FILL.2      SET FILLER FOR E.AT14                               FC5A204        9     A     
 PAR                                                                                       FC5A204       10     A     
 PAR       PAR.CAT  LX3    -TH.STPRP                                                       FC5A204       11          I
          -FC50104
 PAR       PAR.CAT  LX3    -SP.STPRP                                                       FC50104       93     A     
 PAR                SB4    B4+B1                                                           PAR         2274     A     
 PAR                MX4    -TH.STPRL                                                       PAR         2275          I
          -FC50104
 PAR                LX2    -TH.TBPRP                                                       PAR         2276          I
          -FC50104
 PAR                MX4    -SP.STPRL                                                       FC50104       94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX2    -SP.TBPRP                                                       FC50104       95     A     
 PAR                BX5    -X4*X3                                                          PAR         2277     A     
 PAR                ERRNZ  TH.STPRL-TH.TBPRL     INSERT  (MX4  -TH.TBPRL)                  PAR         2278          I
          -FC50104
 PAR                MX4    -SP.TBPRL                                                       FC50104       96     A     
 PAR                BX0    -X4*X2      EXTRACT (X0) = TOKEN BUFFER PRIORITY                PAR         2279     A     
 PAR                IX0    X0-X5                                                           PAR         2280     A     
 PAR                LX3    TH.STPRP    RESTORE (X3) = LAST OP                              PAR         2281          I
          -FC50104
 PAR                LX2    TH.TBPRP    RESTORE (X2) = CURRENT OP                           PAR         2282          I
          -FC50104
 PAR                LX3    SP.STPRP    RESTORE LAST OPERATOR                               FC50104       97     A     
 PAR                LX2    SP.TBPRP    RESTORE CURRENT OPERATOR                            FC50104       98     A     
 PAR                PL     X0,PAR.ADOP IF COP .GE. LOP, ADD TO OPSTACK                     PAR         2283     A     
 PAR                                                                                       PAR         2284     A     
 PAR      *         SET UP FOR *POP* CALL.                                                 PAR         2285     A     
 PAR      *                (X1) = COP.                                                     PAR         2286     A     
 PAR      *                (X3) = OPSTACK ENTRY FOR OPERATOR TO BE POPPED.                 PAR         2287     A     
 PAR                                                                                       PAR         2288     A     
 PAR                BX6    X1                                                              PAR         2289     A     
 PAR                =B5    B5-1                                                            PAR         2290     A     
 PAR                LX7    X2                                                              PAR         2291     A     
 PAR                SA6    POPDPC      SAVE *DPC* FOR OPERATOR                             PAR         2292     A     
 PAR                =B4    B4-1                                                            PAR         2293     A     
 PAR                =A7    A6-POPDPC+POPPER  SAVE OPERATOR STACK WORD (SETOP WORD)         PAR         2294     A     
 PAR                RJ     POP         POP OPERATOR                                        PAR         2295     A     
 PAR                                                                                       PAR         2296     A     
 PAR      *         RETURN FROM *POP*.                                                     PAR         2297     A     
 PAR      *         IF *POPPER* HAS BEEN SET NEGATIVE, OPERATOR HAS BEEN                   PAR         2298     A     
 PAR      *         NULLED  (I.E., WHEN RIGHT PAREN POPPING LEFT PAREN).                   PAR         2299     A     
 PAR                                                                                       PAR         2300     A     
 PAR                SA2    POPPER                                                          PAR         2301     A     
 PAR                SA3    B5          RELOAD LAST OPERATOR                                PAR         2302     A     
 PAR                =A1    A2-POPPER+POPDPC                                                PAR         2303     A     
 PAR                PL     X2,PAR.STD  CONTINUE CHECK FOR POPPING                          PAR         2304     A     
 PAR                EQ     PAR.NX      NEXT                                                PAR         2305     A     
 PAR       PAR.ADOP EJECT  4,8                                                             PAR         2306     A     
 PAR      **        ADD OPERATOR TO OP-STACK.                                              PAR         2307     A     
 PAR      *                                                                                PAR         2308     A     
 PAR      *         ENTRY  (X1) = DPC FOR OPERATOR.                                        PAR         2309     A     
 PAR      *                (X2) = CURRENT OPERATOR STACK ENTRY.                            PAR         2310     A     
 PAR      *                                                                                PAR         2311     A     
 PAR      *         EXIT   (B5) = UPDATED TO POINT TO CURRENT OPERAND.                     PAR         2312     A     
 PAR      *                (X6) = OPERAND ADDED TO ESTACK.                                 PAR         2313     A     
 PAR                                                                                       PAR         2314     A     
 PAR                                                                                       PAR         2315     A     
 PAR       PAR.ADOP MX0    -TH.TBPRL                                                       PAR         2316          I
          -FC50104
 PAR       PAR.ADOP MX0    -SP.TBPRL                                                       FC50104       99     A     
 PAR                SB5    B5+B1       UPDATE POINTER                                      PAR         2317     A     
 PAR                SB2    ESTACK-8                                                        PAR         2318     A     
 PAR                SB7    E.LP3       ** EXPRESSION TOO COMPLICATED                       PAR         2319     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                GE     B5,B2,POP.RP5     IF OSTACK TOO FULL                            PAR         2320     A     
 PAR                LX0    TH.TBPRP                                                        PAR         2321          I
          -FC50104
 PAR                LX0    SP.TBPRP                                                        FC50104      100     A     
 PAR                BX3    X0*X2                                                           PAR         2322     A     
 PAR                IX6    X3+X1       PRIORITY + ORIGINAL ENTRY                           PAR         2323     A     
 PAR                SA6    B5          ADD TO STACK                                        PAR         2324     A     
 PAR                EQ     PAR.NX                                                          PAR         2325     A     
 PAR       ERR      EJECT  4,8                                                             PAR         2326     A     
 PAR      **        HERE IF ILLEGAL COMBINATION OF CURRENT/NEXT TOKENS.                    PAR         2327     A     
 PAR      *                                                                                PAR         2328     A     
 PAR      *         ENTRY  (X1) = TOKEN VALUE FOR OPERATOR.                                PAR         2329     A     
 PAR      *                (X5) = NEXT TOKEN (THE ONE FOLLOWING (X1)).                     PAR         2330     A     
 PAR                                                                                       PAR         2331     A     
 PAR                                                                                       PAR         2332     A     
 PAR       PAR.ERR  BSS    0                                                               PAR         2333     A     
 PAR                                                                                       PAR         2334     A     
 PAR       PAREX    SA4    ARGMODE                                                         PAR         2335     A     
 PAR                BX0    X4                                                              PAR         2336     A     
 PAR                SBIT   X0,AM.RPP                                                       PAR         2337     A     
 PAR                PL     X0,PAREX2   IF NO SPECIAL SYNTAX ALLOWED                        PAR         2338     A     
 PAR                                                                                       FC50792        6     A     
 PAR       PAREX1   SB2    X1-O.RP                                                         PAR         2339     A     
 PAR                NZ     B2,PAREX3   IF NOT LOOKING AT *)*                               PAR         2340     A     
 PAR                JP     B7          CONTINUE                                            PAR         2341     A     
 PAR                                                                                       PAR         2342     A     
 PAR       PAREX2   SB2    X4-A=IF                                                         PAR         2343     A     
 PAR                ZR     B2,PAREX1   IF IN *IF* PROCESSING                               PAR         2344     A     
 PAR                                                                                       PAR         2345     A     
 PAR       PAREX3   MX0    CH.DPCL                                                         PAR         2346     A     
 PAR                SA2    X1+CHARMAP                                                      PAR         2347     A     
 PAR                NZ     X2,PAREX5   IF NOT *SYMBOL*                                     PAR         2348     A     
 PAR                BX2    X1          USE (TB.TOC)                                        PAR         2349     A     
 PAR                                                                                       FC50792        7     A     
 PAR       PAREX5   BX6    X0*X2                                                           PAR         2350     A     
 PAR                SA2    X5+CHARMAP                                                      PAR         2351     A     
 PAR                SA6    FILL.       SET FILLER                                          PAR         2352     A     
 PAR                NZ     X2,PAREX10  IF NOT *SYMBOL*                                     PAR         2353     A     
 PAR                BX2    X5                                                              PAR         2354     A     
 PAR                                                                                       FC50792        8     A     
 PAR       PAREX10  BX6    X0*X2                                                           PAR         2355     A     
 PAR                SB7    E.AT02                                                          PAR         2356     A     
 PAR                SA6    A6+B1       SET FILLER                                          PAR         2357     A     
 PAR                FATAL  B7          OUTPUT ERROR                                        PAR         2358     A     
 PAR                                                                                       FC50792        9     A     
 PAR       PAREX11  =X4    X5-O.COMMA                                                      PAR         2359     A     
 PAR                =X1    X5-O.RP                                                         PAR         2360          I
          -FC50885
 PAR                BX5    X4+X1                                                           PAR         2361          I
          -FC50885
 PAR                BX4    X4*X1                                                           PAR         2362          I
          -FC50885
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                NZ     X4,PAREX15  IF FOLLOWING TOKEN NOT COMMA OR RP                  PAR         2363          I
          -FC50885
 PAR                MI     X5,PAREX15  IF FOLLOWING TOKEN NOT COMMA OR RP                  PAR         2364          I
          -FC50885
 PAR                =B4    B4+1        MOVE PAST IT                                        PAR         2365          I
          -FC50885
 PAR                ZR     X4,PAREX13  IF COMMA                                            FC50885        5     A     
 PAR                =X1    X5-O.RP                                                         FC50885        6     A     
 PAR                NZ     X1,PAREX15  IF NOT RP                                           FC50885        7     A     
 PAR                                                                                       FC50885        8     A     
 PAR       PAREX13  SB4    B4+1        MOVE PAST IT                                        FC50885        9     A     
 PAR                                                                                       PAR         2366     A     
 PAR       PAREX15  =B4    B4+1                                                            PAR         2367          I
          -FC5A442
 PAR                BX4    0                                                               PAR         2368          I
          -FC5A442
 PAR       PAREX15  SA5    B4                                                              FC5A442       11     A     
 PAR                ZR     X5,PAREX16  IF EOS                                              FC5A442       12     A     
 PAR                ERRNZ  O.EOS                                                           FC5A442       13     A     
 PAR                =B4    B4+1                                                            FC5A442       14     A     
 PAR                                                                                       FC5A442       15     A     
 PAR       PAREX16  BX4    0                                                               FC5A442       16     A     
 PAR                MX5    0                                                               PAR         2369     A     
 PAR                EMIT   ERROP,*                                                         PAR         2370     A     
 PAR                SA1    ARGMODE                                                         FC50792       10          I
          -FC5A442
 PAR                SA5    CDIFLG                                                          FC5A442       17     A     
 PAR                ZR     X5,PAREX17  IF NO DO INDICATION ERROR                           FC5A442       18     A     
 PAR                SA1    T.BLST                                                          FC5A442       19     A     
 PAR                SA2    T=BLST                                                          FC5A442       20     A     
 PAR                =B2    X2-1                                                            FC5A442       21     A     
 PAR                SA1    X1+B2       X1 = LC. WORD                                       FC5A442       22     A     
 PAR                LX1    -LC.CNTP                                                        FC5A442       23     A     
 PAR                SB2    X1-1-DO.W                                                       FC5A442       24     A     
 PAR                ERRNZ  LC.CNTL-18                                                      FC5A442       25     A     
 PAR                SA1    A1-B2       X1 = DO.W                                           FC5A442       26     A     
 PAR                LX1    -DO.IODP                                                        FC5A442       27     A     
 PAR                SB2    X1          IMPLIED DO INDICATION                               FC5A442       28     A     
 PAR                ERRNZ  18-DO.IODL                                                      FC5A442       29     A     
 PAR                NZ     B2,PAR.STOP IF ERROR IN IMPLIED DO                              FC5A442       30     A     
 PAR                                                                                       FC5A442       31     A     
 PAR       PAREX17  SA1    ARGMODE                                                         FC5A442       32     A     
 PAR                SB7    X1-A=CALL                                                       FC50792       11     A     
 PAR                ERRNZ  18-AM.PADL                                                      FC50792       12     A     
 PAR                ZR     B7,PAR.STOP EXIT IF PROCESSING CALL ARGUMENT                    FC50792       13     A     
 PAR                EQ     PAR.NX      CONTINUE..  (IGNORING NASTY CHARACTER)              PAR         2371     A     
 PAR       PAR.EOS  EJECT  4,8                                                             PAR         2372     A     
 PAR      **        END OF STATEMENT (*EOS*) TOKEN ENCOUNTERED.                            PAR         2373     A     
 PAR      *                                                                                PAR         2374     A     
 PAR      *         PROCESSING WHEN *EOS* FOUND IS DEPENDENT UPON THE VALUE OF             PAR         2375     A     
 PAR      *         *ZLE*.  UPON ENTRY TO *PAR* THE CONDITION OF *ZLE* WAS SET TO          PAR         2376     A     
 PAR      *         INDICATE WHETHER AN *=* WAS FOUND DURING THE TABBING OF THE            PAR         2377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         CURRENT STATEMENT BEING PROCESSED.  *ZLE* UPON ENTRY TO THIS           PAR         2378     A     
 PAR      *         SECTION POINTS TO THE LAST *=* FOUND DURING TABS PROCESS,              PAR         2379     A     
 PAR      *         WHERE ALL PREVIOUS *=* CONTAIN A LINK TO PREVIOUS *=* .                PAR         2380     A     
 PAR      *         THUS A SIMPLE CHECK IF DONE ON *ZLE* TO DETERMINE IF WE HAVE           PAR         2381     A     
 PAR      *         PROCESSED WHAT IS ON THE LEFT HAND SIDE OF THE *=*S, OR                PAR         2382     A     
 PAR      *         WHETHER THERE WAS ONE FOR THIS STATEMENT.  IN ANY CASE WE WILL         PAR         2383     A     
 PAR      *         LINK BACKWARDS THRU THE TABBED *TB* TILL WE FINALLY COME TO            PAR         2384     A     
 PAR      *         THE TERMINAL LEFT MEMBER OF THE STATEMENT.                             PAR         2385     A     
 PAR      *                                                                                PAR         2386     A     
 PAR      *         GENERAL FLOW.                                                          PAR         2387     A     
 PAR      *                                                                                PAR         2388     A     
 PAR      *         A.  FLUSH REMAINDER OF OP-STACK.                                       PAR         2389     A     
 PAR      *         B.  CHECK IF LAST *=* (LEFT MEMBER) HAS BEEN PROCESSED.                PAR         2390     A     
 PAR      *             1.  IF YES - SET ENDING CONDITIONS AND EXIT.                       PAR         2391     A     
 PAR      *             2.  IF NO  - RESET *TB* POINTER,(B4), AND *ZLE* TO NEW             PAR         2392     A     
 PAR      *                         CONDITION.                                             PAR         2393     A     
 PAR      *                                                                                PAR         2394     A     
 PAR      *         VISUAL EXAMPLE.                                                        PAR         2395     A     
 PAR      *                                                                                PAR         2396     A     
 PAR      *                0        1         2         3         4                        PAR         2397     A     
 PAR      *                12345678901234567890123456789012345678901                       PAR         2398     A     
 PAR      *                A=B=C=D=E=F=R**2-K+L-ARR(I,J,K+L,4,5,6,7)                       PAR         2399     A     
 PAR      *                           ZLE=12  (ENTRY TO PAR)                               PAR         2400     A     
 PAR      *         POINTER=        8                                                      PAR         2401     A     
 PAR      *         POINTER=      6                                                        PAR         2402     A     
 PAR      *         POINTER=    4                                                          PAR         2403     A     
 PAR      *         POINTER=  2                                                            PAR         2404     A     
 PAR                                                                                       PAR         2405     A     
 PAR                                                                                       PAR         2406     A     
 PAR       PAR.EOS  BSS    0                                                               PAR         2407     A     
 PAR                SB3    OSTACK                                                          PAR         2408     A     
 PAR                SB3    B5-B3                                                           PAR         2409     A     
 PAR                GT     B3,PAR.EOS6 IF OPERATOR STACK NOT EMPTY                         PAR         2410     A     
 PAR                SA1    ZLE                                                             PAR         2411     A     
 PAR                ZR     X1,PAR.EOS3 IF TRUE *EOS*                                       PAR         2412     A     
 PAR                SA2    X1                                                              PAR         2413     A     
 PAR                =X6    O.EOS                                                           PAR         2414     A     
 PAR                AX2    TB.TOCP                                                         PAR         2415     A     
 PAR                SA6    A2          REPLACE *=* WITH *EOS*                              PAR         2416     A     
 PAR                SB4    X2          RESET *B4* TO *=*                                   PAR         2417     A     
 PAR                SA1    TB=1ST                                                          PAR         2418     A     
 PAR                =B2    1                                                               PAR         2419     A     
 PAR                NZ     X2,PAR.EOS1 IF NOT LAST *=*                                     PAR         2420     A     
 PAR                SB4    X1          RESET TO STARTING POSITION                          PAR         2421     A     
 PAR                =B2    0                                                               PAR         2422     A     
 PAR                                                                                       FC50478        6     A     
 PAR       PAR.EOS1 BX6    X2                                                              PAR         2423     A     
 PAR                SA3    B4+B2                                                           PAR         2424     A     
 PAR                SA6    ZLE         RESET TO NEXT LEVEL                                 PAR         2425     A     
 PAR                =X1    O.=                                                             PAR         2426     A     
 PAR                =X6    CR.STR                                                          PAR         2427     A     
 PAR                SB7    X3-O.VAR                                                        PAR         2428     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ERRNZ  18-TB.TOTL                                                      PAR         2429     A     
 PAR                SA2    F.PRIOR-O.SEP+O.=                                               PAR         2430     A     
 PAR                SA6    REFVAR      SET UP FOR *STORE*                                  PAR         2431     A     
 PAR                ZR     B7,PAR.ADOP IF LEFT MEMBER IS A SYMBOL                          PAR         2432     A     
 PAR                FATAL  E.VA11      ILLEGAL LEFT MEMBER                                 PAR         2433     A     
 PAR                                                                                       PAR         2434     A     
 PAR      *         HERE IF LAST *=* PROCESSED.                                            PAR         2435     A     
 PAR                                                                                       PAR         2436     A     
 PAR       PAR.EOS3 SA1    ARGMODE                                                         PAR         2437     A     
 PAR                =X3    O.COMMA                                                         PAR         2438     A     
 PAR                SBIT   X1,AM.EOSP                                                      PAR         2439     A     
 PAR                PL     X1,PAREXIT  IF NO SPECIAL EOS PROCESSING                        PAR         2440     A     
 PAR                BX6    X3                                                              PAR         2441     A     
 PAR                =X1    O.EOS                                                           PAR         2442          I
          -FC50478
 PAR                SA1    T.PAR                                                           FC50478        7     A     
 PAR                SA2    T=PAR                                                           FC50478        8     A     
 PAR                ZR     X2,PAR.EOS4 IF NO PARSE FILE                                    FC50478        9     A     
 PAR                SB7    X2-Z=TURP                                                       FC50478       10     A     
 PAR                SA2    X1+B7       FETCH LAST TURPLE                                   FC50478       11     A     
 PAR                MX0    -TH.OVALL                                                       FC50478       12     A     
 PAR                LX2    -TH.OVALP                                                       FC50478       13     A     
 PAR                BX2    -X0*X2      EXTRACT LAST OPERATOR                               FC50478       14     A     
 PAR                SX2    X2-O.ERR                                                        FC50478       15     A     
 PAR                ZR     X2,PAREXIT  IF LAST WAS ERROR TURPLE                            FC50478       16     A     
 PAR                                                                                       FC50478       17     A     
 PAR       PAR.EOS4 =X1    O.EOS                                                           FC50478       18     A     
 PAR                =A6    B5+1                                                            PAR         2443     A     
 PAR                LX1    TH.TBPRP                                                        PAR         2444          I
          -FC50104
 PAR                LX1    SP.TBPRP                                                        FC50104      101     A     
 PAR                RJ     POP         POP LAST ARGUMENT                                   PAR         2445     A     
 PAR       PAREXIT  SPACE  4,10                                                            PAR         2446     A     
 PAR      **        PAREXIT - EXIT PARSER.                                                 PAR         2447     A     
 PAR      *                                                                                PAR         2448     A     
 PAR      *         ENTRY  (B4) _ TOKEN WHICH STOPPED SCAN.  I.E., 1 PAST                  PAR         2449     A     
 PAR      *                       LAST TOKEN TRANSLATED.                                   PAR         2450     A     
 PAR      *                                                                                PAR         2451     A     
 PAR      *         EXIT   (B4) _ LAST TOKEN TRANSLATED BY PARSER.                         PAR         2452     A     
 PAR                                                                                       PAR         2453     A     
 PAR                                                                                       PAR         2454     A     
 PAR       PAREXIT  BSSENT 0           EXIT PARSER THROUGH HERE                            PAR         2455     A     
 PAR                                                                                       PAR         2456     A     
 PAR       SNAP=P   IFEQ   TEST,ON     DUMP PARSED FILE                                    PAR         2457     A     
 PAR                SA1    CO.SNAP                                                         PAR         2458     A     
 PAR                LX1    1RP                                                             PAR         2459     A     
 PAR                PL     X1,PAR.EOSA IF SNAP NOT REQUESTED                               PAR         2460     A     
 PAR                CALL   SN.PAR                                                          PAR         2461     A     
 PAR       PAR.EOSA BSS    0                                                               PAR         2462     A     
 PAR       SNAP=P   ENDIF                                                                  PAR         2463     A     
 PAR                                                                                       PAR         2464     A     
 PAR       SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                                   PAR         2465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA1    CO.SNAP                                                         PAR         2466     A     
 PAR                LX1    1RZ                                                             PAR         2467     A     
 PAR                PL     X1,PAR.EOSS IF PARSE SNAP NOT SELECTED                          PAR         2468     A     
 PAR       PARSEXIT PARSNAP                                                                PAR         2469     A     
 PAR       PAR.EOSS BSS    0                                                               PAR         2470     A     
 PAR       SNAP=Z   ENDIF                                                                  PAR         2471     A     
 PAR                                                                                       PAR         2472     A     
 PAR                =B4    B4-1        RESET TO LAST ELEMENT PROCESSED                     PAR         2473     A     
 PAR                EQ     PARX        EXIT..                                              PAR         2474     A     
 PAR       EOS6     SPACE  4,10                                                            PAR         2475     A     
 PAR      **        FLUSH REMAINING OP STACKS.                                             PAR         2476     A     
 PAR                                                                                       PAR         2477     A     
 PAR       PAR.EOS6 SA3    B5          OPERATOR TO POP                                     PAR         2478     A     
 PAR                =B5    B5-1                                                            PAR         2479     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         2480          I
          -FC50104
 PAR                LX3    -TH.TBPRP                                                       PAR         2481          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      102     A     
 PAR                LX3    -SP.TBPRP                                                       FC50104      103     A     
 PAR                BX2    -X0*X3      EXTRACT (X2) = COP TOKEN BUFFER PRIORITY            PAR         2482     A     
 PAR                SB2    X2-O.SLP                                                        PAR         2483     A     
 PAR                SB3    X2-O.LP                                                         PAR         2484     A     
 PAR                LX3    TH.TBPRP                                                        PAR         2485          I
          -FC50104
 PAR                LX3    SP.TBPRP                                                        FC50104      104     A     
 PAR                ZR     B2,PAR.EOS8 IF *(* BEING POPPED                                 PAR         2486     A     
 PAR                NZ     B3,PAR.EOS7 IF NOT POPPING *LP*                                 PAR         2487     A     
 PAR                SB7    E.LP1                                                           PAR         2488     A     
 PAR                EQ     POP.RP5     TAKE ERROR EXIT                                     PAR         2489     A     
 PAR                                                                                       PAR         2490     A     
 PAR       PAR.EOS7 BX6    0                                                               PAR         2491     A     
 PAR                SA1    B5                                                              PAR         2492     A     
 PAR                SA6    POPPER                                                          PAR         2493     A     
 PAR                =A6    A6-POPPER+POPDPC                                                PAR         2494     A     
 PAR                RJ     POP         POP OPERATOR                                        PAR         2495     A     
 PAR                SA1    POPPER                                                          PAR         2496     A     
 PAR                PL     X1,PAR.EOS  IF NO PROCESSING NOT SET                            PAR         2497     A     
 PAR                =B4    B4-1        RESET *B4*                                          PAR         2498     A     
 PAR                =B5    B5-1                                                            PAR         2499     A     
 PAR                EQ     PAR.EOS     CONTINUE                                            PAR         2500     A     
 PAR                                                                                       PAR         2501     A     
 PAR       PAR.EOS8 SA5    ARGMODE                                                         PAR         2502     A     
 PAR                HX5    AM.EOS                                                          PAR         2503     A     
 PAR                PL     X5,PAR.EOS9 IF EOS DOESNT UNSTACK *(*                           PAR         2504     A     
 PAR                SX1    O.RP                                                            PAR         2505     A     
 PAR                =X7    -1                                                              PAR         2506     A     
 PAR                SA7    POPPER                                                          PAR         2507     A     
 PAR                                                                                       FC50478       19     A     
 PAR       PAR.EOS9 BX6    X1                                                              PAR         2508     A     
 PAR                SA6    POPDPC      UPDATE   DPC   FOR OPERATOR                         PAR         2509     A     
 PAR                =X1    O.EOS       INDICATE *(* BEING POPPED BY  *EOS*                 PAR         2510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX1    TH.TBPRP                                                        PAR         2511          I
          -FC50104
 PAR                LX1    SP.TBPRP                                                        FC50104      105     A     
 PAR                RJ     POP                                                             PAR         2512     A     
 PAR       PAR.STOP SPACE  4,10                                                            PAR         2513     A     
 PAR      **        PAR.STOP - CATASTROPHIC ERROR FOUND IN CURRENT STATEMENT.              PAR         2514     A     
 PAR      *                OUTPUT ERROR TURPLE AND EXIT BACK TO MASTER LOOP,               PAR         2515     A     
 PAR      *                IGNORING RETURN TO CALLER OF PAR.                               PAR         2516     A     
 PAR      *                                                                                PAR         2517     A     
 PAR      *         EXIT   TO *PSL* TO START NEXT STATEMENT.                               PAR         2518     A     
 PAR      *                                                                                PAR         2519     A     
 PAR      *         CALLS  ADT.                                                            PAR         2520     A     
 PAR                                                                                       PAR         2521     A     
 PAR                                                                                       PAR         2522     A     
 PAR       PAR.STOP SA3    ERROP                                                           PAR         2523     A     
 PAR                SHRINK T=SCR       IN CASE OF ERRORS                                   FC50904        5     A     
 PAR                =X7    0                                                               PAR         2524     A     
 PAR                BX4    0                                                               PAR         2525     A     
 PAR                LX6    X3                                                              PAR         2526     A     
 PAR                =X5    0                                                               PAR         2527     A     
 PAR                SA7    SMOD                                                            PAR         2528     A     
 PAR                =A6    A7-SMOD+SOPR                                                    PAR         2529     A     
 PAR                RJ     ADT         ADD ERROR TURPLE                                    PAR         2530     A     
 PAR                SA2    T.TB                                                            FC50396       17     A     
 PAR                SB3    X2                                                              FC50396       18     A     
 PAR                SB3    B4-B3                                                           FC50396       19     A     
 PAR                =A1    B4+1        PREFETCH                                            FC50396       20     A     
 PAR                =X6    1                                                               FC50396       21     A     
 PAR                                                                                       FC50396       22     A     
 PAR       STOP1    SA1    A1-1        FETCH TOKEN                                         FC50396       23     A     
 PAR                SB2    X1-O.DOCI                                                       FC50396       24     A     
 PAR                ZR     B2,PSL      IF DO CONCLUSION, NO HANGING IMPLIED DO             FC50396       25     A     
 PAR                SB2    X1-O.DOBI                                                       FC50396       26     A     
 PAR                ZR     B2,STOP2    IF DO BEGIN, HANGING IMPLIED DO                     FC50396       27     A     
 PAR                SB3    B3-1                                                            FC50396       28     A     
 PAR                PL     B3,STOP1    IF NOT FINISHED                                     FC50396       29     A     
 PAR                EQ     PSL         EXIT                                                FC50396       30     A     
 PAR                                                                                       FC50396       31     A     
 PAR       STOP2    SA6    CDIFLG      ERROR IN DO INDICATION                              FC50396       32     A     
 PAR                EQ     PSL         START ANEW                                          PAR         2531     A     
 PAR                TITLE  POPPING (SYNTHESIS).                                            PAR         2532     A     
 PAR       POP      EJECT  4,20                                                            PAR         2533     A     
 PAR      **        POP - EMIT TURPLES FOR TOP OPERATOR.                                   PAR         2534     A     
 PAR      *                PROCESSING.                                                     PAR         2535     A     
 PAR      *                                                                                PAR         2536     A     
 PAR      *         ENTRY  (X1) = OPERATOR CAUSING (X3) TO BE POPPED.                      PAR         2537     A     
 PAR      *                (X3) = CURRENT OPERATOR BEING POPPED.                           PAR         2538     A     
 PAR      *                                                                                PAR         2539     A     
 PAR      ** FV     EXPLAIN (B5) BETTER, SOMETIME.                                         PAR         2540     A     
 PAR      *                (B5) _ OPERATOR BELOW OF OPERATOR BEING POPPED.                 PAR         2541     A     
 PAR      *                E.G., IF  .AND.  WERE POPPED BY  .NOT. , THE OPSTACK            PAR         2542     A     
 PAR      *                    WOULD LOOK LIKE BELOW,  WITH B5 POINTING TO *EOS*.          PAR         2543     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                      OPSTACK =    0     1     2                                PAR         2544     A     
 PAR      *                                 EOS .AND. .NOT.                                PAR         2545     A     
 PAR      *                            B5     '                                            PAR         2546     A     
 PAR      *                                                                                PAR         2547     A     
 PAR      *                (B6)-1  _  TOP OPERAND IN ESTACK.                               PAR         2548     A     
 PAR      *                                                                                PAR         2549     A     
 PAR      *         EXIT   (B6)-1  _  TOP OPERAND IN ESTACK.                               PAR         2550     A     
 PAR      *                TOP OPERAND = RESULT OF POPPED OPERATION.                       PAR         2551     A     
 PAR      *                (B5) _ TOP OPERATOR IN OSTACK.                                  PAR         2552     A     
 PAR      *                (B4) _ NEXT TOKEN.                                              PAR         2553     A     
 PAR      *                                                                                PAR         2554     A     
 PAR      *                NOTE- NOT ALL SUB-PROCESSORS RELATED TO *POP* EXIT THRU         PAR         2555     A     
 PAR      *                      POPX.                                                     PAR         2556     A     
 PAR      *                    A.  TO PAR.NX - PARENTHESIS POPPERS.                        PAR         2557     A     
 PAR      *                    B.  TO PAR.ADOP - WHEN OPERATOR CHANGED.                    PAR         2558     A     
 PAR      *         USES   ALL.                                                            PAR         2559     A     
 PAR                                                                                       PAR         2560     A     
 PAR       IOL.RTN  BSSENT 0           ...RETURN FROM IOL                                  PAR         2561     A     
 PAR                                                                                       PAR         2562     A     
 PAR       POP      SUBR   0                                                               PAR         2563     A     
 PAR                MX6    -TH.TBPRL                                                       PAR         2564          I
          -FC50104
 PAR                MX6    -SP.TBPRL                                                       FC50104      106     A     
 PAR                SA5    T.PAR                                                           PAR         2565     A     
 PAR                LX1    -TH.TBPRP                                                       PAR         2566          I
          -FC50104
 PAR                LX1    -SP.TBPRP                                                       FC50104      107     A     
 PAR                SX7    B0          CLEAR RESULT MODE                                   PAR         2567     A     
 PAR                BX1    -X6*X1      ISOLATE OP CAUSING POP                              PAR         2568     A     
 PAR                LX3    -TH.TBPRP                                                       PAR         2569          I
          -FC50104
 PAR                LX3    -SP.TBPRP                                                       FC50104      108     A     
 PAR                SA7    SMOD                                                            PAR         2570     A     
 PAR                BX2    -X6*X3      EXTRACT (X2) = TOKEN TYPE OF POPPED OP              PAR         2571     A     
 PAR                LX3    TH.TBPRP                                                        PAR         2572          I
          -FC50104
 PAR                LX3    SP.TBPRP                                                        FC50104      109     A     
 PAR                SA4    T=PAR                                                           PAR         2573     A     
 PAR                SB3    X1          (B3) = TOKEN TYPE OF OPERATOR CAUSING POP           PAR         2574     A     
 PAR                LX6    X3                                                              PAR         2575     A     
 PAR                SA7    ATTR        CLEAR ATTRIBUTE CELL                                PAR         2576     A     
 PAR                IX0    X4+X5                                                           PAR         2577     A     
 PAR                SA6    SOPR        SAVE OPERATOR                                       PAR         2578     A     
 PAR                SX7    X0-Z=TURP+OR.OPR                                                PAR         2579     A     
 PAR                SA7    LASTAD      LAST TURPLE OPERATOR ADDRESS                        PAR         2580     A     
 PAR                SA4    B6-2        1ST OPERAND INTO (X4)                               PAR         2581     A     
 PAR                SA5    X7                                                              PAR         2582     A     
 PAR                SA2    X2-O.DEF+F.POPNX                                                PAR         2583     A     
 PAR                SB7    O.ILL                                                           PAR         2584     A     
 PAR                GT     B3,B7,"BLOWUP"                                                  PAR         2585     A     
 PAR                BX6    X5                                                              PAR         2586     A     
 PAR                =X7    0                                                               PAR         2587     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    LASTOP      SET LAST OPERATOR                                   PAR         2588     A     
 PAR                =B2    0           ALWAYS A *0* UPON EXIT                              PAR         2589     A     
 PAR                =A5    A4+1        2ND OPERAND INTO (X5)                               PAR         2590     A     
 PAR                                                                                       PAR         2591     A     
 PAR       SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                                   PAR         2592     A     
 PAR                SA5    CO.SNAP                                                         PAR         2593     A     
 PAR                LX5    1RZ                                                             PAR         2594     A     
 PAR                PL     X5,POPS     IF PARSE SNAP NOT SELECTED                          PAR         2595     A     
 PAR                =A5    A4+1                                                            PAR         2596     A     
 PAR       POPP     PARSNAP                                                                PAR         2597     A     
 PAR       POPS     =A5    A4+1                                                            PAR         2598     A     
 PAR       SNAP=Z   ENDIF                                                                  PAR         2599     A     
 PAR                                                                                       PAR         2600     A     
 PAR                BX6    X3          CURRENT OPERATOR                                    PAR         2601     A     
 PAR                SB7    X2                                                              PAR         2602     A     
 PAR                SBIT   X6,TH.COMP                                                      PAR         2603          I
          -FC50104
 PAR                SBIT   X6,SP.COMP                                                      FC50104      110     A     
 PAR                PL     X6,POP.JP   IF NOT COMMUTATIVE OPERATOR                         PAR         2604     A     
 PAR                                                                                       PAR         2605     A     
 PAR      **        FIX ORDER OF COMMUTATIVE OPERATORS IN TAG NUMERIC ORDER.               PAR         2606     A     
 PAR      *                                                                                PAR         2607     A     
 PAR      ** FV            FIX COMMUTATIVE SORT ORDER --                                   PAR         2608     A     
 PAR      *         6      INTR.                                                           PAR         2609     A     
 PAR      *         5      ARY  --  DOUBLE, SINGLE.                                        PAR         2610     A     
 PAR      *         4      VAR / PROGRAMMER  -- DOUBLE, SINGLE.                            PAR         2611     A     
 PAR      *         3      VAR / INVENTED --  CONSTANTS LAST.                              PAR         2612     A     
 PAR      *         0      SHORT CONSTANT.                                                 PAR         2613     A     
 PAR      *                                                                                PAR         2614     A     
 PAR      *         SORT BY (ORBI) WITHIN EACH ABOVE CLASS.                                PAR         2615     A     
 PAR                                                                                       PAR         2616     A     
 PAR       .KEY     ECHO   ,OP=(4,5),KY=(1,2)                                              PAR         2617     A     
 PAR                BX.KY  X.OP                                                            PAR         2618     A     
 PAR                LX.OP  -TP.INTRP                                                       PAR         2619     A     
 PAR                SX6    B1                                                              PAR         2620     A     
 PAR                AX.KY  TP.ORBIP                                                        PAR         2621     A     
 PAR                BX7    X6*X.OP     KEY = 1S8 * INTR                                    PAR         2622     A     
 PAR                LX7    TP.ORBIL+8                                                      PAR         2623     A     
 PAR                LX.OP  TP.INTRP-TP.SHRTP                                               PAR         2624     A     
 PAR                BX.KY  X.KY+X7                                                         PAR         2625     A     
 PAR                BX7    -X.OP*X6    KEY += 1S1 * (NOT SHORT)                            PAR         2626     A     
 PAR                LX7    TP.ORBIL+1                                                      PAR         2627     A     
 PAR                LX.OP  TP.SHRTP-TP.MODEP                                               PAR         2628     A     
 PAR                MX6    -TP.MODEL                                                       PAR         2629     A     
 PAR                BX.KY  X.KY+X7                                                         PAR         2630     A     
 PAR                BX7    -X6*X.OP    KEY += 1S4 * MODE                                   PAR         2631     A     
 PAR                LX7    TP.ORBIL+4                                                      PAR         2632     A     
 PAR                ERRMI  8-4-TP.MODEL                                                    PAR         2633     A     
 PAR                LX.OP  -TP.MODEP   RESTORE (X.OP) = OPERAND                            PAR         2634     A     
 PAR                BX.KY  X.KY+X7                                                         PAR         2635     A     
 PAR       .KEY     ENDD                                                                   PAR         2636     A     
 PAR                                                                                       PAR         2637     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX7    X1-X2       SORT BY (KEY, ORD, BIAS)                            PAR         2638     A     
 PAR                BX1    X4                                                              PAR         2639     A     
 PAR                PL     X7,POP.JP   IF IN NUMERIC ORDER                                 PAR         2640     A     
 PAR                BX4    X5                                                              PAR         2641     A     
 PAR                LX5    X1                                                              PAR         2642     A     
 PAR                                                                                       PAR         2643     A     
 PAR      **        ENTER POPPING ROUTINE WITH --                                          PAR         2644     A     
 PAR      *                (B2) = ALWAYS A *0* UPON EXIT.                                  PAR         2645     A     
 PAR      *                (B3) = TOKEN TYPE OF OPERATOR CAUSING POP.                      PAR         2646     A     
 PAR      *                (X3) = OPERATOR.                                                PAR         2647     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         2648     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         2649     A     
 PAR      *                (X7) .GE. 0, IF OPERANDS NOT REVERSED.                          PAR         2650     A     
 PAR                                                                                       PAR         2651     A     
 PAR       POP.JP   JP     B7          JUMP TO POPPER...                                   PAR         2652     A     
 PAR       POP.ERR  SPACE  4,10                                                            PAR         2653     A     
 PAR      **        POP.ERR - SOMETHING UNCLEAN HAPPENED.                                  PAR         2654     A     
 PAR      *                                                                                PAR         2655     A     
 PAR      *         EMIT ERROR TURPLE.                                                     PAR         2656     A     
 PAR                                                                                       PAR         2657     A     
 PAR                                                                                       PAR         2658     A     
 PAR       POP.ERR  BSS    0                                                               PAR         2659     A     
 PAR                SA3    ERROP                                                           PAR         2660     A     
 PAR                =X7    0           CLEAR OPERATOR CELL                                 PAR         2661     A     
 PAR                MX4    0                                                               PAR         2662     A     
 PAR                BX5    0           (1OP) = (2OP) = NIL                                 PAR         2663     A     
 PAR                SA7    SOPR                                                            PAR         2664     A     
 PAR                EQ     POP.ST1     ADD ERROR TURPLE                                    PAR         2665     A     
 PAR       POP.STD  SPACE  4,20                                                            PAR         2666     A     
 PAR      **        STD -  SET DOMINANT MODE / ADD TURPLE TO PARSED FILE.                  PAR         2667     A     
 PAR      *                                                                                PAR         2668     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         2669     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         2670     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         2671     A     
 PAR      *                                                                                PAR         2672     A     
 PAR      *         CALLS  SDM.                                                            PAR         2673     A     
 PAR                                                                                       PAR         2674     A     
 PAR                                                                                       PAR         2675     A     
 PAR       POP.STD  BSSENT 0                                                               PAR         2676     A     
 PAR                RJ     SDM         SET DOMINANT MODE / RESULTANT MODE                  PAR         2677          I
          -FC5A150
 PAR                                                                                       FC5A150      459     A     
 PAR      *         IF POPPING CAUSED BY OPR. WITH LOWER PRIORITY THAN MULT,               FC5A150      460     A     
 PAR      *         RESET MULT TOGGLE SO NEXT * WILL BE 'POPABLE'.                         FC5A150      461     A     
 PAR                                                                                       FC5A150      462     A     
 PAR                MX0    -TH.TBPRL                                                       FC5A150      463          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      111     A     
 PAR                SA1    POPPER                                                          FC5A150      464     A     
 PAR                LX1    -TH.TBPRP                                                       FC5A150      465          I
          -FC50104
 PAR                LX1    -SP.TBPRP                                                       FC50104      112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX7    -X0*X1                                                          FC5A150      466     A     
 PAR                MX6    0                                                               FC5A150      467     A     
 PAR                SX7    X7-PR.MULT                                                      FC5A150      468     A     
 PAR                PL     X7,POP.ST0  IF COP GE PRIOR(*)                                  FC5A150      469     A     
 PAR                SA6    MULTOG      MULTOG = 0                                          FC5A150      470     A     
 PAR                                                                                       FC5A150      471     A     
 PAR       POP.ST0  RJ     SDM         SET DOMINANT MODE                                   FC5A150      472     A     
 PAR                                                                                       PAR         2678     A     
 PAR                                                                                       PAR         2679     A     
 PAR      **        ST1 -  ADD TURPLE TO PARSED FILE.                                      PAR         2680     A     
 PAR      *                                                                                PAR         2681     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         2682     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         2683     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         2684     A     
 PAR      *                                                                                PAR         2685     A     
 PAR      *         CALLS  ADT, OMC.                                                       PAR         2686     A     
 PAR                                                                                       PAR         2687     A     
 PAR                                                                                       PAR         2688     A     
 PAR       POP.ST1  BSS    0           ENTRY...                                            PAR         2689     A     
 PAR                BX6    X3                                                              PAR         2690     A     
 PAR                SA6    SOPR        SET OPERATOR CELL                                   PAR         2691     A     
 PAR                RJ     OMC                                                             PAR         2692     A     
 PAR                RJ     ADT         ADD TURPLE                                          PAR         2693     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2694     A     
 PAR       C=OPER   EJECT  4,20                                                            PAR         2695     A     
 PAR      **        POP.CM - PROCESSING OF A COMMA.                                        PAR         2696     A     
 PAR      *                                                                                PAR         2697     A     
 PAR      *         C=XXX PROCESSING SECTION.                                              PAR         2698     A     
 PAR      *                                                                                PAR         2699     A     
 PAR      *         ENTRY  (ARGMODE) = CURRENT VALUE FOR C= IN DEFINED FIELD.              PAR         2700     A     
 PAR      *                (X3) = CURRENT OPERATOR WORD FOR COMMA.                         PAR         2701     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         2702     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         2703     A     
 PAR      *                                                                                PAR         2704     A     
 PAR      *         EXIT   SEE INDIVIDUAL PROCESSORS.                                      PAR         2705     A     
 PAR      *                (NOTE - NOT ALL PROCESSORS EXIT DIRECTLY THRU *POP*...)         PAR         2706     A     
 PAR                                                                                       PAR         2707     A     
 PAR                                                                                       PAR         2708     A     
 PAR       POP.COL  BSS    0                                                               PAR         2709     A     
 PAR       POP.CM   BSS    0                                                               PAR         2710     A     
 PAR                SA1    ARGCOMA                                                         PAR         2711     A     
 PAR                SA2    ARGMODE                                                         PAR         2712     A     
 PAR                SX0    B1                                                              PAR         2713     A     
 PAR                LX0    AC.CNTP                                                         PAR         2714     A     
 PAR                IX6    X1+X0       UPDATE NUMBER OF ARGUMENTS                          PAR         2715     A     
 PAR                MX0    -AM.COML                                                        PAR         2716     A     
 PAR                BX7    X2                                                              PAR         2717     A     
 PAR                AX2    AM.COMP                                                         PAR         2718     A     
 PAR                BX0    -X0*X2      C=XXX ADDRESS                                       PAR         2719     A     
 PAR                SA6    A1                                                              PAR         2720     A     
 PAR                SB2    X0                                                              PAR         2721     A     
 PAR                                                                                       PAR         2722     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         TRANSFER TO PROCESSORS WITH  ...                                       PAR         2723     A     
 PAR      *                (X2) = (ARGMODE) SHIFTED BY AM.COMP.                            PAR         2724     A     
 PAR      *                (X6) = CURRENT VALUE OF *ARGCOMA*.                              PAR         2725     A     
 PAR                                                                                       PAR         2726     A     
 PAR                JP     B2          JUMP TO INDIVIDUAL PROCESSOR                        PAR         2727     A     
 PAR       C=ERR    SPACE  4,10                                                            PAR         2728     A     
 PAR      **        C=CERR - IF COMMA NOT ALLOWED FOR PAREN LEVEL CURRENTLY IN.            PAR         2729     A     
 PAR                                                                                       PAR         2730     A     
 PAR                                                                                       PAR         2731     A     
 PAR       C=CERR   BSSENT 0           ENTRY...                                            PAR         2732     A     
 PAR                FATAL  E.AT05                                                          PAR         2733     A     
 PAR       C=ERR    BSSENT 0           ENTRY...                                            PAR         2734     A     
 PAR                EQ     POP.ERR                                                         PAR         2735     A     
 PAR       POP.RP   SPACE  4,10                                                            PAR         2736     A     
 PAR      **        POP.RP - RIGHT PAREN BEING POPPED.                                     PAR         2737     A     
 PAR      *         OUTPUT ERROR, TOO FEW LEFT PARENS - SCANNING STOPPED.                  PAR         2738     A     
 PAR      *                                                                                PAR         2739     A     
 PAR      *         JOINTED AT POP.RP5  BY LEFT PAREN POPPER IF NOT BEING POPPED           PAR         2740     A     
 PAR      *         BY RIGHT PAREN -- ERROR = TOO FEW RIGHT PARENS.                        PAR         2741     A     
 PAR      *                                                                                PAR         2742     A     
 PAR      *         EXIT   TO C=ERR.                                                       PAR         2743     A     
 PAR                                                                                       PAR         2744     A     
 PAR                                                                                       PAR         2745     A     
 PAR       POP.RP   BSS    0                                                               PAR         2746     A     
 PAR                =A1    B5+1                                                            PAR         2747     A     
 PAR                AX1    TB.IOSPP    TEST FOR SPECIAL RIGHT PAREN                        PAR         2748     A     
 PAR                ZR     X1,POP.RP1  IF NOT SPECIAL RP, THEN ERROR                       PAR         2749     A     
 PAR                EQ     PAR.EOS3    CONTINUE PROCESSING IO LIST                         PAR         2750     A     
 PAR       POP.RP1  =B4    B4-3        SET FOR ERROR PROCESSING                            PAR         2751     A     
 PAR                SB7    E.LP2                                                           PAR         2752     A     
 PAR       POP.RP5  FATAL  B7                                                              PAR         2753     A     
 PAR                EQ     PAR.STOP    CATASTROPHIC ERROR, START ANEW                      PAR         2754     A     
 PAR       POP.PN   EJECT  4,30                                                            PAR         2755     A     
 PAR      **        POP.PN - RIGHT PARENTHESIS POPPING LEFT PARENTHESIS.                   PAR         2756     A     
 PAR      *                                                                                PAR         2757     A     
 PAR      *         A=XXX PROCESSING SECTION.                                              PAR         2758     A     
 PAR      *                                                                                PAR         2759     A     
 PAR      *         GENERAL FLOW.                                                          PAR         2760     A     
 PAR      *         UPON ENTRY ARGMODE AND ARGCOMA ARE SET TO THE CURRENT MODE             PAR         2761     A     
 PAR      *         OF THE SUB-EXPRESSION DEFINED IN PARENTHESIS AS SET WHEN               PAR         2762     A     
 PAR      *         THE OPEN PAREN WAS FOUND.                                              PAR         2763     A     
 PAR      *                                                                                PAR         2764     A     
 PAR      *         THE NEW VALUES TO BE SET FOR CELLS ARGMODE,ARGCOMA AND ARGMIS          PAR         2765     A     
 PAR      *         WERE PREVIOUSLY SET BY *SPS* TO BE IN THE OPERATOR STACK IN            PAR         2766     A     
 PAR      *         FRONT OF THE CURRENT LEFT PAREN THAT IS CURRENTLY BEING POPPED         PAR         2767     A     
 PAR      *         THUS WE RESET ALL THREE OF THESE CELLS AS DEFINED BELOW.               PAR         2768     A     
 PAR      *                                                                                PAR         2769     A     
 PAR      *         AFTER THIS WE EXIT TO THE APPROPRIATE A=XXX PROCESSOR DEFINED          PAR         2770     A     
 PAR      *         BY THE A= FIELD OF THE ENTRY ARGMODE.                                  PAR         2771     A     
 PAR      *                                                                                PAR         2772     A     
 PAR      *         NOTE -                                                                 PAR         2773     A     
 PAR      *         IF LEFT PAREN NOT BEING POPPED BY RIGHT PAREN - NEXT ENTRY             PAR         2774     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         IN *TB* IS REPLACED WITH AN *EOS* AND EXIT IS MADE TO C=CERR           PAR         2775     A     
 PAR      *         TO OUTPUT ERROR INDICATING TOO MANY LEFT PARENS, AND TO ADD            PAR         2776     A     
 PAR      *         ERROR TURPLE TO PARSED FILE.                                           PAR         2777     A     
 PAR      *                                                                                PAR         2778     A     
 PAR      *                (B5)-3   ->   ARGMODE.                                          PAR         2779          I
          -FC51075
 PAR      *                (B5)-2   ->   ARGCOMA.                                          PAR         2780          I
          -FC51075
 PAR      *                (B5)-1   ->   ARGMIS.                                           PAR         2781          I
          -FC51075
 PAR      *         PARSER CONTEXT STACK                                                   FC51075       40     A     
 PAR      *                                                                                FC51075       41     A     
 PAR      *                N - 2       ARGMODE.                                            FC51075       42     A     
 PAR      *                N - 1       ARGCOMA.                                            FC51075       43     A     
 PAR      *                N           ARGMIS                                              FC51075       44     A     
 PAR      *                                                                                PAR         2782     A     
 PAR      *         ARGMODE FORMAT.                                                        PAR         2783     A     
 PAR      *         +-----------+-----------+-----------------+-----------------+          PAR         2784     A     
 PAR      *         +           +           +                 +                 +          PAR         2785     A     
 PAR      *         +  REFVAR   +ATTRIBUTES +      C=XXX      +       A=XXX     +          PAR         2786     A     
 PAR      *         +           +           +                 +                 +          PAR         2787     A     
 PAR      *         +-----------+-----------+-----------------+-----------------+          PAR         2788     A     
 PAR      *              12         12               18               18                   PAR         2789     A     
 PAR      *                                                                                PAR         2790     A     
 PAR      *         ARGCOMA FORMAT.                                                        PAR         2791     A     
 PAR      *         +-----------------------+-----------------+-----------------+          PAR         2792     A     
 PAR      *         +///////////////////////+  MODE  OF  PARM + CURRENT ARGUMENT+          PAR         2793     A     
 PAR      *         +///////////////////////+ ( MAY BE OTHER )+    -  1         +          PAR         2794     A     
 PAR      *         +///////////////////////+                 +                 +          PAR         2795     A     
 PAR      *         +-----------------------+-----------------+-----------------+          PAR         2796     A     
 PAR      *                    24                   18               18                    PAR         2797     A     
 PAR      *                                                                                PAR         2798     A     
 PAR      *                                                                                PAR         2799     A     
 PAR      *         ENTRY  (X3) = CURRENT *(* OPERATOR TO BE PROCESSED.                    PAR         2800     A     
 PAR      *                (B3) = CURRENT VALUE OF ARGMODE.                                PAR         2801     A     
 PAR      *                (B4) -> RIGHT PARENTHESIS IN TOKEN BUFFER.                      PAR         2802     A     
 PAR      *                (POPPER) = TABBED VALUE FOR RIGHT PAREN OPERATOR.               PAR         2803     A     
 PAR      *                                                                                PAR         2804     A     
 PAR      *         EXIT   DEPENDING ON THE PARTICULAR VALUE FOR A=, EXIT IS THRU          PAR         2805     A     
 PAR      *                A.  POP.STD - TO PROCESS OPERATOR, OR,                          PAR         2806     A     
 PAR      *                B.  POPX    - IGNORE OPERATOR.                                  PAR         2807     A     
 PAR      *                              (NOTE - IN CERTAIN *POPPER* IS SET TO             PAR         2808     A     
 PAR      *                                      INDICATE BYPASSING OF PAREN.)             PAR         2809     A     
 PAR      *                                                                                PAR         2810     A     
 PAR      *         USES   A2-4,A6   X5   B3.                                              PAR         2811     A     
 PAR                                                                                       PAR         2812     A     
 PAR                                                                                       PAR         2813     A     
 PAR       POP.PN   BSS    0                                                               PAR         2814     A     
 PAR                SA4    ARGMODE                                                         PAR         2815     A     
 PAR                SA3    POPDPC                                                          PAR         2816     A     
 PAR                SA5    ARGCOMA                                                         PAR         2817     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         2818          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC50104
 PAR                LX3    -TH.TBPRP                                                       PAR         2819          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      113     A     
 PAR                LX3    -SP.TBPRP                                                       FC50104      114     A     
 PAR                BX7    -X0*X3      EXTRACT (X7) = TOKEN TYPE FOR POP-ING OP            PAR         2820     A     
 PAR                SB2    X7-O.RP                                                         PAR         2821     A     
 PAR                LX4    -AM.PADP                                                        PAR         2822     A     
 PAR                SB3    X4                                                              PAR         2823     A     
 PAR                ERRNZ  18-AM.PADL                                                      PAR         2824     A     
 PAR                LX4    AM.PADP                                                         PAR         2825     A     
 PAR                SA3    ARGMIS                                                          PAR         2826     A     
 PAR                SB7    E.LP1       IN CASE OF PARENTHESIS MISMATCH                     PAR         2827     A     
 PAR                NZ     B2,POP.RP5  IF *(* NOT BEING POPPED BY *)*                      PAR         2828     A     
 PAR                BX7    X4                                                              PAR         2829     A     
 PAR                LX5    -AC.CNTP                                                        PAR         2830     A     
 PAR                SB2    X5                                                              PAR         2831     A     
 PAR                ERRNZ  18-AC.CNTL                                                      PAR         2832     A     
 PAR                SA7    SCR         SAVE CURRENT *ARGMODE*                              PAR         2833     A     
 PAR                LX6    X5                                                              PAR         2834     A     
 PAR                BX7    X3                                                              PAR         2835     A     
 PAR                =A2    B5+1-Z=PSTACK+AM.W                                              PAR         2836          I
          -FC51075
 PAR                SA2    T.PCS                                                           FC51075       45     A     
 PAR                SA4    T=PCS                                                           FC51075       46     A     
 PAR                IX0    X2+X4                                                           FC51075       47     A     
 PAR                SA2    X0-Z=PSTACK+AM.W                                                FC51075       48     A     
 PAR                =A6    A7+1        SAVE CURRENT *ARGCOMA*                              PAR         2837     A     
 PAR                =A4    A2-AM.W+AC.W                                                    PAR         2838     A     
 PAR                =A7    A6+1        SAVE CURRENT *ARGMIS*                               PAR         2839     A     
 PAR                BX6    X2                                                              PAR         2840     A     
 PAR                SB5    B5-Z=PSTACK RESET OSTACK POINTER                                PAR         2841          I
          -FC51075
 PAR                SA2    T=PCS                                                           FC51075       49     A     
 PAR                SX7    X2-Z=PSTACK                                                     FC51075       50     A     
 PAR                SA7    A2                                                              FC51075       51     A     
 PAR                SA3    CMLFLG                                                          PAR         2842     A     
 PAR                =A5    A4-AC.W+AS.W                                                    PAR         2843     A     
 PAR                SX2    X3+B5                                                           PAR         2844     A     
 PAR                SA6    ARGMODE     RESET ARGMODE                                       PAR         2845     A     
 PAR                NZ     X2,POP.PN1  IF NO NEED TO RESET FLAG                            PAR         2846     A     
 PAR                =X7    1                                                               PAR         2847     A     
 PAR                SA7    A3                                                              PAR         2848     A     
 PAR       POP.PN1  AX6    AM.REFP                                                         PAR         2849     A     
 PAR                SA2    ARGCOMA                                                         PAR         2850     A     
 PAR                BX7    X4                                                              PAR         2851     A     
 PAR                SA6    REFVAR      RESET CROSS REFERENCE VALUE                         PAR         2852     A     
 PAR                SA7    A2          RESET ARGCOMA                                       PAR         2853     A     
 PAR                BX6    X5                                                              PAR         2854     A     
 PAR                SA6    ARGMIS                                                          PAR         2855     A     
 PAR                SA4    B6-2        1ST OPERAND                                         PAR         2856     A     
 PAR                MX6    -1                                                              PAR         2857     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B4    B4+1        BYPASS RIGHT PARENTHESIS                            PAR         2858     A     
 PAR                =A5    B6-1        2ND OPERAND                                         PAR         2859     A     
 PAR                SA6    POPPER      INDICATE IGNORE FUTHER PROCESSING OF PAREN          PAR         2860     A     
 PAR                                                                                       PAR         2861     A     
 PAR      *         EXIT TO A=XXX PROCESSOR WITH THE FOLLOWING CONDITIONS SET --           PAR         2862     A     
 PAR      *                (X2) = (ARGCOMA).                                               PAR         2863     A     
 PAR      *                (X4) = (1OP).                                                   PAR         2864     A     
 PAR      *                (X5) = (2OP).                                                   PAR         2865     A     
 PAR      *                (B2) = NUMBER OF ARGUMENTS - 1 INSIDE PARENS.                   PAR         2866     A     
 PAR      *                (B4) -> NEXT ELEMENT PAST CLOSING RIGHT PAREN.                  PAR         2867     A     
 PAR      *                                                                                PAR         2868     A     
 PAR      *                (SCR+AM.W) = (ARGMODE) FOR PAREN BEING CLOSED.                  PAR         2869     A     
 PAR      *                (SCR+AC.W) = (ARGCOMA)  -    -     -      -                     PAR         2870     A     
 PAR      *                (SCR+AS.W) = (ARGMIS )  -    -     -      -                     PAR         2871     A     
 PAR                                                                                       PAR         2872     A     
 PAR                JP     B3                                                              PAR         2873     A     
 PAR       A=IF     SPACE  4,10                                                            PAR         2874     A     
 PAR      **        A=IF - PROCESS TERMINAL PARENTHESIS OF *IF* EXPRESSION.                PAR         2875     A     
 PAR      *         EXIT   TO PAREXIT.                                                     PAR         2876     A     
 PAR      *                (IFRESLT) = EXPRESSION RESULT OPERATOR.                         PAR         2877     A     
 PAR      *                (IFMOD) = MODE OF RESULT.                                       PAR         2878     A     
 PAR                                                                                       PAR         2879     A     
 PAR                                                                                       PAR         2880     A     
 PAR       A=IF     BSS    0                                                               PAR         2881     A     
 PAR                EQ     AIF8        **** TEMP ****                                      PAR         2882     A     
 PAR                SA1    LASTOP                                                          PAR         2883     A     
 PAR       RELOP    BITMIC (O.LT,O.GE,O.EQ,O.NE)                                           PAR         2884     A     
 PAR                SA2    ="RELOP"                                                        PAR         2885     A     
 PAR                SB7    X1                                                              PAR         2886     A     
 PAR                LX6    X2,B7                                                           PAR         2887     A     
 PAR                PL     X6,AIF8     IF LAST OP NOT RELATION                             PAR         2888     A     
 PAR                BX1    X5                                                              PAR         2889     A     
 PAR                RJ     COR         CHECK IF OPERAND IS REDUCIBLE INTERMEDIATE          PAR         2890     A     
 PAR                NZ     X0,AIF8     IF RELATION-OP NOT INPUT TO IF-OP                   PAR         2891     A     
 PAR       AIF8     SA1    B6-B1       FETCH TOP OF OPERAND STACK                          PAR         2892     A     
 PAR                MX0    -TP.MODEL                                                       PAR         2893     A     
 PAR                LX7    X1                                                              PAR         2894     A     
 PAR                LX1    -TP.MODEP                                                       PAR         2895     A     
 PAR                BX6    -X0*X1                                                          PAR         2896     A     
 PAR                SA7    IFRESLT                                                         PAR         2897     A     
 PAR                SA6    IFMOD                                                           PAR         2898     A     
 PAR                EQ     PAREXIT     FOUND TERMINAL *)* OF IF (EXP) - EXIT ...           PAR         2899     A     
 PAR       A=LIST   SPACE  4,10                                                            PAR         2900     A     
 PAR      **        A=LIST - PROCESS CLOSING OF AN I/O LIST.                               PAR         2901     A     
 PAR      *         A=DVL - PROCESS CLOSING OF DATA VARIABLE LIST.                         PAR         2902     A     
 PAR      *                                                                                PAR         2903     A     
 PAR      *         NOTE THAT A=DVL SHOULD BE SAME AS A=LIST, BUT MUST HAVE                PAR         2904     A     
 PAR      *         A DIFFERENT ADDRESS SO 'SPECIAL' FLAG TESTS IN PAR WILL                PAR         2905     A     
 PAR      *         NOT DO IDIOTIC THINGS.                                                 PAR         2906     A     
 PAR                                                                                       PAR         2907     A     
 PAR                                                                                       PAR         2908     A     
 PAR       A=LIST   EQU    POPX        EXIT...                                             PAR         2909     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         2910     A     
 PAR       A=DVL    EQ     POPX        ME TOO..                                            PAR         2911     A     
 PAR                TITLE  POP/EMIT SIMPLE OPERATORS.                                      PAR         2912     A     
 PAR      POP=COM   SPACE  4,10                                                            PAR         2913     A     
 PAR      **        POP=COM - POP GENERAL COMMUTATIVE OPERATOR.                            PAR         2914     A     
 PAR      *                                                                                PAR         2915     A     
 PAR      *         PURPOSE - TO DISCOVER A "CLUSTER" OF ASSOCIATIVE/COMMUTATIVE           PAR         2916     A     
 PAR      *                OPERATORS, AND TO COMBINE ALL CONSTANTS OCCURRING IN            PAR         2917     A     
 PAR      *                IT INTO A SINGLE CONSTANT.  IF ONLY ONE CONSTANT, IT            PAR         2918     A     
 PAR      *                WILL BE LAST.                                                   PAR         2919     A     
 PAR      *                                                                                PAR         2920     A     
 PAR      *         THE TERM 'CLUSTER' IS FROM AHO AND ULLMAN, 1973, THEORY OF             PAR         2921     A     
 PAR      *         PARSING, TRANSLATION AND COMPILATION, VOL 2, CHAPTER 11.               PAR         2922     A     
 PAR      *                                                                                PAR         2923     A     
 PAR      *         THE CURRENT OPERATOR IS IN THE MIDST OF A CLUSTER, IF:                 PAR         2924     A     
 PAR      *         (A)  IT IS COMUTATIVE.  (THIS IS ASSUMED -- DO NOT ENTER THIS          PAR         2925     A     
 PAR      *              THIS ROUTINE WITH A NON-COMUTATIVE OPERATOR.)                     PAR         2926     A     
 PAR      *         (B)  IT IS ALSO ASSOCIATIVE.                                           PAR         2927     A     
 PAR      *         (C)  IT IS BEING POPPED BY AN IDENTICAL OPERATOR, WHICH IS             PAR         2928     A     
 PAR      *              STILL ASSOCIATIVE.  (ASSOCIATIVITY AND COMUTATIVITY CAN           PAR         2929     A     
 PAR      *              BE WIPED OUT FOR A PARTICULAR INSTANCE OF AN OPERATOR             PAR         2930     A     
 PAR      *              DURING THE PARSING PROCESS.)                                      PAR         2931     A     
 PAR      *                                                                                PAR         2932     A     
 PAR      *         METHOD - WHEN THE OPERATOR BEING POPPED IS WITHIN A CLUSTER,           PAR         2933     A     
 PAR      *                AND IF EXACTLY ONE OPERAND IS CONSTANT, THEN:                   PAR         2934     A     
 PAR      *                (A)  REVERSE OPERAND STACK ENTRIES, IF NECESSARY, TO            PAR         2935     A     
 PAR      *                     ENSURE THE CONSTANT OPERAND IS SECOND, AND                 PAR         2936     A     
 PAR      *                (B)  DELAY POPPING THE OPERATOR.                                PAR         2937     A     
 PAR      *                                                                                PAR         2938     A     
 PAR      *         THUS, CONSTANT OPERANDS IN A CLUSTER BUBBLE TOWARD THE END.            PAR         2939     A     
 PAR      *         WHENEVER TWO CONSTANTS MEET, LET THE OPERAND POP NORMALLY, SO          PAR         2940     A     
 PAR      *         THAT CONRED CAN COMBINE THEM.  THE RESULTANT SINGLE CONSTANT           PAR         2941     A     
 PAR      *         WILL RESUME BUBBLING ON THE NEXT TRIP THRU HERE.  IF NEITHER           PAR         2942     A     
 PAR      *         OPERAND IS CONSTANT, ALSO POP NORMALLY.                                PAR         2943     A     
 PAR      *                                                                                PAR         2944     A     
 PAR      *         THE MECHANICS OF DELAYING THE POP IS SORT OF DIRTY --                  PAR         2945     A     
 PAR      *         THE OPERATOR IS PUT BACK ON (OSTACK), AND WE EXIT DIRECTLY             PAR         2946     A     
 PAR      *         TO PAR.ADOP,   N O T   THRU THE POP ENTRY POINT.                       PAR         2947     A     
 PAR      *                                                                                PAR         2948     A     
 PAR      *         ENTRY  (X3) = COMMUTATIVE OPERATOR.                                    PAR         2949     A     
 PAR                                                                                       PAR         2950     A     
 PAR                                                                                       PAR         2951     A     
 PAR       POP=COM  SA1    POPDPC      ENTRY...                                            PAR         2952     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         2953          I
          -FC50104
 PAR                LX3    -TH.TBPRP                                                       PAR         2954          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      115     A     
 PAR                LX3    -SP.TBPRP                                                       FC50104      116     A     
 PAR                BX7    -X0*X3      (X7) = TOKEN TYPE OF OP BEING POPPED                PAR         2955     A     
 PAR                IX1    X1-X7                                                           PAR         2956     A     
 PAR                LX3    TH.TBPRP                                                        PAR         2957          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC50104
 PAR                LX3    SP.TBPRP                                                        FC50104      117     A     
 PAR                NZ     X1,POP.STD  IF NOT BEING POPPED BY LIKE OPERATOR                PAR         2958     A     
 PAR                BX6    X3                                                              PAR         2959     A     
 PAR                HX6    TH.AS                                                           PAR         2960          I
          -FC50104
 PAR                HX6    SP.AS                                                           FC50104      118     A     
 PAR                PL     X6,POP.STD  IF OPERATOR NOT ASSOCIATIVE                         PAR         2961     A     
 PAR                SA1    SDIV                                                            FC5A221       15     A     
 PAR                MX2    -TH.STPRL                                                       FC5A221       16          I
          -FC50104
 PAR                MX2    -SP.STPRL                                                       FC50104      119     A     
 PAR                BX1    X1-X3                                                           FC5A221       17     A     
 PAR                LX1    -TH.STPRP                                                       FC5A221       18          I
          -FC50104
 PAR                LX1    -SP.STPRP                                                       FC50104      120     A     
 PAR                BX2    -X2*X1                                                          FC5A221       19     A     
 PAR                ZR     X2,POP.STD  IF * POPPING SPECIAL DIVIDE                         FC5A221       20     A     
 PAR                                                                                       PAR         2962     A     
 PAR      **        CHECK IF OPERANDS ARE CONSTANTS.                                       PAR         2963     A     
 PAR      *         JOINED HERE TO POP A SPECIAL DIVIDE.                                   PAR         2964     A     
 PAR                                                                                       PAR         2965     A     
 PAR                                                                                       PAR         2966     A     
 PAR       POP.SDIV BSS                                                                    PAR         2967     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         2968     A     
 PAR                SA2    B6-B1       TOP-1                                               PAR         2969     A     
 PAR                SA1    A2-B1       TOP-2                                               PAR         2970     A     
 PAR                BX7    X2-X5                                                           PAR         2971     A     
 PAR                BX6    X1-X4                                                           PAR         2972     A     
 PAR                BX1    X1-X5                                                           PAR         2973     A     
 PAR                BX2    X2-X4                                                           PAR         2974     A     
 PAR                ZR     X6,POPCOM2  IF (1OP) = TOP-2                                    PAR         2975     A     
 PAR                NZ     X2,"BLOWUP" IF (1OP) NOT FROM STACK                             PAR         2976     A     
 PAR                NZ     X1,"BLOWUP" IF (2OP) <> TOP-2                                   PAR         2977     A     
 PAR                EQ     POPCOM8                                                         PAR         2978     A     
 PAR                                                                                       PAR         2979     A     
 PAR       POPCOM2  NZ     X7,"BLOWUP" IF (2OP) <> TOP-1                                   PAR         2980     A     
 PAR       POPCOM8  BSS                OK..                                                PAR         2981     A     
 PAR       .T       ENDIF                                                                  PAR         2982     A     
 PAR                                                                                       PAR         2983     A     
 PAR                BX1    X4                                                              PAR         2984     A     
 PAR                CALL   LCT         LOAD CONSTANT (1OP)                                 PAR         2985     A     
 PAR                SX3    -B1                                                             PAR         2986     A     
 PAR                BX1    X5                                                              PAR         2987     A     
 PAR                ZR     B2,COM3     IF FIRST IS NOT CONSTANT                            PAR         2988     A     
 PAR                BX6    X4                                                              PAR         2989     A     
 PAR                LX7    X5          ROTATE OPERANDS                                     PAR         2990     A     
 PAR                SX3    B0          INDICATE 1 CONSTANT SO FAR                          PAR         2991     A     
 PAR                SA6    B6-B1                                                           PAR         2992     A     
 PAR                BX5    X6                                                              PAR         2993     A     
 PAR                LX4    X7                                                              PAR         2994     A     
 PAR                SA7    A6-B1                                                           PAR         2995     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         2996     A     
 PAR       COM3     CALL   LCT         LOAD CONSTANT (2OP)                                 PAR         2997     A     
 PAR                SB7    X3                                                              PAR         2998     A     
 PAR                ZR     B2,COM4     IF (2OP) IS NOT CONSTANT                            PAR         2999     A     
 PAR                SB7    X3+B1                                                           PAR         3000     A     
 PAR                                                                                       PAR         3001     A     
 PAR      *         (B7) = -1, NEITHER IS CONSTANT.                                        PAR         3002     A     
 PAR      *              =  0, ONLY 1 OPERAND IS CONSTANT.                                 PAR         3003     A     
 PAR      *              = +1, BOTH ARE CONSTANT.                                          PAR         3004     A     
 PAR                                                                                       PAR         3005     A     
 PAR       COM4     SA3    SOPR        RELOAD POPPED OPERATOR                              PAR         3006     A     
 PAR                NZ     B7,POP.STD  IF BOTH OR NONE ARE CONSTANTS                       PAR         3007     A     
 PAR                SA2    POPPER                                                          PAR         3008     A     
 PAR                =B5    B5+1        RETAIN OPERATOR ON OSTACK                           PAR         3009     A     
 PAR                =A1    A2-POPPER+POPDPC                                                PAR         3010     A     
 PAR                =B4    B4+1        ADVANCE TO NEXT TOKEN                               PAR         3011     A     
 PAR                EQ     PAR.ADOP    RESET OPERATOR STACK                                PAR         3012     A     
 PAR       POP.DIV  SPACE  4,30                                                            PAR         3013     A     
 PAR      **        POP.DIV - DIVIDE BEING POPPED.                                         PAR         3014     A     
 PAR      *                                                                                PAR         3015     A     
 PAR      *         PURPOSE                                                                PAR         3016     A     
 PAR      *         TO CHANGE SEQUENCE - A  =  B / C / D / E / F                           PAR         3017     A     
 PAR      *                          TO  A  =  B /(C * D * E * F )                         PAR         3018     A     
 PAR      *                                                                                PAR         3019     A     
 PAR      *         GENERAL FLOW.                                                          PAR         3020     A     
 PAR      *                                                                                PAR         3021     A     
 PAR      *         1. IF DIVIDE BEING POPPED IS COMMUTATIVE - DIVIDE WAS                  PAR         3022     A     
 PAR      *            PREVIOUSLY CHANGED TO SPECIAL MULTIPLY.                             PAR         3023     A     
 PAR      *                A.  CHANGE DPC FOR OPERATOR TO MULTIPLY, THUS MAKING            PAR         3024     A     
 PAR      *                    DIVIDE LOOK LIKE A TRUE MULTIPLY.                           PAR         3025     A     
 PAR      *                B.  RESET POPPER TO SPECIAL DIVIDE.                             PAR         3026     A     
 PAR      *                C.  RESET OPERATOR STACK FOR CURRENT DIVIDE TO (A).             PAR         3027     A     
 PAR      *                                                                                PAR         3028     A     
 PAR      *         2. IF DIVIDE BEING POPPED IS NOT COMMUTATIVE - DIVIDE IS 1ST           PAR         3029     A     
 PAR      *            IN SEQUENCE.                                                        PAR         3030     A     
 PAR      *                B.  IF BOTH OPERANDS ARE CONSTANTS LET DIVIDE BE                PAR         3031     A     
 PAR      *                    POPPED.  IF NOT, GO TO (C).                                 PAR         3032     A     
 PAR      *                C.  CHANGE POPPER TO SPECIAL DIVIDE.                            PAR         3033     A     
 PAR      *                D.  RESET *B5* INDICATING DIVIDE NOT POPPED.                    PAR         3034     A     
 PAR      *                E.  EXIT TO PAR.ADOP TO ADD SECOND DIVIDE AS SPECIAL            PAR         3035     A     
 PAR      *                    DIVIDE.                                                     PAR         3036     A     
 PAR      *                                                                                PAR         3037     A     
 PAR      *         3. IF DIVIDE NOT BEING POPPED BY DIVIDE                                PAR         3038     A     
 PAR      *                A.  CHECK IF DIVIDE BEING POPPED IS A SPECIAL DIVIDE            PAR         3039     A     
 PAR      *                    THAT HAS NOT BEEN COMFIRMED.                                PAR         3040     A     
 PAR      *                B.  IF (A) IS TRUE, CHANGE DIVIDE TO TRUE MULTIPLY              PAR         3041     A     
 PAR      *                    AND EXIT TO POP.STD, POPPING AS MULTIPLY.                   PAR         3042     A     
 PAR      *                C.  IF (A) IS FALSE, EXIT TO POP.STD TO POP DIVIDE.             PAR         3043     A     
 PAR                                                                                       PAR         3044     A     
 PAR                                                                                       PAR         3045     A     
 PAR       POP.DIV  BSS    0                                                               PAR         3046     A     
 PAR                BX1    X5                                                              PAR         3047     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                CALL   LCT         LOAD CONSTANT TEST                                  PAR         3048     A     
 PAR                ZR     B2,POP.DV2  IF DENOMINATOR NOT CONSTANT                         PAR         3049     A     
 PAR                NZ     X6,POP.DV2  IF DENOMINATOR NOT ZERO                             PAR         3050     A     
 PAR                SX0    X0-M.CPLX                                                       PAR         3051     A     
 PAR                NZ     X0,POP.DV1  IF DENOM. NOT COMPLEX                               PAR         3052     A     
 PAR                NZ     X7,POP.DV2  IF AIMAG(DENOM.) NZ                                 PAR         3053     A     
 PAR                                                                                       PAR         3054     A     
 PAR       POP.DV1  FATAL  E.DC4       ** DIVIDE BY ZERO                                   PAR         3055     A     
 PAR                                                                                       PAR         3056     A     
 PAR       POP.DV2  SA1    POPDPC                                                          PAR         3057          I
          -FC50392
 PAR       POP.DV2  SA1    CO.RNDM                                                         FC50392       12     A     
 PAR                SA2    CO.RNDD                                                         FC50392       13     A     
 PAR                BX1    X1-X2                                                           FC50392       14     A     
 PAR                LX2    X3                                                              FC50392       15     A     
 PAR                NZ     X1,POP.DV10 IF DIFFERENT ARITHMETIC SELECTED                    FC50392       16     A     
 PAR                SA1    POPDPC                                                          FC50392       17     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         3058          I
          -FC50104
 PAR                LX3    -TH.TBPRP                                                       PAR         3059          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      121     A     
 PAR                LX3    -SP.TBPRP                                                       FC50104      122     A     
 PAR                BX2    -X0*X3      (X2) = TOKEN BEING POPPED                           PAR         3060     A     
 PAR                IX0    X1-X2                                                           PAR         3061     A     
 PAR                BX2    X3                                                              PAR         3062     A     
 PAR                NZ     X0,POP.DV10 IF NOT DIVIDE POPPING DIVIDE                        PAR         3063     A     
 PAR                SBIT   X2,TH.COMP                                                      PAR         3064          I
          -FC50104
 PAR                SBIT   X2,SP.COMP                                                      FC50104      123     A     
 PAR                PL     X2,POP.DV5  IF NOT POPPING SPECIAL DIVIDE                       PAR         3065     A     
 PAR                SA1    SDIV                                                            PAR         3066     A     
 PAR                =X2    O.DIV&O.MULT                                                    PAR         3067     A     
 PAR                LX2    TH.TBPRP                                                        PAR         3068          I
          -FC50104
 PAR                LX2    SP.TBPRP                                                        FC50104      124     A     
 PAR                BX6    X3-X2                                                           PAR         3069     A     
 PAR                LX7    X1                                                              PAR         3070     A     
 PAR                SA6    SOPR        SET CONFIRMED MULTIPLY                              PAR         3071     A     
 PAR                BX3    X6                                                              PAR         3072     A     
 PAR                SA7    POPPER      CHANGE TO SPECIAL DIVIDE                            PAR         3073     A     
 PAR                =A6    B5+1        CHANGE IN STACK ALSO (INCASE MULT NO POP)           PAR         3074     A     
 PAR                EQ     POP.SDIV    HANDLE AS MULTIPLY                                  PAR         3075     A     
 PAR                                                                                       PAR         3076     A     
 PAR      *         HERE FOR FIRST DIVIDE IN SEQUENCE.                                     PAR         3077     A     
 PAR                                                                                       PAR         3078     A     
 PAR       POP.DV5  SA2    SDIV        CHANGE TO SPECIAL DIVIDE                            PAR         3079          I
          -FC5A150
 PAR       POP.DV5  BX1    X4+X5                                                           FC5A150      473     A     
 PAR                MX0    -TP.MODEL                                                       FC5A150      474     A     
 PAR                LX1    -TP.MODEP                                                       FC5A150      475     A     
 PAR                BX2    -X0*X1                                                          FC5A150      476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX0    X2-M.REAL                                                       FC5A150      477     A     
 PAR                ERRNZ  M.INT-2                                                         FC5A150      478     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A150      479     A     
 PAR                MI     X0,POP.DV10 IF INTEGER DIVIDE                                   FC5A150      480     A     
 PAR                SA2    SDIV        CHANGE TO SPECIAL DIVIDE                            FC5A150      481     A     
 PAR                =B4    B4+1        NEXT                                                PAR         3080     A     
 PAR                =X1    O.DIV                                                           PAR         3081     A     
 PAR                =B5    B5+1        REACTIVATE 1ST DIVIDE                               PAR         3082     A     
 PAR                EQ     PAR.ADOP    IGNORE- SET INTO OPERATOR STACK                     PAR         3083     A     
 PAR                                                                                       PAR         3084     A     
 PAR       POP.DV10 SBIT   X2,TH.COMP                                                      PAR         3085          I
          -FC50104
 PAR       POP.DV10 SBIT   X2,SP.COMP                                                      FC50104      125     A     
 PAR                PL     X2,POP.STD  IF NOT POPPING SPECIAL DIVIDE                       PAR         3086          I
          -FC5A150
 PAR                =X2    O.DIV&O.MULT                                                    PAR         3087          I
          -FC5A150
 PAR                MI     X2,POP.DV25 IF POPPING SPECIAL DIVIDE                           FC5A150      482     A     
 PAR       .INV     IFEQ   NOINVERT,0                                                      FC5A150      483     A     
 PAR                ZR     B2,POP.DV15 IF DENOMINATOR IS NOT CONSTANT                      FC5A150      484     A     
 PAR                MX6    0                                                               FC5A150      485     A     
 PAR                SA6    POP.DVA                                                         FC5A150      486     A     
 PAR                CALL   PDC         PROCESS DIVIDE BY CONSTANT                          FC5A150      487     A     
 PAR                SA1    POP.DVA                                                         FC5A150      488     A     
 PAR                NZ     X1,POP.DV20 IF DIVIDE CHANGED TO MULTIPLY                       FC5A150      489     A     
 PAR       .INV     ENDIF                                                                  FC5A150      490     A     
 PAR                                                                                       FC5A150      491     A     
 PAR       POP.DV15 MX0    -TP.MODEL                                                       FC5A150      492     A     
 PAR                LX4    -TP.MODEP                                                       FC5A150      493     A     
 PAR                LX5    -TP.MODEP                                                       FC5A150      494     A     
 PAR                BX1    -X0*X4      X1 = MODE OF 1OP                                    FC5A150      495     A     
 PAR                BX2    -X0*X5      X2 = MODE OF 2OP                                    FC5A150      496     A     
 PAR                SX1    X1-M.CPLX                                                       FC5A150      497     A     
 PAR                SX2    X2-M.REAL                                                       FC5A150      498     A     
 PAR                LX4    TP.MODEP                                                        FC5A150      499     A     
 PAR                LX5    TP.MODEP                                                        FC5A150      500     A     
 PAR                NZ     X1,POP.DV25 IF NUMERATOR NOT COMPLEX                            FC5A150      501     A     
 PAR                NZ     X2,POP.DV25 IF DENOMINATOR NOT REAL                             FC5A150      502     A     
 PAR                SA3    CRDIV       CHANGE OP TO SPECIAL CPLX/REAL DIVIDE               FC5A150      503     A     
 PAR                EQ     POP.DV25                                                        FC5A150      504     A     
 PAR                                                                                       FC5A150      505     A     
 PAR       POP.DV20 SA3    F.PRIOR+O.MULT-O.SEP                                            FC5A150      506     A     
 PAR                                                                                       FC5A150      507     A     
 PAR       POP.DV25 =X2    O.DIV&O.MULT                                                    FC5A150      508     A     
 PAR                LX2    TH.TBPRP                                                        PAR         3088          I
          -FC50104
 PAR                LX2    SP.TBPRP                                                        FC50104      126     A     
 PAR                BX6    X3-X2                                                           PAR         3089     A     
 PAR                SA6    SOPR        SET CONFIRMED MULTIPLY                              PAR         3090     A     
 PAR                BX3    X6                                                              PAR         3091     A     
 PAR                EQ     POP.STD     POP AS TRUE MULTIPLY                                PAR         3092     A     
 PAR                                                                                       FC5A150      509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       POP.DVA  BSSENT 1           *CONVERT TO MULTIPLY* FLAG                          FC5A150      510     A     
 PAR       POP.PL   SPACE  4,10                                                            PAR         3093     A     
 PAR      **        POP.PL - PLUS BEING POPPED.                                            PAR         3094     A     
 PAR      *                                                                                PAR         3095     A     
 PAR      *         PURPOSE                                                                PAR         3096     A     
 PAR      *         1.  TO CHANGE SEQUENCE   A = -B + C                                    PAR         3097     A     
 PAR      *                               TO A =  C - B                                    PAR         3098     A     
 PAR      *         2.  TO CHANGE SEQUENCE   A =  CONSTANT + VARIABLE                      PAR         3099     A     
 PAR      *                               TO A =  VARIABLE + CONSTANT                      PAR         3100     A     
 PAR                                                                                       PAR         3101     A     
 PAR                                                                                       PAR         3102     A     
 PAR       POP.PL   BSS    0                                                               PAR         3103     A     
 PAR                SA1    CURST                                                           FC50612       16     A     
 PAR                SA2    T=PAR                                                           FC50612       17     A     
 PAR                IX1    X1-X2                                                           FC50612       18     A     
 PAR                ZR     X1,POP=COM  IF LAST TURPLE NOT TO BE SQUEEZED                   FC50612       19     A     
 PAR                SA1    LASTOP                                                          PAR         3104     A     
 PAR                SB7    X1-O.UMIN                                                       PAR         3105     A     
 PAR                SA2    LASTAD                                                          PAR         3106     A     
 PAR                NZ     B7,POP=COM  IF LAST OP NOT *UNARY-*                             PAR         3107     A     
 PAR                BX1    X4                                                              PAR         3108     A     
 PAR                RJ     COR         CHECK IF OPERAND IS INPUT TO OPERATOR               PAR         3109     A     
 PAR                NZ     X0,POP=COM  IF *UNARY-* NOT INPUT INTO *PLUS*                   PAR         3110     A     
 PAR                SA3    MINUSOP                                                         PAR         3111     A     
 PAR                BX4    X5          (1OP) = OLD (2OP)                                   PAR         3112     A     
 PAR                =A5    X1+OR.1OP   (2OP) = (1OP) OF THE *UMIN* INTERMEDIATE            PAR         3113     A     
 PAR                BX6    X3                                                              PAR         3114     A     
 PAR                SA7    A2          RESET LENGTH OF T=PAR                               PAR         3115          I
          -FC51427
 PAR                SA6    SOPR                                                            PAR         3116          I
          -FC51427
 PAR                SA1    INSTF                                                           FC51427        6     A     
 PAR                NZ     X1,POP.PL4  IF IN ARITHMETIC STATEMENT FUNCTION                 FC51427        7     A     
 PAR                SA7    A2          RESET LENGTH OF T.PAR                               FC51427        8     A     
 PAR                                                                                       FC51427        9     A     
 PAR       POP.PL4  SA6    SOPR                                                            FC51427       10     A     
 PAR                EQ     POP.STD                                                         PAR         3117     A     
 PAR       POP.MUL  SPACE  4,10                                                            PAR         3118     A     
 PAR      **        POP.MUL - MULTIPLY BEING POPPED.                                       PAR         3119     A     
 PAR                                                                                       PAR         3120     A     
 PAR                                                                                       PAR         3121     A     
 PAR       POP.MUL  EQU    POP=COM                                                         PAR         3122     A     
 PAR       POP.UM   SPACE  4,10                                                            PAR         3123     A     
 PAR      **        POP.UM - PROCESS UNARY MINUS BEING POPPED.                             PAR         3124     A     
 PAR      *                                                                                PAR         3125     A     
 PAR      *         PURPOSE.                                                               PAR         3126     A     
 PAR      *         1.  TO CHANGE SEQUENCE    A = - CONSTANT                               PAR         3127     A     
 PAR      *                            TO     A =   CONSTANT                               PAR         3128     A     
 PAR      *         2.  TO CHANGE SEQENCE     A = - ( - B )                                PAR         3129     A     
 PAR      *                            TO     A =       B                                  PAR         3130     A     
 PAR      *         3.  TO CHANGE SEQUENCE    A = - (B - C)                                PAR         3131     A     
 PAR      *                            TO     A =    C - B                                 PAR         3132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         3133     A     
 PAR                                                                                       PAR         3134     A     
 PAR       POP.UM   BSS    0                                                               PAR         3135     A     
 PAR                SA1    LASTOP                                                          PAR         3136     A     
 PAR                SA2    LASTAD                                                          PAR         3137     A     
 PAR                                                                                       PAR         3138     A     
 PAR      *         CHECK FOR -(A-B)                                                       PAR         3139     A     
 PAR                                                                                       PAR         3140     A     
 PAR                SB2    X1-O.MIN                                                        PAR         3141     A     
 PAR                SB7    X1-O.UMIN                                                       PAR         3142     A     
 PAR                SA1    INSTF       STATEMENT FUNCTION FLAG                             FC50664        7     A     
 PAR                NZ     X1,POP=UNO  SKIP OPTIMIZATION IF IN STATEMENT FUNCTION          FC50664        8     A     
 PAR                NZ     B2,POP=UNR  IF LAST NOT BINARY MINUS                            PAR         3143     A     
 PAR                BX1    X5                                                              PAR         3144     A     
 PAR                RJ     COR                                                             PAR         3145     A     
 PAR                NZ     X0,POP=UNO  IF NOT INPUT INTO THIS OPERATOR                     PAR         3146     A     
 PAR                =A3    X1-OR.OPR+OR.1OP                                                PAR         3147     A     
 PAR                BX6    X3                                                              PAR         3148     A     
 PAR                =A4    A3-OR.1OP+OR.2OP                                                PAR         3149     A     
 PAR                BX7    X4                                                              PAR         3150     A     
 PAR                SA6    A4          REVERSE THE ORDER OF THE SUBTRACT                   PAR         3151     A     
 PAR                SA7    A3                                                              PAR         3152     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3153     A     
 PAR       POP=UNR  SPACE  4,10                                                            PAR         3154     A     
 PAR      **        POP=UNR - POP SELF-INVERSE UNARY OPERATOR.                             PAR         3155     A     
 PAR      *                                                                                PAR         3156     A     
 PAR      *         ENTRY  (B7) = 0 IF OPERAND IS RESULT OF SAME OPERATOR.                 PAR         3157     A     
 PAR                                                                                       PAR         3158     A     
 PAR                                                                                       PAR         3159     A     
 PAR       POP=UNR  BSS    0           ENTRY...                                            PAR         3160     A     
 PAR                NZ     B7,POP=UNO  IF OPERAND NOT RESULT OF SAME OPERATOR              PAR         3161     A     
 PAR                BX1    X5                                                              PAR         3162     A     
 PAR                RJ     COR                                                             PAR         3163     A     
 PAR                NZ     X0,POP=UNO  IF NOT INPUT INTO THIS OPERATOR                     PAR         3164     A     
 PAR                =A3    X1+OR.1OP                                                       PAR         3165     A     
 PAR                SA7    A2          RESET LENGTH OF T=PAR                               PAR         3166     A     
 PAR                BX6    X3                                                              PAR         3167          I
          -FC5A218
 PAR                CLAS=  X1,TP,(EXPR)                                                    FC5A218      205     A     
 PAR                BX6    X1+X3                                                           FC5A218      206     A     
 PAR                =A6    B6-1        PUT OPERAND BACK IN ELEMENT STACK                   PAR         3168     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3169     A     
 PAR                                                                                       PAR         3170     A     
 PAR                                                                                       PAR         3171     A     
 PAR      **        POP=UNO - OUTPUT UNARY OPERATOR.                                       PAR         3172     A     
 PAR                                                                                       PAR         3173     A     
 PAR                                                                                       PAR         3174     A     
 PAR       POP=UNO  BSS                                                                    PAR         3175     A     
 PAR                BX4    X5          (1OP) = (2OP) FOR SDM                               PAR         3176     A     
 PAR                =B6    B6+1        ADJUST ELSTAK TO REMOVE ONLY 1 ELEMENT              PAR         3177     A     
 PAR                EQ     POP.STD                                                         PAR         3178     A     
 PAR       POP.NOT  SPACE  4,10                                                            PAR         3179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      **        CHECK IF .NOT. (.NOT. EXPRESSION) COMBINATION.                         PAR         3180     A     
 PAR                                                                                       PAR         3181     A     
 PAR                                                                                       PAR         3182     A     
 PAR       POP.NOT  BSS    0                                                               PAR         3183     A     
 PAR                SA1    LASTOP                                                          PAR         3184     A     
 PAR                SB7    X1-O.NOT                                                        PAR         3185     A     
 PAR                EQ     POP=UNR                                                         PAR         3186     A     
 PAR       POP.LOG  SPACE  4,10                                                            PAR         3187     A     
 PAR      **        POP.LOG - POPPING BINARY LOGICAL OPERATOR.                             PAR         3188     A     
 PAR                                                                                       PAR         3189     A     
 PAR                                                                                       PAR         3190     A     
 PAR       POP.LOG  BSS    0                                                               PAR         3191     A     
 PAR                BX6    X3                                                              PAR         3192     A     
 PAR                HX6    TH.COM                                                          PAR         3193          I
          -FC50104
 PAR                HX6    SP.COM                                                          FC50104      127     A     
 PAR                MI     X6,POP=COM  IF COMMUTATIVE OPERATOR                             PAR         3194     A     
 PAR                EQ     POP.STD                                                         PAR         3195     A     
 PAR       POP.REL  SPACE  4,10                                                            PAR         3196     A     
 PAR      **        RELATIONALS BEING POPPED.                                              PAR         3197     A     
 PAR      *                                                                                PAR         3198     A     
 PAR      *         REVERSE OPERANDS AND CHANGE  .LE. INTO .GE.                            PAR         3199     A     
 PAR      *                                 AND  .GT. INTO .LT.                            PAR         3200     A     
 PAR                                                                                       PAR         3201     A     
 PAR                                                                                       PAR         3202     A     
 PAR       POP.LE   =X1    O.LE&O.GE                                                       PAR         3203     A     
 PAR                EQ     REL1                                                            PAR         3204     A     
 PAR                                                                                       PAR         3205     A     
 PAR       POP.GT   =X1    O.GT&O.LT                                                       PAR         3206     A     
 PAR       REL1     BX0    X5          INTERCHANGE OPERANDS                                PAR         3207     A     
 PAR                LX1    TH.TBPRP                                                        PAR         3208          I
          -FC50104
 PAR                LX1    SP.TBPRP                                                        FC50104      128     A     
 PAR                BX6    X3-X1       CHANGE OPERATOR                                     PAR         3209     A     
 PAR                LX5    X4                                                              PAR         3210     A     
 PAR                SA6    SOPR                                                            PAR         3211     A     
 PAR                BX3    X3-X1                                                           PAR         3212     A     
 PAR                LX4    X0                                                              PAR         3213     A     
 PAR                                                                                       PAR         3214     A     
 PAR                                                                                       PAR         3215     A     
 PAR       POP.REL  BSS    0                                                               PAR         3216     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         3217     A     
 PAR                BX6    X5          PRESERVE X5                                         PAR         3218     A     
 PAR                BX5    X4                                                              PAR         3219     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         3220     A     
 PAR                BX5    X6          RESTORE X5                                          PAR         3221     A     
 PAR                LX6    X3                                                              PAR         3222     A     
 PAR                SA6    LASTREL     REMEMBER (TH.SKEL) OF RELATION                      PAR         3223     A     
 PAR                RJ     SDM         SELECT DOMINANT MODE                                PAR         3224     A     
 PAR                RJ     OMC         OUTPUT MODE CONVERSION                              PAR         3225     A     
 PAR                SA2    PARNOW                                                          PAR         3226     A     
 PAR                SX1    X2-PM=PARM                                                      FC5A156       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ZR     X1,REL3     IF PROCESSING *PARAMETER* STATEMENT                 FC5A156       16     A     
 PAR                SX2    X2-PM=CXP                                                       PAR         3227     A     
 PAR                NZ     X2,REL5     IF NOT PARSING CONSTANT EXPRESSIONS                 PAR         3228     A     
 PAR                SA1    SMOD                                                            PAR         3229          I
          -FC5A156
 PAR       REL3     SA1    SMOD                                                            FC5A156       17     A     
 PAR                SX7    X1-M.CHAR                                                       PAR         3230     A     
 PAR                NZ     X7,REL5     IF DOMINANT MODE NOT CHARACTER                      PAR         3231     A     
 PAR                BX7    X3                                                              PAR         3232     A     
 PAR                SA7    PCR.RO      SAVE RELOP                                          PAR         3233     A     
 PAR                BX1    X4                                                              PAR         3234     A     
 PAR                CALL   LCH         LOAD POSSIBLE CONSTANT 1OP                          PAR         3235     A     
 PAR                SB2    B2+2                                                            PAR         3236     A     
 PAR                NZ     B2,REL5     IF 1OP NOT CHARACTER CONSTANT                       PAR         3237     A     
 PAR                SA6    PCR.1OP     SAVE T.CON INDEX                                    PAR         3238     A     
 PAR                =A7    A6+1        SAVE CHARACTER LENGTH                               PAR         3239     A     
 PAR                BX1    X5                                                              PAR         3240     A     
 PAR                CALL   LCH         LOAD POSSIBLE CONSTANT 2OP                          PAR         3241     A     
 PAR                SB2    B2+2                                                            PAR         3242     A     
 PAR                NZ     B2,REL5     IF 2OP NOT CHARACTER CONSTANT                       PAR         3243     A     
 PAR                SA6    PCR.2OP     SAVE T.CON INDEX                                    PAR         3244     A     
 PAR                =A7    A6+1        SAVE CHARACTER LENGTH                               PAR         3245     A     
 PAR                CALL   PCR         PROCESS CHARACTER RELATIONALS                       PAR         3246     A     
 PAR                EQ     POPX                                                            PAR         3247     A     
 PAR                                                                                       PAR         3248     A     
 PAR       REL5     SA1    SMOD                                                            PAR         3249     A     
 PAR                SX7    M.LOG                                                           PAR         3250     A     
 PAR                BX6    X1                                                              PAR         3251     A     
 PAR                SA7    A1          (SMOD) = M.LOG                                      PAR         3252     A     
 PAR                SA6    RELA        SAVE OPERAND MODE                                   PAR         3253     A     
 PAR                RJ     ADT         ISSUE TURPLE                                        PAR         3254     A     
 PAR                =A1    B6-1                                                            PAR         3255          I
          -FC5A207
 PAR                HX1    TP.INTR                                                         PAR         3256          I
          -FC5A207
 PAR                PL     X1,POPX     IF NOT INTERMEDIATE, WAS REDUCED TO CON             PAR         3257          I
          -FC5A207
 PAR                PL     B2,POPX     IF TURPLE NOT EMITTED (CONSTANT OR SQUEEZED         FC5A207        5     A     
 PAR                                                                                       PAR         3258     A     
 PAR      *         ASSUMING THAT THIS IS EXPRESSION IN SINGLE-RELATIONAL                  PAR         3259     A     
 PAR      *         IF, SAVE ORDINAL OF SPECIAL SKELETON.  IF THIS IS NOT                  PAR         3260     A     
 PAR      *         THE CASE IFREL2 WILL BE ZEROED IN ADT BY NEXT TURPLE ISSUED.           PAR         3261     A     
 PAR                                                                                       PAR         3262     A     
 PAR                SA1    LASTREL                                                         PAR         3263     A     
 PAR                SA2    RELA                                                            PAR         3264     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         3265          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      129     A     
 PAR                BX6    -X0*X1                                                          PAR         3266     A     
 PAR                SB7    X6-O.EQ                                                         PAR         3267     A     
 PAR                SX2    X2                                                              PAR         3268     A     
 PAR                LX2    1                                                               PAR         3269     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX2    X2+B7                                                           PAR         3270     A     
 PAR                LX2    -1                                                              PAR         3271     A     
 PAR                SA1    IFRELT+X2   IFRELT(2*MODE+OP-O.EQ)                              PAR         3272     A     
 PAR                MI     X2,REL10    IF WANT LOWER HALF                                  PAR         3273     A     
 PAR                LX1    30                                                              PAR         3274     A     
 PAR                                                                                       PAR         3275     A     
 PAR       REL10    BX6    X1                                                              PAR         3276     A     
 PAR                SX1    X1                                                              PAR         3277     A     
 PAR                LT     B7,B0,POPX  IF NOT .EQ. OR .NE.                                 PAR         3278     A     
 PAR                GT     B7,B1,POPX  IF NOT .EQ. OR .NE.                                 PAR         3279     A     
 PAR                ERRNZ  O.NE-O.EQ-1                                                     PAR         3280     A     
 PAR                SX1    X1                                                              PAR         3281     A     
 PAR                MI     X1,POPX     IF NO SPECIAL SKEL                                  PAR         3282     A     
 PAR                SA6    IFREL2      SAVE (OPPOSITE,THIS) SPECIAL PAIR                   PAR         3283     A     
 PAR                EQ     POPX                                                            PAR         3284     A     
 PAR                                                                                       PAR         3285     A     
 PAR       IFRELT   BSS    0                                                               PAR         3286     A     
 PAR                ECHO   ,MODE=(B,L,I,R,D,C,H)                                           PAR         3287     A     
 PAR                ECHO   ,OP=(EQ,NE) LT,GE)                                              PAR         3288     A     
 PAR                VFD    30/=YV=I_OP.MODE                                                PAR         3289          I
          -FC5A158A 
 PAR                VFD    12/0,18/=YV=I_OP.MODE                                           FC5A158A     419     A     
 PAR                ENDD                                                                   PAR         3290     A     
 PAR       POP.CAT  SPACE  4,10                                                            PAR         3291     A     
 PAR      **        POP.CAT - CATENATION OF CHARACTER EXPRESSIONS.                         PAR         3292     A     
 PAR      *                                                                                PAR         3293     A     
 PAR      *         NOTE THAT THE CATENATION PRIOP IS MARKED (TH.MDLS), WHICH              PAR         3294     A     
 PAR      *         IS WHY THE OPERAND MODES MUST BE CHECKED HERE.  THIS WOULD             PAR         3295     A     
 PAR      *         NOT BE NECESSARY IF (OM=CAT) WERE INVENTED AND (TH.MDLS)               PAR         3296     A     
 PAR      *         REMOVED (SDM WOULD CHECK MODES).  THE PRESENT CODE HOWEVER,            PAR         3297     A     
 PAR      *         CAN GIVE A MORE SPECIFIC ERROR MESSAGE, ALBEIT AT THE COST             PAR         3298     A     
 PAR      *         OF A WORD OR TWO OF CORE.                                              PAR         3299     A     
 PAR                                                                                       PAR         3300     A     
 PAR                                                                                       PAR         3301     A     
 PAR       POP.CAT  BSS    0                                                               PAR         3302     A     
 PAR                MX0    -TP.MODEL                                                       PAR         3303     A     
 PAR                ERRNZ  TP.MODEP                                                        PAR         3304     A     
 PAR                BX1    -X0*X4      (X1) = MODE (1OP)                                   PAR         3305     A     
 PAR                BX2    -X0*X5      (X2) = MODE (2OP)                                   PAR         3306     A     
 PAR                SX1    X1-M.CHAR                                                       PAR         3307     A     
 PAR                SX2    X2-M.CHAR                                                       PAR         3308     A     
 PAR                NZ     X1,CAT2     IF (1OP) NOT TYPE CHARACTER                         PAR         3309     A     
 PAR                NZ     X2,CAT2     IF (2OP) NOT TYPE CHARACTER                         PAR         3310     A     
 PAR                BX6    X3                                                              PAR         3311     A     
 PAR                BX1    X4                                                              PAR         3312     A     
 PAR                SA6    CATA        SAVE (CATA) = OPERATOR WORD                         PAR         3313     A     
 PAR                CALL   LCH         CHECK IF (1OP) IS CHAR CONSTANT                     PAR         3314     A     
 PAR                SB7    B2+2                                                            PAR         3315     A     
 PAR                SB3    X6          SAVE (B3) = INDEX OF (1OP)                          PAR         3316     A     
 PAR                BX1    X5                                                              PAR         3317     A     
 PAR                NZ     B7,CAT1     IF (1OP) NOT CHAR CONSTANT                          PAR         3318     A     
 PAR                SA7    CATB        SAVE (CATB) = CHAR LEN OF (1OP)                     PAR         3319     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                CALL   LCH         CHECK IF (2OP) IS CHAR CONSTANT                     PAR         3320     A     
 PAR                SB7    B2+2                                                            PAR         3321     A     
 PAR                SA3    CATB        (X3) = LEN OF (1OP)                                 PAR         3322     A     
 PAR                NZ     B7,CAT1     IF (2OP) NOT CHAR CONSTANT                          PAR         3323     A     
 PAR                SB2    X6          (B2) = INDEX OF (2OP)                               PAR         3324     A     
 PAR                CALL   PCC         PERFORM CHARACTER CONCATENATION                     PAR         3325     A     
 PAR                =B6    B6-2        POP TWO OPERANDS                                    PAR         3326     A     
 PAR                RJ     ECC         EMIT CHAR CONSTANTS                                 PAR         3327     A     
 PAR                EQ     POPX                                                            PAR         3328     A     
 PAR                                                                                       PAR         3329     A     
 PAR       CAT1     BX7    X5                                                              PAR         3330     A     
 PAR                SA7    CATC        SAVE 2OP                                            PAR         3331     A     
 PAR                BX1    X4                                                              PAR         3332     A     
 PAR                RJ     GOL         SEE IF 1OP IS FIXED LENGTH                          PAR         3333     A     
 PAR                SA6    CATB        SAVE FIXED/PASSED FLAG                              PAR         3334     A     
 PAR                SA1    CATC                                                            PAR         3335     A     
 PAR                RJ     GOL         SEE IF 2OP IS FIXED LENGTH                          PAR         3336     A     
 PAR                SA1    CATB                                                            PAR         3337     A     
 PAR                MX0    1                                                               PAR         3338     A     
 PAR                BX6    X1+X6                                                           PAR         3339     A     
 PAR                BX0    X0*X6       MI IFF EITHER OPERAND NOT FIXED-LENGTH              PAR         3340     A     
 PAR                LX0    1+TH.PLCP                                                       PAR         3341     A     
 PAR                SA5    CATC        RESTORE 2OP                                         PAR         3342     A     
 PAR                SA3    CATA        RESTORE OPERATOR                                    PAR         3343     A     
 PAR                BX3    X0+X3       MARK OPERATOR PASSED LENGTH                         PAR         3344     A     
 PAR                LX0    TP.LCFP-TH.PLCP                                                 PAR         3345     A     
 PAR                CLAS=  X7,TP,(CAT)                                                     PAR         3346     A     
 PAR                BX7    X0+X7       MARK OPERAND AS PASSED LENGTH (LCF)                 PAR         3347     A     
 PAR                SA7    ATTR        MARK RESULT OPERAND AS CAT                          PAR         3348     A     
 PAR                EQ     POP.STD                                                         PAR         3349     A     
 PAR                                                                                       PAR         3350     A     
 PAR       CAT2     FATAL  E.AT15      ** OPERANDS OF // MUST BE CHARACTER                 PAR         3351     A     
 PAR                EQ     POP.ERR                                                         PAR         3352     A     
 PAR                                                                                       PAR         3353     A     
 PAR       CATC     BSS    1                                                               PAR         3354     A     
 PAR       POP.EQL  SPACE  4,20                                                            PAR         3355     A     
 PAR      **        POP.EQL - VALIDATE ASSIGNMENT.                                         PAR         3356     A     
 PAR      *                                                                                PAR         3357     A     
 PAR      *         A.  CHECKS LEFT SIDE FOR LEGALITY -- CANNOT BE A                       PAR         3358     A     
 PAR      *                CONSTANT.  IF EXPRESSION, MUST BE ARRAY LOAD.                   PAR         3359     A     
 PAR      *         B.  VALIDATES NOT RESETTING AN ACTIVE DO-CONTROL                       PAR         3360     A     
 PAR      *                INDEX.                                                          PAR         3361     A     
 PAR      *         C.  SET DOMINANT MODE BY COERECING R.H.S.                              PAR         3362     A     
 PAR      *         D.  SET (WB.DEF) TO INDICATE VARIABLE DEFINED.                         PAR         3363     A     
 PAR      *         E.  IF CHARACTER ASSIGNMENT, CHECKS FOR OVERLAP BETWEEN                FC5A441        9     A     
 PAR      *                THE TARGET VARIABLE AND ANY OF THE ELEMENTS IN THE              FC5A441       10     A     
 PAR      *                SOURCE EXPRESSION.                                              FC5A441       11     A     
 PAR                                                                                       PAR         3364     A     
 PAR                                                                                       PAR         3365     A     
 PAR       POP.EQL  BSS    0                                                               PAR         3366     A     
 PAR                BX7    X3                                                              PAR         3367     A     
 PAR                SA7    EQLA                                                            PAR         3368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1311    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MX0    -TP.MODEL                                                       PAR         3369     A     
 PAR                LX5    -TP.MODEP                                                       PAR         3370     A     
 PAR                BX6    -X0*X5      DM = MODE OF L.H.S.                                 PAR         3371     A     
 PAR                LX5    X4                                                              PAR         3372     A     
 PAR                RJ     CMR         COERCE MODE OF R.H.S.                               PAR         3373     A     
 PAR                BX4    X5          (1OP) = CONVERTED R.H.S.                            PAR         3374     A     
 PAR                ZR     B7,EQL30    IF CONVERSION OK                                    PAR         3375     A     
 PAR                SA4    B6-B1       (1OP) = L.H.S.          /* FAKE LHS=LHS             PAR         3376     A     
 PAR                FATAL  B7                                                              PAR         3377     A     
 PAR       EQL30    SA5    B6-B1       (2OP) = L.H.S.                                      PAR         3378     A     
 PAR                SA3    T=BLST                                                          PAR         3379     A     
 PAR                BX6    X3                                                              PAR         3380     A     
 PAR                CALL   MDD         MARK DO PARAMETERS DEFINED                          PAR         3381     A     
 PAR                SA5    B6-B1       (2OP) = L.H.S                                       PAR         3382     A     
 PAR                CALL   DOA         DETERMINE OPERAND ADDRESSIBILITY                    PAR         3383     A     
 PAR                NZ     X6,EQL48    IF L.H.S. IS CONSTANT OR EXPRESSION                 PAR         3384     A     
 PAR                                                                                       PAR         3385     A     
 PAR      *         L.H.S. IN SYMTAB,                                                      PAR         3386     A     
 PAR      *         CHECK FOR REDEFINING ACTIVE DO CONTROL INDEX.                          PAR         3387     A     
 PAR                                                                                       PAR         3388     A     
 PAR                BX1    X2                                                              PAR         3389     A     
 PAR                HX1    WB.VAR                                                          PAR         3390     A     
 PAR                PL     X1,EQL48    IF SYMBOL NOT A VAR                                 PAR         3391     A     
 PAR                HX2    WB.DOIX                                                         PAR         3392          I
          -FC5A211
 PAR                PL     X2,EQL36    IF NOT ACTIVE LOOP CONTROL INDEX                    PAR         3393          I
          -FC5A211
 PAR                FATAL  E.DO08      REDEFINES ACTIVE LOOP CONTROL VARIABLE              PAR         3394          I
          -FC5A211
 PAR                                                                                       PAR         3395          I
          -FC5A211
 PAR       EQL36    CLAS=  X1,WB,(DEF)                                                     PAR         3396          I
          -FC5A211
 PAR                LX2    WB.DOIXP+1                                                      PAR         3397          I
          -FC5A211
 PAR                CLAS=  X1,WB,(DEF)                                                     FC5A211       72     A     
 PAR                BX6    X2+X1       MARK VARIABLE AS DEFINED                            PAR         3398     A     
 PAR                SA6    A2                                                              PAR         3399     A     
 PAR                SB3    0           INDICATE NOT DO CONTROL INDEX                       FC50718       10     A     
 PAR                CALL   DDR         DIAGNOSE DO REDEFINITION                            FC5A211       73     A     
 PAR                EQ     EQL50                                                           PAR         3400     A     
 PAR                                                                                       PAR         3401     A     
 PAR       EQL48    FATAL  E.VA11      ILLEGAL LEFT MEMBER                                 PAR         3402     A     
 PAR                EQ     EQL99.1     X5 MAY HAVE A BLOWUP OPERAND FROM DOA, EXIT         FC51521        6     A     
 PAR                                                                                       PAR         3403     A     
 PAR      *         TEST FOR IDENTICAL L.H.S. AND R.H.S. -- ELIMINATE                      PAR         3404     A     
 PAR      *                ENTIRE OPERATION IF SO.                                         PAR         3405     A     
 PAR                                                                                       PAR         3406     A     
 PAR       EQL50    BX0    X4-X5                                                           PAR         3407     A     
 PAR                =B6    B6-1        ELIMINATE ONE OPERAND                               PAR         3408     A     
 PAR                ZR     X0,POPX     IF LEFT MEMBER = RIGHT MEMBER                       PAR         3409     A     
 PAR                SA2    T=PAR                                                           PAR         3410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX7    X2+Z=TURP   SQZ NOT SMART ENUF TO CROSS STORES                  PAR         3411     A     
 PAR                SA7    CURST                                                           PAR         3412     A     
 PAR                SA3    EQLA                                                            PAR         3413          I
          -FC5A441
 PAR                =B6    B6+1                                                            PAR         3414     A     
 PAR                                                                                       FC5A441       12     A     
 PAR      *         IF CHARACTER ASSIGNMENT, CHECK FOR TARGET/SOURCE OVERLAP.              FC5A441       13     A     
 PAR                                                                                       FC5A441       14     A     
 PAR                EQ     POP.STD     EXIT..                                              PAR         3415          I
          -FC50189
 PAR                MX0    -TP.MODEL                                                       FC50189       12     A     
 PAR                LX5    -TP.MODEP                                                       FC50189       13     A     
 PAR                BX0    -X0*X5      ISOLATE TARGET MODE                                 FC50189       14     A     
 PAR                LX5    TP.MODEP    RESET X5                                            FC5A441       15     A     
 PAR                SX0    X0-M.CHAR                                                       FC50189       15     A     
 PAR                NZ     X0,POP.STD  IF NOT TYPE CHARACTER                               FC50189       16          I
          -FC5A441
 PAR                NZ     X0,EQL99.1  IF NOT TYPE CHARACTER                               FC5A441       16     A     
 PAR                LX7    X4                                                              FC5A441       17     A     
 PAR                BX6    X5                                                              FC50189       17     A     
 PAR                SA6    EQLB        SAVE X5                                             FC50189       18          I
          -FC5A441
 PAR                CALL   STC         SET TARGET CHARACTERISTICS                          FC50189       19          I
          -FC5A441
 PAR                BX1    X4                                                              FC50189       20          I
          -FC5A441
 PAR                SBIT   X1,TP.CATP                                                      FC50189       21          I
          -FC5A441
 PAR                MI     X1,EQL60    IF SOURCE IS CONCAT EXPR                            FC50189       22          I
          -FC5A441
 PAR                BX1    X4                                                              FC50189       23          I
          -FC5A441
 PAR                CALL   CDI         CHECK DATA INTERFERENCE                             FC50189       24          I
          -FC5A441
 PAR                SA7    EQLB        SAVE X4 (SOURCE OPERAND)                            FC5A441       18     A     
 PAR                SA6    EQLC        SAVE X5 (TARGET VARIABLE)                           FC5A441       19     A     
 PAR                SX4    B0          INDICATE TARGET CHARACTERISTICS                     FC5A441       20     A     
 PAR                RJ     SCB         SET CHARACTER BOUNDS                                FC5A441       21     A     
 PAR                SA5    EQLB        SOURCE OPERAND                                      FC5A441       22     A     
 PAR                BX2    X5                                                              FC5A441       23     A     
 PAR                SBIT   X2,TP.CATP                                                      FC5A441       24     A     
 PAR                MI     X2,EQL60    IF SOURCE IS CONCATENATION EXPRESSION               FC5A441       25     A     
 PAR                RJ     CDI         CHECK DATA INTERFERENCE                             FC5A441       26     A     
 PAR                EQ     EQL99       EXIT                                                FC50189       25     A     
 PAR                                                                                       FC50189       26     A     
 PAR       EQL60    BX1    X4                                                              FC50189       27          I
          -FC5A441
 PAR                LX1    -TP.ORDP                                                        FC50189       28          I
          -FC5A441
 PAR       EQL60    BX1    X5                                                              FC5A441       27     A     
 PAR                LX5    -TP.ORDP                                                        FC5A441       28     A     
 PAR                MX0    -TP.ORDL                                                        FC50189       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX1    -X0*X1      GET ORDINAL OF CONCAT TURPLE                        FC50189       30          I
          -FC5A441
 PAR                SB3    X1+B1       SET CURRENT NODE                                    FC50189       31          I
          -FC5A441
 PAR                BX5    -X0*X5      GET ORDINAL OF CONCAT TURPLE                        FC5A441       29     A     
 PAR                SB3    X5+B1       SET CURRENT NODE                                    FC5A441       30     A     
 PAR                SB2    B0          SET LAST NODE = LAMDA                               FC50189       32     A     
 PAR                                                                                       FC50189       33     A     
 PAR       EQL65    SB7    B3          B7=CURRENT NODE,LEFT BRANCH                         FC50189       34     A     
 PAR                GE     B3,B0,EQL70 IF WE WANT LEFT BRANCH                              FC50189       35     A     
 PAR                SB7    B1-B3       B7=CURRENT NODE,RIGHT BRANCH                        FC50189       36     A     
 PAR                                                                                       FC50189       37     A     
 PAR       EQL70    SA1    T.PAR                                                           FC50189       38          I
          -FC5A441
 PAR                SA1    X1+B7       GET LEFT/RIGHT BRANCH                               FC50189       39          I
          -FC5A441
 PAR                SBIT   X1,TP.CATP                                                      FC50189       40          I
          -FC5A441
 PAR                MI     X1,EQL90    IF BRANCH IS CONCAT EXPR.                           FC50189       41          I
          -FC5A441
 PAR                LX1    1+TP.CATP   SHIFT RESTORE                                       FC50189       42          I
          -FC5A441
 PAR                CALL   CDI         CHECK DATA INTERFERENCE                             FC50189       43          I
          -FC5A441
 PAR       EQL70    SA5    T.PAR                                                           FC5A441       31     A     
 PAR                SA5    X5+B7       GET LEFT/RIGHT BRANCH                               FC5A441       32     A     
 PAR                SBIT   X5,TP.CATP                                                      FC5A441       33     A     
 PAR                MI     X5,EQL90    IF BRANCH IS CONCAT EXPRESSION                      FC5A441       34     A     
 PAR                LX5    1+TP.CATP   SHIFT RESTORE                                       FC5A441       35     A     
 PAR                RJ     CDI         CHECK DATA INTERFERENCE                             FC5A441       36     A     
 PAR                                                                                       FC50189       44     A     
 PAR       EQL75    LT     B3,B0,EQL80 IF CURRENT NODE, RIGHT BRANCH                       FC50189       45     A     
 PAR                SB3    B0-B3       SET CURRENT NODE, RIGHT BRANCH                      FC50189       46     A     
 PAR                EQ     EQL65       GO PROCESS RIGHT BRANCH                             FC50189       47     A     
 PAR                                                                                       FC50189       48     A     
 PAR       EQL80    EQ     B2,B0,EQL99 IF LAST NODE = LAMDA                                FC50189       49     A     
 PAR                SB7    B2          B7=LAST NODE,LEFT BRANCH                            FC50189       50     A     
 PAR                GE     B2,B0,EQL85 IF LAST NODE=LEFT BRANCH                            FC50189       51     A     
 PAR                SB7    B1-B2       B7=LAST NODE,RIGHT BRANCH                           FC50189       52     A     
 PAR                                                                                       FC50189       53     A     
 PAR       EQL85    SA1    T.PAR                                                           FC50189       54          I
          -FC5A441
 PAR                SA1    X1+B7       GET LEFT/RIGHT BRANCH                               FC50189       55          I
          -FC5A441
 PAR       EQL85    SA5    T.PAR                                                           FC5A441       37     A     
 PAR                SA5    X5+B7       GET LEFT/RIGHT BRANCH                               FC5A441       38     A     
 PAR                SB7    B0-B3                                                           FC50189       56     A     
 PAR                SX7    B7-B1       X7=ORD OF CURRENT NODE                              FC50189       57     A     
 PAR                LX7    TP.ORDP                                                         FC50189       58     A     
 PAR                SX6    M.CHAR+TP.INTRM+TP.CATM  SET ATTRIBUTE BITS                     FC50189       59     A     
 PAR                BX7    X6+X7                                                           FC50189       60     A     
 PAR                SA7    A1          RESTORE LEFT/RIGHT BRANCH                           FC50189       61          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A441
 PAR                SA7    A5          RESTORE LEFT/RIGHT BRANCH                           FC5A441       39     A     
 PAR                SB3    B2          SET CURRENT=LAST NODE                               FC50189       62     A     
 PAR                SB2    X1          SET LAST NODE=STORED THREAD                         FC50189       63          I
          -FC5A441
 PAR                SB2    X5          SET LAST NODE=STORED THREAD                         FC5A441       40     A     
 PAR                EQ     EQL75                                                           FC50189       64     A     
 PAR                                                                                       FC50189       65     A     
 PAR       EQL90    SX7    B2          X7=LAST NODE                                        FC50189       66     A     
 PAR                SA7    A1          STORE THREAD IN TREE                                FC50189       67          I
          -FC5A441
 PAR                SA7    A5          STORE THREAD IN TREE                                FC5A441       41     A     
 PAR                SB2    B3          SET LAST=CURRENT NODE                               FC50189       68     A     
 PAR                LX1    1-TP.ORDP+TP.CATP                                               FC50189       69          I
          -FC5A441
 PAR                LX5    1-TP.ORDP+TP.CATP                                               FC5A441       42     A     
 PAR                MX0    -TP.ORDL                                                        FC50189       70     A     
 PAR                BX1    -X0*X1      GET ORDINAL OF CURRENT NODE                         FC50189       71          I
          -FC5A441
 PAR                SB3    X1+B1       SET CURRENT                                         FC50189       72          I
          -FC5A441
 PAR                BX5    -X0*X5      GET ORDINAL OF CURRENT NODE                         FC5A441       43     A     
 PAR                SB3    X5+B1       SET CURRENT                                         FC5A441       44     A     
 PAR                EQ     EQL65                                                           FC50189       73     A     
 PAR                                                                                       FC50189       74     A     
 PAR       EQL99    SA5    EQLB        RESTORE X5                                          FC50189       75          I
          -FC5A441
 PAR       EQL99    SA5    EQLC        RESTORE X5                                          FC5A441       45     A     
 PAR                SA4    EQLB        RESTORE X4                                          FC5A441       46     A     
 PAR                                                                                       FC5A441       47     A     
 PAR       EQL99.1  SA3    EQLA        RESTORE X3                                          FC5A441       48     A     
 PAR                EQ     POP.STD     EXIT                                                FC50189       76     A     
 PAR                TITLE  POP/EMIT SUBSTRING.                                             PAR         3416     A     
 PAR       C=SBS    SPACE  4,10                                                            PAR         3417     A     
 PAR      **        C=SBS - SUBSTRING COLON.                                               PAR         3418     A     
 PAR      *                                                                                PAR         3419     A     
 PAR      *         ENTRY  (X5) = FIRST SUBSTRING OPERAND.                                 PAR         3420     A     
 PAR      *                                                                                PAR         3421     A     
 PAR      *         WHEN THE COLON IS IMMEDIATELY FOLLOWED BY A RIGHT PAREN,               PAR         3422     A     
 PAR      *         A DEFAULT SUBSTRING-LAST IS INVENTED AND STACKED.                      PAR         3423     A     
 PAR                                                                                       PAR         3424     A     
 PAR                                                                                       PAR         3425     A     
 PAR       C=SBS    BSS    0           ENTRY...                                            PAR         3426     A     
 PAR                RJ     CSM         CHECK SUBSTRING MODE                                PAR         3427     A     
 PAR                SA1    B4+B1       PEEK AHEAD                                          PAR         3428     A     
 PAR                LX1    -TB.TOTP                                                        PAR         3429     A     
 PAR                SB2    X1-O.RP                                                         PAR         3430     A     
 PAR                NZ     B2,POPX     IF COLON NOT IMMEDIATELY FOLLOWED BY RPAREN         PAR         3431     A     
 PAR                SA5    ARGMIS                                                          PAR         3432     A     
 PAR      ** MQ            IS (ESTACK-2) ALSO SAME ???                                     PAR         3433     A     
 PAR                RJ     DOA         DETERMINE OPERAND ATTRIBUTES                        PAR         3434     A     
 PAR                NZ     X6,"BLOWUP" IF EXPRESSION OR CONSTANT                           PAR         3435     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =A4    A2-WB.W+WC.W                                                    PAR         3436     A     
 PAR                MX0    -WC.CLENL                                                       PAR         3437     A     
 PAR                LX4    -WC.CLENP                                                       PAR         3438     A     
 PAR                BX6    -X0*X4      (X6) = CHAR LENGTH                                  PAR         3439     A     
 PAR                LX4    WC.CLENP-1-WC.CTYPP                                             PAR         3440     A     
 PAR                =X7    M.INT                                                           PAR         3441     A     
 PAR                MI     X4,CSBS4    IF ADAPTABLE LENGTH                                 PAR         3442     A     
 PAR                CALL   NCS         ENTER CONSTANT                                      PAR         3443     A     
 PAR                EQ     CSBS8                                                           PAR         3444     A     
 PAR                                                                                       PAR         3445     A     
 PAR       CSBS4    SA1    S=VD                                                            PAR         3446     A     
 PAR                LX1    TP.ORDP                                                         PAR         3447     A     
 PAR                LX6    TP.BIASP                                                        PAR         3448     A     
 PAR                LX7    TP.MODEP                                                        PAR         3449     A     
 PAR                BX2    X1+X7                                                           PAR         3450     A     
 PAR                BX6    X6+X2       CONSTRUCT OPERAND = VD.+(CLEN)                      PAR         3451     A     
 PAR       CSBS8    SA6    B6                                                              PAR         3452     A     
 PAR                SB6    B6+B1       STACK DEFAULT-LAST OPERAND                          PAR         3453     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3454     A     
 PAR       A=SBS    SPACE  4,10                                                            PAR         3455     A     
 PAR      **        A=SBS - SUBSTRING RIGHT PAREN.                                         PAR         3456     A     
 PAR      *                                                                                PAR         3457     A     
 PAR      *         ENTRY  (X4) = OPERAND FOR FIRST.                                       PAR         3458     A     
 PAR      *                (X5) = OPERAND FOR LAST.                                        PAR         3459     A     
 PAR                                                                                       PAR         3460     A     
 PAR                                                                                       PAR         3461     A     
 PAR       A=SBS    BSS    0           ENTRY...                                            PAR         3462     A     
 PAR                RJ     CSM         CHECK SUBSTRING MODE                                PAR         3463     A     
 PAR                SA4    B6-2        RESTORE *FIRST*                                     FC5A385        7     A     
 PAR                BX1    X4                                                              PAR         3464     A     
 PAR                CALL   LCH         LOAD POSSIBLE CONSTANT FIRST                        PAR         3465     A     
 PAR                SA6    ASBSA       SAVE VALUE OF FIRST                                 PAR         3466     A     
 PAR                SB3    B2          SAVE FLAG                                           PAR         3467     A     
 PAR                BX1    X5                                                              PAR         3468     A     
 PAR                CALL   LCH         LOAD POSSIBLE CONSTANT LAST                         PAR         3469     A     
 PAR                SA0    B2          SAVE *LAST* FLAG                                    PAR         3470     A     
 PAR                SA6    ASBSB       SAVE VALUE OF SECOND                                PAR         3471     A     
 PAR                SA5    B6-3        SUBSTRING SYMBOL/ARRAY INTER.                       PAR         3472     A     
 PAR                RJ     DOA         GET SYMBOL                                          PAR         3473     A     
 PAR                SB2    A0                                                              PAR         3474     A     
 PAR                SA5    ASBSB                                                           PAR         3475     A     
 PAR                BX6    X5                                                              PAR         3476     A     
 PAR                =A5    B6-1        RELOAD *LAST*                                       PAR         3477     A     
 PAR                =A1    A2+WA.W-WB.W                                                    PAR         3478     A     
 PAR                MX0    WA.SYML                                                         PAR         3479     A     
 PAR                LX0    WA.SYML+WA.SYMP                                                 PAR         3480     A     
 PAR                BX7    X0*X1       ISOLATE SYMBOL                                      PAR         3481     A     
 PAR                SA7    FILL.       SET CELL FOR ERROR MESSAGES                         PAR         3482     A     
 PAR                =A1    A2+WC.W-WB.W                                                    PAR         3483     A     
 PAR                MX0    -WC.CLIFL                                                       PAR         3484     A     
 PAR                LX1    -WC.CLIFP                                                       PAR         3485     A     
 PAR                BX1    -X0*X1      ISOLATE LENGTH INFO                                 PAR         3486     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX1    WC.CLIFP+59-WC.CTYPP                                            PAR         3487     A     
 PAR                SX2    X1                                                              PAR         3488     A     
 PAR                PL     X1,ASBS10   IF LENTH CONSTANT                                   PAR         3489          I
          -FC5A294
 PAR                PL     X1,ASBS10   IF LENGTH CONSTANT                                  FC5A294       35     A     
 PAR                =X2    1                                                               PAR         3490     A     
 PAR                LX2    18          X2 = POSITIVE LARGE NUMBER                          PAR         3491     A     
 PAR                                                                                       PAR         3492     A     
 PAR       ASBS10   SA3    ASBSA       X3 = FIRST                                          PAR         3493     A     
 PAR                NZ     B3,ASBS20   IF FIRST CONSTANT                                   PAR         3494     A     
 PAR                =X3    1                                                               PAR         3495     A     
 PAR                                                                                       PAR         3496     A     
 PAR       ASBS20   NZ     B2,ASBS30   IF LAST IS CONSTANT                                 PAR         3497     A     
 PAR                BX6    X2                                                              PAR         3498     A     
 PAR                                                                                       PAR         3499     A     
 PAR       ASBS30   =X0    1                                                               PAR         3500     A     
 PAR                IX1    X3-X0                                                           PAR         3501     A     
 PAR                IX7    X6-X0                                                           PAR         3502     A     
 PAR                BX7    X1+X7       MI IFF FIRST OR LAST NOT POSITIVE                   PAR         3503     A     
 PAR                IX0    X6-X3       MI IFF FIRST GT LAST                                PAR         3504     A     
 PAR                BX0    X0+X7                                                           PAR         3505     A     
 PAR                IX1    X2-X3       MI IFF FIRST GT LENGTH                              PAR         3506          I
          -FC5A164
 PAR                IX1    X2-X6       MI IF LAST GT LENGTH                                FC5A164       70     A     
 PAR                BX0    X0+X1                                                           PAR         3507     A     
 PAR                PL     X0,ASBS40   IF NO ERROR                                         PAR         3508     A     
 PAR                FATAL  E.AT16      INVALID SUBSTRING                                   PAR         3509     A     
 PAR                                                                                       PAR         3510     A     
 PAR       ASBS40   SA3    COLOP                                                           PAR         3511     A     
 PAR                RJ     SDM         SET UP (SMOD) AND (SOPR)                            PAR         3512     A     
 PAR                RJ     ADT         T1 = (COLON, FIRST, LAST)                           PAR         3513     A     
 PAR                                                                                       PAR         3514     A     
 PAR                SA4    SCR+AS.W    (1OP) = (ARGMIS)                                    PAR         3515     A     
 PAR                SA3    SUBST                                                           PAR         3516     A     
 PAR                SA5    B6-B1       (2OP) = T1                                          PAR         3517     A     
 PAR                RJ     SDM         SET UP (SMOD) AND (SOPR)                            PAR         3518     A     
 PAR                RJ     ADT         T2 = (SUBST, SYMORD, T1)                            PAR         3519     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3520     A     
 PAR                                                                                       PAR         3521     A     
 PAR       ASBSA    BSS    1           PRESERVE VALUE OF FIRST HERE                        PAR         3522     A     
 PAR       ASBSB    BSS    1           PRESERVE VALUE OF LAST HERE                         PAR         3523     A     
 PAR       CSM      SPACE  4,10                                                            PAR         3524     A     
 PAR      **        CSM - CHECK SUBSTRING MODE.                                            PAR         3525     A     
 PAR      *                                                                                PAR         3526     A     
 PAR      ** FV     LLB WANTS TO ALLOW SAME TYPES AS SUBSCRIPT DOES.  WOULD                PAR         3527          I
          -FC5A385
 PAR      *         REQUIRE AN ANSI DIAGNOSTIC.                                            PAR         3528          I
          -FC5A385
 PAR      *                                                                                PAR         3529     A     
 PAR      *         ENTRY  (X5) = SUBSTRING OPERAND.                                       PAR         3530     A     
 PAR      *                (B6)-1 -> STACK ENTRY FOR OPERAND.                              PAR         3531     A     
 PAR      *                                                                                PAR         3532     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         EXIT   (X5) = LEGAL SUBSTRING OPERAND.                                 PAR         3533     A     
 PAR      *                STACK ENTRY ALSO LEGAL.                                         PAR         3534     A     
 PAR      *                                                                                PAR         3535     A     
 PAR      *         USES   X0,X2,X3,X6  B7  A5,A6.                                         PAR         3536     A     
 PAR      *         CALLS  FATAL.                                                          PAR         3537          I
          -FC5A385
 PAR      *                                                                                FC5A385        8     A     
 PAR      *         CALLS  CMR                                                             FC5A385        9     A     
 PAR                                                                                       PAR         3538     A     
 PAR                                                                                       PAR         3539     A     
 PAR       CSM      SUBR   0           ENTRY/EXIT...                                       PAR         3540     A     
 PAR                MX0    -TP.MODEL                                                       PAR         3541     A     
 PAR                LX5    -TP.MODEP                                                       PAR         3542     A     
 PAR                BX2    -X0*X5                                                          PAR         3543     A     
 PAR                LX5    TP.MODEP                                                        PAR         3544     A     
 PAR                SX3    X2-M.INT                                                        PAR         3545     A     
 PAR                =X2    X2-M.BOOL                                                       PAR         3546     A     
 PAR       .FIX     SET    --  ERROR IF OPERAND IS CONSTANT <= 0.                          PAR         3547          I
          -FC5A132
 PAR                ZR     X2,EXIT.    IF TYPE = BOOLEAN                                   PAR         3548     A     
 PAR                ZR     X3,EXIT.    IF TYPE = INTEGER                                   PAR         3549     A     
 PAR                ANSI   E.AT17      ** NON-INTEGER EXPRESSION                           FC5A385       10     A     
 PAR                SX6    M.INT                                                           FC5A385       11     A     
 PAR                RJ     CMR         COERCE MODE OF RESULT                               FC5A385       12     A     
 PAR                ZR     B7,CSM1     IF NO CONVERSION ERROR                              FC5A385       13     A     
 PAR                FATAL  B7                                                              FC5A385       14     A     
 PAR                SA5    CONONE                                                          PAR         3550     A     
 PAR                SB6    B6+1        CODE ASSUMES CONSTANT NOT IN ESTACK                 FC5A491        6     A     
 PAR                BX6    X5                                                              PAR         3551          I
          -FC5A385
 PAR                                                                                       FC5A385       15     A     
 PAR       CSM1     BX6    X5                                                              FC5A385       16     A     
 PAR                SA6    B6-B1                                                           PAR         3552     A     
 PAR                FATAL  E.AT17      ** SUBSTRING EXPRESSION MUST BE INTEGER             PAR         3553          I
          -FC5A385
 PAR                EQ     EXIT.                                                           PAR         3554     A     
 PAR                TITLE  POP/EMIT DO LOOP INDICIES.                                      PAR         3555     A     
 PAR       A=DO     SPACE  4,10                                                            PAR         3556     A     
 PAR      **        A=DO - PROCESS CLOSING OF *DO*.                                        PAR         3557     A     
 PAR                                                                                       PAR         3558     A     
 PAR                                                                                       PAR         3559     A     
 PAR       A=DO     EQU    PAREXIT     EXIT PARSER...                                      PAR         3560          I
          -FC5A138
 PAR       A=DO     BSS    0                                                               FC5A138        6     A     
 PAR                SA1    SCR+1       FETCH PRIOR ARGCOMA                                 FC5A138        7     A     
 PAR                LX1    -AC.CNTP                                                        FC5A138        8     A     
 PAR                SX1    X1-3        MUST HAVE AT LEAST TWO INDICES                      FC5A138        9     A     
 PAR                ERRNZ  18-AC.CNTL                                                      FC5A138       10     A     
 PAR                PL     X1,PAREXIT  IF SUFFICIENT DO INDEX PARAMETERS                   FC5A138       11     A     
 PAR                FATAL  E.DO00                                                          FC5A138       12     A     
 PAR                SA2    T=BLST                                                          FC5A138       13          I
          -FC51277
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       FC51277        7     A     
 PAR       A=DO5    SA2    T=BLST                                                          FC51277        8     A     
 PAR                SX6    X2-Z=BLST-1                                                     FC5A138       14     A     
 PAR                SHRINK A2,X6                                                           FC5A138       15     A     
 PAR                =X6    0                                                               FC5A138       16          I
          -FC51277
 PAR                                                                                       FC51277        9     A     
 PAR                SA1    T.BLST                                                          FC51277       10     A     
 PAR                SA2    T=BLST                                                          FC51277       11     A     
 PAR                SB2    X2-1                                                            FC51277       12     A     
 PAR                ZR     X2,A=DO9    IF NO NESTED BLOCK STRUCTURE                        FC51277       13     A     
 PAR                                                                                       FC51277       14     A     
 PAR                SA3    X1+B2       FETCH LC. WORD FOR BLOCK                            FC51277       15     A     
 PAR                LX3    -LC.CNTP                                                        FC51277       16     A     
 PAR                SB7    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY                FC51277       17     A     
 PAR                ERRNZ  18-LC.CNTL                                                      FC51277       18     A     
 PAR                HX3    LC.DO                                                           FC51277       19     A     
 PAR                AX3    -LC.DOL     EXTRACT DO LOOP HEADER LABEL INDEX                  FC51277       20     A     
 PAR                ZR     X3,A=DO9    IF NOT DO LOOP                                      FC51277       21     A     
 PAR                                                                                       FC51277       22     A     
 PAR                SB2    B2-B7                                                           FC51277       23     A     
 PAR                SB2    X1+B2       TOP OF T.BLST ENTRY                                 FC51277       24     A     
 PAR                SA3    B2+DO.W+1                                                       FC51277       25     A     
 PAR                HX3    DO.IOD                                                          FC51277       26     A     
 PAR                AX3    -DO.IODL    EXTRACT IMPLIED IO DO FLAG                          FC51277       27     A     
 PAR                NZ     X3,A=DO5    IF IMPLIED IO DO THEN SHRINK                        FC51277       28     A     
 PAR                                                                                       FC51277       29     A     
 PAR       A=DO9    =X6    0                                                               FC51277       30     A     
 PAR                SA6    CDIFLG      CLEAR TO AVOID SECOND SCRATCH                       FC5A138       17     A     
 PAR                EQ     PSL                                                             FC5A138       18     A     
 PAR       C=DO     SPACE  4,10                                                            PAR         3561     A     
 PAR      **        C=DO - DIGEST DO LOOP INDICIES.                                        PAR         3562     A     
 PAR      *                                                                                PAR         3563     A     
 PAR      *         ENTRY  (X5) = OPERAND FOR THIS INDEX.                                  PAR         3564     A     
 PAR      *                (X6) = (ARGCOMA).                                               PAR         3565     A     
 PAR      *                (AC.CNT) = 1 + INDEX NUMBER, SEE (B3) BELOW.                    PAR         3566     A     
 PAR      *                                                                                PAR         3567     A     
 PAR      *         JUMPS TO INDIVIDUAL INDEX PROCESSORS, WITH --                          PAR         3568     A     
 PAR      *                (B3) = CURRENT INDEX NUMBER.                                    PAR         3569     A     
 PAR      *                     = 0, CONTROL                                               PAR         3570     A     
 PAR      *                     = 1, INITIAL                                               PAR         3571     A     
 PAR      *                     = 2, LIMIT                                                 PAR         3572     A     
 PAR      *                     = 3, INCREMENT                                             PAR         3573     A     
 PAR      *                     = 4, ERROR                                                 PAR         3574     A     
 PAR      *                (FILL.2) = ERROR LITERAL FOR NAME OF THIS PARAMETER.            PAR         3575     A     
 PAR      *                                                                                PAR         3576     A     
 PAR      *         EXIT   POPX                                                            PAR         3577     A     
 PAR                                                                                       PAR         3578     A     
 PAR       C=DO     BSS                ENTRY...                                            PAR         3579     A     
 PAR                LX6    -AC.CNTP                                                        PAR         3580     A     
 PAR                SB3    X6-1        SET (B3) = CURRENT INDEX NUMBER                     PAR         3581     A     
 PAR                ERRNZ  18-AC.CNTL                                                      PAR         3582     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA1    T=PAR                                                           FC50842        5     A     
 PAR                SA2    B3+DO.DPC                                                       PAR         3583     A     
 PAR                LX6    X1                                                              FC50842        6     A     
 PAR                BX7    X2          PREPARE (FILL.2) FOR ERROR MESSAGE                  PAR         3584     A     
 PAR                SA6    CURST                                                           FC50842        7     A     
 PAR                SA7    FILL.2                                                          PAR         3585     A     
 PAR                JP     B3+DOXA     ENTER INDEX PROCESSOR                               PAR         3586     A     
 PAR                                                                                       PAR         3587     A     
 PAR       DOXA     BSS                                                                    PAR         3588     A     
 PAR                LOC    0                                                               PAR         3589     A     
 PAR                EQ     DOC         CONTROL INDEX                                       PAR         3590     A     
 PAR                EQ     DOS         START (INITIAL) INDEX                               PAR         3591     A     
 PAR                EQ     DOL         LIMIT INDEX                                         PAR         3592     A     
 PAR                EQ     DOI         INCREMENT INDEX                                     PAR         3593     A     
 PAR                LOC    *O                                                              PAR         3594     A     
 PAR       DO.ERR1  BSS    0           TOO MANY INDICES                                    PAR         3595     A     
 PAR                                                                                       PAR         3596     A     
 PAR      *         RETURN FOR ALL *DO* DEFINITION ERRORS.                                 PAR         3597     A     
 PAR                                                                                       PAR         3598     A     
 PAR       DO.ERR1  FATAL  E.DO00                                                          PAR         3599     A     
 PAR                EQ     PARX        EXIT PAR ENTIRELY                                   PAR         3600     A     
 PAR       DOS      SPACE  4,10                                                            PAR         3601     A     
 PAR      **        DOS - DO START INDEX.                                                  PAR         3602     A     
 PAR      *                                                                                PAR         3603     A     
 PAR      *         THE EQUAL SIGN ON OSTACK IS CHANGED INTO A COMMA, SO                   PAR         3604     A     
 PAR      *         THAT FURTHER COMMAS WILL POP CORRECTLY.  THIS ALSO                     PAR         3605     A     
 PAR      *         AVOIDS COMPLICATIONS IN THE EQUAL-CHAINING MECHANISM,                  PAR         3606     A     
 PAR      *         AND WITH REPLACEMENT STATEMENT DIAGNOSES.                              PAR         3607     A     
 PAR                                                                                       PAR         3608     A     
 PAR                                                                                       PAR         3609     A     
 PAR       DOS      =X0    PR.SLP                                                          PAR         3610     A     
 PAR                =X3    O.COMMA                                                         PAR         3611     A     
 PAR                LX0    TH.STPRP                                                        PAR         3612          I
          -FC50104
 PAR                LX3    TH.TBPRP                                                        PAR         3613          I
          -FC50104
 PAR                LX0    SP.STPRP                                                        FC50104      130     A     
 PAR                LX3    SP.TBPRP                                                        FC50104      131     A     
 PAR                BX7    X0+X3                                                           PAR         3614     A     
 PAR                SA7    B5          REPLACE *=* WITH SPECIAL *COMMA*                    PAR         3615     A     
 PAR                RJ     CDP         CONVERT DO PARAMETER                                PAR         3616     A     
 PAR                =A5    B2+DOCI.W   (2OP) = CONTROL INDEX                               PAR         3617          I
          -FC5A138
 PAR                SX1    O.=                                                             PAR         3618          I
          -FC5A138
 PAR                BX4    X6          (1OP) = START INDEX                                 PAR         3619          I
          -FC5A138
 PAR                =A6    B2+DOSI.W   SET (DO-START INDEX) IN DO TABLE                    PAR         3620     A     
 PAR                RJ     ACT         ADD CONVERTED TURPLE (STORE)                        PAR         3621          I
          -FC5A138
 PAR                EQ     POPX        EXIT..                                              PAR         3622     A     
 PAR       DOL      SPACE  4,10                                                            PAR         3623     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      **        DOL - DO LIMIT INDEX.                                                  PAR         3624     A     
 PAR      *                                                                                PAR         3625     A     
 PAR      *         EXIT   DOI - PRESET DEFAULT INCREMENT.                                 PAR         3626     A     
 PAR                                                                                       PAR         3627     A     
 PAR                                                                                       PAR         3628     A     
 PAR       DOL      RJ     CDP         CONVERT DO PARAMETER                                PAR         3629     A     
 PAR                =A6    B2+DOLI.W   SET (LIMIT) IN DO TABLE                             PAR         3630     A     
 PAR                SA5    CONONE      PRESET (INCREMENT) = 1                              PAR         3631     A     
 PAR      *         EQ     DOI         ...                                                 PAR         3632     A     
 PAR       DOI      SPACE  4,10                                                            PAR         3633     A     
 PAR      **        DOI - DO INCREMENT INDEX.                                              PAR         3634     A     
 PAR      *                                                                                PAR         3635     A     
 PAR      ** FV     NOTE THAT DOI USED TO ATTEMPT TO CHECK FOR ZERO INCREMENT.             PAR         3636     A     
 PAR      *         IT DID NOT CATCH TYPE REAL OR DOUBLE, HOWEVER.  THIS CODE              PAR         3637     A     
 PAR      *         LETS A ZERO INCREMENT GO THRU.  IT WILL BE PROPERLY DIAGNOSED          PAR         3638     A     
 PAR      *         IN *DTC*.  OTHER CHOICES ARE TO DIAGNOSE IN CONSTANT REDUCER,          PAR         3639     A     
 PAR      *         OR PUT OUT THE DIVIDE, AND LET AN OBJECT TIME INFINITY KILL            PAR         3640     A     
 PAR      *         THE PROGRAM.                                                           PAR         3641     A     
 PAR                                                                                       PAR         3642     A     
 PAR                                                                                       PAR         3643     A     
 PAR       DOI      RJ     CDP         CONVERT DO PARAMETER                                PAR         3644     A     
 PAR                =A6    B2+DOII.W   SET (INCREMENT) IN DO TABLE                         PAR         3645     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3646     A     
 PAR       DOC      SPACE  4,10                                                            PAR         3647     A     
 PAR      **        DOC - DO CONTROL INDEX.                                                PAR         3648     A     
 PAR      *                                                                                PAR         3649     A     
 PAR      *         EXIT   C=DO - CYCLE AGAIN, FOR INITIAL INDEX.                          PAR         3650     A     
 PAR                                                                                       PAR         3651     A     
 PAR                                                                                       PAR         3652     A     
 PAR       DOC      BX1    X4                                                              PAR         3653     A     
 PAR                LX5    X4          REMEMBER (X5) = CONTROL-INDEX OPERAND               PAR         3654     A     
 PAR                RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY                    PAR         3655     A     
 PAR                SB7    E.DO15      ** CONTROL INDEX CANNOT BE CONST/EXPR               PAR         3656     A     
 PAR                NZ     X6,DOC4     IF OPERAND NOT ADDRESSABLE                          PAR         3657     A     
 PAR                =A3    A2-WB.W+WA.W                                                    PAR         3658     A     
 PAR                MX7    WA.SYML                                                         PAR         3659     A     
 PAR                SB7    E.DO04      ** CONTROL INDEX MUST BE SIMPLE VARIABLE            PAR         3660     A     
 PAR                HX3    WA.SYM                                                          PAR         3661     A     
 PAR                BX6    X7*X3       (FILL.) = NAME OF SYMBOL                            PAR         3662     A     
 PAR                SA6    FILL.                                                           PAR         3663     A     
 PAR                PL     X1,DOC4     IF OPERAND SYMBOL IS NOT *WB.VAR*                   PAR         3664     A     
 PAR                SBIT   X1,WB.ARYP/WB.VARP                                              FC5A253        4     A     
 PAR                MI     X1,DOC4     IF SYMBOL IS ARRAY                                  FC5A253        5     A     
 PAR                                                                                       PAR         3665          I
          -FC5A211
 PAR                CLAS=  X3,WB,(DOIX,DEF)                                                PAR         3666          I
          -FC5A211
 PAR                BX7    X2+X3       MARK THIS VAR AS ACTIVE CONTROL INDEX               PAR         3667          I
          -FC5A211
 PAR                HX2    WB.DOIX                                                         PAR         3668          I
          -FC5A211
 PAR                SB7    E.DO11      ** REDEFINES ACTIVE OUTER INDEX                     PAR         3669          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A211
 PAR                CLAS=  X3,WB,(DEF)                                                     FC5A211       74          I
          -FC50956
 PAR                CLAS=  X1,WB,(DEF)                                                     FC50956        8     A     
 PAR                BX7    X2+X3       MARK VARIABLE AS DEFINED                            FC5A211       75          I
          -FC50221
 PAR                CLAS=  X7,WB,(1REF)                                                    FC50221        5     A     
 PAR                BX7    -X7*X2      CLEAR STRAY FLAG                                    FC50221        6     A     
 PAR                BX7    X7+X3       MARK VARIABLE AS DEFINED                            FC50221        7          I
          -FC50956
 PAR                SA7    A2                                                              PAR         3670     A     
 PAR                SA3    DATFLG                                                          PAR         3671     A     
 PAR                SX3    X3-PM=DATA                                                      PAR         3672     A     
 PAR                ZR     X3,DOC2     IF IN *DATA* PROCESSING                             PAR         3673     A     
 PAR                BX7    X7+X1       MARK VARIABLE AS DEFINED                            FC50956        9     A     
 PAR                SA7    A2                                                              FC50956       10     A     
 PAR                MI     X2,DOC4     IF COTROL INDEX ALREADY ACTIVE                      PAR         3674          I
          -FC5A211
 PAR                SA1    T.BLST                                                          FC5A211       76     A     
 PAR                SA2    T=BLST                                                          FC5A211       77     A     
 PAR                SB7    X2-Z=BLST-1+DOCI.W                                              FC5A211       78     A     
 PAR                =X7    0                                                               FC5A211       79     A     
 PAR                SA7    X1+B7       CLEAR DOCI.W TO AVOID NOISE                         FC5A211       80     A     
 PAR                SB3    -1          INDICATE DO CONTROL INDEX                           FC50718       11     A     
 PAR                CALL   DDR         DIAGNOSE DO REDEFINITION                            FC5A211       81     A     
 PAR                                                                                       PAR         3675     A     
 PAR       DOC2     SA4    ="M.OKDO"                                                       PAR         3676          I
          -FC5A254
 PAR       DOC2     SA4    ="M.OKDOC"                                                      FC5A254        5     A     
 PAR                SB2    X0                                                              PAR         3677     A     
 PAR                LX4    B2                                                              PAR         3678     A     
 PAR                MI     X4,DOC7     IF THIS TYPE PERMITTED                              PAR         3679     A     
 PAR                SA3    X0+MOD.DPC                                                      PAR         3680     A     
 PAR                BX6    X3                                                              PAR         3681     A     
 PAR                SB7    E.DO15      ** DO INDEX CANNOT BE <TYPE>                        PAR         3682     A     
 PAR                SA6    FILL.3                                                          PAR         3683     A     
 PAR       DOC4     FATAL  B7                                                              PAR         3684     A     
 PAR                                                                                       PAR         3685     A     
 PAR      *         DETERMINE CONTROL INDEX MODE.  SELECT CONCLUSION TURPLE.               PAR         3686     A     
 PAR                                                                                       PAR         3687     A     
 PAR       DOC7     SA3    DO.END                                                          PAR         3688     A     
 PAR                BX4    X5          (1OP) = (2OP)    /* INHIBIT MODE CONVERSION         PAR         3689     A     
 PAR                SA1    WO.DOLG     FETCH DO LOOP LENGTH INDICATOR                      PAR         3690     A     
 PAR                LX1    TH.SKELP                                                        PAR         3691          I
          -FC50104
 PAR                LX1    SP.SKELP                                                        FC50104      132     A     
 PAR                IX3    X1+X3       SELECT SKELETON (LONG OR SHORT)                     PAR         3692     A     
 PAR                RJ     SDM         SELECT DOMINANT MODE                                PAR         3693     A     
 PAR                SA1    SMOD                                                            PAR         3694     A     
 PAR                SA2    T=BLST                                                          PAR         3695     A     
 PAR                SX6    X1                                                              PAR         3696     A     
 PAR                SA6    DOMODE                                                          PAR         3697     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MX0    TH.SKELL                                                        PAR         3698          I
          -FC50104
 PAR                MX0    SP.SKELL                                                        FC50104      133     A     
 PAR                SB7    X2-Z=BLST-1+DP.W                                                PAR         3699     A     
 PAR                SA1    T.BLST                                                          PAR         3700     A     
 PAR                HX3    TH.SKEL                                                         PAR         3701          I
          -FC50104
 PAR                HX3    SP.SKEL                                                         FC50104      134     A     
 PAR                BX7    X0*X3       (DP.TURC)[T.DO] = CONCLUSION SKELETON               PAR         3702     A     
 PAR                LX7    -TH.SKELP+DP.TURCP                                              PAR         3703          I
          -FC50104
 PAR                LX7    -SP.SKELP+DP.TURCP                                              FC50104      135     A     
 PAR                SA7    X1+B7                                                           PAR         3704     A     
 PAR       .FIX     SET    -- RESET (AM.REF) = CR.PAR.                                     PAR         3705          I
          -FC50842
 PAR                SX1    B1                                                              PAR         3706     A     
 PAR                SA2    ARGCOMA                                                         PAR         3707     A     
 PAR                SA5    B6-B1       RETURN (X5) = (START-INDEX) OPERAND                 PAR         3708     A     
 PAR                BX7    X4                                                              PAR         3709     A     
 PAR                LX1    AC.CNTP                                                         PAR         3710     A     
 PAR                IX6    X2+X1       INCREMENT COMMA COUNT                               PAR         3711     A     
 PAR                =A7    A7-DP.W+DOCI.W    SET (CONTROL-INDEX) IN DO TABLE               PAR         3712     A     
 PAR                SA6    A2                                                              PAR         3713     A     
 PAR                LX6    -AC.CNTP    RETURN (X6) = COMMA COUNT                           PAR         3714     A     
 PAR                LX7    -TP.ORDP                                                        PAR         3715     A     
 PAR                MX1    -TP.ORDL                                                        PAR         3716     A     
 PAR                BX7    -X1*X7      EXTRACT SYMORD OF CONTROL INDEX                     PAR         3717     A     
 PAR                LX7    WB.DIP                                                          PAR         3718     A     
 PAR                SA2    A7-DOCI.W+DORT.W  X2 = OPERAND OF DO-TOP LABEL                  PAR         3719     A     
 PAR                LX2    -TP.ORDP                                                        PAR         3720     A     
 PAR                BX2    -X1*X2      EXTRACT SYMORD                                      PAR         3721     A     
 PAR                SA1    T.SYM                                                           PAR         3722     A     
 PAR                SB7    X2                                                              PAR         3723     A     
 PAR                LX2    1                                                               PAR         3724     A     
 PAR                SB7    X2+B7                                                           PAR         3725     A     
 PAR                =B7    B7+WB.W     CONVERT TO *WB* INDEX                               PAR         3726     A     
 PAR                SA1    X1+B7       X1 = *WB* OF DO-TOP                                 PAR         3727     A     
 PAR                BX7    X7+X1       MERGE WITH INDEX OF CONTROL VARIABLE                PAR         3728     A     
 PAR                SA7    A1          UPDATE *WB*                                         PAR         3729     A     
 PAR                EQ     C=DO        CYCLE FOR (START-INDEX)                             PAR         3730     A     
 PAR       CDP      SPACE  4,10                                                            PAR         3731     A     
 PAR      **        CDP - CONVERT DO PARAMETER.                                            PAR         3732     A     
 PAR      *                                                                                PAR         3733     A     
 PAR      *         ENTRY  (X5) = INDEX OPERAND.                                           PAR         3734     A     
 PAR      *                                                                                PAR         3735     A     
 PAR      *         EXIT   (B2) = FWA ENTRY FOR THIS LOOP.                                 PAR         3736     A     
 PAR      *                (B6)  DECREMENTED.                                              PAR         3737     A     
 PAR      *                (X6) = OPERAND IN DESIRED MODE.                                 PAR         3738     A     
 PAR      *                                                                                PAR         3739     A     
 PAR      *         CALLS  CMR, FATAL, LCH.                                                PAR         3740     A     
 PAR                                                                                       PAR         3741     A     
 PAR                                                                                       PAR         3742     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       CDP      SUBR   0           ENTRY/EXIT...                                       PAR         3743     A     
 PAR                BX1    X5                                                              PAR         3744     A     
 PAR                CALL   LCH         LOAD/CHECK CONSTANT                                 PAR         3745     A     
 PAR                SA3    ="M.OKDO"                                                       PAR         3746     A     
 PAR                SA1    DOMODE                                                          PAR         3747     A     
 PAR                SB2    X0                                                              PAR         3748     A     
 PAR                LX3    B2                                                              PAR         3749     A     
 PAR                MI     X3,CDP2     IF THIS TYPE PERMITTED                              PAR         3750     A     
 PAR                SA2    X0+MOD.DPC                                                      PAR         3751     A     
 PAR                BX7    X2                                                              PAR         3752     A     
 PAR                SA7    FILL.3                                                          PAR         3753     A     
 PAR                FATAL  E.DO16      ** DO <INDEX> PARAMETER CANNOT BE <TYPE>            PAR         3754     A     
 PAR                SA5    S=BU                                                            PAR         3755     A     
 PAR                LX1    TP.MODEP                                                        PAR         3756     A     
 PAR                BX5    X5+X1       INVENT INNOCOUS OPERAND                             PAR         3757     A     
 PAR                LX1    -TP.MODEP                                                       PAR         3758     A     
 PAR                                                                                       PAR         3759     A     
 PAR       CDP2     BX6    X1                                                              PAR         3760     A     
 PAR                RJ     CMR         COERCE MODE OF PARAMETER                            PAR         3761     A     
 PAR                                                                                       PAR         3762     A     
 PAR                SA1    T.BLST                                                          PAR         3763     A     
 PAR                SA2    T=BLST                                                          PAR         3764     A     
 PAR                BX6    X5          RETURN (X6) = CONVERTED OPERAND                     PAR         3765     A     
 PAR                IX3    X1+X2                                                           PAR         3766     A     
 PAR                SB6    B6-B1       DECREMENT ESTACK TOP                                PAR         3767     A     
 PAR                SB2    X3-Z=BLST-1                                                     PAR         3768     A     
 PAR                EQ     EXIT.                                                           PAR         3769     A     
 PAR       DTC      SPACE  4,10                                                            PAR         3770     A     
 PAR      **        DTC - DETERMINE TRIP COUNT.                                            PAR         3771     A     
 PAR      *                                                                                PAR         3772     A     
 PAR      *         ENTRY  FROM LABEL/CDI AFTER DO PARAMETERS ARE PARSED.                  PAR         3773     A     
 PAR      *                TOP ENTRY ON (T.BLST) SETUP.                                    PAR         3774     A     
 PAR      *                                                                                PAR         3775     A     
 PAR      *         EXIT   (X5) = TRIP COUNT OPERAND (INTEGER MODE).                       PAR         3776     A     
 PAR      *                                                                                PAR         3777     A     
 PAR      *         USES   CANNOT DESTROY B4.                                              PAR         3778     A     
 PAR      *                                                                                PAR         3779     A     
 PAR      *         CALLS  ACT, CMR                                                        PAR         3780     A     
 PAR                                                                                       PAR         3781     A     
 PAR                                                                                       PAR         3782     A     
 PAR       DTC      SUBR   =           ...ENTRY/EXIT...                                    PAR         3783     A     
 PAR                SA1    T.BLST                                                          PAR         3784     A     
 PAR                SA2    T=BLST                                                          PAR         3785     A     
 PAR                IX1    X1+X2                                                           PAR         3786     A     
 PAR                SB2    X1-Z=BLST-1                                                     PAR         3787     A     
 PAR                =A4    B2+DOSI.W               (1OP) = M1                              PAR         3788          I
          -FC50772
 PAR                =A1    A4-DOSI.W+DOLI.W                                                PAR         3789          I
          -FC50772
 PAR                BX6    X4-X1                                                           FC5A113        9          I
          -FC50772
 PAR                =A5    B2+DOSI.W          (2OP) = M1                                   FC50772       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =A4    A5-DOSI.W+DOLI.W   (1OP) = M2                                   FC50772       12     A     
 PAR                BX6    X4-X5                                                           FC50772       13     A     
 PAR                SA5    CONONE                                                          FC5A113       10          I
          -FC5A122
 PAR                ZR     X6,EXIT.    IF M1 = M2                                          FC5A113       11          I
          -FC5A122
 PAR                SA6    DTCA        SAVE FOR LATER REFERENCE                            FC5A122        4     A     
 PAR                =A5    A1-DOLI.W+DOII.W        (2OP) = M3                              PAR         3790          I
          -FC50772
 PAR                =A1    A4-DOLI.W+DOII.W           M3                                   FC50772       14     A     
 PAR                BX6    X1                                                              PAR         3791     A     
 PAR                LX7    X5                                                              PAR         3792          I
          -FC50772
 PAR                SA6    B6+B1       ESTACK[TOP+1] = M2                                  PAR         3793          I
          -FC50772
 PAR                SA7    B6+B0       ESTACK[TOP+0] = M3                                  PAR         3794          I
          -FC50772
 PAR                =A6    B6+1        ESTACK[TOP+1] = M3                                  FC50772       15     A     
 PAR                =A6    B6+0        ESTACK[TOP+0] = M3                                  FC50772       16     A     
 PAR                SB6    B6+4        TOP = TOP + 4                                       PAR         3795     A     
 PAR                SX1    O.MIN                                                           PAR         3796     A     
 PAR                RJ     ACT         T1 = (MINUS, M1, M3)                                PAR         3797          I
          -FC50772
 PAR                RJ     ACT         T1 = (MINUS, M2, M1)                                FC50772       17     A     
 PAR                                                                                       PAR         3798     A     
 PAR                SA5    B6-B1                                                           PAR         3799     A     
 PAR                SX1    O.MIN                                                           PAR         3800          I
          -FC50772
 PAR                SX1    O.PL                                                            FC50772       18     A     
 PAR                SA4    A5-B1                                                           PAR         3801     A     
 PAR                RJ     ACT         T2 = (MINUS, M2, T1)                                PAR         3802          I
          -FC50772
 PAR                RJ     ACT         T2 = (PLUS, T1, M3)                                 FC50772       19     A     
 PAR                                                                                       PAR         3803     A     
 PAR                SA2    CONONE                                                          FC5A132       76     A     
 PAR                SA4    B6-B1                                                           PAR         3804     A     
 PAR                SA5    A4-B1                                                           PAR         3805     A     
 PAR                BX0    X2-X5                                                           FC5A132       77     A     
 PAR                BX1    X5                                                              PAR         3806     A     
 PAR                ZR     X0,DTC15    IF M3 = 1                                           FC5A132       78     A     
 PAR                CALL   LCT         LOAD CONSTANT TEST                                  PAR         3807     A     
 PAR                ZR     B2,DTC10    IF INCR. NOT CONSTANT                               PAR         3808     A     
 PAR                NZ     X6,DTC10    IF INCR. NZ                                         PAR         3809     A     
 PAR                FATAL  E.DO02      INCR. MUST NOT BE ZERO                              PAR         3810     A     
 PAR                                                                                       PAR         3811     A     
 PAR       DTC10    SX1    O.DIV                                                           PAR         3812     A     
 PAR                RJ     ACT         T3 = (DIV, T2, M3)                                  PAR         3813     A     
 PAR                                                                                       PAR         3814     A     
 PAR                SA5    B6-B1       FETCH (X5) = T3                                     PAR         3815          I
          -FC5A132
 PAR       DTC15    SA5    B6-1        FETCH T3                                            FC5A132       79     A     
 PAR                SA2    DATFLG                                                          PAR         3816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ZR     X2,DTC20    IF NOT IN DATA STATEMENT                            PAR         3817     A     
 PAR                BX2    X5                                                              PAR         3818     A     
 PAR                MX0    -TP.MODEL                                                       PAR         3819     A     
 PAR                LX2    -TP.MODEP                                                       PAR         3820     A     
 PAR                BX0    -X0*X2                                                          PAR         3821     A     
 PAR                SB2    X0-M.INT                                                        PAR         3822     A     
 PAR                ZR     X0,DTC20    IF TC IS BOOLEAN                                    PAR         3823     A     
 PAR                ERRNZ  M.BOOL                                                          PAR         3824     A     
 PAR                ZR     B2,DTC20    IF TC IS INTEGER                                    PAR         3825     A     
 PAR                FATAL  E.DO17      MUST BE INTEGER IN DATA                             PAR         3826     A     
 PAR                                                                                       PAR         3827     A     
 PAR       DTC20    =X6    M.INT                                                           PAR         3828     A     
 PAR                SB6    B6-B1       TOP = TOP - 1     /* RESTORE (B6)                   PAR         3829     A     
 PAR                RJ     CMR         COERCE MODE:  TC = INT (T3)                         PAR         3830     A     
 PAR                EQ     EXIT.                                                           PAR         3831          I
          -FC5A122
 PAR                SA1    DTCA                                                            FC5A122        5     A     
 PAR                NZ     X1,EXIT.    IF M1 .NE. M2                                       FC5A122        6     A     
 PAR                SA5    CONONE                                                          FC5A122        7     A     
 PAR                EQ     EXIT.                                                           FC5A122        8     A     
 PAR                                                                                       FC5A122        9     A     
 PAR       DTCA     BSS    1                                                               FC5A122       10     A     
 PAR                TITLE  POP/EMIT EXPONENTIATION.                                        PAR         3832     A     
 PAR       POP.EXP  EJECT                                                                  PAR         3833     A     
 PAR      **        POP.EXP - SYNTHESIZE RESULT OF EXPONENTIATION.                         PAR         3834     A     
 PAR      *                                                                                PAR         3835     A     
 PAR      *         POP.EXP EVALUATES CURRENT EXPONENTIAL BEING POPPED FOR                 PAR         3836     A     
 PAR      *         SIMPLE COMPILE TIME REDUCTION, TRANSFORMATIONS ON OPERATOR AND         PAR         3837     A     
 PAR      *         CONVERSION NECESSARY TO PROCESS BOTH EXTERNAL AND INTERNAL             PAR         3838     A     
 PAR      *         PROCESSING.                                                            PAR         3839     A     
 PAR      *                                                                                PAR         3840     A     
 PAR      *         TRANSFORMATIONS POSSIBLE.                                              PAR         3841     A     
 PAR      *                                                                                PAR         3842     A     
 PAR      *         1.  INTEGER TO REAL (CONSTANT).                                        PAR         3843     A     
 PAR      *             IF POWER HAS AN INTEGRAL VALUE, CHANGE FORM TO                     PAR         3844     A     
 PAR      *             FLOAT(INTEGER) TO IFIX(REAL).                                      PAR         3845     A     
 PAR      *                                                                                PAR         3846     A     
 PAR      *         2.  INTEGER TO INTEGER (CONSTANT).                                     PAR         3847     A     
 PAR      *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS           PAR         3848     A     
 PAR      *             INLINE.                                                            PAR         3849     A     
 PAR      *                                                                                PAR         3850     A     
 PAR      *         3.  REAL TO INTEGER (CONSTANT).                                        PAR         3851     A     
 PAR      *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS           PAR         3852     A     
 PAR      *             INLINE.                                                            PAR         3853     A     
 PAR      *                                                                                PAR         3854     A     
 PAR      *                                                                                PAR         3855     A     
 PAR      *         ENTRY  (X3) = O.EXP OPERATOR.                                          PAR         3856     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         3857     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         3858     A     
 PAR                                                                                       PAR         3859     A     
 PAR                                                                                       PAR         3860     A     
 PAR       EXP.IL   EQU    17          UPPER LIMIT+1 FOR COMPUTING ** INLINE               PAR         3861          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A390
 PAR       EXP.IL   EQU    16          UPPER LIMIT FOR COMPUTING ** INLINE                 FC5A390        6     A     
 PAR       TOIL.I   EQU    EXP.IL      INTEGER                                             PAR         3862     A     
 PAR       TOIL.R   EQU    EXP.IL      REAL                                                PAR         3863     A     
 PAR       TOIL.D   EQU    2           DOUBLE                                              PAR         3864     A     
 PAR       TOIL.Z   EQU    4           COMPLEX                                             PAR         3865     A     
 PAR                                                                                       PAR         3866     A     
 PAR                                                                                       PAR         3867     A     
 PAR       POP.EXP  BSS    0                                                               PAR         3868     A     
 PAR                SA1    =XDATFLG                                                        PAR         3869     A     
 PAR                SA3    EXPOP                                                           PAR         3870     A     
 PAR                NZ     X1,POP.STD  IF COMPILING DATA STATEMENT                         PAR         3871     A     
 PAR                                                                                       PAR         3872     A     
 PAR       EXP10    MX0    -TP.MODEL                                                       PAR         3873     A     
 PAR                BX6    -X0*X4      MODE OF BASE                                        PAR         3874     A     
 PAR                SA1    X6+OM=EXP                                                       PAR         3875     A     
 PAR                ERRNZ  M.BOOL                                                          PAR         3876     A     
 PAR                NZ     X6,EXP11    IF MODE OF BASE NOT BOOLEAN                         PAR         3877     A     
 PAR                =X6    M.INT                                                           PAR         3878     A     
 PAR                                                                                       PAR         3879     A     
 PAR       EXP11    BX3    -X0*X5      (X3) = MODE OF POWER                                PAR         3880     A     
 PAR                SA6    SMOD        (SMOD) = EFFECTIVE MODE OF BASE                     PAR         3881     A     
 PAR                LX3    3                                                               PAR         3882     A     
 PAR                SB2    X3          SHIFT COUNT = 8 * (MODE OF POWER)                   PAR         3883     A     
 PAR                MX0    -8                                                              PAR         3884     A     
 PAR                AX1    B2,X1                                                           PAR         3885     A     
 PAR                BX6    -X0*X1      (X6) = OFFSET TO CONTROL WORD                       PAR         3886     A     
 PAR                SA3    X6+EXP.BASE                                                     PAR         3887     A     
 PAR                BX7    X3                                                              PAR         3888     A     
 PAR                HX3    IT.DPC                                                          PAR         3889     A     
 PAR                AX3    -IT.DPCL                                                        PAR         3890     A     
 PAR                ZR     X3,EXP90    IF ILLEGAL MODE COMBO                               PAR         3891     A     
 PAR                RJ     DDC         DIAGNOSE DOUBLE AND COMPLEX EXPRESSION              FC50014       28     A     
 PAR                                                                                       PAR         3892     A     
 PAR                SA7    /CF/IE      SAVE INTRINSIC TABLE ENTRY                          PAR         3893     A     
 PAR                SX6    A3                                                              PAR         3894     A     
 PAR                BX1    X5                                                              PAR         3895     A     
 PAR                SA6    EXPA        REMEMBER (EXPA) = ADDRESS OF CONTROL WORD           PAR         3896     A     
 PAR                CALL   LCT         CHECK IF POWER IS CONSTANT                          PAR         3897     A     
 PAR                SA6    TER2        SAVE POWER                                          PAR         3898     A     
 PAR                ZR     B2,EXP60    IF POWER NOT CONSTANT                               PAR         3899     A     
 PAR                SB7    X0-M.REAL                                                       PAR         3900     A     
 PAR                NZ     B7,EXP30    IF POWER NOT MODE REAL                              PAR         3901     A     
 PAR                                                                                       PAR         3902     A     
 PAR      *         POWER IS REAL CONSTANT.  IF IT IS AN EXACT INTEGER, CHANGE             PAR         3903     A     
 PAR      *         THE OPERAND SO THAT THE EQUIVALENT (REAL ** INT) OPERATION             PAR         3904     A     
 PAR      *         IS EVALUATED.  SUPPRESS THIS ACTION WHEN PARSING A REQUIRED            PAR         3905     A     
 PAR      *         CONSTANT EXPRESSION (E.G., PARAMETER).                                 PAR         3906     A     
 PAR      *                                                                                PAR         3907     A     
 PAR      *         IF NOT PARAMETER STMT THEN                                             PAR         3908     A     
 PAR      *             IF LIR(POWER) THEN                                                 PAR         3909     A     
 PAR      *                 IF MODE.BASE IN [INTEGER, BOOL] THEN                           PAR         3910     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                     BASE := FLOAT(BASE)                                        PAR         3911     A     
 PAR      *                 ENDIF                                                          PAR         3912     A     
 PAR      *                 POWER := IFIX(POWER)                                           PAR         3913     A     
 PAR      *                 STARTOVER                                                      PAR         3914     A     
 PAR      ** FV         ELSIF POWER = 0.5 THEN                                             PAR         3915     A     
 PAR      *                 CHANGE TO SQRT CALL      /* HOW ???                            PAR         3916     A     
 PAR      *             ENDIF                                                              PAR         3917     A     
 PAR      *         ENDIF                                                                  PAR         3918     A     
 PAR                                                                                       PAR         3919     A     
 PAR                                                                                       PAR         3920     A     
 PAR                SA1    PARNOW                                                          PAR         3921     A     
 PAR                SB7    X1-PM=PARM                                                      PAR         3922     A     
 PAR                ZR     B7,EXP40    IF 'PARAMETER', REAL POWER ILL                      PAR         3923          I
          -FC5A156
 PAR                BX2    X6                                                              PAR         3924          I
          -FC5A156
 PAR                NZ     B7,EXP20    IF NOT 'PARAMETER' PROCESSING                       FC5A156       18     A     
 PAR                FATAL  E.PX7       REAL POWER ILLEGAL ON 'PARAMETER'                   FC5A156       19     A     
 PAR                SA5    CONONE                                                          FC5A156       20     A     
 PAR                EQ     PARX                                                            FC5A156       21     A     
 PAR                                                                                       FC5A156       22     A     
 PAR       EXP20    BX2    X6                                                              FC5A156       23     A     
 PAR                CALL   LIR         LOAD INTEGRAL REAL                                  PAR         3925     A     
 PAR                NZ     X6,EXP40    IF POWER NOT INTEGRAL VALUE                         PAR         3926     A     
 PAR                BX5    X7                                                              PAR         3927     A     
 PAR                SA7    B6-B1       POWER := IFIX (POWER)                               PAR         3928     A     
 PAR                MX0    -TP.MODEL                                                       PAR         3929     A     
 PAR                LX4    -TP.MODEP                                                       PAR         3930     A     
 PAR                BX3    -X0*X4      (X3) = MODE OF BASE                                 PAR         3931     A     
 PAR                LX4    TP.MODEP                                                        PAR         3932     A     
 PAR                BX6    X2                                                              PAR         3933     A     
 PAR                SA6    TER2                                                            PAR         3934     A     
 PAR                =X6    M.REAL                                                          PAR         3935     A     
 PAR                IX3    X3-X6                                                           PAR         3936     A     
 PAR                PL     X3,EXP10    IF MODE.BASE .GE. REAL                              PAR         3937     A     
 PAR                BX5    X4                                                              PAR         3938     A     
 PAR                CALL   CMR         FLOAT (BASE)                                        PAR         3939     A     
 PAR                IFEQ   TEST,ON,1                                                       PAR         3940     A     
 PAR                NZ     B7,"BLOWUP" IF BASE MODE NFG                                    PAR         3941     A     
 PAR                BX7    X5                                                              PAR         3942     A     
 PAR                SA5    B6-B1                                                           PAR         3943     A     
 PAR                LX4    X7                                                              PAR         3944     A     
 PAR                SA7    A5-B1                                                           PAR         3945     A     
 PAR                EQ     EXP10       STARTOVER..                                         PAR         3946     A     
 PAR                                                                                       PAR         3947     A     
 PAR                                                                                       PAR         3948     A     
 PAR      *         IF POWER IS INTEGER CONSTANT, HANDLE END CASE VALUES.                  PAR         3949     A     
 PAR      *         (NOTE THAT POWER = 0 CANNOT BE CHANGED INTO CONSTANT 1 UNLESS          PAR         3950     A     
 PAR      *         BASE IS CONSTANT.  OTHERWISE, MIGHT LOOSE AN EXECUTION ERROR           PAR         3951     A     
 PAR      *         OF VARIABLE ZERO ** ZERO.)                                             PAR         3952     A     
 PAR                                                                                       PAR         3953     A     
 PAR      *         IF BOOL DO WHAT ????                                                   PAR         3954     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1328    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         3955     A     
 PAR       EXP30    =B7    B7+M.REAL-M.INT                                                 PAR         3956     A     
 PAR                NZ     B7,EXP40    IF POWER NOT MODE INTEGER                           PAR         3957     A     
 PAR                NZ     X6,EXP35    IF POWER VALUE NOT ZERO                             PAR         3958     A     
 PAR                BX1    X4                                                              PAR         3959     A     
 PAR                CALL   LCT         LOAD CONSTANT TEST (BASE)                           PAR         3960     A     
 PAR                SB7    =XE.XP7     ** VARIABLE TO 0 RESULTS = 0                        PAR         3961     A     
 PAR                ZR     B2,EXP32    IF BASE NOT CONSTANT                                PAR         3962     A     
 PAR                NZ     X6,EXP34    IF BASE NOT ZERO                                    PAR         3963     A     
 PAR                TRIV   E.XP3       ** 0 TO 0 IS INDEFINITE                             PAR         3964     A     
 PAR                EQ     EXP40                                                           PAR         3965          I
          -FC5A243
 PAR                EQ     EXP60                                                           FC5A243       23     A     
 PAR                                                                                       PAR         3966     A     
 PAR       EXP32    TRIV   B7                                                              PAR         3967     A     
 PAR       EXP34    SA2    SMOD                                                            PAR         3968     A     
 PAR                SA5    CONONE                                                          PAR         3969     A     
 PAR                BX6    X2                                                              PAR         3970     A     
 PAR                CALL   CMR         CONVERT MODE OF (CONSTANT ONE)                      PAR         3971     A     
 PAR                =B6    B6-1                                                            PAR         3972     A     
 PAR                BX6    X5                                                              PAR         3973     A     
 PAR                SA6    B6-B1                                                           PAR         3974     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3975     A     
 PAR                                                                                       PAR         3976     A     
 PAR      *         CHECK IF POWER IS *1*.  IF SO, REMOVE CONSTANT *1*                     PAR         3977     A     
 PAR      *         FROM *ESTACK* AND EXIT, POPPING NOTHING.                               PAR         3978     A     
 PAR                                                                                       PAR         3979     A     
 PAR       EXP35    MX2    -1                                                              PAR         3980     A     
 PAR                IX0    X6+X2                                                           PAR         3981     A     
 PAR                NZ     X0,EXP40    IF POWER NE 1                                       PAR         3982     A     
 PAR                CLAS=  X3,TP,(EXPR)                                                    PAR         3983     A     
 PAR                =B6    B6-1                                                            PAR         3984     A     
 PAR                BX6    X4+X3                                                           PAR         3985     A     
 PAR                =A6    B6-1        RESTORE BASE (IN CASE CHANGED)                      PAR         3986     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3987     A     
 PAR                                                                                       PAR         3988     A     
 PAR      *         GENERAL TRANSFORMS NOW EXHAUSTED.  GOTO SPECIFIC PROCESSOR,            PAR         3989     A     
 PAR      *         WHEN ONE EXISTS.                                                       PAR         3990     A     
 PAR                                                                                       PAR         3991     A     
 PAR       EXP40    SA1    EXPA                                                            PAR         3992     A     
 PAR                SA3    X1                                                              PAR         3993     A     
 PAR                SB3    X1          (B3) = ADDRESS OF CONTROL WORD                      PAR         3994     A     
 PAR                HX3    IT.PAR                                                          PAR         3995     A     
 PAR                PL     X3,EXP60    IF NO SPECIAL PROCESSING                            PAR         3996     A     
 PAR                SA2    TER2        (X2) = VALUE OF CONSTANT POWER                      PAR         3997     A     
 PAR                JP     B3+1                                                            PAR         3998     A     
 PAR                                                                                       PAR         3999     A     
 PAR                                                                                       PAR         4000     A     
 PAR      *         NO REDUCTION POSSIBLE.  ISSUE TURPLES LIKE FUNCTION CALL.              PAR         4001     A     
 PAR                                                                                       PAR         4002     A     
 PAR       EXP60    SA1    /CF/IE                                                          PAR         4003     A     
 PAR                MX0    -IT.ARGML                                                       PAR         4004     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX1    -IT.ARGMP                                                       PAR         4005     A     
 PAR                BX6    -X0*X1      (SMOD) = MODE OF RESULT                             PAR         4006     A     
 PAR                SA6    SMOD                                                            PAR         4007     A     
 PAR                SA5    B6-B1                                                           PAR         4008     A     
 PAR                SA4    A5-B1                                                           PAR         4009     A     
 PAR                LX7    X5                                                              PAR         4010     A     
 PAR                SB6    B6+B1       ADJUST ESTACK, FUNCTION NAME NOT THERE              PAR         4011     A     
 PAR                BX6    X4                                                              PAR         4012     A     
 PAR                SA7    B6-B1       STACK BASE AND POWER                                PAR         4013     A     
 PAR                SA6    A7-B1                                                           PAR         4014     A     
 PAR                LX1    IT.ARGMP                                                        PAR         4015     A     
 PAR                =X7    2           INDICATE TWO ARGUMENTS                              PAR         4016     A     
 PAR                SA2    FUNCALL+2                                                       PAR         4017     A     
 PAR                MX6    0           FAKE (WB.JPF) = 0                                   PAR         4018     A     
 PAR                SA7    /CF/AC                                                          PAR         4019     A     
 PAR                SA6    /CF/IT                                                          PAR         4020     A     
 PAR                EQ     ABEF                                                            PAR         4021     A     
 PAR       EMODE    SPACE  4,20                                                            PAR         4022     A     
 PAR      **        EMODE - MODE SELECTION MATRIX FOR EXPONENTIATION.                      PAR         4023     A     
 PAR                                                                                       PAR         4024     A     
 PAR                                                                                       PAR         4025     A     
 PAR       EMODE    MACRO  MU,MI,MR,MD,MZ                                                  PAR         4026     A     
 PAR       C        MICRO  1,,$4/0$                                                        PAR         4027     A     
 PAR      .1        ECHO   ,FORMS=(HE,MZ,MD,MR,MI,LE,MU)                                   PAR         4028     A     
 PAR       C        MICRO  1,,$"C",8/TO.FORMS-EXP.BASE$                                    PAR         4029     A     
 PAR      .1        ENDD                                                                   PAR         4030     A     
 PAR                VFD    "C"                                                             PAR         4031     A     
 PAR       EMODE    ENDM                                                                   PAR         4032     A     
 PAR                                                                                       PAR         4033     A     
 PAR                                                                                       PAR         4034     A     
 PAR       OM=EXP   BSS    0                                                               PAR         4035     A     
 PAR                LOC    0                                                               PAR         4036     A     
 PAR       M.BOOL   EMODE  II,II,IR,ID,IZ                                                  PAR         4037     A     
 PAR       M.LOG    EMODE  LE,LE,LE,LE,LE                                                  PAR         4038     A     
 PAR       M.INT    EMODE  II,II,IR,ID,IZ                                                  PAR         4039     A     
 PAR       M.REAL   EMODE  RI,RI,RR,RD,RZ                                                  PAR         4040     A     
 PAR       M.DBL    EMODE  DI,DI,DR,DD,DZ                                                  PAR         4041     A     
 PAR       M.CPLX   EMODE  ZI,ZI,ZR,ZD,ZZ                                                  PAR         4042     A     
 PAR       M.CHAR   EMODE  HE,HE,HE,HE,HE                                                  PAR         4043     A     
 PAR                LOC    *O                                                              PAR         4044     A     
 PAR                PURGMAC EMODE                                                          PAR         4045     A     
 PAR       TO.**    SPACE  4,10                                                            PAR         4046     A     
 PAR      **        EXPONENTATION CONTROL WORDS.                                           PAR         4047     A     
 PAR      *                                                                                PAR         4048     A     
 PAR      *         EACH MODE COMBINATION IN (OM=EXP) POINTS TO ONE OF THE                 PAR         4049     A     
 PAR      *         FOLLOWING CONTROL WORDS.  EACH WORD IS EITHER (A) AN ERROR             PAR         4050     A     
 PAR      *         INDICATION, OR (B) AN INTRINSIC FUNCTION SPECIFIER.                    PAR         4051     A     
 PAR      *                                                                                PAR         4052     A     
 PAR      *         THE WORDS ARE NOMINALLY IN (IT.) FORMAT.  AN ERROR WORD HAS            PAR         4053     A     
 PAR      *                (IT.DPC) = 0                                                    PAR         4054     A     
 PAR      *                (BITS 17-00) = DIAGNOSTIC ADDRESS.                              PAR         4055     A     
 PAR      *                                                                                PAR         4056     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         IF (IT.PAR) IS SET THEN THE WORD FOLLOWING THE (IT.) ENTRY             PAR         4057     A     
 PAR      *         IS EXECUTABLE CODE, BEGINNING A SPECIAL ANALYSIS ROUTINE.              PAR         4058          I
          -FC50014
 PAR      *         IS EXECUTABLE CODE, BEGINNING A SPECIAL ANALYSIS ROUTINE,              FC50014       29     A     
 PAR      *         CALLED FOR CONSTANT OPERANDS ONLY.                                     FC50014       30     A     
 PAR                                                                                       PAR         4059     A     
 PAR                                                                                       PAR         4060     A     
 PAR       EXP.BASE BSS    0           FWA OF CONTROL WORDS                                PAR         4061     A     
 PAR                                                                                       PAR         4062     A     
 PAR                                                                                       PAR         4063     A     
 PAR      *         ILLEGAL COMBINATIONS.                                                  PAR         4064     A     
 PAR                                                                                       PAR         4065     A     
 PAR       TO.LE    CON    E.XP1       LOGICAL BASE OR POWER                               PAR         4066     A     
 PAR       TO.HE    CON    E.XP6       CHARACTER BASE OR POWER                             PAR         4067     A     
 PAR       TO.ZR    BSS    0           COMPLEX ** REAL                                     PAR         4068          I
          -FC50014
 PAR       TO.ZD    BSS    0           COMPLEX ** DOUBLE                                   PAR         4069          I
          -FC50014
 PAR       TO.ZZ    BSS    0           COMPLEX ** COMPLEX                                  PAR         4070          I
          -FC50014
 PAR                CON    E.XP2       ERROR - COMPLEX BASE ONLY TO INTEGER                PAR         4071          I
          -FC50014
 PAR                                                                                       PAR         4072     A     
 PAR       EXP90    FATAL  X7                                                              PAR         4073     A     
 PAR                SB6    B6-B1       SET RESULT = BASE                                   PAR         4074     A     
 PAR                EQ     POPX        EXIT..                                              PAR         4075     A     
 PAR       EXPEX    SPACE  4,20                                                            PAR         4076     A     
 PAR      **        OBJECT LIBRARY EXPONENTIAL ROUTINES.                                   PAR         4077     A     
 PAR                                                                                       PAR         4078     A     
 PAR                                                                                       PAR         4079     A     
 PAR       EXPEX    MACRO  NAME,ARGTYP,FUNTYP,PAR,FLAGS,BRP                                PAR         4080     A     
 PAR       Y        MICRO  1,, NAME                                                        PAR         4081     A     
 PAR       Z        MICCNT Y                                                               PAR         4082     A     
 PAR                ERRNZ  4-Z         ASSUMED LENGTH IS 4                                 PAR         4083     A     
 PAR      *                                                                                PAR         4084     A     
 PAR       C        SET                                                                    PAR         4085     A     
 PAR                IRP    BRP                                                             PAR         4086     A     
 PAR       C        SET    C+1S_BRP                                                        PAR         4087     A     
 PAR                IRP                                                                    PAR         4088     A     
 PAR       .D       DECMIC C                                                               PAR         4089     A     
 PAR      *                                                                                PAR         4090     A     
 PAR       .A       SET    6+PAR                                                           PAR         4091     A     
 PAR       .C       MICRO  1,,$NAME$                                                       PAR         4092     A     
 PAR                VFD    IT.DPCL/0L".C",IT.ATTRL/.A,IT.ARGCL/2_,IT.JPADL/".D",__         PAR         4093     A     
 PAR      ,IT.ARGML/M.ARGTYP,IT.MODEL/M.FUNTYP                                             PAR         4094     A     
 PAR       EXPEX    ENDM                                                                   PAR         4095     A     
 PAR       =XLIB    SPACE  4,10                                                            PAR         4096     A     
 PAR      **        GENERAL COMBINATIONS - NO SPECIAL ANALYSIS.                            PAR         4097     A     
 PAR      ** FV     DO ANY EXPONENT ROUTINE PRESERVE ANY B-REGISTERS ???                   PAR         4098     A     
 PAR                                                                                       PAR         4099     A     
 PAR                                                                                       PAR         4100     A     
 PAR       TO.IR    EXPEX  ITOX,INT,REAL                                                   PAR         4101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       TO.ID    EXPEX  ITOD,INT,DBL                                                    PAR         4102     A     
 PAR       TO.IZ    EXPEX  ITOZ,INT,CPLX                                                   PAR         4103     A     
 PAR       TO.RR    EXPEX  XTOY,REAL,REAL                                                  PAR         4104     A     
 PAR       TO.RD    EXPEX  XTOD,REAL,DBL                                                   PAR         4105     A     
 PAR       TO.RZ    EXPEX  XTOZ,REAL,CPLX                                                  PAR         4106     A     
 PAR       TO.DR    EXPEX  DTOX,DBL,DBL                                                    PAR         4107     A     
 PAR       TO.DD    EXPEX  DTOD,DBL,DBL                                                    PAR         4108     A     
 PAR       TO.DZ    EXPEX  DTOZ,DBL,CPLX                                                   PAR         4109     A     
 PAR       TO.ZR    EXPEX  ZTOX,CPLX,REAL                                                  FC50014       31          I
          -FC5A310
 PAR       TO.ZD    EXPEX  ZTOD,CPLX,DBL                                                   FC50014       32          I
          -FC5A310
 PAR       TO.ZR    EXPEX  ZTOX,CPLX,CPLX                                                  FC5A310        5     A     
 PAR       TO.ZD    EXPEX  ZTOD,CPLX,CPLX                                                  FC5A310        6     A     
 PAR       TO.ZZ    EXPEX  ZTOZ,CPLX,CPLX                                                  FC50014       33     A     
 PAR       TO.INT   SPACE  4,10                                                            PAR         4110     A     
 PAR      **        TO.INT - EXPAND SMALL POWERS BY INLINE MULTIPLIES.                     PAR         4111     A     
 PAR      *                (X2) = VALUE OF POWER.                                          PAR         4112     A     
 PAR      *                POWER IS NONZERO INTEGER CONSTANT, .NE. 1                       PAR         4113     A     
 PAR                                                                                       PAR         4114     A     
 PAR                                                                                       PAR         4115     A     
 PAR       TO.II    EXPEX  ITOJ,INT,INT,1                                                  PAR         4116     A     
 PAR                PL     X2,TO.II5   IF POWER IS POSITIVE                                PAR         4117     A     
 PAR                TRIV   E.XP4       (INTEGER TO NEGATIVE CONST, RESULT ZERO)            PAR         4118     A     
 PAR       TO.II5   SB7    TOIL.I                                                          PAR         4119     A     
 PAR                SX5    V=MUL.I                                                         PAR         4120     A     
 PAR                EQ     EXM                                                             PAR         4121     A     
 PAR                                                                                       PAR         4122     A     
 PAR                                                                                       PAR         4123     A     
 PAR       TO.RI    EXPEX  XTOI,REAL,REAL,1                                                PAR         4124     A     
 PAR                SX5    V=MUL.R                                                         PAR         4125     A     
 PAR                SB7    TOIL.R                                                          PAR         4126     A     
 PAR                EQ     EXM                                                             PAR         4127     A     
 PAR                                                                                       PAR         4128     A     
 PAR                                                                                       PAR         4129     A     
 PAR       TO.DI    EXPEX  DTOI,DBL,DBL,1                                                  PAR         4130     A     
 PAR                SB7    TOIL.D                                                          PAR         4131     A     
 PAR                SX5    V=MUL.D                                                         PAR         4132     A     
 PAR                EQ     EXM                                                             PAR         4133     A     
 PAR                                                                                       PAR         4134     A     
 PAR                                                                                       PAR         4135     A     
 PAR       TO.ZI    EXPEX  ZTOI,CPLX,CPLX,1                                                PAR         4136     A     
 PAR                SX5    V=MUL.C                                                         PAR         4137     A     
 PAR                SB7    TOIL.Z                                                          PAR         4138     A     
 PAR                EQ     EXM                                                             PAR         4139     A     
 PAR                                                                                       PAR         4140     A     
 PAR                PURGMAC EXPEX                                                          PAR         4141     A     
 PAR       EXD      SPACE  4,10                                                            PAR         4142     A     
 PAR      **        EXD - EVALUATE INTEGER EXPONENTIAL, FROM CONRED/*SED*.                 PAR         4143     A     
 PAR      *                                                                                PAR         4144     A     
 PAR      *         ENTRY  (X1) = VALUE OF INTEGER BASE.                                   PAR         4145     A     
 PAR      *                (X6) = VALUE OF INTEGER EXPONENT.                               PAR         4146     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1332    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR         4147     A     
 PAR      *         EXIT   (X6) = RESULT OPERAND (M.INT).                                  PAR         4148     A     
 PAR                                                                                       PAR         4149     A     
 PAR                                                                                       PAR         4150     A     
 PAR       EXD      SUBR   =           ENTRY/EXIT...                                       PAR         4151     A     
 PAR                BX7    X1                                                              PAR         4152     A     
 PAR                SA7    TER2                                                            PAR         4153     A     
 PAR                SA5    INTEG+/OP/MULT                                                  PAR         4154     A     
 PAR                =X7    M.INT                                                           PAR         4155     A     
 PAR                SA7    SMOD                                                            PAR         4156     A     
 PAR                CALL   NCS         ENTER CONSTANT FOR BASE OPERAND                     PAR         4157     A     
 PAR                SA6    EXOPDS                                                          PAR         4158     A     
 PAR                RJ     EXV         EVALUATE EXPONENTIAL                                PAR         4159     A     
 PAR                ZR     X6,"BLOWUP" IF SUBSUMPTION FAILED                               PAR         4160     A     
 PAR                EQ     EXIT.                                                           PAR         4161     A     
 PAR       EXM      SPACE  4,10                                                            PAR         4162     A     
 PAR      **        EXM - EXPAND EXPONENTATION INTO MULTIPLIES.                            PAR         4163     A     
 PAR      *                                                                                PAR         4164     A     
 PAR      *         ENTRY  (B7) = LIMIT TO EXPAND.                                         PAR         4165     A     
 PAR      *                (X5) = MULTIPLY SKELETON NAME, FOR BASE MODE.                   PAR         4166     A     
 PAR      *                (X4) = OPERAND FOR BASE.                                        PAR         4167     A     
 PAR      *                (X2) = VALUE OF POWER.                                          PAR         4168     A     
 PAR      *                (TER2) = VALUE OF POWER.                                        PAR         4169     A     
 PAR      *                (SMOD) = MODE OF BASE.                                          PAR         4170     A     
 PAR      *                POWER IS NONZERO INTEGER CONSTANT.                              PAR         4171     A     
 PAR      *         EMIT SERIES OF MULTIPLIES TO EVALUATE ** INLINE.                       PAR         4172     A     
 PAR                                                                                       PAR         4173     A     
 PAR                                                                                       PAR         4174     A     
 PAR       EXM      BSS                                                                    PAR         4175     A     
 PAR                SA1    IN.EXP      OPERATOR SKELETON                                   PAR         4176     A     
 PAR                LX5    TH.SKELP                                                        PAR         4177          I
          -FC50104
 PAR                LX5    SP.SKELP                                                        FC50104      136     A     
 PAR                BX7    X1+X5       (SOPR) = COMPLETE MULTIPLY SKELETON                 PAR         4178     A     
 PAR                SA7    SOPR                                                            PAR         4179     A     
 PAR                BX6    X4                                                              PAR         4180     A     
 PAR                LX1    X4                                                              PAR         4181     A     
 PAR                SA6    EXOPDS      EXOPDS(0) = BASE OPERAND                            PAR         4182     A     
 PAR                SX4    B7+B1                                                           PAR         4183     A     
 PAR                CALL   LCT         LOAD CONSTANT TEST (BASE)                           PAR         4184     A     
 PAR                ZR     B2,EXM2     IF BASE NOT CONSTANT                                PAR         4185     A     
 PAR                SA7    A6+B1                                                           PAR         4186     A     
 PAR                RJ     EXV         EVALUATE CONSTANT EXPONENTIAL                       PAR         4187     A     
 PAR                ZR     X6,EXP60    IF NOT REDUCED                                      PAR         4188     A     
 PAR                SB6    B6-B1                                                           PAR         4189     A     
 PAR                SA6    B6-B1                                                           PAR         4190     A     
 PAR                EQ     POPX        EXIT..                                              PAR         4191     A     
 PAR                                                                                       PAR         4192     A     
 PAR       EXM2     SA2    TER2                                                            PAR         4193     A     
 PAR                IX1    X2-X4                                                           PAR         4194     A     
 PAR                PL     X1,EXP60    IF POWER .GE. (LIM+1)                               PAR         4195     A     
 PAR                MI     X2,EXP60    IF POWER IS NEGATIVE, CAN-T BE EXPANDED             PAR         4196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       .T       IFEQ   TEST,ON                                                         PAR         4197     A     
 PAR                SX7    X2-2                                                            PAR         4198     A     
 PAR                MI     X7,"BLOWUP" IF POWER = 0, OR = 1                                PAR         4199     A     
 PAR       .T       ENDIF                                                                  PAR         4200     A     
 PAR                                                                                       PAR         4201     A     
 PAR                SB6    B6-B1       COMPENSATE FOR (B6) ADJUSTMENT IN EXM4 LOOP         PAR         4202     A     
 PAR                =X7    1           N=1                                                 PAR         4203     A     
 PAR                SA7    EXPA                                                            PAR         4204     A     
 PAR                SA1    EXMB-2+X2   ECW = EXMB(POWER)                                   PAR         4205     A     
 PAR                                                                                       PAR         4206     A     
 PAR       EXM4     MX0    -3                                                              PAR         4207     A     
 PAR                LX1    3           ECW = SHIFT (ECW , 3)                               PAR         4208     A     
 PAR                BX6    -X0*X1      J = FIELDN[ECW]                                     PAR         4209     A     
 PAR                ZR     X6,POPX     IF J EQ 0                                           PAR         4210     A     
 PAR                SB3    X7+EXOPDS                                                       PAR         4211     A     
 PAR                BX7    X1                                                              PAR         4212     A     
 PAR                SB6    B6+B1       DONT REDUCE STACK SIZE                              PAR         4213     A     
 PAR                SA7    EXPB                                                            PAR         4214     A     
 PAR                SA3    EXMA-1+X6   OCW = EXMA(J)                                       PAR         4215     A     
 PAR                SA4    X3+B3       OP1 = EXOPDS(N-IND1(OCW))                           PAR         4216     A     
 PAR                AX3    18                                                              PAR         4217     A     
 PAR                SA5    X3+B3       OP2 = EXOPDS(N-IND2(OCW))                           PAR         4218     A     
 PAR                SA3    SOPR                                                            PAR         4219     A     
 PAR                RJ     ADT         OUTPUT MULTIPLY                                     PAR         4220     A     
 PAR                SA1    B6-B1                                                           PAR         4221     A     
 PAR                SA2    EXPA                                                            PAR         4222     A     
 PAR                BX6    X1                                                              PAR         4223     A     
 PAR                SA6    EXOPDS+X2   EXOPDS(N) = TOP OF ESTACK                           PAR         4224     A     
 PAR                =X7    X2+1        N = N + 1                                           PAR         4225     A     
 PAR                SA1    EXPB                                                            PAR         4226     A     
 PAR                SA7    A2                                                              PAR         4227     A     
 PAR                EQ     EXM4        LOOP..                                              PAR         4228     A     
 PAR                                                                                       PAR         4229     A     
 PAR                                                                                       PAR         4230     A     
 PAR       EXORN    MACRO  RJ,RK                                                           PAR         4231     A     
 PAR                VFD    24/,18/-RJ,18/-RK                                               PAR         4232     A     
 PAR                ENDM                                                                   PAR         4233     A     
 PAR                                                                                       PAR         4234     A     
 PAR       EXMA     BSS    0                                                               PAR         4235     A     
 PAR                LOC    1                                                               PAR         4236     A     
 PAR                EXORN  1,1         (N-1)*(N-1)                                         PAR         4237     A     
 PAR                EXORN  1,2         (N-1)*(N-2)                                         PAR         4238     A     
 PAR                EXORN  1,3         (N-1)*(N-3)                                         PAR         4239     A     
 PAR                EXORN  1,4         (N-1)*(N-4)                                         PAR         4240     A     
 PAR                EXORN  1,5         (N-1)*(N-5)                                         PAR         4241     A     
 PAR                EXORN  2,3         (N-2)*(N-3)                                         PAR         4242     A     
 PAR                EXORN  3,4         (N-3)*(N-4)                                         PAR         4243     A     
 PAR                LOC    *O                                                              PAR         4244     A     
 PAR                                                                                       PAR         4245     A     
 PAR       MAXPWR   MAX    TOIL.I,TOIL.R,TOIL.D,TOIL.Z                                     PAR         4246          I
          -FC5A390
 PAR       MAXMUL   SET    0                                                               PAR         4247     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       EXOC     MACRO  A                                                               PAR         4248     A     
 PAR       .M       SET    0                                                               PAR         4249     A     
 PAR       .N       SET    0                                                               PAR         4250     A     
 PAR       .S       SET    A_B                                                             PAR         4251     A     
 PAR                DUP    14,5        COUNT NUMBER OF OGITS IN STRING                     PAR         4252     A     
 PAR       .S       SET    .S/8                                                            PAR         4253     A     
 PAR       .N       SET    .N+3                                                            PAR         4254     A     
 PAR       .M       SET    .M+1                                                            PAR         4255     A     
 PAR                IFEQ   .S,0,1                                                          PAR         4256     A     
 PAR                STOPDUP                                                                PAR         4257     A     
 PAR                VFD    .N/A_B,*P/.N/3                                                  PAR         4258     A     
 PAR       MAXMUL   MAX    MAXMUL,.M                                                       PAR         4259     A     
 PAR                ENDM                                                                   PAR         4260     A     
 PAR                NOREF  .N,.S,.M                                                        PAR         4261     A     
 PAR                                                                                       PAR         4262     A     
 PAR      **        EXMB - EXPONENTIAL MACRO EXPANSION SKELETON CONTROL TABLE.             PAR         4263     A     
 PAR      *                                                                                PAR         4264     A     
 PAR      *         FORMAT - 42/DDDD0, 18/N.INST ( IN MACRO EXPANSION ).                   PAR         4265     A     
 PAR      *                D = DIGIT INDICATING OPERANDS OF MULTIPLY OPERATOR.             PAR         4266     A     
 PAR      *                I.E. AN INDEX INTO *EXMA*.                                      PAR         4267     A     
 PAR                                                                                       PAR         4268     A     
 PAR       EXMB     BSS    0                                                               PAR         4269     A     
 PAR                LOC    2                                                               PAR         4270     A     
 PAR                EXOC   1           X**2                                                PAR         4271     A     
 PAR                EXOC   12          X**2 * X                                            PAR         4272     A     
 PAR                EXOC   11          (X**2)**2                                           PAR         4273     A     
 PAR                EXOC   113         (X**2)**2 * X                                       PAR         4274     A     
 PAR                EXOC   112         (X**2)**2) * X**2                                   PAR         4275     A     
 PAR                EXOC   1162        (X**2)**2 * (X**2 * X)                              PAR         4276     A     
 PAR                EXOC   111         ((X**2)**2)**2                                      PAR         4277     A     
 PAR                EXOC   1114                                                            PAR         4278     A     
 PAR                EXOC   1131                                                            PAR         4279     A     
 PAR                EXOC   11623                                                           PAR         4280     A     
 PAR                EXOC   1112                                                            PAR         4281     A     
 PAR                EXOC   11125                                                           PAR         4282     A     
 PAR                EXOC   11124                                                           PAR         4283     A     
 PAR                EXOC   12113                                                           PAR         4284     A     
 PAR                EXOC   1111        (((X**2)**2)**2)**2                                 PAR         4285     A     
 PAR                LOC    *O                                                              PAR         4286     A     
 PAR                                                                                       PAR         4287     A     
 PAR       EXOPDS   BSS    MAXMUL+1                                                        PAR         4288     A     
 PAR       EXV      SPACE  4,10                                                            PAR         4289     A     
 PAR      **        EXV - EVALUATE CONSTANT EXPONENTIAL.                                   PAR         4290     A     
 PAR      *                                                                                PAR         4291     A     
 PAR      *         ENTRY  (X5) = MULTIPLY SKELETON INDEX (FOR MODE OF BASE).              PAR         4292     A     
 PAR      *                (SOPR) = MULTIPLY OPERATOR (FOR MODE OF BASE).                  PAR         4293     A     
 PAR      *                (SMOD) = MODE OF BASE.                                          PAR         4294     A     
 PAR      *                (EXOPDS+0) = OPERAND FOR BASE.                                  PAR         4295     A     
 PAR      *                (TER2) = VALUE OF POWER (INTEGER ONLY).                         PAR         4296     A     
 PAR      *                                                                                PAR         4297     A     
 PAR      *         EXIT   (X6) .NZ. = OPERAND FOR RESULT.                                 PAR         4298     A     
 PAR      *                     .ZR. = EVALUATION FAILED.                                  PAR         4299     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR         4300     A     
 PAR      *         USES   ALL BUT A0, B4-6.                                               PAR         4301     A     
 PAR      *         CELLS  EXPA, EXPB, TER1, TER2.                                         PAR         4302     A     
 PAR      *         CALLS  ACT, CCR.                                                       PAR         4303     A     
 PAR                                                                                       PAR         4304     A     
 PAR                                                                                       PAR         4305     A     
 PAR       EXV9     TRIV   E.XP5       ** CONSTANT TO CONSTANT WON'T EVALUATE              PAR         4306     A     
 PAR                                                                                       PAR         4307     A     
 PAR       EXV      SUBR   0           ENTRY/EXIT...                                       PAR         4308     A     
 PAR                LX5    -TH.SKELP                                                       PAR         4309          I
          -FC50104
 PAR                LX5    -SP.SKELP                                                       FC50104      137     A     
 PAR                SA1    X5+=XF.SKCR                                                     PAR         4310     A     
 PAR                LX1    -VS.CRAP                                                        PAR         4311     A     
 PAR                SX7    X1          (EXPB) = ADDRESS OF CONSTANT REDUCER                PAR         4312     A     
 PAR                ERRNZ  18-VS.CRAL                                                      PAR         4313     A     
 PAR                SA7    EXPB                                                            PAR         4314     A     
 PAR                SA3    SMOD                                                            PAR         4315     A     
 PAR                SA5    CONONE                                                          PAR         4316     A     
 PAR                BX6    X3                                                              PAR         4317     A     
 PAR                CALL   CMR         (EXVG) = OPERAND FOR CONSTANT ONE                   PAR         4318     A     
 PAR       .T       IFEQ   TEST,ON,1                                                       PAR         4319     A     
 PAR                NZ     B7,"BLOWUP" IF CAN'T CONVERT ONE                                PAR         4320     A     
 PAR                SA2    TER2                                                            PAR         4321     A     
 PAR                BX6    X5                                                              PAR         4322     A     
 PAR                SA6    EXVG                                                            PAR         4323     A     
 PAR                SA6    A6+B1       (EXVG+1) ALSO = ONE                                 PAR         4324     A     
 PAR                BX1    X2                                                              PAR         4325     A     
 PAR                AX2    -1                                                              PAR         4326     A     
 PAR                BX7    X2-X1       SCALE = ABS(POWER)                                  PAR         4327     A     
 PAR                SA7    EXPA                                                            FC5A158A     420     A     
 PAR                                                                                       PAR         4328     A     
 PAR       EXV4     MX0    -1                                                              PAR         4329     A     
 PAR                BX2    -X0*X7      (X2) = ODD(SCALE)                                   PAR         4330     A     
 PAR                SA7    EXPA                                                            PAR         4331          I
          -FC5A158A 
 PAR                ZR     X2,EXV6     IF SCALE NOT ODD                                    PAR         4332     A     
 PAR                SA4    EXVF        FAC                                                 PAR         4333     A     
 PAR                SA3    EXPB                                                            PAR         4334     A     
 PAR                SA5    A4+B1       G                                                   PAR         4335     A     
 PAR                BX7    X3                                                              PAR         4336     A     
 PAR                CALL   CCR         G = G * FAC                                         PAR         4337     A     
 PAR                ZR     X6,EXV9     IF BAD MULTIPLY                                     PAR         4338     A     
 PAR                SA6    EXVG                                                            PAR         4339     A     
 PAR       EXV6     SA4    EXVF                                                            PAR         4340     A     
 PAR                SA3    EXPB                                                            PAR         4341     A     
 PAR                SA5    EXPA                                                            FC5A158A     421     A     
 PAR                AX7    X5,B1       SCALE = SCALE/2                                     FC5A158A     422     A     
 PAR                SA7    A5                                                              FC5A158A     423     A     
 PAR                ZR     X7,EXV7     IF SCALE = 0                                        FC5A158A     424     A     
 PAR                BX5    X4                                                              PAR         4342     A     
 PAR                LX7    X3                                                              PAR         4343     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                CALL   CCR         FAC = FAC * FAC                                     PAR         4344     A     
 PAR                ZR     X6,EXV9     IF BAD MULTIPLY                                     PAR         4345     A     
 PAR                SA6    EXVF                                                            PAR         4346     A     
 PAR                SA5    EXPA                                                            PAR         4347          I
          -FC5A158A 
 PAR                AX7    X5,B1       SCALE = SCALE / 2                                   PAR         4348          I
          -FC5A158A 
 PAR                NZ     X7,EXV4     IF SCALE .GT. 0, LOOP..                             PAR         4349          I
          -FC5A158A 
 PAR                SA5    EXPA                                                            FC5A158A     425     A     
 PAR                BX7    X5                                                              FC5A158A     426     A     
 PAR                EQ     EXV4                                                            FC5A158A     427     A     
 PAR                                                                                       PAR         4350     A     
 PAR      *         IF POWER WAS NEGATIVE, RESULT = RECIPROCAL.                            PAR         4351     A     
 PAR                                                                                       PAR         4352     A     
 PAR                SA1    TER2                                                            PAR         4353          I
          -FC5A158A 
 PAR       EXV7     SA1    TER2                                                            FC5A158A     428     A     
 PAR                SA5    EXVG                                                            PAR         4354     A     
 PAR                PL     X1,EXV8     IF POWER WAS POSITIVE                               PAR         4355     A     
 PAR                SA4    A5+B1       (1OP) = CONSTANT ONE                                PAR         4356     A     
 PAR                SX1    O.DIV                                                           PAR         4357     A     
 PAR                SB6    B6+B1       COMPENSATE FOR DECREMENT IN ACT                     PAR         4358     A     
 PAR                RJ     ACT         ADD CONVERTED TURPLE                                PAR         4359     A     
 PAR                SA5    B6-B1                                                           PAR         4360     A     
 PAR                                                                                       PAR         4361     A     
 PAR       EXV8     BX6    X5          RETURN (X6) = RESULT                                PAR         4362     A     
 PAR                EQ     EXIT.                                                           PAR         4363     A     
 PAR                                                                                       PAR         4364     A     
 PAR       EXVF     EQU    EXOPDS      HOLDS CURRENT FACTOR = BASE ** (2**N)               PAR         4365     A     
 PAR       EXVG     EQU    EXVF+1      HOLDS PARTIAL RESULT                                PAR         4366     A     
 PAR                TITLE  POP/EMIT APLIST AND FUNCTION REFERENCE.                         PAR         4367     A     
 PAR      **        POP/EMIT APLIST AND FUNCTION REFERENCE.                                PAR         4368     A     
 PAR                                                                                       PAR         4369     A     
 PAR                                                                                       PAR         4370     A     
 PAR                QUAL   CF          CALL FUNCTION CELLS                                 PAR         4371     A     
 PAR       AC       BSS    1           ACTUAL ARGUMENT COUNT                               PAR         4372     A     
 PAR       APL      BSS    1           APLIST OPERATOR                                     PAR         4373     A     
 PAR       IE       BSS    1           INTRINSIC TABLE ENTRY                               PAR         4374     A     
 PAR       IT       BSS    1           INTRINSIC TABLE INDEX                               PAR         4375     A     
 PAR       MA       BSS    1           .NZ. IF POST-COERCION NEEDED                        PAR         4376     A     
 PAR       RJ       BSS    1           FUNCTION CALL OPERATOR                              PAR         4377     A     
 PAR       TP       BSS    1           TAG FOR ROUTINE                                     PAR         4378     A     
 PAR                QUAL   *                                                               PAR         4379     A     
 PAR       CF=AC    EQUENT /CF/AC      ACTUAL ARGUMENT COUNT FOR KEY/CALL                  PAR         4380     A     
 PAR       C=CALL   SPACE  4,10                                                            PAR         4381     A     
 PAR      **        C=CALL - PROCESS ARGUMENT FROM CALL STATEMENT                          PAR         4382     A     
 PAR      *                                                                                PAR         4383     A     
 PAR      *         ENTRY  (X5) = OPERAND FOR ARGUMENT.                                    PAR         4384     A     
 PAR                                                                                       PAR         4385     A     
 PAR                                                                                       PAR         4386     A     
 PAR       C=CALL   BSS    0                                                               PAR         4387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         4388     A     
 PAR                RJ     SSA         STACK SUBROUTINE ARGUMENT                           PAR         4389     A     
 PAR                EQ     POPX                                                            PAR         4390     A     
 PAR       A=CALL   SPACE  4,10                                                            PAR         4391     A     
 PAR      **        A=CALL - SUBROUTINE CALL RIGHT PAREN.                                  PAR         4392     A     
 PAR      *                                                                                PAR         4393     A     
 PAR      *         ENTRY  (X5) = FINAL OPERAND.                                           PAR         4394     A     
 PAR      *                (SCR+AC.W) = ARGCOMA.                                           PAR         4395     A     
 PAR      *                (CALLTAG) = OPERAND FOR SUBROUTINE.                             PAR         4396     A     
 PAR      *                                                                                PAR         4397     A     
 PAR      *         WE FIRST CALL SSA TO STACK THE FINAL ARGUMENT.  AFTER THAT,            PAR         4398     A     
 PAR      *         THE ARGUMENTS ARE SITTING AS FOLLOWS --                                PAR         4399     A     
 PAR      *         ESTACK = NORMAL ARGS ARE ON THE ELEMENT STACK.                         PAR         4400     A     
 PAR      *                (B6) -> TOP (EMPTY) POSITION, AS USUAL.                         PAR         4401     A     
 PAR      *         (T.ARG) = LABEL ARGUMENTS HAVE BEEN COLLECTED IN THIS TABLE.           PAR         4402     A     
 PAR      *         (AC.CNT) = TOTAL ARG COUNT (NORMS + LABELS).                           PAR         4403     A     
 PAR      *         IF THERE WERE NO LABEL ARGS, (T=ARG) = ZERO.                           PAR         4404     A     
 PAR      *                                                                                PAR         4405     A     
 PAR      *         CRL IS CALLED TO MOVE ANY LABEL ARGS ONTO THE TOP OF ESTACK,           PAR         4406     A     
 PAR      *         AFTER ALL THE NORMAL ONES.  SO THE STACK THEN LOOKS                    PAR         4407     A     
 PAR      *         LIKE IT ALWAYS DOES, AND WE CAN EMIT THE ENTIRE ARGUMENT               PAR         4408     A     
 PAR      *         LIST NORMALLY.  (ACTUALLY, CRL INSERTS AN INVENTED LABEL               PAR         4409     A     
 PAR      *         BETWEEN THE TWO GROUPS, BUT AS HE ADJUSTS THE ARG COUNTS               PAR         4410     A     
 PAR      *         APPROPRIATELY IT IS NONE OF OUR BUSINESS.)                             PAR         4411     A     
 PAR      *                                                                                PAR         4412     A     
 PAR      *         NOTE THAT WE ONLY GET HERE IF THERE WERE ARGUMENTS.                    PAR         4413     A     
 PAR      *         OMITTED ARGLIST CASE IS HANDLED IN KEY/CLL.                            PAR         4414     A     
 PAR      *         EMPTY ARGLIST WILL BE DIAGNOSED EARLY IN PAR.                          PAR         4415     A     
 PAR      *                                                                                PAR         4416     A     
 PAR      *         EXIT   TO POPX.                                                        PAR         4417     A     
 PAR      *                RJ TURPLE NOT YET OUT.                                          PAR         4418     A     
 PAR      *                                                                                PAR         4419     A     
 PAR      *         CALLS  CRL, EAL, IAC, SSA, TPC, VEL                                    PAR         4420     A     
 PAR                                                                                       PAR         4421     A     
 PAR                                                                                       PAR         4422     A     
 PAR       A=CALL   BSS    0                                                               PAR         4423     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         4424     A     
 PAR                RJ     SSA         STACK SUBROUTINE ARGUMENT                           PAR         4425     A     
 PAR                RJ     IAC         INCREMENT ARGUMENT COUNT                            PAR         4426     A     
 PAR                SA4    CALLTAG                                                         PAR         4427     A     
 PAR                RJ     VEL         VALIDATE ARGUMENT LIST                              PAR         4428     A     
 PAR                SA2    T=SLARG                                                         PAR         4429     A     
 PAR                ZR     X2,ACALL3   IF NO STATEMENT LABEL PARAMETERS                    PAR         4430     A     
 PAR                CALL   CRL         PROCESS CALL RETURN LABELS                          PAR         4431     A     
 PAR                                                                                       PAR         4432     A     
 PAR       ACALL3   SA1    B4                                                              PAR         4433     A     
 PAR                ZR     X1,ACALL5   IF *EOS*                                            PAR         4434     A     
 PAR                FATAL  E.SU10                                                          FC50966        6     A     
 PAR                ERRNZ  O.EOS                                                           PAR         4435     A     
 PAR                =X6    O.EOS                                                           FC50634        6     A     
 PAR                SA6    B4          RESET CURRENT T.TB TO *EOS*                         FC50634        7     A     
 PAR                WARN   E.SU10                                                          PAR         4436          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC50966
 PAR                                                                                       PAR         4437     A     
 PAR       ACALL5   SA3    /CF/APL                                                         PAR         4438     A     
 PAR                RJ     EAL         EMIT AP LIST                                        PAR         4439     A     
 PAR                EQ     POPX        EXIT.                                               PAR         4440     A     
 PAR       C=FUN    SPACE  4,20                                                            PAR         4441     A     
 PAR      **        C=FUN - USER FUNCTION COMMA.                                           PAR         4442     A     
 PAR      *                                                                                PAR         4443     A     
 PAR      *         ARGUMENT MOVED TO T.ARG OR T.SLARG.                                    PAR         4444     A     
 PAR      *                                                                                PAR         4445     A     
 PAR      *         NOTE EXTREMELY DIRTY KLUDGE FOR STATEMENT LABEL PARAMETER --           PAR         4446     A     
 PAR      *         PAR.MULT SET IT'S MODE = 7 SO WE COULD RECOGNIZE IT.                   PAR         4447     A     
 PAR                                                                                       PAR         4448     A     
 PAR                                                                                       PAR         4449     A     
 PAR       C=FUN    BSS    0           ENTRY...                                            PAR         4450     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         4451     A     
 PAR                MX0    -TP.MODEL                                                       PAR         4452     A     
 PAR                LX0    TP.MODEP                                                        PAR         4453     A     
 PAR                BX1    -X0*X5      X1 = MODE OF ARG                                    PAR         4454     A     
 PAR                BX1    X0+X1                                                           PAR         4455     A     
 PAR                ERRNZ  N.TYPE-7                                                        PAR         4456     A     
 PAR                ERRNZ  TP.MODEL-3                                                      PAR         4457     A     
 PAR                NZ     X1,CFUN5    IF NOT STATEMENT LABEL PARAMETER                    PAR         4458     A     
 PAR                FATAL  E.SU11                                                          PAR         4459     A     
 PAR                EQ     POPX                                                            PAR         4460     A     
 PAR                                                                                       PAR         4461     A     
 PAR       CFUN5    RJ     SSA         STACK SUBPROGRAM ARGUMENT                           PAR         4462     A     
 PAR                EQ     POPX        EXIT..                                              PAR         4463     A     
 PAR       A=FUN    SPACE  4,10                                                            PAR         4464     A     
 PAR      **        A=FUN - USER FUNCTION RIGHT PAREN.                                     PAR         4465     A     
 PAR      *                                                                                PAR         4466     A     
 PAR      *         ENTRY  (SCR+AS.W) = OPERAND FOR ROUTINE (SET BY PAR.FUN).              PAR         4467     A     
 PAR      *         ARGUMENTS ARE ON T.ARG AND T.SLARG .                                   PAR         4468     A     
 PAR      *                                                                                PAR         4469     A     
 PAR      *         EXIT   TO GFR.                                                         PAR         4470     A     
 PAR      *                                                                                PAR         4471     A     
 PAR      *         CALLS  IAC,SSA,TPC,VEL                                                 PAR         4472     A     
 PAR                                                                                       PAR         4473     A     
 PAR                                                                                       PAR         4474     A     
 PAR       A=FUN    BSS    0                                                               PAR         4475     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         4476     A     
 PAR                SA2    FUNOP                                                           PAR         4477     A     
 PAR                BX6    X2          SET RJ TYPE = USER FUNCTION                         PAR         4478     A     
 PAR                SA6    /CF/RJ                                                          PAR         4479     A     
 PAR                RJ     IAC         INCREMENT ARGUMENT COUNT                            PAR         4480     A     
 PAR                ZR     X7,AFUN4    IF NO ARGS                                          PAR         4481     A     
 PAR                RJ     SSA         STACK SUBPROGRAM ARGUMENT                           PAR         4482     A     
 PAR                SA1    /CF/AC                                                          PAR         4483     A     
 PAR                BX7    X1          RESTORE (X7) = ARG COUNT                            PAR         4484     A     
 PAR                                                                                       PAR         4485     A     
 PAR       AFUN4    SA4    SCR+AS.W    FETCH (ARGMIS)                                      PAR         4486     A     
 PAR                RJ     VEL         VALIDATE EXTERNAL LIST                              PAR         4487     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     GFR         GO GENERATE FUNCTION REFERENCE                      PAR         4488     A     
 PAR       C=INF    SPACE  4,10                                                            PAR         4489     A     
 PAR      **        C=INF - INTRINSIC FUNCTION COMMA.                                      PAR         4490     A     
 PAR      *                                                                                PAR         4491     A     
 PAR      *         ARGUMENT IS LEFT ON (ESTACK).                                          PAR         4492     A     
 PAR                                                                                       PAR         4493     A     
 PAR                                                                                       PAR         4494     A     
 PAR       C=INF    BSS                ENTRY...                                            PAR         4495     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         4496     A     
 PAR                SA2    ARGCOMA                                                         PAR         4497     A     
 PAR                RJ     VAM         VALIDATE ARGUMENT MODE                              PAR         4498     A     
 PAR                EQ     POPX                                                            PAR         4499     A     
 PAR       A=INF    SPACE  4,10                                                            PAR         4500     A     
 PAR      **        A=INF - INTRINSIC FUNCTION RIGHT PAREN.                                PAR         4501     A     
 PAR                                                                                       PAR         4502     A     
 PAR                                                                                       PAR         4503     A     
 PAR       A=INF    BSS                ENTRY...                                            PAR         4504     A     
 PAR                RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION                PAR         4505     A     
 PAR                RJ     IAC         INCREMENT ARG COUNT                                 PAR         4506     A     
 PAR                RJ     VAM         VALIDATE FINAL ARGUMENT MODE                        PAR         4507     A     
 PAR                SA7    SMOD                                                            PAR         4508     A     
 PAR                                                                                       PAR         4509          I
          -FC5A411
 PAR                RJ     VIL         VALIDATE INTRISIC ARG LIST                          PAR         4510     A     
 PAR                BX1    X2                                                              PAR         4511     A     
 PAR                HX2    IT.XTER                                                         PAR         4512     A     
 PAR                PL     X2,ABIF     IF INLINE INTRINSIC                                 PAR         4513     A     
 PAR                SA2    FUNCALL                                                         PAR         4514     A     
 PAR      *         EQ     ABEF                                                            PAR         4515     A     
 PAR       ABEF     SPACE  4,10                                                            PAR         4516     A     
 PAR      **        ABEF - CALL EXTERNAL INTRINSIC FUNCTION.                               PAR         4517     A     
 PAR      *                                                                                PAR         4518     A     
 PAR      *         ENTRY  (X1) = INTRINSIC TABLE ENTRY.                                   PAR         4519     A     
 PAR      *                (CF/IE) = INTRINSIC TABLE ENTRY.                                PAR         4520     A     
 PAR      *                (CF/IT) = INTRINSIC TABLE INDEX.                                PAR         4521     A     
 PAR      *                (X2) = (FUNI) FOR CALL BY NAME.                                 PAR         4522     A     
 PAR      *               (CF/AC) = NUMBER OF ARGS IN CALL.                                PAR         4523     A     
 PAR                                                                                       PAR         4524     A     
 PAR                                                                                       PAR         4525     A     
 PAR       ABEF     BSS                                                                    PAR         4526     A     
 PAR                SA3    CO.DBTB                                                         PAR         4527     A     
 PAR                HX1    IT.BYN                                                          PAR         4528     A     
 PAR                BX4    X3+X1                                                           PAR         4529     A     
 PAR                LX1    IT.BYNP+1                                                       PAR         4530     A     
 PAR                MI     X4,ABEF2    IF (TRACEBACK) OR (BY-NAME FUNC)                    PAR         4531     A     
 PAR                SA2    FUNCALL+1                                                       PAR         4532     A     
 PAR                                                                                       FC5A411       43     A     
 PAR       ABEF2    BX6    X2          SET CALLING SEQUENCE STYLE                          PAR         4533     A     
 PAR                SA6    FUNCALL-1                                                       PAR         4534     A     
 PAR                RJ     TXI         TAG EXTERNAL INTRINSIC                              PAR         4535     A     
 PAR                SA5    /CF/AC      X5 = NO. OF ARGS (NO. WORDS FOR ALLOC,MOVE)         PAR         4536     A     
 PAR                SA4    T=ARG       SAVE OLD T.ARG LENGTH IN X4                         PAR         4537     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ALLOC  T.ARG,X5                                                        PAR         4538     A     
 PAR                IX3    X1+X4       X3 = DESTINATION OF MOVE                            PAR         4539     A     
 PAR                SB2    X5                                                              PAR         4540     A     
 PAR                SB6    B6-B2       REMOVE ARGS FROM ESTACK                             PAR         4541     A     
 PAR                MOVE   X5,B6,X3    ARGS MOVED TO T.ARG                                 PAR         4542     A     
 PAR                EQ     GFR         GO GENERATE FUNCTION REFERENCE                      PAR         4543     A     
 PAR       ABIF     SPACE  4,10                                                            PAR         4544     A     
 PAR      **        ABIF - CALL INLINE INTRINSIC FUNCTION.                                 PAR         4545     A     
 PAR      *                                                                                PAR         4546     A     
 PAR      *         ENTRY  (X1) = INTRINSIC TABLE ENTRY                                    PAR         4547     A     
 PAR                                                                                       PAR         4548     A     
 PAR                                                                                       PAR         4549     A     
 PAR       ABIF     BSS                                                                    PAR         4550     A     
 PAR                SA2    PARNOW                                                          FC5A227      112     A     
 PAR                SX2    X2-PM=DATA                                                      FC5A227      113     A     
 PAR                NZ     X2,ABIF0    IF NOT PROCESSING DATA VARIABLE LIST                FC5A227      114     A     
 PAR                ANSI   E.ANS5                                                          FC5A227      115     A     
 PAR                                                                                       FC5A227      116     A     
 PAR       ABIF0    BSS    0                                                               FC5A227      117     A     
 PAR                RJ     ESF         EVALUATE SPECIAL FUNCTION                           PAR         4551          I
          -FC5A184
 PAR                SA2    PARNOW                                                          FC5A184       79     A     
 PAR                SX2    X2-PM=PARM                                                      FC5A184       80     A     
 PAR                NZ     X2,ABIF1    IF NOT *PARAMETER* PROCESSING                       FC5A184       81     A     
 PAR                ANSI   E.ANS5      ** FUNCTION REF. IN CONSTANT EXPRESSION             FC5A184       82     A     
 PAR                                                                                       FC5A184       83     A     
 PAR       ABIF1    RJ     ESF         EVALUATE SPECIAL FUNCTION                           FC5A184       84     A     
 PAR                MI     X2,POPX     IF FUNCTION REDUCED                                 PAR         4552     A     
 PAR                SA1    /CF/AC                                                          PAR         4553     A     
 PAR                SB7    X1                                                              PAR         4554     A     
 PAR                GT     B7,B1,ABIF2       IF MULTIPLE ARGUMENTS                         PAR         4555     A     
 PAR                LDBIT  X6,TH.UNARP                                                     PAR         4556          I
          -FC50104
 PAR                LDBIT  X6,SP.UNARP                                                     FC50104      138     A     
 PAR                                                                                       FC5A411       44     A     
 PAR       .T       IFEQ   TEST,ON,1                                                       PAR         4557     A     
 PAR                ZR     B7,"BLOWUP"       IF INLINE WITH ZERO ARGUMENTS                 PAR         4558          I
          -FC5A227
 PAR                ZR     B7,"BLOWUP" IF INLINE WITH ZERO ARGUMENTS                       FC5A227      118     A     
 PAR                                                                                       FC5A411       45     A     
 PAR                BX3    X3+X6       INDICATE UNARY TURPLE                               PAR         4559     A     
 PAR                SA5    B6-1        FETCH ARGUMENT                                      FC5A411       46     A     
 PAR                EQ     POP.ST1     EXIT..                                              PAR         4560     A     
 PAR                                                                                       PAR         4561     A     
 PAR       ABIF2    BX6    X3          SET (SOPR) = OPERATOR PER ESF                       PAR         4562     A     
 PAR                SX7    B7-B1       INITIAL (TC) = (ARG COUNT) - 1                      PAR         4563     A     
 PAR                SA6    SOPR                                                            PAR         4564     A     
 PAR                SA7    A1                                                              PAR         4565     A     
 PAR                                                                                       PAR         4566     A     
 PAR       ABIF4    SA3    SOPR              REPEAT ...                                    PAR         4567     A     
 PAR                SA5    B6-B1       (2OP) = ESTACK [TOP]                                PAR         4568     A     
 PAR                SA4    A5-B1       (1OP) = ESTACK [TOP-1]                              PAR         4569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                RJ     ADT         ADD TURPLE                                          PAR         4570     A     
 PAR                SA1    /CF/AC                                                          PAR         4571     A     
 PAR                SX7    X1-1        (TC) = (TC) - 1                                     PAR         4572     A     
 PAR                SA7    A1                UNTIL (TC) = 0                                PAR         4573     A     
 PAR                NZ     X7,ABIF4    IF MORE ARGS TO ISSUE                               PAR         4574     A     
 PAR                                                                                       PAR         4575     A     
 PAR                SA5    B6-B1                                                           PAR         4576     A     
 PAR                BX7    X5          REMOVE FUNCTION NAME FROM STACK                     PAR         4577     A     
 PAR                SB6    B6-B1                                                           PAR         4578     A     
 PAR                SA7    A5-B1                                                           PAR         4579     A     
 PAR                                                                                       PAR         4580     A     
 PAR      *         IF THIS FUNCTION REQUIRES POST-CONVERSION, DO IT NOW.                  PAR         4581     A     
 PAR      *                (CF/MA) = TARGET RESULT MODE.                                   PAR         4582     A     
 PAR                                                                                       PAR         4583     A     
 PAR                SA2    /CF/MA                                                          PAR         4584     A     
 PAR                ZR     X2,POPX     IF MODE ALREADY CORRECT                             PAR         4585     A     
 PAR                SX6    X2          (SMOD) = TARGET RESULT MODE                         PAR         4586     A     
 PAR                SA3    MCVOP                                                           PAR         4587     A     
 PAR                AX2    18                                                              PAR         4588     A     
 PAR                SA6    SMOD                                                            PAR         4589     A     
 PAR                SX1    X2                                                              PAR         4590     A     
 PAR                LX1    TH.SKELP                                                        PAR         4591          I
          -FC50104
 PAR                LX1    SP.SKELP                                                        FC50104      139     A     
 PAR                SA5    B6-B1       (2OP) = RESULT (ADT WILL FIX UNAR)                  PAR         4592     A     
 PAR                IX7    X3+X1       FORM TURPLE HEADER FOR CONVERSION OPERATOR          PAR         4593     A     
 PAR                SB6    B6+B1       ADJUST ELSTAK FOR UNARY                             PAR         4594     A     
 PAR                SA7    SOPR                                                            PAR         4595     A     
 PAR                RJ     ADT         ADD CONVERSION TURPLE                               PAR         4596     A     
 PAR                EQ     POPX        EXIT..                                              PAR         4597     A     
 PAR       C=STFA   SPACE  4,10                                                            PAR         4598     A     
 PAR      **        C=STFA - STATEMENT FUNCTION ACTUAL ARGUMENT COMMA.                     PAR         4599     A     
 PAR                                                                                       PAR         4600     A     
 PAR       C=STFA   EQ     POPX                                                            PAR         4601     A     
 PAR       A=STFA   SPACE  4,10                                                            PAR         4602     A     
 PAR      **        A=STFA - STATEMENT FUNCTION ACTUAL ARGUMENT RIGHT PAREN.               PAR         4603     A     
 PAR                                                                                       PAR         4604     A     
 PAR       A=STFA   SA4    SCR+AS.W    ARGMIS IS FUNCTION NAME OPD                         PAR         4605          I
          -FC5A227
 PAR       A=STFA   SA1    DATFLG                                                          FC5A227      119     A     
 PAR                ZR     X1,STFA1    IF NOT PROCESSING DATA STATEMENT                    FC5A227      120     A     
 PAR                FATAL  E.DVR5                                                          FC5A227      121     A     
 PAR                                                                                       FC5A227      122     A     
 PAR       STFA1    SA4    SCR+AS.W    ARGMIS IS FUNCTION ORD                              FC5A227      123     A     
 PAR                LX4    -TP.ORDP                                                        PAR         4606     A     
 PAR                MX0    -TP.ORDL                                                        PAR         4607     A     
 PAR                SA1    =XT.SYM                                                         PAR         4608          I
          -FC5A227
 PAR                SA1    T.SYM                                                           FC5A227      124     A     
 PAR                BX3    -X0*X4                                                          PAR         4609     A     
 PAR                LX7    B1,X3                                                           PAR         4610     A     
 PAR                =B3    X1+WB.W                                                         PAR         4611     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX0    X3+X7                                                           PAR         4612     A     
 PAR                SA3    B3+X0                                                           PAR         4613     A     
 PAR                MX0    1                                                               PAR         4614     A     
 PAR                LX0    1+WB.SFXP                                                       PAR         4615     A     
 PAR                BX6    X3+X0                                                           PAR         4616     A     
 PAR                =A4    A3+WC.W-WB.W                                                    PAR         4617     A     
 PAR                =A3    A3+WA.W-WB.W                                                    PAR         4618     A     
 PAR                MX0    WA.SYML                                                         PAR         4619     A     
 PAR                BX7    X0*X3                                                           PAR         4620     A     
 PAR                SA7    FILL.                                                           PAR         4621     A     
 PAR                LX4    -WC.ARGCP                                                       PAR         4622     A     
 PAR                MX0    -WC.ARGCL                                                       PAR         4623     A     
 PAR                BX7    -X0*X4                                                          PAR         4624     A     
 PAR                SB3    X7-1                                                            PAR         4625     A     
 PAR                EQ     B2,B3,STFA10      IF ARG COUNT OK                               PAR         4626     A     
 PAR                FATAL  E.SF09                                                          PAR         4627     A     
 PAR                =B3    B2+1                                                            PAR         4628     A     
 PAR                SB6    B6-B3       UNSTACK ARGS                                        PAR         4629     A     
 PAR                EQ     PAR.STOP                                                        PAR         4630     A     
 PAR                                                                                       PAR         4631     A     
 PAR       STFA10   SA6    A3+WB.W-WA.W      MARK SF *EXPANDING*                           PAR         4632     A     
 PAR                MX0    -WB.STFPL                                                       PAR         4633     A     
 PAR                LX6    -WB.STFPP                                                       PAR         4634     A     
 PAR                LX2    -AC.EARGP                                                       PAR         4635     A     
 PAR                BX6    -X0*X6                                                          PAR         4636     A     
 PAR                SA1    T.STF                                                           PAR         4637     A     
 PAR                IX0    X1+X6                                                           PAR         4638     A     
 PAR                SX7    B4          ARGCOMA = *TB* POINTER RESTORE                      PAR         4639     A     
 PAR                SA3    INSTF                                                           PAR         4640     A     
 PAR                ZR     X3,STFA15   IF NOT PARSING FROM STATEMENT FUNCTION              PAR         4641     A     
 PAR                IX7    X7-X1       RELATIVIZE TOKEN POINTER                            PAR         4642     A     
 PAR                                                                                       PAR         4643     A     
 PAR       STFA15   LX7    AC.TBRP                                                         PAR         4644     A     
 PAR                SB4    X0          POINT TO WORD BEFORE SKEL (SPS ADVANCES)            PAR         4645     A     
 PAR                LX0    -SF.DACPP                                                       PAR         4646          I
          -FC5A172
 PAR                SA3    X0          FIRST DUMMY ARG REFERENCE                           PAR         4647     A     
 PAR                SA1    ALC.STF                                                         PAR         4648     A     
 PAR                BX6    X1                                                              PAR         4649     A     
 PAR                SA6    ALC.REG     LOCK B4 TO T.STF                                    PAR         4650     A     
 PAR                SX2    X2                                                              PAR         4651     A     
 PAR                ERRNZ  AC.EARGL-18                                                     PAR         4652     A     
 PAR                LX3    -SF.DACPP                                                       PAR         4653     A     
 PAR                SX0    X3                                                              PAR         4654     A     
 PAR                ERRNZ  SF.DACPL-18                                                     PAR         4655     A     
 PAR                LX3    SF.DACPP-SF.PEARP                                               PAR         4656     A     
 PAR                SX3    X3                                                              PAR         4657     A     
 PAR                ERRNZ  SF.PEARL-18                                                     PAR         4658     A     
 PAR                LX3    TB.ACTEP                                                        PAR         4659     A     
 PAR                LX2    SF.PEARP                                                        PAR         4660     A     
 PAR                LX0    SF.DACPP                                                        PAR         4661     A     
 PAR                BX6    X0+X2                                                           PAR         4662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX0    -SF.DACPP                                                       PAR         4663     A     
 PAR                LX2    TB.ACTEP-SF.PEARP                                               PAR         4664     A     
 PAR                SA6    A3                                                              PAR         4665     A     
 PAR                MX4    -TB.DACL                                                        PAR         4666     A     
 PAR                ZR     X0,STFA30   IF NO PARAMETERS USED                               FC5A172        9     A     
 PAR                                                                                       PAR         4667     A     
 PAR       STFA20   SA1    X0+B4       NEXT ARG REF IN SKELETON                            PAR         4668     A     
 PAR                IX5    X1+X2       ADD IN NEW ESTACK BASE                              PAR         4669     A     
 PAR                IX6    X5-X3       SUBTRACT PREVIOUS BASE                              PAR         4670     A     
 PAR                LX1    -TB.DACP                                                        PAR         4671     A     
 PAR                SA6    A1                                                              PAR         4672     A     
 PAR                BX0    -X4*X1                                                          PAR         4673     A     
 PAR                NZ     X0,STFA20   IF NOT END OF DUMMY ARG REF                         PAR         4674     A     
 PAR                SA4    SCR+AS.W    PROPOGATE ARGMIS                                    PAR         4675          I
          -FC5A172
 PAR                                                                                       FC5A172       10     A     
 PAR       STFA30   SA4    SCR+AS.W    PROPOGATE ARGMIS                                    FC5A172       11     A     
 PAR                SA1    INSTF                                                           PAR         4676     A     
 PAR                =X6    X1+1                                                            PAR         4677     A     
 PAR                SA6    A1          INSTF = INSTF + 1 */ SF EXPANSION DEPTH             PAR         4678     A     
 PAR                SA1    ESFARM                                                          PAR         4679     A     
 PAR                BX6    X1          ARGMODE = ESFARM  */ BEGIN EXPANSION                PAR         4680     A     
 PAR                SB3    O.SLP                                                           PAR         4681     A     
 PAR                EQ     PAR.SPS                                                         PAR         4682     A     
 PAR       A=STFE   SPACE  4,10                                                            PAR         4683     A     
 PAR      **        A=STFE - POP RIGHT PAREN AFTER EXPANDING ST. FUNCT. BODY.              PAR         4684     A     
 PAR                                                                                       PAR         4685     A     
 PAR       A=STFE   SA2    SCR+AS.W                                                        PAR         4686     A     
 PAR                SA1    INSTF                                                           PAR         4687     A     
 PAR                LX2    -TP.ORDP                                                        PAR         4688     A     
 PAR                MX0    -TP.ORDL                                                        PAR         4689     A     
 PAR                BX0    -X0*X2                                                          PAR         4690     A     
 PAR                LX4    B1,X0                                                           PAR         4691     A     
 PAR                IX4    X4+X0                                                           PAR         4692     A     
 PAR                SX6    X1-1                                                            PAR         4693     A     
 PAR                SA6    A1          POP ONE LEVEL OF SF EXPANSION                       PAR         4694     A     
 PAR                NZ     X6,STFE10   IF STILL IN SF EXPANSION                            PAR         4695     A     
 PAR                SA1    ALC.00                                                          PAR         4696     A     
 PAR                BX6    X1                                                              PAR         4697     A     
 PAR                SA6    ALC.REG     UNLOCK B4                                           PAR         4698     A     
 PAR                EQ     STFE20                                                          PAR         4699     A     
 PAR                                                                                       PAR         4700     A     
 PAR       STFE10   SA1    T.STF                                                           PAR         4701     A     
 PAR                SB2    X1+B2       ABSOLUTIZE STATEMENT FUNCTION TOKEN POINTER         PAR         4702     A     
 PAR                                                                                       PAR         4703     A     
 PAR       STFE20   SA1    T.SYM                                                           PAR         4704     A     
 PAR                =B3    X1+WB.W                                                         PAR         4705     A     
 PAR                MX0    -1                                                              PAR         4706     A     
 PAR                SA1    X4+B3                                                           PAR         4707     A     
 PAR                LX0    WB.SFXP                                                         PAR         4708     A     
 PAR                BX6    X0*X1       CLEAR *EXPANDING* FLAG                              PAR         4709     A     
 PAR                SA6    A1                                                              PAR         4710     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =A5    A1-WB.W+WA.W                                                    FC50474        9     A     
 PAR                MX6    WA.SYML                                                         FC50474       10     A     
 PAR                BX6    X6*X5       SYMBOL ONLY                                         FC50474       11     A     
 PAR                SB4    B2          RESTORE TOKEN BUFFER POINTER                        PAR         4711     A     
 PAR                SA6    FILL.       FOR POSSIBLE DIAGNOSTIC                             FC50474       12     A     
 PAR                =A4    A1+WC.W-WB.W                                                    PAR         4712     A     
 PAR                MX0    -WC.ARGCL                                                       PAR         4713     A     
 PAR                LX4    -WC.ARGCP                                                       PAR         4714     A     
 PAR                BX1    -X0*X4                                                          PAR         4715     A     
 PAR                =A5    B6-1                                                            PAR         4716     A     
 PAR                BX6    X5                                                              PAR         4717     A     
 PAR                SB3    X1                                                              PAR         4718     A     
 PAR                SB6    A5-B3       REPLACE ARG1 ON ESTACK WITH EXPANSION               PAR         4719     A     
 PAR                MX0    -TP.MODEL                                                       PAR         4720     A     
 PAR                LX2    TP.ORDP-TP.MODEP                                                PAR         4721     A     
 PAR                BX6    -X0*X2                                                          PAR         4722     A     
 PAR                LX4    WC.ARGCP-WC.CLENP                                               PAR         4723     A     
 PAR                MX0    -WC.CLENL                                                       PAR         4724     A     
 PAR                BX1    -X0*X4                                                          PAR         4725     A     
 PAR                RJ     CLM         COERCE MODE AND CHAR LEN TO S.F.                    PAR         4726     A     
 PAR                BX6    X5                                                              PAR         4727     A     
 PAR                SA6    B6          REPLACE EXP WITH CONVERSION                         PAR         4728     A     
 PAR                =B6    B6+1                                                            PAR         4729     A     
 PAR                ZR     B7,PAR.NX   IF NO CONVERSION ERROR                              PAR         4730     A     
 PAR                FATAL  B7                                                              PAR         4731          I
          -FC50474
 PAR                FATAL  E.SF15                                                          FC50474       13     A     
 PAR                EQ     PAR.NX                                                          PAR         4732     A     
 PAR       GFR      SPACE  4,10                                                            PAR         4733     A     
 PAR      **        GFR - GENERATE FUNCTION REFERENCE.                                     PAR         4734     A     
 PAR      *                                                                                PAR         4735     A     
 PAR      *         EMITS FUNCTION AP-BEGIN TURPLE (V=FAP), EMITS AP LIST, AND             PAR         4736     A     
 PAR      *         THEN SET UP FOR THE RJ, AND RETURN TO POP MAIN.                        PAR         4737     A     
 PAR      *                                                                                PAR         4738     A     
 PAR      *         ENTRY  (/CF/) SET UP.                                                  PAR         4739     A     
 PAR      *                (SMOD) = RESULT MODE OF FUNCTION.                               PAR         4740     A     
 PAR      *                                                                                PAR         4741     A     
 PAR      *         EXIT   TO POP.ST1 --                                                   PAR         4742     A     
 PAR      *                (X3) = OPR        = (CF/RJ)                                     PAR         4743     A     
 PAR      *                (X4) = 1OP        = (CF/TP)                                     PAR         4744     A     
 PAR      *                (X5) = 2OP        = (CF/AC)                                     PAR         4745     A     
 PAR      *                (CURST) = SQUEEZE BOUNDARY RESET.                               PAR         4746     A     
 PAR      *                                                                                PAR         4747     A     
 PAR      *         CALLS  EAL, EMIT.                                                      PAR         4748     A     
 PAR                                                                                       PAR         4749     A     
 PAR                                                                                       PAR         4750     A     
 PAR       GFR      BSS                ENTRY...                                            PAR         4751     A     
 PAR                SA2    SMOD                                                            PAR         4752     A     
 PAR                SA3    FAPOP                                                           PAR         4753     A     
 PAR                LX2    TH.MODEP                                                        PAR         4754          I
          -FC50104
 PAR                LX2    SP.MODEP                                                        FC50104      140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA5    /CF/AC      (2OP) = NUMBER OF ARGS IN CALL                      PAR         4755     A     
 PAR                BX6    X2+X3       SET MODE IN TURPLE HEADER                           PAR         4756     A     
 PAR                SA4    /CF/TP      (1OP) = TAG OF ROUTINE                              PAR         4757     A     
 PAR                LX5    TP.BIASP                                                        PAR         4758     A     
 PAR                SA6    SOPR                                                            PAR         4759     A     
 PAR                EMIT   A6,*                                                            PAR         4760     A     
 PAR                SA3    /CF/APL                                                         PAR         4761     A     
 PAR                RJ     EAL         EMIT AP LIST                                        PAR         4762     A     
 PAR                                                                                       PAR         4763     A     
 PAR      *         EMIT RJ TO ROUTINE, AND RESET SQUEEZE BOUNDARY.                        PAR         4764     A     
 PAR                                                                                       PAR         4765     A     
 PAR                SA4    /CF/TP      (1OP) = TAG OF ROUTINE                              PAR         4766     A     
 PAR                SA1    T.PAR                                                           PAR         4767          I
          -FC5A323
 PAR                SA1    T=PAR                                                           FC5A323        5     A     
 PAR                SA3    /CF/RJ      (OPR) = JUMP TYPE                                   PAR         4768     A     
 PAR                SA5    /CF/AC      (2OP) = NUMBER OF ARGS IN THIS CALL                 PAR         4769     A     
 PAR                SX7    X1+Z=TURP                                                       PAR         4770     A     
 PAR                SB6    B6+B1       ADJUST ESTACK FOR SINGLE ELEMENT                    PAR         4771     A     
 PAR                SA7    CURST       RESET SQUEEZE BOUNDARY                              PAR         4772     A     
 PAR                LX5    TP.BIASP                                                        PAR         4773     A     
 PAR                EQ     POP.ST1     EXIT..                                              PAR         4774     A     
 PAR       EAL      SPACE  4,10                                                            PAR         4775     A     
 PAR      **        EAL - EMIT ACTUAL-PARAMETER LIST.                                      PAR         4776     A     
 PAR      *                                                                                PAR         4777     A     
 PAR      *         EMIT THE ACTUAL PARAMETER LIST, ONE TURPLE PER ARGUMENT.               PAR         4778     A     
 PAR      *                                                                                PAR         4779     A     
 PAR      *         NOTE - CALLERS OUTSIDE OF PAR SHOULD BE PARTICULARLY CAREFUL           PAR         4780     A     
 PAR      *                ABOUT (B6) AND ESTACK UPON ENTRY AND RETURN.                    PAR         4781     A     
 PAR      *                                                                                PAR         4782     A     
 PAR      *         ENTRY  (CF/AC) = NUMBER OF ARGS.                                       PAR         4783     A     
 PAR      *                (X3) = APLIST OPERATOR.                                         PAR         4784     A     
 PAR      *                ARGS ON T.ARG.                                                  PAR         4785     A     
 PAR      *                                                                                PAR         4786     A     
 PAR      *         EXIT   (CF/APL) = APLIST OPERATOR = SAVED (X3).                        PAR         4787     A     
 PAR      *                (T=ARG) = 0.                                                    PAR         4788     A     
 PAR      *                                                                                PAR         4789     A     
 PAR      *         USES   ALL BUT  A0, B4, B5.                                            PAR         4790     A     
 PAR      *         CALLS  EMT                                                             PAR         4791     A     
 PAR                                                                                       PAR         4792     A     
 PAR                                                                                       PAR         4793     A     
 PAR       EAL      SUBR   =           ENTRY/EXIT...                                       PAR         4794     A     
 PAR                BX6    X3                                                              PAR         4795     A     
 PAR                SA2    /CF/AC                                                          PAR         4796     A     
 PAR                MX5    0           (2OP) = NIL                                         PAR         4797     A     
 PAR                SA6    /CF/APL                                                         PAR         4798     A     
 PAR                ZR     X2,EXIT.    IF NO ARGUMENTS                                     PAR         4799     A     
 PAR                SA1    T.ARG                                                           PAR         4800     A     
 PAR                SA3    T=ARG                                                           PAR         4801     A     
 PAR                IX1    X1+X3                                                           PAR         4802     A     
 PAR                IX1    X1-X2       FWA OF ARGUMENT LIST                                PAR         4803     A     
 PAR                =B2    0                                                               PAR         4804     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         4805     A     
 PAR       EAL10    SA4    X1+B2       X4 = NEXT ARGUMENT                                  PAR         4806     A     
 PAR                =X6    B2+1                                                            PAR         4807     A     
 PAR                SA6    EALA        UPDATE AND SAVE INDEX                               PAR         4808     A     
 PAR                MX0    -TP.MODEL                                                       PAR         4809     A     
 PAR                SA2    /CF/APL     FETCH APLIST OPERATOR                               PAR         4810     A     
 PAR                LX4    -TP.MODEP                                                       PAR         4811     A     
 PAR                BX7    -X0*X4      ISOLATE MODE OF THIS ARG                            PAR         4812     A     
 PAR                LX7    TH.MODEP                                                        PAR         4813          I
          -FC50104
 PAR                LX7    SP.MODEP                                                        FC50104      141     A     
 PAR                BX6    X7+X2       SET TURPLE MODE PER ARG                             PAR         4814     A     
 PAR                LX4    TP.MODEP    (1OP) = ARG                                         PAR         4815     A     
 PAR                SA6    SOPR                                                            PAR         4816     A     
 PAR                EMIT   A6,*                                                            PAR         4817     A     
 PAR                SA1    T.ARG                                                           PAR         4818     A     
 PAR                SA2    T=ARG                                                           PAR         4819     A     
 PAR                IX1    X1+X2                                                           PAR         4820     A     
 PAR                SA3    /CF/AC                                                          PAR         4821     A     
 PAR                IX1    X1-X3       REFRESH FWA OF ARGLIST                              PAR         4822     A     
 PAR                SA2    EALA                                                            PAR         4823     A     
 PAR                SB2    X2                                                              PAR         4824     A     
 PAR                IX4    X3-X2                                                           PAR         4825     A     
 PAR                NZ     X4,EAL10    IF MORE ARGUMENTS                                   PAR         4826     A     
 PAR                SA1    T=ARG                                                           PAR         4827     A     
 PAR                IX6    X1-X3       X6 = NEW LENGTH OF T.ARG                            PAR         4828     A     
 PAR                SHRINK T=ARG,X6                                                        PAR         4829     A     
 PAR                EQ     EXIT.                                                           PAR         4830     A     
 PAR                                                                                       PAR         4831     A     
 PAR       EALA     BSS    1                                                               PAR         4832     A     
 PAR       ESF      SPACE  4,10                                                            PAR         4833     A     
 PAR      **        ESF - EVALUATE SPECIAL INTRINSIC FUNCTION.                             PAR         4834     A     
 PAR      *                                                                                PAR         4835     A     
 PAR      *         ENTRY  (X1) = INTRINSIC TABLE ENTRY.                                   PAR         4836     A     
 PAR      *                ARGUMENTS ON TOP OF ESTACK.                                     PAR         4837     A     
 PAR      *                                                                                PAR         4838     A     
 PAR      *         EXIT   (X2) .MI. = FUNCTION COMPLETELY REDUCED --                      PAR         4839     A     
 PAR      *                RESULT ON ESTACK.                                               PAR         4840     A     
 PAR      *                                                                                PAR         4841     A     
 PAR      *         ELSE   (X2) .PL. = ISSUE INLINE FUNCTION --                            PAR         4842     A     
 PAR      *                (X3) = TURPLE HEADER FOR FUNC.                                  PAR         4843     A     
 PAR      *                (ESTACK) = ARGUMENTS POSSIBLY ALTERED.                          PAR         4844     A     
 PAR      *                (SMOD) POSSIBLY ALTERED.                                        PAR         4845     A     
 PAR      *                                                                                PAR         4846     A     
 PAR      *         USES   ALL BUT A0,  B4-6.                                              PAR         4847     A     
 PAR      *         CALLS  ADT, CMR, ESA, FATAL, LCH, LCT, NCS, TAGSEX.                    PAR         4848     A     
 PAR                                                                                       PAR         4849     A     
 PAR                                                                                       PAR         4850     A     
 PAR       ESF9     SA1    BIFFUN                                                          PAR         4851     A     
 PAR                LX2    TH.SKELP                                                        PAR         4852          I
          -FC50104
 PAR                LX2    SP.SKELP                                                        FC50104      142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX3    X1+X2       FORM TURPLE HEADER                                  PAR         4853     A     
 PAR                                                                                       PAR         4854     A     
 PAR       ESF      SUBR   -           ENTRY/EXIT...                                       PAR         4855     A     
 PAR                MX0    -IT.JPADL                                                       PAR         4856     A     
 PAR                LX1    -IT.JPADP                                                       PAR         4857     A     
 PAR                BX6    -X0*X1      ISOLATE (X6) = POINTER TO SKEL OR PARSER            PAR         4858     A     
 PAR                LX1    IT.JPADP-1-IT.PARP                                              PAR         4859     A     
 PAR                SX2    X6+OM=INL   (X2) = (POSSIBLE) SKELETON INDEX                    PAR         4860     A     
 PAR                PL     X1,ESF9     IF NO PARSER PROCESSING                             PAR         4861     A     
 PAR                SA5    B6-B1                                                           PAR         4862     A     
 PAR                SB7    X6                                                              PAR         4863     A     
 PAR                JP     B7+ESFBASE                                                      PAR         4864     A     
 PAR                                                                                       PAR         4865     A     
 PAR                                                                                       PAR         4866     A     
 PAR                MACRO  ESINL,NAM                                                       PAR         4867     A     
 PAR                BSS                                                                    PAR         4868     A     
 PAR       D        MICRO  1,7, ES=NAM                                                     PAR         4869     A     
 PAR       "D"      EQUENT *-ESFBASE                                                       PAR         4870     A     
 PAR                ENDM                                                                   PAR         4871     A     
 PAR                                                                                       PAR         4872     A     
 PAR       ESFBASE  BSS    0           BASE ADDRESS                                        PAR         4873     A     
 PAR       ES.CMP   SPACE  4,10                                                            PAR         4874     A     
 PAR      **        ES.CMP - COERCE OPERANDS OF DYADIC 'CMPLX'.                            PAR         4875     A     
 PAR      *                                                                                PAR         4876     A     
 PAR      *         BOTH OPERANDS MUST BE COERCED TO TYPE REAL BEFORE THE                  PAR         4877     A     
 PAR      *         FUNCTION CAN BE ISSUED.                                                PAR         4878     A     
 PAR                                                                                       PAR         4879     A     
 PAR                                                                                       PAR         4880     A     
 PAR       CMPL     ESINL                                                                  PAR         4881     A     
 PAR                =X6    M.REAL                                                          PAR         4882     A     
 PAR                CALL   CMR         COERCE (2OP) MODE                                   PAR         4883     A     
 PAR       .T       IFEQ   TEST,ON,1                                                       PAR         4884     A     
 PAR                NZ     B7,"BLOWUP" IF VIL LET BAD MODE THRU                            PAR         4885     A     
 PAR                BX7    X5                                                              PAR         4886     A     
 PAR                SA7    B6-B1                                                           PAR         4887     A     
 PAR                                                                                       PAR         4888     A     
 PAR                =X6    M.REAL                                                          PAR         4889     A     
 PAR                SA5    A7-B1                                                           PAR         4890     A     
 PAR                CALL   CMR         COERCE (1OP) MODE                                   PAR         4891     A     
 PAR       .T       IFEQ   TEST,ON,1                                                       PAR         4892     A     
 PAR                NZ     B7,"BLOWUP" IF VIL LET BAD MODE THRU                            PAR         4893     A     
 PAR                SX2    V=CMPLX                                                         PAR         4894     A     
 PAR                =X6    M.CPLX      RESTORE (SMOD)  (CMR DESTROYED IT)                  PAR         4895     A     
 PAR                BX7    X5                                                              PAR         4896     A     
 PAR                SA6    SMOD                                                            PAR         4897     A     
 PAR                SA7    B6-2                                                            PAR         4898     A     
 PAR                EQ     ESF9                                                            PAR         4899     A     
 PAR       ES.LEN   SPACE  4,10                                                            PAR         4900     A     
 PAR      **        ES.LEN - CHARACTER LENGTH INTRINSIC.                                   PAR         4901     A     
 PAR      *                                                                                PAR         4902     A     
 PAR      *         IF OPERAND IS CONSTANT, REDUCE FUNCTION.                               PAR         4903     A     
 PAR      *         ELSE, SET UP TO ISSUE AS EXTERNAL.                                     PAR         4904     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         4905     A     
 PAR                                                                                       PAR         4906     A     
 PAR       LEN      ESINL                                                                  PAR         4907     A     
 PAR                BX1    X5                                                              PAR         4908          I
          -FC5A227
 PAR                BX1    X5                                                              PAR         4909          I
          -FC5A227
 PAR                SA1    PARNOW                                                          FC5A227      125     A     
 PAR                SX1    X1-PM=PARM                                                      FC5A227      126     A     
 PAR                NZ     X1,ES.LEN1  IF NOT PARAMETER CONSTANT EXPRESSION                FC5A227      127     A     
 PAR                FATAL  E.INF3                                                          FC5A227      128     A     
 PAR                                                                                       FC5A227      129     A     
 PAR       ES.LEN1  BX1    X5                                                              FC5A227      130     A     
 PAR                LX5    -TP.MODEP                                                       PAR         4910     A     
 PAR                BX6    0           PRESET ERROR INTRINSIC                              PAR         4911     A     
 PAR                MX0    -TP.MODEL                                                       PAR         4912     A     
 PAR                BX0    -X0*X5                                                          PAR         4913     A     
 PAR                SB7    X0-M.CHAR                                                       PAR         4914     A     
 PAR                NZ     B7,ES.LEN4  IF NOT CHAR, ERROR                                  PAR         4915     A     
 PAR                RJ     GOL         GET OPERAND LENGTH                                  PAR         4916     A     
 PAR                PL     X7,ES.LEN6  IF CONSTANT LENGTH                                  PAR         4917     A     
 PAR                SX6    OMI=LEN                                                         PAR         4918     A     
 PAR                                                                                       PAR         4919     A     
 PAR       ES.LEN4  SA1    X6+F.INTF                                                       PAR         4920     A     
 PAR                SA2    FUNCALL     FORCE CALL-BY-NAME                                  PAR         4921     A     
 PAR                SA6    /CF/IT                                                          PAR         4922     A     
 PAR                EQ     ABEF        GO TREAT AS EXTERNAL ...                            PAR         4923     A     
 PAR                                                                                       PAR         4924     A     
 PAR       ES.LEN6  BX6    X7          RESULT VALUE = LENGTH OF CONSTANT STRING            PAR         4925     A     
 PAR                =X7    M.INT                                                           PAR         4926     A     
 PAR                EQ     ES.MSK8                                                         PAR         4927     A     
 PAR       ES.LXX   SPACE  4,8                                                             PAR         4928     A     
 PAR      **        ES.XXX - TRANSFORM LGE(C1,C2) ETC. INTO C1.LGE.C2  .                   PAR         4929     A     
 PAR                                                                                       PAR         4930     A     
 PAR       LGE      ESINL                                                                  PAR         4931     A     
 PAR                SA4    B6-2                                                            PAR         4932     A     
 PAR                SA3    LGEOP                                                           PAR         4933     A     
 PAR                                                                                       PAR         4934     A     
 PAR       LXX10    BX7    X3                                                              PAR         4935     A     
 PAR                SA7    SOPR                                                            PAR         4936     A     
 PAR                =B6    B6-1        EAT FUNCTION NAME                                   PAR         4937     A     
 PAR                RJ     ADT                                                             PAR         4938     A     
 PAR                =X2    -1                                                              PAR         4939     A     
 PAR                EQ     EXIT.                                                           PAR         4940     A     
 PAR                                                                                       PAR         4941     A     
 PAR       LGT      ESINL                                                                  PAR         4942     A     
 PAR                SA3    LLTOP                                                           PAR         4943     A     
 PAR                                                                                       PAR         4944     A     
 PAR      *         INVERT OPERANDS FOR INVERTED OPERATOR.                                 PAR         4945     A     
 PAR                                                                                       PAR         4946     A     
 PAR       LXX20    BX4    X5                                                              PAR         4947     A     
 PAR                SA5    B6-2                                                            PAR         4948     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     LXX10                                                           PAR         4949     A     
 PAR                                                                                       PAR         4950     A     
 PAR       LLE      ESINL                                                                  PAR         4951     A     
 PAR                SA3    LGEOP                                                           PAR         4952     A     
 PAR                EQ     LXX20                                                           PAR         4953     A     
 PAR                                                                                       PAR         4954     A     
 PAR       LLT      ESINL                                                                  PAR         4955     A     
 PAR                SA4    B6-2                                                            PAR         4956     A     
 PAR                SA3    LLTOP                                                           PAR         4957     A     
 PAR                EQ     LXX10                                                           PAR         4958     A     
 PAR       ES.MSK   SPACE  4,10                                                            PAR         4959     A     
 PAR      **        ES.MSK - ATTEMPT REDUCTION OF 'MASK'.                                  PAR         4960     A     
 PAR                                                                                       PAR         4961     A     
 PAR                                                                                       PAR         4962     A     
 PAR       MASK     ESINL                                                                  PAR         4963     A     
 PAR                BX1    X5                                                              PAR         4964     A     
 PAR                CALL   LCH         LOAD CONSTANT TEST                                  PAR         4965     A     
 PAR                SX2    V=MASK                                                          PAR         4966     A     
 PAR                MI     B2,ES.MSK9  IF LONG CONSTANT                                    FC5A190        9     A     
 PAR                NE     B2,B1,ESF9  IF NOT SHORT INTEGER CONSTANT                       PAR         4967     A     
 PAR                ZR     X6,ES.MSK5  IF MASK(-0)                                         FC5A190       10     A     
 PAR                MI     X6,ES.MSK9  IF NEGATIVE ARG.                                    FC5A190       11     A     
 PAR                                                                                       FC5A190       12     A     
 PAR       ES.MSK5  SX1    X6-61                                                           FC5A190       13     A     
 PAR                PL     X1,ES.MSK9  IF ARG GT 60                                        FC5A190       14     A     
 PAR                MX1    1                                                               PAR         4968     A     
 PAR                SB7    X6-1                                                            PAR         4969     A     
 PAR                =X7    M.BOOL      SET MODE OF NEW CONSTANT                            PAR         4970     A     
 PAR                AX6    B7,X1                                                           PAR         4971     A     
 PAR                BX1    X6                                                              PAR         4972     A     
 PAR                AX1    59                                                              PAR         4973     A     
 PAR                BX6    X1*X6                                                           PAR         4974     A     
 PAR       ES.MSK8  SB6    B6-B1       DECREMENT STACK FOR FUNCTION NAME                   PAR         4975     A     
 PAR                CALL   NCS         ENTER NEW CONSTANT                                  PAR         4976     A     
 PAR                =X2    -1          INDICATE REDUCED                                    PAR         4977     A     
 PAR                =A6    B6-1        REPLACE *MASK(CON)* WITH CON                        PAR         4978     A     
 PAR                EQ     EXIT.                                                           PAR         4979     A     
 PAR                                                                                       FC5A190       15     A     
 PAR       ES.MSK9  WARN   E.INF1                                                          FC5A190       16     A     
 PAR                EQ     ESF9                                                            FC5A190       17     A     
 PAR       ES.SHF   SPACE  4,10                                                            PAR         4980     A     
 PAR      **        ES.SHF - ATTEMPT REDUCTION OF 'SHIFT'.                                 PAR         4981     A     
 PAR                                                                                       PAR         4982     A     
 PAR                                                                                       PAR         4983     A     
 PAR       SHIFT    ESINL                                                                  PAR         4984     A     
 PAR                BX1    X5                                                              PAR         4985     A     
 PAR                CALL   LCH         LOAD CONSTANT TEST                                  PAR         4986     A     
 PAR                SX2    V=SHIFT                                                         PAR         4987     A     
 PAR                MI     B2,ES.SHF5  IF LONG CONSTANT                                    FC5A190       18     A     
 PAR                NE     B2,B1,ESF9  IF NOT SHORT INTEGER CONSTANT                       PAR         4988     A     
 PAR                BX2    X6                                                              FC5A190       19     A     
 PAR                AX2    59                                                              FC5A190       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX2    X2-X6                                                           FC5A190       21     A     
 PAR                SX2    X2-61                                                           FC5A190       22     A     
 PAR                PL     X2,ES.SHF5  IF ABS(ARG) .GT. 60                                 FC5A190       23     A     
 PAR                SB7    X6-60                                                           PAR         4989     A     
 PAR                =X2    -1                                                              PAR         4990          I
          -FC50148
 PAR                =B6    B6-1                                                            PAR         4991          I
          -FC50148
 PAR                ZR     X6,EXIT.    IF NULL SHIFT                                       PAR         4992          I
          -FC50148
 PAR                ZR     B7,EXIT.    IF NULL SHIFT                                       PAR         4993          I
          -FC50148
 PAR                SX2    V=SHIFT                                                         PAR         4994     A     
 PAR                SB6    B6+B1                                                           PAR         4995          I
          -FC50148
 PAR                ZR     X6,ES.SHF4  IF NULL SHIFT (0)                                   FC50148       19     A     
 PAR                ZR     B7,ES.SHF4  IF NULL SHIFT (60)                                  FC50148       20     A     
 PAR                EQ     ESF9        EXIT, NOT REDUCED                                   PAR         4996     A     
 PAR                                                                                       FC50148       21     A     
 PAR       ES.SHF4  SA1    B6-2        SHIFT VALUE ARGUMENT                                FC50148       22     A     
 PAR                =X2    -1          INDICATE REDUCTION                                  FC50148       23     A     
 PAR                SB6    A1          RESET ESTACK POINTER                                FC50148       24     A     
 PAR                LX6    X1                                                              FC50148       25          I
          -FC50372
 PAR                =A6    A1-1        REPLACE SHIFT WITH VALUE OPERAND                    FC50148       26          I
          -FC50372
 PAR                MX0    -TP.MODEL                                                       FC50372        5     A     
 PAR                BX6    X0*X1       CLEAR SHIFT VALUE MODE                              FC50372        6     A     
 PAR                =X1    M.BOOL                                                          FC50372        7     A     
 PAR                BX6    X6+X1       RESULT MODE IS BOOLEAN                              FC50372        8     A     
 PAR                SA6    A1-1        REPLACE SHIFT WITH VALUE OPERAND                    FC50372        9     A     
 PAR                EQ     EXIT.                                                           FC50148       27     A     
 PAR                                                                                       FC5A190       24     A     
 PAR       ES.SHF5  WARN   E.INF2      SHIFT ARG OUT OF RANGE                              FC5A190       25     A     
 PAR                SX2    V=SHIFT                                                         FC5A296        6     A     
 PAR                EQ     ESF9                                                            FC5A190       26     A     
 PAR       ES.LOC   SPACE  4,10                                                            PAR         4997     A     
 PAR      **        ES.LOC - EVALUATE 'LOCF' INTRINSIC.                                    PAR         4998     A     
 PAR      *                                                                                PAR         4999     A     
 PAR      *         IF THE ARGUMENT IS TYPE CHARACTER, EMIT LIBRARY CALL.                  PAR         5000     A     
 PAR      *         IF NOT, THE FUNCTION IS ELIMINATED.                                    PAR         5001     A     
 PAR      *         RESULT IS THE OPERAND, WITH (TP.ADDR) SET.                             PAR         5002     A     
 PAR                                                                                       PAR         5003     A     
 PAR                                                                                       PAR         5004     A     
 PAR       LOCF     ESINL                                                                  PAR         5005     A     
 PAR                RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY                    PAR         5006     A     
 PAR                ZR     X6,ES.LOC2  IF OPERAND OKAY                                     PAR         5007     A     
 PAR                FATAL  E.INF                                                           PAR         5008     A     
 PAR                                                                                       PAR         5009     A     
 PAR       ES.LOC2  SB7    X0-M.CHAR                                                       PAR         5010     A     
 PAR                CLAS=  X6,WB,LOCF                                                      FC5A206        4     A     
 PAR                BX6    X6+X2       LOCF[WB(ARG)] = 1                                   FC5A206        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    A2                                                              FC5A206        6     A     
 PAR                SX6    OMI=LCF                                                         PAR         5011     A     
 PAR                ZR     B7,ES.LEN4  IF CHARACTER ARGUMENT, DO IT EXTERNAL               PAR         5012     A     
 PAR                CLAS=  X0,TP,(ADDR,LCF,EXPR)                                           PAR         5013     A     
 PAR                MX2    -TP.MODEL                                                       PAR         5014     A     
 PAR                LX2    TP.MODEP                                                        PAR         5015     A     
 PAR                BX5    X2*X5       SET RESULT MODE = M.BOOL                            PAR         5016     A     
 PAR       .MODE    IFNE   M.BOOL,0                                                        PAR         5017     A     
 PAR                =X2    M.BOOL                                                          PAR         5018     A     
 PAR                LX2    TP.MODEP                                                        PAR         5019     A     
 PAR                BX5    X5+X2                                                           PAR         5020     A     
 PAR       .MODE    ENDIF                                                                  PAR         5021     A     
 PAR                BX6    X5+X0                                                           PAR         5022     A     
 PAR                =X2    -1                                                              PAR         5023     A     
 PAR                =B6    B6-1        REPLACE LOCF(ARG) WITH ADDR(ARG)                    PAR         5024     A     
 PAR                =A6    B6-1                                                            PAR         5025     A     
 PAR                EQ     EXIT.                                                           PAR         5026     A     
 PAR       ES.RAN   SPACE  4,10                                                            PAR         5027     A     
 PAR      **        ES.RAN - GENERATE 'RANF' REFERENCE.                                    PAR         5028     A     
 PAR      *                                                                                PAR         5029     A     
 PAR      *         INVENT OPERAND (RANDOM.), AND PUT IT'S NAME IN SYMTAB.                 PAR         5030     A     
 PAR                                                                                       PAR         5031     A     
 PAR                                                                                       PAR         5032     A     
 PAR       RANF     ESINL                                                                  PAR         5033     A     
 PAR                TAGSEX S.RANDOM    TAG SYSTEM EXTERNAL                                 PAR         5034     A     
 PAR                SA3    RANOP                                                           PAR         5035     A     
 PAR                BX4    X6          (1OP) = SYMORD (RANDOM.)                            PAR         5036     A     
 PAR                LX6    X3                                                              PAR         5037     A     
 PAR                BX5    X4          (2OP) = (1OP)                                       PAR         5038     A     
 PAR                SB6    B6+B1       COMPENSATE FOR ADT STACK DECREMENT                  PAR         5039     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5040     A     
 PAR                SA2    SMOD                                                            PAR         5041     A     
 PAR                SX7    X2-M.REAL                                                       PAR         5042     A     
 PAR                NZ     X7,"BLOWUP" IF (SMOD) INCORRECT                                 PAR         5043     A     
 PAR       .T       ENDIF                                                                  PAR         5044     A     
 PAR                SA6    SOPR                                                            PAR         5045     A     
 PAR                RJ     ADT                                                             PAR         5046     A     
 PAR                =X2    -1                                                              PAR         5047     A     
 PAR                EQ     EXIT.                                                           PAR         5048     A     
 PAR                                                                                       PAR         5049     A     
 PAR       S.RANDOM =XLIB  RANDOM                                                          PAR         5050     A     
 PAR       IAC      SPACE  4,10                                                            PAR         5051     A     
 PAR      **        IAC - INCREMENT ARG COUNT.                                             PAR         5052     A     
 PAR      *                                                                                PAR         5053     A     
 PAR      *         THIS WOULD PERHAPS NOT NEED TO BE A SUBROUTINE, EXCEPT                 PAR         5054     A     
 PAR      *         FOR THE NECESSITY TO DO PART-WORD SIGNED ARITHMETIC.                   PAR         5055     A     
 PAR      *         ON ENTRY, (AC.CNT) MAY BE = -1, IF THERE WERE ZERO                     PAR         5056     A     
 PAR      *         ACTUAL ARGUMENTS.                                                      PAR         5057     A     
 PAR      *                                                                                PAR         5058     A     
 PAR      *         ENTRY  (SCR+AC.W) = ARGCOMA.                                           PAR         5059     A     
 PAR      *                                                                                PAR         5060     A     
 PAR      *         EXIT   (X7) = FINAL ARGUMENT COUNT.                                    PAR         5061     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1352    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                (CF/AC) = (X7).                                                 PAR         5062     A     
 PAR      *                ARGCOMA UPDATED, (AC.CNT) = (X7).                               PAR         5063     A     
 PAR      *                (A2, X2) = UPDATED ARGCOMA.                                     PAR         5064     A     
 PAR      *                                                                                PAR         5065     A     
 PAR      *         USES   X0,X3,X6,X7  A7                                                 PAR         5066     A     
 PAR                                                                                       PAR         5067     A     
 PAR                                                                                       PAR         5068     A     
 PAR       IAC      SUBR   0           ENTRY/EXIT..                                        PAR         5069     A     
 PAR                SA2    SCR+AC.W                                                        PAR         5070     A     
 PAR                LX2    -AC.CNTP                                                        PAR         5071     A     
 PAR                MX0    -AC.CNTL                                                        PAR         5072     A     
 PAR                SX7    X2+B1                                                           PAR         5073     A     
 PAR                ERRNZ  18-AC.CNTL                                                      PAR         5074     A     
 PAR                BX3    X0*X2       CLEAR PREVIOUS ARG COUNT                            PAR         5075     A     
 PAR                IX6    X3+X7       MERGE INCREMENTED COUNT                             PAR         5076     A     
 PAR                SA7    /CF/AC                                                          PAR         5077     A     
 PAR                LX6    AC.CNTP                                                         PAR         5078     A     
 PAR                BX2    X6                                                              PAR         5079     A     
 PAR                SA6    A2                                                              PAR         5080     A     
 PAR                EQ     EXIT.                                                           PAR         5081     A     
 PAR       MAD      SPACE  4,10                                                            PAR         5082     A     
 PAR      **        MAD - MARK ARGUMENT DEFINED.                                           PAR         5083     A     
 PAR      *                                                                                PAR         5084     A     
 PAR      *         WHEN AN ACTUAL ARGUMENT IS ADDRESSABLE, IT MAY BE REDEFINED BY         PAR         5085     A     
 PAR      *         THE CALLED ROUTINE.  *MAD* SETS (WB.DEF) FOR SUCH ARGUMENTS,           PAR         5086     A     
 PAR      *         UNLESS THEY ARE (WB.NVAR).                                             PAR         5087     A     
 PAR      *                                                                                PAR         5088     A     
 PAR      *         ENTRY  (X5) = OPERAND TO BE MARKED.                                    PAR         5089     A     
 PAR      *                                                                                PAR         5090     A     
 PAR      *         EXIT   (X7, A7) = SYMTAB ENTRY FOR OPERAND.                            PAR         5091     A     
 PAR      *                                                                                PAR         5092     A     
 PAR      *         USES   ...                                                             PAR         5093     A     
 PAR                                                                                       PAR         5094     A     
 PAR                                                                                       PAR         5095     A     
 PAR       MAD      SUBR   0           ENTRY/EXIT...                                       PAR         5096     A     
 PAR                RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY                    PAR         5097     A     
 PAR                NZ     X6,EXIT.    IF NOT CALL-BY-REFERENCE ARGUMENT                   PAR         5098     A     
 PAR                CLAS=  X3,WB,(DEF)                                                     PAR         5099     A     
 PAR                BX7    X3+X2                                                           PAR         5100     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5101     A     
 PAR                HX2    WB.NVAR                                                         PAR         5102     A     
 PAR                BX3    X1-X2                                                           PAR         5103     A     
 PAR                PL     X3,"BLOWUP" IF (VAR .EQV. NVAR)                                 PAR         5104     A     
 PAR       .T       ENDIF                                                                  PAR         5105     A     
 PAR                PL     X1,EXIT.    IF ARG IS NOT KNOWN AS VARIABLE                     PAR         5106     A     
 PAR                SA7    A2                                                              PAR         5107     A     
 PAR                EQ     EXIT.                                                           PAR         5108     A     
 PAR       SSA      SPACE  4,20                                                            PAR         5109     A     
 PAR      **        SSA -  STACK SUBPROGRAM ARGUMENT.                                      PAR         5110     A     
 PAR      *                                                                                PAR         5111     A     
 PAR      *         NOTE EXTREMELY DIRTY KLUDGE FOR STATEMENT LABEL PARAMETER --           PAR         5112     A     
 PAR      *         PAR.MULT SET IT'S MODE = 7, SO WE COULD RECOGNIZE IT.                  PAR         5113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR         5114     A     
 PAR      *         ENTRY  (X5) = OPERAND FOR THIS ARGUMENT.                               PAR         5115     A     
 PAR                                                                                       PAR         5116     A     
 PAR                                                                                       PAR         5117     A     
 PAR       SSA      SUBR   0           ENTRY/EXIT...                                       PAR         5118     A     
 PAR                MX0    -TP.MODEL                                                       PAR         5119     A     
 PAR                LX0    TP.MODEP                                                        PAR         5120     A     
 PAR                BX2    -X0*X5      (X2) = MODE OF ARG                                  PAR         5121     A     
 PAR                BX1    X0+X2                                                           PAR         5122     A     
 PAR                ERRNZ  7-N.TYPE                                                        PAR         5123     A     
 PAR                ERRNZ  TP.MODEL-3                                                      PAR         5124     A     
 PAR                =B6    B6-1        REMOVE ARG FROM ESTACK                              PAR         5125     A     
 PAR                ZR     X1,SSA2     IF MODE = ALL BITS, ARG IS LABEL                    PAR         5126     A     
 PAR                BX6    X5                                                              PAR         5127     A     
 PAR                ADDWD  T.ARG                                                           PAR         5128     A     
 PAR                RJ     MAD         MARK ARGUMENT DEFINED                               PAR         5129     A     
 PAR                EQ     EXIT.                                                           PAR         5130     A     
 PAR                                                                                       PAR         5131     A     
 PAR       SSA2     BX6    X0*X5       REMOVE WEIRD MODE                                   PAR         5132     A     
 PAR                ADDWD  T.SLARG                                                         PAR         5133     A     
 PAR                EQ     EXIT.                                                           PAR         5134     A     
 PAR       TXI      SPACE  4,10                                                            PAR         5135     A     
 PAR      **        TXI - TAG EXTERNAL INTRINSIC.                                          PAR         5136     A     
 PAR      *                                                                                PAR         5137     A     
 PAR      *         ENTRY  (X1) = INTRINSIC TABLE ENTRY.                                   PAR         5138     A     
 PAR      *                (X2) = CALLING SEQUENCE (SEE FUNI MACRO).                       PAR         5139     A     
 PAR      *                (/CF/IT) = INTRINSIC TABLE INDEX.                               PAR         5140     A     
 PAR      *                                                                                PAR         5141     A     
 PAR      *         EXIT   (/CF/TP) = ROUTINE TAG (OPERAND).                               PAR         5142     A     
 PAR      *                (/CF/IE) = INTRINSIC TABLE ENTRY.                               PAR         5143     A     
 PAR      *                (SMOD) = RESULT MODE OF FUNCTION.                               PAR         5144     A     
 PAR      *                NAME ENTERED IN SYMTAB.                                         PAR         5145     A     
 PAR      *                                                                                PAR         5146     A     
 PAR      *         IF TRACEBACK IS NOT SELECTED, SUBSTITUTE THE CALL-BY-VALUE             PAR         5147     A     
 PAR      *         FUNCTION NAME.                                                         PAR         5148     A     
 PAR                                                                                       PAR         5149     A     
 PAR                                                                                       PAR         5150     A     
 PAR       TXI      SUBR   0           ENTRY/EXIT...                                       PAR         5151     A     
 PAR                SA3    X2                                                              PAR         5152     A     
 PAR                BX7    X1          (CF/IE) = TABLE ENTRY                               PAR         5153     A     
 PAR                MX0    IT.DPCL                                                         PAR         5154     A     
 PAR                HX1    IT.DPC                                                          PAR         5155     A     
 PAR                BX6    X3          (CF/APL) = APLIST OPERATOR                          PAR         5156     A     
 PAR                UX2,B2             (B2) = FUNCTION TYPE FOR (WC.FUNT)                  PAR         5157     A     
 PAR                SA7    /CF/IE                                                          PAR         5158     A     
 PAR                BX4    X0*X1       EXTRACT (X4) = SPECIFIC NAME                        PAR         5159     A     
 PAR                SA6    /CF/APL                                                         PAR         5160     A     
 PAR                LX2    30                                                              PAR         5161     A     
 PAR                SA3    X2                                                              PAR         5162     A     
 PAR                SX5    B2                                                              PAR         5163     A     
 PAR                BX7    X3          (CF/RJ) = FUNCTION CALL OPERATOR                    PAR         5164     A     
 PAR                UX2,B7             (B7) = SUFFIX CHARACTER                             PAR         5165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MX0    -6                                                              PAR         5166     A     
 PAR                SA7    /CF/RJ                                                          PAR         5167     A     
 PAR                SB2    IT.DPCP                                                         PAR         5168     A     
 PAR       TXI2     LX6    X0,B2       POSITION CHARACTER MASK                             PAR         5169     A     
 PAR                BX2    -X6*X4                                                          PAR         5170     A     
 PAR                SB2    B2+6                                                            PAR         5171     A     
 PAR                ZR     X2,TXI2     IF NO SIGNIFICANT CHARACTER YET                     PAR         5172     A     
 PAR                SB2    B2-2*6                                                          PAR         5173     A     
 PAR                SA3    WO.CS       COLLATE FIXED/USER FLAG                             PAR         5174     A     
 PAR                =X0    1                                                               PAR         5175     A     
 PAR                BX3    X0-X3       FIXED = 1, USER = ZERO                              PAR         5176     A     
 PAR                LX3    IT.CHARP                                                        PAR         5177     A     
 PAR                BX0    X3*X1                                                           PAR         5178     A     
 PAR                ZR     X0,TXI1     IF NOT COLLATE = FIXED AND CHAR OR ICHAR RE         PAR         5179     A     
 PAR                SB7    B7+0600B    2RF:                                                PAR         5180     A     
 PAR                SB2    B2-6                                                            PAR         5181     A     
 PAR                                                                                       PAR         5182     A     
 PAR       TXI1     SX2    B7                                                              PAR         5183     A     
 PAR                LX2    B2          MOVE SUFFIX TO LAST EMPTY CHAR SLOT                 PAR         5184     A     
 PAR                BX1    X2+X4       APPEND SUFFIX TO NAME                               PAR         5185     A     
 PAR                TAGSEX A1          TAG SYSTEM EXTERNAL                                 PAR         5186     A     
 PAR                CLAS=  X1,WB,(NVAR,EXT,CGS,FUN,DEF)                                    PAR         5187     A     
 PAR                SA6    /CF/TP                                                          PAR         5188     A     
 PAR                SA3    /CF/IT                                                          PAR         5189     A     
 PAR                BX7    X1+X2       MERGE FUNC ATTRIBUTES ONTO NEW SYMBOL (WB)          PAR         5190     A     
 PAR                SA4    /CF/IE                                                          PAR         5191     A     
 PAR                MX6    -IT.MODEL                                                       PAR         5192     A     
 PAR                LX3    WB.JPFP                                                         PAR         5193     A     
 PAR                BX7    X7+X3       SET (WB.JPF) = INTRINSIC TABLE INDEX                PAR         5194     A     
 PAR                LX4    -IT.MODEP                                                       PAR         5195     A     
 PAR                BX6    -X6*X4                                                          PAR         5196     A     
 PAR                SA6    SMOD        SET (SMOD) = RESULT MODE                            PAR         5197     A     
 PAR                LX6    WB.MODEP                                                        PAR         5198     A     
 PAR                BX7    X7+X6       SET (WB.MODE) = RESULT MODE                         PAR         5199     A     
 PAR                ERRMI  IT.MODEL-WB.MODEL                                               PAR         5200     A     
 PAR                SA7    A2          UPDATE SYMTAB (WB)                                  PAR         5201     A     
 PAR                                                                                       PAR         5202     A     
 PAR                SB2    X5-MF.BEF                                                       PAR         5203     A     
 PAR                LX5    WC.FUNTP-WC.BRPP                                                PAR         5204     A     
 PAR                MX1    -IT.JPADL                                                       PAR         5205     A     
 PAR                BX6    0           CLEN = 0                                            PAR         5206     A     
 PAR                LX4    IT.MODEP-IT.JPADP                                               PAR         5207     A     
 PAR                NZ     B2,TXI6     IF NOT A CALL-BY-VALUE FUNC                         PAR         5208     A     
 PAR                BX2    -X1*X4      EXTRACT (X2) = B-REGISTERS PRESERVED                PAR         5209     A     
 PAR                BX5    X2+X5                                                           PAR         5210     A     
 PAR       TXI6     LX5    WC.BRPP     (X5) = SYMTAB (WC.)[FUNT, BRP]                      PAR         5211     A     
 PAR                SA3    SMOD                                                            PAR         5212     A     
 PAR                SB2    X3-M.CHAR                                                       PAR         5213     A     
 PAR                NZ     B2,TXI7     IF RESULT MODE NOT CHARACTER                        PAR         5214     A     
 PAR                SX6    B1          CLEN = 1                                            PAR         5215     A     
 PAR                LX6    WC.CLENP                                                        PAR         5216     A     
 PAR                                                                                       PAR         5217     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       TXI7     BX6    X5+X6                                                           PAR         5218     A     
 PAR                =A6    A2-WB.W+WC.W                                                    PAR         5219     A     
 PAR                EQ     EXIT.                                                           PAR         5220     A     
 PAR       VAM      SPACE  4,10                                                            PAR         5221     A     
 PAR      **        VAM -  VALIDATE ARGUMENT MODE AGREEMENT FOR INTRINSICS.                PAR         5222     A     
 PAR      *                                                                                PAR         5223     A     
 PAR      *         ENTRY  (X5) = ARGUMENT TO CHECK.                                       PAR         5224     A     
 PAR      *                (A2,X2) = LOGICAL (ARGCOMA).                                    PAR         5225     A     
 PAR      *                (A2)-AC.W+AS.W -> LOGICAL (ARGMIS).                             PAR         5226     A     
 PAR      *                                                                                PAR         5227     A     
 PAR      *         EXIT   (X7) = MODE OF ARGUMENT.                                        PAR         5228     A     
 PAR      *                (A2) -> LOGICAL (ARGCOMA) UPDATED IF FIRST ARG.                 PAR         5229     A     
 PAR      *                (FILL.) = FUNCTION NAME.                                        PAR         5230     A     
 PAR      *                                                                                PAR         5231     A     
 PAR      *         USES   A3,6   X0-3,X6-7   B7.                                          PAR         5232     A     
 PAR      *         CALLS  FATAL.                                                          PAR         5233          I
          -FC5A411
 PAR                                                                                       PAR         5234     A     
 PAR                                                                                       PAR         5235     A     
 PAR       VAM      SUBR               ENTRY/EXIT...                                       PAR         5236     A     
 PAR                MX0    -TP.MODEL                                                       FC5A411       47     A     
 PAR                LX5    -TP.MODEP                                                       FC5A411       48     A     
 PAR                BX3    -X0*X5      EXTRACT ARGUMENT MODE                               FC5A411       49     A     
 PAR                LX5    TP.MODEP                                                        FC5A411       50     A     
 PAR                CLAS=  X6,AC,(BOOL)                                                    FC5A411       51     A     
 PAR                NZ     X3,VAM0     IF ARGUMENT NOT BOOLEAN                             FC5A411       52     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411       53     A     
 PAR                BX2    X6+X2       INDICATE BOOLEAN ARGUMENT                           FC5A411       54     A     
 PAR                                                                                       FC5A411       55     A     
 PAR       VAM0     LX2    -AC.MAXMP                                                       FC5A411       56     A     
 PAR                BX6    -X0*X2      EXTRACT MAXIMUM ARGUMENT                            FC5A411       57     A     
 PAR                BX2    X0*X2       CLEAR MAXIMUM ARGUMENT                              FC5A411       58     A     
 PAR                MX0    X6+X3                                                           FC5A411       59     A     
 PAR                BX6    X2+X0       INSERT MAXIMUM MODE [THUS FAR]                      FC5A411       60     A     
 PAR                LX6    AC.MAXMP                                                        FC5A411       61     A     
 PAR                SA6    A2          UPDATE ARGCOMA                                      FC5A411       62     A     
 PAR                BX2    X6                                                              FC5A411       63     A     
 PAR                SA3    T.SYM                                                           PAR         5237     A     
 PAR                SB7    X3+WB.W                                                         PAR         5238     A     
 PAR                =A3    A2-AC.W+AS.W                                                    PAR         5239     A     
 PAR                MX7    -AS.ORDL                                                        PAR         5240     A     
 PAR                BX6    X3                                                              PAR         5241     A     
 PAR                LX6    -AS.ORDP                                                        PAR         5242     A     
 PAR                BX7    -X7*X6      ORD[ARGMIS] = TAG(FUNCTION)                         PAR         5243     A     
 PAR                LX6    B1,X7                                                           PAR         5244     A     
 PAR                IX1    X6+X7                                                           PAR         5245     A     
 PAR                MX7    AS.SYML                                                         PAR         5246     A     
 PAR                HX3    AS.SYM                                                          PAR         5247     A     
 PAR                BX6    X7*X3       SET (FILL.) = FUNCTION NAME                         PAR         5248     A     
 PAR                LX2    -AC.CNTP                                                        PAR         5249     A     
 PAR                SA6    FILL.                                                           PAR         5250     A     
 PAR                SA3    B7+X1       WB(FUNCTION)                                        PAR         5251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                HX3    WB.GENF                                                         PAR         5252     A     
 PAR                BX1    X5                                                              PAR         5253     A     
 PAR                LX1    -TP.MODEP                                                       PAR         5254     A     
 PAR                MX0    -TP.MODEL                                                       PAR         5255     A     
 PAR                BX7    -X0*X1      MODE OF ARGUMENT                                    PAR         5256     A     
 PAR                MI     X3,VAM1     IF GENERIC FUNCTION                                 PAR         5257     A     
 PAR                MX0    -WB.JPFL                                                        PAR         5258     A     
 PAR                LX3    WB.GENFP+1-WB.JPFP                                              PAR         5259     A     
 PAR                BX0    -X0*X3                                                          PAR         5260     A     
 PAR                SA3    F.INTF+X0                                                       PAR         5261     A     
 PAR                MX0    -IT.ARGML                                                       PAR         5262     A     
 PAR                LX3    -IT.ARGMP                                                       PAR         5263     A     
 PAR                BX3    -X0*X3      ARGM[INTF(JPF[WB(FUNCTION)])]  REQUIRED MOD         PAR         5264     A     
 PAR                ZR     X3,VAM10    IF ARGM NOT M.BOOL                                  PAR         5265          I
          -FC5A411
 PAR                ZR     X3,VAM10    IF ARGM = M.BOOL                                    FC5A411       64     A     
 PAR                ERRNZ  M.BOOL                                                          PAR         5266     A     
 PAR                                                                                       PAR         5267     A     
 PAR       VAM1     SB7    X2                                                              PAR         5268     A     
 PAR                ERRNZ  18-AC.CNTL                                                      PAR         5269     A     
 PAR                GT     B7,B1,VAM2  IF NOT FIRST ARG                                    PAR         5270     A     
 PAR                LX2    AC.CNTP-AC.MODEP                                                PAR         5271     A     
 PAR                BX6    X7+X2       SET (AC.MODE) = MODE OF FIRST ARG                   PAR         5272     A     
 PAR                LX6    AC.MODEP                                                        PAR         5273     A     
 PAR                SA6    A2                                                              PAR         5274     A     
 PAR                EQ     EXIT.                                                           PAR         5275     A     
 PAR                                                                                       PAR         5276     A     
 PAR       VAM2     LX2    AC.CNTP-AC.MODEP                                                PAR         5277     A     
 PAR                SX2    X2          (X2) = REQUIRED MODE OF ARG                         PAR         5278     A     
 PAR                ERRNZ  18-AC.MODEL                                                     PAR         5279     A     
 PAR                BX0    X7-X2                                                           PAR         5280     A     
 PAR                ZR     X0,EXIT.    IF MODE AGREEMENT                                   PAR         5281     A     
 PAR                =X0    0                                                               PAR         5282     A     
 PAR                ZR     X2,VAM10    IF REQUIRED MODE TYPELESS                           PAR         5283     A     
 PAR                NZ     X7,VAM4     IF ACTUAL ARG NOT BOOLEAN                           PAR         5284     A     
 PAR                SX2    X2-M.CHAR                                                       PAR         5285     A     
 PAR                NZ     X2,EXIT.    IF DEFINED MODE NOT CHARACTER                       PAR         5286     A     
 PAR                                                                                       PAR         5287     A     
 PAR       VAM4     FATAL  E.SU03      WRONG ARGUMENT MODE                                 PAR         5288     A     
 PAR                SX7    M.BOOL      MODE BITS = BOOLEAN                                 PAR         5289     A     
 PAR                EQ     EXIT.                                                           PAR         5290     A     
 PAR                                                                                       PAR         5291     A     
 PAR       VAM10    SX0    X7-M.CHAR                                                       PAR         5292     A     
 PAR                ZR     X0,VAM4     IF THIS ARGUMENT MODE IS CHARACTER                  PAR         5293     A     
 PAR                EQ     EXIT.                                                           PAR         5294     A     
 PAR       VEL      SPACE  4,20                                                            PAR         5295     A     
 PAR      **        VEL -  VALIDATE ARGUMENT LIST FOR EXTERNAL.                            PAR         5296     A     
 PAR      *                                                                                PAR         5297     A     
 PAR      *         ENTRY  (X7) = NUMBER OF ARGUMENTS.                                     PAR         5298     A     
 PAR      *                (X4) = CURRENT ROUTINE TAG.                                     PAR         5299     A     
 PAR      *                                                                                PAR         5300     A     
 PAR      *         EXIT   IF 1ST REFERENCE,                                               PAR         5301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      ** FV - RE-WRITE THIS MESS.                                                      PAR         5302     A     
 PAR      *                   SYMTAB (WC.ARGC, WB.DEF) SET.                                PAR         5303     A     
 PAR      *                   ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*.                   PAR         5304     A     
 PAR      *                IF NOT 1ST REFERENCE,                                           PAR         5305     A     
 PAR      *                   ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*.                   PAR         5306     A     
 PAR      *                   ARGUMENT COUNT CHECKED AGAINST (WC.ARGC).                    PAR         5307     A     
 PAR      *                (CF/APL) = OPERATOR FOR USER AP LIST.                           PAR         5308     A     
 PAR      *                (SMOD) = MODE OF ROUTINE.                                       PAR         5309     A     
 PAR      *                (X3) = PRESERVED.                                               PAR         5310     A     
 PAR      *                (A4) = ADDRESS OF SYMTAB (WB) OF ROUTINE.                       PAR         5311     A     
 PAR      *                                                                                PAR         5312     A     
 PAR      *         USES   X0-4,X6-7    A1-4,A6-7    B2-3,B7.                              PAR         5313     A     
 PAR      *                (FILL.)                                                         PAR         5314     A     
 PAR      *         CALLS  FATAL, FSA.                                                     PAR         5315     A     
 PAR                                                                                       PAR         5316     A     
 PAR                                                                                       PAR         5317     A     
 PAR       VEL      SUBR   =           ENTRY/EXIT...                                       PAR         5318     A     
 PAR                BX6    X4          SET (CF/TP) = OPERAND FOR ROUTINE                   PAR         5319     A     
 PAR                SA3    GAPOP                                                           PAR         5320     A     
 PAR                MX0    -TP.MODEL                                                       PAR         5321     A     
 PAR                BX1    X6                                                              PAR         5322     A     
 PAR                SA6    /CF/TP                                                          PAR         5323     A     
 PAR                BX4    X7          (X4) = NUMBER OF ARGS                               PAR         5324     A     
 PAR                LX6    -TP.MODEP                                                       PAR         5325     A     
 PAR                BX7    -X0*X6      SET (SMOD) = RESULT MODE                            PAR         5326     A     
 PAR                LX6    X3          SET (CF/APL) FOR USER ARGLIST                       PAR         5327     A     
 PAR                SA7    SMOD                                                            PAR         5328     A     
 PAR                SA6    /CF/APL                                                         PAR         5329     A     
 PAR                RJ     FSA         FIND SYMBOL ATTRIBUTES                              PAR         5330     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5331     A     
 PAR                MI     B7,"BLOWUP"       IF NOT IN SYMTAB                              PAR         5332     A     
 PAR                MI     X1,"BLOWUP"       IF SYMTAB HAS *VAR* SET                       PAR         5333     A     
 PAR                LX1    WB.VARP-WB.NVARP                                                PAR         5334     A     
 PAR                PL     X1,"BLOWUP"       IF *NVAR* NOT SET                             PAR         5335     A     
 PAR                CLAS=  X1,WB,(FUN,SUB)                                                 PAR         5336     A     
 PAR                BX1    X1*X2                                                           PAR         5337     A     
 PAR                ZR     X1,"BLOWUP"       IF NEITHER *FUN* NOR *SUB*                    PAR         5338     A     
 PAR       .T       ENDIF                                                                  PAR         5339     A     
 PAR                SX2    X4                                                              PAR         5340     A     
 PAR                CLAS=  X0,WB,(DEF)                                                     PAR         5341     A     
 PAR                SA4    A2          FETCH (X4) = SYMTAB WORD (WB)                       PAR         5342     A     
 PAR                =A1    A2-WB.W+WC.W                                                    PAR         5343     A     
 PAR                BX6    X0*X4                                                           PAR         5344     A     
 PAR                SB2    X2-MAX.SARG                                                     PAR         5345     A     
 PAR                NZ     X6,VEL30    IF ALREADY DEFINED                                  PAR         5346     A     
 PAR                LX2    WC.ARGCP                                                        PAR         5347     A     
 PAR                BX7    X4+X0       SET DEFINED BIT                                     PAR         5348     A     
 PAR                IX6    X2+X1       SET ARGUMENT COUNT                                  PAR         5349     A     
 PAR                SB7    E.SU08      TOO MANY ARGUMENTS                                  PAR         5350     A     
 PAR                GT     B2,VEL50    IF NARGS .GT. MAX                                   PAR         5351     A     
 PAR                SA6    A1                                                              PAR         5352     A     
 PAR                SA7    A4          UPDATE SYMTAB ENTRY (WC + WB)                       PAR         5353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     EXIT.                                                           PAR         5354     A     
 PAR                                                                                       PAR         5355     A     
 PAR                                                                                       PAR         5356     A     
 PAR      *         HERE IF NOT 1ST REFERENCE TO EXTERNAL.                                 PAR         5357     A     
 PAR      *                (X2) = ARGUMENT COUNT.                                          PAR         5358     A     
 PAR                                                                                       PAR         5359     A     
 PAR       VEL30    MX0    -WC.ARGCL                                                       PAR         5360     A     
 PAR                LX1    -WC.ARGCP                                                       PAR         5361     A     
 PAR                BX0    -X0*X1      ISOLATE (X1) = PREVIOUS ARGUMENT COUNT              PAR         5362     A     
 PAR                SB7    E.SU02      ARGUMENT COUNT INCONSISTENT                         PAR         5363     A     
 PAR                IX6    X0-X2                                                           PAR         5364     A     
 PAR                NZ     X6,VEL50    IF ARGUMENT COUNT NON-AGREEMENT                     PAR         5365     A     
 PAR                SB7    E.SU08      TOO MANY ARGUMENTS                                  PAR         5366     A     
 PAR                LE     B2,EXIT.    IF DOES NOT EXCEED COMPILER DEFINED LIMITS          PAR         5367     A     
 PAR                                                                                       PAR         5368     A     
 PAR      *         ARGUMENT COUNT DOES NOT AGREE WITH FIRST USAGE.                        PAR         5369     A     
 PAR                                                                                       PAR         5370     A     
 PAR                                                                                       PAR         5371     A     
 PAR       VEL50    =A2    A4-WB.W+WA.W      LOAD SYMBOL WORD                              PAR         5372     A     
 PAR                MX1    WA.SYML                                                         PAR         5373     A     
 PAR                BX6    X1*X2                                                           PAR         5374     A     
 PAR                SA6    FILL.                                                           PAR         5375     A     
 PAR                FATAL  B7                                                              PAR         5376     A     
 PAR                EQ     EXIT.                                                           PAR         5377     A     
 PAR       VIL      SPACE  4,20                                                            PAR         5378     A     
 PAR      **        VIL - VALIDATE INTRINSIC LIST.                                         PAR         5379     A     
 PAR      *                                                                                PAR         5380     A     
 PAR      *         CHECKS FOR CORRECT ARGUMENT COUNT:  REQUIRED ARG COUNT MUST BE         PAR         5381     A     
 PAR      *         EXACTLY EQUAL TO ACTUAL ARG COUNT, EXCEPT WHEN --                      PAR         5382     A     
 PAR      *         (A)  IF FUNCTION PERMITS AN INDEFINITE NUMBER OF ARGUMENTS,            PAR         5383     A     
 PAR      *                THE ACTUAL COUNT MUST BE >= TWO.                                PAR         5384     A     
 PAR      *         (B)  IF FUNCTION NAME IS 'CMPLX' (WHOSE REQUIRED ARG COUNT IS          PAR         5385     A     
 PAR      *                SPECIFIED IN PARSKEL/F.INTF AS TWO), THEN ACTUAL COUNT          PAR         5386     A     
 PAR      *                CAN BE = ONE.  IF SO, CHANGE THE INTRINSIC INDEX TO             PAR         5387     A     
 PAR      *                REFER TO 'CPLX$', WHICH IS ASSUMED TO BE THE IMMEDIA-           PAR         5388     A     
 PAR      *                TELY PRECEEDING ENTRY.                                          PAR         5389     A     
 PAR      *                                                                                PAR         5390     A     
 PAR      *         IF THIS INTRINSIC IS MARKED AS GENERIC, VIL IS RESPONSIBLE FOR         PAR         5391     A     
 PAR      *         SELECTING A SPECIFIC FUNCTION BASED ON ACTUAL ARGUMENT MODE.           PAR         5392     A     
 PAR      *         ALL DOWN-STREAM PROCESSORS WORK SOLELY WITH MODE-SPECIFIC              PAR         5393     A     
 PAR      *         INTRINSICS (EXCEPT 'CMPLX', SEE ESF).                                  PAR         5394     A     
 PAR      *                                                                                PAR         5395     A     
 PAR      *         CHECK VALIDITY OF ARGUMENT MODE.  ACTUAL AND REQUIRED MUST             PAR         5396     A     
 PAR      *         MATCH EXACTLY, EXCEPT WHEN --                                          PAR         5397     A     
 PAR      *         (A)  REQUIRED = BOOLEAN.  ACTUAL CAN BE ANYTHING EXECPT                PAR         5398     A     
 PAR      *                DOUBLE, COMPLEX, OR CHARACTER.                                  PAR         5399     A     
 PAR      *         (B)  REQUIRED = INTEGER.  ACTUAL CAN BE BOOLEAN, WHICH IS              PAR         5400     A     
 PAR      *                TREATED AS AN INTEGER.                                          PAR         5401     A     
 PAR      *         (C)  INTRINSIC IS GENERIC.                                             PAR         5402     A     
 PAR      *                                                                                PAR         5403     A     
 PAR      *         FOR SOME INDEFINITE ARG COUNT INTRINSICS, THE COMPUTATION IS           PAR         5404     A     
 PAR      *         PERFORMED IN THE MODE OF THE ARGUMENTS, AND THEN POST-COERCED          PAR         5405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         TO THE RESULT MODE.  VIL SEARCHES THE LIST AT (SKEL/F.IMCV) TO         PAR         5406     A     
 PAR      *         DETERMINE IF THIS IS SUCH A FUNCTION.  IF SO, LEAVE (SMOD) SET         PAR         5407     A     
 PAR      *         TO ARGUMENT MODE, AND SET (CF/MA) FLAG.                                PAR         5408     A     
 PAR      *                                                                                PAR         5409     A     
 PAR      *         IF BOOLEAN ARGUMENTS OCCUR, TREAT AS FOLLOWS:                          FC5A411       65     A     
 PAR      *                                                                                FC5A411       66     A     
 PAR      *              1.  IF INTRINSIC TYPE IS BOOLEAN, ARGUMENTS ARE UNCHANGED.        FC5A411       67     A     
 PAR      *                                                                                FC5A411       68     A     
 PAR      *              2.  IF ONLY ONE ARGUMENT [BOOLEAN]:                               FC5A411       69     A     
 PAR      *                  A. IF GENERIC INTRINSIC:                                      FC5A411       70     A     
 PAR      *                     (1) IF INTEGER IS LEGAL, TREAT AS INTEGER [EXCEPT          FC5A411       71     A     
 PAR      *                         INTRINSIC FUNCTIONS DBLE, REAL, CMPLX].                FC5A411       72     A     
 PAR      *                     (2) OTHERWISE, TREAT AS REAL.                              FC5A411       73     A     
 PAR      *                  B. IF SPECIFIC INTRINSIC, TREAT AS REQUIRED MODE.             FC5A411       74     A     
 PAR      *                                                                                FC5A411       75     A     
 PAR      *              3.  IF MORE THAN ONE ARGUMENT [AT LEAST ONE ARGUMENT IS           FC5A411       76     A     
 PAR      *                  BOOLEAN]:                                                     FC5A411       77     A     
 PAR      *                  A. IF GENERIC INTRINSIC:                                      FC5A411       78     A     
 PAR      *                     (1) IF ALL ARGUMENTS BOOLEAN, TREAT AS INTEGER             FC5A411       79     A     
 PAR      *                         [EXCEPT CMPLX].                                        FC5A411       80     A     
 PAR      *                     (2) OTHERWISE, CONVERT BOOLEAN ARGUMENTS TO HIGHEST        FC5A411       81     A     
 PAR      *                         ARGUMENT MODE.                                         FC5A411       82     A     
 PAR      *                  B. IF SPECIFIC INTRINSIC, TREAT BOOLEAN ARGUMENTS AS          FC5A411       83     A     
 PAR      *                     REQUIRED MODE.                                             FC5A411       84     A     
 PAR      *                                                                                FC5A411       85     A     
 PAR      *         ENTRY  (X5) = OPERAND FOR LAST ARG.                                    PAR         5410     A     
 PAR      *                (CF/AC) = NUMBER OF ARGUMENTS IN THIS CALL.                     PAR         5411     A     
 PAR      *                (SMOD) = MODE OF ARGUMENTS.                                     PAR         5412     A     
 PAR      *                (SCR .. SCR+2) = (ARGMODE, ARGCNT, ARGMISC).                    PAR         5413     A     
 PAR      *                (FILL.) = FUNCTION NAME.                                        PAR         5414     A     
 PAR      *                                                                                PAR         5415     A     
 PAR      *         EXIT   IF FUNCTION NOT REDUCED --                                      PAR         5416     A     
 PAR      *                (X2) = INTRINSIC TABLE ENTRY OF SPECIFIC NAME.                  PAR         5417     A     
 PAR      *                (CF/IT) = INTRINSIC TABLE INDEX OF SPECIFIC NAME.               PAR         5418     A     
 PAR      *                (CF/MA) .ZR. = NO POST-EVALUATION CONVERSION REQUIRED.          PAR         5419     A     
 PAR      *                        .NZ. = (F.IMCV) ENTRY FOR THIS FUNCTION.                PAR         5420     A     
 PAR      *                (SMOD) = MODE FOR ISSUING FUNCTION TURPLES.                     PAR         5421     A     
 PAR      *                (AC.MODE) = RESULT MODE.                                        PAR         5422     A     
 PAR      *                                                                                PAR         5423     A     
 PAR      *         ELSE   TO *POPX* --                                                    PAR         5424     A     
 PAR      *                FUNCTION REDUCED.                                               PAR         5425     A     
 PAR      *                (ESTACK.TOP) = RESULT OPERAND.                                  PAR         5426     A     
 PAR      *                                                                                PAR         5427     A     
 PAR      *         USES   ALL BUT A0, B4,B5,B6.                                           PAR         5428     A     
 PAR      *         CALLS  CT1, FATAL.                                                     PAR         5429          I
          -FC5A411
 PAR      *                                                                                FC5A411       86     A     
 PAR      *         CALLS  CMR, CT1                                                        FC5A411       87     A     
 PAR                                                                                       PAR         5430     A     
 PAR                                                                                       PAR         5431     A     
 PAR       VIL      SUBR               ENTRY/EXIT...                                       PAR         5432     A     
 PAR                SA4    SCR+AS.W                                                        PAR         5433     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX7    0           (CF/MA) = 0                                         PAR         5434     A     
 PAR                LX4    -AS.ORDP                                                        PAR         5435     A     
 PAR                SX0    X4          EXTRACT (X0) = SYMORD OF FUNCTION                   PAR         5436     A     
 PAR                ERRNZ  18-AS.ORDL                                                      PAR         5437     A     
 PAR                SA7    /CF/MA                                                          PAR         5438     A     
 PAR                CALL   CT1         LOAD SYMTAB (WB)                                    PAR         5439     A     
 PAR                                                                                       FC5A411       88     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5440     A     
 PAR                CLAS=  X1,WB,(LAB,VAR)                                                 PAR         5441     A     
 PAR                BX3    X1*X2                                                           PAR         5442     A     
 PAR                NZ     X3,"BLOWUP"       IF SYMTAB ENTRY IS ILL                        PAR         5443     A     
 PAR                BX1    X2                                                              PAR         5444     A     
 PAR                HX1    WB.FUN                                                          PAR         5445     A     
 PAR                PL     X1,"BLOWUP"       IF SYMTAB ENTRY IS ILL                        PAR         5446     A     
 PAR       .T       ENDIF                                                                  PAR         5447     A     
 PAR                                                                                       FC5A411       89     A     
 PAR                MX0    -WB.JPFL                                                        PAR         5448     A     
 PAR                LX2    -WB.JPFP                                                        PAR         5449     A     
 PAR                SA4    A2          REMEMBER (A4,X4) = SYMTAB (WB)                      PAR         5450     A     
 PAR                BX3    -X0*X2      EXTRACT (X3) = FJ = INTRINSIC TABLE INDEX           PAR         5451     A     
 PAR                SA1    X3+F.INTF                                                       PAR         5452     A     
 PAR                SA2    /CF/AC                                                          PAR         5453     A     
 PAR                MX7    -IT.ARGCL                                                       PAR         5454     A     
 PAR                LX1    -IT.ARGCP                                                       PAR         5455     A     
 PAR                BX0    -X7*X1      EXTRACT (X0) = DEFINED ARGUMENT COUNT               PAR         5456     A     
 PAR                SB7    E.SU05      WRONG NUMBER OF ARGUMENTS                           PAR         5457     A     
 PAR                SB2    X2                                                              PAR         5458     A     
 PAR                BX7    X7+X0                                                           PAR         5459     A     
 PAR                SA7    VILA                                                            PAR         5460     A     
 PAR                NZ     X7,VIL40    IF INFINITE ARG COUNT NOT PERMITTED                 PAR         5461          I
          -FC5A411
 PAR                GT     B2,B1,VIL60 IF TWO OR MORE ARGUMENTS                            PAR         5462          I
          -FC5A411
 PAR                NZ     X7,VIL05    IF INFINITE ARG COUNT NOT PERMITTED                 FC5A411       90     A     
 PAR                GT     B2,B1,VIL15 IF TWO OR MORE ARGUMENTS                            FC5A411       91     A     
 PAR                SB7    E.SU09      NOT ENOUGH ARGUMENTS                                PAR         5463     A     
 PAR                EQ     VIL50       OUTPUT ERROR                                        PAR         5464          I
          -FC5A411
 PAR                EQ     VIL10       OUTPUT ERROR                                        FC5A411       92     A     
 PAR                                                                                       PAR         5465     A     
 PAR       VIL40    IX6    X0-X2                                                           PAR         5466          I
          -FC5A411
 PAR                ZR     X6,VIL60    IF ARGUMENT COUNT AGREEMENT                         PAR         5467          I
          -FC5A411
 PAR       VIL05    IX6    X0-X2                                                           FC5A411       93     A     
 PAR                ZR     X6,VIL15    IF ARGUMENT COUNT AGREEMENT                         FC5A411       94     A     
 PAR                SX2    B1+B1                                                           PAR         5468     A     
 PAR                SX7    OMI=CPX                                                         PAR         5469     A     
 PAR                IX6    X3-X7                                                           PAR         5470     A     
 PAR                NZ     X6,VIL50    IF FUNCTION NAME NOT 'CMPLX'                        PAR         5471          I
          -FC5A411
 PAR                NZ     X6,VIL10    IF FUNCTION NAME NOT 'CMPLX'                        FC5A411       95     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX3    X3-X2       FJ = FJ - 2                                         PAR         5472     A     
 PAR                EQ     B2,B1,VIL60 IF ACTUAL COUNT .EQ. 1                              PAR         5473          I
          -FC5A411
 PAR                EQ     B2,B1,VIL15 IF ACTUAL COUNT .EQ. 1                              FC5A411       96     A     
 PAR                                                                                       PAR         5474     A     
 PAR      *         ARGUMENT COUNT DOES NOT AGREE WITH ANSI SPEC.                          PAR         5475     A     
 PAR                                                                                       PAR         5476     A     
 PAR       VIL50    FATAL  B7                                                              PAR         5477          I
          -FC5A411
 PAR       VIL10    FATAL  B7                                                              FC5A411       97     A     
 PAR                SA2    F.INTF      SUBSTITUTE ERROR INTRINSIC                          PAR         5478     A     
 PAR                BX7    0                                                               PAR         5479     A     
 PAR                SA7    /CF/IT                                                          PAR         5480     A     
 PAR                EQ     EXIT.                                                           PAR         5481     A     
 PAR                                                                                       PAR         5482     A     
 PAR      *         SELECT SPECIFIC NAME, IF GENERIC.                                      PAR         5483     A     
 PAR      *                (X3) = FJ = INTRINSIC TABLE INDEX.                              PAR         5484     A     
 PAR      *                (X4) = SYMTAB (WB).                                             PAR         5485     A     
 PAR                                                                                       PAR         5486     A     
 PAR       VIL60    BSS                                                                    PAR         5487          I
          -FC5A411
 PAR       VIL15    BSS                                                                    FC5A411       98     A     
 PAR                                                                                       FC5A411       99     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5488     A     
 PAR                SX6    Z.INTF                                                          PAR         5489     A     
 PAR                IX6    X3-X6                                                           PAR         5490     A     
 PAR                PL     X6,"BLOWUP"       IF FJ .GE. INTRIN TABLE LENGTH                PAR         5491     A     
 PAR       .T       ENDIF                                                                  PAR         5492     A     
 PAR                                                                                       FC5A411      100     A     
 PAR                SA1    SCR+AC.W                                                        PAR         5493     A     
 PAR                HX1    AC.BOOL                                                         FC5A411      101     A     
 PAR                PL     X1,VIL60    IF NO BOOLEAN ARGUMENTS                             FC5A411      102     A     
 PAR                SA2    X3+F.INTF                                                       FC5A411      103     A     
 PAR                MX0    -IT.ARGML                                                       FC5A411      104     A     
 PAR                LX2    -IT.ARGMP                                                       FC5A411      105     A     
 PAR                BX2    -X0*X2      EXTRACT REQUIRED ARGUMENT MODE                      FC5A411      106     A     
 PAR                ZR     X2,VIL60    IF BOOLEAN                                          FC5A411      107     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      108     A     
 PAR                LX1    AC.BOOLL+AC.BOOLP                                               FC5A411      109     A     
 PAR                LX1    -AC.CNTP                                                        FC5A411      110     A     
 PAR                SB2    X1          EXTRACT ARGUMENT COUNT                              FC5A411      111     A     
 PAR                LX1    AC.CNTP-AC.MAXMP                                                FC5A411      112     A     
 PAR                SX5    X1          EXTRACT MAXIMUM MODE                                FC5A411      113     A     
 PAR                ERRNZ  18-AC.MAXML                                                     FC5A411      114     A     
 PAR                NE     B2,B1,VIL21 IF MORE THAN ONE ARGUMENT                           FC5A411      115     A     
 PAR                                                                                       FC5A411      116     A     
 PAR      *         FIRST TEST FOR GENERIC FUNCTION, IF SO CONVERT APPROPRIATLY.           FC5A411      117     A     
 PAR                                                                                       FC5A411      118     A     
 PAR                LX1    X4                                                              FC5A411      119     A     
 PAR                SBIT   X1,WB.GENFP                                                     FC5A411      120     A     
 PAR                PL     X1,VIL19    IF NOT GENERIC                                      FC5A411      121     A     
 PAR                SA1    FILL.       SAVED FUNCTION NAME                                 FC5A411      122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA2    =4LREAL                                                         FC5A411      123     A     
 PAR                IX2    X1-X2                                                           FC5A411      124     A     
 PAR                ZR     X2,VIL16    IF INTRINSIC REAL                                   FC5A411      125     A     
 PAR                SA2    =4LDBLE                                                         FC5A411      126     A     
 PAR                IX2    X1-X2                                                           FC5A411      127     A     
 PAR                ZR     X2,VIL16    IF INTRINSIC DBLE                                   FC5A411      128     A     
 PAR                SA2    =5LCMPLX                                                        FC5A411      129     A     
 PAR                IX2    X1-X2                                                           FC5A411      130     A     
 PAR                NZ     X2,VIL17    IF NOT INTRINSIC CMPLX                              FC5A411      131     A     
 PAR                                                                                       FC5A411      132     A     
 PAR       VIL16    SA1    B6-1        FETCH ARGUMENT                                      FC5A411      133     A     
 PAR                SX6    M.REAL                                                          FC5A411      134     A     
 PAR                EQ     VIL20                                                           FC5A411      135     A     
 PAR                                                                                       FC5A411      136     A     
 PAR       VIL17    SA1    X3+1+F.INTF  GENERIC SELECTION VECTOR                           FC5A411      137     A     
 PAR                SB7    M.INT*8     SHIFT FOR INTEGER                                   FC5A411      138     A     
 PAR                SX6    M.REAL                                                          FC5A411      139     A     
 PAR                MX0    -8                                                              FC5A411      140     A     
 PAR                BX0    -X0*X1      VECTOR FOR INTEGER                                  FC5A411      141     A     
 PAR                SA1    B6-1        FETCH ARGUMENT                                      FC5A411      142     A     
 PAR                SX0    X0-1S8+1                                                        FC5A411      143     A     
 PAR                ZR     X0,VIL20    IF INTEGER NOT ALLOWED [TREAT AS REAL]              FC5A411      144     A     
 PAR                SX6    M.INT                                                           FC5A411      145     A     
 PAR                EQ     VIL20                                                           FC5A411      146     A     
 PAR                                                                                       FC5A411      147     A     
 PAR      *         ONE ARGUMENT, CONVERT TO REQUIRED MODE (NOT GENERIC)                   FC5A411      148     A     
 PAR                                                                                       FC5A411      149     A     
 PAR       VIL19    =A1    B6-1        FETCH ARGUMENT                                      FC5A411      150     A     
 PAR                BX6    X2          REQUIRED MODE                                       FC5A411      151     A     
 PAR                SX2    X2-M.DBL                                                        FC5A411      152     A     
 PAR                MI     X2,VIL20    IF NOT DBL OR CMPLX                                 FC5A411      153     A     
 PAR                LX5    X1          OPERAND                                             FC5A411      154     A     
 PAR                RJ     CMR         COERCE MODE TO REQUIRED                             FC5A411      155     A     
 PAR                SA1    SCR+AS.W                                                        FC5A411      156     A     
 PAR                LX1    -AS.ORDP                                                        FC5A411      157     A     
 PAR                SX0    X1          EXTRACT INTRINSIC SYMTAB ORDINAL                    FC5A411      158     A     
 PAR                ERRNZ  18-AS.ORDL                                                      FC5A411      159     A     
 PAR                CALL   CT1         LOAD SYMTAB WB.                                     FC5A411      160     A     
 PAR                SA4    A2          RESTORE (A4, X4) TO WB. OF INTRINSIC                FC5A411      161     A     
 PAR                =A1    B6-1        REFETCH ORIGINAL ARGUMENT                           FC5A411      162     A     
 PAR                MX6    -TP.MODEL                                                       FC5A411      163     A     
 PAR                LX5    -TP.MODEP                                                       FC5A411      164     A     
 PAR                BX6    -X6*X5      EXTRACT MODE                                        FC5A411      165     A     
 PAR                                                                                       FC5A411      166     A     
 PAR       VIL20    BX7    X1+X6       MERGE IN PROPER MODE                                FC5A411      167     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      168     A     
 PAR                SA7    A1+         UPDATE                                              FC5A411      169     A     
 PAR                LX5    X7          RESTORE ARGUMENT                                    FC5A411      170     A     
 PAR                SA1    SCR+AC.W                                                        FC5A411      171     A     
 PAR                LX6    AC.MODEP                                                        FC5A411      172     A     
 PAR                BX6    X1+X6       MERGE IN CONVERTED MODE                             FC5A411      173     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    A1+         UPDATE                                              FC5A411      175     A     
 PAR                EQ     VIL60                                                           FC5A411      176     A     
 PAR                                                                                       FC5A411      177     A     
 PAR      *         TWO OR MORE ARGUMENTS, CONVERT TO INTEGER OR MAXIMUM MODE              FC5A411      178     A     
 PAR      *         (B2) = NUMBER OF ARGUMENTS                                             FC5A411      179     A     
 PAR      *         (X2) = REQUIRE MODE                                                    FC5A411      180     A     
 PAR      *         (X4) = SYMTAB WB.                                                      FC5A411      181     A     
 PAR      *         (X5) = MAXIMUM MODE                                                    FC5A411      182     A     
 PAR                                                                                       FC5A411      183     A     
 PAR       VIL21    SB3    X5-M.CHAR                                                       FC5A411      184     A     
 PAR                ZR     B3,VIL60    IF MAXMODE = CHAR, ERROR                            FC5A411      185     A     
 PAR                SB3    X5-M.LOG                                                        FC5A411      186     A     
 PAR                ZR     B3,VIL60    IF MAXMODE = LOGICAL, ERROR                         FC5A411      187     A     
 PAR                NZ     X5,VIL22    IF MAXMODE " BOOLEAN                                FC5A411      188          I
          -FC5A422
 PAR                LX0    X2          PRESERVE REQUIRED MODE                              FC5A422        6     A     
 PAR                SA1    FILL.                                                           FC5A411      189     A     
 PAR                SA2    =5LCMPLX                                                        FC5A411      190     A     
 PAR                SX5    M.REAL                                                          FC5A411      191          I
          -FC5A422
 PAR                IX1    X1-X2                                                           FC5A411      192     A     
 PAR                ZR     X1,VIL22    IF INTRINSIC CMPLX                                  FC5A411      193          I
          -FC5A422
 PAR                BX2    X0          RESTORE REQUIRED MODE                               FC5A422        7     A     
 PAR                NZ     X1,VIL21.1  IF NOT INTRINSIC COMPLEX                            FC5A422        8     A     
 PAR                SX5    M.REAL      BOOLEAN ARGUMENTS TREATED AS REAL                   FC5A422        9     A     
 PAR                EQ     VIL22                                                           FC5A422       10     A     
 PAR                                                                                       FC5A422       11     A     
 PAR       VIL21.1  NZ     X5,VIL22    IF MAXMODE " BOOLEAN                                FC5A422       12     A     
 PAR                =X5    M.INT                                                           FC5A411      194     A     
 PAR                BX1    X4                                                              FC5A411      195     A     
 PAR                SBIT   X1,WB.GENFP                                                     FC5A411      196     A     
 PAR                MI     X1,VIL22    IF GENERIC FUNCTION                                 FC5A411      197     A     
 PAR                BX5    X2          SET TO REQUIRED MODE                                FC5A411      198     A     
 PAR                                                                                       FC5A411      199     A     
 PAR       VIL22    SB3    X5-M.DBL                                                        FC5A411      200     A     
 PAR                PL     B3,VIL30    IF MODE DOUBLE OR COMPLEX, EXPLICIT CONVERT         FC5A411      201     A     
 PAR                =B3    B6-1        INITIAL FETCH REGISTER                              FC5A411      202     A     
 PAR                MX0    -TP.MODEL                                                       FC5A411      203     A     
 PAR                                                                                       FC5A411      204     A     
 PAR       VIL23    SA1    B3          FETCH NEXT ARGUMENT                                 FC5A411      205     A     
 PAR                BX2    -X0*X1      EXTRACT ARGUMENT MODE                               FC5A411      206     A     
 PAR                NZ     X2,VIL24    IF ARGUMENT NOT BOOLEAN                             FC5A411      207     A     
 PAR                BX6    X1+X5       CONVERT TO PROPER MODE                              FC5A411      208     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      209     A     
 PAR                SA6    A1          UPDATE                                              FC5A411      210     A     
 PAR                                                                                       FC5A411      211     A     
 PAR       VIL24    SB2    B2-1                                                            FC5A411      212     A     
 PAR                ZR     B2,VIL25    IF ALL ARGUMENTS PROCESSED                          FC5A411      213     A     
 PAR                SB3    B3-1                                                            FC5A411      214     A     
 PAR                EQ     VIL23       CONTINUE PROCESSING                                 FC5A411      215     A     
 PAR                                                                                       FC5A411      216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       VIL25    SA1    SCR+AC.W                                                        FC5A411      217     A     
 PAR                MX0    -AC.MODEL                                                       FC5A411      218     A     
 PAR                LX0    AC.MODEP                                                        FC5A411      219     A     
 PAR                BX0    -X0*X1      EXTRACT MODE                                        FC5A411      220     A     
 PAR                NZ     X0,VIL60    IF MODE NOT BOOLEAN                                 FC5A411      221     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      222     A     
 PAR                LX5    AC.MODEP                                                        FC5A411      223     A     
 PAR                BX6    X1+X5       MERGE IN CONVERTED MODE                             FC5A411      224     A     
 PAR                SA6    A1          UPDATE                                              FC5A411      225     A     
 PAR                SA5    B6-1        RESTORE LAST ARGUMENT                               FC5A411      226     A     
 PAR                EQ     VIL60                                                           FC5A411      227     A     
 PAR                                                                                       FC5A411      228     A     
 PAR      *         DOUBLE/COMPLEX CONVERSION                                              FC5A411      229     A     
 PAR                                                                                       FC5A411      230     A     
 PAR       VIL30    SB3    B6-1        INITIAL FETCH REGISTER                              FC5A411      231     A     
 PAR                                                                                       FC5A411      232     A     
 PAR       VIL31    SA1    B3+         FETCH NEXT ARGUMENT                                 FC5A411      233     A     
 PAR                MX0    -TP.MODEL                                                       FC5A411      234     A     
 PAR                BX2    -X0*X1      EXTRACT ARGUMENT MODE                               FC5A411      235     A     
 PAR                NZ     X2,VIL32    IF ARGUMENT NOT BOOLEAN                             FC5A411      236     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      237     A     
 PAR                SX6    X5                                                              FC5A411      238     A     
 PAR                LX6    18                                                              FC5A411      239     A     
 PAR                SX5    B3                                                              FC5A411      240     A     
 PAR                BX6    X6+X5                                                           FC5A411      241     A     
 PAR                LX6    18                                                              FC5A411      242     A     
 PAR                SX5    B2                                                              FC5A411      243     A     
 PAR                BX6    X6+X5                                                           FC5A411      244     A     
 PAR                SA6    VILB        SAVE (X5), (B3), (B2)                               FC5A411      245     A     
 PAR                AX6    18+18       COERSION MODE                                       FC5A411      246     A     
 PAR                LX5    X1          OPERAND                                             FC5A411      247     A     
 PAR                RJ     CMR         COERSE BOOLEAN OPERAND                              FC5A411      248     A     
 PAR                SA1    VILB                                                            FC5A411      249     A     
 PAR                SB2    X1          RESTORE (B2)                                        FC5A411      250     A     
 PAR                AX1    18                                                              FC5A411      251     A     
 PAR                SB3    X1          RESTORE (B3)                                        FC5A411      252     A     
 PAR                AX1    18                                                              FC5A411      253     A     
 PAR                BX6    X5                                                              FC5A411      254     A     
 PAR                SA6    B3          UPDATE WITH THE COERCED OPERAND                     FC5A411      255     A     
 PAR                LX5    X1          RESTORE (X5)                                        FC5A411      256     A     
 PAR                                                                                       FC5A411      257     A     
 PAR       VIL32    SB2    B2-1                                                            FC5A411      258     A     
 PAR                ZR     B2,VIL33    IF ALL ARGUMENTS PROCESSED                          FC5A411      259     A     
 PAR                SB3    B3-1                                                            FC5A411      260     A     
 PAR                EQ     VIL31       CONTINUE PROCESSING                                 FC5A411      261     A     
 PAR                                                                                       FC5A411      262     A     
 PAR       VIL33    SA1    SCR+AS.W                                                        FC5A411      263     A     
 PAR                LX1    -AS.ORDP                                                        FC5A411      264     A     
 PAR                SX0    X1          EXTRACT INTRINSIC SYMTAB ORDINAL                    FC5A411      265     A     
 PAR                ERRNZ  18-AS.ORDL                                                      FC5A411      266     A     
 PAR                CALL   CT1         LOAD SYMTAB (WB)                                    FC5A411      267     A     
 PAR                SA4    A2          RESTORE (A4, X4) TO WB. OF INTRINSIC                FC5A411      268     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MX0    -WB.JPFL                                                        FC5A411      269     A     
 PAR                LX4    -WB.JPFP                                                        FC5A411      270     A     
 PAR                BX3    -X0*X4      RESTORE X3 TO INTRINSIC TABLE INDEX                 FC5A411      271     A     
 PAR                LX4    WB.JPFP                                                         FC5A411      272     A     
 PAR                SA1    SCR+AC.W                                                        FC5A411      273     A     
 PAR                MX0    -AC.MODEL                                                       FC5A411      274     A     
 PAR                LX0    AC.MODEP                                                        FC5A411      275     A     
 PAR                BX0    -X0*X1      EXTRACT MODE                                        FC5A411      276     A     
 PAR                NZ     X0,VIL35    IF MODE NOT BOOLEAN                                 FC5A411      277     A     
 PAR                ERRNZ  M.BOOL                                                          FC5A411      278     A     
 PAR                LX5    AC.MODEP                                                        FC5A411      279     A     
 PAR                BX6    X1+X5       MERGE IN CONVERTED MODE                             FC5A411      280     A     
 PAR                SA6    A1+         UPDATE                                              FC5A411      281     A     
 PAR                                                                                       FC5A411      282     A     
 PAR       VIL35    SA5    B6-1        RESTORE LAST ARGUMENT                               FC5A411      283     A     
 PAR                                                                                       FC5A411      284     A     
 PAR       VIL60    SA1    SCR+AC.W                                                        FC5A411      285     A     
 PAR                LX1    -AC.MODEP                                                       PAR         5494     A     
 PAR                SX7    X1          (X7) = ACTUAL MODE OF ARGS                          PAR         5495     A     
 PAR                ERRNZ  18-AC.MODEL                                                     PAR         5496     A     
 PAR                HX4    WB.GENF                                                         PAR         5497     A     
 PAR                PL     X4,VIL70    IF NOT GENERIC FUNCTION                             PAR         5498     A     
 PAR                LX7    3                                                               PAR         5499     A     
 PAR                SB7    X7          (B7) = 8 * ARGUMENT MODE                            PAR         5500     A     
 PAR                LX7    -3                                                              PAR         5501     A     
 PAR                SA2    X3+1+F.INTF       FETCH SELECTION VECTOR FOR GENERIC            PAR         5502     A     
 PAR                MX0    -8                                                              PAR         5503     A     
 PAR                AX2    B7                                                              PAR         5504     A     
 PAR                BX3    -X0*X2      EXTRACT (X3) = NEW FJ                               PAR         5505     A     
 PAR                NZ     X3,VIL66    IF NOT NULL CONVERSION                              PAR         5506     A     
 PAR                SA2    A2-B1       FETCH INTRINSIC ENTRY OF THE GENERIC NAME           PAR         5507     A     
 PAR                MX0    -IT.MODEL                                                       PAR         5508     A     
 PAR                LX2    -IT.MODEP                                                       PAR         5509     A     
 PAR                LX5    -TP.MODEP                                                       PAR         5510     A     
 PAR                BX3    -X0*X2      (X3) = RESULT MODE OF GENERIC                       PAR         5511     A     
 PAR                IFNE   IT.MODEL,TP.MODEL,1                                             PAR         5512     A     
 PAR                MX0    -TP.MODEL                                                       PAR         5513     A     
 PAR                BX1    X0*X5                                                           PAR         5514     A     
 PAR                BX7    X1+X3       RESULT OPERAND = ORIGINAL WITH NEW MODE             PAR         5515     A     
 PAR                CLAS=  X3,TP,(EXPR)                                                    PAR         5516     A     
 PAR                LX7    TP.MODEP                                                        PAR         5517     A     
 PAR                BX6    X7+X3                                                           PAR         5518     A     
 PAR                SB6    B6-1        EAT FUNCTION NAME                                   PAR         5519     A     
 PAR                LX5    X6          STACK AND RETURN RESULT                             PAR         5520     A     
 PAR                SA6    B6-B1                                                           PAR         5521     A     
 PAR                EQ     POPX        EXIT..                                              PAR         5522     A     
 PAR                                                                                       PAR         5523     A     
 PAR       VIL66    SB2    X3-1S8+1                                                        PAR         5524     A     
 PAR                SB7    E.SU07      INVALID ARGUMENT MODE                               PAR         5525     A     
 PAR                ZR     B2,VIL50    IF MODE NOT PROVIDED                                PAR         5526          I
          -FC5A411
 PAR                ZR     B2,VIL10    IF MODE NOT PROVIDED                                FC5A411      286     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         5527     A     
 PAR      *         CHECK IF MODE OF ARG LIST AGREES.                                      PAR         5528     A     
 PAR      *                (X1) = (SCR+AC.W) WITH (AC.MODE) SHIFTED TO BOTTOM.             PAR         5529     A     
 PAR      *                (X3) = FJ = INTRINSIC TABLE INDEX.                              PAR         5530     A     
 PAR      *                (X7) = (AC.MODE) = ACTUAL MODE OF ARGS.                         PAR         5531     A     
 PAR                                                                                       PAR         5532     A     
 PAR       VIL70    SA2    X3+F.INTF                                                       PAR         5533     A     
 PAR                BX6    X3                                                              PAR         5534     A     
 PAR                MX0    -IT.ARGML                                                       PAR         5535     A     
 PAR                SA6    /CF/IT      RETURN (CF/IT) = INTRINSIC TABLE INDEX              PAR         5536     A     
 PAR                LX2    -IT.ARGMP                                                       PAR         5537     A     
 PAR                BX6    -X0*X2      (X6) = REQUIRED ARGUMENT MODE                       PAR         5538     A     
 PAR                LX2    IT.ARGMP-IT.MODEP                                               PAR         5539     A     
 PAR                IFNE   IT.ARGML,IT.MODEL,1                                             PAR         5540     A     
 PAR                MX0    -IT.MODEL                                                       PAR         5541     A     
 PAR                MI     X4,VIL78    IF GENERIC INTRINSIC                                PAR         5542     A     
 PAR                SB7    E.SU03      WRONG ARGUMENT MODE                                 PAR         5543     A     
 PAR                BX3    X6-X7                                                           PAR         5544     A     
 PAR                ZR     X3,VIL78    IF ACTUAL .EQ. REQUIRED                             PAR         5545     A     
 PAR                =X6    X6-M.BOOL                                                       PAR         5546     A     
 PAR                NZ     X6,VIL74    IF REQUIRED MODE NOT BOOL                           PAR         5547     A     
 PAR                SX3    X7-M.CHAR                                                       PAR         5548     A     
 PAR                NZ     X3,VIL78    IF ACTUAL MODE NOT CHARACTER                        PAR         5549     A     
 PAR                EQ     VIL50                                                           PAR         5550          I
          -FC5A411
 PAR                EQ     VIL10                                                           FC5A411      287     A     
 PAR                                                                                       PAR         5551     A     
 PAR       VIL74    NZ     X7,VIL50    IF ACTUAL MODE NOT BOOL                             PAR         5552          I
          -FC5A411
 PAR       VIL74    NZ     X7,VIL10    IF ACTUAL MODE NOT BOOLEAN                          FC5A411      288     A     
 PAR                =X6    X6+M.BOOL-M.INT                                                 PAR         5553     A     
 PAR                NZ     X6,VIL50    IF (REQUIRED NOT INT NOR BOOL) AND (ACTUAL=         PAR         5554          I
          -FC5A411
 PAR                NZ     X6,VIL10    IF REQUIRED MODE NOT BOOL/INT AND ACTUAL IS         FC5A411      289     A     
 PAR                                                                                       FC5A411      290     A     
 PAR       VIL78    BX7    X1-X7       CLEAR PREVIOUS (AC.MODE)                            PAR         5555     A     
 PAR                SA3    VILA                                                            PAR         5556     A     
 PAR                BX6    -X0*X2                                                          PAR         5557     A     
 PAR                BX7    X6+X7       SET (AC.MODE) = RESULT MODE                         PAR         5558     A     
 PAR                LX7    AC.MODEP                                                        PAR         5559     A     
 PAR                LX2    IT.MODEP    RETURN (X2) = INTRINSIC TABLE ENTRY                 PAR         5560     A     
 PAR                SA7    A1                                                              PAR         5561     A     
 PAR                NZ     X3,VIL84    IF INDEFINITE ARG COUNT NOT PERMITTED               PAR         5562     A     
 PAR                                                                                       PAR         5563          I
          -FC5A411
 PAR                SA1    /CF/IT      (X1) = INDEX OF THIS INTRINSIC                      PAR         5564     A     
 PAR                SA3    F.IMCV                                                          PAR         5565     A     
 PAR                SB7    Z.IMCV                                                          PAR         5566     A     
 PAR                SB2    2*18                                                            PAR         5567     A     
 PAR                                                                                       FC5A411      291     A     
 PAR       VIL82    AX7    X3,B2                                                           PAR         5568     A     
 PAR                IX0    X7-X1                                                           PAR         5569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ZR     X0,VIL86    IF FUNCTION REQUIRES POST-COERCION                  PAR         5570     A     
 PAR                SB7    B7-B1                                                           PAR         5571     A     
 PAR                SA3    A3+B1                                                           PAR         5572     A     
 PAR                PL     B7,VIL82    IF MORE TO CHECK                                    PAR         5573     A     
 PAR                                                                                       FC5A411      292     A     
 PAR       VIL84    SA6    SMOD                                                            PAR         5574     A     
 PAR                EQ     EXIT.                                                           PAR         5575     A     
 PAR                                                                                       PAR         5576     A     
 PAR       VIL86    BX6    X3          INDICATE POST-EVALUATION COERCION REQUIRED          PAR         5577     A     
 PAR                SA6    /CF/MA                                                          PAR         5578     A     
 PAR                EQ     EXIT.                                                           PAR         5579     A     
 PAR                TITLE  POP/EMIT ARRAY SUBSCRIPTS.                                      PAR         5580     A     
 PAR      **        POP/EMIT ARRAY SUBSCRIPTS.                                             PAR         5581     A     
 PAR                                                                                       PAR         5582     A     
 PAR                                                                                       PAR         5583     A     
 PAR                QUAL   AR                                                              PAR         5584     A     
 PAR       BIAS     BSS    1           CONSTANT SUBSCRIPT BIAS ACCUMULATOR                 PAR         5585     A     
 PAR       DIMI     BSS    1           INDEX OF ARRAY IN T.DIM                             PAR         5586     A     
 PAR       NSUB     BSS    1           COUNT OF SUBSCRIPTS (IN ARRAY REF)                  PAR         5587     A     
 PAR       VDSK     BSS    1           SKELETON  *VD.*  OPERAND                            PAR         5588     A     
 PAR                QUAL   *                                                               PAR         5589     A     
 PAR                                                                                       PAR         5590     A     
 PAR       S.CES    =XLIB  CES         DEFINE NAME OF RUN-TIME SUBSCRIPT FUNCTION          PAR         5591     A     
 PAR       INTLCT   SPACE  4,10                                                            PAR         5592     A     
 PAR      **        INTLCT  - CALL *LCT*, INTEGER/BOOLEAN RESULT EXPECTED.                 PAR         5593     A     
 PAR      *                                                                                PAR         5594     A     
 PAR      *         CALLS *LCT*.  IN TEST MODE ONLY, ABORTS IF THE OPERAND MODE            PAR         5595     A     
 PAR      *         IS NOT INTEGER OR BOOLEAN  ( *SSR* BUG ).                              PAR         5596     A     
 PAR      *                                                                                PAR         5597     A     
 PAR      *                                                                                PAR         5598     A     
 PAR      *         INTLCT    (NO PARAMETERS.)                                             PAR         5599     A     
 PAR      *                                                                                PAR         5600     A     
 PAR      *         ENTRY/EXIT -- SEE *LCT*.                                               PAR         5601     A     
 PAR      *                                                                                PAR         5602     A     
 PAR      *         USES   X2.    A2.    B7.                                               PAR         5603     A     
 PAR      *                                                                                PAR         5604     A     
 PAR      *         CALLS  LCT.                                                            PAR         5605     A     
 PAR                                                                                       PAR         5606     A     
 PAR                                                                                       PAR         5607     A     
 PAR       INTLCT   MACRO                                                                  PAR         5608     A     
 PAR                CALL   LCT                                                             PAR         5609     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5610     A     
 PAR                SA2    ="BOOLINT"                                                      PAR         5611     A     
 PAR                SB7    X0          MODE                                                PAR         5612     A     
 PAR                LX2    B7                                                              PAR         5613     A     
 PAR                PL     X2,"BLOWUP" IF RESULT NOT INTEGER OR BOOLEAN                    PAR         5614     A     
 PAR       .T       ENDIF                                                                  PAR         5615     A     
 PAR       INTLCT   ENDM                                                                   PAR         5616     A     
 PAR       SUBERR   SPACE  4,10                                                            PAR         5617     A     
 PAR      **        SUBERR - ISSUE SUBSCRIPT ERROR MESSAGE.                                PAR         5618     A     
 PAR      *                                                                                PAR         5619     A     
 PAR      *         SUBERR ERRADDR                                                         PAR         5620     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR         5621     A     
 PAR      *         ERRADDR = ERROR SKELETON ADDRESS (B7).                                 PAR         5622     A     
 PAR                                                                                       PAR         5623     A     
 PAR                                                                                       PAR         5624     A     
 PAR       SUBERR   MACRO  ERRADDR                                                         PAR         5625     A     
 PAR                =B7    ERRADDR                                                         PAR         5626     A     
 PAR                CALL   OSE                                                             PAR         5627     A     
 PAR       SUBERR   ENDM                                                                   PAR         5628     A     
 PAR       ARYMIC   SPACE  4,10                                                            PAR         5629     A     
 PAR      **        MICROS USED THROUGHOUT SUBSCRIPT PROCESSOR.                            PAR         5630     A     
 PAR                                                                                       PAR         5631     A     
 PAR                                                                                       PAR         5632     A     
 PAR       ALLNUM   BITMIC (M.BOOL,M.INT,M.REAL,M.DBL,M.CPLX)                              PAR         5633     A     
 PAR       BOOLINT  BITMIC (M.BOOL,M.INT)                                                  PAR         5634     A     
 PAR       CPLX     DECMIC M.CPLX                                                          PAR         5635     A     
 PAR       DBL      DECMIC M.DBL                                                           PAR         5636     A     
 PAR                                                                                       PAR         5637     A     
 PAR       WD2MASK  =      1S"DBL"+1S"CPLX"                                                PAR         5638     A     
 PAR       C=ARRAY  SPACE  4,20                                                            PAR         5639     A     
 PAR      **        C=ARRAY -  RESET DIMENSION MULTIPLIER FOR SUBSCRIPT OPERATION.         PAR         5640     A     
 PAR      *                                                                                PAR         5641     A     
 PAR      *                                                                                PAR         5642     A     
 PAR      *         ENTRY  (X5) = CURRENT SUBSCRIPT EXPRESSION RESULT.                     PAR         5643     A     
 PAR      *                                                                                PAR         5644     A     
 PAR      *         EXIT   (B4) UPDATED BY 1.                                              PAR         5645     A     
 PAR      *                                                                                PAR         5646     A     
 PAR      *         USES   X4,X6.    A4,A6.    B4.                                         PAR         5647     A     
 PAR      *                                                                                PAR         5648     A     
 PAR      *         CALLS  SSR.                                                            PAR         5649     A     
 PAR                                                                                       PAR         5650     A     
 PAR                                                                                       PAR         5651     A     
 PAR       C=ARRAY  BSS    0                                                               PAR         5652     A     
 PAR                SA1    ARGMIS                                                          PAR         5653     A     
 PAR                =A4    A1+AC.W-AS.W      *ARGCOMA*                                     PAR         5654     A     
 PAR                BX6    X1                                                              PAR         5655     A     
 PAR                SA6    SCR+AS.W    POP ARRAY NAME EARLY FOR *FERRS*                    PAR         5656     A     
 PAR                RJ     SSR         STANDARDIZE SUBSCRIPT RESULT                        PAR         5657     A     
 PAR                BX6    X4                                                              PAR         5658     A     
 PAR                =B4    B4+1        (B4) = ADVANCE TO NEXT TOKEN                        PAR         5659     A     
 PAR                SA6    ARGCOMA                                                         PAR         5660     A     
 PAR                EQ     PAR.NX      CONTINUE ...                                        PAR         5661     A     
 PAR       A=ARRAY  SPACE  4,20                                                            PAR         5662     A     
 PAR      **        A=ARRAY - PROCESS CLOSING PAREN FOR CURRENT SUBSCRIPT.                 PAR         5663     A     
 PAR      *                                                                                PAR         5664     A     
 PAR      *         POP HOLDING STACK FOR SUBSCRIPT.                                       PAR         5665     A     
 PAR      *                                                                                PAR         5666     A     
 PAR      *         ENTRY  (X2) = (ARGCOMA) = (SCR+1).                                     PAR         5667     A     
 PAR      *                (X5) = RESULT FOR LAST SUBSCRIPT IN THIS REFERENCE.             PAR         5668     A     
 PAR      *                                                                                PAR         5669     A     
 PAR      *         USES   ALL BUT    A0, B4.                                              PAR         5670     A     
 PAR      *                                                                                PAR         5671     A     
 PAR      *         CALLS  ADU/ADT, ASE, EMIT(EMT), GDI, MFP, MSP, NCS,                    PAR         5672     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                SLB, SSR, SUBERR(OSE), TAGSEX(TSX).                             PAR         5673     A     
 PAR                                                                                       PAR         5674     A     
 PAR                                                                                       PAR         5675     A     
 PAR       A=ARRAY  BSS    0           ENTRY...                                            PAR         5676     A     
 PAR                =X0    1                                                               PAR         5677     A     
 PAR                LX0    AC.CNTP                                                         PAR         5678     A     
 PAR                IX4    X2+X0       INCREMENT COUNT OF SUBSCRIPTS                       PAR         5679     A     
 PAR                RJ     SSR         STANDARDIZE LAST SUBSCRIPT                          PAR         5680     A     
 PAR                BX6    0                                                               PAR         5681     A     
 PAR                SA6    /AR/BIAS    INITIALIZE SUBSCRIPT BIAS = 0                       PAR         5682     A     
 PAR                                                                                       PAR         5683     A     
 PAR      *         CHECK THAT SUBSCRIPT COUNT MATCHES DIMENSION COUNT.                    PAR         5684     A     
 PAR                                                                                       PAR         5685     A     
 PAR                LX4    -AC.CNTP                                                        PAR         5686     A     
 PAR                SB2    X4          (B2) = COUNT OF SUBSCRIPTS                          PAR         5687     A     
 PAR                ERRNZ  AC.CNTL-18                                                      PAR         5688     A     
 PAR                LX4    AC.CNTP                                                         PAR         5689     A     
 PAR                RJ     GDI         GET DIMENSION INFORMATION                           PAR         5690     A     
 PAR                NE     B2,B3,A=AR90      IF SUBSCR COUNT .NE. DIM COUNT                PAR         5691          I
          -FC51082
 PAR                EQ     B2,B3,A=AR8 IF SUBSCRIPT COUNT .EQ. DIMENSION COUNT             FC51082       11     A     
 PAR                SUBERR E.SB7       ISSUE MSG *SUBSCRIPT/DIMEN COUNT MISMATCH*          FC51082       12     A     
 PAR                GT     B2,B3,A=AR6 IF SUBSCRIPT COUNT .GT. DIMENSION COUNT             FC51082       13     A     
 PAR                                                                                       FC51082       14     A     
 PAR      *         HERE IF SUBSCRIPT COUNT .LT. DIMENSION COUNT                           FC51082       15     A     
 PAR                                                                                       FC51082       16     A     
 PAR                SA2    CONONE                                                          FC51082       17     A     
 PAR                LX7    X2                                                              FC51082       18     A     
 PAR                SA1    /AR/DIMI                                                        FC51082       19     A     
 PAR                SA3    T.DIM                                                           FC51082       20     A     
 PAR                IX1    X1+X3                                                           FC51082       21     A     
 PAR                SA3    X1          (A3) -> DIM HEADER                                  FC51082       22     A     
 PAR                SB7    B2+B2                                                           FC51082       23     A     
 PAR                SA1    A3+B7       (A1) -> LB , UB                                     FC51082       24     A     
 PAR                SB7    B3-B2       (B7) = DIMENSION COUNT - SUBSCRIPT COUNT            FC51082       25     A     
 PAR                MI     X1,A=AR4    IF ADJUSTABLE LOWER BOUND                           FC51082       26     A     
 PAR                CLAS=  X2,TP,(BIAS)                                                    FC51082       27     A     
 PAR                LX1    -D2.LBP-DM.INFP-DM.INFL                                         FC51082       28     A     
 PAR                AX1    TP.ORDL                                                         FC51082       29     A     
 PAR                BX7    X2*X1       X7 = LOWER BOUND OF SUBSCRIPT                       FC51082       30     A     
 PAR                SA2    CONZERI                                                         FC51082       31     A     
 PAR                BX7    X7+X2                                                           FC51082       32     A     
 PAR                                                                                       FC51082       33     A     
 PAR       A=AR4    SA7    B6          B6 -> TOP OF ESTACK + 1                             FC51082       34     A     
 PAR                SB6    B6+B1                                                           FC51082       35     A     
 PAR                SB7    B7-B1                                                           FC51082       36     A     
 PAR                GT     B7,A=AR4    IF NOT DONE PADDING ESTACK                          FC51082       37     A     
 PAR                EQ     A=AR7                                                           FC51082       38     A     
 PAR                                                                                       FC51082       39     A     
 PAR      *         HERE IF SUBSCRIPT COUNT .GT. DIMENSION COUNT                           FC51082       40     A     
 PAR                                                                                       FC51082       41     A     
 PAR       A=AR6    SB7    B2-B3       (B7) = SUBSCRIPT COUNT - DIMENSION COUNT            FC51082       42     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB6    B6-B7       ADJUST ESTACK                                       FC51082       43     A     
 PAR                                                                                       FC51082       44     A     
 PAR       A=AR7    SX6    B3                                                              FC51082       45     A     
 PAR                SA6    /AR/NSUB    UPDATE TO ACTUAL SUBSCRIPT COUNT                    FC51082       46     A     
 PAR                                                                                       PAR         5692     A     
 PAR      *         SELECT IN-LINE OR OUT-OF-LINE SUBSCRIPT EVALUATION.                    PAR         5693     A     
 PAR      *         EVALUATE IN-LINE IF ALL SUBSCRIPT EXPRESSIONS ARE CONSTANT             PAR         5694     A     
 PAR      *         AND THE ARRAY IS NOT ADJUSTABLE, EVEN IF THE DEBUGGING OPTION          PAR         5695     A     
 PAR      *         WAS SELECTED ON THE *FTN* CONTROL STATEMENT.                           PAR         5696     A     
 PAR                                                                                       PAR         5697     A     
 PAR                SA1    DATFLG                                                          PAR         5698          I
          -FC51082
 PAR       A=AR8    SA1    DATFLG                                                          FC51082       47     A     
 PAR                SA2    CO.DBSB                                                         PAR         5699     A     
 PAR                SBIT   X3,DH.VDP                                                       PAR         5700     A     
 PAR                SBIT   X4,AC.VSUBP                                                     PAR         5701     A     
 PAR                BX6    X3+X4       VARDIM .OR. VARSUB                                  PAR         5702     A     
 PAR                LX3    DH.VDP+1    (X3) = RESTORE *DH.W* NATURAL POSITION              PAR         5703     A     
 PAR                LX4    AC.VSUBP+1  (X4) = RESTORE *ARGCOMA* NATURAL POSITION           PAR         5704     A     
 PAR                BX7    X2*X6       C.C. OPT .AND. VAR---                               PAR         5705     A     
 PAR                NZ     X1,A=AR10   IF PROCESSING DATA ITEM                             PAR         5706     A     
 PAR                MI     X7,A=AR20   IF SUBSCRIPT TO BE EVALUATED OUT-OF-LINE            PAR         5707     A     
 PAR                                                                                       PAR         5708     A     
 PAR      *         HERE IF SUBSCRIPT TO BE EVALUATED IN-LINE.                             PAR         5709     A     
 PAR                                                                                       PAR         5710     A     
 PAR       A=AR10   BSS    0                                                               PAR         5711     A     
 PAR                SA1    S=VD        INITIALIZE SKELETON VD. OPERAND                     PAR         5712     A     
 PAR                =X2    M.INT                                                           PAR         5713     A     
 PAR                BX7    0                                                               PAR         5714     A     
 PAR                LX1    TP.ORDP                                                         PAR         5715     A     
 PAR                LX2    TP.MODEP                                                        PAR         5716     A     
 PAR                BX6    X1+X2                                                           PAR         5717     A     
 PAR                SA6    /AR/VDSK                                                        PAR         5718     A     
 PAR                =A7    B6          CREATE EMPTY SUBSCRIPT VALUE                        PAR         5719     A     
 PAR                =B6    B6+1                                                            PAR         5720     A     
 PAR                EQ     A=AR14                                                          PAR         5721     A     
 PAR                                                                                       PAR         5722     A     
 PAR      *         PROCESS SUBSCRIPT EXPRESSION RESULTS FROM RIGHT TO LEFT.               PAR         5723     A     
 PAR                                                                                       PAR         5724     A     
 PAR       A=AR12   SA1    /AR/NSUB                                                        PAR         5725     A     
 PAR                RJ     MSP         MULTIPLY BY DIMENSION SPAN                          PAR         5726     A     
 PAR       A=AR14   RJ     ASE         ADD SUBSCRIPT EXPRESSION                            PAR         5727     A     
 PAR                SA1    /AR/NSUB                                                        PAR         5728     A     
 PAR                RJ     SLB         SUBTRACT LOWER BOUND                                PAR         5729     A     
 PAR                SA1    /AR/NSUB                                                        PAR         5730     A     
 PAR                =X2    1                                                               PAR         5731     A     
 PAR                IX6    X1-X2       DECREMENT SUBSCRIPT COUNT                           PAR         5732     A     
 PAR                SB7    X6                                                              PAR         5733     A     
 PAR                SA6    A1                                                              PAR         5734     A     
 PAR                GT     B7,B0,A=AR12      IF ANOTHER DIMENSION                          PAR         5735     A     
 PAR                EQ     A=AR30                                                          PAR         5736     A     
 PAR                                                                                       PAR         5737     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         HERE IF SUBSCRIPT TO BE CHECKED AND EVALUATED OUT-OF-LINE.             PAR         5738     A     
 PAR                                                                                       PAR         5739     A     
 PAR       A=AR20   BSS    0                                                               PAR         5740     A     
 PAR                CLAS=  X0,DH,(MAT)                                                     PAR         5741     A     
 PAR                BX6    X3+X0                                                           PAR         5742     A     
 PAR                SA6    A3          MARK *MATERIALIZE DIM INFO AT RUN-TIME*             PAR         5743     A     
 PAR                                                                                       PAR         5744     A     
 PAR      *         EMIT APLIST TURPLE FOR RUN-TIME DIMTAB ADDRESS.                        PAR         5745     A     
 PAR                                                                                       PAR         5746     A     
 PAR                SA1    S=RD                                                            PAR         5747     A     
 PAR                SA2    /AR/DIMI                                                        PAR         5748     A     
 PAR                LX1    TP.ORDP                                                         PAR         5749     A     
 PAR                =X5    0           (2OP)                                               PAR         5750     A     
 PAR                LX2    TP.BIASP                                                        PAR         5751     A     
 PAR                BX4    X1+X2       (1OP)                                               PAR         5752     A     
 PAR                EMIT   GAPOP,*                                                         PAR         5753     A     
 PAR                                                                                       PAR         5754     A     
 PAR      *         EMIT APLIST TURPLE FOR EACH SUBSCRIPT EXPRESSION RESULT.               PAR         5755     A     
 PAR                                                                                       PAR         5756     A     
 PAR                SA1    /AR/NSUB                                                        PAR         5757     A     
 PAR                SB7    X1          (B7) = COUNT OF SUBSCRIPTS                          PAR         5758     A     
 PAR                                                                                       PAR         5759     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         5760     A     
 PAR                LE     B7,B0,"BLOWUP"    IF SUBSCRIPT COUNT ERROR                      PAR         5761     A     
 PAR                SB2    MAX.DIM                                                         PAR         5762     A     
 PAR                GT     B7,B2,"BLOWUP"    IF SUBSCRIPT COUNT ERROR                      PAR         5763     A     
 PAR       .T       ENDIF                                                                  PAR         5764     A     
 PAR                                                                                       PAR         5765     A     
 PAR                BX5    0           (2OP)                                               PAR         5766     A     
 PAR                SA4    B6-B7       (1OP) = 1ST SUBSCRIPT (ELSTACK)                     PAR         5767     A     
 PAR       A=AR22   SA1    GAPOP                                                           PAR         5768     A     
 PAR                MX0    -TP.MODEL                                                       PAR         5769     A     
 PAR                LX4    -TP.MODEP                                                       PAR         5770     A     
 PAR                BX2    -X0*X4      EXTRACT MODE                                        PAR         5771     A     
 PAR                LX4    TP.MODEP                                                        PAR         5772     A     
 PAR                LX2    TH.MODEP                                                        PAR         5773          I
          -FC50104
 PAR                LX2    SP.MODEP                                                        FC50104      143     A     
 PAR                BX6    X1+X2                                                           PAR         5774     A     
 PAR                SA6    SOPR                                                            PAR         5775     A     
 PAR                EMIT   A6,*        SUBSCRIPT TURPLE                                    PAR         5776     A     
 PAR                =B7    A4+1        ADVANCE TO NEXT SUBSCRIPT                           PAR         5777     A     
 PAR                =A4    A4+1                                                            PAR         5778     A     
 PAR                LT     B7,B6,A=AR22      IF ANOTHER SUBSCRIPT                          PAR         5779     A     
 PAR                SA1    /AR/NSUB                                                        PAR         5780     A     
 PAR                SB7    X1          COUNT OF SUBSCRIPTS                                 PAR         5781     A     
 PAR                SB6    B6-B7       REMOVE SUBSCRIPTS FROM ELSTACK                      PAR         5782     A     
 PAR                                                                                       PAR         5783     A     
 PAR      *         EMIT APLIST TURPLE FOR ARRAY NAME.                                     PAR         5784     A     
 PAR                                                                                       PAR         5785     A     
 PAR                SA1    SCR+AS.W    ARRAY NAME FROM *ARGMIS*                            PAR         5786     A     
 PAR                BX6    X1                                                              PAR         5787     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =X7    M.BOOL      DUMMY MODE                                          PAR         5788     A     
 PAR                CALL   NCS         NAME TO RUN-TIME CONTAB                             PAR         5789     A     
 PAR                BX4    X6          (1OP)                                               PAR         5790     A     
 PAR                ERRNZ  M.BOOL                                                          PAR         5791     A     
 PAR                MX5    0           (2OP)                                               PAR         5792     A     
 PAR                EMIT   GAPOP,*                                                         PAR         5793     A     
 PAR      **        CALL   MFP         (WAS) MARK FIRST PARAMETERS                         PAR         5794     A     
 PAR                                                                                       PAR         5795     A     
 PAR      *         EMIT FUNCTION CALL TO LIBRARY BOUNDS CHECK ROUTINE.                    PAR         5796     A     
 PAR                                                                                       PAR         5797     A     
 PAR                TAGSEX S.CES                                                           PAR         5798     A     
 PAR                SA1    /AR/NSUB                                                        PAR         5799     A     
 PAR                SA3    FUNOP                                                           PAR         5800     A     
 PAR                BX4    X6          (1OP)                                               PAR         5801     A     
 PAR                SX5    X1+2        (2OP) = NR SUBS + 2 (DIM ADDR, ARRAY NAME)          PAR         5802     A     
 PAR                LX5    TP.BIASP                                                        PAR         5803     A     
 PAR                =B6    B6+1        DUMMY ADVANCE                                       PAR         5804     A     
 PAR                RJ     ADU         EMIT CALL TO LIB FUNC  * CES. *                     PAR         5805     A     
 PAR                                                                                       PAR         5806     A     
 PAR      *         PREPARE TO ISSUE THE ARRAY REFERENCE.                                  PAR         5807     A     
 PAR      *                                                                                PAR         5808     A     
 PAR      *         ENTRY  (B6)-2  ->  ARRAY OPERAND.                                      PAR         5809     A     
 PAR      *                (B6)-1  ->  SUBSCRIPT VALUE.                                    PAR         5810     A     
 PAR      *                            NOTE THAT THE SUBSCRIPT VALUE IS NULL (=0)          PAR         5811     A     
 PAR      *                            IF ALL SUBSCRIPTS ARE CONSTANT AND                  PAR         5812     A     
 PAR      *                            THE ARRAY IS NOT ADJUSTABLE.                        PAR         5813     A     
 PAR      *                (B6)    ->  UNSPECIFIED.                                        PAR         5814     A     
 PAR                                                                                       PAR         5815     A     
 PAR                                                                                       PAR         5816     A     
 PAR       A=AR30   BSS    0                                                               PAR         5817     A     
 PAR                                                                                       PAR         5818     A     
 PAR      *         ADD ACCUMULATED CONSTANT BIAS TO ARRAY OPERAND IN ELSTACK.             PAR         5819     A     
 PAR      *         IF DOUBLE OR COMPLEX ARRAY, DOUBLE BOTH THE BIAS AND THE               PAR         5820     A     
 PAR      *         VARIABLE SUBSCRIPT VALUE (IF ANY).                                     PAR         5821     A     
 PAR                                                                                       PAR         5822     A     
 PAR                =B6    B6-1        ASSUME CONSTANT SUBSCRIPT (NO SUBSCR VALUE)         PAR         5823     A     
 PAR                =A4    B6-1        (X4) = ARRAY NAME IN ELSTACK                        PAR         5824     A     
 PAR                SX1    WD2MASK                                                         PAR         5825     A     
 PAR                MX0    -TP.MODEL                                                       PAR         5826     A     
 PAR                LX4    -TP.MODEP                                                       PAR         5827     A     
 PAR                BX6    -X0*X4      EXTRACT MODE                                        PAR         5828     A     
 PAR                LX4    TP.MODEP                                                        PAR         5829     A     
 PAR                SB2    X6                                                              PAR         5830     A     
 PAR                AX1    B2          MODE BIT TO POS 0                                   PAR         5831     A     
 PAR                MX0    -1                                                              PAR         5832     A     
 PAR                BX2    -X0*X1      =1 IF DOUBLE OR COMPLEX, =0 IF ELSE                 PAR         5833     A     
 PAR                SA1    /AR/BIAS                                                        PAR         5834     A     
 PAR                MX0    -TP.BIASL                                                       PAR         5835     A     
 PAR                SB3    X2+TP.BIASP                                                     PAR         5836     A     
 PAR                LX0    TP.BIASP                                                        PAR         5837     A     
 PAR                BX6    X0*X4       CLEAR BIAS FIELD                                    PAR         5838     A     
 PAR                LX1    B3          DOUBLES THE BIAS IF DBL OR CPLX ARRAY               PAR         5839     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX7    -X0*X1                                                          PAR         5840     A     
 PAR                =A4    B6                                                              PAR         5841     A     
 PAR                BX6    X6+X7       INSERT BIAS IN ARRAY OPERAND                        PAR         5842     A     
 PAR                =A6    B6-1        UPDATE ARRAY OPERAND                                PAR         5843     A     
 PAR                ZR     X4,POPX     IF NULL SUBSCRIPT VALUE                             PAR         5844     A     
 PAR                                                                                       PAR         5845     A     
 PAR      *         HERE IF ANY SUBSCRIPT EXPRESSION WAS VARIABLE OR ANY BOUND             PAR         5846     A     
 PAR      *         WAS ADJUSTABLE.  PREPARE TO ISSUE  *ARYOP*  ARRAY REFERENCE.           PAR         5847     A     
 PAR                                                                                       PAR         5848     A     
 PAR                =B6    B6+1        NOTE THAT SUBSCRIPT VALUE EXISTS                    PAR         5849     A     
 PAR                BX5    X4          (2OP) = SUBSCRIPT VALUE                             PAR         5850     A     
 PAR                ZR     X2,A=AR32   IF NOT DOUBLE OR COMPLEX ARRAY                      PAR         5851     A     
 PAR                SA3    INTEG+/OP/PLUS                                                  PAR         5852     A     
 PAR                RJ     ADU         ISSUE *ADD* TO DOUBLE THE SUBSCRIPT VALUE           PAR         5853     A     
 PAR                                                                                       PAR         5854     A     
 PAR       A=AR32   SA3    ARYOP                                                           PAR         5855          I
          -FC5A140
 PAR       A=AR32   =A4    B6-1        FETCH 2OP (SUBSCRIPT VALUE)                         FC5A140        8     A     
 PAR                CLAS=  X0,TP,(ARR,INTR)                                                FC5A140        9     A     
 PAR                BX1    X0*X4                                                           FC5A140       10     A     
 PAR                BX1    X0-X1                                                           FC5A140       11     A     
 PAR                NZ     X1,A=AR40   IF NOT SUBSCRIPTED SUBSCRIPT                        FC5A140       12     A     
 PAR                MX5    0                                                               FC5A140       13     A     
 PAR                SA3    XMITOP                                                          FC5A140       14     A     
 PAR                BX6    X3                                                              FC5A140       15     A     
 PAR                =B6    B6+1        INCREMENT FOR XMIT TURPLE                           FC5A140       16     A     
 PAR                SA6    SOPR                                                            FC5A140       17     A     
 PAR                RJ     ADT         ADD THE XMIT TURPLE                                 FC5A140       18     A     
 PAR       A=AR40   SA3    ARYOP                                                           FC5A140       19     A     
 PAR                LX6    X3                                                              PAR         5856     A     
 PAR                SA6    SOPR                                                            PAR         5857     A     
 PAR                CLAS=  X0,TP,(ARR,ARS)                                                 PAR         5858     A     
 PAR                SA1    ATTR                                                            PAR         5859     A     
 PAR                BX7    X0+X1       MERGE (ATTR)                                        PAR         5860     A     
 PAR                SA7    A1          UPDATE (ATTR) = ARRAY                               PAR         5861     A     
 PAR                =A5    B6-1        (2OP) = SUBSCRIPT VALUE                             PAR         5862     A     
 PAR                =A4    A5-1        (1OP) = ARRAY                                       PAR         5863     A     
 PAR                EQ     POP.STD                                                         PAR         5864     A     
 PAR                                                                                       PAR         5865          I
          -FC51082
 PAR      *         HERE WHEN SUBSCRIPT COUNT MIS-MATCH DECLARED DIMENSIONALITY.           PAR         5866          I
          -FC51082
 PAR                                                                                       PAR         5867          I
          -FC51082
 PAR       A=AR90   BSS    0                                                               PAR         5868          I
          -FC51082
 PAR                SUBERR E.SB7       ISSUE MSG *SUBSCRIPT/DIMEN COUNT MISMATCH*          PAR         5869          I
          -FC51082
 PAR       .FIX     SET    --  FOLLOWING ERROR RECOVERY STINKS.                            PAR         5870          I
          -FC51082
 PAR                EQ     PAREXIT     BAILOUT..                                           PAR         5871          I
          -FC51082
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       ADU      SPACE  4,20                                                            PAR         5872     A     
 PAR      **        ADU - FANCY *ADT* LINKAGE SUBROUTINE.                                  PAR         5873     A     
 PAR      *                                                                                PAR         5874     A     
 PAR      *         DOES THE FOLLOWING AND THEN CALLS *ADT* ...                            PAR         5875     A     
 PAR      *                1.  INCREMENTS (B6) BY ONE, TO FAKE (2OP) ON ELSTACK.           PAR         5876     A     
 PAR      *                2.  STORES (X3)=(OPR) IN (SOPR).                                PAR         5877     A     
 PAR      *                3.  STORES  *INTEGER RESULT MODE*  IN (SMOD).                   PAR         5878     A     
 PAR      *                                                                                PAR         5879     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         5880     A     
 PAR      *                (X4) = FIRST OPERAND.                                           PAR         5881     A     
 PAR      *                (X5) = SECOND OPERAND.                                          PAR         5882     A     
 PAR      *                (B6)-1  ->  NOMINAL FIRST OPERAND IN ELSTACK.                   PAR         5883     A     
 PAR      *                                                                                PAR         5884     A     
 PAR      *         EXIT   *ADT* HAS BEEN CALLED.                                          PAR         5885     A     
 PAR      *                (B6) = UNCHANGED.                                               PAR         5886     A     
 PAR      *                                                                                PAR         5887     A     
 PAR      *         USES   X6-7.    A6-7.    B6.                                           PAR         5888     A     
 PAR      *                                                                                PAR         5889     A     
 PAR      *         CALLS  ADT.                                                            PAR         5890     A     
 PAR                                                                                       PAR         5891     A     
 PAR                                                                                       PAR         5892     A     
 PAR       ADU      SUBR   0           **  ENTRY/EXIT  **                                  PAR         5893     A     
 PAR                BX6    X3                                                              PAR         5894     A     
 PAR                =X7    M.INT                                                           PAR         5895     A     
 PAR                SA6    SOPR                                                            PAR         5896     A     
 PAR                =B6    B6+1                                                            PAR         5897     A     
 PAR                NO                                                                     PAR         5898     A     
 PAR                SA7    SMOD                                                            PAR         5899     A     
 PAR                RJ     ADT                                                             PAR         5900     A     
 PAR                EQ     EXIT.                                                           PAR         5901     A     
 PAR       ASE      SPACE  4,20                                                            PAR         5902     A     
 PAR      **        ASE - ADD SUBSCRIPT EXPRESSION.                                        PAR         5903     A     
 PAR      *                                                                                PAR         5904     A     
 PAR      *         ENTRY  (B6)-2  ->  SUBSCRIPT EXPRESSION RESULT OPERAND.                PAR         5905     A     
 PAR      *                (B6)-1  ->  SUBSCRIPT VALUE OPERAND.                            PAR         5906     A     
 PAR      *                                                                                PAR         5907     A     
 PAR      *         USES   X0-7.    A1-7.    B2-3,B7.                                      PAR         5908     A     
 PAR      *                                                                                PAR         5909     A     
 PAR      *         CALLS  ADU/ADT, LCT.                                                   PAR         5910     A     
 PAR      *                                                                                PAR         5911     A     
 PAR      *         NOTE-- COMMENTING CONVENTION WITHIN *ASE* ...                          PAR         5912     A     
 PAR      *                PREFIX LETTERS ARE AS FOLLOWS ...                               PAR         5913     A     
 PAR      *                                                                                PAR         5914     A     
 PAR      *                   K   CONSTANT BIAS TO BE ADDED TO /AR/BIAS.                   PAR         5915     A     
 PAR      *                   N   NEW SUBSCRIPT VALUE TURPLE BEING FORMED.                 PAR         5916     A     
 PAR      *                   V   SUBSCRIPT VALUE TURPLE IN ELSTACK.                       PAR         5917     A     
 PAR      *                   X   SUBSCRIPT EXPRESSION RESULT INTERMED TURPLE.             PAR         5918     A     
 PAR      *                                                                                PAR         5919     A     
 PAR      *                E.G.,  (X-1OP) = FIRST OPERAND OF SUBSCR EXPR TURPLE.           PAR         5920     A     
 PAR                                                                                       PAR         5921     A     
 PAR                                                                                       PAR         5922     A     
 PAR       ASE      SUBR   0           **  ENTRY/EXIT  **                                  PAR         5923     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B6    B6-1        POP SUBSCR EXPR RESULT                              PAR         5924     A     
 PAR                =X3    /OP/PLUS                (N-OPR) = PLUS                          PAR         5925     A     
 PAR                =A1    B6-1                                                            PAR         5926     A     
 PAR                BX5    X1          SAVE (N-2OP) = SUBSCR EXPR RESULT OPERAND           PAR         5927     A     
 PAR                INTLCT             CHECK RESULT TYPE                                   PAR         5928     A     
 PAR                ZR     B2,ASE20    IF RESULT VARIABLE OR INTERMED                      PAR         5929     A     
 PAR                                                                                       PAR         5930     A     
 PAR      *         HERE IF RESULT IS A CONSTANT.                                          PAR         5931     A     
 PAR                                                                                       PAR         5932     A     
 PAR      * ASE10   BSS    0                                                               PAR         5933     A     
 PAR                                                                                       PAR         5934     A     
 PAR                SA1    /AR/BIAS                                                        PAR         5935     A     
 PAR                SA2    B6          (X2) = SUBSCR VALUE OPERAND                         PAR         5936     A     
 PAR                IX6    X1+X6       BIAS = BIAS + CONSTANT SUBSCR EXPR                  PAR         5937     A     
 PAR                BX7    X2                                                              PAR         5938     A     
 PAR                SA6    A1                                                              PAR         5939     A     
 PAR                =A7    B6-1        BUBBLE SUBSCR VALUE OPD DOWN (LIKE *ADT*)           PAR         5940     A     
 PAR                EQ     EXIT.                                                           PAR         5941     A     
 PAR                                                                                       PAR         5942     A     
 PAR      *         HERE IF RESULT IS NOT A CONSTANT.                                      PAR         5943     A     
 PAR      *                (N-OPR) = (X3) = PLUS.                                          PAR         5944     A     
 PAR      *                (N-2OP) = (X5) = SUBSCR EXPR RESULT OPERAND.                    PAR         5945     A     
 PAR                                                                                       PAR         5946     A     
 PAR       ASE20    BSS    0                                                               PAR         5947     A     
 PAR                BX7    X5                                                              PAR         5948     A     
 PAR                SBIT   X7,TP.INTRP                                                     PAR         5949     A     
 PAR                PL     X7,ASE32    IF NOT INTERMEDIATE                                 PAR         5950     A     
 PAR                                                                                       PAR         5951     A     
 PAR      *         HERE IF RESULT IS AN INTERMEDIATE.                                     PAR         5952     A     
 PAR                                                                                       PAR         5953     A     
 PAR                MX0    -TP.ORDL                                                        PAR         5954     A     
 PAR                LX7    -TP.ORDP+TP.INTRP+1                                             PAR         5955     A     
 PAR                SA1    T.PAR                                                           PAR         5956     A     
 PAR                BX0    -X0*X7                                                          PAR         5957     A     
 PAR                SB2    X0                                                              PAR         5958     A     
 PAR                ERRMI  18-TP.ORDL                                                      PAR         5959     A     
 PAR                SA2    INTEG+/OP/UMIN                                                  PAR         5960     A     
 PAR                SA1    X1+B2       (X-OPR)  TH. WORD                                   PAR         5961     A     
 PAR                BX7    X1-X2                                                           PAR         5962          I
          -FC50104
 PAR                HX7    TH.SKEL                                                         PAR         5963          I
          -FC50104
 PAR                AX7    -TH.SKELL                                                       PAR         5964          I
          -FC50104
 PAR                HX1    TH.SKEL                                                         FC50104      144     A     
 PAR                AX1    -TH.SKELL                                                       FC50104      145     A     
 PAR                HX2    SP.SKEL                                                         FC50104      146     A     
 PAR                AX2    -SP.SKELL                                                       FC50104      147     A     
 PAR                IX2    X1-X2                                                           FC50104      148     A     
 PAR                SA4    B6                                                              PAR         5965     A     
 PAR                NZ     X7,ASE22    IF OPR NOT *UMIN*                                   PAR         5966          I
          -FC50104
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                NZ     X2,ASE22    IF OPERATOR NOT *UMIN*                              FC50104      149     A     
 PAR                ZR     X4,EXIT.    IF NO SUBSCR VALUE, (X-OPD) BECOMES (V-OPD)         PAR         5967     A     
 PAR                =X3    /OP/MINUS               (N-OPR) = MINUS                         PAR         5968     A     
 PAR                =A5    A1+OR.1OP-OR.OPR        (N-2OP) = (X-1OP)                       PAR         5969     A     
 PAR                EQ     ASE34                                                           PAR         5970     A     
 PAR                                                                                       PAR         5971     A     
 PAR       ASE22    =A2    A2-/OP/UMIN+/OP/MINUS                                           PAR         5972     A     
 PAR                =B3    -1          NOTE (X-OPR) *MINUS*                                PAR         5973     A     
 PAR                BX7    X1-X2                                                           PAR         5974          I
          -FC50104
 PAR                HX7    TH.SKEL                                                         PAR         5975          I
          -FC50104
 PAR                AX7    -TH.SKELL                                                       PAR         5976          I
          -FC50104
 PAR                ZR     X7,ASE24    IF (X-OPR) IS *MINUS*                               PAR         5977          I
          -FC50104
 PAR                HX2    SP.SKEL                                                         FC50104      150     A     
 PAR                AX2    -SP.SKELL                                                       FC50104      151     A     
 PAR                IX2    X1-X2                                                           FC50104      152     A     
 PAR                ZR     X2,ASE24    IF (X-OPR) *MINUS*                                  FC50104      153     A     
 PAR                =A2    A2-/OP/MINUS+/OP/PLUS                                           PAR         5978     A     
 PAR                =B3    0           NOTE (X-OPR) *PLUS*                                 PAR         5979     A     
 PAR                BX7    X1-X2                                                           PAR         5980          I
          -FC50104
 PAR                HX7    TH.SKEL                                                         PAR         5981          I
          -FC50104
 PAR                AX7    -TH.SKELL                                                       PAR         5982          I
          -FC50104
 PAR                NZ     X7,ASE32    IF (X-OPR) NOT *PLUS* (AND NOT *MINUS*)             PAR         5983          I
          -FC50104
 PAR                HX2    SP.SKEL                                                         FC50104      154     A     
 PAR                AX2    -SP.SKELL                                                       FC50104      155     A     
 PAR                IX2    X1-X2                                                           FC50104      156     A     
 PAR                NZ     X2,ASE32    IF (X-OPR) NOT *PLUS* (AND NOT *MINUS*)             FC50104      157     A     
 PAR                                                                                       FC50104      158     A     
 PAR       ASE24    =A4    A1+OR.1OP-OR.OPR                                                PAR         5984     A     
 PAR                BX1    X4                                                              PAR         5985     A     
 PAR                INTLCT             CHECK (X-1OP) TYPE                                  PAR         5986     A     
 PAR                =A1    A4+OR.2OP-OR.1OP                                                PAR         5987     A     
 PAR                BX4    X6          SAVE POSSIBLE (N-K) = CONVERTED (X-1OP)             PAR         5988     A     
 PAR                NZ     B2,ASE26    IF (X-1OP) CONSTANT                                 PAR         5989     A     
 PAR                INTLCT             CHECK (X-2OP) TYPE                                  PAR         5990     A     
 PAR                ZR     B2,ASE32    IF (X-2OP) (AND X-1OP) NOT CONST, CAN-T OPT         PAR         5991     A     
 PAR                SX0    B3                                                              PAR         5992     A     
 PAR                =A5    A4+OR.1OP-OR.1OP        (N-2OP) = (X-1OP)                       PAR         5993     A     
 PAR                AX0    1           = +0 IF (X-OPR) *PLUS*, = -0 IF *MINUS*             PAR         5994     A     
 PAR                BX4    X6-X0       (N-K), COMPLEMENTED IF *MINUS* NOTED                PAR         5995     A     
 PAR                EQ     ASE30                                                           PAR         5996     A     
 PAR                                                                                       PAR         5997     A     
 PAR      *         HERE IF (X-1OP) IS CONSTANT.                                           PAR         5998     A     
 PAR                                                                                       PAR         5999     A     
 PAR       ASE26    INTLCT             CHECK (X-2OP) TYPE                                  PAR         6000     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         6001     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6002     A     
 PAR                NZ     B2,"BLOWUP" IF BOTH (X-OPS) CONST, *CONRED* BUG LIKELY          PAR         6003     A     
 PAR       .T       ELSE                                                                   PAR         6004     A     
 PAR                NZ     B2,ASE32    IF (X-2OP) (AND X-1OP) ARE CONST, CAN-T OPT         PAR         6005     A     
 PAR       .T       ENDIF                                                                  PAR         6006     A     
 PAR                                                                                       PAR         6007     A     
 PAR                =A5    A4+OR.2OP-OR.1OP        (N-2OP) = (X-2OP)                       PAR         6008     A     
 PAR                ZR     B3,ASE30    IF (X-OPR) IS *PLUS*                                PAR         6009     A     
 PAR                =X3    /OP/MINUS               (N-OPR) = MINUS                         PAR         6010     A     
 PAR                                                                                       PAR         6011     A     
 PAR      *         HERE TO *ADD*  (X4)=(N-K)  CONSTANT TO ACCUMULATED BIAS.               PAR         6012     A     
 PAR                                                                                       PAR         6013     A     
 PAR       ASE30    BSS    0                                                               PAR         6014     A     
 PAR                SA1    /AR/BIAS                                                        PAR         6015     A     
 PAR                IX6    X1+X4                                                           PAR         6016     A     
 PAR                SA6    A1                                                              PAR         6017     A     
 PAR                                                                                       PAR         6018     A     
 PAR      *         HERE TO *ADD* SUBSCRIPT EXPRESSION RESULT (HOWEVER OPTIMIZED)          PAR         6019     A     
 PAR      *         TO PREVIOUS SUBSCRIPT VALUE.                                           PAR         6020     A     
 PAR                                                                                       PAR         6021     A     
 PAR       ASE32    SA4    B6                      (N-1OP) = SUBSCR VALUE OPERAND          PAR         6022     A     
 PAR                =B2    /OP/MINUS                                                       PAR         6023     A     
 PAR                NZ     X4,ASE34    IF ANY PREVIOUS SUBSCRIPT VALUE                     PAR         6024     A     
 PAR                SB3    X3                                                              PAR         6025     A     
 PAR                =X3    /OP/UMIN                (N-OPR) = UNARY MINUS                   PAR         6026     A     
 PAR                EQ     B3,B2,ASE34 IF (N-OPR) *MINUS*, ISSUE *UMIN*                    PAR         6027     A     
 PAR                BX6    X5                                                              PAR         6028     A     
 PAR                =A6    B6-1        (N-2OP) TO ELSTACK AS NEW SUBSCR VALUE              PAR         6029     A     
 PAR                EQ     EXIT.                                                           PAR         6030     A     
 PAR                                                                                       PAR         6031     A     
 PAR       ASE34    SA3    X3+INTEG    (X3) = SELECTED (TH.)                               PAR         6032     A     
 PAR                RJ     ADU         ISSUE NEW TURPLE                                    PAR         6033     A     
 PAR                EQ     EXIT.                                                           PAR         6034     A     
 PAR       GDI      SPACE  4,20                                                            PAR         6035     A     
 PAR      **        GDI - GET DIMENSION DECLARATOR INFORMATION.                            PAR         6036     A     
 PAR      *                                                                                PAR         6037     A     
 PAR      *                                                                                PAR         6038     A     
 PAR      *         ENTRY  (B2) = NUMBER OF SUBSCRIPT FOR WHICH INFO REQUESTED.            PAR         6039     A     
 PAR      *                (/AR/DIMI) = INDEX OF ARRAY IN T.DIM.                           PAR         6040     A     
 PAR      *                                                                                PAR         6041     A     
 PAR      *         EXIT   (B2) = UNCHANGED.                                               PAR         6042     A     
 PAR      *                (B3) = COUNT OF DIMENSIONS.                                     PAR         6043     A     
 PAR      *                (A3,X3) = DIM HEADER (DH.W) FOR ARRAY IN T.DIM.                 PAR         6044     A     
 PAR      *            IF SUBSCRIPT NUMBER VALID, (B2 .LE. B3), ALSO RETURNS ...           PAR         6045     A     
 PAR      *                (X1) = LOWER BOUND (SIGN-EXT IF CON, VD. ORD IF ADJ).           PAR         6046     A     
 PAR      *                (X2) = UPPER BOUND (SIGN-EXT IF CON, VD. ORD IF ADJ).           PAR         6047     A     
 PAR      *                (X6) = ADJUSTABLE LOWER BOUND FLAG (DI.TDP),                    PAR         6048     A     
 PAR      *                       EXTENDED FROM B59 THROUGH B0.                            PAR         6049     A     
 PAR      *                (X7) = ADJUSTABLE UPPER BOUND FLAG (DI.TDP), POS B59.           PAR         6050     A     
 PAR      *                (A1) -> LB,UB (D2.W) FOR SUBSCRIPT IN T.DIM.                    PAR         6051     A     
 PAR      *                                                                                PAR         6052     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         USES   X1-3,X6-7.    A1-3.    B3,B7.                                   PAR         6053     A     
 PAR      *                                                                                PAR         6054     A     
 PAR      *         CALLS  NONE.                                                           PAR         6055     A     
 PAR                                                                                       PAR         6056     A     
 PAR                                                                                       PAR         6057     A     
 PAR       GDI      SUBR   0           **  ENTRY/EXIT  **                                  PAR         6058     A     
 PAR                SA1    /AR/DIMI    ARRAY INDEX IN T.DIM                                PAR         6059     A     
 PAR                                                                                       PAR         6060     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6061     A     
 PAR                MI     X1,"BLOWUP" IF INDEX BELOW T.DIM                                PAR         6062     A     
 PAR                SA2    T=DIM                                                           PAR         6063     A     
 PAR                IX2    X2-X1                                                           PAR         6064     A     
 PAR                MI     X2,"BLOWUP" IF INDEX ABOVE T.DIM                                PAR         6065     A     
 PAR       .T       ENDIF                                                                  PAR         6066     A     
 PAR                                                                                       PAR         6067     A     
 PAR                SA2    T.DIM                                                           PAR         6068     A     
 PAR                IX1    X1+X2                                                           PAR         6069     A     
 PAR                SA3    X1          *(A3,X3) = DIM HEADER                               PAR         6070     A     
 PAR                MX7    -DH.DIML                                                        PAR         6071     A     
 PAR                LX3    -DH.DIMP                                                        PAR         6072     A     
 PAR                BX6    -X7*X3                                                          PAR         6073     A     
 PAR                LX3    DH.DIMP                                                         PAR         6074     A     
 PAR                SB3    X6          *(B3) = COUNT OF DIMS                               PAR         6075     A     
 PAR                GT     B2,B3,EXIT. IF SUBSCR NUMBER .GT. DIM COUNT  (ERROR)            PAR         6076     A     
 PAR                SB7    B2+B2                                                           PAR         6077     A     
 PAR                ERRNZ  Z=DD-2                                                          PAR         6078     A     
 PAR                SA1    A3+B7       *(A1) -> LB, UB                                     PAR         6079     A     
 PAR                BX6    X1                                                              PAR         6080     A     
 PAR                LX6    59-D2.LBP-DI.TDP                                                PAR         6081          I
          -FC5A231
 PAR                LX6    59-D2.LBP-DM.TDP                                                FC5A231      122     A     
 PAR                AX6    59-0        *(X6) = SIGN-EXT ADJUST. LOWER BOUND FLAG           PAR         6082     A     
 PAR                BX7    X1                                                              PAR         6083     A     
 PAR                LX7    59-D2.UBP-DI.TDP  *(X7) = ADJUSTABLE UPPER BOUND FLAG           PAR         6084          I
          -FC5A231
 PAR                LX7    59-D2.UBP-DM.TDP  *(X7) = ADJUSTABLE UPPER BOUND FLAG           FC5A231      123     A     
 PAR                BX2    X1                                                              PAR         6085     A     
 PAR                LX1    -D2.LBP-DI.INFP-DI.INFL                                         PAR         6086          I
          -FC5A231
 PAR                AX1    -DI.INFL    *(X1) = SIGN-EXTENDED LOWER BOUND                   PAR         6087          I
          -FC5A231
 PAR                LX2    -D2.UBP-DI.INFP-DI.INFL                                         PAR         6088          I
          -FC5A231
 PAR                AX2    -DI.INFL    *(X2) = SIGN-EXTENDED UPPER BOUND                   PAR         6089          I
          -FC5A231
 PAR                LX1    -D2.LBP-DM.INFP-DM.INFL                                         FC5A231      124     A     
 PAR                AX1    -DM.INFL    *(X1) = SIGN EXTENDED LOWER BOUND                   FC5A231      125     A     
 PAR                LX2    -D2.UBP-DM.INFP-DM.INFL                                         FC5A231      126     A     
 PAR                AX2    -DM.INFL    *(X2) = SIGN EXTENDED UPPER BOUND                   FC5A231      127     A     
 PAR                EQ     EXIT.                                                           PAR         6090     A     
 PAR       MSP      SPACE  4,20                                                            PAR         6091     A     
 PAR      **        MSP - MULTIPLY BY DIMENSION SPAN.                                      PAR         6092     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                                                                PAR         6093     A     
 PAR      *         ENTRY  (X1) = NUMBER OF CURRENT SUBSCRIPT.                             PAR         6094     A     
 PAR      *                                                                                PAR         6095     A     
 PAR      *         USES   X0-7.    A1-6.    B2.                                           PAR         6096     A     
 PAR      *                                                                                PAR         6097     A     
 PAR      *         CALLS  ADU/ADT, GDI, LCT, NCS.                                         PAR         6098     A     
 PAR                                                                                       PAR         6099     A     
 PAR                                                                                       PAR         6100     A     
 PAR       MSP      SUBR   0           **  ENTRY/EXIT  **                                  PAR         6101     A     
 PAR                SB2    X1                                                              PAR         6102     A     
 PAR                RJ     GDI         GET DIMENSION INFORMATION                           PAR         6103     A     
 PAR                =A1    A1+D1.W-D2.W      (X1) = DIM SPAN WORD FROM T.DIM               PAR         6104     A     
 PAR                BX5    X1                                                              PAR         6105     A     
 PAR                LX1    59-D1.SPANP-DI.TDP                                              PAR         6106          I
          -FC5A231
 PAR                LX5    -D1.SPANP-DI.INFP-DI.INFL                                       PAR         6107          I
          -FC5A231
 PAR                LX1    59-D1.SPANP-DM.TDP                                              FC5A231      128     A     
 PAR                LX5    -D1.SPANP-DM.INFP-DM.INFL                                       FC5A231      129     A     
 PAR                SA3    /AR/BIAS    (X3) = ACCUMULATED BIAS                             PAR         6108     A     
 PAR                =A4    B6-1        (1OP) = SUBSCRIPT VALUE                             PAR         6109     A     
 PAR                AX5    -DI.INFL    (X5) = SPAN                                         PAR         6110          I
          -FC5A231
 PAR                AX5    -DM.INFL    (X5) = SPAN                                         FC5A231      130     A     
 PAR                MI     X1,MSP20    IF ADJUSTABLE SPAN                                  PAR         6111     A     
 PAR                                                                                       PAR         6112     A     
 PAR      *         HERE IF FIXED SPAN.                                                    PAR         6113     A     
 PAR      *                                                                                PAR         6114     A     
 PAR      *                (X3) = BIAS.                                                    PAR         6115     A     
 PAR      *                (X4) = SUBSCRIPT VALUE.                                         PAR         6116     A     
 PAR      *                (X5) = SPAN.                                                    PAR         6117     A     
 PAR                                                                                       PAR         6118     A     
 PAR      * MSP10   BSS    0                                                               PAR         6119     A     
 PAR                IX6    X3*X5       BIAS = BIAS * SPAN                                  PAR         6120     A     
 PAR       .FIX     SET    --  IN TROUBLE IF PARTIAL PRODUCT EXCEEDS 2**24.                PAR         6121     A     
 PAR                SA6    A3                                                              PAR         6122     A     
 PAR                ZR     X4,EXIT.    IF NULL SUBSCRIPT VALUE                             PAR         6123     A     
 PAR                                                                                       PAR         6124     A     
 PAR      *         HERE IF FIXED SPAN AND SUBSCR VALUE EXISTS.  ISSUE MULTIPLY.           PAR         6125     A     
 PAR                                                                                       PAR         6126     A     
 PAR                BX2    X4                                                              PAR         6127     A     
 PAR                SBIT   X2,TP.INTRP                                                     PAR         6128     A     
 PAR                PL     X2,MSP16    IF SUBSCRIPT VALUE NOT AN INTERMEDIATE              PAR         6129     A     
 PAR                SA1    T.PAR                                                           PAR         6130     A     
 PAR                MX0    -TP.ORDL                                                        PAR         6131     A     
 PAR                LX2    -TP.ORDP+TP.INTRP+1                                             PAR         6132     A     
 PAR                BX3    -X0*X2      EXTRACT ORD                                         PAR         6133     A     
 PAR                SB2    X3                                                              PAR         6134     A     
 PAR                ERRMI  18-TP.ORDL                                                      PAR         6135     A     
 PAR                SA2    INTEG+/OP/MULT                                                  PAR         6136     A     
 PAR                SA1    X1+B2       TH. OF LAST SUBSCR TURPLE                           PAR         6137     A     
 PAR                BX3    X1-X2                                                           PAR         6138          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC50104
 PAR                HX3    TH.SKEL                                                         PAR         6139          I
          -FC50104
 PAR                AX3    -TH.SKELL                                                       PAR         6140          I
          -FC50104
 PAR                NZ     X3,MSP16    IF LAST OP NOT A MULTIPLY                           PAR         6141          I
          -FC50104
 PAR                HX1    TH.SKEL                                                         FC50104      159     A     
 PAR                AX1    -TH.SKELL                                                       FC50104      160     A     
 PAR                HX2    SP.SKEL                                                         FC50104      161     A     
 PAR                AX2    -SP.SKELL                                                       FC50104      162     A     
 PAR                IX1    X1-X2                                                           FC50104      163     A     
 PAR                NZ     X1,MSP16    IF LAST OPERATOR NOT A MULTIPLY                     FC50104      164     A     
 PAR                                                                                       PAR         6142     A     
 PAR      *         HERE IF LAST SUBSCRIPT EXPR OPERATOR WAS A MULTIPLY.                   PAR         6143     A     
 PAR                                                                                       PAR         6144     A     
 PAR                =A4    A1+OR.1OP-OR.OPR  SUBSCRIPT RESULT (1OP)                        PAR         6145     A     
 PAR                BX1    X4                                                              PAR         6146     A     
 PAR                CALL   LCT         CHECK (1OP) TYPE                                    PAR         6147     A     
 PAR                ZR     B2,MSP12    IF (1OP) NOT A CONSTANT                             PAR         6148     A     
 PAR                                                                                       PAR         6149     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6150     A     
 PAR                SA2    ="BOOLINT"                                                      PAR         6151     A     
 PAR                SB2    X0          MODE                                                PAR         6152     A     
 PAR                LX2    B2                                                              PAR         6153     A     
 PAR                PL     X2,"BLOWUP" IF NOT BOOL OR INT  ( *SSR* ERROR )                 PAR         6154     A     
 PAR       .T       ENDIF                                                                  PAR         6155     A     
 PAR                                                                                       PAR         6156     A     
 PAR                IX5    X6*X5       NEW (2OP) = K-OPD * CONST SPAN                      PAR         6157     A     
 PAR       .FIX     SET    --  IN TROUBLE IF PARTIAL PRODUCT EXCEEDS 2**24.                PAR         6158     A     
 PAR                =A4    A4-OR.1OP+OR.2OP  NEW (1OP)                                     PAR         6159     A     
 PAR                EQ     MSP18       ISSUE NEW MULTIPLY TURPLE (OLD MAY DANGLE)          PAR         6160     A     
 PAR                                                                                       PAR         6161     A     
 PAR       MSP12    =A4    A4+OR.2OP-OR.1OP  SUBSCRIPT RESULT (2OP)                        PAR         6162     A     
 PAR                BX1    X4                                                              PAR         6163     A     
 PAR                CALL   LCT         CHECK (2OP) TYPE                                    PAR         6164     A     
 PAR                ZR     B2,MSP16    IF (2OP) NOT A CONSTANT                             PAR         6165     A     
 PAR                                                                                       PAR         6166     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6167     A     
 PAR                SA2    ="BOOLINT"                                                      PAR         6168     A     
 PAR                SB2    X0          MODE                                                PAR         6169     A     
 PAR                LX2    B2                                                              PAR         6170     A     
 PAR                PL     X2,"BLOWUP" IF NOT BOOL OR INT  ( *SSR* ERROR )                 PAR         6171     A     
 PAR       .T       ENDIF                                                                  PAR         6172     A     
 PAR                                                                                       PAR         6173     A     
 PAR                IX5    X6*X5       NEW (2OP) = K-OPD * CONST SPAN                      PAR         6174     A     
 PAR       .FIX     SET    --  IN TROUBLE IF PARTIAL PRODUCT EXCEEDS 2**24.                PAR         6175     A     
 PAR                =A4    A4-OR.2OP+OR.1OP  NEW (1OP)                                     PAR         6176     A     
 PAR                EQ     MSP18       ISSUE NEW MULTIPLY TURPLE (OLD MAY DANGLE)          PAR         6177     A     
 PAR                                                                                       PAR         6178     A     
 PAR      *         HERE TO ISSUE (SUBSCRIPT VALUE / PRED OPD) * (CONSTANT SPAN).          PAR         6179     A     
 PAR      *                (X4) = (1OP).                                                   PAR         6180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                (X5) = CONSTANT FOR (2OP).                                      PAR         6181     A     
 PAR                                                                                       PAR         6182     A     
 PAR       MSP16    SA4    B6-1        (1OP) = PREVIOUS RESULT                             PAR         6183     A     
 PAR       MSP18    BX6    X5                                                              PAR         6184     A     
 PAR                =X7    M.INT                                                           PAR         6185     A     
 PAR                CALL   NCS                                                             PAR         6186     A     
 PAR                BX5    X6          (2OP) = SPAN                                        PAR         6187     A     
 PAR                EQ     MSP30                                                           PAR         6188     A     
 PAR                                                                                       PAR         6189     A     
 PAR      *         HERE TO PROCESS ADJUSTABLE DIMENSION SPAN.                             PAR         6190     A     
 PAR      *                (A3,X3) = /AR/BIAS, BIAS ACCUMULATOR.                           PAR         6191     A     
 PAR      *                (X4) = (1OP) = SUBSCRIPT VALUE.                                 PAR         6192     A     
 PAR      *                (X5) = VD. ORDINAL OF SPAN.                                     PAR         6193     A     
 PAR                                                                                       PAR         6194     A     
 PAR       MSP20    BX6    X5                                                              PAR         6195     A     
 PAR                MX7    0                                                               PAR         6196     A     
 PAR                SA6    MSPA        TEMP SAVE VD. ORD                                   PAR         6197     A     
 PAR                SA7    A3          CLEAR BIAS ACCUMULATOR                              PAR         6198     A     
 PAR                BX5    X4          PRESET (2OP) = SUBSCRIPT VALUE                      PAR         6199     A     
 PAR                NZ     X3,MSP22    IF BIAS .NZ., GO ADD IT IN                          PAR         6200     A     
 PAR                ZR     X4,EXIT.    IF NULL SUBSCRIPT VALUE                             PAR         6201     A     
 PAR                EQ     MSP28                                                           PAR         6202     A     
 PAR                                                                                       PAR         6203     A     
 PAR       MSP22    BX6    X3                                                              PAR         6204     A     
 PAR                =X7    M.INT                                                           PAR         6205     A     
 PAR                CALL   NCS                                                             PAR         6206     A     
 PAR                SA3    INTEG+/OP/PLUS    (OPR) = INTEGER ADD                           PAR         6207     A     
 PAR                BX5    X6          (2OP) = BIAS                                        PAR         6208     A     
 PAR                ZR     X4,MSP28    IF NULL SUBSCRIPT VALUE                             PAR         6209     A     
 PAR                RJ     ADU         ISSUE ADD                                           PAR         6210     A     
 PAR                =A5    B6-1        (2OP) = NEW SUBSCRIPT VALUE                         PAR         6211     A     
 PAR                                                                                       PAR         6212     A     
 PAR       MSP28    SA1    MSPA        SAVED VD. ORDINAL                                   PAR         6213     A     
 PAR                SA2    /AR/VDSK    VD. OPERAND SKELETON, PRESET WITH (S=VD)            PAR         6214     A     
 PAR                LX1    TP.BIASP                                                        PAR         6215     A     
 PAR                BX4    X1+X2       (1OP) = ADJUSTABLE SPAN                             PAR         6216     A     
 PAR                                                                                       PAR         6217     A     
 PAR       MSP30    SA3    INTEG+/OP/MULT                                                  PAR         6218     A     
 PAR                RJ     ADU                                                             PAR         6219     A     
 PAR                EQ     EXIT.                                                           PAR         6220     A     
 PAR       SLB      SPACE  4,20                                                            PAR         6221     A     
 PAR      **        SLB - SUBTRACT LOWER BOUND.                                            PAR         6222     A     
 PAR      *                                                                                PAR         6223     A     
 PAR      *                                                                                PAR         6224     A     
 PAR      *         ENTRY  (X1) = CURRENT SUBSCRIPT NUMBER.                                PAR         6225     A     
 PAR      *                                                                                PAR         6226     A     
 PAR      *         USES   X2-6.    A2-4,A6.    B2.                                        PAR         6227     A     
 PAR      *                                                                                PAR         6228     A     
 PAR      *         CALLS  ADU/ADT, GDI.                                                   PAR         6229     A     
 PAR                                                                                       PAR         6230     A     
 PAR                                                                                       PAR         6231     A     
 PAR       SLB      SUBR   0           **  ENTRY/EXIT  **                                  PAR         6232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB2    X1          (B2) = CURRENT SUBSCRIPT NUMBER                     PAR         6233     A     
 PAR                RJ     GDI         GET DIMENSION INFORMATION                           PAR         6234     A     
 PAR                MI     X6,SLB2     IF LOWER BOUND IS ADJUSTABLE                        PAR         6235     A     
 PAR                SA2    /AR/BIAS                                                        PAR         6236     A     
 PAR                IX6    X2-X1       BIAS = BIAS - LOWER BOUND (CONSTANT)                PAR         6237     A     
 PAR                SA6    A2                                                              PAR         6238     A     
 PAR                EQ     EXIT.                                                           PAR         6239     A     
 PAR                                                                                       PAR         6240     A     
 PAR      *         HERE IF LOWER BOUND IS ADJUSTABLE.                                     PAR         6241     A     
 PAR                                                                                       PAR         6242     A     
 PAR       SLB2     SA2    /AR/VDSK                                                        PAR         6243     A     
 PAR                =A4    B6-1        (1OP) = SUBSCRIPT VALUE                             PAR         6244     A     
 PAR                LX1    TP.BIASP                                                        PAR         6245     A     
 PAR                BX5    X2+X1       (2OP) = ADJUSTABLE LOWER BOUND                      PAR         6246     A     
 PAR                SA3    INTEG+/OP/MINUS   (OPR) = INTEGER SUBTRACT                      PAR         6247     A     
 PAR                NZ     X4,SLB3     IF SUBSCRIPT VALUE NOT NULL                         PAR         6248     A     
 PAR                =A3    A3-/OP/MINUS+/OP/UMIN                                           PAR         6249     A     
 PAR       SLB3     RJ     ADU         ISSUE SUBTRACT OR UNARY MINUS                       PAR         6250     A     
 PAR                EQ     EXIT.                                                           PAR         6251     A     
 PAR       SSO      SPACE  4,30                                                            PAR         6252     A     
 PAR      **        SSO -  SET UP SUBSCRIPT OPERATIONS.                                    PAR         6253     A     
 PAR      *                                                                                PAR         6254     A     
 PAR      *         CALLED WHEN PARSER HAS ENCOUNTED AN ARRAY NAME FOLLOWED                PAR         6255     A     
 PAR      *         BY A LEFT PAREN.  SETS CONDITIONS FOR PARSER TO INDICATE               PAR         6256     A     
 PAR      *         WE ARE NOW IN SUBSCRIPT MODE.                                          PAR         6257     A     
 PAR      *                                                                                PAR         6258     A     
 PAR      *         ENTRY  (CSYTAG) = PASS 1 TAG-FORM OF ARRAY.                            PAR         6259     A     
 PAR      *                (CSYWB) = T.SYM WORD B FOR ARRAY.                               PAR         6260     A     
 PAR      *                                                                                PAR         6261     A     
 PAR      *         EXIT   (X4) = NEW *ARGMIS*.                                            PAR         6262     A     
 PAR      *                (X7) = NEW *ARGCOMA*.                                           PAR         6263     A     
 PAR      *                                                                                PAR         6264     A     
 PAR      *         USES   X0-4,X7.    A1-3.    B2-3.                                      PAR         6265     A     
 PAR      *                                                                                PAR         6266     A     
 PAR      *         CALLS  NONE.                                                           PAR         6267     A     
 PAR                                                                                       PAR         6268     A     
 PAR                                                                                       PAR         6269     A     
 PAR       SSO      SUBR   0           **  ENTRY/EXIT  **                                  PAR         6270     A     
 PAR                SA1    CSYTAG                                                          PAR         6271     A     
 PAR                SA2    T.SYM                                                           PAR         6272     A     
 PAR                MX0    -TP.ORDL                                                        PAR         6273     A     
 PAR                LX1    -TP.ORDP                                                        PAR         6274     A     
 PAR                BX7    -X0*X1       EXTRACT T.SYM ORDINAL OF ARRAY                     PAR         6275     A     
 PAR                =B2    X7+WA.W                                                         PAR         6276     A     
 PAR                ERRMI  18-TP.ORDL                                                      PAR         6277     A     
 PAR                                                                                       PAR         6278     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6279     A     
 PAR                MI     B2,"BLOWUP"       IF INDEX BELOW T.SYM                          PAR         6280     A     
 PAR                SA3    T=SYM                                                           PAR         6281     A     
 PAR                SB3    X3                                                              PAR         6282     A     
 PAR                GT     B2,B3,"BLOWUP"    IF INDEX ABOVE T.SYM                          PAR         6283     A     
 PAR       .T       ENDIF                                                                  PAR         6284     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         6285     A     
 PAR                LX0    X7,B1                                                           PAR         6286     A     
 PAR                SB2    X0+B2                                                           PAR         6287     A     
 PAR                ERRNZ  Z=SYM-3                                                         PAR         6288     A     
 PAR                SA2    X2+B2                                                           PAR         6289     A     
 PAR                MX0    WA.NAMEL                                                        PAR         6290     A     
 PAR                HX2    WA.NAME                                                         PAR         6291     A     
 PAR                SA1    CSYWB                                                           PAR         6292     A     
 PAR                BX4    X0*X2       *(X4) = ARGMIS [NAME=ARRAY NAME]                    PAR         6293     A     
 PAR                ERRNZ  WA.NAMEP-AS.NAMEP                                               PAR         6294     A     
 PAR                MX0    -WB.PNTL                                                        PAR         6295     A     
 PAR                LX1    -WB.PNTP                                                        PAR         6296     A     
 PAR                BX0    -X0*X1       EXTRACT T.DIM INDEX OF ARRAY                       PAR         6297     A     
 PAR                                                                                       PAR         6298     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6299     A     
 PAR                MI     X0,"BLOWUP"       IF INDEX BELOW T.DIM                          PAR         6300     A     
 PAR                SA2    T=DIM                                                           PAR         6301     A     
 PAR                IX2    X2-X0                                                           PAR         6302     A     
 PAR                MI     X2,"BLOWUP"       IF INDEX ABOVE T.DIM                          PAR         6303     A     
 PAR       .T       ENDIF                                                                  PAR         6304     A     
 PAR                                                                                       PAR         6305     A     
 PAR                LX7    AC.SYMP                                                         PAR         6306     A     
 PAR                LX0    AC.DIMIP                                                        PAR         6307     A     
 PAR                BX7    X7+X0       *(X7) = ARGCOMA[VSUB=0,SYM=*,DIMI=**,CNT=0]         PAR         6308     A     
 PAR                EQ     EXIT.                                                           PAR         6309     A     
 PAR       SSR      EJECT                                                                  PAR         6310     A     
 PAR      **        SSR - STANDARDIZE SUBSCRIPT RESULT.                                    PAR         6311     A     
 PAR      *                                                                                PAR         6312     A     
 PAR      *         ENTRY  (X4) = ARGCOMA.                                                 PAR         6313     A     
 PAR      *                (X5) = SUBSCRIPT EXPRESSION RESULT.                             PAR         6314     A     
 PAR      *                (B6)-1  ->  SUBSCRIPT EXPR RESULT.                              PAR         6315     A     
 PAR      *                                                                                PAR         6316     A     
 PAR      *         EXIT   (X4) = ARGCOMA.                                                 PAR         6317     A     
 PAR      *                                                                                PAR         6318     A     
 PAR      *         USES   X0-7.    A1-4,A6-7.    B2-3,B6-7.                               PAR         6319     A     
 PAR      *                                                                                PAR         6320     A     
 PAR      *         CALLS  ADU/ADT, GDI, LCT, NCS, SUBERR(OSE).                            PAR         6321     A     
 PAR                                                                                       PAR         6322     A     
 PAR                                                                                       PAR         6323     A     
 PAR       SSR      SUBR   0           **  ENTRY/EXIT  **                                  PAR         6324     A     
 PAR                LX4    -AC.CNTP                                                        PAR         6325     A     
 PAR                SX6    X4                                                              PAR         6326     A     
 PAR                SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT                      PAR         6327     A     
 PAR                ERRNZ  AC.CNTL-18                                                      PAR         6328     A     
 PAR                SA6    /AR/NSUB    SAVE CURRENT SUBSCRIPT COUNT                        PAR         6329     A     
 PAR                LX4    -AC.DIMIP+AC.CNTP                                               PAR         6330     A     
 PAR                SX7    X4                                                              PAR         6331     A     
 PAR                ERRNZ  AC.DIMIL-18                                                     PAR         6332     A     
 PAR                LX4    AC.DIMIP    (X4) = RESTORE *ARGCOMA* NATURAL POSITION           PAR         6333     A     
 PAR                SA7    /AR/DIMI    SAVE INDEX OF ARRAY IN T.DIM                        PAR         6334     A     
 PAR                RJ     GDI         GET DIMENSION INFORMATION                           PAR         6335     A     
 PAR                GT     B2,B3,EXIT. IF TOO MANY SUBSCRIPTS (DIAGNOSED LATER)            PAR         6336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX1    X5                                                              PAR         6337     A     
 PAR                CALL   LCT                                                             PAR         6338     A     
 PAR                SA2    ="ALLNUM"                                                       PAR         6339     A     
 PAR                SB7    E.SB2       PRESET MSG  *NOT NUMERIC TYPE*                      PAR         6340     A     
 PAR                SB3    X0          (B3) = MODE                                         PAR         6341     A     
 PAR                LX2    B3                                                              PAR         6342     A     
 PAR                PL     X2,SSR30    IF SUBSCRIPT NOT NUMERIC                            PAR         6343     A     
 PAR                BX0    X6          (X0) = CONSTANT SUBSCRIPT VALUE (=0 IF VAR)         PAR         6344     A     
 PAR                =B7    M.INT                                                           PAR         6345     A     
 PAR                EQ     B3,B7,SSR2  IF SUBSCRIPT INTEGER                                PAR         6346     A     
 PAR                SUBERR E.SB3       ISSUE MSG *(NON-ANS) NOT INTEGER*                   PAR         6347     A     
 PAR       SSR2     SA2    ="BOOLINT"                                                      PAR         6348     A     
 PAR                =X7    M.INT                                                           PAR         6349     A     
 PAR                LX2    B3                                                              PAR         6350     A     
 PAR                NZ     B2,SSR20    IF SUBSCRIPT CONSTANT                               PAR         6351     A     
 PAR                                                                                       PAR         6352     A     
 PAR      *         HERE IF SUBSCRIPT IS VARIABLE.                                         PAR         6353     A     
 PAR      *         FORCE INTEGER MODE IF NOT BOOLEAN OR INTEGER.                          PAR         6354     A     
 PAR                                                                                       PAR         6355     A     
 PAR      * SSR10   BSS    0                                                               PAR         6356     A     
 PAR                CLAS=  X0,AC,(VSUB)                                                    PAR         6357     A     
 PAR                BX4    X4+X0       FLAG VARIABLE SUBSCRIPT                             PAR         6358     A     
 PAR                MI     X2,EXIT.    IF SUBSCRIPT IS BOOLEAN OR INTEGER                  PAR         6359     A     
 PAR                LX6    X4                                                              PAR         6360     A     
 PAR                BX4    0           (1OP) = DUMMY                                       PAR         6361     A     
 PAR                SA6    SSRA        TEMP SAVE ARGCOMA                                   PAR         6362     A     
 PAR                SA3    INTMAC      (X3) = *INT* OPERATOR                               PAR         6363     A     
 PAR                RJ     ADU         *INT* CONVERSION TURPLE TO T.PAR                    PAR         6364     A     
 PAR                SA4    SSRA        RESTORE (X4) = ARGCOMA                              PAR         6365     A     
 PAR                EQ     EXIT.                                                           PAR         6366     A     
 PAR                                                                                       PAR         6367     A     
 PAR      *         HERE IF SUBSCRIPT IS CONSTANT.                                         PAR         6368     A     
 PAR                                                                                       PAR         6369     A     
 PAR       SSR20    BX5    X0          (X5) = CONSTANT SUBSCRIPT VALUE                     PAR         6370     A     
 PAR                MI     X2,SSR22    IF SUBSCRIPT IS BOOLEAN OR INTEGER CONSTANT         PAR         6371     A     
 PAR                UX0,B7 X5          INTEGERIZE CONSTANT                                 PAR         6372     A     
 PAR                LX6    X0,B7                                                           PAR         6373     A     
 PAR                BX5    X6          (X5) = SAVE INTEGERIZED CONSTANT                    PAR         6374     A     
 PAR                CALL   NCS                                                             PAR         6375     A     
 PAR                =A6    B6-1        INTEGERIZED SUBSCRIPT TO ELSTACK                    PAR         6376     A     
 PAR                BX0    X5                                                              PAR         6377     A     
 PAR                                                                                       PAR         6378     A     
 PAR      *         HERE WITH (X0)=(X5) = INTEGER (OR BOOLEAN) CONSTANT SUBSCRIPT.         PAR         6379     A     
 PAR      *         CHECK ...                                                              PAR         6380     A     
 PAR      *                1.  IS SUBSCRIPT MAGNITUDE .LT. 2**23-1  (IF TOO BIG,           PAR         6381     A     
 PAR      *                    WE RUN INTO FIELD OVERFLOWS IN *A=ARRAY*.)                  PAR         6382     A     
 PAR      *                2.  IS NUMBER OF SUBSCRIPT  .LE.  NUMBER OF DIMENSIONS.         PAR         6383     A     
 PAR      *                3.  IS SUBSCRIPT .LE. UPPER BOUND AND .GE. LOWER BOUND.         PAR         6384     A     
 PAR                                                                                       PAR         6385     A     
 PAR       SSR22    AX0    DI.INFL-1   DISCARD VALID SUBSCRIPT BITS                        PAR         6386          I
          -FC5A231
 PAR       SSR22    AX0    DM.INFL-1   DISCARD VALID SUBSCRIPT BITS                        FC5A231      131     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB7    E.SB4       PRESET MSG *MAGNITUDE .GT. 2**23-1 *                PAR         6387     A     
 PAR                LX4    -AC.CNTP                                                        PAR         6388     A     
 PAR                SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT                      PAR         6389     A     
 PAR                ERRNZ  AC.CNTL-18                                                      PAR         6390     A     
 PAR                LX4    AC.CNTP                                                         PAR         6391     A     
 PAR                NZ     X0,SSR30    IF ABS(SUBSCRIPT) TOO LARGE                         PAR         6392     A     
 PAR                RJ     GDI         GET DIMENSION INFORMATION                           PAR         6393     A     
 PAR                MI     X6,SSR24    IF LOWER BOUND ADJUSTABLE                           PAR         6394     A     
 PAR                IX0    X5-X1                                                           PAR         6395     A     
 PAR                SB7    E.SB5       PRESET MSG *SUBSCRIPT .LT. LOWER BOUND*             PAR         6396     A     
 PAR                MI     X0,SSR28    IF SUBSCRIPT .LT. LOWER BOUND                       PAR         6397     A     
 PAR       SSR24    MI     X7,EXIT.    IF UPPER BOUND ADJUSTABLE                           PAR         6398     A     
 PAR                IX0    X2-X5                                                           PAR         6399     A     
 PAR                SB7    E.SB6       PRESET MSG *SUBSCRIPT .GT. UPPER BOUND*             PAR         6400     A     
 PAR                PL     X0,EXIT.    IF SUBSCRIPT .LE. UPPER BOUND                       PAR         6401     A     
 PAR       SSR28    SUBERR B7                                                              PAR         6402     A     
 PAR                EQ     EXIT.                                                           PAR         6403     A     
 PAR                                                                                       PAR         6404     A     
 PAR      *         HERE IF SUBSCRIPT MAGNITUDE OR MODE ERROR.                             PAR         6405     A     
 PAR      *         SUBSTITUTE LEGAL SUBSCRIPT VALUE.                                      PAR         6406     A     
 PAR      *                (B7) -> ERROR MESSAGE TO BE ISSUED.                             PAR         6407     A     
 PAR                                                                                       PAR         6408     A     
 PAR       SSR30    SUBERR B7          ISSUE ERROR MESSAGE                                 PAR         6409     A     
 PAR                LX4    -AC.CNTP                                                        PAR         6410     A     
 PAR                SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT                      PAR         6411     A     
 PAR                ERRNZ  AC.CNTL-18                                                      PAR         6412     A     
 PAR                LX4    AC.CNTP                                                         PAR         6413     A     
 PAR                RJ     GDI         GET DIMENSION INFORMATION                           PAR         6414     A     
 PAR                BX6    -X6*X1      (X6) = LB IF LB CONST, = 0 IF LB ADJUST             PAR         6415     A     
 PAR                =X7    M.INT                                                           PAR         6416     A     
 PAR                CALL   NCS                                                             PAR         6417     A     
 PAR                =A6    B6-1         *SAFE* SUBSCRIPT TO ELSTACK                        PAR         6418     A     
 PAR                EQ     EXIT.                                                           PAR         6419     A     
 PAR                TITLE  SUBROUTINES.                                                    PAR         6420     A     
 PAR       ACT      SPACE  4,10                                                            PAR         6421     A     
 PAR      **        ACT -  ADD CONVERTED TURPLE.                                           PAR         6422     A     
 PAR      *                                                                                PAR         6423     A     
 PAR      *         ENTRY  (X1) = TOKEN TYPE OF OPERATOR.                                  PAR         6424     A     
 PAR      *                (X4) = 1OP                                                      PAR         6425     A     
 PAR      *                (X5) = 2OP                                                      PAR         6426     A     
 PAR      *                                                                                PAR         6427     A     
 PAR      *         EXIT   (B6) = DECREMENTED BY ONE.                                      PAR         6428     A     
 PAR      *                ((B6)-1) -> RESULT OPERAND.                                     PAR         6429     A     
 PAR      *                SPECIFIC-MODE TURPLE PUT OUT.                                   PAR         6430     A     
 PAR      *                                                                                PAR         6431     A     
 PAR      *         USES   CANNOT DESTROY A0, B4,B5                                        PAR         6432     A     
 PAR      *         CALLS  ADT, OMC, SDM.                                                  PAR         6433     A     
 PAR                                                                                       PAR         6434     A     
 PAR                                                                                       PAR         6435     A     
 PAR       ACT      SUBR   =           ...ENTRY/EXIT...                                    PAR         6436     A     
 PAR                SA2    X1-O.SEP+F.PRIOR                                                PAR         6437     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         6438          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC50104
 PAR                LX2    -TH.TBPRP                                                       PAR         6439          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      165     A     
 PAR                LX2    -SP.TBPRP                                                       FC50104      166     A     
 PAR                BX7    X0*X2       CLEAR STACK PRIORITY                                PAR         6440     A     
 PAR                BX3    X7+X1       SET (TH.TBPR) = TOKEN TYPE                          PAR         6441     A     
 PAR                LX3    TH.TBPRP                                                        PAR         6442          I
          -FC50104
 PAR                LX3    SP.TBPRP                                                        FC50104      167     A     
 PAR                RJ     SDM         SELECT DOMINANT MODE                                PAR         6443     A     
 PAR                RJ     OMC         OUTPUT MODE CONVERSION (IF NECESSARY)               PAR         6444     A     
 PAR                RJ     ADT         ADD TURPLE                                          PAR         6445     A     
 PAR                EQ     EXIT.                                                           PAR         6446     A     
 PAR       ADT      SPACE  4,20                                                            PAR         6447     A     
 PAR      **        ADT - ADD TURPLE TO PARSED FILE.                                       PAR         6448     A     
 PAR      *                                                                                PAR         6449     A     
 PAR      *         GENERAL FLOW                                                           PAR         6450     A     
 PAR      *         A. CCR - CHECKS IF CURRENT TURPLE CAN BE PERFORMED AT COMPILE          PAR         6451          I
          -FC50391
 PAR      *                                                                                FC50391        6     A     
 PAR      *         A. CBB - CONVERTS 1OP AND 2OP TO BASE/BIAS FORMAT, AS NEEDED.          FC50391        7     A     
 PAR      *                                                                                FC50391        8     A     
 PAR      *         B. CCR - CHECKS IF CURRENT TURPLE CAN BE PERFORMED AT COMPILE          FC50391        9     A     
 PAR      *                  TIME, IF OPERATION IS DEFINED, IF TURPLE CAN BE               PAR         6452     A     
 PAR      *                  MODIFIED TO A FASTER DEFINED OPERATION, ETC.                  PAR         6453     A     
 PAR      *                                                                                PAR         6454     A     
 PAR      *         B. SQZ - CHECKS IF CURRENT TURPLE CAN BE SQUEEZED OUT BECAUSE          PAR         6455          I
          -FC50391
 PAR      *         C. SQZ - CHECKS IF CURRENT TURPLE CAN BE SQUEEZED OUT BECAUSE          FC50391       10     A     
 PAR      *                  OF A PREVIOUS ALIKE TURPLE.                                   PAR         6456     A     
 PAR      *                                                                                PAR         6457     A     
 PAR      *         C. ALC - ALLOCATES ROOM FOR CURRENT TURPLE.                            PAR         6458          I
          -FC50391
 PAR      *         D. ALC - ALLOCATES ROOM FOR CURRENT TURPLE.                            FC50391       11     A     
 PAR      *                                                                                PAR         6459     A     
 PAR      *                                                                                PAR         6460     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         6461     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         6462     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         6463     A     
 PAR      *                (SOPR) = (X3).                                                  PAR         6464     A     
 PAR      *                (SMOD) = RESULTANT MODE OF TURPLE.                              PAR         6465     A     
 PAR      *                         (SEE DEFINITION IN *SDM*.)                             PAR         6466     A     
 PAR      *                (ATTR) = EXTRA BITS TO MERGE INTO RESULT OPERAND.               PAR         6467     A     
 PAR      *                                                                                PAR         6468     A     
 PAR      *         EXIT   T.PAR UPDATED BY Z=TURP, IF TURPLE NOT SQUEEZED OR              PAR         6469     A     
 PAR      *                REDUCED.                                                        PAR         6470     A     
 PAR      *                (B2) = MI IFF TURPLE EMITTED                                    FC5A207        6     A     
 PAR      *                (B6) = UPDATED BY -1.                                           PAR         6471     A     
 PAR      *                ESTACK (B6) = INTERMEDIATE GENERATED BY CURRENT TURPLE.         PAR         6472     A     
 PAR      *                (ATTR) = 0.                                                     PAR         6473     A     
 PAR      *                                                                                PAR         6474     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         USES   X0-3,X6-7.    A1-3,A6-7.    B2-3,B6-7.                          PAR         6475     A     
 PAR      *                                                                                PAR         6476     A     
 PAR      *         CALLS  CCR, EMIT(EMT), SQZ.                                            PAR         6477          I
          -FC50391
 PAR      *         CALLS  ALC, CBB, CCR, DBE, EMT, SQZ                                    FC50391       12     A     
 PAR      *                                                                                PAR         6478     A     
 PAR      *         NOTE   THIS ROUTINE DEPENDS ON THE ORDER.....                          PAR         6479     A     
 PAR      *                ...OSTACK FOLLOWED BY ESTACK.                                   PAR         6480     A     
 PAR                                                                                       PAR         6481     A     
 PAR                                                                                       PAR         6482     A     
 PAR       ADT      SUBR   =           ENTRY/EXIT...                                       PAR         6483     A     
 PAR                SA1    PARNOW                                                          PAR         6484          I
          -FC50391
 PAR                SA1    DATFLG                                                          FC50391       13     A     
 PAR                SX1    X1-PM=DATA                                                      FC50391       14     A     
 PAR                ZR     X1,ADT1     IF PARSING *DATA*                                   FC50391       15     A     
 PAR                RJ     CBB         CONVERT 2OP TO BASE/BIAS FORMAT                     FC50391       16     A     
 PAR                BX0    X5                                                              FC50391       17     A     
 PAR                LX5    X4                                                              FC50391       18     A     
 PAR                BX4    X0          SWAP 1OP/2OP FOR CBB                                FC50391       19     A     
 PAR                RJ     CBB         CONVERT 2OP TO BASE/BIAS FORMAT                     FC50391       20     A     
 PAR                LX0    X5                                                              FC50391       21     A     
 PAR                BX5    X4                                                              FC50391       22     A     
 PAR                LX4    X0          RESTORE                                             FC50391       23     A     
 PAR                                                                                       FC50391       24     A     
 PAR       ADT1     SA1    PARNOW                                                          FC50391       25     A     
 PAR                MX6    0                                                               PAR         6485     A     
 PAR                SA6    IFREL2      INDICATE LAST TURPLE NOT RELATIONAL                 PAR         6486     A     
 PAR                SX1    X1-PM=DIM                                                       PAR         6487     A     
 PAR                NZ     X1,ADT1     IF NOT 'DIM BOUND' PARSING                          PAR         6488          I
          -FC50391
 PAR                NZ     X1,ADT2     IF NOT 'DIM BOUND' PARSING                          FC50391       26     A     
 PAR                CLAS=  X0,TH,(NSQZ)                                                    PAR         6489          I
          -FC50104
 PAR                CLAS=  X0,SP,(NSQZ)                                                    FC50104      168     A     
 PAR                BX6    X0+X3       DONT SQUEEZE DIMENSION BOUNDS EXPRESSION            PAR         6490     A     
 PAR                LX3    X6                                                              PAR         6491     A     
 PAR                SA6    SOPR                                                            PAR         6492     A     
 PAR                HX6    TH.BND                                                          PAR         6493          I
          -FC50104
 PAR                HX6    SP.BND                                                          FC50104      169     A     
 PAR                MI     X6,ADT1     IF LEGAL OPERATION                                  PAR         6494          I
          -FC50391
 PAR                MI     X6,ADT2     IF LEGAL OPERATION                                  FC50391       27     A     
 PAR                SB7    E.DM11                                                          PAR         6495     A     
 PAR                RJ     DBE         OUTPUT DIMENSION BOUND ERROR                        PAR         6496     A     
 PAR                                                                                       PAR         6497     A     
 PAR       ADT1     BX0    X3                                                              PAR         6498          I
          -FC50391
 PAR       ADT2     BX0    X3                                                              FC50391       28     A     
 PAR                HX0    TH.UNAR                                                         PAR         6499          I
          -FC50104
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                HX0    SP.UNAR                                                         FC50104      170     A     
 PAR                PL     X0,ADT2     IF NOT UNARY TURPLE                                 PAR         6500          I
          -FC50391
 PAR                PL     X0,ADT3     IF NOT UNARY TURPLE                                 FC50391       29     A     
 PAR                BX4    X5          (P1) = ONLY OPERAND (1OP)                           PAR         6501     A     
 PAR                MX5    0           (P2) = NIL                                          PAR         6502     A     
 PAR                                                                                       PAR         6503     A     
 PAR       ADT2     MX6    -TH.SKELL                                                       PAR         6504          I
          -FC50104
 PAR                LX0    TH.UNARP+1-TH.SKELP                                             PAR         6505          I
          -FC50104
 PAR       ADT2     MX6    -SP.SKELL                                                       FC50104      171          I
          -FC50391
 PAR       ADT3     MX6    -SP.SKELL                                                       FC50391       30     A     
 PAR                BX7    X0                                                              FC50947        9     A     
 PAR                LX0    SP.UNARP+1-SP.SKELP                                             FC50104      172     A     
 PAR                BX2    -X6*X0                                                          PAR         6506     A     
 PAR                SA1    X2+=XF.SKCR                                                     PAR         6507     A     
 PAR                LX1    -VS.CRAP                                                        PAR         6508     A     
 PAR                BX0    X7                                                              FC50947       10     A     
 PAR                SX7    X1          (X7) = ADDRESS OF CONSTANT REDUCER                  PAR         6509     A     
 PAR                ERRNZ  18-VS.CRAL                                                      PAR         6510     A     
 PAR                ZR     X7,ADT5     IF THIS SKEL NOT REDUCIBLE                          PAR         6511     A     
 PAR                                                                                       PAR         6512          I
          -FC50391
 PAR                CALL   CCR         CHECK CONSTANT REDUCTION                            PAR         6513          I
          -FC50947
 PAR                PL     X0,ADT4     IF NOT UNARY TURPLE                                 FC50947       11     A     
 PAR                SA1    CO.DOLG                                                         FC50947       12     A     
 PAR                ZR     X1,ADT4     IF NOT LONG DO                                      FC50947       13     A     
 PAR                SA1    ARGMODE                                                         FC50947       14     A     
 PAR                SB7    X1-A=DO                                                         FC50947       15     A     
 PAR                ZR     B7,ADT5     IF DO INDUCTION VARIABLE                            FC50947       16     A     
 PAR                                                                                       FC50947       17     A     
 PAR       ADT4     CALL   CCR         CHECK CONSTANT REDUCTION                            FC50947       18     A     
 PAR                SA3    SOPR                                                            PAR         6514     A     
 PAR                ZR     X6,ADT5     IF TURPLE NOT REDUCED                               PAR         6515     A     
 PAR                SB6    B6-B1       POP ELEMENT STACK                                   PAR         6516     A     
 PAR                SA6    B6-B1       ESTACK.TOP = RESULT OF REDUCTION                    PAR         6517     A     
 PAR                SB2    1                                                               FC5A207        7     A     
 PAR                EQ     EXIT.                                                           PAR         6518     A     
 PAR                                                                                       PAR         6519     A     
 PAR       ADT5     BX0    X3                                                              PAR         6520     A     
 PAR                HX0    TH.NSQZ                                                         PAR         6521          I
          -FC50104
 PAR                HX0    SP.NSQZ                                                         FC50104      173     A     
 PAR                SX6    B5                                                              PAR         6522     A     
 PAR                SB2    -B1         INDICATE NO SQUEEZE PERFORMED                       PAR         6523     A     
 PAR      ** MCQ           ABOVE (B2) IS TEMP KLUDGE FOR SQZ WIREOFF.                      PAR         6524          I
          -FC50104
 PAR                MI     X0,ADT7     IF SQZ INHIBITED FOR THIS TURPLE                    PAR         6525     A     
 PAR                SA6    ADTA        SAVE B5                                             PAR         6526     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                RJ     SQZ         CHECK IF CURRENT TURPLE CAN BE ELIMINATED           PAR         6527     A     
 PAR                SA1    ADTA        RESTORE B5                                          PAR         6528     A     
 PAR                SB5    X1          RESTORE *B5*                                        PAR         6529     A     
 PAR                PL     B2,ADTX     IF OPERATION SQUEEZED                               PAR         6530     A     
 PAR                                                                                       PAR         6531     A     
 PAR      *         SET UP INTERMEDIATE RESULT OPERAND ON ESTACK.                          PAR         6532     A     
 PAR      *                (X4) = (1OP).                                                   PAR         6533     A     
 PAR      *                (X5) = (2OP).                                                   PAR         6534     A     
 PAR                                                                                       PAR         6535     A     
 PAR       ADT7     SA3    SOPR                                                            PAR         6536     A     
 PAR                MX0    -TH.TBPRL                                                       PAR         6537          I
          -FC50104
 PAR                LX3    -TH.TBPRP                                                       PAR         6538          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      174     A     
 PAR                LX3    -SP.TBPRP                                                       FC50104      175     A     
 PAR                BX7    -X0*X3      ISOLATE (X7) = TOKEN TYPE OF OPERATOR               PAR         6539     A     
 PAR                SB7    X7-O.=                                                          PAR         6540     A     
 PAR                BX6    X5          FIRST GUESS RESULT = STORE TARGET                   PAR         6541     A     
 PAR                MX7    0                                                               PAR         6542     A     
 PAR                ZR     B7,ADT8     IF STORE TURPLE                                     PAR         6543     A     
 PAR                SA3    SMOD                                                            PAR         6544     A     
 PAR                SA1    ATTR        ATTRIBUTES FOR RESULT                               PAR         6545     A     
 PAR                SA2    T=PAR                                                           PAR         6546     A     
 PAR                SX0    TP.INTRM                                                        PAR         6547     A     
 PAR                IX1    X1+X3       MERGE ATTRIBUTE + RESULT MODE                       PAR         6548     A     
 PAR                LX2    TP.ORDP                                                         PAR         6549     A     
 PAR                BX3    X0+X2       ORD + INTR                                          PAR         6550     A     
 PAR                BX6    X3+X1       + (ATTR) + (SMOD)                                   PAR         6551     A     
 PAR                                                                                       FC50391       31     A     
 PAR       ADT8     SB6    B6-B1       POP ELEMENT STACK                                   PAR         6552     A     
 PAR                SA7    ATTR                                                            PAR         6553     A     
 PAR                SA6    B6-B1       ESTACK.TOP = NEW INTERMEDIATE                       PAR         6554     A     
 PAR                                                                                       PAR         6555     A     
 PAR      *         REFORM.                                                                PAR         6556     A     
 PAR      ** FV            NEEDS BETTER WRITEUP.                                           PAR         6557          I
          -FC50391
 PAR      *         SET RESULTANT MODE IN OPERATOR WORD THE SAME AS THE                    PAR         6558     A     
 PAR      *         INTERMEDIATE JUST PUT INTO ELEMENT STACK FOR RESULTS OF THIS           PAR         6559     A     
 PAR      *         TURPLE.                                                                PAR         6560     A     
 PAR      *         EMIT TURPLE TO PARSED FILE.                                            PAR         6561     A     
 PAR                                                                                       PAR         6562     A     
 PAR                SA2    SMOD                                                            PAR         6563     A     
 PAR                SA3    SOPR                                                            PAR         6564     A     
 PAR                SX2    X2          EXTRACT (X2) = DOMINANT MODE                        PAR         6565     A     
 PAR                LX2    TH.MODEP                                                        PAR         6566          I
          -FC50104
 PAR                LX2    SP.MODEP                                                        FC50104      176     A     
 PAR                BX6    X2+X3       (ADTA) = TURPLE HEADER                              PAR         6567     A     
 PAR                SA6    ADTA                                                            PAR         6568     A     
 PAR                EMIT   ADTA,*      EMIT TURPLE TO IL                                   PAR         6569     A     
 PAR                =B2    -1                                                              FC5A207        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     EXIT.       EXIT...                                             PAR         6570     A     
 PAR                                                                                       PAR         6571     A     
 PAR       ADTA     BSS    1           SAVE REGISTER VALUE                                 PAR         6572     A     
 PAR       CBB      SPACE  4,10                                                            FC50391       32     A     
 PAR      **        CBB -  CONVERT TO BASE/BIAS                                            FC50391       33     A     
 PAR      *                                                                                FC50391       34     A     
 PAR      *         ENTRY  (X5) = OPERAND (TP.FORMAT)                                      FC50391       35     A     
 PAR      *                                                                                FC50391       36     A     
 PAR      *         EXIT   (X5) = OPERAND (BASE/BIAS FORMAT)                               FC50391       37     A     
 PAR      *                                                                                FC50391       38     A     
 PAR      *         CALLS BBC                                                              FC50391       39     A     
 PAR      *                                                                                FC50391       40     A     
 PAR      *         USES   X0                                                              FC50391       41     A     
 PAR                                                                                       FC50391       42     A     
 PAR                                                                                       FC50391       43     A     
 PAR       CBB      SUBR               ...ENTRY/EXIT...                                    FC50391       44     A     
 PAR                LX0    X5                                                              FC50391       45     A     
 PAR                SBIT   X0,TP.EQVP                                                      FC50391       46     A     
 PAR                PL     X0,EXIT.    IF NOT EQUIVALENCED                                 FC50391       47     A     
 PAR                MX0    -TP.MODEL                                                       FC50391       48     A     
 PAR                LX5    -TP.MODEP                                                       FC50391       49     A     
 PAR                BX0    -X0*X5      EXTRACT MODE                                        FC50391       50     A     
 PAR                LX5    TP.MODEP                                                        FC50391       51     A     
 PAR                SX0    X0-M.CHAR                                                       FC50391       52     A     
 PAR                ZR     X0,EXIT.    IF TYPE CHARACTER                                   FC50391       53     A     
 PAR                CALL   BBC         CONVERT TO BASE/BIAS                                FC50391       54     A     
 PAR                EQ     EXIT.                                                           FC50391       55     A     
 PAR       CDI      SPACE  4,10                                                            FC50189       77     A     
 PAR      *         CDI -  CHECK DATA INTERFERENCE                                         FC50189       78          I
          -FC5A441
 PAR      *                                                                                FC50189       79          I
          -FC5A441
 PAR      *         THIS ROUTINE CHECKS TO SEE IF AN ELEMENT IN                            FC50189       80          I
          -FC5A441
 PAR      *         A CHARACTER EXPRESSION OVERLAPS THE TARGET                             FC50189       81          I
          -FC5A441
 PAR      *         VARIABLE BEING STORED INTO. AFTER SETTING                              FC50189       82          I
          -FC5A441
 PAR      *         THE TARGET CHARACTERISTICS, THE CALLING                                FC50189       83          I
          -FC5A441
 PAR      *         ROUTINE CALLS CDI ONCE FOR EACH ELEMENT IN                             FC50189       84          I
          -FC5A441
 PAR      *         THE SOURCE EXPRESSION. IF OVERLAP IS FOUND                             FC50189       85          I
          -FC5A441
 PAR      *         A WARNING MESSAGE IS ISSUED.                                           FC50189       86          I
          -FC5A441
 PAR      *                                                                                FC50189       87          I
          -FC5A441
 PAR      *         CALLS  BBC                                                             FC50189       88          I
          -FC5A441
 PAR      *                                                                                FC50189       89          I
          -FC5A441
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         USES   X0,1,2,5,6,7  B7  A0,1,2                                        FC50189       90          I
          -FC5A421
 PAR      *         USES   X0,1,2,5,6,7  A0,1,2,6,7                                        FC5A421        8          I
          -FC5A441
 PAR      **        CDI - CHECK DATA INTERFERENCE.                                         FC5A441       49     A     
 PAR      *                                                                                FC5A441       50     A     
 PAR      *         CHECKS ONE ELEMENT IN A CHARACTER EXPRESSION TO DETERMINE              FC5A441       51     A     
 PAR      *         IF IT OVERLAPS THE TARGET VARIABLE BEING STORED TO.                    FC5A441       52     A     
 PAR      *                                                                                FC5A441       53     A     
 PAR      *         ENTRY  (X5) = SOURCE CHARACTER OPERAND.                                FC5A441       54     A     
 PAR      *                                                                                FC5A441       55     A     
 PAR      *         EXIT   WARNING DIAGNOSTIC ISSUED IF OVERLAP DETECTED.                  FC5A441       56     A     
 PAR      *                                                                                FC5A441       57     A     
 PAR      *         USES   X-ALL, B-NONE, A-1,2,6,7.                                       FC5A441       58     A     
 PAR      *                                                                                FC5A441       59     A     
 PAR      *         CALLS  SCB.                                                            FC5A441       60     A     
 PAR                                                                                       FC50189       91     A     
 PAR                                                                                       FC50189       92     A     
 PAR       CDI00    WARN   E.AT11      ISSUE WARNING                                       FC5A441       61     A     
 PAR                                                                                       FC5A441       62     A     
 PAR       CDI      SUBR    0          ... ENTRY/EXIT ...                                  FC50189       93          I
          -FC5A421
 PAR       CDIX     BSS    0           ... EXIT ...                                        FC5A421        9     A     
 PAR                SA1    CDIA        RESTORE B2                                          FC5A421       10     A     
 PAR                SA2    A1+B1       RESTORE B7                                          FC5A421       11     A     
 PAR                SB2    X1                                                              FC5A421       12     A     
 PAR                SB7    X2                                                              FC5A421       13     A     
 PAR                                                                                       FC5A421       14     A     
 PAR       CDI      SUBR   -           ... ENTRY ...                                       FC5A421       15     A     
 PAR                SX6    B2          SAVE B2  (USED BY BBC)                              FC5A421       16     A     
 PAR                SX7    B7          SAVE B7                                             FC5A421       17     A     
 PAR                SA6    CDIA                                                            FC5A421       18     A     
 PAR                SA7    A6+B1                                                           FC5A421       19     A     
 PAR                BX5    X1          COPY SOURCE ARGUMENT                                FC50189       94          I
          -FC5A441
 PAR                SBIT   X1,TP.INTRP                                                     FC50189       95          I
          -FC5A441
 PAR                MI     X1,CDI10    IF TURPLE POINTER                                   FC50189       96          I
          -FC5A441
 PAR                CALL   BBC         GET BASE/BIAS                                       FC50189       97          I
          -FC5A441
 PAR                SA1    STCA        GET TARGET BASE/BIAS                                FC50189       98          I
          -FC5A441
 PAR                BX1    X1-X5                                                           FC50189       99          I
          -FC5A441
 PAR                MX0    -TP.ORDL-TP.BIASL                                               FC50189      100          I
          -FC5A441
 PAR                LX1    -TP.BIASP                                                       FC50189      101          I
          -FC5A441
 PAR                BX1    -X0*X1                                                          FC50189      102          I
          -FC5A441
 PAR                NZ     X1,EXIT.    IF BASE/BIAS DIFFERS                                FC50189      103          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A421
 PAR                NZ     X1,CDIX     IF BASE/BIAS DIFFERS                                FC5A421       20          I
          -FC5A441
 PAR                                                                                       FC50189      104          I
          -FC5A441
 PAR       CDI00    WARN   E.AT11      ISSUE WARNING                                       FC50189      105          I
          -FC5A441
 PAR                EQ     EXIT.       EXIT                                                FC50189      106          I
          -FC5A421
 PAR                EQ     CDIX        EXIT                                                FC5A421       21          I
          -FC5A441
 PAR                                                                                       FC50189      107          I
          -FC5A441
 PAR       CDI10    LX5    -TP.ORDP                                                        FC50189      108          I
          -FC5A441
 PAR                MX0    -TP.ORDL                                                        FC50189      109          I
          -FC5A441
 PAR                BX5    -X0*X5      ISOLATE ORDINAL                                     FC50189      110          I
          -FC5A441
 PAR                SB7    X5                                                              FC50189      111          I
          -FC5A441
 PAR                SA1    T.PAR                                                           FC50189      112          I
          -FC5A441
 PAR                SA1    X1+B7       GET TURPLE HEADER                                   FC50189      113          I
          -FC5A441
 PAR                AX1    -TH.SKELL                                                       FC50189      114          I
          -FC5A441
 PAR                BX1    -X1                                                             FC50189      115          I
          -FC5A441
 PAR                SX1    X1+V=SUBST                                                      FC50189      116          I
          -FC5A441
 PAR                NZ     X1,EXIT.    IF NOT SUBSTRING                                    FC50189      117          I
          -FC5A421
 PAR                NZ     X1,CDIX     IF NOT SUBSTRING                                    FC5A421       22          I
          -FC5A441
 PAR                SA1    A1+B1                                                           FC50189      118          I
          -FC5A441
 PAR                BX5    X1          GET VARIABLE POINTER                                FC50189      119          I
          -FC5A441
 PAR                SBIT   X1,TP.INTRP                                                     FC50189      120          I
          -FC5A441
 PAR                MI     X1,EXIT.    IF NOT STATIC                                       FC50189      121          I
          -FC5A421
 PAR                MI     X1,CDIX     IF NOT STATIC                                       FC5A421       23          I
          -FC5A441
 PAR                SA0    A1          SAVE A1                                             FC50189      122          I
          -FC5A441
 PAR                CALL   BBC         GET BASE/BIAS                                       FC50189      123          I
          -FC5A441
 PAR                SA2    STCA        GET TARGET BASE/BIAS                                FC50189      124          I
          -FC5A441
 PAR                BX1    X2-X5                                                           FC50189      125          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A441
 PAR                MX0    -TP.ORDL-TP.BIASL                                               FC50189      126          I
          -FC5A441
 PAR                LX1    -TP.BIASP                                                       FC50189      127          I
          -FC5A441
 PAR                BX1    -X0*X1                                                          FC50189      128          I
          -FC5A441
 PAR                NZ     X1,EXIT.    IF BASE/BIAS DIFFERS                                FC50189      129          I
          -FC5A421
 PAR                NZ     X1,CDIX     IF BASE/BIAS DIFFERS                                FC5A421       24          I
          -FC5A441
 PAR                SA1    A0+B1       GET COLON POINTER                                   FC50189      130          I
          -FC5A441
 PAR                LX1    -TP.ORDP                                                        FC50189      131          I
          -FC5A441
 PAR                MX0    -TP.ORDL                                                        FC50189      132          I
          -FC5A441
 PAR                BX1    -X0*X1      ISOLATE COLON ORDINAL                               FC50189      133          I
          -FC5A441
 PAR                SB7    X1+B1                                                           FC50189      134          I
          -FC5A441
 PAR                SA1    T.PAR                                                           FC50189      135          I
          -FC5A441
 PAR                SA1    X1+B7       GET LOWER BOUND                                     FC50189      136          I
          -FC5A441
 PAR                LX6    X1                                                              FC50189      137          I
          -FC5A441
 PAR                SBIT   X1,TP.SHRTP                                                     FC50189      138          I
          -FC5A441
 PAR                MI     X1,CDI20    IF SHORT CONSTANT                                   FC50189      139          I
          -FC5A441
 PAR                BX6    X6-X6       SET VARIABLE L.B.                                   FC50189      140          I
          -FC5A441
 PAR                                                                                       FC50189      141          I
          -FC5A441
 PAR       CDI20    HX6    TP.BIAS                                                         FC50189      142          I
          -FC5A441
 PAR                AX6    -TP.BIASL   ISOLATE CONSTANT                                    FC50189      143          I
          -FC5A441
 PAR                SA1    A1+B1       FETCH UPPER BOUND                                   FC50189      144          I
          -FC5A441
 PAR                LX7    X1                                                              FC50189      145          I
          -FC5A441
 PAR                SBIT   X1,TP.SHRTP                                                     FC50189      146          I
          -FC5A441
 PAR                MI     X1,CDI30    IF SHORT CONSTANT                                   FC50189      147          I
          -FC5A441
 PAR                BX7    X7-X7                                                           FC50189      148          I
          -FC5A441
 PAR                                                                                       FC50189      149          I
          -FC5A441
 PAR       CDI30    HX7    TP.BIAS                                                         FC50189      150          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A441
 PAR                AX7    -TP.BIASL   ISOLATE CONSTANT                                    FC50189      151          I
          -FC5A441
 PAR                SA1    STCB        GET TARGET L.B.                                     FC50189      152          I
          -FC5A441
 PAR                SA2    STCC        GET TARGET U.B.                                     FC50189      153          I
          -FC5A441
 PAR                SX4    B1          INDICATE SOURCE OPERAND                             FC5A441       63     A     
 PAR                CALL   SCB         SET CHARACTER BOUNDS                                FC5A441       64     A     
 PAR                SA1    SCBB        GET TARGET LOWER BOUND                              FC5A441       65     A     
 PAR                SA2    SCBC        GET TARGET UPPER BOUND                              FC5A441       66     A     
 PAR                ZR     X6,CDI50    IF VARIABLE L.B.                                    FC50189      154     A     
 PAR                ZR     X7,CDI60    IF VARIABLE U.B.                                    FC50189      155     A     
 PAR                IX0    X1-X6                                                           FC50189      156     A     
 PAR                PL     X0,CDI40    IF TARGET L.B. >= L.B.                              FC50189      157     A     
 PAR                IX2    X2-X6                                                           FC50189      158     A     
 PAR                PL     X2,CDI00    IF TARGET U.B. >= L.B.                              FC50189      159     A     
 PAR                EQ     EXIT.       EXIT                                                FC50189      160          I
          -FC5A421
 PAR                EQ     CDIX        EXIT                                                FC5A421       25     A     
 PAR                                                                                       FC50189      161     A     
 PAR       CDI40    ZR     X0,CDI00    IF TARGET L.B. = L.B.                               FC50189      162     A     
 PAR                IX0    X7-X1                                                           FC50189      163     A     
 PAR                PL     X0,CDI00    IF U.B. >= TARGET L.B.                              FC50189      164     A     
 PAR                EQ     EXIT.       EXIT                                                FC50189      165          I
          -FC5A421
 PAR                EQ     CDIX        EXIT                                                FC5A421       26     A     
 PAR                                                                                       FC50189      166     A     
 PAR       CDI50    IX0    X7-X1                                                           FC50189      167     A     
 PAR                MI     X0,EXIT.    IF U.B. < TARGET L.B.                               FC50189      168          I
          -FC5A421
 PAR                MI     X0,CDIX     IF U.B. < TARGET L.B.                               FC5A421       27     A     
 PAR                IX0    X2-X7                                                           FC50189      169     A     
 PAR                MI     X0,EXIT.    IF TARGET U.B. < U.B.                               FC50189      170          I
          -FC5A421
 PAR                MI     X0,CDIX     IF TARGET U.B. < U.B.                               FC5A421       28     A     
 PAR                EQ     CDI00       GO ISSUE WARNING                                    FC50189      171     A     
 PAR                                                                                       FC50189      172     A     
 PAR       CDI60    BX7    X6                                                              FC50189      173     A     
 PAR                EQ     CDI50       SET U.B. = L.B.                                     FC50189      174     A     
 PAR                                                                                       FC5A421       29     A     
 PAR       CDIA     BSS    2           REGISTER SAVE AREA                                  FC5A421       30     A     
 PAR       CIL      SPACE  4,10                                                            PAR         6573     A     
 PAR      **        CIL - CHECK ILLEGAL USE OF LEVEL 3 NAME.                               PAR         6574     A     
 PAR      *                                                                                PAR         6575     A     
 PAR      *         ENTRY  (X3) = SYMTAB (WB) SHIFTED TO WB.ARY IN SIGN.                   PAR         6576     A     
 PAR      *                                                                                PAR         6577     A     
 PAR      *         EXIT   DIAGNOSTIC OUTPUT FOR ILLEGAL USAGE.                            PAR         6578     A     
 PAR      *                                                                                PAR         6579     A     
 PAR      *         USES   A1   X2-3   B3.                                                 PAR         6580     A     
 PAR                                                                                       PAR         6581     A     
 PAR                                                                                       PAR         6582     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       CIL      SUBR               ...ENTRY/EXIT...                                    PAR         6583     A     
 PAR                SBIT   X3,WB.LEVP/WB.ARYP                                              PAR         6584     A     
 PAR                PL     X3,EXIT.    IF NOT LEVEL NAME                                   PAR         6585     A     
 PAR                LX3    WB.LEVP+1-WB.LEVNP    RIGHT-JUSTIFY LEVEL NUMBER                PAR         6586     A     
 PAR                MX2    -WB.LEVNL                                                       PAR         6587     A     
 PAR                BX2    -X2*X3      (X2) = LEVEL NUMBER                                 PAR         6588     A     
 PAR                SX2    X2-3                                                            PAR         6589     A     
 PAR                NZ     X2,EXIT.    IF NOT LEVEL 3                                      PAR         6590     A     
 PAR                                                                                       PAR         6591     A     
 PAR      *         HERE IF LEVEL 3 TAG.                                                   PAR         6592     A     
 PAR                                                                                       PAR         6593     A     
 PAR                SA3    ARGMODE                                                         PAR         6594     A     
 PAR                HX3    AM.LEV3                                                         PAR         6595     A     
 PAR                MI     X3,EXIT.    IF LEVEL 3 PERMITTED                                PAR         6596     A     
 PAR                SA3    DATFLG                                                          FC50023        4     A     
 PAR                NZ     X3,EXIT.    IF IN DATA STATEMENT                                FC50023        5     A     
 PAR                                                                                       PAR         6597     A     
 PAR      *         HERE IF ILLEGAL USE OF LEVEL 3.                                        PAR         6598     A     
 PAR                                                                                       PAR         6599     A     
 PAR                FATAL  E.LV11                                                          PAR         6600     A     
 PAR                EQ     EXIT.                                                           PAR         6601     A     
 PAR       CLC      SPACE  4,10                                                            PAR         6602     A     
 PAR      **        CLC - COERCE LENGTH OF CHARACTER RESULT.                               PAR         6603     A     
 PAR      *                                                                                PAR         6604     A     
 PAR      *         ENTRY  (X1) = DLEN, DESIRED LENGTH.                                    PAR         6605     A     
 PAR      *                (X5) = OI, OPERAND TO BE COERCED.                               PAR         6606     A     
 PAR      *         METHOD --                                                              PAR         6607     A     
 PAR      *           IF LEN(OI) IS KNOWN, AND = DLEN  THEN                                PAR         6608     A     
 PAR      *                RETURN (OI)                                                     PAR         6609     A     
 PAR      *           ELSE  (* MUST TRUNCATE OR PAD *)                                     PAR         6610     A     
 PAR      *                WINC = (DLEN+9) / 10                                            PAR         6611     A     
 PAR      *                FCA = 10 * (N.CT)                                               PAR         6612     A     
 PAR      *                (N.CT) = (N.CT) + WINC                                          PAR         6613     A     
 PAR      *                PUSH  OI                                                        PAR         6614     A     
 PAR      *                CALL  ECS (S=CT, NDX, DL)                                       PAR         6615     A     
 PAR      *                RO = ADT (STR.H, OI, T2)                                        PAR         6616     A     
 PAR      *           ENDIF                                                                PAR         6617     A     
 PAR      *                                                                                PAR         6618     A     
 PAR      *         EXIT   (X5) = CONVERTED OPERAND.                                       PAR         6619     A     
 PAR      *                                                                                PAR         6620     A     
 PAR      *         USES   ALL BUT:  A0.  B4-6.                                            PAR         6621     A     
 PAR      *                (SOPR), (SMOD)                                                  PAR         6622     A     
 PAR      *         CALLS  ADT, ECS.                                                       PAR         6623     A     
 PAR                                                                                       PAR         6624     A     
 PAR                                                                                       PAR         6625     A     
 PAR       CLC      SUBR   0           ENTRY/EXIT...                                       PAR         6626     A     
 PAR                BX7    X5                                                              PAR         6627     A     
 PAR                SA7    B6          PUSH  OI                                            PAR         6628     A     
 PAR                SB6    B6+B1                                                           PAR         6629     A     
 PAR      ** FV            IF LEN(OI) = DLEN,  GOTO CLC80                                  PAR         6630          I
          -FC5A132
 PAR      *                IF LCH(OI)='CONSTANT', CALL DATA/CMV.                           PAR         6631          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A132
 PAR                SA2    N.CT        NDX = (N.CT)                                        PAR         6632          I
          -FC5A132
 PAR                BX4    X1                                                              FC5A132       80     A     
 PAR                BX1    X5                                                              FC5A132       81     A     
 PAR                RJ     GOL         GET OPERAND LENGTH                                  FC5A132       82     A     
 PAR                BX1    X4                                                              FC5A132       83     A     
 PAR                MI     X7,CLC10    IF OPERAND LENGTH NOT DETERMINABLE                  FC5A132       84     A     
 PAR                IX0    X4-X7                                                           FC5A132       85     A     
 PAR                ZR     X0,CLC80    IF OPERAND LENGTH = DLEN                            FC5A132       86     A     
 PAR                                                                                       FC5A132       87     A     
 PAR       CLC10    SA2    N.CT        NDX = N.CT                                          FC5A132       88     A     
 PAR                BX7    X1                                                              PAR         6633     A     
 PAR                CW     X3,X7       WINC = (DLEN+9) / 10                                PAR         6634     A     
 PAR                IX6    X2+X3       (N.CT) = (N.CT) + WINC                              PAR         6635     A     
 PAR                SA6    A2                                                              PAR         6636     A     
 PAR      *                            T2 = ECS (DLEN, NDX, S=CT)                          PAR         6637     A     
 PAR                SA3    S=CT                                                            PAR         6638     A     
 PAR                RJ     ECS         EMIT CHARACTER SUBSTRING                            PAR         6639     A     
 PAR                SA3    STRHOP                                                          PAR         6640     A     
 PAR                SA5    B6-B1       (2OP) = T2                                          PAR         6641     A     
 PAR                BX6    X3                                                              PAR         6642     A     
 PAR                SA4    A5-B1       (1OP) = OI                                          PAR         6643     A     
 PAR                SA6    SOPR                                                            PAR         6644     A     
 PAR                RJ     ADT         PUSH   ADT (V=STR.H, OI, T2)                        PAR         6645     A     
 PAR                                                                                       PAR         6646     A     
 PAR       CLC80    SA5    B6-B1                                                           PAR         6647     A     
 PAR                SB6    B6-B1       POP  RO                                             PAR         6648     A     
 PAR      **FV             NEED TO RETURN INDICATION OF (TRUNC, EQ, PAD)                   PAR         6649     A     
 PAR                EQ     EXIT.                                                           PAR         6650     A     
 PAR       CLM      SPACE  4,10                                                            PAR         6651     A     
 PAR      **        CLM - COERCE MODE AND CHARACTER LENGTH.                                PAR         6652     A     
 PAR      *                                                                                PAR         6653     A     
 PAR      *         ENTRY  (X1) = CHARACTER LENGTH (IMMATERIAL UNLESS                      PAR         6654     A     
 PAR      *                            (X6) = M.CHAR).                                     PAR         6655     A     
 PAR      *                (X5) = OPERAND TO BE COERCED.                                   PAR         6656     A     
 PAR      *                (X6) = DM, DESIRED MODE.                                        PAR         6657     A     
 PAR      *                                                                                PAR         6658     A     
 PAR      *         EXIT   SAME AS CMR.                                                    PAR         6659     A     
 PAR      *                                                                                PAR         6660     A     
 PAR      *         USES   ALL BUT:  A0.  B4-6.                                            PAR         6661     A     
 PAR      *                (SOPR)                                                          PAR         6662     A     
 PAR      *         CALLS  CLC, CMR.                                                       PAR         6663     A     
 PAR                                                                                       PAR         6664     A     
 PAR                                                                                       PAR         6665     A     
 PAR       CLM      SUBR   0           ENTRY/EXIT...                                       PAR         6666     A     
 PAR                BX7    X1                                                              PAR         6667     A     
 PAR                SA7    CLMA                                                            PAR         6668     A     
 PAR                RJ     CMR         COERCE MODE OF RESULT                               PAR         6669     A     
 PAR                SA1    SMOD                                                            PAR         6670     A     
 PAR                NZ     B7,EXIT.    IF ERROR IN CONVERSION                              PAR         6671     A     
 PAR                SX6    X1-M.CHAR                                                       PAR         6672     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                NZ     X6,EXIT.    IF DOMINANT MODE NOT CHARACTER                      PAR         6673     A     
 PAR                SA1    CLMA                                                            PAR         6674     A     
 PAR                RJ     CLC         COERCE CHARACTER LENGTH                             PAR         6675     A     
 PAR                SB7    B0          (**** TEMP ****)  INDICATE NO ERROR                 PAR         6676     A     
 PAR      **FV             NEED ERROR FOR CONTEXTS WHERE PADDING IS ILLEGAL.               PAR         6677     A     
 PAR                EQ     EXIT.                                                           PAR         6678     A     
 PAR                                                                                       PAR         6679     A     
 PAR       CLMA     BSS    1                                                               PAR         6680     A     
 PAR       CMR      SPACE  4,10                                                            PAR         6681     A     
 PAR      **        CMR - COERCE MODE OF RESULT.                                           PAR         6682     A     
 PAR      *                                                                                PAR         6683     A     
 PAR      *         VERIFY LEGALITY OF RESULT MODE, AND SELECT CONVERSION.                 PAR         6684     A     
 PAR      *                                                                                PAR         6685     A     
 PAR      *         ENTRY  (X5) = OPERAND TO BE COERCED.                                   PAR         6686     A     
 PAR      *                (X6) = DM, DESIRED MODE.                                        PAR         6687     A     
 PAR      *                                                                                PAR         6688     A     
 PAR      *         EXIT   (X5) = CONVERTED OPERAND.                                       PAR         6689     A     
 PAR      *                (B7) .NZ. = ADDRESS OF ERROR MESSAGE, WHEN CONVERSION           PAR         6690     A     
 PAR      *                            IS ILLEGAL.  (X5) = ORIGINAL OPERAND.               PAR         6691     A     
 PAR      *                (B7) .ZR. = CONVERSION OKAY.                                    PAR         6692     A     
 PAR      *                (SMOD) = DM.                                                    PAR         6693     A     
 PAR      *                (SOPR)  DESTROYED.                                              PAR         6694     A     
 PAR      *                                                                                PAR         6695     A     
 PAR      *         USES   ALL BUT A0, B4, B5, B6.                                         PAR         6696     A     
 PAR      *                                                                                PAR         6697     A     
 PAR      *         CALLS  ADT, KCV, LCT, NBC                                              PAR         6698     A     
 PAR                                                                                       PAR         6699     A     
 PAR                                                                                       PAR         6700     A     
 PAR       CMR      SUBR   =           ...ENTRY/EXIT...                                    PAR         6701     A     
 PAR                MX0    -TP.MODEL                                                       PAR         6702     A     
 PAR                LX5    -TP.MODEP                                                       PAR         6703     A     
 PAR                BX4    -X0*X5      (X4) = AM = ACTUAL MODE OF OPERAND                  PAR         6704     A     
 PAR                SA2    X4+F.MODC   FETCH ROW (AM) OF MODE CONVERSION MATRIX            PAR         6705     A     
 PAR                BX1    X0*X5                                                           PAR         6706     A     
 PAR                IX7    X1+X6       RMO = SAME OPERAND WITH DESIRED MODE                PAR         6707     A     
 PAR                SA6    SMOD                                                            PAR         6708     A     
 PAR                LX5    TP.MODEP                                                        PAR         6709     A     
 PAR                LX7    TP.MODEP                                                        PAR         6710     A     
 PAR                SA7    B6          ESTACK(TOP) = RMO                                   PAR         6711     A     
 PAR                SX7    X6                                                              PAR         6712     A     
 PAR                LX7    3           (B2) = 8 * DM                                       PAR         6713     A     
 PAR                SB2    X7                                                              PAR         6714     A     
 PAR                MX0    -8                                                              PAR         6715     A     
 PAR                AX1    B2,X2       SLIDE ROW TO DOMINANT COLUMN                        PAR         6716     A     
 PAR                BX3    -X0*X1      SKO = MODC (X7, DM)                                 PAR         6717     A     
 PAR                ZR     X3,CMR60    IF NO CONVERSION NECESSARY                          PAR         6718     A     
 PAR                SX1    X3-1S8+1                                                        PAR         6719     A     
 PAR                ZR     X1,CMR90    IF MODE CONVERSION ERROR                            PAR         6720     A     
 PAR                                                                                       PAR         6721          I
          -FC50474
 PAR                BX1    X5                                                              PAR         6722     A     
 PAR                CALL   LCT         LOAD BINARY OF CONSTANT                             PAR         6723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ZR     B2,CMR30    IF NOT CONSTANT                                     PAR         6724     A     
 PAR                SA1    SMOD                                                            PAR         6725     A     
 PAR                CALL   KCV         CONVERT CONSTANT VALUE                              PAR         6726     A     
 PAR       .T       IFEQ   TEST,ON,1                                                       PAR         6727     A     
 PAR                MI     B2,"BLOWUP" IF ILLEGAL CONVERSION (WE ALREADY CHECKED)          PAR         6728     A     
 PAR                LE     B2,CMR60    IF OLD VALUE IS CORRECT                             PAR         6729     A     
 PAR                CALL   NBC         ENTER BINARY OF CONSTANT                            PAR         6730     A     
 PAR                BX5    X6                                                              PAR         6731     A     
 PAR                SB7    B0                                                              PAR         6732     A     
 PAR                EQ     EXIT.                                                           PAR         6733     A     
 PAR                                                                                       PAR         6734     A     
 PAR      *         LEGAL NON-NULL CONVERSION, OPERAND NOT CONSTANT.                       PAR         6735     A     
 PAR      *         EMIT TURPLE.                                                           PAR         6736     A     
 PAR      *                (X3) = SKO = SKELETON OFFSET.                                   PAR         6737     A     
 PAR                                                                                       PAR         6738     A     
 PAR       CMR30    SA2    MCVOP                                                           PAR         6739     A     
 PAR                LX3    TH.SKELP                                                        PAR         6740          I
          -FC50104
 PAR                LX3    SP.SKELP                                                        FC50104      177     A     
 PAR                IX6    X2+X3       (TH.SKEL) = BASE + OFFSET                           PAR         6741     A     
 PAR                SB6    B6+2        ADVANCE ESTACK FOR ADT                              PAR         6742     A     
 PAR                SA6    SOPR                                                            PAR         6743     A     
 PAR                IX3    X2+X3       (X3) = (SOPR)                                       PAR         6744     A     
 PAR                RJ     ADT         ADD CONVERSION TURPLE                               PAR         6745     A     
 PAR                SB6    B6-1        REMOVE RESULT FROM ESTACK                           PAR         6746     A     
 PAR                                                                                       PAR         6747     A     
 PAR       CMR60    SA5    B6          RETURN (X5) = COERCED RESULT                        PAR         6748     A     
 PAR                SB7    B0                                                              PAR         6749     A     
 PAR                EQ     EXIT.                                                           PAR         6750     A     
 PAR                                                                                       PAR         6751     A     
 PAR       CMR90    SA1    X6+MOD.DPC                                                      PAR         6752     A     
 PAR                SA2    X4+MOD.DPC                                                      PAR         6753     A     
 PAR                BX7    X1          SET (FILL.3) = DM       /* DESIRED                  PAR         6754     A     
 PAR                LX6    X2          SET (FILL.2) = AM       /* ACTUAL                   PAR         6755     A     
 PAR                SA7    FILL.3                                                          PAR         6756     A     
 PAR                SB7    E.AT19      ** <AM> CANNOT BE CONVERTED TO <DM>                 PAR         6757     A     
 PAR                SA6    A7-B1                                                           PAR         6758     A     
 PAR                EQ     EXIT.                                                           PAR         6759     A     
 PAR       COR      SPACE  4,10                                                            PAR         6760     A     
 PAR      **        COR - CHECK IF INPUT OPERAND IS REDUCIBLE.                             PAR         6761     A     
 PAR      *                                                                                PAR         6762     A     
 PAR      *         IF THE INPUT OPERAND IS THE RESULT INTERMEDIATE OF THE VERY            PAR         6763     A     
 PAR      *         LAST TURPLE EMITTED, THEN IT IS POTENTIALLY REDUCIBLE.                 PAR         6764     A     
 PAR      *                                                                                PAR         6765     A     
 PAR      *         ENTRY  (X1) = INPUT OPERAND.                                           PAR         6766     A     
 PAR      *                                                                                PAR         6767     A     
 PAR      *         EXIT   (X0) = 0, OPERAND IS INPUT.                                     PAR         6768     A     
 PAR      *                (X7) = (T=PAR) - Z=TURP                                         PAR         6769     A     
 PAR      *                (X1) = (LASTAD).                                                PAR         6770     A     
 PAR      *                (A2) -> T=PAR.                                                  PAR         6771     A     
 PAR      *                                                                                PAR         6772     A     
 PAR      *         USES   A1,A2  X0                                                       PAR         6773     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         6774     A     
 PAR                                                                                       PAR         6775     A     
 PAR       COR      SUBR               ENTRY/EXIT...                                       PAR         6776     A     
 PAR                BX0    X1                                                              PAR         6777     A     
 PAR                SBIT   X0,TP.INTRP                                                     PAR         6778     A     
 PAR                PL     X0,EXIT.    IF NOT INTERMEDIATE                                 PAR         6779     A     
 PAR                SA2    T=PAR                                                           PAR         6780     A     
 PAR                HX1    TP.ORD                                                          PAR         6781     A     
 PAR                AX1    TP.ORDP                                                         PAR         6782     A     
 PAR                SX7    X2-Z=TURP                                                       PAR         6783     A     
 PAR                IX0    X1-X7                                                           PAR         6784     A     
 PAR                SA1    LASTAD                                                          PAR         6785     A     
 PAR                EQ     EXIT.                                                           PAR         6786     A     
 PAR       DBE      SPACE  4,10                                                            PAR         6787     A     
 PAR      **        DBE -  DIMENSION BOUND ERROR OUTPUT                                    PAR         6788     A     
 PAR      *                                                                                PAR         6789     A     
 PAR      *         ENTRY  (B7) = ERROR ADDRESS                                            PAR         6790     A     
 PAR      *                                                                                PAR         6791     A     
 PAR      *         USES   A1,A2,A6,A7  X1,X2,X6,X7  B7                                    PAR         6792     A     
 PAR      *                                                                                PAR         6793     A     
 PAR      *         CALLS  PDM                                                             PAR         6794     A     
 PAR                                                                                       PAR         6795     A     
 PAR                                                                                       PAR         6796     A     
 PAR       DBE      SUBR               ...ENTRY/EXIT...                                    PAR         6797     A     
 PAR                SA1    CDBB                                                            PAR         6798     A     
 PAR                =A2    A1+1                                                            PAR         6799     A     
 PAR                LX7    X1                                                              PAR         6800     A     
 PAR                LX6    X2                                                              PAR         6801     A     
 PAR                SA7    FILL.                                                           PAR         6802     A     
 PAR                =A6    A7+1                                                            PAR         6803     A     
 PAR                FATAL  B7                                                              PAR         6804     A     
 PAR                EQ     EXIT.                                                           PAR         6805     A     
 PAR       DDC      SPACE  4,10                                                            FC50014       34     A     
 PAR      **        DDC - DIAGNOSE DOUBLE AND COMPLEX OPERANDS IN AN EXPRESSION.           FC50014       35     A     
 PAR      *                                                                                FC50014       36     A     
 PAR      *         CALLED TO ISSUE AN ANSI DIAGNOSTIC IF DOUBLE PRECISION                 FC50014       37     A     
 PAR      *         AND COMPLEX OPERANDS ARE MIXED IN AN EXPRESSION.                       FC50014       38     A     
 PAR      *                                                                                FC50014       39     A     
 PAR      *         ENTRY  (X4) = 1OP                                                      FC50014       40     A     
 PAR      *                (X5) = 2OP                                                      FC50014       41     A     
 PAR      *                                                                                FC50014       42     A     
 PAR      *         EXIT   ANSI DIAGNOSTIC ISSUED IF NECESSARY.                            FC50014       43     A     
 PAR      *                                                                                FC50014       44     A     
 PAR      *         CALLS  ANSI= .                                                         FC50014       45     A     
 PAR      *                                                                                FC50014       46     A     
 PAR      *         USES   X - 0,1,6  B - 7.                                               FC50014       47     A     
 PAR                                                                                       FC50014       48     A     
 PAR                                                                                       FC50014       49     A     
 PAR       DDC      SUBR               ENTRY/EXIT...                                       FC50014       50     A     
 PAR                MX0    -TP.MODEL                                                       FC50014       51     A     
 PAR                BX6    X4+X5                                                           FC50014       52     A     
 PAR                BX1    X4*X5                                                           FC50014       53     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX6    -TP.MODEP                                                       FC50014       54     A     
 PAR                LX1    -TP.MODEP                                                       FC50014       55     A     
 PAR                BX6    -X0*X6                                                          FC50014       56     A     
 PAR                BX1    -X0*X1                                                          FC50014       57     A     
 PAR                ERRNZ  M.DBL-4                                                         FC50014       58     A     
 PAR                ERRNZ  M.CPLX-M.DBL-1                                                  FC50014       59     A     
 PAR                SB7    X6-M.CPLX                                                       FC50014       60     A     
 PAR                NZ     B7,EXIT.    IF NEITHER 1OP NOR 2OP IS COMPLEX                   FC50014       61     A     
 PAR                SB7    X1-M.DBL                                                        FC50014       62     A     
 PAR                NZ     B7,EXIT.    IF NEITHER 1OP NOR 2OP IS DOUBLE                    FC50014       63     A     
 PAR                ANSI   E.ANS4      ** MIXTURE OF DOUBLE AND COMPLEX OPNDS              FC50014       64     A     
 PAR                EQ     EXIT.                                                           FC50014       65     A     
 PAR       DOA      SPACE  4,20                                                            PAR         6806     A     
 PAR      **        DOA - DETERMINE OPERAND ADDRESSABILITY.                                PAR         6807     A     
 PAR      *                                                                                PAR         6808     A     
 PAR      *         THERE ARE CONTEXTS IN WHICH AN OPERAND IS REQUIRED TO BE               PAR         6809     A     
 PAR      *         CAPABLE OF BEING A STORE TARGET -- I.E., IT MUST POSESS AN             PAR         6810     A     
 PAR      *         ADDRESS.  FROM A FORTRAN LANGUAGE STANDPOINT, THIS MEANS THAT          PAR         6811     A     
 PAR      *         IT CANNOT BE AN EXPRESSION NOR A CONSTANT.  ALSO, IN AN ACTUAL         PAR         6812     A     
 PAR      *         ARGUMENT LIST, WHILE OPERANDS DO NOT HAVE TO BE ADDRESSABLE,           PAR         6813     A     
 PAR      *         WE WANT TO KNOW WHEN THEY ARE, SO THAT POTENTIAL DEFINITION            PAR         6814     A     
 PAR      *         CAN BE NOTED.                                                          PAR         6815     A     
 PAR      *                                                                                PAR         6816     A     
 PAR      *         SINCE ARRAY ELEMENT AND SUBSTRING REFERENCES ARE REPRESENTED           PAR         6817     A     
 PAR      *         BY COMBINATIONS OF TURPLES, DETECTING ADDRESSABLE OPERANDS             PAR         6818     A     
 PAR      *         IS COMPLEX ENOUGH TO WARRANT THIS SUBROUTINE.                          PAR         6819     A     
 PAR      *                                                                                PAR         6820     A     
 PAR      *         ENTRY  (X5) = OPERAND.                                                 PAR         6821     A     
 PAR      *                                                                                PAR         6822     A     
 PAR      *         EXIT   (X6) .NZ. = OPERAND IS NOT ADDRESSABLE.                         PAR         6823     A     
 PAR      *                (FILL.3) = ERRLIT FOR WHY NOT --                                PAR         6824     A     
 PAR      *                         = 'CONSTANT' OR 'EXPRESSION'.                          PAR         6825     A     
 PAR      *                (X5) = BLOWUP OPERAND, WITH MODE OF ORIGINAL.                   PAR         6826     A     
 PAR      *                                                                                PAR         6827     A     
 PAR      *         ELSE   (X6) .ZR. = OPERAND IS IN SYMTAB, AND IS NOT A LABEL.           PAR         6828     A     
 PAR      *                (X0) = MODE.                                                    PAR         6829     A     
 PAR      *                (X5) = PRESERVED.                                               PAR         6830     A     
 PAR      *                (A2,X2) = SYMTAB (WB) FOR REFERENCED SYMBOL.                    PAR         6831     A     
 PAR      *                (X1) = SYMTAB (WB), WITH (WB.VAR) EXPOSED.                      PAR         6832     A     
 PAR      *                IF (WB.VAR) IS SET, THEN OPERAND IS IN FACT A VALID             PAR         6833     A     
 PAR      *                            STORE-TARGET.                                       PAR         6834     A     
 PAR      *                                                                                PAR         6835     A     
 PAR      *         USES   A1-3,6-7.  X0-3,5-7.  B2,7.                                     PAR         6836     A     
 PAR      *         CALLS  LCH.                                                            PAR         6837     A     
 PAR                                                                                       PAR         6838     A     
 PAR                                                                                       PAR         6839     A     
 PAR       DOA      SUBR   =           ENTRY/EXIT...                                       PAR         6840     A     
 PAR                BX1    X5                                                              PAR         6841     A     
 PAR                CALL   LCH         LOAD CONSTANT TEST                                  PAR         6842     A     
 PAR                BX2    X5                                                              PAR         6843     A     
 PAR                SB7    ERL=CON                                                         PAR         6844     A     
 PAR                NZ     B2,DOA8     IF CONSTANT                                         PAR         6845     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB7    ERL=XPR                                                         PAR         6846     A     
 PAR                HX2    TP.EXPR                                                         PAR         6847     A     
 PAR                MI     X2,DOA8     IF EXPRESSION                                       PAR         6848     A     
 PAR                                                                                       PAR         6849     A     
 PAR      *         OPERAND IS NOT PRO FORMA EVIL.  NOW FIGURE OUT WHAT IT IS,             PAR         6850     A     
 PAR      *         AND HOW TO GET TO IT'S SYMTAB ENTRY.                                   PAR         6851     A     
 PAR                                                                                       PAR         6852     A     
 PAR                LX1    X5                                                              PAR         6853     A     
 PAR                LX2    TP.EXPRP-TP.INTRP                                               PAR         6854     A     
 PAR                PL     X2,DOA6     IF NOT INTERMEDIATE                                 PAR         6855     A     
 PAR                HX1    TP.ORD                                                          PAR         6856     A     
 PAR                AX1    -TP.ORDL                                                        PAR         6857     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6858     A     
 PAR                MI     X1,"BLOWUP" IF NEGATIVE ORDINAL                                 PAR         6859     A     
 PAR                SA3    T=PAR                                                           PAR         6860     A     
 PAR                IX7    X1-X3                                                           PAR         6861     A     
 PAR                PL     X7,"BLOWUP" IF ORDINAL .GE. TABLE LENGTH                        PAR         6862     A     
 PAR       .T       ENDIF                                                                  PAR         6863     A     
 PAR                SA3    T.PAR                                                           PAR         6864     A     
 PAR                IX7    X1+X3                                                           PAR         6865     A     
 PAR                =A3    X7+OR.OPR                                                       PAR         6866     A     
 PAR                =A1    A3-OR.OPR+OR.1OP                                                PAR         6867     A     
 PAR                LX2    TP.INTRP-TP.ARRP                                                PAR         6868     A     
 PAR                MI     X2,DOA6     IF ARRAY ELEMENT                                    PAR         6869     A     
 PAR                HX3    TH.SKEL                                                         PAR         6870     A     
 PAR                AX3    -TH.SKELL                                                       PAR         6871     A     
 PAR                SX7    V=SUBST                                                         PAR         6872     A     
 PAR                IX6    X3-X7                                                           PAR         6873     A     
 PAR                NZ     X6,DOA8     IF NOT SUBSTRING INTERMEDIATE                       PAR         6874     A     
 PAR                BX2    X1                                                              PAR         6875     A     
 PAR                HX2    TP.INTR                                                         PAR         6876     A     
 PAR                PL     X2,DOA6     IF SUBSTRING (1OP) NOT FURTHER INTERMEDIATE         PAR         6877     A     
 PAR                                                                                       PAR         6878     A     
 PAR      *         (X5) IS A INTERMEDIATE POINTING TO A SUBSTRING TURPLE.                 PAR         6879     A     
 PAR      *         (1OP) OF THE SUBSTRING IS AN INTERMEDIATE, SO WE MUST                  PAR         6880     A     
 PAR      *         PENETRATE ONE LEVEL FURTHER INTO THE PARSED FILE.  IT                  PAR         6881     A     
 PAR      *         MUST BE AN ARRAY ELEMENT BEING SUBSTRINGED.                            PAR         6882     A     
 PAR                                                                                       PAR         6883     A     
 PAR                HX1    TP.ORD                                                          PAR         6884     A     
 PAR                AX1    -TP.ORDL                                                        PAR         6885     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6886     A     
 PAR                MI     X1,"BLOWUP" IF NEGATIVE ORDINAL                                 PAR         6887     A     
 PAR                SA3    =XT=PAR                                                         PAR         6888     A     
 PAR                IX7    X1-X3                                                           PAR         6889     A     
 PAR                PL     X7,"BLOWUP" IF ORDINAL .GE. TABLE LENGTH                        PAR         6890     A     
 PAR       .T       ENDIF                                                                  PAR         6891     A     
 PAR                SA3    T.PAR                                                           PAR         6892     A     
 PAR                IX7    X1+X3                                                           PAR         6893     A     
 PAR                =A1    X7+OR.1OP                                                       PAR         6894     A     
 PAR                LX2    TP.INTRP-TP.ARRP                                                PAR         6895     A     
 PAR                PL     X2,DOA8     IF NOT ARRAY ELEMENT INTERMEDIATE                   PAR         6896     A     
 PAR                                                                                       PAR         6897     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         RETRIEVE SYMBOL TABLE INFO.  REJECT STATEMENT LABELS.                  PAR         6898     A     
 PAR      *                (X1)[TP.ORD] = ORDINAL OF SYMBOL.                               PAR         6899     A     
 PAR                                                                                       PAR         6900     A     
 PAR       DOA6     HX1    TP.ORD                                                          PAR         6901     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6902     A     
 PAR                MI     X1,"BLOWUP" IF ILL ORDINAL                                      PAR         6903     A     
 PAR                BX3    X1                                                              PAR         6904     A     
 PAR                LX3    TP.ORDL+TP.ORDP                                                 PAR         6905     A     
 PAR                HX3    TP.ORD                                                          PAR         6906     A     
 PAR                AX3    -TP.ORDL    (X3) = SYMORD OF OPERAND                            PAR         6907     A     
 PAR                SA2    T=SYM                                                           PAR         6908     A     
 PAR                LX7    X3,B1                                                           PAR         6909     A     
 PAR                IX7    X3+X7                                                           PAR         6910     A     
 PAR                ERRNZ  3-Z=SYM                                                         PAR         6911     A     
 PAR                IX7    X7-X2                                                           PAR         6912     A     
 PAR                PL     X7,"BLOWUP" IF ORDINAL .GE. SYMTAB LENGTH                       PAR         6913     A     
 PAR       .T       ENDIF                                                                  PAR         6914     A     
 PAR                                                                                       PAR         6915     A     
 PAR                AX1    -TP.ORDL                                                        PAR         6916     A     
 PAR                SA2    T.SYM                                                           PAR         6917     A     
 PAR                LX7    X1,B1                                                           PAR         6918     A     
 PAR                =B7    X2+WB.W                                                         PAR         6919     A     
 PAR                IX3    X7+X1       (X3) = SYMTAB INDEX                                 PAR         6920     A     
 PAR                ERRNZ  3-Z=SYM                                                         PAR         6921     A     
 PAR                SX6    B0                                                              PAR         6922     A     
 PAR                SA2    X3+B7       FETCH (A2,X2) = SYMTAB (WB)                         PAR         6923     A     
 PAR                BX1    X2                                                              PAR         6924     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         6925     A     
 PAR                HX1    WB.LAB                                                          PAR         6926     A     
 PAR                MI     X1,"BLOWUP" IF STATEMENT LABEL                                  PAR         6927     A     
 PAR                LX1    WB.LABP+1                                                       PAR         6928     A     
 PAR       .T       ENDIF                                                                  PAR         6929     A     
 PAR                HX1    WB.VAR                                                          PAR         6930     A     
 PAR                EQ     EXIT.                                                           PAR         6931     A     
 PAR                                                                                       PAR         6932     A     
 PAR      *         OPERAND IS EXPRESSION OR CONSTANT.  SET UP ERROR LITERAL,              PAR         6933     A     
 PAR      *         AND RETURN PARAMETERS.                                                 PAR         6934     A     
 PAR                                                                                       PAR         6935     A     
 PAR       DOA8     SA1    B7                                                              PAR         6936     A     
 PAR                BX6    X1          (FILL.3) = WORD FOR DIAGNOSTIC                      PAR         6937     A     
 PAR                SA2    S=BU                                                            PAR         6938     A     
 PAR                BX5    X0                                                              PAR         6939     A     
 PAR                LX2    TP.ORDP                                                         PAR         6940     A     
 PAR                LX5    TP.MODEP                                                        PAR         6941     A     
 PAR                BX5    X2+X5       INVENT BLOWUP OPERAND                               PAR         6942     A     
 PAR                SA6    FILL.3                                                          PAR         6943     A     
 PAR                EQ     EXIT.                                                           PAR         6944     A     
 PAR       ECC      SPACE  4,10                                                            PAR         6945     A     
 PAR      **        ECC - EMIT CHARACTER CONSTANT.                                         PAR         6946     A     
 PAR      *                                                                                PAR         6947     A     
 PAR      *         SINCE AN IL OPERAND DOES NOT HAVE ENOUGH FIELDS TO                     PAR         6948     A     
 PAR      *         COMPLETELY REPRESENT A CHARACTER CONSTANT (SYMORD, BIAS,               PAR         6949     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         AND LENGTH), SUCH OPERANDS MUST BE EMITTED AS SUBSTRING                PAR         6950     A     
 PAR      *         REFERENCES.  SEE ECS FOR DETAILS.                                      PAR         6951     A     
 PAR      *                                                                                PAR         6952     A     
 PAR      *         NOTE - CALLERS OUTSIDE PAR SHOULD BE PARTICULARLY CAREFUL              PAR         6953     A     
 PAR      *                OF ESTACK AND (B6) ON ENTRY AND RETURN.                         PAR         6954     A     
 PAR      *                                                                                PAR         6955     A     
 PAR      *         ENTRY  (X1) = CHARACTER LENGTH                                         PAR         6956     A     
 PAR      *                (X2) = CHARACTER INDEX                                          PAR         6957     A     
 PAR      *                (B6) -> TOP+1 OF ESTACK.                                        PAR         6958     A     
 PAR      *                                                                                PAR         6959     A     
 PAR      *         EXIT   RESULT ON TOP OF ESTACK.                                        PAR         6960     A     
 PAR      *                ((B6)-1) -> RESULT.           /* ON TOP OF ESTACK               PAR         6961     A     
 PAR      *                ESTACK TOP HAS BEEN ADVANCED BY 1.                              PAR         6962     A     
 PAR      *                                                                                PAR         6963     A     
 PAR      *         CALLS  ECS.                                                            PAR         6964     A     
 PAR                                                                                       PAR         6965     A     
 PAR                                                                                       PAR         6966     A     
 PAR       ECC      SUBR   =           ENTRY/EXIT...                                       PAR         6967     A     
 PAR                SA3    S=CON                                                           PAR         6968     A     
 PAR                RJ     ECS         EMIT CHARACTER SUBSTRING                            PAR         6969     A     
 PAR                EQ     EXIT.                                                           PAR         6970     A     
 PAR       ECS      SPACE  4,20                                                            PAR         6971     A     
 PAR      **        ECS - EMIT CHARACTER SUBSTRING.                                        PAR         6972     A     
 PAR      *                                                                                PAR         6973     A     
 PAR      *         EMITS SUBSTRING REFERENCE TO A COMPILER INVENTED SYMBOL.               PAR         6974     A     
 PAR      *                                                                                PAR         6975     A     
 PAR      *         ENTRY  (X1) = LENGTH, IN CHARACTERS.                                   PAR         6976     A     
 PAR      *                (X2) = INDEX, IN WORDS INTO SYMBOL (SYO)                        PAR         6977     A     
 PAR      *                (X3) = SYO = ORDINAL OF SYMBOL.                                 PAR         6978     A     
 PAR      *                (B6) -> TOP+1 OF ESTACK.                                        PAR         6979     A     
 PAR      *         THE DETAILS ARE --                                                     PAR         6980     A     
 PAR      *                FIRST  = 10 * INDEX + 1                                         PAR         6981     A     
 PAR      *                LAST   = FIRST + LENGTH - 1                                     PAR         6982     A     
 PAR      *                PUSH   SYO                                                      PAR         6983     A     
 PAR      *                PUSH   FIRST                                                    PAR         6984     A     
 PAR      *                PUSH   LAST                                                     PAR         6985     A     
 PAR      *                T1 = ADT (V=COLON,  FIRST, LAST)                                PAR         6986     A     
 PAR      *                T2 = ADT (V=SUBST,  SYO,   T1)                                  PAR         6987     A     
 PAR      *                ESTACK[TOP] = T2                     /* PER ADT                 PAR         6988     A     
 PAR      *                                                                                PAR         6989     A     
 PAR      *         EXIT   RESULT ON TOP OF ESTACK.                                        PAR         6990     A     
 PAR      *                ((B6)-1) -> RESULT.           /* ON TOP OF ESTACK               PAR         6991     A     
 PAR      *                ESTACK TOP HAS BEEN ADVANCED BY 1.                              PAR         6992     A     
 PAR      *                (SMOD) = M.CHAR                                                 PAR         6993     A     
 PAR      *                                                                                PAR         6994     A     
 PAR      *         NOTE - CALLERS OUTSIDE PAR SHOULD BE PARTICULARLY CAREFUL              PAR         6995     A     
 PAR      *                OF ESTACK AND (B6) ON ENTRY AND RETURN.                         PAR         6996     A     
 PAR      *                                                                                PAR         6997     A     
 PAR      *         CALLS  ADT.                                                            PAR         6998     A     
 PAR                                                                                       PAR         6999     A     
 PAR                                                                                       PAR         7000     A     
 PAR       ECS      SUBR   0           ENTRY/EXIT...                                       PAR         7001     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1404    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =X6    M.CHAR                                                          PAR         7002     A     
 PAR                SX5    B1                                                              PAR         7003     A     
 PAR                LX3    TP.ORDP                                                         PAR         7004     A     
 PAR                SA6    SMOD                                                            PAR         7005     A     
 PAR                WC     X4,X2       FCA = 10 * INDEX                                    PAR         7006     A     
 PAR                LX6    TP.MODEP                                                        PAR         7007     A     
 PAR                BX7    X3+X6       FORM (3OP) = [TP]SYO                                PAR         7008     A     
 PAR                IX5    X4+X5       FIRST = FCA + 1                                     PAR         7009     A     
 PAR                CLAS=  X0,TP,(SHRT),INT                                                PAR         7010     A     
 PAR                SA3    COLOP                                                           PAR         7011     A     
 PAR                IX6    X4+X1       LAST = FCA + LENGTH                                 PAR         7012     A     
 PAR                LX5    TP.BIASP                                                        PAR         7013     A     
 PAR                SA7    B6          PUSH (SYO)                                          PAR         7014     A     
 PAR                BX4    X0+X5       FORM (1OP) = FIRST                                  PAR         7015     A     
 PAR                LX6    TP.BIASP                                                        PAR         7016     A     
 PAR                BX7    X3          (SOPR) = (COLOP)                                    PAR         7017     A     
 PAR                SB6    B6+3        ADVANCE FOR PUSH (SYO, FIRST, LAST)                 PAR         7018     A     
 PAR                SA7    SOPR                                                            PAR         7019     A     
 PAR                BX5    X6+X0       FORM (2OP) = LAST                                   PAR         7020     A     
 PAR                RJ     ADT         EMIT COLON TURPLE                                   PAR         7021     A     
 PAR                                                                                       PAR         7022     A     
 PAR                SA3    SUBST                                                           PAR         7023     A     
 PAR                SA5    B6-B1       (4OP) = RESULT OF COLON TURPLE                      PAR         7024     A     
 PAR                BX7    X3                                                              PAR         7025     A     
 PAR                SA7    SOPR                                                            PAR         7026     A     
 PAR                SA4    A5-B1       (3OP) = SYMORD (SYO)                                PAR         7027     A     
 PAR                RJ     ADT         FINISH SUBSTRING TURPLE                             PAR         7028     A     
 PAR                EQ     EXIT.                                                           PAR         7029     A     
 PAR       EMT      SPACE  4,10                                                            PAR         7030     A     
 PAR      **        EMT - EMIT TURPLE TO TABLE.                                            PAR         7031     A     
 PAR      *                                                                                PAR         7032     A     
 PAR      *         THIS ROUTINE IS TO BE USED TO OUTPUT ALL TURPLES.                      PAR         7033     A     
 PAR      *         TAKES CARE OF SETTING LINE NUMBER, ETC.                                PAR         7034     A     
 PAR      *                                                                                PAR         7035     A     
 PAR      *         ENTRY  (B3) = OPERATOR SELECTOR.  IS EITHER --                         PAR         7036     A     
 PAR      *                     =  1/ 1,  1/ T,  16/ ADDRESS OF SETOP WORD,  OR --         PAR         7037     A     
 PAR      *                     =  1/ 0,  1/ T,  2/ 0,  2/DD,  12/ SKELETON.               PAR         7038     A     
 PAR      *                (T) = 0 :  EMIT TO (T.PAR),                                     PAR         7039     A     
 PAR      *                    = 1 :  EMIT TO TABLE IN (A1).                               PAR         7040     A     
 PAR      *                (DD) = DUCABILITY,  0 = NONE,                                   PAR         7041     A     
 PAR      *                                    1 = FIRST,                                  PAR         7042     A     
 PAR      *                                    2 = SECOND,                                 PAR         7043     A     
 PAR      *                                    3 = BOTH.                                   PAR         7044     A     
 PAR      *                (A1,X1) = TABLE *TURPLE* IS TO BE ADDED TO, IF (T) = 1.         PAR         7045     A     
 PAR      *                (X4) = (1OP).                                                   PAR         7046     A     
 PAR      *                (X5) = (2OP).                                                   PAR         7047     A     
 PAR      *                                                                                PAR         7048     A     
 PAR      *         EXIT   (A1,X1) = TABLE *TURPLE* WAS ADDED TO.                          PAR         7049     A     
 PAR      *                                                                                PAR         7050     A     
 PAR      *         USES   A2-3,A6-7   B2-3,B7   X0-3,X6-7.                                PAR         7051     A     
 PAR      *         CALLS  ALLOC, SN.EMT .                                                 PAR         7052     A     
 PAR                                                                                       PAR         7053     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         7054     A     
 PAR       EMT      SUBR   =           ENTRY/EXIT...                                       PAR         7055     A     
 PAR                SB2    B3+B3                                                           PAR         7056     A     
 PAR                MI     B2,EMT2     IF TABLE PRESET IN (A1)                             PAR         7057     A     
 PAR                SA1    T.PAR                                                           PAR         7058     A     
 PAR       EMT2     ALLOC  A1,Z=TURP   RESERVE ROOM FOR TURPLE                             PAR         7059     A     
 PAR                SX2    B3                                                              PAR         7060     A     
 PAR                MX0    -16                                                             PAR         7061     A     
 PAR                LX7    X5                                                              PAR         7062     A     
 PAR                BX3    -X0*X2      ISOLATE (POSSIBLE) SETOP ADDRESS                    PAR         7063     A     
 PAR                =A7    B7-Z=TURP+OR.2OP                                                PAR         7064     A     
 PAR                LX6    X4                                                              PAR         7065     A     
 PAR                =A6    A7-OR.2OP+OR.1OP                                                PAR         7066     A     
 PAR                MI     B3,EMT4     IF SETOP ADDRESS GIVEN                              PAR         7067     A     
 PAR                MX0    -12                                                             PAR         7068     A     
 PAR                BX2    -X0*X2      ISOLATE SKELETON ORDINAL                            PAR         7069     A     
 PAR                AX3    12                                                              PAR         7070     A     
 PAR                SA3    X3+OPDUM                                                        PAR         7071     A     
 PAR                LX2    TH.SKELP                                                        PAR         7072          I
          -FC50104
 PAR                LX2    SP.SKELP                                                        FC50104      178     A     
 PAR                BX3    X3+X2                                                           PAR         7073     A     
 PAR                EQ     EMT5                                                            PAR         7074     A     
 PAR                                                                                       PAR         7075     A     
 PAR       EMT4     SA3    X3+         FETCH OPERATOR WORD                                 PAR         7076     A     
 PAR       EMT5     CLAS=  X2,TH,(LINE,MODC)                                               PAR         7077          I
          -FC50104
 PAR       EMT5     CLAS=  X2,SP,(SKEL,1ATR,MODC)                                          FC50104      179     A     
 PAR                BX6    -X2*X3      CLEAR PASS 1 FIELDS FROM OPERATOR                   PAR         7078     A     
 PAR                MX2    -SP.SKELL                                                       FC50104      180     A     
 PAR                LX3    -SP.SKELP                                                       FC50104      181     A     
 PAR                BX2    -X2*X3      EXTRACT SKELETON INDEX                              FC50104      182     A     
 PAR                LX2    TH.SKELP                                                        FC50104      183     A     
 PAR                BX6    X2+X6       REPOSITION SKELETON INDEX                           FC50104      184     A     
 PAR                =A6    A6-OR.1OP+OR.OPR                                                PAR         7079     A     
 PAR                LX3    X6          TH. FORMAT OF HEADER                                FC50104      185     A     
 PAR                                                                                       PAR         7080     A     
 PAR       .T       IFEQ   TEST,ON     DUMP EMITTED TURPLE                                 PAR         7081     A     
 PAR                SA2    CO.SNAP                                                         PAR         7082     A     
 PAR                HX6    TH.SKEL                                                         PAR         7083     A     
 PAR                SX7    =XZ.SKCR                                                        PAR         7084     A     
 PAR                AX6    -TH.SKELL                                                       PAR         7085     A     
 PAR                IX7    X6-X7                                                           PAR         7086     A     
 PAR                LX2    1RQ                                                             PAR         7087     A     
 PAR                BX7    -X7+X6      .MI. IFF NOT (0 .LE. SKEL .LT. MAX)                 PAR         7088     A     
 PAR                PL     X7,EMT8     IF SKEL OKAY                                        PAR         7089     A     
 PAR                FATAL  E.ZEMT      ** SKEL ILL                                         PAR         7090     A     
 PAR       EMT8     BX2    X2+X7                                                           PAR         7091     A     
 PAR                PL     X2,EMT9     IF NOT ((SNAP=Q) OR (SKEL ILL))                     PAR         7092     A     
 PAR                SX0    EMT                                                             PAR         7093     A     
 PAR                CALL   SN.EMT                                                          PAR         7094     A     
 PAR       EMT9     MI     X7,"BLOWUP" IF SKEL ILL                                         PAR         7095     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       .T       ENDIF                                                                  PAR         7096     A     
 PAR                EQ     EXIT.                                                           PAR         7097     A     
 PAR       FAT      SPACE  4,10                                                            PAR         7098     A     
 PAR      **        FAT -  FLUSH ARGUMENT TURPLES.                                         PAR         7099     A     
 PAR      *                                                                                PAR         7100     A     
 PAR      *         ENTRY  (X4) = LENGTH OF TURPLES TO BE KEPT.                            PAR         7101     A     
 PAR      *                (T.IOARG) = FLUSHED TURPLES AT THE END.                         PAR         7102     A     
 PAR      *                                                                                PAR         7103     A     
 PAR      *                (T=IOARG) = DECREMENTED TO ACCOUNT FOR FLUSHED TURPLES.         PAR         7104     A     
 PAR      *                        = SAME AS (X4) ON ENTRY.                                PAR         7105     A     
 PAR      *                *TURPLES* MOVED TO PARSED TABLE.                                PAR         7106     A     
 PAR      *                                                                                PAR         7107     A     
 PAR      *         USES   A1-4,A6-7   X0-4,X6-7   B2-3,B7.                                PAR         7108     A     
 PAR      *                                                                                PAR         7109     A     
 PAR      *         CALLS  ALC, MVE=.                                                      PAR         7110     A     
 PAR                                                                                       PAR         7111     A     
 PAR                                                                                       PAR         7112     A     
 PAR       FAT      SUBR   =           ENTRY/EXIT...                                       PAR         7113     A     
 PAR                SA2    T=IOARG                                                         PAR         7114     A     
 PAR                IX0    X2-X4       (X0) = WORD COUNT OF TURPLES TO BE MOVED            PAR         7115     A     
 PAR                ZR     X0,EXIT.    IF NO TURPLES TO MOVE                               PAR         7116     A     
 PAR       .T       IFEQ   TEST,ON,1                                                       PAR         7117     A     
 PAR                MI     X0,"BLOWUP"       IF FLUSH REQUEST EXCEEDS TABLE LENGTH         PAR         7118     A     
 PAR                ALLOC  T.PAR,X0                                                        PAR         7119     A     
 PAR                SA2    T.IOARG                                                         PAR         7120     A     
 PAR                SA1    T=IOARG                                                         PAR         7121     A     
 PAR                BX6    X4                                                              PAR         7122     A     
 PAR                IX2    X4+X2       (X2) = SOURCE ADDRESS                               PAR         7123     A     
 PAR                IX1    X1-X4       (X1) = WORD COUNT OF TURPLES TO BE MOVED            PAR         7124     A     
 PAR                SHRINK A1,X6       REDUCE ARGUMENT TABLE SIZE                          PAR         7125     A     
 PAR                SX0    B7                                                              PAR         7126     A     
 PAR                IX3    X0-X1       (X3) = DESTINATION ADDRESS                          PAR         7127     A     
 PAR                MOVE   X1,X2,X3    MOVE TURPLES TO PARSED TABLE                        PAR         7128     A     
 PAR                EQ     EXIT.                                                           PAR         7129     A     
 PAR       FSA      SPACE  4,10                                                            PAR         7130     A     
 PAR      **        FSA - FIND SYMBOL ATTRIBUTES.                                          PAR         7131     A     
 PAR      *                                                                                PAR         7132     A     
 PAR      *         ENTRY  (X1) = OPERAND (TP. FORMAT).                                    PAR         7133     A     
 PAR      *                                                                                PAR         7134     A     
 PAR      *         EXIT   (B7) .LT. 0 IF OPERAND NOT IN SYMTAB.                           PAR         7135     A     
 PAR      *                "BLOWUP" IF STATEMENT LABEL.                                    PAR         7136     A     
 PAR      *                (X0) = ORDINAL OF SYMBOL.                                       PAR         7137     A     
 PAR      *                (X1) = SYMTAB (WB) WITH *VAR* BIT EXPOSED.                      PAR         7138     A     
 PAR      *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                          PAR         7139     A     
 PAR      *                (B7) = SYMTAB (WB) INDEX.                                       PAR         7140     A     
 PAR      *                                                                                PAR         7141     A     
 PAR      *         USES   A1-2   X0-2.                                                    PAR         7142     A     
 PAR                                                                                       PAR         7143     A     
 PAR                                                                                       PAR         7144     A     
 PAR       FSA      SUBR               ENTRY/EXIT...                                       PAR         7145     A     
 PAR                CLAS=  X2,TP,(INTR,SHRT,GL)                                            PAR         7146     A     
 PAR                BX0    X2*X1                                                           PAR         7147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB7    -B1                                                             PAR         7148     A     
 PAR                NZ     X0,EXIT.    IF OPERAND NOT A SYMBOL                             PAR         7149     A     
 PAR                MX2    -TP.ORDL                                                        PAR         7150     A     
 PAR                LX1    -TP.ORDP                                                        PAR         7151     A     
 PAR                BX0    -X2*X1      EXTRACT (X0) = SYMTAB ORDINAL                       PAR         7152     A     
 PAR                LX2    X0,B1                                                           PAR         7153     A     
 PAR                IX1    X2+X0       (X1) = INDEX = SYMORD * Z=SYM                       PAR         7154     A     
 PAR                ERRNZ  3-Z=SYM                                                         PAR         7155     A     
 PAR                =B7    X1+WB.W     RETURN (B7) = SYMTAB (WB) INDEX                     PAR         7156     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         7157     A     
 PAR                SA2    T=SYM                                                           PAR         7158     A     
 PAR                IX2    X1-X2                                                           PAR         7159     A     
 PAR                PL     X2,"BLOWUP"       IF (INDEX) .GE. (SYMTAB LENGTH)               PAR         7160     A     
 PAR       .T       ENDIF                                                                  PAR         7161     A     
 PAR                SA1    T.SYM                                                           PAR         7162     A     
 PAR                SA2    X1+B7       FETCH SYMTAB (WB)                                   PAR         7163     A     
 PAR                BX1    X2                                                              PAR         7164     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         7165     A     
 PAR                HX1    WB.LAB                                                          PAR         7166     A     
 PAR                MI     X1,"BLOWUP"       IF STATEMENT LABEL                            PAR         7167     A     
 PAR                LX1    WB.LABP-WB.VARP                                                 PAR         7168     A     
 PAR       .T       ELSE                                                                   PAR         7169     A     
 PAR                HX1    WB.VAR                                                          PAR         7170     A     
 PAR       .T       ENDIF                                                                  PAR         7171     A     
 PAR                EQ     EXIT.                                                           PAR         7172     A     
 PAR       GOL      EJECT                                                                  PAR         7173     A     
 PAR      **        GOL - GET CHARACTER OPERAND LENGTH.                                    PAR         7174     A     
 PAR      *                                                                                PAR         7175     A     
 PAR      *         ENTRY  (X1) = OPD, CHARACTER OPERAND                                   PAR         7176     A     
 PAR      *                                                                                PAR         7177     A     
 PAR      *         EXIT   (X6) = MI IFF OPERAND PASSED LENGTH, ELSE PL                    PAR         7178     A     
 PAR      *                (X7) = MI IFF OPERAND LENGTH NOT EXACTLY KNOWN,                 PAR         7179     A     
 PAR      *                       ELSE = LENGTH IN CHARACTERS                              PAR         7180     A     
 PAR      *                                                                                PAR         7181     A     
 PAR      *         PRESERVES A4,X4                                                        PAR         7182     A     
 PAR                                                                                       PAR         7183     A     
 PAR       GOL      SUBR                                                                   PAR         7184          I
          -FC5A171A 
 PAR       GOL      SUBR   =           ENTRY/EXIT...                                       FC5A171A     344     A     
 PAR       .T       IFEQ   TEST,ON                                                         PAR         7185     A     
 PAR                BX5    X1                                                              PAR         7186     A     
 PAR                HX5    TP.SHRT                                                         PAR         7187     A     
 PAR                MI     X5,"BLOWUP" IF SHORT CON                                        PAR         7188     A     
 PAR                LX5    TP.SHRTP+1-TP.MODEP                                             PAR         7189     A     
 PAR                MX0    -TP.MODEL                                                       PAR         7190     A     
 PAR                BX0    -X0*X5                                                          PAR         7191     A     
 PAR                SB7    X0-M.CHAR                                                       PAR         7192     A     
 PAR                NZ     B7,"BLOWUP" IF NOT CHARACTER OPERAND                            PAR         7193     A     
 PAR       .T       ENDIF                                                                  PAR         7194     A     
 PAR                                                                                       PAR         7195     A     
 PAR                SX6    0                                                               PAR         7196     A     
 PAR                SA6    GOLA        FLAG NOT SUBSTRING                                  PAR         7197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         7198     A     
 PAR       GOL10    BX5    X1                                                              PAR         7199     A     
 PAR                HX5    TP.INTR                                                         PAR         7200     A     
 PAR                                                                                       PAR         7201     A     
 PAR       GOL20    MX0    -TP.ORDL                                                        PAR         7202     A     
 PAR                LX1    -TP.ORDP                                                        PAR         7203     A     
 PAR                BX1    -X0*X1                                                          PAR         7204     A     
 PAR                MI     X5,GOL30    IF OPERAND IS INTERMEDIATE                          PAR         7205     A     
 PAR                CALL   GCL         GET CHARACTER LENGTH                                PAR         7206     A     
 PAR                BX6    X1+X2       CHAR LENGTH OR -0                                   PAR         7207     A     
 PAR                SA1    GOLA                                                            PAR         7208     A     
 PAR                BX7    X1+X6       IF SUBSTRING, NOT EXACT LENGTH                      PAR         7209     A     
 PAR                EQ     EXIT.                                                           PAR         7210     A     
 PAR                                                                                       PAR         7211     A     
 PAR      *         OPERAND IS INTERMEDIATE.  MAY BE SUBSTRING, ARRAY, FUNCTION            PAR         7212     A     
 PAR      *         OR CONCATANATION.                                                      PAR         7213     A     
 PAR                                                                                       PAR         7214     A     
 PAR       GOL30    SA2    T.PAR                                                           PAR         7215     A     
 PAR                =B2    X2+OR.OPR                                                       PAR         7216     A     
 PAR                SA3    B2+X1       OPERATOR WORD                                       PAR         7217     A     
 PAR                LX3    -TH.SKELP                                                       PAR         7218          I
          -FC50104
 PAR                BX6    -X3                                                             PAR         7219     A     
 PAR                HX6    TH.SKEL                                                         FC50104      186     A     
 PAR                AX6    -TH.SKELL   EXTRACT (SIGN EXTEND) NEGATIVE SKEL ORDINAL         FC50104      187     A     
 PAR                SB7    X6                                                              PAR         7220     A     
 PAR                ERRNZ  TH.SKELL-18                                                     PAR         7221          I
          -FC50104
 PAR                =A1    A3+OR.1OP-OR.OPR                                                PAR         7222     A     
 PAR                MX5    0                                                               PAR         7223     A     
 PAR                SX2    B7+V=CAT                                                        PAR         7224     A     
 PAR                SX0    B7+V=SUBST                                                      PAR         7225     A     
 PAR                ZR     X2,GOL50    IF CONCAT                                           PAR         7226     A     
 PAR                NZ     X0,GOL20    IF NOT SUBST. (MUST BE ARRAY OR FUNCTION)           PAR         7227     A     
 PAR                                                                                       PAR         7228     A     
 PAR      *         PROCESS SUBSTRING.                                                     PAR         7229     A     
 PAR      *         IF SUBSTRING IS OF CONSTANT LENGTH, FINE. OTHERWISE                    PAR         7230     A     
 PAR      *         WE STILL NEED TO KNOW IF BASE VARIABLE (OR ARRAY) IS FIXED             PAR         7231     A     
 PAR      *         OR PASSED-LENGTH.                                                      PAR         7232     A     
 PAR                                                                                       PAR         7233     A     
 PAR                BX6    X1                                                              PAR         7234     A     
 PAR                SA6    GOLB        SAVE SUBSTRING 1OP                                  PAR         7235     A     
 PAR                =A3    A1+OR.2OP-OR.1OP                                                PAR         7236     A     
 PAR                MX0    -TP.ORDL                                                        PAR         7237     A     
 PAR                =B2    B2+OR.1OP-OR.OPR                                                PAR         7238     A     
 PAR                LX3    -TP.ORDP                                                        PAR         7239     A     
 PAR                BX6    -X0*X3                                                          PAR         7240     A     
 PAR                SA1    B2+X6       1OP OF COLON                                        PAR         7241     A     
 PAR                =A3    A1+OR.2OP-OR.1OP  2OP OF COLON                                  PAR         7242     A     
 PAR                CALL   LCT         EVALUATE 1OP                                        PAR         7243     A     
 PAR                NE     B2,B1,GOL40 IF NOT CONSTANT                                     PAR         7244     A     
 PAR                BX1    X3                                                              PAR         7245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX3    X6-1        FIRST - 1                                           PAR         7246     A     
 PAR                CALL   LCT         EVALUATE 2OP                                        PAR         7247     A     
 PAR                IX7    X6-X3       SUBSTRING LENGTH                                    PAR         7248     A     
 PAR                BX6    X7                                                              PAR         7249     A     
 PAR                EQ     B2,B1,EXIT. IF CONSTANT                                         PAR         7250     A     
 PAR                                                                                       PAR         7251     A     
 PAR       GOL40    SA1    GOLB        RESET OPERAND TO SUBSTRING SYMBOL                   PAR         7252     A     
 PAR                MX6    60                                                              PAR         7253     A     
 PAR                SA6    GOLA        FLAG SUBSTRING                                      PAR         7254     A     
 PAR                EQ     GOL10       REEVALUATE                                          PAR         7255     A     
 PAR                                                                                       PAR         7256     A     
 PAR      *         CONCATANATION.  FOR NOW, WE DETERMINE FIXED/PASSED LENGTH              PAR         7257     A     
 PAR      *         ONLY.  EVENTUALLY WE WANT TO RETURN LENGTH[TH] ALSO.                   PAR         7258     A     
 PAR                                                                                       PAR         7259     A     
 PAR       GOL50    LX3    TH.SKELP-1-TH.PLCP                                              PAR         7260          I
          -FC50104
 PAR       GOL50    SBIT   X3,TH.PLCP                                                      FC50104      188     A     
 PAR                MX7    60          EXACT LENGTH NOT KNOWN                              PAR         7261     A     
 PAR                BX6    X3          FIXED/PASSED LENGTH FLAG                            PAR         7262     A     
 PAR                EQ     EXIT.                                                           PAR         7263     A     
 PAR                                                                                       PAR         7264     A     
 PAR       GOLA     BSS    1                                                               PAR         7265     A     
 PAR       GOLB     BSS    1                                                               PAR         7266     A     
 PAR       OMC      SPACE  4,30                                                            PAR         7267     A     
 PAR      **        OMC - OUTPUT MODE CONVERSION.                                          PAR         7268     A     
 PAR      *                                                                                PAR         7269     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         7270     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         7271     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         7272     A     
 PAR      *                (SMOD) = 24/ 0,  18/ DOP,  18/ DM                               PAR         7273     A     
 PAR      *                                                                                PAR         7274     A     
 PAR      *         EXIT   (X3) = PRESERVED.                                               PAR         7275     A     
 PAR      *                (X4) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE            PAR         7276     A     
 PAR      *                            OPERAND =2, OTHERWISE PRESERVED.                    PAR         7277     A     
 PAR      *                (X5) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE            PAR         7278     A     
 PAR      *                            OPERAND=1, OTHERWISE PRESERVED.                     PAR         7279     A     
 PAR      *                (SMOD) = 42/ 0,  18/ DM                                         PAR         7280     A     
 PAR      *                                                                                PAR         7281     A     
 PAR      *         USES   CANNOT DESTROY   B4-6   X3-5.                                   PAR         7282     A     
 PAR      *                X4,X5 MAY BE REPLACED BY MODE CONV. INTERMEDIATE.               PAR         7283     A     
 PAR      *                                                                                PAR         7284     A     
 PAR      *                                                                                PAR         7285     A     
 PAR      *                DOP = DOMINANT OPERAND --                                       PAR         7286     A     
 PAR      *                               = 0  NO CONVERSION.                              PAR         7287     A     
 PAR      *                               = 1  CONVERT ARG IN X5 TO DOMINANT MODE.         PAR         7288     A     
 PAR      *                               = 2  CONVERT ARG IN X4 TO DOMINANT MODE.         PAR         7289     A     
 PAR      *                DM = DOMINANT MODE.                                             PAR         7290     A     
 PAR                                                                                       PAR         7291     A     
 PAR                                                                                       PAR         7292     A     
 PAR       OMC      SUBR   0           ENTRY/EXIT...                                       PAR         7293          I
          -FC5A150
 PAR       OMC      SUBR   =           ENTRY/EXIT...                                       FC5A150      511     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA1    SMOD                                                            PAR         7294     A     
 PAR                SX6    X1          (X6) = DOMINANT MODE                                PAR         7295     A     
 PAR                AX1    18                                                              PAR         7296     A     
 PAR                ZR     X1,EXIT.    IF NO CONVERSION REQUIRED                           PAR         7297     A     
 PAR                                                                                       PAR         7298     A     
 PAR                BX7    X3                                                              PAR         7299     A     
 PAR                SA7    OMCA        SAVE (X3)                                           PAR         7300     A     
 PAR                BX7    X5                                                              PAR         7301     A     
 PAR                SA7    A7+B1       SAVE (2OP) = (X5)                                   PAR         7302     A     
 PAR                BX7    X4                                                              PAR         7303     A     
 PAR                SA7    A7+B1       SAVE (1OP) = (X4)                                   PAR         7304     A     
 PAR                SA2    X1+OMC.RC                                                       PAR         7305     A     
 PAR                SA5    X1+OMCA     (X5) = OPERAND TO CONVERT                           PAR         7306     A     
 PAR                BX7    X2          PLUG RESTORE CODE                                   PAR         7307     A     
 PAR                SA7    OMC.RR                                                          PAR         7308     A     
 PAR                RJ     CMR         COERCE MODE OF RESULT                               PAR         7309     A     
 PAR                NZ     B7,"BLOWUP"       IF CONVERSION NOT POSSIBLE                    PAR         7310     A     
 PAR                SA3    OMCA                                                            PAR         7311     A     
 PAR                BX6    X5                                                              PAR         7312     A     
 PAR                LX7    X3                                                              PAR         7313     A     
 PAR                SA6    B6-B1       SET ESTACK[TOP] = NEW RESULT                        PAR         7314     A     
 PAR                SA7    SOPR        RESTORE (SOPR) = OPERATOR                           PAR         7315     A     
 PAR                                                                                       PAR         7316     A     
 PAR       OMC.RR   BSS    1           ** FILLED **                                        PAR         7317     A     
 PAR                EQ     EXIT.                                                           PAR         7318     A     
 PAR                                                                                       PAR         7319     A     
 PAR      **        SKELETON RESTORE REGISTER WORDS.                                       PAR         7320     A     
 PAR                                                                                       PAR         7321     A     
 PAR       OMC.X5   =A4    OMCA+2      RESTORE *X4*                                        PAR         7322     A     
 PAR                SA5    B6-1        RESET *X5* TO CONVERSION INTERMEDIATE               PAR         7323     A     
 PAR       OMC.X4   SA4    B6-1        RESET *X4* TO CONVERSION INTERMEDIATE               PAR         7324     A     
 PAR                =A5    OMCA+1      RESTORE *X5*                                        PAR         7325     A     
 PAR                                                                                       PAR         7326     A     
 PAR       OMC.RC   EQU    OMC.X5-1                                                        PAR         7327     A     
 PAR                                                                                       PAR         7328     A     
 PAR       OMCA     BSS    3                                                               PAR         7329     A     
 PAR       SCB      SPACE  4,10                                                            FC5A441       67     A     
 PAR      **        SCB - SET CHARACTER BOUNDS.                                            FC5A441       68     A     
 PAR      *                                                                                FC5A441       69     A     
 PAR      *         ENTRY  (X4) = ZR IF TARGET TP.                                         FC5A441       70     A     
 PAR      *                       NZ IF SOURCE ELEMENT TP.                                 FC5A441       71     A     
 PAR      *                (X5) = TP. ENTRY.                                               FC5A441       72     A     
 PAR      *                                                                                FC5A441       73     A     
 PAR      *         EXIT   IF CALLED WITH (X4) ZR:                                         FC5A441       74     A     
 PAR      *                  (SCBA) = BASE MEMBER ORDINAL.                                 FC5A441       75     A     
 PAR      *                  (SCBB) = LOWER CHARACTER BOUND.                               FC5A441       76     A     
 PAR      *                  (SCBC) = UPPER CHARACTER BOUND.                               FC5A441       77     A     
 PAR      *                IF CALLED WITH (X4) NZ:                                         FC5A441       78     A     
 PAR      *                  EXIT TO *CDIX* IF BASE ORDINAL .NE. (SCBA).                   FC5A441       79     A     
 PAR      *                  ELSE (X6) = LOWER CHARACTER BOUND.                            FC5A441       80     A     
 PAR      *                       (X7) = UPPER CHARACTER BOUND.                            FC5A441       81     A     
 PAR      *                                                                                FC5A441       82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         USES   X-ALL, B-2,7, A-1,2,6,7.                                        FC5A441       83     A     
 PAR                                                                                       FC5A441       84     A     
 PAR                                                                                       FC5A441       85     A     
 PAR       SCB      SUBR   0           ... ENTRY/EXIT ...                                  FC5A441       86     A     
 PAR                BX6    X5                                                              FC5A441       87     A     
 PAR                SBIT   X6,TP.INTRP                                                     FC5A441       88     A     
 PAR                SB7    B0          (B7) = 0 IF SUBSTRING NOT PRESENT                   FC5A441       89     A     
 PAR                PL     X6,SCB20    IF NOT TURPLE POINTER                               FC5A441       90     A     
 PAR                LX5    -TP.ORDP                                                        FC5A441       91     A     
 PAR                MX0    -TP.ORDL                                                        FC5A441       92     A     
 PAR                BX5    -X0*X5      ISOLATE TURPLE ORDINAL                              FC5A441       93     A     
 PAR                SB7    X5                                                              FC5A441       94     A     
 PAR                SA1    T.PAR                                                           FC5A441       95     A     
 PAR                SA1    X1+B7       TURPLE HEADER                                       FC5A441       96     A     
 PAR                AX1    -TH.SKELL                                                       FC5A441       97     A     
 PAR                BX1    -X1                                                             FC5A441       98     A     
 PAR                SX1    X1+V=SUBST                                                      FC5A441       99     A     
 PAR                NZ     X1,SCB10    IF NOT SUBSTRING                                    FC5A441      100     A     
 PAR                SA1    A1+B1       GET VARIABLE POINTER                                FC5A441      101     A     
 PAR                SB7    A1+B1       (B7) = ADDRESS OF COLON POINTER                     FC5A441      102     A     
 PAR                BX5    X1          (X5) = VARIABLE POINTER                             FC5A441      103     A     
 PAR                SBIT   X1,TP.INTRP                                                     FC5A441      104     A     
 PAR                PL     X1,SCB20    IF STATIC VARIABLE                                  FC5A441      105     A     
 PAR                                                                                       FC5A441      106     A     
 PAR       SCB10    ZR     X4,EQL99    IF TARGET - NO CHECKING                             FC5A441      107     A     
 PAR                EQ     CDIX        IF SOURCE - NO CHECKING THIS ELEMENT                FC5A441      108     A     
 PAR                                                                                       FC5A441      109     A     
 PAR       SCB20    BX6    X5                                                              FC5A441      110     A     
 PAR                MX7    -TP.ORDL                                                        FC5A441      111     A     
 PAR                LX6    -TP.ORDP                                                        FC5A441      112     A     
 PAR                BX7    -X7*X6      (X7) = SYM TAB ORDINAL                              FC5A441      113     A     
 PAR                SA2    T.SYM       GET SYM TAB *WB* WORD                               FC5A441      114     A     
 PAR                SB2    X7                                                              FC5A441      115     A     
 PAR                LX6    X7,B1                                                           FC5A441      116     A     
 PAR                SB2    B2+X6                                                           FC5A441      117     A     
 PAR                =B2    B2+WB.W     CONVERT TO *WB* INDEX                               FC5A441      118     A     
 PAR                SA3    X2+B2       *WB*                                                FC5A441      119     A     
 PAR                BX6    X5                                                              FC5A441      120     A     
 PAR                HX6    TP.EQV                                                          FC5A441      121     A     
 PAR                PL     X6,SCB30    IF NOT EQUIVALENCED                                 FC5A441      122     A     
 PAR                MX7    -WB.BASEL                                                       FC5A441      123     A     
 PAR                LX3    -WB.BASEP                                                       FC5A441      124     A     
 PAR                BX7    -X7*X3      (X7) = SYM ORD OF BASE ENTRY                        FC5A441      125     A     
 PAR                                                                                       FC5A441      126     A     
 PAR       SCB30    NZ     X4,SCB40    IF SOURCE ELEMENT                                   FC5A441      127     A     
 PAR                SA7    SCBA        SAVE TARGET BASE ORD                                FC5A441      128     A     
 PAR                EQ     SCB50                                                           FC5A441      129     A     
 PAR                                                                                       FC5A441      130     A     
 PAR       SCB40    SA2    SCBA        COMPARE TARGET/SOURCE BASE ORDS                     FC5A441      131     A     
 PAR                IX0    X2-X7                                                           FC5A441      132     A     
 PAR                NZ     X0,CDIX     IF BASES DIFFER - OK                                FC5A441      133     A     
 PAR                                                                                       FC5A441      134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         IF SUBSRING NOT PRESENT, COMPUTE:                                      FC5A441      135     A     
 PAR      *           LOWER BOUND = RA*10 + BCP + BIAS*CLEN + 1                            FC5A441      136     A     
 PAR      *           UPPER BOUND = (LOWER BOUND) + CLEN - 1                               FC5A441      137     A     
 PAR                                                                                       FC5A441      138     A     
 PAR       SCB50    =A1    A3+WC.W-WB.W  *WC*                                              FC5A441      139     A     
 PAR                MX0    -WC.RAL                                                         FC5A441      140     A     
 PAR                LX1    -WC.RAP                                                         FC5A441      141     A     
 PAR                BX6    -X0*X1      RA                                                  FC5A441      142     A     
 PAR                SX7    10                                                              FC5A441      143     A     
 PAR                IX6    X6*X7       RA*10                                               FC5A441      144     A     
 PAR                MX0    -WC.BCPL                                                        FC5A441      145     A     
 PAR                LX1    WC.RAP-WC.BCPP                                                  FC5A441      146     A     
 PAR                BX2    -X0*X1      BCP                                                 FC5A441      147     A     
 PAR                IX6    X6+X2       RA*10 + BCP                                         FC5A441      148     A     
 PAR                BX7    X5                                                              FC5A441      149     A     
 PAR                HX7    TP.BIAS                                                         FC5A441      150     A     
 PAR                AX7    -TP.BIASL   BIAS                                                FC5A441      151     A     
 PAR                MX0    -WC.CLENL                                                       FC5A441      152     A     
 PAR                LX1    WC.BCPP-WC.CLENP                                                FC5A441      153     A     
 PAR                BX2    -X0*X1      CLEN                                                FC5A441      154     A     
 PAR                IX7    X2*X7       BIAS*CLEN                                           FC5A441      155     A     
 PAR                IX6    X6+X7       RA*10 + BCP + BIAS*CLEN                             FC5A441      156     A     
 PAR                SX0    B1                                                              FC5A441      157     A     
 PAR                IX6    X6+X0       RA*10 + BCP + BIAS*CLEN + 1                         FC5A441      158     A     
 PAR                NZ     B7,SCB60    IF SUBSTRING PRESENT                                FC5A441      159     A     
 PAR                IX7    X6+X2       UPPER BOUND = (LOWER BOUND) + CLEN - 1              FC5A441      160     A     
 PAR                IX7    X7-X0                                                           FC5A441      161     A     
 PAR                EQ     SCB70                                                           FC5A441      162     A     
 PAR                                                                                       FC5A441      163     A     
 PAR      *         IF SUBSTRING PRESENT, COMPUTE AS FOLLOWS:                              FC5A441      164     A     
 PAR      *           IF VARIABLE LOWER SUBSTRING VALUE, THEN LOWER BOUND = 0;             FC5A441      165     A     
 PAR      *             ELSE L.B. = RA*10 + BCP + BIAS*CLEN + (LOWER SUBSTR)               FC5A441      166     A     
 PAR      *           IF VARIABLE UPPER SUBSTRING VALUE, THEN UPPER BOUND = 0;             FC5A441      167     A     
 PAR      *             ELSE U.B. = (L.B.) + (UPPER SUBSTR) - (LOWER SUBSTR)               FC5A441      168     A     
 PAR                                                                                       FC5A441      169     A     
 PAR       SCB60    SA1    B7          GET COLON POINTER                                   FC5A441      170     A     
 PAR                LX1    -TP.ORDP                                                        FC5A441      171     A     
 PAR                MX0    -TP.ORDL                                                        FC5A441      172     A     
 PAR                BX1    -X0*X1      COLON ORDINAL                                       FC5A441      173     A     
 PAR                MX7    0           SET FOR VARIABLE UPPER BOUND                        FC5A441      174     A     
 PAR                SX0    B1                                                              FC5A441      175     A     
 PAR                IX5    X6-X0       (X5) = VALUE FOR COMPUTING UPPER BOUND              FC5A441      176     A     
 PAR                BX6    X5          (X6) = VALUE FOR COMPUTING LOWER BOUND              FC5A441      177     A     
 PAR                SB7    X1+B1                                                           FC5A441      178     A     
 PAR                SA1    T.PAR                                                           FC5A441      179     A     
 PAR                SA1    X1+B7       FETCH LOWER SUBSTRING BOUND                         FC5A441      180     A     
 PAR                LX2    X1                                                              FC5A441      181     A     
 PAR                SBIT   X1,TP.SHRTP                                                     FC5A441      182     A     
 PAR                MI     X1,SCB62    IF SHORT CONSTANT                                   FC5A441      183     A     
 PAR                MX6    0           SET VARIABLE LOWER BOUND                            FC5A441      184     A     
 PAR                EQ     SCB64                                                           FC5A441      185     A     
 PAR                                                                                       FC5A441      186     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       SCB62    HX2    TP.BIAS                                                         FC5A441      187     A     
 PAR                AX2    -TP.BIASL   LOWER SUBSTRING BOUND                               FC5A441      188     A     
 PAR                IX6    X6+X2       FINAL LOWER BOUND VALUE                             FC5A441      189     A     
 PAR                                                                                       FC5A441      190     A     
 PAR       SCB64    SA1    A1+B1       FETCH UPPER SUBSTRING BOUND                         FC5A441      191     A     
 PAR                LX2    X1                                                              FC5A441      192     A     
 PAR                SBIT   X1,TP.SHRTP                                                     FC5A441      193     A     
 PAR                PL     X1,SCB70    IF NOT SHORT CONSTANT                               FC5A441      194          I
          -FC51168
 PAR                PL     X1,SCB67    IF NOT SHORT CONSTANT                               FC51168        9     A     
 PAR                HX2    TP.BIAS                                                         FC5A441      195     A     
 PAR                AX2    -TP.BIASL   UPPER SUBSTRING BOUND                               FC5A441      196     A     
 PAR                IX7    X5+X2       FINAL UPPER BOUND VALUE                             FC5A441      197     A     
 PAR                EQ     SCB70                                                           FC51168       10     A     
 PAR                                                                                       FC51168       11     A     
 PAR       SCB67    SX7    77777B      SET SOURCE U.B. TO MAX LENGTH                       FC51168       12     A     
 PAR                                                                                       FC5A441      198     A     
 PAR       SCB70    NZ     X4,EXIT.    IF CALLED FOR SOURCE ELEMENT                        FC5A441      199     A     
 PAR                SA6    SCBB        STORE LOWER BOUND                                   FC5A441      200     A     
 PAR                NZ     X6,SCB80    IF LOWER BOUND NOT VARIABLE                         FC5A441      201     A     
 PAR                ZR     X7,EQL99    IF BOTH VARIABLE - NO CHECKING                      FC5A441      202     A     
 PAR                SA7    SCBB        STORE UPPER BOUND FOR BOTH                          FC5A441      203     A     
 PAR                                                                                       FC5A441      204     A     
 PAR       SCB80    SA7    SCBC        STORE UPPER BOUND                                   FC5A441      205     A     
 PAR                NZ     X7,EXIT.    IF UPPER BOUND NOT VARIABLE                         FC5A441      206     A     
 PAR                SA6    SCBC        STORE LOWER BOUND FOR BOTH                          FC5A441      207          I
          -FC51168
 PAR                SX7    77777B      SET TARGET U.B. TO MAX LENGTH                       FC51168       13     A     
 PAR                SA7    SCBC        STORE UPPER BOUND                                   FC51168       14     A     
 PAR                EQ     EXIT.       RETURN                                              FC5A441      208     A     
 PAR                                                                                       FC5A441      209     A     
 PAR       SCBA     BSS    1           BASE ORDINAL                                        FC5A441      210     A     
 PAR       SCBB     BSS    1           LOWER CHARACTER BOUND                               FC5A441      211     A     
 PAR       SCBC     BSS    1           UPPER CHARACTER BOUND                               FC5A441      212     A     
 PAR       SDM      SPACE  4,30                                                            PAR         7330     A     
 PAR      **        SDM - SELECT DOMINANT MODE.                                            PAR         7331     A     
 PAR      *                                                                                PAR         7332     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         7333     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         7334     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         7335     A     
 PAR      *                                                                                PAR         7336     A     
 PAR      *         EXIT   (X3) = OPERATOR, WITH --                                        PAR         7337     A     
 PAR      *                       (TH.SMD) = TRUE (SPECIFIC MODE DETERMINED).              PAR         7338     A     
 PAR      *                       (TH.SKEL) = SPECIFIC SKELETON.                           PAR         7339     A     
 PAR      *                       (TH.STPR) = 0.                                           PAR         7340     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         7341     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         7342     A     
 PAR      *                (X6) = (X3).                                                    PAR         7343     A     
 PAR      *                (SOPR) = (X3).                                                  PAR         7344     A     
 PAR      *                (SMOD) =  24/ 0,  18/ POINT,  18/ DM                            PAR         7345     A     
 PAR      *                        (POINT) = 0, IF NO CONVERSION REQUIRED,                 PAR         7346     A     
 PAR      *                                = 1, IF 1ST  OPERAND IS DOMINANT MODE,          PAR         7347     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                                = 2, IF 2ND  OPERAND IS DOMINANT MODE.          PAR         7348     A     
 PAR      *                        (DM) = DOMINANT (AND RESULT) MODE.                      PAR         7349     A     
 PAR      *                                                                                PAR         7350     A     
 PAR      *         USES   A1,A2,A3  X0,X7  B2,B3,B7                                       PAR         7351     A     
 PAR                                                                                       PAR         7352     A     
 PAR                                                                                       PAR         7353     A     
 PAR       SDM90    BX6    X3                                                              PAR         7354     A     
 PAR                NO                                                                     PAR         7355     A     
 PAR                SA6    SOPR        UPDATE OPERATOR                                     PAR         7356     A     
 PAR                                                                                       PAR         7357     A     
 PAR       SDM      SUBR   =           ENTRY/EXIT...                                       PAR         7358     A     
 PAR                CLAS=  X0,TH,(SMD)                                                     PAR         7359          I
          -FC50014
 PAR                SA1    CO.ANSI                                                         FC50014       66     A     
 PAR                ZR     X1,SDM5     IF ANSI NOT ON CONTROL CARD                         FC50014       67     A     
 PAR                RJ     DDC         DIAGNOSE DBL PREC. AND CPLX. EXPRESSION             FC50014       68     A     
 PAR                                                                                       FC50014       69     A     
 PAR       SDM5     CLAS=  X0,TH,(SMD)                                                     FC50014       70          I
          -FC50104
 PAR       SDM5     CLAS=  X0,SP,(SMD)                                                     FC50104      189     A     
 PAR                BX2    X0*X3                                                           PAR         7360     A     
 PAR                LX6    X3                                                              PAR         7361     A     
 PAR                NZ     X2,EXIT.    IF (TH.SMD) SET ON ENTRY                            PAR         7362     A     
 PAR                MX7    -TH.STPRL                                                       PAR         7363          I
          -FC50104
 PAR                MX7    -SP.STPRL                                                       FC50104      190     A     
 PAR                BX3    X0+X3       INDICATE SPECIFIC MODE DETERMINED                   PAR         7364     A     
 PAR                LX7    TH.STPRP                                                        PAR         7365          I
          -FC50104
 PAR                LX7    SP.STPRP                                                        FC50104      191     A     
 PAR                BX3    X7*X3       CLEAR (TH.STPR)                                     PAR         7366     A     
 PAR                MX0    -TP.MODEL                                                       PAR         7367     A     
 PAR                LX4    -TP.MODEP                                                       PAR         7368     A     
 PAR                BX7    -X0*X4      DM = MODE1 = MODE OF (1OP)                          PAR         7369     A     
 PAR                HX6    TH.MDLS                                                         PAR         7370          I
          -FC50104
 PAR                HX6    SP.MDLS                                                         FC50104      192     A     
 PAR                SA7    SMOD        INITIALIZE (SMOD) = MODE1                           PAR         7371     A     
 PAR                LX4    TP.MODEP                                                        PAR         7372     A     
 PAR                MI     X6,SDM90    IF MODE CONVERSION INHIBITED FOR THIS OP            PAR         7373     A     
 PAR                MX1    -TH.TBPRL                                                       PAR         7374          I
          -FC50104
 PAR                MX1    -SP.TBPRL                                                       FC50104      193     A     
 PAR                BX2    -X1*X3      EXTRACT (X2) = TOKEN TYPE OF OPERATOR               PAR         7375     A     
 PAR                ERRNZ  TH.TBPRP                                                        PAR         7376          I
          -FC50104
 PAR                ERRNZ  SP.TBPRP                                                        FC50104      194     A     
 PAR                SB7    X2-O.SLP                                                        PAR         7377     A     
 PAR                ZR     B7,SDM90    IF SPECIAL LEFT PAREN, ALWAYS MODELESS              PAR         7378     A     
 PAR                                                                                       PAR         7379     A     
 PAR      *         IF UNARY OPERATOR, INHIBIT CONVERSION.                                 PAR         7380     A     
 PAR                                                                                       PAR         7381     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX5    -TP.MODEP                                                       PAR         7382     A     
 PAR                LX1    X3                                                              PAR         7383     A     
 PAR                BX6    -X0*X5      MODE2 = MODE OF (2OP)                               PAR         7384     A     
 PAR                HX1    TH.UNAR                                                         PAR         7385          I
          -FC50104
 PAR                HX1    SP.UNAR                                                         FC50104      195     A     
 PAR                PL     X1,SDM16    IF BINARY OPERATOR                                  PAR         7386     A     
 PAR                BX7    X6          MODE1 = MODE2                                       PAR         7387     A     
 PAR                                                                                       PAR         7388     A     
 PAR      *         FIND DOMINANT MODE.                                                    PAR         7389     A     
 PAR      *                (X6) = MODE2                                                    PAR         7390     A     
 PAR      *                (X7) = MODE1                                                    PAR         7391     A     
 PAR                                                                                       PAR         7392     A     
 PAR       SDM16    SB3    B0          TRY POINT = 0                                       PAR         7393     A     
 PAR                IX1    X7-X6                                                           PAR         7394     A     
 PAR                ZR     X1,SDM20    IF MODE1 .EQ. MODE2                                 PAR         7395     A     
 PAR                =B3    2                                                               PAR         7396     A     
 PAR                MI     X1,SDM20    IF MODE1 .LT. MODE2                                 PAR         7397     A     
 PAR                LX6    X7          SET (X6) = DM = MODE1                               PAR         7398     A     
 PAR                BX7    -X0*X5      SET (X7) = MODE2                                    PAR         7399     A     
 PAR                SB3    B1          POINT = 1                                           PAR         7400     A     
 PAR                                                                                       PAR         7401     A     
 PAR      *         CHECK FOR ILLEGAL USE OF TYPE CHARACTER OPERANDS.                      PAR         7402     A     
 PAR                                                                                       PAR         7403     A     
 PAR       SDM20    SX1    X6-M.CHAR                                                       PAR         7404     A     
 PAR                LX5    TP.MODEP                                                        PAR         7405     A     
 PAR                NZ     X1,SDM30    IF DM .NE. CHARACTER                                PAR         7406     A     
 PAR                ERRNZ  M.CHAR+1-N.TYPE   ASSUMES CHAR IS LARGEST TYPE                  PAR         7407     A     
 PAR                ZR     B3,SDM24    IF POINT .ZR.   /* BOTH ARE CHAR                    PAR         7408     A     
 PAR                SB7    E.AT13      ** CHARACTER AND OTHER TYPE MIXED                   PAR         7409     A     
 PAR       SDM22    FATAL  B7                                                              PAR         7410     A     
 PAR                SB3    B0          POINT = 0    /* INHIBIT CONVERSION                  PAR         7411     A     
 PAR                =X6    M.CHAR                                                          PAR         7412     A     
 PAR                BX7    X6                                                              PAR         7413     A     
 PAR                EQ     SDM40                                                           PAR         7414     A     
 PAR                                                                                       PAR         7415     A     
 PAR       SDM24    BX1    X3                                                              PAR         7416     A     
 PAR                HX1    TH.CHAR                                                         PAR         7417          I
          -FC50104
 PAR                HX1    SP.CHAR                                                         FC50104      196     A     
 PAR                SB7    E.AT14      ** ILLEGAL USE OF TYPE CHARACTER OPERAND            PAR         7418     A     
 PAR                PL     X1,SDM22    IF THIS OPERATOR ILL FOR CHAR                       PAR         7419     A     
 PAR                MX0    -TH.SKELL                                                       PAR         7420          I
          -FC50104
 PAR                LX3    -TH.SKELP                                                       PAR         7421          I
          -FC50104
 PAR                MX0    -SP.SKELL                                                       FC50104      197     A     
 PAR                LX3    -SP.SKELP                                                       FC50104      198     A     
 PAR                BX7    -X0*X3      (X7) = ADDRESS OF MODE SELECTION WORDS              PAR         7422     A     
 PAR                SA2    X7+B1                                                           PAR         7423     A     
 PAR                BX1    X0*X3                                                           PAR         7424     A     
 PAR                BX3    X1+X2       SET (TH.SKEL) = CHARACTER-SPECIFIC SKELETON         PAR         7425     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    SMOD                                                            PAR         7426     A     
 PAR                LX3    TH.SKELP                                                        PAR         7427          I
          -FC50104
 PAR                LX3    SP.SKELP                                                        FC50104      199     A     
 PAR                EQ     SDM90       EXIT..                                              PAR         7428     A     
 PAR                                                                                       PAR         7429     A     
 PAR      *         IF MASKING OPERATOR, DETERMINE RESULT MODE.                            PAR         7430     A     
 PAR                                                                                       PAR         7431     A     
 PAR       SDM30    BX1    X3                                                              PAR         7432     A     
 PAR                HX1    TH.MASK                                                         PAR         7433          I
          -FC50104
 PAR                HX1    SP.MASK                                                         FC50104      200     A     
 PAR                PL     X1,SDM37    IF NOT LOGICAL/MASKING                              PAR         7434     A     
 PAR                SX1    X6-M.LOG                                                        PAR         7435     A     
 PAR                SX2    X7-M.LOG                                                        PAR         7436     A     
 PAR                ZR     X1,SDM32    IF DM = LOGICAL                                     PAR         7437     A     
 PAR                NZ     X2,SDM36    IF NEITHER (MODE1 NOR MODE2) IS LOGICAL             PAR         7438     A     
 PAR       SDM32    ZR     B3,SDM40    IF POINT .ZR., BOTH ARE LOGICAL                     PAR         7439     A     
 PAR                FATAL  E.AT01      LOGICAL AND OTHER TYPE CANNOT BE MIXED              PAR         7440     A     
 PAR                SB3    B0                                                              PAR         7441     A     
 PAR                =X6    M.LOG                                                           PAR         7442     A     
 PAR                EQ     SDM40                                                           PAR         7443     A     
 PAR                                                                                       PAR         7444     A     
 PAR       SDM36    =X6    M.BOOL      SET RESULT MODE = BOOLEAN                           PAR         7445     A     
 PAR                SB3    B0          POINT = 0      /* INHIBIT ANY CONVERSION            PAR         7446     A     
 PAR                ANSI   E.AT07      MASKING OPERATION IS NON ANSI                       PAR         7447     A     
 PAR                EQ     SDM40                                                           PAR         7448     A     
 PAR                                                                                       PAR         7449     A     
 PAR       SDM37    NZ     X6,SDM40    IF DOMINANT MODE NOT BOOLEAN                        PAR         7450     A     
 PAR                ERRNZ  M.BOOL                                                          PAR         7451     A     
 PAR                =X6    M.INT                                                           PAR         7452     A     
 PAR                                                                                       PAR         7453     A     
 PAR      *         VERIFY LEGALITY OF DOMINANT MODE, AND SELECT CONVERSION.               PAR         7454     A     
 PAR      *                (B3) = POINT                                                    PAR         7455     A     
 PAR      *                (X6) = DM, DOMINANT MODE (ASSUME RESULT MODE SAME).             PAR         7456     A     
 PAR      *                (X7) = MODE OF NON-DOMINANT OPERAND.                            PAR         7457     A     
 PAR                                                                                       PAR         7458     A     
 PAR       SDM40    SA2    X7+F.MODC   FETCH ROW OF MODE CONVERSION MATRIX                 PAR         7459     A     
 PAR                SX1    B3                                                              PAR         7460     A     
 PAR                SX7    X6                                                              PAR         7461     A     
 PAR                LX1    18                                                              PAR         7462     A     
 PAR                LX7    3           (B2) = 8 * DM                                       PAR         7463     A     
 PAR                BX6    X1+X6       (SMOD) =  0 / POINT / DM                            PAR         7464     A     
 PAR                SB2    X7                                                              PAR         7465     A     
 PAR                MX0    -8                                                              PAR         7466     A     
 PAR                AX1    B2,X2       SLIDE ROW TO DOMINANT COLUMN                        PAR         7467     A     
 PAR                BX2    -X0*X1      (X2) = MODC (X7, DM)                                PAR         7468     A     
 PAR                NZ     X2,SDM44    IF MODE CONVERSION NECESSARY                        PAR         7469     A     
 PAR                SX6    X6+         POINT = 0                                           PAR         7470     A     
 PAR       SDM44    SA6    SMOD                                                            PAR         7471     A     
 PAR                SX1    X2-1S8+1                                                        PAR         7472     A     
 PAR                SB7    E.AT01      LOGICAL AND OTHER TYPE OPERANDS MIXED               PAR         7473     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ZR     X1,SDM80    IF MODE CONVERSION ERROR                            PAR         7474     A     
 PAR                                                                                       PAR         7475     A     
 PAR      *         SELECT SPECIFIC SKELETON.                                              PAR         7476     A     
 PAR      *                (B2) = 8 * DM                                                   PAR         7477     A     
 PAR                                                                                       PAR         7478     A     
 PAR                MX7    -TH.SKELL                                                       PAR         7479          I
          -FC50104
 PAR                LX3    -TH.SKELP                                                       PAR         7480          I
          -FC50104
 PAR                MX7    -SP.SKELL                                                       FC50104      201     A     
 PAR                LX3    -SP.SKELP                                                       FC50104      202     A     
 PAR                BX2    -X7*X3      AD = (TH.SKEL)  /* MODE SELECTOR ADDRESS            PAR         7481     A     
 PAR                SA1    X2                                                              PAR         7482     A     
 PAR                BX6    X7*X3       CLEAR PREVIOUS (TH.SKEL)                            PAR         7483     A     
 PAR                AX3    B2,X1       SLIDE VECTOR TO DOMINANT MODE                       PAR         7484     A     
 PAR                AX1    6*8         BASE = MIN SKEL INDEX OF THIS OPERATOR              PAR         7485     A     
 PAR                BX0    -X0*X3      DOMOFF = OFFSET TO DOMINANT SKELETON                PAR         7486     A     
 PAR                BX6    X6+X1                                                           PAR         7487     A     
 PAR                SB7    X0-1S8+1                                                        PAR         7488     A     
 PAR                IX3    X6+X0       (TH.SKEL) = BASE + DOMOFF                           PAR         7489     A     
 PAR                LX3    TH.SKELP                                                        PAR         7490          I
          -FC50104
 PAR                LX3    SP.SKELP                                                        FC50104      203     A     
 PAR                MI     B7,SDM90    IF OPERATION DEFINED FOR THIS MODE                  PAR         7491     A     
 PAR                SB7    E.AT01                                                          PAR         7492     A     
 PAR                                                                                       PAR         7493     A     
 PAR      *         ON ERROR, INHIBIT CONVERSION.                                          PAR         7494     A     
 PAR      *                (B7) = ERROR MESSAGE ADDRESS.                                   PAR         7495     A     
 PAR                                                                                       PAR         7496     A     
 PAR       SDM80    SA3    ERROP                                                           PAR         7497     A     
 PAR                FATAL  B7                                                              PAR         7498     A     
 PAR                SA1    SMOD                                                            PAR         7499     A     
 PAR                MX0    1                                                               PAR         7500     A     
 PAR                SX7    X1          POINT = 0                                           PAR         7501     A     
 PAR                LX0    1+TH.MDLSP                                                      PAR         7502          I
          -FC50104
 PAR                LX0    1+SP.MDLSP                                                      FC50104      204     A     
 PAR                BX3    X0+X3       RESET OPERATOR MODELESS WHEN ERROR                  PAR         7503     A     
 PAR                SA7    A1                                                              PAR         7504     A     
 PAR                EQ     SDM90       EXIT..                                              PAR         7505     A     
 PAR       SPE      SPACE  4,10                                                            FC5A111       49     A     
 PAR      **        SPE -  SKIP PARENTHESIZED EXPRESSION.                                  FC5A111       50     A     
 PAR      *                                                                                FC5A111       51     A     
 PAR      *         ENTRY  (B4) _ LEFT PAREN OF AN EXPRESSION.                             FC5A111       52     A     
 PAR      *                                                                                FC5A111       53     A     
 PAR      *         EXIT   (B4) _ MATCHING *)* OR *EOS* AS INDICATED BY B2 BELOW.          FC5A111       54     A     
 PAR      *                                                                                FC5A111       55     A     
 PAR      *                (B2) = PL IF *EOS* ENCOUNTERED.                                 FC5A111       56     A     
 PAR      *                     = MI IF MATCHING *)* FOUND.                                FC5A111       57     A     
 PAR      *                                                                                FC5A111       58     A     
 PAR      *         USES   X - 1  A - 1  B - 2,3,4,7.                                      FC5A111       59     A     
 PAR                                                                                       FC5A111       60     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       SPE      SUBR               ENTRY/EXIT...                                       FC5A111       61     A     
 PAR                =B3    1           INITIALIZE *LP* COUNTER                             FC5A111       62     A     
 PAR                =B2    0           INITIALIZE *RP* COUNTER                             FC5A111       63     A     
 PAR                                                                                       FC5A111       64     A     
 PAR       SPE10    =B4    B4+1                                                            FC5A111       65     A     
 PAR                SA1    B4                                                              FC5A111       66     A     
 PAR                ZR     X1,EXIT.    IF *EOS*                                            FC5A111       67     A     
 PAR                SB7    X1-O.LP                                                         FC5A111       68     A     
 PAR                ZR     B7,SPE20    IF *(*                                              FC5A111       69     A     
 PAR                SB7    X1-O.RP                                                         FC5A111       70     A     
 PAR                ZR     B7,SPE30    IF *)*                                              FC5A111       71     A     
 PAR                EQ     SPE10                                                           FC5A111       72     A     
 PAR                                                                                       FC5A111       73     A     
 PAR       SPE20    =B3    B3+1                                                            FC5A111       74     A     
 PAR                EQ     SPE10                                                           FC5A111       75     A     
 PAR                                                                                       FC5A111       76     A     
 PAR       SPE30    =B2    B2+1                                                            FC5A111       77     A     
 PAR                NE     B2,B3,SPE10                                                     FC5A111       78     A     
 PAR                =B2    -1          INDICATE MATCHING *)* FOUND                         FC5A111       79     A     
 PAR                EQ     EXIT.                                                           FC5A111       80     A     
 PAR       SQZ      SPACE  4,30                                                            PAR         7506     A     
 PAR      **        SQZ -  SQUEEZE OPERATION IF POSSIBLE.                                  PAR         7507     A     
 PAR      *                                                                                PAR         7508     A     
 PAR      *         CHECK TO SEE IF CURRENT TURPLE HAS ALREADY BEEN POPPED.                PAR         7509     A     
 PAR      *         NOTE THAT THE PRESENT ROUTINE DOES NOT ATTEMPT TO SQUEEZE              PAR         7510     A     
 PAR      *         ACROSS STORES.  TO DO SO REQUIRES LOOKING AT EQUIVALANCE-              PAR         7511     A     
 PAR      *         CLASS BASES.  TEACHING SQZ TO DO THAT TRICK PROPERLY WOULD             PAR         7512     A     
 PAR      *         IMPROVE QCG CODE FOR CASES LIKE:  ARY(I,J,K) = ARY(I,J,K)+1.           PAR         7513     A     
 PAR      *         POP.EQL RESETS (CURST) DUE TO THIS PROPERTY.                           PAR         7514     A     
 PAR      *                                                                                PAR         7515     A     
 PAR      *         IF FOUND,                                                              PAR         7516     A     
 PAR      *                SET *ESTACK* ENTRY = TO INTERMEDIATE ORDINAL OF                 PAR         7517     A     
 PAR      *                TURPLE THAT MATCHED AND EXIT SETTING B2 \ 0.                    PAR         7518     A     
 PAR      *                                                                                PAR         7519     A     
 PAR      *         IF NOT FOUND,                                                          PAR         7520     A     
 PAR      *                SET B2 < 0 AND EXIT.                                            PAR         7521     A     
 PAR      *                                                                                PAR         7522     A     
 PAR      *         ENTRY  (X3) = CURRENT OPERATOR.                                        PAR         7523     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         7524     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         7525     A     
 PAR      *                (B2) = .MI. (INDICATES NO SQUEEZE)                              FC50104      205     A     
 PAR      *                                                                                PAR         7526     A     
 PAR      *         EXIT   (B2) > 0 SQUEEZE PERFORMED.                                     PAR         7527     A     
 PAR      *                                                                                PAR         7528     A     
 PAR      *         USES   X0-4,X6-7.    A1-2,A6.    B2-3,B5-7.                            PAR         7529     A     
 PAR      *                                                                                PAR         7530     A     
 PAR      *         CALLS  SN.SQZ.                                                         PAR         7531     A     
 PAR                                                                                       PAR         7532     A     
 PAR                                                                                       PAR         7533     A     
 PAR       SQZ      SUBR               ENTRY/EXIT...                                       PAR         7534     A     
 PAR                SA2    WO.QC                                                           PAR         7535          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B2    -1          INDICATE NO SQUEEZE PERFORMED                       PAR         7536          I
          -FC50104
 PAR                MI     X2,EXIT.    IF *QC* MODE OR FATAL ERRORS                        PAR         7537          I
          -FC5A150
 PAR                SA2    FV.LGO                                                          PAR         7538          I
          -FC5A150
 PAR                SA1    WO.LOO                                                          PAR         7539          I
          -FC5A150
 PAR                BX2    X2+X1                                                           PAR         7540          I
          -FC5A150
 PAR                SA1    T.PAR                                                           PAR         7541     A     
 PAR                ZR     X2,EXIT.    IF NO BINARY AND OBJECT LISTING                     PAR         7542          I
          -FC5A150
 PAR                =B7    X3-O.=                                                          FC5A150      512          I
          -FC50104
 PAR                ERRNZ  TH.TBPRP                                                        FC5A150      513          I
          -FC50104
 PAR                MX0    -SP.TBPRL                                                       FC50104      206     A     
 PAR                LX3    -SP.TBPRP                                                       FC50104      207     A     
 PAR                BX0    -X0*X3      EXTRACT OPERATOR VALUE INDEX                        FC50104      208     A     
 PAR                SB7    X0-O.=                                                          FC50104      209     A     
 PAR                ZR     B7,EXIT.    CAN NOT SQUEEZE STORES                              FC50104      210     A     
 PAR                LX3    SP.TBPRP                                                        FC50104      211     A     
 PAR                SA2    T=PAR                                                           PAR         7543     A     
 PAR                ZR     X2,SQZ      IF T.PAR EMPTY                                      FC51609        8     A     
 PAR                IX0    X1+X2       LWA+1                                               PAR         7544     A     
 PAR                SA2    CURST                                                           PAR         7545     A     
 PAR                =B3    X0-Z=TURP   LAST OPERATOR                                       PAR         7546     A     
 PAR                IX0    X1+X2                                                           PAR         7547     A     
 PAR                =B5    X0+OR.OPR   FWA                                                 PAR         7548     A     
 PAR                CLAS=  X2,TH,(LINE,MODC,MODE)                                          PAR         7549          I
          -FC50104
 PAR                BX0    X2                                                              PAR         7550          I
          -FC50104
 PAR                CLAS=  X2,SP,(1ATR,MODC,MODE)                                          FC50104      212     A     
 PAR                BX3    -X2*X3      CLEAR PASS 1 FIELDS                                 FC50104      213     A     
 PAR                LX0    X3                                                              FC50104      214     A     
 PAR                HX0    SP.SKEL                                                         FC50104      215     A     
 PAR                AX0    -SP.SKELL   EXTRACT SKELETON ORDINAL                            FC50104      216     A     
 PAR                MX2    SP.SKELL                                                        FC50104      217     A     
 PAR                HX3    SP.SKEL                                                         FC50104      218     A     
 PAR                BX3    -X2*X3      CLEAR SP.SKEL                                       FC50104      219     A     
 PAR                LX3    SP.SKELL+SP.SKELP                                               FC50104      220     A     
 PAR                LX0    TH.SKELP                                                        FC50104      221     A     
 PAR                BX3    X0+X3       CONVERT TO TH. FORMAT                               FC50104      222     A     
 PAR                SA2    =XCO.OPT                                                        FC51322       11     A     
 PAR                ZR     X2,SQZ5     IF OPT .EQ. 0                                       FC51322       12     A     
 PAR                EQ     SQZ12       CHECK FOR INTEGER ADD OR SUB TURPLE SQUEEZE         FC51322       13     A     
 PAR                ZR     B7,EXIT.    CAN NOT SQUEEZE STORES                              FC5A150      514          I
          -FC50104
 PAR                                                                                       PAR         7551     A     
 PAR      *         SCAN PARSED FILE BACKWARDS FOR MATCHING TURPLE.                        PAR         7552     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         7553     A     
 PAR       SQZ5     SA1    B3          LOAD NEXT OPERATOR                                  PAR         7554          I
          -FC50104
 PAR       SQZ5     SA1    B3+         LOAD NEXT OPERATOR                                  FC50104      223          I
          -FC51322
 PAR       SQZ4     SB2    -1                                                              FC51322       14     A     
 PAR                                                                                       FC51322       15     A     
 PAR       SQZ5     SA1    B3+                                                             FC51322       16     A     
 PAR                CLAS=  X2,TH,(SKEL,OVAL)                                               FC50104      224     A     
 PAR                LT     B3,B5,EXIT. IF FINISHED                                         PAR         7555     A     
 PAR                BX6    X1-X3                                                           PAR         7556          I
          -FC50104
 PAR                =B3    B3-Z=TURP                                                       PAR         7557     A     
 PAR                BX6    X2*X1       CLEAR IRRELEVANT FIELDS                             FC50104      225     A     
 PAR                BX6    -X0*X6      CLEAR LINE NUMBER AND PASS1 FIELDS                  PAR         7558          I
          -FC50104
 PAR                =A2    A1+OR.2OP   2ND OPERAND                                         PAR         7559          I
          -FC50104
 PAR                BX6    X6-X3                                                           FC50104      226     A     
 PAR                SB7    X1-O.=                                                          PAR         7560          I
          -FC5A150
 PAR                ERRNZ  TH.TBPRP                                                        PAR         7561          I
          -FC5A150
 PAR                NZ     X6,SQZ5     IF DIFFERENT SKEL                                   PAR         7562     A     
 PAR                ZR     B7,EXIT.    IF TRYING TO PASS BY STORE                          PAR         7563          I
          -FC5A150
 PAR                                                                                       PAR         7564     A     
 PAR      *         OPERATOR IS THE SAME,  CHECK 2ND OPERAND.                              PAR         7565     A     
 PAR                                                                                       PAR         7566     A     
 PAR                =A2    A1+OR.2OP   2ND OPERAND                                         FC50104      227     A     
 PAR                IX7    X2-X5                                                           PAR         7567     A     
 PAR                BX6    X1          SAVE OPERATOR                                       PAR         7568     A     
 PAR                NZ     X7,SQZ5     IF 2ND OPERAND NOT THE SAME                         PAR         7569     A     
 PAR                                                                                       PAR         7570     A     
 PAR      *         2ND OPERAND IS A MATCH,  CHECK 1ST OPERAND.                            PAR         7571     A     
 PAR                                                                                       PAR         7572     A     
 PAR                =A1    A2+OR.1OP-OR.2OP                                                PAR         7573     A     
 PAR                IX2    X1-X4                                                           PAR         7574     A     
 PAR                NZ     X2,SQZ5     IF (1OP) DIFFERENT                                  PAR         7575     A     
 PAR                                                                                       PAR         7576     A     
 PAR      *         ELIMINATE TURPLE,  SQUEEZE PERFORMED.                                  PAR         7577     A     
 PAR                                                                                       PAR         7578     A     
 PAR                SB7    X3-O.=      CANNOT EVER SQUEEZE STORES                          PAR         7579          I
          -FC5A150
 PAR                ERRNZ  TH.TBPRP                                                        PAR         7580          I
          -FC5A150
 PAR                ZR     B7,SQZ5     IF *=* OPERATOR                                     PAR         7581          I
          -FC5A150
 PAR                SA2    ATTR        ATTRIBUTES FOR OPERAND RESULTS                      PAR         7582          I
          -FC50199
 PAR                MX0    -TH.MODEL                                                       PAR         7583          I
          -FC50199
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX1    V=ARY                                                           FC50199        5          I
          -FC51322
 PAR       SQZ6     SX1    V=ARY                                                           FC51322       17     A     
 PAR                MX0    -TH.SKELL                                                       FC50199        6     A     
 PAR                LX6    -TH.SKELP                                                       FC50199        7     A     
 PAR                BX2    -X0*X6      EXTRACT SKELETON ORDINAL                            FC50199        8     A     
 PAR                IX2    X2-X1                                                           FC50199        9     A     
 PAR                CLAS=  X3,TP,(ARR,INTR)                                                FC50199       10     A     
 PAR                ZR     X2,SQZ7     IF SQUEEZED TURPLE WAS ARRAY LOAD                   FC50199       11     A     
 PAR                CLAS=  X3,TP,(INTR)                                                    FC50199       12     A     
 PAR                                                                                       FC50199       13     A     
 PAR       SQZ7     MX0    -TH.MODEL                                                       FC50199       14     A     
 PAR                SA1    T.PAR                                                           PAR         7584     A     
 PAR                LX6    -TH.MODEP                                                       PAR         7585          I
          -FC50199
 PAR                CLAS=  X3,TP,(INTR)                                                    PAR         7586          I
          -FC50199
 PAR                LX6    TH.SKELP-TH.MODEP                                               FC50199       15     A     
 PAR                BX5    -X0*X6      DOMINANT MODE                                       PAR         7587     A     
 PAR                IX3    X2+X3       INTER + ATTRIBUTES                                  PAR         7588          I
          -FC50199
 PAR                =B2    X1-Z=TURP                                                       PAR         7589     A     
 PAR                SX4    B3-B2       ORDINAL                                             PAR         7590     A     
 PAR                IX6    X3+X5       ORDINAL + MODE                                      PAR         7591          I
          -FC50199
 PAR                IX6    X3+X5       ATTRIBUTES + MODE                                   FC50199       16     A     
 PAR                LX4    TP.ORDP                                                         PAR         7592     A     
 PAR                IX6    X4+X6       ORDINAL + MODE + INTERMEDIATE BIT                   PAR         7593          I
          -FC50199
 PAR                IX6    X4+X6       ORDINAL + ATTRIBUTES + MODE                         FC50199       17     A     
 PAR                =B6    B6-1                                                            PAR         7594     A     
 PAR                SA2    ATTR                                                            FC50199       18     A     
 PAR                CLAS=  X3,TP,(CAT,LCF)                                                 FC50199       19     A     
 PAR                BX2    X3*X2       EXTRACT NECESSARY ATTRIBUTES                        FC50199       20     A     
 PAR                BX6    X2+X6       MERGE INTO INTERMEDIATE TURPLE                      FC50199       21     A     
 PAR                SA6    B6-B1       PUT THE EQUIVALENT INTERMEDIATE ON ESTACK           PAR         7595     A     
 PAR       SQZ8     BSS                                                                    PAR         7596          I
          -FC50199
 PAR                                                                                       PAR         7597     A     
 PAR       SNAP=Q   IFEQ   TEST,ON     DUMP SQUEEZED TURPLE                                PAR         7598     A     
 PAR                SA1    CO.SNAP                                                         PAR         7599     A     
 PAR                BX2    X1                                                              PAR         7600     A     
 PAR                LX1    1RQ                                                             PAR         7601     A     
 PAR                LX2    1RO                                                             PAR         7602     A     
 PAR                BX1    X1+X2                                                           PAR         7603     A     
 PAR                PL     X1,SQZ9     IF NEITHER SNAP=(O NOR Q) SELECTED                  PAR         7604     A     
 PAR                RJ     SN.SQZ                                                          PAR         7605     A     
 PAR       SQZ9     BSS                                                                    PAR         7606     A     
 PAR       SNAP=Q   ENDIF                                                                  PAR         7607     A     
 PAR                EQ     EXIT.                                                           PAR         7608     A     
 PAR                                                                                       FC51322       18     A     
 PAR      **        CHECK IF INTEGER ADD OR SUB TURPLE FOLLOWING AN INTEGER                FC51322       19          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC51609
 PAR      **        CHECK IF AN INTEGER ADD TURPLE FOLLOWING AN INTEGER                    FC51609        9     A     
 PAR      *         MULTPLY TURPLE CAN BE SUBSUMED AND SQUEEZED.                           FC51322       20     A     
 PAR      *                                                                                FC51322       21     A     
 PAR      *                                                                                FC51322       22     A     
 PAR                                                                                       FC51322       23     A     
 PAR       SQZ12    BX1    X3          CURRENT OPERATOR                                    FC51322       24     A     
 PAR                LX1    -TH.SKELP                                                       FC51322       25     A     
 PAR                MX0    -TH.SKELL                                                       FC51322       26     A     
 PAR                BX2    -X0*X1                                                          FC51322       27     A     
 PAR                SX0    V=ADD.I                                                         FC51322       28     A     
 PAR                IX1    X2-X0                                                           FC51322       29     A     
 PAR                SB7    1                                                               FC51322       30     A     
 PAR                ZR     X1,SQZ13    IF TURPLE TO BE ADDED IS V=ADD.I                    FC51322       31          I
          -FC51609
 PAR                SX0    V=SUB.I                                                         FC51322       32          I
          -FC51609
 PAR                IX1    X2-X0                                                           FC51322       33          I
          -FC51609
 PAR                SB7    -1                                                              FC51322       34          I
          -FC51609
 PAR                NZ     X1,SQZ4     IF TURPLE TO BE ADDED IN NOT V=SUB.I                FC51322       35          I
          -FC51609
 PAR                                                                                       FC51322       36          I
          -FC51609
 PAR       SQZ13    SA1    B3          OPERATOR OF LAST TURPLE ENTERED IN T.PAR            FC51322       37          I
          -FC51609
 PAR                NZ     X1,SQZ4     IF NOT V=ADD.I                                      FC51609       10     A     
 PAR                SA1    B3          OPERATOR OF LAST TURPLE ENTERED TO T.PAR            FC51609       11     A     
 PAR                LX1    -TH.SKELP                                                       FC51322       38     A     
 PAR                MX0    -TH.SKELL                                                       FC51322       39     A     
 PAR                BX2    -X0*X1                                                          FC51322       40     A     
 PAR                SX0    V=MUL.I                                                         FC51322       41     A     
 PAR                IX1    X2-X0                                                           FC51322       42     A     
 PAR                NZ     X1,SQZ4     IF LAST ENTERED TURPLE IS NOT V=MUL.I               FC51322       43     A     
 PAR                SA1    A1+OR.1OP   FIRST OPERAND OF LAST ENTERED                       FC51322       44     A     
 PAR                SA2    A1+OR.2OP-OR.1OP  SECOND OPERAND OF LAST ENTERED                FC51322       45     A     
 PAR                SA0    A2                                                              FC51322       46     A     
 PAR                BX0    X1                                                              FC51322       47     A     
 PAR                LX0    59-TP.SHRTP                                                     FC51322       48     A     
 PAR                MI     X0,SQZ4     IF SHORT CONSTANT                                   FC51322       49     A     
 PAR                LX0    TP.SHRTP-TP.INTRP                                               FC51322       50     A     
 PAR                MI     X0,SQZ4     IF INTERMEDATE                                      FC51322       51     A     
 PAR                BX0    X2                                                              FC51322       52     A     
 PAR                LX0    59-TP.SHRTP                                                     FC51322       53     A     
 PAR                PL     X0,SQZ4     IF NOT SHORT CONSTANT                               FC51322       54     A     
 PAR                BX1    X4          FIRST OPERAND OF TURPLE TO BE ADDED                 FC51322       55     A     
 PAR                LX2    X5          SECOND OPERAND OF TURPLE TO BE ADDED                FC51322       56     A     
 PAR                LX1    59-TP.INTRP                                                     FC51322       57     A     
 PAR                LX2    59-TP.INTRP                                                     FC51322       58     A     
 PAR                BX0    X1-X2                                                           FC51322       59     A     
 PAR                PL     X0,SQZ4     IF NEITHER OR BOTH INTERMEDATE                      FC51322       60     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX6    X4          POSSIBLE INTERMEDATE                                FC51322       61     A     
 PAR                BX7    X5          POSSIBLE NON INTERMEDATE                            FC51322       62     A     
 PAR                MI     X1,SQZ14    IF FIRST INTERMEDATE                                FC51322       63     A     
 PAR                LX6    X5          INTERMEDATE                                         FC51322       64     A     
 PAR                BX7    X4          NON INTERMEDATE                                     FC51322       65     A     
 PAR                                                                                       FC51322       66     A     
 PAR      SQZ14     MX0    TP.ORDL                                                         FC51322       67     A     
 PAR                BX1    X0*X6                                                           FC51322       68     A     
 PAR                LX1    TP.ORDL                                                         FC51322       69     A     
 PAR                SA2    T.PAR                                                           FC51322       70     A     
 PAR                SB2    X2                                                              FC51322       71     A     
 PAR                SB2    B2+X1                                                           FC51322       72     A     
 PAR                NE     B2,B3,SQZ4  IF NOT LAST TURPLE                                  FC51322       73     A     
 PAR                SA2    A1                                                              FC51322       74     A     
 PAR                BX0    X2-X7                                                           FC51322       75     A     
 PAR                NZ     X0,SQZ4     IF OPERANDS NOT EQUAL                               FC51322       76     A     
 PAR                SB3    B3-Z=TURP   UPDATE FOR PROPER INTR POINTER                      FC51322       77     A     
 PAR                MX0    -TP.BIASL                                                       FC51322       78     A     
 PAR                SA1    A0          SECOND OPERAND OF LAST TURPLE(CONSTANT)             FC51322       79     A     
 PAR                LX0    TP.BIASP                                                        FC51322       80     A     
 PAR                BX2    -X0*X1      X2 -> BIAS                                          FC51322       81     A     
 PAR                BX1    X0*X1       X1 -> CLEARED BIAS                                  FC51322       82     A     
 PAR                LX2    TP.ORDL                                                         FC51322       83     A     
 PAR                AX2    -TP.BIASL                                                       FC51322       84     A     
 PAR                SX6    B7                                                              FC51322       85     A     
 PAR                IX7    X6+X2       ADD OR SUB                                          FC51322       86     A     
 PAR                LX7    TP.BIASP                                                        FC51322       87          I
          -FC51494
 PAR                PL     X6,SQZ16    IF V=ADD.I                                          FC51494        5          I
          -FC51609
 PAR                BX7    -X7                                                             FC51494        6          I
          -FC51609
 PAR                                                                                       FC51494        7          I
          -FC51609
 PAR       SQZ16    LX7    TP.BIASP                                                        FC51494        8          I
          -FC51609
 PAR                LX7    TP.BIASP                                                        FC51609       12     A     
 PAR                BX6    -X0*X7                                                          FC51322       88     A     
 PAR                IX7     X6+X1                                                          FC51322       89     A     
 PAR                SA7    A0          2ND OPERAND OF LAST TURPLE (CONSTANT)               FC51322       90     A     
 PAR                                                                                       FC51322       91     A     
 PAR       .T       IFEQ   TEST,ON                                                         FC51322       92     A     
 PAR                SA1    CO.SNAP                                                         FC51322       93     A     
 PAR                BX2    X1                                                              FC51322       94     A     
 PAR                LX1    1RQ                                                             FC51322       95     A     
 PAR                LX2    1RO                                                             FC51322       96     A     
 PAR                BX1    X1+X2                                                           FC51322       97     A     
 PAR                PL     X1,SQZ17    IF NEITHER SNAP=(O NOR Q) SELECTED                  FC51322       98     A     
 PAR                PL     B7,SQZ15    IF V=ADD.I SQUEEZED                                 FC51322       99     A     
 PAR                SA2    SQZF                                                            FC51322      100          I
          -FC51609
 PAR                LX6    X2                                                              FC51322      101          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC51609
 PAR                SA6    SQZB        SET V=ADD.I MSG                                     FC51322      102          I
          -FC51609
 PAR                EQ     SQZ17                                                           FC51322      103     A     
 PAR       SQZ15    BSS                                                                    FC51322      104     A     
 PAR                SA2    SQZE                                                            FC51322      105     A     
 PAR                BX6    X2                                                              FC51322      106     A     
 PAR                SA6    SQZB        SET V=SUB.I MSG                                     FC51322      107          I
          -FC51609
 PAR                SA6    SQZB        SET V=ADD.I MSG                                     FC51609       13     A     
 PAR       SQZ17    BSS                                                                    FC51322      108     A     
 PAR       .T       ENDIF                                                                  FC51322      109     A     
 PAR                                                                                       FC51322      110     A     
 PAR                SA2    A0-OR.2OP                                                       FC51322      111     A     
 PAR                BX6    X2          OPERATOR OF LAST TURPLE IN T.PAR                    FC51322      112     A     
 PAR                EQ     SQZ6                                                            FC51322      113     A     
 PAR       SN.SQZ   SPACE  4,20                                                            PAR         7609     A     
 PAR      **        SN.SQZ - NOTIFY OF SQUEEZE OPERATION PERFORMED.                        PAR         7610     A     
 PAR      *                                                                                PAR         7611     A     
 PAR      *         ENTRY  (B3)+Z=TURP -> OPERATOR THAT WAS SQUEEZED.                      PAR         7612     A     
 PAR      *                                                                                PAR         7613     A     
 PAR      *         EXIT   (A1) DESTROYED.                                                 PAR         7614     A     
 PAR      *                                                                                PAR         7615     A     
 PAR      *         USES   DESTROYS *A1* ONLY...                                           PAR         7616     A     
 PAR      *         CALLS  COD, PLINE, SFN, SVR=, RSR=.                                    PAR         7617     A     
 PAR                                                                                       PAR         7618     A     
 PAR                                                                                       PAR         7619     A     
 PAR       .T       IFEQ   TEST,ON     IF TEST MODE                                        PAR         7620     A     
 PAR                                                                                       PAR         7621     A     
 PAR       SN.SQZ   SUBR   0                                                               PAR         7622     A     
 PAR                CALL   SVR=        SAVE ALL REGISTERS                                  PAR         7623     A     
 PAR                SA3    SV=B+3      FETCH [B3]                                          PAR         7624     A     
 PAR                SA2    T.PAR                                                           PAR         7625     A     
 PAR                IX0    X3-X2                                                           PAR         7626     A     
 PAR                SX1    X0+Z=TURP                                                       PAR         7627     A     
 PAR                CALL   COD         CONVERT TO OCTAL                                    PAR         7628     A     
 PAR                LX4    -6                                                              PAR         7629     A     
 PAR                MX0    5*6                                                             PAR         7630     A     
 PAR                SA1    T=PAR                                                           PAR         7631     A     
 PAR                BX5    X0*X4                                                           PAR         7632     A     
 PAR                CALL   COD         CONVERT TO OCTAL                                    PAR         7633     A     
 PAR                MX0    -5*6                                                            PAR         7634     A     
 PAR                BX4    -X0*X6                                                          PAR         7635     A     
 PAR                BX6    X5+X4                                                           PAR         7636     A     
 PAR                SA6    SQZBO                                                           PAR         7637     A     
 PAR                SA1    SOPR                                                            PAR         7638     A     
 PAR                MX0    -TH.SKELL                                                       PAR         7639          I
          -FC50104
 PAR                LX1    -TH.SKELP                                                       PAR         7640          I
          -FC50104
 PAR                MX0    -SP.SKELL                                                       FC50104      228     A     
 PAR                LX1    -SP.SKELP                                                       FC50104      229     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX1    -X0*X1      ISOLATE (X1) = SKELETON NUMBER                      PAR         7641     A     
 PAR                SA2    X1+=XF.SKNAM                                                    PAR         7642     A     
 PAR                BX6    X2                                                              PAR         7643     A     
 PAR                SA6    SQZBN                                                           PAR         7644     A     
 PAR                PLINE  SQZB,SQZBL                                                      PAR         7645     A     
 PAR                SA1    SQZG                                                            FC51322      114     A     
 PAR                BX6    X1                                                              FC51322      115     A     
 PAR                SA6    SQZB        RESTORE OPERATOR SQUEEZ MSG                         FC51322      116     A     
 PAR                CALL   RSR=        RESTORE ALL REGISTERS                               PAR         7646     A     
 PAR                EQ     EXIT.                                                           PAR         7647     A     
 PAR                                                                                       PAR         7648     A     
 PAR       SQZB     DIS    2, **  OPERATOR SQUEEZE AT                                      PAR         7649          I
          -FC51322
 PAR       SQZB     DIS    2,**OPERATOR SQUEEZ AT                                          FC51322      117     A     
 PAR       SQZBO    DIS    1, 1234 1234                                                    PAR         7650     A     
 PAR                DIS    1, IS SKEL                                                      PAR         7651     A     
 PAR       SQZBN    DIS    1,V=SKEL                                                        PAR         7652     A     
 PAR       SQZBL    =      *-SQZB                                                          PAR         7653     A     
 PAR       SQZE     DIS    1,** V=ADD.I                                                    FC51322      118     A     
 PAR       SQZF     DIS    1,** V=SUB.I                                                    FC51322      119          I
          -FC51609
 PAR       SQZG     DIS    1,**OPERATOR                                                    FC51322      120     A     
 PAR       .T       ENDIF                                                                  PAR         7654     A     
 PAR       STC      SPACE  4,10                                                            FC50189      175          I
          -FC5A441
 PAR      **        STC -  SET TARGET CHARACTERISTICS                                      FC50189      176          I
          -FC5A441
 PAR      *                                                                                FC50189      177          I
          -FC5A441
 PAR      *         IF THE TARGET OF A CHARACTER ASSIGNMENT STATEMENT                      FC50189      178          I
          -FC5A441
 PAR      *         IS A SCALAR OR A CONSTANT ARRAY REFERENCE ITS                          FC50189      179          I
          -FC5A441
 PAR      *         BASE/BIAS VALUE IS CALCULATED AND SAVED. THE                           FC50189      180          I
          -FC5A441
 PAR      *         STARTING AND ENDING CHARACTER POSITIONS STORED                         FC50189      181          I
          -FC5A441
 PAR      *         INTO ARE ALSO CALCULATED AND SAVED.                                    FC50189      182          I
          -FC5A441
 PAR      *                                                                                FC50189      183          I
          -FC5A441
 PAR      *         CALLS  BBC                                                             FC50189      184          I
          -FC5A441
 PAR      *                                                                                FC50189      185          I
          -FC5A441
 PAR      *         USES   X0,1,5,6,7  B7  A0,1,6,7                                        FC50189      186          I
          -FC5A441
 PAR                                                                                       FC50189      187          I
          -FC5A441
 PAR                                                                                       FC50189      188          I
          -FC5A441
 PAR       STC      SUBR   0           ... ENTRY/EXIT ...                                  FC50189      189          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A441
 PAR                BX5    X6          COPY TARGET POINTER                                 FC50189      190          I
          -FC5A441
 PAR                SBIT   X6,TP.INTRP                                                     FC50189      191          I
          -FC5A441
 PAR                MI     X6,STC30    IF TARGET IS TURPLE PTR                             FC50189      192          I
          -FC5A441
 PAR                CALL   BBC         CONVERT TO BASE/BIAS                                FC50189      193          I
          -FC5A441
 PAR                BX6    X5                                                              FC50189      194          I
          -FC5A441
 PAR                SA6    STCA        STORE TARGET BASE/BIAS                              FC50189      195          I
          -FC5A441
 PAR                SX6    B1          LOWER BOUND=1                                       FC50189      196          I
          -FC5A441
 PAR                SA6    STCB                                                            FC50189      197          I
          -FC5A441
 PAR                                                                                       FC50189      198          I
          -FC5A441
 PAR       STC10    MX6    23          UPPER BOUND = MAXIMUM                               FC50189      199          I
          -FC5A441
 PAR                LX6    23                                                              FC50189      200          I
          -FC5A441
 PAR                                                                                       FC50189      201          I
          -FC5A441
 PAR       STC20    SA6    STCC        STORE UPPER BOUND                                   FC50189      202          I
          -FC5A441
 PAR                EQ     EXIT.       EXIT                                                FC50189      203          I
          -FC5A441
 PAR                                                                                       FC50189      204          I
          -FC5A441
 PAR       STC30    LX5    -TP.ORDP                                                        FC50189      205          I
          -FC5A441
 PAR                MX0    -TP.ORDL                                                        FC50189      206          I
          -FC5A441
 PAR                BX5    -X0*X5      ISOLATE I.L. ORDINAL                                FC50189      207          I
          -FC5A441
 PAR                SB7    X5                                                              FC50189      208          I
          -FC5A441
 PAR                SA1    T.PAR                                                           FC50189      209          I
          -FC5A441
 PAR                SA1    X1+B7       FETCH TURPLE HEADER                                 FC50189      210          I
          -FC5A441
 PAR                AX1    -TH.SKELL                                                       FC50189      211          I
          -FC5A441
 PAR                BX1    -X1                                                             FC50189      212          I
          -FC5A441
 PAR                SX1    X1+V=SUBST                                                      FC50189      213          I
          -FC5A441
 PAR                NZ     X1,EQL99    IF NOT SUBSTRING                                    FC50189      214          I
          -FC5A441
 PAR                SA1    A1+B1       GET VARIABLE POINTEE                                FC50189      215          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A441
 PAR                BX5    X1                                                              FC50189      216          I
          -FC5A441
 PAR                SBIT   X1,TP.INTRP                                                     FC50189      217          I
          -FC5A441
 PAR                MI     X1,EQL99    IF NOT STATIC VARIABLE                              FC50189      218          I
          -FC5A441
 PAR                SA0    A1          SAVE A1                                             FC50189      219          I
          -FC5A441
 PAR                CALL   BBC         CONVERT TO BASE/BIAS                                FC50189      220          I
          -FC5A441
 PAR                BX6    X5                                                              FC50189      221          I
          -FC5A441
 PAR                SA6    STCA        STORE TARGET BASE/BIAS                              FC50189      222          I
          -FC5A441
 PAR                SA1    A0+B1       GET COLON POINTER                                   FC50189      223          I
          -FC5A441
 PAR                LX1    -TP.ORDP                                                        FC50189      224          I
          -FC5A441
 PAR                MX0    -TP.ORDL                                                        FC50189      225          I
          -FC5A441
 PAR                BX1    -X0*X1      ISOLATE COLON ORDINAL                               FC50189      226          I
          -FC5A441
 PAR                SB7    X1+B1                                                           FC50189      227          I
          -FC5A441
 PAR                SA1    T.PAR                                                           FC50189      228          I
          -FC5A441
 PAR                SA1    X1+B7       FETCH LOWER BOUND                                   FC50189      229          I
          -FC5A441
 PAR                LX6    X1                                                              FC50189      230          I
          -FC5A441
 PAR                SBIT   X1,TP.SHRTP                                                     FC50189      231          I
          -FC5A441
 PAR                MI     X1,STC40    IF SHORT CONSTANT                                   FC50189      232          I
          -FC5A441
 PAR                BX6    X6-X6       SET VARIABLE L.B.                                   FC50189      233          I
          -FC5A441
 PAR                                                                                       FC50189      234          I
          -FC5A441
 PAR       STC40    HX6    TP.BIAS                                                         FC50189      235          I
          -FC5A441
 PAR                AX6    -TP.BIASL   ISOLATE CONSTANT                                    FC50189      236          I
          -FC5A441
 PAR                SA1    A1+B1       FETCH UPPER BOUND                                   FC50189      237          I
          -FC5A441
 PAR                LX7    X1                                                              FC50189      238          I
          -FC5A441
 PAR                SBIT   X1,TP.SHRTP                                                     FC50189      239          I
          -FC5A441
 PAR                MI     X1,STC60    IF SHORT CONSTANT                                   FC50189      240          I
          -FC5A441
 PAR                BX7    X7-X7       SET VARIABLE U.B.                                   FC50189      241          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FC5A441
 PAR                                                                                       FC50189      242          I
          -FC5A441
 PAR       STC60    HX7    TP.BIAS                                                         FC50189      243          I
          -FC5A441
 PAR                AX7    -TP.BIASL   ISOLATE CONSTANT                                    FC50189      244          I
          -FC5A441
 PAR                SA6    STCB        STORE LOWER BOUND                                   FC50189      245          I
          -FC5A441
 PAR                NZ     X6,STC70    IF L.B. NOT VARIABLE                                FC50189      246          I
          -FC5A441
 PAR                ZR     X7,EQL99    IF U.B. NOT VARIABLE                                FC50189      247          I
          -FC5A441
 PAR                SA7    STCB        STORE UPPER BOUND                                   FC50189      248          I
          -FC5A441
 PAR                                                                                       FC50189      249          I
          -FC5A441
 PAR       STC70    SA7    STCC        STORE UPPER BOUND                                   FC50189      250          I
          -FC5A441
 PAR                NZ     X7,EXIT.    IF U.B. NOT VARIABLE                                FC50189      251          I
          -FC5A441
 PAR                SA6    STCC        STORE UPPER BOUND=LOWER BOUND                       FC50189      252          I
          -FC5A441
 PAR                EQ     EXIT.       EXIT                                                FC50189      253          I
          -FC5A441
 PAR                                                                                       FC50189      254          I
          -FC5A441
 PAR       STCA     BSS    1           TARGET BASE/BIAS                                    FC50189      255          I
          -FC5A441
 PAR       STCB     BSS    1           LOWER BOUND                                         FC50189      256          I
          -FC5A441
 PAR       STCC     BSS    1           UPPER BOUND                                         FC50189      257          I
          -FC5A441
 PAR       TPC      SPACE  4,10                                                            PAR         7655     A     
 PAR      **        TPC -  TEST FOR PASSED LENGTH CHARACTER CONCATENATION                  PAR         7656     A     
 PAR      *                                                                                PAR         7657     A     
 PAR      *         THIS ROUTINE IS CALLED BY ARGUMENT PROCESSORS TO TEST FOR              PAR         7658     A     
 PAR      *         ARGUMENTS INVOLVING CONCATENATION OF A PASSED LENGTH VARIABLE.         PAR         7659     A     
 PAR      *                                                                                PAR         7660     A     
 PAR      *         ENTRY  (X5) = OPERAND TO BE TESTED                                     PAR         7661     A     
 PAR      *                                                                                PAR         7662     A     
 PAR      *         EXIT   (X5) = UNCHANGED                                                PAR         7663     A     
 PAR      *                                                                                PAR         7664     A     
 PAR      *         USES   X1   B7                                                         PAR         7665     A     
 PAR                                                                                       PAR         7666     A     
 PAR                                                                                       PAR         7667     A     
 PAR       TPC      SUBR   =           ...ENTRY/EXIT...                                    PAR         7668     A     
 PAR                BX1    X5                                                              PAR         7669     A     
 PAR                SBIT   X1,TP.CATP                                                      PAR         7670     A     
 PAR                PL     X1,EXIT.    IF NOT CONCATENATION                                PAR         7671     A     
 PAR                SBIT   X1,TP.LCFP/TP.CATP                                              PAR         7672     A     
 PAR                PL     X1,EXIT.    IF NOT PASSED LENGTH CHARACTER                      PAR         7673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                FATAL  E.SU01                                                          PAR         7674     A     
 PAR                EQ     EXIT.                                                           PAR         7675     A     
 PAR                SPACE  4,10                                                            PAR         7676     A     
 PAR                LIST   D                                                               PAR         7677     A     
 PAR                END                                                                    PAR         7678     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PAR     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PAR                       7678      7187
          FC5A113                      3         0
          FC5A111                     56        48
          FC5A122                      7         7
          FC5A125                      2         2
          FC5A132                     13        13
          FC5A138                     14        11
          FC5A140                     13        13
          FC5A141                     35        31
          FC5A150                     89        80
          FC5A156                     12        11
          FC5A158A                    10        10
          FC5A164                     27        27
          FC5A167                      6         6
          FC5A171A                     3         1
          FC5A172                      3         3
          FC50014                     45        40
          FC5A184                      7         6
          FC5A188                      2         2
          FC5A190                     18        18
          FC5A204                      8         7
          FC50023                      2         2
          FC50041                      2         2
          F1037F5                     39        39
          FC5A206                      3         3
          FC5A207                      4         4
          FC5A211                     13         9
          FC5A216                      7         7
          FC5A218                      4         4
          FC5A221                     16        14
          FC5A227                     44        39
          FC5A228                     21        21
          FC5A230                      2         1
          FC5A231                     10        10
          FC5A243                      1         1
          FC5A253                      2         2
          FC5A254                      2         2
          FC5A258                      5         3
          FC50068                      3         3
          FC50147                      2         2
          FC50148                     20        17
          FC5A279                      9         9
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          FC5A294                     30        30
          FC5A296                      1         1
          FC5A302                     20        17
          FC50104                    156       154
          FC50199                     17        16
          FC50221                      3         2
          FC50275                     17        16
          FC5A310                      2         2
          FC5A317                      1         0
          FC5A323                      1         1
          FC5A338                     17        17
          FC50281                     11        11
          FC50372                      5         5
          FC50374                      4         1
          FC50377                      1         1
          FC50391                     50        50
          FC50392                      7         7
          FC50396                     28        26
          FC50417                      2         2
          FC50438                     22        22
          FC50445                      4         1
          FC50474                      6         6
          FC50326                      4         4
          FC50478                     14        14
          FC5A390                      1         1
          FC50560                      2         1
          FC5A385                     10        10
          FC50464                      2         2
          FC50612                     14        11
          FC50634                      2         2
          FC50652                      1         1
          FC50664                      2         2
          FC5A403                      1         1
          FC5A411                    258       255
          FC50189                    248        60
          FC50620                      1         1
          FC50718                      2         2
          FC50772                      9         9
          FC50774                      3         3
          FC50775                      3         3
          FC50792                      8         7
          FC50796                     12        12
          FC5A414                      7         1
          FC5A415                     13        12
          FC5A421                     23        17
          FC5A422                      7         7
          FC50842                      3         3
          FC50885                      5         5
          FC5A437                      9         9
          FC5A442                     22        22
          FC50904                      1         1
          FC50935                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          FC5A441                    206       204
          FC50947                     11        11
          FC50985                     10        10
          FC50956                      3         3
          FC50966                      1         1
          FC51075                     42        42
          FC51082                     39        39
          FC51168                      6         6
          FC5A471                      8         8
          FC51277                     24        24
          FC5A491                      1         1
          FC51322                    110        96
          FC51356                      1         1
          FC51427                      5         5
          FC51485                      7         7
          FC51494                      4         0
          FC51521                      1         1
          FC51609                      6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *DECK     CONRED - FRONT END CONSTANT ARITHMETIC.                                CONRED         1     A     
 CONRED             IDENT  CONRED                                                          CONRED         2     A     
 CONRED    CONRED   SECT   (FRONT END CONSTANT ARITHMETIC.)                                CONRED         3     A     
 CONRED    CONRED   SPACE  4                                                               CONRED         4     A     
 CONRED   ***              CONRED PERFORMS COMPILE TIME ARITHMETIC FOR THE                 CONRED         5     A     
 CONRED   *         FRONT END.  UNLIKE MOST OF THE REST OF PASS 1, CONRED                  CONRED         6     A     
 CONRED   *         KNOWS THE TARGET MACHINE FAIRLY INTIMATELY.  THUS, IT                  CONRED         7     A     
 CONRED   *         MUST BE THROUGHLY RE-WORKED IN ORDER TO ADAPT THIS COMPILER            CONRED         8     A     
 CONRED   *         TO A COMPUTER OTHER THAN CYBER 70/170.                                 CONRED         9     A     
 CONRED                                                                                    CONRED        10     A     
 CONRED                                                                                    CONRED        11     A     
 CONRED   *         IN ALLOC                                                               CONRED        12     A     
 CONRED             EXT    ADW,ALC                                                         CONRED        13     A     
 CONRED                                                                                    CONRED        14     A     
 CONRED   *         IN DATA                                                                CONRED        15     A     
 CONRED             EXT    DATAFLG,EDI                                                     CONRED        16          I
          -FC50656
 CONRED             EXT    DATAFLG,DAT.Z,EDI                                               FC50656        7          I
          -FC50923
 CONRED             EXT    DATAFLG,DAT.Z,EDI,KW=DATA                                       FC50923        8     A     
 CONRED                                                                                    CONRED        17     A     
 CONRED   *         IN FEC                                                                 CONRED        18     A     
 CONRED             EXT    NCM,SCT                                                         CONRED        19          I
          -FC5A111
 CONRED             EXT    NCM,SCT,CT1                                                     FC5A111       81     A     
 CONRED                                                                                    CONRED        20     A     
 CONRED   *         IN FERRS                                                               CONRED        21     A     
 CONRED             EXT    E.AT16,E.DC,E.DC3,E.DC6,E.DC8,E.DC9,E.DVR1,E.DVR2               CONRED        22     A     
 CONRED             EXT    E.DC1                                                           FC5A460        5     A     
 CONRED             EXT    E.DVR3,E.DVR4,FILL.                                             CONRED        23          I
          -FC5A111
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             EXT    E.DVR3,E.DVR4,FILL.,E.DVL1,E.DAUC,E.DABC,E.DABL,E.DSE           FC5A111       82     A     
 CONRED             EXT    E.ANS6                                                          FC5A184       85     A     
 CONRED                                                                                    CONRED        24     A     
 CONRED   *         IN LABEL                                                               CONRED        25     A     
 CONRED             EXT    PSL                                                             CONRED        26     A     
 CONRED                                                                                    CONRED        27     A     
 CONRED   *         IN LEX                                                                 FC50923        9     A     
 CONRED             EXT    TB=TYPE                                                         FC50923       10     A     
 CONRED   *         IN PAR                                                                 CONRED        28     A     
 CONRED             EXT    EXD,PARNOW,SMOD                                                 CONRED        29          I
          -FC5A111
 CONRED             EXT    EXT,PARNOW,SMOD,DOA                                             FC5A111       83     A     
 CONRED                                                                                    CONRED        30     A     
 CONRED   *         IN PEM                                                                 CONRED        31     A     
 CONRED             EXT    PDM                                                             CONRED        32     A     
 CONRED                                                                                    CONRED        33     A     
 CONRED   *         IN PUC                                                                 CONRED        34     A     
 CONRED             EXT    ECB,ECS,PIK=PS,S=CON,T=CON,T=DAR,T=DVV,T=PAR,T.CON              CONRED        35     A     
 CONRED             EXT    T.DAR,T.DIM,T.DVV,T.PAR,T.SYM                                   CONRED        36          I
          -FC5A111
 CONRED             EXT    T.DAR,T.DIM,T.DVV,T.PAR,T.SYM,BLNKCOM,MOD                       FC5A111       84     A     
 CONRED                                                                                    CONRED        37     A     
 CONRED   *         IN QSKEL/FSKEL                                                         CONRED        38     A     
 CONRED             EXT    F.SKEL,F.SCT,V=COLON,V=SUBST                                    CONRED        39     A     
 CONRED                                                                                    CONRED        40     A     
 CONRED   *         IN UTILITY                                                             CONRED        41     A     
 CONRED             EXT    MNS=,MVE=                                                       CONRED        42     A     
 CONRED                                                                                    CONRED        43     A     
 CONRED                                                                                    CONRED        44     A     
 CONRED    PCCA     BSS    3           TEMPS FOR *PCC*                                     CONRED        45     A     
 CONRED    PCCB     EQU    PCCA+1                                                          CONRED        46     A     
 CONRED    PCCC     EQU    PCCA+2                                                          CONRED        47     A     
 CONRED    PCCD     BSS    3           TEMPS FOR *PCC* TO SAVE (B4)-(B6)                   CONRED        48     A     
 CONRED    CCRA     EQU    PCCA        ADDRESS OF CONSTANT REDUCER FOR *CCR*               CONRED        49     A     
 CONRED   *CALL SKPSET                                                                     CONRED        50     A     
 CONRED   *CALL SKPCONQ                                                                    CONRED        51     A     
 CONRED   *CALL COMSEIS                                                                    CONRED        52     A     
 CONRED    LVEC     BSS    2           OPERAND VALUES, UPPER                               CONRED        53          I
          -FC5A150
 CONRED    LLVEC    BSS    2           OPERAND VALUES, LOWER                               CONRED        54          I
          -FC5A150
 CONRED    RVEC     BSS    1           RESULT, UPPER                                       CONRED        55          I
          -FC5A150
 CONRED    RLVEC    BSS    1           RESULT, LOWER                                       CONRED        56          I
          -FC5A150
 CONRED    LVEC     BSSENT 2           OPERAND VALUES, UPPER                               FC5A150      515     A     
 CONRED    LLVEC    BSSENT 2           OPERAND VALUES, LOWER                               FC5A150      516     A     
 CONRED    RVEC     BSSENT 1           RESULT, UPPER                                       FC5A150      517     A     
 CONRED    RLVEC    BSSENT 1           RESULT, LOWER                                       FC5A150      518     A     
 CONRED                                                                                    CONRED        57     A     
 CONRED    REG=T    BSSENT 0           FOR QCG (USES SAME VECTOR)                          CONRED        58     A     
 CONRED    TVEC     BSS    SKU.TMP     TEMP OPERAND VALUES                                 CONRED        59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    FIELD    BSSZ   3           POINTERS TO I,J,K OPERANDS                          CONRED        60     A     
 CONRED    PCAA     BSS    2           SAVE (OP1,OP2)                                      CONRED        61          I
          -FC5A150
 CONRED    CTAA     BSSENT 2           SAVE (1OP,2OP)                                      FC5A150      519     A     
 CONRED    PIK      BSS    1           (PIK=PS+OPCODE)                                     CONRED        62     A     
 CONRED    OPCODE   BSS    1                                                               CONRED        63     A     
 CONRED    INST=23  VFD    15/00123B   NOMINAL INSTRUCTION (BX1 X2+X3)                     CONRED        64     A     
 CONRED    INST=22  VFD    15/00122B                                                       CONRED        65     A     
 CONRED    INST=00  VFD    15/00100B   JKVAL INSTRUCTION (LX1 59)                          CONRED        66     A     
 CONRED    INST=03  VFD    15/00103B   J=B0 INSTRUCTION (NX1 X2)                           CONRED        67     A     
 CONRED    INST=73  VFD    15/00173B   J=B7 INSTRUCTION (UX1 B7,X3)                        CONRED        68     A     
 CONRED    INST=32  VFD    15/00132B   KJ INSTRUCTION (BX1 -X2*X3)                         CONRED        69     A     
 CONRED    INST=SB  VFD    15/00720B         SET B (SB7 X2+0)                              FC5A190       27     A     
 CONRED    IMPLIES  SPACE  4,10                                                            CONRED        70     A     
 CONRED   **        IMPLIES -          CREATE IMPLICATION BIT MASK MICRO.                  CONRED        71     A     
 CONRED   *                                                                                CONRED        72     A     
 CONRED   *         RELOP  IMPLIES     (RELOP1,RELOP2,...,RELOPN)                          CONRED        73     A     
 CONRED   *                                                                                CONRED        74     A     
 CONRED   *         INTENDED TO BE USED BY *PCR*, THIS MACRO WILL                          CONRED        75     A     
 CONRED   *         CREATE A MICRO NAMED *RELOP* WHICH CONSISTS OF                         CONRED        76     A     
 CONRED   *         20 OCTAL DIGITS, HAVING A ONE-BIT IN BIT POSITIONS                     CONRED        77     A     
 CONRED   *         RELOP1,RELOP2,...,RELOPN.                                              CONRED        78     A     
 CONRED   *                                                                                CONRED        79     A     
 CONRED   *         AN EXAMPLE OF THE INTENDED USAGE :                                     CONRED        80     A     
 CONRED   *                                                                                CONRED        81     A     
 CONRED   *         LT     IMPLIES     (O.LT,O.NE,O.LE)                                    CONRED        82     A     
 CONRED   *                                                                                CONRED        83     A     
 CONRED   *         THIS WOULD CREATE A MICRO *LT* HAVING ONE-BITS                         CONRED        84     A     
 CONRED   *         IN BIT POSITIONS DEFINED BY *PAR* RELATIONAL OPERATORS                 CONRED        85     A     
 CONRED   *         O.LT, O.NE, O.LE.                                                      CONRED        86     A     
 CONRED                                                                                    CONRED        87     A     
 CONRED             MACRO  IMPLIES,RELOP,RELOPS                                            CONRED        88     A     
 CONRED    ''Z      MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000         CONRED        89     A     
 CONRED   ,00000_0000000000                                                                CONRED        90     A     
 CONRED                                                                                    CONRED        91     A     
 CONRED             IRP    RELOPS                                                          CONRED        92     A     
 CONRED             ERRMI  59-RELOPS                                                       CONRED        93     A     
 CONRED    ''TB     MICRO  61-RELOPS,,/"''Z"/                                              CONRED        94     A     
 CONRED    ''LB     MICRO                                                                  CONRED        95     A     
 CONRED             IFNE   59-RELOPS,,1                                                    CONRED        96     A     
 CONRED    ''LB     MICRO  1,59-RELOPS, "''Z"                                              CONRED        97     A     
 CONRED    ''Z      MICRO  1,60, "''LB"1"''TB"                                             CONRED        98     A     
 CONRED             IRP                                                                    CONRED        99     A     
 CONRED                                                                                    CONRED       100     A     
 CONRED   *         CONVERT BINARY TO OCTAL.                                               CONRED       101     A     
 CONRED                                                                                    CONRED       102     A     
 CONRED    RELOP    MICRO                                                                  CONRED       103     A     
 CONRED    ''N      SET                                                                    CONRED       104     A     
 CONRED    .1       DUP    60D/3                                                           CONRED       105     A     
 CONRED    ''N      SET    1+''N                                                           CONRED       106     A     
 CONRED    ''B1     MICRO  3*''N-2,1, "''Z"                                                CONRED       107     A     
 CONRED    ''B2     MICRO  3*''N-1,1, "''Z"                                                CONRED       108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    ''B3     MICRO  3*''N-0,1, "''Z"                                                CONRED       109     A     
 CONRED    ''B3     OCTMIC "''B1"*4+"''B2"*2+"''B3",1                                      CONRED       110     A     
 CONRED    RELOP    MICRO  1,, "RELOP""''B3"                                               CONRED       111     A     
 CONRED    .1       ENDD                                                                   CONRED       112     A     
 CONRED                                                                                    CONRED       113     A     
 CONRED    RELOP    MICRO  1,, "RELOP"B                                                    CONRED       114     A     
 CONRED    IMPLIES  ENDM                                                                   CONRED       115     A     
 CONRED             TITLE  FRONT END NUMERIC CONVERSION ROUTINES.                          CONRED       116     A     
 CONRED    DEC      SPACE  4,20                                                            CONRED       117     A     
 CONRED   **        DEC - CONVERT DECIMAL CONSTANT TO INTERNAL BINARY.                     CONRED       118     A     
 CONRED   *                                                                                CONRED       119     A     
 CONRED   *         ENTRY  (B4) -> FIRST TOKEN OF CONSTANT.                                CONRED       120     A     
 CONRED   *                                                                                CONRED       121     A     
 CONRED   *                (DATAFLG) = MI IF *DATA* CALLING.                               CONRED       122     A     
 CONRED   *                          = PL OTHERWISE.                                       CONRED       123     A     
 CONRED   *                                                                                CONRED       124     A     
 CONRED   *         EXIT   (B4) -> LAST TOKEN OF CONSTANT.                                 CONRED       125     A     
 CONRED   *                (X1) = MODE OF CONSTANT.                                        CONRED       126     A     
 CONRED   *                (X2) = 0, OR LOWER HALF OF DOUBLE CONSTANT.                     CONRED       127     A     
 CONRED   *                (X6) = UPPER OR ONLY HALF OF CONSTANT.                          CONRED       128     A     
 CONRED   *                                                                                CONRED       129     A     
 CONRED   *         USES   A1-5  B2,7   X0-3,6-7.                                          CONRED       130     A     
 CONRED   *                (X4,X5 ARE NOT DESTROYED)                                       CONRED       131     A     
 CONRED   *         NOTE                                                                   CONRED       132     A     
 CONRED   *         NO-ONE SHOULD ATTEMPT TO CHANGE THE ALGORITHM OR FOR THAT              CONRED       133     A     
 CONRED   *         MATTER ANY CODE WITHIN THIS ROUTINE WITHOUT FIRST CHECKING             CONRED       134     A     
 CONRED   *         ROUTINES --- KODER,KRAKER,RUN2.3,FTN,COMPASS AND                       CONRED       135     A     
 CONRED   *         ANY OTHER COMPILER/ASSEMBLER THAT TRANSLATES CONSTANTS INTO            CONRED       136     A     
 CONRED   *         BINARY FORM.                                                           CONRED       137     A     
 CONRED                                                                                    CONRED       138     A     
 CONRED                                                                                    CONRED       139     A     
 CONRED             ERRNZ  TB.TOTP     ENDEMIC ASSUMPTIONS                                 CONRED       140     A     
 CONRED             ERRNZ  18-TB.TOTL                                                      CONRED       141     A     
 CONRED             ERRNZ  TB.TOCL+TB.TOCP-60                                              CONRED       142     A     
 CONRED                                                                                    CONRED       143     A     
 CONRED   **        RESTORE REGISTERS AND EXIT.                                            CONRED       144     A     
 CONRED   *                (X7) = LOWER HALF OF WORD (IF DOUBLE)                           CONRED       145     A     
 CONRED   *                (X6) = UPPER HALF                                               CONRED       146     A     
 CONRED   *                (X1) = MODE                                                     CONRED       147     A     
 CONRED                                                                                    CONRED       148     A     
 CONRED    DEC60    SA1    DECA        HERE IF EVERYTHING OK                               CONRED       149     A     
 CONRED             SA2    A1+B1                                                           CONRED       150     A     
 CONRED             SA0    X1          RESTORE *A0*                                        CONRED       151     A     
 CONRED             SB3    X2          RESTORE *B3*                                        CONRED       152     A     
 CONRED             SA4    A2+B1       RESTORE *X4*                                        CONRED       153     A     
 CONRED             SA5    A4+B1       RESTORE *X5*                                        CONRED       154     A     
 CONRED             SA1    A5+B1                                                           CONRED       155     A     
 CONRED             BX2    X7          LOWER PART OF RESULTS                               CONRED       156     A     
 CONRED             SA3    A1+B1                                                           CONRED       157     A     
 CONRED             LX7    X1          RESTORE *X7*                                        CONRED       158     A     
 CONRED             SX1    B6          MODE                                                CONRED       159     A     
 CONRED             SB6    X3          RESTORE *B6*                                        CONRED       160     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SA3    A3+B1                                                           CONRED       161     A     
 CONRED             SB5    X3          RESTORE *B5*                                        CONRED       162     A     
 CONRED             SB4    B4-B1       RESET TO LAST PART OF CONSTANT.                     CONRED       163     A     
 CONRED                                                                                    CONRED       164     A     
 CONRED    DEC      SUBR   =           ENTRY/EXIT...                                       CONRED       165     A     
 CONRED             SA1    B4                                                              CONRED       166     A     
 CONRED             =A2    B4+1                                                            CONRED       167     A     
 CONRED             =B7    X1-O.CONS                                                       CONRED       168     A     
 CONRED             ZR     B7,DEC7     IF LEADING DIGIT                                    CONRED       169     A     
 CONRED             =B7    X1-O.PERIOD                                                     CONRED       170     A     
 CONRED             NZ     B7,DEC3     IF 1ST NOT *.*                                      CONRED       171     A     
 CONRED             =B2    X2-O.CONS                                                       CONRED       172     A     
 CONRED             ZR     B2,DEC7     IF NUMBER FOLLOWS PERIOD                            CONRED       173     A     
 CONRED    DEC3     =B4    B4+1        ADVANCE TO NEXT TOKEN                               CONRED       174     A     
 CONRED             EQ     DECEX1      ERROR                                               CONRED       175     A     
 CONRED                                                                                    CONRED       176     A     
 CONRED    *        HERE IF GOOD BEGINNING.                                                CONRED       177     A     
 CONRED                                                                                    CONRED       178     A     
 CONRED    DEC7     SX6    A0                                                              CONRED       179     A     
 CONRED             SA6    DECA        SAVE *A0*                                           CONRED       180     A     
 CONRED             SX6    B3                                                              CONRED       181     A     
 CONRED             SA6    A6+B1       SAVE *B3*                                           CONRED       182     A     
 CONRED             BX6    X4                                                              CONRED       183     A     
 CONRED             SA6    A6+B1       SAVE *X4*                                           CONRED       184     A     
 CONRED             BX6    X5                                                              CONRED       185     A     
 CONRED             SA6    A6+B1       SAVE *X5*                                           CONRED       186     A     
 CONRED             BX6    X7                                                              CONRED       187     A     
 CONRED             SA6    A6+B1       SAVE *X7*                                           CONRED       188     A     
 CONRED             SX6    B6                                                              CONRED       189     A     
 CONRED             SA6    A6+B1       SAVE *B6*                                           CONRED       190     A     
 CONRED             SX6    B5                                                              CONRED       191     A     
 CONRED             SA6    A6+B1       SAVE *B5*                                           CONRED       192     A     
 CONRED             SB5    B0          CLEAR B5                                            CONRED       193     A     
 CONRED                                                                                    CONRED       194     A     
 CONRED   *         PROCESS DECIMAL CONSTANT.                                              CONRED       195     A     
 CONRED                                                                                    CONRED       196     A     
 CONRED             BX2    0           CLEAR                                               CONRED       197     A     
 CONRED             MX0    CHAR                                                            CONRED       198     A     
 CONRED             =B6    M.INT                                                           CONRED       199     A     
 CONRED             SX3    0                                                               CONRED       200     A     
 CONRED             MX7    -CHAR                                                           CONRED       201     A     
 CONRED             =B3    1           CLEAR OVERFLOW COUNT (TO 1)                         CONRED       202     A     
 CONRED                                                                                    CONRED       203     A     
 CONRED   *         GET NEXT ELEMENT TO PROCESS FOR NUMBER.                                CONRED       204     A     
 CONRED                                                                                    CONRED       205     A     
 CONRED    DEC11    SA4    B4+         LOAD NEXT WORD                                      CONRED       206     A     
 CONRED             =B7    X4-O.PERIOD                                                     CONRED       207     A     
 CONRED             SB2    X4-O.CONS                                                       CONRED       208     A     
 CONRED             ZR     X4,DEC40    IF *EOS*                                            CONRED       209     A     
 CONRED             ERRNZ  O.EOS                                                           CONRED       210     A     
 CONRED             EQ     B7,B1,DEC16 IF ALPHA                                            CONRED       211     A     
 CONRED             ERRNZ  O.PERIOD+1-O.VAR                                                CONRED       212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             ZR     B2,DEC16    IF NUMERIC                                          CONRED       213     A     
 CONRED             NZ     B7,DEC40    IF NO DECIMAL POINT                                 CONRED       214     A     
 CONRED             MI     B6,DECEX1   IF PREVIOUS DECIMAL POINT - ERROR                   CONRED       215     A     
 CONRED             =B6    -1          INDICATE IN FRACTION PART                           CONRED       216     A     
 CONRED             =B4    B4+1                                                            CONRED       217     A     
 CONRED             EQ     DEC11       LOOP                                                CONRED       218     A     
 CONRED                                                                                    CONRED       219     A     
 CONRED   *         BUILD INTEGER NUMBER IN (X3).                                          CONRED       220     A     
 CONRED                                                                                    CONRED       221     A     
 CONRED    DEC13    IX6    X6+X5       2*LOW PART + DIGIT                                  CONRED       222     A     
 CONRED             PL     B6,DEC14    IF NOT IN FRACTIONAL FIELD                          CONRED       223     A     
 CONRED             =B6    B6-1                                                            CONRED       224     A     
 CONRED    DEC14    LX5    X3,B1       2*HIGH PART                                         CONRED       225     A     
 CONRED             =B3    B3+1        INCREMENT OVERFLOW COUNT.                           CONRED       226     A     
 CONRED             NZ     X1,DEC16    IF OVERFLOW OF 108 BITS                             CONRED       227     A     
 CONRED             LX2    3           8*LOW PART                                          CONRED       228     A     
 CONRED             =B3    1           RESET OVERFLOW COUNT                                CONRED       229     A     
 CONRED             IX6    X6+X2       10*LOW PART + DIGIT                                 CONRED       230     A     
 CONRED             LX3    3           8*HIGH PART                                         CONRED       231     A     
 CONRED             BX2    -X0*X6      CLEAR CARRY FROM LOW PART                           CONRED       232     A     
 CONRED             IX5    X3+X5       10*HIGH PART                                        CONRED       233     A     
 CONRED             AX6    54          POSITION CARRY                                      CONRED       234     A     
 CONRED             IX3    X5+X6       10*HIGH PART + CARRY                                CONRED       235     A     
 CONRED    DEC16    LX4    CHAR        NEXT CHARACTER                                      CONRED       236     A     
 CONRED             BX5    -X7*X4                                                          CONRED       237     A     
 CONRED             SB2    X5+         SAVE CURRENT ELEMENT                                CONRED       238     A     
 CONRED             SX6    X5-1R0                                                          CONRED       239     A     
 CONRED             LX5    X2,B1       2*LOW PART                                          CONRED       240     A     
 CONRED             BX1    X0*X3       PICK OFF ANY CARRY PAST 108 BITS                    CONRED       241     A     
 CONRED             PL     X6,DEC13    IF DIGIT                                            CONRED       242     A     
 CONRED             NZ     B2,DEC19    IF NOT END OF WORD                                  CONRED       243     A     
 CONRED             =B4    B4+1                                                            CONRED       244     A     
 CONRED             EQ     DEC11       LOOP                                                CONRED       245     A     
 CONRED                                                                                    CONRED       246     A     
 CONRED    DEC19    ZR     X1,DEC20    IF NO OVERFLOW                                      CONRED       247     A     
 CONRED             SA5    DATAFLG                                                         CONRED       248     A     
 CONRED             MI     X5,DEC20    IF ERROR TO BE SUPPRESSED                           CONRED       249     A     
 CONRED             SB5    1           SET FLAG TO INDICATE ERROR PROCESSED                CONRED       250     A     
 CONRED             WARN   E.DC8                                                           CONRED       251     A     
 CONRED                                                                                    CONRED       252     A     
 CONRED    DEC20    SA5    PARNOW                                                          CONRED       253     A     
 CONRED             SX6    X5-PM=PARM                                                      CONRED       254          I
          -FC5A156
 CONRED             SX6    X5-PM=ICE                                                       FC5A156       24     A     
 CONRED             ZR     X6,DEC41    IF PROCESSING INTEGER CONSTANT EXPR.                CONRED       255     A     
 CONRED             SX5    B2-1RE                                                          CONRED       256     A     
 CONRED             ZR     X5,DEC21    IF *E*                                              CONRED       257     A     
 CONRED             =X6    X5+1                                                            CONRED       258     A     
 CONRED             NZ     X6,DEC41    IF NOT *D*                                          CONRED       259     A     
 CONRED             =X5    1                                                               CONRED       260     A     
 CONRED    DEC21    MI     B6,DEC22    IF PREVIOUS DECIMAL POINT                           CONRED       261     A     
 CONRED             =B6    -1                                                              CONRED       262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    DEC22    SB3    B6+B3       OVERFLOW - FRACTION DIGIT COUNT                     CONRED       263     A     
 CONRED             SA1    B4                                                              CONRED       264     A     
 CONRED             SB6    X5          SET FLAG (D=1,E=0)                                  CONRED       265     A     
 CONRED             MX0    CHAR                                                            CONRED       266     A     
 CONRED             LX1    CHAR                                                            CONRED       267     A     
 CONRED             BX6    X0*X1                                                           CONRED       268     A     
 CONRED             MX5    0                                                               CONRED       269     A     
 CONRED             ZR     X6,DEC30    IF NO EMBEDDED EXPONENT                             CONRED       270     A     
 CONRED             =B4    B4+1                                                            CONRED       271     A     
 CONRED             BX6    0                                                               CONRED       272     A     
 CONRED             SB2    E.DC3                                                           CONRED       273     A     
 CONRED             EQ     DEC26       PROCESS EXPONENT                                    CONRED       274     A     
 CONRED                                                                                    CONRED       275     A     
 CONRED   *         HERE IF EMBEDDED EXPONENT --                                           CONRED       276     A     
 CONRED   *         FORM   CONSTANT EXXX                                                   CONRED       277     A     
 CONRED   *         OR     CONSTANT DXXX                                                   CONRED       278     A     
 CONRED                                                                                    CONRED       279     A     
 CONRED    DEC24    SA1    B4                                                              CONRED       280     A     
 CONRED             SB7    X1-O.CONS                                                       CONRED       281     A     
 CONRED             SB2    E.DC3                                                           CONRED       282     A     
 CONRED             BX6    0           CLEAR ASSEMBLY REGISTER.                            CONRED       283     A     
 CONRED             ZR     X1,DECEX    IF *EOS* - ERROR                                    CONRED       284     A     
 CONRED             NZ     B7,DECEX    IF SEPARATOR - ERROR                                CONRED       285     A     
 CONRED             =B4    B4+1                                                            CONRED       286     A     
 CONRED                                                                                    CONRED       287     A     
 CONRED   *         BUILD INTEGER EXPONENT IN (X6).                                        CONRED       288     A     
 CONRED                                                                                    CONRED       289     A     
 CONRED    DEC26    LX1    CHAR        NEXT DIGIT                                          CONRED       290     A     
 CONRED             BX4    -X7*X1                                                          CONRED       291     A     
 CONRED             SB7    X4-1R9-1                                                        CONRED       292     A     
 CONRED             ZR     X4,DEC50    IF END OF EXPONENT                                  CONRED       293     A     
 CONRED             SX4    B7+1R9-1R0+1                                                    CONRED       294     A     
 CONRED             PL     B7,DECEX    IF NON-NUMERIC (DELIMITER)                          CONRED       295     A     
 CONRED             MI     X4,DECEX    IF NON-NUMERIC (ALPHA)                              CONRED       296     A     
 CONRED             LX0    X6,B1       2*EXPONENT                                          CONRED       297     A     
 CONRED             BX4    X4-X5       SIGN DIGIT                                          CONRED       298     A     
 CONRED             LX6    3           8*EXPONENT                                          CONRED       299     A     
 CONRED             IX0    X4+X0       2*EXPONENT+DIGIT                                    CONRED       300     A     
 CONRED             IX6    X6+X0       10*EXPONENT+ (OR -) DIGIT                           CONRED       301     A     
 CONRED             EQ     DEC26       LOOP                                                CONRED       302     A     
 CONRED                                                                                    CONRED       303     A     
 CONRED   *         HERE IF NO EMBEDDED EXPONENT.                                          CONRED       304     A     
 CONRED   *                (X5) = SIGN OF EXPONENT                                         CONRED       305     A     
 CONRED   *         CHECK FOR FORMS --                                                     CONRED       306     A     
 CONRED   *                CONSTANT E+XXX   CONSTANT D+XXX                                 CONRED       307     A     
 CONRED   *         OR     CONSTANT E-XXX   CONSTANT D-XXX                                 CONRED       308     A     
 CONRED                                                                                    CONRED       309     A     
 CONRED    DEC30    SA1    B4+B1       NEXT WORD                                           CONRED       310     A     
 CONRED             SB4    B4+2                                                            CONRED       311     A     
 CONRED             =B7    X1-O.PL                                                         CONRED       312     A     
 CONRED             ZR     B7,DEC24    IF *+*                                              CONRED       313     A     
 CONRED             =B7    B7-1                                                            CONRED       314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             MX5    60          SET SIGN NEGATIVE                                   CONRED       315     A     
 CONRED             ZR     B7,DEC24    IF *-*                                              CONRED       316     A     
 CONRED             =B4    B4-1                                                            CONRED       317     A     
 CONRED             BX5    0           SET SIGN POSITIVE                                   CONRED       318     A     
 CONRED                                                                                    CONRED       319     A     
 CONRED   *         HERE IF NO EXPONENT SPECIFIED.                                         CONRED       320     A     
 CONRED   *         SET NULL EXPONENT AND SEND *NOTE* ERROR TO OUTPUT.                     CONRED       321     A     
 CONRED                                                                                    CONRED       322     A     
 CONRED             TRIV   E.DC6                                                           CONRED       323     A     
 CONRED             EQ     DEC52       CONTINUE.                                           CONRED       324     A     
 CONRED                                                                                    CONRED       325     A     
 CONRED    DEC40    ZR     X1,DEC41    IF NO OVERFLOW                                      CONRED       326     A     
 CONRED             SA5    DATAFLG                                                         CONRED       327     A     
 CONRED             MI     X5,DEC41    IF ERROR TO BE SUPPRESSED                           CONRED       328     A     
 CONRED             SB5    1           SET FLAG TO INDICATE ERROR PROCESSED                CONRED       329     A     
 CONRED             WARN   E.DC8                                                           CONRED       330     A     
 CONRED                                                                                    CONRED       331     A     
 CONRED    DEC41    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT                     CONRED       332     A     
 CONRED             SA5    DATAFLG                                                         CONRED       333          I
          -FC5A120
 CONRED             MI     X5,DEC42    IF MODE TO BE DOUBLE                                CONRED       334          I
          -FC5A120
 CONRED             MI     B6,DEC45    IF DECIMAL POINT IN NUMBER                          CONRED       335          I
          -FC5A120
 CONRED             EQ     DEC43                                                           CONRED       336          I
          -FC5A120
 CONRED                                                                                    CONRED       337          I
          -FC5A120
 CONRED    DEC42    SX5    B6                                                              CONRED       338          I
          -FC5A120
 CONRED             =B6    1           INDICATE DOUBLE PRECISION                           CONRED       339          I
          -FC5A120
 CONRED             MI     X5,DEC52    IF DECIMAL POINT IN NUMBER                          CONRED       340          I
          -FC5A120
 CONRED                                                                                    CONRED       341          I
          -FC5A120
 CONRED    DEC43    LX3    54          CONSTRUCT INTEGER                                   CONRED       342          I
          -FC5A120
 CONRED             =B6    M.INT       INDICATE MODE INTEGER                               CONRED       343          I
          -FC5A120
 CONRED             MI     B6,DEC45    IF DECIMAL POINT IN NUMBER                          FC5A120        5     A     
 CONRED             LX3    54                                                              FC5A120        6     A     
 CONRED             IX6    X2+X3                                                           CONRED       344     A     
 CONRED             LX3    6                                                               CONRED       345     A     
 CONRED             AX3    5                                                               CONRED       346     A     
 CONRED             ZR     X3,DEC60    IF NO OVERFLOW OF 59 BITS                           CONRED       347     A     
 CONRED             EQ     DECEX1      ERROR                                               CONRED       348     A     
 CONRED                                                                                    CONRED       349     A     
 CONRED    DEC45    SB6    B0          SET FLAG (E=0)                                      CONRED       350     A     
 CONRED             EQ     DEC52                                                           CONRED       351     A     
 CONRED                                                                                    CONRED       352     A     
 CONRED    DEC50    SB3    X6+B3       ADD EXPONENT TO SCALING                             CONRED       353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             AX6    9                                                               CONRED       354     A     
 CONRED             NZ     X6,DECEX1   IF EXPONENT .GT. 512 - ERROR                        CONRED       355     A     
 CONRED                                                                                    CONRED       356     A     
 CONRED   *         FLOATING CONVERSION BY FSCALE.                                         CONRED       357     A     
 CONRED   *         MODIFY DOUBLE WORD INTEGER INPUT FOR                                   CONRED       358     A     
 CONRED   *         FSCALE WHICH REQUIRES...                                               CONRED       359     A     
 CONRED   *         LOW ORDER INTEGER INTEGER PART, X1, BITS 54-00.                        CONRED       360     A     
 CONRED   *         HIGH ORDER INTEGER PART, X2, BITS 58-00.                               CONRED       361     A     
 CONRED                                                                                    CONRED       362     A     
 CONRED    DEC52    SB5    B5+B6                                                           CONRED       363     A     
 CONRED             NO                                                                     CONRED       364     A     
 CONRED             NZ     B5,DEC53    IF DOUBLE PRECISION OR ERROR FLAG SET               CONRED       365     A     
 CONRED             SB2    48                                                              CONRED       366     A     
 CONRED             NO                                                                     CONRED       367     A     
 CONRED             AX1    B2,X2                                                           CONRED       368     A     
 CONRED             ZR     X1,DEC53    IF NO SINGLE PRECISION OVERFLOW                     CONRED       369     A     
 CONRED             SA5    DATAFLG                                                         CONRED       370     A     
 CONRED             MI     X5,DEC53    IF ERROR TO BE SUPPRESSED                           CONRED       371     A     
 CONRED             WARN   E.DC8                                                           CONRED       372     A     
 CONRED                                                                                    CONRED       373     A     
 CONRED    DEC53    MX5    1                                                               CONRED       374     A     
 CONRED             LX3    -1          POSITION HIGH PART                                  CONRED       375     A     
 CONRED             BX4    X5*X3       GET CARRY BIT                                       CONRED       376     A     
 CONRED             BX0    -X5*X3      SET HIGH PART FOR FSCALE                            CONRED       377     A     
 CONRED             LX4    -5          POSITION CARRY BIT                                  CONRED       378     A     
 CONRED             BX1    X4+X2       SET LOW PART FOR FSCALE                             CONRED       379     A     
 CONRED             SA0    B4                                                              CONRED       380     A     
 CONRED             SB4    B6                                                              CONRED       381     A     
 CONRED             SB6    B6+M.REAL   SET MODE                                            CONRED       382     A     
 CONRED             ERRNZ  M.REAL+1-M.DBL                                                  CONRED       383     A     
 CONRED             RJ     FSCALE      CONVERT FLOATING CONSTANT                           CONRED       384     A     
 CONRED             BX6    X1                                                              CONRED       385     A     
 CONRED             BX7    X2                                                              CONRED       386     A     
 CONRED             SB2    B4                                                              CONRED       387     A     
 CONRED             SB4    A0                                                              CONRED       388     A     
 CONRED             ZR     B2,DEC60    IF CONVERSION SUCCESSFUL                            CONRED       389     A     
 CONRED                                                                                    CONRED       390     A     
 CONRED    DECEX1   SB2    E.DC        CONVERSION ERROR                                    CONRED       391     A     
 CONRED                                                                                    FC50923       11     A     
 CONRED    DECEX    FATAL  B2                                                              CONRED       392     A     
 CONRED             SA1    DATAFLG                                                         FC50656        8          I
          -FC50923
 CONRED             ZR     X1,PSL      IF NOT PROCESSING DATA STATEMENT                    FC50656        9          I
          -FC50923
 CONRED             SX1    KW=DATA                                                         FC50923       12     A     
 CONRED             SA2    TB=TYPE                                                         FC50923       13     A     
 CONRED             HX2    KW.JMP                                                          FC50923       14     A     
 CONRED             AX2    -KW.JMPL                                                        FC50923       15     A     
 CONRED             IX2    X2-X1                                                           FC50923       16     A     
 CONRED             NZ     X2,PSL      IF NOT PROCESSING DATA STATEMENT                    FC50923       17     A     
 CONRED             MX6    0                                                               CONRED       393     A     
 CONRED             SA6    DATAFLG     TURN OFF FLAG                                       CONRED       394          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
          -FC50656
 CONRED             EQ     PSL         EXIT...                                             CONRED       395          I
          -FC50656
 CONRED             SA6    A1          CLEAR DATA FLAG                                     FC50656       10     A     
 CONRED             EQ     DAT.Z       EXIT... [TO CLEAN UP AFTER DATA]                    FC50656       11     A     
 CONRED                                                                                    CONRED       396     A     
 CONRED    DECA     BSS    7           REGISTER SAVE/RESTORE AREA                          CONRED       397     A     
 CONRED    DTA      SPACE  4,10                                                            CONRED       398     A     
 CONRED   **        DTA -  DPC TO ASCII CONVERSION                                         CONRED       399     A     
 CONRED   *                                                                                CONRED       400     A     
 CONRED   *         ENTRY  (X3) = DPC CHARACTER, LEFT JUSTIFIED.                           CONRED       401     A     
 CONRED   *                                                                                CONRED       402     A     
 CONRED   *         EXIT   (X3) = ASCII EQUIVALENT, RIGHT JUSTIFIED.                       CONRED       403     A     
 CONRED   *                                                                                CONRED       404     A     
 CONRED   *         USES   X - 3,5,6,7  A - 5                                              CONRED       405     A     
 CONRED                                                                                    CONRED       406     A     
 CONRED    DTA      SUBR               ENTRY/EXIT...                                       CONRED       407     A     
 CONRED             MX6    3                                                               CONRED       408     A     
 CONRED             BX7    X6*X3                                                           CONRED       409     A     
 CONRED             LX7    3           X7 = PROPER TABLE OFFSET                            CONRED       410     A     
 CONRED             SA5    DTACT+X7    X5 = PROPER TABLE WORD                              CONRED       411     A     
 CONRED             LX3    3                                                               CONRED       412     A     
 CONRED             BX7    X6*X3                                                           CONRED       413     A     
 CONRED             LX7    3           X7 = CHARACTER POSITION                             CONRED       414     A     
 CONRED             SX6    B6          PRESERVE B6                                         CONRED       415     A     
 CONRED             SB6    X7                                                              CONRED       416     A     
 CONRED             LX7    2                                                               CONRED       417     A     
 CONRED             SX7    X7+B6                                                           CONRED       418     A     
 CONRED             SB6    X7+B6       B6 = SHIFT COUNT                                    CONRED       419     A     
 CONRED             LX5    B6,X5                                                           CONRED       420     A     
 CONRED             SB6    X6          RESTORE B6                                          CONRED       421     A     
 CONRED             MX6    CHAR                                                            CONRED       422     A     
 CONRED             BX3    X6*X5                                                           CONRED       423     A     
 CONRED             LX3    CHAR        X3 = ASCII CONVERSION                               CONRED       424     A     
 CONRED             EQ     EXIT.                                                           CONRED       425     A     
 CONRED                                                                                    CONRED       426     A     
 CONRED                                                                                    CONRED       427     A     
 CONRED             CODE   A                                                               CONRED       428     A     
 CONRED                                                                                    CONRED       429     A     
 CONRED    DTACT    CON    8L:ABCDEFG                                                      CONRED       430     A     
 CONRED             CON    8LHIJKLMNO                                                      CONRED       431     A     
 CONRED             CON    8LPQRSTUVW                                                      CONRED       432     A     
 CONRED             CON    8LXYZ01234                                                      CONRED       433     A     
 CONRED             CON    8L56789+-*                                                      CONRED       434     A     
 CONRED             CON    8L/()$= ,.                                                      CONRED       435     A     
 CONRED             CON    8L#[]%"_!&                                                      CONRED       436          I
          -FC5A196
 CONRED             CON    8L'?<>@\^                                                       CONRED       437          I
          -FC5A196
 CONRED    .IP      IFEQ   IP.CSET,IP.C63                                                  FC5A196        4     A     
 CONRED             VFD    30/5L#[]:",6/77B,12/2L!&,12/0                                   FC5A196        5     A     
 CONRED    .IP      ELSE                                                                   FC5A196        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             VFD    30/5L#[]%",6/77B,12/2L!&,12/0                                   FC5A196        7     A     
 CONRED    .IP      ENDIF                                                                  FC5A196        8     A     
 CONRED             CON    8L'?<>@\^;                                                      FC5A196        9     A     
 CONRED                                                                                    CONRED       438     A     
 CONRED             CODE   D                                                               CONRED       439     A     
 CONRED    OCT      SPACE  4,30                                                            CONRED       440     A     
 CONRED   **        OCT -  CONVERT OCTAL/HEX CONSTANT TO BINARY.                           CONRED       441     A     
 CONRED   *                                                                                CONRED       442     A     
 CONRED   *         ENTRY  (B4) -> FIRST TOKEN OF OCTAL OR HEX CONSTANT.                   CONRED       443     A     
 CONRED   *                                                                                CONRED       444     A     
 CONRED   *         EXIT   (B4) -> LAST TOKEN OF CONSTANT.                                 CONRED       445     A     
 CONRED   *                (X1) = M.BOOL                                                   CONRED       446     A     
 CONRED   *                (X6) = VALUE OF CONSTANT.                                       CONRED       447     A     
 CONRED   *                                                                                CONRED       448     A     
 CONRED   *         USES   A1-3   X0-3,X6-7    B2,7.                                       CONRED       449     A     
 CONRED                                                                                    CONRED       450     A     
 CONRED                                                                                    CONRED       451     A     
 CONRED    OCT      SUBR   =           ENTRY/EXIT...                                       CONRED       452     A     
 CONRED             SA3    B4                                                              CONRED       453     A     
 CONRED             BX6    0           CLEAR ACCUMULATOR                                   CONRED       454     A     
 CONRED             SB7    3           SET (B7) = LOG2 (RADIX)       /* ASSUME (8)         CONRED       455     A     
 CONRED             SX2    60/3        INITIALIZE DIGIT COUNT                              CONRED       456     A     
 CONRED             SB3    X3                                                              CONRED       457     A     
 CONRED             MX0    -CHAR                                                           CONRED       458     A     
 CONRED             =B2    O.OCT                                                           CONRED       459     A     
 CONRED             EQ     B2,B3,OCT40 IF OCT TOKEN                                        CONRED       460     A     
 CONRED             =B2    B2-O.OCT+O.HEX                                                  CONRED       461     A     
 CONRED             SB7    B7+1        ADJUST FOR BASE 16                                  CONRED       462     A     
 CONRED             SX2    60/4                                                            CONRED       463     A     
 CONRED             NE     B2,B3,"BLOWUP"    IF NOT HEX TOKEN -- CALLER MESSED UP          CONRED       464     A     
 CONRED                                                                                    CONRED       465     A     
 CONRED    OCT40    LX3    CHAR                                                            CONRED       466     A     
 CONRED             BX1    -X0*X3                                                          CONRED       467     A     
 CONRED             SB3    X1-1R8                                                          CONRED       468     A     
 CONRED             ZR     X1,OCT50    IF WORD EXHAUSTED                                   CONRED       469     A     
 CONRED             SX1    X1-1R0                                                          CONRED       470     A     
 CONRED             MI     B3,OCT44    IF CHARACTER NOT TOO BIG FOR OCTAL                  CONRED       471     A     
 CONRED             SB3    X1-10                                                           CONRED       472     A     
 CONRED             SB4    -B1         INDICATE NON-OCTAL CHARACTER                        CONRED       473     A     
 CONRED             MI     B3,OCT44    IF CHARACTER NOT TOO BIG FOR HEX                    CONRED       474     A     
 CONRED             SB7    B0          INDICATE ILL CHARACTER                              CONRED       475     A     
 CONRED                                                                                    FC5A381        7     A     
 CONRED    OCT44    SX2    X2-1                                                            CONRED       476     A     
 CONRED             PL     X1,OCT48    IF DIGIT                                            CONRED       477     A     
 CONRED             SX1    X1+1R0-1RA+10                                                   CONRED       478     A     
 CONRED             SB3    X1+1RA-10-1RG                                                   FC5A381        8     A     
 CONRED             SB4    -B1         INDICATE NON-OCTAL CHARACTER                        CONRED       479     A     
 CONRED             MI     B3,OCT48    IF LEGAL HEX DIGIT [A,B,C,D,E,F]                    FC5A381        9     A     
 CONRED             =B7    0           INDICATE INVALID DIGIT                              FC5A381       10     A     
 CONRED                                                                                    FC5A381       11     A     
 CONRED    OCT48    LX6    B7                                                              CONRED       480     A     
 CONRED             BX6    X1+X6       MERGE NEW DIGIT                                     CONRED       481     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             EQ     OCT40       LOOP..                                              CONRED       482     A     
 CONRED                                                                                    CONRED       483     A     
 CONRED    OCT50    =A3    A3+1        FETCH NEXT WORD                                     CONRED       484     A     
 CONRED             SB3    X3                                                              CONRED       485     A     
 CONRED             EQ     B2,B3,OCT40 IF MORE OF OUR TOKENS                               CONRED       486     A     
 CONRED                                                                                    CONRED       487          I
          -FC5A381
 CONRED             SX3    B4                                                              CONRED       488     A     
 CONRED             SB4    A3-B1       ADVANCE TOKEN POINTER                               CONRED       489     A     
 CONRED             PL     X2,OCT94    IF NOT TOO MANY DIGITS                              CONRED       490     A     
 CONRED             WARN   E.DC8       ** OCT/HEX CONSTANT TOO LONG                        CONRED       491     A     
 CONRED                                                                                    CONRED       492     A     
 CONRED    OCT94    ZR     B7,OCT95    IF PATENTLY ILLEGAL CHARACTER                       CONRED       493     A     
 CONRED             PL     X3,OCT96    IF NO HEX DIGITS APPEARED                           CONRED       494     A     
 CONRED             SB3    B2-O.OCT                                                        CONRED       495     A     
 CONRED             NZ     B3,OCT96    IF HEX ALLOWED                                      CONRED       496     A     
 CONRED                                                                                    FC5A381       12     A     
 CONRED    OCT95    WARN   E.DC9       ** ILLEGAL DIGIT IN OCT/HEX CONSTANT                CONRED       497     A     
 CONRED                                                                                    CONRED       498     A     
 CONRED    OCT96    =X1    M.BOOL                                                          CONRED       499     A     
 CONRED             EQ     EXIT.                                                           CONRED       500     A     
 CONRED    TNK      SPACE  4,20                                                            CONRED       501     A     
 CONRED   **        TNK - TRANSLATE NUMERIC KONSTANT.                                      CONRED       502     A     
 CONRED   *                                                                                CONRED       503     A     
 CONRED   *         ENTRY  (B4) -> FIRST TOKEN OF CONSTANT.                                CONRED       504     A     
 CONRED   *                                                                                CONRED       505     A     
 CONRED   *         EXIT   (B4) -> LAST TOKEN OF CONSTANT.                                 CONRED       506     A     
 CONRED   *                (X1) = MODE OF CONSTANT.                                        CONRED       507     A     
 CONRED   *                (X2) = LOWER HALF OF CONSTANT, IF NEEDED.                       CONRED       508     A     
 CONRED   *                (X6) = UPPER, OR ONLY, HALF OF CONSTANT.                        CONRED       509     A     
 CONRED   *                                                                                CONRED       510     A     
 CONRED   *         USES   A1-5   B2-3,7   X0-3,6-7.                                       CONRED       511     A     
 CONRED   *                (X4-5 ARE NOT DESTROYED)                                        CONRED       512     A     
 CONRED   *                                                                                CONRED       513     A     
 CONRED   *         CALLS  DEC, FATAL, OCT.                                                CONRED       514     A     
 CONRED                                                                                    CONRED       515     A     
 CONRED                                                                                    CONRED       516     A     
 CONRED    TNK      SUBR   =           ENTRY/EXIT...                                       CONRED       517     A     
 CONRED             SA3    B4                                                              CONRED       518     A     
 CONRED             SB2    X3-O.CONS                                                       CONRED       519     A     
 CONRED             =B7    B2+O.CONS-O.PERIOD                                              CONRED       520     A     
 CONRED             ZR     B2,TNK2     IF DECIMAL NUMBER                                   CONRED       521     A     
 CONRED             NZ     B7,TNK4     IF NOT DECIMAL POINT                                CONRED       522     A     
 CONRED                                                                                    FC5A460        6     A     
 CONRED    TNK2     MX6    1                                                               CONRED       523          I
          -FC5A120
 CONRED             SA6    DATAFLG     INDICATE DOUBLE PRECISION DESIRED                   CONRED       524          I
          -FC5A120
 CONRED             RJ     DEC         TRANSLATE DECIMAL CONSTANT                          CONRED       525          I
          -FC5A120
 CONRED             =X7    0                                                               CONRED       526          I
          -FC5A120
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SA7    DATAFLG     TURN OFF THE FLAG                                   CONRED       527          I
          -FC5A120
 CONRED    TNK2     RJ     DEC         TRANSLATE DECIMAL CONSTANT                          FC5A120        7     A     
 CONRED             EQ     EXIT.                                                           CONRED       528     A     
 CONRED                                                                                    CONRED       529     A     
 CONRED    TNK4     =B7    B2+O.CONS-O.OCT                                                 CONRED       530     A     
 CONRED             =B2    B7+O.OCT-O.HEX                                                  CONRED       531     A     
 CONRED             ZR     B7,TNK5     IF OCTAL TOKEN                                      CONRED       532     A     
 CONRED             NZ     B2,TNK9     IF NOT HEX TOKEN                                    CONRED       533     A     
 CONRED    TNK5     RJ     OCT                                                             CONRED       534          I
          -FC5A460
 CONRED                                                                                    FC5A460        7     A     
 CONRED    TNK5     ANSI   E.DC1       O.OCT AND O.HEX NON-ANSI                            FC5A460        8     A     
 CONRED             RJ     OCT                                                             FC5A460        9     A     
 CONRED             EQ     EXIT.                                                           CONRED       535     A     
 CONRED                                                                                    CONRED       536     A     
 CONRED    TNK9     FATAL  E.DC        ** CONSTANT CANNOT BE CONVERTED                     CONRED       537     A     
 CONRED             EQ     PSL         EXIT..      RETURN FOR NEXT STATEMENT               CONRED       538     A     
 CONRED   *CALL     FSCALE             FLOATING DOUBLE PRECISION CONVERSION                CONRED       539     A     
 CONRED                                                                                    CONRED       540     A     
 CONRED             TITLE  CONSTANT REDUCTION.                                             CONRED       541     A     
 CONRED    CCR      SPACE  4,10                                                            CONRED       542     A     
 CONRED   **        CCR - COMPUTE CONSTANT REDUCTION.                                      CONRED       543     A     
 CONRED   *                                                                                CONRED       544     A     
 CONRED   *         CCR IS CALLED BY PAR/ADT WHEN A TURPLE IS ABOUT TO BE                  CONRED       545     A     
 CONRED   *         EMITTED.  IT ATTEMPTS TO REDUCE THE TURPLE IF IT HAS                   CONRED       546     A     
 CONRED   *         CONSTANT OPERAND(S) --                                                 CONRED       547     A     
 CONRED   *         A.  BY PERFORMING THE OPERATION AT COMPILE TIME  (2 + 3)               CONRED       548     A     
 CONRED   *         B.  RESULT INDEPENDENT OF VARIABLE OPERAND       (0 / X)               CONRED       549     A     
 CONRED   *         C.  ISSUE DIAGNOSTIC FOR END CASES            (OVERFLOW)               CONRED       550     A     
 CONRED   *                                                                                CONRED       551     A     
 CONRED   *         ENTRY  (X4) = 1ST OPERAND.                                             CONRED       552     A     
 CONRED   *                (X5) = 2ND OPERAND.                                             CONRED       553     A     
 CONRED   *                (X7) = INDEX OF REDUCTION SKEL. (IN F.SKEL)                     CONRED       554     A     
 CONRED   *                (SOPR) = OPERATOR.                                              CONRED       555     A     
 CONRED   *                (SMOD) = RESULT MODE.                                           CONRED       556     A     
 CONRED   *                                                                                CONRED       557     A     
 CONRED   *         EXIT   (X6) .ZR. = TURPLE MUST BE EMITTED.                             CONRED       558     A     
 CONRED   *                (X4, X5, SOPR) MAY HAVE BEEN CHANGED.                           CONRED       559     A     
 CONRED   *                                                                                CONRED       560     A     
 CONRED   *         ELSE   (X6) .NZ. = RESULT OPERAND FOR SPECIFIED TURPLE.                CONRED       561     A     
 CONRED   *                            DO NOT ISSUE TURPLE.                                CONRED       562     A     
 CONRED   *                (X4,X5) = PRESERVED.                                            CONRED       563     A     
 CONRED   *                                                                                CONRED       564     A     
 CONRED   *         USES   ALL BUT A0,  B4-6.                                              CONRED       565     A     
 CONRED   *         CELLS  (SCR TO SCR+3)                                                  CONRED       566     A     
 CONRED   *                                                                                CONRED       567     A     
 CONRED   *         CALLS  LCH, PCA.                                                       CONRED       568     A     
 CONRED                                                                                    CONRED       569     A     
 CONRED                                                                                    CONRED       570     A     
 CONRED    CCR      SUBR   =           ENTRY/EXIT...                                       CONRED       571     A     
 CONRED             SA7    CCRA                                                            CONRED       572     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED       573     A     
 CONRED   *         REDUCIBLE OPERATOR FOUND, CHECK FOR CONSTANTS AS OPERANDS.             CONRED       574     A     
 CONRED   *         FIRST, CALL LCH AND COMPUTE CONSTANTALITY IN RANGE (0 .. 3),           CONRED       575     A     
 CONRED   *         THEN SUBTRACT ONE TO GIVE RANGE (-1 .. 2), VIZ --                      CONRED       576     A     
 CONRED   *                (1OP, 2OP) =  CC     CV    VC    VV                             CONRED       577     A     
 CONRED   *                FOR 1 VAR  =  0      0     2     2                              CONRED       578     A     
 CONRED   *                ADD 2 VAR  =   0      1     0     1                             CONRED       579     A     
 CONRED   *                FIRST SUM  =   0      1     2     3                             CONRED       580     A     
 CONRED   *                REDUCE - 1 =  -1      0    +1    +2                             CONRED       581     A     
 CONRED   *         FOR CONSTANTS AT:  BOTH,   1OP,  2OP,   NEITHER.                       CONRED       582     A     
 CONRED                                                                                    CONRED       583     A     
 CONRED             SA7    CONRB                                                           FC51344        7     A     
 CONRED             BX1    X4                                                              CONRED       584     A     
 CONRED             RJ     LCT         LOAD FIRST CONSTANT                                 CONRED       585     A     
 CONRED             SA6    LVEC                                                            CONRED       586     A     
 CONRED             MX6    0           INDICATE NO REDUCE                                  CONRED       587     A     
 CONRED             SA7    LLVEC                                                           CONRED       588     A     
 CONRED             BX1    X5                                                              CONRED       589     A     
 CONRED             ZR     B2,EXIT.    IF 1ST IS NOT CONSTANT                              CONRED       590     A     
 CONRED             ZR     X5,CCR8     IF (2OP) IS NIL                                     CONRED       591     A     
 CONRED             SA2    SMOD        RESULT MODE                                         FC51344        8     A     
 CONRED             SX2    X2-M.DBL                                                        FC51344        9     A     
 CONRED             SA3    A2+1        OPERATOR                                            FC51344       10     A     
 CONRED             SX3    X3-O.PL                                                         FC51344       11     A     
 CONRED             BX6    X2+X3                                                           FC51344       12     A     
 CONRED             SX2    B2+B1                                                           FC51344       13     A     
 CONRED             BX6    X6+X2                                                           FC51344       14     A     
 CONRED             SA6    CONRB       0 IF RESULT DOUBLE, OPERATOR +, CONST LONG          FC51344       15     A     
 CONRED             RJ     LCT         LOAD SECOND CONSTANT                                CONRED       592     A     
 CONRED             SA6    LVEC+1                                                          CONRED       593     A     
 CONRED             MX6    0                                                               CONRED       594     A     
 CONRED             SA7    LLVEC+1                                                         CONRED       595     A     
 CONRED             ZR     B2,EXIT.    IF (2OP) NOT CONSTANT                               CONRED       596     A     
 CONRED             SX2    B2+B1                                                           FC51344       16     A     
 CONRED             NZ     X2,CCR8     IF 2OP NOT LONG CONSTANT                            FC51344       17     A     
 CONRED             SA3    CONRB                                                           FC51344       18     A     
 CONRED             MI     X3,CCR8     IF RESULT NOT DBLE, ORT .NE. +, 1OP NOT LNG         FC51344       19     A     
 CONRED             NZ     X3,CCR8     IF RESULT NOT DBLE, OPR .NE. +, 1OP NOT LNG         FC51344       20     A     
 CONRED             SA2    LVEC        1OP UPPER                                           FC51344       21     A     
 CONRED             SA3    LLVEC       1OP LOWER                                           FC51344       22     A     
 CONRED             NZ     X2,CONR3    IF 1OP UPPER NOT ZERO                               FC51344       23     A     
 CONRED             NZ     X3,CONR3    IF 2OP LOWER NOT ZERO                               FC51344       24     A     
 CONRED             LX0    X5                                                              FC51344       25     A     
 CONRED                                                                                    FC51344       26     A     
 CONRED   *         HERE IF ATTEMPT TO ADD ZERO TO A DOUBLE PRECISION CONSTANT             FC51344       27     A     
 CONRED                                                                                    FC51344       28     A     
 CONRED    CONR2    BX6    X2          UPPER RESULT                                        FC51344       29     A     
 CONRED             BX7    X3          LOWER RESULT                                        FC51344       30     A     
 CONRED             SA6    RVEC                                                            FC51344       31     A     
 CONRED             SA7    A6+1                                                            FC51344       32     A     
 CONRED             BX6    X0                                                              FC51344       33     A     
 CONRED             EQ     EXIT.                                                           FC51344       34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    FC51344       35     A     
 CONRED    CONR3    SA2    A2+1        2OP UPPER                                           FC51344       36     A     
 CONRED             SA3    A3+1        2OP LOWER                                           FC51344       37     A     
 CONRED             NZ     X2,CCR8     IF 2OP UPPER NOT ZERO                               FC51344       38     A     
 CONRED             NZ     X3,CCR8     IF 2OP LOWER NOT ZERO                               FC51344       39     A     
 CONRED             BX0    X4                                                              FC51344       40     A     
 CONRED             EQ     CONR2                                                           FC51344       41     A     
 CONRED                                                                                    CONRED       597     A     
 CONRED   *         REDUCE EXPRESSION AT COMPILE TIME.                                     CONRED       598     A     
 CONRED                                                                                    CONRED       599     A     
 CONRED    CCR8     SA3    CCRA                                                            CONRED       600     A     
 CONRED             RJ     PCA         PERFORM COMPILE TIME REDUCTION                      CONRED       601          I
          -FC5A150
 CONRED             RJ     CTA         PERFORM COMPILE TIME REDUCTION                      FC5A150      520     A     
 CONRED             EQ     EXIT.                                                           CONRED       602     A     
 CONRED                                                                                    FC51344       42     A     
 CONRED    CONRB    BSS    1                                                               FC51344       43     A     
 CONRED    PCA      EJECT  4,20                                                            CONRED       603          I
          -FC50392
 CONRED   **        PCA -  PERFORM COMPILE TIME ARITHMETIC.                                CONRED       604          I
          -FC50392
 CONRED    CTA      EJECT                                                                  FC50392       18     A     
 CONRED   **        CTA -  COMPILE TIME ARITHMETIC.                                        FC50392       19     A     
 CONRED   *                                                                                CONRED       605     A     
 CONRED   *         ENTRY  (X3) = INDEX OF CONSTANT REDUCER.                               CONRED       606     A     
 CONRED   *                (LVEC,LVEC+1) = UPPER HALVES OF (1OP,2OP)                       CONRED       607     A     
 CONRED   *                (LLVEC,LLVEC+1) = LOWER HALVES OF (1OP,2OP)                     CONRED       608     A     
 CONRED   *                (TER2+1) = LOWER HALF OF 2OP.                                   CONRED       609     A     
 CONRED   *                                                                                CONRED       610     A     
 CONRED   *         EXIT   SAME AS CCR.                                                    CONRED       611     A     
 CONRED   *                (RVEC,RLVEC) = RESULTS IN BINARY OF REDUCTION.                  CONRED       612     A     
 CONRED   *                                                                                CONRED       613     A     
 CONRED   *         USES   A1-7,  X0-7,  B2-3,B7.                                          CONRED       614     A     
 CONRED   *         CELLS  (SCR+4).                                                        CONRED       615     A     
 CONRED   *                                                                                CONRED       616     A     
 CONRED   *         CALLS  CIO, CFO, NBC.                                                  CONRED       617     A     
 CONRED                                                                                    CONRED       618     A     
 CONRED                                                                                    CONRED       619     A     
 CONRED    PCA      SUBR               ENTRY/EXIT...                                       CONRED       620          I
          -FC5A150
 CONRED    CTA      SUBR   =           ENTRY/EXIT...                                       FC5A150      521     A     
 CONRED             BX6    X4                                                              CONRED       621     A     
 CONRED             BX7    X5                                                              CONRED       622     A     
 CONRED             SA6    PCAA                                                            CONRED       623          I
          -FC5A150
 CONRED             SA6    CTAA                                                            FC5A150      522     A     
 CONRED             =A7    A6+1                                                            CONRED       624     A     
 CONRED             SA5    =XF.SKEL+X3-1                                                   CONRED       625     A     
 CONRED                                                                                    CONRED       626     A     
 CONRED    PCA10    =A5    A5+1                                                            CONRED       627          I
          -FC5A150
 CONRED    CTA10    =A5    A5+1                                                            FC5A150      523     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX2    X5                                                              CONRED       628     A     
 CONRED             MX0    -SK.TYPL+1                                                      CONRED       629     A     
 CONRED             AX2    SK.TYPP                                                         CONRED       630     A     
 CONRED             BX0    -X0*X2                                                          CONRED       631     A     
 CONRED             SB3    X0-M.ISBRN                                                      CONRED       632     A     
 CONRED             NZ     B3,PCA20    IF THIS INSTRUCTION NOT SKEL BRANCH                 CONRED       633          I
          -FC5A150
 CONRED             NZ     B3,CTA20    IF THIS INSTRUCTION NOT SKEL BRANCH                 FC5A150      524     A     
 CONRED             SA5    X5          RESET SKEL POINTER                                  CONRED       634     A     
 CONRED                                                                                    CONRED       635     A     
 CONRED    PCA20    RJ     ISI         INTERPRET SKELETON INSTRUCTION                      CONRED       636          I
          -FC5A150
 CONRED    CTA20    RJ     ISI         INTERPRET INSTRUCTION SKELETON                      FC5A150      525     A     
 CONRED             SA5    A5                                                              CONRED       637     A     
 CONRED             HX5    SK.END                                                          CONRED       638     A     
 CONRED             PL     X5,PCA10    IF NOT THROUGH WITH SKEL                            CONRED       639          I
          -FC5A150
 CONRED             PL     X5,CTA10    IF NOT THROUGH WITH SKEL                            FC5A150      526     A     
 CONRED                                                                                    CONRED       640     A     
 CONRED   *         FORM OPERAND FOR REDUCED VALUE                                         CONRED       641     A     
 CONRED                                                                                    CONRED       642     A     
 CONRED             SA2    RVEC                                                            CONRED       643     A     
 CONRED             SA3    RLVEC                                                           CONRED       644     A     
 CONRED             SA1    SMOD                                                            CONRED       645     A     
 CONRED             BX6    X2                                                              CONRED       646     A     
 CONRED             BX7    X3                                                              CONRED       647     A     
 CONRED             RJ     NBC                                                             CONRED       648     A     
 CONRED             SA4    CTAA                                                            FC5A150      527     A     
 CONRED             =A5    A4+1        RESTORE ORIGINAL OPERANDS                           FC5A150      528     A     
 CONRED             EQ     EXIT.                                                           CONRED       649     A     
 CONRED                                                                                    CONRED       650     A     
 CONRED   *         PROCESS ERROR DETECTED WHILE REDUCING.                                 CONRED       651     A     
 CONRED                                                                                    CONRED       652     A     
 CONRED    PCA.ER   BSS    0                                                               CONRED       653          I
          -FC5A150
 CONRED    CTA.ER   BSS    0                                                               FC5A150      529     A     
 CONRED             MX6    0                                                               CONRED       654     A     
 CONRED             SA4    PCAA                                                            CONRED       655          I
          -FC5A150
 CONRED             SA4    CTAA                                                            FC5A150      530     A     
 CONRED             =A5    A4+1                                                            CONRED       656     A     
 CONRED             EQ     EXIT.                                                           CONRED       657     A     
 CONRED    PCC      SPACE  4,10                                                            CONRED       658     A     
 CONRED   **        PCC -  PERFORM CHARACTER CONCATENATION.                                CONRED       659     A     
 CONRED   *                DOES CONCATENATION OF TWO CHARACTER CONSTANT OPERANDS.          CONRED       660     A     
 CONRED   *                                                                                CONRED       661     A     
 CONRED   *         ENTRY  (X3) = LENGTH OF (1OP), IN CHARS                                CONRED       662     A     
 CONRED   *                (X7) = LENGTH OF (2OP), IN CHARS                                CONRED       663     A     
 CONRED   *                (B3) = CON INDEX OF (1OP)                                       CONRED       664     A     
 CONRED   *                (B2) = CON INDEX OF (2OP)                                       CONRED       665     A     
 CONRED   *         EXIT   (X1) = LENGTH OF RESULT, IN CHARS                               CONRED       666     A     
 CONRED   *                (X2) = CON INDEX OF RESULT                                      CONRED       667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *         CALLS  ALC,MVE=,MNS=,NCM                                               CONRED       668     A     
 CONRED   *         USES   ALL BUT B4,B5,B6                                                CONRED       669     A     
 CONRED                                                                                    CONRED       670     A     
 CONRED                                                                                    CONRED       671     A     
 CONRED    PCC      SUBR   =           ENTRY/EXIT.                                         CONRED       672     A     
 CONRED             IX6    X3+X7       NEWLEN = OP1LEN + OP2LEN                            CONRED       673     A     
 CONRED             BX4    X3                                                              CONRED       674     A     
 CONRED             SA6    PCCA        (PCCA) = NEWLEN, IN CHARACTERS                      CONRED       675     A     
 CONRED             CW     X5,X6       NEWLEN = NEWLEN / 10                                CONRED       676     A     
 CONRED             SA7    A6-PCCA+PCCB      (PCCB) = OP2LEN                               CONRED       677     A     
 CONRED             ALLOC  T.CON,X5    ALLOCATE FOR NEWLEN                                 CONRED       678     A     
 CONRED             SA2    =1H                                                             CONRED       679     A     
 CONRED             BX6    X2                                                              CONRED       680     A     
 CONRED             SB2    X1+B2       FWA2 = FWA(T.CON) + INDOP2                          CONRED       681     A     
 CONRED             SX7    B7                                                              CONRED       682     A     
 CONRED             =A6    B7-1        LWA(T.CON) = 10H                                    CONRED       683     A     
 CONRED             SX2    X1+B3       SFWA1 = FWA(T.CON) + INDOP1                         CONRED       684     A     
 CONRED             IX3    X7-X5       NEWFWA = LWA(T.CON) + 1 - NEWLEN                    CONRED       685     A     
 CONRED             IX7    X3-X1       NEWIND = NEWFWA - FWA(T.CON)                        CONRED       686     A     
 CONRED             LX5    X4          SAVE (X5) = OP1LEN                                  CONRED       687     A     
 CONRED             CW     X1,X4       OP1LEN = OP1LEN / 10                                CONRED       688     A     
 CONRED             IX6    X3+X1                                                           CONRED       689     A     
 CONRED             SB3    X6          (B3) = FWA1 + OP1LEN                                CONRED       690     A     
 CONRED             SA7    PCCC        (PCCC) = NEWIND                                     CONRED       691     A     
 CONRED             MOVE   X1,X2,X3    MOVE OP1 TO NEW LOCATION                            CONRED       692     A     
 CONRED             SA3    PCCB        LENOP2 = (PCCB)                                     CONRED       693     A     
 CONRED             BC     X0,X3       LENOP2 = LENOP2 * 6                                 CONRED       694     A     
 CONRED             WX4    X5,X2       DFB = (X2) = REMAINDER OF LENOP1/10                 CONRED       695     A     
 CONRED             ZR     X2,PCC5     IF OP1 MULT OF 10 CHARS                             CONRED       696     A     
 CONRED             =B3    B3-1                                                            CONRED       697     A     
 CONRED                                                                                    CONRED       698     A     
 CONRED    PCC5     BC     X3,X2       DFB = DFB * 6                                       CONRED       699     A     
 CONRED             SX6    B4                                                              CONRED       700     A     
 CONRED             SX7    B5                                                              CONRED       701     A     
 CONRED             SX2    B2          SFWA = FWA2                                         CONRED       702     A     
 CONRED             =B2    0           SFB = 0                                             CONRED       703     A     
 CONRED             SA6    PCCD        (PCCD) = (B4)                                       CONRED       704     A     
 CONRED             =A7    A6+1        (PCCD+1) = (B5)                                     CONRED       705     A     
 CONRED             SX6    B6                                                              CONRED       706     A     
 CONRED             SX4    B3          DFWA = (B3)                                         CONRED       707     A     
 CONRED             SB4    X3                                                              CONRED       708     A     
 CONRED             =A6    A7+1        (PCCD+2) = (B6)                                     CONRED       709     A     
 CONRED             MOVEB  X0,X2,B2,X4,B4    MOVE OP2 TO END OF OP1                        CONRED       710     A     
 CONRED                                                                                    CONRED       711     A     
 CONRED   *         BLANK FILL LAST WORD.                                                  CONRED       712     A     
 CONRED   *         (X4) -> NEXT DESTINATION ADDRESS.                                      CONRED       713     A     
 CONRED   *         (B4) -> DESTINATION NEXT BIT                                           CONRED       714     A     
 CONRED                                                                                    CONRED       715     A     
 CONRED             SA5    PCCC        NEWIND = (PCCC)                                     CONRED       716     A     
 CONRED             SA3    A5-PCCC+PCCD                                                    CONRED       717     A     
 CONRED             =A2    A3+1                                                            CONRED       718     A     
 CONRED             SB4    X3          RESTORE (B4)                                        CONRED       719     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SB5    X2          RESTORE (B5)                                        CONRED       720     A     
 CONRED             =A3    A2+1                                                            CONRED       721     A     
 CONRED             SA4    T=CON                                                           CONRED       722     A     
 CONRED             SA1    T.CON                                                           CONRED       723     A     
 CONRED             SB6    X3          RESTORE (B6)                                        CONRED       724     A     
 CONRED             IX0    X4-X5       NEWLEN = (T=CHAR) - NEWIND                          CONRED       725     A     
 CONRED             SB7    X1          *DO NOT ALLOCATE FOR THIS*                          CONRED       726     A     
 CONRED             SB2    X5+B7       FWACON = FWA(T.CON) + NEWIND                        CONRED       727     A     
 CONRED             BX7    X5                                                              CONRED       728     A     
 CONRED             SB3    B2+X0       LWACON = FWA CON + NEWLEN                           CONRED       729     A     
 CONRED             SA7    A4          (T=CHAR) = (T=CHAR) - NEWLEN = NEWIND               CONRED       730     A     
 CONRED             RJ     NCM                                                             CONRED       731     A     
 CONRED             BX2    X5          NEWIND = (X5)                                       CONRED       732     A     
 CONRED             SA1    PCCA        NEWLEN = (PCCA)   */IN CHARS                        CONRED       733     A     
 CONRED             MI     B7,PCC20    IF NOT IN TABLE                                     CONRED       734     A     
 CONRED             SX2    B7+         NEWIND = (B7)                                       CONRED       735     A     
 CONRED             EQ     EXIT.                                                           CONRED       736     A     
 CONRED                                                                                    CONRED       737     A     
 CONRED   *         (X0) = NEWLEN IN WORDS.                                                CONRED       738     A     
 CONRED                                                                                    CONRED       739     A     
 CONRED    PCC20    SA3    T=CON                                                           CONRED       740     A     
 CONRED             IX6    X3+X0                                                           CONRED       741     A     
 CONRED             SA6    A3          (T=CHAR) = (T=CHCAR) + NEWLEN                       CONRED       742     A     
 CONRED             EQ     EXIT.                                                           CONRED       743     A     
 CONRED    PCR      SPACE  4,10                                                            CONRED       744     A     
 CONRED   **        PCR -  PROCESS CHARACTER RELATIONALS.                                  CONRED       745     A     
 CONRED   *                                                                                CONRED       746     A     
 CONRED   *         ENTRY  (PCR.1OP) = T.CON INDEX OF 1ST OPERAND                          CONRED       747     A     
 CONRED   *                (PCR.1OP+1) = LENGTH OF 1ST OPERAND                             CONRED       748     A     
 CONRED   *                                                                                CONRED       749     A     
 CONRED   *                (PCR.2OP) = T.CON INDEX OF 2ND OPERAND                          CONRED       750     A     
 CONRED   *                (PCR.2OP+1) = LENGTH OF 2ND OPERAND                             CONRED       751     A     
 CONRED   *                                                                                CONRED       752     A     
 CONRED   *                (PCR.RO) = RELATIONAL OPERATOR                                  CONRED       753     A     
 CONRED   *                                                                                CONRED       754     A     
 CONRED   *         EXIT   (B6) = UPDATED BY -1                                            CONRED       755     A     
 CONRED   *                                                                                CONRED       756     A     
 CONRED   *                ESTACK(B6-1) = RESULT OF REDUCTION                              CONRED       757     A     
 CONRED   *                                                                                CONRED       758     A     
 CONRED   *         CALLS  CCS,NBC.                                                        CONRED       759     A     
 CONRED   *                                                                                CONRED       760     A     
 CONRED   *         USES   ALL BUT A0  B4,B5,B6.                                           CONRED       761     A     
 CONRED                                                                                    CONRED       762     A     
 CONRED    LT       IMPLIES    (O.LT,O.NE,O.LE)                                            CONRED       763     A     
 CONRED    EQ       IMPLIES    (O.EQ,O.GE,O.LE)                                            CONRED       764     A     
 CONRED    GT       IMPLIES    (O.GT,O.GE,O.NE)                                            CONRED       765     A     
 CONRED                                                                                    CONRED       766     A     
 CONRED    PCR      SUBR   =                 ENTRY/EXIT...                                 CONRED       767     A     
 CONRED             SA4    T.CON                                                           CONRED       768     A     
 CONRED             SA2    PCR.1OP                                                         CONRED       769     A     
 CONRED             SA3    PCR.2OP                                                         CONRED       770     A     
 CONRED             IX1    X4+X2                                                           CONRED       771     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SA1    X1          (A1,X1) _ 1ST STRING                                CONRED       772     A     
 CONRED             IX2    X4+X3                                                           CONRED       773     A     
 CONRED             SA2    X2          (A2,X2) _ 2ND STRING                                CONRED       774     A     
 CONRED             =A4    PCR.1OP+1                                                       CONRED       775     A     
 CONRED             SB2    X4          B2 = LENGTH OF 1ST STRING                           CONRED       776     A     
 CONRED             =A3    PCR.2OP+1                                                       CONRED       777     A     
 CONRED             SB3    X3          B3 = LENGTH OF 2ND STRING                           CONRED       778     A     
 CONRED             RJ     CCS         COMPARE CHARACTER STRINGS                           CONRED       779     A     
 CONRED             LDX    X1,"EQ"     X1 = IMPLICATION VECTOR FOR EQ                      CONRED       780     A     
 CONRED             ZR     X7,PCR10    IF 1ST STRING .EQ. 2ND STRING                       CONRED       781     A     
 CONRED             LDX    X1,"LT"     X1 = IMPLICATION VECTOR FOR LT                      CONRED       782     A     
 CONRED             MI     X7,PCR10    IF 1ST STRING .LT. 2ND STRING                       CONRED       783     A     
 CONRED             LDX    X1,"GT"     X1 = IMPLICATION VECTOR GT                          CONRED       784     A     
 CONRED                                                                                    CONRED       785     A     
 CONRED    PCR10    SA2    PCR.RO      X2 = RELOP FROM SOURCE STATEMENT                    CONRED       786     A     
 CONRED             SB2    X2                                                              CONRED       787     A     
 CONRED             SB3    59                                                              CONRED       788     A     
 CONRED             SB3    B3-B2                                                           CONRED       789     A     
 CONRED             LX6    X1,B3                                                           CONRED       790     A     
 CONRED             AX6    59                                                              CONRED       791     A     
 CONRED             MX1    59                                                              CONRED       792     A     
 CONRED             BX6    X1*X6       X6 = COMPILER TRUE OR FALSE                         CONRED       793     A     
 CONRED             SX1    M.LOG       INDICATE TYPE LOGICAL                               CONRED       794     A     
 CONRED             MX7    0                                                               CONRED       795     A     
 CONRED             RJ     NBC         GET OPERAND REPRESENTING RESULT                     CONRED       796     A     
 CONRED             =B6    B6-1        POP ESTACK                                          CONRED       797     A     
 CONRED             =A6    B6-1        STACK RESULT OF REDUCTION                           CONRED       798     A     
 CONRED             EQ     EXIT.                                                           CONRED       799     A     
 CONRED                                                                                    CONRED       800     A     
 CONRED                                                                                    CONRED       801     A     
 CONRED    PCR.1OP  BSSENT 2                                                               CONRED       802     A     
 CONRED    PCR.2OP  BSSENT 2                                                               CONRED       803     A     
 CONRED    PCR.RO   BSSENT 1                                                               CONRED       804     A     
 CONRED    ISI      SPACE  4,10                                                            CONRED       805     A     
 CONRED   **        ISI - INTERPRET SKELETON INSTRUCTION.                                  CONRED       806     A     
 CONRED                                                                                    CONRED       807     A     
 CONRED    ISI      SUBR                                                                   CONRED       808     A     
 CONRED             LX5    -SK.GHP                                                         CONRED       809     A     
 CONRED             MX0    -SK.GHL                                                         CONRED       810     A     
 CONRED             SB2    3                                                               CONRED       811     A     
 CONRED             BX6    -X0*X5                                                          CONRED       812     A     
 CONRED             SA6    COL.PO      *COL* NEEDS PIK=PS OFFSET                           FC5A158A     429     A     
 CONRED             SA1    =XPIK=PS+X6                                                     CONRED       813     A     
 CONRED             BX7    X1                                                              CONRED       814     A     
 CONRED             LX6    45+9                                                            CONRED       815     A     
 CONRED             SA7    PIK                                                             CONRED       816     A     
 CONRED             SA6    OPCODE                                                          CONRED       817     A     
 CONRED             SA1    INST=23                                                         CONRED       818     A     
 CONRED             LX5    SK.GHP-SK.KFP     RIGHT JUSTIFY K INFO                          CONRED       819     A     
 CONRED             BX6    X1+X6                                                           CONRED       820     A     
 CONRED             HX7    OD.JKV                                                          CONRED       821     A     
 CONRED             PL     X7,ISI5     IF NOT JK VALUE INSTRUCTION                         CONRED       822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             MX6    0           LOP WILL DEFINE INSTRUCTION                         CONRED       823     A     
 CONRED                                                                                    CONRED       824     A     
 CONRED    ISI5     SA6    INST        INITIALIZE FOR NOMINAL INSTRUCTION                  CONRED       825     A     
 CONRED                                                                                    CONRED       826     A     
 CONRED    ISI10    MX0    -SR.NUML                                                        CONRED       827     A     
 CONRED             BX2    -X0*X5                                                          CONRED       828     A     
 CONRED             LX5    -SR.NUML                                                        CONRED       829     A     
 CONRED             MX0    -SR.OADL                                                        CONRED       830     A     
 CONRED             BX1    -X0*X5                                                          CONRED       831     A     
 CONRED             LX5    -SR.OADL                                                        CONRED       832     A     
 CONRED             RJ     LOP         LOAD OPERAND                                        CONRED       833     A     
 CONRED             =B2    B2-1        FIELDN = FIELDN - 1                                 CONRED       834     A     
 CONRED             SA6    FIELD+B2    SAVE POINTER TO OPERAND VALUE                       CONRED       835     A     
 CONRED             NZ     B2,ISI10    IF NOT FIELD1 (I)                                   CONRED       836     A     
 CONRED             SA1    PIK                                                             CONRED       837     A     
 CONRED             HX1    OD.COPY                                                         CONRED       838     A     
 CONRED             PL     X1,ISI20    IF NOT JJ INSTRUCTION                               CONRED       839     A     
 CONRED             SA4    OPCODE                                                          CONRED       840     A     
 CONRED             SA2    INST=22                                                         CONRED       841     A     
 CONRED             BX6    X2+X4                                                           CONRED       842     A     
 CONRED             PLUG   AT=INST,FROM=X6                                                 CONRED       843     A     
 CONRED             EQ     ISI30                                                           CONRED       844     A     
 CONRED                                                                                    CONRED       845     A     
 CONRED    ISI20    LX1    OD.COPYP-OD.KJP                                                 CONRED       846     A     
 CONRED             PL     X1,ISI30    IF NOT K=J INSTRUCTION                              CONRED       847     A     
 CONRED             SA4    OPCODE                                                          CONRED       848     A     
 CONRED             SA2    INST=32                                                         CONRED       849     A     
 CONRED             BX6    X2+X4                                                           CONRED       850     A     
 CONRED             PLUG   AT=INST,FROM=X6                                                 CONRED       851     A     
 CONRED                                                                                    CONRED       852     A     
 CONRED    ISI30    SA2    FIELD+1                                                         CONRED       853     A     
 CONRED             =A3    A2+1                                                            CONRED       854     A     
 CONRED             SA2    X2                                                              CONRED       855     A     
 CONRED             SA3    X3                                                              CONRED       856     A     
 CONRED             RJ     COL         CHECK OPERAND LEGALITY                              CONRED       857     A     
 CONRED             SA1    FIELD                                                           CONRED       858     A     
 CONRED             SA1    X1                                                              CONRED       859     A     
 CONRED                                                                                    CONRED       860     A     
 CONRED    INST     EQ     "BLOWUP"                                                        CONRED       861     A     
 CONRED                                                                                    CONRED       862     A     
 CONRED   *         STORE RESULT.                                                          CONRED       863     A     
 CONRED                                                                                    CONRED       864     A     
 CONRED             SA2    FIELD                                                           CONRED       865     A     
 CONRED             BX7    X1                                                              CONRED       866     A     
 CONRED             SA7    X2                                                              CONRED       867     A     
 CONRED             SA1    PIK                                                             CONRED       868     A     
 CONRED             HX1    OD.FPA                                                          CONRED       869     A     
 CONRED             PL     X1,EXIT.    IF NOT FLOATING POINT ARITHMETIC                    CONRED       870     A     
 CONRED             OR     X7,PCA.ER   IF RESULT OUT OF RANGE                              CONRED       871          I
          -FC5A150
 CONRED             ID     X7,PCA.ER   IF RESULT INDEF.                                    CONRED       872          I
          -FC5A150
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             OR     X7,CTA.ER   IF RESULT OUT OF RANGE                              FC5A150      531     A     
 CONRED             ID     X7,CTA.ER   IF RESULT INDEF.                                    FC5A150      532     A     
 CONRED             EQ     EXIT.                                                           CONRED       873     A     
 CONRED    LOP      SPACE  4,10                                                            CONRED       874     A     
 CONRED   **        LOP - LOAD OPERAND.                                                    CONRED       875     A     
 CONRED                                                                                    CONRED       876     A     
 CONRED             MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ                                  CONRED       877     A     
 CONRED             IFC    EQ,/OPEQ//,5                                                    CONRED       878     A     
 CONRED             IFC    NE,/LAST/NOTLAST/,2                                             CONRED       879     A     
 CONRED             IFC    NE,/NOTLAST/NONE/,1                                             CONRED       880     A     
 CONRED             EQ     LOP.OP                                                          CONRED       881     A     
 CONRED             IFC    NE,/LAST/NONE/,1                                                CONRED       882     A     
 CONRED             EQ     LOP.OP                                                          CONRED       883     A     
 CONRED             ENDM                                                                   CONRED       884     A     
 CONRED                                                                                    CONRED       885     A     
 CONRED    LOP      SUBR                                                                   CONRED       886     A     
 CONRED             SA4    OPCODE                                                          CONRED       887     A     
 CONRED             SB3    X1                                                              CONRED       888     A     
 CONRED             JP     LOP.JT+B3                                                       CONRED       889     A     
 CONRED                                                                                    CONRED       890     A     
 CONRED    LOP.JT   BSS    0                                                               CONRED       891     A     
 CONRED             LOC    0                                                               CONRED       892     A     
 CONRED             LIST   -X,G                                                            CONRED       893     A     
 CONRED   *CALL SKOP                                                                       CONRED       894     A     
 CONRED                                                                                    CONRED       895     A     
 CONRED             LIST   *                                                               CONRED       896     A     
 CONRED             LOC    *O                                                              CONRED       897     A     
 CONRED                                                                                    CONRED       898     A     
 CONRED    LOP.A    BSS    0                                                               CONRED       899     A     
 CONRED    LOP.X    BSS    0                                                               CONRED       900     A     
 CONRED    LOP.P    BSS    0                                                               CONRED       901     A     
 CONRED    LOP.GP   BSS    0                                                               CONRED       902     A     
 CONRED    LOP.GL   BSS    0                                                               CONRED       903     A     
 CONRED    LOP.GLL  BSS    0                                                               CONRED       904     A     
 CONRED    LOP.Q    BSS    0                                                               CONRED       905     A     
 CONRED    LOP.S    BSS    0                                                               CONRED       906     A     
 CONRED             EQ     "BLOWUP"                                                        CONRED       907     A     
 CONRED                                                                                    CONRED       908     A     
 CONRED    LOP.L    SX6    LVEC+X2-1                                                       CONRED       909     A     
 CONRED             EQ     EXIT.                                                           CONRED       910     A     
 CONRED                                                                                    CONRED       911     A     
 CONRED    LOP.LL   SX6    LLVEC+X2-1                                                      CONRED       912     A     
 CONRED             EQ     EXIT.                                                           CONRED       913     A     
 CONRED                                                                                    CONRED       914     A     
 CONRED    LOP.R    SX6    RVEC                                                            CONRED       915     A     
 CONRED             EQ     EXIT.                                                           CONRED       916     A     
 CONRED                                                                                    CONRED       917     A     
 CONRED    LOP.RL   SX6    RLVEC                                                           CONRED       918     A     
 CONRED             EQ     EXIT.                                                           CONRED       919     A     
 CONRED                                                                                    CONRED       920     A     
 CONRED    LOP.T    SX6    TVEC+X2                                                         CONRED       921     A     
 CONRED             EQ     EXIT.                                                           CONRED       922     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED       923     A     
 CONRED    LOP.B    SA1    INST=73                                                         CONRED       924     A     
 CONRED             BX6    X1+X4                                                           CONRED       925          I
          -FC5A190
 CONRED             NE     B2,B1,LOPB10      IF NOT I FIELD                                FC5A190       28     A     
 CONRED             SA1    INST=SB                                                         FC5A190       29     A     
 CONRED                                                                                    FC5A190       30     A     
 CONRED    LOPB10   BX6    X1+X4                                                           FC5A190       31     A     
 CONRED             SA6    INST        J = B7                                              CONRED       926     A     
 CONRED             EQ     EXIT.                                                           CONRED       927     A     
 CONRED                                                                                    CONRED       928     A     
 CONRED    LOP.K    SA1    PIK                                                             CONRED       929     A     
 CONRED             LX2    45                                                              CONRED       930     A     
 CONRED             HX1    OD.JKV                                                          CONRED       931     A     
 CONRED             PL     X1,LOP.K10  IF NOT JKVAL INSTR.                                 CONRED       932     A     
 CONRED             SA1    INST=00                                                         CONRED       933     A     
 CONRED             BX0    X1+X4                                                           CONRED       934     A     
 CONRED             BX6    X0+X2                                                           CONRED       935     A     
 CONRED             SA1    INST                                                            CONRED       936     A     
 CONRED             BX6    X6+X1                                                           CONRED       937     A     
 CONRED             SA6    A1                                                              CONRED       938     A     
 CONRED             EQ     EXIT.                                                           CONRED       939     A     
 CONRED                                                                                    CONRED       940     A     
 CONRED    LOP.K10  LX1    OD.JKVP-OD.BJP                                                  CONRED       941     A     
 CONRED             PL     X1,EXIT.    IF NOT B-REG INSTR.                                 CONRED       942     A     
 CONRED             IFNE   TEST,0,1                                                        CONRED       943     A     
 CONRED             NZ     X2,"BLOWUP" IF VAL .NZ.                                         CONRED       944     A     
 CONRED             SA1    INST=03                                                         CONRED       945     A     
 CONRED             BX6    X1+X4                                                           CONRED       946     A     
 CONRED             SA6    INST                                                            CONRED       947     A     
 CONRED             EQ     EXIT.                                                           CONRED       948     A     
 CONRED    COL      SPACE  4,10                                                            CONRED       949     A     
 CONRED   **        COL - CHECK OPERAND LEGALITY.                                          CONRED       950     A     
 CONRED                                                                                    CONRED       951     A     
 CONRED    COL      SUBR                                                                   CONRED       952     A     
 CONRED             SA1    PIK                                                             CONRED       953     A     
 CONRED             HX1    OD.UP                                                           CONRED       954     A     
 CONRED             PL     X1,COL10    IF NOT UNPACK INSTRUCTION                           CONRED       955     A     
 CONRED             BX7    X3                                                              CONRED       956     A     
 CONRED             RJ     CFO         CHECK FLOATING POINT OPERAND                        CONRED       957     A     
 CONRED             EQ     EXIT.       TO ALLOW REDUCTION OF NINT (IF NO PROBLEM)          CONRED       958     A     
 CONRED             UX0    B3,X3                                                           CONRED       959     A     
 CONRED             PL     B3,PCA.ER   IF VALUE TOO LARGE TO FIX                           CONRED       960          I
          -FC5A150
 CONRED             PL     B3,CTA.ER   IF VALUE TOO LARGE TO FIX                           FC5A150      533     A     
 CONRED             EQ     EXIT.                                                           CONRED       961     A     
 CONRED                                                                                    CONRED       962     A     
 CONRED    COL10    LX1    OD.UPP-OD.PKP                                                   CONRED       963     A     
 CONRED             PL     X1,COL20    IF NOT PACK INSTRUCTION                             CONRED       964     A     
 CONRED             BX7    X3                                                              CONRED       965     A     
 CONRED             RJ     CIO         CHECK INTEGER OPERAND                               CONRED       966     A     
 CONRED             EQ     EXIT.                                                           CONRED       967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED       968     A     
 CONRED    COL20    LX1    OD.PKP-OD.FPAP                                                  CONRED       969     A     
 CONRED             PL     X1,EXIT.    IF NOT FP ARITHMETIC                                CONRED       970     A     
 CONRED             BX7    X2                                                              CONRED       971     A     
 CONRED             RJ     CFO         CHECK 1OP                                           CONRED       972     A     
 CONRED             BX7    X3                                                              CONRED       973     A     
 CONRED             RJ     CFO         CHECK 2OP                                           CONRED       974     A     
 CONRED             LX1    OD.FPAP-OD.DIVP                                                 CONRED       975          I
          -FC5A158A 
 CONRED             PL     X1,EXIT.    IF NOT DIVIDE INSTRUCTION                           CONRED       976          I
          -FC5A158A 
 CONRED             ZR     X3,PCA.ER   IF DIVIDE BY ZERO                                   CONRED       977          I
          -FC5A158A -FC5A150
 CONRED             ZR     X3,CTA.ER   IF DIVIDE BY ZERO                                   FC5A150      534          I
          -FC5A158A 
 CONRED             EQ     EXIT.                                                           CONRED       978          I
          -FC5A158A 
 CONRED             UX7    X2,B2       B2 = EXPONENT OF 1OP                                FC5A158A     430     A     
 CONRED             SB2    B2+60B                                                          FC5A158A     431     A     
 CONRED             UX7    X3,B3       B3 = EXPONENT OF 2OP                                FC5A158A     432     A     
 CONRED             SB3    B3+60B                                                          FC5A158A     433     A     
 CONRED             SB7    1770B+60B   B7 = TEST VALUE                                     FC5A158A     434     A     
 CONRED             LX1    OD.FPAP-OD.DIVP                                                 FC5A158A     435     A     
 CONRED             PL     X1,COL30    IF NOT DIVIDE                                       FC5A158A     436     A     
 CONRED             NX1    X3                                                              FC5A158A     437     A     
 CONRED             ZR     X1,CTA.ER   IF DIVIDE BY ZERO                                   FC5A158A     438     A     
 CONRED             SB2    B2-B3                                                           FC5A158A     439     A     
 CONRED             GT     B2,B7,CTA.ER      IF RESULT OF DIVIDE WOULD BE BAD              FC5A158A     440     A     
 CONRED             EQ     EXIT.                                                           FC5A158A     441     A     
 CONRED                                                                                    FC5A158A     442     A     
 CONRED    COL30    SA1    COL.PO      X1 = OFFSET INTO PIK=PS TABLE                       FC5A158A     443     A     
 CONRED             SX1    X1-40B      ADDS AND SUBTRACTS HAVE OFFSETS .LT. 40B            FC5A158A     444     A     
 CONRED             MI     X1,EXIT.    IF ADD OR SUBTRACT                                  FC5A158A     445     A     
 CONRED             SB2    B2+B3                                                           FC5A158A     446     A     
 CONRED             GT     B2,B7,CTA.ER      IF RESULT OF MULTIPLY WOULD BE BAD            FC5A158A     447     A     
 CONRED             EQ     EXIT.                                                           FC5A158A     448     A     
 CONRED                                                                                    FC5A158A     449     A     
 CONRED    COL.PO   BSS    1           OFFSET INTO PIK.PS TABLE                            FC5A158A     450     A     
 CONRED    CFO      SPACE  4,10                                                            CONRED       979     A     
 CONRED   **        CFO - CHECK FL. PT. OPDERAND.                                          CONRED       980     A     
 CONRED   *                                                                                CONRED       981     A     
 CONRED   *         PRESERVES X1,X2,X3 , B3,B4,B5,B6 , A5                                  CONRED       982     A     
 CONRED                                                                                    CONRED       983     A     
 CONRED    CFO      SUBR                                                                   CONRED       984     A     
 CONRED             OR     X7,PCA.ER   IF OPERAND OUT OF RANGE                             CONRED       985          I
          -FC5A150
 CONRED             ID     X7,PCA.ER   IF OPERAND INDEF.                                   CONRED       986          I
          -FC5A150
 CONRED             OR     X7,CTA.ER   IF OPERAND OUT OF RANGE                             FC5A150      535     A     
 CONRED             ID     X7,CTA.ER   IF OPERAND INDEF.                                   FC5A150      536     A     
 CONRED             EQ     EXIT.                                                           CONRED       987     A     
 CONRED    CIO      SPACE  4,4                                                             CONRED       988     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   **        CIO - CHECK INTEGER ABOUT TO BE FLOATED.                               CONRED       989     A     
 CONRED                                                                                    CONRED       990     A     
 CONRED    CIO      SUBR                                                                   CONRED       991     A     
 CONRED             AX7    60-12                                                           CONRED       992     A     
 CONRED             ZR     X7,EXIT.    IF NOT TOO LARGE                                    CONRED       993     A     
 CONRED             EQ     PCA.ER                                                          CONRED       994          I
          -FC5A150
 CONRED             EQ     CTA.ER                                                          FC5A150      537     A     
 CONRED    KMOD     SPACE  4,20                                                            CONRED       995     A     
 CONRED   **        KMOD - CONSTANT MODE-CONVERSION SELECTOR MATRIX.                       CONRED       996     A     
 CONRED   *                                                                                CONRED       997     A     
 CONRED   * TYPE    KMOD   B,L,I,R,D,Z,H                                                   CONRED       998     A     
 CONRED                                                                                    CONRED       999     A     
 CONRED                                                                                    CONRED      1000     A     
 CONRED             MACRO  KMOD,TYPE,U,L,I,R,D,Z,H                                         CONRED      1001     A     
 CONRED    E        MICRO                                                                  CONRED      1002     A     
 CONRED    .1       ECHO   ,P=(H,Z,D,R,I,L,U)                                              CONRED      1003     A     
 CONRED             IFC    EQ,/P/--/,2                                                     CONRED      1004     A     
 CONRED    E        MICRO  1,,$"E"8/0,$                                                    CONRED      1005     A     
 CONRED             SKIP   4                                                               CONRED      1006     A     
 CONRED             IFC    EQ,/P/**/,2                                                     CONRED      1007     A     
 CONRED    E        MICRO  1,,$"E"8/KCNN-KCEE,$                                            CONRED      1008     A     
 CONRED             SKIP   1                                                               CONRED      1009     A     
 CONRED    E        MICRO  1,,$"E"8/KC_P-KCEE,$                                            CONRED      1010     A     
 CONRED    .1       ENDD                                                                   CONRED      1011     A     
 CONRED   *                                                                                CONRED      1012     A     
 CONRED    M.TYPE   VFD    4/0,"E"                                                         CONRED      1013     A     
 CONRED             ENDM                                                                   CONRED      1014     A     
 CONRED                                                                                    CONRED      1015     A     
 CONRED                                                                                    CONRED      1016     A     
 CONRED    KMOD     BSS    0           CONSTANT MODE-CONVERSION SELECTOR MATRIX            CONRED      1017     A     
 CONRED             LOC    0                                                               CONRED      1018     A     
 CONRED    BOOL     KMOD   **,--,**,**,RD,RZ,--                                            CONRED      1019     A     
 CONRED    LOG      KMOD   --,**,--,--,--,--,--                                            CONRED      1020     A     
 CONRED    INT      KMOD   **,--,**,IR,ID,IZ,--                                            CONRED      1021     A     
 CONRED    REAL     KMOD   **,--,RI,**,RD,RZ,--                                            CONRED      1022     A     
 CONRED    DBL      KMOD   **,--,DI,**,**,DZ,--                                            CONRED      1023     A     
 CONRED    CPLX     KMOD   **,--,ZI,**,ZD,**,--                                            CONRED      1024     A     
 CONRED    CHAR     KMOD   --,--,--,--,--,--,**                                            CONRED      1025     A     
 CONRED    N.TYPE   BSS                                                                    CONRED      1026     A     
 CONRED             LOC    *O                                                              CONRED      1027     A     
 CONRED    KCV      SPACE  4,10                                                            CONRED      1028     A     
 CONRED   **        KCV - CONVERT CONSTANT VALUE.                                          CONRED      1029     A     
 CONRED   *                                                                                CONRED      1030     A     
 CONRED   *         ENTRY  (X6, X7) = OLD VALUE OF CONSTANT.                               CONRED      1031     A     
 CONRED   *                (X0) = OLD MODE.                                                CONRED      1032     A     
 CONRED   *                (X1) = DESIRED MODE.                                            CONRED      1033     A     
 CONRED   *                                                                                CONRED      1034     A     
 CONRED   *         EXIT   (B2) .MI. = ILLEGAL CONVERSION.                                 CONRED      1035     A     
 CONRED   *                     .ZR. = NULL CONVERSION (OLD CONSTANT IS EQUIVALENT         CONRED      1036     A     
 CONRED   *                            VALUE).                                             CONRED      1037     A     
 CONRED   *                (X1) = DESIRED MODE.                                            CONRED      1038     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                (X6, X7) = NEW VALUE OF CONSTANT.                               CONRED      1039     A     
 CONRED   *                                                                                CONRED      1040     A     
 CONRED   *         USES   A1,A2  X0,X2,X3  B7.                                            CONRED      1041     A     
 CONRED                                                                                    CONRED      1042     A     
 CONRED                                                                                    CONRED      1043     A     
 CONRED    KCEE     SB2    -1          INDICATE ILL CONVERSION                             CONRED      1044     A     
 CONRED                                                                                    CONRED      1045     A     
 CONRED    KCV      SUBR   =           ENTRY/EXIT...                                       CONRED      1046     A     
 CONRED             SA2    X0+KMOD     FETCH ROW FOR OLD MODE                              CONRED      1047     A     
 CONRED             LX1    3           (B2) = 8 * SMOD                                     CONRED      1048     A     
 CONRED             MX0    -8                                                              CONRED      1049     A     
 CONRED             SB2    X1                                                              CONRED      1050     A     
 CONRED             AX3    B2,X2       SLIDE ROW TO DOMINANT COLUMN                        CONRED      1051     A     
 CONRED             BX3    -X0*X3                                                          CONRED      1052     A     
 CONRED             AX1    3           RESTORE (X1) = (SMOD)                               CONRED      1053     A     
 CONRED             SB2    X3-1                                                            CONRED      1054     A     
 CONRED             JP     B2+KCEE+1   ENTER MODE-CONVERTER..                              CONRED      1055     A     
 CONRED                                                                                    CONRED      1056     A     
 CONRED                                                                                    CONRED      1057     A     
 CONRED    KCNN     EQU    EXIT.       NULL CONVERSION                                     CONRED      1058     A     
 CONRED                                                                                    CONRED      1059     A     
 CONRED    KCEE     EQU    KCNN-1      ILL CONVERSION                                      CONRED      1060     A     
 CONRED                                                                                    CONRED      1061     A     
 CONRED    KCIR     BSS                INT  ->  REAL                                       CONRED      1062     A     
 CONRED    KCID     BSS                INT  ->  DBL                                        CONRED      1063     A     
 CONRED    KCIZ     BSS                INT  ->  CPLX                                       CONRED      1064     A     
 CONRED             PX2    X6                                                              CONRED      1065     A     
 CONRED             SB0    +                                                               CONRED      1066     A     
 CONRED             NX6    X2                                                              CONRED      1067     A     
 CONRED                                                                                    CONRED      1068     A     
 CONRED    KCRD     BSS                REAL ->  DBL                                        CONRED      1069     A     
 CONRED    KCRZ     BSS                REAL ->  CPLX                                       CONRED      1070     A     
 CONRED    KCDZ     BSS                DBL  ->  CPLX                                       CONRED      1071     A     
 CONRED    KCZD     BSS                CPLX ->  DBL                                        CONRED      1072     A     
 CONRED             SX7    B0          LOWER = ZERO                                        CONRED      1073     A     
 CONRED             EQ     EXIT.                                                           CONRED      1074     A     
 CONRED                                                                                    CONRED      1075     A     
 CONRED    KCRI     BSS                REAL ->  INT                                        CONRED      1076     A     
 CONRED    KCDI     BSS                DBL  ->  INT                                        CONRED      1077     A     
 CONRED    KCZI     BSS                CPLX ->  INT                                        CONRED      1078     A     
 CONRED             UX2,B7 X6                                                              CONRED      1079     A     
 CONRED             LX6    X2,B7                                                           CONRED      1080     A     
 CONRED             EQ     EXIT.                                                           CONRED      1081     A     
 CONRED             TITLE  CONSTANT TEST AND MANIPULATION.                                 CONRED      1082     A     
 CONRED    CCS      SPACE  4,10                                                            CONRED      1083     A     
 CONRED   **        CCS -  COMPARE CHARACTER STRINGS.                                      CONRED      1084     A     
 CONRED   *                                                                                CONRED      1085     A     
 CONRED   *         ENTRY  (A1,X1) _ 1ST CHARACTER STRING.                                 CONRED      1086     A     
 CONRED   *                (B2) = LENGTH OF THE 1ST STRING.                                CONRED      1087     A     
 CONRED   *                                                                                CONRED      1088     A     
 CONRED   *                (A2,X2) _ 2ND CHARACTER STRING                                  CONRED      1089     A     
 CONRED   *                (B3) = LENGTH OF THE 2ND STRING.                                CONRED      1090     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                                                                                CONRED      1091     A     
 CONRED   *         EXIT   (X7) = MI IF 1ST STRING .LT. 2ND.                               CONRED      1092     A     
 CONRED   *                     = ZR IF 1ST STRING .EQ. 2ND                                CONRED      1093     A     
 CONRED   *                     = PLNZ IF 1ST STRING .GT. 2ND.                             CONRED      1094     A     
 CONRED   *                                                                                CONRED      1095     A     
 CONRED   *         CALLS  GNC.                                                            CONRED      1096     A     
 CONRED   *                                                                                CONRED      1097     A     
 CONRED   *         USES   X - ALL  A - 1,2,5  B - 2,3,7                                   CONRED      1098     A     
 CONRED                                                                                    CONRED      1099     A     
 CONRED    CCS      SUBR               ENTRY/EXIT...                                       CONRED      1100     A     
 CONRED             SB7    10          NEXT WORD FLAG                                      CONRED      1101     A     
 CONRED             MX0    CHAR                                                            CONRED      1102     A     
 CONRED                                                                                    CONRED      1103     A     
 CONRED    CCS10    SX3    B2+B3                                                           CONRED      1104     A     
 CONRED             MX7    0                                                               CONRED      1105     A     
 CONRED             ZR     X3,EXIT.    IF BOTH STRINGS DONE                                CONRED      1106     A     
 CONRED             RJ     GNC         GET NEXT CHARACTERS                                 CONRED      1107     A     
 CONRED             IX7    X4-X3                                                           CONRED      1108     A     
 CONRED             NZ     X7,EXIT.    IF STRINGS DONT MATCH HERE                          CONRED      1109     A     
 CONRED             EQ     CCS10       CONTINUE                                            CONRED      1110     A     
 CONRED    GNC      SPACE  4,10                                                            CONRED      1111     A     
 CONRED   **        GNC -  GET NEXT CHARACTERS.                                            CONRED      1112     A     
 CONRED   *                                                                                CONRED      1113     A     
 CONRED   *         MEANT TO BE USED IN CONJUNCTION WITH CCS.                              CONRED      1114     A     
 CONRED   *                                                                                CONRED      1115     A     
 CONRED   *         ENTRY  (A1,X1) _ A WORD OF 1ST CHARACTER STRING.                       CONRED      1116     A     
 CONRED   *                (B2) = NUMBER OF CHARACTERS LEFT IN THE STRING.                 CONRED      1117     A     
 CONRED   *                                                                                CONRED      1118     A     
 CONRED   *                (A2,X2) _ A WORD OF 2ND CHARACTER STRING.                       CONRED      1119     A     
 CONRED   *                (B3) = NUMBER OF CHARACTERS LEFT IN THE STRING.                 CONRED      1120     A     
 CONRED   *                                                                                CONRED      1121     A     
 CONRED   *                (X0) = CHARACTER MASK IN UPPER 6 BITS.                          CONRED      1122     A     
 CONRED   *                                                                                CONRED      1123     A     
 CONRED   *                (B7) = NUMBER OF CHARS IN X1,X2 NOT YET COMPARED.               CONRED      1124     A     
 CONRED   *                                                                                CONRED      1125     A     
 CONRED   *         NOTE - WHEN EITHER B2 OR B3 ARE ZERO ON EXIT,                          CONRED      1126     A     
 CONRED   *                IT INDICATES THAT THE CORRESPONDING STRING HAS BEEN             CONRED      1127     A     
 CONRED   *                EXHAUSTED, AND THAT THE ASSOCIATED REGISTERS NO LONGER          CONRED      1128     A     
 CONRED   *                POINT TO THE STRING.                                            CONRED      1129     A     
 CONRED   *                                                                                CONRED      1130     A     
 CONRED   *         CALLS  DTA.                                                            CONRED      1131     A     
 CONRED   *                                                                                CONRED      1132     A     
 CONRED   *         USES   X - 1,2,3,4,5,6,7  A - 1,2,5  B - 2,3,7                         CONRED      1133     A     
 CONRED                                                                                    CONRED      1134     A     
 CONRED    GNC      SUBR               ENTRY/EXIT...                                       CONRED      1135     A     
 CONRED             NZ     B2,GNC10    IF 1ST STRING NOT EXHAUSTED                         CONRED      1136     A     
 CONRED             =B2    B2+1        GUARANTEES B2 STAYS ZERO                            CONRED      1137     A     
 CONRED             SA1    =10H            SUPPLY BLANKS FROM NOW ON                       CONRED      1138     A     
 CONRED                                                                                    CONRED      1139     A     
 CONRED    GNC10    NZ     B3,GNC20    IF 2ND STRING NOT EXHAUSTED                         CONRED      1140     A     
 CONRED             =B3    B3+1        GUARANTEES B3 STAYS ZERO                            CONRED      1141     A     
 CONRED             SA2    =10H            SUPPLY BLANKS FROM NOW ON                       CONRED      1142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED      1143     A     
 CONRED    GNC20    BX3    X0*X1       ISOLATE CHARACTER FROM 1ST STRING                   CONRED      1144     A     
 CONRED             RJ     DTA         DPC TO ASCII                                        CONRED      1145     A     
 CONRED             BX4    X3          PRESERVES ABOVE CONVERSION                          CONRED      1146     A     
 CONRED             BX3    X0*X2       ISOLATE CHARACTER FROM 2ND STRING                   CONRED      1147     A     
 CONRED             RJ     DTA         DPC TO ASCII                                        CONRED      1148     A     
 CONRED             LX1    CHAR                                                            CONRED      1149     A     
 CONRED             LX2    CHAR                                                            CONRED      1150     A     
 CONRED             =B2    B2-1                                                            CONRED      1151     A     
 CONRED             =B3    B3-1                                                            CONRED      1152     A     
 CONRED             =B7    B7-1                                                            CONRED      1153     A     
 CONRED             NZ     B7,EXIT.    IF NEXT WORD NOT REQUIRED                           CONRED      1154     A     
 CONRED             =A1    A1+1                                                            CONRED      1155     A     
 CONRED             =A2    A2+1                                                            CONRED      1156     A     
 CONRED             EQ     EXIT.                                                           CONRED      1157     A     
 CONRED    LCH      SPACE  4,10                                                            CONRED      1158     A     
 CONRED   **        LCH - LOAD VALUE OF CONSTANT.                                          CONRED      1159     A     
 CONRED   *                                                                                CONRED      1160     A     
 CONRED   *         ENTRY  (X1) = OPERAND FOR PROPOSED CONSTANT.                           CONRED      1161     A     
 CONRED   *                                                                                CONRED      1162     A     
 CONRED   *         EXIT   (X0) = MODE OF OPERAND.                                         CONRED      1163     A     
 CONRED   *                (B2, X3, X6, X7) = SEE BELOW.                                   CONRED      1164     A     
 CONRED   *                                                                                CONRED      1165     A     
 CONRED   *         IF OPERAND NOT CONSTANT --                                             CONRED      1166     A     
 CONRED   *                (B2) = 0                                                        CONRED      1167     A     
 CONRED   *                                                                                CONRED      1168     A     
 CONRED   *         IF CHARACTER CONSTANT --                                               CONRED      1169     A     
 CONRED   *                (B2) = -2                                                       CONRED      1170     A     
 CONRED   *                (X6) = WORD INDEX OF VALUE (IN T.CON).                          CONRED      1171     A     
 CONRED   *                (X7) = CONSTANT LENGTH (CHARS).                                 CONRED      1172     A     
 CONRED   *                                                                                CONRED      1173     A     
 CONRED   *         IF LONG CONSTANT (IN T.CON) --                                         CONRED      1174     A     
 CONRED   *                (B2) = -1                                                       CONRED      1175     A     
 CONRED   *                (X3) = WORD INDEX OF VALUE IN (T.CON).                          CONRED      1176     A     
 CONRED   *                (X6) = UPPER HALF OF VALUE.                                     CONRED      1177     A     
 CONRED   *                (X7) = LOWER HALF.                                              CONRED      1178     A     
 CONRED   *                                                                                CONRED      1179     A     
 CONRED   *         IF SHORT CONSTANT RESULT --                                            CONRED      1180     A     
 CONRED   *                (B2) = +1                                                       CONRED      1181     A     
 CONRED   *                (X6) = VALUE.                                                   CONRED      1182     A     
 CONRED   *                                                                                CONRED      1183     A     
 CONRED   *                                                                                CONRED      1184     A     
 CONRED   *         USES   A1-3,6.   X0-3,6-7.  B2,7.                                      CONRED      1185     A     
 CONRED   *         CALLS  LCT.                                                            CONRED      1186     A     
 CONRED                                                                                    CONRED      1187     A     
 CONRED                                                                                    CONRED      1188     A     
 CONRED    LCH      SUBR   =           ENTRY/EXIT...                                       CONRED      1189     A     
 CONRED             MX0    -TP.MODEL                                                       CONRED      1190     A     
 CONRED             BX6    X1                                                              CONRED      1191     A     
 CONRED             SB2    B0          PRESET RESULT = NOT CONSTANT                        CONRED      1192     A     
 CONRED             LX1    -TP.MODEP                                                       CONRED      1193     A     
 CONRED             BX0    -X0*X1      (X0) = MODE OF OPERAND                              CONRED      1194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             HX6    TP.BIAS                                                         CONRED      1195     A     
 CONRED             =B7    X0-M.CHAR                                                       CONRED      1196     A     
 CONRED             LX1    TP.MODEP-TP.ORDP                                                CONRED      1197     A     
 CONRED             AX6    -TP.BIASL   RETURN (X6) = INDEX INTO CON TABLE                  CONRED      1198     A     
 CONRED             MX7    -TP.ORDL                                                        CONRED      1199     A     
 CONRED             BX7    -X7*X1      (X7) = (TP.ORD)                                     CONRED      1200     A     
 CONRED             LX1    TP.ORDP-1-TP.INTRP                                              CONRED      1201     A     
 CONRED             NZ     B7,LCH6     IF OPERAND MODE NOT CHARACTER                       CONRED      1202     A     
 CONRED                                                                                    CONRED      1203     A     
 CONRED   *         WHEN RESULT IS CHARACTER, IT SHOULD BE AN INTERMEDIATE WHICH           CONRED      1204     A     
 CONRED   *         POINTS TO A SUBSTRING TURPLE.                                          CONRED      1205     A     
 CONRED                                                                                    CONRED      1206     A     
 CONRED             PL     X1,LCH4     IF OPERAND NOT INTERMEDIATE                         CONRED      1207     A     
 CONRED                                                                                    CONRED      1208     A     
 CONRED    .T       IFEQ   TEST,ON                                                         CONRED      1209     A     
 CONRED             NZ     X6,"BLOWUP" IF BIAS NOT ZERO                                    CONRED      1210     A     
 CONRED             MI     X6,"BLOWUP"                                                     CONRED      1211     A     
 CONRED             SA2    T=PAR                                                           CONRED      1212     A     
 CONRED             IX6    X7-X2                                                           CONRED      1213     A     
 CONRED             PL     X6,"BLOWUP" IF INTERMEDIATE TOO BIG                             CONRED      1214     A     
 CONRED    .T       ENDIF                                                                  CONRED      1215     A     
 CONRED                                                                                    CONRED      1216     A     
 CONRED             SA2    T.PAR                                                           CONRED      1217     A     
 CONRED             =B7    X2+OR.OPR                                                       CONRED      1218     A     
 CONRED             SA3    X7+B7       FETCH OPERATOR WORD OF TURPLE                       CONRED      1219     A     
 CONRED             MX0    -TH.SKELL                                                       CONRED      1220     A     
 CONRED             LX3    -TH.SKELP                                                       CONRED      1221     A     
 CONRED             BX6    -X0*X3      (X6) = OPERATOR                                     CONRED      1222     A     
 CONRED             SX7    V=SUBST                                                         CONRED      1223     A     
 CONRED             IX6    X6-X7                                                           CONRED      1224     A     
 CONRED             NZ     X6,LCH4     IF NOT SUBSTRING TURPLE                             CONRED      1225     A     
 CONRED                                                                                    CONRED      1226          I
          -FC50201
 CONRED             =A3    A3-OR.OPR+OR.1OP                                                CONRED      1227     A     
 CONRED             MX7    -TP.ORDL                                                        CONRED      1228     A     
 CONRED             SA1    S=CON                                                           CONRED      1229     A     
 CONRED             LX3    -TP.ORDP                                                        CONRED      1230     A     
 CONRED             BX6    -X7*X3                                                          CONRED      1231     A     
 CONRED             IX3    X6-X1                                                           CONRED      1232     A     
 CONRED             NZ     X3,LCH4     IF NOT SUBSTRING OF CONSTANT                        CONRED      1233     A     
 CONRED             LX3    TP.ORDP-1-TP.INTRP                                              FC50172        6     A     
 CONRED             MI     X3,LCH4     IF ARRAY INTERMEDIATE                               FC50172        7     A     
 CONRED             =A3    A3-OR.1OP+OR.2OP                                                CONRED      1234     A     
 CONRED             LX3    -TP.ORDP                                                        CONRED      1235     A     
 CONRED             BX2    -X7*X3      (X2) = (2OP.ORD) OF SUBSTRING                       CONRED      1236     A     
 CONRED                                                                                    CONRED      1237     A     
 CONRED    .T       IFEQ   TEST,ON                                                         CONRED      1238     A     
 CONRED             LX3    TP.ORDP-1-TP.INTRP                                              CONRED      1239     A     
 CONRED             PL     X3,"BLOWUP" IF (2OP) NOT FURTHER INTERMEDIATE                   CONRED      1240     A     
 CONRED             SA1    X2+B7                                                           CONRED      1241     A     
 CONRED             SX7    V=COLON                                                         CONRED      1242     A     
 CONRED             LX1    -TH.SKELP                                                       CONRED      1243     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             MX0    -TH.SKELL                                                       CONRED      1244     A     
 CONRED             BX0    -X0*X1                                                          CONRED      1245     A     
 CONRED             IX6    X0-X7                                                           CONRED      1246     A     
 CONRED   *         IF COLON-INTR-ORD(X2) .GE. SUBST-INTR-ORD THEN BLOWUP.                 CONRED      1247     A     
 CONRED    .T       ENDIF                                                                  CONRED      1248     A     
 CONRED                                                                                    CONRED      1249     A     
 CONRED             =B7    B7-OR.OPR+OR.1OP                                                CONRED      1250     A     
 CONRED             SA1    X2+B7       FETCH SUBSTRING FIRST                               CONRED      1251     A     
 CONRED             =A3    A1-OR.1OP+OR.2OP                                                CONRED      1252     A     
 CONRED             RJ     LCT         LOAD VALUE                                          CONRED      1253     A     
 CONRED    .T       IFEQ   TEST,ON,1                                                       CONRED      1254     A     
 CONRED             NE     B2,B1,"BLOWUP"  IF NOT SHORT CONSTANT                           CONRED      1255     A     
 CONRED             BX1    X3                                                              CONRED      1256     A     
 CONRED             SX3    X6-1        (X3) = FIRST CHAR POSITION                          CONRED      1257     A     
 CONRED             RJ     LCT         LOAD VALUE OF SUBSTRING-LAST                        CONRED      1258     A     
 CONRED    .T       IFEQ   TEST,ON,1                                                       CONRED      1259     A     
 CONRED             NE     B2,B1,"BLOWUP"  IF NOT SHORT CONSTANT                           CONRED      1260     A     
 CONRED             IX7    X6-X3       CONLEN = LAST - (FIRST - 1)                         CONRED      1261     A     
 CONRED             CW     X1,X3       CFWA = (FIRST - 1) / 10                             CONRED      1262     A     
 CONRED             SB2    -2          INDICATE CHARACTER CONSTANT                         CONRED      1263     A     
 CONRED             BX6    X1                                                              CONRED      1264     A     
 CONRED                                                                                    FC50201        6     A     
 CONRED    LCH4     =X0    M.CHAR                                                          CONRED      1265     A     
 CONRED             EQ     EXIT.                                                           CONRED      1266     A     
 CONRED                                                                                    CONRED      1267     A     
 CONRED   *         RESULT IS NON-CHARACTER.                                               CONRED      1268     A     
 CONRED                                                                                    CONRED      1269     A     
 CONRED    LCH6     SA2    S=CON                                                           CONRED      1270     A     
 CONRED             SX0    B7+M.CHAR                                                       CONRED      1271     A     
 CONRED             MI     X1,EXIT.    IF RESULT IS INTERMEDIATE                           CONRED      1272     A     
 CONRED             LX1    TP.INTRP-TP.SHRTP                                               CONRED      1273     A     
 CONRED             IX2    X7-X2                                                           CONRED      1274     A     
 CONRED             MI     X1,LCH8     IF SHORT CONSTANT                                   CONRED      1275     A     
 CONRED             NZ     X2,EXIT.    IF NOT CONSTANT                                     CONRED      1276     A     
 CONRED             SA1    T.CON                                                           CONRED      1277     A     
 CONRED             IX7    X1+X6                                                           CONRED      1278     A     
 CONRED             SA2    X7+B1       LOAD CONSTANT                                       CONRED      1279     A     
 CONRED             BX3    X6          RETURN (X3) = INDEX INTO (T.CON)                    CONRED      1280     A     
 CONRED             SA1    X7                                                              CONRED      1281     A     
 CONRED             SB2    -B1         INDICATE CONSTANT IN (T.CON)                        CONRED      1282     A     
 CONRED             BX7    X2                                                              CONRED      1283     A     
 CONRED             LX6    X1                                                              CONRED      1284     A     
 CONRED             EQ     EXIT.                                                           CONRED      1285     A     
 CONRED                                                                                    CONRED      1286     A     
 CONRED    LCH8     SB2    B1                                                              CONRED      1287     A     
 CONRED    .T       IFEQ   TEST,ON,1                                                       CONRED      1288     A     
 CONRED             NZ     X7,"BLOWUP" IF SHORT CON WITH ORDINAL                           CONRED      1289     A     
 CONRED             EQ     EXIT.                                                           CONRED      1290     A     
 CONRED    LCT      SPACE  4,10                                                            CONRED      1291     A     
 CONRED   **        LCT -  LOAD BINARY OF CONSTANT.                                        CONRED      1292     A     
 CONRED   *                                                                                CONRED      1293     A     
 CONRED   *         ENTRY  (X1) = OPERAND FOR PROPOSED CONSTANT.                           CONRED      1294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                                                                                CONRED      1295     A     
 CONRED   *         EXIT   (X0) = MODE OF OPERAND.                                         CONRED      1296     A     
 CONRED   *                (B2, X6, X7) = SEE BELOW.                                       CONRED      1297     A     
 CONRED   *                                                                                CONRED      1298     A     
 CONRED   *         IF OPERAND NOT CONSTANT --                                             CONRED      1299     A     
 CONRED   *                (B2) = 0                                                        CONRED      1300     A     
 CONRED   *                (X6) = 0                                                        CONRED      1301     A     
 CONRED   *                                                                                CONRED      1302     A     
 CONRED   *         IF LONG CONSTANT (IN T.CON) --                                         CONRED      1303     A     
 CONRED   *                (B2) = -1                                                       CONRED      1304     A     
 CONRED   *                (X6) = UPPER HALF OF VALUE.                                     CONRED      1305     A     
 CONRED   *                (X7) = LOWER HALF.                                              CONRED      1306     A     
 CONRED   *                (X1=X6, X2=X7, TRUE IF LONG BIT SET)                            CONRED      1307     A     
 CONRED   *                                                                                CONRED      1308     A     
 CONRED   *         IF SHORT CONSTANT --                                                   CONRED      1309     A     
 CONRED   *                (B2) = +1                                                       CONRED      1310     A     
 CONRED   *                (X6) = VALUE.                                                   CONRED      1311     A     
 CONRED   *                                                                                CONRED      1312     A     
 CONRED   *                USES        A1-2   X0-2,6-7   B2,7.                             CONRED      1313     A     
 CONRED                                                                                    CONRED      1314     A     
 CONRED                                                                                    CONRED      1315     A     
 CONRED    LCT      SUBR   =           ENTRY/EXIT...                                       CONRED      1316     A     
 CONRED             BX6    0                                                               CONRED      1317     A     
 CONRED             SB2    B0          INDICATE NOT CONSTANT                               CONRED      1318     A     
 CONRED             MX0    -TP.MODEL                                                       CONRED      1319     A     
 CONRED             BX0    -X0*X1      EXTRACT MODE                                        CONRED      1320     A     
 CONRED             SB7    X0-M.CHAR                                                       CONRED      1321     A     
 CONRED             ZR     B7,EXIT.    IF CHARACTER OPERAND                                CONRED      1322     A     
 CONRED             BX2    X1                                                              CONRED      1323     A     
 CONRED             SBIT   X2,TP.INTRP                                                     CONRED      1324     A     
 CONRED             MI     X2,EXIT.    IF INTERMEDIATE                                     CONRED      1325     A     
 CONRED             SBIT   X2,TP.SHRTP/TP.INTRP                                            CONRED      1326     A     
 CONRED             MI     X2,LCT1     IF SHORT CONSTANT                                   CONRED      1327     A     
 CONRED             LX7    X1                                                              CONRED      1328     A     
 CONRED             HX7    TP.ORD      LEFT ADJUST                                         CONRED      1329     A     
 CONRED             AX7    -TP.ORDL    ISOLATE SIGN EXTENDED ORD FIELD                     CONRED      1330     A     
 CONRED             BX6    0           =0, NO CONSTANT                                     CONRED      1331     A     
 CONRED             SA2    S=CON                                                           CONRED      1332     A     
 CONRED             IX2    X7-X2                                                           CONRED      1333     A     
 CONRED             NZ     X2,EXIT.    IF NOT *CONSTANT*                                   CONRED      1334     A     
 CONRED             SA2    T.CON                                                           CONRED      1335     A     
 CONRED             HX1    -TP.BIAS    LEFT ADJUST                                         CONRED      1336     A     
 CONRED             AX1    -TP.BIASL   ISOLATE SIGN EXTENDED BIAS                          CONRED      1337     A     
 CONRED             IX2    X1+X2                                                           CONRED      1338     A     
 CONRED             SA1    X2          LOAD CONSTANT (1ST WORD)                            CONRED      1339     A     
 CONRED             =A2    A1+1        LOAD CONSTANT (2ND WORD)                            CONRED      1340     A     
 CONRED             =B2    -1          INDICATE NOT SHORT CONSTANT                         CONRED      1341     A     
 CONRED             BX6    X1          1ST WORD                                            CONRED      1342     A     
 CONRED             LX7    X2          2ND WORD                                            CONRED      1343     A     
 CONRED             EQ     EXIT.                                                           CONRED      1344     A     
 CONRED                                                                                    CONRED      1345     A     
 CONRED    LCT1     HX1    TP.BIAS                                                         CONRED      1346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             AX1    -TP.BIASL   SHIFT TO LOW WITH SIGN EXTEND                       CONRED      1347     A     
 CONRED             =B2    1           INDICATE SHORT CONSTANT                             CONRED      1348     A     
 CONRED             BX6    X1                                                              CONRED      1349     A     
 CONRED             EQ     EXIT.                                                           CONRED      1350     A     
 CONRED    LIR      SPACE  4,10                                                            CONRED      1351     A     
 CONRED   **        LIR - LOAD INTEGER OF REAL.                                            CONRED      1352     A     
 CONRED   *                                                                                CONRED      1353     A     
 CONRED   *         ENTRY  (X2) = FLOATING POINT VALUE.                                    CONRED      1354     A     
 CONRED   *                                                                                CONRED      1355     A     
 CONRED   *         EXIT   IF VALUE IS AN EXACT INTEGER --                                 CONRED      1356     A     
 CONRED   *                (X6) .ZR.                                                       CONRED      1357     A     
 CONRED   *                (X2) = IFIX (VALUE).                                            CONRED      1358     A     
 CONRED   *                (X7) = OPERAND FOR IFIX (VALUE).                                CONRED      1359     A     
 CONRED   *                                                                                CONRED      1360     A     
 CONRED   *         ELSE   (X6) .NZ. = VALUE IS NOT EXACT INTEGER.                         CONRED      1361     A     
 CONRED   *                (X2) PRESERVED.                                                 CONRED      1362     A     
 CONRED   *                                                                                CONRED      1363     A     
 CONRED   *         USES   ---                                                             CONRED      1364     A     
 CONRED   *         CALLS  NCS.                                                            CONRED      1365     A     
 CONRED                                                                                    CONRED      1366     A     
 CONRED                                                                                    CONRED      1367     A     
 CONRED    LIR10    =X6    1                                                               CONRED      1368     A     
 CONRED                                                                                    CONRED      1369     A     
 CONRED    LIR      SUBR   =           ENTRY/EXIT...                                       CONRED      1370     A     
 CONRED             UX0,B2 X2                                                              CONRED      1371     A     
 CONRED             LX6    B2,X0                                                           CONRED      1372     A     
 CONRED             PX7    X6                                                              CONRED      1373     A     
 CONRED             NX7                                                                    CONRED      1374     A     
 CONRED             IX0    X7-X2                                                           CONRED      1375     A     
 CONRED             NZ     X0,LIR10    IF NOT EXACT INTEGER                                CONRED      1376     A     
 CONRED                                                                                    CONRED      1377     A     
 CONRED             =X7    M.INT                                                           CONRED      1378     A     
 CONRED             SA6    LVEC                                                            CONRED      1379     A     
 CONRED             RJ     NCS         CREATE OPERAND                                      CONRED      1380     A     
 CONRED             SA2    LVEC                                                            CONRED      1381     A     
 CONRED             BX7    X6                                                              CONRED      1382     A     
 CONRED             MX6    0                                                               CONRED      1383     A     
 CONRED             EQ     EXIT.                                                           CONRED      1384     A     
 CONRED    NBC      SPACE  4,10                                                            CONRED      1385     A     
 CONRED   **        NBC -  ENTER BINARY CONSTANT.                                          CONRED      1386     A     
 CONRED   *                                                                                CONRED      1387     A     
 CONRED   *         ENTRY  (X1) = MODE OF CONSTANT.                                        CONRED      1388     A     
 CONRED   *                (X6) = UPPER HALF OF CONSTANT.                                  CONRED      1389     A     
 CONRED   *                (X7) = LOWER HALF OF CONSTANT, IF DBL OR CPLX.                  CONRED      1390     A     
 CONRED   *                                                                                CONRED      1391     A     
 CONRED   *         EXIT   (X6) = OPERAND REPRESENTING CONSTANT.                           CONRED      1392     A     
 CONRED   *                                                                                CONRED      1393     A     
 CONRED   *         USES   ALL BUT  A0,A5  X5  B4,B5,B6.                                   CONRED      1394     A     
 CONRED   *         CALLS  NCM, NCS.                                                       CONRED      1395     A     
 CONRED                                                                                    CONRED      1396     A     
 CONRED                                                                                    CONRED      1397     A     
 CONRED    NBC      SUBR   =           ENTRY/EXIT...                                       CONRED      1398     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             =B2    X1-M.DBL                                                        CONRED      1399     A     
 CONRED             PL     B2,NBC4     IF MULTI-WORD CONSTANT                              CONRED      1400     A     
 CONRED             ERRMI  M.CPLX-M.DBL                                                    CONRED      1401     A     
 CONRED             ERRMI  M.CHAR-M.DBL                                                    CONRED      1402     A     
 CONRED                                                                                    CONRED      1403     A     
 CONRED             SX7    X1                                                              CONRED      1404     A     
 CONRED             CALL   NCS         ENTER SINGLE-WORD CONSTANT                          CONRED      1405     A     
 CONRED             EQ     EXIT.                                                           CONRED      1406     A     
 CONRED                                                                                    CONRED      1407     A     
 CONRED   *         HERE IF DOUBLE WORD CONSTANT                                           CONRED      1408     A     
 CONRED                                                                                    CONRED      1409     A     
 CONRED    NBC4     SA6    NBCA        SAVE (NBCA+0, +1) = CONSTANT VALUE                  CONRED      1410     A     
 CONRED             SB7    B0          (B7) = ADD IF NOT FOUND                             CONRED      1411     A     
 CONRED             SA7    A6+B1                                                           CONRED      1412     A     
 CONRED    .TEST    IFEQ   TEST,ON                                                         CONRED      1413     A     
 CONRED             SB2    X1-M.CHAR                                                       CONRED      1414     A     
 CONRED             ZR     B2,"BLOWUP"       IF TYPE CHARACTER -- NFG                      CONRED      1415     A     
 CONRED    .TEST    ENDIF                                                                  CONRED      1416     A     
 CONRED             SB2    A6          (B2) = FWA VALUE                                    CONRED      1417     A     
 CONRED             BX6    X1                                                              CONRED      1418     A     
 CONRED             =A6    A7+1        REMEMBER (NBCA+2) = MODE OF CONSTANT                CONRED      1419     A     
 CONRED             SA1    T.CON                                                           CONRED      1420     A     
 CONRED             SB3    B2+2        (B3) = LWA+1 OF VALUE                               CONRED      1421     A     
 CONRED             CALL   NCM         ENTER CONSTANT MULTIPLE                             CONRED      1422     A     
 CONRED             SA1    S=CON                                                           CONRED      1423     A     
 CONRED             SX6    B7                                                              CONRED      1424     A     
 CONRED             LX1    TP.ORDP                                                         CONRED      1425     A     
 CONRED             LX6    TP.BIASP    ACTUAL CONSTANT ORDINAL IN BIAS                     CONRED      1426     A     
 CONRED             SA3    NBCA+2                                                          CONRED      1427     A     
 CONRED             BX2    X1+X6                                                           CONRED      1428     A     
 CONRED             LX3    TP.MODEP                                                        CONRED      1429     A     
 CONRED             BX6    X2+X3       OPERAND = SYMORD(CON.) + BIAS + MODE                CONRED      1430     A     
 CONRED             EQ     EXIT.                                                           CONRED      1431     A     
 CONRED                                                                                    CONRED      1432     A     
 CONRED    NBCA     BSS    2           CONSTANT VALUE                                      CONRED      1433     A     
 CONRED             BSS    1           CONSTANT MODE                                       CONRED      1434     A     
 CONRED    NCS      SPACE  4,20                                                            CONRED      1435     A     
 CONRED   **        NCS -  SCAN / ENTER SINGLE WORD CONSTANT INTO CONSTANT TABLE.          CONRED      1436     A     
 CONRED   *                                                                                CONRED      1437     A     
 CONRED   *         CONSTANT TABLE IS SCANNED TO CHECK IF CONSTANT IS ALREADY IN           CONRED      1438     A     
 CONRED   *         TABLE.  IF SO, ADDS IN REQUESTED MODE BITS AND EXITS.                  CONRED      1439     A     
 CONRED   *                                                                                CONRED      1440     A     
 CONRED   *         ENTRY  (X6) = CONSTANT VALUE TO ENTERED.                               CONRED      1441     A     
 CONRED   *                (X7) = MODE OF CONSTANT.                                        CONRED      1442     A     
 CONRED   *                                                                                CONRED      1443     A     
 CONRED   *         EXIT   (X6) = *TP* ORDINAL FORM OF CONSTANT.                           CONRED      1444     A     
 CONRED   *                       BIAS FIELD CONTAINS SHORT CONSTANT.                      CONRED      1445     A     
 CONRED   *                                                                                CONRED      1446     A     
 CONRED   *         USES   A1-3,6-7   X0-3,6-7   B2-3,7.                                   CONRED      1447     A     
 CONRED   *                                                                                CONRED      1448     A     
 CONRED   *         CALLS  ADW,SCT                                                         CONRED      1449     A     
 CONRED                                                                                    CONRED      1450     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED      1451     A     
 CONRED    NCS      SUBR   =           ENTRY/EXIT...                                       CONRED      1452     A     
 CONRED    .T       IFEQ   TEST,ON                                                         CONRED      1453     A     
 CONRED             SB2    X7-M.DBL                                                        CONRED      1454     A     
 CONRED             PL     B2,"BLOWUP" IF DOUBLE OR COMPLEX OR CHARACTER                   CONRED      1455     A     
 CONRED             ERRMI  M.CHAR-M.DBL                                                    CONRED      1456     A     
 CONRED    .T       ENDIF                                                                  CONRED      1457     A     
 CONRED             BX2    X6                                                              CONRED      1458     A     
 CONRED             AX2    TP.SHRTB-1                                                      CONRED      1459     A     
 CONRED             NZ     X2,NCS10    IF UPPER BITS NOT ALL SAME                          CONRED      1460     A     
 CONRED             MX0    -TP.BIASL                                                       CONRED      1461     A     
 CONRED             BX6    -X0*X6                                                          CONRED      1462     A     
 CONRED             LX6    TP.BIASP    SHORT CONSTANT TO BIAS FIELD                        CONRED      1463     A     
 CONRED             CLAS=  X1,TP,(SHRT)                                                    CONRED      1464     A     
 CONRED             BX2    X6+X7       MERGE MODE                                          CONRED      1465     A     
 CONRED             IX6    X2+X1                                                           CONRED      1466     A     
 CONRED             EQ     EXIT.                                                           CONRED      1467     A     
 CONRED                                                                                    CONRED      1468     A     
 CONRED    NCS10    LX7    TP.MODEP                                                        CONRED      1469     A     
 CONRED             SA7    NCSA        SAVE MODE                                           CONRED      1470     A     
 CONRED             SCAN   T.CON,SCT   SCAN CONSTANT TABLE                                 CONRED      1471     A     
 CONRED             SX3    B7                                                              CONRED      1472     A     
 CONRED             PL     B7,NCS20    IF CONSTANT IN TABLE                                CONRED      1473     A     
 CONRED             ADDWD  A1          ENTER CONSTANT                                      CONRED      1474     A     
 CONRED             =X3    X2-1                                                            CONRED      1475     A     
 CONRED    NCS20    SA1    S=CON                                                           CONRED      1476     A     
 CONRED             SA2    NCSA                                                            CONRED      1477     A     
 CONRED             LX1    TP.ORDP                                                         CONRED      1478     A     
 CONRED             BX6    X1+X2       CON. SYMBOL ORDINAL                                 CONRED      1479     A     
 CONRED             LX3    TP.BIASP                                                        CONRED      1480     A     
 CONRED             BX6    X3+X6       ACTUAL CONSTANT ORDINAL IN BIAS                     CONRED      1481     A     
 CONRED             EQ     EXIT.                                                           CONRED      1482     A     
 CONRED                                                                                    CONRED      1483     A     
 CONRED    NCSA     EQU    NBCA        MODE OF CONSTANT                                    CONRED      1484     A     
 CONRED    SED      TITLE  DATA STATEMENT INTERPRETER                                      CONRED      1485     A     
 CONRED    SED      EJECT                                                                  CONRED      1486     A     
 CONRED   **        SED - SIMULATE EXECUTION OF DATA STATEMENT TURPLES.                    CONRED      1487     A     
 CONRED   *         CALLED BY *DATA* AFTER PARSING OF DATA STATEMENT VARIABLE LIST         CONRED      1488     A     
 CONRED   *         *SED* INTERPRETIVELY SCANS PARSE OUTPUT IN T.DAR AND                   CONRED      1489     A     
 CONRED   *         CALLS *EDI* FOR EACH ITEM.                                             CONRED      1490     A     
 CONRED    DV.      SPACE  4,8                                                             CONRED      1491     A     
 CONRED             DESCRIBE DV.,60    DATA VARIABLE VALUE TABLE (T.DVV)                   CONRED      1492     A     
 CONRED    VAL      DEFINE 24          CURRENT VALUE OF VARIABLE                           CONRED      1493     A     
 CONRED             DEFINE 18                                                              CONRED      1494     A     
 CONRED    PNT      DEFINE 18          INDEX TO WORD C OF SYMTAB ENTRY                     CONRED      1495     A     
 CONRED             SPACE  4,8                                                             CONRED      1496     A     
 CONRED    HEREFOR  MACRO  SKEL                                                            CONRED      1497     A     
 CONRED             IRP    SKEL                                                            CONRED      1498     A     
 CONRED    D=SKEL   BSSENT 0                                                               CONRED      1499     A     
 CONRED             IRP                                                                    CONRED      1500     A     
 CONRED    HEREFOR  ENDM                                                                   CONRED      1501     A     
 CONRED    SED      SPACE  4,8                                                             CONRED      1502     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    SED      SUBR   =                                                               CONRED      1503     A     
 CONRED             SX6    0                                                               CONRED      1504     A     
 CONRED             SA6    SED.ERR                                                         CONRED      1505     A     
 CONRED             SA6    SEDTURP     I=0                                                 CONRED      1506     A     
 CONRED             SHRINK T=DVV,0                                                         CONRED      1507     A     
 CONRED                                                                                    CONRED      1508     A     
 CONRED             HEREFOR (NOOP,ARY,SUBST,COLON,BSS,DOBD2)                               CONRED      1509     A     
 CONRED    SED.RTN  BSS    0                                                               CONRED      1510     A     
 CONRED                                                                                    CONRED      1511     A     
 CONRED             SA1    SEDTURP                                                         CONRED      1512     A     
 CONRED             SA2    T=DAR                                                           CONRED      1513     A     
 CONRED             SX6    X1+3        I = I + 1                                           CONRED      1514     A     
 CONRED             IX0    X2-X6                                                           CONRED      1515     A     
 CONRED             MI     X0,SED.END  IF I = (T=DAR)                                      CONRED      1516     A     
 CONRED             SA2    T.DAR                                                           CONRED      1517     A     
 CONRED             SA6    A1                                                              CONRED      1518     A     
 CONRED             =B3    X2+OR.1OP                                                       CONRED      1519     A     
 CONRED             IX0    X1+X2                                                           CONRED      1520     A     
 CONRED             =A1    X0+OR.OPR                                                       CONRED      1521     A     
 CONRED             SB5    X0                                                              CONRED      1522     A     
 CONRED             MX0    -TH.SKELL                                                       CONRED      1523     A     
 CONRED             LX1    -TH.SKELP                                                       CONRED      1524     A     
 CONRED             BX6    -X0*X1                                                          CONRED      1525     A     
 CONRED             SA4    F.SCT+X6    TURPLE CONTROL WORD FOR THIS TURPLE                 CONRED      1526     A     
 CONRED             LX4    -VS.CRAP                                                        CONRED      1527          I
          -FC5A132
 CONRED             SX7    X4          CONSTANT REDUCTION ADDRESS IN SKELS                 CONRED      1528          I
          -FC5A132
 CONRED             ERRNZ  VS.CRAL-18                                                      CONRED      1529          I
          -FC5A132
 CONRED             ZR     X7,SED10    IF NOT REDUCIBLE                                    CONRED      1530          I
          -FC5A132
 CONRED             LX4    -VS.DRAP                                                        FC5A132       89     A     
 CONRED             SB7    X4                                                              FC5A132       90     A     
 CONRED             ERRNZ  18-VS.DRAL                                                      FC5A132       91     A     
 CONRED             MI     B7,SED10    IF NO *HEREFOR*                                     FC5A132       92     A     
 CONRED             JP     B7          GO TO APPROPRIATE *HEREFOR*                         FC5A132       93     A     
 CONRED                                                                                    FC5A132       94     A     
 CONRED    SED10    LX4    VS.DRAP-VS.CRAP                                                 FC5A132       95     A     
 CONRED             SX7    X4                                                              FC5A132       96     A     
 CONRED             ERRNZ  18-VS.CRAL                                                      FC5A132       97     A     
 CONRED             ZR     X7,SED15    IF NOT REDUCIBLE, ERROR                             FC5A132       98     A     
 CONRED             =A4    A1+OR.1OP-OR.OPR                                                CONRED      1531     A     
 CONRED             =A5    A4+OR.2OP-OR.1OP                                                CONRED      1532     A     
 CONRED             RJ     CDR         CONSTANT-REDUCE TURPLE                              CONRED      1533     A     
 CONRED                                                                                    CONRED      1534     A     
 CONRED   *         STORE CONSTANT-VALUE IN TURPLE HEADER.                                 CONRED      1535     A     
 CONRED                                                                                    CONRED      1536     A     
 CONRED    SED.STO  MX0    -TH.DVALL                                                       CONRED      1537     A     
 CONRED             BX6    -X0*X6                                                          CONRED      1538     A     
 CONRED             SA1    SEDTURP                                                         CONRED      1539     A     
 CONRED             SA2    T.DAR                                                           CONRED      1540     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             IX7    X1+X2                                                           CONRED      1541     A     
 CONRED             =A1    X7-3+OR.OPR                                                     CONRED      1542     A     
 CONRED             LX1    -TH.DVALP                                                       CONRED      1543     A     
 CONRED             BX1    X0*X1       CLEAR DVAL                                          CONRED      1544     A     
 CONRED             BX7    X6+X1       INSERT VALUE                                        CONRED      1545     A     
 CONRED             LX7    TH.DVALP                                                        CONRED      1546     A     
 CONRED             CLAS=  X1,TH,(DDEF)                                                    FC5A111       85     A     
 CONRED             BX7    X7+X1       INDICATE DATA DEFINED                               FC5A111       86     A     
 CONRED             SA7    A1                                                              CONRED      1547     A     
 CONRED             EQ     SED.RTN                                                         CONRED      1548     A     
 CONRED                                                                                    CONRED      1549     A     
 CONRED   *         NON-REDUCIBLE TURPLE MUST HAVE DATA-REDUCTION ADDRESS.                 CONRED      1550          I
          -FC5A132
 CONRED                                                                                    CONRED      1551          I
          -FC5A132
 CONRED    SED10    LX4    VS.CRAP-VS.DRAP                                                 CONRED      1552          I
          -FC5A132
 CONRED             SB7    X4                                                              CONRED      1553          I
          -FC5A132
 CONRED             JP     B7          TO APPROPRIATE *HEREFOR*                            CONRED      1554          I
          -FC5A111
 CONRED             MI     B7,SED15    IF NO *HEREFOR*                                     FC5A111       87          I
          -FC5A132
 CONRED             JP     B7          TO APPROPRIATE *HEREFOR*                            FC5A111       88          I
          -FC5A132
 CONRED                                                                                    FC5A111       89          I
          -FC5A132
 CONRED    SED15    SA0    E.DSE       ** SYNTAX ERROR IN DATA STATEMENT                   FC5A111       90     A     
 CONRED             =X0    1                                                               FC5A111       91     A     
 CONRED                                                                                    CONRED      1555     A     
 CONRED                                                                                    CONRED      1556     A     
 CONRED   *         ERROR IN INTERPRETIVE SCAN.  TERMINATE PROCESSING.                     CONRED      1557     A     
 CONRED                                                                                    CONRED      1558     A     
 CONRED    SED.ABT  SX6    1                                                               CONRED      1559     A     
 CONRED             SA6    SED.ERR                                                         CONRED      1560     A     
 CONRED                                                                                    CONRED      1561     A     
 CONRED   *         PLACE SYM[WA(X0)] IN FILL.                                             CONRED      1562     A     
 CONRED                                                                                    CONRED      1563     A     
 CONRED             SA1    T.SYM                                                           CONRED      1564     A     
 CONRED             LX6    B1,X0                                                           CONRED      1565     A     
 CONRED             IX7    X0+X6                                                           CONRED      1566     A     
 CONRED             =B6    X1+WA.W                                                         CONRED      1567     A     
 CONRED             SA1    B6+X7                                                           CONRED      1568     A     
 CONRED             HX1    WA.SYM                                                          CONRED      1569     A     
 CONRED             MX0    WA.SYML                                                         CONRED      1570     A     
 CONRED             BX6    X0*X1                                                           CONRED      1571     A     
 CONRED             SA6    FILL.                                                           CONRED      1572     A     
 CONRED             SB7    A0                                                              CONRED      1573     A     
 CONRED             FATAL  B7                                                              CONRED      1574     A     
 CONRED                                                                                    CONRED      1575     A     
 CONRED   *         END OF INTERPRETIVE SCAN.                                              CONRED      1576     A     
 CONRED                                                                                    CONRED      1577     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    SED.END  SA1    T=DVV                                                           CONRED      1578     A     
 CONRED             SA5    SED.ERR                                                         CONRED      1579     A     
 CONRED             SA2    T.DVV                                                           CONRED      1580     A     
 CONRED             SA3    T.SYM                                                           CONRED      1581     A     
 CONRED             MX0    WC.DVPL                                                         CONRED      1582     A     
 CONRED             SB5    X3                                                              CONRED      1583     A     
 CONRED             SB6    X1                                                              CONRED      1584     A     
 CONRED             LX0    WC.DVPL+WC.DVPP                                                 CONRED      1585     A     
 CONRED             SHRINK T=DVV,0                                                         CONRED      1586     A     
 CONRED                                                                                    CONRED      1587     A     
 CONRED   *         CLEAR WC.DVP OF ENTRIES USED.                                          CONRED      1588     A     
 CONRED                                                                                    CONRED      1589     A     
 CONRED    SED20    ZR     B6,EXIT.    IF T. EXHAUSTED                                     CONRED      1590     A     
 CONRED             =B6    B6-1                                                            CONRED      1591     A     
 CONRED             SA4    X2+B6                                                           CONRED      1592     A     
 CONRED             LX4    -DV.PNTP                                                        CONRED      1593     A     
 CONRED             SA1    B5+X4                                                           CONRED      1594     A     
 CONRED             ERRNZ  DV.PNTL-18                                                      CONRED      1595     A     
 CONRED             BX7    -X0*X1                                                          CONRED      1596     A     
 CONRED             SA7    A1                                                              CONRED      1597     A     
 CONRED             EQ     SED20                                                           CONRED      1598     A     
 CONRED                                                                                    CONRED      1599     A     
 CONRED    SEDTURP  BSS    1                                                               CONRED      1600     A     
 CONRED    SED.ERR  BSS    1           ERROR FLAG                                          CONRED      1601     A     
 CONRED    CDR      EJECT                                                                  CONRED      1602     A     
 CONRED   **        CDR - COMPUTE CONSTANT REDUCTION IN *SED*.                             CONRED      1603     A     
 CONRED   *                                                                                CONRED      1604     A     
 CONRED   *         ENTRY  (X4) = 1OP                                                      CONRED      1605     A     
 CONRED   *                (X5) = 2OP                                                      CONRED      1606     A     
 CONRED   *                (X7) = CONSTANT REDUCTION ADDRESS                               CONRED      1607     A     
 CONRED   *                                                                                CONRED      1608     A     
 CONRED   *         EXIT   (X6) = CONSTANT VALUE                                           CONRED      1609     A     
 CONRED                                                                                    CONRED      1610     A     
 CONRED    CDR      SUBR                                                                   CONRED      1611     A     
 CONRED             SA7    CCRA                                                            CONRED      1612     A     
 CONRED             BX1    X4                                                              CONRED      1613     A     
 CONRED             RJ     LCD         LOAD 1OP                                            CONRED      1614     A     
 CONRED             SA6    LVEC                                                            CONRED      1615     A     
 CONRED             BX1    X5                                                              CONRED      1616     A     
 CONRED             ZR     X5,CDR10    IF 2OP NIL                                          CONRED      1617     A     
 CONRED             RJ     LCD         LOAD 2OP                                            CONRED      1618     A     
 CONRED             SA6    LVEC+1                                                          CONRED      1619     A     
 CONRED                                                                                    CONRED      1620     A     
 CONRED    CDR10    SA3    CCRA                                                            CONRED      1621     A     
 CONRED             RJ     PCA         CONSTANT REDUCE TURPLE                              CONRED      1622          I
          -FC5A150
 CONRED             RJ     CTA         CONSTANT REDUCE TURPLE                              FC5A150      538     A     
 CONRED    .T       IFEQ   TEST,ON,1                                                       CONRED      1623     A     
 CONRED             ZR     X6,"BLOWUP" IF NOT REDUCIBLE                                    CONRED      1624     A     
 CONRED             BX1    X6                                                              CONRED      1625     A     
 CONRED             RJ     LCT         GET CONSTANT VALUE                                  CONRED      1626     A     
 CONRED             SA1    SEDTURP                                                         CONRED      1627     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SA2    T.DAR                                                           CONRED      1628     A     
 CONRED             IX0    X1+X2                                                           CONRED      1629     A     
 CONRED             SB5    X0-3        RESTORE TURPLE POINTER                              CONRED      1630     A     
 CONRED             EQ     EXIT.                                                           CONRED      1631     A     
 CONRED    LCD      SPACE  4,10                                                            CONRED      1632     A     
 CONRED   **        LCD - LOAD CONSTANT FOR *SED*.                                         CONRED      1633     A     
 CONRED   *         LCD LOADS A DATA INTERPRETATION CONSTANT VALUE, WHICH                  CONRED      1634     A     
 CONRED   *         MAY BE A CONSTANT OR THE CURRENT VALUE OF AN INTERPRETED               CONRED      1635     A     
 CONRED   *         TURPLE OR LOOP/INDEX VARIABLE.                                         CONRED      1636     A     
 CONRED                                                                                    CONRED      1637     A     
 CONRED    LCD      SUBR                                                                   CONRED      1638     A     
 CONRED             BX6    X1                                                              CONRED      1639     A     
 CONRED             SA6    LCDA                                                            CONRED      1640     A     
 CONRED             LX6    -TP.MODEP                                                       CONRED      1641     A     
 CONRED             MX0    -TP.MODEL                                                       CONRED      1642     A     
 CONRED             BX0    -X0*X6                                                          CONRED      1643     A     
 CONRED             SA0    E.DVR4      NOT INTEGER                                         CONRED      1644     A     
 CONRED             SB2    X0-M.INT                                                        CONRED      1645     A     
 CONRED             ZR     X0,LCD5     IF BOOLEAN                                          CONRED      1646     A     
 CONRED             ERRNZ  M.BOOL                                                          CONRED      1647     A     
 CONRED             NZ     B2,SED.ABT  OF NOT INTEGER                                      CONRED      1648     A     
 CONRED                                                                                    CONRED      1649     A     
 CONRED    LCD5     LX6    TP.MODEP-1-TP.INTRP                                             CONRED      1650     A     
 CONRED             MI     X6,LCD10    IF INTERMEDIATE                                     CONRED      1651     A     
 CONRED             RJ     LCT         TRY TO LOAD CONSTANT                                CONRED      1652     A     
 CONRED             NZ     B2,EXIT.    IF CONSTANT                                         CONRED      1653     A     
 CONRED                                                                                    CONRED      1654     A     
 CONRED   *         LOAD CURRENT VALUE OFLOOP/INDEX VARIABLE.                              CONRED      1655     A     
 CONRED                                                                                    CONRED      1656     A     
 CONRED             SA1    LCDA                                                            CONRED      1657     A     
 CONRED             SA2    T.SYM                                                           CONRED      1658     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1659     A     
 CONRED             LX1    -TP.ORDP                                                        CONRED      1660     A     
 CONRED             BX6    -X0*X1                                                          CONRED      1661     A     
 CONRED             SB7    X2+WC.W                                                         CONRED      1662     A     
 CONRED             LX7    B1,X6                                                           CONRED      1663     A     
 CONRED             IX0    X6+X7                                                           CONRED      1664     A     
 CONRED             SA2    X0+B7       WORD C OF VAR                                       CONRED      1665     A     
 CONRED             SA1    T.DVV                                                           CONRED      1666     A     
 CONRED             LX2    -WC.DVPP                                                        CONRED      1667     A     
 CONRED             SB2    X2-1                                                            CONRED      1668     A     
 CONRED             SA2    X1+B2                                                           CONRED      1669     A     
 CONRED             SX0    X6          ORD                                                 CONRED      1670     A     
 CONRED             SA0    E.DVR1      VARIABLE FILL. NOT DO INDEX                         CONRED      1671     A     
 CONRED             MI     B2,SED.ABT  IF NOT STORED INTO                                  CONRED      1672     A     
 CONRED             ERRNZ  WC.DVPL-18                                                      CONRED      1673     A     
 CONRED             HX2    DV.VAL                                                          CONRED      1674     A     
 CONRED             AX2    -DV.VALL                                                        CONRED      1675     A     
 CONRED             BX6    X2                                                              CONRED      1676     A     
 CONRED             EQ     EXIT.                                                           CONRED      1677     A     
 CONRED                                                                                    CONRED      1678     A     
 CONRED   *         GET VALUE OF INTERMEDIATE FROM TURPLE HEADER.                          CONRED      1679     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED      1680     A     
 CONRED    LCD10    LX1    -TP.ORDP                                                        CONRED      1681     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1682     A     
 CONRED             SA2    T.DAR                                                           CONRED      1683     A     
 CONRED             BX6    -X0*X1                                                          CONRED      1684     A     
 CONRED             =B2    X2+OR.OPR                                                       CONRED      1685     A     
 CONRED             SA1    B2+X6                                                           CONRED      1686     A     
 CONRED             CLAS=  X2,TH,(DDEF)                                                    FC5A111       92     A     
 CONRED             BX2    X2*X1                                                           FC5A111       93     A     
 CONRED             SA0    E.DSE                                                           FC5A111       94     A     
 CONRED             =X0    1                                                               FC5A111       95     A     
 CONRED             ZR     X2,SED.ABT  IF NOT YET DEFINED                                  FC5A111       96     A     
 CONRED             HX1    TH.DVAL                                                         CONRED      1687     A     
 CONRED             AX1    -TH.DVALL                                                       CONRED      1688     A     
 CONRED             BX6    X1                                                              CONRED      1689     A     
 CONRED             EQ     EXIT.                                                           CONRED      1690     A     
 CONRED                                                                                    CONRED      1691     A     
 CONRED    LCDA     BSS    1                                                               CONRED      1692     A     
 CONRED    DVI      EJECT                                                                  CONRED      1693     A     
 CONRED             HEREFOR DVI                                                            CONRED      1694     A     
 CONRED             =A2    B5+OR.1OP                                                       CONRED      1695     A     
 CONRED             BX1    X2                                                              CONRED      1696     A     
 CONRED             HX2    TP.INTR                                                         CONRED      1697     A     
 CONRED             PL     X2,DVI10    IF NOT INTERMEDIATE                                 CONRED      1698     A     
 CONRED             LX2    TP.INTRP-TP.ARYP                                                CONRED      1699     A     
 CONRED             MI     X2,DVI10    IF ARRAY                                            CONRED      1700     A     
 CONRED                                                                                    CONRED      1701     A     
 CONRED   *         PROCESS SUBSTRING.                                                     CONRED      1702     A     
 CONRED                                                                                    CONRED      1703     A     
 CONRED             LX1    -TP.ORDP                                                        CONRED      1704     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1705     A     
 CONRED             BX6    -X0*X1                                                          CONRED      1706     A     
 CONRED             SA1    B3+X6       1OP                                                 CONRED      1707     A     
 CONRED             SA6    DVIA                                                            CONRED      1708     A     
 CONRED             RJ     EDS         EVALUATE DATA SCALAR                                CONRED      1709     A     
 CONRED             SA2    DVIA                                                            CONRED      1710     A     
 CONRED             =B4    X2+OR.2OP-OR.1OP                                                CONRED      1711     A     
 CONRED             SA6    A2          SAVE WC OF BASE                                     CONRED      1712     A     
 CONRED             SA1    B4+B3       2OP                                                 CONRED      1713     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1714     A     
 CONRED             LX1    -TP.ORDP                                                        CONRED      1715     A     
 CONRED             BX6    -X0*X1                                                          CONRED      1716     A     
 CONRED             SA1    B3+X6       COLON 1OP                                           CONRED      1717     A     
 CONRED             =X7    X6+OR.2OP-OR.1OP                                                CONRED      1718     A     
 CONRED             SA7    DVIB                                                            CONRED      1719     A     
 CONRED             SB4    B7                                                              CONRED      1720     A     
 CONRED             RJ     LCD         GET SUBSTRING START                                 CONRED      1721     A     
 CONRED             BX3    X6                                                              CONRED      1722     A     
 CONRED             SA1    DVIB                                                            CONRED      1723     A     
 CONRED             SA1    B3+X1       COLON 2OP                                           CONRED      1724     A     
 CONRED             RJ     LCD         GET SUBSTRING END                                   CONRED      1725     A     
 CONRED             SA2    DVIA                                                            CONRED      1726     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX4    X6                                                              CONRED      1727     A     
 CONRED             BX6    X2                                                              CONRED      1728     A     
 CONRED             SB7    B4                                                              CONRED      1729     A     
 CONRED                                                                                    CONRED      1730     A     
 CONRED   *         CHECK SUBSTRING START AND END FOR VALIDITY.                            CONRED      1731     A     
 CONRED                                                                                    CONRED      1732     A     
 CONRED             =X0    1                                                               CONRED      1733     A     
 CONRED             IX1    X3-X0                                                           CONRED      1734     A     
 CONRED             IX2    X4-X0                                                           CONRED      1735     A     
 CONRED             BX7    X1+X2       MI IFF EITHER NOT POSITIVE                          CONRED      1736     A     
 CONRED             SA1    CLEN        SET BY EDS                                          CONRED      1737     A     
 CONRED             IX0    X4-X3       MI IFF START GT END                                 CONRED      1738     A     
 CONRED             BX0    X0+X7                                                           CONRED      1739     A     
 CONRED             IX2    X1-X3       MI IF START GT CLEN                                 CONRED      1740     A     
 CONRED             BX0    X0+X2                                                           CONRED      1741     A     
 CONRED             BX2    X0+X1                                                           CONRED      1742     A     
 CONRED             SX0    B6                                                              CONRED      1743     A     
 CONRED             SA0    E.AT16      INVALID SUBSTRING                                   CONRED      1744     A     
 CONRED             MI     X2,SED.ABT  IF INVALID SUBSTRING                                CONRED      1745     A     
 CONRED             CALL   ECS         EVALUATE SUBSTRING                                  CONRED      1746     A     
 CONRED             EQ     DVI20                                                           CONRED      1747     A     
 CONRED                                                                                    CONRED      1748     A     
 CONRED    DVI10    RJ     EDS         EVALUATE SCALAR                                     CONRED      1749     A     
 CONRED                                                                                    CONRED      1750     A     
 CONRED    DVI20    SA2    COUNT                                                           CONRED      1751          I
          -FC5A111
 CONRED             BX1    X6                                                              CONRED      1752          I
          -FC5A111
 CONRED             BX6    X2                                                              CONRED      1753          I
          -FC5A111
 CONRED    DVI20    BX4    X6          PRESERVE X6                                         FC5A111       97     A     
 CONRED             SX6    B7                                                              FC5A111       98     A     
 CONRED             SA6    DVIC        PRESERVE B7                                         FC5A111       99     A     
 CONRED             SX0    B6          PRESERVE B6                                         FC5A111      100     A     
 CONRED             CALL   CT1         GET OPERAND OF VARIABLE                             FC5A111      101     A     
 CONRED             SB6    X0          RESTORE B6                                          FC5A111      102     A     
 CONRED             BX5    X6                                                              FC5A111      103     A     
 CONRED             CALL   DOA         DETERMINE OPERAND ADDRESSABILITY                    FC5A111      104     A     
 CONRED             SX0    B6          X0 = SYMORD FOR POSSIBLE ERROR                      FC5A111      105     A     
 CONRED             ZR     X6,DVI30    IF NOT INVALID STORE TARGET                         FC5A111      106     A     
 CONRED             FATAL  E.DVL1                                                          FC5A111      107     A     
 CONRED             EQ     SED.END                                                         FC5A111      108     A     
 CONRED                                                                                    FC5A111      109     A     
 CONRED   **        CHECK FOR IMPROPER CLASS OF THE REFERENCED SYMBOL.                     FC5A111      110     A     
 CONRED   *         SET DEFINED AND VAR BITS IN SYMTAB ENTRY.                              FC5A111      111     A     
 CONRED                                                                                    FC5A111      112     A     
 CONRED    DVI30    CLAS=  X3,WB,(FP,NVAR,LAB,PARM)                                        FC5A111      113     A     
 CONRED             BX3    X3*X2                                                           FC5A111      114     A     
 CONRED             SA0    E.DAUC                                                          FC5A111      115     A     
 CONRED             NZ     X3,SED.ABT  IF USEAGE CONFLICT                                  FC5A111      116     A     
 CONRED             CLAS=  X7,WB,(DEF,VAR)                                                 FC5A111      117     A     
 CONRED             BX6    X7+X2       MERGE BITS                                          FC5A111      118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SA6    A2          UPDATE *WB*                                         FC5A111      119     A     
 CONRED                                                                                    FC5A111      120     A     
 CONRED   **        CHECK FOR VARIABLE IN BLANK COMMON OR LOCAL                            FC5A111      121     A     
 CONRED   *         VARIABLE IN BLOCK DATA PROGRAM UNIT.                                   FC5A111      122     A     
 CONRED                                                                                    FC5A111      123     A     
 CONRED             =A1    A2-WB.W+WC.W                                                    FC5A111      124     A     
 CONRED             HX2    WB.COM                                                          FC5A111      125     A     
 CONRED             PL     X2,DVI40    IF NOT IN COMMON                                    FC5A111      126     A     
 CONRED             MX6    -WC.RBL                                                         FC5A111      127     A     
 CONRED             LX1    -WC.RBP                                                         FC5A111      128     A     
 CONRED             SA3    BLNKCOM                                                         FC5A111      129     A     
 CONRED             BX6    -X6*X1      ISOLATE BLOCK NUMBER                                FC5A111      130     A     
 CONRED             IX6    X6-X3                                                           FC5A111      131     A     
 CONRED             SA0    E.DABC                                                          FC5A111      132     A     
 CONRED             ZR     X6,SED.ABT  IF IN BLANK COMMON                                  FC5A111      133     A     
 CONRED             SA3    MOD                                                             FC5A184       86     A     
 CONRED             HX3    MO.BLK                                                          FC5A184       87     A     
 CONRED             PL     X3,DVI50    IF IN BLOCK DATA                                    FC5A184       88          I
          -FC50201
 CONRED             MI     X3,DVI50    IF IN BLOCK DATA                                    FC50201        7     A     
 CONRED             ANSI   E.ANS6      ** COMMON PRESET IN BLOCK DATA ONLY                 FC5A184       89     A     
 CONRED             EQ     DVI50                                                           FC5A111      134     A     
 CONRED                                                                                    FC5A111      135     A     
 CONRED    DVI40    SA3    MOD                                                             FC5A111      136     A     
 CONRED             HX3    MO.BLK                                                          FC5A111      137     A     
 CONRED             SA0    E.DABL                                                          FC5A111      138     A     
 CONRED             MI     X3,SED.ABT  IF BLOCK DATA LOCAL VAR                             FC5A111      139     A     
 CONRED                                                                                    FC5A111      140     A     
 CONRED    DVI50    BX1    X4                                                              FC5A111      141     A     
 CONRED             SA2    DVIC                                                            FC5A111      142     A     
 CONRED             SA3    COUNT                                                           FC5A111      143     A     
 CONRED             SB7    X2                                                              FC5A111      144     A     
 CONRED             BX6    X3                                                              FC5A111      145     A     
 CONRED             CALL   EDI         FILE ADDRESS/COUNT                                  CONRED      1754     A     
 CONRED             EQ     SED.RTN                                                         CONRED      1755     A     
 CONRED                                                                                    CONRED      1756     A     
 CONRED    DVIA     BSS    1                                                               CONRED      1757     A     
 CONRED    DVIB     BSS    1                                                               CONRED      1758     A     
 CONRED    CLEN     BSS    1                                                               CONRED      1759     A     
 CONRED    COUNT    BSS    1                                                               CONRED      1760     A     
 CONRED    DVIC     BSS    1                                                               FC5A111      146     A     
 CONRED    EDS      SPACE  4,8                                                             CONRED      1761     A     
 CONRED   **        EDS - EVALUATE SCALAR FOR DATA.                                        CONRED      1762     A     
 CONRED   *                                                                                CONRED      1763     A     
 CONRED   *         PRESERVES B3,B5                                                        CONRED      1764     A     
 CONRED                                                                                    CONRED      1765     A     
 CONRED    EDS      SUBR                                                                   CONRED      1766     A     
 CONRED             BX3    X1                                                              CONRED      1767     A     
 CONRED             SA1    B5+OR.2OP                                                       CONRED      1768     A     
 CONRED             RJ     LCD         GET NUMBER OF ELEMENTS (COUNT)                      CONRED      1769     A     
 CONRED             SA6    COUNT                                                           CONRED      1770     A     
 CONRED             BX1    X3                                                              CONRED      1771     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1471    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX2    X1                                                              CONRED      1772     A     
 CONRED             MX6    0                                                               CONRED      1773     A     
 CONRED             HX2    TP.INTR                                                         CONRED      1774     A     
 CONRED             PL     X2,EDS10    IF NOT ARRAY                                        CONRED      1775     A     
 CONRED             LX2    TP.INTRP+1-TP.ORDP                                              CONRED      1776     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1777     A     
 CONRED             BX6    -X0*X2                                                          CONRED      1778     A     
 CONRED             =B6    X6+OR.2OP-OR.1OP                                                CONRED      1779     A     
 CONRED             SA1    B3+B6                                                           CONRED      1780     A     
 CONRED             RJ     LCD         GET INDEX                                           CONRED      1781     A     
 CONRED             =B6    B6+OR.1OP-OR.2OP                                                CONRED      1782     A     
 CONRED             SA1    B3+B6                                                           CONRED      1783     A     
 CONRED                                                                                    CONRED      1784     A     
 CONRED    EDS10    BX2    X1                                                              CONRED      1785     A     
 CONRED             HX1    TP.BIAS                                                         CONRED      1786     A     
 CONRED             AX1    -TP.BIASL                                                       CONRED      1787     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1788     A     
 CONRED             LX2    -TP.ORDP                                                        CONRED      1789     A     
 CONRED             BX2    -X0*X2      ARRAY ORD                                           CONRED      1790     A     
 CONRED             IX5    X1+X6       BIAS = BIAS + INDEX                                 CONRED      1791     A     
 CONRED             BX7    X5                                                              CONRED      1792     A     
 CONRED             SA7    EDSA        SAVE INDEX                                          CONRED      1793     A     
 CONRED             SA3    T.SYM                                                           CONRED      1794     A     
 CONRED             SB6    X2          ORD FOR CALLER                                      CONRED      1795     A     
 CONRED             SB2    X3                                                              CONRED      1796     A     
 CONRED             CALL   ECB         EVALUATE CONSTANT BIAS                              CONRED      1797     A     
 CONRED                                                                                    CONRED      1798     A     
 CONRED   *         CHECK VALIDITY OF INDEX AND NUMBER OF ELEMENTS.                        CONRED      1799     A     
 CONRED                                                                                    CONRED      1800     A     
 CONRED             RJ     GPS         GET PRODUCT OF SPANS AND CLEN                       CONRED      1801     A     
 CONRED             SA7    CLEN                                                            CONRED      1802     A     
 CONRED             SA2    EDSA        INDEX                                               CONRED      1803     A     
 CONRED             SA4    COUNT                                                           CONRED      1804     A     
 CONRED             AX3    B2,X2       INDEX IN ELEMENTS                                   CONRED      1805     A     
 CONRED             IX0    X3+X4       INDEX + 1 OF LAST ELEMENT                           CONRED      1806     A     
 CONRED             IX7    X1-X0       MI IFF LAST ELEMENT EXCEEDS SPAN                    CONRED      1807     A     
 CONRED             BX7    X3+X7       ALSO MI IF FIRST ELEMENT BELOW SPAN                 CONRED      1808     A     
 CONRED             SX0    B6                                                              CONRED      1809     A     
 CONRED             SA0    =XE.DVR2    FILL. SUBSCRIPT OUTSIDE ARRAY BOUNDS                CONRED      1810     A     
 CONRED             MI     X7,SED.ABT  IF INVALID REF.                                     CONRED      1811     A     
 CONRED             EQ     EXIT.                                                           CONRED      1812     A     
 CONRED                                                                                    CONRED      1813     A     
 CONRED    EDSA     BSS    1                                                               CONRED      1814     A     
 CONRED    GPS      SPACE  4,8                                                             CONRED      1815     A     
 CONRED   **        GPS - GET PRODUCT OF SPANS AND CLEN.                                   CONRED      1816     A     
 CONRED   *                                                                                CONRED      1817     A     
 CONRED   *         ENTRY  B6 = SYMTAB ORD                                                 CONRED      1818     A     
 CONRED   *                                                                                CONRED      1819     A     
 CONRED   *         EXIT   X1 = PRODUCT OF SPANS IN ELEMENTS                               CONRED      1820     A     
 CONRED   *                X2 = DITTO IN WORDS                                             CONRED      1821     A     
 CONRED   *                X7 = CLEN (0 IF NOT CHAR)                                       CONRED      1822     A     
 CONRED   *                B2 = 1 IF MODE = DOUBLE OR COMPLEX, ELSE 0                      CONRED      1823     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                                                                                CONRED      1824     A     
 CONRED   *         PRESERVES B3,B5,B6,B7,X6                                               CONRED      1825     A     
 CONRED                                                                                    CONRED      1826     A     
 CONRED    GPS      SUBR   =                                                               CONRED      1827     A     
 CONRED             SA1    T.SYM                                                           CONRED      1828     A     
 CONRED             SX2    B6                                                              CONRED      1829     A     
 CONRED             =B2    X1+WB.W                                                         CONRED      1830     A     
 CONRED             LX7    B1,X2                                                           CONRED      1831     A     
 CONRED             IX2    X7+X2                                                           CONRED      1832     A     
 CONRED             SA1    X2+B2       WB                                                  CONRED      1833     A     
 CONRED             SA2    T.DIM                                                           CONRED      1834     A     
 CONRED             MX0    -WB.PNTL                                                        CONRED      1835     A     
 CONRED             SB2    X2                                                              CONRED      1836     A     
 CONRED             LX1    -WB.PNTP                                                        CONRED      1837     A     
 CONRED             BX7    -X0*X1                                                          CONRED      1838     A     
 CONRED             SA2    X7+B2                                                           CONRED      1839     A     
 CONRED             MX0    -DH.PSL                                                         CONRED      1840     A     
 CONRED             LX2    -DH.PSP                                                         CONRED      1841     A     
 CONRED             LX1    WB.PNTP-WB.MODEP-1                                              CONRED      1842     A     
 CONRED             MX3    -WB.MODEL+1                                                     CONRED      1843     A     
 CONRED             BX3    -X3*X1      MODE/2                                              CONRED      1844     A     
 CONRED             BX1    -X0*X2      PRODUCT OF SPANS IN ELEMENTS                        CONRED      1845     A     
 CONRED             =B2    1                                                               CONRED      1846     A     
 CONRED             AX2    B2,X1                                                           CONRED      1847     A     
 CONRED             SX7    X3-M.DBL/2                                                      CONRED      1848     A     
 CONRED             ZR     X7,EXIT.    IF DOUBLE OR COMPLEX (DEPENDS ON M.DBL/2 =          CONRED      1849     A     
 CONRED             =B2    0                                                               CONRED      1850     A     
 CONRED             MX7    0                                                               CONRED      1851     A     
 CONRED             BX2    X1                                                              CONRED      1852     A     
 CONRED             SX0    X3-M.CHAR/2                                                     CONRED      1853     A     
 CONRED             NZ     X0,EXIT.    IF NOT CHAR (DEPENDS ON NO TYPE = M.CHAR+1)         CONRED      1854     A     
 CONRED             =A3    A1+WC.W-WB.W                                                    CONRED      1855     A     
 CONRED             MX0    -WC.CLENL                                                       CONRED      1856     A     
 CONRED             LX3    -WC.CLENP                                                       CONRED      1857     A     
 CONRED             BX7    -X0*X3                                                          CONRED      1858     A     
 CONRED             BX3    X1                                                              CONRED      1859     A     
 CONRED             CW     X2,X3                                                           CONRED      1860     A     
 CONRED             EQ     EXIT.                                                           CONRED      1861     A     
 CONRED    EXP.I    SPACE  4,8                                                             CONRED      1862     A     
 CONRED   **        EXP.I - EXPONENTIAL TURPLE.                                            CONRED      1863     A     
 CONRED   *         EXPANSION OF I**J HAS BEEN DEFERRED UNTIL NOW WHEN I AND J             CONRED      1864     A     
 CONRED   *         ARE KNOWN.                                                             CONRED      1865     A     
 CONRED                                                                                    CONRED      1866     A     
 CONRED             HEREFOR EXP.I                                                          CONRED      1867     A     
 CONRED             SA1    B5+OR.2OP   EXPONENT                                            CONRED      1868     A     
 CONRED             RJ     LCD         GET VALUE                                           CONRED      1869     A     
 CONRED             SA6    EXPA                                                            CONRED      1870     A     
 CONRED             SA1    B5+OR.1OP                                                       CONRED      1871     A     
 CONRED             RJ     LCD         GET BASE VALUE                                      CONRED      1872     A     
 CONRED             SA1    EXPA                                                            CONRED      1873     A     
 CONRED             CALL   EXD         EXPAND AND GET VALUE OF I**J                        CONRED      1874     A     
 CONRED             BX1    X6                                                              CONRED      1875     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             RJ     LCT                                                             CONRED      1876     A     
 CONRED             EQ     SED.STO     PLACE VALUE IN HEADER AND CONTINUE                  CONRED      1877     A     
 CONRED                                                                                    CONRED      1878     A     
 CONRED    EXPA     BSS    1                                                               CONRED      1879     A     
 CONRED    STR.I    EJECT                                                                  CONRED      1880     A     
 CONRED             HEREFOR STR.I                                                          CONRED      1881     A     
 CONRED                                                                                    CONRED      1882     A     
 CONRED   *         SIMULATE STORE TURPLE BY FILING VAL(1OP) IN DVV(2OP)                   CONRED      1883     A     
 CONRED                                                                                    CONRED      1884     A     
 CONRED             =A1    B5+OR.1OP                                                       CONRED      1885     A     
 CONRED             RJ     LCD         GET RIGHT HAND VALUE                                CONRED      1886     A     
 CONRED             BX5    X6                                                              CONRED      1887     A     
 CONRED             SA2    B5+OR.2OP   GET TARGET TAG                                      CONRED      1888     A     
 CONRED             RJ     SDV         STORE DATA VALUE                                    CONRED      1889     A     
 CONRED             EQ     SED.RTN                                                         CONRED      1890     A     
 CONRED    SDV      SPACE  4,8                                                             CONRED      1891     A     
 CONRED   **        SDV - STORE DATA VALUE.                                                CONRED      1892     A     
 CONRED   *                                                                                CONRED      1893     A     
 CONRED   *         ENTRY  (X2) = OPERAND OF TARGET                                        CONRED      1894     A     
 CONRED   *                (X5) = VALUE TO BE STORED                                       CONRED      1895     A     
 CONRED                                                                                    CONRED      1896     A     
 CONRED    SDV      SUBR                                                                   CONRED      1897     A     
 CONRED             LX2    -TP.ORDP                                                        CONRED      1898     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1899     A     
 CONRED             BX6    -X0*X2                                                          CONRED      1900     A     
 CONRED             SB6    X6                                                              CONRED      1901     A     
 CONRED             SA1    T.SYM                                                           CONRED      1902     A     
 CONRED             SB7    B6+B6                                                           CONRED      1903     A     
 CONRED             SX1    X1+WC.W                                                         CONRED      1904     A     
 CONRED             SB7    B7+B6                                                           CONRED      1905     A     
 CONRED             SA1    X1+B7       WC OF TARGET                                        CONRED      1906     A     
 CONRED             SA2    T.DVV                                                           CONRED      1907     A     
 CONRED             MX0    -WC.DVPL                                                        CONRED      1908     A     
 CONRED             SB2    X2-1                                                            CONRED      1909     A     
 CONRED             LX1    -WC.DVPP                                                        CONRED      1910     A     
 CONRED             BX7    -X0*X1                                                          CONRED      1911     A     
 CONRED             BX2    X0*X1                                                           CONRED      1912     A     
 CONRED             SA3    B2+X7       DVV(DVP)                                            CONRED      1913     A     
 CONRED             SX6    B7+WC.W                                                         CONRED      1914     A     
 CONRED             LX6    DV.PNTP                                                         CONRED      1915     A     
 CONRED             NZ     X7,SDV10    IF ALREADY IN DVV                                   CONRED      1916     A     
 CONRED             SA3    T=DVV                                                           CONRED      1917     A     
 CONRED             =X7    X3+1                                                            CONRED      1918     A     
 CONRED             BX7    X2+X7                                                           CONRED      1919     A     
 CONRED             LX7    WC.DVPP                                                         CONRED      1920     A     
 CONRED             SA7    A1          INCLUDE POINTER TO DVV ENTRY IN WC                  CONRED      1921     A     
 CONRED             ADDWD  T.DVV                                                           CONRED      1922     A     
 CONRED             SA3    A6                                                              CONRED      1923     A     
 CONRED                                                                                    CONRED      1924     A     
 CONRED    SDV10    MX0    -DV.VALL                                                        CONRED      1925     A     
 CONRED             BX5    -X0*X5                                                          CONRED      1926     A     
 CONRED             LX5    DV.VALP                                                         CONRED      1927     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX6    X5+X6                                                           CONRED      1928     A     
 CONRED             SA6    A3          VAL[DVV(TARGET)] = VALUE                            CONRED      1929     A     
 CONRED             EQ     EXIT.                                                           CONRED      1930     A     
 CONRED    DO       EJECT                                                                  CONRED      1931     A     
 CONRED             HEREFOR (DOBS,DOBL,DOBZS,DOBZL)                                        CONRED      1932     A     
 CONRED                                                                                    CONRED      1933     A     
 CONRED   *         PLACE SIMULATED DO-TOP ADDRESS (NEXT TURPLE) IN                        CONRED      1934     A     
 CONRED   *         WC.BRAD OF DO.N .                                                      CONRED      1935     A     
 CONRED                                                                                    CONRED      1936     A     
 CONRED             SA3    B5+7                                                            CONRED      1937     A     
 CONRED             SA4    T.SYM                                                           CONRED      1938     A     
 CONRED             SA2    SEDTURP                                                         CONRED      1939     A     
 CONRED             LX3    -TP.ORDP                                                        CONRED      1940     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1941     A     
 CONRED             LX2    WC.BRADP                                                        CONRED      1942     A     
 CONRED             BX6    -X0*X3                                                          CONRED      1943     A     
 CONRED             SB7    X4+WC.W                                                         CONRED      1944     A     
 CONRED             LX7    B1,X6                                                           CONRED      1945     A     
 CONRED             IX0    X6+X7                                                           CONRED      1946     A     
 CONRED             SA1    B7+X0       WORD C OF DO.N FOR THIS LOOP                        CONRED      1947     A     
 CONRED             BX7    X2+X1                                                           CONRED      1948     A     
 CONRED             SA7    A1          INSTALL BRANCH ADDRESS                              CONRED      1949     A     
 CONRED                                                                                    CONRED      1950     A     
 CONRED   *         SET ITERATION COUNT  (DC.N = # OF TRIPS)                               CONRED      1951     A     
 CONRED                                                                                    CONRED      1952     A     
 CONRED             SA1    B5+OR.2OP   NUMBER OF TRIPS                                     CONRED      1953     A     
 CONRED             RJ     LCD         LOAD VALUE                                          CONRED      1954     A     
 CONRED             =A5    B5+OR.1OP                                                       CONRED      1955     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      1956     A     
 CONRED             LX5    -TP.ORDP                                                        CONRED      1957     A     
 CONRED             BX0    -X0*X5      ORD OF CONTROL VARIABLE (1OP)                       CONRED      1958     A     
 CONRED             SA0    E.DVR3      TRIP COUNT OF FILL. MUST BE POSITIVE                CONRED      1959     A     
 CONRED             SX5    X6-1                                                            CONRED      1960          I
          -FC5A132
 CONRED             =X5    1                                                               FC5A132       99     A     
 CONRED             IX5    X6-X5                                                           FC5A132      100     A     
 CONRED             MI     X5,SED.ABT  SET B7 AND FILL. ORD                                CONRED      1961     A     
 CONRED             BX5    X6                                                              CONRED      1962     A     
 CONRED             SA2    B5+4        DC.N TAG                                            CONRED      1963     A     
 CONRED             RJ     SDV         STORE VALUE IN DC.N                                 CONRED      1964     A     
 CONRED             EQ     SED.RTN                                                         CONRED      1965     A     
 CONRED    DOEND    SPACE  4,8                                                             CONRED      1966     A     
 CONRED             HEREFOR (DOC.S,DOC.L)                                                  CONRED      1967     A     
 CONRED                                                                                    CONRED      1968     A     
 CONRED   *         INCREMENT I = I + M3.                                                  CONRED      1969     A     
 CONRED                                                                                    CONRED      1970     A     
 CONRED             =A1    B5+OR.1OP                                                       CONRED      1971     A     
 CONRED             =A3    A1+OR.2OP-OR.1OP                                                CONRED      1972     A     
 CONRED             RJ     LCD         GET I (1OP)                                         CONRED      1973     A     
 CONRED             BX1    X3                                                              CONRED      1974     A     
 CONRED             BX3    X6                                                              CONRED      1975     A     
 CONRED             RJ     LCD         GET M3 (2OP)                                        CONRED      1976     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             IX5    X3+X6                                                           CONRED      1977     A     
 CONRED             SA2    B5+OR.1OP                                                       CONRED      1978     A     
 CONRED             RJ     SDV         STORE NEW I                                         CONRED      1979     A     
 CONRED             SA1    SEDTURP                                                         CONRED      1980     A     
 CONRED             SA2    T.DAR                                                           CONRED      1981     A     
 CONRED             IX0    X1+X2                                                           CONRED      1982     A     
 CONRED             SA1    X0-3+5      DC.                                                 CONRED      1983     A     
 CONRED             BX3    X1                                                              CONRED      1984     A     
 CONRED             RJ     LCD         GET TRIP COUNT                                      CONRED      1985     A     
 CONRED             =X0    1                                                               CONRED      1986     A     
 CONRED             IX5    X6-X0       DC. = DC. - 1                                       CONRED      1987     A     
 CONRED             ZR     X5,SED.RTN  IF DC. = 0  */ LOOP EXHAUSTED                       CONRED      1988     A     
 CONRED   *         CLEAR WC.DVP[L1]  (I) WHEN EXHAUSTED                                   CONRED      1989     A     
 CONRED             BX2    X3                                                              CONRED      1990     A     
 CONRED             RJ     SDV         STORE NEW DC.                                       CONRED      1991     A     
 CONRED                                                                                    CONRED      1992     A     
 CONRED   *         RESET SEDTURP TO BRAD[DO.] TO SIMULATE BRANCH-BACK.                    CONRED      1993     A     
 CONRED                                                                                    CONRED      1994     A     
 CONRED             SA1    SEDTURP                                                         CONRED      1995     A     
 CONRED             SA2    T.DAR                                                           CONRED      1996     A     
 CONRED             IX0    X1+X2                                                           CONRED      1997     A     
 CONRED             =A1    X0-3+4      DO. OPERAND                                         CONRED      1998     A     
 CONRED             SA2    T.SYM                                                           CONRED      1999     A     
 CONRED             LX1    -TP.ORDP                                                        CONRED      2000     A     
 CONRED             MX0    -TP.ORDL                                                        CONRED      2001     A     
 CONRED             BX6    -X0*X1                                                          CONRED      2002     A     
 CONRED             SB7    X2+WC.W                                                         CONRED      2003     A     
 CONRED             LX7    B1,X6                                                           CONRED      2004     A     
 CONRED             IX0    X6+X7                                                           CONRED      2005     A     
 CONRED             SA1    B7+X0       WC OF DO.                                           CONRED      2006     A     
 CONRED             LX1    -WC.BRADP                                                       CONRED      2007     A     
 CONRED             SX6    X1                                                              CONRED      2008     A     
 CONRED             ERRNZ  WC.BRADL-18                                                     CONRED      2009     A     
 CONRED             SA6    SEDTURP                                                         CONRED      2010     A     
 CONRED             EQ     SED.RTN                                                         CONRED      2011     A     
 CONRED    END      SPACE  4,10                                                            CONRED      2012     A     
 CONRED             LIST   D                                                               CONRED      2013     A     
 CONRED             END                                                                    CONRED      2014     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CONRED  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CONRED                    2014      1944
          FC5A111                     66        63
          FC5A120                      3         3
          FC5A132                     12        12
          FC5A150                     24        23
          FC5A156                      1         1
          FC5A158A                    22        22
          FC5A184                      5         4
          FC5A190                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
          FC5A196                      6         6
          FC50172                      2         2
          FC50201                      2         2
          FC50392                      2         2
          FC5A381                      6         6
          FC50656                      5         2
          FC50923                     10        10
          FC5A460                      5         5
          FC51344                     37        37
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF    *DECK     STMTF                                                                  STMTF          1     A     
 STMTF              IDENT  STMTF                                                           STMTF          2     A     
 STMTF     STMTF    SECT   (STATEMENT FUNCTION PROCESSOR.)                                 STMTF          3     A     
 STMTF     STMTF    SPACE  4                                                               STMTF          4     A     
 STMTF    *         IN ALLOC                                                               STMTF          5     A     
 STMTF              EXT    ADW,ALC                                                         STMTF          6     A     
 STMTF                                                                                     STMTF          7     A     
 STMTF    *         IN FEC                                                                 STMTF          8     A     
 STMTF              EXT    ERT,ESY,FEC.RTN,REFVAR,SCSA,SCS,SCT,SSY,STY,TRV                 STMTF          9          I
          -FC5A192
 STMTF              EXT    ERT,ESY,FEC.RTN,REFVAR,SCSA,SCS,SCT,SSY,STY,TRV,WANFP           FC5A192       67     A     
 STMTF                                                                                     STMTF         10     A     
 STMTF    *         IN FERRS                                                               STMTF         11     A     
 STMTF              EXT    E.SF00,E.SF01,E.SF02,E.SF03,E.SF04,E.SF05,E.SF06,E.SF07         STMTF         12          I
          -FC5A300
 STMTF              EXT    E.LP1,E.LP2,E.SF00,E.SF01,E.SF02,E.SF03,E.SF04,E.SF05           FC5A300       23     A     
 STMTF              EXT    E.SF06,E.SF07,E.SF08,E.SF11,E.SF12,E.SF14,FILL.,FILL.2          FC5A300       24     A     
 STMTF              EXT    FILL.3                                                          FC5A300       25     A     
 STMTF              EXT    E.SF08,FILL.,FILL.2                                             STMTF         13          I
          -FC50106
 STMTF              EXT    E.SF08,E.SF11,E.SF12,FILL.,FILL.2                               FC50106        8          I
          -FC5A300
 STMTF                                                                                     STMTF         14     A     
 STMTF    *         IN PEM                                                                 STMTF         15     A     
 STMTF              EXT    PDM                                                             STMTF         16          I
          -FC50106
 STMTF              EXT    ANSI=,PDM                                                       FC50106        9     A     
 STMTF                                                                                     STMTF         17     A     
 STMTF    *         IN PUC                                                                 STMTF         18     A     
 STMTF              EXT    E=TOTAL,SCR,T=STF,T=SCR,T.STF,T.SCR,T.SYM                       STMTF         19     A     
 STMTF                                                                                     STMTF         20     A     
 STMTF    *         IN UTILITY                                                             STMTF         21     A     
 STMTF              EXT    MVE=                                                            STMTF         22     A     
 STMTF     SCRATCH  SPACE  4,8                                                             STMTF         23     A     
 STMTF     STFERR   EQU    SCR+3       ERROR IN STATEMENT FUNCTION REFERENCE               STMTF         24     A     
 STMTF     FWASTF   EQU    SCR+4       FWA OF STATEMENT FUNCTION RELATIVE TO T.STF         STMTF         25     A     
 STMTF     FWAREF   EQU    SCR+5       FWA OF REFERENCE                                    STMTF         26     A     
 STMTF     SVB6     EQU    SCR+6                                                           STMTF         27     A     
 STMTF     SVB5     EQU    SCR+7                                                           STMTF         28     A     
 STMTF     STMTF    SPACE  4,8                                                             STMTF         29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              DESCRIBE SP.       SCRATCH TABLE HOLDS DUMMY ARGS.                     STMTF         30          I
          -FC50104
 STMTF              DESCRIBE ST.       SCRATCH TABLE HOLDS DUMMY ARGUMENTS                 FC50104      230     A     
 STMTF     SYM      DEFINE 42          SYMBOLIC NAME                                       STMTF         31     A     
 STMTF     MODE     DEFINE 3           ARG TYPE                                            STMTF         32     A     
 STMTF     CNT      DEFINE 15          ARG USE COUNT                                       STMTF         33     A     
 STMTF              TITLE  DEFINITION.                                                     STMTF         34     A     
 STMTF     SFD      SPACE  4,10                                                            STMTF         35     A     
 STMTF    **        SFD -  STATEMENT FUNCTION DEFINITION PROCESSOR.                        STMTF         36     A     
 STMTF    *         ENTERED FROM FRONT END CONTROLLER.                                     STMTF         37     A     
 STMTF    *         ENTRY  (B4) - START OF STATEMENT.                                      STMTF         38     A     
 STMTF    *         EXIT   TO *FEC.RNX*.                                                   STMTF         39     A     
 STMTF    *                                                                                STMTF         40     A     
 STMTF    *         T.STF ENTRY FORMAT.                                                    STMTF         41     A     
 STMTF    *         1      = 24/0, 18/0, 18/LENGTH OF SKELETON + ARGUMENT WORDS            STMTF         42     A     
 STMTF    *         2 TO N = 6/0, 18/LEN OF REF, 18/FWA OF REF, 18/NO OF USES              STMTF         43     A     
 STMTF    *                                                                                STMTF         44     A     
 STMTF    *         N+1    = ACTUAL SKELETON, WITH DUMMY PARAMETERS ENTRIES IN THE         STMTF         45     A     
 STMTF    *                  FOLLOWING FORMAT                                              STMTF         46     A     
 STMTF    *                  18/PARAMETER NUMBER, 24/0, 18/O.STFA                          STMTF         47     A     
 STMTF    *                                                                                STMTF         48     A     
 STMTF    *         USES T.SCR FOR PARAMETER CHECKING.                                     STMTF         49     A     
 STMTF                                                                                     STMTF         50     A     
 STMTF                                                                                     STMTF         51     A     
 STMTF     SFD      BSSENT 0           ENTRY...                                            STMTF         52     A     
 STMTF              SHRINK T=SCR,0                                                         STMTF         53     A     
 STMTF              MX0    WA.SYML                                                         STMTF         54     A     
 STMTF              =A2    B4                                                              STMTF         55     A     
 STMTF              BX6    X0*X2                                                           STMTF         56     A     
 STMTF              SA6    FILL.                                                           STMTF         57          I
          -FC5A300
 STMTF              SA6    FILL.3                                                          FC5A300       26     A     
 STMTF              CALL   SSY         SCAN SYMBOL TABLE                                   STMTF         58     A     
 STMTF              MI     B7,SFD05    IF NOT ALREADY IN SYMBOL TABLE                      STMTF         59     A     
 STMTF              CLAS=  X2,WB,(LAB)                                                     STMTF         60     A     
 STMTF              BX2    X2*X6                                                           STMTF         61     A     
 STMTF              NZ     X2,E.SF08   IF STATEMENT LABEL                                  STMTF         62     A     
 STMTF              CLAS=  X2,WB,(NVAR)                                                    STMTF         63     A     
 STMTF              BX2    X2*X6                                                           STMTF         64     A     
 STMTF              NZ     X2,SFD03    IF ALREADY KNOWN AS *NVAR*                          STMTF         65     A     
 STMTF              CLAS=  X2,WB,(FP,VAR)                                                  STMTF         66     A     
 STMTF              BX2    X2*X6                                                           STMTF         67     A     
 STMTF              ZR     X2,SFD05    IF NOT NVAR, VAR, OR FP -- OKAY                     STMTF         68     A     
 STMTF              EQ     E.SF08      CONFLICTING DEFINITION                              STMTF         69     A     
 STMTF                                                                                     STMTF         70     A     
 STMTF     SFD03    SBIT   X6,WB.FUNP                                                      STMTF         71     A     
 STMTF              PL     X6,E.SF08   IF PREVIOUSLY DEFINED .NOT. FUNCTION                STMTF         72     A     
 STMTF              =A2    A2-WB.W+WC.W                                                    STMTF         73     A     
 STMTF              MX1    -WC.FUNTL                                                       STMTF         74     A     
 STMTF              LX2    -WC.FUNTP                                                       STMTF         75     A     
 STMTF              BX2    -X1*X2      ISOLATE (X2) = FUNCTION TYPE                        STMTF         76     A     
 STMTF              =X2    X2-MF.STF                                                       STMTF         77     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              NZ     X2,E.SF08   IF PREVIOUSLY DEFINED .NOT. STMT FUNCTION           STMTF         78     A     
 STMTF              WARN   E.SF07      DUPLICATE STATEMENT FUNCTION - NEW OVERIDES         STMTF         79     A     
 STMTF                                                                                     FC50326       21     A     
 STMTF     SFD05    =A2    B4+1                                                            STMTF         80     A     
 STMTF              =B4    B4+1                                                            STMTF         81     A     
 STMTF              SB7    X2-O.(                                                          STMTF         82     A     
 STMTF              NZ     B7,SFD05    IF LEFT PAREN NOT FOUND                             STMTF         83     A     
 STMTF              =A2    B4-1                                                            STMTF         84     A     
 STMTF              MX0    TB.TOCL                                                         STMTF         85     A     
 STMTF              BX6    X0*X2                                                           STMTF         86     A     
 STMTF              ADDWD  T.SCR                                                           STMTF         87     A     
 STMTF              SA6    FILL.                                                           STMTF         88     A     
 STMTF              MX6    0                                                               STMTF         89     A     
 STMTF              ADDWD  T.SCR                                                           STMTF         90     A     
 STMTF              SA4    B4+1                                                            STMTF         91     A     
 STMTF              SB7    X4-O.RP                                                         STMTF         92     A     
 STMTF              NZ     B7,SFD10    IF NOT NULL PARAMETER LIST                          STMTF         93          I
          -FC5A192
 STMTF              NZ     B7,SFD7     IF NOT NULL PARAMETER LIST                          FC5A192       68     A     
 STMTF              SB4    B4+1                                                            STMTF         94     A     
 STMTF              EQ     SFD20                                                           STMTF         95     A     
 STMTF                                                                                     STMTF         96     A     
 STMTF    **        ADD DUMMY ARGS TO SCRATCH TABLE                                        STMTF         97     A     
 STMTF                                                                                     STMTF         98     A     
 STMTF     SFD7     MX6    0                                                               FC5A192       69     A     
 STMTF              SA6    WANFP       AVOID TURNING WA.NFP ON IN *SSY* OR *ESY*           FC5A192       70     A     
 STMTF                                                                                     FC5A192       71     A     
 STMTF     SFD10    =A4    B4+1                                                            STMTF         99     A     
 STMTF              =B4    B4+1                                                            STMTF        100     A     
 STMTF              SB7    X4-O.VAR                                                        STMTF        101     A     
 STMTF              NZ     B7,E.SF06   IF NOT VARIABLE                                     STMTF        102          I
          -FC5A192
 STMTF              =B2    0                                                               STMTF        103          I
          -FC5A192
 STMTF              ZR     B7,SFD11    IF A VARIABLE                                       FC5A192       72     A     
 STMTF              FATAL  E.SF06      ** DUMMY ARG NOT SIMPLE VAR                         FC5A192       73     A     
 STMTF              MX6    1                                                               FC5A192       74     A     
 STMTF              LX6    1+WA.NFPP                                                       FC5A192       75     A     
 STMTF              SA6    WANFP       RESET WA.NFP CELL                                   FC5A192       76     A     
 STMTF              SHRINK T=SCR,0     CLEAN UP SCRATCH TABLE                              FC50610        6     A     
 STMTF              EQ     FEC.RTN                                                         FC5A192       77     A     
 STMTF                                                                                     FC5A192       78     A     
 STMTF     SFD11    =B2    0                                                               FC5A192       79     A     
 STMTF              CALL   TRV         ENTER ARGUMENT INTO SYMBOL TABLE                    STMTF        104     A     
 STMTF              BX6    X0                                                              STMTF        105     A     
 STMTF              SA6    SFDA        SAVE SYMTAB ORD                                     STMTF        106     A     
 STMTF              =A4    A2+WA.W-WB.W                                                    STMTF        107     A     
 STMTF              MX0    WA.SYML                                                         STMTF        108     A     
 STMTF              BX6    X0*X4                                                           STMTF        109     A     
 STMTF              SA6    FILL.2                                                          STMTF        110     A     
 STMTF              IFBIT  X2,-WB.ARYP,SFD11    IF DUMMY ARG NOT AN ARRAY                  STMTF        111          I
          -FC5A192
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              IFBIT  X2,-WB.ARYP,SFD12 IF DUMMY ARG NOT AN ARRAY                     FC5A192       80          I
          -FC5A300
 STMTF              MX0    -WB.MODEL                                                       FC5A300       27     A     
 STMTF              LX2    -WB.MODEP                                                       FC5A300       28     A     
 STMTF              BX0    -X0*X2      EXTRACT MODE                                        FC5A300       29     A     
 STMTF              LX2    WB.MODEP                                                        FC5A300       30     A     
 STMTF              SBIT   X2,WB.ARYP                                                      FC5A300       31     A     
 STMTF              PL     X2,SFD13    IF DUMMY ARGUMENT NOT AN ARRAY                      FC5A300       32          I
          -FC50326
 STMTF              PL     X2,SFD12    IF DUMMY ARGUMENT NOT AN ARRAY                      FC50326       22     A     
 STMTF              ANSI   E.SF11      DUMMY ARG CANNOT BE AN ARRAY                        STMTF        112     A     
 STMTF                                                                                     STMTF        113     A     
 STMTF     SFD12    LX2    WB.ARYL+WB.ARYP                                                 FC50326       23     A     
 STMTF              CLAS=  X1,WB,(SAVE,LEV,VDS,LCM,FP,COM,ARY,EQV,DEF)                     FC50326       24     A     
 STMTF              BX1    X1*X2                                                           FC50326       25     A     
 STMTF              NZ     X1,SFD13    IF DUMMY ARGUMENT IS FIXED AS TRUE VARIABLE         FC50326       26     A     
 STMTF              CLAS=  X7,WB,(SFA)                                                     FC50326       27     A     
 STMTF              BX7    X7+X2       MERGE IN DUMMY ARGUMENT PROPERTY                    FC50326       28     A     
 STMTF              SA7    A2                                                              FC50326       29     A     
 STMTF                                                                                     FC50326       30     A     
 STMTF     SFD11    LX6    SP.SYMP-WA.SYMP                                                 STMTF        114          I
          -FC5A192
 STMTF     SFD12    LX6    SP.SYMP-WA.SYMP                                                 FC5A192       81          I
          -FC50104
 STMTF     SFD12    LX6    ST.SYMP-WA.SYMP                                                 FC50104      231          I
          -FC5A300
 STMTF     SFD13    SX0    X0-M.CHAR                                                       FC5A300       33     A     
 STMTF              NZ     X0,SFD15    IF NOT TYPE CHARACTER                               FC5A300       34     A     
 STMTF              =A4    A2+WC.W-WB.W                                                    FC5A300       35     A     
 STMTF              SBIT   X4,WC.CTYPP                                                     FC5A300       36     A     
 STMTF              PL     X4,SFD15    IF NOT PASSED LENGTH                                FC5A300       37     A     
 STMTF              FATAL  E.SF14                                                          FC5A300       38     A     
 STMTF                                                                                     FC5A300       39     A     
 STMTF     SFD15    LX6    ST.SYMP-WA.SYMP                                                 FC5A300       40     A     
 STMTF              SCAN   T.SCR,SCT   LOOK FOR DUMMY ARG                                  STMTF        115     A     
 STMTF              MI     B7,SFD13    IF NOT ALREADY REFERENCED                           STMTF        116          I
          -FC5A300
 STMTF              MI     B7,SFD17    IF NOT ALREADY REFERENCED                           FC5A300       41     A     
 STMTF              FATAL  E.SF05      DUPLICATE DUMMY ARGUMENT                            STMTF        117     A     
 STMTF              EQ     SFD14                                                           FC5A213        5          I
          -FC5A300
 STMTF     SFD13    ADDWD  T.SCR                                                           STMTF        118          I
          -FC5A300
 STMTF              EQ     SFD19                                                           FC5A300       42     A     
 STMTF                                                                                     FC5A300       43     A     
 STMTF     SFD17    ADDWD  T.SCR                                                           FC5A300       44     A     
 STMTF              SA4    SFDA                                                            STMTF        119     A     
 STMTF              BX6    X4                                                              STMTF        120     A     
 STMTF              ADDWD  T.SCR       WORD 2 OF SCR ENTRY = SYMORD                        STMTF        121     A     
 STMTF              =A4    B4+1                                                            STMTF        122          I
          -FC5A213
 STMTF                                                                                     FC5A213        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF     SFD14    =A4    B4+1                                                            FC5A213        7          I
          -FC5A300
 STMTF     SFD19    =A4    B4+1                                                            FC5A300       45     A     
 STMTF              =B4    B4+1                                                            STMTF        123     A     
 STMTF              SB7    X4-O.COMMA                                                      STMTF        124     A     
 STMTF              ZR     B7,SFD10    IF MORE ARGUMENTS                                   STMTF        125     A     
 STMTF              MX6    1                                                               FC5A192       82     A     
 STMTF              LX6    1+WA.NFPP                                                       FC5A192       83     A     
 STMTF              SA6    WANFP       RESET WA.NFP CELL                                   FC5A192       84     A     
 STMTF              SB7    X4-O.)                                                          STMTF        126     A     
 STMTF              NZ     B7,E.SF00   IF NOT CLOSING *(*                                  STMTF        127          I
          -FC50106
 STMTF              NZ     B7,E.SF00   IF NOT CLOSING *)*                                  FC50106       10          I
          -FC50883
 STMTF              ZR     B7,SFD20    IF CLOSING *)*                                      FC50883        6     A     
 STMTF              SHRINK T=SCR,0     CLEAN UP SCRATCH FILE                               FC50883        7     A     
 STMTF              EQ     E.SF00      ERROR MSG - EXPECTED RIGHT PAREN ...                FC50883        8     A     
 STMTF                                                                                     STMTF        128     A     
 STMTF    **        HERE IF END OF ARGUMENT STRING FOUND                                   STMTF        129     A     
 STMTF    *         (B4) _ CLOSING *)*                                                     STMTF        130     A     
 STMTF                                                                                     STMTF        131     A     
 STMTF     SFD20    SA2    B4+B1                                                           STMTF        132     A     
 STMTF              SB4    B4+B1                                                           STMTF        133     A     
 STMTF              SB7    X2-O.=                                                          STMTF        134     A     
 STMTF              NZ     B7,E.SF01   IF NO *=* FOLLOWING END OF ARGUMENTS                STMTF        135     A     
 STMTF              SX6    B4                                                              STMTF        136     A     
 STMTF              SB5    B4          LENGTH OF STATEMENT FUNCTION SKELETON               STMTF        137     A     
 STMTF              SA2    STFMASK                                                         STMTF        138     A     
 STMTF              SA6    SCR+1       SAVE START OF STATEMENT FUNCTION                    STMTF        139     A     
 STMTF              BX6    X2                                                              STMTF        140     A     
 STMTF              SA6    SCSA        SET MASK FOR *SCS*                                  STMTF        141     A     
 STMTF              =B3    0           ARG CHAIN                                           STMTF        142     A     
 STMTF                                                                                     STMTF        143     A     
 STMTF    **        HERE IF *=* FOUND AFTER END OF ARGUMENTS. SCAN THROUGH THE             STMTF        144     A     
 STMTF    *         STATEMENT FUNCTION REPLACING ALL REFERENCES TO DUMMY ARGUMENTS         STMTF        145     A     
 STMTF    *         WITH:  18/ ARGUMENT NUM,  24/0,  18/ O.AFSA                            STMTF        146     A     
 STMTF    *         CHECK IF STATEMENT FUNCTION IS RECURSIVE, AND OUTPUT ERROR IF          STMTF        147     A     
 STMTF    *         SO.                                                                    STMTF        148     A     
 STMTF                                                                                     STMTF        149     A     
 STMTF              SB6    0           BALANCED PARENTHESES INDICATOR                      FC5A300       46     A     
 STMTF                                                                                     FC5A300       47     A     
 STMTF     SFD30    SA1    B4+B1                                                           STMTF        150     A     
 STMTF              SB4    B4+B1                                                           STMTF        151     A     
 STMTF              BX6    X1                                                              STMTF        152     A     
 STMTF              =A2    B4-1                                                            FC50106       11     A     
 STMTF              ZR     X1,SFD50    IF *EOS*                                            STMTF        153     A     
 STMTF              SB7    X1-O.VAR                                                        STMTF        154          I
          -FC50106
 STMTF              SB7    X1-O.LP                                                         FC50106       12     A     
 STMTF              NZ     B7,SFD31    IF NOT *(*                                          FC50106       13     A     
 STMTF              SB6    B6+1        INCREMENT PARENTHESIS COUNT                         FC5A300       48     A     
 STMTF              SB7    X2-O.STFA                                                       FC50106       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              NZ     B7,SFD31    IF *(* DOES NOT FOLLOW DUMMY ARGUMENT               FC50106       15          I
          -FC5A300
 STMTF              NZ     B7,SFD30    IF *(* DOES NOT FOLLOW DUMMY ARGUMENT               FC5A300       49     A     
 STMTF              FATAL  E.SF12      ** DUMMY ARGUMENT MUST BE USED AS VARIABLE          FC50106       16     A     
 STMTF              EQ     SFD30                                                           FC5A300       50     A     
 STMTF                                                                                     FC50106       17     A     
 STMTF     SFD31    SB7    X1-O.VAR                                                        FC50106       18          I
          -FC5A300
 STMTF     SFD31    SB7    X1-O.RP                                                         FC5A300       51     A     
 STMTF              NZ     B7,SFD32    IF NOT *)*                                          FC5A300       52     A     
 STMTF              SB6    B6-1        DECREMENT PARENTHESIS COUNT                         FC5A300       53     A     
 STMTF              EQ     SFD30                                                           FC5A300       54     A     
 STMTF                                                                                     FC5A300       55     A     
 STMTF     SFD32    SB7    X1-O.VAR                                                        FC5A300       56     A     
 STMTF              NZ     B7,SFD30    IF NOT VARIABLE                                     STMTF        155     A     
 STMTF              SCAN   T.SCR,SCS   SCAN TO SEE IF ARGUMENT                             STMTF        156     A     
 STMTF              MI     B7,SFD30    IF NOT IN TABLE (NOT ARGUMENT)                      STMTF        157     A     
 STMTF              ZR     B7,E.SF03   IF RECURSIVE DEFINITION                             STMTF        158     A     
 STMTF              =A4    B4-1                                                            FC5A118        5          I
          -FC50106
 STMTF              SA6    FILL.2                                                          FC50106       19     A     
 STMTF              SA4    B4-1                                                            FC50106       20     A     
 STMTF              SX0    X4-O.CONS                                                       FC5A118        6     A     
 STMTF              ZR     X0,SFD30    IF NOT ARGUMENT (E,D TYPE CONSTANT)                 FC5A118        7     A     
 STMTF              SX0    X4-O.PERIOD                                                     FC5A118        8     A     
 STMTF              ZR     X0,SFD30    IF NOT ARGUMENT (E, D, TYPE CONSTANT)               FC5A118        9     A     
 STMTF              =X0    1                                                               STMTF        159     A     
 STMTF              IX7    X0+X2       UPDATE USE COUNT                                    STMTF        160     A     
 STMTF              =X6    B7-1                                                            STMTF        161     A     
 STMTF              AX6    B1,X6                                                           STMTF        162     A     
 STMTF              LX0    SP.CNTP                                                         STMTF        163          I
          -FC50104
 STMTF              LX0    ST.CNTP                                                         FC50104      232     A     
 STMTF              SA7    A2          RESET WITH USE COUNT UPDATED                        STMTF        164     A     
 STMTF                                                                                     STMTF        165     A     
 STMTF    **        HERE IF ARGUMENT REFERENCE FOUND.                                      STMTF        166     A     
 STMTF                                                                                     STMTF        167     A     
 STMTF              =A4    A2+1                                                            STMTF        168     A     
 STMTF              LX4    TB.ORDP                                                         STMTF        169     A     
 STMTF              SX3    B3                                                              STMTF        170     A     
 STMTF              LX6    TB.ACTEP                                                        STMTF        171     A     
 STMTF              LX3    TB.DACP                                                         STMTF        172     A     
 STMTF              BX6    X6+X3                                                           STMTF        173     A     
 STMTF              SB3    B4-B5       NEW CHAIN POINTER                                   STMTF        174     A     
 STMTF              BX6    X6+X4       INSTALL MODE IN TOKEN                               STMTF        175     A     
 STMTF              SX0    O.STFA                                                          STMTF        176     A     
 STMTF              IX6    X0+X6                                                           STMTF        177     A     
 STMTF              SA6    B4          RESET TO INDICATE ARGUMENT.                         STMTF        178     A     
 STMTF              =A3    B4+1                                                            STMTF        179     A     
 STMTF              SB7    X3-O.VAR                                                        STMTF        180     A     
 STMTF              NZ     B7,SFD30    IF NOT LONG NAME                                    STMTF        181     A     
 STMTF                                                                                     STMTF        182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF    **        THROW AWAY EXCESS TOKENS IN NAME (OVERWRITE STRING BUFFER)             STMTF        183     A     
 STMTF                                                                                     STMTF        184     A     
 STMTF     SFD32    =A3    A3+1                                                            STMTF        185          I
          -FC5A300
 STMTF     SFD35    SA3    A3+1                                                            FC5A300       57     A     
 STMTF              SB7    X3-O.VAR                                                        STMTF        186     A     
 STMTF              ZR     B7,SFD32    IF MORE TOKENS IN NAME                              STMTF        187          I
          -FC5A300
 STMTF              =A1    A3-1                                                            STMTF        188          I
          -FC5A300
 STMTF     SFD34    =A1    A1+1                                                            STMTF        189          I
          -FC5A300
 STMTF              NZ     X1,SFD34    IF NOT EOS                                          STMTF        190          I
          -FC5A300
 STMTF              ZR     B7,SFD35    IF MORE TOKENS IN NAME                              FC5A300       58     A     
 STMTF              SA1    A3-1                                                            FC5A300       59     A     
 STMTF                                                                                     FC5A300       60     A     
 STMTF     SFD37    =A1    A1+1                                                            FC5A300       61     A     
 STMTF              NZ     X1,SFD37    IF NOT *EOS*                                        FC5A300       62     A     
 STMTF              =B7    A3-1                                                            STMTF        191     A     
 STMTF              MOVE   A1-B7,A3,B4+1     THROW AWAY THE WHOLE MESS                     STMTF        192     A     
 STMTF              EQ     SFD30       CONTINUE                                            STMTF        193     A     
 STMTF                                                                                     STMTF        194     A     
 STMTF    **        VALIDATE THAT ALL DUMMY PARAMETERS ARE USED.                           STMTF        195     A     
 STMTF    *         (IF ONE IS NOT USED OUTPUT WARNING MESSAGE.)                           STMTF        196     A     
 STMTF                                                                                     STMTF        197     A     
 STMTF     SFD50    SA2    T=SCR                                                           STMTF        198          I
          -FC5A300
 STMTF     SFD50    ZR     B6,SFD52    IF PARENTHESES BALANCED                             FC5A300       63     A     
 STMTF              SB7    E.LP2                                                           FC5A300       64     A     
 STMTF              MI     B6,SFD51    IF TOO FEW LEFT PARENS                              FC5A300       65     A     
 STMTF              SB7    E.LP1                                                           FC5A300       66     A     
 STMTF                                                                                     FC5A300       67     A     
 STMTF     SFD51    FATAL  B7                                                              FC5A300       68     A     
 STMTF                                                                                     FC5A300       69     A     
 STMTF     SFD52    SA2    T=SCR                                                           FC5A300       70     A     
 STMTF              SA4    T.SCR                                                           STMTF        199     A     
 STMTF              SA1    X4                                                              STMTF        200          I
          -FC5A300
 STMTF              BX6    X1                                                              STMTF        201          I
          -FC5A300
 STMTF              SA6    FILL.       STMTF NAME                                          STMTF        202          I
          -FC5A300
 STMTF              SX6    B3                                                              STMTF        203     A     
 STMTF              SA6    SCR+2       SAVE CHAIN POINTER                                  STMTF        204     A     
 STMTF              MX0    -SP.CNTL                                                        STMTF        205          I
          -FC50104
 STMTF              MX0    -ST.CNTL                                                        FC50104      233     A     
 STMTF              SB3    X2-2        DO NOT CHECK STMT FUNCTION                          STMTF        206     A     
 STMTF              MX5    TB.TOCL                                                         STMTF        207     A     
 STMTF              SB5    B4-B5       LENGTH OF STATEMENT FUNCTION SKELETON               STMTF        208     A     
 STMTF              AX2    B1,X2                                                           STMTF        209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              SB6    X2-1                                                            STMTF        210     A     
 STMTF                                                                                     STMTF        211     A     
 STMTF     SFD52    SA2    X4+B3                                                           STMTF        212          I
          -FC5A300
 STMTF     SFD55    SA2    X4+B3                                                           FC5A300       71     A     
 STMTF              SB3    B3-2                                                            STMTF        213     A     
 STMTF              LX2    -SP.CNTP                                                        STMTF        214          I
          -FC50104
 STMTF              LX2    -ST.CNTP                                                        FC50104      234     A     
 STMTF              BX1    -X0*X2                                                          STMTF        215     A     
 STMTF              MI     B3,SFD60    IF END OF ARGUMENT LIST                             STMTF        216     A     
 STMTF              NZ     X1,SFD52    IF ARGUMENT USED                                    STMTF        217          I
          -FC5A300
 STMTF              NZ     X1,SFD55    IF ARGUMENT USED                                    FC5A300       72     A     
 STMTF              BX6    X5*X2                                                           STMTF        218     A     
 STMTF              SA6    FILL.2      ARGUMENT NOT USED.                                  STMTF        219     A     
 STMTF              WARN   E.SF04      ARGUMENT NEVER USED                                 STMTF        220     A     
 STMTF              EQ     SFD52       LOOP THROUGH TABLE                                  STMTF        221          I
          -FC5A300
 STMTF              EQ     SFD55       LOOP THROUGH TABLE                                  FC5A300       73     A     
 STMTF                                                                                     STMTF        222     A     
 STMTF    **        HERE WHEN ALL ARGUMENT REFERENCES IN STATEMENT FUNCTION HAVE           STMTF        223     A     
 STMTF    *         BEEN TRANSLATED AND VALIDATED.                                         STMTF        224     A     
 STMTF    *         NOW ADD SKELETON FOR STATEMENT FUNCTION TO T.STF.                      STMTF        225     A     
 STMTF    *         (B5) = LENGTH OF SKELETON FOR THIS STATEMENT FUNCTION                  STMTF        226     A     
 STMTF    *         (B6) = NUMBER OF PARAMETERS.                                           STMTF        227     A     
 STMTF                                                                                     STMTF        228     A     
 STMTF     SFD60    LE     B5,B1,E.SF02      IF NULL PARAMETER LIST                        STMTF        229     A     
 STMTF              SA2    E=TOTAL                                                         STMTF        230     A     
 STMTF              NZ     X2,SFDEX    IF ERRORS, SUPPRESS DEFINITION                      STMTF        231     A     
 STMTF              =X6    B6+1                                                            STMTF        232     A     
 STMTF              SX7    B5                                                              STMTF        233     A     
 STMTF              SA6    ARGNUM      SAVE B6 CELL                                        STMTF        234     A     
 STMTF              SA7    STFLEN      SAVE B5 CELL                                        STMTF        235     A     
 STMTF                                                                                     STMTF        236     A     
 STMTF    **        MAKE SYMBOL TABLE ENTRY                                                STMTF        237     A     
 STMTF                                                                                     STMTF        238     A     
 STMTF              SA1    T.SCR                                                           STMTF        239     A     
 STMTF              =X6    CR.DEC                                                          STMTF        240     A     
 STMTF              SA2    X1                                                              STMTF        241     A     
 STMTF              SA6    REFVAR      SET REF MAP VALUE                                   STMTF        242     A     
 STMTF              BX6    X2                                                              STMTF        243     A     
 STMTF              CALL   SSY         SCAN SYMBOL TABLE                                   STMTF        244     A     
 STMTF              PL     B7,SFD64    IF ALREADY IN SYMTAB                                STMTF        245     A     
 STMTF              CALL   STY         SET IMPLICIT TYPE                                   STMTF        246     A     
 STMTF              BX7    X1                                                              STMTF        247     A     
 STMTF              ADSYM  T.SYM       ADD STATEMENT FUNCTION NAME TO SYMTAB               STMTF        248     A     
 STMTF                                                                                     STMTF        249     A     
 STMTF     SFD64    BX4    X2          PRESERVE *WB*                                       STMTF        250     A     
 STMTF              SB5    B7          PRESERVE SYMTAB ORDINAL                             STMTF        251     A     
 STMTF              LX0    XR.TAGP                                                         STMTF        252     A     
 STMTF              ADDREF X0,CR.DEF                                                       STMTF        253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              CLAS=  X3,WB,(NVAR,FUN,DEF)                                            STMTF        254     A     
 STMTF              BX6    X3+X4                                                           STMTF        255     A     
 STMTF              SA2    T.SYM                                                           STMTF        256     A     
 STMTF              =B4    B5+WC.W-WB.W                                                    STMTF        257     A     
 STMTF              SA3    X2+B4                                                           STMTF        258     A     
 STMTF              CLAS=  X1,WC,(FUNT,ARGC)                                               STMTF        259     A     
 STMTF              =A6    X2+B5                                                           STMTF        260     A     
 STMTF              SB7    B5          RESTORE B7                                          STMTF        261     A     
 STMTF              SX7    B6          SET (WC.ARGC) = NUMBER OF ARGUMENTS                 STMTF        262     A     
 STMTF              BX3    -X1*X3      CLEAR POSSIBLE PREVIOUS FIELDS                      STMTF        263     A     
 STMTF              LX7    WC.ARGCP                                                        STMTF        264     A     
 STMTF              =X1    MF.STF                                                          STMTF        265     A     
 STMTF              BX3    X7+X3                                                           STMTF        266     A     
 STMTF              LX1    WC.FUNTP                                                        STMTF        267     A     
 STMTF              BX7    X3+X1       UPDATE (WC)                                         STMTF        268     A     
 STMTF              SA7    A3                                                              STMTF        269     A     
 STMTF              SX6    B7                                                              STMTF        270     A     
 STMTF              SA6    SCR         REMEMBER (SCR) = SYMTAB INDEX OF NAME               STMTF        271     A     
 STMTF                                                                                     STMTF        272     A     
 STMTF    **        ADD SKELETON TO TABLE                                                  STMTF        273     A     
 STMTF                                                                                     STMTF        274     A     
 STMTF              SA1    ARGNUM                                                          STMTF        275     A     
 STMTF              SA2    STFLEN                                                          STMTF        276     A     
 STMTF              SB6    X1                                                              STMTF        277     A     
 STMTF              SB5    X2                                                              STMTF        278     A     
 STMTF              SA1    SCR+1                                                           STMTF        279     A     
 STMTF              SB4    X1                                                              STMTF        280     A     
 STMTF              SX4    B5+2        ROOM FOR HEADER AND EOS                             STMTF        281     A     
 STMTF              SA5    T=STF                                                           STMTF        282     A     
 STMTF              ALLOC  T.STF,X4    RESERVE SPACE FOR THIS STATEMENT FUNCTION           STMTF        283     A     
 STMTF                                                                                     STMTF        284     A     
 STMTF    **        (X1) = NEW ORGIN OF TS.ARG.                                            STMTF        285     A     
 STMTF    *         (X2) = LENGTH.                                                         STMTF        286     A     
 STMTF    *         (X5) = FWA FOR CURRENT SKELETON RELATIVE TO T.STF                      STMTF        287     A     
 STMTF    *         (B6) = NUMBER OF PARAMETERS +1.                                        STMTF        288     A     
 STMTF                                                                                     STMTF        289     A     
 STMTF              SA4    T.SYM                                                           STMTF        290     A     
 STMTF              IX1    X1+X5                                                           STMTF        291     A     
 STMTF              SA3    SCR         STATEMENT FUNCTION *WB* INDEX                       STMTF        292     A     
 STMTF              =X0    B6-1        NUMBER OF ARGUMENTS                                 STMTF        293     A     
 STMTF              SB7    X4                                                              STMTF        294     A     
 STMTF              SA2    X3+B7       TAG FOR CURRENT STATEMENT FUNCTION                  STMTF        295     A     
 STMTF              MX6    -WB.STFPL                                                       STMTF        296     A     
 STMTF              LX6    WB.STFPP                                                        STMTF        297     A     
 STMTF              BX2    X6*X2                                                           STMTF        298     A     
 STMTF              SB3    X1          FWA FOR HEADER                                      STMTF        299     A     
 STMTF              =A4    B4+1        FWA OF SKELETON                                     STMTF        300     A     
 STMTF              LX5    WB.STFPP                                                        STMTF        301     A     
 STMTF              BX6    X2+X5       SET (WB.STFP) = INDEX OF MACRO IN T.STF             STMTF        302     A     
 STMTF              SA6    A2          STATEMENT FUNCTION *WB*                             STMTF        303     A     
 STMTF              SA3    SCR+2                                                           STMTF        304     A     
 STMTF              BX6    X3                                                              STMTF        305     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTF   
  
 STMTF              LX6    SF.DACPP                                                        STMTF        306     A     
 STMTF              SA6    B3          HEADER GETS CHAIN POINTER                           STMTF        307     A     
 STMTF              =B3    B3+1                                                            STMTF        308     A     
 STMTF                                                                                     STMTF        309     A     
 STMTF    **        ADD SKELETON TO T.STF FOR LATER PROCESSING WHEN STATEMENT              STMTF        310     A     
 STMTF    *         FUNCTION IS REFERENCED.                                                STMTF        311     A     
 STMTF    *         (B5) = LENGTH OF SKELETON.                                             STMTF        312     A     
 STMTF    *         (A4) _ SKELETON                                                        STMTF        313     A     
 STMTF    *         (B3) _ FWA FOR SKELETON                                                STMTF        314     A     
 STMTF                                                                                     STMTF        315     A     
 STMTF     SFD70    BX6    X4                                                              STMTF        316     A     
 STMTF              =B5    B5-1                                                            STMTF        317     A     
 STMTF              SA6    B3          ADD SKELETON WORD TO T.STF                          STMTF        318     A     
 STMTF              =A4    A4+1        NEXT WORD                                           STMTF        319     A     
 STMTF              =B3    B3+1                                                            STMTF        320     A     
 STMTF              NZ     B5,SFD70    IF NOT END                                          STMTF        321     A     
 STMTF              =X6    O.EOS       INDICATE END OF STATEMENT FUNCTION                  STMTF        322     A     
 STMTF              =X7    O.RP                                                            STMTF        323     A     
 STMTF              SA7    A6                                                              STMTF        324     A     
 STMTF              =A6    A7+1                                                            STMTF        325     A     
 STMTF     SFDEX    BSSENT 0           ...RETURN FROM ERROR PROCESSOR                      STMTF        326     A     
 STMTF              SHRINK T=SCR,0     CLEAR TABLE                                         STMTF        327     A     
 STMTF              EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     STMTF        328     A     
 STMTF                                                                                     STMTF        329     A     
 STMTF     STFMASK  SYMASK (TB.TOC)                                                        STMTF        330     A     
 STMTF     STFLEN   DATA   0           TEMP SAVE CELL                                      STMTF        331     A     
 STMTF     ARGNUM   DATA   0           TEMP SAVE CELL                                      STMTF        332     A     
 STMTF     SFDA     BSS    1                                                               STMTF        333     A     
 STMTF     SFR      SPACE  4,10                                                            STMTF        334     A     
 STMTF                                                                                     STMTF        335     A     
 STMTF              LIST   D                                                               STMTF        336     A     
 STMTF              END                                                                    STMTF        337     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - STMTF   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          STMTF                      337       306
          FC5A118                      5         4
          FC5A192                     18        16
          FC5A213                      3         1
          FC50106                     13         9
          FC50104                      5         4
          FC5A300                     51        50
          FC50326                     10        10
          FC50610                      1         1
          FC50883                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *DECK     LABEL - LABELS AND *DO* STATEMENT.                                     LABEL          1     A     
 LABEL              IDENT  LABEL                                                           LABEL          2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL     LABEL    SECT   (LABELS AND *DO* STATEMENT.)                                    LABEL          3     A     
 LABEL     LABEL    SPACE  4                                                               LABEL          4     A     
 LABEL    *         IN ALLOC                                                               LABEL          5     A     
 LABEL              EXT    ADW,ALC                                                         LABEL          6     A     
 LABEL                                                                                     LABEL          7     A     
 LABEL    *         IN CONRED                                                              LABEL          8     A     
 LABEL              EXT    LCT                                                             LABEL          9     A     
 LABEL                                                                                     LABEL         10     A     
 LABEL    *         IN FEC                                                                 LABEL         11     A     
 LABEL              EXT    ARGCOMA,ARGMODE,ASK,ASL,CSB,CSLTAG,CT1,DOSL,DTI,ERT             LABEL         12          I
          -FC5A231
 LABEL              EXT    ARGCOMA,ARGMODE,ASK,ASL,BBC,CSB,CSLTAG,CT1,DTI,ERT              FC5A231      132     A     
 LABEL              EXT    ESTACK,ESY,FEC.RTN,FLOW,HANGER,INN,IFLEVEL,LDEAD                LABEL         13     A     
 LABEL              EXT    NOPATH,REFLIN,REFNUM,SSY                                        LABEL         14          I
          -FC5A141
 LABEL              EXT    NOPATH,REFLIN,REFNUM,SSY,BBC                                    FC5A141      323          I
          -FC5A231
 LABEL              EXT    NOPATH,REFLIN,REFNUM,SSY                                        FC5A231      133          I
          -FC50632
 LABEL              EXT    NOPATH,OIL,REFLIN,REFNUM,SSY                                    FC50632        6     A     
 LABEL                                                                                     LABEL         15     A     
 LABEL    *         IN FERRS                                                               LABEL         16     A     
 LABEL              EXT    E.DO01,E.DO03,E.DO05,E.DO06,E.DO07,E.DO12,E.DO13,E.DO14         LABEL         17          I
          -FC5A211
 LABEL              EXT    E.DO18,E.IF16,E.NP1,E.SL00,E.SL01,E.SL02,E.SL03,E.SL04          LABEL         18          I
          -FC5A211
 LABEL              EXT    E.SL05,E.SL06,E.SL07,E.SL08,E.SL09,E.SL10,E.SL11,E.SL12         LABEL         19          I
          -FC5A211
 LABEL              EXT    E.SL13,E.SL14,E.SL15,E.SL16,E.SL17,E.SL18,E.SL19,E.SL20         LABEL         20          I
          -FC5A124  -FC5A211
 LABEL              EXT    E.SL13,E.SL14,E.SL15,E.SL16,E.SL17,E.SL18,E.SL19                FC5A124       32          I
          -FC5A211
 LABEL              EXT    FILL.,FILL.2                                                    LABEL         21          I
          -FC5A211
 LABEL              EXT    E.DO01,E.DO03,E.DO05,E.DO06,E.DO07,E.DO08,E.DO12,E.DO13         FC5A211       82     A     
 LABEL              EXT    E.DO14,E.DO18,E.DO19,E.IF16,E.NP1,E.SL00,E.SL01,E.SL02          FC5A211       83     A     
 LABEL              EXT    E.SL03,E.SL04,E.SL05,E.SL06,E.SL07,E.SL08,E.SL09,E.SL10         FC5A211       84     A     
 LABEL              EXT    E.SL11,E.SL12,E.SL13,E.SL14,E.SL15,E.SL16,E.SL17,E.SL18         FC5A211       85     A     
 LABEL              EXT    E.SL19,FILL.,FILL.2                                             FC5A211       86          I
          -FC5A371
 LABEL              EXT    E.SL19,FILL.,FILL.2,FILL.3                                      FC5A371        6          I
          -FC51356
 LABEL              EXT    E.SL19,FILL.,FILL.2,FILL.3,E.DO20,E.SL20                        FC51356       21     A     
 LABEL                                                                                     LABEL         22     A     
 LABEL    *         IN FLINK                                                               LABEL         23     A     
 LABEL              EXT    BBC,MDD,DER,LPE                                                 LABEL         24          I
          -FC5A141
 LABEL              EXT    MDD,DER,LPE                                                     FC5A141      324     A     
 LABEL                                                                                     LABEL         25     A     
 LABEL    *         IN FSNAP                                                               LABEL         26     A     
 LABEL              EXT    DMT=                                                            LABEL         27     A     
 LABEL                                                                                     LABEL         28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *         IN FTN                                                                 LABEL         29     A     
 LABEL              EXT    CO.SNAP                                                         LABEL         30     A     
 LABEL                                                                                     LABEL         31     A     
 LABEL    *         IN IO                                                                  FC5A111      147     A     
 LABEL              EXT    IODOLEN                                                         FC5A111      148     A     
 LABEL                                                                                     FC5A111      149     A     
 LABEL    *         IN KEY                                                                 LABEL         32     A     
 LABEL              EXT    INIF,IFFLAG                                                     LABEL         33          I
          -FC5A341
 LABEL              EXT    IFFLAG,INIF,KW=ENDI                                             FC5A341       22     A     
 LABEL                                                                                     LABEL         34     A     
 LABEL    *         IN LEX                                                                 LABEL         35     A     
 LABEL              EXT    TB=TYPE,KW=FORM                                                 LABEL         36     A     
 LABEL                                                                                     LABEL         37     A     
 LABEL    *         IN PAR                                                                 LABEL         38     A     
 LABEL              EXT    ACT,CURST,DOARM,DO.BEG,DTC,EMT,OPBSS,OPDUM,PAR                  LABEL         39     A     
 LABEL                                                                                     LABEL         40     A     
 LABEL    *         IN PEM                                                                 LABEL         41     A     
 LABEL              EXT    PDM                                                             LABEL         42          I
          -FC5A211
 LABEL              EXT    ANSI=,PDM                                                       FC5A211       87     A     
 LABEL                                                                                     LABEL         43     A     
 LABEL    *         IN PUC                                                                 LABEL         44     A     
 LABEL              EXT    E=TOTAL,N.DOB,N.GL,T=ARG,T=BLST,T=PAR,T=SCR,T.BLST              LABEL         45          I
          -FC50749
 LABEL              EXT    T.SCR,T.SYM,WO.DOLG,WO.DOOT,WO.LOR,T.PAR                        LABEL         46          I
          -FC50749
 LABEL              EXT    CONONE,E=TOTAL,N.DOB,N.GL,T=ARG,T=BLST,T=PAR,T=SCR              FC50749        7     A     
 LABEL              EXT    T.BLST,T.PAR,T.SCR,T.SYM,WO.DOLG,WO.DOOT,WO.LOR                 FC50749        8     A     
 LABEL              EXT    T=DATL                                                          FC51499        8     A     
 LABEL                                                                                     LABEL         47     A     
 LABEL    *         IN QSKEL                                                               LABEL         48          I
          -FC50015
 LABEL              EXT    V=DOC.S,V=DOC.L,V=GOTO,V=NOOP,V=SUBST                           LABEL         49          I
          -FC50015
 LABEL    *         IN QSKEL/FSKEL                                                         FC50015       10     A     
 LABEL              EXT    V=GOTO,V=NOOP                                                   FC50015       11          I
          -FC51364
 LABEL              EXT    V=GOTO,V=NOOP,V=DOC.S,V=DOC.O                                   FC51364       15     A     
 LABEL                                                                                     LABEL         50     A     
 LABEL    *         IN UTILITY                                                             LABEL         51     A     
 LABEL              EXT    MVE=                                                            LABEL         52     A     
 LABEL     CELLS    SPACE  4,10                                                            LABEL         53     A     
 LABEL    **        DATA STORAGE.                                                          LABEL         54     A     
 LABEL                                                                                     LABEL         55     A     
 LABEL                                                                                     LABEL         56     A     
 LABEL     DOMODE   BSSENT 1           MODE OF CURRENT LOOP CONTROL-INDEX                  LABEL         57     A     
 LABEL              TITLE  STATEMENT LABELS.                                               LABEL         58     A     
 LABEL     CUL      SPACE  4,8                                                             LABEL         59     A     
 LABEL    **        CUL -  COMPILE (UPCOMING) STATEMENT LABEL                              LABEL         60     A     
 LABEL    *         ENTRY  X1 = DPC STATEMENT LABEL TO BE ASSEMBLED                        LABEL         61     A     
 LABEL    *                     (0L FORMAT, MUST HAVE AT LEAST 12 ZERO BITS TERM-          LABEL         62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *                     INATING FIELD)                                             LABEL         63     A     
 LABEL    *                                                                                LABEL         64     A     
 LABEL    *         EXIT   (B2) = SHIFT COUNT NECESSARY TO LEFT-JUSTIFY (X6).              LABEL         65     A     
 LABEL    *                IF VALID LABEL --                                               LABEL         66     A     
 LABEL    *                  (X6) = DPC STATEMENT LABEL IN 0R FORM                         LABEL         67     A     
 LABEL    *                IF ERROR --                                                     LABEL         68     A     
 LABEL    *                  (X6) = -1                                                     LABEL         69     A     
 LABEL    *                                                                                LABEL         70     A     
 LABEL    *         POSTS ERRORS FOR ILL-FORMED STATEMENT LABELS.                          LABEL         71     A     
 LABEL    *         AND EXIT WITH STATEMENT LABEL = TO *ERR.*                              LABEL         72     A     
 LABEL    *         USES   A1,A2  B2,B7  X0,X6,X7                                          LABEL         73          I
          -FC5A124
 LABEL    *         USES   X - 0,1,2,6  A - 6  B - 2,7                                     FC5A124       33          I
          -FC5A168A 
 LABEL    *         USES   X - 0,1,2,3,4,6,7  A - 2,3,6  B - 2,3,7.                        FC5A168A      13     A     
 LABEL                                                                                     LABEL         74     A     
 LABEL                                                                                     LABEL         75     A     
 LABEL     CUL      SUBR   =           ...ENTRY/EXIT...                                    LABEL         76     A     
 LABEL              BX6    X1                                                              LABEL         77          I
          -FC5A168A 
 LABEL              MX0    -CHAR                                                           LABEL         78          I
          -FC5A168A 
 LABEL              SB2    10*CHAR                                                         LABEL         79          I
          -FC5A168A 
 LABEL              SA6    FILL.                                                           LABEL         80          I
          -FC5A168A 
 LABEL              LX1    CHAR                                                            LABEL         81          I
          -FC5A168A 
 LABEL              SX7    B0          IMPLIES NO LEADING ZERO FOUND                       LABEL         82          I
          -FC5A124  -FC5A168A 
 LABEL     CUL2     BX6    -X0*X1      ISOLATE LEADING CHARACTER                           LABEL         83          I
          -FC5A168A 
 LABEL              LX1    CHAR                                                            LABEL         84          I
          -FC5A168A 
 LABEL              SB7    X6-1R                                                           LABEL         85          I
          -FC5A168A 
 LABEL              ZR     B7,CUL2     IF BLANK, IGNORE                                    LABEL         86          I
          -FC5A168A 
 LABEL              SB7    X6-1R0                                                          LABEL         87          I
          -FC5A168A 
 LABEL              ZR     B7,CUL3     IF LEADING ZERO                                     LABEL         88          I
          -FC5A124  -FC5A168A 
 LABEL              ZR     B7,CUL2     IF LEADING ZERO                                     FC5A124       34          I
          -FC5A168A 
 LABEL              NZ     X6,CUL4     IF SIGNIFICANT CHARACTER                            LABEL         89          I
          -FC5A168A 
 LABEL              ZR     X7,EXIT.    IF NOT STATEMENT LABEL ZERO                         LABEL         90          I
          -FC5A124  -FC5A168A 
 LABEL              SA1    CULFLAG                                                         LABEL         91          I
          -FC5A124  -FC5A168A 
 LABEL              MI     X1,CUL10    IF STATEMENT LABEL ZERO ALLOWED                     LABEL         92          I
          -FC5A124  -FC5A168A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              FATAL  E.SL19      STATEMENT LABEL ZERO IS ILLEGAL                     LABEL         93          I
          -FC5A168A 
 LABEL              MX6    -1                                                              LABEL         94          I
          -FC5A168A 
 LABEL              EQ     EXIT.                                                           LABEL         95          I
          -FC5A168A 
 LABEL                                                                                     LABEL         96          I
          -FC5A168A 
 LABEL     CUL3     SX7    B1          LEADING ZERO DETECTED                               LABEL         97          I
          -FC5A124  -FC5A168A 
 LABEL              EQ     CUL2                                                            LABEL         98          I
          -FC5A124  -FC5A168A 
 LABEL                                                                                     LABEL         99          I
          -FC5A124  -FC5A168A 
 LABEL     CUL4     MI     B7,CUL12    IF NON-NUMERIC                                      LABEL        100          I
          -FC5A168A 
 LABEL              SB7    B7-10D                                                          LABEL        101          I
          -FC5A168A 
 LABEL              PL     B7,CUL12    IF NON-NUMERIC                                      LABEL        102          I
          -FC5A168A 
 LABEL                                                                                     LABEL        103          I
          -FC5A168A 
 LABEL     CUL6     BX2    -X0*X1      ISOLATE NEXT CHARACTER                              LABEL        104          I
          -FC5A168A 
 LABEL              LX1    CHAR                                                            LABEL        105          I
          -FC5A168A 
 LABEL              SB7    X2-1R                                                           LABEL        106          I
          -FC5A168A 
 LABEL              ZR     B7,CUL6     IF BLANK, IGNORE                                    LABEL        107          I
          -FC5A168A 
 LABEL              LX6    CHAR                                                            LABEL        108          I
          -FC5A168A 
 LABEL              IX6    X6+X2       MERGE CHARACTER INTO ASSEMBLY                       LABEL        109          I
          -FC5A168A 
 LABEL              SB7    X2-1R0                                                          LABEL        110          I
          -FC5A168A 
 LABEL              SB2    B2-CHAR                                                         LABEL        111          I
          -FC5A168A 
 LABEL              NZ     X2,CUL4     IF NOT ZERO CHARACTER                               LABEL        112          I
          -FC5A168A 
 LABEL              BX2    X6                                                              LABEL        113          I
          -FC5A168A 
 LABEL              LX6    -CHAR                                                           LABEL        114          I
          -FC5A168A 
 LABEL              AX2    6*CHAR                                                          LABEL        115          I
          -FC5A168A 
 LABEL              NZ     X2,CUL11    IF OVER FIVE NUMERIC CHARACTERS                     LABEL        116          I
          -FC5A124  -FC5A168A 
 LABEL              EQ     EXIT.                                                           LABEL        117          I
          -FC5A124  -FC5A168A 
 LABEL              ZR     X2,EXIT.    IF LABEL NOT TOO LONG                               FC5A124       35          I
          -FC5A168A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL        118          I
          -FC5A168A 
 LABEL    *         ERROR PROCESSING                                                       LABEL        119          I
          -FC5A168A 
 LABEL                                                                                     LABEL        120          I
          -FC5A168A 
 LABEL     CUL10    TRIV   E.SL20      STATEMENT LABEL ZERO IGNORED                        LABEL        121          I
          -FC5A124  -FC5A168A 
 LABEL              MX6    0                                                               LABEL        122          I
          -FC5A124  -FC5A168A 
 LABEL              EQ     EXIT.                                                           LABEL        123          I
          -FC5A124  -FC5A168A 
 LABEL                                                                                     LABEL        124          I
          -FC5A124  -FC5A168A 
 LABEL     CUL11    SB7    E.SL14                                                          LABEL        125          I
          -FC5A124  -FC5A168A 
 LABEL              SB7    E.SL14                                                          FC5A124       36          I
          -FC5A168A 
 LABEL              EQ     CUL13       CONTINUE                                            LABEL        126          I
          -FC5A168A 
 LABEL                                                                                     LABEL        127          I
          -FC5A168A 
 LABEL     CUL12    SB7    E.SL15                                                          LABEL        128          I
          -FC5A168A 
 LABEL                                                                                     LABEL        129          I
          -FC5A168A 
 LABEL     CUL13    FATAL  B7          OUTPUT ERROR MESSAGE                                LABEL        130          I
          -FC5A168A 
 LABEL              MX6    -1                                                              LABEL        131          I
          -FC5A168A 
 LABEL              EQ     EXIT.                                                           LABEL        132          I
          -FC5A168A 
 LABEL              SA2    ZRBLMSK     (X2) = ZERO AND BLANK MASK                          FC5A168A      14     A     
 LABEL              SA3    ="NUM09"    (X3) = 0...9 MASK                                   FC5A168A      15     A     
 LABEL              BX6    X1                                                              FC5A168A      16     A     
 LABEL              MX0    -CHAR                                                           FC5A168A      17     A     
 LABEL              SA6    FILL.                                                           FC5A168A      18     A     
 LABEL              SB2    10*CHAR                                                         FC5A168A      19     A     
 LABEL              BX6    0                                                               FC5A168A      20     A     
 LABEL              SB3    B2                                                              FC5A168A      21     A     
 LABEL                                                                                     FC5A168A      22     A     
 LABEL     CUL10    ZR     X1,CUL30    IF NO MORE CHARS                                    FC5A168A      23     A     
 LABEL              LX1    CHAR                                                            FC5A168A      24     A     
 LABEL              BX7    -X0*X1                                                          FC5A168A      25     A     
 LABEL              SB7    X7                                                              FC5A168A      26     A     
 LABEL              BX1    X1-X7       ERASE CHARACTER FROM INPUT                          FC5A168A      27     A     
 LABEL              LX4    X2,B7                                                           FC5A168A      28     A     
 LABEL              MI     X4,CUL10    IF BLANK OR LEAD 0                                  FC5A168A      29     A     
 LABEL              LX4    X3,B7                                                           FC5A168A      30     A     
 LABEL              SX2    1BS14       CLEAR LEAD 0 BIT                                    FC5A168A      31     A     
 LABEL              LX6    CHAR                                                            FC5A168A      32     A     
 LABEL              BX6    X6+X7       PACK CHAR                                           FC5A168A      33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SB2    B2-CHAR                                                         FC5A168A      34     A     
 LABEL              MI     X4,CUL10    IF DIGIT                                            FC5A168A      35     A     
 LABEL              SB7    E.SL15                                                          FC5A168A      36     A     
 LABEL                                                                                     FC5A168A      37     A     
 LABEL     CUL20    FATAL  B7                                                              FC5A168A      38     A     
 LABEL              MX6    -1                                                              FC5A168A      39     A     
 LABEL              EQ     EXIT.                                                           FC5A168A      40     A     
 LABEL                                                                                     FC5A168A      41     A     
 LABEL     CUL30    SB7    E.SL19      ** INVALID LABEL                                    FC5A168A      42     A     
 LABEL              EQ     B2,B3,CUL20 IF ZERO/NULL LABEL                                  FC5A168A      43     A     
 LABEL              SB3    4*CHAR                                                          FC5A168A      44     A     
 LABEL              SB7    E.SL14      ** LABEL TOO LONG                                   FC5A168A      45     A     
 LABEL              LE     B2,B3,CUL20 IF LABEL TOO LONG                                   FC5A168A      46     A     
 LABEL              EQ     EXIT.                                                           FC5A168A      47     A     
 LABEL                                                                                     FC5A168A      48     A     
 LABEL     ZRBLMSK  CON    1BS32+1BS14                                                     FC5A168A      49     A     
 LABEL                                                                                     LABEL        133          I
          -FC5A124
 LABEL     CULFLAG  BSZENT 1           NEGATIVE IF ZERO STATEMENT LABELS ALLOWED           LABEL        134          I
          -FC5A124
 LABEL     GSL      SPACE  4,10                                                            LABEL        135     A     
 LABEL    **        GSL -  GET STATEMENT LABEL                                             LABEL        136     A     
 LABEL    *                                                                                LABEL        137     A     
 LABEL    *         ENTERED FROM *FEC.* - STMT TRANSITION TABLE EXECUTIVE                  LABEL        138     A     
 LABEL    *         THIS ROUTINE HANDLES ALL LABEL DEFINITIONS                             LABEL        139     A     
 LABEL    *                                                                                FC50514        7     A     
 LABEL    *         ENTRY  (X6) = STATEMENT LABEL FIELD                                    LABEL        140     A     
 LABEL    *                (FILL.) = STATEMENT LABEL, LEFT-JUSTIFIED                       LABEL        141     A     
 LABEL    *                (REFLIN) = LINE NUMBER IN (XR.LINE) FIELD, REST ZERO.           LABEL        142     A     
 LABEL    *                                                                                LABEL        143     A     
 LABEL    *         EXIT   (STN) = STMT LABEL FIELD OF SOURCE CARD IN OR                   LABEL        144     A     
 LABEL    *                     FORMAT.                                                    LABEL        145     A     
 LABEL    *                (CSLTAG) = TAG OF THE STATEMENT LABEL.  42/ 0,  18/TAG          LABEL        146     A     
 LABEL    *                (DTI) = COPY OF (CSLTAG) IF THIS IS A DO-TERMINAL               LABEL        147     A     
 LABEL    *                                                                                LABEL        148     A     
 LABEL    *         USES   A1,A2,A3,A5,A6  X0,X1,X2,X3,X5,X6,X7  B2,B3,B7                  LABEL        149     A     
 LABEL    *                                                                                LABEL        150     A     
 LABEL    *         CALLS  ALU, ERT, ESY, SSY                                              LABEL        151     A     
 LABEL                                                                                     LABEL        152     A     
 LABEL                                                                                     LABEL        153     A     
 LABEL     GSL      SUBR   =           ...ENTRY/EXIT...                                    LABEL        154     A     
 LABEL              MI     X6,EXIT.    IF ERROR, EXIT TO CONTROLLER...                     LABEL        155     A     
 LABEL              LX6    WA.STLP                                                         LABEL        156     A     
 LABEL              CALL   SSY         SEARCH SYMBOL TABLE                                 LABEL        157     A     
 LABEL              SA5    TB=TYPE                                                         LABEL        158     A     
 LABEL              SB2    E.SL01                                                          LABEL        159     A     
 LABEL              BX7    X5                                                              LABEL        160     A     
 LABEL              LX7    -KW.JMPP                                                        LABEL        161     A     
 LABEL              MX3    -KW.JMPL                                                        LABEL        162     A     
 LABEL              BX3    -X3*X7      ISOLATE STMT PROCESSOR ADDRESS                      LABEL        163     A     
 LABEL              SX7    KW=FORM                                                         LABEL        164     A     
 LABEL              IX3    X3-X7                                                           LABEL        165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SB3    X3                                                              LABEL        166     A     
 LABEL              CLAS=  X7,WB,(LAB,SDEF)                                                LABEL        167     A     
 LABEL              MI     B7,GSL5     IF LABEL NOT PREVIOUSLY IN SYMTAB                   LABEL        168     A     
 LABEL              CLAS=  X3,WB,(SDEF,FDEF,NDEF)                                          LABEL        169     A     
 LABEL              BX1    X3*X2                                                           LABEL        170     A     
 LABEL              ZR     X1,GSL10    IF LABEL NOT DEFINED                                LABEL        171     A     
 LABEL                                                                                     LABEL        172     A     
 LABEL    **        HERE IF *STATEMENT LABEL* IS IN TABLE AND *DEFINED*                    LABEL        173     A     
 LABEL    *         ERROR - DUPLICATE STATEMENT LABEL DEFINITION.                          LABEL        174     A     
 LABEL                                                                                     LABEL        175     A     
 LABEL              SB2    E.SL00                                                          LABEL        176     A     
 LABEL              NZ     B3,GSL20    IF NOT A FORMAT STATEMENT                           LABEL        177     A     
 LABEL              SB2    E.SL16                                                          LABEL        178     A     
 LABEL              EQ     GSL20                                                           LABEL        179     A     
 LABEL                                                                                     LABEL        180     A     
 LABEL    **        HERE IF *STATEMENT LABEL* IS NOT IN TABLE.                             LABEL        181     A     
 LABEL                                                                                     LABEL        182     A     
 LABEL     GSL5     SA2    REFLIN                                                          LABEL        183     A     
 LABEL              LX2    -XR.LINEP+WC.LINEP                                              LABEL        184     A     
 LABEL              NZ     B3,GSL5A    IF NOT A FORMAT STMT                                LABEL        185     A     
 LABEL              CLAS=  X1,WB,(LAB,FDEF)                                                LABEL        186     A     
 LABEL              BX7    X1                                                              LABEL        187     A     
 LABEL              EQ     GSL7                                                            LABEL        188     A     
 LABEL                                                                                     LABEL        189     A     
 LABEL     GSL5A    SBIT   X5,KW.LBLP                                                      LABEL        190     A     
 LABEL              MI     X5,GSL6     IF EXECUTABLE STMT                                  LABEL        191     A     
 LABEL              CLAS=  X1,WB,(LAB,NDEF)                                                LABEL        192     A     
 LABEL              BX7    X1                                                              LABEL        193     A     
 LABEL              EQ     GSL7                                                            LABEL        194     A     
 LABEL                                                                                     LABEL        195     A     
 LABEL     GSL6     CLAS=  X7,WB,(LAB,SDEF)                                                LABEL        196     A     
 LABEL                                                                                     FC50293        5     A     
 LABEL     GSL7     ADSYM  T.SYM                                                           LABEL        197     A     
 LABEL              =B2    0                                                               LABEL        198     A     
 LABEL              EQ     GSL20       CONTINUE                                            LABEL        199     A     
 LABEL                                                                                     LABEL        200     A     
 LABEL    **        HERE IF *STATEMENT LABEL* IS IN TABLE.                                 LABEL        201     A     
 LABEL    *                AND IS NOT-DEFINED.                                             LABEL        202     A     
 LABEL                                                                                     LABEL        203     A     
 LABEL     GSL10    SA3    REFLIN                                                          LABEL        204     A     
 LABEL              BX1    X7          PRESERVE X7                                         LABEL        205     A     
 LABEL              LX3    -XR.LINEP+WC.LINEP                                              LABEL        206     A     
 LABEL              BX7    X3                                                              LABEL        207     A     
 LABEL              SA7    A2-WB.W+WC.W                                                    LABEL        208     A     
 LABEL              BX7    X1          RESTORE X7                                          LABEL        209     A     
 LABEL              NZ     B3,GSL10A   IF NOT A FORMAT STMT                                LABEL        210     A     
 LABEL              CLAS=  X1,WB,(FREF,SREF,DOT)                                           LABEL        211     A     
 LABEL              =B2    0                                                               LABEL        212     A     
 LABEL              CLAS=  X3,WB,(FDEF)                                                    LABEL        213     A     
 LABEL              BX1    X1*X2                                                           LABEL        214     A     
 LABEL              ZR     X1,GSL10B   IF NO REF BITS SET                                  LABEL        215     A     
 LABEL              HX6    WB.FREF                                                         LABEL        216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              MI     X6,GSL10B   IF PREVIOUSLY REFED AS FORMAT                       LABEL        217     A     
 LABEL              SB2    E.SL10                                                          LABEL        218     A     
 LABEL              LX6    WB.FREFP-WB.DOTP                                                LABEL        219     A     
 LABEL              MI     X6,GSL10B   IF A *DO* TERMINAL                                  LABEL        220     A     
 LABEL              SB2    E.SL12                                                          LABEL        221     A     
 LABEL              EQ     GSL10B                                                          LABEL        222     A     
 LABEL                                                                                     LABEL        223     A     
 LABEL     GSL10A   SBIT   X5,KW.LBLP                                                      LABEL        224     A     
 LABEL              MI     X5,GSL11    IF EXECUTABLE STMT                                  LABEL        225     A     
 LABEL                                                                                     FC50293        6     A     
 LABEL     GSL10B   BX6    X2+X3                                                           LABEL        226     A     
 LABEL              SA6    A2          RESET *WB* INDICATING DEFINED                       LABEL        227     A     
 LABEL              BX2    X6                                                              LABEL        228     A     
 LABEL              EQ     GSL20                                                           LABEL        229     A     
 LABEL                                                                                     LABEL        230     A     
 LABEL     GSL11    =B2    0                                                               LABEL        231     A     
 LABEL              HX2    WB.FREF                                                         LABEL        232     A     
 LABEL              PL     X2,GSL15    IF PRIOR REF WAS NOT AS FORMAT                      LABEL        233     A     
 LABEL              SB2    E.SL13      PREVIOUSLY USED AS FORMAT                           LABEL        234     A     
 LABEL                                                                                     FC50293        7     A     
 LABEL     GSL15    BX6    X6+X7                                                           LABEL        235     A     
 LABEL              LX2    X6          REMEMBER (X2) = NEW (WB.)                           LABEL        236     A     
 LABEL              SA6    A2          RESET *WB* INDICATING DEFINED                       LABEL        237     A     
 LABEL                                                                                     LABEL        238     A     
 LABEL    *         SETUP LABEL CELLS AND LINKAGES.                                        LABEL        239     A     
 LABEL    *                (X0) = SYMORD OF LABEL.                                         LABEL        240     A     
 LABEL    *                (X2) = SYMTAB (WB) OF LABEL.                                    LABEL        241     A     
 LABEL    *                (B2) = ERROR MESSAGE, .ZR. IF OKAY.                             LABEL        242     A     
 LABEL                                                                                     LABEL        243     A     
 LABEL     GSL20    BX6    X0                                                              LABEL        244     A     
 LABEL              SA6    CSLTAG                                                          LABEL        245     A     
 LABEL              ZR     B2,GSL30    IF NO ERROR                                         LABEL        246     A     
 LABEL              FATAL  B2                                                              LABEL        247     A     
 LABEL              EQ     EXIT.                                                           LABEL        248          I
          -FC50514
 LABEL              EQ     GSL50                                                           FC50514        8     A     
 LABEL                                                                                     LABEL        249     A     
 LABEL     GSL30    BX1    X2                                                              LABEL        250     A     
 LABEL              HX1    WB.DOT                                                          LABEL        251     A     
 LABEL              PL     X1,GSL40    IF NOT A DO-TERMINATOR                              LABEL        252     A     
 LABEL              SA6    DTI         INDICATE DO TERMINATION                             LABEL        253     A     
 LABEL                                                                                     FC50293        8     A     
 LABEL     GSL40    SA3    T=BLST                                                          LABEL        254     A     
 LABEL              ZR     X3,EXIT.    IF NOT IN BLOCK STRUCTURE                           LABEL        255          I
          -FC50514
 LABEL              ZR     X3,GSL50    IF NOT IN BLOCK STRUCTURE                           FC50514        9     A     
 LABEL              SBIT   X2,WB.FDEFP                                                     LABEL        256     A     
 LABEL              MI     X2,EXIT.    IF FORMAT LABEL                                     LABEL        257          I
          -FC50514
 LABEL              MI     X2,GSL50    IF FORMAT LABEL                                     FC50514       10     A     
 LABEL              SA1    TB=TYPE                                                         FC5A341       23     A     
 LABEL              SX2    KW=ENDI                                                         FC5A341       24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              HX1    KW.JMP                                                          FC5A341       25     A     
 LABEL              AX1    -KW.JMPL    EXTRACT STATEMENT TYPE                              FC5A341       26     A     
 LABEL              IX2    X1-X2                                                           FC5A341       27     A     
 LABEL              ZR     X2,EXIT.    IF ENDIF, DEFER ANALYSIS                            FC5A341       28          I
          -FC50514
 LABEL              ZR     X2,GSL50    IF ENDIF, DEFER ANALYSIS                            FC50514       11     A     
 LABEL              SA1    FILL.                                                           FC50293        9     A     
 LABEL              BX7    X1                                                              FC50293       10     A     
 LABEL              =A7    A1+1        DPC OF LABEL TO FILL.2                              FC50293       11     A     
 LABEL              SB2    1           INDICATE LABEL BEING DEFINED                        LABEL        258     A     
 LABEL              RJ     ALU         ANALYZE THE LABEL USAGE                             LABEL        259     A     
 LABEL                                                                                     FC50514       12     A     
 LABEL     GSL50    SA2    CSLTAG                                                          FC50514       13     A     
 LABEL              SX1    CR.LAB                                                          FC50514       14     A     
 LABEL              LX2    XR.TAGP                                                         FC50514       15     A     
 LABEL              ADDREF X2,X1                                                           FC50514       16     A     
 LABEL              EQ     EXIT.                                                           LABEL        260     A     
 LABEL     ISL      SPACE  4,10                                                            LABEL        261     A     
 LABEL    **        ISL -  IDENTIFY STATEMENT LABEL                                        LABEL        262     A     
 LABEL    *                                                                                LABEL        263     A     
 LABEL    *         ENTRY  (X6) = STATEMENT LABEL (IN STRING BUFFER FORMAT).               LABEL        264     A     
 LABEL    *                                                                                LABEL        265     A     
 LABEL    *                (X2) = USAGE DEFINITION FOR STATEMENT LABEL.                    LABEL        266     A     
 LABEL    *                --  SELECT ONE OF FOLLOWING  --                                 LABEL        267     A     
 LABEL    *                WB.SREF = CONTROL LABEL.  ==  GO TO  1                          LABEL        268     A     
 LABEL    *                WB.FREF = FORMAT LABEL.   ==  PRINT  1                          LABEL        269     A     
 LABEL    *                WB.DOT  = DO DEFINITION.  ==  DO     1                          LABEL        270     A     
 LABEL    *                *NULL*  = ASSIGN LABEL.   ==  ASSIGN 1 TO I                     LABEL        271     A     
 LABEL    *                                                                                LABEL        272     A     
 LABEL    *                (REFNUM)= TYPE OF REFERENCE FOR *CROSS REFERENCE*               LABEL        273     A     
 LABEL    *                          PROCESSOR.                                            LABEL        274     A     
 LABEL    *                                                                                LABEL        275     A     
 LABEL    *         EXIT   (X6) = PASS 2 TAG FOR STATEMENT LABEL                           LABEL        276     A     
 LABEL    *                                                                                LABEL        277     A     
 LABEL    *         NOTE   (X6) = -1 IF SYNTAX ERROR IN STATEMENT LABEL                    LABEL        278     A     
 LABEL    *                                                                                LABEL        279     A     
 LABEL    *         USES   A1,A2,A3,A4,A6,A7  X0,X1,X2,X3,X4,X6,X7  B2,B3,B7               LABEL        280     A     
 LABEL    *                FILL.2 = CURRENT STATEMENT LABEL IN 0L FORM.                    LABEL        281     A     
 LABEL    *                                                                                LABEL        282     A     
 LABEL    *         CALLS  ALU, CT1, CUL, ESY, RBE, SSY                                    LABEL        283     A     
 LABEL                                                                                     LABEL        284     A     
 LABEL                                                                                     LABEL        285     A     
 LABEL     ISL      SUBR   =           ...ENTRY/EXIT...                                    LABEL        286     A     
 LABEL                                                                                     LABEL        287     A     
 LABEL    *         FORM STATEMENT LABEL                                                   LABEL        288     A     
 LABEL                                                                                     LABEL        289     A     
 LABEL              SX0    X6-O.CONS                                                       LABEL        290     A     
 LABEL              ZR     X0,ISL2     IF DIGIT STRING                                     LABEL        291     A     
 LABEL              SX0    X6                                                              LABEL        292     A     
 LABEL              NZ     X0,E.SL18   IF TYPED OTHER THAN DIGIT STRING                    LABEL        293     A     
 LABEL     ISL2     MX0    TB.TOCL                                                         LABEL        294     A     
 LABEL              LX6    59-TB.TOCL-TB.TOCP+1                                            LABEL        295     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              BX6    X0*X6                                                           LABEL        296     A     
 LABEL              BX7    X2                                                              LABEL        297     A     
 LABEL              SA6    FILL.2                                                          LABEL        298     A     
 LABEL              SA1    IFFLAG                                                          LABEL        299     A     
 LABEL              CLAS=  X2,WB,(SREF)                                                    LABEL        300     A     
 LABEL              BX3    X2*X7                                                           LABEL        301     A     
 LABEL              BX3    X2-X3       X3 = 0 ONLY IF WB.SREF IS SET                       LABEL        302     A     
 LABEL              BX3    X1+X3       X3 = 0 IF IFFLAG AND PREVIOUS X3 ARE BOTH 0         LABEL        303     A     
 LABEL              MX2    0                                                               LABEL        304     A     
 LABEL              NZ     X3,ISL4     IF WB.ACT NOT TO BE SET                             LABEL        305     A     
 LABEL              CLAS=  X2,WB,(ACT)                                                     LABEL        306     A     
 LABEL                                                                                     LABEL        307     A     
 LABEL     ISL4     BX7    X7+X2                                                           LABEL        308     A     
 LABEL              LX1    X6                                                              LABEL        309     A     
 LABEL              SA7    STLUSE      SET USAGE DEFINITION                                LABEL        310     A     
 LABEL              RJ     CUL                                                             LABEL        311     A     
 LABEL              SA6    STL0R       SAVE 0R LABEL                                       LABEL        312     A     
 LABEL              MI     X6,EXIT.    IF ERROR - EXIT...                                  LABEL        313          I
          -FC51356
 LABEL              MI     X6,ISL75    IF ERROR - EXIT                                     FC51356       22     A     
 LABEL              LX6    WA.STLP                                                         LABEL        314     A     
 LABEL              CALL   SSY                                                             LABEL        315     A     
 LABEL              MI     B7,ISL40    IF STATEMENT LABEL NOT IN TABLE                     LABEL        316     A     
 LABEL              SA3    T=BLST                                                          FC51356       23     A     
 LABEL              ZR     X3,ISL4A    IF NOT IN A DO OR BLOCK IF STRUCTURE                FC51356       24     A     
 LABEL              SA1    T.BLST                                                          FC51356       25     A     
 LABEL              SB3    X3-1                                                            FC51356       26     A     
 LABEL              SA3    X1+B3                                                           FC51356       27     A     
 LABEL              LX3    -LC.DOP                                                         FC51356       28     A     
 LABEL              SB3    X3                                                              FC51356       29     A     
 LABEL              ZR     B3,ISL4A    IF NOT IN A *DO*                                    FC51356       30     A     
 LABEL              CLAS=  X3,WB,(ALRN,GOTO)                                               FC51356       31     A     
 LABEL              BX7    X3                                                              FC51356       32     A     
 LABEL              SA3    STLUSE                                                          FC51356       33     A     
 LABEL              BX6    -X7*X3                                                          FC51356       34     A     
 LABEL              SA6    A3          WB.ALRN OR WB.GOTO CLEARED                          FC51356       35     A     
 LABEL     ISL4A    LX3    X2          X3 = WB OF LABEL                                    FC51356       36     A     
 LABEL              SBIT   X3,WB.DEFP                                                      FC51356       37     A     
 LABEL              PL     X3,ISL5     IF NOT YET DEFINED                                  FC51356       38     A     
 LABEL              CLAS=  X3,WB,(ALRN,GOTO)                                               FC51356       39     A     
 LABEL              LX6    X3                                                              FC51356       40     A     
 LABEL              SA3    STLUSE                                                          FC51356       41     A     
 LABEL              ZR     X3,ISL5     IF AMBIGUOUS USAGE                                  FC51564        7     A     
 LABEL              BX3    X3+X2                                                           FC51564        8     A     
 LABEL              BX7    X6*X3                                                           FC51356       42     A     
 LABEL              ZR     X7,ISL5     IF WB.ALRN/WB.GOTO NOT ON                           FC51356       43          I
          -FC51564
 LABEL              BX6    -X6*X2                                                          FC51356       44          I
          -FC51564
 LABEL              BX6    -X6*X3                                                          FC51564        9     A     
 LABEL              BX6    X6+X7                                                           FC51356       45     A     
 LABEL              SA6    A2          UPDATE WB.GOTO OR WB.ALRN                           FC51356       46          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
          -FC51564
 LABEL              HX2    WB.SREF                                                         FC51564       10     A     
 LABEL              MI     X2,ISL4B    IF NOT FIRST REFERENCE                              FC51564       11     A     
 LABEL              SA3    A2                                                              FC51564       12     A     
 LABEL              HX3    WB.FR                                                           FC51564       13     A     
 LABEL              AX3    -WB.FRL                                                         FC51564       14     A     
 LABEL              NZ     X3,ISL4B    IF NOT FIRST REFERENCE                              FC51564       15     A     
 LABEL              SA3    REFLIN                                                          FC51564       16     A     
 LABEL              LX3    -XR.LINEP+WB.FRP                                                FC51564       17     A     
 LABEL              BX6    X6+X3                                                           FC51564       18     A     
 LABEL                                                                                     FC51564       19     A     
 LABEL     ISL4B    SA6    A2          UPDATE WB,(GOTO OR ALRN) AND REF LINE               FC51564       20     A     
 LABEL                                                                                     LABEL        317     A     
 LABEL    **        STATEMENT LABEL ALREADY IN TABLE                                       LABEL        318     A     
 LABEL    *         CHECK VALIDITY OF CURRENT USE                                          LABEL        319     A     
 LABEL                                                                                     LABEL        320     A     
 LABEL              CALL   CT1                                                             LABEL        321          I
          -FC51356
 LABEL     ISL5     CALL   CT1                                                             FC51356       47     A     
 LABEL              SA6    STLTAG                                                          LABEL        322     A     
 LABEL              LX6    X2                                                              LABEL        323     A     
 LABEL              BX0    X2                                                              LABEL        324     A     
 LABEL              SB2    E.SL11                                                          LABEL        325     A     
 LABEL              SBIT   X2,WB.NDEFP                                                     LABEL        326     A     
 LABEL              MI     X2,ISL50    IF LABEL DEFINED ON NON-EXECUTABLE                  LABEL        327     A     
 LABEL              SA3    STLUSE                                                          LABEL        328     A     
 LABEL              CLAS=  X1,WB,(SDEF,FDEF)                                               LABEL        329     A     
 LABEL              BX1    X1*X0                                                           LABEL        330     A     
 LABEL              ZR     X1,ISL20    IF LABEL NOT DEFINED                                LABEL        331     A     
 LABEL              NZ     X3,ISL9     IF UNAMBIGUOUS USAGE                                LABEL        332     A     
 LABEL              SA3    IFFLAG                                                          LABEL        333     A     
 LABEL              CLAS=  X2,WB,(SREF,ACT)                                                LABEL        334          I
          -FC51564
 LABEL              CLAS=  X2,WB,(ACT)                                                     FC51564       21     A     
 LABEL              ZR     X3,ISL6     IF WB.ACT TO BE SET                                 LABEL        335     A     
 LABEL              CLAS=  X2,WB,(SREF)                                                    LABEL        336          I
          -FC51564
 LABEL              MX2    0                                                               FC51564       22     A     
 LABEL                                                                                     LABEL        337     A     
 LABEL     ISL6     SBIT   X1,WB.SDEFP                                                     LABEL        338     A     
 LABEL              MI     X1,ISL8     IF DEFINED AS EXECUATABLE LABEL                     LABEL        339     A     
 LABEL              CLAS=  X2,WB,(FREF)                                                    LABEL        340     A     
 LABEL     ISL8     BX6    X6+X2                                                           LABEL        341     A     
 LABEL              SA6    A2          RESET *WB* INDICATING THIS REFERENCE                LABEL        342     A     
 LABEL              EQ     ISL72       NO PROCESSING FOR AMBIGUOUS CASE                    LABEL        343     A     
 LABEL                                                                                     LABEL        344     A     
 LABEL    **        STATEMENT LABEL IS DEFINED.  TEST EXISTING DEFINITION BITS VS.         LABEL        345     A     
 LABEL    *         USAGE BITS PASSED TO THIS ROUTINE.  ACTION IS TAKEN AS PER THE         LABEL        346     A     
 LABEL    *         DECISION MATRIX BELOW:                                                 LABEL        347     A     
 LABEL    *                                                                                LABEL        348     A     
 LABEL    *                            IN SYMBOL TABLE                                     LABEL        349     A     
 LABEL    *                                                                                LABEL        350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *                          DOT      FMT      LAB                                 LABEL        351     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        352     A     
 LABEL    *                DOT   +  E.SL02 + E.SL04 + E.SL17 +                             LABEL        353     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        354     A     
 LABEL    *    USAGE       FMT   +  E.SL03 + ISL60  + E.SL06 +                             LABEL        355     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        356     A     
 LABEL    *                LAB   +  ISL60  + E.SL05 + ISL60  +                             LABEL        357     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        358     A     
 LABEL    *                                                                                LABEL        359     A     
 LABEL    *                (X0) = SYMBOL TABLE *WB* ENTRY                                  LABEL        360     A     
 LABEL    *                (X3) = USAGE BITS                                               LABEL        361     A     
 LABEL                                                                                     LABEL        362     A     
 LABEL     ISL9     SBIT   X3,WB.DOTP                                                      LABEL        363     A     
 LABEL              PL     X3,ISL12    IF NOT USED AS DO TERMINATOR                        LABEL        364     A     
 LABEL                                                                                     LABEL        365     A     
 LABEL    *         WHEN LABEL ALREADY DEFINED, USE AS DO TERMINATOR IS ILLEGAL.           LABEL        366     A     
 LABEL    *         SORT OUT WHAT HAPPENED AND ISSUE PROPER DIAGNOSTIC.                    LABEL        367     A     
 LABEL                                                                                     LABEL        368     A     
 LABEL              SBIT   X0,WB.DOTP                                                      LABEL        369     A     
 LABEL              PL     X0,ISL10    IF NOT DEFINED AS DO TERMINATOR                     LABEL        370     A     
 LABEL              SB2    E.SL02      DO LABEL ALREADY DEFINED, BAD NESTING               LABEL        371     A     
 LABEL              EQ     ISL50                                                           LABEL        372     A     
 LABEL                                                                                     LABEL        373     A     
 LABEL     ISL10    SB2    E.SL17      DO LABEL DEFINITION PRECEEDS DO STATEMENT           LABEL        374     A     
 LABEL              SBIT   X0,WB.FDEFP/WB.DOTP                                             LABEL        375     A     
 LABEL              PL     X0,ISL50    IF NOT DEFINED AS FORMAT                            LABEL        376     A     
 LABEL              SB2    E.SL04      ILLEGAL TRANSFER TO FORMAT                          LABEL        377     A     
 LABEL              EQ     ISL50                                                           LABEL        378     A     
 LABEL                                                                                     LABEL        379     A     
 LABEL     ISL12    SBIT   X3,WB.FREFP/WB.DOTP                                             LABEL        380     A     
 LABEL              PL     X3,ISL16    IF NOT USED AS FORMAT                               LABEL        381     A     
 LABEL                                                                                     LABEL        382     A     
 LABEL    *         LABEL USED AS FORMAT.  IF DEFINED AS NON FORMAT, ISSUE THE             LABEL        383     A     
 LABEL    *         PROPER DIAGNOSTIC.                                                     LABEL        384     A     
 LABEL                                                                                     LABEL        385     A     
 LABEL              SBIT   X0,WB.DOTP                                                      LABEL        386     A     
 LABEL              PL     X0,ISL14    IF NOT DEFINED AS DO TERMINATOR                     LABEL        387     A     
 LABEL              SB2    E.SL03      ILLEGAL USE OF DO TERMINATOR AS FORMAT              LABEL        388     A     
 LABEL              EQ     ISL50                                                           LABEL        389     A     
 LABEL                                                                                     LABEL        390     A     
 LABEL     ISL14    SBIT   X0,WB.FDEFP/WB.DOTP                                             LABEL        391     A     
 LABEL              MI     X0,ISL60    IF DEFINED AS FORMAT                                LABEL        392     A     
 LABEL              SB2    E.SL06      REFERENCE TO EXECUATABLE LABEL AS FORMAT            LABEL        393     A     
 LABEL              EQ     ISL50                                                           LABEL        394     A     
 LABEL                                                                                     LABEL        395     A     
 LABEL    *         THE LABEL HAS BEEN USED AS AN EXECUTABLE LABEL.                        LABEL        396     A     
 LABEL                                                                                     LABEL        397     A     
 LABEL     ISL16    SB2    E.SL05      ILLEGAL TRANSFER TO FORMAT                          LABEL        398     A     
 LABEL              LX3    X0                                                              FC51356       48     A     
 LABEL              SBIT   X0,WB.FDEFP                                                     LABEL        399     A     
 LABEL              MI     X0,ISL50    IF DEFINED AS FORMAT                                LABEL        400     A     
 LABEL              SB2    E.SL09      ILLEGAL TRANSFER INTO CLOSED BLOCK                  LABEL        401          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
          -FC51356
 LABEL              SBIT   X0,WB.INAP/WB.FDEFP                                             LABEL        402     A     
 LABEL              MI     X0,ISL50    IF ATTEMPT TO TRANSFER INTO CLOSED BLOCK            LABEL        403          I
          -FC51356
 LABEL              PL     X0,ISL18    IF NO ATTEMPT TO TRANSFER INTO CLOSED BLOCK         FC51356       49     A     
 LABEL              SBIT   X3,WB.ALRNP                                                     FC51356       50     A     
 LABEL              PL     X3,ISL17    IF NO ALTERNATE RETURN INTO CLOSED BLOCK            FC51356       51     A     
 LABEL              SB2    B7                                                              FC51356       52     A     
 LABEL              WARN   E.SL20      ALTERNATE RETURN INTO CLOSED BLOCK                  FC51356       53     A     
 LABEL              SB7    B2                                                              FC51356       54     A     
 LABEL                                                                                     FC51356       55     A     
 LABEL     ISL17    SBIT   X3,WB.GOTOP/WB.ALRNP                                            FC51356       56     A     
 LABEL              SB2    E.SL09      ILLEGAL TRANSFER INTO CLOSED BLOCK                  FC51356       57     A     
 LABEL              MI     X3,ISL50    IF UNCONDITIONAL *GOTO* INTO CLOSED BLOCK           FC51356       58     A     
 LABEL                                                                                     FC51356       59     A     
 LABEL     ISL18    SBIT   X0,WB.INDOP/WB.INAP                                             FC51356       60     A     
 LABEL              PL     X0,ISL19    IF NOT IN A DO                                      FC51356       61     A     
 LABEL              CALL     DER         DETECT EXTENDED RANGE (DO LOOPS)                  LABEL        404          I
          -FC50015
 LABEL              SBIT   X0,WB.INDOP/WB.INAP                                             FC50015       12          I
          -FC51356
 LABEL              PL     X0,ISL17    IF NOT IN A DO                                      FC50015       13          I
          -FC51356
 LABEL              SB2    B7                                                              FC50015       14     A     
 LABEL              ANSI   E.DO19                                                          FC50015       15     A     
 LABEL              SB7    B2                                                              FC50015       16     A     
 LABEL                                                                                     FC50015       17     A     
 LABEL     ISL17    CALL   DER         DETECT EXTENDED RANGE (DO LOOPS)                    FC50015       18          I
          -FC51356
 LABEL     ISL19    CALL   DER         DETECT EXTENDED RANGE (DO LOOPS)                    FC51356       62     A     
 LABEL              EQ     ISL60                                                           LABEL        405     A     
 LABEL                                                                                     LABEL        406     A     
 LABEL                                                                                     LABEL        407     A     
 LABEL    **        STATEMENT LABEL IS NOT DEFINED.  TEST EXISTING REFERENCE BITS          LABEL        408     A     
 LABEL    *         VS. USAGE BITS PASSED TO THIS ROUTINE.  ACTION TAKEN AS PER            LABEL        409     A     
 LABEL    *         THE DECISION MATRIX BELOW:                                             LABEL        410     A     
 LABEL    *                                                                                LABEL        411     A     
 LABEL    *                            IN SYMBOL TABLE                                     LABEL        412     A     
 LABEL    *                                                                                LABEL        413     A     
 LABEL    *                          DOT      FMT      LAB                                 LABEL        414     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        415     A     
 LABEL    *                DOT   +  ISL30  + E.SL07 + ISL30  +                             LABEL        416     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        417     A     
 LABEL    *    USAGE       FMT   +  E.SL06 + ISL60  + E.SL06 +                             LABEL        418     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        419     A     
 LABEL    *                LAB   +  ISL60  + E.SL08 + ISL60  +                             LABEL        420     A     
 LABEL    *                      +---------+--------+--------+                             LABEL        421     A     
 LABEL    *                                                                                LABEL        422     A     
 LABEL    *                (X0) = SYMBOL TABLE *WB* ENTRY                                  LABEL        423     A     
 LABEL    *                (X3) = USAGE BITS                                               LABEL        424     A     
 LABEL                                                                                     LABEL        425     A     
 LABEL     ISL20    ZR     X3,ISL72    IF USAGE AMBIGUOUS (ASSIGN)                         LABEL        426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              CLAS=  X1,WB,(SREF,FREF,DOT)                                           LABEL        427     A     
 LABEL              BX1    X0*X1                                                           LABEL        428     A     
 LABEL              ZR     X1,ISL60    IF NO REFERENCE BITS SET                            LABEL        429     A     
 LABEL                                                                                     LABEL        430     A     
 LABEL              SBIT   X3,WB.DOTP                                                      LABEL        431     A     
 LABEL              PL     X3,ISL22    IF NOT USED AS DO TERMINATOR                        LABEL        432     A     
 LABEL                                                                                     LABEL        433     A     
 LABEL    *         THIS USAGE IS AS DO TERMINATOR.                                        LABEL        434     A     
 LABEL                                                                                     LABEL        435     A     
 LABEL              SBIT   X0,WB.FREFP                                                     LABEL        436     A     
 LABEL              PL     X0,ISL30    IF NOT REFERENCED AS FORMAT                         LABEL        437     A     
 LABEL              SB2    E.SL07      ILLEGAL REFERENCE TO DO TERMINAL AS FORMAT          LABEL        438     A     
 LABEL              EQ     ISL50                                                           LABEL        439     A     
 LABEL                                                                                     LABEL        440     A     
 LABEL     ISL22    SBIT   X3,WB.FREFP/WB.DOTP                                             LABEL        441     A     
 LABEL              PL     X3,ISL26    IF NOT USED AS FORMAT                               LABEL        442     A     
 LABEL                                                                                     LABEL        443     A     
 LABEL    *         USAGE AS FORMAT                                                        LABEL        444     A     
 LABEL                                                                                     LABEL        445     A     
 LABEL              SBIT   X0,WB.DOTP                                                      LABEL        446     A     
 LABEL              PL     X0,ISL24    IF NOT REFERENCED AS DO TERMINATOR                  LABEL        447     A     
 LABEL              SB2    E.SL06      EXECUTABLE LABEL USED AS FORMAT                     LABEL        448     A     
 LABEL              EQ     ISL50                                                           LABEL        449     A     
 LABEL                                                                                     LABEL        450     A     
 LABEL     ISL24    SBIT   X0,WB.FREFP/WB.DOTP                                             LABEL        451     A     
 LABEL              MI     X0,ISL60    IF REFERENCED AS FORMAT                             LABEL        452     A     
 LABEL              SB2    E.SL08                                                          LABEL        453     A     
 LABEL              EQ     ISL50                                                           LABEL        454     A     
 LABEL                                                                                     LABEL        455     A     
 LABEL     ISL26    SBIT   X0,WB.FREFP                                                     LABEL        456     A     
 LABEL              PL     X0,ISL60    IF NOT REFERENCED AS FORMAT                         LABEL        457     A     
 LABEL              SB2    E.SL08                                                          LABEL        458     A     
 LABEL              EQ     ISL50                                                           LABEL        459     A     
 LABEL                                                                                     LABEL        460     A     
 LABEL                                                                                     LABEL        461     A     
 LABEL    **        STATEMENT LABEL REFERENCE IS AS A DO LOOP TERMINATOR.  THE             LABEL        462     A     
 LABEL    *         LABEL CANNOT BE ENTERED INTO T.BLST VIA ALU BECAUSE THIS               LABEL        463     A     
 LABEL    *         STATEMENT BEGINS A NEW BLOCK STRUCTURE.  THUS THE FOLLOWING            LABEL        464     A     
 LABEL    *         ANALYSIS.                                                              LABEL        465     A     
 LABEL                                                                                     LABEL        466     A     
 LABEL                                                                                     LABEL        467     A     
 LABEL     ISL30    SBIT   X0,WB.DOTP/WB.FREFP                                             LABEL        468     A     
 LABEL              PL     X0,ISL72    IF NOT ALREADY DO TERMINATOR                        LABEL        469          I
          -FC50015
 LABEL              PL     X0,ISL60    IF NOT ALREADY DO TERMINATOR                        FC50015       19     A     
 LABEL                                                                                     LABEL        470     A     
 LABEL    *         THIS LABEL TERMINATES MULTIPLE DO STATEMENTS (AT LEAST ONE             LABEL        471     A     
 LABEL    *         OTHER).  THE BLOCK STRUCTURES MUST BE CONTIGUOUS FOR ALL DO            LABEL        472     A     
 LABEL    *         LOOPS ENDING AT THIS TERMINATOR.  (E.G., NO OTHER DO LOOP OR           LABEL        473     A     
 LABEL    *         IF BLOCK MAY BE INTERSPERCED.)                                         LABEL        474     A     
 LABEL                                                                                     LABEL        475     A     
 LABEL              SA1    T.BLST                                                          LABEL        476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA3    T=BLST                                                          LABEL        477     A     
 LABEL              SB3    X3-1                                                            LABEL        478     A     
 LABEL              SA3    X1+B3       FETCH COUNT WORD                                    LABEL        479     A     
 LABEL              LX3    -LC.DOP                                                         LABEL        480     A     
 LABEL              SB3    X3          EXTRACT DO INDEX                                    LABEL        481     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL        482     A     
 LABEL              NZ     B3,ISL31    IF NOT BLOCK IF                                     LABEL        483     A     
 LABEL              SA1    T.SYM                                                           LABEL        484     A     
 LABEL              CLAS=  X0,WB,(DOT)                                                     LABEL        485     A     
 LABEL              BX6    -X0*X6      CLEAR DO TERMINAL BIT                               LABEL        486     A     
 LABEL              SA6    X1+B7                                                           LABEL        487     A     
 LABEL              SA1    STLTAG                                                          LABEL        488     A     
 LABEL              LX6    X1                                                              LABEL        489     A     
 LABEL              RJ     RBE         REMOVE DO ENTRY                                     LABEL        490     A     
 LABEL              SB2    E.DO06      ILLEGAL NESTING OF IF BLOCK AND DO                  LABEL        491     A     
 LABEL              EQ     ISL50                                                           LABEL        492     A     
 LABEL                                                                                     LABEL        493     A     
 LABEL     ISL31    LX3    LC.DOP-LC.CNTP                                                  LABEL        494     A     
 LABEL              SB3    X3-1                                                            LABEL        495     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL        496     A     
 LABEL              SA3    A3-B3       BASE OF SEGMENT                                     LABEL        497     A     
 LABEL              =A3    A3+DO.W                                                         LABEL        498     A     
 LABEL              SA1    STLTAG                                                          LABEL        499     A     
 LABEL              LX3    -DO.TAGP                                                        LABEL        500     A     
 LABEL              SX3    X3          ISOLATE (X3) = SYMORD OF INNERMOST DO TERM          LABEL        501     A     
 LABEL              ERRNZ  18-DO.TAGL                                                      LABEL        502     A     
 LABEL              HX1    TP.ORD                                                          LABEL        503     A     
 LABEL              AX1    -TP.ORDL    ISOLATE (X1) = SYMORD OF THIS LABEL                 LABEL        504     A     
 LABEL              IX1    X1-X3                                                           LABEL        505     A     
 LABEL              ZR     X1,ISL72    IF LEGAL NESTING                                    LABEL        506     A     
 LABEL              SA1    T.SYM                                                           LABEL        507     A     
 LABEL              CLAS=  X0,WB,(DOT)                                                     LABEL        508     A     
 LABEL              BX6    -X0*X6      CLEAR DO TERMINAL BIT                               LABEL        509     A     
 LABEL              SA6    X1+B7                                                           LABEL        510     A     
 LABEL              SA1    STLTAG                                                          LABEL        511     A     
 LABEL              LX6    X1                                                              LABEL        512     A     
 LABEL              RJ     RBE         REMOVE DO ENTRY                                     LABEL        513     A     
 LABEL              SB2    E.DO12      ILLEGAL DO NEST                                     LABEL        514     A     
 LABEL              EQ     ISL50                                                           LABEL        515     A     
 LABEL                                                                                     LABEL        516     A     
 LABEL    **        STATEMENT LABELS FIRST USE                                             LABEL        517     A     
 LABEL    *         A.  SET USAGE BITS AND (WB.LAB) FOR SYMTAB.                            LABEL        518     A     
 LABEL    *         B.  ADD LABEL TO STATEMENT LABEL TABLE                                 LABEL        519     A     
 LABEL    *         C.  CONTINUE, CHECKING CROSS REFERENCE, AND LINK                       LABEL        520     A     
 LABEL                                                                                     LABEL        521     A     
 LABEL     ISL40    SA3    STLUSE                                                          LABEL        522     A     
 LABEL              CLAS=  X7,WB,(LAB)                                                     LABEL        523     A     
 LABEL              BX7    X3+X7                                                           LABEL        524     A     
 LABEL              MX2    0                                                               LABEL        525     A     
 LABEL              ADSYM  A1          ADD LABEL TO TABLE                                  LABEL        526     A     
 LABEL              CALL   CT1         FORM (TP.) OPERAND FOR LABEL                        LABEL        527     A     
 LABEL              SA6    STLTAG                                                          LABEL        528     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA2    STLUSE      RELOAD USAGE                                        LABEL        529     A     
 LABEL              MX1    0           MARK FIRST USE                                      FC50015       20     A     
 LABEL              EQ     ISL70       CONTINUE                                            LABEL        530     A     
 LABEL                                                                                     LABEL        531     A     
 LABEL    **        OUTPUT ERROR  (B2) _ ERROR                                             LABEL        532     A     
 LABEL                                                                                     LABEL        533     A     
 LABEL     ISL50    FATAL  B2                                                              LABEL        534     A     
 LABEL              MX6    59          (X6) = -1 IMPLIES ERROR IN DO                       LABEL        535     A     
 LABEL              EQ     EXIT.       EXIT...                                             LABEL        536     A     
 LABEL                                                                                     LABEL        537     A     
 LABEL    **        SET TAG IN TABLE ADDING DEFINED BITS FOR USAGE                         LABEL        538     A     
 LABEL    *                (X2) = CLASSIFICATION BITS.                                     LABEL        539     A     
 LABEL    *                (X6) = SYMTAB WORD (WB.) FOR LABEL.                             LABEL        540     A     
 LABEL    *                (B7) = SYMTAB (WB.) INDEX.                                      LABEL        541     A     
 LABEL                                                                                     LABEL        542     A     
 LABEL     ISL60    BSS    0                                                               LABEL        543     A     
 LABEL              SA1    T.SYM                                                           LABEL        544     A     
 LABEL              SA2    STLUSE                                                          LABEL        545     A     
 LABEL              BX3    X6                                                              FC50015       21     A     
 LABEL              BX6    X6+X2                                                           LABEL        546     A     
 LABEL              SA6    X1+B7       REPLACE TAG REFLECTING USE.                         LABEL        547     A     
 LABEL              BX1    X3          SAVE OLD WB. WORD                                   FC50015       22     A     
 LABEL                                                                                     LABEL        548     A     
 LABEL    **        DO LABEL ANALYSIS IF IN BLOCK STRUCTURE AND ADD LABEL TO               LABEL        549     A     
 LABEL    *         CROSS REFERENCE TABLE.                                                 LABEL        550     A     
 LABEL    *                (X2) = USAGE.                                                   LABEL        551     A     
 LABEL                                                                                     LABEL        552     A     
 LABEL     ISL70    SA3    T=BLST                                                          LABEL        553          I
          -FC5A450
 LABEL              ZR     X2,ISL72    IF AMBIGUOUS REFERENCE (ASSIGN)                     LABEL        554          I
          -FC5A450
 LABEL     ISL70    ZR     X2,ISL72    IF AMBIGUOUS REFERENCE (ASSIGN)                     FC5A450        7     A     
 LABEL              CLAS=  X0,WB,(FREF)                                                    LABEL        555     A     
 LABEL              BX7    X0*X2                                                           LABEL        556     A     
 LABEL              NZ     X7,ISL72    IF PROCESSING FORMAT                                LABEL        557     A     
 LABEL              CLAS=  X0,WB,(DOT)                                                     LABEL        558     A     
 LABEL              ZR     X3,ISL72    IF NOT IN A BLOCK STRUCTURE                         LABEL        559          I
          -FC5A450
 LABEL              BX7    X0*X2                                                           LABEL        560     A     
 LABEL              NZ     X7,ISL72    IF DEFINES NESTING                                  LABEL        561     A     
 LABEL              HX1    WB.SREF                                                         FC50015       23     A     
 LABEL              MI     X1,ISL71    IF NOT FIRST REF                                    FC50015       24     A     
 LABEL              SA1    T.SYM                                                           LABEL        562     A     
 LABEL              SA1    X1+B7       FETCH *WB*                                          LABEL        563     A     
 LABEL              LX0    X1                                                              LABEL        564     A     
 LABEL              HX0    WB.FR                                                           LABEL        565     A     
 LABEL              AX0    -WB.FRL     EXTRACT FIRST REFERENCE                             LABEL        566     A     
 LABEL              NZ     X0,ISL71    IF NOT FIRST REFERENCE                              LABEL        567     A     
 LABEL              BX7    X1                                                              LABEL        568     A     
 LABEL              SA2    REFLIN                                                          LABEL        569     A     
 LABEL              LX2    -XR.LINEP+WB.FRP                                                LABEL        570     A     
 LABEL              BX7    X2+X7                                                           LABEL        571     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA7    A1          UPDATE WITH FIRST REFERENCE LINE                    LABEL        572     A     
 LABEL     ISL71    SA1    STLTAG                                                          LABEL        573          I
          -FC5A450
 LABEL                                                                                     FC5A450        8     A     
 LABEL     ISL71    SA3    T=BLST                                                          FC5A450        9     A     
 LABEL              ZR     X3,ISL72    IF NOT IN A BLOCK STRUCTURE                         FC5A450       10     A     
 LABEL              SA1    STLTAG                                                          FC5A450       11     A     
 LABEL              HX1    TP.ORD                                                          LABEL        574     A     
 LABEL              AX1    -TP.ORDL    EXTRACT SYMBOL TABLE ORDINAL                        LABEL        575     A     
 LABEL              BX6    X1                                                              LABEL        576     A     
 LABEL              SB2    0           INDICATE LABEL BEING REFERENCED                     LABEL        577     A     
 LABEL              RJ     ALU         ANALYZE THE LABEL USAGE                             LABEL        578     A     
 LABEL                                                                                     LABEL        579     A     
 LABEL    **        ADD LABEL TO CROSS REFERENCE TABLE -- IF SELECTED.                     LABEL        580     A     
 LABEL                                                                                     LABEL        581     A     
 LABEL     ISL72    SA3    STLTAG                                                          LABEL        582     A     
 LABEL              SA2    WO.LOR                                                          LABEL        583     A     
 LABEL              BX6    X3                                                              LABEL        584     A     
 LABEL              PL     X2,EXIT.    IF NO REFERENCE MAP                                 LABEL        585     A     
 LABEL              HX3    TP.ORD      LEFT JUSTIFY                                        LABEL        586     A     
 LABEL              AX3    -TP.ORDL    ISOLATE ORDINAL                                     LABEL        587     A     
 LABEL              SA1    REFNUM                                                          LABEL        588     A     
 LABEL              LX3    XR.TAGP                                                         LABEL        589     A     
 LABEL              ADDREF X3,X1                                                           LABEL        590     A     
 LABEL              SA1    STLTAG                                                          LABEL        591     A     
 LABEL              BX6    X1          RESTORE TAG                                         LABEL        592     A     
 LABEL              SB7    X2          RESTORE INDEX                                       LABEL        593     A     
 LABEL     ISL75    MX7    0                                                               FC51356       63     A     
 LABEL              SA7    STLUSE                                                          FC51356       64     A     
 LABEL              EQ     EXIT.                                                           LABEL        594     A     
 LABEL                                                                                     LABEL        595     A     
 LABEL     STLUSE   DATA   0           TYPE OF REFERENCE ON ENTRY TO *ISL*                 LABEL        596     A     
 LABEL     STL0R    CONENT 0           STATEMENT LABEL IN 0R FORMAT                        LABEL        597     A     
 LABEL     STLTAG   DATA   0           PASS TWO TAG OF LABEL                               LABEL        598     A     
 LABEL     PSL      SPACE  4,20                                                            LABEL        599     A     
 LABEL    **        PSL -  PROCESS STATEMENT LABEL.                                        LABEL        600     A     
 LABEL    *                                                                                LABEL        601     A     
 LABEL    *         ENTRY  (STN) = STATEMENT LABEL ON CURRENT CARD PROCESSING.             LABEL        602     A     
 LABEL    *                (DTI) = TAG OF STATEMENT LABEL IF THIS IS A DO-TERMINAL         LABEL        603     A     
 LABEL    *                (INIF) = P2.TAG TO BE COMPILED IN FRONT OF NEXT STMNT           LABEL        604     A     
 LABEL    *                            FOR JUMP AROUND ANY ONE-BRANCH *IF*.                LABEL        605     A     
 LABEL    *                                                                                LABEL        606     A     
 LABEL    *         EXIT   IF STATEMENT LABEL PRESENT --                                   LABEL        607     A     
 LABEL    *                1. IF *DO* LABEL PROCESS *DO* CONCLUSION CODE                   LABEL        608     A     
 LABEL    *                                                                                LABEL        609     A     
 LABEL    *                EXIT TO FRONT END CONTROLLER *FEC*.                             LABEL        610     A     
 LABEL    *                                                                                LABEL        611     A     
 LABEL    *         USES   ALL REGISTERS.                                                  LABEL        612     A     
 LABEL    *                                                                                LABEL        613     A     
 LABEL    *         CALLS  CSB, PDT                                                        LABEL        614     A     
 LABEL                                                                                     LABEL        615     A     
 LABEL                                                                                     LABEL        616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL     PSL      BSSENT 0           ENTRY...                                            LABEL        617     A     
 LABEL              SHRINK T=ARG       IN CASE OF ERRORS                                   LABEL        618     A     
 LABEL              SA1    CDIFLG                                                          LABEL        619     A     
 LABEL              ZR     X1,PSL1     IF NO ERRORS DURING *CDI*                           LABEL        620     A     
 LABEL              MX6    0                                                               LABEL        621     A     
 LABEL              SA6    A1          RESET THE FLAG                                      LABEL        622     A     
 LABEL              SA1    T.BLST                                                          LABEL        623     A     
 LABEL              SA2    T=BLST                                                          LABEL        624     A     
 LABEL              =B2    X2-1                                                            LABEL        625     A     
 LABEL              SA1    X1+B2       X1 = LC. WORD                                       LABEL        626     A     
 LABEL              LX1    -LC.CNTP                                                        LABEL        627     A     
 LABEL              SB2    X1-1-DO.W                                                       LABEL        628     A     
 LABEL              ERRNZ  LC.CNTL-18                                                      LABEL        629     A     
 LABEL              SA1    A1-B2       X1 = DO.W                                           LABEL        630     A     
 LABEL              LX1    -DO.TAGP                                                        LABEL        631          I
          -FC5A211
 LABEL              LX1    -DO.IODP                                                        FC5A211       88     A     
 LABEL              SB2    X1          IMPLIED DO INDICATOR                                FC5A211       89     A     
 LABEL              ERRNZ  18-DO.IODL                                                      FC5A211       90     A     
 LABEL              MX6    1                                                               FC5A211       91     A     
 LABEL              NZ     B2,PSL0     IF IMPLIED DO                                       FC5A211       92     A     
 LABEL              LX1    DO.IODP-DO.TAGP                                                 FC5A211       93     A     
 LABEL              SX6    X1                                                              LABEL        632     A     
 LABEL              ERRNZ  DO.TAGL-18                                                      LABEL        633     A     
 LABEL              LX6    TP.ORDP                                                         LABEL        634     A     
 LABEL              RJ     RBE         REMOVE DO ENTRY                                     LABEL        635          I
          -FC5A211
 LABEL     PSL0     RJ     RBE         REMOVE BLOCK ENTRY                                  FC5A211       94     A     
 LABEL                                                                                     LABEL        636     A     
 LABEL     PSL1     SA1    HANGER                                                          LABEL        637     A     
 LABEL              SA2    INIF                                                            LABEL        638     A     
 LABEL              NZ     X1,PSL4     IF HANGING STATEMENT                                LABEL        639     A     
 LABEL              ZR     X2,PSL2     IF NO ACTIVE *IF*                                   LABEL        640     A     
 LABEL              BX6    0                                                               LABEL        641     A     
 LABEL              SA6    NOPATH                                                          LABEL        642     A     
 LABEL     PSL2     CALL   CSB         CHECK FOR SEQUENCE BREAK                            LABEL        643     A     
 LABEL                                                                                     LABEL        644     A     
 LABEL    **        COMPILE DO-TERMINATION CODE, IF NECESSARY.                             LABEL        645     A     
 LABEL                                                                                     LABEL        646     A     
 LABEL              SA2    DTI                                                             LABEL        647     A     
 LABEL              ZR     X2,FEC.RTN  IF NO DO TERMINATION                                LABEL        648     A     
 LABEL              LX2    DO.TAGP                                                         LABEL        649     A     
 LABEL              RJ     PDT         PROCESS *DO* TERMINATION                            LABEL        650     A     
 LABEL              EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     LABEL        651     A     
 LABEL                                                                                     LABEL        652     A     
 LABEL     PSL4     NZ     X2,"BLOWUP" IF PENDING IF-LABEL                                 LABEL        653     A     
 LABEL              EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...                     LABEL        654     A     
 LABEL     DO       TITLE  *DO* STATEMENT.                                                 LABEL        655     A     
 LABEL     SDO      SPACE  4,10                                                            LABEL        656     A     
 LABEL    **        SDO -  SET-UP *DO* FOR PROCESSING                                      LABEL        657     A     
 LABEL    *                                                                                LABEL        658     A     
 LABEL    *         *SDO* ENTERED FROM CONTROLLER. (*FEC*)                                 LABEL        659     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *                                                                                LABEL        660     A     
 LABEL    *         ENTRY  (B4) _ *TB* WHERE *DO* STARTS.                                  LABEL        661     A     
 LABEL    *                                                                                LABEL        662     A     
 LABEL    *         EXIT   TO PSL.                                                         LABEL        663     A     
 LABEL    *                                                                                LABEL        664     A     
 LABEL    *         USES   ALL REGISTERS.                                                  LABEL        665     A     
 LABEL                                                                                     LABEL        666     A     
 LABEL                                                                                     LABEL        667     A     
 LABEL              CON    0           DUMMY FOR DUMB *ASK*                                LABEL        668     A     
 LABEL                                                                                     LABEL        669     A     
 LABEL              HEREIF DO                                                              LABEL        670     A     
 LABEL              SA5    SDOA                                                            LABEL        671     A     
 LABEL              CALL   ASK         ADJUST STATEMENT KEYWORD                            LABEL        672     A     
 LABEL              SA1    B4                                                              LABEL        673     A     
 LABEL              SB7    X1-O.CONS                                                       LABEL        674     A     
 LABEL              NZ     B7,E.DO05   IF NO LABEL                                         LABEL        675     A     
 LABEL              CALL   ASL         ADJUST STATEMENT LABEL                              LABEL        676     A     
 LABEL              BX6    X1                                                              LABEL        677     A     
 LABEL              SA4    B4          FETCH SUPPOSED VARIABLE                             LABEL        678     A     
 LABEL              SA6    DOSL                                                            LABEL        679          I
          -FC5A231
 LABEL              SB2    X4-O.COMMA                                                      LABEL        680     A     
 LABEL              NZ     B2,SDO1     IF NOT A COMMA                                      LABEL        681     A     
 LABEL              =B4    B4+1        SKIP IT                                             LABEL        682     A     
 LABEL              SA4    B4                                                              LABEL        683     A     
 LABEL                                                                                     LABEL        684     A     
 LABEL     SDO1     SB2    X4-O.VAR                                                        LABEL        685     A     
 LABEL              NZ     B2,E.DO14   IF NO CONTROL INDEX                                 LABEL        686     A     
 LABEL                                                                                     LABEL        687          I
          -FC5A231
 LABEL     SDO3     SB4    A4+1        POINT TO *=*                                        LABEL        688          I
          -FC5A231
 LABEL              SA1    DOSL                                                            LABEL        689          I
          -FC5A231
 LABEL              MX0    5*CHAR                                                          LABEL        690          I
          -FC5A231
 LABEL              BX7    X0*X1       SAVE ONLY 5 DIGITS                                  LABEL        691          I
          -FC5A231
 LABEL              SA7    A1                                                              LABEL        692          I
          -FC5A231
 LABEL              BX6    X1                                                              LABEL        693          I
          -FC5A231
 LABEL              SB4    A4+1        POINT TO *=*                                        FC5A231      134     A     
 LABEL              RJ     CDI         PROCESS *DO* DEFINITION.                            LABEL        694          I
          -FC50886
 LABEL              LX7    X4          SAVE CONTROL INDEX FOR  ERROR RECOVERY              FC50886        8     A     
 LABEL              SA4    B4                                                              FC50886        9     A     
 LABEL              SB7    X4-O.=                                                          FC50886       10     A     
 LABEL              ZR     B7,SDO3     IF *=*                                              FC50886       11     A     
 LABEL              FATAL  E.DO10                                                          FC50886       12     A     
 LABEL                                                                                     FC50886       13     A     
 LABEL     SDO2     =A4    B4+1                                                            FC50886       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              =B4    B4+1                                                            FC50886       15     A     
 LABEL              ZR     X4,PSL      IF *EOS*                                            FC50886       16     A     
 LABEL              ERRNZ  O.EOS                                                           FC50886       17     A     
 LABEL              SB7    X4-O.=                                                          FC50886       18     A     
 LABEL              NZ     B7,SDO2     IF NOT *=*, CONTINUE SEARCH                         FC50886       19     A     
 LABEL              SA7    B4-1        MOVE CONTROL INDEX TO LEFT OF *=*                   FC50886       20     A     
 LABEL                                                                                     FC50886       21     A     
 LABEL     SDO3     RJ     CDI         PROCESS *DO* DEFINITION                             FC50886       22     A     
 LABEL              SA3    FLOW                                                            LABEL        695     A     
 LABEL              ZR     X3,PSL      IF DO IS ACCESSABLE (NOT NOPATH)                    LABEL        696     A     
 LABEL                                                                                     LABEL        697     A     
 LABEL    *         NOTE - FOR DO LOOPS, ONLY THE DO STATEMENT WILL GET THE NOPATH         LABEL        698     A     
 LABEL    *                WARNING MESSAGE.  FLOW, NOPATH AND LDEAD ARE CLEARED,           LABEL        699     A     
 LABEL    *                AND THE DO LOOP CODE WILL BE GENERATED. CHECKING ALL            LABEL        700     A     
 LABEL    *                CASES FOR NOPATH CONDITIONS DIDNT SEEM WORTH THE CODE           LABEL        701     A     
 LABEL    *                SAVINGS.                                                        LABEL        702     A     
 LABEL                                                                                     LABEL        703     A     
 LABEL              BX7    0                                                               LABEL        704     A     
 LABEL              SA7    A3                                                              LABEL        705     A     
 LABEL              SA7    NOPATH                                                          LABEL        706     A     
 LABEL              SA7    LDEAD                                                           LABEL        707     A     
 LABEL              EQ     E.NP1                                                           LABEL        708     A     
 LABEL                                                                                     LABEL        709     A     
 LABEL     SDOA     VFD    24/2LDO,9/0,9/2*CHAR-1,18/=1L0+1                                LABEL        710     A     
 LABEL     CDI      EJECT                                                                  LABEL        711     A     
 LABEL    **        CDI -  COMPILE *DO* INITIAL TURPLES.                                   LABEL        712     A     
 LABEL    *                                                                                LABEL        713     A     
 LABEL    *         ENTRY  (B4) _ *=* OF *DO* STATEMENT.                                   LABEL        714     A     
 LABEL    *                (X6) =                                                          LABEL        715     A     
 LABEL    *                1. IF LOW ORDER 18 BITS ARE ZERO                                LABEL        716     A     
 LABEL    *                   PROCESSING A PROGRAMMER *DO*                                 LABEL        717     A     
 LABEL    *                2. OTHERWISE ASSUMED TO BE A I/O LIST PROCESSOR CALL.           LABEL        718     A     
 LABEL    *                                                                                LABEL        719     A     
 LABEL    *         EXIT   ENTRYS MADE INTO -                                              LABEL        720     A     
 LABEL    *                (X6) = 0                                                        LABEL        721     A     
 LABEL    *                1. T.SYM OF STATEMENT LABEL.(IF NOT I/O LIST PROCESS)           LABEL        722     A     
 LABEL    *                2. T.BLST OF *DO* PARAMETERS. (SEE T.BLST WRITE-UP)             LABEL        723     A     
 LABEL    *                                                                                LABEL        724     A     
 LABEL    *                (X6) = 1S59                                                     LABEL        725     A     
 LABEL    *                *DO* DEFINITION CONTAINED AN ERROR -- NO TABLE ENTRIES          LABEL        726     A     
 LABEL    *                MADE IN T.BLST.                                                 LABEL        727     A     
 LABEL    *                                                                                LABEL        728     A     
 LABEL    *         CALLS  ACT,ALC,CT1,DTC,EMT,FLP,ISL,INN,LCT,MXP,PAR                     LABEL        729     A     
 LABEL    *                                                                                LABEL        730     A     
 LABEL    *         USES   ALL REGISTERS.                                                  LABEL        731     A     
 LABEL                                                                                     LABEL        732     A     
 LABEL                                                                                     LABEL        733     A     
 LABEL     CDI      SUBR   =           ENTRY/EXIT...                                       LABEL        734     A     
 LABEL              SA2    E=TOTAL                                                         LABEL        735     A     
 LABEL              SX7    X2+1                                                            LABEL        736     A     
 LABEL              SA7    CDIFLG      PRESERVE ORIGINAL STMT ERROR COUNT                  LABEL        737     A     
 LABEL              SB7    X6                                                              LABEL        738     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SB6    -B1         INDICATE NO DO-TERMINATOR LABEL                     LABEL        739          I
          -FC50632
 LABEL              SX7    B7                                                              FC50632        7     A     
 LABEL              SA7    CDIE        INDICATE USER VS I/O DO                             FC50632        8     A     
 LABEL              NZ     B7,CDI10    IF I/O DO                                           LABEL        740     A     
 LABEL                                                                                     LABEL        741     A     
 LABEL    **        IDENTIFY STATEMENT LABEL AS DO TERMINATOR.                             LABEL        742     A     
 LABEL                                                                                     LABEL        743     A     
 LABEL              CLAS=  X2,WB,(DOT)                                                     LABEL        744     A     
 LABEL              =X7    CR.DO       MARK DO IN CROSS REF.                               LABEL        745     A     
 LABEL              SA7    REFNUM                                                          LABEL        746     A     
 LABEL              RJ     ISL         IDENTIFY STATEMENT LABEL                            LABEL        747     A     
 LABEL              PL     X6,CDI5     IF NO ERROR IN DO STATEMENT LABEL                   LABEL        748     A     
 LABEL              MX7    0                                                               LABEL        749     A     
 LABEL              SA7    CDIFLG                                                          LABEL        750     A     
 LABEL              EQ     EXIT.                                                           LABEL        751     A     
 LABEL                                                                                     LABEL        752     A     
 LABEL     CDI5     HX6    TP.ORD                                                          LABEL        753     A     
 LABEL              AX6    -TP.ORDL                                                        LABEL        754     A     
 LABEL              LX6    DO.TAGP     INDICATE PROGRAMMER DO                              LABEL        755     A     
 LABEL                                                                                     LABEL        756     A     
 LABEL    *         INVENT DO-BEGIN LABEL, CREATE (T.BLST) ENTRY.                          LABEL        757     A     
 LABEL    *                (X6) = DO.[TAG OR IOD] SET UP.                                  LABEL        758     A     
 LABEL                                                                                     LABEL        759     A     
 LABEL     CDI10    SA1    N.DOB                                                           LABEL        760     A     
 LABEL              SA6    CDIA        SAVE TAG FOR TERMINAL LABEL                         LABEL        761     A     
 LABEL              SX7    3RDO.                                                           LABEL        762     A     
 LABEL              CALL   INN         INVENT NEW NAME FOR DO-BEGIN LABEL                  LABEL        763     A     
 LABEL              SA5    REFLIN                                                          LABEL        764     A     
 LABEL              SA4    CDIA                                                            LABEL        765     A     
 LABEL              MX1    -WB.TLL                                                         LABEL        766     A     
 LABEL              LX4    -DO.TAGP                                                        LABEL        767     A     
 LABEL              BX7    -X1*X4                                                          LABEL        768     A     
 LABEL              =A3    A2-WB.W+WC.W                                                    LABEL        769     A     
 LABEL              LX5    -XR.LINEP+WC.LINEP                                              LABEL        770     A     
 LABEL              LX7    WB.TLP                                                          LABEL        771     A     
 LABEL              CLAS=  X1,WB,(DOGL,SDEF,LAB)                                           LABEL        772          I
          -FC5A125
 LABEL              CLAS=  X1,WB,(DOGL,SDEF,LAB,ACT)                                       FC5A125       18     A     
 LABEL              BX2    X2+X7       SET SYMORD OF TERMINAL LABEL                        LABEL        773     A     
 LABEL              BX7    X3+X5       SET DEFLINE IN SYMTAB(DOGL)                         LABEL        774     A     
 LABEL              BX6    X1+X2                                                           LABEL        775     A     
 LABEL              SA7    A3                                                              LABEL        776     A     
 LABEL              SB5    X0          REMEMBER (B5) = SYMORD OF DOBEGIN                   LABEL        777     A     
 LABEL              SA6    A2          SET ATTRIBUTES FOR DOBEGIN LABEL                    LABEL        778     A     
 LABEL              BX6    X0                                                              LABEL        779     A     
 LABEL              SA6    CDIB        SAVE SYMORD                                         LABEL        780     A     
 LABEL              SA2    T=BLST                                                          LABEL        781          I
          -FC5A138
 LABEL              BX6    X2                                                              LABEL        782          I
          -FC5A138
 LABEL              SA6    CDIE        PRESERVE PREVIOUS LENGTH                            LABEL        783          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
          -FC5A138
 LABEL              ALLOC  T.BLST,Z=BLST+1                                                 LABEL        784     A     
 LABEL              SX2    Z=BLST+1                                                        LABEL        785     A     
 LABEL              LX5    -WC.LINEP+LC.LINEP                                              LABEL        786     A     
 LABEL              LX2    LC.CNTP                                                         LABEL        787     A     
 LABEL              BX6    X5+X2       ORGIN/COUNT WORD                                    LABEL        788     A     
 LABEL              BX7    X4                                                              LABEL        789     A     
 LABEL              SX4    B5                                                              LABEL        790     A     
 LABEL              LX4    1                                                               LABEL        791     A     
 LABEL              SX4    X4+B5                                                           LABEL        792     A     
 LABEL              =X4    X4+WB.W     CONVERT TO *WB* INDEX                               LABEL        793     A     
 LABEL              LX4    LC.DOP                                                          LABEL        794     A     
 LABEL              BX6    X6+X4       MERGE IN DO.N INDEX                                 LABEL        795     A     
 LABEL              LX7    DO.TAGP                                                         LABEL        796     A     
 LABEL              SA6    B7-B1                                                           LABEL        797     A     
 LABEL              SX0    B5                                                              LABEL        798     A     
 LABEL              =A7    B7-Z=BLST-1+DO.W                                                LABEL        799     A     
 LABEL              CALL   CT1         CONSTRUCT (TP) FOR DOB LAB                          LABEL        800     A     
 LABEL              =A6    A7-DO.W+DORT.W                                                  LABEL        801     A     
 LABEL              =X7    0                                                               LABEL        802     A     
 LABEL              =A7    A6-DORT.W+DP.W  CLEAR                                           LABEL        803     A     
 LABEL              SA1    CONONE      INITIALIZE INDUCTION PARAMETERS                     FC50749        9     A     
 LABEL              BX7    X1                                                              FC50749       10     A     
 LABEL              LX6    X1                                                              FC50749       11     A     
 LABEL              =A6    A7-DP.W+DOII.W                                                  FC50749       12     A     
 LABEL              =A7    A6-DOII.W+DOLI.W                                                FC50749       13     A     
 LABEL              =A6    A7-DOLI.W+DOSI.W                                                FC50749       14     A     
 LABEL                                                                                     LABEL        804     A     
 LABEL    *         PARSE DO INDICIES.                                                     LABEL        805     A     
 LABEL    *                SET UP (DOSL)                                                   LABEL        806          I
          -FC5A231
 LABEL    *                INSTALL SPECIAL LEFT PAREN IF I/O LOOP.                         LABEL        807     A     
 LABEL                                                                                     LABEL        808     A     
 LABEL              SA2    CDIA                                                            LABEL        809     A     
 LABEL              SB3    X2                                                              LABEL        810     A     
 LABEL              SB4    B4-B1       POINT TO TOKEN FOR CONTROL INDEX                    LABEL        811     A     
 LABEL              ZR     B3,CDI20    IF NOT IN I/O LIST PROCESSING                       LABEL        812     A     
 LABEL              SA1    STL0R       STATEMENT LABEL IN 0R FORMAT                        LABEL        813          I
          -FC5A231
 LABEL              =X6    O.SLP                                                           LABEL        814     A     
 LABEL              BX7    X1                                                              LABEL        815          I
          -FC5A231
 LABEL              SA7    DOSL        SAVE DPC OF TERMINAL LABEL                          LABEL        816          I
          -FC5A231
 LABEL              SA6    B4-B1       INDICATE TERMINATION OF MATCHING *)*                LABEL        817     A     
 LABEL              SB4    B4-B1                                                           LABEL        818     A     
 LABEL                                                                                     FC5A371        7     A     
 LABEL     CDI20    =X7    0                                                               LABEL        819     A     
 LABEL              SA3    DOARM                                                           LABEL        820     A     
 LABEL              BX6    X3                                                              LABEL        821     A     
 LABEL              SA7    ARGCOMA                                                         LABEL        822     A     
 LABEL              SA6    ARGMODE                                                         LABEL        823     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              CALL   PAR         PARSE DO INDICIES                                   LABEL        824     A     
 LABEL                                                                                     LABEL        825     A     
 LABEL    *         DETERMINE TRIP COUNT, PUT IT IN THIS T.BLST ENTRY.                     LABEL        826     A     
 LABEL                                                                                     LABEL        827     A     
 LABEL              CALL   DTC         DETERMINE TRIP COUNT                                LABEL        828     A     
 LABEL              SA1    T.BLST                                                          LABEL        829     A     
 LABEL              SA2    T=BLST                                                          LABEL        830     A     
 LABEL              IX1    X1+X2                                                           LABEL        831     A     
 LABEL              SB5    X1-Z=BLST-1                                                     LABEL        832     A     
 LABEL              LX6    X5                                                              LABEL        833     A     
 LABEL              SA6    CDID        SAVE TC FOR POSSIBLE OPTIMIZATION                   FC50594        7     A     
 LABEL              SA6    B5+DOTC.W                                                       LABEL        834     A     
 LABEL                                                                                     FC5A138       19     A     
 LABEL    *         OUTPUT THE STORE OF START INDEX INTO DO CONTROL.                       FC5A138       20     A     
 LABEL                                                                                     FC5A138       21     A     
 LABEL              =A4    A6-DOTC.W+DOSI.W                                                FC5A138       22     A     
 LABEL              =A5    A4-DOSI.W+DOCI.W                                                FC5A138       23     A     
 LABEL              SB6    ESTACK+1                                                        FC5A138       24     A     
 LABEL              SX1    O.=                                                             FC5A138       25     A     
 LABEL              CALL   ACT         OUTPUT STORE TURPLE                                 FC5A138       26     A     
 LABEL                                                                                     FC5A138       27          I
          -FC50594
 LABEL              SA1    T.BLST                                                          FC5A138       28     A     
 LABEL              SA2    T=BLST                                                          FC5A138       29     A     
 LABEL              IX1    X1+X2                                                           FC5A138       30     A     
 LABEL              SB5    X1-Z=BLST-1                                                     FC5A138       31     A     
 LABEL              SA2    E=TOTAL                                                         LABEL        835     A     
 LABEL              SA4    CDIFLG                                                          LABEL        836     A     
 LABEL              =X4    X4-1                                                            LABEL        837     A     
 LABEL              IX2    X2-X4                                                           LABEL        838     A     
 LABEL              MX6    0                                                               LABEL        839     A     
 LABEL              SA6    A4          RESET THE FLAG                                      LABEL        840     A     
 LABEL              ZR     X2,CDI30    IF NO ERRORS INSIDE DO                              LABEL        841     A     
 LABEL              SA3    T.BLST                                                          LABEL        842          I
          -FC5A138
 LABEL              SA4    T=BLST                                                          LABEL        843          I
          -FC5A138
 LABEL              BX7    0                                                               LABEL        844     A     
 LABEL              IX0    X3+X4                                                           LABEL        845          I
          -FC5A138
 LABEL              SA2    X0-Z=BLST-1+DO.W                                                LABEL        846          I
          -FC5A138
 LABEL              SA7    X0-Z=BLST-1+DORT.W  INDICATE ERROR IN DO                        LABEL        847          I
          -FC5A138
 LABEL              SA2    B5+DO.W                                                         FC5A138       32     A     
 LABEL              SA7    B5+DORT.W   INDICATE ERROR IN DO                                FC5A138       33     A     
 LABEL              SB7    X2                                                              LABEL        848     A     
 LABEL              MX6    1           INDICATE ERROR                                      LABEL        849     A     
 LABEL              ZR     B7,EXIT.    IF PROGRAM DEFINED *DO* (NOT I/O)                   LABEL        850     A     
 LABEL              SHRINK A4,X4-Z=BLST-1                                                  LABEL        851          I
          -FC5A133
 LABEL              MX6    1                                                               FC5A111      150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              RJ     RBE         REMOVE BLOCK ENTRY FOR IMPLIED DO                   FC5A111      151     A     
 LABEL              MX6    1           INDICATE ERROR                                      LABEL        852     A     
 LABEL              EQ     EXIT.                                                           LABEL        853     A     
 LABEL                                                                                     LABEL        854     A     
 LABEL    *         TEST INCREMENT FOR CONSTANT.  IF NOT CONSTANT, INVENT CELL             LABEL        855     A     
 LABEL    *         TO STORE THE INCREMENT.  REPLACE INCREMENT WITH CELL NAME              LABEL        856     A     
 LABEL    *         (TP. FORMAT) IN DOII.W.                                                LABEL        857     A     
 LABEL    *                (B5) _ DOSI.W OF THE CURRENT DO                                 LABEL        858     A     
 LABEL                                                                                     LABEL        859     A     
 LABEL     CDI30    SA4    B5+DOII.W                                                       LABEL        860     A     
 LABEL              BX1    X4                                                              LABEL        861     A     
 LABEL              LX5    X4          SAVE INCREMENT                                      LABEL        862     A     
 LABEL              CALL   LCT         TEST FOR CONSTANT                                   LABEL        863     A     
 LABEL              NZ     B2,CDI40    IF CONSTANT                                         LABEL        864     A     
 LABEL              SA2    N.DOB                                                           LABEL        865     A     
 LABEL              SA1    CDIA        USE AS DUMMY FOR INN                                LABEL        866     A     
 LABEL              SX1    X2-1        USE LAST DO.N NUMBER                                LABEL        867     A     
 LABEL              SX7    3RDI.                                                           LABEL        868     A     
 LABEL              CALL   INN         INVENT NEW NAME FOR INCREMENT VARIABLE              LABEL        869     A     
 LABEL              LX4    X5          RESTORE INCREMENT VARIABLE                          LABEL        870     A     
 LABEL              CLAS=  X7,WB,(VAR)                                                     LABEL        871     A     
 LABEL              MX1    -WB.MODEL                                                       LABEL        872     A     
 LABEL              ERRNZ  TP.MODEL-WB.MODEL                                               LABEL        873     A     
 LABEL              BX1    -X1*X4      EXTRACT MODE                                        LABEL        874     A     
 LABEL              ERRNZ  TP.MODEP-WB.MODEP+TP.MODEL-WB.MODEL                             LABEL        875     A     
 LABEL              BX7    X7+X2                                                           LABEL        876     A     
 LABEL              BX7    X7+X1                                                           LABEL        877     A     
 LABEL              SA7    A2          UPDATE *WB*                                         LABEL        878     A     
 LABEL              CALL   CT1         GET TP. FORMAT                                      LABEL        879     A     
 LABEL              SX1    O.=                                                             LABEL        880     A     
 LABEL              SB6    ESTACK+1                                                        LABEL        881     A     
 LABEL              LX5    X6                                                              LABEL        882     A     
 LABEL              CALL   ACT         OUTPUT STORE TURPLE FOR INCREMENT CELL              LABEL        883     A     
 LABEL              MX6    -1          MARK POSSIBLE NEGATIVE INCREMENT                    LABEL        884     A     
 LABEL                                                                                     LABEL        885     A     
 LABEL    **        SELECT PROPER DO BEGIN SKELETON AND MODIFY AS NECESSARY THE            LABEL        886     A     
 LABEL    *         DO CONCLUSION SKELETON FOR MEGATURPLE OUTPUT.                          LABEL        887     A     
 LABEL    *                (X5) = OPERAND FOR (DOII.W).                                    LABEL        888     A     
 LABEL                                                                                     LABEL        889     A     
 LABEL     CDI40    PL     X6,CDI405   IF NOT POSSIBLE NEGATIVE INCREMENT                  LABEL        890     A     
 LABEL              SA2    CDIB        SYMORD OF LOOP TOP LABEL                            LABEL        891     A     
 LABEL              SA1    T.SYM                                                           LABEL        892     A     
 LABEL              LX6    B1,X2                                                           LABEL        893     A     
 LABEL              IX2    X6+X2                                                           LABEL        894     A     
 LABEL              IX1    X2+X1                                                           LABEL        895     A     
 LABEL              SA2    X1+WB.W                                                         LABEL        896     A     
 LABEL              MX1    1                                                               LABEL        897     A     
 LABEL              LX1    1+WB.NINP                                                       LABEL        898     A     
 LABEL              BX6    X1+X2       NIN[WB(LOOPTOP)] = 1                                LABEL        899     A     
 LABEL              SA6    A2                                                              LABEL        900     A     
 LABEL                                                                                     LABEL        901     A     
 LABEL     CDI405   SA1    T.BLST                                                          LABEL        902     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1510    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA2    T=BLST                                                          LABEL        903     A     
 LABEL              IX1    X1+X2                                                           LABEL        904     A     
 LABEL              SB5    X1-Z=BLST-1                                                     LABEL        905     A     
 LABEL              BX6    X5          POSSIBLY RESET INCREMENT OPERAND                    LABEL        906     A     
 LABEL              SA6    B5+DOII.W                                                       LABEL        907     A     
 LABEL              SA5    B5+DOLI.W   X5 = DO LIMIT                                       LABEL        908     A     
 LABEL              CALL   BBC         CONVERT TO BASE/BIAS FORM                           LABEL        909     A     
 LABEL              BX6    X5                                                              LABEL        910     A     
 LABEL              SA6    B5+DOLI.W   REPLACE TABLE ENTRY WITH CONVERSION                 LABEL        911     A     
 LABEL              SA5    B5+DOCI.W   X5 = OPERAND FOR CONTROL INDEX                      LABEL        912     A     
 LABEL              SA1    CDIE                                                            LABEL        913          I
          -FC5A138
 LABEL              SA1    T=BLST                                                          FC5A138       34     A     
 LABEL              BX6    X1                                                              LABEL        914     A     
 LABEL              CALL   MDD         MARK DO PARAMETER DEFINED                           LABEL        915     A     
 LABEL              SA1    B5+DOTC.W                                                       LABEL        916     A     
 LABEL              CALL   LCT         TEST FOR CONSTANT TRIP COUNT                        LABEL        917     A     
 LABEL              SA1    WO.DOOT     MINIMUM TRIP COUNT                                  LABEL        918     A     
 LABEL              SB3    X1                                                              LABEL        919     A     
 LABEL              ZR     B2,CDI70    IF TRIP COUNT NOT CONSTANT                          LABEL        920     A     
 LABEL              SX0    X6-1                                                            LABEL        921          I
          -FC5A132
 LABEL              =X0    1                                                               FC5A132      101     A     
 LABEL              IX0    X6-X0                                                           FC5A132      102     A     
 LABEL              PL     X0,CDI50    IF TRIP COUNT .GE. 1                                LABEL        922     A     
 LABEL              SB7    E.DO01                                                          LABEL        923     A     
 LABEL              ZR     B3,CDI41    IF IN ZERO TRIP MODE                                LABEL        924     A     
 LABEL              SB7    E.DO18      FATAL - TRIP COUNT LESS THAN 1                      LABEL        925     A     
 LABEL                                                                                     LABEL        926     A     
 LABEL     CDI41    WARN   B7                                                              LABEL        927     A     
 LABEL              SA1    N.GL                                                            LABEL        928     A     
 LABEL              SA2    B5+DP.W                                                         LABEL        929     A     
 LABEL              CLAS=  X4,TP,(GL)                                                      LABEL        930     A     
 LABEL              BX7    X1                                                              LABEL        931     A     
 LABEL              =X6    X1+1                                                            LABEL        932     A     
 LABEL              SA6    A1          INCREMENT N.GL                                      LABEL        933     A     
 LABEL              LX1    TP.ORDP                                                         LABEL        934     A     
 LABEL              BX4    X1+X4       (1OP) = GL FOR EXIT                                 LABEL        935     A     
 LABEL              LX7    DP.DOXLP                                                        LABEL        936     A     
 LABEL              BX7    X7+X2                                                           LABEL        937     A     
 LABEL              MX0    -DP.TURCL                                                       LABEL        938     A     
 LABEL              LX0    DP.TURCP                                                        LABEL        939     A     
 LABEL              BX7    X0*X7       CLEAR CONCLUSION SKELETON                           LABEL        940     A     
 LABEL              SA7    A2          UPDATE DP.W                                         LABEL        941     A     
 LABEL              MX5    0           (2OP) = NULL                                        LABEL        942     A     
 LABEL              EMIT   V=GOTO                                                          LABEL        943     A     
 LABEL              MX6    0                                                               LABEL        944     A     
 LABEL              EQ     EXIT.                                                           LABEL        945     A     
 LABEL                                                                                     LABEL        946     A     
 LABEL    *         CONSTANT TRIP COUNT.  DO LOOP MUST MATERIALIZE.                        LABEL        947     A     
 LABEL    *                (B5) _ DOSI.W OF THE CURRENT DO                                 LABEL        948     A     
 LABEL    *                (X6) = TRIP COUNT (BINARY)                                      LABEL        949     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL        950     A     
 LABEL     CDI50    SX2    X6-MAX.SDL                                                      LABEL        951          I
          -FC5A270
 LABEL     CDI50    SX2    MAX.SDL                                                         FC5A270        5          I
          -FC5A371
 LABEL              =X0    1                                                               FC5A270        6          I
          -FC5A371
 LABEL              IX2    X2+X0       ONE GREATER THAN MAXIMUM SHORT TRIP                 FC5A270        7          I
          -FC5A371
 LABEL              IX2    X6-X2                                                           FC5A270        8          I
          -FC5A371
 LABEL              =B3    1           LOOP EXECUTES, MODIFY TRIP COUNT INDICATOR          LABEL        952          I
          -FC5A371
 LABEL              SA1    B5+DOCI.W                                                       LABEL        953          I
          -FC5A270
 LABEL              MX0    -TP.MODEL                                                       LABEL        954          I
          -FC5A270
 LABEL              LX1    -TP.MODEP                                                       LABEL        955          I
          -FC5A270
 LABEL              BX0    -X0*X1      EXTRACT MODE OF CONTROL INDEX                       LABEL        956          I
          -FC5A270
 LABEL              SB2    X0-M.INT                                                        LABEL        957          I
          -FC5A270
 LABEL              NZ     B2,CDI70    IF CONTROL INDEX NOT INTEGER                        LABEL        958          I
          -FC5A270
 LABEL              SA1    WO.DOLG     DO LOOP LENGTH INDICATOR                            LABEL        959          I
          -FC5A371
 LABEL              MI     X2,CDI70    IF TRIP COUNT SMALL ENOUGH FOR SHORT LOOP           LABEL        960          I
          -FC5A371
 LABEL              NZ     X1,CDI70    IF LONG LOOP SELECTED                               LABEL        961          I
          -FC5A371
 LABEL              FATAL  E.DO03      TOO LONG FOR SHORT LOOP                             LABEL        962          I
          -FC5A371
 LABEL     CDI50    SA1    WO.DOLG     DO LOOP LENGTH INDICATOR                            FC5A371        8     A     
 LABEL              SB3    1           LOOP EXECUTES, MODIFY TRIP COUNT INDICATOR          FC5A371        9     A     
 LABEL              NZ     X1,CDI70    IF LONG LOOP SELECTED                               FC5A371       10     A     
 LABEL              SA1    =10HTRIP COUNT                                                  FC5A371       11     A     
 LABEL              SX2    MAX.SDL                                                         FC5A371       12     A     
 LABEL              BX7    X1                                                              FC5A371       13     A     
 LABEL              =X0    1                                                               FC5A371       14     A     
 LABEL              IX0    X2+X0                                                           FC5A371       15     A     
 LABEL              IX0    X6-X2                                                           FC5A371       16     A     
 LABEL              PL     X0,CDI60    IF TRIP COUNT TOO LARGE FOR SHORT LOOP              FC5A371       17     A     
 LABEL              SA1    B5+                                                             FC5A371       18     A     
 LABEL              RJ     KDI         CONVERT INITIAL                                     FC5A371       19     A     
 LABEL              LX3    X6          *M1* BINARY                                         FC5A371       20     A     
 LABEL              =A1    B5-DOSI.W+DOLI.W                                                FC5A371       21     A     
 LABEL              RJ     KDI         CONVERT LIMIT                                       FC5A371       22     A     
 LABEL              LX4    X6          *M2* BINARY                                         FC5A371       23     A     
 LABEL              =A1    B5-DOSI.W+DOII.W                                                FC5A371       24     A     
 LABEL              RJ     KDI         CONVERT INCREMENT                                   FC5A371       25     A     
 LABEL              SX2    MAX.SDL                                                         FC5A371       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              =X0    1                                                               FC5A371       27     A     
 LABEL              IX2    X0+X2                                                           FC5A371       28     A     
 LABEL              IX3    X3+X6       *M1+M3*                                             FC5A371       29     A     
 LABEL              PL     X3,CDI51    IF POSITIVE                                         FC5A371       30     A     
 LABEL              BX3    -X3         ABSOLUTE VALUE                                      FC5A371       31     A     
 LABEL                                                                                     FC5A371       32     A     
 LABEL     CDI51    SA1    =5HM1+M3                                                        FC5A371       33     A     
 LABEL              LX7    X1                                                              FC5A371       34     A     
 LABEL              IX3    X3-X2                                                           FC5A371       35     A     
 LABEL              PL     X3,CDI60    IF M1+M3 TOO LARGE FOR SHORT LOOP                   FC5A371       36     A     
 LABEL              IX4    X4+X6       *M2+M3*                                             FC5A371       37     A     
 LABEL              PL     X4,CDI52    IF POSITIVE                                         FC5A371       38     A     
 LABEL              BX4    -X4         ABSOLUTE VALUE                                      FC5A371       39     A     
 LABEL                                                                                     FC5A371       40     A     
 LABEL     CDI52    SA1    =5HM2+M3                                                        FC5A371       41     A     
 LABEL              BX7    X1                                                              FC5A371       42     A     
 LABEL              IX4    X4-X2                                                           FC5A371       43     A     
 LABEL              MI     X4,CDI70    IF M2+M3 IS SMALL ENOUGH FOR SHORT LOOP             FC5A371       44     A     
 LABEL                                                                                     FC5A371       45     A     
 LABEL     CDI60    SA7    FILL.3                                                          FC5A371       46     A     
 LABEL              FATAL  E.DO03      ** TOO LARGE FOR SHORT LOOP                         FC5A371       47     A     
 LABEL                                                                                     LABEL        963     A     
 LABEL    **        SELECT THE PROPER TURPLE                                               LABEL        964     A     
 LABEL    *                (B3) = MINIMUM TRIP COUNT INDICATOR                             LABEL        965     A     
 LABEL    *                (B5) _ DOSI.W OF THE CURRENT DO                                 LABEL        966     A     
 LABEL                                                                                     LABEL        967     A     
 LABEL     CDI70    NZ     B3,CDI80    IF ONE TRIP DO LOOPS SELECTED                       LABEL        968     A     
 LABEL              SA1    N.GL                                                            LABEL        969     A     
 LABEL              SA2    B5+DP.W                                                         LABEL        970     A     
 LABEL              =X6    X1+1                                                            LABEL        971     A     
 LABEL              SA6    A1          INCREMENT N.GL                                      LABEL        972     A     
 LABEL              LX1    DP.DOXLP                                                        LABEL        973     A     
 LABEL              BX6    X1+X2       ADD IN DOXL                                         LABEL        974     A     
 LABEL              SA6    A2                                                              LABEL        975     A     
 LABEL                                                                                     FC50594        8     A     
 LABEL     CDI80    SA1    WO.DOLG     DO LOOP LENGTH                                      LABEL        976     A     
 LABEL              LX1    1                                                               LABEL        977          I
          -FC50050
 LABEL              SA2    B5+DOCI.W                                                       FC50050        4     A     
 LABEL              MX0    -TP.MODEL                                                       FC50050        5     A     
 LABEL              LX2    -TP.MODEP                                                       FC50050        6     A     
 LABEL              BX0    -X0*X2                                                          FC50050        7     A     
 LABEL              SB2    X0-M.REAL                                                       FC50050        8     A     
 LABEL              MI     B2,CDI81    IF CONTROL VARIABLE INTEGER OR BOOLEAN              FC50050        9     A     
 LABEL              =X1    1           SIMULATE LONG LOOP                                  FC50050       10     A     
 LABEL                                                                                     FC50050       11     A     
 LABEL     CDI81    LX1    1                                                               FC50050       12     A     
 LABEL              SB3    B3+X1       SELECT PROPER TURPLE HEADER                         LABEL        978     A     
 LABEL              SA2    B3+DO.BEG   FETCH PROPER TURPLE HEADER                          LABEL        979     A     
 LABEL              LX6    X2                                                              LABEL        980     A     
 LABEL              SA6    CDIC        SAVE FOR TURPLE OUTPUT                              LABEL        981     A     
 LABEL                                                                                     LABEL        982     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *         INVENT TRIP COUNT VARIABLE                                             LABEL        983     A     
 LABEL                                                                                     LABEL        984     A     
 LABEL              SA2    N.DOB                                                           LABEL        985          I
          -FC50594
 LABEL              SA1    CDID        TRIP COUNT                                          FC50594        9     A     
 LABEL              CALL   LCT         CHECK FOR CONSTANT                                  FC50594       10     A     
 LABEL              ZR     B2,CDI82    IF TRIP COUNT NOT CONSTANT                          FC50594       11     A     
 LABEL              SX6    X6-1                                                            FC50594       12          I
          -FC50915
 LABEL              SX1    B1                                                              FC50915        6     A     
 LABEL              IX6    X6-X1                                                           FC50915        7     A     
 LABEL              NZ     X6,CDI82    IF TRIP COUNT " 1                                   FC50594       13     A     
 LABEL              SA1    T.BLST                                                          FC50594       14     A     
 LABEL              SA2    T=BLST                                                          FC50594       15     A     
 LABEL              SB5    X2-Z=BLST-1 INDEX OF THIS DO ENTRY                              FC50594       16          I
          -FC51364
 LABEL              SA3    WO.DOOT                                                         FC51364       16          I
          -FC5A511
 LABEL              NZ     X3,CDI81A   IF ONE TRIP DO LOOPS SELECTED                       FC51364       17          I
          -FC5A511
 LABEL              SA3    =XCO.OPT                                                        FC5A511       19     A     
 LABEL              SB2    X3                                                              FC5A511       20     A     
 LABEL              SB5    X2-Z=BLST-1+DP.W                                                FC51364       18     A     
 LABEL              SA3    X1+B5                                                           FC51364       19     A     
 LABEL              SB7    V=DOC.S                                                         FC51364       20     A     
 LABEL              BX3    -X3                                                             FC51364       21     A     
 LABEL              SX3    X3+B7                                                           FC51364       22     A     
 LABEL              NZ     X3,CDI81A   IF SKEL NOT V=DOC.S                                 FC51364       23     A     
 LABEL              SX6    V=DOC.O                                                         FC5A511       21     A     
 LABEL              EQ     B2,CDI81B   IF OPT .EQ. 0                                       FC5A511       22     A     
 LABEL              SX6    =YV=DOC.1                                                       FC5A511       23     A     
 LABEL                                                                                     FC5A511       24     A     
 LABEL              SX6    V=DOC.O     SWITCH TO THIS DO CONCLUSION SKEL                   FC51364       24          I
          -FC5A511
 LABEL    *                            WHICH LEAVES DO CONTROL INDEX AS EXPECTED           FC51364       25          I
          -FC5A511
 LABEL              SA6    A3                                                              FC51364       26          I
          -FC5A511
 LABEL     CDI81B   SA6    A3                                                              FC5A511       25     A     
 LABEL              EQ     CDI82                                                           FC51364       27          I
          -FC51499
 LABEL              SA4    T=DATL                                                          FC51499        9     A     
 LABEL              ZR     X4,CDI82    IF NOT IN DATA STATEMENT                            FC51499       10     A     
 LABEL                                                                                     FC51364       28     A     
 LABEL     CDI81A   SB5    X2-Z=BLST-1 INDEX OF THIS DO ENTRY                              FC51364       29     A     
 LABEL              MX6    -0          INDICATE ONE TRIP DO                                FC50594       17     A     
 LABEL              SB5    X1+B5                                                           FC50594       18     A     
 LABEL              SA6    B5+DORT.W   REFLECT ONE TRIP                                    FC50594       19     A     
 LABEL              SX6    0           INDICATE NO ERROR                                   FC50594       20     A     
 LABEL              EQ     EXIT.                                                           FC50594       21     A     
 LABEL                                                                                     FC50594       22     A     
 LABEL     CDI82    SA2    N.DOB                                                           FC50594       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA1    CDIA        USE AS DUMMY FOR INN                                LABEL        986     A     
 LABEL              SX1    X2-1        USE LAST DO.N NUMBER                                LABEL        987     A     
 LABEL              SX7    3RDC.                                                           LABEL        988     A     
 LABEL              CALL   INN         INVENT NEW NAME FOR TRIP COUNT VARIABLE             LABEL        989     A     
 LABEL              CLAS=  X7,WB,(VAR),INT                                                 LABEL        990     A     
 LABEL              BX7    X7+X2                                                           LABEL        991     A     
 LABEL              SA7    A2          UPDATE *WB*                                         LABEL        992     A     
 LABEL              SA3    T.BLST                                                          LABEL        993     A     
 LABEL              SA4    T=BLST                                                          LABEL        994     A     
 LABEL              SB5    X4-Z=BLST-1 (B5) = (T.BLST) INDEX OF THIS DO                    LABEL        995     A     
 LABEL              SB7    X3+B5                                                           LABEL        996     A     
 LABEL              SA1    B7+DP.W                                                         LABEL        997     A     
 LABEL              LX6    X0                                                              LABEL        998     A     
 LABEL              LX6    DP.DOTIP                                                        LABEL        999     A     
 LABEL              BX6    X1+X6       MERGE IN TRIP COUNT ORDINAL                         LABEL       1000     A     
 LABEL              SA6    A1                                                              LABEL       1001     A     
 LABEL                                                                                     LABEL       1002     A     
 LABEL    **        FINALLY, EMIT DO-INITIAL MEGATURPLE TO THE IL.                         LABEL       1003     A     
 LABEL    *                                                                                LABEL       1004     A     
 LABEL    *         A DO-INITIAL MEGA-TURPLE CONSISTS OF THREE TURPLES,                    LABEL       1005     A     
 LABEL    *         ORGANIZED AS FOLLOWS --                                                LABEL       1006     A     
 LABEL    *                                                                                LABEL       1007     A     
 LABEL    *         1.  OPR = DOBEGIN SKELETON.                                            LABEL       1008     A     
 LABEL    *                P1 = CONTROL INDEX.               (DOCI.W)                      LABEL       1009     A     
 LABEL    *                P2 = TRIP COUNT.                  (DOTC.W)                      LABEL       1010     A     
 LABEL    *                                                                                LABEL       1011     A     
 LABEL    *         2.  OPR = NOOP.                                                        LABEL       1012     A     
 LABEL    *                P3 = TRIP COUNT VARIABLE (DC.N).  (DP.DOTI)                     LABEL       1013     A     
 LABEL    *                P4 = UPPER VALUE        (DOLI.W)                                LABEL       1014     A     
 LABEL    *                                                                                LABEL       1015     A     
 LABEL    *         3.  OPR = NOOP.                                                        LABEL       1016     A     
 LABEL    *                P5 = GL FOR DO-BEGIN.             (DORT.W)                      LABEL       1017     A     
 LABEL    *                P6 = GL FOR DO-END.               (DP.DOXL)                     LABEL       1018     A     
 LABEL    *                                                                                LABEL       1019     A     
 LABEL    *         NOTE THAT (P6) IS OMITTED (ZERO) FOR A ONE-TRIP LOOP.                  LABEL       1020     A     
 LABEL    *                                                                                LABEL       1021     A     
 LABEL    *         ALSO RECORD POINTER TO THIS MEGATURPLE IN THE (T.BLST) ENTRY.          LABEL       1022     A     
 LABEL                                                                                     LABEL       1023     A     
 LABEL                                                                                     LABEL       1024     A     
 LABEL              SA1    T=PAR                                                           LABEL       1025     A     
 LABEL              =A2    B7+DO.W                                                         LABEL       1026     A     
 LABEL              LX1    DO.FLGP                                                         LABEL       1027     A     
 LABEL              BX6    X1+X2       RECORD INDEX OF DOB MEGATURPLE                      LABEL       1028     A     
 LABEL              =A4    B7+DOCI.W                                                       LABEL       1029     A     
 LABEL              =A5    A4-DOCI.W+DOTC.W                                                LABEL       1030     A     
 LABEL              SA6    A2                                                              LABEL       1031     A     
 LABEL              EMIT   CDIC,*                                                          LABEL       1032     A     
 LABEL                                                                                     LABEL       1033     A     
 LABEL              SA3    T.BLST                                                          LABEL       1034     A     
 LABEL              SB7    X3+B5                                                           LABEL       1035     A     
 LABEL              =A4    B7+DP.W                                                         LABEL       1036     A     
 LABEL              =A5    B7+DOLI.W                                                       LABEL       1037     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              HX4    DP.DOTI                                                         LABEL       1038     A     
 LABEL              AX4    -DP.DOTIL   EXTRACT TRIP COUNT VARIABLE ORDINAL                 LABEL       1039     A     
 LABEL              LX0    X4                                                              LABEL       1040     A     
 LABEL              CALL   CT1         GET INTO TP. FORMAT                                 LABEL       1041     A     
 LABEL              BX4    X6                                                              LABEL       1042     A     
 LABEL              EMIT   V=NOOP,BOTH                                                     LABEL       1043     A     
 LABEL                                                                                     LABEL       1044     A     
 LABEL              SA3    T.BLST                                                          LABEL       1045     A     
 LABEL              SB7    X3+B5                                                           LABEL       1046     A     
 LABEL              =A4    B7+DORT.W                                                       LABEL       1047     A     
 LABEL              =A5    A4-DORT.W+DP.W                                                  LABEL       1048     A     
 LABEL              HX5    DP.DOXL                                                         LABEL       1049     A     
 LABEL              AX5    -DP.DOXLL   EXTRACT DO END GL ORDINAL                           LABEL       1050     A     
 LABEL              ZR     X5,CDI90    IF NO GENERATED LABEL                               LABEL       1051     A     
 LABEL              CLAS=  X1,TP,(GL)                                                      LABEL       1052     A     
 LABEL              LX5    TP.ORDP                                                         LABEL       1053     A     
 LABEL              BX5    X5+X1                                                           LABEL       1054     A     
 LABEL                                                                                     FC5A371       48     A     
 LABEL     CDI90    EMIT   V=NOOP                                                          LABEL       1055     A     
 LABEL              SA1    T=PAR       PREVENT SQUEEZE PAST DO-TURPLE                      LABEL       1056          I
          -FC50632
 LABEL              SX7    X1+Z=TURP                                                       LABEL       1057          I
          -FC50632
 LABEL              SA7    CURST                                                           LABEL       1058          I
          -FC50632
 LABEL              SX6    0           INDICATE NO ERRORS                                  LABEL       1059          I
          -FC50632
 LABEL              SA1    CDIE        TYPE OF DO                                          FC50632        9     A     
 LABEL              NZ     X1,CDI95    IF I/O DO                                           FC50632       10     A     
 LABEL              CALL   OIL         FLUSH I.L.                                          FC50632       11     A     
 LABEL                                                                                     FC50632       12     A     
 LABEL     CDI95    SX6    0           INDICATE NO ERRORS                                  FC50632       13     A     
 LABEL                                                                                     LABEL       1060     A     
 LABEL     SNAP=N   IFEQ   TEST,ON                                                         LABEL       1061     A     
 LABEL              SA1    CO.SNAP                                                         LABEL       1062     A     
 LABEL              LX1    1RN                                                             LABEL       1063     A     
 LABEL              PL     X1,CDIXX    IF (SNAP=N) NOT SELECTED                            LABEL       1064     A     
 LABEL     CDI      DUMPT  (BLST)                                                          LABEL       1065     A     
 LABEL     CDIXX    BSS                                                                    LABEL       1066     A     
 LABEL     SNAP=N   ENDIF                                                                  LABEL       1067     A     
 LABEL                                                                                     LABEL       1068     A     
 LABEL              EQ     EXIT.                                                           LABEL       1069     A     
 LABEL                                                                                     LABEL       1070     A     
 LABEL     CDIA     BSS    1           GENERAL SAVE CELL                                   LABEL       1071     A     
 LABEL     CDIB     BSS    1           DO BEGIN LABEL (TP. FORMAT)                         LABEL       1072     A     
 LABEL     CDIC     BSS    1           DO BEGIN TURPLE HEADER                              LABEL       1073     A     
 LABEL     CDID     BSS    1           DO TRIP COUNT (TP.)                                 FC50594       24     A     
 LABEL     CDIE     BSS    1           DO TYPE INDICATOR                                   FC50632       14     A     
 LABEL     CDIFLG   BSZENT 1           ERRORS IN STMT + 1 (ON ENTRY)                       LABEL       1074     A     
 LABEL     KDI      SPACE  4,10                                                            FC5A371       49     A     
 LABEL    **        KDI - CONVERT DO INDEX (TO BINARY)                                     FC5A371       50     A     
 LABEL    *                                                                                FC5A371       51     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *         ENTRY  (X1) = TP. FORM OF INDEX                                        FC5A371       52     A     
 LABEL    *                                                                                FC5A371       53     A     
 LABEL    *         EXIT   (X6) = BINARY OF CONSTANT                                       FC5A371       54     A     
 LABEL    *                                                                                FC5A371       55     A     
 LABEL    *         CALLS  LCT                                                             FC5A371       56     A     
 LABEL    *                                                                                FC5A371       57     A     
 LABEL    *         USES   X0,X6                                                           FC5A371       58     A     
 LABEL                                                                                     FC5A371       59     A     
 LABEL                                                                                     FC5A371       60     A     
 LABEL     KDI      SUBR               ...ENTRY/EXIT...                                    FC5A371       61     A     
 LABEL              CALL   LCT         LOAD BINARY OF CONSTANT                             FC5A371       62     A     
 LABEL              ZR     B2,EXIT.    IF NOT CONSTANT                                     FC5A371       63     A     
 LABEL              SX0    X0-M.REAL                                                       FC5A371       64     A     
 LABEL              MI     X0,EXIT.    IF NOT FLOATING                                     FC5A371       65     A     
 LABEL              UX6    X6,B2                                                           FC5A371       66     A     
 LABEL              LX6    B2,X6       INTEGERIZE                                          FC5A371       67     A     
 LABEL              EQ     EXIT.                                                           FC5A371       68     A     
 LABEL     CDIE     BSS    1           SAVE ENTRY LENGTH OF T.BLST HERE                    LABEL       1075          I
          -FC5A138
 LABEL     PDT      EJECT                                                                  LABEL       1076     A     
 LABEL    **        PDT -  PROCESS *DO* TABLES.                                            LABEL       1077     A     
 LABEL    *                                                                                LABEL       1078     A     
 LABEL    *         *PDT* WILL EMIT A *D0* CONCLUSION MEGATURPLE TO T.PAR.                 LABEL       1079     A     
 LABEL    *                                                                                LABEL       1080     A     
 LABEL    *         ENTRY  IF I/O LIST PROCESSING                                          LABEL       1081     A     
 LABEL    *                (X2) = TABLE FORMAT FOR AN I/O DO.                              LABEL       1082     A     
 LABEL    *         TABLE FORMAT=                                                          LABEL       1083     A     
 LABEL    *                       24/ 0,  18/ 0       18/ TP.ORDL                          LABEL       1084     A     
 LABEL    *                                                                                LABEL       1085     A     
 LABEL    *                IF PROGRAMMER DEFINED *DO*                                      LABEL       1086     A     
 LABEL    *                (X2) = TABLE FORMAT FOR PROGRAMMER DO.                          LABEL       1087     A     
 LABEL    *         TABLE FORMAT=                                                          LABEL       1088     A     
 LABEL    *                       24/ 0,  18/ TP.ORDL, 18/ 0                               LABEL       1089     A     
 LABEL    *                                                                                LABEL       1090     A     
 LABEL    *         EXIT   DO CONCLUSION SKELETONS ADDED TO PARSED FILE.                   LABEL       1091     A     
 LABEL    *                                                                                LABEL       1092     A     
 LABEL    *         USES   ALL REGISTERS EXCEPT *B4*                                       LABEL       1093     A     
 LABEL    *                                                                                LABEL       1094     A     
 LABEL    *         CALLS  EMT, FBS, PDT                                                   LABEL       1095     A     
 LABEL                                                                                     LABEL       1096     A     
 LABEL                                                                                     LABEL       1097     A     
 LABEL     PDT      SUBR   =           ENTRY/EXIT...                                       LABEL       1098     A     
 LABEL                                                                                     LABEL       1099     A     
 LABEL     SNAP=N   IFEQ   TEST,ON                                                         LABEL       1100     A     
 LABEL              SA1    CO.SNAP                                                         LABEL       1101     A     
 LABEL              LX1    1RN         DO SNAP FLAG                                        LABEL       1102     A     
 LABEL              PL     X1,PDT1A                                                        LABEL       1103     A     
 LABEL     N-PDT    DUMPT  (BLST)                                                          LABEL       1104     A     
 LABEL     PDT1A    BSS    0                                                               LABEL       1105     A     
 LABEL     SNAP=N   ENDIF                                                                  LABEL       1106     A     
 LABEL                                                                                     LABEL       1107     A     
 LABEL              BX6    X2                                                              LABEL       1108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA6    PDTA        SAVE STATEMENT TAG (LOW ORDER)                      LABEL       1109     A     
 LABEL                                                                                     FC50594       25     A     
 LABEL     PDT1     SA4    T=BLST                                                          LABEL       1110     A     
 LABEL              ZR     X4,EXIT.    IF ALL BLOCKS REMOVED (FOR ERRORS)                  LABEL       1111     A     
 LABEL              SA1    T.BLST                                                          LABEL       1112     A     
 LABEL              =B3    X4-1                                                            LABEL       1113     A     
 LABEL              SA3    X1+B3       FETCH COUNT WORD                                    LABEL       1114     A     
 LABEL              LX3    -LC.DOP                                                         LABEL       1115     A     
 LABEL              SX0    X3          EXTRACT DO LOOP INDEX                               LABEL       1116     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL       1117     A     
 LABEL              NZ     X0,PDT2     IF NOT IF BLOCK                                     LABEL       1118     A     
 LABEL              FATAL  E.IF16      UNTERMINATED IF BLOCK                               LABEL       1119     A     
 LABEL              SX6    0           INDICATE IF BLOCK                                   LABEL       1120     A     
 LABEL              RJ     RBE         REMOVE THE BLOCK ENTRY                              LABEL       1121     A     
 LABEL              EQ     PDT1        CONTINUE PROCESSING                                 LABEL       1122     A     
 LABEL                                                                                     LABEL       1123     A     
 LABEL     PDT2     SA2    PDTA        FETCH DO CONCLUSION                                 LABEL       1124     A     
 LABEL              LX3    LC.DOP-LC.CNTP                                                  LABEL       1125     A     
 LABEL              SX0    X3          EXTRACT SEGMENT SIZE                                LABEL       1126     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1127     A     
 LABEL              IX0    X4-X0                                                           LABEL       1128     A     
 LABEL              SB5    X0-DOSI.W+DO.W                                                  LABEL       1129     A     
 LABEL              MX0    DO.FLGL                                                         LABEL       1130     A     
 LABEL              SA3    X1+B5                                                           LABEL       1131     A     
 LABEL              BX5    X3-X2       COMPARE TABLE ENTRY TO LABEL                        LABEL       1132     A     
 LABEL              HX5    DO.FLG                                                          LABEL       1133     A     
 LABEL              =B5    A3-DO.W     (B5) = ADDRESS OF THIS DO-TABLE ENTRY               LABEL       1134     A     
 LABEL              BX2    -X0*X5      REMOVE (DO.FLG) FROM COMPARISON                     LABEL       1135     A     
 LABEL              ZR     X2,PDT5     IF NOT ILLEGALLY NESTED DO                          LABEL       1136     A     
 LABEL              FATAL  E.DO12                                                          LABEL       1137     A     
 LABEL              SA1    PDTA                                                            LABEL       1138     A     
 LABEL              HX1    DO.TAG                                                          LABEL       1139     A     
 LABEL              AX1    -DO.TAGL    EXTRACT LABEL SYMTAB ORDINAL                        LABEL       1140     A     
 LABEL              BX6    X1                                                              LABEL       1141     A     
 LABEL              LX6    TP.ORDP                                                         LABEL       1142     A     
 LABEL              RJ     RBE         REMOVE THE T.BLST ENTRY                             LABEL       1143     A     
 LABEL              EQ     EXIT.                                                           LABEL       1144     A     
 LABEL                                                                                     LABEL       1145     A     
 LABEL    **        CHECK IF *DO* DEFINITION HAD ERRORS.                                   LABEL       1146     A     
 LABEL    *         (B5) = FWA FROM *DO* TABLE FOR CURRENT *DO*.                           LABEL       1147     A     
 LABEL    *         (X3) = CURRENT *DO* ENTRY TAG.                                         LABEL       1148     A     
 LABEL    *         (X4) = CURRENT LENGTH OF DO TABLE                                      LABEL       1149     A     
 LABEL                                                                                     LABEL       1150     A     
 LABEL     PDT5     SA2    B5+DORT.W                                                       LABEL       1151     A     
 LABEL              NZ     X2,PDT7     IF NO ERROR IN DO DEFINITION                        LABEL       1152     A     
 LABEL              MI     X2,PDT6     IF NO CODE BECAUSE ONE TRIP LOOP                    FC50594       26     A     
 LABEL              TRIV   E.DO13      DEFINITION ERROR                                    LABEL       1153     A     
 LABEL              RJ     FBS         FINISH THE DO STRUCTURE                             LABEL       1154          I
          -FC50594
 LABEL                                                                                     FC50594       27     A     
 LABEL     PDT6     SB7    X3                                                              FC50594       28     A     
 LABEL              NZ     B7,PDT40    IF CURRENT IS AN I/O IMPLIED DO                     FC50594       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              RJ     FBS         FINISH THE DO STRUCTURE                             FC50594       30     A     
 LABEL              EQ     PDT40                                                           LABEL       1155     A     
 LABEL                                                                                     LABEL       1156     A     
 LABEL     PDT7     SB7    X3                                                              LABEL       1157     A     
 LABEL              NZ     B7,PDT10    IF CURRENT IS AN I/O IMPLIED DO                     LABEL       1158     A     
 LABEL              RJ     FBS         FINISH THE DO STRUCTURE                             LABEL       1159     A     
 LABEL              =B7    0           INDICATE PROGRAMMER *DO*                            LABEL       1160     A     
 LABEL                                                                                     FC50594       31     A     
 LABEL     PDT10    BSS    0                                                               LABEL       1161     A     
 LABEL                                                                                     LABEL       1162     A     
 LABEL    **        EMIT DO-CONCLUSION MEGA-TURPLE TO PARSED FILE.                         LABEL       1163     A     
 LABEL    *                                                                                LABEL       1164     A     
 LABEL    *         THE T.BLST SEGMENT BEING PROCESSED HAS LABELS REMOVED.                 LABEL       1165     A     
 LABEL    *                                                                                LABEL       1166     A     
 LABEL    *         A DO-CONCLUSION MEGA-TURPLE CONSISTS OF TWO TURPLES,                   LABEL       1167     A     
 LABEL    *         OPTIONALLY FOLLOWED BY A DO-EXIT LABEL DEFINITION TURPLE,              LABEL       1168     A     
 LABEL    *         ORGANIZED AS FOLLOWS --                                                LABEL       1169     A     
 LABEL    *         1.  OPR = DOEND SKELETON.                                              LABEL       1170     A     
 LABEL    *                P1 = CONTROL INDEX.               (DOCI.W)                      LABEL       1171     A     
 LABEL    *                P2 = INCREMENT VALUE OR (DI.N)    (DOII.W)                      LABEL       1172     A     
 LABEL    *         2.  OPR = NOOP.                                                        LABEL       1173     A     
 LABEL    *                P3 = INVENTED DO-BEGIN LABEL.     (DORT.W)                      LABEL       1174     A     
 LABEL    *                P4 = TRIP COUNT VARIABLE (DC.N)   (DP.DOTI)                     LABEL       1175     A     
 LABEL    *                                                                                LABEL       1176     A     
 LABEL    *         3.   OPR = OPBSS (IF NECESSARY)                                        LABEL       1177     A     
 LABEL    *                P5 = GL FOR DO-CONCLUSION.        (DP.DOXL)                     LABEL       1178     A     
 LABEL    *                P6 = NULL.                                                      LABEL       1179     A     
 LABEL                                                                                     LABEL       1180     A     
 LABEL              SA1    T.BLST                                                          LABEL       1181     A     
 LABEL              SA2    T=BLST                                                          LABEL       1182     A     
 LABEL              SB5    X2-Z=BLST-1 RELATIVIZE (B5) = INDEX OF CURRENT DO               LABEL       1183     A     
 LABEL              SB7    X1+B5                                                           LABEL       1184     A     
 LABEL              SA2    B7+DP.W                                                         LABEL       1185     A     
 LABEL              HX2    DP.TURC                                                         LABEL       1186     A     
 LABEL              AX2    -DP.TURCL   EXTRACT DO CONCLUSION SKELETON                      LABEL       1187     A     
 LABEL              ZR     X2,PDT25    IF CONCLUSION NOT TO BE OUTPUT                      LABEL       1188     A     
 LABEL              LX2    TH.SKELP                                                        LABEL       1189          I
          -FC50104
 LABEL              LX2    SP.SKELP                                                        FC50104      235     A     
 LABEL              SA3    OPDUM+DUC=BOTH                                                  LABEL       1190     A     
 LABEL              BX6    X2+X3                                                           LABEL       1191     A     
 LABEL              SA6    PDTB        SAVE FOR TURPLE OUTPUT                              LABEL       1192     A     
 LABEL              =A4    B7+DOCI.W                                                       LABEL       1193     A     
 LABEL              =A5    A4-DOCI.W+DOII.W                                                LABEL       1194     A     
 LABEL              EMIT   PDTB,*                                                          LABEL       1195     A     
 LABEL                                                                                     LABEL       1196     A     
 LABEL              SA3    T.BLST                                                          LABEL       1197     A     
 LABEL              SB7    X3+B5                                                           LABEL       1198     A     
 LABEL              =A4    B7+DORT.W                                                       LABEL       1199     A     
 LABEL              =A5    A4-DORT.W+DP.W                                                  LABEL       1200     A     
 LABEL              HX5    DP.DOTI                                                         LABEL       1201     A     
 LABEL              AX5    -DP.DOTIL   EXTRACT TRIP COUNT VARIABLE ORDINAL                 LABEL       1202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              BX0    X5                                                              LABEL       1203     A     
 LABEL              CALL   CT1         GET TP. FORM OF TRIP COUNT VARIABLE                 LABEL       1204     A     
 LABEL              LX5    X6                                                              LABEL       1205     A     
 LABEL              EMIT   V=NOOP,2ND                                                      LABEL       1206     A     
 LABEL                                                                                     LABEL       1207     A     
 LABEL     PDT25    SA1    T.BLST                                                          LABEL       1208     A     
 LABEL              SB7    X1+B5                                                           LABEL       1209     A     
 LABEL              SA4    B7+DP.W                                                         LABEL       1210     A     
 LABEL              HX4    DP.DOXL                                                         LABEL       1211     A     
 LABEL              AX4    -DP.DOXLL   EXTRACT DO CONCLUSION GL                            LABEL       1212     A     
 LABEL              ZR     X4,PDT30    IF NO GENERATED LABEL                               LABEL       1213     A     
 LABEL              CLAS=  X1,TP,(GL)                                                      LABEL       1214     A     
 LABEL              LX4    TP.ORDP                                                         LABEL       1215     A     
 LABEL              BX4    X4+X1                                                           LABEL       1216     A     
 LABEL              MX5    0                                                               LABEL       1217     A     
 LABEL              EMIT   OPBSS,*                                                         LABEL       1218     A     
 LABEL                                                                                     LABEL       1219     A     
 LABEL    **        CLEAR *DO* CELLS.  CHECK IF MORE THAN ONE *DO* TERMINATES              LABEL       1220     A     
 LABEL    *         ON CURRENT LABEL.  PROPAGATE (DLNI) ATTRIBUTE OUTWARD.                 LABEL       1221     A     
 LABEL                                                                                     LABEL       1222     A     
 LABEL     PDT30    SA1    T=PAR                                                           LABEL       1223     A     
 LABEL              BX7    X1                                                              LABEL       1224     A     
 LABEL              SA7    CURST       DONT SQUEEZE PAST DO                                LABEL       1225     A     
 LABEL                                                                                     LABEL       1226     A     
 LABEL     PDT40    SA4    T=BLST                                                          LABEL       1227     A     
 LABEL              SA1    T.BLST                                                          LABEL       1228          I
          -FC5A211
 LABEL              IX3    X1+X4                                                           LABEL       1229          I
          -FC5A211
 LABEL              SB5    X3-Z=BLST-1                                                     LABEL       1230          I
          -FC5A211
 LABEL              SA3    B5+DOCI.W                                                       LABEL       1231          I
          -FC5A211
 LABEL              HX3    TP.ORD                                                          LABEL       1232          I
          -FC5A211
 LABEL              AX3    -TP.ORDL    EXTRACT ORDINAL                                     LABEL       1233          I
          -FC5A211
 LABEL              SA1    T.SYM                                                           LABEL       1234          I
          -FC5A211
 LABEL              SB7    X3                                                              LABEL       1235          I
          -FC5A211
 LABEL              LX3    1                                                               LABEL       1236          I
          -FC5A211
 LABEL              SX3    X3+B7       CONVERT ORDINAL TO INDEX                            LABEL       1237          I
          -FC5A211
 LABEL              ERRNZ  3-Z=SYM                                                         LABEL       1238          I
          -FC5A211
 LABEL              =B7    X3-WA.W+WB.W                                                    LABEL       1239          I
          -FC5A211
 LABEL              CLAS=  X7,WB,(DOIX)                                                    LABEL       1240          I
          -FC5A211
 LABEL              SA3    X1+B7       FETCH *WB*                                          LABEL       1241          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
          -FC5A211
 LABEL              BX7    -X7*X3      CLEAR DOIX                                          LABEL       1242          I
          -FC5A211
 LABEL              SA7    A3+                                                             LABEL       1243          I
          -FC5A211
 LABEL              SX6    X4-Z=BLST-1                                                     LABEL       1244     A     
 LABEL              SHRINK A4,X6       REMOVE CONCLUDED LOOP FROM DO-STACK                 LABEL       1245     A     
 LABEL              ZR     X6,EXIT.    IF DO-STACK EMPTY                                   LABEL       1246     A     
 LABEL              SA2    T=BLST                                                          LABEL       1247     A     
 LABEL              CLAS=  X0,WB,(DLNI)                                                    LABEL       1248     A     
 LABEL              RJ     PDA         PROPOGATE DO LOOP ATTRIBUTES                        LABEL       1249     A     
 LABEL                                                                                     LABEL       1250     A     
 LABEL    *         CHECK FOR BLOCK IF ENTRY                                               LABEL       1251     A     
 LABEL                                                                                     LABEL       1252     A     
 LABEL              SA1    T.BLST                                                          LABEL       1253     A     
 LABEL              SA2    T=BLST                                                          LABEL       1254     A     
 LABEL              SB2    X2-1                                                            LABEL       1255     A     
 LABEL              SA3    X1+B2       FETCH COUNT WORD                                    LABEL       1256     A     
 LABEL              LX3    -LC.DOP                                                         LABEL       1257     A     
 LABEL              SX0    X3          EXTRACT DO INDEX                                    LABEL       1258     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL       1259     A     
 LABEL              ZR     X0,EXIT.    IF BLOCK IF                                         LABEL       1260     A     
 LABEL                                                                                     LABEL       1261     A     
 LABEL    **        CHECK IF MORE THAN ONE LOOP TERMINATES ON THIS *DO* LABEL.             LABEL       1262     A     
 LABEL    *                (X6) = CURRENT LENGTH OF DO TABLE                               LABEL       1263     A     
 LABEL                                                                                     LABEL       1264     A     
 LABEL              LX3    LC.DOP-LC.CNTP                                                  LABEL       1265     A     
 LABEL              SX0    X3          EXTRACT COUNT                                       LABEL       1266     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1267     A     
 LABEL              IX0    X2-X0       INDEX TO NEXT LOOP SEGMENT                          LABEL       1268     A     
 LABEL              SA2    PDTA        FETCH (X2) = TAG OF CURRENT DO LABEL                LABEL       1269     A     
 LABEL              =B2    X0+DO.W                                                         LABEL       1270     A     
 LABEL              MX0    -DO.TAGL                                                        LABEL       1271     A     
 LABEL              SA3    X1+B2                                                           LABEL       1272     A     
 LABEL              LX0    DO.TAGP                                                         LABEL       1273     A     
 LABEL              BX3    -X0*X3                                                          LABEL       1274     A     
 LABEL              BX7    X3-X2                                                           LABEL       1275     A     
 LABEL              NZ     X7,EXIT.    IF NOT CURRENT *DO* LABEL.                          LABEL       1276     A     
 LABEL                                                                                     LABEL       1277     A     
 LABEL    **        NESTING OF *DO* WITH SINGLE TERMINATOR. MARK LABEL AS                  LABEL       1278     A     
 LABEL    *         TERMINATING MORE THAN ONE DO, IF PROGRAMMER DO.  (IS THIS              LABEL       1279     A     
 LABEL    *         REALLY NECESSARY?)                                                     LABEL       1280     A     
 LABEL                                                                                     LABEL       1281     A     
 LABEL              SB7    X3                                                              LABEL       1282     A     
 LABEL              ERRNZ  18-DO.IODL                                                      LABEL       1283     A     
 LABEL              BX4    X6                                                              LABEL       1284     A     
 LABEL              =B5    A3-DO.W                                                         LABEL       1285     A     
 LABEL              NZ     B7,PDT5     IF IN *I/O* DO                                      LABEL       1286     A     
 LABEL              BX6    X3                                                              LABEL       1287     A     
 LABEL              SA1    T.SYM                                                           LABEL       1288     A     
 LABEL              AX6    DO.TAGP                                                         LABEL       1289     A     
 LABEL              SB2    X6          EXTRACT (B2) = SYMORD OF DO-LABEL                   LABEL       1290     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              ERRNZ  18-DO.TAGL                                                      LABEL       1291     A     
 LABEL              SX6    B2+B2                                                           LABEL       1292     A     
 LABEL              SB2    X6+B2       CONVERT ORDINAL TO INDEX                            LABEL       1293     A     
 LABEL              ERRNZ  3-Z=SYM                                                         LABEL       1294     A     
 LABEL              =B2    B2+WB.W                                                         LABEL       1295     A     
 LABEL              SA2    X1+B2       LOAD *WB*                                           LABEL       1296     A     
 LABEL              CLAS=  X0,WB,(DLNI)                                                    LABEL       1297     A     
 LABEL              BX6    X2+X0                                                           LABEL       1298     A     
 LABEL              SA6    A2          INDICATE LABEL TERMINATES MORE THAN 1 LOOP          LABEL       1299     A     
 LABEL              EQ     PDT5        CONTINUE                                            LABEL       1300     A     
 LABEL                                                                                     LABEL       1301     A     
 LABEL     PDTA     CON    0           CURRENT DO LABEL                                    LABEL       1302     A     
 LABEL     PDTB     BSS    1           TURPLE HEADER FOR DO CONCLUSION                     LABEL       1303     A     
 LABEL              TITLE  DO NEST AND IF BLOCK LABEL LINKAGE.                             LABEL       1304     A     
 LABEL     ALU      SPACE  4,10                                                            LABEL       1305     A     
 LABEL    **        ALU -  ANALYZE LABEL USAGE                                             LABEL       1306     A     
 LABEL    *                                                                                LABEL       1307     A     
 LABEL    *         CALLED WHEN A LABEL DEFINITION OR REFERENCE OCCURS WITHIN A DO         LABEL       1308     A     
 LABEL    *         LOOP OR BLOCK IF STRUCTURE.                                            LABEL       1309     A     
 LABEL    *                                                                                LABEL       1310     A     
 LABEL    *         ENTRY  (B2) = DEFINITION/REFERENCE INDICATOR                           LABEL       1311     A     
 LABEL    *                (B7) = SYMBOL TABLE *WB* INDEX                                  LABEL       1312     A     
 LABEL    *                (X6) = CURRENT LABEL SYMBOL TABLE ORDINAL                       LABEL       1313     A     
 LABEL    *                                                                                LABEL       1314     A     
 LABEL    *         EXIT                                                                   LABEL       1315     A     
 LABEL    *                                                                                LABEL       1316     A     
 LABEL    *         USES   A1,A2,A3,A6,A7  X0,X1,X2,X3,X6,X7  B2,B3,B7                     LABEL       1317     A     
 LABEL    *                                                                                LABEL       1318     A     
 LABEL    *         CALLS  ADW                                                             LABEL       1319     A     
 LABEL                                                                                     LABEL       1320     A     
 LABEL                                                                                     LABEL       1321     A     
 LABEL     ALU      SUBR               ...ENTRY/EXIT...                                    LABEL       1322          I
          -FC5A341
 LABEL     ALU      SUBR   =           ...ENTRY/EXIT...                                    FC5A341       29     A     
 LABEL              SA1    T.BLST                                                          LABEL       1323     A     
 LABEL              SA2    T=BLST                                                          LABEL       1324     A     
 LABEL              =B3    X2-1                                                            LABEL       1325     A     
 LABEL              SA3    X1+B3       FETCH DO/ORIGIN/COUNT WORD                          LABEL       1326     A     
 LABEL              LX3    -LC.CNTP                                                        LABEL       1327     A     
 LABEL              SX0    X3          EXTRACT SEGMENT SIZE                                LABEL       1328     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1329     A     
 LABEL              SB3    X0-Z=BLST-1 COUNT OF LABELS IN THIS STRUCTURE                   LABEL       1330     A     
 LABEL              LX3    LC.CNTP-LC.LINEP                                                LABEL       1331     A     
 LABEL              SX0    X3          EXTRACT BLOCK ORIGIN                                LABEL       1332     A     
 LABEL              ERRNZ  18-LC.LINEL                                                     LABEL       1333     A     
 LABEL              SA1    T.SYM                                                           LABEL       1334     A     
 LABEL              LX3    LC.LINEP-LC.DOP                                                 LABEL       1335     A     
 LABEL              SX3    X3          EXTRACT DO INDEX                                    LABEL       1336     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL       1337     A     
 LABEL              NZ     X3,ALU5     IF DO LOOP                                          LABEL       1338     A     
 LABEL                                                                                     LABEL       1339     A     
 LABEL    *         HERE WHEN CURRENT STRUCTURE IS IF BLOCK                                LABEL       1340     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *                (X0) = BLOCK ORIGIN LINE NUMBER                                 LABEL       1341     A     
 LABEL    *                (X1) = (T.SYM)                                                  LABEL       1342     A     
 LABEL    *                (B2) = REF/DEF INDICATOR                                        LABEL       1343     A     
 LABEL                                                                                     LABEL       1344     A     
 LABEL              NZ     B2,ALU1     IF LABEL BEING DEFINED                              LABEL       1345     A     
 LABEL              CLAS=  X3,LA,(REF)                                                     LABEL       1346     A     
 LABEL              EQ     ALU20                                                           LABEL       1347     A     
 LABEL                                                                                     LABEL       1348     A     
 LABEL     ALU1     SA2    X1+B7       FETCH *WB*                                          LABEL       1349     A     
 LABEL              BX3    X2                                                              FC50293       12     A     
 LABEL              HX2    WB.FR                                                           LABEL       1350     A     
 LABEL              AX2    -WB.FRL     EXTRACT FIRST REFERENCE                             LABEL       1351     A     
 LABEL              ZR     X2,ALU2     IF NOT PREVIOUSLY REFERENCED                        LABEL       1352          I
          -FC50293
 LABEL              SBIT   X3,WB.SREFP                                                     FC50293       13     A     
 LABEL              PL     X3,ALU2     IF NOT PREVIOUSLY REFERENCED                        FC50293       14     A     
 LABEL              IX0    X2-X0                                                           LABEL       1353     A     
 LABEL              PL     X0,ALU2     IF FIRST REFERENCE WITHIN CURRENT ARM               LABEL       1354     A     
 LABEL              FATAL  E.SL09                                                          LABEL       1355     A     
 LABEL                                                                                     LABEL       1356     A     
 LABEL     ALU2     CLAS=  X3,LA,(DEF)                                                     LABEL       1357     A     
 LABEL              EQ     ALU20                                                           LABEL       1358     A     
 LABEL                                                                                     LABEL       1359     A     
 LABEL    *         HERE WHEN DATA STRUCTURE IS DO LOOP                                    LABEL       1360     A     
 LABEL    *                (X0) = BLOCK ORIGIN LINE NUMBER                                 LABEL       1361     A     
 LABEL    *                (X1) = (T.SYM)                                                  LABEL       1362     A     
 LABEL    *                (X3) = DO LOOP HEADER LABEL INDEX                               LABEL       1363     A     
 LABEL    *                (B2) = REF/DEF INDICATOR                                        LABEL       1364     A     
 LABEL                                                                                     LABEL       1365     A     
 LABEL     ALU5     NZ     B2,ALU10    IF LABEL IS BEING DEFINED                           LABEL       1366     A     
 LABEL              SB2    X3          PRESERVE DO HEADER INDEX                            LABEL       1367     A     
 LABEL              SA2    X1+B7       FETCH *WB*                                          LABEL       1368     A     
 LABEL              SBIT   X2,WB.SDEFP                                                     LABEL       1369     A     
 LABEL              CLAS=  X3,LA,(REF)                                                     LABEL       1370     A     
 LABEL              PL     X2,ALU20    IF LABEL NOT YET DEFINED                            LABEL       1371     A     
 LABEL              =A2    A2-WB.W+WC.W                                                    LABEL       1372     A     
 LABEL              HX2    WC.LINE                                                         LABEL       1373     A     
 LABEL              AX2    -WC.LINEP   EXTRACT DEFINITION LINE NUMBER                      LABEL       1374     A     
 LABEL              IX0    X2-X0                                                           LABEL       1375     A     
 LABEL              SA2    X1+B2       FETCH DO LOOP HEADER *WB*                           LABEL       1376     A     
 LABEL              CLAS=  X7,WB,(DLBB)                                                    LABEL       1377     A     
 LABEL              PL     X0,ALU7     IF DEFINITION IS WITHIN CURRENT DO LOOP             LABEL       1378     A     
 LABEL              CLAS=  X3,LA,(REF,EXT)                                                 LABEL       1379     A     
 LABEL              CLAS=  X7,WB,(DLEX)                                                    LABEL       1380     A     
 LABEL                                                                                     FC50293       15     A     
 LABEL     ALU7     BX7    X2+X7                                                           LABEL       1381     A     
 LABEL              SA7    A2          UPDATE DO HEADER *WB*                               LABEL       1382     A     
 LABEL              EQ     ALU20                                                           LABEL       1383     A     
 LABEL                                                                                     LABEL       1384     A     
 LABEL    *         HERE WHEN LABEL IS DEFINED WITHIN LOOP                                 LABEL       1385     A     
 LABEL                                                                                     LABEL       1386     A     
 LABEL     ALU10    SA2    X1+B7                                                           LABEL       1387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SB2    X3          PRESERVE DO HEADER INDEX                            LABEL       1388     A     
 LABEL              CLAS=  X3,LA,(DEF)                                                     LABEL       1389     A     
 LABEL              SBIT   X2,WB.SREFP                                                     LABEL       1390     A     
 LABEL              PL     X2,ALU20    IF NOT PREVIOUSLY REFERENCED                        LABEL       1391     A     
 LABEL              LX2    WB.SREFP+WB.SREFL-WB.FRP-WB.FRL                                 LABEL       1392     A     
 LABEL              AX2    -WB.FRL     EXTRACT FIRST REFERENCE LINE                        LABEL       1393     A     
 LABEL              ZR     X2,ALU20    IF FIRST REFERENCE IS ASSIGN                        FC50879        6     A     
 LABEL              IX0    X2-X0                                                           LABEL       1394     A     
 LABEL              PL     X0,ALU20    IF REFERENCE WAS INSIDE THIS LOOP                   LABEL       1395     A     
 LABEL              SA2    X1+B2       FETCH DO HEADER *WB*                                LABEL       1396     A     
 LABEL              CLAS=  X7,WB,(DLEN)                                                    LABEL       1397     A     
 LABEL              BX7    X2+X7                                                           LABEL       1398     A     
 LABEL              SA7    A2          RESET DO HEADER *WB* INDICATING ENTRY               LABEL       1399     A     
 LABEL              CLAS=  X3,LA,(DEF,ENT)                                                 LABEL       1400          I
          -FC51356
 LABEL              SA1    T.SYM                                                           FC51356       65     A     
 LABEL              LX2    B1,X6       X6 -> CURRENT LABEL SYMBOL TABLE ORDINAL            FC51356       66     A     
 LABEL              IX2    X2+X6                                                           FC51356       67     A     
 LABEL              IX1    X2+X1                                                           FC51356       68     A     
 LABEL              SA1    X1+WB.W                                                         FC51356       69     A     
 LABEL              MX2    0                                                               FC51356       70     A     
 LABEL              LX0    X2                                                              FC51356       71     A     
 LABEL              SBIT   X1,WB.ALRNP                                                     FC51356       72     A     
 LABEL              PL     X1,ALU12    IF NO ALTERNATE RETURN TO THIS LABEL                FC51356       73     A     
 LABEL              CLAS=  X2,LA,(ALRN)                                                    FC51356       74     A     
 LABEL              LX0    X2                                                              FC51356       75     A     
 LABEL                                                                                     FC51356       76     A     
 LABEL     ALU12    SBIT   X1,WB.GOTOP/WB.ALRNP                                            FC51356       77     A     
 LABEL              PL     X1,ALU14    IF NO *GOTO* TO THIS LABEL                          FC51356       78     A     
 LABEL              CLAS=  X2,LA,(GOTO)                                                    FC51356       79     A     
 LABEL                                                                                     FC51356       80     A     
 LABEL     ALU14    CLAS=  X3,LA,(DEF,ENT)                                                 FC51356       81     A     
 LABEL              BX3    X3+X2                                                           FC51356       82     A     
 LABEL              BX3    X3+X0                                                           FC51356       83     A     
 LABEL                                                                                     LABEL       1401     A     
 LABEL    *         FINISH UP THIS ENTRY                                                   LABEL       1402     A     
 LABEL    *                (B3) = COUNT OF LABELS IN STRUCTURE                             LABEL       1403     A     
 LABEL    *                (X3) = BITS TO SET IN LABEL WORD                                LABEL       1404     A     
 LABEL    *                (X6) = LABEL SYMBOL TABLE ORDINAL                               LABEL       1405     A     
 LABEL                                                                                     LABEL       1406     A     
 LABEL     ALU20    SA1    T.BLST                                                          LABEL       1407     A     
 LABEL              SA2    T=BLST                                                          LABEL       1408     A     
 LABEL              SB2    X2-1                                                            LABEL       1409     A     
 LABEL              SA2    X1+B2       FETCH DO/ORIGIN/COUNT WORD                          LABEL       1410          I
          -FC5A124
 LABEL              =A1    A2-1        PREFETCH LABEL WORD                                 LABEL       1411          I
          -FC5A124
 LABEL     ALU21    ZR     B3,ALU25    IF NO MORE LABELS                                   LABEL       1412          I
          -FC5A124
 LABEL              BX7    X1-X6                                                           LABEL       1413          I
          -FC5A124
 LABEL              SX7    X7                                                              LABEL       1414          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
          -FC5A124
 LABEL              ZR     X7,ALU22    IF MATCH                                            LABEL       1415          I
          -FC5A124
 LABEL              =B3    B3-1                                                            LABEL       1416          I
          -FC5A124
 LABEL              =A1    A1-1                                                            LABEL       1417          I
          -FC5A124
 LABEL              EQ     ALU21       CONTINUE                                            LABEL       1418          I
          -FC5A124
 LABEL              SB2    B2-B3                                                           FC5A124       37     A     
 LABEL              SA1    X1+B2       PREFETCH LABEL WORD                                 FC5A124       38     A     
 LABEL                                                                                     FC5A124       39     A     
 LABEL     ALU21    ZR     B3,ALU25    IF NO MORE LABELS                                   FC5A124       40     A     
 LABEL              =B3    B3-1                                                            FC5A124       41     A     
 LABEL              BX7    X1-X6                                                           FC5A124       42     A     
 LABEL              SX7    X7                                                              FC5A124       43     A     
 LABEL              BX2    X1          SAVE CURRENT LABEL                                  FC5A124       44     A     
 LABEL              =A1    A1+1        (A1,X1) = A+C NEXT LABEL                            FC5A124       45     A     
 LABEL              NZ     X7,ALU21    IF NOT A MATCH                                      FC5A124       46     A     
 LABEL                                                                                     LABEL       1419     A     
 LABEL    *         CURRENT LABEL ALREADY REFERENCED OR DEFINED IN CURRENT BLOCK           LABEL       1420     A     
 LABEL    *         MERGE IN CURRENT USAGE BITS.                                           LABEL       1421     A     
 LABEL                                                                                     LABEL       1422     A     
 LABEL     ALU22    BX6    X3+X1       MERGE IN NEW USAGE BITS                             LABEL       1423          I
          -FC5A124
 LABEL              SA6    A1          UPDATE                                              LABEL       1424          I
          -FC5A124
 LABEL              BX6    X3+X2                                                           FC5A124       47     A     
 LABEL              SA6    A1-1        UPDATE TABLE ENTRY                                  FC5A124       48     A     
 LABEL              EQ     EXIT.                                                           LABEL       1425     A     
 LABEL                                                                                     LABEL       1426     A     
 LABEL    *         THE CURRENT LABEL IS NEW TO THE CURRENT BLOCK.  ADD TO T.BLST          LABEL       1427     A     
 LABEL    *         AND UPDATE THE COUNT WORD                                              LABEL       1428     A     
 LABEL                                                                                     LABEL       1429     A     
 LABEL     ALU25    BX6    X3+X6                                                           LABEL       1430     A     
 LABEL              SA6    A2          ADD THE LABEL ENTRY                                 LABEL       1431          I
          -FC5A124
 LABEL              =X6    1                                                               LABEL       1432          I
          -FC5A124
 LABEL              IX6    X2+X6       INCREMENT THE DO/ORIGIN/COUNT WORD                  LABEL       1433          I
          -FC5A124
 LABEL              SA6    A1          ADD THE LABEL ENTRY                                 FC5A124       49     A     
 LABEL              =X6    1                                                               FC5A124       50     A     
 LABEL              IX6    X6+X1       INCREMENT THE DO/ORIGIN/COUNT WORD                  FC5A124       51     A     
 LABEL              ADDWD  T.BLST                                                          LABEL       1434     A     
 LABEL              EQ     EXIT.                                                           LABEL       1435     A     
 LABEL     DDR      SPACE  4,10                                                            FC5A211       95     A     
 LABEL    **        DDR -  DIAGNOSE DO (INDEX) REDEFINITION                                FC5A211       96     A     
 LABEL    *                                                                                FC5A211       97     A     
 LABEL    *         ENTRY  (X5) = POSSIBLE DO INDEX                                        FC5A211       98     A     
 LABEL    *                (B3) = .MI. DO CONTROL INDEX                                    FC50718       12     A     
 LABEL    *                       .PL. NOT DO CONTROL INDEX                                FC50718       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *                                                                                FC5A211       99     A     
 LABEL    *         EXIT   (X5) = BASE/BIAS FORM OF POSSIBLE DO INDEX                      FC5A211      100     A     
 LABEL    *                DO INDEX REDEFINITION DIAGNOSED (AS APPLICABLE)                 FC5A211      101     A     
 LABEL    *                                                                                FC5A211      102     A     
 LABEL    *         CALLS  BBC                                                             FC5A211      103          I
          -FC50718
 LABEL    *         CALLS  BBC, RBE                                                        FC50718       14     A     
 LABEL    *                                                                                FC5A211      104     A     
 LABEL    *         USES   A1,A2,A3,A7  X1,X2,X3,X7  B2,B7                                 FC5A211      105     A     
 LABEL                                                                                     FC5A211      106     A     
 LABEL                                                                                     FC5A211      107     A     
 LABEL     DDR      SUBR   =           ...ENTRY/EXIT...                                    FC5A211      108     A     
 LABEL              BX7    X5                                                              FC5A211      109     A     
 LABEL              SBIT   X7,TP.INTRP                                                     FC5A211      110     A     
 LABEL              MI     X7,EXIT.    IF ARRAY LOAD, CANT TELL                            FC5A211      111     A     
 LABEL              MX7    -TP.MODEL                                                       FC5A211      112     A     
 LABEL              LX5    -TP.MODEP                                                       FC5A211      113     A     
 LABEL              BX7    -X7*X5                                                          FC5A211      114     A     
 LABEL              LX5    TP.MODEP                                                        FC5A211      115     A     
 LABEL              SX7    X7-M.CHAR                                                       FC5A211      116     A     
 LABEL              ZR     X7,EXIT.    IF CHARACTER OPERAND                                FC5A211      117     A     
 LABEL              CALL   BBC         CONVERT TO BASE/BIAS                                FC5A211      118     A     
 LABEL              SA1    T.BLST                                                          FC5A211      119     A     
 LABEL              SA2    T=BLST                                                          FC5A211      120     A     
 LABEL              SB2    X2-1                                                            FC5A211      121     A     
 LABEL              MX7    TP.ORBIL                                                        FC5A211      122     A     
 LABEL              LX7    TP.ORBIL+TP.ORBIP                                               FC5A211      123     A     
 LABEL              ZR     X2,EXIT.    IF NO ACTIVE BLOCKS                                 FC5A211      124     A     
 LABEL                                                                                     FC50718       15     A     
 LABEL     DDR1     SA3    X1+B2       FETCH LC. WORD FOR BLOCK                            FC5A211      125     A     
 LABEL              LX3    -LC.CNTP                                                        FC5A211      126     A     
 LABEL              SB7    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY                FC5A211      127     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      FC5A211      128     A     
 LABEL              HX3    LC.DO                                                           FC5A211      129     A     
 LABEL              AX3    -LC.DOL     EXTRACT DO LOOP HEADER LABEL INDEX                  FC5A211      130     A     
 LABEL              SB2    B2-B7                                                           FC5A211      131     A     
 LABEL              ZR     X3,DDR2     IF NOT DO LOOP                                      FC5A211      132          I
          -FC5A428
 LABEL              ZR     X3,DDR5     IF NOT DO LOOP                                      FC5A428        7     A     
 LABEL              SB7    B2+DOCI.W+1                                                     FC5A211      133     A     
 LABEL              SA3    X1+B7                                                           FC5A211      134     A     
 LABEL              IX3    X5-X3                                                           FC5A211      135     A     
 LABEL              BX3    X7*X3       EXTRACT TAG/BIAS                                    FC5A211      136     A     
 LABEL              ZR     X3,E.DO08   IF A DO INDEX REDEFINITION                          FC5A211      137          I
          -FC50718
 LABEL              NZ     X3,DDR2     IF NO DO INDEX REDEFINITION                         FC50718       16          I
          -FC5A428
 LABEL              NZ     X3,DDR5     IF NO DO INDEX REDEFINITION                         FC5A428        8     A     
 LABEL              PL     B3,E.DO08   IF NOT DO CONTROL INDEX                             FC50718       17          I
          -FC51203
 LABEL              SB2    X2-1        RESTORE INVALID ENTRY LC. POINTER                   FC5A428        9     A     
 LABEL              SA3    X1+B2       LC. WORD                                            FC5A428       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              LX3    -LC.CNTP                                                        FC5A428       11     A     
 LABEL              SB7    X3          NUMBER OF WORDS IN T.BLST ENTRY                     FC5A428       12     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      FC5A428       13     A     
 LABEL              SB2    B2-B7                                                           FC5A428       14     A     
 LABEL              SB2    X1+B2       TOP OF T.BLST ENTRY                                 FC5A428       15     A     
 LABEL              SA3    B2+DO.W+1                                                       FC5A428       16     A     
 LABEL              MX6    1           NEGATIVE IF IMPLIED DO (FOR RBE)                    FC5A428       17     A     
 LABEL              HX3    DO.IOD                                                          FC5A428       18     A     
 LABEL              AX3    -DO.IODL    EXTRACT IMPLIED DO FLAG                             FC5A428       19     A     
 LABEL              NZ     X3,DDR2     IF IMPLIED I/O DO                                   FC5A428       20     A     
 LABEL              SA1    STLTAG      CURRENT DO TERMINAL                                 FC50718       18     A     
 LABEL              BX6    X1          FOR RBE CALL                                        FC50718       19     A     
 LABEL              HX1    TP.ORD                                                          FC50718       20     A     
 LABEL              AX1    -TP.ORDL    EXTRACT ORDINAL                                     FC50718       21     A     
 LABEL              SB2    X1                                                              FC50718       22     A     
 LABEL              LX1    1                                                               FC50718       23     A     
 LABEL              SB2    B2+X1       CONVERT ORDINAL TO INDEX                            FC50718       24     A     
 LABEL              ERRNZ  3-Z=SYM                                                         FC50718       25     A     
 LABEL              =B2    B2+WB.W                                                         FC50718       26     A     
 LABEL              SA1    T.SYM                                                           FC50718       27     A     
 LABEL              SA1    X1+B2       FETCH DO TERMINAL *WB*                              FC50718       28     A     
 LABEL              CLAS=  X7,WB,(DOT)                                                     FC50718       29     A     
 LABEL              BX7    -X7*X1      CLEAR DO TERMINAL BIT                               FC50718       30     A     
 LABEL              SA7    A1          UPDATE                                              FC50718       31     A     
 LABEL              RJ     RBE         REMOVE THE DO ENTRY                                 FC50718       32          I
          -FC5A428
 LABEL                                                                                     FC5A428       21     A     
 LABEL     DDR2     RJ     RBE         REMOVE THE DO ENTRY                                 FC5A428       22     A     
 LABEL              MX6    0                                                               FC50718       33     A     
 LABEL              SA6    CDIFLG      CLEAR TO AVOID SECOND SCRATCH                       FC50718       34     A     
 LABEL              EQ     E.DO08      ** DO INDEX REDEFINITION                            FC50718       35     A     
 LABEL                                                                                     FC50718       36     A     
 LABEL     DDR2     PL     B2,DDR1     IF MORE BLOCKS                                      FC5A211      138          I
          -FC5A428
 LABEL     DDR5     PL     B2,DDR1     IF MORE BLOCKS                                      FC5A428       23     A     
 LABEL              EQ     EXIT.                                                           FC5A211      139     A     
 LABEL     FBS      SPACE  4,10                                                            LABEL       1436     A     
 LABEL    **        FBS -  FINISH BLOCK STRUCTURE                                          LABEL       1437     A     
 LABEL    *                                                                                LABEL       1438     A     
 LABEL    *         CALLED WHEN A DO LOOP OR BLOCK IF ARM IS COMPLETED.                    LABEL       1439     A     
 LABEL    *         ALL LABEL WORDS ARE MERGED INTO THE NEXT OUTER BLOCK                   LABEL       1440     A     
 LABEL    *         (AS NECESSARY) AND THE CURRENT BLOCK IS RETURNED TO T.BLST             LABEL       1441     A     
 LABEL    *         WITH AN UPDATED LC. WORD.                                              LABEL       1442     A     
 LABEL    *                                                                                LABEL       1443     A     
 LABEL    *         USES   A1,A2,A3,A5,A6,A7  X0,X1,X2,X3,X5,X6,X7  B2,B3,B7               LABEL       1444     A     
 LABEL    *                                                                                LABEL       1445     A     
 LABEL    *         CALLS  ADW, ALC, ALU, MVE=                                             LABEL       1446     A     
 LABEL                                                                                     LABEL       1447     A     
 LABEL                                                                                     LABEL       1448     A     
 LABEL     FBS      SUBR   =           ...ENTRY/EXIT...                                    LABEL       1449     A     
 LABEL                                                                                     LABEL       1450     A     
 LABEL    *         COPY THE BLOCK STRUCTURE SEGMENT TO T.SCR FOR PROCESSING EASE.         LABEL       1451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL       1452     A     
 LABEL              SA1    T.BLST                                                          LABEL       1453     A     
 LABEL              SA2    T=BLST                                                          LABEL       1454     A     
 LABEL              =B3    X2-1                                                            LABEL       1455     A     
 LABEL              SA1    X1+B3       FETCH COUNT WORD                                    LABEL       1456     A     
 LABEL              BX6    X1                                                              FC5A127       28     A     
 LABEL              SA6    FBSA        SAVE                                                FC5A127       29     A     
 LABEL              LX1    -LC.CNTP                                                        LABEL       1457     A     
 LABEL              SB3    X1                                                              LABEL       1458     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1459     A     
 LABEL              LX1    LC.CNTP-LC.DOP                                                  LABEL       1460     A     
 LABEL              SB2    X1                                                              LABEL       1461     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL       1462     A     
 LABEL              ALLOC  T.SCR,B3                                                        LABEL       1463     A     
 LABEL              LX3    X1          DESTINATION                                         LABEL       1464     A     
 LABEL              SA5    T=BLST                                                          LABEL       1465     A     
 LABEL              SA2    T.BLST                                                          LABEL       1466     A     
 LABEL              SX1    B3          LENGTH                                              LABEL       1467     A     
 LABEL              IX5    X5-X1       NEW LENGTH OF T.BLST                                LABEL       1468     A     
 LABEL              SHRINK T=BLST,X5                                                       LABEL       1469     A     
 LABEL              IX2    X2+X5       SOURCE                                              LABEL       1470     A     
 LABEL              MOVE   X1,X2,X3                                                        LABEL       1471     A     
 LABEL              SB7    B2                                                              LABEL       1472     A     
 LABEL              SA1    T.SCR                                                           LABEL       1473     A     
 LABEL              SB2    X1          BASE OF THE CURRENT SEGMENT                         LABEL       1474     A     
 LABEL              SB3    B3-Z=BLST-1 NUMBER OF LABELS TO PROCESS                         LABEL       1475     A     
 LABEL              NZ     B7,FBS10    IF BLOCK IS DO LOOP                                 LABEL       1476     A     
 LABEL                                                                                     LABEL       1477     A     
 LABEL    *         BLOCK IS IF BLOCK                                                      LABEL       1478     A     
 LABEL                                                                                     LABEL       1479     A     
 LABEL              ZR     B3,FBS3     IF NO LABELS IN THIS ARM                            LABEL       1480     A     
 LABEL              SB2    B2+Z=BLST   ADVANCE TO FIRST LABEL                              LABEL       1481     A     
 LABEL                                                                                     FC50594       32     A     
 LABEL     FBS1     SA1    B2          FETCH LABEL                                         LABEL       1482     A     
 LABEL              SX2    X1          EXTRACT ORDINAL                                     LABEL       1483     A     
 LABEL              ERRNZ  0-LA.ORDP+18-LA.ORDL                                            LABEL       1484     A     
 LABEL              SBIT   X1,LA.DEFP                                                      LABEL       1485     A     
 LABEL              PL     X1,FBS2     IF LABEL NOT DEFINED IN CURRENT BLOCK               LABEL       1486     A     
 LABEL              SA1    T.SYM                                                           LABEL       1487     A     
 LABEL              SB7    X2                                                              LABEL       1488     A     
 LABEL              LX2    1                                                               LABEL       1489     A     
 LABEL              SB7    B7+X2       CONVERT ORDINAL TO INDEX                            LABEL       1490     A     
 LABEL              ERRNZ  3-Z=SYM                                                         LABEL       1491     A     
 LABEL              =B7    B7-WA.W+WB.W                                                    LABEL       1492     A     
 LABEL              SA2    X1+B7                                                           LABEL       1493     A     
 LABEL              CLAS=  X3,WB,(INA)                                                     LABEL       1494     A     
 LABEL              BX6    X2+X3                                                           LABEL       1495     A     
 LABEL              SA6    A2          MARK DEFINED LABEL AS INACTIVE                      LABEL       1496     A     
 LABEL                                                                                     FC50594       33     A     
 LABEL     FBS2     =B2    B2+1                                                            LABEL       1497     A     
 LABEL              =B3    B3-1                                                            LABEL       1498     A     
 LABEL              NZ     B3,FBS1     IF NOT FINISHED                                     LABEL       1499     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL       1500     A     
 LABEL     FBS3     SA1    T=BLST                                                          LABEL       1501     A     
 LABEL              ZR     X1,FBS5     IF THIS IS ONLY BLOCK                               LABEL       1502     A     
 LABEL                                                                                     LABEL       1503     A     
 LABEL    *         MERGE LABELS INTO OUTER BLOCK                                          LABEL       1504     A     
 LABEL                                                                                     LABEL       1505     A     
 LABEL              SA2    T=SCR                                                           LABEL       1506     A     
 LABEL              SX2    X2-1                                                            LABEL       1507     A     
 LABEL              SHRINK A2,X2       REMOVE COUNT WORD (LC.)                             LABEL       1508     A     
 LABEL                                                                                     LABEL       1509     A     
 LABEL     FBS4     SA1    T.SCR                                                           LABEL       1510     A     
 LABEL              SB5    X2-Z=BLST                                                       LABEL       1511     A     
 LABEL              ZR     B5,FBS5     IF NO MORE LABELS                                   LABEL       1512     A     
 LABEL              SB5    X2-1                                                            LABEL       1513     A     
 LABEL              SA3    X1+B5       FETCH LABEL                                         LABEL       1514     A     
 LABEL              CLAS=  X0,LA,(DEF)                                                     LABEL       1515     A     
 LABEL              BX0    X0*X3                                                           LABEL       1516     A     
 LABEL              HX0    LA.DEF                                                          LABEL       1517     A     
 LABEL              LX0    LA.DEFL                                                         LABEL       1518     A     
 LABEL              SB2    X0          REF/DEF INDICATOR                                   LABEL       1519     A     
 LABEL              LX3    -LA.ORDP                                                        LABEL       1520     A     
 LABEL              SX6    X3          EXTRACT ORDINAL                                     LABEL       1521     A     
 LABEL              ERRNZ  18-LA.ORDL                                                      LABEL       1522     A     
 LABEL              IX3    X6+X6                                                           LABEL       1523     A     
 LABEL              IX3    X3+X6       CONVERT ORDINAL TO INDEX                            LABEL       1524     A     
 LABEL              =B7    X3-WA.W+WB.W                                                    LABEL       1525     A     
 LABEL              RJ     ALU         ANALYZE LABEL USAGE (FOR OUTER STRUCTURE)           LABEL       1526     A     
 LABEL              SA2    T=SCR                                                           LABEL       1527     A     
 LABEL              SX2    X2-1                                                            LABEL       1528     A     
 LABEL              SHRINK A2,X2       REMOVE THE LABEL JUST PROCESSED                     LABEL       1529     A     
 LABEL              EQ     FBS4                                                            LABEL       1530     A     
 LABEL                                                                                     LABEL       1531     A     
 LABEL    *         MOVE BLOCK BACK TO T.BLST                                              LABEL       1532     A     
 LABEL                                                                                     LABEL       1533     A     
 LABEL     FBS5     ALLOC  T.BLST,Z=BLST                                                   LABEL       1534     A     
 LABEL              SX1    Z=BLST      LENGTH                                              LABEL       1535     A     
 LABEL              SA2    T.SCR       SOURCE                                              LABEL       1536     A     
 LABEL              SX3    B7-Z=BLST   DESTINATION                                         LABEL       1537     A     
 LABEL              MOVE   X1,X2,X3                                                        LABEL       1538     A     
 LABEL              SX6    Z=BLST+1                                                        LABEL       1539     A     
 LABEL              SA1    REFLIN                                                          LABEL       1540     A     
 LABEL              LX1    -XR.LINEP+LC.LINEP                                              LABEL       1541     A     
 LABEL              BX6    X1+X6                                                           LABEL       1542     A     
 LABEL              SA1    FBSA        OLD COUNT WORD                                      FC5A127       30     A     
 LABEL              CLAS=  X2,LC,(GLM)                                                     FC5A127       31     A     
 LABEL              BX1    X1*X2                                                           FC5A127       32     A     
 LABEL              BX6    X1+X6       MERGE IN LC.GLM (IF PRESENT)                        FC5A127       33     A     
 LABEL              ADDWD  T.BLST      NEW LC. WORD                                        LABEL       1543     A     
 LABEL              EQ     FBS25                                                           LABEL       1544     A     
 LABEL                                                                                     LABEL       1545     A     
 LABEL    *         BLOCK IS DO LOOP                                                       LABEL       1546     A     
 LABEL    *                (B2) = BASE OF SEGMENT                                          LABEL       1547     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL    *                (B3) = NUMBER OF LABELS TO PROCESS                              LABEL       1548     A     
 LABEL    *                (B7) = DO LOOP HEADER LABEL INDEX                               LABEL       1549     A     
 LABEL    *                (X1) = (T.SCR)                                                  LABEL       1550     A     
 LABEL                                                                                     LABEL       1551     A     
 LABEL     FBS10    ZR     B3,"BLOWUP"                                                     LABEL       1552          I
          -FC51488
 LABEL     FBS10    ZR     B3,FBS3     IF NO LABELS IN THIS ARM                            FC51488        6     A     
 LABEL              SA1    T.SYM                                                           LABEL       1553     A     
 LABEL              SA3    X1+B7       DO HEADER LABEL *WB*                                LABEL       1554     A     
 LABEL              SB2    B2+Z=BLST   ADVANCE TO FIRST LABEL                              LABEL       1555     A     
 LABEL              MX6    0                                                               FC51356       84     A     
 LABEL              SA6    ALRNF                                                           FC51356       85     A     
 LABEL              SA6    GOTOF                                                           FC51356       86     A     
 LABEL                                                                                     FC50594       34     A     
 LABEL     FBS11    SA1    B2          FETCH LABEL WORD                                    LABEL       1556     A     
 LABEL              SX2    X1          EXTRACT ORDINAL                                     LABEL       1557     A     
 LABEL              BX7    X1          LABEL WORD USED AT FBS12                            FC51356       87     A     
 LABEL              ERRNZ  0-LA.ORDP+18-LA.ORDL                                            LABEL       1558     A     
 LABEL              SBIT   X1,LA.REFP                                                      LABEL       1559     A     
 LABEL              PL     X1,FBS12    IF NOT REFERENCED IN THIS DO LOOP                   LABEL       1560     A     
 LABEL              SBIT   X1,LA.EXTP/LA.REFP                                              LABEL       1561     A     
 LABEL              MI     X1,FBS12    IF KNOWN TO BE EXIT                                 LABEL       1562     A     
 LABEL              SBIT   X1,LA.DEFP/LA.EXTP                                              LABEL       1563     A     
 LABEL              MI     X1,FBS12    IF LABEL DEFINED IN THIS DO LOOP                    LABEL       1564     A     
 LABEL              SA1    T.SYM                                                           LABEL       1565     A     
 LABEL              CLAS=  X6,WB,(DLEX)                                                    LABEL       1566     A     
 LABEL              BX3    X3+X6       MERGE LOOP EXIT BIT                                 LABEL       1567     A     
 LABEL              SB7    X2                                                              LABEL       1568     A     
 LABEL              LX2    1                                                               LABEL       1569     A     
 LABEL              SB7    B7+X2       CONVERT ORDINAL TO INDEX                            LABEL       1570     A     
 LABEL              ERRNZ  3-Z=SYM                                                         LABEL       1571     A     
 LABEL              =B7    B7-WA.W+WB.W                                                    LABEL       1572     A     
 LABEL              SA2    X1+B7                                                           LABEL       1573     A     
 LABEL              CLAS=  X6,WB,(SLEX)                                                    LABEL       1574     A     
 LABEL              BX6    X2+X6                                                           LABEL       1575     A     
 LABEL              SA6    A2                                                              LABEL       1576     A     
 LABEL                                                                                     FC50594       35     A     
 LABEL     FBS12    =B2    B2+1                                                            LABEL       1577          I
          -FC51356
 LABEL     FBS12    SBIT   X7,LA.ALRNP                                                     FC51356       88     A     
 LABEL              PL     X7,FBS12A   IF NO *ALTERNATE RETURN* TO THIS LABEL              FC51356       89     A     
 LABEL              MX6    1                                                               FC51356       90     A     
 LABEL              SA6    ALRNF                                                           FC51356       91     A     
 LABEL                                                                                     FC51356       92     A     
 LABEL     FBS12A   SBIT   X7,LA.GOTOP/LA.ALRNP                                            FC51356       93     A     
 LABEL              PL     X7,FBS12B   IF NO *GOTO* TO THIS LABEL                          FC51356       94     A     
 LABEL              MX6    1                                                               FC51356       95     A     
 LABEL              SA6    GOTOF                                                           FC51356       96     A     
 LABEL                                                                                     FC51356       97     A     
 LABEL     FBS12B   =B2    B2+1                                                            FC51356       98     A     
 LABEL              =B3    B3-1                                                            LABEL       1578     A     
 LABEL              NZ     B3,FBS11    IF NOT FINISHED                                     LABEL       1579     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL       1580     A     
 LABEL    *         TEST FOR ILLEGAL ENTRY/EXIT CONDITIONS                                 LABEL       1581     A     
 LABEL                                                                                     LABEL       1582     A     
 LABEL              CLAS=  X1,WB,(DLC)                                                     LABEL       1583     A     
 LABEL              BX6    X3+X1       MARK LOOP CLOSED                                    LABEL       1584     A     
 LABEL              SA6    A3          UPDATE DO LOOP HEADER LABEL *WB*                    LABEL       1585     A     
 LABEL              LX6    WB.DLENP-WB.DLEXP                                               LABEL       1586     A     
 LABEL              BX1    -X6*X3                                                          LABEL       1587     A     
 LABEL              BX2    -X3*X6                                                          LABEL       1588          I
          -FC50015
 LABEL              BX2    X3                                                              FC50015       25     A     
 LABEL              HX1    WB.DLEN     MI IFF LOOP HAS ENTRY AND NO EXIT                   LABEL       1589     A     
 LABEL              HX2    WB.DLEN     MI IFF LOOP HAS EXIT AND NO ENTRY                   LABEL       1590     A     
 LABEL              PL     X1,FBS14    IF NO ERROR                                         LABEL       1591          I
          -FC50015
 LABEL              PL     X2,FBS13A   IF NO ENTRY                                         FC50015       26     A     
 LABEL              ANSI   E.DO19      LOOP HAS ENTRY                                      FC50015       27     A     
 LABEL                                                                                     FC50015       28     A     
 LABEL     FBS13A   PL     X1,FBS14    IF NO ENTRY OR HAS EXIT                             FC50015       29     A     
 LABEL              FATAL  E.DO07      ILLEGAL TRANSFER INTO RANGE OF DO                   LABEL       1592          I
          -FC51356
 LABEL              SA2    ALRNF                                                           FC51356       99     A     
 LABEL              PL     X2,FBS13B   IF NO ALTERNATE RETURN TO LOOP                      FC51356      100     A     
 LABEL              WARN   E.DO20                                                          FC51356      101     A     
 LABEL                                                                                     FC51356      102     A     
 LABEL     FBS13B   SA2    GOTOF                                                           FC51356      103     A     
 LABEL              PL     X2,FBS14    IF NO *GOTO* TO THIS LOOP                           FC51356      104     A     
 LABEL              FATAL  E.DO07                                                          FC51356      105     A     
 LABEL                                                                                     FC50594       36     A     
 LABEL              EQ     FBS15                                                           LABEL       1593          I
          -FC50015
 LABEL     FBS14    BX2    -X3*X6                                                          FC50015       30     A     
 LABEL              HX2    WB.DLEN                                                         FC50015       31     A     
 LABEL              SBIT   X3,WB.DLEXP                                                     FC50015       32     A     
 LABEL              CLAS=  X0,WB,(INDO)                                                    FC50015       33     A     
 LABEL              MI     X3,FBS14A   IF DO LOOP CONTAINS EXIT                            FC50015       34     A     
 LABEL              CLAS=  X0,WB,(INA)                                                     FC50015       35     A     
 LABEL                                                                                     FC50015       36     A     
 LABEL    *         WHEN NO EXIT FROM CLOSED DO LOOP, MARK ALL DEFINED LABELS              FC50015       37     A     
 LABEL    *         INACTIVE.  IF OPEN, MARK *INDO*.                                       FC50015       38     A     
 LABEL                                                                                     FC50015       39     A     
 LABEL     FBS14A   SA1    T.SCR                                                           FC50015       40     A     
 LABEL              SA3    T=SCR                                                           FC50015       41     A     
 LABEL              SB3    X3-Z=BLST-1 NUMBER OF LABELS                                    FC50015       42     A     
 LABEL              SB2    X1+Z=BLST   STARTING POINT                                      FC50015       43     A     
 LABEL                                                                                     FC50594       37     A     
 LABEL     FBS15    SA1    B2          FETCH LABEL                                         FC50015       44     A     
 LABEL              SX3    X1          EXTRACT ORDINAL                                     FC50015       45     A     
 LABEL              ERRNZ  0-LA.ORDP+18-LA.ORDL                                            FC50015       46     A     
 LABEL              SBIT   X1,LA.DEFP                                                      FC50015       47     A     
 LABEL              PL     X1,FBS16    IF LABEL NOT DEFINED IN CURRENT LOOP                FC50015       48     A     
 LABEL              SA1    T.SYM                                                           FC50015       49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SB7    X3                                                              FC50015       50     A     
 LABEL              LX3    1                                                               FC50015       51     A     
 LABEL              SB7    B7+X3       CONVERT ORDINAL TO INDEX                            FC50015       52     A     
 LABEL              ERRNZ  3-Z=SYM                                                         FC50015       53     A     
 LABEL              =B7    B7-WA.W+WB.W                                                    FC50015       54     A     
 LABEL              SA3    X1+B7                                                           FC50015       55     A     
 LABEL              BX6    X0+X3                                                           FC50015       56     A     
 LABEL              SA6    A3          MARK DEFINED LABEL AS INACTIVE                      FC50015       57     A     
 LABEL                                                                                     FC50594       38     A     
 LABEL     FBS16    =B2    B2+1                                                            FC50015       58     A     
 LABEL              =B3    B3-1                                                            FC50015       59     A     
 LABEL              NZ     B3,FBS15    IF NOT FINISHED                                     FC50015       60     A     
 LABEL                                                                                     LABEL       1594          I
          -FC50594
 LABEL     FBS14    PL     X2,FBS15    IF NO POSSIBLE ENTRY                                LABEL       1595          I
          -FC50015
 LABEL              PL     X2,FBS18    IF NO POSSIBLE LEGAL ENTRY                          FC50015       61     A     
 LABEL              CALL     LPE         LINK POSSIBLE-ENTRY DO LOOPS                      LABEL       1596          I
          -FC5A127
 LABEL                                                                                     LABEL       1597          I
          -FC5A127
 LABEL     FBS15    SA1    T.BLST                                                          LABEL       1598          I
          -FC5A127
 LABEL              SA2    T=BLST                                                          LABEL       1599          I
          -FC5A127
 LABEL              SB2    X2-1                                                            LABEL       1600          I
          -FC5A127
 LABEL              SA3    X1+B2       LC. WORD                                            LABEL       1601          I
          -FC5A127
 LABEL              LX6    X3                                                              LABEL       1602          I
          -FC5A127
 LABEL              SA6    FBSA                                                            LABEL       1603          I
          -FC5A127
 LABEL              CALL   LPE         LINK POSSIBLE-ENTRY DO LOOPS                        FC5A127       34     A     
 LABEL                                                                                     FC50594       39     A     
 LABEL     FBS15    SA2    T=BLST                                                          FC5A127       35          I
          -FC50015
 LABEL     FBS18    SA2    T=BLST                                                          FC50015       62     A     
 LABEL              ZR     X2,FBS20    IF THIS IS ONLY BLOCK                               LABEL       1604     A     
 LABEL                                                                                     LABEL       1605     A     
 LABEL    *         MERGE LABELS INTO OUTER BLOCK                                          LABEL       1606     A     
 LABEL                                                                                     LABEL       1607     A     
 LABEL              SA2    T=SCR                                                           LABEL       1608     A     
 LABEL              SX2    X2-1                                                            LABEL       1609     A     
 LABEL              SHRINK A2,X2       REMOVE COUNT WORD (LC.)                             LABEL       1610     A     
 LABEL                                                                                     LABEL       1611     A     
 LABEL     FBS16    SA1    T.SCR                                                           LABEL       1612          I
          -FC50015
 LABEL     FBS19    SA1    T.SCR                                                           FC50015       63     A     
 LABEL              SB5    X2-Z=BLST                                                       LABEL       1613     A     
 LABEL              ZR     B5,FBS20    IF NO MORE LABELS                                   LABEL       1614     A     
 LABEL              SB5    X2-1                                                            LABEL       1615     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA3    X1+B5       FETCH LABEL                                         LABEL       1616     A     
 LABEL              CLAS=  X0,LA,(DEF)                                                     LABEL       1617     A     
 LABEL              BX0    X0*X3                                                           LABEL       1618     A     
 LABEL              HX0    LA.DEF                                                          LABEL       1619     A     
 LABEL              LX0    LA.DEFL                                                         LABEL       1620     A     
 LABEL              SB2    X0          REF/DEF INDICATOR                                   LABEL       1621     A     
 LABEL              LX3    -LA.ORDP                                                        LABEL       1622     A     
 LABEL              SX6    X3          EXTRACT ORDINAL                                     LABEL       1623     A     
 LABEL              ERRNZ  18-LA.ORDL                                                      LABEL       1624     A     
 LABEL              IX3    X6+X6                                                           LABEL       1625     A     
 LABEL              IX3    X3+X6       CONVERT ORDINAL TO INDEX                            LABEL       1626     A     
 LABEL              =B7    X3-WA.W+WB.W                                                    LABEL       1627     A     
 LABEL              RJ     ALU         ANALYZE LABEL USAGE (FOR OUTER STRUCTURE)           LABEL       1628     A     
 LABEL              SA2    T=SCR                                                           LABEL       1629     A     
 LABEL              SX2    X2-1                                                            LABEL       1630     A     
 LABEL              SHRINK A2,X2       REMOVE THE LABEL JUST PROCESSED                     LABEL       1631     A     
 LABEL              EQ     FBS16                                                           LABEL       1632          I
          -FC50015
 LABEL              EQ     FBS19                                                           FC50015       64     A     
 LABEL                                                                                     LABEL       1633     A     
 LABEL    *         MOVE BLOCK BACK TO T.BLST                                              LABEL       1634     A     
 LABEL                                                                                     LABEL       1635     A     
 LABEL     FBS20    ALLOC  T.BLST,Z=BLST                                                   LABEL       1636     A     
 LABEL              SX1    Z=BLST      LENGTH                                              LABEL       1637     A     
 LABEL              SA2    T.SCR       SOURCE                                              LABEL       1638     A     
 LABEL              SX3    B7-Z=BLST   DESTINATION                                         LABEL       1639     A     
 LABEL              MOVE   X1,X2,X3                                                        LABEL       1640     A     
 LABEL              SA1    FBSA                                                            LABEL       1641     A     
 LABEL              SX6    Z=BLST+1                                                        LABEL       1642     A     
 LABEL              MX0    -LC.CNTL                                                        LABEL       1643     A     
 LABEL              BX1    X0*X1       CLEAR COUNT                                         LABEL       1644     A     
 LABEL              BX6    X1+X6                                                           LABEL       1645     A     
 LABEL              ADDWD  T.BLST      NEW LC. WORD                                        LABEL       1646     A     
 LABEL                                                                                     LABEL       1647     A     
 LABEL     FBS25    SHRINK T=SCR,B0                                                        LABEL       1648     A     
 LABEL              EQ     EXIT.                                                           LABEL       1649     A     
 LABEL                                                                                     LABEL       1650     A     
 LABEL     FBSA     BSS    1                                                               LABEL       1651     A     
 LABEL     ALRNF    BSS    1                                                               FC51356      106     A     
 LABEL     GOTOF    BSS    1                                                               FC51356      107     A     
 LABEL     PDA      SPACE  4,10                                                            LABEL       1652     A     
 LABEL    **        PDA -  PROPOGATE DO LOOP ATTRIBUTES                                    LABEL       1653     A     
 LABEL    *                                                                                LABEL       1654     A     
 LABEL    *         ENTRY  (X0) = DO ATTRIBUTE BITS TO PROPOGATE                           LABEL       1655     A     
 LABEL    *                (X2) = (T=BLST)                                                 LABEL       1656     A     
 LABEL    *                                                                                LABEL       1657     A     
 LABEL    *         EXIT   ALL DO LOOPS CURRENTLY ACTIVE GAIN ATTRIBUTES                   LABEL       1658     A     
 LABEL    *                                                                                LABEL       1659     A     
 LABEL    *         USES   A1,A2,A7  X0,X1,X2,X7  B2,B3,B7                                 LABEL       1660          I
          -FC5A341
 LABEL    *         USES   A1,A3,A7  X0,X1,X2,X3,X7  B2,B3,B7                              FC5A341       30     A     
 LABEL                                                                                     LABEL       1661     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL       1662     A     
 LABEL     PDA      SUBR   =           ...ENTRY/EXIT...                                    LABEL       1663     A     
 LABEL              SA1    T.BLST                                                          LABEL       1664     A     
 LABEL              SB2    X2-1                                                            LABEL       1665     A     
 LABEL                                                                                     FC5A341       31     A     
 LABEL     PDA1     SA3    X1+B2       FETCH LC. WORD FOR BLOCK                            LABEL       1666     A     
 LABEL              LX3    -LC.CNTP                                                        LABEL       1667     A     
 LABEL              SB7    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY                LABEL       1668     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1669     A     
 LABEL              LX3    LC.CNTP-LC.DOP                                                  LABEL       1670     A     
 LABEL              SB3    X3          DO LOOP HEADER LABEL INDEX                          LABEL       1671     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL       1672     A     
 LABEL              SB2    B2-B7                                                           LABEL       1673     A     
 LABEL              ZR     B3,PDA2     IF NOT DO LOOP                                      LABEL       1674     A     
 LABEL              SA3    T.SYM                                                           LABEL       1675     A     
 LABEL              SA3    X3+B3       FETCH *WB*                                          LABEL       1676     A     
 LABEL              BX7    X3+X0       MERGE IN ATTRIBUTE BITS                             LABEL       1677     A     
 LABEL              SA7    A3                                                              LABEL       1678     A     
 LABEL                                                                                     FC5A341       32     A     
 LABEL     PDA2     PL     B2,PDA1     IF MORE BLOCKS                                      LABEL       1679     A     
 LABEL              EQ     EXIT.                                                           LABEL       1680     A     
 LABEL     RBE      SPACE  4,10                                                            LABEL       1681     A     
 LABEL    **        RBE  - REMOVE BLOCK ENTRY                                              LABEL       1682     A     
 LABEL    *                                                                                LABEL       1683     A     
 LABEL    *                CALLED WHEN AN ERROR IS DETECTED IN DO PROCESSING               LABEL       1684     A     
 LABEL    *                WHICH RENDERS THE DO TERMINAL UNCOMPILABLE.                     LABEL       1685     A     
 LABEL    *                                                                                LABEL       1686     A     
 LABEL    *         ENTRY  (X6) = DO TERMINATOR (TP. FORMAT) (0 FOR BLOCK IF)              LABEL       1687          I
          -FC5A111
 LABEL    *         ENTRY  (X6) = MI FOR IMPLIED DO.                                       FC5A111      152     A     
 LABEL    *                     = ZR FOR BLOCK IF.                                         FC5A111      153     A     
 LABEL    *                     = DO TERMINATOR (TP. FORMAT) FOR PROGRAMMER DO.            FC5A111      154     A     
 LABEL    *                                                                                FC5A111      155     A     
 LABEL    *                (IODOLEN) = LENGTH OF T.BLST PRIOR TO                           FC5A111      156     A     
 LABEL    *                            COMPILING IMPLIED DO.                               FC5A111      157     A     
 LABEL    *                                                                                LABEL       1688     A     
 LABEL    *         EXIT   ALL DO ENTRIES ON T.BLST PERTAINING TO THAT TERMINATOR          LABEL       1689     A     
 LABEL    *                ARE REMOVED.   THE WB.DOIX BIT IS UNSET FOR THE CONTROL         LABEL       1690     A     
 LABEL    *                INDEX OF EACH DO REMOVED.                                       LABEL       1691     A     
 LABEL    *                                                                                LABEL       1692     A     
 LABEL    *         USES   A1,A2,A3,A6  X0,X1,X2,X3,X6  B2,B3,B7                           LABEL       1693     A     
 LABEL    *                                                                                LABEL       1694     A     
 LABEL    *         CALLS  ALC, FBS, MVE=                                                  LABEL       1695     A     
 LABEL                                                                                     LABEL       1696     A     
 LABEL                                                                                     LABEL       1697     A     
 LABEL     RBE      SUBR   =           ...ENTRY/EXIT...                                    LABEL       1698     A     
 LABEL              MI     X6,RBE10    IF IMPLIED DO                                       FC5A111      158     A     
 LABEL              NZ     X6,RBE1     IF NOT BLOCK IF                                     LABEL       1699     A     
 LABEL              SA1    IFLEVEL                                                         LABEL       1700     A     
 LABEL              SX6    X1-1                                                            LABEL       1701     A     
 LABEL              SA6    A1+         DECREMENT IF LEVEL                                  LABEL       1702     A     
 LABEL              RJ     FBS         FINISH BLOCK STRUCTURE                              LABEL       1703     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              SA1    T.BLST                                                          LABEL       1704     A     
 LABEL              SA2    T=BLST                                                          LABEL       1705     A     
 LABEL              SB2    X2-1                                                            LABEL       1706     A     
 LABEL              SA3    X1+B2       FETCH COUNT                                         LABEL       1707     A     
 LABEL              SX3    X3                                                              LABEL       1708     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1709     A     
 LABEL              IX2    X2-X3                                                           LABEL       1710     A     
 LABEL              SHRINK T=BLST,X2                                                       LABEL       1711     A     
 LABEL              EQ     EXIT.                                                           LABEL       1712     A     
 LABEL                                                                                     LABEL       1713     A     
 LABEL     .FIX     SET    --          MRR - REDO THIS TO UTILIZE FBS                      LABEL       1714     A     
 LABEL                                                                                     LABEL       1715     A     
 LABEL     RBE1     HX6    TP.ORD      LEFT JUSTIFY DO TERMINAL LABEL                      LABEL       1716     A     
 LABEL              AX6    -TP.ORDL    ISOLATE                                             LABEL       1717     A     
 LABEL              SB3    X6                                                              LABEL       1718     A     
 LABEL              SB3    -B3         PRESERVE TAG OF DO TERMINAL                         LABEL       1719     A     
 LABEL              SHRINK T=SCR                                                           LABEL       1720     A     
 LABEL                                                                                     LABEL       1721     A     
 LABEL     RBE2     SA2    T.BLST                                                          LABEL       1722     A     
 LABEL              SA3    T=BLST                                                          LABEL       1723     A     
 LABEL              SB2    X3-1                                                            LABEL       1724     A     
 LABEL              SA1    X2+B2       FETCH COUNT WORD                                    LABEL       1725     A     
 LABEL              LX1    -LC.CNTP                                                        LABEL       1726     A     
 LABEL              SB2    X1          EXTRACT COUNT                                       LABEL       1727     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1728     A     
 LABEL              LX1    LC.CNTP-LC.DOP                                                  LABEL       1729     A     
 LABEL              SX1    X1          EXTRACT DO.N INDEX                                  LABEL       1730     A     
 LABEL              ERRNZ  18-LC.DOL                                                       LABEL       1731     A     
 LABEL              ZR     X1,RBE3     IF BLOCK IF STRUCTURE                               LABEL       1732     A     
 LABEL              SX0    B2                                                              LABEL       1733     A     
 LABEL              IX0    X3-X0                                                           LABEL       1734     A     
 LABEL              SB7    X0+DO.W                                                         LABEL       1735     A     
 LABEL              SA1    X2+B7                                                           LABEL       1736     A     
 LABEL              AX1    DO.TAGP                                                         LABEL       1737     A     
 LABEL              SX1    X1+B3                                                           LABEL       1738     A     
 LABEL              NZ     X1,RBE3     IF NOT DO ENTRY MATCH                               LABEL       1739          I
          -FC5A211
 LABEL                                                                                     LABEL       1740          I
          -FC5A211
 LABEL    *         REMOVE THE WB.DOIX BIT FROM THE CONTROL INDEX.                         LABEL       1741          I
          -FC5A211
 LABEL                                                                                     LABEL       1742          I
          -FC5A211
 LABEL              SA1    A1-DO.W+DOCI.W                                                  LABEL       1743          I
          -FC5A211
 LABEL              SA2    T.SYM                                                           LABEL       1744          I
          -FC5A211
 LABEL              HX1    TP.ORD                                                          LABEL       1745          I
          -FC5A211
 LABEL              AX1    -TP.ORDL    EXTRACT ORDINAL                                     LABEL       1746          I
          -FC5A211
 LABEL              SB7    X1                                                              LABEL       1747          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
          -FC5A211
 LABEL              LX1    1                                                               LABEL       1748          I
          -FC5A211
 LABEL              SB7    X1+B7       CONVERT ORDINAL TO INDEX                            LABEL       1749          I
          -FC5A211
 LABEL              ERRNZ  3-Z=SYM                                                         LABEL       1750          I
          -FC5A211
 LABEL              =B7    B7-WA.W+WB.W                                                    LABEL       1751          I
          -FC5A211
 LABEL              SA3    X2+B7       FETCH *WB*                                          LABEL       1752          I
          -FC5A211
 LABEL              CLAS=  X6,WB,(DOIX)                                                    LABEL       1753          I
          -FC5A211
 LABEL              BX6    -X6*X3      CLEAR WB.DOIX                                       LABEL       1754          I
          -FC5A211
 LABEL              SA6    A3                                                              LABEL       1755          I
          -FC5A211
 LABEL              EQ     RBE4        CONTINUE PROCESSING                                 LABEL       1756          I
          -FC5A211
 LABEL              ZR     X1,RBE4     IF NOT DO ENTRY MATCH                               FC5A211      140     A     
 LABEL                                                                                     LABEL       1757     A     
 LABEL    *         IF NOT A DO ENTRY TO DISCARD, SAVE ON T.SCR                            LABEL       1758     A     
 LABEL    *                (B2) = SIZE OF BLOCK INFORMATION SEGMENT                        LABEL       1759     A     
 LABEL                                                                                     LABEL       1760     A     
 LABEL     RBE3     ALLOC  T.SCR,B2                                                        LABEL       1761     A     
 LABEL              SA1    T.BLST                                                          LABEL       1762     A     
 LABEL              SA2    T=BLST                                                          LABEL       1763     A     
 LABEL              SX0    B2                                                              LABEL       1764     A     
 LABEL              IX2    X1+X2                                                           LABEL       1765     A     
 LABEL              IX2    X2-X0       SOURCE                                              LABEL       1766     A     
 LABEL              SX1    B2          LENGTH                                              LABEL       1767     A     
 LABEL              SX3    B7-B2       DESTINATION                                         LABEL       1768     A     
 LABEL              MOVE   X1,X2,X3                                                        LABEL       1769     A     
 LABEL                                                                                     LABEL       1770     A     
 LABEL    *         SCRATCH LAST T.BLST ENTRY                                              LABEL       1771     A     
 LABEL    *                (B2) = SIZE OF BLOCK INFORMATION SEGMENT                        LABEL       1772     A     
 LABEL                                                                                     LABEL       1773     A     
 LABEL     RBE4     SA1    T=BLST                                                          LABEL       1774     A     
 LABEL              SX0    B2                                                              LABEL       1775     A     
 LABEL              IX1    X1-X0                                                           LABEL       1776     A     
 LABEL              SHRINK A1,X1                                                           LABEL       1777     A     
 LABEL              NZ     X6,RBE2     IF NOT FINISHED                                     LABEL       1778     A     
 LABEL                                                                                     LABEL       1779     A     
 LABEL    *         THE BLOCK INFORMATION IS NOW ON T.SCR, IN REVERSE ORDER.               LABEL       1780     A     
 LABEL    *         MOVE IT BACK TO T.BLST, IN PROPER FORM.                                LABEL       1781     A     
 LABEL                                                                                     LABEL       1782     A     
 LABEL              SA2    T=SCR                                                           LABEL       1783     A     
 LABEL              ZR     X2,EXIT.    IF NO BLOCK INFORMATION                             LABEL       1784     A     
 LABEL              ALLOC  T.BLST,X2                                                       LABEL       1785     A     
 LABEL              SB2    X1                                                              LABEL       1786     A     
 LABEL              SB3    X2                                                              LABEL       1787     A     
 LABEL     RBE5     SA1    T.SCR                                                           LABEL       1788     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL              =B7    B3-1                                                            LABEL       1789     A     
 LABEL              SA2    B7+X1       FETCH COUNT WORD                                    LABEL       1790     A     
 LABEL              LX2    -LC.CNTP                                                        LABEL       1791     A     
 LABEL              SB7    X2          EXTRACT COUNT                                       LABEL       1792     A     
 LABEL              ERRNZ  18-LC.CNTL                                                      LABEL       1793     A     
 LABEL              SB3    B3-B7                                                           LABEL       1794     A     
 LABEL              SX2    B3+X1       SOURCE                                              LABEL       1795     A     
 LABEL              SX1    B7          LENGTH                                              LABEL       1796     A     
 LABEL              SX3    B2          DESTINATION                                         LABEL       1797     A     
 LABEL              SB2    B2+B7       INCREMENT                                           LABEL       1798     A     
 LABEL              MOVE   X1,X2,X3                                                        LABEL       1799     A     
 LABEL              NZ     B3,RBE5     IF NOT FINISHED                                     LABEL       1800     A     
 LABEL              SHRINK T=SCR                                                           LABEL       1801     A     
 LABEL              EQ     EXIT.                                                           LABEL       1802     A     
 LABEL                                                                                     FC5A211      141     A     
 LABEL    *         LOOP IS AN IMPLIED DO. EACH LEVEL OF THE LOOP                          FC5A111      159     A     
 LABEL    *         MUST BE DELETED FROM THE TABLE, AND WB.DOIX                            FC5A111      160          I
          -FC5A211
 LABEL    *         MUST BE TURNED OFF FOR EACH CONTROL INDEX.                             FC5A111      161          I
          -FC5A211
 LABEL    *         MUST BE DELETED FROM T.BLST.                                           FC5A211      142     A     
 LABEL                                                                                     FC5A111      162     A     
 LABEL     RBE10    SA1    IODOLEN                                                         FC5A111      163          I
          -FC51490
 LABEL     RBE10    SA3    IODOLEN                                                         FC51490       12     A     
 LABEL              SX3    X3-Z=BLST                                                       FC51490       13     A     
 LABEL                                                                                     FC51490       14     A     
 LABEL     RBE12    SA1    T.BLST                                                          FC51490       15     A     
 LABEL              SA2    T=BLST                                                          FC51490       16     A     
 LABEL              ZR     X2,EXIT.    IF BLST EMPTY                                       FC51490       17     A     
 LABEL              SB2    X2-1                                                            FC51490       18     A     
 LABEL              SA1    X1+B2                                                           FC51490       19     A     
 LABEL              SX1    X1          ISOLATE COUNT                                       FC51490       20     A     
 LABEL              IX1    X2-X1                                                           FC51490       21     A     
 LABEL              SA2    T=BLST                                                          FC5A111      164          I
          -FC5A211
 LABEL              IX1    X2-X1       X1 = AMOUNT OF T.BLST TO WORK WITH                  FC5A111      165          I
          -FC5A211
 LABEL              SA3    T.BLST                                                          FC5A111      166          I
          -FC5A211
 LABEL              =B2    0                                                               FC5A111      167          I
          -FC5A211
 LABEL              IX2    X3+X2                                                           FC5A111      168          I
          -FC5A211
 LABEL              =X0    X2-1        X0 _ CURRENT LC WORD                                FC5A111      169          I
          -FC5A211
 LABEL              CLAS=  X7,WB,(DOIX)                                                    FC5A111      170          I
          -FC5A211
 LABEL              SA2    T.SYM                                                           FC5A111      171          I
          -FC5A211
 LABEL              SB3    X2                                                              FC5A111      172          I
          -FC5A211
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     FC5A111      173          I
          -FC5A211
 LABEL     RBE15    ZR     X1,RBE20    IF DONE                                             FC5A111      174          I
          -FC5A211
 LABEL              IFEQ   TEST,ON,1                                                       FC5A111      175          I
          -FC5A211
 LABEL              MI     X1,"BLOWUP" IMPLIED DO ENTRY LARGER THAN TABLE LENGTH           FC5A111      176          I
          -FC5A211
 LABEL              SA3    X0+B2       X3 = LC WORD                                        FC5A111      177          I
          -FC5A211
 LABEL              SX0    X0+B2                                                           FC5A111      178          I
          -FC5A211
 LABEL              LX3    -LC.CNTP                                                        FC5A111      179          I
          -FC5A211
 LABEL              SB2    X3          B2 = LENGTH OF THIS SEGMENT                         FC5A111      180          I
          -FC5A211
 LABEL              SB2    -B2                                                             FC5A111      181          I
          -FC5A211
 LABEL              ERRNZ  18-LC.CNTL                                                      FC5A111      182          I
          -FC5A211
 LABEL              SX1    X1+B2                                                           FC5A111      183          I
          -FC5A211
 LABEL              SA3    A3-Z=BLST+DOCI.W  X3 = CONTROL INDEX (TP. FORMAT)               FC5A111      184          I
          -FC5A211
 LABEL              HX3    TP.ORD                                                          FC5A111      185          I
          -FC5A211
 LABEL              AX3    -TP.ORDL    EXTRACT SYMORD                                      FC5A111      186          I
          -FC5A211
 LABEL              SB7    X3                                                              FC5A111      187          I
          -FC5A211
 LABEL              LX3    1                                                               FC5A111      188          I
          -FC5A211
 LABEL              SX3    X3+B7                                                           FC5A111      189          I
          -FC5A211
 LABEL              =X3    X3+WB.W     CONVERT TO *WB* INDEX                               FC5A111      190          I
          -FC5A211
 LABEL              SA3    B3+X3       X3 = *WB*                                           FC5A111      191          I
          -FC5A211
 LABEL              BX6    -X7*X3      CLEAR WB.DOIX                                       FC5A111      192          I
          -FC5A211
 LABEL              SA6    A3          UPDATE *WB*                                         FC5A111      193          I
          -FC5A211
 LABEL              EQ     RBE15       CONTINUE ...                                        FC5A111      194          I
          -FC5A211
 LABEL                                                                                     FC5A111      195          I
          -FC5A211
 LABEL     RBE20    SA1    IODOLEN                                                         FC5A111      196          I
          -FC5A211
 LABEL              SHRINK T=BLST,X1   ELIMINATE ENTIRE IMPLIED DO                         FC5A111      197     A     
 LABEL              SX3    X3-Z=BLST                                                       FC51490       22     A     
 LABEL              PL     X3,RBE12    IF ANOTHER LEVEL IN IMPLIED *DO*                    FC51490       23     A     
 LABEL              EQ     EXIT.                                                           FC5A111      198     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LABEL   
  
 LABEL                                                                                     LABEL       1803     A     
 LABEL              LIST   D                                                               LABEL       1804     A     
 LABEL              END                                                                    LABEL       1805     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LABEL   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LABEL                     1805      1597
          FC5A111                     52        16
          FC5A124                     20        15
          FC5A125                      1         1
          FC5A127                      8         7
          FC5A132                      2         2
          FC5A138                     16        15
          FC5A141                      2         1
          FC50015                     55        51
          FC5A168A                    37        37
          FC5A211                     61        56
          FC5A231                      3         2
          FC50050                      9         9
          FC5A270                      4         0
          FC50104                      1         1
          FC50293                     11        11
          FC5A341                     11        10
          FC5A371                     63        62
          FC50514                     10        10
          FC50594                     33        31
          FC50632                      9         9
          FC50718                     25        22
          FC50749                      8         8
          FC5A428                     17        17
          FC50879                      1         1
          FC50886                     15        15
          FC50915                      2         2
          FC5A450                      5         5
          FC51356                     87        84
          FC51364                     15         9
          FC5A511                      7         7
          FC51499                      3         3
          FC51488                      1         1
          FC51490                     12        12
          FC51564                     16        16
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *QCG*   
  
 *QCG*    *DECK     *QCG* - QUICK CODE GENERATOR.                                          *QCG*          1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *QCG*   
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *QCG*   
  
          *QCG*                        1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     *DECK     QCGC - QUICK CODE GENERATOR CONTROLLER.                                QCGC           1     A     
 QCGC               IDENT  QCGC                                                            QCGC           2     A     
 QCGC      QCGC     SECT   (QUICK CODE GENERATOR CONTROLLER.)                              QCGC           3     A     
 QCGC      QCGC     SPACE  4,10                                                            QCGC           4     A     
 QCGC     ***       QCGC - QUICK CODE GENERATOR CONTROLLER.                                QCGC           5     A     
 QCGC     *                                                                                QCGC           6     A     
 QCGC     *         FOR QCG.                                                               QCGC           7     A     
 QCGC                                                                                      QCGC           8     A     
 QCGC                                                                                      QCGC           9     A     
 QCGC      .FAST    EQU    0                                                               QCGC          10     A     
 QCGC      .OPT     EQU    1                                                               QCGC          11     A     
 QCGC      .CG      EQU    .FAST       INDICATE QUICK CODE GENERATOR                       QCGC          12     A     
 QCGC                                                                                      QCGC          13     A     
 QCGC                                                                                      QCGC          14     A     
 QCGC     *         IN ALLOC                                                               QCGC          15     A     
 QCGC               EXT    ADW,ALC.CAI,ALC.REG,ALC.00,ALC                                  QCGC          16     A     
 QCGC                                                                                      QCGC          17     A     
 QCGC     *         IN CONRED                                                              QCGC          18     A     
 QCGC               EXT    REG=T                                                           QCGC          19     A     
 QCGC                                                                                      QCGC          20     A     
 QCGC     *         IN FEC                                                                 QCGC          21     A     
 QCGC               EXT    CHARMAP,SCS,SCSA                                                QCGC          22     A     
 QCGC                                                                                      QCGC          23     A     
 QCGC     *         IN FSNAP                                                               QCGC          24     A     
 QCGC               EXT    DMT=,SN.PAR                                                     QCGC          25     A     
 QCGC                                                                                      QCGC          26     A     
 QCGC     *         IN FTN                                                                 QCGC          27     A     
 QCGC               EXT    CO.CS,CO.DOOT,CO.SNAP,F.PB                                      QCGC          28          I
          -FC50452
 QCGC               EXT    CO.CS,CO.DBID,CO.DOOT,CO.SNAP,F.PB                              FC50452       11          I
          -FC50545
 QCGC               EXT    CO.CS,CO.DBID,CO.DBST,CO.DOOT,CO.SNAP,F.PB                      FC50545       11     A     
 QCGC                                                                                      QCGC          29     A     
 QCGC     *         IN FUN                                                                 FC50239        8     A     
 QCGC               EXT    APLFLG,L.APLF                                                   FC50239        9     A     
 QCGC                                                                                      FC50239       10     A     
 QCGC     *         IN GEN                                                                 QCGC          30     A     
 QCGC               EXT    EIS,ENT.EGL,ENT.VD,OCIOL                                        QCGC          31     A     
 QCGC                                                                                      QCGC          32     A     
 QCGC     *         IN IDP                                                                 QCGC          33     A     
 QCGC               EXT    SNP=                                                            QCGC          34     A     
 QCGC                                                                                      QCGC          35     A     
 QCGC     *         IN PUC                                                                 QCGC          36     A     
 QCGC               EXT    BINIO,BN=BUF,BN=TEM,CBI,F.LBT,MOD,N$LC,N.CTMAX,N.GL             QCGC          37     A     
 QCGC               EXT    N.STMAX,N.ST,N.TABLE,N.VD,PIK=PS,S=CT,S=LC,S=IT,S=OT            QCGC          38     A     
 QCGC               EXT    S=ST,S=TA0,S=TRACE,S=VD,T=GL,T=OUS,T=PAR,T=SYM                  QCGC          39     A     
 QCGC               EXT    T=VDIM,T.API,T.GL,T.IOI,T.OUS,T.PAR,T.SYM,T.VDIM                QCGC          40     A     
 QCGC                                                                                      QCGC          41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     *         IN QSKEL                                                               QCGC          42     A     
 QCGC               EXT    F.SCT                                                           QCGC          43     A     
 QCGC               EXT    V=ARY,V=BVD,V=NOOP,V=SUBST                                      QCGC          44     A     
 QCGC                                                                                      QCGC          45     A     
 QCGC     *         IN REG                                                                 QCGC          46     A     
 QCGC               EXT    CDS                                                             QCGC          47     A     
 QCGC                                                                                      QCGC          48     A     
 QCGC     *         IN UTILITY                                                             QCGC          49     A     
 QCGC               EXT    MVE=,WTO=                                                       QCGC          50     A     
 QCGC     *CALL     COMAQCG            QCG MACRO DEFINITIONS                               QCGC          51     A     
 QCGC     *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS.                         QCGC          52     A     
 QCGC     *CALL     COMSQRF            QCG REGISTER ASSOCIATES                             QCGC          53     A     
 QCGC               ENTRY  REGFILE                                                         QCGC          54     A     
 QCGC                                                                                      QCGC          55     A     
 QCGC               LIST   -X          SKPSET IS LISTED IN QSKEL                           QCGC          56     A     
 QCGC     *CALL     SKPSET             SET SOMETHING FOR SKOP                              QCGC          57     A     
 QCGC     *                            SKPCONQ IS LISTED IN QSKEL                          QCGC          58     A     
 QCGC     *CALL     SKPCONQ            CONSTANTS FOR SKOP                                  QCGC          59     A     
 QCGC               LIST   *                                                               QCGC          60     A     
 QCGC      REG=G    SPACE  4,10                                                            QCGC          61     A     
 QCGC     **        REG=G  - VECTORS OF GENERATED OPERANDS.                                QCGC          62     A     
 QCGC                                                                                      QCGC          63     A     
 QCGC                                                                                      QCGC          64     A     
 QCGC      REG=G    BSZENT SKU.GOP                                                         QCGC          65     A     
 QCGC                                                                                      QCGC          66     A     
 QCGC      REG=GL   EQUENT REG=G       USE-COUNTED (L) OPERANDS                            QCGC          67     A     
 QCGC      REG=GP   EQUENT REG=G       NO REGISTER (P) OPERANDS                            QCGC          68     A     
 QCGC               TITLE  DATA CELLS.                                                     QCGC          69     A     
 QCGC      CELLS    SPACE  4,10                                                            QCGC          70     A     
 QCGC     **        DATA CELLS GLOBAL TO QCG.                                              QCGC          71     A     
 QCGC                                                                                      QCGC          72     A     
 QCGC                                                                                      QCGC          73     A     
 QCGC                                                                                      QCGC          74     A     
 QCGC      CII      BSSENT 0           DUMMY ENTRY POINT FOR QCG ONLY                      QCGC          75     A     
 QCGC      N$IT     CONENT 0                                                               QCGC          76     A     
 QCGC      N$OT     CONENT 0                                                               QCGC          77     A     
 QCGC                                                                                      QCGC          78     A     
 QCGC      DRITE    BSZENT 3           DELAYED STORE INFO                                  QCGC          79     A     
 QCGC                                                                                      QCGC          80     A     
 QCGC      NOLDS    CONENT 0           NUMBER OF LOADS                                     QCGC          81     A     
 QCGC                                                                                      QCGC          82     A     
 QCGC      RGC      CONENT 6           REGISTER USAGE COUNT                                QCGC          83     A     
 QCGC                                  = 1 + NUMBER OF LOAD REGISTERS                      QCGC          84     A     
 QCGC                                                                                      QCGC          85     A     
 QCGC      RGX      CONENT 5           NUMBER OF LOAD REGISTERS                            QCGC          86     A     
 QCGC                                                                                      QCGC          87     A     
 QCGC      RREG     CONENT -0          REQUIRED HARD REGISTER TO ASSIGN FOR LOAD           QCGC          88     A     
 QCGC                                  .GE. 0  =  0TR, REGISTER TO LOAD INTO               QCGC          89     A     
 QCGC                                  .LT. 0  = -0TR, MEANS LOAD SATISFIED                QCGC          90     A     
 QCGC                                  .EQ. -0,  NOT ACTIVE                                QCGC          91     A     
 QCGC                                                                                      QCGC          92     A     
 QCGC      TRACE    CONENT 0           LINE NUMBER OF RJ IN PROCESS                        QCGC          93     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC                                                                                      QCGC          94     A     
 QCGC      TYPLOD   CONENT 0           TYPE OF CURRENT LOAD (0=UPPER, 1=LOWER)             QCGC          95     A     
 QCGC                                                                                      QCGC          96     A     
 QCGC      UUC      CONENT 0           USE COUNT INCREMENT                                 QCGC          97     A     
 QCGC      WQ.      SPACE  4,10                                                            QCGC          98     A     
 QCGC     **        QCG WORKING COPY OF COMPILER OPTIONS.                                  QCGC          99     A     
 QCGC     *         1.  INITIALIZED = (CO.) AT BEGINNING OF PROGRAM-UNIT.                  QCGC         100     A     
 QCGC     *         2.  RESET BY (V=C$) TURPLES.                                           QCGC         101     A     
 QCGC     *         3.  USED TO DETERMINE QCG BEHAVIOR.                                    QCGC         102     A     
 QCGC     *         THESE EXIST BECAUSE (WO.) MAY BE OUT OF SYNCH.                         QCGC         103     A     
 QCGC                                                                                      QCGC         104     A     
 QCGC                                                                                      QCGC         105     A     
 QCGC      WQ.CS    BSSENT 1           COLLATING SEQUENCE                                  QCGC         106     A     
 QCGC      WQ.DOOT  BSSENT 1           DO-LOOP ONE-TRIP                                    QCGC         107     A     
 QCGC      BCT      SPACE  4,8                                                             QCGC         108          I
          -FC5A128
 QCGC     **        BCT - BEHEAD CONSTANT TABLE.  DUMMY FOR QCG.                           QCGC         109          I
          -FC5A128
 QCGC                                                                                      QCGC         110          I
          -FC5A128
 QCGC      BCT      SUBR   =                                                               QCGC         111          I
          -FC5A128
 QCGC               EQ     EXIT.                                                           QCGC         112          I
          -FC5A128
 QCGC      PCA      SPACE  4,8                                                             QCGC         113          I
          -FC5A128
 QCGC     **        PCA - PROCESS CAC TABLE.  DUMMY FOR QCG.                               QCGC         114          I
          -FC5A128
 QCGC      PCA      SUBR   =                                                               QCGC         115          I
          -FC5A128
 QCGC               EQ     EXIT.                                                           QCGC         116          I
          -FC5A128
 QCGC      PAT      SPACE 4,10                                                             QCGC         117          I
          -FC5A128
 QCGC     **        PAT    A CCG ROUTINE FOR UNUSED CONSTANT SQUEEZING.                    QCGC         118          I
          -FC5A128
 QCGC     *                QCG DOES NO ATTEMPT THIS TASK,  BUT MUST MAINTAIN               QCGC         119          I
          -FC5A128
 QCGC     *                A DUMMY ROUTINE TO SATISFY A CALL FROM THE ASSEM-               QCGC         120          I
          -FC5A128
 QCGC     *                BLER.                                                           QCGC         121          I
          -FC5A128
 QCGC                                                                                      QCGC         122          I
          -FC5A128
 QCGC                                                                                      QCGC         123          I
          -FC5A128
 QCGC      PAT      SUBR   =           ENTRY/EXIT.                                         QCGC         124          I
          -FC5A128
 QCGC               EQ     EXIT.                                                           QCGC         125          I
          -FC5A128
 QCGC               TITLE  CAI - COMPILE ALL INSTRUCTIONS.                                 QCGC         126     A     
 QCGC      CAI      SPACE  4,10                                                            QCGC         127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     **        CAI -  COMPILE ALL INSTRUCTIONS.                                       QCGC         128     A     
 QCGC     *                                                                                QCGC         129     A     
 QCGC     *         ENTRY  (T.PAR) = IL SEGMENT TO PROCESS.                                QCGC         130     A     
 QCGC     *                          THE SEGMENT MUST BE WELL-FORMED AND                   QCGC         131     A     
 QCGC     *                          CANNOT BE EMPTY.                                      QCGC         132     A     
 QCGC     *                (PASS)  SET.                                                    QCGC         133     A     
 QCGC     *                                                                                QCGC         134     A     
 QCGC     *         EXIT   (T.PAR) = EMPTY.                                                QCGC         135     A     
 QCGC     *                (T.OUS) = EMPTY.                                                QCGC         136     A     
 QCGC     *                (N.STMAX) = MAXIMUM TEMPORARY CELL USED.                        QCGC         137     A     
 QCGC     *                                                                                QCGC         138     A     
 QCGC     *         USES   ALL.                                                            QCGC         139     A     
 QCGC     *         CALLS  DOW, DUC, EIS.                                                  QCGC         140     A     
 QCGC                                                                                      QCGC         141     A     
 QCGC                                                                                      QCGC         142     A     
 QCGC      CAI      SUBR   =           ENTRY/EXIT...                                       QCGC         143     A     
 QCGC               SETMEM REGFILE,L.RGFILE                                                FC5A171A     345     A     
 QCGC               SETMEM APLFLG,L.APLF                                                   FC50239       11     A     
 QCGC               RJ     PIG         PROCESS I. L. FOR GEN                               QCGC         144     A     
 QCGC               SA4    T.PAR                                                           QCGC         145     A     
 QCGC                                                                                      QCGC         146     A     
 QCGC     **        DUMP NUMBER OF TERMS FOUND (ONLY IF IN TEST MODE)                      QCGC         147     A     
 QCGC                                                                                      QCGC         148     A     
 QCGC      .TEST    IFEQ   TEST,ON     IF TEST MODE                                        QCGC         149     A     
 QCGC               SA2    CO.SNAP                                                         QCGC         150     A     
 QCGC               LX2    1RA                                                             QCGC         151     A     
 QCGC               PL     X2,CAI2SN   IF *ARITH* SNAP NOT REQUESTED                       QCGC         152     A     
 QCGC      SNP=A    DUMPT  (OUS)       OPERAND USAGE STATUS                                QCGC         153     A     
 QCGC               CALL   SN.PAR                                                          QCGC         154     A     
 QCGC      CAI2SN   BSS    0                                                               QCGC         155     A     
 QCGC      .TEST    ENDIF                                                                  QCGC         156     A     
 QCGC                                                                                      QCGC         157     A     
 QCGC               SETMEM =XREG=T,SKU.TMP   CLEAR T_N VECTOR                              QCGC         158     A     
 QCGC                                                                                      QCGC         159     A     
 QCGC     **        PROCESS EXPANSION OF PARSED FILE FOR CODE GENERATION.                  QCGC         160     A     
 QCGC                                                                                      QCGC         161     A     
 QCGC               SB4    X4          PRESET *B4* TO START OF PARSED FILE                 QCGC         162     A     
 QCGC               SA1    ALC.CAI                                                         QCGC         163     A     
 QCGC               BX7    X1          LOCK (B4) _ PARSED FILE                             QCGC         164     A     
 QCGC               SA7    ALC.REG                                                         QCGC         165     A     
 QCGC               CALL   EIS         EXPAND INSTRUCTION SKELETONS                        QCGC         166     A     
 QCGC               DRITE  DEACTIVATE                                                      QCGC         167     A     
 QCGC               SA1    ALC.00      UNLOCK (B4)                                         QCGC         168     A     
 QCGC               BX7    X1                                                              QCGC         169     A     
 QCGC               SA7    ALC.REG                                                         QCGC         170     A     
 QCGC                                                                                      QCGC         171     A     
 QCGC     **        EXIT --   P A S S   T W O....                                          QCGC         172     A     
 QCGC                                                                                      QCGC         173     A     
 QCGC                                                                                      QCGC         174     A     
 QCGC               SHRINK T=PAR,0                                                         QCGC         175     A     
 QCGC               SHRINK T=OUS,X6                                                        QCGC         176     A     
 QCGC                                                                                      QCGC         177     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     **        RESET N.STMAX TO MAXIMUM TEMPORARY BIAS.                               QCGC         178     A     
 QCGC                                                                                      QCGC         179     A     
 QCGC               SA2    N.STMAX                                                         QCGC         180     A     
 QCGC               SA3    N.ST                                                            QCGC         181     A     
 QCGC               MX6    X2+X3       (X6) = MAX TEMP-TAG GENERATED                       QCGC         182     A     
 QCGC               SA6    A2          RESET N.STMAX                                       QCGC         183     A     
 QCGC               =X7    0                                                               QCGC         184     A     
 QCGC               SA7    A3          RESET (TG.TEM)                                      QCGC         185     A     
 QCGC                                                                                      QCGC         186          I
          -FC5A171A 
 QCGC     **        CLEAR ALL INTERMEDIATE REGISTERS.                                      QCGC         187          I
          -FC5A171A 
 QCGC     *         ASSOCIATES FOR INTERMEDIATES MUST BE CLEARED BECAUSE THEY              QCGC         188          I
          -FC5A171A 
 QCGC     *         RELATE TO THE SEQUENCE WITHIN WHICH THEY OCCUR, AND THEY               QCGC         189          I
          -FC5A171A 
 QCGC     *         THEREFORE POINT NOWHERE NOW THAT THE PRESENT PARSED FILE HAS           QCGC         190          I
          -FC5A171A 
 QCGC     *         BEEN ERASED.                                                           QCGC         191          I
          -FC5A171A 
 QCGC                                                                                      QCGC         192          I
          -FC5A171A 
 QCGC               SETMEM REGFILE,L.RGFILE                                                QCGC         193          I
          -FC5A171A 
 QCGC               EQ     EXIT.       EXIT...                                             QCGC         194     A     
 QCGC                                                                                      QCGC         195     A     
 QCGC      RESFLG   DATA   0           SKELETON ADDRESS WHEN PROCESSING MODE               QCGC         196          I
          -FC5A128
 QCGC                                  CONVERSION IN EIS.                                  QCGC         197          I
          -FC5A128
 QCGC      PIG      SPACE  4,20                                                            QCGC         198     A     
 QCGC     **        PIG -  PREPARE I. L. FOR GEN                                           QCGC         199     A     
 QCGC     *         PIG CALLS THE I. L. REFORMATTERS AND CHECKS THE                        QCGC         200     A     
 QCGC     *         I. L. TYPE FOR A VAR DIM I. L. WHEN A V-DIM I. L.                      QCGC         201     A     
 QCGC     *         IS FOUND IT IS SAVED IN T.VDIN FOR REPEATED USE                        QCGC         202     A     
 QCGC     *         AT ENTRY CODE TIME                                                     QCGC         203     A     
 QCGC     *                                                                                QCGC         204     A     
 QCGC     *         ENTRY  I. L. IN PASS 1 FORM(OPERATORS - TH, OPERANDS - TP)             QCGC         205     A     
 QCGC     *                                                                                QCGC         206     A     
 QCGC     *         EXIT   OPERATORS ARE OP, AND OPERANDS ARE P2 FORMAT                    QCGC         207     A     
 QCGC     *                IF PROCESSING V-DIM I. L.:                                      QCGC         208     A     
 QCGC     *                ENT.VD SET TO 1                                                 QCGC         209     A     
 QCGC     *                T.VDIM CONTAINS V-DIM I. L.                                     QCGC         210     A     
 QCGC     *                                                                                QCGC         211     A     
 QCGC     *         USES   A1,A2,A3,A6,A7 X0,X1,X2,X3,X6,X7                                QCGC         212     A     
 QCGC     *                                                                                QCGC         213     A     
 QCGC     *         CALLS  ADW, ALC, DUC, DOW, MVE=                                        QCGC         214     A     
 QCGC                                                                                      QCGC         215     A     
 QCGC                                                                                      QCGC         216     A     
 QCGC      PIG      SUBR   =           ...ENTRY/EXIT...                                    QCGC         217     A     
 QCGC               SHRINK T=OUS,0                                                         QCGC         218     A     
 QCGC               SA1    T.PAR                                                           QCGC         219     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1544    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               =A2    X1          GET THE FIRST OPERAND FOR V-DIM TEST                QCGC         220     A     
 QCGC               HX2    OP.SKEL                                                         QCGC         221     A     
 QCGC               SX0    V=BVD                                                           QCGC         222     A     
 QCGC               AX2    -OP.SKELL                                                       QCGC         223     A     
 QCGC               IX0    X0-X2                                                           QCGC         224     A     
 QCGC               NZ     X0,PIG5     IF NOT A BVD, CONTINUE NORMALLY                     QCGC         225     A     
 QCGC               =X7    1                                                               QCGC         226     A     
 QCGC               SA2    ENT.VD      GET VDIM FLAG                                       QCGC         227     A     
 QCGC               NZ     X2,PIG5     IF VAR-DIM PROCESS ALREADY INITIALIZED              QCGC         228     A     
 QCGC               SA7    A2          SET V-DIM FLAG                                      QCGC         229     A     
 QCGC               SHRINK T=VDIM,0                                                        QCGC         230     A     
 QCGC               SA2    T=PAR                                                           QCGC         231     A     
 QCGC               ALLOC  T.VDIM,X2-Z=TURP  MAKE ROOM TO MOVE V-DIM I.L.                  QCGC         232     A     
 QCGC               SA1    T=VDIM      COUNT                                               QCGC         233     A     
 QCGC               SA2    T.PAR       SOURCE                                              QCGC         234     A     
 QCGC               SA3    T.VDIM      DESTINATION                                         QCGC         235     A     
 QCGC               MOVE   X1,X2,X3    MOVE V-DIM I.L. TO T.VDIM                           QCGC         236     A     
 QCGC               SHRINK T=PAR,3     SHRINK T.PAR BY LENGTH OF VDIM IL                   QCGC         237     A     
 QCGC               SA2    T=VDIM      (X2) = VDIM LENGTH = VDIM I.L. LENGTH               QCGC         238     A     
 QCGC               SA3    T.PAR       DESTINATION                                         QCGC         239     A     
 QCGC               IX2    X3+X2       FWA TO BE MOVED = FIN TURPLE ADDERESS               QCGC         240     A     
 QCGC               MOVE   Z=TURP,X2,X3      MOVE FIN TURP TO FWA I. L.                    QCGC         241     A     
 QCGC                                                                                      FC50452       12     A     
 QCGC      PIG5     SA1    T.PAR                                                           QCGC         242     A     
 QCGC               RJ     DOW         DEFORM  OPERATOR WORD                               QCGC         243     A     
 QCGC                                                                                      QCGC         244     A     
 QCGC     **        SET-UP USAGE TABLE -- THEN SORT FROM HIGHEST TO LOWEST USAGE           QCGC         245     A     
 QCGC                                                                                      QCGC         246     A     
 QCGC               =X6    0                                                               QCGC         247     A     
 QCGC               ADDWD  T.OUS       START OUS WITH A ZERO WORD                          QCGC         248     A     
 QCGC               SA1    T.PAR       (A1,X1) _,= FWA I. L. FOR DUC                       QCGC         249     A     
 QCGC               RJ     DUC         DETERMINE USE COUNTS                                QCGC         250     A     
 QCGC               BX6    0                                                               QCGC         251     A     
 QCGC               ADDWD  T.PAR       END INDICATOR                                       QCGC         252     A     
 QCGC               EQ     EXIT.                                                           QCGC         253     A     
 QCGC                                                                                      QCGC         254     A     
 QCGC      DOW      SPACE  4,30                                                            QCGC         255     A     
 QCGC     **        DOW - DEFORM OPERATOR WORD.                                            QCGC         256     A     
 QCGC     *                                                                                QCGC         257     A     
 QCGC     *         THE OPERATOR WORD OF EACH TURPLE (TH. FORMAT) IS DEFORMED              QCGC         258     A     
 QCGC     *         INTO THE QCG OPERATOR/STATUS WORD (OP. FORMAT).                        QCGC         259     A     
 QCGC     *                                                                                QCGC         260     A     
 QCGC     *         ENTRY  (A1, X1) = ORIGIN WORD OF TABLE CONTAINING PARSED FILE.         QCGC         261     A     
 QCGC     *                                                                                QCGC         262     A     
 QCGC     *         EXIT   (A1, X1) PRESERVED.                                             QCGC         263     A     
 QCGC                                                                                      QCGC         264     A     
 QCGC                                                                                      QCGC         265     A     
 QCGC      DOW      SUBR               ...ENTRY/EXIT...                                    QCGC         266     A     
 QCGC               SA2    A1+N.TABLE  LENGTH OF TABLE                                     QCGC         267     A     
 QCGC               SB3    Z=TURP                                                          QCGC         268     A     
 QCGC               SA3    X1-Z=TURP                                                       QCGC         269     A     
 QCGC               SB5    X2                                                              QCGC         270     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               MX2    -OP.QATRL                                                       QCGC         271     A     
 QCGC               LX2    TH.QATRP                                                        QCGC         272     A     
 QCGC               ERRNZ  TH.QATRL-OP.QATRL                                               QCGC         273     A     
 QCGC               MX4    -OP.CHINL                                                       QCGC         274     A     
 QCGC               LX4    TH.TBPRP                                                        QCGC         275          I
          -FC50104
 QCGC               ERRMI  TH.TBPRL-OP.CHINL                                               QCGC         276          I
          -FC50104
 QCGC               LX4    TH.OVALP                                                        FC50104      236     A     
 QCGC               ERRMI  TH.OVALL-OP.CHINL                                               FC50104      237     A     
 QCGC               CLAS=  X5,OP,(SKEL,LINE,MODE)                                          QCGC         277     A     
 QCGC               ERRNZ  TH.SKELP-OP.SKELP                                               QCGC         278     A     
 QCGC               ERRNZ  TH.SKELL-OP.SKELL                                               QCGC         279     A     
 QCGC               ERRNZ  TH.LINEP-OP.LINEP                                               QCGC         280     A     
 QCGC               ERRNZ  TH.LINEL-OP.LINEL                                               QCGC         281     A     
 QCGC               ERRNZ  TH.MODEP-OP.MODEP                                               QCGC         282     A     
 QCGC               ERRNZ  TH.MODEL-OP.MODEL                                               QCGC         283     A     
 QCGC                                                                                      QCGC         284     A     
 QCGC      DOW2     SA3    A3+B3       FETCH NEXT OPERAND                                  QCGC         285     A     
 QCGC               SB5    B5-B3                                                           QCGC         286     A     
 QCGC               MI     B5,EXIT.    IF TABLE EXHAUSTED                                  QCGC         287     A     
 QCGC               BX0    X5*X3       PRESERVE USEFUL FIELDS                              QCGC         288     A     
 QCGC               BX7    -X2*X3      EXTRACT QATR BITS                                   QCGC         289     A     
 QCGC               LX7    -TH.QATRP+OP.QATRP      POSITION QATR BITS                      QCGC         290     A     
 QCGC               BX0    X7+X0       ADD IN NEW QATR FIELD                               QCGC         291     A     
 QCGC               BX6    -X4*X3      EXTRACT CHARMAP INDEX                               QCGC         292     A     
 QCGC               LX6    -TH.TBPRP+OP.CHINP                                              QCGC         293          I
          -FC50104
 QCGC               LX6    -TH.OVALP+OP.CHINP                                              FC50104      238     A     
 QCGC               BX7    X0+X6                                                           QCGC         294     A     
 QCGC               SA7    A3          STORE QCG FORM OF OPERATOR/STATUS WORD              QCGC         295     A     
 QCGC               EQ     DOW2        LOOP..                                              QCGC         296     A     
 QCGC      DUC      SPACE  4,20                                                            QCGC         297     A     
 QCGC     **        DUC -  DECIDE ON USE COUNT                                             QCGC         298     A     
 QCGC     *                DUC IS THE CONTROLLER FOR REFORMATTING OF                       QCGC         299     A     
 QCGC     *                OPERANDS FROM PASS1 TO PASS2 FORMAT. THE                        QCGC         300     A     
 QCGC     *                PRIMARY DECISION IS WHETHER OPERANDS ARE                        QCGC         301     A     
 QCGC     *                REFORMATTED WITH OR WITHOUT USE COUNTS.                         QCGC         302     A     
 QCGC     *                                                                                QCGC         303     A     
 QCGC     *         ENTRY  INTERMEDIATE LANGUAGE BUILT                                     QCGC         304     A     
 QCGC     *                OPERANDS IN TP. FORMAT                                          QCGC         305     A     
 QCGC     *                (A1) _ T.PAR                                                    QCGC         306     A     
 QCGC     *                (X1) = FWA OF I. L.                                             QCGC         307     A     
 QCGC     *                                                                                QCGC         308     A     
 QCGC     *         EXIT   I. L. ORERANDS IN P2. FORMAT                                    QCGC         309     A     
 QCGC     *                USE COUNTS SET IN P2.USE OF CHOSEN OPERANDS                     QCGC         310     A     
 QCGC     *                USE COUNT SET IN OP.USE FIELD OF OPERATOR/STAT WORDS            QCGC         311     A     
 QCGC     *                                                                                QCGC         312     A     
 QCGC     *         USES   A1,A2,A3,  X1,X2,X3,X4,  B4,B5,B6,B7                            QCGC         313     A     
 QCGC     *                                                                                QCGC         314     A     
 QCGC     *         CALLS  KUT, TIL, TIU                                                   QCGC         315     A     
 QCGC                                                                                      QCGC         316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC      DUC      SUBR               ...ENTRY/EXIT...                                    QCGC         317     A     
 QCGC               SA2    A1+N.TABLE  LOAD LENGTH OF TABLE BEING PROCESSED                QCGC         318     A     
 QCGC               IX0    X2+X1                                                           QCGC         319     A     
 QCGC               SB4    A1          SAVE TABLE ADDRESS                                  QCGC         320     A     
 QCGC               SX4    X2-Z=TURP   LENGTH - Z=TURP                                     QCGC         321     A     
 QCGC               SB5    X1          FWA OF TABLE                                        QCGC         322     A     
 QCGC               BX1    X2                                                              QCGC         323     A     
 QCGC               SA3    X4+B5                                                           QCGC         324     A     
 QCGC               EQ     DUC1       CONTINUE                                             QCGC         325     A     
 QCGC                                                                                      QCGC         326     A     
 QCGC     **        REGISTER ALLOCATION                                                    QCGC         327     A     
 QCGC     *         (X2) = WORD FROM TABLE                                                 QCGC         328     A     
 QCGC     *         (X4) = DECREMENT WORD                                                  QCGC         329     A     
 QCGC     *         (B4) _ TABLE ORIGIN WORD OF TABLE BEING SCANNED                        QCGC         330     A     
 QCGC     *         (B5) = FWA OF TABLE                                                    QCGC         331     A     
 QCGC                                                                                      QCGC         332     A     
 QCGC                                                                                      QCGC         333     A     
 QCGC      DUC.NX   SA1    B4                                                              QCGC         334     A     
 QCGC               SB5    X1          RESET FWA OF TABLE                                  QCGC         335     A     
 QCGC               SA3    X4+B5       NEXT TURPLE HEADER                                  QCGC         336     A     
 QCGC               MI     X4,EXIT.    IF FINISHED                                         QCGC         337     A     
 QCGC                                                                                      QCGC         338     A     
 QCGC     *         DETERMINE TYPE OF OPERAND                                              QCGC         339     A     
 QCGC     *         (X3) = OPERATOR WORD                                                   QCGC         340     A     
 QCGC                                                                                      QCGC         341     A     
 QCGC      DUC1     MX1    -OP.CHINL                                                       QCGC         342     A     
 QCGC               LX3    -OP.CHINP                                                       QCGC         343     A     
 QCGC               BX2    -X1*X3      EXTRACT (X3) = CHARMAP INDEX                        QCGC         344     A     
 QCGC               SA1    X2+CHARMAP  FETCH DUCABILITY VECTOR ELEMENT                     QCGC         345     A     
 QCGC               SX4    X4-Z=TURP                                                       QCGC         346     A     
 QCGC               =A2    A3+OR.2OP   PRELOAD 2ND OPERAND                                 QCGC         347     A     
 QCGC               LX3    OP.CHINP    RESTORE (X3)                                        QCGC         348     A     
 QCGC               SB6    X1          B6 = DUC., DUC.1ST, DUC.2ND OR DUC.BTH              QCGC         349     A     
 QCGC               ERRNZ  18-CH.OPCL                                                      QCGC         350     A     
 QCGC               JP     B6          (B6) = DUC.,DUC.1ST,DUC.2ND OR DUC.BTH              QCGC         351     A     
 QCGC                                                                                      QCGC         352     A     
 QCGC      DUC.     BSSENT 0                 NEITHER OPPERAND IS USE COUNTED               QCGC         353     A     
 QCGC               RJ     TIL               REFORMAT WITHOUT USE COUNT                    QCGC         354     A     
 QCGC      DUC2     SA2    A2-OR.2OP+OR.1OP   FETCH SECOND OPERAND                         QCGC         355     A     
 QCGC               RJ     TIL         REFORMAT WITHOUT USE COUNT                          QCGC         356     A     
 QCGC               EQ     DUC.NX      CONTINUE                                            QCGC         357     A     
 QCGC                                                                                      QCGC         358     A     
 QCGC      DUC.1ST  BSSENT 0                 FIRST OPERAND USE COUNTED                     QCGC         359     A     
 QCGC               RJ     KUT         KILL UNUSED TURPLE                                  QCGC         360     A     
 QCGC               RJ     TIL               REFORMAT WITHOUT USE COUNT                    QCGC         361     A     
 QCGC      DUC3     SA2    A2-OR.2OP+OR.1OP   FETCH FIRST OPERAND                          QCGC         362     A     
 QCGC               RJ     TIU         REFORMAT WITH USE COUNT                             QCGC         363     A     
 QCGC               EQ     DUC.NX      CONTINUE                                            QCGC         364     A     
 QCGC                                                                                      QCGC         365     A     
 QCGC      DUC.2ND  BSSENT 0           2ND OPERAND USE COUNTED                             QCGC         366     A     
 QCGC               RJ     KUT         KILL UNUSED TURPLE                                  QCGC         367     A     
 QCGC               RJ     TIU         REFORMAT WITH USE COUNT                             QCGC         368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               SA2    A2-OR.2OP+OR.1OP   GET FIRST OPERAND                            QCGC         369     A     
 QCGC               RJ     TIL         REFORMAT WITHOUT USE COUNT                          QCGC         370     A     
 QCGC               EQ     DUC.NX      CONTINUE                                            QCGC         371     A     
 QCGC                                                                                      QCGC         372     A     
 QCGC      DUC.BTH  BSSENT 0           BOTH OPERANDS USE COUNTED                           QCGC         373     A     
 QCGC               RJ     KUT         KILL UNUSED TURPLE                                  QCGC         374     A     
 QCGC               RJ     TIU         REFORMAT WITH USE COUNT                             QCGC         375     A     
 QCGC               SA1    B4          FWA INTERMEDIATE LANGUAGE                           QCGC         376     A     
 QCGC               SB5    X1                PASS FWA TO TIU                               QCGC         377     A     
 QCGC               SA2    A2-OR.2OP+OR.1OP  GET FIRST OPERAND                             QCGC         378     A     
 QCGC               RJ     TIU         REFORMAT WITH USE COUNT                             QCGC         379     A     
 QCGC               EQ     DUC.NX      CONTINUE                                            QCGC         380     A     
 QCGC      KUT      SPACE  4,10                                                            QCGC         381     A     
 QCGC     **        KUT - KILL UNUSED TURPLE.                                              QCGC         382     A     
 QCGC     *                                                                                QCGC         383     A     
 QCGC     *         KUT ATTEMPTS TO NO-OP 'DANGLING' INTERMEDIATES, THOSE WHICH            QCGC         384     A     
 QCGC     *         GENERATE VALUES WHICH ARE NEVER REFERRED TO.  THIS IS                  QCGC         385     A     
 QCGC     *         NECESSARY IN VARDIM EXPANSION, AND DESIREABLE IN GENERAL.              QCGC         386     A     
 QCGC     *                                                                                QCGC         387     A     
 QCGC     *         ENTRY  (A3) -> TURPLE HEADER.                                          QCGC         388     A     
 QCGC     *                                                                                QCGC         389     A     
 QCGC     *         EXIT   NORMAL, IF TURPLE NOT KILLED.                                   QCGC         390     A     
 QCGC     *         ELSE   TO *DUC.*, IF TURPLE IS NO-OPED.                                QCGC         391     A     
 QCGC     *                                                                                QCGC         392     A     
 QCGC     *         KEEPS  (A2,X2),  X4,  B4,B5.                                           QCGC         393     A     
 QCGC                                                                                      QCGC         394     A     
 QCGC                                                                                      QCGC         395     A     
 QCGC      KUT      SUBR   0           ENTRY/EXIT.                                         QCGC         396     A     
 QCGC               MX1    -OP.1ORDL                                                       QCGC         397     A     
 QCGC               SA3    A3                                                              QCGC         398     A     
 QCGC               LX1    OP.1ORDP                                                        QCGC         399     A     
 QCGC               BX6    -X1*X3      EXTRACT (X6) = INDEX INTO (T.OUS)                   QCGC         400     A     
 QCGC               NZ     X6,EXIT.    IF THIS RESULT NEEDED                               QCGC         401     A     
 QCGC                                                                                      QCGC         402     A     
 QCGC     ** MQ - NEED A 'KILL' BIT IN (F.SCT).                                            QCGC         403     A     
 QCGC     *         FOR NOW, ASSUME THAT OPERATORS WHICH ARE NOT CONSTANT-REDUCIBL         QCGC         404     A     
 QCGC     *         ARE PRESENT FOR A GOOD REASON AND SHOULD NOT BE KILLED.                QCGC         405     A     
 QCGC     *         NOTE THAT (DUC=NONE) OPERATORS ARE NEVER PRESENTED TO KUT.             QCGC         406     A     
 QCGC                                                                                      QCGC         407     A     
 QCGC               HX3    OP.SKEL                                                         QCGC         408     A     
 QCGC               AX3    -OP.SKELL                                                       QCGC         409     A     
 QCGC               SA1    X3+F.SCT    FETCH SKELETON CONTROL WORD                         QCGC         410     A     
 QCGC               HX1    VS.CRA                                                          QCGC         411     A     
 QCGC               AX1    -VS.CRAL                                                        QCGC         412     A     
 QCGC               ZR     X1,EXIT.    IF NOT A VALUE TURPLE                               QCGC         413     A     
 QCGC                                                                                      QCGC         414     A     
 QCGC     *         FOR NOW, DON'T KILL EXCEPT WHEN EXPANDING VARDIM.                      QCGC         415     A     
 QCGC                                                                                      QCGC         416     A     
 QCGC               SA1    B4                                                              QCGC         417     A     
 QCGC               SA1    X1                                                              QCGC         418     A     
 QCGC               HX1    OP.SKEL                                                         QCGC         419     A     
 QCGC               AX1    -OP.SKELL                                                       QCGC         420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               SX6    V=BVD                                                           QCGC         421     A     
 QCGC               IX7    X1-X6                                                           QCGC         422     A     
 QCGC               NZ     X7,EXIT.    IF NOT EXPANDING VARDIM                             QCGC         423     A     
 QCGC     ** FV            THIS SHOULD ALSO WORK FOR NORMAL IL SEGMENTS....                QCGC         424     A     
 QCGC               SX6    V=NOOP                                                          QCGC         425     A     
 QCGC               SX0    O.NONE                                                          QCGC         426     A     
 QCGC               LX6    OP.SKELP                                                        QCGC         427     A     
 QCGC               LX0    OP.CHINP                                                        QCGC         428     A     
 QCGC               BX7    X6+X0       CHANGE TO NO-OP OPERATOR                            QCGC         429     A     
 QCGC               SA7    A3                                                              QCGC         430     A     
 QCGC               EQ     DUC.                                                            QCGC         431     A     
 QCGC      POS      SPACE  4,20                                                            QCGC         432     A     
 QCGC     **        POS - PREPARE OPERAND AND STATUS WORD                                  QCGC         433     A     
 QCGC     *                1. AN OPERAND STATUS WORD IS EITHER CREATED                     QCGC         434     A     
 QCGC     *                   OR UPDATED AND PLACED IN T.OUS.                              QCGC         435     A     
 QCGC     *                2. L AND GL TYPE OPERANDS (IDENTICAL FORMATS) ARE               QCGC         436     A     
 QCGC     *                   CREATED AND RETURNED TO THE CALLER TO BE PLACED              QCGC         437     A     
 QCGC     *                   IN THE I. L. OR REG=GL TABLE AS NEEDED.                      QCGC         438     A     
 QCGC     *                                                                                QCGC         439     A     
 QCGC     *         CALLED BY:                                                             QCGC         440     A     
 QCGC     *                TIU WHICH PLACES OPERANDS IN THE I. L. AND                      QCGC         441     A     
 QCGC     *                SUBSKEL PROCESSORS WHICH PLACE OPERANDS IN REG=GL.              QCGC         442     A     
 QCGC     *                                                                                QCGC         443     A     
 QCGC     *         ENTRY  (X2) = OPERAND IN P2 FORMAT                                     QCGC         444     A     
 QCGC     *                (X6) = USE COUNT INCREMENT.                                     QCGC         445     A     
 QCGC     *                       1 IF CALLER IS TIU                                       QCGC         446     A     
 QCGC     *                       0 OTHERWISE                                              QCGC         447     A     
 QCGC     *                                                                                QCGC         448     A     
 QCGC     *         EXIT   (X2) = (X6) FOR INTERMEDIATES                                   QCGC         449     A     
 QCGC     *                     = OPERAND STATUS WORD FOR NON-INTERMEDIATES                QCGC         450     A     
 QCGC     *                (X6) = I. L. ENTRY/PSEUDO OPERAND                               QCGC         451     A     
 QCGC     *                T.OUS ENTRY IS SET                                              QCGC         452     A     
 QCGC     *                                                                                QCGC         453     A     
 QCGC     *         CALLS  SCS AND ADDWD                                                   QCGC         454     A     
 QCGC     *                                                                                QCGC         455     A     
 QCGC     *         SAVES  A4, B4,B5 X4,X5                                                 QCGC         456     A     
 QCGC     *                                                                                QCGC         457     A     
 QCGC     *         WARNING - NO GL OPERAND SHOULD BE CREATED WITHOUT CALLING POS.         QCGC         458     A     
 QCGC                                                                                      QCGC         459     A     
 QCGC      POS      SUBR   =           ENTRY/EXIT                                          QCGC         460     A     
 QCGC               SA6   POS.INC                                                          QCGC         461     A     
 QCGC               CLAS=  X3,P2,(TAG,BIAS,2ATR,CLAS)  SCAN MASK                           QCGC         462     A     
 QCGC               BX6    X3                                                              QCGC         463     A     
 QCGC               SA6    SCSA                                                            QCGC         464     A     
 QCGC               CLAS=  X1,RG,(USE)                                                     QCGC         465     A     
 QCGC               BX6    X2                                                              QCGC         466     A     
 QCGC               BX1    X1*X2       EXTRACT USE COUNT                                   QCGC         467     A     
 QCGC               NZ     X1,EXIT.    IF OPERAND USE ALREADY COUNTED                      QCGC         468     A     
 QCGC                                                                                      QCGC         469     A     
 QCGC      .TEST    IFEQ   TEST,ON                                                         QCGC         470     A     
 QCGC               BX1    X2                                                              QCGC         471     A     
 QCGC               SBIT   X1,P2.INTRP                                                     QCGC         472     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               MI     X1,"BLOWUP" MUST COUNT ALL INTERMEDIATES                        QCGC         473     A     
 QCGC      .TEST    ENDIF                                                                  QCGC         474     A     
 QCGC                                                                                      QCGC         475     A     
 QCGC               SCAN   T.OUS,SCS   SCAN STATUS WORD TABLE                              QCGC         476     A     
 QCGC               SA1    POS.INC     GET USE COUNT INCREMENT                             QCGC         477     A     
 QCGC               MI     B7,POS1     IF NOT ALREADY IN TABLE                             QCGC         478     A     
 QCGC               IX6    X2+X1       INCREMENT USE COUNT (MAY BE 0)                      QCGC         479     A     
 QCGC               SA6    A2          REPLACE STATUDS WORD                                QCGC         480     A     
 QCGC               SA1    T.OUS                                                           QCGC         481     A     
 QCGC               EQ     POS2                                                            QCGC         482     A     
 QCGC                                                                                      QCGC         483     A     
 QCGC     *         *OPERAND* NOT IN TABLE (1ST USE) INITALIZE USE COUNT                   QCGC         484     A     
 QCGC     *         AND ADD TO OPERAND USE TABLE                                           QCGC         485     A     
 QCGC     *         (X6) = I. L. ENTRY/PSUEDO OPERAND NOT YET USE COUNTED                  QCGC         486     A     
 QCGC                                                                                      QCGC         487     A     
 QCGC      POS1     SA3    SCSA        RELOAD MASK                                         QCGC         488     A     
 QCGC               BX6    X3*X6       CLEAR USE COUNT FIELD                               QCGC         489     A     
 QCGC               IX6    X6+X1       SET USE COUNT TO POS.INC                            QCGC         490     A     
 QCGC               ADDWD  T.OUS                                                           QCGC         491     A     
 QCGC                                                                                      QCGC         492     A     
 QCGC     **        HERE WE BUILS THE NEW I. L. ENTRY OR PSEUDO OPERAND. THIS              QCGC         493          I
          -FC50452
 QCGC     **        HERE WE BUILD THE NEW I.L. ENTRY OR PSEUDO OPERAND.  THIS              FC50452       13     A     
 QCGC     *         MEANS CREATING A NEW T.OUS TAG NEEDED BY REG.                          QCGC         494     A     
 QCGC     *         T.OUS TAG = C.OUS + ORDINAL INTO T.OUS                                 QCGC         495     A     
 QCGC     *         (A6) _ OPERAND STATUS WORD.                                            QCGC         496     A     
 QCGC     *         (X1) = FWA T.OUS.                                                      QCGC         497     A     
 QCGC     *         (X6) = OPERAND STATUS WORD OF THE I. L. ENTRY/PSEUDO OPERAND           QCGC         498     A     
 QCGC                                                                                      QCGC         499     A     
 QCGC      POS2     SB7    X1          (B7) = FWA OF T.OUS                                 QCGC         500     A     
 QCGC               MX0    P2.TAGL     MASK TO REMOVE SYM,PRO OR SHRT CON TAG              QCGC         501     A     
 QCGC               SX1    A6-B7       (X1) = ORDINAL INTO T.OUS                           QCGC         502     A     
 QCGC               LX0    P2.TAGL+P2.TAGP                                                 QCGC         503     A     
 QCGC               BX6    -X0*X6      REMOVE TAG                                          QCGC         504     A     
 QCGC               LX1    P2.TAGP     POSITION NEW TAG                                    QCGC         505     A     
 QCGC               SA2    A6          PUT STATUS WORD IN X2 FOR EXIT                      QCGC         506     A     
 QCGC               IX6    X6+X1       REPLACE *TAG* WITH T.OUS ORDINAL                    QCGC         507     A     
 QCGC               EQ     EXIT.                                                           QCGC         508     A     
 QCGC                                                                                      QCGC         509     A     
 QCGC      POS.INC  CON    0           INC = 1 IF TIU IS CALLER, 0 OTHERWISE               QCGC         510     A     
 QCGC      RED      SPACE  4,10                                                            QCGC         511     A     
 QCGC     **        RED -  REFORMAT FOR EXPANSION AND DEFINITION                           QCGC         512     A     
 QCGC     *                                                                                QCGC         513     A     
 QCGC     *         RED REFORMATS THE OPERATOR AS FOLLOWS:                                 QCGC         514     A     
 QCGC     *                (1) THE LINE NUMBER IS REPLACED BY THE OUS ORDINAL              QCGC         515     A     
 QCGC     *                (2) THE USE TOTALS ARE SET IN THE OP.LTOT AND OP.UTOT           QCGC         516     A     
 QCGC     *                    FIELDS.                                                     QCGC         517     A     
 QCGC     *                                                                                QCGC         518     A     
 QCGC     *         ENTRY  (X5) = OPERATOR WORD                                            QCGC         519     A     
 QCGC     *                                                                                QCGC         520     A     
 QCGC     *         EXIT   (X6) = SKELETON ORDINAL                                         QCGC         521     A     
 QCGC     *                (X7) = OPERATOR WORD NEW FORMAT                                 QCGC         522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1550    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     *                       OP.SKELL/SKEL,OP.2ORD/OUS ORDINAL,OP.CHIN/CHIN,          QCGC         523     A     
 QCGC     *                       OP.MODEL/MODE,OP.LTOTL/LOWER USE TOTAL,                  QCGC         524     A     
 QCGC     *                       OP.UTOTL/UPPER USE TOTAL                                 QCGC         525     A     
 QCGC     *                ((B4)+OR.OPR) = NEW OPERATOR WORD (X7)                          QCGC         526     A     
 QCGC     *                                                                                QCGC         527     A     
 QCGC     *         USES   A1,A5,A7   X0,X1,X5,X6,X7,   B7                                 QCGC         528     A     
 QCGC     *                                                                                QCGC         529     A     
 QCGC     *         NOTE - UNLIKE THE OTHER REFORMATTERS RED IS NOT CALLED                 QCGC         530     A     
 QCGC     *         FROM QCGC.  IT IS CALLED FORM THE MAIN LOOP IN EIS, AF-                QCGC         531     A     
 QCGC     *         TER THE LINE NO. FIELD HAS BEEN USED.                                  QCGC         532     A     
 QCGC                                                                                      QCGC         533     A     
 QCGC                                                                                      QCGC         534     A     
 QCGC      RED      SUBR   =           ENTRY/EXIT                                          QCGC         535     A     
 QCGC               CLAS=  X1,OP,(SKEL,CHIN,MODE)    SET PRESERVED FIELDS MASK             QCGC         536          I
          -FC5A166
 QCGC               CLAS=  X1,OP,(SKEL,CHIN,MODE,BSSI)  PRESERVED FIELDS                   FC5A166        7     A     
 QCGC               MX0    -OP.1ORDL   SET OUS ORDINAL MASK                                QCGC         537     A     
 QCGC               ERRNZ  OP.LINEL-OP.1ORDL                                               QCGC         538          I
          -FC50104
 QCGC               ERRNZ  OP.2ORDL-OP.1ORDL                                               FC50104      239     A     
 QCGC               ERRNZ  OP.1ORDP                                                        QCGC         539     A     
 QCGC               BX6    X1*X5       SANITIZE NEW OPERATOR WORD                          QCGC         540     A     
 QCGC               BX0    -X0*X5      EXTRACT OUS ORDINAL                                 QCGC         541     A     
 QCGC               SA1    T.OUS       GET OUS FWA                                         QCGC         542     A     
 QCGC               SB7    X0          (B7) = OUS ORDINAL                                  QCGC         543     A     
 QCGC               LX0    OP.2ORDP    POSITION OUS ORDINAL                                QCGC         544     A     
 QCGC               SA5    B7+X1       GET STATUS WORD                                     QCGC         545     A     
 QCGC               MX1    -RG.USEL    SET USE COUNT MASK                                  QCGC         546     A     
 QCGC               IX7    X0+X6       ADD IN OUS ORDINAL TO 2ORD FIELD                    QCGC         547     A     
 QCGC               BX1    -X1*X5      EXTRACT USE TOTAL  FROM STATUS WORD                 QCGC         548     A     
 QCGC               ERRNZ  RG.USEP                                                         QCGC         549     A     
 QCGC               BX0    X1                                                              QCGC         550     A     
 QCGC               LX0    OP.LTOTP    POSITION LOWER TOTAL                                QCGC         551     A     
 QCGC               LX1    OP.UTOTP    OPSITION UPPER TOTAL                                QCGC         552     A     
 QCGC                                                                                      QCGC         553          I
          -FC50104
 QCGC               IX7    X7+X1       ADD IN UPPER TOTAL                                  QCGC         554     A     
 QCGC               HX6    OP.SKEL                                                         QCGC         555     A     
 QCGC               AX6    OP.SKELP    POSITION SKELETON ORDINAL                           QCGC         556          I
          -FC50104
 QCGC               AX6    -OP.SKELL   EXTRACT SKELETON ORDINAL                            FC50104      240     A     
 QCGC               IX7    X7+X0       ADD IN LOWER TOTAL                                  QCGC         557     A     
 QCGC               SA7    B4+OR.OPR   RESET OPERATOR WORD                                 QCGC         558     A     
 QCGC               EQ     EXIT.                                                           QCGC         559     A     
 QCGC      TIL      SPACE  4,20                                                            QCGC         560     A     
 QCGC     **        TIL -  TRANSFORM INTERMEDIATE LANGUAGE.                                QCGC         561     A     
 QCGC     *                                                                                QCGC         562     A     
 QCGC     *         CHANGES PASS 1 (TP.) OPERAND STRUCTURE TO THE (P2.) OPERAND            QCGC         563     A     
 QCGC     *         STRUCTURE REQUIRED BY (QCG).                                           QCGC         564     A     
 QCGC     *                                                                                QCGC         565     A     
 QCGC     *         ENTRY  (A2) _ OPERAND WORD                                             QCGC         566     A     
 QCGC     *                (X0) = C.XXX (P2. TAG PREFIX).                                  QCGC         567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     *                (X2) = OPERAND WORD (TP. FORMAT).                               QCGC         568     A     
 QCGC     *                                                                                QCGC         569     A     
 QCGC     *         EXIT   (A2) _ OPERAND WORD                                             QCGC         570     A     
 QCGC     *                (X2) = OPERAND WORD IN P2. FORMAT.                              QCGC         571     A     
 QCGC     *                (X5) = OPERAND WORD IN TP. FORMAT.                              QCGC         572     A     
 QCGC     *                                                                                QCGC         573     A     
 QCGC     *                PARSED FILE OPERAND SET TO P2. FORMAT.                          QCGC         574     A     
 QCGC     *                                                                                QCGC         575     A     
 QCGC     *         USES   A1,A3,  X0,X1,X2,X3,X5,X6,  B2,B3                               QCGC         576     A     
 QCGC                                                                                      QCGC         577     A     
 QCGC                                                                                      QCGC         578     A     
 QCGC      TIL      SUBR               ENTRY/EXIT                                          QCGC         579     A     
 QCGC               BX5    X2          TP. WORD KEPT IN X5 THROUGHOUT                      QCGC         580     A     
 QCGC               CLAS=  X3,TP,(TAG,BIAS,LCM,FP,INTR,SHRT,ADDR,ARR,CAT)                  QCGC         581     A     
 QCGC               ECHO   2,F=(TAG,BIAS,LCM,FP,INTR,SHRT,ADDR,ARR,CAT)                    QCGC         582     A     
 QCGC               ERRNZ  TP.F_P-P2.F_P                                                   QCGC         583     A     
 QCGC               ERRNZ  TP.F_L-P2.F_L                                                   QCGC         584     A     
 QCGC                                                                                      QCGC         585     A     
 QCGC               MX0    -TP.MODEL                                                       QCGC         586     A     
 QCGC               LX2    -TP.MODEP                                                       QCGC         587     A     
 QCGC               BX1    -X0*X2      OPERAND MODE                                        QCGC         588     A     
 QCGC               LX2    TP.MODEP    RESTORE OPERAND                                     QCGC         589     A     
 QCGC               BX6    X3*X2       FIELDS TO BE PRESERVED FOR PASS 2                   QCGC         590     A     
 QCGC               MX0    -1                                                              QCGC         591     A     
 QCGC               SX1    X1-M.DBL    0 OR 1 IMPLIES LONG                                 QCGC         592     A     
 QCGC               CLAS=  X3,TP,(GL)                                                      QCGC         593     A     
 QCGC               BX1    X0*X1       ZERO IMPLIES LONG                                   QCGC         594     A     
 QCGC               LX0    P2.LONGP                                                        QCGC         595     A     
 QCGC               NZ     X1,TIL10    IF NOT DOUBLE OR COMPLEX                            QCGC         596     A     
 QCGC               BX6    -X0+X6      P2.LONG = 1                                         QCGC         597     A     
 QCGC                                                                                      QCGC         598     A     
 QCGC      TIL10    BX1    X3*X2                                                           QCGC         599     A     
 QCGC               LX1    P2.PFXP-TP.GLP                                                  QCGC         600     A     
 QCGC               ERRNZ  K=GL-1                                                          QCGC         601     A     
 QCGC               BX6    X6+X1       P2.PFX = TP.GL                                      QCGC         602     A     
 QCGC               HX2    P2.INTR                                                         QCGC         603     A     
 QCGC               PL     X2,TIL20    IF NOT INTERMEDIATE OPERAND                         QCGC         604     A     
 QCGC               MX0    P2.TAGL                                                         QCGC         605     A     
 QCGC               MX2    P2.TAGL+P2.BIASL                                                QCGC         606     A     
 QCGC               BX1    X0*X6       EXTRACT TAG                                         QCGC         607     A     
 QCGC               BX6    -X2*X6      CLEAR TAG AND BIAS                                  QCGC         608     A     
 QCGC               LX1    P2.BIASP-P2.TAGP                                                QCGC         609     A     
 QCGC               BX6    X1+X6       P2.BIAS = TP.TAG         P2.TAG = 0                 QCGC         610     A     
 QCGC                                                                                      QCGC         611     A     
 QCGC      TIL20    BX2    X6                                                              QCGC         612     A     
 QCGC               SA6    A2          RESET OPERAND WORD                                  QCGC         613     A     
 QCGC               EQ     EXIT.                                                           QCGC         614     A     
 QCGC      TIU      SPACE  4,20                                                            QCGC         615     A     
 QCGC     **        TIU -  TRANSFORN INTERMEDIATE LANGUAGE AND INSERT                      QCGC         616          I
          -FC50104
 QCGC     **        TIU -  TRANSFORM INTERMEDIATE LANGUAGE AND INSERT                      FC50104      241     A     
 QCGC     *                USE COUNT. CALLED FROM DUC TO REFORMAT                          QCGC         617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC     *                OPERANDS REQUIRING USE COUNTS. AS IN TIL                        QCGC         618     A     
 QCGC     *                TP. FORMAT GIVES WAY TO THE P2. FORMAT.                         QCGC         619     A     
 QCGC     *                                                                                QCGC         620     A     
 QCGC     *         ENTRY  (A2) _ OPERAND WORD                                             QCGC         621     A     
 QCGC     *                (X2) = OPERAND WORD P2. FORMAT                                  QCGC         622     A     
 QCGC     *                (X4) = NEXT TURPLE HEADER ORDINAL                               QCGC         623     A     
 QCGC     *                (B4) = T.PAR                                                    QCGC         624     A     
 QCGC     *                (B5) = FWA INTERMEDIATE LANGRAGE                                QCGC         625          I
          -FC50452
 QCGC     *                (B5) = FWA INTERMEDIATE LANGUAGE                                FC50452       14     A     
 QCGC     *                                                                                QCGC         626     A     
 QCGC     *         EXIT   (A2) _ PRESERVED                                                QCGC         627     A     
 QCGC     *                (X2) = OPERAND IN P2. FORMAT                                    QCGC         628     A     
 QCGC     *                (X4) - PRESERVED                                                QCGC         629     A     
 QCGC     *                (X5) = OPERAND IN TP. FORMAT                                    QCGC         630     A     
 QCGC     *                (B4) - PRESERVED                                                QCGC         631     A     
 QCGC     *                                                                                QCGC         632     A     
 QCGC     *         USES   A1,A3,A5,A6,A7,  X0,X1,X2,X3,X5,X6,X7,  B5,B7                   QCGC         633     A     
 QCGC     *                FWA AND LENGTH POINTER WORDS FOR MANAGED TABLES                 QCGC         634     A     
 QCGC     *                                                                                QCGC         635     A     
 QCGC     *         CALLS ADDWD,SCAN AND TIL                                               QCGC         636     A     
 QCGC     *                                                                                QCGC         637     A     
 QCGC     *         NOTE - NEITHER ADDWD NOR SCAN CAN DESTROY X4,X5,B4 OR B5               QCGC         638     A     
 QCGC                                                                                      QCGC         639     A     
 QCGC      TIU      SUBR               ENTRY/EXIT                                          QCGC         640     A     
 QCGC               SB7    X4+Z=TURP+OR.1OP                                                QCGC         641     A     
 QCGC               SB7    B7+B5                                                           QCGC         642     A     
 QCGC               SB7    A2-B7                                                           QCGC         643     A     
 QCGC               MX6    0                                                               QCGC         644     A     
 QCGC               NZ     B7,TIU1  IF NOT PROCESSING 1OP                                  QCGC         645     A     
 QCGC               SB7    B5+X4                                                           QCGC         646     A     
 QCGC               SA3    B7+Z=TURP                                                       QCGC         647     A     
 QCGC               LX3    -OP.SKELP                                                       QCGC         648          I
          -FC50104
 QCGC               HX3    OP.SKEL                                                         FC50104      242     A     
 QCGC               AX3    -OP.SKELL   EXTRACT SKELETON ORDINAL                            FC50104      243     A     
 QCGC               BX1    -X3                                                             QCGC         649     A     
 QCGC               SB7    X1+V=SUBST                                                      QCGC         650     A     
 QCGC               NZ     B7,TIU1     IF NOT SUBSTRING OPERAND                            QCGC         651     A     
 QCGC               MX6    1                                                               QCGC         652     A     
 QCGC                                                                                      QCGC         653     A     
 QCGC      TIU1     SA6    =STIUA                                                          QCGC         654     A     
 QCGC               SA5    TIU.TP      PRESET A5                                           QCGC         655     A     
 QCGC               RJ     TIL         REFORMAT TO P2.                                     QCGC         656     A     
 QCGC               BX6    X5                                                              QCGC         657     A     
 QCGC               SA6    A5          STORE TP. WORD                                      QCGC         658     A     
 QCGC               BX1    X2                                                              QCGC         659     A     
 QCGC               SBIT   X1,P2.INTRP                                                     QCGC         660     A     
 QCGC               MI     X1,TIU8     IF INTERMEDIATE                                     QCGC         661     A     
 QCGC               ZR     X6,EXIT.    IF NULL ARG. OF TWOARG                              QCGC         662     A     
 QCGC                                                                                      QCGC         663     A     
 QCGC     **        OPERAND IS A SYMBOL                                                    QCGC         664     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC                                                                                      QCGC         665     A     
 QCGC     **        (A2) _ P2 OPERAND                                                      QCGC         666     A     
 QCGC     *         (X2) = P2 OPERAND                                                      QCGC         667     A     
 QCGC     *         (B5) = FWA I. L.                                                       QCGC         668     A     
 QCGC                                                                                      QCGC         669     A     
 QCGC      TIU5     =B5    A2-B5       (B5) = OPERAND ORDINAL IN I. L.                     QCGC         670     A     
 QCGC               =X6    1           SET USE COUNT INCREMENT FOR POS                     QCGC         671     A     
 QCGC               RJ     POS         PREPARE OPERAND AND STATUS WORD                     QCGC         672     A     
 QCGC               SA3    B4          GET FWA I. L.                                       QCGC         673     A     
 QCGC               SA5    TIU.TP      PLACE TP. FORM IN (X5)                              QCGC         674     A     
 QCGC               SA1    TIUA                                                            QCGC         675     A     
 QCGC               SA2    X3+B5       RESTORE OPERAND                                     QCGC         676     A     
 QCGC               MI     X1,EXIT.    IF SUBSTRING 1OP                                    QCGC         677     A     
 QCGC               SA6    A2          STORE NEW OPERAND                                   QCGC         678     A     
 QCGC               EQ     EXIT.                                                           QCGC         679     A     
 QCGC                                                                                      QCGC         680     A     
 QCGC     **        INTERMEDIATE CASE:  HERE USE COUNTING MUST                             QCGC         681     A     
 QCGC     *         BE MORE ACCURATE.  THE USE COUNT IS ACUMULATED                         QCGC         682     A     
 QCGC     *         IN THE STATUS WORD FOR THE INTERMEDIATE.  WE                           QCGC         683     A     
 QCGC     *         INCREMENT USE COUNT AS FOLLOWS:                                        QCGC         684     A     
 QCGC                                                                                      QCGC         685     A     
 QCGC     *         1) INC = 1:  FOR OPERANDS OF NON DEFERED TURPLES                       QCGC         686     A     
 QCGC     *         2) INC = USE(CURRENT OPERATOR):  FOR DEFERED TURPLES                   QCGC         687     A     
 QCGC     *         3) INC = TWICE 2): FOR CPLX/DBL DEFERED TURPLES                        QCGC         688     A     
 QCGC     *                                                                                QCGC         689     A     
 QCGC     *         THERE ARE 2 OPERATERS INPORTANT TO ANY INTERMEDIATE:                   QCGC         690     A     
 QCGC     *         THE *CURRENT OPERATOR* - THE OPERATOR OF THE TURPLE CON-               QCGC         691     A     
 QCGC     *         TAINING THE INTERMEDIATE,  AND                                         QCGC         692     A     
 QCGC     *         THE *ASSOCIATE OPERATOR* - THE OPERATOR OUR INTERMEDIATE               QCGC         693     A     
 QCGC     *         POINTS TO.  THE ASSOCIATE IS USED TO CARRY A POINTER TO THE            QCGC         694     A     
 QCGC     *         STATUS WORD,  AND IS LATER USED TO CARRY THE USE TOTALS.               QCGC         695     A     
 QCGC     *                                                                                QCGC         696     A     
 QCGC     *         (X4)+Z=TURP = I. L. ORDINAL OF THE CURRENT OPERATOR                    QCGC         697     A     
 QCGC     *         (X2) = P2.WORD (BIAS = I. L. ORDINAL OF THE ASSOC OPERATOR)            QCGC         698     A     
 QCGC     *         (X5) = TP. WORD                                                        QCGC         699     A     
 QCGC     *         (B4) = T.PAR                                                           QCGC         700     A     
 QCGC     *         (B5) = FWA(I. L.)                                                      QCGC         701     A     
 QCGC                                                                                      QCGC         702     A     
 QCGC                                                                                      QCGC         703     A     
 QCGC      TIU8     SB7    X4+Z=TURP   (B7)= I. L. ORDINAL OF THE CURRENT OPERATOR         QCGC         704     A     
 QCGC               MX6    -OP.2MODL   SET MODE MASK                                       QCGC         705     A     
 QCGC               SA3    B5+B7       GET CURRENT OPERATOR                                QCGC         706     A     
 QCGC               LX3    -OP.SKELP   POSITION SKELETON ORDINAL                           QCGC         707          I
          -FC50104
 QCGC               BX1    -X3         GET NEGATIVE OF SKELETON ORD                        QCGC         708     A     
 QCGC               HX1    TH.SKEL                                                         FC50104      244     A     
 QCGC               AX1    -TH.SKELL   EXTRACT (SIGN EXTEND) NEGATIVE SKEL ORDINAL         FC50104      245     A     
 QCGC               SB7    X1+V=ARY    *FTN4* ONLY...WILL CHANGE FOR NEW TURPLES           QCGC         709     A     
 QCGC               ERRNZ  OP.SKELL-18                                                     QCGC         710          I
          -FC50104
 QCGC               MX0    -OP.1ORDL   SET MASK FOR STATUS WORD ORDINAL IN OUS             QCGC         711     A     
 QCGC               =X7    1           SET INITIAL USE COUNT INCREMENT                     QCGC         712     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               NZ     B7,TIU9     IF NOT DEFERED TURPLE                               QCGC         713     A     
 QCGC                                                                                      QCGC         714     A     
 QCGC     **        HERE WE COMPUTE THE USE COUNT INCREMENT FOR DEFERED TURPLE             QCGC         715     A     
 QCGC     *         OPERANDS                                                               QCGC         716     A     
 QCGC     *         (X7) = 1           A BIT-0 MASK FOR MODE CHECKING                      QCGC         717     A     
 QCGC                                                                                      QCGC         718     A     
 QCGC               LX3    OP.SKELP-OP.2MODP POSITION MODE OF CURRENT OPERATOR             QCGC         719          I
          -FC50104
 QCGC               LX3    -OP.2MODP   POSITION MODE OF CURRENT OPERATOR                   FC50104      246     A     
 QCGC               BX6    -X6*X3      EXTRACT MODE                                        QCGC         720     A     
 QCGC               MX5    -OP.USEL    SET MASK FOR USE COUNT INCREMENT                    QCGC         721     A     
 QCGC               LX3    OP.2MODP-OP.1ORDP POSITION ORD OF CUR OPERATOR'S ST WD          QCGC         722     A     
 QCGC               SX6    X6-M.DBL    (X6) = 0 OR 1 IF MODE = DBL OR CPLX RESP.           QCGC         723     A     
 QCGC               ERRNZ  M.DBL-M.CPLX+1                                                  QCGC         724     A     
 QCGC               BX3    -X0*X3      (X3) = OUS ORD OF THE CUR. OPERATOR ST WORD         QCGC         725     A     
 QCGC               BX6    -X7*X6      CLEAR BIT 0 FROM MODE DIFFERENCE                    QCGC         726     A     
 QCGC               SB7    X3                                                              QCGC         727     A     
 QCGC               SA3    T.OUS       GET OUS FWA                                         QCGC         728     A     
 QCGC               SA3    X3+B7       GET STATUS WORD FOR CURRENT OPERATOR                QCGC         729     A     
 QCGC               BX7    -X5*X3      (X7) = USE INC IF OPERAND^OPERATOR NOT DBL          QCGC         730     A     
 QCGC               NZ     X6,TIU9     IF CURRENT OPERATOR MODE NOT DBL/CPLX               QCGC         731     A     
 QCGC               LX7    1           TWICE INCREMENT IF OPETATOR DOUBLE/COMPLEX          QCGC         732     A     
 QCGC                                                                                      QCGC         733     A     
 QCGC     **        (X0) = MASK FOR OUS ORDINAL                                            QCGC         734     A     
 QCGC     *         (X2) = OPERAND SHIFTED                                                 QCGC         735     A     
 QCGC     *         (X7) = USE COUNT INCREMENT                                             QCGC         736     A     
 QCGC     *         (B5) = FWA I. L.                                                       QCGC         737     A     
 QCGC                                                                                      QCGC         738     A     
 QCGC      TIU9     LX2    -P2.BIASP   POSITION I. L. ORDINAL OF ASSOC OPERATOR            QCGC         739     A     
 QCGC               SA3    B5+X2       GET ASSOCIATE OPERATOR                              QCGC         740     A     
 QCGC               BX5    -X0*X3      (X5) = ORD OF STATUS WORD FOR ASSOCIATE             QCGC         741     A     
 QCGC               LX2    P2.BIASP    RESET OPERAND                                       QCGC         742     A     
 QCGC               SB5    A2-B5       IL ORD OF CURRENT OPERAND                           QCGC         743     A     
 QCGC               NZ     X5,TIU11    IF STATUS WORD ALREADY IN TABLE                     QCGC         744     A     
 QCGC                                                                                      QCGC         745     A     
 QCGC     **        MUST ENTER NEW STATUS WORD WITH INITIAL USE COUNT.                     QCGC         746     A     
 QCGC     *         ALSO ORDINAL TO STATUS WORD MUST BE PLACED IN THE                      QCGC         747     A     
 QCGC     *         ASSOCIATE OPERATOR.                                                    QCGC         748     A     
 QCGC                                                                                      QCGC         749     A     
 QCGC               SA5    T=OUS       GET OUS ORDINAL                                     QCGC         750     A     
 QCGC               IX6    X2+X7       ADD INITIAL USE COUNT INTO STATUS WORD              QCGC         751     A     
 QCGC               BX7    X3+X5       ADD ORDINAL INTO OPERATOR                           QCGC         752     A     
 QCGC               ERRNZ  OP.1ORDP                                                        QCGC         753     A     
 QCGC               SA7    A3          RESET ASSOCIATE OPERATOR WITH ORDINAL SET           QCGC         754     A     
 QCGC               ADDWD  T.OUS                                                           QCGC         755     A     
 QCGC               SA2    B4          GET FWA I. L.                                       QCGC         756     A     
 QCGC               SA2    X2+B5       RESET OPREAND POINTER                               QCGC         757          I
          -FC50452
 QCGC               SA2    X2+B5       RESET OPERAND POINTER                               FC50452       15     A     
 QCGC               EQ     TIU12       WRAP IT UP                                          QCGC         758     A     
 QCGC                                                                                      QCGC         759     A     
 QCGC     **        OPERAND IN TABLE. MUST INCREMENT USE COUNT                             QCGC         760     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC                                                                                      QCGC         761     A     
 QCGC      TIU11    SA3    T.OUS       GET FWA OUS                                         QCGC         762     A     
 QCGC               SB7    X5          (B7) = OUS ORD                                      QCGC         763     A     
 QCGC               IX6    X2+X7       INSERT DUMMY USE IN OPERAND                         QCGC         764     A     
 QCGC               SA3    B7+X3       GET STATUS WORD OF OPERAND                          QCGC         765     A     
 QCGC               IX7    X7+X3       INCREMENT USE TOTAL IN STATUS WORD                  QCGC         766     A     
 QCGC               SA7    A3          RESET STATUS WORD                                   QCGC         767     A     
 QCGC                                                                                      QCGC         768     A     
 QCGC      TIU12    LX5    P2.TAGP     POSITION OUS ORDINAL                                QCGC         769     A     
 QCGC               BX6    X6+X5       INSERT OUS ORDINAL IN TAG FIELD                     QCGC         770     A     
 QCGC               SA5    TIU.TP      RESTORE TP WORD                                     QCGC         771     A     
 QCGC               LX2    X6          (X2) = CURRENT VALUE OR OPERAND                     QCGC         772     A     
 QCGC               SA1    TIUA                                                            QCGC         773     A     
 QCGC               MI     X1,EXIT.    IF SUBSTRING 1OP                                    QCGC         774     A     
 QCGC               SA6    A2          RESET OPERAND                                       QCGC         775     A     
 QCGC               EQ     EXIT.                                                           QCGC         776     A     
 QCGC                                                                                      QCGC         777     A     
 QCGC      TIU.TP   BSS    1           SAVE AREA FOR TP. WORD                              QCGC         778     A     
 QCGC               TITLE  QCG SUPPORT ROUTINES.                                           QCGC         779     A     
 QCGC      DPT      SPACE  4,10                                                            QCGC         780     A     
 QCGC     **        DPT -  DEFINE PROGRAM TAG.                                             QCGC         781     A     
 QCGC     *                                                                                QCGC         782     A     
 QCGC     *         ENTRY  (X6) = ENTRY FOR *T.GL*, (WC) FORMAT                            QCGC         783     A     
 QCGC     *                                                                                QCGC         784     A     
 QCGC     *         USES   A1,A2,A6  X0,X7                                                 QCGC         785     A     
 QCGC     *                                                                                QCGC         786     A     
 QCGC     *         CALLS ALC                                                              QCGC         787     A     
 QCGC                                                                                      QCGC         788     A     
 QCGC                                                                                      QCGC         789     A     
 QCGC      DPT      SUBR   =           ...ENTRY/EXIT...                                    QCGC         790     A     
 QCGC               SA1    N.GL                                                            QCGC         791     A     
 QCGC               SA2    T=GL                                                            QCGC         792     A     
 QCGC               SA6    DPTA        SAVE (X6)                                           QCGC         793     A     
 QCGC               =X3    X1+1                                                            QCGC         794     A     
 QCGC               IX0    X3-X2                                                           QCGC         795     A     
 QCGC               IFEQ   TEST,ON,1                                                       QCGC         796     A     
 QCGC               MI     X0,"BLOWUP" IF (N.GL) .LT. (T=GL)                               QCGC         797     A     
 QCGC               ALLOC  T.GL,X0     INSURE TABLE LARGE ENOUGH FOR ALL GLS               QCGC         798     A     
 QCGC               SA2    DPTA                                                            QCGC         799     A     
 QCGC               BX6    X2                                                              QCGC         800     A     
 QCGC               SA6    X1+B3       STORE ENTRY IN GL TABLE                             QCGC         801     A     
 QCGC               EQ     EXIT.                                                           QCGC         802     A     
 QCGC                                                                                      QCGC         803     A     
 QCGC      DPTA     BSS    1           SAVE (X6)                                           QCGC         804     A     
 QCGC      QCP      SPACE  4,10                                                            QCGC         805     A     
 QCGC     **        QCP - QUICK CODE PRESETS.                                              QCGC         806     A     
 QCGC     *                                                                                QCGC         807     A     
 QCGC     *         SETS UP CELLS FOR QCG.                                                 QCGC         808     A     
 QCGC                                                                                      QCGC         809     A     
 QCGC                                                                                      QCGC         810     A     
 QCGC      QCP      SUBR   =           ENTRY/EXIT...                                       QCGC         811     A     
 QCGC               SX6    0                                                               QCGC         812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               SA6    DRITE                                                           QCGC         813     A     
 QCGC               SETMEM REGFILE,L.RGFILE  CLEAR REGISTER ASSOCIATES                     QCGC         814          I
          -FC5A171A 
 QCGC               SX7    WINOC                                                           QCGC         815     A     
 QCGC               SA7    PSTAB       SET WIN JUMP TABLE TO OC$XXX                        QCGC         816     A     
 QCGC               =X6    0                                                               QCGC         817     A     
 QCGC               ADDWD  T.IOI       ADD ZERO WORD AT START OF TABLE                     QCGC         818     A     
 QCGC               ADDWD  T.API       ADD ZERO WORD AT START OF TABLE                     QCGC         819     A     
 QCGC               ADDWD  T.GL        ADD ZERO WORD AT START OF TABLE                     QCGC         820     A     
 QCGC               SA6    ENT.EGL     PRESET ENTRY GENERATED LABEL                        QCGC         821     A     
 QCGC               SA6    A6+1        PRESET ENTRY SYM TAB ORDINAL(ENT.STO)               QCGC         822     A     
 QCGC               SA6    A6+1        PRESET AD SUB COUNTER (ENT.SUB)                     QCGC         823     A     
 QCGC               =A6    A6+B1       PRESET SUB0 COUNTER (ENT.SB0)                       QCGC         824     A     
 QCGC               SA6    A6+1        PRESET VAR DIM FLAG(ENT.VD)                         QCGC         825     A     
 QCGC               SA6    A6+B1       PRESET N.ALTEN - ALTERNATE ENTRY COUNTER            QCGC         826     A     
 QCGC               SA1    CO.CS                                                           QCGC         827     A     
 QCGC               SA2    CO.DOOT                                                         QCGC         828     A     
 QCGC               BX6    X1          INITIALIZE WORKING QCG COPY OF OPTIONS              QCGC         829     A     
 QCGC               LX7    X2                                                              QCGC         830     A     
 QCGC               SA6    WQ.CS                                                           QCGC         831     A     
 QCGC               =A7    A6-WQ.CS+WQ.DOOT                                                QCGC         832     A     
 QCGC               SX6    I.LOO                                                           QCGC         833     A     
 QCGC               SA6    OCIOL       INITIALIZE                                          QCGC         834     A     
 QCGC               EQ     EXIT.       EXIT...                                             QCGC         835     A     
 QCGC      SMB      SPACE  4,10                                                            QCGC         836     A     
 QCGC     **        SMB - SET MAT BIT FOR VARIABLES.                                       QCGC         837     A     
 QCGC     *         SINCE QCG DOES NOT SET THE MAT BIT IN THE SYMBOL TABLE                 QCGC         838     A     
 QCGC     *         FOR LOCAL VARIABLES, THIS ROUTINE IS CALLED FROM *REC*                 QCGC         839     A     
 QCGC     *         TO SET MAT[WB.] = 1 , IF VAR[WB.] = 1.                                 QCGC         840     A     
 QCGC                                                                                      QCGC         841     A     
 QCGC                                                                                      QCGC         842     A     
 QCGC      SMB      SUBR   =           ENTRY/EXIT.                                         QCGC         843     A     
 QCGC               SA3    MOD                                                             QCGC         844     A     
 QCGC               HX3    MO.BLK                                                          QCGC         845     A     
 QCGC               MI     X3,EXIT.    IF BLOCK DATA                                       QCGC         846     A     
 QCGC               SA3    T.SYM                                                           QCGC         847     A     
 QCGC               SA2    T=SYM                                                           QCGC         848     A     
 QCGC               SB6    X2                                                              QCGC         849     A     
 QCGC               CLAS=  X4,WB,(VAR)                                                     QCGC         850     A     
 QCGC               SB3    Z=SYM                                                           QCGC         851     A     
 QCGC               =A3    X3+WB.W                                                         QCGC         852     A     
 QCGC               CLAS=  X2,WB,(MAT)                                                     QCGC         853     A     
 QCGC                                                                                      FC50326       31     A     
 QCGC      SMB10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                             QCGC         854     A     
 QCGC               SB6    B6-B3                                                           QCGC         855     A     
 QCGC               ZR     B6,EXIT.    IF END OF T.SYM                                     QCGC         856     A     
 QCGC               BX0    X3                                                              FC50326       32     A     
 QCGC               SBIT   X0,WB.LABP                                                      FC50326       33     A     
 QCGC               MI     X0,SMB10    IF STATEMENT LABEL                                  FC50326       34     A     
 QCGC               SBIT   X0,WB.SFAP/WB.LABP                                              FC50326       35     A     
 QCGC               MI     X0,SMB10    IF STATEMENT FUNCTION DUMMY ARGUMENT                FC50326       36     A     
 QCGC               BX1    X4*X3       VARI = VAR[WBI]                                     QCGC         857     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QCGC    
  
 QCGC               BX6    X3+X2                                                           QCGC         858     A     
 QCGC               ZR     X1,SMB10    IF VARI .EQ. 0                                      QCGC         859     A     
 QCGC               SA6    A3          MAT[WBI] = 1                                        QCGC         860     A     
 QCGC               EQ     SMB10                                                           QCGC         861     A     
 QCGC     *CALL     COMFWIN            WRITE INSTRUCTIONS TO PREBINARY                     QCGC         862     A     
 QCGC               ENTRY  WIN                                                             QCGC         863     A     
 QCGC               ENTRY  WTE                                                             QCGC         864     A     
 QCGC                                                                                      QCGC         865     A     
 QCGC      PARCEL   BSSZ   1                                                               QCGC         866     A     
 QCGC      ORG      BSSZ   1                                                               QCGC         867     A     
 QCGC     *CALL     COMFITS            ISSUE TEMP STORAGE                                  QCGC         868     A     
 QCGC               ENTRY  ITS                                                             QCGC         869     A     
 QCGC     *CALL     COMFUSE            PROCESS USE PSEUDO INSTRUCTION                      QCGC         870     A     
 QCGC                                                                                      QCGC         871     A     
 QCGC      END      SPACE  4,10                                                            QCGC         872     A     
 QCGC               LIST   D                                                               QCGC         873     A     
 QCGC               END                                                                    QCGC         874     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - QCGC    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          QCGC                       874       829
          FC5A166                      1         1
          FC5A171A                     1         1
          FC50104                     11        11
          FC50452                      5         4
          FC50239                      4         4
          FC50326                      6         6
          FC50545                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QSKEL   
  
 QSKEL    *DECK     QSKEL - (QCG)  INSTRUCTION SKELETON CONSTRUCTION.                      QSKEL          1     A     
 QSKEL              IDENT  QSKEL                                                           QSKEL          2     A     
 QSKEL     QSKEL    SECT   ((QCG)   INSTRUCTION SKELETON CONSTRUCTION.)                    QSKEL          3     A     
 QSKEL     QSKEL    SPACE  4,8                                                             QSKEL          4     A     
 QSKEL    *         IN FUN                                                                 QSKEL          5     A     
 QSKEL              EXT    O=APRET,O=FUN,O=GAP,O=IAP,O=INF,O=IOC,O=IOD,O=IOF               QSKEL          6          I
          -FC50237
 QSKEL              EXT    O=SUB                                                           QSKEL          7          I
          -FC50237
 QSKEL              EXT    O=APRET,O=FAP,O=FUN,O=GAP,O=HLEX,O=HREL,O=HSTO,O=IAP            FC50237        7     A     
 QSKEL              EXT    O=INF,O=IOC,O=IOD,O=IOF,O=IOU,O=LIB,O=LIBF,O=LURET              FC50237        8     A     
 QSKEL              EXT    O=SCRET,O=SUB,O=SURET                                           FC50237        9     A     
 QSKEL                                                                                     QSKEL          8     A     
 QSKEL    *         IN GEN                                                                 QSKEL          9     A     
 QSKEL              EXT    O=ADSUB,O=BVD,O=CAR,O=CBJ,O=CBSS,O=CDW,O=CGT,O=CRJ              QSKEL         10          I
          -FC50237
 QSKEL              EXT    O=DIP,O=DOEND,O=ENT,O=EVD,O=FINX,O=FIN,O=FPENT,O=FUNT           QSKEL         11          I
          -FC50237
 QSKEL              EXT    O=GENTX,O=GENT,O=GFD,O=HDR,O=ID,O=IM,O=LCC,O=MASK               QSKEL         12          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN QSKEL   
  
          -FC50237
 QSKEL              EXT    O=MENT,O=MOD,O=NOOP,O=PCG,O=PDE,O=PLA,O=PLIM,O=RTNK             QSKEL         13          I
          -FC50237
 QSKEL              EXT    O=SEX,O=SHIFT,O=VDENT                                           QSKEL         14          I
          -FC50237
 QSKEL              EXT    O=BVD,O=CAR,O=CBJ,O=CDCS,O=CDDOT,O=CDLOO,O=CDW,O=CRJ            FC50237       10     A     
 QSKEL              EXT    O=DATA,O=DOC,O=DOB,O=DOBZ,O=ENT,O=EVD,O=FIN,O=FINX              FC50237       11     A     
 QSKEL              EXT    O=FPENT,O=FPHDR,O=FUNT,O=GENT,O=GENTX,O=GFD,O=HCAT              FC50237       12     A     
 QSKEL              EXT    O=HCOL,O=HDR,O=HSBS,O=ID,O=ILL,O=IM,O=LCC,O=MASK,O=MENT         FC50237       13     A     
 QSKEL              EXT    O=MOD,O=NOOP,O=PASG,O=PCG,O=PDE,O=PLA,O=PLIM,O=RGT              FC50237       14     A     
 QSKEL              EXT    O=SEX,O=SHIFT                                                   FC50237       15     A     
 QSKEL                                                                                     QSKEL         15     A     
 QSKEL    *         IN PAR                                                                 QSKEL         16     A     
 QSKEL              EXT    ES=LOCF,ES=MASK,ES=RANF,ES=SHIF                                 QSKEL         17          I
          -FC50237
 QSKEL              EXT    ES=CMPL,ES=LEN,ES=LGE,ES=LGT,ES=LLE,ES=LLT,ES=LOCF              FC50237       16     A     
 QSKEL              EXT    ES=MASK,ES=RANF,ES=SHIF                                         FC50237       17     A     
 QSKEL                                                                                     QSKEL         18     A     
 QSKEL    *         IN PUC                                                                 QSKEL         19     A     
 QSKEL              EXT    S=ENTRY,S=ERR,S=EXIT,S=FILES,S=INIT,S=SPA,S=SUB,S=TA0           QSKEL         20          I
          -FC50237
 QSKEL              EXT    S=VALUE                                                         QSKEL         21          I
          -FC50237
 QSKEL              EXT    S=AEXIT,S=BU,S=ENTRY,S=ERR,S=EXIT,S=FILES,S=INIT,S=TA0          FC50237       18     A     
 QSKEL              EXT    S=TRACE,S=VALUE                                                 FC50237       19     A     
 QSKEL                                                                                     QSKEL         22     A     
 QSKEL    *         IN REG                                                                 QSKEL         23     A     
 QSKEL              EXT    O=PAR                                                           QSKEL         24     A     
 QSKEL     QSKEL    SPACE  4,10                                                            QSKEL         25     A     
 QSKEL    ***       QSKEL - QCG INSTRUCTION SKELETONS.                                     QSKEL         26     A     
 QSKEL    *                                                                                QSKEL         27     A     
 QSKEL    *         R. H. FRANK        71-12-31.                                           QSKEL         28     A     
 QSKEL    *         L. D. HARE         75-07-09.     REWRITE.                              QSKEL         29     A     
 QSKEL    *         M. A. HERBACH      76-07-31.     FTN 5 COMMON SKELETONS.               QSKEL         30     A     
 QSKEL    *         W. E. DICK         77-05-99.     FTN 5 QCG.                            QSKEL         31     A     
 QSKEL    *                                                                                QSKEL         32     A     
 QSKEL    *         THIS DECK CONTAINS ALL INSTRUCTION SKELETONS AND                       QSKEL         33     A     
 QSKEL    *         THE NECESSARY PSEUDO CODE FOR GENERATING THEM.                         QSKEL         34     A     
 QSKEL    *         AS SUCH, THIS DECK IS NON EXECUTABLE.                                  QSKEL         35     A     
 QSKEL    *         MODIFICATIONS MUST BE HANDLED WITH EXTREME CARE, ATTENTION             QSKEL         36     A     
 QSKEL    *         BEING PAID ESPECIALLY TO TABLES THAT LIE HEREIN AND                    QSKEL         37     A     
 QSKEL    *         ARE REFERENCED BY GEN.                                                 QSKEL         38     A     
 QSKEL              TITLE  MACRO DEFINITIONS.                                              QSKEL         39     A     
 QSKEL    **        THE FOLLOWING MACROS ARE DEFINED IN THIS DECK TO CAUSE                 QSKEL         40     A     
 QSKEL    *         THE COMDECKS TO GENERATE QCG FORMAT SKELETON DEFINITIONS.              QSKEL         41     A     
 QSKEL     .OPT     EQU    1                                                               QSKEL         42     A     
 QSKEL     .FAST    EQU    0                                                               QSKEL         43     A     
 QSKEL     .CG      EQU    .FAST                                                           QSKEL         44     A     
 QSKEL                                                                                     QSKEL         45     A     
 QSKEL    *CALL COMFSKL                                                                    QSKEL         46     A     
 QSKEL                                                                                     QSKEL         47     A     
 QSKEL              END                                                                    QSKEL         48     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1559    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - QSKEL   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          QSKEL                       48        38
          FC50237                     13        13
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *DECK     FUN                                                                    FUN            1     A     
 FUN                IDENT  FUN                                                             FUN            2     A     
 FUN                                                                                       FUN            3     A     
 FUN      *         ***** FRAG 5 NOTE *****  FUN USES THE OLD P2. FORMATS FROM GEN         FUN            4     A     
 FUN      *         AND MUST BE CONVERTED TO TP./PB. WHEN GEN/QCGC/QSKEL/ETC CUTS          FUN            5     A     
 FUN      *         OVER TO THE NEW WORLD.                                                 FUN            6     A     
 FUN                SPACE  4,7                                                             FUN            7     A     
 FUN                                                                                       FUN            8     A     
 FUN       FUN      SECT   ((QCG)    EXTERNAL PROCEDURE INVOCATION.)                       FUN            9     A     
 FUN       FUN      SPACE  4                                                               FUN           10     A     
 FUN      *         IN ALLOC                                                               FUN           11     A     
 FUN                EXT    ADW,ALC                                                         FUN           12     A     
 FUN                                                                                       FUN           13     A     
 FUN      *         IN FEC                                                                 FUN           14     A     
 FUN                EXT    NCM,ROUTNAM,SCT                                                 FUN           15     A     
 FUN                                                                                       FUN           16     A     
 FUN      *         IN FSNAP                                                               FUN           17     A     
 FUN                EXT    DMT=                                                            FUN           18     A     
 FUN                                                                                       FUN           19     A     
 FUN      *         IN FTN                                                                 FUN           20     A     
 FUN                EXT    CO.ARGF,CO.SNAP                                                 FUN           21     A     
 FUN                                                                                       FUN           22     A     
 FUN      *         IN GEN                                                                 FUN           23     A     
 FUN                EXT    CURSK,EIS.PNX,ENT.SUB,NULLOP,SUB.RET                            FUN           24     A     
 FUN                                                                                       FUN           25     A     
 FUN      *         IN PUC                                                                 FUN           26     A     
 FUN                EXT    BN=APL,ECB,ECS,GCL,N.ST,N.TABLE,S=CL,S=CON,S=FAR,S=FAS          FUN           27     A     
 FUN                EXT    S=FMC,S=FVS,S=LMC,S=MMC,S=ST,T=APL,T=CAC,T=CLW,T=IOA            FUN           28     A     
 FUN                EXT    T=PAR,T=SAP,T.API,T.APL,T.CAC,T.CLW,T.CON,T.FPI,T.IOA           FUN           29     A     
 FUN                EXT    T.IOI,T.OUS,T.PAR,T.SAP,T.SYM,WO.CS,WO.DOOT                     FUN           30     A     
 FUN                                                                                       FUN           31     A     
 FUN      *         IN QCGC                                                                FUN           32     A     
 FUN                EXT    POS,REG=G,TRACE,UUC,WIN                                         FUN           33     A     
 FUN                                                                                       FUN           34     A     
 FUN      *         IN QSKEL                                                               FUN           35     A     
 FUN                EXT    V=SUBST,W=APSTR,W=CAPST,W=CIA0S,W=CIS0S,W=IAPD1,W=IAPD2         FUN           36     A     
 FUN                EXT    W=IAPS1,W=IAPS2,W=IPLG0,W=IPLUG                                 FUN           37          I
          -FC5A246
 FUN                EXT    W=IAPS1,W=IAPS2,W=IPLG0,W=IPLUG,W=LUA,W=SUA                     FC5A246        4     A     
 FUN                                                                                       FUN           38     A     
 FUN      *         IN REG                                                                 FUN           39     A     
 FUN                EXT    CDS,CIA,CRJ,CWI,DIT,GST,STS                                     FUN           40          I
          -FC5A246
 FUN                EXT    CDS,CIA,CRJ,CWI,DIT,GST,RUT,STS                                 FC5A246        5     A     
 FUN                                                                                       FUN           41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *         IN UTILITY                                                             FUN           42     A     
 FUN                EXT    MVE=                                                            FUN           43     A     
 FUN                SPACE  4,8                                                             FUN           44     A     
 FUN                LIST   -X          FOLLOWING COMDECKS ARE LISTED IN QCGC               FUN           45     A     
 FUN      *CALL     COMAQCG            QCG MACRO DEFINITIONS.                              FUN           46     A     
 FUN      *CALL     COMSQCG            QCG STRUCTURE DEFINITIONS.                          FUN           47     A     
 FUN      *CALL     COMSQRF            QCG REGISTER ASSOCIATES.                            FUN           48     A     
 FUN                                   DEFINS IS LISTED IN QSKEL                           FUN           49     A     
 FUN      *CALL     DEFINS             DEFINE MACHINE OPCODES                              FUN           50     A     
 FUN                LIST   *                                                               FC5A246        6     A     
 FUN                TITLE  (O=)  PROCESSORS CALLED BY SKELETONS.                           FUN           51     A     
 FUN      *         TEMPORARY EQUATES TO GET LOAD CLEANED UP.                              FUN           52     A     
 FUN                                                                                       FUN           53     A     
 FUN       IO       EQU    1                                                               FUN           54     A     
 FUN       USER     EQU    0                                                               FUN           55     A     
 FUN       O=FAP    SPACE  4,10                                                            FUN           56     A     
 FUN      **        O=FAP - FIRST FUNCTION APLIST PROCESSOR                                FUN           57     A     
 FUN      *         THIS ONLY EXITS TO FLAG THE FIRST APL OF                               FUN           58     A     
 FUN      *         CHARACTER FUNCTION SO THAT A TEMP *VALUE.*                             FUN           59     A     
 FUN      *         CAN BE ALLOCATED.                                                      FUN           60     A     
 FUN      *                                                                                FUN           61     A     
 FUN      *         ENTRY - (OR.1OP) = P2 WORD FOR ROUTINE                                 FUN           62     A     
 FUN                                                                                       FUN           63     A     
 FUN                                                                                       FUN           64     A     
 FUN       O=FAP    BSSENT 0                                                               FUN           65     A     
 FUN                MX6    0                                                               FUN           66     A     
 FUN                SA6    APLEN       FOR O=IAP                                           FUN           67     A     
 FUN                =A1    B4+OR.OPR   GET OPERATOR                                        FUN           68     A     
 FUN                MX0    -OP.MODEL   SET MODE MASK                                       FUN           69     A     
 FUN                LX1    -OP.MODEP   POSITION MODE                                       FUN           70     A     
 FUN                BX6    -X0*X1      EXTRACT MODE                                        FUN           71     A     
 FUN                SB2    X6-M.CHAR                                                       FUN           72     A     
 FUN                NZ     B2,NULLOP   IF MODE NOT CHARACTER                               FUN           73     A     
 FUN                SB5    T.API                                                           FUN           74     A     
 FUN                SB6    T.SAP                                                           FUN           75     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN           76     A     
 FUN                =A1    B4+OR.1OP   GET FUNCTION OPERAND                                FUN           77     A     
 FUN                BX6    X1                                                              FUN           78     A     
 FUN                ADDWD  T.SAP                                                           FUN           79     A     
 FUN                SA1    APLEN                                                           FUN           80     A     
 FUN                =X7    X1+1                                                            FUN           81     A     
 FUN                SA7    A1          INCRIMENT APLIST LENGTH                             FUN           82          I
          -FC50239
 FUN                SA7    A1          INCREMENT APLIST LENGTH                             FC50239       12     A     
 FUN                SB4    B4+Z=TURP                                                       FUN           83     A     
 FUN                EQ     EIS.PNX                                                         FUN           84     A     
 FUN       O=FUN    SPACE  4,8                                                             FUN           85     A     
 FUN      **        O=FUN - RETURN JUMP TO CALL-BY-NAME FUNCTION.                          FUN           86     A     
 FUN      *                                                                                FUN           87     A     
 FUN      *         ENTRY  (1OP) = ROUTINE TAG.                                            FUN           88     A     
 FUN      *                (B4) _ TURPLE BEING PROCESSED.                                  FUN           89     A     
 FUN      *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*                FUN           90     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                            TURPLES --                                          FUN           91     A     
 FUN      *                (APLEN) SET-UP BY *O=ARG*.                                      FUN           92     A     
 FUN      *                (T.APL) SET-UP BY *O=ARG*.                                      FUN           93     A     
 FUN      *                                                                                FUN           94     A     
 FUN      *         EXIT   TO *EIS.PNX*.                                                   FUN           95     A     
 FUN      *                (B4) ADVANCED                                                   FUN           96     A     
 FUN      *         CALLS  PEJ, TRF.                                                       FUN           97     A     
 FUN      *                                                                                FUN           98     A     
 FUN      *         NOTE   ALSO CONTAINS PROCESSING USED BY *O=BEF*.                       FUN           99     A     
 FUN                                                                                       FUN          100     A     
 FUN                                                                                       FUN          101     A     
 FUN       O=LIBF   BSSENT 0           ENTRY FOR LIBRARY FUNCTIONS (CALL-BY-REF)           FUN          102     A     
 FUN                SX6    1           FLAG NO ZERO-TERM                                   FUN          103     A     
 FUN                EQ     O=FUN10                                                         FUN          104     A     
 FUN                                                                                       FC50239       13     A     
 FUN       O=FUN    BSSENT 0           ENTRY...                                            FUN          105     A     
 FUN                SA2    CO.ARGF                                                         FUN          106     A     
 FUN                BX6    X2                                                              FUN          107     A     
 FUN                                                                                       FUN          108     A     
 FUN       O=FUN10  SA6    FUNA                                                            FUN          109     A     
 FUN                SA2    FAF                                                             FUN          110     A     
 FUN                SB5    T.API                                                           FUN          111     A     
 FUN                SB6    T.SAP                                                           FUN          112     A     
 FUN                NZ     X2,O=FUN15  IF APLIST ENCOUNTERED (NOT F() )                    FUN          113     A     
 FUN                NZ     X6,O=FUN15  IF NO TERMINATOR NEEDED                             FUN          114     A     
 FUN                RJ     IAS         SET UP APLIST                                       FUN          115     A     
 FUN                                                                                       FUN          116     A     
 FUN       O=FUN15  =A1    B4+OR.1OP                                                       FUN          117     A     
 FUN                =X7    0                                                               FUN          118     A     
 FUN                BX6    X1                                                              FUN          119     A     
 FUN                SA7    FAF         SET FIRST APLIST WORD FLAG                          FUN          120     A     
 FUN                SA6    ROUTNAM                                                         FUN          121     A     
 FUN                SA1    B4+OR.OPR                                                       FUN          122     A     
 FUN                MX7    -OP.MODEL                                                       FUN          123     A     
 FUN                LX1    -OP.MODEP                                                       FUN          124     A     
 FUN                BX7    -X7*X1                                                          FUN          125     A     
 FUN                SX7    X7-M.CHAR                                                       FUN          126     A     
 FUN                NZ     X7,O=FUN1   IF NOT CHAR                                         FUN          127     A     
 FUN                RJ     DCF         DEFINE CHARACTER FUNCTION                           FUN          128     A     
 FUN                                                                                       FUN          129     A     
 FUN       O=FUN1   SA1    FUNA        ZERO-TERMINATOR FLAG                                FUN          130     A     
 FUN                RJ     PEJ         COMPILE EXTERNAL JUMP.                              FUN          131     A     
 FUN                MX6    0                                                               FUN          132     A     
 FUN                SHRINK T=SAP,X6                                                        FUN          133     A     
 FUN                SA1    B4+OR.OPR   GET OPERATOR                                        FUN          134     A     
 FUN                MX7    -OP.MODEL                                                       FUN          135     A     
 FUN                LX1    -OP.MODEP                                                       FUN          136     A     
 FUN                BX7    -X7*X1      EXTRACT MODE                                        FUN          137     A     
 FUN                SX7    X7-M.CHAR                                                       FUN          138     A     
 FUN                NZ     X7,O=FUN2   IF NOT CHARACTER                                    FUN          139     A     
 FUN                EQ     NULLOP                                                          FUN          140     A     
 FUN                                                                                       FUN          141     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      **        JOINED HERE BY CALL-BY-VALUE RETURN JUMP.                              FUN          142     A     
 FUN                                                                                       FUN          143     A     
 FUN       O=FUN2   BX5    0                                                               FUN          144     A     
 FUN                MX7    0                                                               FUN          145     A     
 FUN                SB2    R.X6        0TR FOR UPPER HALF                                  FUN          146     A     
 FUN                =B3    0           RESULTS OF UPPER HALF                               FUN          147     A     
 FUN                SA7    UUC                                                             FUN          148     A     
 FUN                CALL   DIT         DEFINE INTERMEDIATE RESULTS                         FUN          149     A     
 FUN                =A1    B4+OR.OPR                                                       FUN          150     A     
 FUN                MX0    -OP.2MODL                                                       FUN          151     A     
 FUN                LX1    -OP.2MODP                                                       FUN          152     A     
 FUN                BX2    -X0*X1                                                          FUN          153     A     
 FUN                SB2    X2-M.DBL                                                        FUN          154     A     
 FUN                EQ     B2,B0,O=FUN3  IF MODE DOUBLE                                    FUN          155     A     
 FUN                NE     B2,B1,O=FUN5  IF MODE NOT COMPLEX                               FUN          156     A     
 FUN       O=FUN3   BX5    0                                                               FUN          157     A     
 FUN                SB2    R.X7        0TR FOR LOWER HALF                                  FUN          158     A     
 FUN                =B3    1           RESULTS OF LOWER HALF                               FUN          159     A     
 FUN                CALL   DIT         DEFINE INTERMEDIATE RESULTS                         FUN          160     A     
 FUN       O=FUN5   EQ     NULLOP      EXIT..                                              FUN          161     A     
 FUN                                                                                       FUN          162     A     
 FUN       FUNA     BSS    1                                                               FUN          163     A     
 FUN       O=GAP    SPACE  4,10                                                            FUN          164     A     
 FUN      **        O=GAP  GENERAL USER  APLIST PROCESSOR                                  FUN          165     A     
 FUN      *                SETS APLIST TYPE INSERTS ARGUMENT IN APL                        FUN          166     A     
 FUN      *                AND STEPS THE ARGUMENT COUNTER                                  FUN          167     A     
 FUN      *                                                                                FUN          168     A     
 FUN      *         ENTRY  (1OP) = ARGUMENT                                                FUN          169     A     
 FUN      *                (2OP) = NA                                                      FUN          170     A     
 FUN                                                                                       FUN          171     A     
 FUN                                                                                       FUN          172     A     
 FUN       O=GAP    BSSENT 0                                                               FUN          173     A     
 FUN                SB5    T.API                                                           FUN          174     A     
 FUN                SB6    T.SAP                                                           FUN          175     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN          176     A     
 FUN                =A1    B4+OR.1OP   GET APLIST ARGUMENT                                 FUN          177     A     
 FUN                RJ     IAW         ISSUE APLIST WORD                                   FUN          178     A     
 FUN                SB4    B4+Z=TURP   GET NEXT OPERATOR                                   FUN          179     A     
 FUN                EQ     EIS.PNX                                                         FUN          180     A     
 FUN       O=HREL   SPACE  4,10                                                            FUN          181     A     
 FUN      **        HREL - CHARACTER RELATIONAL PROCESSORS.                                FUN          182     A     
 FUN      *         CALLED AS HREL FOR OPERATOR-TYPE RELATIONAL EXPRESSIONS,               FUN          183     A     
 FUN      *         OR AS HLEX FOR LEXICAL FUNCTION-TYPE EXPRESSIONS.                      FUN          184     A     
 FUN                                                                                       FUN          185     A     
 FUN       O=HLEX   BSSENT 0                                                               FUN          186     A     
 FUN                SA1    S=LMC                                                           FUN          187     A     
 FUN                BX6    X1                                                              FUN          188     A     
 FUN                SA6    PCRB                                                            FUN          189     A     
 FUN                EQ     PCR10                                                           FUN          190     A     
 FUN                                                                                       FUN          191     A     
 FUN       O=HREL   BSSENT                                                                 FUN          192     A     
 FUN                SA2    WO.CS                                                           FUN          193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SA1    S=FMC+X2    FMC./UMC.                                           FUN          194     A     
 FUN                BX6    X1                                                              FUN          195     A     
 FUN                SA6    PCRB                                                            FUN          196     A     
 FUN                                                                                       FUN          197     A     
 FUN       PCR10    RJ     SAS         STACK APLIST                                        FUN          198     A     
 FUN                SA1    CURSK       CURRENT SKELETON POINTER                            FUN          199     A     
 FUN                BX7    X1                                                              FUN          200     A     
 FUN                SA7    FUN.CUR     SAVE                                                FUN          201     A     
 FUN                =X6    0                                                               FUN          202     A     
 FUN                ADDWD  T.SAP       RESERVE FOR HEADER                                  FUN          203     A     
 FUN                SA1    APLEN                                                           FUN          204     A     
 FUN                =X6    X1+1                                                            FUN          205     A     
 FUN                SA6    A1          BUMP APLIST POINTER                                 FUN          206     A     
 FUN                =A5    B4+OR.1OP                                                       FUN          207     A     
 FUN                RJ     BGA         ISSUE LEFT SIDE                                     FUN          208     A     
 FUN                SA1    T=SAP                                                           FUN          209     A     
 FUN                BX6    X1                                                              FUN          210     A     
 FUN                SA6    PCRA        SAVE APLIST SIZE                                    FUN          211     A     
 FUN                =A5    B4+OR.2OP                                                       FUN          212     A     
 FUN                RJ     BGA         ISSUE RIGHT SIDE                                    FUN          213     A     
 FUN                SA1    PCRA                                                            FUN          214     A     
 FUN                SA2    T=SAP                                                           FUN          215     A     
 FUN                SX3    X1-1                                                            FUN          216     A     
 FUN                IX4    X2-X1                                                           FUN          217     A     
 FUN                LX3    IA.LEFTP                                                        FUN          218     A     
 FUN                LX4    IA.RITEP                                                        FUN          219     A     
 FUN                MX1    1                                                               FUN          220     A     
 FUN                SA2    T.SAP                                                           FUN          221     A     
 FUN                LX1    1+IA.CRHP    REL HEADER TYPE APLIST                             FUN          222     A     
 FUN                BX6    X3+X4                                                           FUN          223     A     
 FUN                BX7    X6+X1                                                           FUN          224     A     
 FUN                SA7    X2          STORE INTO RESERVED SPOT                            FUN          225     A     
 FUN                SA1    PCRB        ROUTINE                                             FUN          226     A     
 FUN                BX6    X1                                                              FUN          227     A     
 FUN                LX6    P2.TAGP                                                         FUN          228     A     
 FUN                SA6    ROUTNAM                                                         FUN          229     A     
 FUN                RJ     PEJ         ISSUE CALL                                          FUN          230     A     
 FUN                RJ     PAS         RESTORE APLIST STRUCTURES                           FUN          231     A     
 FUN                =X7    0                                                               FUN          232     A     
 FUN                SA7    FAF         ZERO OUT FIRST APL FLAG                             FUN          233     A     
 FUN                SA1    FUN.CUR                                                         FUN          234     A     
 FUN                BX7    X1                                                              FUN          235     A     
 FUN                SA7    CURSK       RESTORE SKEL POINTER                                FUN          236     A     
 FUN                EQ     NULLOP                                                          FUN          237     A     
 FUN                                                                                       FUN          238     A     
 FUN       PCRA     BSS    1                                                               FUN          239     A     
 FUN       PCRB     BSS    1                                                               FUN          240     A     
 FUN       HSTO     SPACE  4,10                                                            FUN          241     A     
 FUN      **        HSTO - CHARACTER ASSIGNMENT.                                           FUN          242     A     
 FUN                                                                                       FUN          243     A     
 FUN       O=HSTO   BSSENT 0                                                               FUN          244     A     
 FUN                SA1    CURSK                                                           FUN          245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                BX7    X1                                                              FUN          246     A     
 FUN                SA7    FUN.CUR     SAVE SKELETON POINTER                               FUN          247     A     
 FUN                RJ     SAS         STACK APLIST STRUCTURES                             FUN          248     A     
 FUN                =A5    B4+OR.2OP                                                       FUN          249     A     
 FUN                RJ     PCI         ENTER TARGET INTO APLIST                            FUN          250     A     
 FUN                SA5    B4+OR.1OP                                                       FUN          251     A     
 FUN                RJ     BGA         PROCESS RIGHT-HAND EXPRESSION                       FUN          252     A     
 FUN                =X6    0                                                               FUN          253     A     
 FUN                ADDWD  T.SAP       APLIST TERMINATOR                                   FUN          254     A     
 FUN                SA2    APLEN                                                           FUN          255     A     
 FUN                =X6    X2+1                                                            FUN          256     A     
 FUN                SA6    A2          INCRIMENT APLIST LENGTH COUNTER                     FUN          257          I
          -FC5A246
 FUN                SA6    A2          INCREMENT APLIST LENGTH COUNTER                     FC5A246        7     A     
 FUN                SA1    S=MMC                                                           FUN          258     A     
 FUN                BX7    X1                                                              FUN          259     A     
 FUN                LX7    P2.TAGP                                                         FUN          260     A     
 FUN                SA7    ROUTNAM     ROUTINE IS CHARACTER MOVE ROUTINE                   FUN          261     A     
 FUN                RJ     PEJ         ISSUE - RJ   MMC -                                  FUN          262     A     
 FUN                SA4    FUN.CUR                                                         FUN          263     A     
 FUN                BX7    X4                                                              FUN          264     A     
 FUN                SA7    CURSK                                                           FUN          265     A     
 FUN                RJ     PAS         RESTORE APLIST STRUCTURES                           FUN          266     A     
 FUN                MX7    0                                                               FUN          267     A     
 FUN                SA7    FAF         SET FIRST APLIST FLAG                               FUN          268     A     
 FUN                EQ     NULLOP                                                          FUN          269     A     
 FUN       O=IAP    SPACE  4,10                                                            FUN          270     A     
 FUN      **        O=IAP - ISSUE ACTUAL PARAMETER OF EXTERNAL INTRINSIC.                  FUN          271     A     
 FUN      *                                                                                FUN          272     A     
 FUN      *         ENTRY  (1OP) = ACTUAL PARAMETER                                        FUN          273     A     
 FUN      *                (OP.MODE) = MODE OF ARG.                                        FUN          274     A     
 FUN                                                                                       FUN          275     A     
 FUN                                                                                       FUN          276     A     
 FUN       O=IAP    BSSENT             ENTRY...                                            FUN          277     A     
 FUN                =A1    B4+OR.OPR                                                       FUN          278     A     
 FUN                MX0    -OP.MODEL                                                       FUN          279     A     
 FUN                SA2    APLEN                                                           FUN          280     A     
 FUN                LX1    -OP.MODEP                                                       FUN          281     A     
 FUN                SA3    X2+IAPA                                                         FUN          282     A     
 FUN                BX6    -X0*X1      ISOLATE MODE OF ARG                                 FUN          283     A     
 FUN                SX7    X2+B1       COUNT ARGUMENTS                                     FUN          284     A     
 FUN                SB7    X6-M.DBL                                                        FUN          285     A     
 FUN                SA7    A2                                                              FUN          286     A     
 FUN                EQ     B7,B0,IAP2  IF TYPE DOUBLE                                      FUN          287     A     
 FUN                EQ     B7,B1,IAP2  IF TYPE COMPLEX                                     FUN          288     A     
 FUN                LX3    30                                                              FUN          289     A     
 FUN       IAP2     =X6    X3          SET SUBSKEL                                         FUN          290     A     
 FUN                EQ     SUB.RET     EXIT..                                              FUN          291     A     
 FUN                                                                                       FUN          292     A     
 FUN       IAPA     VFD    30/W=IAPS1,30/W=IAPD1                                           FUN          293     A     
 FUN                VFD    30/W=IAPS2,30/W=IAPD2                                           FUN          294     A     
 FUN       O=INF    SPACE  4,10                                                            FUN          295     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      **        O=INF - CALL EXTERNAL INTRINSIC FUNCTION.                              FUN          296     A     
 FUN      *                                                                                FUN          297     A     
 FUN      *         ENTRY  (1OP) = ROUTINE TAG                                             FUN          298     A     
 FUN      *                (2OP) = NUMBER OF ARGUMENTS                                     FUN          299     A     
 FUN                                                                                       FUN          300     A     
 FUN                                                                                       FUN          301     A     
 FUN       O=INF    BSSENT             ENTRY...                                            FUN          302     A     
 FUN                =A1    B4+OR.1OP                                                       FUN          303     A     
 FUN                BX6    X1                                                              FUN          304     A     
 FUN                CRJ    NONE                                                            FUN          305     A     
 FUN                BX7    0                                                               FUN          306     A     
 FUN                SA7    APLEN                                                           FUN          307     A     
 FUN                EQ     O=FUN2      CONTINUE..                                          FUN          308     A     
 FUN       O=IOC    SPACE  4,10                                                            FUN          309     A     
 FUN      **        PROCESS IO CONTROL APLIST ITEM                                         FUN          310     A     
 FUN      *         PREPARES AND PASSES APLIST ITEMS TO SAP                                FUN          311     A     
 FUN      *                                                                                FUN          312     A     
 FUN      *         ENTRY  OR.1OP = CONTROL CODE                                           FUN          313     A     
 FUN      *                OR.2OP = CONTROL ITEM                                           FUN          314     A     
 FUN                                                                                       FUN          315     A     
 FUN                                                                                       FUN          316     A     
 FUN       O=IOC    BSSENT 0                                                               FUN          317     A     
 FUN                SB5    T.IOI                                                           FUN          318     A     
 FUN                SB6    T.IOA                                                           FUN          319     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN          320     A     
 FUN                CLAS=  X1,AT,(IO,IOC)                                                  FUN          321     A     
 FUN                BX6    X1                                                              FUN          322     A     
 FUN                SA6    ATF         ATF BITS SET - IO,IOC                               FUN          323     A     
 FUN                SA1    B4+OR.2OP   GET CONTROL ITEM                                    FUN          324     A     
 FUN                RJ     IAW         ISSUE APLIST WORD FOR CONTROL ITEM                  FUN          325     A     
 FUN                SA1    T=IOA       GET LEN OF IO APLIST TABLE                          FUN          326     A     
 FUN                SA2    T.IOA       GET FWA OF IO APLIST                                FUN          327     A     
 FUN                =A5    B4+OR.1OP   GET CONTROL CODE OPERAND                            FUN          328     A     
 FUN                LX5    -P2.BIASP   POSITION CONTROL CODE                               FUN          329     A     
 FUN                MX0    -IA.MODEL                                                       FUN          330     A     
 FUN                IX2    X1+X2       ADD IOA FWA TO LENGTH                               FUN          331     A     
 FUN                SA3    X2-1        GET IOA ENTRY FOR CONTROL ITEM                      FUN          332     A     
 FUN                LX3    -IA.MODEP                                                       FUN          333     A     
 FUN                BX2    X0*X3       CLEAR MODE FROM CONTROL ITEM IOA ENTRY              FUN          334     A     
 FUN                BX5    -X0*X5      EXTRACT CONTROL CODE                                FUN          335     A     
 FUN                BX7    X2+X5       MODE[CONTROL ITEM] = CONTROL CODE                   FUN          336     A     
 FUN                LX7    IA.MODEP    RESET FOR RE-ENTRY TO IOA                           FUN          337     A     
 FUN                =X6    0                                                               FUN          338     A     
 FUN                SA7    A3          RESET IOA ENTRY                                     FUN          339     A     
 FUN                ADDWD  =XT.IOA     ADD ZERO WORD 2ND WORD PLACE HOLDER                 FUN          340          I
          -FC50239
 FUN                ADDWD  T.IOA       ADD ZERO WORD 2ND WORD PLACE HOLDER                 FC50239       14     A     
 FUN                SA1    APLEN                                                           FUN          341     A     
 FUN                =X6    X1+1                                                            FUN          342     A     
 FUN                SA6    A1          INCRIMENT APLEN                                     FUN          343          I
          -FC5A246
 FUN                SA6    A1          INCREMENT APLEN                                     FC5A246        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SB4    B4+Z=TURP                                                       FUN          344     A     
 FUN                EQ     EIS.PNX                                                         FUN          345     A     
 FUN       O=IOD    SPACE  4,10                                                            FUN          346     A     
 FUN      **        O=IOD  IO DATA PROCESSOR                                               FUN          347     A     
 FUN      *         SET UP SAP CALLS FOR DATA LENGTH AND ITEM                              FUN          348     A     
 FUN      *                                                                                FUN          349     A     
 FUN      *         ENTRY  (1OP) = DATA ITEM(ADDRESS)                                      FUN          350     A     
 FUN      *                (2OP) = DATA LENGTH                                             FUN          351     A     
 FUN                                                                                       FUN          352     A     
 FUN       O=IOD    BSSENT 0                                                               FUN          353     A     
 FUN                SB5    T.IOI                                                           FUN          354     A     
 FUN                SB6    T.IOA                                                           FUN          355     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN          356     A     
 FUN                CLAS=  X3,AT,(IO)                                                      FUN          357     A     
 FUN                                                                                       FUN          358     A     
 FUN      **        DETERMINE IF NUL(NOT UNITY LENGTH) BIT IS SET IN ATF                   FUN          359     A     
 FUN                                                                                       FUN          360     A     
 FUN                MX5    1                                                               FUN          361     A     
 FUN                =A1    B4+OR.1OP   GET DATA ITEM                                       FUN          362     A     
 FUN                LX5    1+AT.NULP                                                       FUN          363     A     
 FUN                =A2    A1+OR.2OP-OR.1OP                                                FUN          364     A     
 FUN                HX2    P2.SHRT                                                         FUN          365     A     
 FUN                PL     X2,IOD10    IF LENGTH OPERAND NOT SHORT CON                     FUN          366     A     
 FUN                LX2    1+P2.SHRTP-P2.BIASP                                             FUN          367     A     
 FUN                SX2    X2-1                                                            FUN          368     A     
 FUN                NZ     X2,IOD10    IF BIAS[2OP] NE 1                                   FUN          369     A     
 FUN                MX5    0           NUL[ATF] = 0                                        FUN          370     A     
 FUN                                                                                       FUN          371     A     
 FUN       IOD10    BX6    X3+X5                                                           FUN          372     A     
 FUN                SA6    ATF         ATF BITS SET - IO, CONDITIONAL NUL                  FUN          373     A     
 FUN                BX6    X5                                                              FUN          374     A     
 FUN                SA6    IODA        SAVE NUL BIT FOR LENGTH WORD                        FUN          375     A     
 FUN                RJ     IAW         ISSUE APLIST WORD FOR DATA ADDRESS                  FUN          376     A     
 FUN                CLAS=  X2,AT,(IO,LEN)                                                  FUN          377     A     
 FUN                SA5    IODA                                                            FUN          378     A     
 FUN                =A1    B4+OR.2OP                                                       FUN          379     A     
 FUN                BX6    X2+X5       INSERT NON-UNITY LENGTH PROPERTY                    FUN          380     A     
 FUN                SA6    ATF         ATF BITS SET - IO, LEN, CONDITIONAL NUL             FUN          381     A     
 FUN                RJ     IAW         ISSUE LENGTH OF ITEM                                FUN          382     A     
 FUN                SB4    B4+Z=TURP   RESET OPERATOR POINTER                              FUN          383     A     
 FUN                EQ     EIS.PNX                                                         FUN          384     A     
 FUN                                                                                       FUN          385     A     
 FUN       IODA     BSSZ   1                                                               FUN          386     A     
 FUN       O=IOF    SPACE  4,10                                                            FUN          387     A     
 FUN      **        O=IOF - ISSUE RJ TO I/O FUNCTION ROUTINE.                              FUN          388     A     
 FUN      *                                                                                FUN          389     A     
 FUN      *         ENTRY  (B4) = ADDRESS OF TURPLE.                                       FUN          390     A     
 FUN      *                (1OP) = SUBROUTINE TAG                                          FUN          391     A     
 FUN      *                (2OP) = RESTART INDICATOR                                       FUN          392     A     
 FUN      *                                                                                FUN          393     A     
 FUN      *         EXIT   (T.PB) UPDATED WITH...                                          FUN          394     A     
 FUN      *                SA1     AP-LIST POINTER                                         FUN          395     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                RJ      I/O ROUTINE                                             FUN          396     A     
 FUN      *                                                                                FUN          397     A     
 FUN      *         CALLS  CIA, CRJ, NAP                                                   FUN          398     A     
 FUN                                                                                       FUN          399     A     
 FUN                                                                                       FUN          400     A     
 FUN       O=IOF    BSSENT 0           ENTRY...                                            FUN          401     A     
 FUN                DRITE  DEACTIVATE                                                      FUN          402     A     
 FUN                CALL   CIA         CLEAR INTERMEDIATES / ASSOCIATES                    FUN          403     A     
 FUN                SA5    B4+OR.2OP   GET THE RESTART INDICATOR                           FUN          404     A     
 FUN                SA2    FAF         GET FIRST APLIST ITEM FLAG                          FUN          405     A     
 FUN                SB5    =XT.IOI                                                         FUN          406          I
          -FC50239
 FUN                SB6    =XT.IOA                                                         FUN          407          I
          -FC50239
 FUN                SB5    T.IOI                                                           FC50239       15     A     
 FUN                SB6    T.IOA                                                           FC50239       16     A     
 FUN                NZ     X2,IOF1     IF NON-EMPTY APLIST                                 FUN          408     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN          409     A     
 FUN                                                                                       FUN          410     A     
 FUN       IOF1     SA1    APLEN       GET CURRENT APLIST LENGTH                           FUN          411     A     
 FUN                BX6    X5                                                              FUN          412     A     
 FUN                =X7    0                                                               FUN          413     A     
 FUN                SBIT   X6,P2.BIASP                                                     FUN          414     A     
 FUN                SB3    X1+2        STEP APLEN FOR ZERO WORD TERMINATORS                FUN          415     A     
 FUN                AX6    59          SIGN EXTEND RESTART INDICATER                       FUN          416     A     
 FUN                =X5    IO          SET IO INDICATOR FOR NAP                            FUN          417     A     
 FUN                SA7    FAF         SET FIRST APLIST ITEM FLAG                          FUN          418     A     
 FUN                ADDWD  T.IOA       ADD RESTART WORD TO IO APLIST                       FUN          419     A     
 FUN                MX6    -1                                                              FUN          420     A     
 FUN                ADDWD  T.IOA       ADD ZERO WORD TO PAIR WITH RESTSRT                  FUN          421     A     
 FUN                RJ     NAP         ENTER THE AP-LIST IN T.APL                          FUN          422     A     
 FUN                HX6    IA.TAG                                                          FUN          423     A     
 FUN                AX6    -IA.TAGL    ISOLATE AP-LIST TAG                                 FUN          424     A     
 FUN                LX6    PB.TAGP     POSITION FOR PRE-BINARY                             FUN          425     A     
 FUN                SX1    SA=BK+100B  FORCE AP-LIST LOAD INTO *A1*                        FUN          426     A     
 FUN                LX1    PB.INSTP                                                        FUN          427     A     
 FUN                BX7    X1+X6       INSTRUCTION + AP-LIST TAG                           FUN          428     A     
 FUN                WCODE  X7          COMPILE LOAD OF AP-LIST                             FUN          429     A     
 FUN                =A1    B4+OR.1OP   FETCH I/O ROUTINE TAG                               FUN          430     A     
 FUN                LX6    X1                                                              FUN          431     A     
 FUN                SA3    TRACE                                                           FUN          432     A     
 FUN                CRJ    MUST        COMPILE THE RJ TO I/O ROUTINE                       FUN          433     A     
 FUN                EQ     NULLOP                                                          FUN          434     A     
 FUN                                                                                       FUN          435     A     
 FUN       O=IOU    SPACE  4,10                                                            FUN          436     A     
 FUN      **        O=IOU - IO UNIT TURPLE.  IT IS REALLY A IOC TURPLE                     FUN          437     A     
 FUN      *         WHO, UNLIKE OTHER IOC TURPLES HAS A 2OP THAT IS A LENGTH               FUN          438     A     
 FUN      *         SPECIFIER, SO WE TREAT IT LIKE AN IOD-IOC HYBRED                       FUN          439     A     
 FUN      *                                                                                FUN          440     A     
 FUN      *         ENTRY - (OR.1OP) = UNIT ITEM                                           FUN          441     A     
 FUN      *                 (OR.2OP) = LENGTH                                              FUN          442     A     
 FUN                                                                                       FUN          443     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN          444     A     
 FUN       O=IOU    BSSENT 0                                                               FUN          445     A     
 FUN                SB5    T.IOI                                                           FUN          446     A     
 FUN                SB6    T.IOA                                                           FUN          447     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN          448     A     
 FUN                                                                                       FUN          449     A     
 FUN      **        FIRST SET UP ATF BITS FOR UNIT                                         FUN          450     A     
 FUN      *         WE SET: IO, IOC .... ALWAYS                                            FUN          451     A     
 FUN      *                 NUL ...  WHEN LENGTH NOT SHORT CON = 1                         FUN          452     A     
 FUN                                                                                       FUN          453     A     
 FUN                CLAS=  X1,AT,(IO,IOC)                                                  FUN          454     A     
 FUN                MX5    1                                                               FUN          455     A     
 FUN                LX5    1+AT.NULP                                                       FUN          456     A     
 FUN                SA2    B4+OR.2OP   GET LENGTH                                          FUN          457     A     
 FUN                HX2    P2.SHRT                                                         FUN          458     A     
 FUN                PL     X2,IOU10    IF NOT SHORT CON LENGTH                             FUN          459     A     
 FUN                LX2    1+P2.SHRTP-P2.BIASP                                             FUN          460     A     
 FUN                SX2    X2-1                                                            FUN          461     A     
 FUN                NZ     X2,IOU10    IF LENGTH NE 1                                      FUN          462     A     
 FUN                MX5    0                                                               FUN          463     A     
 FUN                                                                                       FUN          464     A     
 FUN       IOU10    BX6    X1+X5       MERGE NUL WITH IO AND IOC BITS                      FUN          465     A     
 FUN                SA6    ATF                                                             FUN          466     A     
 FUN                BX6    X5                                                              FUN          467     A     
 FUN                SA6    IODA        SAVE NUL BIT                                        FUN          468     A     
 FUN                =A1    B4+OR.1OP   GET UNIT                                            FUN          469     A     
 FUN                RJ     IAW         ISSUE APLIS WORD                                    FUN          470     A     
 FUN                MX0    -IA.MODEL                                                       FUN          471     A     
 FUN                SA1    T.IOA       GET FWA                                             FUN          472     A     
 FUN                SA2    T=IOA       GET LEN                                             FUN          473     A     
 FUN                IX3    X1+X2       (X3) = LWA +1                                       FUN          474     A     
 FUN                SA5    X3-1        GET APL ITEM FOR UNIT TO REPLACE MODE               FUN          475     A     
 FUN                =X1    IC.UNT      (X1) = IO UNIT CONTROL CODE                         FUN          476     A     
 FUN                LX5    -IA.MODEP                                                       FUN          477     A     
 FUN                BX6    X0*X5       EXTRACT MODE FROM UNIT ENTRY                        FUN          478     A     
 FUN                BX6    X6+X1       MODE[UNIT] = IC.UNIT                                FUN          479     A     
 FUN                LX6    IA.MODEP    RESET IOA ENTRY                                     FUN          480     A     
 FUN                SA6    A5          RE-ENTER UNIT                                       FUN          481     A     
 FUN                                                                                       FUN          482     A     
 FUN      **        SET UP ATF FOR LENGTN                                                  FUN          483     A     
 FUN      *         SAME AS UNIT ONLY LEN BIT IS SET                                       FUN          484     A     
 FUN                                                                                       FUN          485     A     
 FUN                CLAS=  X1,AT,(IOC,IO,LEN)                                              FUN          486     A     
 FUN                SA5    IODA                                                            FUN          487     A     
 FUN                BX6    X1+X5       INSERT NUL PROPERTY                                 FUN          488     A     
 FUN                SA6    ATF                                                             FUN          489     A     
 FUN                SA1    B4+OR.2OP   GET LENGTH OPERAND                                  FUN          490     A     
 FUN                RJ     IAW         PROCESS LENGTH WORD                                 FUN          491     A     
 FUN                SB4    B4+Z=TURP                                                       FUN          492     A     
 FUN                EQ     EIS.PNX                                                         FUN          493     A     
 FUN       O=SUB    SPACE  4,10                                                            FUN          494     A     
 FUN      **        O=SUB - ISSUE SUBROUTINE CALL.                                         FUN          495     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                                                                                FUN          496     A     
 FUN      *         ENTRY  (1OP) = ROUTINE TAG.                                            FUN          497     A     
 FUN      *                (B4) -> TURPLE BEING PROCESSED.                                 FUN          498     A     
 FUN      *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*                FUN          499     A     
 FUN      *                            TURPLES --                                          FUN          500     A     
 FUN      *                (APLEN) SET-UP BY *O=ARG*.                                      FUN          501     A     
 FUN      *                (T.APL) SET-UP BY *O=ARG*.                                      FUN          502     A     
 FUN      *         EXIT   TO *EIS.PNX*.                                                   FUN          503     A     
 FUN      *                (B4) ADVANCED.                                                  FUN          504     A     
 FUN      *         CALLS  PEJ                                                             FUN          505     A     
 FUN                                                                                       FUN          506     A     
 FUN                                                                                       FUN          507     A     
 FUN       O=LIB    BSSENT             ENTRY...                                            FUN          508     A     
 FUN                SX6    1           NO TERMINTOR                                        FUN          509     A     
 FUN                EQ     SUB10                                                           FUN          510     A     
 FUN                                                                                       FUN          511     A     
 FUN       O=SUB    BSSENT             ENTRY...                                            FUN          512     A     
 FUN                SA2    CO.ARGF                                                         FUN          513     A     
 FUN                BX6    X2          TERMINATOR ACCORD. TO ARG=FIXED                     FUN          514     A     
 FUN                                                                                       FUN          515     A     
 FUN       SUB10    SA6    FUNA                                                            FUN          516     A     
 FUN                SA2    FAF         GET FIRST APLIST ITEM INDICATOR                     FUN          517     A     
 FUN                SB5    T.API                                                           FUN          518     A     
 FUN                SB6    T.SAP                                                           FUN          519     A     
 FUN                SX5    A2+         SAVE ADDRESS OF FAF ACROSS IAS                      FUN          520     A     
 FUN                NZ     X2,SUB1     IF NOT EMPTY APLIST                                 FUN          521     A     
 FUN                NZ     X6,SUB1     IF NO TERMINATOR REQUIRED                           FUN          522     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN          523     A     
 FUN                                                                                       FUN          524     A     
 FUN       SUB1     =X7    0                                                               FUN          525     A     
 FUN                SA7    X5          SET FAF TO INDICATE FIRST ITEM                      FUN          526     A     
 FUN                =A2    B4+OR.1OP                                                       FUN          527     A     
 FUN                BX6    X2                                                              FUN          528     A     
 FUN                SA6    ROUTNAM                                                         FUN          529     A     
 FUN                SA1    FUNA        ZERO TERMINATOR FLAG                                FUN          530     A     
 FUN                RJ     PEJ         PROCESS EXTERNAL JUMP                               FUN          531     A     
 FUN                MX6    0                                                               FUN          532     A     
 FUN                SHRINK T=SAP,X6                                                        FUN          533     A     
 FUN                EQ     NULLOP      EXIT..                                              FUN          534     A     
 FUN                TITLE  SUBROUTINES.                                                    FUN          535     A     
 FUN       AAP      SPACE  4,10                                                            FUN          536     A     
 FUN      **        AAP - ADD WORD TO APLIST                                               FUN          537     A     
 FUN      *                                                                                FUN          538     A     
 FUN      *         ENTRY  (X1) = OPERAND OR STATUS WORD TO PASS TO APL                    FUN          539     A     
 FUN      *                (B7) = PLUG FLAG                                                FUN          540     A     
 FUN      *                                                                                FUN          541     A     
 FUN      *         EXIT   (X5) = PRESERVED                                                FUN          542     A     
 FUN      *                (X6) = IA. WORD PASSED/TO PASS TO APL                           FUN          543     A     
 FUN      *                                                                                FUN          544     A     
 FUN      *         USES   ALL BUT (B5)                                                    FUN          545     A     
 FUN                                                                                       FUN          546     A     
 FUN                                                                                       FUN          547     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN       AAP      SUBR               ENTRY/EXIT.                                         FUN          548     A     
 FUN                SA5    ATF                                                             FUN          549     A     
 FUN                =X6    0           CLEAR X6                                            FUN          550     A     
 FUN                                                                                       FUN          551     A     
 FUN      **        EXTRACT IA. INFORMATION FROM ATF                                       FUN          552     A     
 FUN                                                                                       FUN          553     A     
 FUN       .ATF     ECHO   ,FLD=(IOC,CHAR,MODE)                                            FUN          554     A     
 FUN                CLAS=  X3,AT,FLD                                                       FUN          555     A     
 FUN                BX0    X3*X5                   EXTRACT ATF FIELD                       FUN          556     A     
 FUN                LX0    -AT.FLD_P+IA.FLD_P      POSITION FIELD IN IA. POSITION          FUN          557     A     
 FUN                BX6    X0+X6                   MERGE IN FIELD TO IA WORD               FUN          558     A     
 FUN       .ATF     ENDD                                                                   FUN          559     A     
 FUN                                                                                       FUN          560     A     
 FUN      **        EXTRACT P2 FIELDS FROM STATUS WORD                                     FUN          561     A     
 FUN                                                                                       FUN          562     A     
 FUN                MX3    P2.ORDL+P2.BIASL                                                FUN          563     A     
 FUN                LX3    P2.ORDL+P2.BIASL+P2.ORBIP                                       FUN          564     A     
 FUN                BX0    X3*X1       TAG + BIAS                                          FUN          565     A     
 FUN                LX0    IA.ORBIP-P2.ORBIP                                               FUN          566     A     
 FUN                BX6    X0+X6                                                           FUN          567     A     
 FUN                MX3    P2.PFXL                                                         FUN          568     A     
 FUN                LX3    P2.PFXL+P2.PFXP                                                 FUN          569     A     
 FUN                BX0    X3*X1                                                           FUN          570     A     
 FUN                LX0    IA.TAGP+P=PFX-P2.PFXP  REPOSITION PFX                           FUN          571     A     
 FUN                BX6    X0+X6                                                           FUN          572     A     
 FUN                SX0    B7                                                              FUN          573     A     
 FUN                LX0    IA.STP      POSITION STORE BIT                                  FUN          574     A     
 FUN                SA1    WO.DOOT                                                         FUN          575     A     
 FUN                LX1    IA.VARP                                                         FUN          576     A     
 FUN                BX0    X0+X1       VAR[IA] = DOTRIP                                    FUN          577     A     
 FUN                BX6    X6+X0       MERGE IN STORE BIT                                  FUN          578     A     
 FUN                SA1    APTAB                                                           FUN          579     A     
 FUN                SBIT   X5,AT.SPRP                                                      FUN          580     A     
 FUN                MI     X5,EXIT.    IF SPACE PREVIOUSLY RESERVED                        FUN          581     A     
 FUN                ADDWD  X1          ADD IA WORD TO APTAB                                FUN          582     A     
 FUN                SA1    APLEN                                                           FUN          583     A     
 FUN                SX7    X1+1                                                            FUN          584     A     
 FUN                SA7    APLEN                                                           FUN          585     A     
 FUN                EQ     EXIT.                                                           FUN          586     A     
 FUN       BGA      SPACE  4,10                                                            FUN          587     A     
 FUN      **        BGA - BUILD GENERATED APLIST                                           FUN          588     A     
 FUN      *         BGA CONTROL THE CONSTRUCTION OF APLISTS PASSED TO                      FUN          589          I
          -FC5A246
 FUN      *         LIBRARY CHARACTER ROUTINES.  IT  CALLS GNO, THE CONCATINATION          FUN          590          I
          -FC5A246
 FUN      *                                                                                FC5A246        9     A     
 FUN      *         BGA CONTROLS THE CONSTRUCTION OF APLSITS PASSED TO                     FC5A246       10     A     
 FUN      *         LIBRARY CHARACTER ROUTINES.  IT CALLS GNO, THE CONCATENATION           FC5A246       11     A     
 FUN      *         TREE SPANNER  AND PASSES THE LEAVES ON TO PCI,THE APLIST ITEM          FUN          591     A     
 FUN      *         PROCESSOR                                                              FUN          592     A     
 FUN      *                                                                                FUN          593     A     
 FUN      *         ENTRY - (X5) = OPERAND TO PASS TO APLIST                               FUN          594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                                                                                FUN          595     A     
 FUN      *         USES ALL                                                               FUN          596     A     
 FUN      *                                                                                FUN          597     A     
 FUN      *         CALLS GNO,PCI(WHICH OFTEN CALLS ALL OF EIS)                            FUN          598     A     
 FUN                                                                                       FUN          599     A     
 FUN                                                                                       FUN          600     A     
 FUN       BGA      SUBR               ENTRY/EXIT.                                         FUN          601     A     
 FUN                SX0    RLOCK       SET LOCK BIT TO MARK 1ST OPD                        FUN          602     A     
 FUN                BX7    X0+X5       LOCK FIRST CURRENT-LINK                             FUN          603     A     
 FUN                                                                                       FUN          604     A     
 FUN      **        TRICK - WE SET THE I. L. ORDINAL FIELD OF THE                          FUN          605     A     
 FUN      *         1ST LAST-LINK TO:  THE I. L. LENGTH - Z=TURP. THIS                     FUN          606     A     
 FUN      *         POINTS TO A DUMMY TURPLE WHO'S 2ND OPERAND IS THE                      FUN          607     A     
 FUN      *         ZERO WORD AT THE END OF THE I. L.  THE COMBINA-                        FUN          608     A     
 FUN      *         TION OF MARKING THE 1ST CURRENT-LINK AS A 1ST                          FUN          609     A     
 FUN      *         OPERAND AND THEN ARANGING ITS CORESPONDING LAST-                       FUN          610     A     
 FUN      *         LINK TO POINT TO A DUMMY OPERAND WITH A ZERO 2OP,                      FUN          611     A     
 FUN      *         TRICKS GNO INTO RETURNING A ZERO CURRENT-LINK WHEN                     FUN          612     A     
 FUN      *         THE TREE WALK SHOULD TERMINATE.                                        FUN          613     A     
 FUN                                                                                       FUN          614     A     
 FUN                =X6    0                                                               FUN          615     A     
 FUN                SA7    LNK.CUR                                                         FUN          616     A     
 FUN                SA2    T=PAR       GET I. L. LENGTH                                    FUN          617     A     
 FUN                SA6    CLEN        INITIALIZE CHAR LEN COUNTER FOR THIS LIST           FUN          618     A     
 FUN                SX6    X2-Z=TURP   DUMMY ORDINAL TO INITIALIZE LNK.LST                 FUN          619     A     
 FUN                LX6    P2.BIASP    POSITION DUMMY ORDINAL                              FUN          620     A     
 FUN                BX5    X7                                                              FUN          621     A     
 FUN                SA6    LNK.LST                                                         FUN          622     A     
 FUN                RJ     GAS         GET APLIST STATUS OF OPERAND                        FUN          623     A     
 FUN                GE     B1,B2,BGA1  IF NOT IN  A TEMP                                   FUN          624     A     
 FUN                RJ     PCI         PROCESS CHAR ITEM                                   FUN          625     A     
 FUN                EQ     EXIT.                                                           FUN          626     A     
 FUN                                                                                       FUN          627     A     
 FUN       BGA1     ZR     X5,EXIT.    IF WALK DONE                                        FUN          628     A     
 FUN                RJ     GNO         GET NEXT OPERAND                                    FUN          629     A     
 FUN                SA5    LEAF                                                            FUN          630     A     
 FUN                RJ     PCI         PROCESS CHARACTER ITEM                              FUN          631     A     
 FUN                SA5    LNK.CUR                                                         FUN          632     A     
 FUN                EQ     BGA1                                                            FUN          633     A     
 FUN       CCA      SPACE  4,8                                                             FUN          634     A     
 FUN      **        CCA - COMPLETE CHARACTER ARRAY REFERENCE.                              FUN          635     A     
 FUN      *                                                                                FUN          636     A     
 FUN      *         ENTRY  (X1) = INDEX OPERAND.                                           FUN          637     A     
 FUN                                                                                       FUN          638     A     
 FUN       CCA      SUBR                                                                   FUN          639     A     
 FUN                MX7    0                                                               FUN          640     A     
 FUN                SA7    ATF         INDEX IS NOT TYPE CHAR                              FUN          641     A     
 FUN                RJ     SAP         PASS ADDRESS FUNCTIION TO APLIST                    FUN          642     A     
 FUN                SA2    S=FAR       GET ARRAY PROCESSOR SYMBOL ORDINAL                  FUN          643     A     
 FUN                LX2    P2.TAGP     POSITION ROUTINE NAME                               FUN          644     A     
 FUN                BX6    X2                                                              FUN          645     A     
 FUN                =X1    1           SUPPRESS ZERO TERMINATOR                            FUN          646     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SA6    ROUTNAM                                                         FUN          647     A     
 FUN                RJ     PEJ         PROCESS EXTERNAL JUMP                               FUN          648     A     
 FUN                RJ     PAS         POP APLIST STRUCTURES                               FUN          649     A     
 FUN                RJ     SCI         STORE CHARACTER ITEM                                FUN          650     A     
 FUN                =A5    B4+OR.1OP   GET ARRAY OPERAND                                   FUN          651     A     
 FUN                RJ     GAS                                                             FUN          652     A     
 FUN                =B6    1           SET STORE TO APLIST FLAG                            FUN          653     A     
 FUN                RJ     ECA         ENTER DUMMY ITEM TO CALLER'S APLIST                 FUN          654     A     
 FUN                EQ     EXIT.                                                           FUN          655     A     
 FUN       CCT      SPACE  4,10                                                            FUN          656     A     
 FUN      **        CCT - CREATE CHARACTER TEMP                                            FUN          657     A     
 FUN      *                                                                                FUN          658     A     
 FUN      *         ENTRY  (X5) = I. L. OPERAND                                            FUN          659     A     
 FUN      *                (X1) = CLEN                                                     FUN          660     A     
 FUN      *                (B6) = SPR(SPACE PREVIOULSY RESERVED) BIT                       FUN          661     A     
 FUN      *                                                                                FUN          662     A     
 FUN      *         EXIT   (X6) = APL ENTRY FOR OPERAND                                    FUN          663     A     
 FUN      *                                                                                FUN          664     A     
 FUN      *         USES ALL                                                               FUN          665     A     
 FUN      *                                                                                FUN          666     A     
 FUN      *         CALLS ECA,ECA,SSC                                                      FUN          667     A     
 FUN      *                                                                                FUN          668     A     
 FUN      *         NOTE - CCT INHIBITS AAP FORM ACTUALLY MAKING AN ENTRY                  FUN          669     A     
 FUN      *                WHENEVET (B6) = 1 ON ENTRY. IN THAT CASE THE                    FUN          670     A     
 FUN      *                IS THE CALLERS.                                                 FUN          671     A     
 FUN      *                                                                                FUN          672     A     
 FUN                                                                                       FUN          673     A     
 FUN                                                                                       FUN          674     A     
 FUN       CCT      SUBR               ENTRY/EXIT                                          FUN          675     A     
 FUN                BX6    X1                                                              FUN          676     A     
 FUN                CW     X2,X6                                                           FUN          677     A     
 FUN                SA3    N.ST        GET INDEX OF THIS TEMP                              FUN          678     A     
 FUN                SX0    B6          GET SPR BIT                                         FUN          679     A     
 FUN                IX6    X2+X3       INCREMENT TEMP COUNT BY NO OF WDS. NEEDED           FUN          680     A     
 FUN                SA2    ATF                                                             FUN          681     A     
 FUN                LX0    AT.SPRP                                                         FUN          682     A     
 FUN                SA6    A3          RESET N.ST                                          FUN          683     A     
 FUN                BX7    X0+X2       ADD IN SPR PROPERTY                                 FUN          684     A     
 FUN                LX1    WC.CLENP    POSITION CLEN OF TEMP                               FUN          685     A     
 FUN                SA7    A2          RESET ATF                                           FUN          686     A     
 FUN                LX3    WC.RAP      POSITION TEMP ARRAY BIAS                            FUN          687     A     
 FUN                BX6    X3+X1       MERGE CLEN AN ARRAY INDEX                           FUN          688     A     
 FUN                RJ     ECW         ENTER CAC WORD                                      FUN          689     A     
 FUN                                                                                       FC5A243       24     A     
 FUN      *         MARK EXPRESSION IN TEMPORARY, UNLESS IT INCLUDES A                     FC5A243       25     A     
 FUN      *         VARIABLE SUBSTRING.  IN THAT CASE, WE NEED TO REEVALUATE               FC5A243       26     A     
 FUN      *         EXPRESSION BECAUSE APLIST WORD WITH CORRECT LENGTH IS                  FC5A243       27     A     
 FUN      *         RETURNED FROM MMC. AND MUST BE STORED TO OUTER APLIST.                 FC5A243       28     A     
 FUN                                                                                       FC5A243       29     A     
 FUN                SA6    CCTC                                                            FC5A243       30     A     
 FUN                SA3    S=ST        GET SYMBOL ORDINAL OF TEMPORARY ARRAY               FUN          690     A     
 FUN                RJ     SSC         SET STATUS OF CHARACTER OPERAND                     FUN          691     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SA2    CCTB                                                            FC5A243       31     A     
 FUN                NZ     X2,CCT20    IF VARIABLE LENGTH EXPRESSION                       FC5A243       32     A     
 FUN                MX0    1                                                               FUN          692     A     
 FUN                LX0    1+ST.CTMP                                                       FUN          693     A     
 FUN                BX6    X0+X1       CTM[STATUS] = 1                                     FUN          694     A     
 FUN                SA6    A1                                                              FUN          695          I
          -FC5A243
 FUN                                                                                       FC5A243       33     A     
 FUN       CCT10    SA6    A1                                                              FC5A243       34     A     
 FUN                SA6    CCTA        SAVE FOR MAIN APLIST                                FUN          696     A     
 FUN                SB6    0                                                               FUN          697     A     
 FUN                RJ     ECA         ENTER CHARACTER ITEM                                FUN          698     A     
 FUN                EQ     EXIT.                                                           FUN          699     A     
 FUN                                                                                       FC5A243       35     A     
 FUN       CCT20    SA2    N.ST                                                            FC5A243       36     A     
 FUN                SA3    CCTC                                                            FC5A243       37     A     
 FUN                SA5    T.OUS                                                           FC5A243       38     A     
 FUN                SB6    X5                                                              FC5A243       39     A     
 FUN                SX6    A1-B6                                                           FC5A243       40     A     
 FUN                SA6    A3          SAVE STATUS WORD OFFSET                             FC5A243       41     A     
 FUN                BX6    X1                                                              FC5A243       42     A     
 FUN                MX0    WC.RAL                                                          FC5A243       43     A     
 FUN                =X7    X2+1        RESERVE TEMP FOR ADJUSTED-LENGTH ITEM               FC5A243       44     A     
 FUN                LX0    WC.RAL+WC.RAP                                                   FC5A243       45     A     
 FUN                SA6    CCTD        SAVE ORIGINAL ITEM                                  FC5A243       46     A     
 FUN                SA7    A2                                                              FC5A243       47     A     
 FUN                LX2    WC.RAP                                                          FC5A243       48     A     
 FUN                BX6    -X0*X3      CLEAR OFFSET                                        FC5A243       49     A     
 FUN                BX6    X2+X6       INSTALL NEW TEMP OFFSET                             FC5A243       50     A     
 FUN                RJ     ECW         ENTER NEW CAC WORD                                  FC5A243       51     A     
 FUN                SA5    CCTD        RESTORE ORIGINAL ITEM                               FC5A243       52     A     
 FUN                SA3    S=ST                                                            FC5A243       53     A     
 FUN                SX0    B7          CAC OFFSET                                          FC5A243       54     A     
 FUN                LX3    P2.TAGP                                                         FC5A243       55     A     
 FUN                LX0    P2.BIASP                                                        FC5A243       56     A     
 FUN                BX2    X3+X0                                                           FC5A243       57     A     
 FUN                CLAS=  X3,ST,(CTM,CAC,UKL)                                             FC5A243       58     A     
 FUN                BX6    X2+X3       STATUS IS ADJUSTED-LENGTH ITEM                      FC5A243       59     A     
 FUN                SA2    T.OUS                                                           FC5A243       60     A     
 FUN                SA3    CCTC                                                            FC5A243       61     A     
 FUN                IX0    X2+X3                                                           FC5A243       62     A     
 FUN                SA1    X0          RESTORE STATUS WORD ADDRESS                         FC5A243       63     A     
 FUN                BX1    X5          RESTORE ORIGINAL STATUS WORD FOR ECW                FC5A243       64     A     
 FUN                EQ     CCT10                                                           FC5A243       65     A     
 FUN                                                                                       FUN          700     A     
 FUN       CCTA     BSS    1                                                               FUN          701     A     
 FUN       CCTB     BSSZ   1                                                               FC5A243       66     A     
 FUN       CCTC     BSS    1                                                               FC5A243       67     A     
 FUN       CCTD     BSS    1                                                               FC5A243       68     A     
 FUN       DAC      SPACE  4,10                                                            FUN          702     A     
 FUN      **        DAC    DETERMINE APLIST COMPLEXITY                                     FUN          703     A     
 FUN      *                                                                                FUN          704     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *         THIS ROUTINE IS CALLED WHENEVER A CHARACTOR TYPE                       FUN          705     A     
 FUN      *         OPERAND IS DETECTED DURING APLIST (IO OR USER)                         FUN          706     A     
 FUN      *         ITS PURPOSE IS TO DETERMINE WHETHER STACKING IS                        FUN          707     A     
 FUN      *         NECESSARY AND IF SO TO CALL THE CORRECT SUPPORT                        FUN          708     A     
 FUN      *         ROUTINES.                                                              FUN          709     A     
 FUN      *                                                                                FUN          710     A     
 FUN      *         ENTRY  (X5) = OPERAND                                                  FUN          711     A     
 FUN      *                                                                                FUN          712     A     
 FUN      *         EXIT   ENTRY MADE IN APLIST FOR OPERAND                                FUN          713     A     
 FUN      *                                                                                FUN          714     A     
 FUN      *         USES ALL                                                               FUN          715     A     
 FUN      *         CALLS  PCI,BGA,GCT,CGA,GAS,PAS,SAS                                     FUN          716     A     
 FUN                                                                                       FUN          717     A     
 FUN                                                                                       FUN          718     A     
 FUN       DAC      SUBR               ENTRY/EXIT.                                         FUN          719     A     
 FUN                BX3    X5                                                              FUN          720     A     
 FUN                SBIT   X3,P2.CNCTP POSITION CONCAT BIT                                 FUN          721     A     
 FUN                RJ     GAS         GET STATUS OF APLIST OPERAND                        FUN          722     A     
 FUN                BX7    X5                                                              FUN          723     A     
 FUN                SA7    DACA        SAVE OPERAND                                        FUN          724     A     
 FUN                PL     X3,DAC1     IF ITEM  NOT ACONCATINATION                         FUN          725          I
          -FC5A246
 FUN                PL     X3,DAC1     IF ITEM NOT A CONCATENATION TREE                    FC5A246       12     A     
 FUN                LT     B1,B2,DAC1  IF IN A TEMP                                        FUN          726     A     
 FUN                                                                                       FUN          727     A     
 FUN      **        WE MUST BUILD AN APLIST FROM THE CONCATINATION TREE                    FUN          728          I
          -FC5A246
 FUN      **        WE MUST BUILD AN APLIST FROM THE CONCATENATION TREE                    FC5A246       13     A     
 FUN      *                 ALLOCATE TEMP STORAGE                                          FUN          729     A     
 FUN      *                 CREATE AN APLIST ENTRY FOR THE TEMP                            FUN          730     A     
 FUN                                                                                       FUN          731     A     
 FUN                RJ     SAS         STACK APLIST STRUCTURES                             FUN          732     A     
 FUN                =X6    0                                                               FUN          733     A     
 FUN                ADDWD  T.SAP       RESERVE SPACE FOR TEMP CELL                         FUN          734     A     
 FUN                SA1    APLEN                                                           FUN          735     A     
 FUN                =X6    X1+1                                                            FUN          736     A     
 FUN                SA6    A1          INCRIMENT APLEN                                     FUN          737          I
          -FC5A246
 FUN                SA6    A1          INCREMENT APLEN                                     FC5A246       14     A     
 FUN                MX7    0                                                               FC5A243       69     A     
 FUN                SA7    FVSUKL                                                          FC5A243       70     A     
 FUN                RJ     BGA         BUILD GENERATED APLIST (INSERT CONCAT APL)          FUN          738     A     
 FUN                SA1    CLEN        SET CHARACTER LENGTH                                FUN          739     A     
 FUN                =B6    1           SET SPACE PREVIOUSLY RESERVED FLAG FOR TEMP         FUN          740     A     
 FUN                SA5    DACA        GET ORIGINAL OPERAND                                FUN          741     A     
 FUN                SA3    FVSUKL                                                          FC5A243       71     A     
 FUN                BX7    X3                                                              FC5A243       72     A     
 FUN                SA7    CCTB                                                            FC5A243       73     A     
 FUN                RJ     CCT         CREATE CHAR TEMP                                    FUN          742     A     
 FUN                MX7    0                                                               FC5A243       74     A     
 FUN                SA7    CCTB        RESTORE ST.CTMP SETTING                             FC5A243       75     A     
 FUN                SA1    APTAB                                                           FUN          743     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SA2    X1          (X2) = FWA OF APLIST TAB                            FUN          744     A     
 FUN                AX1    18          POSITION INDEX TO   FIRST WORD OF THIS LIST         FUN          745     A     
 FUN                IX2    X1+X2                                                           FUN          746     A     
 FUN                SA6    X2          SET TEMP APL IN PREVIOUSLY RESERVED SPACE           FUN          747     A     
 FUN                SA1    S=MMC       SYMBOL ORDINAL OF MOVE ROUTINE                      FUN          748     A     
 FUN                SX7    X1                                                              FUN          749     A     
 FUN                LX7    P2.TAGP                                                         FUN          750     A     
 FUN                SA7    ROUTNAM     SET ROUTINE NAME FOR PEJ                            FUN          751     A     
 FUN                MX1    0           REQUEST ZERO TERMINATOR                             FUN          752     A     
 FUN                RJ     PEJ         PROCESS EXTERNAL JUMP                               FUN          753     A     
 FUN                RJ     PAS         POP APLIST STRUCTURE                                FUN          754     A     
 FUN                SA1    FVSUKL                                                          FC5A243       76     A     
 FUN                ZR     X1,DAC5     IF EXPRESSION LENGTH EXACTLY KNOWN                  FC5A243       77     A     
 FUN                RJ     SCI         STORE NEW APLIST WORD FROM MMC. TO APL              FC5A243       78     A     
 FUN                SA1    CCTA                                                            FC5A243       79     A     
 FUN                RJ     SUA         SAVE UNKNOWN-LENGTH APLIST                          FC5A243       80     A     
 FUN                SA1    FVSUKL                                                          FC5A243       81     A     
 FUN                                                                                       FC5A243       82     A     
 FUN       DAC5     SB6    X1          STORE-TO-APLIST FLAG                                FC5A243       83     A     
 FUN                SA1    CCTA        TEMP SAVED BY CCT                                   FUN          755     A     
 FUN                SB6    0                                                               FUN          756          I
          -FC5A243
 FUN                RJ     ECA         ISSUE TEMP AS MAIN APLIST                           FUN          757     A     
 FUN                EQ     EXIT.                                                           FUN          758     A     
 FUN                                                                                       FUN          759     A     
 FUN       DAC1     SA5    DACA        GET ORIGINAL OPERAND                                FUN          760     A     
 FUN                RJ     PCI         PROCESS CHARACTER ITEM                              FUN          761     A     
 FUN                EQ     EXIT.                                                           FUN          762     A     
 FUN                                                                                       FUN          763     A     
 FUN       DACA     BSS    1                                                               FUN          764     A     
 FUN       DAT      SPACE  4,8                                                             FC5A243       84     A     
 FUN      **        DAT - DEFINE APLIST ADJUSTED-LENGTH TEMP FOR SKEL.                     FC5A243       85     A     
 FUN      *                                                                                FC5A243       86     A     
 FUN      *         ENTRY  B6 = CAC ORDINAL FROM STATUS WORD                               FC5A243       87     A     
 FUN                                                                                       FC5A243       88     A     
 FUN       DAT      SUBR                                                                   FC5A243       89     A     
 FUN                SA1    T.CAC                                                           FC5A243       90     A     
 FUN                SA2    X1+B6                                                           FC5A243       91     A     
 FUN                SA3    S=ST                                                            FC5A243       92     A     
 FUN                LX2    -WC.RAP                                                         FC5A243       93     A     
 FUN                LX3    P2.TAGP                                                         FC5A243       94     A     
 FUN                SX0    X2                                                              FC5A243       95     A     
 FUN                LX0    P2.BIASP                                                        FC5A243       96     A     
 FUN                BX2    X0+X3                                                           FC5A243       97     A     
 FUN                =X6    0                                                               FC5A243       98     A     
 FUN                CALL   POS         PREPARE OPERAND                                     FC5A243       99     A     
 FUN                SA6    REG=G       GL1 FOR SKELETON                                    FC5A243      100     A     
 FUN                EQ     EXIT.                                                           FC5A243      101     A     
 FUN       DCF      SPACE  4,10                                                            FUN          765     A     
 FUN      **        DCF - DEFINE CHARACTER FUNCTION                                        FUN          766     A     
 FUN      *         JUST AS DIT IN REG DEFINES AN INTERMIDIATE IN                          FUN          767     A     
 FUN      *         THE REGFILE AND SETS REGISTER STATUS,  DCF                             FUN          768     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *         DEFINES TEMPORARY STORAGE AND SETS STATUS FOR A CHARACTER              FUN          769     A     
 FUN      *         FUNCTION INTERMEDIATE.                                                 FUN          770     A     
 FUN      *                                                                                FUN          771     A     
 FUN      *         ENTRY  ((B4)+OR.1OP) = FUNCTION                                        FUN          772     A     
 FUN      *                                                                                FUN          773     A     
 FUN      *         EXIT   STATUS WORD SET                                                 FUN          774     A     
 FUN      *                TEMP STORAGE SET                                                FUN          775     A     
 FUN      *                                                                                FUN          776     A     
 FUN      *         CALL - CCT                                                             FUN          777     A     
 FUN                                                                                       FUN          778     A     
 FUN                                                                                       FUN          779     A     
 FUN       DCF      SUBR               ENTRY/EXIT.                                         FUN          780     A     
 FUN                SA1    B4+OR.1OP   GET FUNCTION                                        FUN          781     A     
 FUN                AX1    P2.TAGP     POSITION ROUTINE NAMD                               FUN          782     A     
 FUN                ERRNZ  60-P2.TAGP-P2.TAGL                                              FUN          783     A     
 FUN                CLAS=  X4,OP,2ORD                                                      FUN          784     A     
 FUN                SA3    B4+OR.OPR   GET OPERATOR                                        FUN          785     A     
 FUN                BX3    X4*X3       EXTRACT OUS ORDINAL                                 FUN          786     A     
 FUN                =X0    1                                                               FUN          787     A     
 FUN                LX3    -OP.2ORDP+P2.TAGP SET DUMMY TAG FOR SSC                         FUN          788     A     
 FUN                BX4    X3+X0             ASIGN DUMMY USE COUNT                         FUN          789     A     
 FUN                ERRNZ  P2.USEP                                                         FUN          790     A     
 FUN                CALL   GCL         GET CHARACTER LENGTH                                FUN          791     A     
 FUN                BX5    X4                                                              FUN          792     A     
 FUN                =B6    1           SPACE PREVIOUSLY RESERVED                           FUN          793     A     
 FUN                RJ     CCT                                                             FUN          794     A     
 FUN                SA1    APTAB                                                           FUN          795     A     
 FUN                SA2    X1                                                              FUN          796     A     
 FUN                SB2    X2                                                              FUN          797     A     
 FUN                AX1    18          POSITION FIRST WORD INDEX OF THIS LIST              FUN          798     A     
 FUN                SA6    B2+X1       STORE IA. WORD IN FW OF LIST                        FUN          799     A     
 FUN                EQ     EXIT.                                                           FUN          800     A     
 FUN       ECA      SPACE  4,10                                                            FUN          801     A     
 FUN      **        ECA - ENTER CHARACTER ITEM TO APLIST                                   FUN          802     A     
 FUN      *         THE MAIN JOB IS TO SET THE CHARACTER SPECIFIC                          FUN          803     A     
 FUN      *         FIELDS IN ATF AND CALL AAP.                                            FUN          804     A     
 FUN      *                                                                                FUN          805     A     
 FUN      *         ENTRY  (X1) = P2.TAGL/IA TAG,P2.BIASL/IA BIAS,REST/NA                  FUN          806     A     
 FUN      *                (B6) = STORE INDICATOR                                          FUN          807     A     
 FUN      *                                                                                FUN          808     A     
 FUN      *         EXIT   (X6) = IA WORD                                                  FUN          809     A     
 FUN      *                IF (^SPR[ATF]) THEN                                             FUN          810     A     
 FUN      *                   (APLEN) = (APLEN)+1                                          FUN          811     A     
 FUN      *                   (X6) ENTERED IN APLIST                                       FUN          812     A     
 FUN      *                                                                                FUN          813     A     
 FUN      *         USES ALL BUT A4,X4 B2-5                                                FUN          814     A     
 FUN      *                                                                                FUN          815     A     
 FUN      *         CALLS AAP                                                              FUN          816     A     
 FUN                                                                                       FUN          817     A     
 FUN                                                                                       FUN          818     A     
 FUN       ECA      SUBR               ENTRY/EXIT                                          FUN          819     A     
 FUN                SA2    ATF                                                             FUN          820     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SX0    M.CHAR      MODE = CHAR                                         FUN          821     A     
 FUN                =X6    1                                                               FUN          822     A     
 FUN                CLAS=  X3,AT,MODE                                                      FUN          823     A     
 FUN                LX6    AT.CHARP    POSITION CHAR BIT                                   FUN          824     A     
 FUN                BX7    -X3*X2      CLEAR MODE FIELD                                    FUN          825     A     
 FUN                LX0    AT.MODEP                                                        FUN          826     A     
 FUN                BX7    X7+X6       MERGE IN CHAR BITS                                  FUN          827     A     
 FUN                BX7    X7+X0       MERGE IN MODE                                       FUN          828     A     
 FUN                SA7    ATF                                                             FUN          829     A     
 FUN                SB7    B6          SET STORE FLAG FOR AAP                              FUN          830     A     
 FUN                RJ     AAP         ENTER APLIST WORD                                   FUN          831     A     
 FUN                EQ     EXIT.                                                           FUN          832     A     
 FUN       ECW      SPACE  4,10                                                            FUN          833     A     
 FUN      **        ECW- ENTER CAC WORD                                                    FUN          834     A     
 FUN      *         HERE WE ENTER A CAC WORD                                               FUN          835     A     
 FUN      *         AND CHECK FOR UNIQUENESS. IF                                           FUN          836     A     
 FUN      *         THE ENTRY ALREADY EXISTS WE                                            FUN          837     A     
 FUN      *         DELETE IT.                                                             FUN          838     A     
 FUN      *                                                                                FUN          839     A     
 FUN      *         ENTRY  (X6) = WC WORD FOR CAC (ONLY CLEN, RA, AND BCP)                 FUN          840     A     
 FUN      *                                                                                FUN          841     A     
 FUN      *         EXIT   (X6) - PRESERVED                                                FUN          842     A     
 FUN      *                (B7) = ORDINAL INTO CAC OF ENTRY                                FUN          843     A     
 FUN      *                                                                                FUN          844     A     
 FUN      *         USES - A1,A3 X0,X1,X5,X6 B6,B7                                         FUN          845     A     
 FUN      *                                                                                FUN          846     A     
 FUN      *         SAVES  X5,B2-B5                                                        FUN          847     A     
 FUN      *                                                                                FUN          848     A     
 FUN      *         CALLS ADDWD                                                            FUN          849     A     
 FUN                                                                                       FUN          850     A     
 FUN                                                                                       FUN          851     A     
 FUN       ECW      SUBR               ENTRY/EXIT                                          FUN          852     A     
 FUN                ADDWD  T.CAC       ADD WC WORD TO CAC                                  FUN          853     A     
 FUN                SB6    B7-1        (B6) = LWA(CAC)                                     FUN          854     A     
 FUN                SB7    -1                                                              FUN          855     A     
 FUN       ECW1     SB7    B7+1                                                            FUN          856     A     
 FUN                SA3    X1+B7                                                           FUN          857     A     
 FUN                BX0    X3-X6       COMPARE TO NEW ENTRY                                FUN          858     A     
 FUN                NZ     X0,ECW1     IF NOT A MATCH                                      FUN          859     A     
 FUN                SX2    X2-1        LENGTH IF ENTRY A DUP                               FUN          860     A     
 FUN                SX0    A3-B6                                                           FUN          861     A     
 FUN                ZR     X0,EXIT.                                                        FUN          862     A     
 FUN                SHRINK T=CAC,X2                                                        FUN          863     A     
 FUN                EQ     EXIT.                                                           FUN          864     A     
 FUN       ESC      SPACE  4,8                                                             FUN          865     A     
 FUN      **        ESC -  EXPAND SHORT CONSTANT                                           FUN          866     A     
 FUN      *                                                                                FUN          867     A     
 FUN      *         ENTRY  (X5) = PROPOSED SHORT CONSTANT                                  FUN          868     A     
 FUN      *                                                                                FUN          869     A     
 FUN      *         EXIT   (X1) = (S=CON)                                                  FUN          870     A     
 FUN      *                (X3) = BIAS IN T.CON OF ENTERED VALUE.                          FUN          871     A     
 FUN      *                                                                                FUN          872     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *         USES   A1,A3,A6  X0,X1,X2,X3,X6  B2,B7                                 FUN          873     A     
 FUN      *                                                                                FUN          874     A     
 FUN      *         CALLS  ADW, SCT                                                        FUN          875     A     
 FUN                                                                                       FUN          876     A     
 FUN                                                                                       FUN          877     A     
 FUN       ESC      SUBR   =                                                               FUN          878     A     
 FUN                HX5    P2.BIAS     ADJUST TO GET SIGN EXTEND                           FUN          879     A     
 FUN                AX5    -P2.BIASL   SHIFT TO LOW WITH SIGN EXTEND                       FUN          880     A     
 FUN                BX6    X5                                                              FUN          881     A     
 FUN                SCAN   T.CON,SCT                                                       FUN          882     A     
 FUN                SX3    B7                                                              FUN          883     A     
 FUN                PL     B7,ESC10    IF CONSTANT IN TABLE                                FUN          884     A     
 FUN                ADDWD  A1          ENTER CONSTANT                                      FUN          885     A     
 FUN                =X3    X2-1                                                            FUN          886     A     
 FUN       ESC10    SA1    S=CON                                                           FUN          887     A     
 FUN                EQ     EXIT.       EXIT...                                             FUN          888     A     
 FUN       FIA      SPACE  4,10                                                            FUN          889     A     
 FUN      **        FIA - FORMAT INTERMEDIATE ARRAY REDERENCE                              FUN          890     A     
 FUN      *         FIA CONTROLS APLIST CONSTRUCTION AND SETTING UP THE                    FUN          891     A     
 FUN      *         STORE CODE AND LIBRARY CALLS.                                          FUN          892     A     
 FUN      *                                                                                FUN          893     A     
 FUN      *         ENTRY  (X5) = OPERAND                                                  FUN          894     A     
 FUN      *                                                                                FUN          895     A     
 FUN      *         EXIT   APLIST GENERATED AND PLUG CODE EMITED FOR ARRAY LOAD.           FUN          896     A     
 FUN      *                APL ADDED FOR ARRAY                                             FUN          897     A     
 FUN      *                                                                                FUN          898     A     
 FUN      *         USES ALL                                                               FUN          899     A     
 FUN      *         CALLS  PCA,SCA,SAP,PEJ                                                 FUN          900     A     
 FUN                                                                                       FUN          901     A     
 FUN                                                                                       FUN          902     A     
 FUN       FIA      SUBR               ENTRY/EXIT                                          FUN          903     A     
 FUN                BX0    X5                                                              FUN          904     A     
 FUN                SA2    T.PAR       GET FWA I. L.                                       FUN          905     A     
 FUN                AX0    P2.BIASP    POSITION I. L. ORD FOR ASSOCIATE OPERATOR           FUN          906     A     
 FUN                SB2    X2                                                              FUN          907     A     
 FUN                SB2    X0+B2       (B2) _ ASSOCIATE                                    FUN          908     A     
 FUN                SX6    B4-B2       (X6) = ADDR(ASSOCIATE)-ADDR(CURRENT OPR)            FUN          909     A     
 FUN                SB4    B2          RESET -ALLOC LOCKED- OPR POINTER                    FUN          910     A     
 FUN                SA6    DEFDIF      SET DEFERED OPERATOR DIFERENCE                      FUN          911     A     
 FUN                                                                                       FUN          912     A     
 FUN      **        WE NOW PROCESS THE APLIST FOR THE FIA                                  FUN          913     A     
 FUN      *         LIBRARY CALL.                                                          FUN          914     A     
 FUN                                                                                       FUN          915     A     
 FUN                RJ     SAS         STACK APLIST STRUCTURES                             FUN          916     A     
 FUN                SA5    LEAF        GET ARRAY OPERAND                                   FUN          917     A     
 FUN                RJ     GAS         GET APLIST STATUS                                   FUN          918     A     
 FUN                GE     B2,B1,FIA1  IF IN CAC TABLE                                     FUN          919     A     
 FUN                =A2    B4+OR.1OP   GET ARRAY SYMBOL OPERAND                            FUN          920     A     
 FUN                BX1    X2                                                              FUN          921     A     
 FUN                                                                                       FUN          922     A     
 FUN       FIA1     BX6    X1          COPY STATUS WORD                                    FUN          923     A     
 FUN                SA6    A1          SET STATUS WORD TAG = SYM TAB ORDINAL               FUN          924     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                RJ     PCA         PASS ARRAY OPERAND TO APLIST                        FUN          925     A     
 FUN                SA1    B4+OR.2OP   GET ADDRESS FUNCTION                                FUN          926     A     
 FUN                RJ     CCA         COMPLETE ARRAY REF                                  FUN          927     A     
 FUN                SA3    DEFDIF      GET OFFSET TO ORIGINAL TURPLE                       FUN          928     A     
 FUN                SB4    B4+X3       RESET (B4)                                          FUN          929     A     
 FUN                EQ     EXIT.                                                           FUN          930     A     
 FUN       FVS      SPACE  4,10                                                            FUN          931     A     
 FUN      **        FVS    FORMAT VARIABLE SUBSTRING                                       FUN          932     A     
 FUN      *         FVS HNDLES ALL THE STORE CODE, CAC, AND                                FUN          933     A     
 FUN      *         APLIST ENTRIES SUBSTRING OPERANDS.                                     FUN          934     A     
 FUN      *                                                                                FUN          935     A     
 FUN      *         ENTRY  (X5) =SUBSTRING OPERAND                                         FUN          936     A     
 FUN      *                                                                                FUN          937     A     
 FUN      *         EXIT   CODE, APLISTS, AND CAC ENTRIES MADE                             FUN          938     A     
 FUN      *                (LEAF) = SUBSTRING OPERAND                                      FUN          939     A     
 FUN      *                                                                                FUN          940     A     
 FUN      *         USES   ALL                                                             FUN          941     A     
 FUN      *                                                                                FUN          942     A     
 FUN      *         CALLS ECW,ESC,PCA,SSC,SCI                                              FUN          943     A     
 FUN                                                                                       FUN          944     A     
 FUN                                                                                       FUN          945     A     
 FUN       FVS      SUBR               ENTRY/EXIT.                                         FUN          946     A     
 FUN                SA3    S=FVS       SYMBOL ORDINAL OF FORM VARIABLE SUBSTRING           FUN          947     A     
 FUN                BX6    X3                                                              FUN          948     A     
 FUN                MX7    -P2.BIASL   SET I. L. ORDINAL MASK                              FUN          949     A     
 FUN                SA6    FVSA        SAVE ROUTINE NAME                                   FUN          950     A     
 FUN                SA2    T.PAR       GET FWA I. L.                                       FUN          951     A     
 FUN                LX5    -P2.BIASP   POSITION I. L. ORDINAL                              FUN          952     A     
 FUN                SB2    X2                                                              FUN          953     A     
 FUN                BX0    -X7*X5      EXTRACT I. L. ORDINAL OF SBST TURPLE                FUN          954     A     
 FUN                SB2    B2+X0       (B2) = LOC(SUBSTRING TURP)                          FUN          955     A     
 FUN                SX6    B4-B2       LOC(ORIGINAL)-LOC(SBST)= ORD(ORG)-ORD(SBST)         FUN          956     A     
 FUN                SB4    B2          RESET LOCKED TURPLE POINTER TO SBST TURP            FUN          957     A     
 FUN                SA6    DEFDIF      SET DEFERED TURPLE DIFFERENCE                       FUN          958     A     
 FUN                                                                                       FUN          959     A     
 FUN      **        COMPUTE I. I. ORD OF COLIN                                             FUN          960          I
          -FC5A246
 FUN      **        COMPUTE I.L. ORDINAL OF COLON                                          FC5A246       15     A     
 FUN      *         (X0) = SBST TURP ORDINAL                                               FUN          961     A     
 FUN      *         (X2) = FWA I. L.                                                       FUN          962     A     
 FUN      *         (X6) = ORD(ORIGINAL) - ORD(SBST)                                       FUN          963     A     
 FUN      *         (X7) = P2.BIAS MASK                                                    FUN          964     A     
 FUN                                                                                       FUN          965     A     
 FUN                                                                                       FUN          966     A     
 FUN                SA3    B4+OR.2OP   GET : OPERAND                                       FUN          967     A     
 FUN                IX6    X6+X0       (X6) = ORD(ORIGINAL)                                FUN          968     A     
 FUN                LX3    -P2.BIASP   POSITION I. L. ORD OF : TURPLE                      FUN          969     A     
 FUN                BX3    -X7*X3      (X3) = I. L. ORDINAL OF :                           FUN          970     A     
 FUN                IX7    X3-X6       (X7) = ORD(:) - ORD(ORIGINAL)                       FUN          971     A     
 FUN                SA7    COLDIF      SET : DIFFERENCE CELL                               FUN          972     A     
 FUN                SB5    X3          (B5) = ORD(:)                                       FUN          973     A     
 FUN                                                                                       FUN          974     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      **        GET SET UP ARRAY CASE. RESET (B4) _ ARRAY TURP                         FUN          975     A     
 FUN      *         (X0) = ORD(SBST)                                                       FUN          976     A     
 FUN      *         (X2) = FWA I. L.                                                       FUN          977     A     
 FUN      *         (B4) _ SBST TURP                                                       FUN          978     A     
 FUN                                                                                       FUN          979     A     
 FUN                =A5    B4+OR.1OP         GET CHARACTER OPERAND FORM                    FUN          980     A     
 FUN                SBIT   X5,P2.INTRP                                                     FUN          981     A     
 FUN                PL     X5,FVS1     IF NOT INTERMEDIATE, (B4) IS CORRECT                FUN          982     A     
 FUN                LX5    1+P2.INTRP-P2.BIASP-P2.BIASL  PLACE ARRAY ORD HIGH              FUN          983     A     
 FUN                SA3    S=FAS       SYMBOL ORDINAL OF FORMAT ARRAY SUBSTRING            FUN          984     A     
 FUN                BX7    X3                                                              FUN          985     A     
 FUN                SA7    FVSA        SAVE ROUTINE                                        FUN          986     A     
 FUN                SA1    DEFDIF                        GET DEFERED TURPLE DIFF           FUN          987     A     
 FUN                AX5    -P2.BIASL   SIGN EXTEND ARRAY ORD                               FUN          988     A     
 FUN                IX2    X2+X5       (X2) _ ARRAY TURPLE                                 FUN          989     A     
 FUN                IX7    X1+X0       (X7) = ORD(ORIGINAL)                                FUN          990     A     
 FUN                SB4    X2          RESET LOCKED (B4) POINTER TO ARRAY                  FUN          991     A     
 FUN                IX7    X7-X5       (X7) = ORD(ORIGINAL) - ORD(ARRAY)                   FUN          992     A     
 FUN                MX0    1                                                               FUN          993     A     
 FUN                BX7    X7+X0       SET BIT 59 TO INDICATE ARRAY                        FUN          994     A     
 FUN                SA7    A1          RESET DEFDIF                                        FUN          995     A     
 FUN                EQ     FVS3        CONTINUE WITH PLUG CASE                             FUN          996     A     
 FUN                                                                                       FUN          997     A     
 FUN                                                                                       FUN          998     A     
 FUN      **        DECTECT AND EFFECT CONSTANT SUBSTRING CASE                             FUN          999     A     
 FUN      *         (X5) = VARIABLE OPD (1OP[SBST]), SHIFTED P2.INTRP                      FUN         1000     A     
 FUN      *         (B5) = I. L. ORD( : TURPLE )                                           FUN         1001     A     
 FUN                                                                                       FUN         1002     A     
 FUN       FVS1     SA3    T.PAR       GET FWA I. L.                                       FUN         1003     A     
 FUN                =X3    X3+OR.1OP   ADD IN FIRST OPERAND OFFSET                         FUN         1004     A     
 FUN                SA3    X3+B5       GET FIRST SBST INDEX                                FUN         1005     A     
 FUN                SBIT   X5,P2.FPP/P2.INTRP                                              FUN         1006     A     
 FUN                MI     X5,FVS3     IF FP, THEN STACK AND PLUG                          FUN         1007          I
          -FC50651
 FUN                BX6    X5          SAVE FP FLAG                                        FC50651       13     A     
 FUN                SA6    FVSB                                                            FC50651       14     A     
 FUN                =A5    A3-OR.1OP+OR.2OP  GET SECOND SBST INDEX                         FUN         1008     A     
 FUN                BX0    X3*X5                                                           FUN         1009     A     
 FUN                SBIT   X0,P2.SHRTP                                                     FUN         1010     A     
 FUN                PL     X0,FVS3     IF AT LEAST ONE SUBSTRING INDEX IS VARIABLE         FUN         1011     A     
 FUN                SA5    FVSB        GET FP FLAG                                         FC50651       15     A     
 FUN                PL     X5,FVS15    SKIP IF NOT FP                                      FC50651       16     A     
 FUN                SA3    T.PAR                                                           FC50651       17     A     
 FUN                =X3    X3+OR.1OP   (X3) FWA I.L. OFFSET BY 1OP                         FC50651       18     A     
 FUN                SA3    X3+B5       GET FIRST SBST INDEX                                FC50651       19     A     
 FUN                =A4    A3-OR.1OP+OR.2OP  GET SECOND INDEX                              FC50651       20     A     
 FUN                LX3    -P2.BIASP                                                       FC50651       21     A     
 FUN                LX4    -P2.BIASP                                                       FC50651       22     A     
 FUN                SB3    X3-1        EVALUATE SUBSTRING LENGTH                           FC50651       23     A     
 FUN                SB2    X4                                                              FC50651       24     A     
 FUN                SX7    B2-B3       LEN = U.B. - ( L.B. - 1 )                           FC50651       25     A     
 FUN                SA7    FVSB        SAVE SUBSTRING LENGTH                               FC50651       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                EQ     FVS3        GO STACK AND PLUG                                   FC50651       27     A     
 FUN                                                                                       FC50651       28     A     
 FUN       FVS15    BSS    0                                                               FC50651       29     A     
 FUN                MX6    0           FVSB CONTAINS FLAG, SET TO ZERO                     FC51566        8     A     
 FUN                SA6    FVSB        TO AVOID USING FOR CONST. SUBST. SIZE               FC51566        9     A     
 FUN                SA5    LEAF        GET SBST INTERMEDIATE OPERAND                       FUN         1012     A     
 FUN                RJ     GAS         GET APLIST STATUS                                   FUN         1013     A     
 FUN                LT     B0,B2,FVS2  ID IN CAC TAB                                       FUN         1014     A     
 FUN                                                                                       FUN         1015     A     
 FUN                                                                                       FUN         1016     A     
 FUN      **        ENTER CONSTANT SBST IN APLIST                                          FUN         1017     A     
 FUN      *         (A1,X1) _,= STATUS WORD                                                FUN         1018     A     
 FUN      *         (B5) = ORD(:)                                                          FUN         1019     A     
 FUN                                                                                       FUN         1020     A     
 FUN                SA2    B4+OR.1OP   GET CHARACTER OPERAND                               FUN         1021     A     
 FUN                BX6    X2                                                              FUN         1022     A     
 FUN                SA6    A1          RESET STATUS WORD                                   FUN         1023     A     
 FUN                SA1    A1          GET NEW STATUS WORD                                 FUN         1024     A     
 FUN                RJ     SCB         SUBSUME CONSTANT BIAS                               FUN         1025     A     
 FUN                SA3    T.PAR                                                           FUN         1026     A     
 FUN                =X3    X3+OR.1OP   (X3) FWA I. L. OFFSET BY 1OP                        FUN         1027     A     
 FUN                SA3    X3+B5       GET FIRST SBST INDEX                                FUN         1028     A     
 FUN                =A4    A3-OR.1OP+OR.2OP GET SECOND INDEX                               FUN         1029     A     
 FUN                LX3    -P2.BIASP                                                       FUN         1030     A     
 FUN                LX4    -P2.BIASP                                                       FUN         1031     A     
 FUN                CALL   ECS                                                             FUN         1032     A     
 FUN                SX5    B7          (X5) = EQUIV CLASS BASE SYM TAB ORD                 FUN         1033     A     
 FUN                RJ     ECW         ENTER CAC WORD                                      FUN         1034     A     
 FUN                SX3    X5+         (X3) = EQIV CLASS BASE SYMBOL ORD                   FUN         1035     A     
 FUN                SA5    LEAF                                                            FUN         1036     A     
 FUN                RJ     SSC         SET STATUS OF CHARACTER                             FUN         1037     A     
 FUN       FVS2     SB2    1                                                               FUN         1038     A     
 FUN                RJ     PCA         PROCESS CHARACTER APLIST ITEM                       FUN         1039     A     
 FUN                SA1    DEFDIF                                                          FUN         1040     A     
 FUN                SB4    B4+X1       RESET (B4)                                          FUN         1041     A     
 FUN                EQ     EXIT.                                                           FUN         1042     A     
 FUN                                                                                       FUN         1043     A     
 FUN      **        MAIN CASE: FP'S,  ARRAYS,  AND VARIABLE SUBSTRINGS                     FUN         1044     A     
 FUN      *         TASKS: STACK CURRENT APLIST,  CREATE A SUBSTRING APLIST,               FUN         1045     A     
 FUN      *         POP BACK TO OUR ORIGINAL APLIST,  WRITE SOME PLUG CODE                 FUN         1046     A     
 FUN      *         TO THE TO A DUMMY ENTRY IN THE ORIGINAL APLIST, AND ADD                FUN         1047     A     
 FUN      *         THAT DUMMY TO THE APLIST.                                              FUN         1048     A     
 FUN                                                                                       FUN         1049     A     
 FUN       FVS3     RJ     SAS         STACK APLIST INFO                                   FUN         1050     A     
 FUN                SA5    LEAF        GET SUBSTRING OPERAND                               FUN         1051     A     
 FUN                RJ     GAS         GET APLIST STATUS OF SUBSTRING                      FUN         1052     A     
 FUN                LT     B0,B2,FVS4  IF ALREADY IN CAC TABLE                             FUN         1053     A     
 FUN                SA1    B4+OR.1OP   GET CHARACTER OPERAND                               FUN         1054     A     
 FUN                                                                                       FUN         1055     A     
 FUN       FVS4     BX6    X1                                                              FUN         1056     A     
 FUN                SA6    A1          PLACE CORRECT SYMTAB ORDINAL IN STATUS WORD         FUN         1057     A     
 FUN                RJ     PCA         PROCESS CHARACTER AP                                FUN         1058     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SA2    DEFDIF      GET DEFERED TURPLE DIFFERENCE                       FUN         1059     A     
 FUN                MX7    0                                                               FUN         1060     A     
 FUN                SA7    ATF         INDEX AND SUBSTRING INDS NOT CHAR                   FUN         1061     A     
 FUN                PL     X2,FVS5     IF NOT ARRAY INTERMED.                              FUN         1062     A     
 FUN                SA1    B4+OR.2OP   GET ADDRESS FUNCTION                                FUN         1063     A     
 FUN                RJ     SAP         SELECT NORMAL APLIST PROCESSOR                      FUN         1064     A     
 FUN                                                                                       FUN         1065     A     
 FUN       FVS5     SA2    DEFDIF      GET DEFERED TURPLE ORDINAL DIFFERENCE               FUN         1066     A     
 FUN                SA1    COLDIF      GET COLIN TURPLE DIFFERENCE                         FUN         1067     A     
 FUN                SB4    B4+X2       RESET (B4) _ ORIGINAL TURPLE                        FUN         1068     A     
 FUN                SB4    B4+X1       SET (B4) _ : TURPLE                                 FUN         1069     A     
 FUN                BX6    -X1         (X6) = I.L. ORD(ORIGINAL) - ORD(:)                  FUN         1070     A     
 FUN                SA6    A1          RESET COLDIF                                        FUN         1071     A     
 FUN                SA1    B4+OR.1OP   GET FIRST SBST INDEX FUNCTION                       FUN         1072     A     
 FUN                RJ     SAP         OUTPUT APLIST WORD                                  FUN         1073     A     
 FUN                SA1    B4+OR.2OP   GET SECOND SBST INDEX FUNCTION                      FUN         1074     A     
 FUN                RJ     SAP         OUTPUT APLIST WORD                                  FUN         1075     A     
 FUN                SA1    FVSA        GET SUBSTRING ROUTINE SYM TAB ORD                   FUN         1076     A     
 FUN                LX1    P2.TAGP     POSITION ORDINAL                                    FUN         1077     A     
 FUN                BX6    X1                                                              FUN         1078     A     
 FUN                SA6    ROUTNAM     SET SUBSTRING ROUTINE NAME FOR PEJ                  FUN         1079     A     
 FUN                RJ     PEJ         PROCESS EXTERNAL JUMP TO SUBSTRING ROUTINE          FUN         1080     A     
 FUN                SA1    COLDIF                                                          FUN         1081     A     
 FUN                RJ     PAS         POP APLIST STRUCTURE                                FUN         1082     A     
 FUN                SB4    B4+X1       (B4) _ ORIGINAL TURPLE                              FUN         1083     A     
 FUN                RJ     SCI         STORE INTO CHARACTER ITEM                           FUN         1084     A     
 FUN                SA5    LEAF                                                            FUN         1085     A     
 FUN                RJ     GAS         GET STATUS WORD OF SUBSTRING                        FUN         1086     A     
 FUN                SB6    1           SET PLUG FLAG                                       FUN         1087     A     
 FUN                RJ     ECA         ENTER DUMMY ITEM                                    FUN         1088     A     
 FUN                SX7    1                                                               FC5A243      102     A     
 FUN                SA7    FVSUKL      MARK EXPRESSION LENGTH NOT KNOWN                    FC5A243      103     A     
 FUN                EQ     EXIT.                                                           FUN         1089     A     
 FUN                                                                                       FUN         1090     A     
 FUN       FVSA     BSS    1                                                               FUN         1091     A     
 FUN       FVSB     BSS    1                                                               FC50651       30     A     
 FUN       FVSUKL   BSSZ   1                                                               FC5A243      104     A     
 FUN       GAS      SPACE  4,10                                                            FUN         1092     A     
 FUN      **        GAS    GET APLIST STATUS OF OPERAND                                    FUN         1093     A     
 FUN      *                                                                                FUN         1094     A     
 FUN      *         GAS CHECKS WHETHER A CHARACTER INTERMEDIATE IS IN                      FUN         1095     A     
 FUN      *         TEMPORARY STORAGE, TO AVIOD DUPLICATE ALLOCATIONS                      FUN         1096     A     
 FUN      *         FOR THE SAME OPERAND.  IT ALSO CHECKS TYPE AND FINDS A                 FUN         1097     A     
 FUN      *         CAC ORDINAL IF ONE EXISTS.                                             FUN         1098     A     
 FUN      *                                                                                FUN         1099     A     
 FUN      *         ENTRY - (X5) = I. L. ENTRY FOR OPERAND                                 FUN         1100     A     
 FUN      *                                                                                FUN         1101     A     
 FUN      *         EXIT - (A1)_,(X1)= OPERAND STATUS WORD                                 FUN         1102     A     
 FUN      *                (X5) - PRESERVED                                                FUN         1103     A     
 FUN      *                (B2) = -1: IF OPD NO TYPE CHARACTER                             FUN         1104     A     
 FUN      *                        0: IF TYPE[OPD] = CHAR BUT NO CAC ENTRY EXISTS          FUN         1105     A     
 FUN      *                        1: FOR TYPE CHAR WITH CAC ENTRY BUT NOT A TEMP          FUN         1106     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                        2: FOR CHAR TEMPS (=> IN CAC TAB)                       FUN         1107     A     
 FUN      *                        3: STATUS IS ADJUSTED-LENGTH ITEM (FROM MMC.)           FC5A243      105     A     
 FUN      *                (B7) = CAC ORDINAL IF (B2) .GE. 1                               FUN         1108     A     
 FUN      *                                                                                FUN         1109     A     
 FUN      *         USES   A1,A6, X0,X1,X5,X6, B2,B7                                       FUN         1110     A     
 FUN                                                                                       FUN         1111     A     
 FUN                                                                                       FUN         1112     A     
 FUN       GAS      SUBR               ENTRY/EXIT                                          FUN         1113     A     
 FUN                LX6    X5                                                              FUN         1114     A     
 FUN                =B2    0           SET NOT IN TEMP OR CAC                              FUN         1115     A     
 FUN                BX1    X5                                                              FUN         1116     A     
 FUN                MX0    -P2.USEL                                                        FUN         1117     A     
 FUN                SA6    GASA        SAVE OPD FOR LATER CALL                             FUN         1118     A     
 FUN                BX0    -X0*X5      EXTRACT USE COUNT                                   FUN         1119     A     
 FUN                ZR     X0,EXIT.    IF NO STATUS WORD EXISTS                            FUN         1120     A     
 FUN                SA1    T.OUS       GET FWA OF STATUS WORD TABLE                        FUN         1121     A     
 FUN                LX5    -P2.TAGP    POSITION OUS ORDINAL                                FUN         1122     A     
 FUN                SB7    X1                                                              FUN         1123     A     
 FUN                MX0    -P2.TAGL                                                        FUN         1124     A     
 FUN                BX0    -X0*X5                                                          FUN         1125     A     
 FUN                SA1    B7+X0       GET STATUS WORD                                     FUN         1126     A     
 FUN                BX6    X1                                                              FUN         1127     A     
 FUN                LX5    P2.TAGP                                                         FUN         1128     A     
 FUN                SBIT   X6,ST.CACP                                                      FUN         1129     A     
 FUN                PL     X6,EXIT.    IF NOT IN CAC TAB                                   FUN         1130     A     
 FUN                =B2    B2+1              SET IN CAC BUT NOT TEMP                       FUN         1131     A     
 FUN                SBIT   X6,ST.CTMP/ST.CACP                                              FUN         1132     A     
 FUN                PL     X6,GAS1     IF NOT A TEMPORARY                                  FUN         1133     A     
 FUN                =B2    B2+1                      SET CHAR TEMP FLAG                    FUN         1134     A     
 FUN                BX0    X6                                                              FC5A243      106     A     
 FUN                SBIT   X0,ST.UKLP/ST.CTMP                                              FC5A243      107     A     
 FUN                PL     X0,GAS1     IF NOT UNKNOWN LENGTH                               FC5A243      108     A     
 FUN                =B2    B2+1                                                            FC5A243      109     A     
 FUN                                                                                       FC5A243      110     A     
 FUN       GAS1     MX0    -P2.BIASL   SET CAC ORDINAL MASK                                FUN         1135     A     
 FUN                LX6    1+ST.CTMP-P2.BIASP    POSITION CAC ORDINAL                      FUN         1136     A     
 FUN                BX0    -X0*X6                EXTRACT CAC ORDINAL                       FUN         1137     A     
 FUN                SB7    X0                                                              FUN         1138     A     
 FUN                EQ     EXIT.                                                           FUN         1139     A     
 FUN                                                                                       FUN         1140     A     
 FUN       GASA     BSSZ   1                                                               FUN         1141     A     
 FUN       GNO      SPACE  4,10                                                            FUN         1142     A     
 FUN      **        GNO - GET NEXT OPERAND                                                 FUN         1143     A     
 FUN      *         THIS IS THE ACTUAL CONCATINATION TREE SPANNER. EACH                    FUN         1144          I
          -FC5A246
 FUN      *         THIS IS THE ACTUAL CONCATENATION TREE SPANNER.  EACH                   FC5A246       16     A     
 FUN      *         CALL PRODUCES THE NEXT LEAF AND THE NEXT RIGHT TREE                    FUN         1145     A     
 FUN      *         LINK, (OR.2OP), TO EXPLORE. THESE ARE SAVED IN LEAF                    FUN         1146     A     
 FUN      *         AND LNK.CUR RESP.  THE WALK DOES NOT INVOLVE A STACK                   FUN         1147     A     
 FUN      *         BUT INSTEAD RELIES ON A SYSTEM OF STORING PREVIOUS                     FUN         1148     A     
 FUN      *         LINKS DIRECTLY IN THE I. L.  UPON EXIT LNK.LST IS SET                  FUN         1149     A     
 FUN      *         TO THE VALUE OF THE LAST LINK OPERAND.  LNK.CUR                        FUN         1150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *         BECOMES THE NEXT R-LINK TO SEARCH, AND THE                             FUN         1151     A     
 FUN      *         I. L. LOCATION OF THE CURRENT LINK IS PLUGGED WITH                     FUN         1152     A     
 FUN      *         LINK PRECEEDING THE LAST LINK.                                         FUN         1153     A     
 FUN      *                                                                                FUN         1154     A     
 FUN      *         NOTE - TO GNO OPERANDS ARE ONLY INPORTANT AS LINKS                     FUN         1155     A     
 FUN      *                IN THE TREE OR AS LEAVES. BGA ACTUALLY *VISITS*                 FUN         1156     A     
 FUN      *                THE LEAVES BY PUTTING THEM IN THE APLIST.                       FUN         1157     A     
 FUN      *                                                                                FUN         1158     A     
 FUN      *         ENTRY  (LNK.CUR) = THE CURRENT LINK TO INVESTIGATE                     FUN         1159     A     
 FUN      *                (LNK.LST) = IS THE LAST LINK OPERAND VISITED                    FUN         1160     A     
 FUN      *                (X5) = LNK.CUR                                                  FUN         1161     A     
 FUN      *                                                                                FUN         1162     A     
 FUN      *         EXIT   (LEAF) = NEXT OPERAND TO ADD TO APLIST                          FUN         1163     A     
 FUN      *                LNK.CUR AND LNK.LST ARE SET AS ABOVE.                           FUN         1164     A     
 FUN                                                                                       FUN         1165     A     
 FUN                                                                                       FUN         1166     A     
 FUN       GNO      SUBR               ENTRY/EXIT                                          FUN         1167     A     
 FUN                SX0    RLOCK       LOCK BIT  DISTINGUISHES 1OP FROM 2OP                FUN         1168     A     
 FUN                SA2    LNK.LST     GET LAST LINK                                       FUN         1169     A     
 FUN                SA1    T.PAR       GET FWA I. L.                                       FUN         1170     A     
 FUN                SB7    59-P2.CNCTP SET CONCAT BIT SHIFT COUNT                          FUN         1171     A     
 FUN                =B2    X1+OR.1OP   OFFSET FWA BY FIRST OPD POSITION                    FUN         1172     A     
 FUN                LX7    B7,X5       POSITION CONCAT BIT FOR TEST                        FUN         1173     A     
 FUN                EQ     GNO2        JUMP TO END OF LEFT LINK LOOP                       FUN         1174     A     
 FUN                                                                                       FUN         1175     A     
 FUN      **        LEFT LINK LOOP:   HERE WE WALK UP THE I. L.                            FUN         1176     A     
 FUN      *         STORING LINKS AND FETCHING NEW LINKS UNTIL                             FUN         1177     A     
 FUN      *         WE ENCOUNTER A NON-CONCATINATION OPERAND.                              FUN         1178          I
          -FC5A246
 FUN      *         WE ENCOUNTER A NON-CONCATENATION OPERAND.                              FC5A246       17     A     
 FUN      *         THIS IS THE LEAF.                                                      FUN         1179     A     
 FUN                                                                                       FUN         1180     A     
 FUN       GNO1     LX7    1+P2.CNCTP-P2.BIASP   POSITION I. L. ORDINAL OF LINK            FUN         1181     A     
 FUN                BX6    X2                    (X6) = LAST LINK                          FUN         1182     A     
 FUN                SA1    B2+X7       NEXT LINK = OR.1OP(BIAS[CURNT OP])                  FUN         1183     A     
 FUN                BX2    X5          LAST LINK = CURRENT LINK                            FUN         1184     A     
 FUN                LX7    B7,X1       POSITION CONCAT BIT OF NEXT LINK                    FUN         1185     A     
 FUN                SA6    A1+         OR.1OP(BIAS[CURNT OP]) = LAST LINK                  FUN         1186     A     
 FUN                BX5    X0+X1       CURRENT LINK = NEXT LINK WITH LOCK BIT SET          FUN         1187     A     
 FUN       GNO2     MI     X7,GNO1     IF CURRENT OPERAND IS A LINK                        FUN         1188     A     
 FUN                                                                                       FUN         1189     A     
 FUN      **        WE HAVE A LEAF                                                         FUN         1190     A     
 FUN      *         (X2) = NEW LAST LINK                                                   FUN         1191     A     
 FUN      *         (X5) = LEAF                                                            FUN         1192     A     
 FUN      *         (X7) = (X5) SHIFTED BY 59-P2.CNCTP                                     FUN         1193     A     
 FUN      *         (B2) = (T.PAR)+OR.1OP                                                  FUN         1194     A     
 FUN                                                                                       FUN         1195     A     
 FUN                BX6    X0*X5       EXTRACT LOCK BIT FOR 1ST (LEFT) OPD TEST            FUN         1196     A     
 FUN                LX7    1+P2.CNCTP        RESET CUR OPD, IT'S A LEAF                    FUN         1197     A     
 FUN                SA7    LEAF                                                            FUN         1198     A     
 FUN                SB2    B2-OR.1OP+OR.2OP  (B2) = FWA I. L. + OR.2OP                     FUN         1199     A     
 FUN                BX7    X2          PREPARE FOR RIGHT LINK RESET LOOP                   FUN         1200     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                EQ     GNO4        ENTER BACKTRACK LOOP                                FUN         1201     A     
 FUN                                                                                       FUN         1202     A     
 FUN      **        HERE WE STEP BACK DOWN THE I. L. REPLACING                             FUN         1203     A     
 FUN      *         OPERANDS UNTIL WE FIND A LINK THAT IS A LEFT                           FUN         1204     A     
 FUN      *         OPERAND.                                                               FUN         1205     A     
 FUN                                                                                       FUN         1206     A     
 FUN       GNO3     AX7    P2.BIASP                                                        FUN         1207     A     
 FUN                BX6    X5          CUR = CURRENT LINK                                  FUN         1208     A     
 FUN                SA1    B2+X7       LST = OR.2OP(BIAS[LAST LINK])                       FUN         1209     A     
 FUN                ERRMI  P2.BIASL-18                                                     FUN         1210     A     
 FUN                LX5    X2          CURRENT LINK = LAST LINK                            FUN         1211     A     
 FUN                SA6    A1          OR.2OP(BIAS[LAST LINK]) = CUR                       FUN         1212     A     
 FUN                LX2    X1          LAST LINK = LST                                     FUN         1213     A     
 FUN                BX6    X0*X5       (X6) = LOCK BIT (CURRENT LINK)                      FUN         1214     A     
 FUN                LX7    X2                                                              FUN         1215     A     
 FUN       GNO4     ZR     X6,GNO3     IF NOT A 1ST (LEFT) OPD                             FUN         1216     A     
 FUN                                                                                       FUN         1217     A     
 FUN                AX2    P2.BIASP    POSITION I. L, ORDINAL OF LAST LINK                 FUN         1218     A     
 FUN                SA7    LNK.LST     SET LAST LINK FOR RETURN                            FUN         1219     A     
 FUN                SA1    B2+X2       (X1) = OR.2OP(BIAS[LAST LINK])                      FUN         1220     A     
 FUN                BX6    -X0*X1      CLEAR LOCK BIT OR CURRENT LINK                      FUN         1221     A     
 FUN                SA6    LNK.CUR     SET CURRENT LINK FOR NEXT CALL                      FUN         1222     A     
 FUN                ZR     X1,EXIT.    IF OUR NEW R-LINK IS THE END OR WALK FLAG           FUN         1223     A     
 FUN                                                                                       FUN         1224     A     
 FUN                SA2    A1-OR.2OP+OR.1OP  GET OR.1OP (LEFT) OPD                         FUN         1225     A     
 FUN                LX7    X2                                                              FUN         1226     A     
 FUN                SA7    A1          STORE PREVIOUS LAST LINK IN 2OP ,RIGHT OPD          FUN         1227     A     
 FUN                BX6    -X0*X5      CLEAR LOCK BIT TO RESTORE OPERAND                   FUN         1228     A     
 FUN                SA6    A2          RESET I. L. ENTRY TO ORIGINAL VALUE                 FUN         1229     A     
 FUN                EQ     EXIT.                                                           FUN         1230     A     
 FUN       IAS      SPACE  4,10                                                            FUN         1231     A     
 FUN      **        IAS - STACK APLIST STRUCTURES                                          FUN         1232     A     
 FUN      *         APLEN, APTAB, APIND, AND ATF ARE INITIALIZED HERE                      FUN         1233     A     
 FUN      *                                                                                FUN         1234     A     
 FUN      *         ENTRY  (B5) _ APLIST INDEX TABLE POINTER WORD                          FUN         1235     A     
 FUN      *                (B6) _ APLIST TABLE POINTER WORD                                FUN         1236     A     
 FUN      *                                                                                FUN         1237     A     
 FUN      *         EXIT   (B6) = CURRENT STACK DEPTH                                      FUN         1238     A     
 FUN      *                (LEVEL) = (B6)                                                  FUN         1239     A     
 FUN      *                (APLEN) = 0                                                     FUN         1240     A     
 FUN      *                (APTAB) = 42/INDX OF FW OF LIST,18/TAB CONTAINING LIST          FUN         1241     A     
 FUN      *                (APIND) = APL NUMBER FOR - SA1  AP.(APIND) -                    FUN         1242     A     
 FUN      *                (ATF) = 0                                                       FUN         1243     A     
 FUN      *                (APLIST INDEX TABLE + (APIND)) = 0                              FUN         1244     A     
 FUN      *                                                                                FUN         1245     A     
 FUN      *         USES A1,A2,A3,A6   X1,X2,X3,X6   B5,B6                                 FUN         1246     A     
 FUN                                                                                       FUN         1247     A     
 FUN                                                                                       FUN         1248     A     
 FUN       IAS      SUBR               ENTRY/EXIT.                                         FUN         1249     A     
 FUN                SA3    LEVEL       GET CURRENT STACK DEPTH                             FUN         1250     A     
 FUN                MX6    0                                                               FUN         1251     A     
 FUN                SA6    ATF         APLIST TYPE FLAG = 0                                FUN         1252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                NZ     X3,IAS1     IF LEVEL NOT ZERO INITIALIZE                        FUN         1253     A     
 FUN                                                                                       FUN         1254     A     
 FUN      **        WE MUST DETERMINE IF THIS IS A SECOND VISIT                            FUN         1255     A     
 FUN      *         OF IAS FOR THIS ZERO LEVEL APL.                                        FUN         1256     A     
 FUN                                                                                       FUN         1257     A     
 FUN                SA2    FAF         GET FIRST APLIST FLAG                               FUN         1258     A     
 FUN                NZ     X2,EXIT.    IF NOT FIRST VISIT INITIALIZE                       FUN         1259     A     
 FUN                                                                                       FUN         1260     A     
 FUN      **        INITIALIZE VALUES                                                      FUN         1261     A     
 FUN                                                                                       FUN         1262     A     
 FUN       IAS1     =X6    1                                                               FUN         1263     A     
 FUN                SA6    FAF         TURN FIRST APL FLAG OFF                             FUN         1264     A     
 FUN                SX6    B6          (X6) = APLIST TABLE PTR                             FUN         1265     A     
 FUN                SA1    B6+N.TABLE  (X1) = APLIST TABLE LEN WORD                        FUN         1266     A     
 FUN                LX1    18                                                              FUN         1267     A     
 FUN                IX6    X1+X6                                                           FUN         1268     A     
 FUN                SA6    APTAB       SET APLIST TABLES CELL                              FUN         1269     A     
 FUN                SA1    B5+N.TABLE  GET ORDINAL INTO INDEX TABLE                        FUN         1270     A     
 FUN                BX6    X1                                                              FUN         1271     A     
 FUN                SA6    APIND                                                           FUN         1272     A     
 FUN                NZ     X3,IAS2     IF NOT USER FUNCTION                                FUN         1273     A     
 FUN                SA6    UAP         FLAG LAST USER APLIST FOR RETURNS PROCESSOR         FUN         1274     A     
 FUN                                                                                       FUN         1275     A     
 FUN       IAS2     MX6    0                                                               FUN         1276     A     
 FUN                ADDWD  B5          ADD 0 WORD TO AP INDEX TAB                          FUN         1277     A     
 FUN                SA6    APLEN       INITIALIZE APLEN                                    FUN         1278     A     
 FUN                EQ     EXIT.                                                           FUN         1279     A     
 FUN                                                                                       FUN         1280     A     
 FUN       UAP      BSSENT 1                                                               FUN         1281     A     
 FUN       IAW      SPACE  4,10                                                            FUN         1282     A     
 FUN      **        IAW - ISSUE APLIST WORD.                                               FUN         1283     A     
 FUN      *         CONTROLS ADDITION OF APLIST ITEM TO APPROPIATE (APL OR IOA)            FUN         1284     A     
 FUN      *         TABLE,  AND FILING OF OPT2 USE/DEF ENTRY.                              FUN         1285     A     
 FUN      *         SET AT.LEV0 IF THIS OPD IS LEVEL 0.                                    FUN         1286     A     
 FUN      *                                                                                FUN         1287     A     
 FUN      *         ENTRY  (X1) = OPD, OPERAND WORD.                                       FUN         1288     A     
 FUN      *                                                                                FUN         1289     A     
 FUN      *         EXIT   APLIST ENTRY MADE FOR INCOMMING OPERAND WORD                    FUN         1290     A     
 FUN      *                                                                                FUN         1291     A     
 FUN      *         NOTE   THE ENTRY MADE MAY BE A TEMP RESULTING FROM A CONCAT            FUN         1292     A     
 FUN      *                WALK, A DUMMY TO BE PLUGGED, A POINTER TO THE CLW,              FUN         1293     A     
 FUN      *                TABLE OR A SIMPLE IA. REPRESENTATION OF THE OPERAND.            FUN         1294     A     
 FUN      *                                                                                FUN         1295     A     
 FUN      *         USES   ALL                                                             FUN         1296     A     
 FUN      *         CALLS  GAS,PCL,DAC,SAP                                                 FUN         1297     A     
 FUN                                                                                       FUN         1298     A     
 FUN                                                                                       FUN         1299     A     
 FUN       IAW      SUBR               ENTRY/EXIT                                          FUN         1300     A     
 FUN                BX5    X1                                                              FUN         1301     A     
 FUN                SA3    B4+OR.OPR                                                       FUN         1302     A     
 FUN                RJ     GAS         GET APLIST STATUS                                   FUN         1303     A     
 FUN                SA2    ATF                                                             FUN         1304     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                MX0    -OP.MODEL                                                       FUN         1305     A     
 FUN                LX3    -OP.MODEP                                                       FUN         1306     A     
 FUN                BX6    -X0*X3                                                          FUN         1307     A     
 FUN                SB6    X6-M.CHAR   (B6) = MODE - CHARATER MODE                         FUN         1308     A     
 FUN                LX6    AT.MODEP                                                        FUN         1309     A     
 FUN                BX7    X2+X6       MODE[ATF] = MODE[TURP(1)]                           FUN         1310     A     
 FUN                SA7    ATF                                                             FUN         1311     A     
 FUN                PL     B6,IAW30    IF CHARACTER                                        FUN         1312          I
          -FC5A165
 FUN                ZR     B6,IAW30    IF CHARACTER                                        FC5A165        9     A     
 FUN                SA1    GASA        GET ORIGINAL OPERAND                                FUN         1313     A     
 FUN                RJ     SAP         SELECT APLIST PROSSESS                              FUN         1314          I
          -FC5A246
 FUN                RJ     SAP         SELECT APLIST PROCESS                               FC5A246       18     A     
 FUN                EQ     EXIT.                                                           FUN         1315     A     
 FUN                                                                                       FUN         1316     A     
 FUN       IAW30    HX7    AT.LEN                                                          FUN         1317     A     
 FUN                PL     X7,IAW40    IF NOT PROCESSING CHAR ITEM LENGTH                  FUN         1318     A     
 FUN                SA1    GASA        GET ORIGINAL OPERAND                                FUN         1319     A     
 FUN                RJ     PCL         PROCESS CHAR LEN                                    FUN         1320     A     
 FUN                EQ     EXIT.                                                           FUN         1321     A     
 FUN                                                                                       FUN         1322     A     
 FUN       IAW40    RJ     DAC         DETERMINE APLIST COMPLEXITY                         FUN         1323     A     
 FUN                EQ     EXIT.                                                           FUN         1324     A     
 FUN       LUA      SPACE  4,8                                                             FC5A243      111     A     
 FUN      **        LUA - LOAD UNKNOWN LENGTH ADJUSTED TEMP.                               FC5A243      112     A     
 FUN      *                                                                                FC5A243      113     A     
 FUN      *         ENTRY  B7 = CAC ORDINAL FROM STATUS WORD                               FC5A243      114     A     
 FUN                                                                                       FC5A243      115     A     
 FUN       O=LURET  BSSENT 0           RETURN FROM SKELETON                                FC5A243      116     A     
 FUN       LUA      SUBR                                                                   FC5A243      117     A     
 FUN                SB2    REG.X+6                                                         FC5A243      118     A     
 FUN                SB6    B7                                                              FC5A243      119     A     
 FUN                CALL   RUT         CLEAR X6                                            FC5A243      120     A     
 FUN                RJ     DAT         SET UP ST.+K FOR SKEL                               FC5A243      121     A     
 FUN                SX6    =XW=LUA                                                         FC5A243      122          I
          -FC5A246
 FUN                SX6    W=LUA                                                           FC5A246       19     A     
 FUN                EQ     SUB.RET                                                         FC5A243      123     A     
 FUN       NAP      SPACE  4,8                                                             FUN         1325     A     
 FUN      **        NAP -  ENTER AP-LIST IN TABLE.                                         FUN         1326     A     
 FUN      *                                                                                FUN         1327     A     
 FUN      *         ENTRY  (B3) = LENGTH OF AP-LIST (INCLUDING THE ZERO WORD, IF           FUN         1328     A     
 FUN      *                            ANY).                                               FUN         1329     A     
 FUN      *                THE AP-LIST TO BE ENTERED IS THE LAST (B3) WORDS OF             FUN         1330     A     
 FUN      *                            T.APL.                                              FUN         1331     A     
 FUN      *                                                                                FUN         1332     A     
 FUN      *         EXIT   (X6) = AP-TAG OF THE INDICATED LIST.                            FUN         1333     A     
 FUN      *                (X3) = AP ORDINAL OF THIS AP-LIST.                              FUN         1334     A     
 FUN      *                (TG.APL) IS UPDATED, AND ADDRESS OF TAG DEFINED.                FUN         1335     A     
 FUN      *                                                                                FUN         1336     A     
 FUN      *         USES   A1,A2,A3,A6  B2,B3,B7  X0                                       FUN         1337     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                                                                                FUN         1338     A     
 FUN      *         CALLS  DPT, NCM                                                        FUN         1339     A     
 FUN                                                                                       FUN         1340     A     
 FUN                                                                                       FUN         1341     A     
 FUN       NAP      SUBR               ...ENTRY/EXIT...                                    FUN         1342     A     
 FUN                SA1    T.APL+X5                                                        FUN         1343     A     
 FUN                SA2    T=APL+X5                                                        FUN         1344     A     
 FUN                SB7    -B3                                                             FUN         1345     A     
 FUN                SB5    X5                                                              FUN         1346     A     
 FUN                IX0    X1+X2       LWA+1 OF LIST                                       FUN         1347     A     
 FUN                SB2    X0+B7       FWA LIST = LWA+1 - LEN                              FUN         1348     A     
 FUN                SB3    X0          (B3) = LWA + 1 FOR NCM                              FUN         1349     A     
 FUN                SX6    X2+B7       FAKE LENGTH FOR *NCM* PROCESSING.                   FUN         1350     A     
 FUN                SA6    A2          RESET LENGTH FOR *NCM*                              FUN         1351     A     
 FUN                CALL   NCM         SEARCH AP-TABLE FOR DUPLICATE LIST                  FUN         1352     A     
 FUN                =X5    B5                                                              FUN         1353     A     
 FUN                PL     B7,NAP1     IF ALREADY IN T.APL                                 FUN         1354     A     
 FUN                SA2    T=APL+B5                                                        FUN         1355     A     
 FUN                IX6    X2+X0       RESTORE LENGTH                                      FUN         1356     A     
 FUN                SA6    A2          RESET T=APL                                         FUN         1357     A     
 FUN                LX6    X2          ORDINAL OF T.APL ENTRY                              FUN         1358     A     
 FUN                                                                                       FUN         1359     A     
 FUN      **        ADD WC FORMAT WORD TO T.API AND CONSTRUCT A NEW TAG FOR CALLER         FUN         1360     A     
 FUN                                                                                       FUN         1361     A     
 FUN       NAP1     =X2    1           WC.RL = 1                                           FUN         1362     A     
 FUN                AX6    B5                                                              FUN         1363     A     
 FUN                SX3    BN=APL+B5   WC.RB = BN=APL                                      FUN         1364     A     
 FUN                LX6    WC.RAP                                                          FUN         1365     A     
 FUN                LX2    WC.RLP                                                          FUN         1366     A     
 FUN                IX6    X2+X6       ORDINAL + WC.RL                                     FUN         1367     A     
 FUN                LX3    WC.RBP                                                          FUN         1368     A     
 FUN                BX6    X3+X6       WC.RL + WC.RB + WC.RA                               FUN         1369     A     
 FUN                SA1    T.API+B5    GET FWA OF APLIST INDEX                             FUN         1370     A     
 FUN                SA2    APIND       GET ORDINAL INTO INDEX TABLE                        FUN         1371     A     
 FUN                IX1    X2+X1       ADD TABLE BASE TO INDEX                             FUN         1372     A     
 FUN                SA6    X1          SET   API ENTRY                                     FUN         1373     A     
 FUN                LX5    P=PFX       POSITION APLIST TYPE OFFSET                         FUN         1374     A     
 FUN                SX6    X2+K.AP     TAB = K.AP + APIND                                  FUN         1375     A     
 FUN                IX6    X6+X5       ADD IN OFFSET                                       FUN         1376     A     
 FUN                LX6    IA.TAGP                                                         FUN         1377     A     
 FUN                EQ     EXIT.                                                           FUN         1378     A     
 FUN       PAS      SPACE  4,10                                                            FUN         1379     A     
 FUN      **        PAS - POP APLIST STRUCTURES                                            FUN         1380     A     
 FUN      *         THIS ROUTINE ADJUSTS THE LEVEL AND RESTORES                            FUN         1381     A     
 FUN      *         THE APLIST CELLS FROM THE PREVIOUS LEVEL.                              FUN         1382     A     
 FUN      *                                                                                FUN         1383     A     
 FUN      *         ENTRY  (LEVEL) = APLIST STACK DEPTH                                    FUN         1384     A     
 FUN      *                                                                                FUN         1385     A     
 FUN      *         EXIT   (LEVEL) = (LEVEL)-1                                             FUN         1386     A     
 FUN      *                (APLEN) = (APLEN+(LEVEL))                                       FUN         1387     A     
 FUN      *                (APTAB) = (APTAB+(LEVEL))                                       FUN         1388     A     
 FUN      *                (APIND) = (APIND+(LEVEL))                                       FUN         1389     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                (ATF) = (ATF+(LEVEL))                                           FUN         1390     A     
 FUN      *                                                                                FUN         1391     A     
 FUN      *         USES A2,A3,A6,  X2,X3,X6, B6                                           FUN         1392     A     
 FUN                                                                                       FUN         1393     A     
 FUN                                                                                       FUN         1394     A     
 FUN       PAS      SUBR               ENTRY/EXIT                                          FUN         1395     A     
 FUN                SA3    LEVEL                                                           FUN         1396     A     
 FUN                SB6    X3                                                              FUN         1397     A     
 FUN                                                                                       FUN         1398     A     
 FUN       .POP     ECHO   ,P=(APLEN,APTAB,APIND,ATF)    P(0)=P(LEVEL)                     FUN         1399     A     
 FUN                SA2    P+B6                                                            FUN         1400     A     
 FUN                BX6    X2                                                              FUN         1401     A     
 FUN                SA6    A2-B6                                                           FUN         1402     A     
 FUN       .POP     ENDD                                                                   FUN         1403     A     
 FUN                                                                                       FUN         1404     A     
 FUN                =X6    B6-1        DECRIMENT LEVEL                                     FUN         1405          I
          -FC5A246
 FUN                =X6    B6-1        DECREMENT LEVEL                                     FC5A246       20     A     
 FUN                SA6    A3          RESET LEVEL                                         FUN         1406     A     
 FUN                SA2    APLEN                                                           FUN         1407     A     
 FUN                SA3    ATF                                                             FUN         1408          I
          -FC50239
 FUN                ZR     X6,PAS10    IF POPPED TO ZERO LEVEL                             FC50239       17     A     
 FUN                SA3    APTAB       GET OUTER APLIST TABLE ADDRESS                      FC50651       31     A     
 FUN                SB6    X3                                                              FC50651       32     A     
 FUN                SA3    A3+1        GET INNER APLIST TABLE ADDRESS                      FC50651       33     A     
 FUN                SB6    -B6                                                             FC50651       34     A     
 FUN                SB6    X3+B6                                                           FC50651       35     A     
 FUN                NE     B6,PAS10    IF NOT EQUAL, DO NOT ADD INNER APLEN                FC50651       36     A     
 FUN                =A3    A2+1                                                            FC50239       18     A     
 FUN                IX2    X2+X3       INCLUDE LENGTH OF INNER APLIST                      FC50239       19     A     
 FUN                                                                                       FC50239       20     A     
 FUN       PAS10    SA3    ATF                                                             FC50239       21     A     
 FUN                HX3    AT.IO                                                           FUN         1409     A     
 FUN                AX3    59                                                              FUN         1410     A     
 FUN                BX2    -X3*X2      IF IO SHRINK SAP TO ZERO                            FUN         1411     A     
 FUN                SHRINK =XT=SAP,X2                                                      FUN         1412          I
          -FC5A246
 FUN                SHRINK T=SAP,X2                                                        FC5A246       21     A     
 FUN                EQ     EXIT.                                                           FUN         1413     A     
 FUN       PCA      SPACE  4,10                                                            FUN         1414     A     
 FUN      **        PCA - PASS CHARACTER APLIST ITEM                                       FUN         1415     A     
 FUN      *                                                                                FUN         1416     A     
 FUN      *         ENTRY -(X5) = I. L. OPERAND                                            FUN         1417     A     
 FUN      *                (X1) = STATUS WORD                                              FUN         1418     A     
 FUN      *                (B2) = CAC/TEM INDICATOR                                        FUN         1419     A     
 FUN      *                (B7) = CAC ORD (IF EXISTS)                                      FUN         1420     A     
 FUN      *                                                                                FUN         1421     A     
 FUN      *         EXIT    APLIST AND CAC ENTRY MADE FOR OPD                              FUN         1422     A     
 FUN      *                                                                                FUN         1423     A     
 FUN      *         USES ALL BUT X5                                                        FUN         1424     A     
 FUN      *                                                                                FUN         1425     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *         CALLS SCB,ECA,ECW,SSC                                                  FUN         1426     A     
 FUN                                                                                       FUN         1427     A     
 FUN                                                                                       FUN         1428     A     
 FUN       PCA      SUBR               ENTRY/EXIT.                                         FUN         1429     A     
 FUN                BX6    X5                                                              FUN         1430     A     
 FUN                SA6    PCAA        SAV OPERAND                                         FUN         1431     A     
 FUN                BX6    X1                                                              FUN         1432     A     
 FUN                SBIT   X6,P2.FPP                                                       FUN         1433     A     
 FUN                MI     X6,PCA2     IF FORMAL PARAMETER                                 FUN         1434     A     
 FUN                LT     B0,B2,PCA1  IF CAC ENTRY EXISTS                                 FUN         1435     A     
 FUN                RJ     SCB         SUBSUME CONSTANT BIAS                               FUN         1436     A     
 FUN                SX5    B7+         SAVE ORD OF EQV CLASS ACROSS ECW                    FUN         1437     A     
 FUN                RJ     ECW         ENTER CAC WORD (IN X6, FORM SCB)                    FUN         1438          I
          -FC5A246
 FUN                RJ     ECW         ENTER CAC WORD (IN X6, FROM SCB)                    FC5A246       22     A     
 FUN                SX3    X5          (X3) = EQV CLASS ORD                                FUN         1439     A     
 FUN                SA5    PCAA        (X5) = OPD                                          FUN         1440     A     
 FUN                RJ     SSC         SET STATUS OF CHARACTER                             FUN         1441     A     
 FUN                =B2    0                                                               FC5A243      124     A     
 FUN                                                                                       FUN         1442     A     
 FUN      **        NOW INCRIMENT CLEN AND ADD IA WORD TO APLIST                           FUN         1443          I
          -FC50239
 FUN      **        NOW INCREMENT CLEN AND ADD IA WORD TO APLIST                           FC50239       22     A     
 FUN      *         (X1) = STATUS WORD                                                     FUN         1444     A     
 FUN      *         (B7) = CAC ORDINAL                                                     FUN         1445     A     
 FUN                                                                                       FUN         1446     A     
 FUN       PCA1     =B6    0           SET STORE FLAG OFF                                  FUN         1447          I
          -FC5A243
 FUN                SA2    T.CAC                                                           FUN         1448          I
          -FC5A243
 FUN      PCA1      SA2    T.CAC                                                           FC5A243      125     A     
 FUN                SA3    X2+B7       GET CAC WORD                                        FUN         1449     A     
 FUN                MX0    -WC.CLENL                                                       FUN         1450     A     
 FUN                LX3    -WC.CLENP                                                       FUN         1451     A     
 FUN                SA2    CLEN                                                            FUN         1452     A     
 FUN                BX3    -X0*X3      EXTRACT OPERAND CLEN                                FUN         1453     A     
 FUN                IX7    X3+X2       ADD OPERAND CLEN TO CLEN TOTAL                      FUN         1454     A     
 FUN                SA7    CLEN                                                            FUN         1455     A     
 FUN                SB6    2                                                               FC5A243      126     A     
 FUN                GT     B2,B6,PCA15 IF UNKNOWN LENGTH ITEM                              FC5A243      127     A     
 FUN                =B6    0                                                               FC5A243      128     A     
 FUN                RJ     ECA                                                             FUN         1456          I
          -FC5A243
 FUN                                                                                       FC5A243      129     A     
 FUN       PCA12    RJ     ECA                                                             FC5A243      130     A     
 FUN                SA5    PCAA                                                            FUN         1457     A     
 FUN                EQ     EXIT.                                                           FUN         1458     A     
 FUN                                                                                       FC5A243      131     A     
 FUN       PCA15    BX6    X1                                                              FC5A243      132     A     
 FUN                SA6    PCAB                                                            FC5A243      133     A     
 FUN                RJ     LUA         LOAD UNKNOWN-LENGTH ITEM ADJUSTMENT                 FC5A243      134     A     
 FUN                RJ     SCI                                                             FC5A243      135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                SA1    PCAB                                                            FC5A243      136     A     
 FUN                =B6    1                                                               FC5A243      137     A     
 FUN                EQ     PCA12                                                           FC5A243      138     A     
 FUN                                                                                       FUN         1459     A     
 FUN      **        FORMAL PARAMETER CASE                                                  FUN         1460     A     
 FUN      *         (X1) = STATUS WORD                                                     FUN         1461     A     
 FUN                                                                                       FUN         1462     A     
 FUN       PCA2     SB6    0                                                               FUN         1463     A     
 FUN                                                                                       FUN         1464          I
          -FC5A151
 FUN      *         PROPOGATE STATUS WORD TAG INTO EQUIV. POSITION (ST.ORD1)               FUN         1465          I
          -FC5A151
 FUN      *         FOR USE BY PCL.                                                        FUN         1466          I
          -FC5A151
 FUN                                                                                       FUN         1467          I
          -FC5A151
 FUN                CLAS=  X3,P2,TAG                                                       FUN         1468          I
          -FC5A151
 FUN                BX0    X3*X1       EXTRACT ORDINAL                                     FUN         1469          I
          -FC5A151
 FUN                LX0    ST.ORD1P-P2.TAGP                                                FUN         1470          I
          -FC5A151
 FUN                BX6    X0+X1       INSTALL ORD1[STATUS WORD] = TAG                     FUN         1471          I
          -FC5A151
 FUN                SA6    A1                                                              FUN         1472          I
          -FC5A151
 FUN                BX1    X6                                                              FUN         1473          I
          -FC5A151
 FUN                RJ     ECA         ENTER CHARACTER APLIST ITEM DIRECTLY                FUN         1474     A     
 FUN                LX6    -IA.TAGP    POSITION SYMTAB ORDINAL IN APLIST WORD              FUN         1475     A     
 FUN                SX1    X6          (X1) = SYM TAB ORDINAL FOR GCL                      FUN         1476     A     
 FUN                ERRNZ  18-IA.TAGL                                                      FUN         1477     A     
 FUN                RJ     GCL         GET CHARACTER LENGTH                                FUN         1478     A     
 FUN                PL     X2,PCA25    CHECK IF ASSUMED SIZE FP                            FC50651       37     A     
 FUN                SA1    FVSB        IF SO, GET CONST. SUB. SIZE                         FC50651       38     A     
 FUN                                                                                       FC50651       39     A     
 FUN       PCA25    BSS    0                                                               FC50651       40     A     
 FUN                SA3    CLEN        GET CURRENT CHARACTER LENGTH                        FUN         1479     A     
 FUN                IX6    X3+X1       ADD NEW LENGTH SO SUM                               FUN         1480     A     
 FUN                SA6    A3          RESET CLEN                                          FUN         1481     A     
 FUN                EQ     EXIT.                                                           FUN         1482     A     
 FUN                                                                                       FUN         1483     A     
 FUN       PCAA     BSSZ   1                                                               FUN         1484     A     
 FUN       PCAB     BSS    1                                                               FC5A243      139     A     
 FUN       PCF      SPACE  4,8                                                             FUN         1485     A     
 FUN      **        PCF - PROCESS CHARCTER FORMAL PARAMTER SCALAR.                         FUN         1486     A     
 FUN      *         CALLS ARRAY OBJECT ROUTINE (FAR) WITH ZERO INDEX                       FUN         1487     A     
 FUN      *         TO FORMAT ADDRESS WORD.                                                FUN         1488     A     
 FUN      *                                                                                FUN         1489     A     
 FUN      *         ENTRY  (X5) = OPERAND                                                  FUN         1490     A     
 FUN                                                                                       FUN         1491     A     
 FUN       PCF      SUBR                                                                   FUN         1492     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                RJ     SAS         STACK APLIST FOR FAR CALL                           FUN         1493     A     
 FUN                RJ     GAS         GET STATUS WORD                                     FUN         1494     A     
 FUN                RJ     PCA         FILE HEADER                                         FUN         1495     A     
 FUN                MX2    1                                                               FUN         1496     A     
 FUN                LX2    1+P2.SHRTP                                                      FUN         1497     A     
 FUN                =X6    1                                                               FUN         1498     A     
 FUN                CALL   POS         PREPARE STATUS WORD                                 FUN         1499     A     
 FUN                BX1    X6                                                              FUN         1500     A     
 FUN                RJ     CCA         COMPLETE ARRAY REF                                  FUN         1501     A     
 FUN                EQ     EXIT.                                                           FUN         1502     A     
 FUN       PCI      SPACE  4,10                                                            FUN         1503     A     
 FUN      **        PCI PROCESS CHARACTOR ITEM                                             FUN         1504          I
          -FC5A246
 FUN      *         PCI IS CALLED WHEN IT IS DETERMINED THAT                               FUN         1505          I
          -FC5A246
 FUN      *         CALLED FOR NON-CONCAT CHARACTOR ITEMS. IT'S                            FUN         1506          I
          -FC5A246
 FUN      *         FUNCTION IS TO SELECT THE CORRECT APLIST PROCESSOR                     FUN         1507          I
          -FC5A246
 FUN      *         FOR THIS OPERAND.                                                      FUN         1508          I
          -FC5A246
 FUN      **        PCI -  PROCESS CHARACTER ITEM                                          FC5A246       23     A     
 FUN      *                                                                                FC5A246       24     A     
 FUN      *         PCI IS CALLED WHEN IT IS DETERMINED THAT NON-CONCATENATION             FC5A246       25     A     
 FUN      *         CHARACTER ITEMS  ARE INVOLVED.  ITS FUNCTION IS TO SELECT THE          FC5A246       26     A     
 FUN      *         CORRECT APLIST PROCESSOR FOR THIS OPERAND.                             FC5A246       27     A     
 FUN      *                                                                                FUN         1509     A     
 FUN      *         ENTRY  (X5) = OPERAND                                                  FUN         1510     A     
 FUN      *                                                                                FUN         1511     A     
 FUN      *         EXIT   (X5) = OPERAND                                                  FUN         1512     A     
 FUN      *                (X1) = STATUS WORD                                              FUN         1513     A     
 FUN      *                (B2) = TEMP/CAC INDICATOR FLAG                                  FUN         1514     A     
 FUN      *                (B7) = CAC ORDINAL IF EXISTS                                    FUN         1515     A     
 FUN      *                                                                                FUN         1516     A     
 FUN      *         USES   ALL                                                             FUN         1517     A     
 FUN      *                                                                                FUN         1518     A     
 FUN      *         CALLS  GAS, PCA, ECA, FIA, FVS                                         FUN         1519     A     
 FUN                                                                                       FUN         1520     A     
 FUN                                                                                       FUN         1521     A     
 FUN       PCI      SUBR               ENTRY/EXIT                                          FUN         1522     A     
 FUN                BX3    X5                                                              FUN         1523     A     
 FUN                LX7    X5                                                              FUN         1524     A     
 FUN                RJ     GAS         GET APLIST STATUS OF OPEAND                         FUN         1525     A     
 FUN                SA7    LEAF        SAVE OPERAND                                        FUN         1526     A     
 FUN                LT     B1,B2,PCI1        IF ALREADY IN TEMP STORAGE                    FUN         1527          I
          -FC5A246
 FUN                SBIT   X7,P2.ARRP        POSITION ARRAY BIT                            FUN         1528          I
          -FC5A246
 FUN                LT     B1,B2,PCI1  IF ALREADY IN TEMPORARY STORAGE                     FC5A246       28     A     
 FUN                SBIT   X7,P2.ARRP  POSITION ARRAY BIT                                  FC5A246       29     A     
 FUN                SBIT   X3,P2.INTRP                                                     FUN         1529     A     
 FUN                MI     X3,PCI2     IF INTERMEDITE, CALL FIA OR FVS                     FUN         1530          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
          -FC5A246
 FUN                MI     X3,PCI2     IF INTERMEDIATE, CALL FIA OR FVS                    FC5A246       30     A     
 FUN                LX3    P2.INTRP-P2.FPP                                                 FUN         1531     A     
 FUN                MI     X3,PCI4     IF FP SCALAR                                        FUN         1532     A     
 FUN                                                                                       FUN         1533     A     
 FUN       PCI1     RJ     PCA         PASS CHARACTOR APLIST                               FUN         1534          I
          -FC5A246
 FUN       PCI1     RJ     PCA         PASS CHARACTER APLIST                               FC5A246       31     A     
 FUN                EQ     EXIT.                                                           FUN         1535     A     
 FUN                                                                                       FUN         1536     A     
 FUN       PCI2     PL     X7,PCI3     IF NOT AN ARRAY                                     FUN         1537     A     
 FUN                RJ     FIA         FORMAT INTERMEDIATE ARRAY                           FUN         1538     A     
 FUN                EQ     EXIT.                                                           FUN         1539     A     
 FUN                                                                                       FUN         1540     A     
 FUN       PCI3     BSS    0                                                               FUN         1541     A     
 FUN                                                                                       FUN         1542     A     
 FUN       .TEST    IFEQ   TEST,ON                                                         FUN         1543     A     
 FUN                SA2    T.PAR       GET FWA I. L.                                       FUN         1544     A     
 FUN                LX7    1+P2.ARRP-P2.BIASP      POSITION I. L. ORDINAL                  FUN         1545     A     
 FUN                SB2    X2                                                              FUN         1546     A     
 FUN                SA2    B2+X7       GET ASSOCIATE OPERATOR                              FUN         1547     A     
 FUN                AX2    OP.SKELP    POSITION SKELETON                                   FUN         1548     A     
 FUN                BX2    -X2         GET NEGATIVE OR SKEL                                FUN         1549     A     
 FUN                SB2    X2+=XV=SUBST                                                    FUN         1550          I
          -FC5A246
 FUN                SB2    X2+V=SUBST                                                      FC5A246       32     A     
 FUN                NZ     B2,"BLOWUP" IF NOT A SUBSTRING                                  FUN         1551     A     
 FUN       .TEST    ENDIF                                                                  FUN         1552     A     
 FUN                                                                                       FUN         1553     A     
 FUN                RJ     FVS         FORMAT VARIABLE SUBSTRING                           FUN         1554     A     
 FUN                EQ     EXIT.                                                           FUN         1555     A     
 FUN                                                                                       FUN         1556     A     
 FUN       PCI4     RJ     PCF         ISSUE CHARACTER FP SCALAR                           FUN         1557     A     
 FUN                EQ     EXIT.                                                           FUN         1558     A     
 FUN       PCL      SPACE  4,10                                                            FUN         1559     A     
 FUN      **        PCL - PROCESS CHARACTER ARRAY ITEM LENGTH.                             FUN         1560     A     
 FUN      *         IN THE CASE OF IO LIST COLLAPS THERE IS NOT ENOUGH                     FUN         1561     A     
 FUN      *         ROOM TO SAVE ALL THE REQUIRED CLEN AND ARRAY LENGTH                    FUN         1562     A     
 FUN      *         INFORMATION IN ONE CAC WORD,  SO WE MAKE TWO CLW ENTRIES               FUN         1563     A     
 FUN      *         AND POINT TO THEM FORM THE APLIST. PCL ACOMPLISHES ALL OF              FUN         1564     A     
 FUN      *         THIS.                                                                  FUN         1565     A     
 FUN      *                                                                                FUN         1566     A     
 FUN      *         ENTRY  (X1) = OPD                                                      FUN         1567     A     
 FUN      *                (LEAF) = LAST OPERAND PASSED TO APLIST                          FUN         1568     A     
 FUN      *                                                                                FUN         1569     A     
 FUN      *         EXIT   CLW AND APLIST ENTRIES MADE                                     FUN         1570     A     
 FUN      *                                                                                FUN         1571     A     
 FUN      *         USES   ALL BUT X4, B4                                                  FUN         1572     A     
 FUN      *                                                                                FUN         1573     A     
 FUN      *         CALLS GCL,AAP,SAP                                                      FUN         1574     A     
 FUN                                                                                       FUN         1575     A     
 FUN                                                                                       FUN         1576     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN         1577     A     
 FUN       PCL      SUBR                                                                   FUN         1578     A     
 FUN                SA3    ATF                                                             FUN         1579     A     
 FUN                HX3    AT.NUL                                                          FUN         1580     A     
 FUN                PL     X3,PCL50    IF NOT ARRAY ITEM                                   FUN         1581     A     
 FUN                SA2    APTAB                                                           FUN         1582     A     
 FUN                BX6    X1                                                              FUN         1583     A     
 FUN                SX7    T.CLW                                                           FUN         1584     A     
 FUN                SA6    PCLA        SAVE OPERAND                                        FUN         1585     A     
 FUN                SA7    A2          RESET APTAB FOR CLW ENTRIES                         FUN         1586     A     
 FUN                BX6    X2                                                              FUN         1587     A     
 FUN                SA6    PCLB        SAVE CURRENT APLIST TABLE                           FUN         1588     A     
 FUN                SA5    LEAF        GET LAST OPERAND TO ALIST                           FUN         1589     A     
 FUN                RJ     GAS         GET STATUS WORD OF LAST OPD TO APLIST               FUN         1590     A     
 FUN                BX0    X1                                                              FC5A151        4     A     
 FUN                LX1    -ST.ORD1P                                                       FUN         1591     A     
 FUN                MX0    -ST.ORD1L                                                       FUN         1592          I
          -FC5A151
 FUN                HX0    P2.FP                                                           FC5A151        5     A     
 FUN                PL     X0,PCL10    IF NOT FORMAL PARAMETER                             FC5A151        6     A     
 FUN                LX1    ST.ORD1P-P2.TAGP                                                FC5A151        7     A     
 FUN                                                                                       FC5A151        8     A     
 FUN       PCL10    MX0    -ST.ORD1L                                                       FC5A151        9     A     
 FUN                BX1    -X0*X1      EXTRACT ORIGINAL ORDINAL OF OPD                     FUN         1593     A     
 FUN                CALL   GCL         GET FP LENGTH/TAG                                   FUN         1594     A     
 FUN                LX1    P2.BIASP                                                        FUN         1595     A     
 FUN                LX3    P2.TAGP                                                         FUN         1596     A     
 FUN                BX1    X1+X3                                                           FUN         1597     A     
 FUN                =B7    0                                                               FUN         1598     A     
 FUN                RJ     AAP         ENTER CLEN TO CLW                                   FUN         1599     A     
 FUN                SA1    PCLA                                                            FUN         1600     A     
 FUN                RJ     SAP         LENGTH TO CLW                                       FUN         1601     A     
 FUN                SA5    APLEN                                                           FUN         1602     A     
 FUN                SX6    X5-2                                                            FUN         1603     A     
 FUN                SA6    A5          DECRIMENT APLEN BY NUMBER OF CLW ENTRIES            FUN         1604     A     
 FUN                                                                                       FUN         1605     A     
 FUN      *         ELIMINATE LAST CLW PAIR IF ALREADY EXISTS.                             FUN         1606     A     
 FUN                                                                                       FUN         1607     A     
 FUN                SA5    T.CLW                                                           FUN         1608     A     
 FUN                SA3    T=CLW                                                           FUN         1609     A     
 FUN                SB6    X5+2                                                            FUN         1610     A     
 FUN                IX0    X5+X3                                                           FUN         1611     A     
 FUN                SB2    X0                                                              FUN         1612     A     
 FUN                =A2    B2-1                                                            FUN         1613     A     
 FUN                =A1    A2-1                                                            FUN         1614     A     
 FUN                SX0    X3-2        INDEX = T=CLW - 2                                   FUN         1615     A     
 FUN                SA3    X5                                                              FUN         1616     A     
 FUN                =A5    X5+1                                                            FUN         1617     A     
 FUN                                                                                       FUN         1618     A     
 FUN       PCL30    BX6    X1-X3                                                           FUN         1619     A     
 FUN                BX7    X2-X5                                                           FUN         1620     A     
 FUN                SA3    A3+2        W1 = W1+2                                           FUN         1621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                BX6    X6+X7       2 CLW WORDS CANNOT BE COMPLEMENTS                   FUN         1622     A     
 FUN                =A5    A3+1        W2 = W2+2                                           FUN         1623     A     
 FUN                NZ     X6,PCL30    IF NOT HIT                                          FUN         1624     A     
 FUN                SB3    A3-B2                                                           FUN         1625     A     
 FUN                ZR     B3,PCL40    IF HIT NOT END OF TABLE                             FUN         1626     A     
 FUN                BX7    X0                                                              FUN         1627     A     
 FUN                SA7    T=CLW       T=CLW = T=CLW-2                                     FUN         1628     A     
 FUN                SX0    A3-B6       INDEX = W1-T.CLW-2                                  FUN         1629     A     
 FUN                                                                                       FUN         1630     A     
 FUN       PCL40    AX2    B1,X0       BIAS = INDEX/2                                      FUN         1631     A     
 FUN                SA3    PCLB        GET ORIGINAL APLIST TABLE POINTER                   FUN         1632     A     
 FUN                BX7    X3                                                              FUN         1633     A     
 FUN                SA3    S=CL        SYMBOL ORDINAL CHARACTER LENGTH DESCRIPTORS         FUN         1634     A     
 FUN                LX2    P2.BIASP                                                        FUN         1635     A     
 FUN                LX3    P2.TAGP                                                         FUN         1636     A     
 FUN                BX1    X2+X3                                                           FUN         1637     A     
 FUN                SA7    APTAB       RESTORE ORIGINAL APTAB VALUE FOR THIS LEVEL         FUN         1638     A     
 FUN                =B7    0                                                               FUN         1639     A     
 FUN                RJ     AAP         FILE CL. POINTER TO APLIST                          FUN         1640     A     
 FUN                EQ     EXIT.                                                           FUN         1641     A     
 FUN                                                                                       FUN         1642     A     
 FUN       PCL50    =X6    0                                                               FUN         1643     A     
 FUN                SA1    APTAB                                                           FUN         1644     A     
 FUN                ADDWD  X1                                                              FUN         1645     A     
 FUN                SA1    APLEN                                                           FUN         1646     A     
 FUN                =X7    X1+1                                                            FUN         1647     A     
 FUN                SA7    A1                                                              FUN         1648     A     
 FUN                EQ     EXIT.                                                           FUN         1649     A     
 FUN                                                                                       FUN         1650     A     
 FUN       PCLA     BSS    1                                                               FUN         1651     A     
 FUN       PCLB     BSS    1                                                               FUN         1652     A     
 FUN       PEJ      SPACE  4,8                                                             FUN         1653     A     
 FUN      **        PEJ -  PROCESS EXTERNAL JUMP.                                          FUN         1654     A     
 FUN      *                                                                                FUN         1655     A     
 FUN      *         ENTRY  (APLEN) = NUMBER OF ARGUMENTS.                                  FUN         1656     A     
 FUN      *                (ROUTNAM)= TAG OF ROUTINE TO CALL.                              FUN         1657     A     
 FUN      *                (T.APL) = CONTAINS THE ARGUMENTS, AT THE VERY END OF            FUN         1658     A     
 FUN      *                            THE TABLE.                                          FUN         1659     A     
 FUN      *                (TRACE) = LINE NO. FOR TRACEBACK                                FUN         1660     A     
 FUN                                                                                       FUN         1661     A     
 FUN      *                (X1) = 0 IFF ZERO-TERMINATOR REQUIRED.                          FUN         1662     A     
 FUN      *                                                                                FUN         1663     A     
 FUN      *         EXIT   EXTERNAL JUMP COMPILED.                                         FUN         1664     A     
 FUN      *                (APLEN) = 0                                                     FUN         1665     A     
 FUN      *                                                                                FUN         1666     A     
 FUN      *         CALLS  ADDWD, CLOAD, CRJ                                               FUN         1667     A     
 FUN                                                                                       FUN         1668     A     
 FUN                                                                                       FUN         1669     A     
 FUN       PEJ6     SA1    ROUTNAM                                                         FUN         1670     A     
 FUN                BX6    X1                                                              FUN         1671     A     
 FUN                SBIT   X1,P2.FPP                                                       FUN         1672     A     
 FUN                PL     X1,PEJ7     IF NOT FORMAL PARAMETER                             FUN         1673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                LX1    1+P2.FPP-P2.TAGP  SHIFT ORDINAL TO BOTTOM                       FUN         1674     A     
 FUN                MX7    -P2.TAGL                                                        FUN         1675     A     
 FUN                BX1    -X7*X1                                                          FUN         1676     A     
 FUN                =X7    1                                                               FUN         1677     A     
 FUN                SB7    X1                                                              FUN         1678     A     
 FUN                SA7    ENT.SUB     SET ADDSUB FLAG                                     FUN         1679     A     
 FUN                SB7    B7+B7                                                           FUN         1680     A     
 FUN                SA3    T.SYM       GET SYMBOL TABLE BASE                               FUN         1681     A     
 FUN                =X3    X3+WB.W                                                         FUN         1682     A     
 FUN                SB7    B7+X1       (B7) = 3 * ORDINAL                                  FUN         1683     A     
 FUN                SA1    X3+B7       GET WB  OF ROUTINE                                  FUN         1684     A     
 FUN                ERRNZ  3-Z=SYM                                                         FUN         1685     A     
 FUN                SA3    T.FPI       GET FWA FP INDEX TABLE                              FUN         1686     A     
 FUN                LX7    FP.LENP     POSITION SUB COUNTER INCRIMENT                      FUN         1687          I
          -FC50239
 FUN                LX7    FP.LENP     POSITION SUB COUNTER INCREMENT                      FC50239       23     A     
 FUN                HX1    WB.FPNO                                                         FUN         1688     A     
 FUN                =B7    X3-1        (B7) = FWA-1                                        FUN         1689     A     
 FUN                AX1    -WB.FPNOL   ISOLATE FPNO                                        FUN         1690     A     
 FUN                SA1    B7+X1       GET FPI ENTRY FOR ROUTINE((A1)=FWA+FPNO-1)          FUN         1691     A     
 FUN                IX7    X7+X1       INCRIMENT RA                                        FUN         1692          I
          -FC50239
 FUN                IX7    X7+X1       INCREMENT RA                                        FC50239       24     A     
 FUN                SA7    A1                                                              FUN         1693     A     
 FUN                                                                                       FC50239       25     A     
 FUN       PEJ7     SA3    TRACE       SET LINE NUMBER                                     FUN         1694     A     
 FUN                CRJ    MUST                                                            FUN         1695     A     
 FUN                                                                                       FUN         1696     A     
 FUN       PEJ      SUBR   -           ENTRY/EXIT...                                       FUN         1697     A     
 FUN                BX6    X1                                                              FUN         1698     A     
 FUN                SA6    PEJA                                                            FUN         1699     A     
 FUN                CALL   CIA         CLEAR INTERMEDIATES/ASSOCIATES                      FUN         1700     A     
 FUN                SA3    APLEN                                                           FUN         1701     A     
 FUN                SA5    T=APL       GET CURRENT APLIST LENGTH                           FUN         1702     A     
 FUN                ALLOC  T.APL,X3    RESERVE ENOUGH SPACE FOR STACKED APLIST             FUN         1703     A     
 FUN                IX3    X1+X5       (X3) = *TO* = FWA(APL) + PREVIOUS LEN(APL)          FUN         1704     A     
 FUN                SA2    APTAB       GET POINTER TO STACKED APLIST                       FUN         1705     A     
 FUN                SA5    X2          GET FWA OR STACKED APLIST                           FUN         1706     A     
 FUN                AX2    18          POSITION INDEX OF LIST IN SAP                       FUN         1707     A     
 FUN                SB2    X5                                                              FUN         1708     A     
 FUN                SA1    APLEN       (X1) = *COUNT* = LENGHT OF CURRENT LIST             FUN         1709          I
          -FC5A246
 FUN                SA1    APLEN       (X1) = *COUNT* = LENGTH OF CURRENT LIST             FC5A246       33     A     
 FUN                SX2    B2+X2       (X2) = *FROM* = FWA(SAP) + (INDEX OF LIST)          FUN         1710     A     
 FUN                MOVE   X1,X2,X3    MOVE CURRENT LIST APL                               FUN         1711     A     
 FUN                SA2    APLEN       GET APLIST LEN                                      FUN         1712     A     
 FUN                MX6    0                                                               FUN         1713     A     
 FUN                SA6    A2          APLEN = 0                                           FUN         1714     A     
 FUN                SB3    X2                                                              FUN         1715     A     
 FUN                SA2    PEJA                                                            FUN         1716     A     
 FUN                NZ     X2,PEJ1     IF NO TERMINATOR REQUESTED                          FUN         1717     A     
 FUN                =B3    B3+1                                                            FUN         1718     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                ADDWD  T.APL+USER  ZERO WORD APLIST TERM.                              FUN         1719     A     
 FUN                                                                                       FUN         1720     A     
 FUN       PEJ1     ZR     B3,PEJ6     IF NO APLIST                                        FUN         1721     A     
 FUN                                                                                       FUN         1722     A     
 FUN       SNAP=L   IFNE   TEST        DUMP AP-LIST TABLE                                  FUN         1723     A     
 FUN                SA3    CO.SNAP                                                         FUN         1724     A     
 FUN                LX3    1RL                                                             FUN         1725     A     
 FUN                PL     X3,PEJ3S    IF AP-LIST SNAP NOT SELECTED                        FUN         1726     A     
 FUN                DUMPT  APL                                                             FUN         1727     A     
 FUN       PEJ3S    BSS    0                                                               FUN         1728     A     
 FUN       SNAP=L   ENDIF                                                                  FUN         1729     A     
 FUN                                                                                       FUN         1730     A     
 FUN                SX5    USER                                                            FUN         1731     A     
 FUN                RJ     NAP         SCAN/ENTER AP-LIST TABLE.                           FUN         1732     A     
 FUN                MX0    -PB.TAGL                                                        FUN         1733     A     
 FUN                AX6    IA.TAGP                                                         FUN         1734     A     
 FUN                SX1    SA=BK/1S3+10B     GHIJ PORTION OF SA1 INSTRUCTION               FUN         1735     A     
 FUN                BX6    -X0*X6            EXTRACT PB. TAG (AP. APLIST INDEX)            FUN         1736     A     
 FUN                LX1    PB.GHIJP                                                        FUN         1737     A     
 FUN                LX6    PB.TAGP                                                         FUN         1738     A     
 FUN                BX7    X6+X1       MERGE GHIJ WITH ADDRESS FIELD                       FUN         1739     A     
 FUN                WCODE  X7,PEJ6     COMPILE LOAD OF AP-LIST TAG                         FUN         1740     A     
 FUN                                                                                       FUN         1741     A     
 FUN       PEJA     BSS    1                                                               FUN         1742     A     
 FUN       SAP      SPACE  4,20                                                            FUN         1743     A     
 FUN      **        SAP - STANDARD APLIST PROCESSOR                                        FUN         1744     A     
 FUN      *               SAP PASSES A P2. FORMATTED WORD TO                               FUN         1745     A     
 FUN      *               AAP WHICH PLACED THE TAG AND BIAS IN                             FUN         1746     A     
 FUN      *               THE CORRESPINDING AP. POSITIONS FOR                              FUN         1747     A     
 FUN      *               EVENTUAL ADDITION TO THE APROPRIATE APLIST                       FUN         1748     A     
 FUN      *               SAP ALSO SELECTS PLUG CODE AND STORE TO                          FUN         1749     A     
 FUN      *               TEM CODE WHEN NEEDED.                                            FUN         1750     A     
 FUN      *                                                                                FUN         1751     A     
 FUN      *         ENTRY  (X1) = ARGUMENT IN OPERAND FORMAT                               FUN         1752     A     
 FUN      *                (IOCTL)= 0 OR IA.IOCM                                           FUN         1753     A     
 FUN      *                (ATF) = 0      FOR NOT IO APL                                   FUN         1754     A     
 FUN      *                        1      FOR AN IO APL ITEM/ADDERESS                      FUN         1755     A     
 FUN      *                        1S59+1 FOR AN IO APL LENGTH/CONTROL CODE                FUN         1756     A     
 FUN      *                                                                                FUN         1757     A     
 FUN      *         EXIT   NEW ENTRY MADE IN T.APL OR T.IOA                                FUN         1758     A     
 FUN      *                CODE COMPILED TO EFFECT APLIST PLUG OR STORE TO TEMP            FUN         1759     A     
 FUN      *                                                                                FUN         1760     A     
 FUN      *         WARNING - THIS SUBROUTINE CALLS SUBSKELETONS WHICH RETURN TO           FUN         1761     A     
 FUN      *                   EXIT POINT VIA A CALL TO EIS.                                FUN         1762     A     
 FUN                                                                                       FUN         1763     A     
 FUN                                                                                       FUN         1764     A     
 FUN       SAP      SUBR               ENTRY/EXIT                                          FUN         1765     A     
 FUN                BX5    X1                                                              FUN         1766     A     
 FUN                MX0    -P2.USEL                                                        FUN         1767     A     
 FUN                SA3    ATF                                                             FUN         1768     A     
 FUN                SB6    X3          (B6) = IO INDICATOR                                 FUN         1769     A     
 FUN                BX0    -X0*X1      EXTRACT USE COUNT FIELD                             FUN         1770     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                ZR     X0,SAP5     IF OPERAND WAS NOT DUC-ED                           FUN         1771     A     
 FUN                SB2    0                                                               FUN         1772     A     
 FUN                RJ     GST         GET PARTIAL STATUS OF UPPER HALF OF ARG             FUN         1773     A     
 FUN                                                                                       FUN         1774     A     
 FUN      **        DETETMINE APLIST PROCESSOR                                             FUN         1775     A     
 FUN      *         (X1) = EITHER ARGUMENT STATUS WORD OR OPERAND WORD. WHEN               FUN         1776     A     
 FUN      *                A STATUS WORD EXISTS IT IS USED. IN BOTH CASES THE              FUN         1777     A     
 FUN      *                TAG AND BIAS FORMATS ARE SUITABLE FOR APLIST USE.               FUN         1778     A     
 FUN      *                EXCEPTION: ARRAYS  REQUIRE A SEPERATE LOAD OF THE               FUN         1779     A     
 FUN      *                1OP OF  THE DELAYED TURPLE.                                     FUN         1780     A     
 FUN      *         (X5) = ARG OPERAND WORD (AOP). IT HAS ALL P2. BITS PRESENT.            FUN         1781     A     
 FUN      *         (B6) = IO INDICATOR*: 1 FOR IO, 0 FOR USER CALL.                       FUN         1782     A     
 FUN                                                                                       FUN         1783     A     
 FUN       SAP5     LX3    X5                                                              FUN         1784     A     
 FUN                SA2    ATF         GET APLIST TYPE FUNCTION                            FUN         1785     A     
 FUN                BX0    X5                                                              FUN         1786     A     
 FUN                SBIT   X3,P2.INTRP                                                     FUN         1787     A     
 FUN                PL     X3,SAP10    IF NOT INTERMEDIATE                                 FUN         1788     A     
 FUN                                                                                       FUN         1789     A     
 FUN       .TEST    IFEQ   TEST,ON                                                         FUN         1790     A     
 FUN                MX6    -P2.USEL                                                        FUN         1791     A     
 FUN                BX6    -X6*X5                                                          FUN         1792     A     
 FUN                ZR     X6,"BLOWUP"           IF INTR NOT USE COUNTED                   FUN         1793     A     
 FUN       .TEST    ENDIF                                                                  FUN         1794     A     
 FUN                                                                                       FUN         1795     A     
 FUN                SBIT   X0,P2.ARRP                                                      FUN         1796     A     
 FUN                PL     X0,SAP50    IF NOT ARRAY INTERMEDIATE STORE TO TEMP             FUN         1797     A     
 FUN                MX6    -P2.TAGL                                                        FUN         1798     A     
 FUN                LX6    P2.TAGP                                                         FUN         1799     A     
 FUN                AX1    P2.BIASP    POSITION I. L. ORDINAL                              FUN         1800     A     
 FUN                SA2    T.PAR                                                           FUN         1801     A     
 FUN                SB7    X1+OR.1OP   (B7) = I. L. ORDINAL OF ARRAY TAG WORD              FUN         1802     A     
 FUN                ERRMI  P2.BIASL-18                                                     FUN         1803     A     
 FUN                SA1    B7+X2       GET ARRAY TAG                                       FUN         1804     A     
 FUN                BX1    -X6*X1            ISOLATE TAG                                   FUN         1805     A     
 FUN                SBIT   X3,P2.ADDRP/P2.INTRP                                            FUN         1806     A     
 FUN                MI     X3,SAP30    IF LOCF STORE TO TEMP                               FUN         1807     A     
 FUN                MI     X2,SAP30    IF I/O LENGTH  (A(I),I=1,J(K))                      FUN         1808     A     
 FUN                EQ     SAP20             PLUG ADDRESS INTO APLIST                      FUN         1809     A     
 FUN                                                                                       FUN         1810     A     
 FUN       SAP10    SBIT   X0,P2.ADDRP                                                     FUN         1811     A     
 FUN                MI     X0,SAP30    IF ADDRESS LOAD                                     FUN         1812     A     
 FUN                SBIT   X3,P2.FPP/P2.INTRP                                              FUN         1813     A     
 FUN                SBIT   X0,P2.LCMP/P2.ADDRP                                             FUN         1814     A     
 FUN                BX0    X0+X3                                                           FUN         1815     A     
 FUN                BX0    X2*X0                                                           FUN         1816     A     
 FUN                MI     X0,SAP30    IF FP/LCM IO LENGTH, STORE VALUE TO TEMP            FUN         1817     A     
 FUN                MI     X2,SAP80    IF OTHER IO, LENGTH ENTER DIRECTLY INTO APL         FUN         1818     A     
 FUN                MX0    -P2.TAGL                                                        FUN         1819     A     
 FUN                LX0    P2.TAGP     POSITION STATUS WORD                                FUN         1820     A     
 FUN                BX0    -X0*X1      EXTRACT TAG                                         FUN         1821     A     
 FUN                ZR     X0,SAP70    IF SHORT CON, EXPAND TO LONG CON                    FUN         1822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                NZ     B6,SAP80    IF IO APL, ENTER IN APL DIRECTLY                    FUN         1823     A     
 FUN                PL     X3,SAP80    IF NOT FP, ENTER IN APL DIRECTLY                    FUN         1824     A     
 FUN                                                                                       FUN         1825     A     
 FUN      **        PROCESSORS                                                             FUN         1826     A     
 FUN      *         CASE 1) VALUE LOADS FOR ARRAYS AND NON-IO FPS    ...SAP20              FUN         1827     A     
 FUN      *         CASE 2) ADDERESS LOADS AND IO LENGTH FOR FP/LCM  ...SAP30              FUN         1828     A     
 FUN      *         CASE 3) NON-ARY INTERMEDIATES                    ...SAP50              FUN         1829     A     
 FUN      *         CASE 4) NON-IO SHORT CONSTANTS                   ...SAP70              FUN         1830     A     
 FUN      *         CASE 5) EVERYONE ELSE: MOST COMMON CASE          ...SAP80              FUN         1831     A     
 FUN      *                                                                                FUN         1832     A     
 FUN      *         ENTRY  (X1) = ARGUMENT STATUS WORD/OPERAND                             FUN         1833     A     
 FUN      *                (X5) = ARGUMENT OPERAND                                         FUN         1834     A     
 FUN      *                (B6) = IO INDICATOR                                             FUN         1835     A     
 FUN      *                                                                                FUN         1836     A     
 FUN      *         EXIT   (X1) = TAG AND BIAS WORD TO REFORMAT AND ENTER IN APL           FUN         1837     A     
 FUN      *                (B5) = ORDINAL OF PLUG/STORE SKELETON OR -1.                    FUN         1838     A     
 FUN      *                (B7) = APLIST PLUG INDICATOR: 1 IF PLUG, ELSE 0                 FUN         1839     A     
 FUN                                                                                       FUN         1840     A     
 FUN      **        ARRAY AND NON-IO FP PROCESSOR                                          FUN         1841     A     
 FUN      *         SELECTS A STORE SKELETON WHICH PLUGS THE ADDRESS                       FUN         1842     A     
 FUN      *         OF THE ARG IN THE APLIST. GENTEATED L OPERANDS ARE                     FUN         1843     A     
 FUN      *         CONSTRUCTED.                                                           FUN         1844     A     
 FUN                                                                                       FUN         1845     A     
 FUN       SAP20    =X2    1                                                               FUN         1846     A     
 FUN                SA3    APLEN       GET CURRENT APL LENGTH FOR BIAS OF GL               FUN         1847     A     
 FUN                LX2    P2.ADDRP                                                        FUN         1848     A     
 FUN                BX5    X2+X5       SET ADDRESS BIT OF ARGUMENT                         FUN         1849     A     
 FUN                AX3    B6          IF IO, DIVIED APLIST LENGTH BY 2                    FUN         1850     A     
 FUN                SA2    APIND       TAG[GL2] = INDEX IN APLIST INDEX TABLE              FUN         1851     A     
 FUN                =X0    B6                                                              FUN         1852     A     
 FUN                SX2    X2+K2.AP    ADD IN PREFIX                                       FUN         1853     A     
 FUN                LX0    P2=PFX                                                          FUN         1854     A     
 FUN                IX2    X2+X0       TAG[GL2] = ORD[GL2] + PFX BASE + OFFSET             FUN         1855     A     
 FUN                LX3    P2.BIASP    BIAS[GL2] = NUMBER OF ARGUMENTS                     FUN         1856     A     
 FUN                BX7    X1          (X7) = TAG AND BIAS WORD TO PASS TO APL             FUN         1857     A     
 FUN                LX2    P2.TAGP                                                         FUN         1858     A     
 FUN                IX2    X2+X3       ADD BIAS INTO GL2 WORD                              FUN         1859     A     
 FUN                =X4    1           PLUG FLAG ON.                                       FUN         1860     A     
 FUN                SB5    W=IPLG0                                                         FUN         1861     A     
 FUN                EQ     SAP40       DO GL BOOKEEPING AND SELECT SKEL                    FUN         1862     A     
 FUN                                                                                       FUN         1863     A     
 FUN      **        ADDRESS LOADS AND FP/LCM IO LENGTHS                                    FUN         1864     A     
 FUN      *         NON-INTERMEDIATE STORE TO TEMP. STORES THE                             FUN         1865     A     
 FUN      *         ARGUMENT ADDRESS/VALUE IN TEMP AND THEN PASSEES                        FUN         1866     A     
 FUN      *         THE TEMP TAG AND BIAS TO THE APLIST.                                   FUN         1867     A     
 FUN                                                                                       FUN         1868     A     
 FUN       SAP30    SA2    N.ST        GET NUMBER OF TEMPORARYS                            FUN         1869     A     
 FUN                SA3    S=ST        GET ORDINAL OF TEMPORARY ARRAY                      FUN         1870     A     
 FUN                =X6    X2+1                                                            FUN         1871     A     
 FUN                LX3    P2.TAGP     TAG[GL2] = ORDINAL OF TEMP ARRAY                    FUN         1872     A     
 FUN                =A6    A2          UPDATE N.ST                                         FUN         1873     A     
 FUN                LX2    P2.BIASP    BIAS[GL2] = NUMBER OF TEMPS                         FUN         1874     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                =X4    0           PLUG FLAG IS OFF                                    FUN         1875     A     
 FUN                IX2    X2+X3       ADD GL2 TAG TO BIAS                                 FUN         1876     A     
 FUN                MX0    -OP.2MODL                                                       FUN         1877     A     
 FUN                BX7    X2          (X7) = TAG AND BIAS TO PASS TO APL                  FUN         1878     A     
 FUN                SB5    W=APSTR                                                         FUN         1879     A     
 FUN                                                                                       FUN         1880     A     
 FUN      **        BRANCH HERE IF SKELETON ALREADY SELECTED                               FUN         1881     A     
 FUN      *         (X5) = ARGUEMENT OPERAND                                               FUN         1882     A     
 FUN      *         (X7) = TAG AND BIAS WORD FOR APL                                       FUN         1883     A     
 FUN      *         (X2) = NEW STATUS WORD FOR GL2                                         FUN         1884     A     
 FUN      *         (X4) = APL PLUG INDICATOR                                              FUN         1885     A     
 FUN                                                                                       FUN         1886     A     
 FUN       SAP40    SA7    REG=G+1     SAVE APL TAG, BIAS AS GL2                           FUN         1887     A     
 FUN                =X6    0                                                               FUN         1888     A     
 FUN                CALL   POS         PREPARE STATUS WORD                                 FUN         1889     A     
 FUN                BX2    X5          (X2) = ARG OPERAND WORD                             FUN         1890     A     
 FUN                SA5    REG=G+1     (X5) = APL TAG AND BIAS                             FUN         1891     A     
 FUN                SA6    A5          SET GL2                                             FUN         1892     A     
 FUN                =X6    0                                                               FUN         1893     A     
 FUN                CALL   POS         PROCESS OPERAND AND STATUS WORD                     FUN         1894     A     
 FUN                SA6    REG=G       SET (GL1) = ARG                                     FUN         1895     A     
 FUN                SB7    X4          (B7) = STORE TO FLAG                                FUN         1896     A     
 FUN                BX1    X5          (X1) = APL TAG AND BIAS                             FUN         1897     A     
 FUN                EQ     SAP90                                                           FUN         1898     A     
 FUN                                                                                       FUN         1899     A     
 FUN      **        NON-ARY INTERMEDIATE CASE                                              FUN         1900     A     
 FUN      *         STORE TO TEMP WHENEVER THE INTERMEDIATE IS STILL                       FUN         1901     A     
 FUN      *         IN A REGISTER.                                                         FUN         1902     A     
 FUN      *         THE SECOND GST SERVES TWO PURPOSES:                                    FUN         1903     A     
 FUN      *         1) IT ACTUALLY DOES CHECK THE REG STATUS FOR                           FUN         1904     A     
 FUN      *            COMPLEX AND DOUBLE PRECISION INTERMEDIATES.                         FUN         1905     A     
 FUN      *         2) IT PRODUCES A STATUS WORD WITH A TAG AND BIAS                       FUN         1906     A     
 FUN      *            SUITABLE FOR APL USE.                                               FUN         1907     A     
 FUN      *                                                                                FUN         1908     A     
 FUN      *         (B2) = 0 IFF UPPER HALF IS NOT IN A REG.                               FUN         1909     A     
 FUN                                                                                       FUN         1910     A     
 FUN       SAP50    SB3    0           TYPE=UPPER                                          FUN         1911     A     
 FUN                CALL   STS         SET TAG STATUS (DECREMENT USE COUNT)                FUN         1912     A     
 FUN                ZR     B2,SAP55    IF NOT IN REG                                       FUN         1913     A     
 FUN                BX6    X5                                                              FUN         1914     A     
 FUN                SA6    REG=G       SAVE OPERAND IN GENERATED OP TAB                    FUN         1915     A     
 FUN                CALL   CWI         STORE TO TEMPORARY                                  FUN         1916     A     
 FUN                SA5    REG=G       RESTORE OPERAND                                     FUN         1917     A     
 FUN       SAP55    =B2    1           LOWER HALF                                          FUN         1918     A     
 FUN                =B7    0           PARTIAL STATUS                                      FUN         1919     A     
 FUN                CALL   GST         GET STATUS OF LOWER HALF                            FUN         1920     A     
 FUN                SB3    1           SET TYPE = LOWER                                    FUN         1921     A     
 FUN                CALL   STS         SET TAG STATUS (DECREMENT USE TOTAL)                FUN         1922     A     
 FUN                BX6    X1                                                              FUN         1923     A     
 FUN                SA6    REG=G       SAVE STATUS WORD IN G-OPERAND TABLE                 FUN         1924     A     
 FUN                ZR     B2,SAP60    IF LOWER PART NOT IN REG/EXISTANCE                  FUN         1925     A     
 FUN                CALL   CWI         WRITE LOWER PART TO TEMPORARY                       FUN         1926     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN       SAP60    SA1    REG=G       (X1) = TEMP TAG, BIAS FOR APL                       FUN         1927     A     
 FUN                =B7    0           PLUG FLAG OFF                                       FUN         1928     A     
 FUN                =B5    -1          INDICATE NO SKEL CALL                               FUN         1929     A     
 FUN                EQ     SAP90                                                           FUN         1930     A     
 FUN                                                                                       FUN         1931     A     
 FUN                                                                                       FUN         1932     A     
 FUN      **        SHORT CON CASE                                                         FUN         1933     A     
 FUN      *         DIFFERS ONLY FROM REGULAR CASE IN THAT SHORT                           FUN         1934     A     
 FUN      *         CON MUST BE CONVERTED TO LONG CONS. THEY ARE                           FUN         1935     A     
 FUN      *         THEN PASSED ON AS FOR REGULAR PROCESSING.                              FUN         1936     A     
 FUN                                                                                       FUN         1937     A     
 FUN       SAP70    RJ     ESC         EXPAND SHORT CONSTANT                               FUN         1938     A     
 FUN                LX1    P2.TAGP                                                         FUN         1939     A     
 FUN                LX3    P2.BIASP                                                        FUN         1940     A     
 FUN                BX1    X1+X3                                                           FUN         1941     A     
 FUN                                                                                       FUN         1942     A     
 FUN                                                                                       FUN         1943     A     
 FUN      **        MAIN CASE                                                              FUN         1944     A     
 FUN      *         SET FLAGS AND PASS TAG AND BIAS WORD TO APL                            FUN         1945     A     
 FUN                                                                                       FUN         1946     A     
 FUN       SAP80    SB5    -1          NO SKEL CALLS                                       FUN         1947     A     
 FUN                SB7    0           PLUG FLAG OFF                                       FUN         1948     A     
 FUN                                                                                       FUN         1949     A     
 FUN       SAP90    SA5    ATF         RESET APLIST TYPE FLAG                              FUN         1950     A     
 FUN                RJ     AAP                                                             FUN         1951     A     
 FUN                SX6    B5          GET SKELETON                                        FUN         1952     A     
 FUN                PL     B5,SUB.RET  PROCESS SKELETON                                    FUN         1953     A     
 FUN                                                                                       FUN         1954     A     
 FUN      **        O=APRET - RETURN FROM APLIST SUBSKELS                                  FUN         1955     A     
 FUN      *                THIS IS A DUMMY SO THAT SKELETONS CAN                           FUN         1956     A     
 FUN      *                PROCESS LIKE SUBROUTINES.                                       FUN         1957     A     
 FUN                                                                                       FUN         1958     A     
 FUN                                                                                       FUN         1959     A     
 FUN       O=APRET  BSSENT 0           SUB SKEL RETURN                                     FUN         1960     A     
 FUN                EQ     EXIT.       EXIT POINT FOR SAP                                  FUN         1961     A     
 FUN       SAS      SPACE  4,10                                                            FUN         1962     A     
 FUN      **        SAS - STACK APLIST STRUCTURES                                          FUN         1963     A     
 FUN      *         APLEN, APTAB, APIND, AND ATF ARE INITIALIZED HERE                      FUN         1964     A     
 FUN      *                                                                                FUN         1965     A     
 FUN      *         ENTRY  (LEVEL) = CURRENT STACK DEPTH                                   FUN         1966     A     
 FUN      *                                                                                FUN         1967     A     
 FUN      *         EXIT   (LEVEL) = NEW STACK DEPTH                                       FUN         1968     A     
 FUN      *                (B6) = (LEVEL)                                                  FUN         1969     A     
 FUN      *                (APLEN) = 0                                                     FUN         1970     A     
 FUN      *                (APTAB) = T.SAP OR PASSED VALUE                                 FUN         1971     A     
 FUN      *                (APIND) = APL NUMBER FOR - SA1  AP.(APIND) -                    FUN         1972     A     
 FUN      *                (ATF) = 0                                                       FUN         1973     A     
 FUN      *                (APLEN+(LEVEL)-1),(APTAB+(LEVEL)-1),...= THE  VALUES OF         FUN         1974     A     
 FUN      *                (APLEN),(APTAB),...RESP. UPON ENTRY TO SAS.                     FUN         1975     A     
 FUN      *                                                                                FUN         1976     A     
 FUN      *         USES A1,A2,A3,A6   X1,X2,X3,X6   B6                                    FUN         1977     A     
 FUN                                                                                       FUN         1978     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN         1979     A     
 FUN       SAS      SUBR               ENTRY/EXIT.                                         FUN         1980     A     
 FUN                SA3    LEVEL       GET CURRENT STACK DEPTH                             FUN         1981     A     
 FUN                =B6    X3+1        (B6) = NEW LEVEL                                    FUN         1982     A     
 FUN                                                                                       FUN         1983     A     
 FUN       .STACK   ECHO   ,P=(APLEN,APTAB,APIND,ATF)    P(LEVEL) = P(0)                   FUN         1984     A     
 FUN                SA2    P                                                               FUN         1985     A     
 FUN                BX6    X2                                                              FUN         1986     A     
 FUN                SA6    A2+B6                                                           FUN         1987     A     
 FUN       .STACK   ENDD                                                                   FUN         1988     A     
 FUN                                                                                       FUN         1989     A     
 FUN      **        INITIALIZE VALUES                                                      FUN         1990     A     
 FUN                                                                                       FUN         1991     A     
 FUN                SX6    B6                                                              FUN         1992     A     
 FUN                SA6    A3          RESET LEVEL                                         FUN         1993     A     
 FUN                SB5    T.API       APLIST INDEX POINTER                                FUN         1994     A     
 FUN                SB6    T.SAP       APLIST TABLE POINTER WORD                           FUN         1995     A     
 FUN                RJ     IAS         INITIALIZE APLIST STRUCTURES                        FUN         1996     A     
 FUN                EQ     EXIT.                                                           FUN         1997     A     
 FUN       SCI      SPACE  4,10                                                            FUN         1998     A     
 FUN      **        SCI - STORE TO CHARACTER ITEM                                          FUN         1999     A     
 FUN      *         THIS ROUTINE SETS UP A GENERATED L OPERAND AND                         FUN         2000     A     
 FUN      *         SELECTS A STORE SKELETON THAT PERSERVES AND                            FUN         2001     A     
 FUN      *         REPLACES THE FIELDS REQUIRED BY A PARTICULAR                           FUN         2002     A     
 FUN      *         ITEM.                                                                  FUN         2003     A     
 FUN      *                                                                                FUN         2004     A     
 FUN      *         ENTRY  NONE                                                            FUN         2005     A     
 FUN      *                                                                                FUN         2006     A     
 FUN      *         EXIT   PLUG CODE WRITTEN TO PRE-BINARY                                 FUN         2007     A     
 FUN      *                                                                                FUN         2008     A     
 FUN      *         USES - ALL BUT B4                                                      FUN         2009     A     
 FUN      *                                                                                FUN         2010     A     
 FUN      *         CALLS EIS                                                              FUN         2011     A     
 FUN                                                                                       FUN         2012     A     
 FUN                                                                                       FUN         2013     A     
 FUN       SCI      SUBR               ENTRY/EXIT                                          FUN         2014     A     
 FUN                SA5    ATF                                                             FUN         2015     A     
 FUN                                                                                       FUN         2016     A     
 FUN      **        CONSTRUCT GENERATED L OPERAND                                          FUN         2017     A     
 FUN                                                                                       FUN         2018     A     
 FUN                SA3    APLEN       GET INDEX OF CURRENT ITEM IN APLIST                 FUN         2019     A     
 FUN                SB6    X5                                                              FUN         2020     A     
 FUN                AX3    B6          LEN/2 IFF IO                                        FUN         2021     A     
 FUN                SX6    X5+K=AP     TAG PFX = K=AP+IO[ATF]V                             FUN         2022     A     
 FUN                LX3    -P2.TAGP+P2.BIASP                                               FUN         2023     A     
 FUN                SA1    APIND       GET CURRENT APLIST NUMBER                           FUN         2024     A     
 FUN                LX6    P2=PFX                                                          FUN         2025     A     
 FUN                IX6    X1+X6       TAG = LIST NUMBER + PREFIX                          FUN         2026     A     
 FUN                IX2    X6+X3       ADD TAG AND BIAS (APLEN)                            FUN         2027     A     
 FUN                LX2    P2.TAGP                                                         FUN         2028     A     
 FUN                =X6    0           SET USE COUNT INCRIMENT                             FUN         2029          I
          -FC50239
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                =X6    0           SET USE COUNT INCREMENT                             FC50239       26     A     
 FUN                CALL   POS         PERPARE OPERAND STATUS WORD                         FUN         2030     A     
 FUN                SA6    REG=G       SET GL1 CELL                                        FUN         2031     A     
 FUN                                                                                       FUN         2032     A     
 FUN      **        NOW CHOOSE A SKELETON                                                  FUN         2033     A     
 FUN      *         (X5) = ATF                                                             FUN         2034     A     
 FUN                                                                                       FUN         2035     A     
 FUN                BX0    X5                                                              FUN         2036     A     
 FUN                LX0    -AT.NULP                                                        FUN         2037     A     
 FUN                =X3    -1          SET BIT-0 MASK                                      FUN         2038     A     
 FUN                LX5    59-AT.IOP   POSITION IO BIT                                     FUN         2039     A     
 FUN                BX2    -X3*X0      EXTRACT NUL BIT                                     FUN         2040     A     
 FUN                AX5    59          SIGN EXTEND IO BIT                                  FUN         2041     A     
 FUN                =X6    X2+CIO      (X6)=2*NUL + CSKTAB IO OFFSET                       FUN         2042     A     
 FUN                BX6    X5*X6       CLEAR IF NOT IO                                     FUN         2043     A     
 FUN                SA2    X6+CSKTAB   GET PLUG SKELETON                                   FUN         2044     A     
 FUN                SX6    X2                                                              FUN         2045     A     
 FUN                EQ     SUB.RET                                                         FUN         2046     A     
 FUN                                                                                       FUN         2047     A     
 FUN       O=SCRET  BSSENT 0           CHARACTER STORE SKELETON RETURN                     FUN         2048     A     
 FUN                SB7    1           SET STORE FLAG TO AAP                               FUN         2049     A     
 FUN                EQ     EXIT.                                                           FUN         2050     A     
 FUN                                                                                       FUN         2051     A     
 FUN       CSKTAB   BSS    0                                                               FUN         2052     A     
 FUN                LOC    0                                                               FUN         2053     A     
 FUN       CUSR     CON    W=CAPST     USER                                                FUN         2054     A     
 FUN       CIO      CON    W=CIS0S     IO SCALAR LEVEL 0                                   FUN         2055     A     
 FUN                CON    W=CIA0S     IO ARRAY LEVEL 0                                    FUN         2056     A     
 FUN                LOC    *O                                                              FUN         2057     A     
 FUN       SSC      SPACE  4,10                                                            FUN         2058     A     
 FUN      **        SSC - SET STATUS OF CHARACTER                                          FUN         2059     A     
 FUN      *         HERE WE SAVE PERTINENT INFORMATION ABOUT CHARACTER                     FUN         2060     A     
 FUN      *         OPERANDS.  OF INTEREST IS:                                             FUN         2061     A     
 FUN      *                CAC ORDINAL IN P2.BIAS FIELD                                    FUN         2062     A     
 FUN      *                EQIVALENCE CLASS ORDINAL IN P2.TAG FIELD                        FUN         2063     A     
 FUN      *                ORIGINAL SYMBOL TABLE ENTRY IN ST.ORD1 FIELD                    FUN         2064     A     
 FUN      *                CAC BIT IS SET (P2.CACP)                                        FUN         2065     A     
 FUN      *                                                                                FUN         2066     A     
 FUN      *         ENTRY  (X3) = EQUIV CLASS BASE ORDINAL                                 FUN         2067     A     
 FUN      *                (X5) = OPD                                                      FUN         2068     A     
 FUN      *                (B7) = CAC ORDINAL / FP NUMBER                                  FUN         2069     A     
 FUN      *                                                                                FUN         2070     A     
 FUN      *         EXIT   (A1,X1) _,= STATUS WORD                                         FUN         2071     A     
 FUN      *                (X3) - PRESERVED                                                FUN         2072     A     
 FUN      *                (X5) - PRESERVED                                                FUN         2073     A     
 FUN      *                (B7) - PRESERVED                                                FUN         2074     A     
 FUN      *                                                                                FUN         2075     A     
 FUN      *         USES   A1,A2,A7 X0,X1,X2,X7  B2                                        FUN         2076     A     
 FUN      *                                                                                FUN         2077     A     
 FUN                                                                                       FUN         2078     A     
 FUN                                                                                       FUN         2079     A     
 FUN       SSC      SUBR               ENTRY/EXIT.                                         FUN         2080     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN         2081     A     
 FUN      .TEST     IFEQ   TEST,ON                                                         FUN         2082     A     
 FUN                MX0    -P2.USEL                                                        FUN         2083     A     
 FUN                BX0    -X0*X5      EXTRACT USE COUNT                                   FUN         2084     A     
 FUN                ZR     X0,"BLOWUP"                                                     FUN         2085     A     
 FUN      .TEST     ENDIF                                                                  FUN         2086     A     
 FUN                                                                                       FUN         2087     A     
 FUN                BX7    X5                                                              FUN         2088     A     
 FUN                SA2    T.OUS       GET FWA I. L.                                       FUN         2089     A     
 FUN                AX7    P2.TAGP     POSITION OUS ORDINAL                                FUN         2090     A     
 FUN                SB2    X2                                                              FUN         2091     A     
 FUN                LX3    P2.TAGP     POSITION EQUIV CLASS ORD                            FUN         2092     A     
 FUN                SX0    B7                                                              FUN         2093     A     
 FUN                SA1    B2+X7       GET STATUS WORD                                     FUN         2094     A     
 FUN                LX0    P2.BIASP    POSITION CAC ORD./FPNO                              FUN         2095     A     
 FUN                CLAS=  X2,P2,TAG                                                       FUN         2096     A     
 FUN                IX0    X3+X0       MERGE EQV BASE ORD AND CAC ORD/FPNO                 FUN         2097     A     
 FUN                BX7    X2*X1       EXTRACT SYM ORD OF OPD                              FUN         2098     A     
 FUN                CLAS=  X2,P2,(TAG,BIAS)                                                FUN         2099     A     
 FUN                BX1    -X2*X1      CLEAR TAG AND BIAS                                  FUN         2100     A     
 FUN                CLAS=  X2,ST,(ORD1)                                                    FUN         2101     A     
 FUN                BX1    -X2*X1      CLEAR OLD SYM TAB ORDINAL FIELD                     FUN         2102     A     
 FUN                LX5    -P2.FPP                                                         FUN         2103     A     
 FUN                LX7    -P2.TAGP+ST.ORD1P POSITION ORIGINAL SYM ORD                     FUN         2104     A     
 FUN                =X2    1                                                               FUN         2105     A     
 FUN                BX2    -X5*X2      (X2) = FP[OPD]                                      FUN         2106     A     
 FUN                BX0    X0+X7       MERGE ORD1 (OLD SYM TAB ORD) INTO STAT. WD.         FUN         2107     A     
 FUN                LX3    -P2.TAGP    RESET X3                                            FUN         2108     A     
 FUN                LX2    ST.CACP                                                         FUN         2109     A     
 FUN                BX7    X0+X2       MERGE IN CAC BIT                                    FUN         2110     A     
 FUN                LX5    P2.FPP                                                          FUN         2111     A     
 FUN                BX1    X7                                                              FUN         2112     A     
 FUN                SA7    A1                                                              FUN         2113     A     
 FUN                EQ     EXIT.                                                           FUN         2114     A     
 FUN       SUA      SPACE  4,8                                                             FC5A243      140     A     
 FUN      **        SUA - STORE UNKNOWN-LENGTH APLIST ADJUSTED TEMP.                       FC5A243      141     A     
 FUN      *                                                                                FC5A243      142     A     
 FUN      *         ENTRY  X1 = STATUS WORD.                                               FC5A243      143     A     
 FUN                                                                                       FC5A243      144     A     
 FUN       O=SURET  BSSENT 0           RETURN FROM SKELETON                                FC5A243      145     A     
 FUN       SUA      SUBR                                                                   FC5A243      146     A     
 FUN                LX1    -P2.BIASP                                                       FC5A243      147     A     
 FUN                SB6    X1                                                              FC5A243      148     A     
 FUN                RJ     DAT         SET UP ST.+K FOR SKEL                               FC5A243      149     A     
 FUN                SX6    =XW=SUA                                                         FC5A243      150          I
          -FC5A246
 FUN                SX6    W=SUA                                                           FC5A246       34     A     
 FUN                EQ     SUB.RET                                                         FC5A243      151     A     
 FUN                SPACE  4,10                                                            FUN         2115     A     
 FUN      **        GLOBAL DATA CELLS FOR FUN                                              FUN         2116     A     
 FUN                                                                                       FUN         2117     A     
 FUN      **        WALK CELLS                                                             FUN         2118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN         2119     A     
 FUN       LEAF     BSSZ   1                                                               FUN         2120     A     
 FUN       LNK.CUR  BSSZ   1                                                               FUN         2121     A     
 FUN       LNK.LST  BSSZ   1                                                               FUN         2122     A     
 FUN                                                                                       FUN         2123     A     
 FUN      **        SAVE CELLS                                                             FUN         2124     A     
 FUN                                                                                       FUN         2125     A     
 FUN      FUN.CUR   BSS    1           CURRENT SKELETON POINTER                            FUN         2126          I
          -FC5A246
 FUN       FUN.CUR  BSS    1           CURRENT SKELETON POINTER                            FC5A246       35     A     
 FUN      *CALL COMFSCB                                                                    FUN         2127     A     
 FUN                                                                                       FUN         2128     A     
 FUN      **        COUNTERS,  POINTERS AND FLAGS                                          FUN         2129     A     
 FUN                                                                                       FUN         2130     A     
 FUN       APLFLG   BSSENT 0                                                               FC50239       27     A     
 FUN       APLEN    BSSZ   3           LENGTH OF CURRENT APLIST                            FUN         2131     A     
 FUN       APIND    BSSZ   3           INDEX INTO INDEX TABLE                              FUN         2132     A     
 FUN       APTAB    BSSZ   3           42/INDEX[FW LIST],18/TABLE PTR WORD (T.)            FUN         2133     A     
 FUN       ATF      BSSZ   3           APLIST TYPE FUNCTION (CONTROLS IA. FORMAT)          FUN         2134     A     
 FUN                                                                                       FUN         2135     A     
 FUN       CLEN     BSSZ   1           LENGTH COUNTER FOR GENERATED APLISTS                FUN         2136     A     
 FUN                                                                                       FUN         2137     A     
 FUN       FAF      BSSZ   1           FIRST APLIST FLAG                                   FUN         2138     A     
 FUN                                                                                       FUN         2139     A     
 FUN       DEFDIF   BSSZ   1           DEFERED TURPLE POINTER DIFERENCE                    FUN         2140     A     
 FUN       COLDIF   BSSZ   1           COLIN TURPLE POINTER DIFFERENCE                     FUN         2141     A     
 FUN                                                                                       FUN         2142     A     
 FUN       LEVEL    BSSZ   1           STACK DEPTH INDICATOR                               FUN         2143     A     
 FUN       L.APLF   EQUENT *-APLFLG                                                        FC50239       28     A     
 FUN                                                                                       FUN         2144          I
          -FC5A128
 FUN      **        NON-CHARACTER SKELETONS                                                FUN         2145          I
          -FC5A128
 FUN                                                                                       FUN         2146          I
          -FC5A128
 FUN       APSKEL   CON    =XW=APSTR   NORMAL  APLIST STORE                                FUN         2147          I
          -FC5A128
 FUN       IOSKEL   CON    =XW=IPLUG   IO STORE SKELETON                                   FUN         2148          I
          -FC5A128
 FUN                SPACE  4,8                                                             FUN         2149     A     
 FUN                LIST   D                                                               FUN         2150     A     
 FUN                END                                                                    FUN         2151     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FUN     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FUN                       2151      2091
          FC5A151                      6         6
          FC5A165                      1         1
          FC5A243                    128       126
          FC5A246                     32        32
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
          FC50239                     17        17
          FC50651                     28        28
          FC51566                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *DECK     REG                                                                    REG            1     A     
 REG                IDENT  REG                                                             REG            2     A     
 REG       REG      SECT   ((QCG)    RESOURCE ALLOCATION.)                                 REG            3     A     
 REG       REG      SPACE  4                                                               REG            4     A     
 REG      *         IN FTN                                                                 REG            5     A     
 REG                EXT    COD,CO.DBTB,CO.SNAP                                             REG            6     A     
 REG                                                                                       REG            7     A     
 REG      *         IN FUN                                                                 REG            8     A     
 REG                EXT    ESC                                                             REG            9     A     
 REG                                                                                       REG           10     A     
 REG      *         IN GEN                                                                 REG           11     A     
 REG                EXT    EIS.PNX                                                         REG           12          I
          -FC50950
 REG                EXT    EIS.PNX,RUT.REG,IJK,INS.REG                                     FC50950        9     A     
 REG                                                                                       REG           13     A     
 REG      *         IN IDP                                                                 REG           14     A     
 REG                EXT    IDP=SVA,IDP=SVB,IDP=SVX,REG=,RSR=,SNP=,SVB,SVR=                 REG           15     A     
 REG                                                                                       REG           16     A     
 REG      *         IN QCGC                                                                REG           17     A     
 REG                EXT    DRITE,NOLDS,RGC,RGX,RREG,TYPLOD,UUC,WIN                         REG           18     A     
 REG                                                                                       REG           19     A     
 REG      *         IN PUC                                                                 REG           20     A     
 REG                EXT    N.ST,N.TABLE,S=ST,T=SYM,T.BLKS,T.OUS,T.PAR,T.SYM,WOF            REG           21     A     
 REG                                                                                       REG           22     A     
 REG      *         IN QSKEL                                                               FC5A375        6     A     
 REG                EXT    V=STR.I                                                         FC5A375        7     A     
 REG                                                                                       FC5A375        8     A     
 REG                LIST   -X                                                              REG           23     A     
 REG                                   COMAQCG IS LISTED IN QCGC                           REG           24     A     
 REG      *CALL     COMAQCG            QCG MACRO DEFINITIONS                               REG           25     A     
 REG                                   COMSQCG IS LISTED IN QCGC                           REG           26     A     
 REG      *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS                          REG           27     A     
 REG                                   COMSQRF IS LISTED IN QCGC                           REG           28     A     
 REG      *CALL     COMSQRF            QCG REGISTER ASSOCIATES                             REG           29     A     
 REG                                   DEFINS IS LISTED IN QSKEL                           REG           30     A     
 REG      *CALL     DEFINS             DEFINE MACHINE OPCODES                              REG           31     A     
 REG                                                                                       REG           32     A     
 REG                ENTRY  P2=KEEP                                                         REG           33     A     
 REG       P2=KEEP  BFLIT  P2,(TAG,BIAS,2ATR)                                              REG           34     A     
 REG       DEFREG   SPACE  4,10                                                            REG           35     A     
 REG      **        DEFREG - CONSTRUCT REGISTER TYPE SCAN WORDS.                           REG           36     A     
 REG      *                                                                                REG           37     A     
 REG      *         FOR EACH REG TYPE THERE ARE THREE WORDS --                             REG           38     A     
 REG      *         1.  OPCODE AND NUMBER OF REGS IN CLASS (RS. FORMAT).                   REG           39     A     
 REG      *         2.  60/N BITS FOR EACH REGISTER IN CLASS.                              REG           40     A     
 REG      *         3.  COPY OF WORD 2 (FOR INITIALIZATION).                               REG           41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG           42     A     
 REG      **T TYPE  6/ INST,  18/ MASK WIDTH,  18/ NUMBER,  18/ 0T0                        REG           43     A     
 REG      *   SCAN  W/ R.R1,  W/ R.R2, ..., W/ R.RN                                        REG           44     A     
 REG      *   COPY  W/ R.R1,  W/ R.R2, ..., W/ R.RN                                        REG           45     A     
 REG      *         REGISTERS ARE SCANNED AND ASSIGNED FROM RIGHT TO LEFT.                 REG           46     A     
 REG                                                                                       REG           47     A     
 REG                                                                                       REG           48     A     
 REG                MACRO  DEFREG,TYPE,INST,REGS,CLAS                                      REG           49     A     
 REG       B        SET                                                                    REG           50     A     
 REG      *                            COUNT MEMBERS IN CLASS                              REG           51     A     
 REG      .1        IRP    REGS                                                            REG           52     A     
 REG       B        SET    B+1                                                             REG           53     A     
 REG      .1        IRP    REGS                                                            REG           54     A     
 REG       D        SET    60/B                                                            REG           55     A     
 REG      *                            GENERATE FIELD FOR EACH MEMBER                      REG           56     A     
 REG       A        MICRO                                                                  REG           57     A     
 REG      .2        IRP    REGS                                                            REG           58     A     
 REG       A        MICRO  1,, "A"D/R.REGS,                                                REG           59     A     
 REG      .2        IRP    REGS                                                            REG           60     A     
 REG      *                                                                                REG           61     A     
 REG                ENTRY  TYPE                                                            REG           62     A     
 REG       TYPE     VFD    RS.INSL/INST/1S9,RS.MSKL/D,RS.NUML/B,RS.TYPL/CLAS               REG           63     A     
 REG                VFD    "A"                                                             REG           64     A     
 REG                VFD    "A"                                                             REG           65     A     
 REG       DEFREG   ENDM                                                                   REG           66     A     
 REG                                                                                       REG           67     A     
 REG                                                                                       REG           68     A     
 REG       RG=BADR  DEFREG SB=BK,(B1,B2,B3,B4,B5),REG.B                                    REG           69     A     
 REG       RG=INTR  DEFREG SX=XK,(X0,X6,X7),REG.X                                          REG           70     A     
 REG       RG=TEMP  DEFREG SX=XK,(X0,X1,X2,X3,X4,X5),REG.X                                 REG           71     A     
 REG       RG=ADR   DEFREG SB=BK,(B1,B2,B3,B4,B5),REG.B                                    REG           72          I
          -FC5A128
 REG       RG=LOAD  DEFREG SA=BK,(X1,X2,X3,X4,X5),REG.A                                    REG           73     A     
 REG       RG=LODX  DEFREG SX=BK,(X1,X2,X3,X4,X5),REG.X                                    REG           74     A     
 REG       RG=SET   DEFREG SX=XK,(X0,X1,X2,X3,X4,X5),REG.X                                 REG           75     A     
 REG       RG=STOR  DEFREG SX=BK,(X7,X6),REG.X                                             REG           76     A     
 REG       RG=APL   DEFREG SA=BK,(A3,A2,A1)                                                REG           77          I
          -FC5A128
 REG                                                                                       REG           78     A     
 REG                PURGMAC DEFREG                                                         REG           79     A     
 REG       AIR      SPACE  4,12                                                            REG           80     A     
 REG      **        AIR -  ASSIGN *INTERMEDIATE* REGISTER.                                 REG           81     A     
 REG      *                                                                                REG           82     A     
 REG      *         ENTRY  N/A                                                             REG           83     A     
 REG      *                                                                                REG           84     A     
 REG      *         EXIT   IF FREE REGISTER FOUND.                                         REG           85     A     
 REG      *                (B2) = REGISTER - 0TR, ASSIGNED                                 REG           86     A     
 REG      *                                                                                REG           87     A     
 REG      *                IF NO FREE REGISTER FOUND.                                      REG           88     A     
 REG      *                (B2) = - (0TR) FOR NEXT AVAILABLE LOAD REGISTER TO USE          REG           89     A     
 REG      *                (B5) = USE COUNT ON REGISTER.                                   REG           90     A     
 REG      *                                                                                REG           91     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         CALLS  DRITE,SFR                                                       REG           92     A     
 REG                                                                                       REG           93     A     
 REG                                                                                       REG           94     A     
 REG       AIR      SUBR   =           ENTRY/EXIT...                                       REG           95     A     
 REG                SB3    RG=INTR                                                         REG           96     A     
 REG                RJ     SFR         SCAN FOR REGISTER                                   REG           97     A     
 REG                ZR     X7,EXIT.    IF USE COUNT *0*                                    REG           98     A     
 REG                                                                                       REG           99     A     
 REG      **        HERE IF *INTERMEDIATE* REGISTERS NOT FREE.                             REG          100     A     
 REG                                                                                       REG          101     A     
 REG                DRITE  DEACTIVATE                                                      REG          102     A     
 REG                ZR     X2,AIR1     IF REGISTER NOT RELEASED                            REG          103     A     
 REG                ZR     X7,EXIT.    IF LAST USE OF REGISTER                             REG          104     A     
 REG                                                                                       REG          105     A     
 REG       AIR1     SB3    RG=LOAD                                                         REG          106     A     
 REG                RJ     SFR                                                             REG          107     A     
 REG                ZR     X7,EXIT.    IF REGISTER FREE                                    REG          108     A     
 REG                SB2    -B2                                                             REG          109     A     
 REG                MX0    -RG.USEL                                                        REG          110     A     
 REG                SA1    RGX                                                             REG          111     A     
 REG                ZR     X1,EXIT.    IF NON-INTERMEDIATE NOT AVAILABLE                   REG          112     A     
 REG                SA2    X1+REGFILE                                                      REG          113     A     
 REG                SB2    X1                                                              REG          114     A     
 REG                BX7    -X0*X2                                                          REG          115     A     
 REG                EQ     EXIT.                                                           REG          116     A     
 REG       ASR      SPACE  4,8                                                             REG          117     A     
 REG      **        ASR -  FIND AVAILABLE STORE REGISTER.                                  REG          118     A     
 REG      *                                                                                REG          119     A     
 REG      *         ENTRY  N/A                                                             REG          120     A     
 REG      *                                                                                REG          121     A     
 REG      *         EXIT   (B2) = 0TR.                                                     REG          122     A     
 REG      *                (X6) = 0R0.                                                     REG          123     A     
 REG      *                                                                                REG          124     A     
 REG      *         CALLS  DRITE,SFR,RUT,GNT,CLI                                           REG          125     A     
 REG      *                                                                                REG          126     A     
 REG      *         USES   A2,A5,A6  X0,X7  B7                                             REG          127     A     
 REG                                                                                       REG          128     A     
 REG                                                                                       REG          129     A     
 REG       ASR      SUBR   =           ENTRY/EXIT...                                       REG          130     A     
 REG                SB3    RG=STOR                                                         REG          131     A     
 REG                RJ     SFR         SCAN FOR REGISTER                                   REG          132     A     
 REG                ZR     X7,EXIT.    IF FREE REGISTER (USE COUNT = 0)                    REG          133     A     
 REG                DRITE  DEACTIVATE                                                      REG          134     A     
 REG                ZR     X2,ASR1     IF REGISTER NOT FREED                               REG          135     A     
 REG                ZR     X7,EXIT.    IF LAST USE OF REGISTER                             REG          136     A     
 REG       ASR1     SA1    B2+REGFILE                                                      REG          137     A     
 REG                BX0    X1                                                              REG          138     A     
 REG                SBIT   X0,P2.INTRP                                                     REG          139     A     
 REG                PL     X0,ASR2     IF NOT INTERMEDIATE                                 REG          140     A     
 REG                SBIT   X0,P2.ARRP/P2.INTRP                                             REG          141     A     
 REG                MI     X0,ASR2     IF ARRAY-LOAD                                       REG          142     A     
 REG                SA2    RGX                                                             REG          143     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                ZR     X2,ASR5     IF NON-INTERMEDIATE NOT AVAILABLE                   REG          144     A     
 REG                SB2    X2                                                              REG          145     A     
 REG       ASR2     RJ     RUT                                                             REG          146     A     
 REG                EQ     EXIT.                                                           REG          147     A     
 REG                                                                                       REG          148     A     
 REG       ASR5     RJ     GNT         GET NEXT TEMPORARY                                  REG          149     A     
 REG                SX2    B2                                                              REG          150     A     
 REG                =X7    0                                                               REG          151     A     
 REG                MX0    -3                                                              REG          152     A     
 REG                BX1    X6                                                              REG          153     A     
 REG                BX6    X5          SAVE X5                                             REG          154     A     
 REG                SA5    B2+REGFILE  TAG BEING STORED                                    REG          155     A     
 REG                SA7    A5          ZERO REGFILE ENTRY                                  REG          156     A     
 REG                SA6    ASRA                                                            REG          157     A     
 REG                BX6    -X0*X2                                                          REG          158     A     
 REG                LX6    3                                                               REG          159     A     
 REG                RJ     CLI         COMPILE LOAD (IN THIS CASE. A STORE) INS.           REG          160     A     
 REG                SA5    ASRA        RESTORE X5                                          REG          161     A     
 REG                EQ     EXIT.                                                           REG          162     A     
 REG                                                                                       REG          163     A     
 REG       ASRA     BSS    1           SAVE X5 CELL                                        REG          164     A     
 REG       AUT      SPACE  4,10                                                            REG          165     A     
 REG      **        AUT -  ADJUST USE TOTAL                                                REG          166     A     
 REG      *                                                                                REG          167     A     
 REG      *         NON-INTETMEDIATES:  DECRIMENTS USE FIELD OF OPERAND WORD               REG          168     A     
 REG      *                BY THE VALUE OR UC (USE COUNT INCRIMENT).                       REG          169     A     
 REG      *                                                                                REG          170     A     
 REG      *         INTERMEDIATES:  DECRINENTS THE USE TOTAL IN THE OPERATOR               REG          171     A     
 REG      *                WORD AND PLACES THIS VALUE IN THE USE FIELS OF THE              REG          172     A     
 REG      *                OPERAND.                                                        REG          173     A     
 REG      *                                                                                REG          174     A     
 REG      *         ENTRY  (A1) _ STATUS WORD                                              REG          175     A     
 REG      *                (X1) = STATUS WORD                                              REG          176     A     
 REG      *                (X2) = (UUC)                                                    REG          177     A     
 REG      *                (X5) = OPERAND                                                  REG          178     A     
 REG      *                (B3) = TYPE (UPPER OR LOWER)                                    REG          179     A     
 REG      *                                                                                REG          180     A     
 REG      *         EXIT   (A1,X1) - PRESERVED                                             REG          181     A     
 REG      *                (X5) = OPERAND WITH UPDATED USE COUNT FIELD                     REG          182     A     
 REG      *                (B3) - PRESERVED                                                REG          183     A     
 REG      *                                                                                REG          184     A     
 REG      *                USES        A2,A5,A7  X0,X2,X7  B7                              REG          185     A     
 REG      *                                                                                REG          186     A     
 REG      *         WARNING - TABLE MANAGER CALLS REQUIRE PROTECTION                       REG          187     A     
 REG      *         OF THE POINTER IN (A1).                                                REG          188     A     
 REG                                                                                       REG          189     A     
 REG                                                                                       REG          190     A     
 REG       AUT      SUBR               ENTRY/EXIT.                                         REG          191     A     
 REG                LX7    X5                                                              REG          192     A     
 REG                BX0    X2                                                              REG          193     A     
 REG                SBIT   X7,P2.INTRP                                                     REG          194     A     
 REG                PL     X7,EXIT.    IF NOT INTERMEDIATE                                 REG          195     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA2    T.PAR       GET FWA I. L.                                       REG          196     A     
 REG                LX7    1+P2.INTRP-P2.BIASP   POSITION I. L. ORDINAL                    REG          197     A     
 REG                SA5    B3+STATUS   GET SHIFT COUNT                                     REG          198     A     
 REG                SB7    X2          ADD ORDINAL TO FWA                                  REG          199     A     
 REG                AX5    36          POSITION SHIFT COUNT                                REG          200     A     
 REG                SA2    B7+X7       GET USE TOTAL (OPERATOR WORD)                       REG          201     A     
 REG                ERRMI  P2.BIASL-18                                                     REG          202     A     
 REG                LX7    P2.BIASP    RESET OPERAND                                       REG          203     A     
 REG                SB7    X5          (B7) = OP.UTOTP OR OP.LTOTP                         REG          204     A     
 REG                MX1    -OP.UTOTL   SET USE TOTAL MASK                                  REG          205     A     
 REG                BX5    X1*X7       CLEAR USE FIELD OF OPERAND                          REG          206     A     
 REG                ERRNZ  OP.UTOTL-RG.USEL                                                REG          207     A     
 REG                LX0    B7,X0                                                           REG          208     A     
 REG                IX7    X2-X0       SUBTRACT USE COUNT INCRIMENT                        REG          209     A     
 REG                AX2    B7,X2       POSITION USE COUNT FOR OPERAND                      REG          210     A     
 REG                BX2    -X1*X2      EXTRACT USE COUNT                                   REG          211     A     
 REG                SA7    A2          RESET USE TOTAL                                     REG          212     A     
 REG                IX5    X5+X2       ADD USE TOTAL INTO OPERAND                          REG          213     A     
 REG                ERRNZ  OP.UTOTL-RG.USEL                                                REG          214     A     
 REG                SA1    A1          RESET STATUS WORD                                   REG          215     A     
 REG                EQ     EXIT.                                                           REG          216     A     
 REG       CDS      SPACE  4,15                                                            REG          217     A     
 REG      **        CDS -  CHECK DELAYED STORE.                                            REG          218     A     
 REG      *                                                                                REG          219     A     
 REG      *         NOTE                                                                   REG          220     A     
 REG      *                *CDS* SHOULD ALWAYS BE CALLED VIA MACRO *DRITE*                 REG          221     A     
 REG      *                                                                                REG          222     A     
 REG      *         ENTRY  (X0) = 0 PROCESS DELAYED STORE IF SET                           REG          223     A     
 REG      *                       "0 PROCESS ONLY IF = TO (DRITE)                          REG          224     A     
 REG      *                       THAT BEING PROCESSED.                                    REG          225     A     
 REG      *                (X1) = TAG CURRENTLY BEING PROCESSED                            REG          226     A     
 REG      *                                                                                REG          227     A     
 REG      *         EXIT   (X2) = 0 IF DELAYED STORE NOT PROCESSED.                        REG          228     A     
 REG      *                       (X1) PRESERVED.                                          REG          229     A     
 REG      *                (X2) " 0 DELAYED STORE PROCESSED.                               REG          230     A     
 REG      *                       (X1) DESTROYED.                                          REG          231     A     
 REG      *                (B2) = REGISTER FOR *DRITE* RELEASED - 0TR.                     REG          232     A     
 REG      *                (X6) = 0R0 OF REGISTER FREED.                                   REG          233     A     
 REG      *                                                                                REG          234     A     
 REG      *         USES   A1,A2,A3  X0  B2,B7                                             REG          235     A     
 REG      *                (SCR2+4)                                                        REG          236     A     
 REG      *         CALLS  CIW                                                             REG          237     A     
 REG                                                                                       REG          238     A     
 REG                                                                                       REG          239     A     
 REG       CDS      SUBR   =           ENTRY/EXIT...                                       REG          240     A     
 REG                SA2    DRITE                                                           REG          241     A     
 REG                ZR     X2,EXIT.    IF NO DELAYED STORE ACTIVE                          REG          242     A     
 REG                SX7    B6                                                              REG          243     A     
 REG                SA7    CDSA        SAVE *B6*                                           REG          244     A     
 REG                                                                                       REG          245     A     
 REG      **        IF THE HARD REGISTER FLAG IS SET, WE TURN IT OFF TO PREVENT            REG          246     A     
 REG      *         ITS BEING DESTROYED BY A STORE INTO AN *FP*, THEN RESTORE IT.          REG          247     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       REG          248     A     
 REG                SA1    RREG                                                            REG          249     A     
 REG                MI     X1,CDS15    IF NO HARD REGISTER                                 REG          250     A     
 REG                BX7    -X1                                                             REG          251     A     
 REG                SA7    A1          TURN OFF FLAG                                       REG          252     A     
 REG                RJ     CIW         COMPILE STORE                                       REG          253     A     
 REG                SA1    RREG                                                            REG          254     A     
 REG                BX7    -X1                                                             REG          255     A     
 REG                SA7    A1          RESTORE FLAG                                        REG          256     A     
 REG                EQ     CDS20                                                           REG          257     A     
 REG                                                                                       REG          258     A     
 REG       CDS15    RJ     CIW         COMPILE STORE                                       REG          259     A     
 REG                                                                                       REG          260     A     
 REG       CDS20    SA1    DRITE                                                           REG          261     A     
 REG                BX7    0                                                               REG          262     A     
 REG                =X0    1                                                               REG          263     A     
 REG                SA3    CDSA                                                            REG          264     A     
 REG                SA7    A1          CLEAR DELAYED STORE FLAG                            REG          265     A     
 REG                SB6    X3                                                              REG          266     A     
 REG                SA2    B2+REGFILE                                                      REG          267     A     
 REG                MX3    -RG.USEL                                                        REG          268     A     
 REG                BX1    X1-X2                                                           REG          269     A     
 REG                BX7    -X3*X2                                                          REG          270     A     
 REG                NZ     X1,EXIT.    IF RGFILE TAG NOT SAME AS DRITE TAG                 REG          271     A     
 REG                IX7    X2-X0       USE COUNT-1                                         REG          272     A     
 REG                SA7    A2                                                              REG          273     A     
 REG                BX7    -X3*X7      USE COUNT ONLY                                      REG          274     A     
 REG                EQ     EXIT.                                                           REG          275     A     
 REG                                                                                       REG          276     A     
 REG       CDSA     DATA   0           SAVE *B6*                                           REG          277     A     
 REG       CIA      SPACE  4,10                                                            REG          278     A     
 REG      **        CIA -  CHECK IF ANY ACTIVE STORES / CLEAR ASSOCIATE.                   REG          279     A     
 REG      *                                                                                REG          280     A     
 REG      *         ENTRY  N/A                                                             REG          281     A     
 REG      *                                                                                REG          282     A     
 REG      *         EXIT   ASSOCIATES CLEARED, INTERMEDIATES STORED.                       REG          283     A     
 REG      *                                                                                REG          284     A     
 REG      *         USES   A1,A2,A3  X0  B2,B7                                             REG          285     A     
 REG      *                                                                                REG          286     A     
 REG      *         CALLS  DRITE,RUT                                                       REG          287     A     
 REG                                                                                       REG          288     A     
 REG       CIAA     BSSZ   1           LOCK CLEAR FLAG                                     REG          289     A     
 REG                                                                                       REG          290     A     
 REG       CIA      SUBR   =           ENTRY/EXIT...                                       REG          291     A     
 REG                DRITE  DEACTIVATE                                                      REG          292     A     
 REG                SB7    L.RGFILE-1                                                      REG          293     A     
 REG                MX0    -RG.USEL                                                        REG          294     A     
 REG                MX7    0                                                               FC50950       10     A     
 REG                SA7    RUT.REG     CLEAR IJK OF PREVIOUS INSTRUCTION                   FC50950       11     A     
 REG                EQ     CIA2                                                            REG          295     A     
 REG                                                                                       REG          296     A     
 REG       CIA1     MX7    0                                                               REG          297     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA7    A2          ZERO OUT REGFILE ENTRY                              REG          298     A     
 REG                                                                                       REG          299     A     
 REG       CIA2     ZR     B7,EXIT.    IF FINISHED                                         REG          300     A     
 REG                SA2    B7+REGFILE                                                      REG          301     A     
 REG                SB2    B7                                                              REG          302     A     
 REG                BX1    -X0*X2                                                          REG          303     A     
 REG                LX2    59-8                                                            REG          304     A     
 REG                =B7    B7-1                                                            REG          305     A     
 REG                ZR     X1,CIA1     IF USE COUNT ZERO                                   REG          306     A     
 REG                PL     X2,CIA3     IF REGISTER UN-LOCKED                               REG          307     A     
 REG                SA3    CIAA                                                            REG          308     A     
 REG                ZR     X3,CIA2     IF REGISTER TO REMAIN LOCKED                        REG          309     A     
 REG                MX0    1                                                               REG          310     A     
 REG                BX7    -X0*X2      REMOVE LOCK BIT                                     REG          311     A     
 REG                LX7    9                                                               REG          312     A     
 REG                SA7    A2          RESTORE IN REGFILE                                  REG          313     A     
 REG                                                                                       REG          314     A     
 REG       CIA3     RJ     RUT         RESET TAG                                           REG          315     A     
 REG                MX0    -RG.USEL                                                        REG          316     A     
 REG                =B7    B2-1                                                            REG          317     A     
 REG                EQ     CIA2        CONTINUE                                            REG          318     A     
 REG                                                                                       REG          319     A     
 REG       CIW      SPACE  4,12                                                            REG          320     A     
 REG      **        CIW -  COMPILE WRITE INSTRUCTIONS                                      REG          321     A     
 REG      *                                                                                REG          322     A     
 REG      *         ENTRY  (DRITE)  SET.                                                   REG          323     A     
 REG      *                                                                                REG          324     A     
 REG      *         EXIT   (B2) = REGISTER FOR WRITE - 0TR.                                REG          325     A     
 REG      *                (X6) = 0R0.                                                     REG          326     A     
 REG      *                                                                                REG          327     A     
 REG      *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                                    REG          328     A     
 REG      *                                                                                REG          329     A     
 REG      *         CALLS  DRITE,WCODE,CLI                                                 REG          330     A     
 REG                                                                                       REG          331     A     
 REG                                                                                       REG          332     A     
 REG       CIW      SUBR               ENTRY/EXIT...                                       REG          333     A     
 REG                SA2    DRITE                                                           REG          334     A     
 REG                MX0    -3                                                              REG          335     A     
 REG                =A1    A2+1        TAG FOR INSTRUCTION + *I* REGISTER                  REG          336     A     
 REG                MX7    -RG.USEL                                                        REG          337     A     
 REG                BX0    -X0*X2      =00R (*A* REGISTER FOR LEFT MEMBER)                 REG          338     A     
 REG                BX6    -X7*X1      =0R0 (*I* REGISTER)                                 REG          339     A     
 REG                IX7    X0+X6                                                           REG          340     A     
 REG                ZR     X0,CIW10    IF LEFT MEMBER NOT IN *A* REGISTER                  REG          341     A     
 REG                SA3    X0+REGFILE+REG.A                                                REG          342     A     
 REG                SX7    X7+SA=AB/1S3                                                    REG          343     A     
 REG                BX0    X2-X3                                                           REG          344     A     
 REG                LX7    PB.INSTP+3                                                      REG          345     A     
 REG                BX3    X6                                                              REG          346     A     
 REG                AX0    RG.USEL                                                         REG          347     A     
 REG                NZ     X0,CIW10    IF NOT SAME TAG                                     REG          348     A     
 REG                WCODE  X7                                                              REG          349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX6    X3                                                              REG          350     A     
 REG                AX3    3                                                               REG          351     A     
 REG                SB2    X3+REG.X                                                        REG          352     A     
 REG                EQ     EXIT.                                                           REG          353     A     
 REG                                                                                       REG          354     A     
 REG       CIW10    BX2    X6                                                              REG          355     A     
 REG                SA3    P2=KEEP                                                         REG          356     A     
 REG                AX2    3                                                               REG          357     A     
 REG                BX1    X3*X1                                                           REG          358     A     
 REG                BX7    X5                                                              REG          359     A     
 REG                SA7    CIWA        SAVE X5                                             REG          360     A     
 REG                BX5    X1                                                              REG          361     A     
 REG                SB2    X2+REG.X                                                        REG          362     A     
 REG                RJ     CLI                                                             REG          363     A     
 REG                SA5    CIWA        RESTORE X5                                          REG          364     A     
 REG                EQ     EXIT.                                                           REG          365     A     
 REG                                                                                       REG          366     A     
 REG       CIWA     DATA   0                                                               REG          367     A     
 REG       CLI      SPACE  4                                                               REG          368     A     
 REG      **        CLI - COMPILE LOAD INSTRUCTION.                                        REG          369     A     
 REG      *                                                                                REG          370     A     
 REG      *         ENTRY  (B2) = REGISTER TO USE - 0TR                                    REG          371     A     
 REG      *                (X1) = OPERAND TO LOAD (C.SYM TAG).                             REG          372     A     
 REG      *                (X5) = OPERAND TO LOAD (C.OUS TAG).                             REG          373     A     
 REG      *                (X6) = REGISTER TO USE - 0R0.                                   REG          374     A     
 REG      *                                                                                REG          375     A     
 REG      *         EXIT   (B2) = PRESERVED.                                               REG          376     A     
 REG      *                (X5) = PRESERVED.                                               REG          377     A     
 REG      *                                                                                REG          378     A     
 REG      *         USES   A2,A3,A6,A7  X0  B2,B3,B5,B7                                    REG          379     A     
 REG      *                                                                                REG          380     A     
 REG      *         CALLS  GNR,WCODE,CLT,RLL,RUL,CLP                                       REG          381     A     
 REG                                                                                       REG          382     A     
 REG                                                                                       REG          383     A     
 REG       CLI      SUBR               ...ENTRY/EXIT...                                    REG          384          I
          -FC5A346
 REG       CLI      SUBR   =           ...ENTRY/EXIT...                                    FC5A346       11     A     
 REG                BX7    X5                                                              REG          385     A     
 REG                SA7    CLI.X5                                                          REG          386     A     
 REG                MX7    0                                                               REG          387     A     
 REG                SA7    STORE                                                           REG          388     A     
 REG                MX0    1                                                               REG          389     A     
 REG                LX0    1+P2.ADDRP                                                      REG          390     A     
 REG                BX7    X0*X5                                                           REG          391     A     
 REG                SA7    ADDR                                                            REG          392     A     
 REG                BX7    X1                                                              REG          393     A     
 REG                SA7    CLI.X1      SAVE X1 (TAG)                                       REG          394     A     
 REG                MX0    -PB.BIASL                                                       REG          395     A     
 REG                LX0    P2.BIASP                                                        REG          396     A     
 REG                BX7    -X0*X1      BIAS                                                REG          397     A     
 REG                                                                                       REG          398     A     
 REG      **        CHECK FOR FORMAL PARAMETER.                                            REG          399     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG          400     A     
 REG      *         (B3) = REGISTER TO USE - 00R.                                          REG          401     A     
 REG      *         (B5) = 0TR.                                                            REG          402     A     
 REG      *         (X1) = TAG TO BE LOADED.                                               REG          403     A     
 REG      *         (X2) = MX2   -P2.FPNOL                                                 REG          404     A     
 REG      *         (X3) = TAG *BIAS*                                                      REG          405     A     
 REG      *         (X6) = REGISTER TO USE - 0R0.                                          REG          406     A     
 REG                                                                                       REG          407     A     
 REG                LX7    -P2.BIASP+PB.BIASP                                              REG          408     A     
 REG                SA7    CLI.X3      SAVE BIAS FIELD                                     REG          409     A     
 REG                SX7    B2                                                              REG          410     A     
 REG                SA7    CLIA                                                            REG          411     A     
 REG                                                                                       REG          412     A     
 REG      **        GET LOAD REGISTER FOR INDIRECT STORE.                                  REG          413     A     
 REG                                                                                       REG          414     A     
 REG                SA6    CLI.X6      SAVE X6 (0R0)                                       REG          415     A     
 REG                SB7    B2-R.X6                                                         REG          416     A     
 REG                MI     B7,CLI1     IF NOT STORE                                        REG          417     A     
 REG                =X7    1                                                               REG          418     A     
 REG                SA7    STORE                                                           REG          419     A     
 REG                                                                                       REG          420     A     
 REG       CLI1     BX2    X1                                                              REG          421     A     
 REG                HX2    P2.LCM                                                          REG          422     A     
 REG                MI     X2,CLI100   IF LCM REF                                          REG          423     A     
 REG                LX2    P2.LCMP-P2.FPP                                                  REG          424     A     
 REG                BX7    X6                                                              REG          425     A     
 REG                PL     X2,CLI15    IF NOT FP                                           REG          426     A     
 REG                MI     B7,CLI5     IF NOT STORE                                        REG          427     A     
 REG                SB3    RG=LOAD                                                         REG          428     A     
 REG                RJ     GNR         GET LOAD REGISTER                                   REG          429     A     
 REG                BX7    X6          (0R0) LOAD REGISTER                                 REG          430     A     
 REG                                                                                       REG          431     A     
 REG      *         RESTORE REGISTERS                                                      REG          432     A     
 REG                                                                                       REG          433     A     
 REG                SA3    CLI.X6                                                          REG          434     A     
 REG                BX6    X3          RESTORE X6                                          REG          435     A     
 REG                SA1    CLI.X1      RESTORE (X1)                                        REG          436     A     
 REG                                                                                       REG          437     A     
 REG       CLI5     BX5    X1                                                              REG          438     A     
 REG                AX7    3                                                               REG          439     A     
 REG                SB5    X7          00R FPREG                                           REG          440     A     
 REG                SB5    X6+B5                                                           REG          441     A     
 REG                BX6    X7                                                              REG          442     A     
 REG                LX6    6                                                               REG          443     A     
 REG                RJ     LPA         LOAD FP ADDRESS                                     REG          444     A     
 REG                SA2    ADDR                                                            REG          445     A     
 REG                SA3    CLI.X3                                                          REG          446     A     
 REG                SX7    B5+SA=XK/1S3                                                    REG          447     A     
 REG                ZR     X2,CLI10E   IF NOT ADDRESS                                      REG          448     A     
 REG                SB2    -SA=XK/1S3                                                      REG          449     A     
 REG                ZR     X3,CLI10D   IF ZERO BIAS                                        REG          450     A     
 REG                SX7    X7-SA=XK/1S3+SX=XK/1S3                                          REG          451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                EQ     CLI11                                                           REG          452     A     
 REG                                                                                       REG          453     A     
 REG      CLI10D    SB2    B2+XMT/1S3                                                      REG          454          I
          -FC5A258
 REG       CLI10D   SB2    B2+XMT/1S3                                                      FC5A258       52     A     
 REG                SX7    X7+B2                                                           REG          455     A     
 REG                EQ     CLI11                                                           REG          456     A     
 REG                                                                                       REG          457     A     
 REG       CLI10E   NZ     X3,CLI11    IF BIAS NE 0                                        REG          458     A     
 REG                SX7    B5+SA=XB/1S3                                                    REG          459     A     
 REG                                                                                       REG          460     A     
 REG       CLI11    LX7    PB.INSTP+3                                                      REG          461     A     
 REG                                                                                       REG          462     A     
 REG                IX7    X7+X3       ADD IN *BIAS*                                       REG          463     A     
 REG                EQ     CLI20       COMPLETE LOAD                                       REG          464     A     
 REG                                                                                       REG          465     A     
 REG      **        NOT FORMAL PARAMETER.                                                  REG          466     A     
 REG                                                                                       REG          467     A     
 REG       CLI15    MX0    P2.ORDL                                                         REG          468     A     
 REG                LX0    P2.ORDL+P2.ORDP                                                 REG          469     A     
 REG                                                                                       REG          470     A     
 REG      *         RESTORE REGISTERS                                                      REG          471     A     
 REG                                                                                       REG          472     A     
 REG                SA3    CLI.X3      RESTORE X3  (BIAS)                                  REG          473     A     
 REG                SA1    CLI.X1      RESTORE X1  (TAG)                                   REG          474     A     
 REG                                                                                       REG          475     A     
 REG                BX2    X0*X1       TAG                                                 REG          476     A     
 REG                MX0    P2.PFXL                                                         REG          477     A     
 REG                LX0    P2.PFXL+P2.PFXP                                                 REG          478     A     
 REG                BX0    X0*X1       EXTRACT TAG PREFIX                                  REG          479     A     
 REG                LX2    -P2.TAGP+PB.TAGP-PB.INSTP-3+60                                  REG          480     A     
 REG                LX0    -P2.PFXP+PB.TAGP+P=PFX-PB.INSTP-3+60      REPOSITION PF         REG          481     A     
 REG                BX2    X2+X0                                                           REG          482     A     
 REG                SX7    X6+SA=BK/1S3                                                    REG          483     A     
 REG                SA5    ADDR                                                            REG          484     A     
 REG                ZR     X5,CLI18A   IF NOT ADDR REF                                     REG          485     A     
 REG                SX7    X6+SX=BK/1S3                                                    REG          486     A     
 REG                                                                                       REG          487     A     
 REG       CLI18A   IX0    X7+X2                                                           REG          488     A     
 REG                LX0    PB.INSTP+3                                                      REG          489     A     
 REG                BX7    X3+X0       ADD IN *BIAS*                                       REG          490     A     
 REG                                                                                       REG          491     A     
 REG       CLI20    WCODE  X7                                                              REG          492     A     
 REG                                                                                       REG          493     A     
 REG       CLI90    SA5    CLI.X5                                                          REG          494     A     
 REG                MX0    -3                                                              REG          495     A     
 REG                SA3    CLIA                                                            REG          496     A     
 REG                SB2    X3                                                              REG          497     A     
 REG                BX6    -X0*X3                                                          REG          498     A     
 REG                LX6    3           =0R0                                                REG          499     A     
 REG                EQ     EXIT.                                                           REG          500     A     
 REG                                                                                       REG          501     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         LCM REF.                                                               REG          502     A     
 REG                                                                                       REG          503     A     
 REG       CLI100   MX7    0                                                               REG          504     A     
 REG                SA7    AFREG                                                           REG          505     A     
 REG                SX7    B2                                                              REG          506     A     
 REG                SA7    ALREG                                                           REG          507     A     
 REG                BX5    X1                                                              REG          508     A     
 REG                SX0    B2-R.X6                                                         REG          509     A     
 REG                MI     X0,CLI110   IF NOT STORE                                        REG          510     A     
 REG                MX0    -3                                                              REG          511     A     
 REG                BX0    -X0*X7                                                          REG          512     A     
 REG                SB7    X0                                                              REG          513     A     
 REG                RJ     RLL         LOCK HARD STORE REG                                 REG          514     A     
 REG                                                                                       REG          515     A     
 REG       CLI110   RJ     LLA         LOAD LCM ADDRESS                                    REG          516     A     
 REG                RJ     LLV         LOAD LCM VALUE                                      REG          517     A     
 REG                EQ     CLI90                                                           REG          518     A     
 REG                                                                                       REG          519     A     
 REG       CLIA     DATA   0                                                               REG          520     A     
 REG       CLI.X1   BSS    1                                                               REG          521     A     
 REG       CLI.X3   BSS    1                                                               REG          522     A     
 REG       CLI.X5   BSS    1                                                               REG          523     A     
 REG       CLI.X6   BSS    1                                                               REG          524     A     
 REG       CPL      SPACE  4,20                                                            REG          525     A     
 REG      **        CLP -  COMPILE LOAD OF POINTER WORD                                    REG          526     A     
 REG      *                                                                                REG          527     A     
 REG      *         ENTRY  (X5) = ECS/LCM NAME TAG                                         REG          528     A     
 REG      *                                                                                REG          529     A     
 REG      *         EXIT   INSTRUCTION COMPILED TO LOAD POINTER WORD                       REG          530     A     
 REG      *                                                                                REG          531     A     
 REG      *         USES   A1,A2,A3,A6  X0,X7  B2,B3,B6,B7                                 REG          532     A     
 REG                                                                                       REG          533     A     
 REG                                                                                       REG          534     A     
 REG       CLP      SUBR               ...ENTRY/EXIT...                                    REG          535     A     
 REG                RJ     GPT         GET POINTER TAG                                     REG          536     A     
 REG                LX2    PB.TAGP-CB.TAGP     ALIGN POINTER TAG                           REG          537     A     
 REG                SX1    SA=BK                                                           REG          538     A     
 REG                IX7    X1+X6       ADD IN *I* REGISTER                                 REG          539     A     
 REG                LX7    PB.INSTP     ALIGN                                              REG          540     A     
 REG                IX7    X7+X2       ADD IN TAG                                          REG          541     A     
 REG                WCODE  X7,EXIT.    COMPILE LOAD OF POINTER                             REG          542     A     
 REG                SPACE  4,8                                                             REG          543     A     
 REG      **        CRJ -  COMPILE RETURN JUMP SEQUENCE                                    REG          544     A     
 REG      *                                                                                REG          545     A     
 REG      *         SHOULD ALWAYS BE CALLED BY MACRO *CRJ*.                                REG          546     A     
 REG      *                                                                                REG          547     A     
 REG      *         COMPILES AN *RJ* TO A TAG, AND THE (OPTIONAL,DEPENDING ON              REG          548     A     
 REG      *                (CO.TBK)) TRACE-BACK INFORMATION.                               REG          549     A     
 REG      *         ALSO DEACTIVATES ANY DELAYED STORE, AND CLEARS ALL REGISTER            REG          550     A     
 REG      *                ASSOCIATES.                                                     REG          551     A     
 REG      *         ENTRY  (X1)<0 IF TRACEBACK IS MANDATORY.                               REG          552     A     
 REG      *                   = 0 IF TRACEBACK IS PROHIBITED                               REG          553     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                   > 0 IF TRACEBACK IS PERMITTED                                REG          554     A     
 REG      *                (X3) = LINE NO. FOR TRACEBACK (IF SELECTED)                     REG          555          I
          -FC50264
 REG      *                (X3) = LINE/SEQUENCE NUMBER FOR TRACEBACK                       FC50264       16     A     
 REG      *                X6 = 18/TAG,42/XXXX                                             REG          556     A     
 REG      *         USES   A2,A3,A6,A7                                                     REG          557     A     
 REG      *                                                                                REG          558     A     
 REG      *         CALLS  CIA, WCODE                                                      REG          559     A     
 REG                                                                                       REG          560     A     
 REG       CRJ      SUBR   =           ENTRY/EXIT...                                       REG          561     A     
 REG                SA2    CO.DBTB     TRACEBACK FLAG                                      REG          562     A     
 REG                AX6    P2.TAGP       REMOVE LOW-ORDER GARBAGE                          REG          563     A     
 REG                =X7    I.RJ3                                                           REG          564     A     
 REG                LX6    PB.TAGP-PB.GHIJP                                                REG          565     A     
 REG                ZR     X1,CRJ4     IF TRACE PROHIBITED                                 REG          566     A     
 REG                MI     X1,CRJ2     IF TRACE MANDATORY                                  REG          567     A     
 REG                PL     X2,CRJ4     IF T-OPTION NOT SELECTED                            REG          568     A     
 REG       CRJ2     SX7    X3-7777B                                                        REG          569          I
          -FC50264
 REG                MI     X7,CRJ3     IF LINE NO. .LT. 4096                               REG          570          I
          -FC50264
 REG                SX7    X3                                                              REG          571          I
          -FC50264
 REG                SA7    CRJB        SAVE LINE NO.                                       REG          572          I
          -FC50264
 REG                SX3    7777B       FLAG IN LINE NO.                                    REG          573          I
          -FC50264
 REG       CRJ3     =X7    I.RJ6                                                           REG          574          I
          -FC50264
 REG                                                                                       FC50264       17     A     
 REG       CRJ2     SX7    I.RJ6                                                           FC50264       18     A     
 REG                LX3    PB.BIASP-PB.GHIJP                                               REG          575     A     
 REG                BX6    X6+X3                                                           REG          576     A     
 REG                                                                                       FC50264       19     A     
 REG       CRJ4     BX6    X6+X7                                                           REG          577     A     
 REG                LX6    PB.GHIJP                                                        REG          578     A     
 REG                SA6    CRJA                                                            REG          579     A     
 REG                SA7    CIAA        SET LOCK CLEAR FLAG                                 REG          580     A     
 REG                RJ     CIA         CLEAR REGISTER ASSOCIATES                           REG          581     A     
 REG                MX6    0                                                               REG          582     A     
 REG                SA6    CIAA        CLEAR LOCK FLAG                                     REG          583     A     
 REG                SA2    CRJA                                                            REG          584     A     
 REG                BX7    X2                                                              REG          585     A     
 REG                WCODE  X7          RJ WORD TO LONG  FILE                               REG          586     A     
 REG                SA2    CRJB                                                            REG          587          I
          -FC50264
 REG                ZR     X2,EXIT.    IF LINE NO. WAS .LT. 4096                           REG          588          I
          -FC50264
 REG                SA3    CRJC                                                            REG          589          I
          -FC50264
 REG                WCODE  X3          SB0 B0+0 TO LONG FILE  (FILLER)                     REG          590          I
          -FC50264
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA2    CRJB        LINE NO.                                            REG          591          I
          -FC50264
 REG                SA3    CRJC        SB0 SKELETON                                        REG          592          I
          -FC50264
 REG                LX2    PB.BIASP      POSITION LINE NO. TO BIAS FIELD                   REG          593          I
          -FC50264
 REG                BX7    X3+X2                                                           REG          594          I
          -FC50264
 REG                WCODE  X7          SB0 B0+LINE NO.  TO LONG FILE                       REG          595          I
          -FC50264
 REG                =X7    0                                                               REG          596          I
          -FC50264
 REG                SA7    CRJB        CLEAR FLAG FOR NEXT TIME                            REG          597          I
          -FC50264
 REG                EQ     EXIT.                                                           REG          598     A     
 REG                                                                                       REG          599     A     
 REG       CRJA     BSS    1           TEMP CELL FOR INSTRUCTION                           REG          600     A     
 REG       CRJB     BSSZ   1           TEMP CELL FOR LINE NO. IF .GT. 4095                 REG          601          I
          -FC50264
 REG       CRJC     VFD    12/6100B,48/0  LONG FILE WORD FOR SB0 B0+K                      REG          602          I
          -FC50264
 REG       CRT      EJECT  4,50                                                            REG          603     A     
 REG      **        CRT - CHECK REGISTER TYPE                                              REG          604     A     
 REG      *                                                                                REG          605     A     
 REG      *         ENTRY  B2 = REGISTER TYPE TAG IS IN (0TR)                              REG          606     A     
 REG      *                B3 = REGISTER TYPE WANTED (0TR)                                 REG          607     A     
 REG      *                *T* BIT VALUES                                                  REG          608     A     
 REG      *                    =000 *B* REGISTER                                           REG          609     A     
 REG      *                    =010 *A* REGISTER                                           REG          610     A     
 REG      *                    =020 *X* REGISTER                                           REG          611     A     
 REG      *                                                                                REG          612     A     
 REG      *         EXIT   IF B7 = 0 IF TYPES MATCH                                        REG          613     A     
 REG      *                X7 = INSTRUCTION TO TRANSFER TO SAME TYPE                       REG          614     A     
 REG      *                                                                                REG          615     A     
 REG      *                IF B7 = INSTRUCTION TO TRANSFER IF DIFFERENT TYPES              REG          616     A     
 REG      *                X7 = B7                                                         REG          617     A     
 REG      *                                                                                REG          618     A     
 REG      *         THE FOLLOWING MATRIX IS USED TO DETERMINE INSTRUCTION                  REG          619     A     
 REG      *                                                                                REG          620     A     
 REG      *                                                                                REG          621     A     
 REG      *                     WANT REGISTER TYPE                                         REG          622     A     
 REG      *                                                                                REG          623     A     
 REG      *                        X         A           B                                 REG          624     A     
 REG      *                                                                                REG          625     A     
 REG      *                 +----------+----------+----------+                             REG          626     A     
 REG      *                 +          +          +          +                             REG          627     A     
 REG      *   I             +   SX=BB  +   SX=BB  +  -SB=BB  +                             REG          628     A     
 REG      *   N             +          +          +          +                             REG          629     A     
 REG      *                 +----------+----------+----------+                             REG          630     A     
 REG      *   R             +          +          +          +                             REG          631     A     
 REG      *   E             +   SA=AB  +  -SA=AB  +   SB=AB  +                             REG          632     A     
 REG      *   G             +          +          +          +                             REG          633     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *   I             +----------+----------+----------+                             REG          634     A     
 REG      *   S             +          +          +          +                             REG          635     A     
 REG      *   T             +  -XMIT   +  -XMIT   +   SB=XB  +                             REG          636     A     
 REG      *   E             +          +          +          +                             REG          637     A     
 REG      *   R             +----------+----------+----------+                             REG          638     A     
 REG      *                                                                                REG          639     A     
 REG      *                                                                                REG          640     A     
 REG      *         USES   A2  X0,X1,X2,X7  B7                                             REG          641     A     
 REG                                                                                       REG          642     A     
 REG                                                                                       REG          643     A     
 REG       CRT      SUBR               ENTRY/EXIT...                                       REG          644     A     
 REG                SA3    B3                                                              REG          645     A     
 REG                SX2    B2          REGISTER TYPE TAG IS IN                             REG          646     A     
 REG                SX3    X3          REGISTER TYPE WANTED                                REG          647     A     
 REG                AX2    3           ORDINAL INTO TABLE                                  REG          648     A     
 REG                MX0    -16         INSTRUCTION MASK                                    REG          649     A     
 REG                AX3    3                                                               REG          650     A     
 REG                SA2    X2+CRTTAB   GET INSTRUCTION TABLE ENTRY                         REG          651     A     
 REG                LX3    4           16*TYPE WANTED                                      REG          652     A     
 REG                SB7    X3          SHIFT COUNT                                         REG          653     A     
 REG                AX2    B7,X2       SHIFT TO APPROPRIATE INSTRUCTION                    REG          654     A     
 REG                BX7    -X0*X2                                                          REG          655     A     
 REG                LX7    60-16                                                           REG          656     A     
 REG                AX7    60-13       SIGN EXTEND                                         REG          657     A     
 REG                SB7    X7          INSTRUCTION TO B7                                   REG          658     A     
 REG                PL     X7,EXIT.    IF NOT TYPE MATCH - EXIT                            REG          659     A     
 REG                =B7    0           FLAG TYPE MATCH                                     REG          660     A     
 REG                BX7    -X7                                                             REG          661     A     
 REG                EQ     EXIT.                                                           REG          662     A     
 REG                                                                                       REG          663     A     
 REG       CRTI     MACRO  A,B,C                                                           REG          664     A     
 REG                VFD    12/0,16/A,16/B,16/C                                             REG          665     A     
 REG                ENDM                                                                   REG          666     A     
 REG                                                                                       REG          667     A     
 REG       CRTTAB   CRTI   SX=BB,SX=BB,-SB=BB                                              REG          668     A     
 REG                CRTI   SA=AB,-SA=AB,SB=XB    **** TEMP SB=XB ****                      REG          669     A     
 REG                CRTI   -XMT,-XMT,SB=XB                                                 REG          670     A     
 REG                                                                                       REG          671     A     
 REG                PURGMAC CRTI                                                           REG          672     A     
 REG       STINS    SPACE  4,8                                                             REG          673          I
          -FC5A258
 REG       CWI      SPACE  4,10                                                            FC5A258       53     A     
 REG      **        CWI -  COMPILE WRITE OF INTERMEDIATE.                                  REG          674     A     
 REG      *                                                                                REG          675     A     
 REG      *         CALLED TO STORE TO TEMP CELL AN INTERMEDIATE THAT IS BEING             REG          676     A     
 REG      *         CLOBBERED AND HAS AT LEAST ONE REMAINING USE.                          REG          677     A     
 REG      *                                                                                REG          678     A     
 REG      *         ENTRY  (B2) = 0TR.TO PROCESS.                                          REG          679     A     
 REG      *                (X5) = TAG TO PROCESS.                                          REG          680     A     
 REG      *                                                                                REG          681     A     
 REG      *         EXIT   (B2) = REGISTER USED. (0TR)                                     REG          682     A     
 REG      *                (X6) = TEMPORARY TAG  (TEMP-TAG, 2ATR).                         REG          683     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG          684     A     
 REG      *                (SCR, SCR+1)                                                    REG          685     A     
 REG      *                                                                                REG          686     A     
 REG      *         CALLS  GNT,ASR,WCODE,CLI                                               REG          687     A     
 REG                                                                                       REG          688     A     
 REG                                                                                       REG          689     A     
 REG       CWI      SUBR   =           ENTRY/EXIT...                                       REG          690     A     
 REG                MX6    0                                                               REG          691     A     
 REG                BX1    X5                                                              REG          692     A     
 REG                SA6    B2+REGFILE  CLEAR REGISTER FILE FOR INTER. BEING STORED         REG          693     A     
 REG                RJ     GNT                                                             REG          694     A     
 REG                SX5    B2-R.X0                                                         REG          695          I
          -FC50587
 REG                SB7    B2-R.X6                                                         REG          696          I
          -FC50587
 REG                MX0    -3                                                              FC50587        7     A     
 REG                SX5    B2                                                              FC50587        8     A     
 REG                BX5    -X0*X5      00R                                                 FC50587        9     A     
 REG                SB3    X5+REG.X    0XR                                                 FC50587       10     A     
 REG                SB7    B3-R.X6                                                         FC50587       11     A     
 REG                PL     B7,CWI20    IF IN STORE REGISTER                                REG          697     A     
 REG                SA6    CWIA        REMEMBER TAG                                        REG          698     A     
 REG                BX7    X5                                                              REG          699     A     
 REG                =A7    A6+1        SAVE REG                                            REG          700     A     
 REG                RJ     ASR                                                             REG          701     A     
 REG                SA3    CWIA+1      RETRIEVE REGISTER = 00L                             REG          702     A     
 REG                IX0    X3+X6       =RL                                                 REG          703     A     
 REG                SX7    X0+XMT/1S3                                                      REG          704     A     
 REG                BX5    X6                                                              REG          705     A     
 REG                LX7    PB.INSTP+3                                                      REG          706     A     
 REG                WCODE  X7          COMPILE *XMIT* TO *R*                               REG          707     A     
 REG                SA1    CWIA        RETRIEVE TAG                                        REG          708     A     
 REG                AX5    3           =00L  (L-R  = R)                                    REG          709     A     
 REG                BX6    X1                                                              REG          710     A     
 REG                                                                                       REG          711     A     
 REG      *         (X5) = REGISTER INTERMEDIATE IS IN = 00R                               REG          712     A     
 REG      *         (X6) = TEMP-TAG, 2ATR                                                  REG          713     A     
 REG      *         (B6) _ INTERMEDIATE                                                    REG          714     A     
 REG                                                                                       REG          715     A     
 REG       CWI20    BX1    X6                                                              REG          716     A     
 REG                SB2    X5+REG.X                                                        REG          717          I
          -FC5A222
 REG                BX6    X5                                                              REG          718     A     
 REG                LX6    3                                                               REG          719     A     
 REG                BX5    X1                                                              REG          720          I
          -FC5A222
 REG                RJ     CLI          COMPILE LOAD INSTRUCTION                           REG          721          I
          -FC5A222
 REG                SB5    X5+REG.X                                                        FC5A222        5     A     
 REG                BX5    X1                                                              FC5A222        6     A     
 REG                SX7    X6+SA=BK/1S3                                                    FC5A222        7     A     
 REG                MX0    -PB.BIASL                                                       FC5A222        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                LX0    P2.BIASP                                                        FC5A222        9     A     
 REG                BX3    -X0*X1      BIAS                                                FC5A222       10     A     
 REG                LX3    PB.BIASP-P2.BIASP                                               FC5A222       11     A     
 REG                MX0    -P2.TAGL                                                        FC5A222       12     A     
 REG                LX0    P2.TAGP                                                         FC5A222       13     A     
 REG                BX1    -X0*X1      TAG                                                 FC5A222       14     A     
 REG                LX1    PB.TAGP-P2.TAGP                                                 FC5A222       15     A     
 REG                LX7    PB.INSTP+3                                                      FC5A222       16     A     
 REG                BX0    X3+X7                                                           FC5A222       17     A     
 REG                BX7    X0+X1                                                           FC5A222       18     A     
 REG                WCODE  X7                                                              FC5A222       19     A     
 REG                SB2    B5                                                              FC5A222       20     A     
 REG                BX6    X5                                                              REG          722     A     
 REG                EQ     EXIT.                                                           REG          723     A     
 REG                                                                                       FC50264       20     A     
 REG       CWIA     BSS    2           SAVE TAG, REGISTER                                  REG          724     A     
 REG       DIT      SPACE  4,10                                                            REG          725     A     
 REG      **        DIT -  DEFINE INTERMEDIATE RESULTS.                                    REG          726     A     
 REG      *         DIT IS CALLED WHEN AN INTERMEDIATE HAS JUST BEEN                       REG          727     A     
 REG      *         CREATED.  SINCE AN OPERAND WORD FOR THE INTERMEDIATE                   REG          728     A     
 REG      *         ONLY EXISTS AT SOME UNKNOWN PLACE FURTHER ON IN THE                    REG          729     A     
 REG      *         I. L.,  DIT IS CALLED TO CREATE AN INTERMEDIATE OPER-                  REG          730     A     
 REG      *         AND WORD TO STICK IN THE REGFILE.                                      REG          731     A     
 REG      *                                                                                REG          732     A     
 REG      *         ENTRY  (B2) = REGISTER FOR INTERMEDIATE.                               REG          733     A     
 REG      *                (B3) = UP/LOW                                                   REG          734     A     
 REG      *                (B4) = ADDRESS OF TURPLE FOR INTERMEDIATE.                      REG          735     A     
 REG      *                (X5) = ATTR AMD CLASS BITS FOR INTERMEDIATE.                    REG          736     A     
 REG      *                       IE. ARY, ADDR  ETC.                                      REG          737     A     
 REG      *                                                                                REG          738     A     
 REG      *         EXIT   (B2) = 0TR, FOR INTERMEDIATE.                                   REG          739     A     
 REG      *                (A1,X1) (_,=) STATUS WORD OF INTERMEDIATE                       REG          740     A     
 REG      *                (X6) = 0R0, FOR INTERMEDIATE.                                   REG          741     A     
 REG      *                INTERMEDIATE TAG PUT IN REGISTER FILE.                          REG          742     A     
 REG      *                                                                                REG          743     A     
 REG      *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B6,B7                           REG          744     A     
 REG      *                                                                                REG          745     A     
 REG      *         CALLS  STS                                                             REG          746     A     
 REG                                                                                       REG          747     A     
 REG       DIT      SUBR   =           ENTRY/EXIT...                                       REG          748     A     
 REG                SA2    B3+STATUS   GET SHIFT COUNT WORD FOR STATUS ROUTINES            REG          749     A     
 REG                =A3    B4+OR.OPR   GET OPERATOR                                        REG          750     A     
 REG                AX2    36          POSITION USE TOTAL SHIFT COUNT                      REG          751     A     
 REG                SB7    X2          (B7) = OP.UTOTP OR OP.LTOTP                         REG          752     A     
 REG                MX0    OP.2MODL    SET MODE MASK                                       REG          753     A     
 REG                AX2    B7,X3       POSITION USE TOTAL                                  REG          754     A     
 REG                SA1    T.OUS                                                           REG          755     A     
 REG                MX6    -OP.UTOTL   GET USE TOTAL (UTOTL = LTOTL NOW)                   REG          756     A     
 REG                LX0    OP.2MODP+OP.2MODL                                               REG          757     A     
 REG                SB7    X1          (B7) = FWA OUS                                      REG          758     A     
 REG                BX6    -X6*X2      EXTRACT USE TOTAL                                   REG          759     A     
 REG                SA2    T.PAR       GET FWA I. L.                                       REG          760     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX0    X0*X3       EXTRACT MODE                                        REG          761     A     
 REG                LX0    -OP.2MODP                                                       REG          762     A     
 REG                SX1    X0-M.DBL                                                        REG          763     A     
 REG                MX0    -1                                                              REG          764     A     
 REG                BX1    X0*X1                                                           REG          765     A     
 REG                ZR     X1,DIT1     IF DOUBLE OR COMPLEX                                REG          766     A     
 REG                MX0    60                                                              REG          767     A     
 REG                                                                                       REG          768     A     
 REG       DIT1     LX0    P2.LONGP                                                        REG          769     A     
 REG                SB5    X2          (B5) = FWA I. L.                                    REG          770     A     
 REG                HX3    OP.2ORD     POSITION OUS ORD                                    REG          771     A     
 REG                AX3    -OP.2ORDL   ISOLATE OUS ORD                                     REG          772     A     
 REG                SX2    B4-B5       (X2) = I. L. ORD OF INTERMEDIATE                    REG          773     A     
 REG                SA1    B7+X3       GET STATUS WORD                                     REG          774     A     
 REG                LX2    P2.BIASP-P2.TAGP  PLACE I. L. ORD IN BIAS FIELD                 REG          775     A     
 REG                IX3    X3+X2       ADD TAG TO BIAS                                     REG          776     A     
 REG                                                                                       REG          777     A     
 REG      **        CONSTRUCT REGFILE ENTRY FOR INTERMIDIATE                               REG          778     A     
 REG      *         (A1) _ STATUS WORD                                                     REG          779     A     
 REG      *         (X0) = MODE IN P2.2MOD FIELD                                           REG          780     A     
 REG      *         (X1) = STATUS WORD                                                     REG          781     A     
 REG      *         (X3) = 18/I. L. ORD,24/0,18/OUS ORD                                    REG          782     A     
 REG      *         (X5) = SELECTIVE BITS(ADDR,ARR,ETC.)                                   REG          783     A     
 REG      *         (X6) = USE COUNT                                                       REG          784     A     
 REG                                                                                       REG          785     A     
 REG                                                                                       REG          786     A     
 REG                CLAS=  X7,P2,(INTR)                                                    REG          787     A     
 REG                LX6    RG.USEP                                                         REG          788     A     
 REG                BX7    X7+X5       SET *INTERMEDIATE* ATTRIBUTE                        REG          789     A     
 REG                LX3    P2.TAGP     POSITION TAG AND BIAS                               REG          790     A     
 REG                BX5    -X0+X3      OUS ORD + I.L. ORD + LONG                           REG          791     A     
 REG                IX5    X5+X6       ADD IN DUMMY USE COUNT                              REG          792     A     
 REG                ERRNZ  OP.UTOTL-P2.USEL                                                REG          793     A     
 REG                BX5    X7+X5       (X5) NOW SUITABLE FOR ENTRY INTO REGFILE            REG          794     A     
 REG       .TEST    IFEQ   TEST,ON                                                         REG          795     A     
 REG                NZ     X6,DIT8     IF INTERMEDIATE NEEDED (USE .NE. 0)                 REG          796     A     
 REG                SA2    CO.SNAP                                                         REG          797     A     
 REG                LX2    1RW                                                             REG          798     A     
 REG                PL     X2,DIT8     IF NOT REQUESTED                                    REG          799     A     
 REG       USE=0    REG    (A1,X5)                                                         REG          800     A     
 REG       DIT8     BSS                                                                    REG          801     A     
 REG       .TEST    ENDIF                                                                  REG          802     A     
 REG                                                                                       REG          803     A     
 REG                ZR     X6,DIT9     IF USE COUNT ZERO NO REGFILE ENTRY                  REG          804     A     
 REG                RJ     STS         SET TAG STATUS                                      REG          805     A     
 REG       DIT9     SX3    B2          =0TR                                                REG          806     A     
 REG                MX2    -3                                                              REG          807     A     
 REG                BX6    -X2*X3      =00R                                                REG          808     A     
 REG                LX6    3                                                               REG          809     A     
 REG                EQ     EXIT.                                                           REG          810     A     
 REG       DSC      SPACE  4,8                                                             REG          811     A     
 REG      **        DSC -  DETERMINE STATUS CLASS                                          REG          812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         DSC GETS A TAG'S REGISTER STATUS,  COMPARES ITS                        REG          813     A     
 REG      *         (0TR) TO A DESIRED REGISTER CLASS,  AND,  IF NEC-                      REG          814     A     
 REG      *         ESSARY,  PASSES BACK AN INSTRUCTION AND REGISTER                       REG          815     A     
 REG      *         CLASS TO SEARCH TO ACHIEVE CORRECT REGISTER STATUS.                    REG          816     A     
 REG      *         NOTE - DSC IS REALLY JUST A GST WITH REGISTER CLASS                    REG          817     A     
 REG      *         CHECKING.                                                              REG          818     A     
 REG      *                                                                                REG          819     A     
 REG      *         ENTRY  (X5) = OPERAND/REGFILE ENTRY                                    REG          820     A     
 REG      *                (B2) = MODE TYPE (0 UPPER, 1 LOWER)                             REG          821     A     
 REG      *                (B3) = RG=XXXX :  THE REGISTER CLASS DESIRED                    REG          822     A     
 REG      *                                                                                REG          823     A     
 REG      *         EXIT   (A1,X1) _,= STATUS WORD RESP.                                   REG          824     A     
 REG      *                (X5) = SAME OPERAND                                             REG          825     A     
 REG      *                (X7) = TRANSFER INSTRUCTION OR N/A                              REG          826     A     
 REG      *                (B2) = (0TR)[OPERAND] OR 0                                      REG          827     A     
 REG      *                (B3) = REGISTER CLASS TO SEARCH                                 REG          828     A     
 REG      *                (B7) = 1 OF(0TR)[OPERAND] O. K.,  ELSE 0                        REG          829     A     
 REG      *                                                                                REG          830     A     
 REG      *         USES   A1,A2,A3,A6,A7,  X0,X1,X2,X3,X6,X7  B2,B3,B7                    REG          831     A     
 REG      *                                                                                REG          832     A     
 REG      *         CALLS  CRT,GST                                                         REG          833     A     
 REG                                                                                       REG          834     A     
 REG                                                                                       REG          835     A     
 REG       DSC      SUBR   =           ENTRY/EXIT                                          REG          836     A     
 REG                RJ     GST         GET STATUS OF TAG                                   REG          837     A     
 REG                ZR     B2,EXIT.                                                        REG          838     A     
 REG                RJ     CRT         CHECK REGISTER TYPE                                 REG          839     A     
 REG                NZ     B7,DSC1     IF TYPES DO NOT MATCH                               REG          840     A     
 REG                SA2    RREG        GET HARD REGISTER                                   REG          841     A     
 REG                MX3    -3          SET (00R) MASK                                      REG          842     A     
 REG                SX0    B2          (X0) = (0TR)[OPERAND]                               REG          843     A     
 REG                MI     X2,EXIT.    IF NO HARD REGISTER                                 REG          844     A     
 REG                BX0    X0-X2       COMPARE (0TR)[OPERAND] TO HARD REG (0TR)            REG          845     A     
 REG                BX0    -X3*X0      CLEAR ALL BUT DIFFERENCE IN REG NUMBER              REG          846     A     
 REG                NZ     X0,DSC1     IF NOT IN CORRECT REGISTER                          REG          847     A     
 REG                BX7    -X2         CLEAR HARD REGISTER ASSIGNMENT                      REG          848     A     
 REG                SA7    A2                                                              REG          849     A     
 REG                EQ     EXIT.       FINISH UP                                           REG          850     A     
 REG                                                                                       REG          851     A     
 REG      *         TAG IS NOT IN CORRECT REGISTER.                                        REG          852     A     
 REG      *         (X7) = INSTRUCTION TO USE.                                             REG          853     A     
 REG      *         (B2) = (0TR)[OPERAND]                                                  REG          854     A     
 REG                                                                                       REG          855     A     
 REG       DSC1     SB7    X7+                                                             REG          856     A     
 REG                SX0    B2-R.X6     (X0) = (0TR)[OPREAND] - (0TR)[X6]                   REG          857     A     
 REG                MI     X0,DSC2     IF NOT STORE REGISTER                               REG          858     A     
 REG                                                                                       REG          859     A     
 REG      **        TAG IS CURRENTLY IN A STORE REGISTER.  THE REGISTER TO WHICH           REG          860     A     
 REG      *         IT WILL BE TRANSMITTED MAY NOT BE FREE AND MAY THEREFORE               REG          861     A     
 REG      *         REQUIRE A STORE REGISTER TO CONVEY ITS CONTENTS TO MEMORY.             REG          862     A     
 REG      *         WE LOCK THE STORE REGISTER NOW,REMEMBER IT, AND UNLOCK ITS             REG          863     A     
 REG      *         REGFILE ENTRY WHEN IT IS SAFE TO DO SO.                                REG          864     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       REG          865     A     
 REG                SX7    B2                                                              REG          866     A     
 REG                SA7    STRGLK      REGISTER TO CLEAR                                   REG          867     A     
 REG                SA2    B2+REGFILE  GET REGFILE ENTRY OF OPERAND                        REG          868     A     
 REG                SX0    RLOCK                                                           REG          869     A     
 REG                BX7    X0+X2       LOCK ON                                             REG          870     A     
 REG                SA7    A2          RESET REGFILE ENTRY WITH LOCK ON                    REG          871     A     
 REG                EQ     DSC3                                                            REG          872     A     
 REG                                                                                       REG          873     A     
 REG       DSC2     =X0    REG.A       (X0) = (0T0) FOR AN A-REG                           REG          874     A     
 REG                SX2    B2          (X2) = (0TR)[OPERAND]                               REG          875     A     
 REG                BX7    0                                                               REG          876     A     
 REG                SX3    B7          (X3) = INSTRUCTION (GHIJ)                           REG          877     A     
 REG                BX2    X0*X2       EXTRACT A-REG TYPE BIT                              REG          878     A     
 REG                SA7    B2+REGFILE                                                      REG          879     A     
 REG                ZR     X2,DSC3     IF TAG NOT IN *A* REGISTER                          REG          880     A     
 REG                SA2    A7+REG.X-REG.A   GET ASSOCIATE *X* REG                          REG          881     A     
 REG                NO                                                                     REG          882     A     
 REG                BX7    X2-X5                                                           REG          883     A     
 REG                AX7    RG.USEL                                                         REG          884     A     
 REG                NZ     X7,DSC3     IF NOT SAME TAGE IN *X* REGISTER                    REG          885     A     
 REG                SA7    A2          CLEAR ASSIGNMENT                                    REG          886     A     
 REG       DSC3     AX3    9           (X3) = *G* PART OR TRANSFER INSTRUCTION             REG          887     A     
 REG                SB3    RG=LODX                                                         REG          888     A     
 REG                SX7    B7          (X7) = INSTRUCTION                                  REG          889     A     
 REG                MX0    -2          SET MASK FOR ORDINAL INTO DSCTAB                    REG          890     A     
 REG                SX2    B7-XMT/1S3  (X2) = TRANSFER INST (GHIJ) - XMT/1S3S3             REG          891     A     
 REG                SB7    B1                                                              REG          892     A     
 REG                ZR     X2,EXIT.    IF XMIT                                             REG          893     A     
 REG                                                                                       REG          894     A     
 REG      **        THE TRANSFER INSTRUCTION IS AN INCRIMENT INSTRUCTION                   REG          895     A     
 REG      *         SO, WE USE THE BOTTOM 2 BITS OF THE *G* PORTION TO INDEX               REG          896     A     
 REG      *         INTO THE DSC.LOD TABLE, RG=XXX VALUES FOR CORRESPONDING                REG          897     A     
 REG      *         INCRIMENT REGISTER CLASSES.                                            REG          898     A     
 REG                                                                                       REG          899     A     
 REG                BX0    -X0*X3      (X0) = 0-1 BIT OF *G* PART OR TRANSFER INST         REG          900     A     
 REG                SA2    X0+DSC.LOD  GET TYPE OF LOAD TO USE                             REG          901     A     
 REG                SB3    X2          (B3) = RG=LOAD,  RG=BADR OR RG=LODX                 REG          902     A     
 REG                EQ     EXIT.       FINISH UP                                           REG          903     A     
 REG                                                                                       REG          904     A     
 REG       DSC.LOD  BSS    0                                                               REG          905     A     
 REG                VFD    42/0,18/RG=LOAD                                                 REG          906     A     
 REG                VFD    42/0,18/RG=BADR                                                 REG          907     A     
 REG                VFD    42/0,18/RG=LODX                                                 REG          908     A     
 REG                SPACE  4,8                                                             REG          909     A     
 REG       GNR      SPACE  4,8                                                             REG          910     A     
 REG      **        GNR -  GET NEXT REGISTER.                                              REG          911     A     
 REG      *                                                                                REG          912     A     
 REG      *         *GNR* IS CALLED WHEN A REGISTER IS NEEDED FOR A LOAD/SET               REG          913     A     
 REG      *         INSTRUCTION.  IT WILL ALWAYS ASSIGN A REGISTER NOTING                  REG          914     A     
 REG      *         WHETHER A *HARD* REGISTER AND REGISTER TYPES AGREE.                    REG          915     A     
 REG      *                                                                                REG          916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         ENTRY  (B3) = RG=XXXX REGISTER TYPE                                    REG          917     A     
 REG      *                (X5) = TAG.                                                     REG          918     A     
 REG      *                                                                                REG          919     A     
 REG      *         EXIT   (B2) = 0TR, FOR REGISTER ASSIGNED.                              REG          920     A     
 REG      *                (X6) = 0R0, FOR (B2)                                            REG          921     A     
 REG      *                                                                                REG          922     A     
 REG      *         USES   A1,A2,A3,A5  X0  B2,B3,B6,B7                                    REG          923     A     
 REG      *                                                                                REG          924     A     
 REG      *         CALLS  SFR,RUT                                                         REG          925     A     
 REG      *                (SCR,SCR+1)                                                     REG          926     A     
 REG                                                                                       REG          927     A     
 REG                                                                                       REG          928     A     
 REG       GNR      SUBR   =           ENTRY/EXIT...                                       REG          929     A     
 REG                RJ     SFR         FIND AVAILABLE REGISTER                             REG          930     A     
 REG                ZR     X7,GNR5     IF REGISTER FREE                                    REG          931     A     
 REG                SA2    RGX                                                             REG          932     A     
 REG                SX7    B3                                                              REG          933     A     
 REG                ZR     X2,GNR2     IF NON-INTERMEDIATE NOT AVAILABLE                   REG          934     A     
 REG                SB2    X2                                                              REG          935     A     
 REG       GNR2     SA7    GNRA                                                            REG          936     A     
 REG                RJ     RUT         CLEAR REGISTER                                      REG          937     A     
 REG                SA2    GNRA                                                            REG          938     A     
 REG                SB3    X2                                                              REG          939     A     
 REG       GNR5     SB7    RG=LOAD                                                         REG          940     A     
 REG                SX0    B3-B7                                                           REG          941     A     
 REG                NZ     X0,EXIT.    IF NOT *A* REGISTER LOAD                            REG          942     A     
 REG                SB2    B2-REG.X+REG.A                                                  REG          943     A     
 REG                SA1    B2+REGFILE                                                      REG          944     A     
 REG                MX0    -RG.USEL                                                        REG          945     A     
 REG                BX1    -X0*X1      USE COUNT ONLY                                      REG          946     A     
 REG                ZR     X1,EXIT.    IF *A* REGISTER IS FREE                             REG          947     A     
 REG                RJ     RUT         CLEAR *A* REGISTER                                  REG          948     A     
 REG                EQ     EXIT.                                                           REG          949     A     
 REG                                                                                       REG          950     A     
 REG       GNRA     DATA   0                                                               REG          951     A     
 REG       GPN      SPACE  4,10                                                            REG          952     A     
 REG      **        GPN - GET PARAMETER NUMBER.                                            REG          953     A     
 REG      *                                                                                REG          954     A     
 REG      *         ENTRY  (X1) = ORDINAL OF SYMBOL.                                       REG          955     A     
 REG      *                NOTE - SYMBOL MUST BE A FORMAL PARAMETER.                       REG          956     A     
 REG      *                                                                                REG          957     A     
 REG      *         EXIT   (X1) = FORMAL PARAMETER NUMBER.                                 REG          958     A     
 REG      *                                                                                REG          959     A     
 REG      *         USES   A1,A2  X0  B7                                                   REG          960     A     
 REG                                                                                       REG          961     A     
 REG                                                                                       REG          962     A     
 REG       GPN      SUBR               ...ENTRY/EXIT...                                    REG          963     A     
 REG                LX2    X1,B1                                                           REG          964     A     
 REG                IX1    X2+X1       (X1) = INDEX = ORDINAL * L.SYM                      REG          965     A     
 REG                ERRNZ  3-Z=SYM                                                         REG          966     A     
 REG       .TEST    IFNE   TEST                                                            REG          967     A     
 REG                MI     X1,"BLOWUP"       IF ILLEGAL SYMORD                             REG          968     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA2    T=SYM                                                           REG          969     A     
 REG                IX2    X1-X2                                                           REG          970     A     
 REG                PL     X2,"BLOWUP"       IF INDEX .GE. SYMTAB LENGTH                   REG          971     A     
 REG       .TEST    ENDIF                                                                  REG          972     A     
 REG                SA2    T.SYM                                                           REG          973     A     
 REG                =B7    X2+WB.W                                                         REG          974     A     
 REG                SA1    X1+B7       FETCH SYMTAB WORD (WB)                              REG          975     A     
 REG                MX0    -WB.FPNOL                                                       REG          976     A     
 REG       .TEST    IFEQ   TEST,ON                                                         REG          977     A     
 REG                BX2    X1                                                              REG          978     A     
 REG                HX2    WB.FP                                                           REG          979     A     
 REG                PL     X2,"BLOWUP"       IF NOT A FORMAL PARAMETER                     REG          980     A     
 REG       .TEST    ENDIF                                                                  REG          981     A     
 REG                LX1    -WB.FPNOP                                                       REG          982     A     
 REG                BX1    -X0*X1      ISOLATE (X1) = F.P. NUMBER                          REG          983     A     
 REG                EQ     EXIT.                                                           REG          984     A     
 REG       GNT      SPACE  4,20                                                            REG          985     A     
 REG      **        GNT - GENERATE TEMPORARY TAG.                                          REG          986     A     
 REG      *                                                                                REG          987     A     
 REG      *         ENTRY  (X1) = INTERMEDIATE TO PROCESS                                  REG          988     A     
 REG      *                (B2) = 0TR OF REGISTER INTERMEDIATE IS IN                       REG          989     A     
 REG      *                                                                                REG          990     A     
 REG      *         EXIT   (B2) = PRESERVED                                                REG          991     A     
 REG      *                (X6) = TEMP, P2 TAG-FORM                                        REG          992     A     
 REG      *                                                                                REG          993     A     
 REG      *         USES   A1,A2,A3,A6,A7 X0 B3,B7.                                        REG          994     A     
 REG      *                                                                                REG          995     A     
 REG      *         CALLS  NONE.                                                           REG          996     A     
 REG                                                                                       REG          997     A     
 REG                                                                                       REG          998     A     
 REG       GNT      SUBR               ENTRY/EXIT...                                       REG          999     A     
 REG                MX0    -1                                                              REG         1000     A     
 REG                SA3    T.OUS       GET FWA OUS TAB                                     REG         1001     A     
 REG                LX1    -RG.TYPP                                                        REG         1002     A     
 REG                SB3    X3          START OF OUS TABLE                                  REG         1003     A     
 REG                BX7    -X0*X1      TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)           REG         1004     A     
 REG                SA2    N.ST        NUMBER OF SET TEM CELLS                             REG         1005     A     
 REG                SB7    X7          (B7) = UP/LOW INDICATOR                             REG         1006     A     
 REG                =X7    X2+1        ADVANCE N.ST                                        REG         1007     A     
 REG                LX1    RG.TYPP-P2.TAGP                                                 REG         1008     A     
 REG                MX0    -P2.TAGL                                                        REG         1009     A     
 REG                BX0    -X0*X1                                                          REG         1010     A     
 REG                LX1    P2.TAGP-1-P2.LONGP                                              REG         1011     A     
 REG                SA3    X0+B3       LOAD STATUS WORD                                    REG         1012     A     
 REG                                                                                       REG         1013     A     
 REG      **        NOW WE ARE READY TO CREATE A TEMP CELL IF                              REG         1014     A     
 REG      *         HASN'T ALREADY BEEN DONE.  THE INTERMEDIAT'S                           REG         1015     A     
 REG      *         STATUS WORD WILL RECIEVE THE FOLLOWING FORMAT:                         REG         1016     A     
 REG      *         P2.TAGL/SYM TAB ORDINAL OF TEMP ARRAY,                                 REG         1017     A     
 REG      *         P2.BIASL/(N.ST) OFFSET IN TEMP ARRAY,                                  REG         1018     A     
 REG      *         24/NORMAL STATUS WORD FIELDS.                                          REG         1019     A     
 REG      *                                                                                REG         1020     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         (X0) = 0-BIT MASK FOR MODE CHECK                                       REG         1021     A     
 REG      *         (A2,X2) _,= (N.ST)                                                     REG         1022     A     
 REG      *         (A3,X3) _,= STATUS WORD                                                REG         1023     A     
 REG      *         (X6) = MODE                                                            REG         1024     A     
 REG      *         (X7) = (N.ST) + 1                                                      REG         1025     A     
 REG      *         (N.ST) = NUMBER OF TEMPS ALREADY ALOCATED                              REG         1026     A     
 REG                                                                                       REG         1027     A     
 REG                LX2    P2.BIASP    BIAS[STWD] = OFFSET OF TEM IN TEM-ARRAY             REG         1028     A     
 REG                BX6    X1                                                              REG         1029     A     
 REG                LX1    X3                                                              REG         1030     A     
 REG                SX0    -1                                                              REG         1031     A     
 REG                PL     X6,GNT5     IF NOT DOUBLE OR COMPLEX                            REG         1032     A     
 REG                SX7    X7+1        ADVANCE (N.ST) TWICE IF DOUBLE-WORD                 REG         1033     A     
 REG                                                                                       REG         1034     A     
 REG       GNT5     AX1    P2.TAGP     ISOLATE TAG FIELD                                   REG         1035     A     
 REG                ERRNZ  60-P2.TAGP-P2.TAGL                                              REG         1036     A     
 REG                NZ     X1,GNT10    IF ALREADY DEFINED                                  REG         1037     A     
 REG                MX6    60-P2.BIASL                                                     REG         1038     A     
 REG                SA1    S=ST        GET TEMP ORDINAL                                    REG         1039     A     
 REG                LX6    P2.BIASP                                                        REG         1040     A     
 REG                ERRNZ  K.SYM                                                           REG         1041     A     
 REG                BX3    X6*X3       CLEAR BIAS FIELD                                    REG         1042     A     
 REG                SA7    A2          RESET TEM COUNTER                                   REG         1043     A     
 REG                LX1    P2.TAGP     POSITION ARRAY ORDINAL IN TAG FIELD                 REG         1044     A     
 REG                IX2    X1+X2       ADD TAG TO BIAS                                     REG         1045     A     
 REG                BX3    X2+X3       ADD NEW TAG AND BIAS TO STATUS WORD FIELDS          REG         1046     A     
 REG                                                                                       REG         1047     A     
 REG      **        (X0) = -1 (BIT MASK)                                                   REG         1048     A     
 REG      *         (A3,X3) _,= STATUS WORD                                                REG         1049     A     
 REG      *         (B7) = TAG TYPE (UPPER/LOWER)                                          REG         1050     A     
 REG                                                                                       REG         1051     A     
 REG       GNT10    CLAS=  X2,P2,(TAG,BIAS)                                                REG         1052     A     
 REG                BX6    X2*X3       ISOLATE TAG AND BIAS FOR STORE WORD                 REG         1053     A     
 REG                LX0    ST.STATP                                                        REG         1054     A     
 REG                LX2    X0,B7       MASK FOR SPECIFIED STATUS BIT                       REG         1055     A     
 REG                SX1    B7          (X1) = TYPE (0-UPPER:1-LOWER)                       REG         1056     A     
 REG                BX7    X2*X3       CLEAR STATUS BIT                                    REG         1057     A     
 REG                LX1    P2.BIASP    POSITION TYPE IN BIAS FIELD                         REG         1058     A     
 REG                                                                                       REG         1059     A     
 REG       .TEST    IFEQ   TEST,ON                                                         REG         1060     A     
 REG                SA2    CO.SNAP                                                         REG         1061     A     
 REG                LX2    1RH                                                             REG         1062     A     
 REG                PL     X2,GNT22    IF SNAP = H NOT SELECTED                            REG         1063     A     
 REG       SNP=H    SNAP   GNT,,1,(B6,B2,A3,A7,X5,X7,X6,X1)                                REG         1064     A     
 REG       GNT22    BSS                                                                    REG         1065     A     
 REG       .TEST    ENDIF                                                                  REG         1066     A     
 REG                                                                                       REG         1067     A     
 REG                SA7    A3          CLEAR STATUS OF TAG                                 REG         1068     A     
 REG                IX6    X1+X6       ADD TYPE TO BIAS OF STORE WORD                      REG         1069     A     
 REG                EQ     EXIT.                                                           REG         1070     A     
 REG       GPT      SPACE  4,8                                                             REG         1071     A     
 REG      **        GPT -  GET POINTER TAG                                                 REG         1072     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         GPT ALSO INCREMENTS *BIAS* BY OFFSET IN COMMON BLOCK.                  FC5A209        5     A     
 REG      *                                                                                REG         1073     A     
 REG      *         ENTRY  (X5) = ECS/LCM NAME TAG                                         REG         1074     A     
 REG      *                                                                                REG         1075     A     
 REG      *         EXIT   (X2) = POINTER-WORD TAG                                         REG         1076     A     
 REG      *                (X5) = PRESERVED                                                REG         1077     A     
 REG      *                                                                                REG         1078     A     
 REG      *         USES   A2,A3  B7                                                       REG         1079          I
          -FC5A209
 REG      *         USES   A2,A3  B2,B7  X0,X2,X3,X7                                       FC5A209        6     A     
 REG                                                                                       REG         1080     A     
 REG       GPT      SUBR   0                                                               REG         1081     A     
 REG                SA3    T.SYM                                                           REG         1082     A     
 REG                =B7    X3+WC.W                                                         REG         1083     A     
 REG                MX2    -TG.ORDL                                                        REG         1084     A     
 REG                LX5    -P2.TAGP                                                        REG         1085     A     
 REG                BX2    -X2*X5      (X2) = TAG ORDINAL                                  REG         1086     A     
 REG                LX5    P2.TAGP            RESTORE X5                                   REG         1087     A     
 REG                LX3    X2,B1                                                           REG         1088     A     
 REG                IX2    X3+X2       (X2) = INDEX = 3 * SYMORD                           REG         1089     A     
 REG                ERRNZ  3-Z=SYM                                                         REG         1090     A     
 REG                SA3    T.BLKS                                                          REG         1091     A     
 REG                SA2    X2+B7       (X2) = ADDRESS TABLE ENTRY                          REG         1092     A     
 REG                =B7    X3+CB.W     (B7) = FWA BLOCK TAB + CB OFFSET                    REG         1093          I
          -FC5A209
 REG                BX7    X2                                                              FC5A209        7     A     
 REG                HX7    WC.RA                                                           FC5A209        8     A     
 REG                SB2    X3+CB.W                                                         FC5A209        9     A     
 REG                AX7    -WC.RAL     SIGN EXTEND OFFSET IN BLOCK/CLASS                   FC5A209       10     A     
 REG                MX3    -WC.RBL                                                         REG         1094     A     
 REG                AX2    WC.RBP                                                          REG         1095     A     
 REG                BX2    -X3*X2      (X2) = BLOCK NUMBER                                 REG         1096     A     
 REG                SA2    X2+B7       (X2) = BLOCK TABLE ENTRY                            REG         1097          I
          -FC5A209
 REG                =A3    A2+WB.W-WC.W                                                    FC5A209       11     A     
 REG                HX3    WB.EQV                                                          FC5A209       12     A     
 REG                MX0    -WB.BASEL                                                       FC5A209       13     A     
 REG                PL     X3,GPT10    IF NOT EQUIVALENCED                                 FC5A209       14     A     
 REG                LX3    WB.EQVP+1-WB.BASEP                                              FC5A209       15     A     
 REG                BX3    -X0*X3                                                          FC5A209       16     A     
 REG                LX0    B1,X3                                                           FC5A209       17     A     
 REG                IX3    X3+X0                                                           FC5A209       18     A     
 REG                SA3    X3+B7       WC(BASE)                                            FC5A209       19     A     
 REG                HX3    WC.RA                                                           FC5A209       20     A     
 REG                AX3    -WC.RAL     SIGN EXTEND OFFSET OF CLASS IN BLOCK                FC5A209       21     A     
 REG                IX7    X3+X7       RELOCATE CLASS IN BLOCK                             FC5A209       22     A     
 REG                                                                                       FC5A209       23     A     
 REG       GPT10    SA3 BIAS                                                               FC5A209       24     A     
 REG                MX0    -P2.BIASL                                                       FC5A209       25     A     
 REG                LX3    59-23                                                           FC5A209       26     A     
 REG                AX3    59-23       SIGN EXTEND BIAS                                    FC5A209       27     A     
 REG                IX7    X3+X7       ADD IN BLOCK/CLASS OFFSET                           FC5A209       28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX7    -X0*X7                                                          FC5A209       29     A     
 REG                SA7    A3                                                              FC5A209       30     A     
 REG                SA2    X2+B2       BLOCK TABLE ENTRY                                   FC5A209       31     A     
 REG                MX3    CB.TAGL                                                         REG         1098     A     
 REG                LX3    CB.TAGL+CB.TAGP                                                 REG         1099     A     
 REG                BX2    X3*X2       (X2) = POINTER-WORD TAG                             REG         1100     A     
 REG                EQ     GPTX              EXIT..                                        REG         1101     A     
 REG       GST      SPACE  4,8                                                             REG         1102     A     
 REG      **        GST -  GET STATUS OF TAG                                               REG         1103     A     
 REG      *         GST CHECKS IF THE GETS THE STATUS WORD OF                              REG         1104     A     
 REG      *         AN OPERAND OR REGFILE ENTRY.  IT THEN CHECKS                           REG         1105     A     
 REG      *         THE STATUS BIT OF THE STATUS WORD AND PASSES                           REG         1106     A     
 REG      *         THE REGISTER STATUS OF THE OPERAND BACK TO                             REG         1107     A     
 REG      *         THE CALLER.                                                            REG         1108     A     
 REG      *                                                                                REG         1109     A     
 REG      *         ENTRY  (X5) = OPERAND/REGFILE ENTRY                                    REG         1110     A     
 REG      *                (B2) = MODE TYPE (0 UPPER, 1 LOWER)                             REG         1111     A     
 REG      *                                                                                REG         1112     A     
 REG      *         EXIT   (A1,X1) _,= STATUS WORD                                         REG         1113     A     
 REG      *                (X5) - PRESERVED                                                REG         1114     A     
 REG      *                (X6) = (0R0)                                                    REG         1115     A     
 REG      *                (B2) = (0TR) IF OPERAND IN REG,  ELSE 0                         REG         1116     A     
 REG      *                                                                                REG         1117     A     
 REG      *         USES   A1,A2,A6,  X0,X1,X2,X6,  B2,B7                                  REG         1118     A     
 REG      *                                                                                REG         1119     A     
 REG      *         CANNOT DESTROY A4,X4  B4,B5,B6                                         REG         1120     A     
 REG                                                                                       REG         1121     A     
 REG                                                                                       REG         1122     A     
 REG       GST      SUBR   =           ENTRY/EXIT.                                         REG         1123     A     
 REG                MX6    -P2.TAGL    SET MASK FOR ORDINAL INTO OUS TABLE                 REG         1124     A     
 REG                SA2    T.OUS       GET FWA OF OUS TABLE                                REG         1125     A     
 REG                LX5    -P2.TAGP    POSITION ORDINAL                                    REG         1126     A     
 REG                SB7    X2          (B7) = FWA OUS TAB                                  REG         1127     A     
 REG                BX0    -X6*X5      EXTRACT OUS ORDINAL                                 REG         1128     A     
 REG                SX2    A2          (X2) _ T.OUS                                        REG         1129     A     
 REG                                                                                       REG         1130     A     
 REG       .TEST    IFEQ   TEST,ON     VALIDITY CHECK FOR TYPE AND OPERAND                 REG         1131     A     
 REG                MI     B2,"BLOWUP" IF BAD TYPE                                         REG         1132     A     
 REG                SA1    X2+N.TABLE  GET TABLE LENGTH                                    REG         1133     A     
 REG                LT     B1,B2,"BLOWUP"    IF TYPE BAD                                   REG         1134     A     
 REG                IX6    X1-X0                                                           REG         1135     A     
 REG                MI     X6,"BLOWUP" IF ORDINAL NOT WITHIN TABLE                         REG         1136     A     
 REG       .TEST    ENDIF                                                                  REG         1137     A     
 REG                                                                                       REG         1138     A     
 REG                LX2    18          POSITION TABLE FWA FOR STATUS WORD POINTER          REG         1139     A     
 REG                SA1    B7+X0       GET STATUS WORD                                     REG         1140     A     
 REG                LX5    P2.TAGP     RESET OPERAND WORD                                  REG         1141     A     
 REG                IX6    X0+X2       (X6) = 42/T.OUS,18/ORDINAL, ST. WD. POINTER         REG         1142     A     
 REG                SA2    B2+STATUS   GET STATUS SHIFT COUNTS                             REG         1143     A     
 REG                SA6    GSTC        SET STATUS WORD POINTER                             REG         1144     A     
 REG                BX0    -X2                                                             REG         1145     A     
 REG                AX2    18          POSITION NEXT SHIFT COUNT                           REG         1146     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SB7    59+X0       (B7) = SHIFT COUNT TO MOVE ST. BIT TO TOP           REG         1147     A     
 REG                LX0    B7,X1       POSITION STATUS BIT                                 REG         1148     A     
 REG                =B2    0                                                               REG         1149     A     
 REG                SB7    X2          (B7) = ST.UREGP OR ST.LREGP                         REG         1150     A     
 REG                MX6    -ST.UREGL   SET (0TR) MASK                                      REG         1151     A     
 REG                ERRMI  ST.UREGL-3                                                      REG         1152     A     
 REG                PL     X0,GST1     IF NOT IN REG EXIT WITH (B2) = 0                    REG         1153     A     
 REG                AX0    B7,X1       POSITION (0TR)                                      REG         1154     A     
 REG                BX6    -X6*X0      EXTRACT (0TR)                                       REG         1155     A     
 REG                SB2    X6                                                              REG         1156     A     
 REG                                                                                       REG         1157     A     
 REG      **        SOMETIMES A TAG IS REMOVED FROM THE REGFILE WITHOUT                    REG         1158     A     
 REG      *         HAVING ITS STATUS BIT CLEARED. EXAMPLE: WHEN ITS USE                   REG         1159     A     
 REG      *         COUNT IS ZERO (SEE EIS.AT). THIS FACT MOTIVATES THE                    REG         1160     A     
 REG      *         THE APARENTLY USELESS CODE THAT FOLLOWS.                               REG         1161     A     
 REG                                                                                       REG         1162     A     
 REG                SA2    B2+REGFILE  GET REGFILE ENTRY  INDICATED BY STAT WORD           REG         1163     A     
 REG                BX0    X2-X5                                                           REG         1164     A     
 REG                CLAS=  X2,P2,(USE,LONG)                                                REG         1165     A     
 REG                BX2    -X2*X0                                                          REG         1166     A     
 REG                NZ     X2,GST1     IF NOT SAME OPERAND                                 REG         1167     A     
 REG                SX0    REG.A       (X0) = (0T0) FOR A REG                              REG         1168     A     
 REG                BX0    X0*X6                                                           REG         1169     A     
 REG                ZR     X0,GST2     IF NOT IN AN A-REG CLEAN UP                         REG         1170     A     
 REG                SA2    B2+REGFILE+REG.X-REG.A  GET ASSOCIATE X-REG                     REG         1171     A     
 REG                BX2    X2-X5                                                           REG         1172     A     
 REG                AX2    RG.USEL     CLEAR USE FIELD(PROBABLY DOES DIFFER)               REG         1173     A     
 REG                ZR     X2,GST2     IF X-REG ENTRY NOT THE SAME                         REG         1174     A     
 REG                                                                                       REG         1175     A     
 REG       GST1     SB2    0           SET NOT IN REG FLAG                                 REG         1176     A     
 REG                SX6    0           (0R0) = 0                                           REG         1177     A     
 REG                                                                                       REG         1178     A     
 REG       GST2     MX0    -3                                                              REG         1179     A     
 REG                BX6    -X0*X6      (X6) = (00R)                                        REG         1180     A     
 REG                LX6    3           (X6) = (0R0)                                        REG         1181     A     
 REG                EQ     EXIT.                                                           REG         1182     A     
 REG                                                                                       REG         1183     A     
 REG       STATUS   VFD    24/OP.UTOTP,18/ST.UREGP,18/ST.USTP                              REG         1184     A     
 REG                VFD    24/OP.LTOTP,18/ST.LREGP,18/ST.LSTP                              REG         1185     A     
 REG                                                                                       REG         1186     A     
 REG      GSTC      BSSENT 0                                                               REG         1187          I
          -FC50264
 REG       GSTC     BSSENT 0                                                               FC50264       21     A     
 REG                VFD    24/0,18/T.OUS,18/"BLOWUP"                                       REG         1188     A     
 REG       GTR      SPACE  4,7                                                             REG         1189     A     
 REG      **        GTR -GET TEMPORARY REGISTER                                            REG         1190     A     
 REG      *                                                                                REG         1191     A     
 REG      *         ENTRY  NONE                                                            REG         1192     A     
 REG      *         EXIT   (B2) = 0TR OF REG GOTTEN - SET BY SUBROUTINES                   REG         1193     A     
 REG      *                (X6) = 0R0 OF REG GOTTEN - SET BY SUBROUTINES                   REG         1194     A     
 REG      *                                                                                REG         1195     A     
 REG      *         SAVES  B4,B6 A4,X4,X5                                                  REG         1196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG         1197     A     
 REG      *         CALLS  ASR, RUT AND SFR                                                REG         1198     A     
 REG                                                                                       REG         1199     A     
 REG       GTR      SUBR   =           ENTRY/EXIT                                          REG         1200     A     
 REG                SB3    RG=TEMP                                                         REG         1201     A     
 REG                RJ     SFR                                                             REG         1202     A     
 REG                ZR     X7,EXIT.    IF TEMP REGISTER AVAILABLE                          REG         1203     A     
 REG                SA1    RGX                                                             REG         1204     A     
 REG                ZR     X1,GTR5     IF NON-INTERMEDIATE NOT AVAILABLE                   REG         1205     A     
 REG                SB2    X1                                                              REG         1206     A     
 REG                RJ     RUT                                                             REG         1207     A     
 REG                EQ     EXIT.                                                           REG         1208     A     
 REG                                                                                       REG         1209     A     
 REG                                                                                       REG         1210     A     
 REG      **        TAKE CARE TO AVOID DEADLOCK THAT WILL OCCUR IF BOTH STORE              REG         1211     A     
 REG      *         REGISTERS ARE LOCKED.                                                  REG         1212     A     
 REG                                                                                       REG         1213     A     
 REG       GTR5     SA1    REGFILE+R.X6                                                    REG         1214     A     
 REG                SA2    REGFILE+R.X7                                                    REG         1215     A     
 REG                =X3    RLOCK                                                           REG         1216     A     
 REG                MX0    -RG.USEL                                                        REG         1217     A     
 REG                BX1    -X0*X1      USE COUNT ON *X6*                                   REG         1218     A     
 REG                IX1    X1-X3                                                           REG         1219     A     
 REG                PL     X1,GTR10    IF *X6* IS LOCKED                                   REG         1220     A     
 REG                BX2    -X0*X2      USE COUNT ON *X7*                                   REG         1221     A     
 REG                IX1    X2-X3                                                           REG         1222     A     
 REG                PL     X1,GTR10    IF *X7* IS LOCKED                                   REG         1223     A     
 REG                                                                                       REG         1224     A     
 REG      *         NEITHER *X6* NOR *X7* IS LOCKED                                        REG         1225     A     
 REG                                                                                       REG         1226     A     
 REG                RJ     ASR         ASSIGN STORE REGISTER                               REG         1227     A     
 REG                EQ     EXIT.                                                           REG         1228     A     
 REG                                                                                       REG         1229     A     
 REG      *         USE TEMP REGISTER OF LOWEST USE COUNT.                                 REG         1230     A     
 REG                                                                                       REG         1231     A     
 REG       GTR10    RJ     RUT                                                             REG         1232     A     
 REG                EQ     EXIT.                                                           REG         1233     A     
 REG       LFP      SPACE  4,8                                                             REG         1234     A     
 REG      **        LFP -  LOAD FORMAL PARAMETER ADDRESS                                   REG         1235     A     
 REG      *                                                                                REG         1236     A     
 REG      *         ENTRY  (X1) = TAG                                                      REG         1237     A     
 REG      *         EXIT   (B6) = (R00) *FP* LOAD REGISTER USED FOR *SAJ*                  REG         1238     A     
 REG      *                (B2) = (0TR) *FP* SET REGISTER USED FOR *SBK* OR *SXI*          REG         1239     A     
 REG      *                                                                                REG         1240     A     
 REG      *         OUTPUTS TO INTERMEDIATE FILE                                           REG         1241     A     
 REG      *                SAJ    A0+FP                                                    REG         1242     A     
 REG      *         AND EITHER                                                             REG         1243     A     
 REG      *                SBK    XJ+BIAS    (CM/SCM TAG)                                  REG         1244     A     
 REG      *         OR                                                                     REG         1245     A     
 REG      *                SXI    R+BIAS     (ECS/LCM TAG -- R CONTAINS SUBSCRIPT)         REG         1246     A     
 REG      *                                                                                REG         1247     A     
 REG      *         USES   A1,A2,A3  X0,X5  B2,B3,B5,B6                                    REG         1248     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG         1249     A     
 REG      *         CALLS  GNR, GPN, RLL, RUL, RUT, SFR, WCODE.                            REG         1250     A     
 REG                                                                                       REG         1251     A     
 REG                                                                                       REG         1252     A     
 REG       LFP      SUBR               ...ENTRY/EXIT...                                    REG         1253     A     
 REG                SA3    ALREG                                                           REG         1254     A     
 REG                MX0    -3                                                              REG         1255     A     
 REG                SB7    X3-R.X6                                                         REG         1256     A     
 REG                BX6    -X0*X3                                                          REG         1257     A     
 REG                BX5    X1                                                              REG         1258     A     
 REG                LX6    6           =R00                                                REG         1259     A     
 REG                NG     B7,LFP4     IF *AREG NOT STORE REGISTER                         REG         1260     A     
 REG                SB3    RG=LOAD                                                         REG         1261     A     
 REG                RJ     GNR                                                             REG         1262     A     
 REG                LX6    3           R00                                                 REG         1263     A     
 REG       LFP4     SA6    LFPA                                                            REG         1264     A     
 REG                RJ     LPA         LOAD FP BASE ADDRESS                                REG         1265     A     
 REG                SA3    LFPA                                                            REG         1266     A     
 REG                                                                                       REG         1267     A     
 REG      *         NOW OUTPUT LOAD OF ACTUAL ADDRESS VIA A *B* SET.                       REG         1268     A     
 REG                                                                                       REG         1269     A     
 REG                SB6    X3          SAVE ADDRESS FUNCTION REGISTER                      REG         1270     A     
 REG                =B3    RG=BADR                                                         REG         1271     A     
 REG                RJ     SFR         GET NEXT *B* REGISTER                               REG         1272     A     
 REG                LX6    3                                                               REG         1273     A     
 REG                SX3    B6                                                              REG         1274     A     
 REG                AX3    3                                                               REG         1275     A     
 REG                MX0    -PB.BIASL                                                       REG         1276     A     
 REG                IX6    X6+X3                                                           REG         1277     A     
 REG                AX5    P2.BIASP                                                        REG         1278     A     
 REG                SX7    SB=XK                                                           REG         1279     A     
 REG                BX2    -X0*X5      BIAS ON TAG                                         REG         1280     A     
 REG                NZ     X2,LFP10    IF NOT *0* BIAS                                     REG         1281     A     
 REG                SX7    SB=XB                                                           REG         1282     A     
 REG       LFP10    BX6    X6+X7                                                           REG         1283     A     
 REG                LX2    PB.BIASP                                                        REG         1284     A     
 REG                LX6    PB.INSTP     OP-CODE + REGISTERS                                REG         1285     A     
 REG                IX7    X2+X6       ADD IN OP-CODE                                      REG         1286     A     
 REG                SB5    B2                                                              REG         1287     A     
 REG                WCODE  X7                                                              REG         1288     A     
 REG                SB2    B5                                                              REG         1289     A     
 REG                EQ     EXIT.                                                           REG         1290     A     
 REG                                                                                       REG         1291     A     
 REG       FPREG    DATA   0           FORMAL PARAMETER REGISTER                           REG         1292     A     
 REG       LFPA     BSS    1                                                               REG         1293     A     
 REG       LLA      EJECT                                                                  REG         1294     A     
 REG      **        LLA - LOAD LCM ADDRESS.                                                REG         1295     A     
 REG      *                                                                                REG         1296     A     
 REG      *         ENTRY  (ALREG) = 0TR OF FINAL REFERENCE REGISTER                       REG         1297     A     
 REG      *                (AFREG) = 0TR OF ADDRESS FUNCTION OR 0                          REG         1298     A     
 REG      *                (X5) = TAG                                                      REG         1299     A     
 REG      *                (STORE) NZ IFF THIS IS STORE OPERATION                          REG         1300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                (ADDR) NZ IFF THIS IS ADDRESS REF.                              REG         1301     A     
 REG      *                AFREG LOCKED.                                                   REG         1302     A     
 REG      *                ALREG LOCKED IF STORE NZ9                                       REG         1303     A     
 REG      *         EXIT   (X5) PRESERVED                                                  REG         1304     A     
 REG      *         ALREG AND AFREG UNLOCKED                                               REG         1305     A     
 REG      *                (SETREG) 00R OF REGISTER WITH ADDRESS.                          REG         1306     A     
 REG                                                                                       REG         1307     A     
 REG       LLA      SUBR                                                                   REG         1308     A     
 REG                MX6    0                                                               FC51413        7     A     
 REG                SA6    BIASF       INITIALIZE                                          FC51413        8     A     
 REG                MX0    -P2.BIASL                                                       REG         1309     A     
 REG                BX6    X5                                                              REG         1310     A     
 REG                LX6    -P2.BIASP                                                       REG         1311     A     
 REG                BX6    -X0*X6                                                          REG         1312     A     
 REG                SA6    BIAS                                                            REG         1313     A     
 REG                LX6    -P2.BIASL                                                       FC50920        7          I
          -FC51413
 REG                AX6    -P2.BIASL+17                                                    FC50920        8          I
          -FC51413
 REG                SA6    BIASF                                                           FC50920        9          I
          -FC51413
 REG                SA1    ALREG                                                           REG         1314     A     
 REG                SA2    STORE                                                           REG         1315     A     
 REG                SB2    X1          SETREG = ALREG                                      REG         1316     A     
 REG                MX0    -3                                                              REG         1317     A     
 REG                BX6    -X0*X1                                                          REG         1318     A     
 REG                ZR     X2,LLA10    IF NOT STORE                                        REG         1319     A     
 REG                SB3    RG=SET                                                          REG         1320     A     
 REG                RJ     GNR         SETREG = GNR(RG=SET.                                REG         1321     A     
 REG                AX6    3                                                               REG         1322     A     
 REG                                                                                       REG         1323     A     
 REG       LLA10    SB7    X6                                                              REG         1324          I
          -FC51399
 REG                RJ     RLL         LOCK SETREG                                         REG         1325          I
          -FC51399
 REG                SX6    B2                                                              REG         1326          I
          -FC51399
 REG       LLA10    SX6    B2                                                              FC51399        8          I
          -FC51509
 REG       LLA10    BX2    X6                                                              FC51509        6     A     
 REG                SX6    B2                                                              FC51509        7     A     
 REG                MX0    -3                                                              REG         1327     A     
 REG                BX6    -X0*X6                                                          REG         1328     A     
 REG                SA6    SETREG                                                          REG         1329     A     
 REG                BX0    X5                                                              FC51509        8     A     
 REG                HX0    P2.FP                                                           FC51509        9     A     
 REG                PL     X0,LLA11    IF NOT FORMAL PARAMETER                             FC51509       10     A     
 REG                SA3    STORE                                                           FC51509       11     A     
 REG                NZ     X3,LLA11    IF STORE                                            FC51509       12     A     
 REG                SB7    X2                                                              FC51509       13     A     
 REG                RJ     RLL                                                             FC51509       14     A     
 REG                                                                                       REG         1330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                RJ     LLB         LOAD BASE ADDRESS (FROM A0 OR LC.)                  REG         1331          I
          -FC51509
 REG       LLA11    RJ     LLB         LOAD BASE ADDRESS(FROM A0 OR LC.)                   FC51509       15     A     
 REG                SA6    FPREG                                                           REG         1332     A     
 REG                SA6    LLAA        T1 = FPREG                                          REG         1333     A     
 REG                SA2    BIAS                                                            FC51413        9     A     
 REG                LX2    -P2.BIASL                                                       FC51413       10     A     
 REG                MX0    TP.ORBIL+3                                                      FC51413       11     A     
 REG                AX2    -P2.BIASL                                                       FC51413       12     A     
 REG                PL     X2,LLA13    IF BIAS NOT MINUS                                   FC51413       13     A     
 REG                BX2    -X2                                                             FC51413       14     A     
 REG       LLA13    BX7    X0*X2                                                           FC51413       15     A     
 REG                SA7    BIASF                                                           FC51413       16     A     
 REG                SA1    AFREG                                                           REG         1334     A     
 REG                MX0    -3                                                              REG         1335     A     
 REG                SA2    BIAS                                                            REG         1336     A     
 REG                BX7    -X0*X1                                                          REG         1337     A     
 REG                ZR     X1,LLA50    IF NOT INDEXED REF.                                 REG         1338     A     
 REG                SA7    LLAB        T2 = AFREG                                          REG         1339     A     
 REG                ZR     X2,LLA90    IF NO BIAS                                          REG         1340     A     
 REG                SA3    SETREG                                                          REG         1341     A     
 REG                BX7    X3                                                              REG         1342     A     
 REG                SA7    LLAA        T1 = SETREG                                         REG         1343     A     
 REG                SA6    LLAB        T2 = FPREG                                          REG         1344     A     
 REG                BX1    -X0*X1                                                          REG         1345     A     
 REG                LX1    PB.KP                                                           REG         1346     A     
 REG                LX6    PB.JP                                                           REG         1347     A     
 REG                SX2    IA                                                              REG         1348     A     
 REG                BX0    X1+X6                                                           REG         1349     A     
 REG                LX3    PB.IP                                                           REG         1350     A     
 REG                LX2    PB.INSTP                                                        REG         1351     A     
 REG                BX2    X2+X3                                                           REG         1352     A     
 REG                BX7    X0+X2                                                           REG         1353     A     
 REG                WCODE  X7,LLA30    IX_SETREG FPREG+AFREG                               REG         1354          I
          -FC51560
 REG                WCODE  X7          IX_SETREG FPREG+AFREG                               FC51560        5     A     
 REG                SA2    SETREG                                                          FC51601        5     A     
 REG                SA3    LLAB                                                            FC51601        6     A     
 REG                SB7    X2          IN CASE OF RLL CALL                                 FC51601        7     A     
 REG                BX2    X3-X2                                                           FC51601        8     A     
 REG                NZ     X2,LLA30    IF NO CONFLICT                                      FC51601        9     A     
 REG                RJ     RLL         LOCK SETREG                                         FC51601       10     A     
 REG                SA2    BIASF                                                           FC51601       11     A     
 REG                NZ     X2,LLA14    IF ABS(BIAS) GT 2**17                               FC51601       12     A     
 REG                SB3    RG=SET      CHECK REGISTERS 0-5                                 FC51601       13     A     
 REG                RJ     SFR                                                             FC51601       14     A     
 REG                ZR     X7,LLA14A   IF FREE                                             FC51601       15     A     
 REG                SB3    RG=STOR     CHECK REGISTERS 6-7                                 FC51601       16     A     
 REG                RJ     SFR                                                             FC51601       17     A     
 REG                ZR     X7,LLA14A   IF FREE                                             FC51601       18     A     
 REG                                                                                       FC51601       19     A     
 REG       LLA14    SB3    RG=LOAD                                                         FC51601       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                RJ     GNR         GET A LOAD REGISTER                                 FC51601       21     A     
 REG                                                                                       FC51601       22     A     
 REG       LLA14A   AX6    3                                                               FC51601       23     A     
 REG                SA6    LLAB                                                            FC51601       24     A     
 REG                EQ     LLA30                                                           FC51601       25     A     
 REG                                                                                       REG         1355     A     
 REG       LLA15    SA1    FPREG                                                           REG         1356     A     
 REG                SB7    X1                                                              REG         1357     A     
 REG                RJ     RLL         LOCK FPREG                                          REG         1358     A     
 REG                SB3    RG=LOAD                                                         REG         1359     A     
 REG                RJ     GNR                                                             REG         1360          I
          -FC50920
 REG                AX6    3                                                               REG         1361          I
          -FC50920
 REG                SA2    BIASF                                                           FC50920       10          I
          -FC51601
 REG                NZ     X2,LLA20    IF ABS(BIAS) GT 2**17                               FC50920       11          I
          -FC51601
 REG                SB3    RG=SET                                                          FC50920       12          I
          -FC51601
 REG                RJ     SFR                                                             FC50920       13          I
          -FC51601
 REG                ZR     X7,LLA22    IF NO USE COUNT                                     FC50920       14          I
          -FC51601
 REG                SB3    RG=INTR                                                         FC50920       15          I
          -FC51601
 REG                RJ     SFR                                                             FC50920       16          I
          -FC51601
 REG                ZR     X7,LLA22    IF NO USE COUNT                                     FC50920       17          I
          -FC51601
 REG                SB3    RG=SET                                                          FC50920       18          I
          -FC51601
 REG                                                                                       FC50920       19          I
          -FC51601
 REG       LLA20    RJ     GNR                                                             FC50920       20          I
          -FC51601
 REG                                                                                       FC50920       21          I
          -FC51601
 REG       LLA22    AX6    3                                                               FC50920       22          I
          -FC51601
 REG                RJ     GNR         GET A LOAD REG                                      FC51601       26     A     
 REG                AX6    3                                                               FC51601       27     A     
 REG                SA6    LLAB        T2 = GRN(LOAD)                                      FC51601       28     A     
 REG                SA6    LLAB        T2 = GNR(LOAD)                                      REG         1362          I
          -FC51601
 REG                                                                                       REG         1363     A     
 REG       LLA30    SA2    BIAS                                                            REG         1364     A     
 REG                BX3    X2                                                              REG         1365          I
          -FC50920
 REG                LX3    -P2.BIASL                                                       REG         1366          I
          -FC50920
 REG                AX3    -P2.BIASL+17                                                    REG         1367          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
          -FC50920
 REG                SA3    BIASF                                                           FC50920       23     A     
 REG                ZR     X3,LLA40    IF ABS(BIAS) LT 2**17                               REG         1368     A     
 REG                BX6    X5                                                              REG         1369     A     
 REG                SA6    LLAC                                                            REG         1370     A     
 REG                MX0    1                                                               REG         1371     A     
 REG                LX0    1+P2.SHRTP  FAKE                                                REG         1372     A     
 REG                LX2    P2.BIASP                                                        REG         1373     A     
 REG                BX5    X0+X2                                                           REG         1374     A     
 REG                CALL   ESC         EXPAND SHORT CONSTANT                               REG         1375     A     
 REG                SA5    LLAC                                                            REG         1376     A     
 REG                SX0    SA=BK                                                           REG         1377     A     
 REG                LX0    PB.INSTP                                                        REG         1378     A     
 REG                LX3    PB.BIASP                                                        REG         1379     A     
 REG                LX1    PB.TAGP                                                         REG         1380     A     
 REG                BX6    X0+X3                                                           REG         1381     A     
 REG                SA3    LLAB                                                            REG         1382     A     
 REG                BX7    X6+X1                                                           REG         1383     A     
 REG                LX3    PB.IP                                                           REG         1384     A     
 REG                BX7    X7+X3                                                           REG         1385     A     
 REG                WCODE  X7,LLA90    SA_T2 CON.+K                                        REG         1386     A     
 REG                                                                                       REG         1387     A     
 REG       LLA40    MX0    -PB.BIASL                                                       REG         1388          I
          -FC50875
 REG       LLA40    SA2    SETREG                                                          FC50875        5          I
          -FC51601
 REG                SA3    LLAB                                                            FC50875        6          I
          -FC51601
 REG                SB7    X2          IN CASE OF RLL CALL                                 FC50875        7          I
          -FC51601
 REG                BX2    X3-X2                                                           FC50875        8          I
          -FC51601
 REG                NZ     X2,LLA45    IF NO REGISTER CONFLICT                             FC50875        9          I
          -FC51601
 REG                RJ     RLL         LOCK SETREG                                         FC50875       10          I
          -FC51601
 REG                SB3    RG=LOAD                                                         FC50920       24          I
          -FC51601
 REG                SA1    BIASF                                                           FC50920       25          I
          -FC51601
 REG                NZ     X1,LLA42    IF ABS(BIAS) GT 2**17                               FC50920       26          I
          -FC51601
 REG                SB3    RG=SET                                                          FC50875       11          I
          -FC51601
 REG                RJ     GNR                                                             FC50875       12          I
          -FC50920
 REG                                                                                       FC50920       27          I
          -FC51601
 REG       LLA42    RJ     GNR                                                             FC50920       28          I
          -FC51601
 REG                AX6    3                                                               FC50875       13          I
          -FC51601
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SX3    X6                                                              FC50875       14          I
          -FC51601
 REG                SA6    LLAB        NEW LLAB TO AVOID CONFLICT WITH                     FC50875       15          I
          -FC51601
 REG      *                            IX_SETREG FPREG+AFREG                               FC50875       16          I
          -FC51601
 REG       LLA45    MX0    -PB.BIASL                                                       FC50875       17          I
          -FC51601
 REG                SA2    BIAS                                                            FC50875       18          I
          -FC51601
 REG       LLA40    MX0    -PB.BIASL                                                       FC51601       29     A     
 REG                BX2    -X0*X2                                                          REG         1389     A     
 REG                LX2    PB.BIASP                                                        REG         1390     A     
 REG                SX0    SX=BK                                                           REG         1391     A     
 REG                SA3    LLAB                                                            FC51601       30     A     
 REG                SA3    LLAB                                                            REG         1392          I
          -FC50875
 REG                LX0    PB.INSTP                                                        REG         1393     A     
 REG                LX3    PB.IP                                                           REG         1394     A     
 REG                BX0    X0+X2                                                           REG         1395     A     
 REG                BX7    X0+X3                                                           REG         1396     A     
 REG                WCODE  X7,LLA90    SX_T2 BIAS                                          REG         1397     A     
 REG                                                                                       REG         1398     A     
 REG      *         NON-INDEXED (SCALAR OR CON ARRAY ELEMENT)                              REG         1399     A     
 REG                                                                                       REG         1400     A     
 REG       LLA50    SA1    BIAS                                                            REG         1401     A     
 REG                NZ     X1,LLA15    IF BIAS                                             REG         1402     A     
 REG                SA1    SETREG                                                          REG         1403     A     
 REG                SA2    FPREG                                                           REG         1404     A     
 REG                LX1    PB.IP                                                           REG         1405     A     
 REG                LX2    PB.JP                                                           REG         1406     A     
 REG                SX0    XMT                                                             REG         1407     A     
 REG                BX6    X1+X2                                                           REG         1408     A     
 REG                LX0    PB.INSTP                                                        REG         1409     A     
 REG                BX7    X0+X6                                                           REG         1410     A     
 REG                WCODE  X7,LLA100   BX_SETREG FPREG                                     REG         1411     A     
 REG                                                                                       REG         1412     A     
 REG       LLA90    SA1    SETREG                                                          REG         1413     A     
 REG                SA2    LLAA                                                            REG         1414     A     
 REG                SA3    LLAB                                                            REG         1415     A     
 REG                SX0    IA                                                              REG         1416     A     
 REG                LX0    PB.INSTP                                                        REG         1417     A     
 REG                LX1    PB.IP                                                           REG         1418     A     
 REG                BX0    X0+X1                                                           REG         1419     A     
 REG                LX2    PB.JP                                                           REG         1420     A     
 REG                LX3    PB.KP                                                           REG         1421     A     
 REG                BX0    X0+X2                                                           REG         1422     A     
 REG                BX7    X0+X3                                                           REG         1423     A     
 REG                WCODE  X7          IX_SETREG T1+T2                                     REG         1424     A     
 REG                                                                                       REG         1425     A     
 REG       LLA100   SA1    FPREG                                                           REG         1426     A     
 REG                SB7    X1                                                              REG         1427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                RJ     RUL         UNLOCK FPREG                                        REG         1428     A     
 REG                SA1    AFREG                                                           REG         1429     A     
 REG                ZR     X1,LLA110   NO ADDRESS FUNCTION                                 REG         1430     A     
 REG                MX0    -3                                                              REG         1431     A     
 REG                BX1    -X0*X1                                                          REG         1432     A     
 REG                SB7    X1                                                              REG         1433     A     
 REG                RJ     RUL         UNLOCK AFREG                                        REG         1434     A     
 REG                                                                                       REG         1435     A     
 REG       LLA110   SA2    SETREG                                                          REG         1436     A     
 REG                SB7    X2                                                              REG         1437     A     
 REG                RJ     RUL         UNLOCK SETREG                                       REG         1438     A     
 REG                EQ     EXIT.                                                           REG         1439     A     
 REG                                                                                       REG         1440     A     
 REG       BIAS     BSS    1                                                               REG         1441     A     
 REG       SETREG   BSS    1                                                               REG         1442     A     
 REG       LLAA     BSS    1                                                               REG         1443     A     
 REG       LLAB     BSS    1                                                               REG         1444     A     
 REG       LLAC     BSS    1                                                               REG         1445     A     
 REG       BIASF    BSS    1                                                               FC50920       29     A     
 REG       LLB      SPACE  4,10                                                            REG         1446     A     
 REG      **        LLB - LOAD LCM BASE ADDRESS.                                           REG         1447     A     
 REG      *         ENTRY  (X5) = TAG                                                      REG         1448     A     
 REG      *                                                                                REG         1449     A     
 REG      *         EXIT   (X5) PRESERVED                                                  REG         1450     A     
 REG      *                X6 = 00R USED FOR LOAD                                          REG         1451     A     
 REG                                                                                       REG         1452     A     
 REG       LLB      SUBR                                                                   REG         1453     A     
 REG                SB3    RG=LOAD                                                         REG         1454     A     
 REG                RJ     GNR                                                             REG         1455     A     
 REG                LX6    3                                                               REG         1456          I
          -FC51555
 REG      *                                                                                FC51555        6     A     
 REG      *         CHECK IF REGISTER JUST SELECTED INTERFERS WITH A UEM READ              FC51555        7     A     
 REG      *         IF SO TRANSFER UEM RESULT TO X6 ONLY IF X6 AND X7 FREE.                FC51555        8     A     
 REG      *                                                                                FC51555        9     A     
 REG                SA1    LINS        LAST UEM INSTRUCTION                                FC51555       10     A     
 REG                ZR     X1,LLB9     IF NO UEM INST                                      FC51555       11     A     
 REG                SA2    REGE                                                            FC51555       12     A     
 REG                ZR     X2,LLB9     IF REGFILE ENTRY FREE                               FC51555       13     A     
 REG                SX2    DRL                                                             FC51555       14     A     
 REG                MX0    PB.GHL+PB.IL                                                    FC51555       15     A     
 REG                BX3    X0*X1                                                           FC51555       16     A     
 REG                LX2    PB.INSTP                                                        FC51555       17     A     
 REG                BX2    X2-X3                                                           FC51555       18     A     
 REG                NZ     X2,LLB9     IF LAST INST NOT 014, READ UEM                      FC51555       19     A     
 REG                LX1    PB.INSTL                                                        FC51555       20     A     
 REG                MX0    PB.JL                                                           FC51555       21     A     
 REG                LX0    PB.JL+PB.KL                                                     FC51555       22     A     
 REG                BX2    X0*X1                                                           FC51555       23     A     
 REG                BX3    X2-X6                                                           FC51555       24     A     
 REG                NZ     X3,LLB9     IF LOAD REG DOES NOT CONFLICT WITH UEM READ         FC51555       25     A     
 REG                SA1    REGFILE+REG.X+6                                                 FC51555       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                NZ     X1,LLB9     IF X6 REG NOT AVAILABLE                             FC51555       27     A     
 REG                SA3    A1+1                                                            FC51555       28     A     
 REG                NZ     X3,LLB9     IF X7 REG NOT AVAILABLE                             FC51555       29     A     
 REG                SX7    B2                                                              FC51555       30     A     
 REG                SA7    LLSV        SAVE B2                                             FC51555       31     A     
 REG                SA6    A7+1        SAVE X6                                             FC51555       32     A     
 REG                LX7    X5                                                              FC51555       33     A     
 REG                SA7    A6+1        SAVE X5                                             FC51555       34     A     
 REG                LX7    X2                                                              FC51555       35     A     
 REG                SA7    SVX2        REG BEING WIPED OUT                                 FC51555       36     A     
 REG                SA5    REGE        REGFILE ENTRY OF REG WIPED OUT                      FC51555       37     A     
 REG                MX0    -1                                                              FC51555       38     A     
 REG                BX3    X5                                                              FC51555       39     A     
 REG                AX3    RG.TYPP                                                         FC51555       40     A     
 REG                BX7    -X0*X3                                                          FC51555       41     A     
 REG                SB2    X7                                                              FC51555       42     A     
 REG                SA7    SVB2        UPPER/LOWER FLAG                                    FC51555       43     A     
 REG                RJ     GST         GET STATUS FOR STS CALL                             FC51555       44     A     
 REG                SB2    R.X6                                                            FC51555       45     A     
 REG                SA3    SVB2                                                            FC51555       46     A     
 REG                SB3    X3          UPPER/LOWER FLAG                                    FC51555       47     A     
 REG                RJ     STS         SET STATUS                                          FC51555       48     A     
 REG                SB7    R.X6-REG.X                                                      FC51555       49     A     
 REG                RJ     RLL         LOCK X6                                             FC51555       50     A     
 REG                SA1    INS.REG     I REG FOR NEXT INST                                 FC51555       51     A     
 REG                SX0    MAX.USEC                                                        FC51555       52     A     
 REG                BX7    X0*X1                                                           FC51555       53     A     
 REG                SA2    SVX2        REG WIPED OUT                                       FC51555       54     A     
 REG                AX2    PB.KL                                                           FC51555       55     A     
 REG                BX7    X2-X7                                                           FC51555       56     A     
 REG                NZ     X7,LLB8     IF I REG OF NEXT AND REG WIPED OUT NOT SAME         FC51555       57     A     
 REG                SX7    R.X6-REG.X                                                      FC51555       58     A     
 REG                SA7    INS.REG     UPDATE TO NEW REG                                   FC51555       59     A     
 REG                SA1    REGLK                                                           FC51555       60     A     
 REG                SA3    A1+1                                                            FC51555       61     A     
 REG                BX0    X1-X3                                                           FC51555       62     A     
 REG                NZ     X0,LLB8     IF NO LOCK                                          FC51555       63     A     
 REG                BX0    X1-X2                                                           FC51555       64     A     
 REG                NZ     X0,LLB8     IF REG NOT JUST WIPED OUT                           FC51555       65     A     
 REG                SA7    REGLK                                                           FC51555       66     A     
 REG                SA7    A7+1        UPDATE REGLK                                        FC51555       67     A     
 REG                SA2    SVX2        RESTORE X2 FOR WCODE                                FC51555       68     A     
 REG                SX1    R.X6-REG.X                                                      FC51555       69     A     
 REG                SX0    XMT                                                             FC51555       70     A     
 REG                LX1    PB.JL+PB.KL                                                     FC51555       71     A     
 REG                BX0    X0+X1                                                           FC51555       72     A     
 REG                BX7    X0+X2                                                           FC51555       73     A     
 REG                LX7    PB.INSTP                                                        FC51555       74     A     
 REG                WCODE  X7,LLB8                                                         FC51555       75     A     
 REG                                                                                       FC51555       76     A     
 REG       LLB8     SA1    LLSV                                                            FC51555       77     A     
 REG                SB2    X1          RESTORE B2                                          FC51555       78     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA2    A1+1                                                            FC51555       79     A     
 REG                LX6    X2          RESTORE X6                                          FC51555       80     A     
 REG                SA3    A2+1                                                            FC51555       81     A     
 REG                BX5    X3          RESTORE X5                                          FC51555       82     A     
 REG                                                                                       FC51555       83     A     
 REG       LLB9     LX6    3                                                               FC51555       84     A     
 REG                MX7    0                                                               FC51555       85     A     
 REG                SA7    LINS                                                            FC51555       86     A     
 REG                SA6    LFPA                                                            REG         1457     A     
 REG                BX0    X5                                                              REG         1458     A     
 REG                HX0    P2.FP                                                           REG         1459     A     
 REG                PL     X0,LLB20    IF NOT FORMAL                                       REG         1460     A     
 REG                RJ     LPA         LOAD FP BASE ADDRESS                                REG         1461     A     
 REG                                                                                       REG         1462     A     
 REG       LLB10    SA3    LFPA                                                            REG         1463     A     
 REG                AX3    6                                                               REG         1464     A     
 REG                BX6    X3                                                              REG         1465     A     
 REG                EQ     EXIT.                                                           REG         1466     A     
 REG                                                                                       REG         1467     A     
 REG       LLB20    RJ     CLP         LOAD COMMON POINTER                                 REG         1468     A     
 REG                EQ     LLB10                                                           REG         1469     A     
 REG                                                                                       FC51555       87     A     
 REG       LLSV     BSS    3           SAVE AREA                                           FC51555       88     A     
 REG       SVX2     BSS    1                                                               FC51555       89     A     
 REG       SVB2     BSS    1                                                               FC51555       90     A     
 REG       LINS     CON    0                                                               FC51555       91     A     
 REG       LLV      SPACE  4,10                                                            REG         1470     A     
 REG      **        LLV - LOAD LCM VALUE.                                                  REG         1471     A     
 REG                                                                                       REG         1472     A     
 REG       LLV      SUBR                                                                   REG         1473     A     
 REG                SA1    ADDR                                                            REG         1474     A     
 REG                SA2    T.SYM                                                           REG         1475     A     
 REG                NZ     X1,EXIT.    IF ADDRESS REF.                                     REG         1476     A     
 REG       #MD      IFEQ   .DAL,1                                                          REG         1477     A     
 REG                MX0    -P2.TAGL                                                        REG         1478     A     
 REG                BX1    X5                                                              REG         1479     A     
 REG                =B7    X2+WB.W                                                         REG         1480     A     
 REG                LX1    -P2.TAGP                                                        REG         1481     A     
 REG                BX6    -X0*X1                                                          REG         1482     A     
 REG                LX1    B1,X6                                                           REG         1483     A     
 REG                IX3    X6+X1                                                           REG         1484     A     
 REG                SA6    LLVTAG                                                          REG         1485     A     
 REG                SA2    B7+X3                                                           REG         1486     A     
 REG                MX0    -WB.LEVNL                                                       REG         1487     A     
 REG                BX7    X2                                                              REG         1488     A     
 REG                LX2    -WB.LEVNP                                                       REG         1489     A     
 REG                BX6    -X0*X2                                                          REG         1490     A     
 REG                SA2    ALREG                                                           REG         1491     A     
 REG                MX0    -3                                                              REG         1492     A     
 REG                SA1    SETREG                                                          REG         1493     A     
 REG                BX2    -X0*X2                                                          REG         1494     A     
 REG                SA3    STORE                                                           REG         1495     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                ZR     X6,LLV20    IF LEVEL 0 REF.                                     REG         1496     A     
 REG                LX3    PB.IP-PB.INSTP                                                  REG         1497     A     
 REG                SX3    DRL+X3                                                          REG         1498     A     
 REG                LX2    PB.JP                                                           REG         1499     A     
 REG                LX3    PB.INSTP                                                        REG         1500     A     
 REG                LX1    PB.KP                                                           REG         1501     A     
 REG                BX0    X3+X2                                                           REG         1502     A     
 REG                BX7    X1+X0                                                           REG         1503     A     
 REG                SA7    LINS        LAST UEM INSTRUCTION                                FC51555       92     A     
 REG                WCODE  X7,EXIT.                                                        REG         1504     A     
 REG                                                                                       REG         1505     A     
 REG       LLV20    SX3    I.LD0+X3                                                        REG         1506     A     
 REG                LX2    PB.H2P+3                                                        REG         1507     A     
 REG                LX1    PB.H2P                                                          REG         1508     A     
 REG                LX3    PB.GHIJP                                                        REG         1509     A     
 REG                MX0    -WB.FPOL                                                        REG         1510     A     
 REG                LX7    -WB.FPOP                                                        REG         1511     A     
 REG                BX0    -X0*X7                                                          REG         1512     A     
 REG                BX3    X3+X2                                                           REG         1513     A     
 REG                BX7    X1+X3                                                           REG         1514     A     
 REG                SA1    LLVTAG                                                          REG         1515     A     
 REG                LX1    PB.TAGP                                                         REG         1516     A     
 REG                BX7    X7+X1                                                           REG         1517     A     
 REG                SA1    =XT.FPI                                                         REG         1518     A     
 REG                SB7    X1-1                                                            REG         1519     A     
 REG                SA2    B7+X0                                                           REG         1520     A     
 REG                =X3    1                                                               REG         1521     A     
 REG                LX3    FP.SUB0P                                                        REG         1522     A     
 REG                IX6    X2+X3                                                           REG         1523     A     
 REG                SA6    =XENT.SB0   FLAG LEVEL0 REF ISSUED                              REG         1524     A     
 REG                SA6    A2          INCREMENT FP.SUB0                                   REG         1525     A     
 REG                WCODE  X7,EXIT.                                                        REG         1526     A     
 REG                                                                                       REG         1527     A     
 REG       LLVTAG   BSS    1                                                               REG         1528     A     
 REG       #MD      ELSE                                                                   REG         1529     A     
 REG                EQ     "BLOWUP"                                                        REG         1530     A     
 REG       #MD      ENDIF                                                                  REG         1531     A     
 REG       LPA      SPACE  4,8                                                             REG         1532     A     
 REG      **        LPA - LOAD FORMAL PARAMETER BASE ADDRESS.                              REG         1533     A     
 REG                                                                                       REG         1534     A     
 REG       LPA      SUBR                                                                   REG         1535     A     
 REG                LX5    -P2.TAGP                                                        REG         1536     A     
 REG                MX0    -P2.TAGL                                                        REG         1537     A     
 REG                BX1    -X0*X5                                                          REG         1538     A     
 REG                LX5    P2.TAGP                                                         REG         1539     A     
 REG                RJ     GPN         GET PARAMETER NUMBER                                REG         1540     A     
 REG                SX7    X1-1                                                            REG         1541     A     
 REG                SX0    X6+SA=AK                                                        REG         1542     A     
 REG                NZ     X7,LPA10    IF NOT FIST FP                                      REG         1543     A     
 REG                SX0    X6+SA=AB                                                        REG         1544     A     
 REG                                                                                       REG         1545     A     
 REG       LPA10    LX7    PB.BIASP                                                        REG         1546     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                LX0    PB.INSTP                                                        REG         1547     A     
 REG                IX7    X0+X7                                                           REG         1548     A     
 REG                WCODE  X7                                                              REG         1549     A     
 REG                EQ     EXIT.                                                           REG         1550     A     
 REG       LSC      SPACE  4,8                                                             REG         1551     A     
 REG       LSC      SPACE  4,8                                                             REG         1552     A     
 REG      **        LSC - LOAD SHORT CONSTANT.                                             REG         1553     A     
 REG      *                                                                                REG         1554     A     
 REG      *         ENTRY  (B3) = RG=XXXX - SCAN TYPE FOR REGISTER LOAD.                   REG         1555     A     
 REG      *                (B4) = PARSED FILE ADDRESS FOR CURRENT TURPLE.                  REG         1556     A     
 REG      *                (X1) = T.OUS FORM OF TAG TO BE LOADED.                          REG         1557     A     
 REG      *                (X5) = I. L. FORM OF TAG TO BE LOADED.                          REG         1558     A     
 REG      *                                                                                REG         1559     A     
 REG      *         EXIT   (B2) = REGISTER - (0TR)                                         REG         1560     A     
 REG      *                (X6) = REGISTER (0R0)                                           REG         1561     A     
 REG      *                                                                                REG         1562     A     
 REG      *         USES    ALL REGISTERS EXCEPT A0,A4,  X4,X5, AND  B4                    REG         1563     A     
 REG      *                                                                                REG         1564     A     
 REG      *         CALLS  ASR,GNR,WCODE                                                   REG         1565     A     
 REG                                                                                       REG         1566     A     
 REG       LSC      SUBR   =           ENTRY/EXIT...                                       REG         1567     A     
 REG                MX7    -OP.CHINL   MASK FOR OPERATOR TYPE                              REG         1568     A     
 REG                =A2    B4+OR.OPR                                                       REG         1569     A     
 REG                AX2    OP.CHINP    POSITION OPERATOR TYPE                              REG         1570     A     
 REG                BX2    -X7*X2      EXTRACT OPERATOR TYPE                               REG         1571     A     
 REG                BX6    X1                                                              REG         1572     A     
 REG                SX7    B3          SCAN TYPE FOR SFR                                   REG         1573     A     
 REG                SA3    RREG        GET HARD REG CELL                                   REG         1574     A     
 REG                SA6    LSCA        (LSCA) = STATUS WORD OF SHORT CON                   REG         1575     A     
 REG                =A7    A6+1        (LSCA+1) = REGISTER SCAN TYPE                       REG         1576     A     
 REG                PL     X3,LSC10    IF REGISTER ALREADY ASSIGNED                        REG         1577     A     
 REG                SB7    X2-O.=                                                          REG         1578     A     
 REG                NZ     B7,LSC10    IF NOT PROCESSING STORE TURPLE                      REG         1579     A     
 REG                RJ     ASR         ASSIGN STORAGE REGISTER                             REG         1580     A     
 REG                EQ     LSC20                                                           REG         1581     A     
 REG                                                                                       REG         1582     A     
 REG       LSC10    RJ     GNR         GET REGISTER                                        REG         1583     A     
 REG                                                                                       REG         1584     A     
 REG       LSC20    BX7    X6          (0R0)                                               REG         1585     A     
 REG                SA3    LSCA+1      GET SCAN TYPE                                       REG         1586     A     
 REG                LX7    3           (X7) = (R00)                                        REG         1587     A     
 REG                =A2    A3-1        GET STATUS WORD OF SHORT CON                        REG         1588     A     
 REG                SB7    RG=BADR                                                         REG         1589     A     
 REG                SB7    -B7                                                             REG         1590     A     
 REG                SB7    X3+B7       (B7) = (SCAN TYPE)-RG=BADR                          REG         1591     A     
 REG                HX2    P2.BIAS     POSITION SIGN BIT OF CONSTANT VALUE                 REG         1592     A     
 REG                SX1    X7+SX=BK    OPCODE+I00                                          REG         1593     A     
 REG                NZ     B7,LSC21    IF NOT *B* REGISTER LOAD                            REG         1594     A     
 REG                SX1    X7+SB=BK    OPCODE+I00                                          REG         1595     A     
 REG       LSC21    AX2    -P2.BIASL   SIGN EXTENDED CONSTANT, (X2) = CONSTANT.            REG         1596     A     
 REG                NZ     B7,LSC22    IF NOT *B* REGISTER LOAD                            REG         1597     A     
 REG                NZ     X2,LSC30    IF NOT CONSTANT ZERO                                REG         1598     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SX1    X7+SB=BB    OPCODE+I00                                          REG         1599     A     
 REG                EQ     LSC30                                                           REG         1600     A     
 REG                                                                                       REG         1601     A     
 REG      *         IF *0* COMPILE: BXI XI-XI (IF +0), BXI -XI-XI (IF -0)                  REG         1602     A     
 REG                                                                                       REG         1603     A     
 REG       LSC22    NZ     X2,LSC30    IF CONSTANT NOT ZERO                                REG         1604     A     
 REG                SX1    X7+CLR      OP-CODE + I00                                       REG         1605     A     
 REG                PL     X2,LSC24    IF CONSTANT = POSITIVE ZERO                         REG         1606     A     
 REG                SX1    X7+EQV      OP-CODE + I00                                       REG         1607     A     
 REG       LSC24    AX7    6           (X7) = 00I                                          REG         1608     A     
 REG                IX7    X1+X7       OP-CODE + I0I                                       REG         1609     A     
 REG                IX1    X7+X6       OP-CODE + I0I+0I0                                   REG         1610     A     
 REG                MX2    0           MAKE SURE BIAS IS ZERO                              REG         1611     A     
 REG                                                                                       REG         1612     A     
 REG      *         (X1) = OP-CODE + REGISTER (RIGHT JUSTIFIED)                            REG         1613     A     
 REG      *         (X2) = CONSTANT.                                                       REG         1614     A     
 REG      *         (B2) = REGISTER (0TR)                                                  REG         1615     A     
 REG                                                                                       REG         1616     A     
 REG       LSC30    MX0    -PB.BIASL   MASK FOR SHORT CONSTANT                             REG         1617     A     
 REG                LX1    PB.INSTP    POSITION OPCODE                                     REG         1618     A     
 REG                BX2    -X0*X2      MASK OFF SIGN BITS                                  REG         1619     A     
 REG                SB5    B2          SAVE (0TR) ACROSS WCODE                             REG         1620     A     
 REG                LX2    PB.BIASP    POSITION CONSTANT IN PB. BIAS FIELD                 REG         1621     A     
 REG                IX7    X1+X2       ADD CONSTANT INTO INSTRUCTION                       REG         1622     A     
 REG                WCODE  X7                                                              REG         1623     A     
 REG                SX6    B5          (0TR)                                               REG         1624     A     
 REG                MX0    -3                                                              REG         1625     A     
 REG                SB2    B5          (B2) = (0TR)                                        REG         1626     A     
 REG                BX6    -X0*X6      (00R)                                               REG         1627     A     
 REG                LX6    3           (X6) = (0R0)                                        REG         1628     A     
 REG                EQ     EXIT.                                                           REG         1629     A     
 REG                                                                                       REG         1630     A     
 REG       LSCA     DATA   0,0                                                             REG         1631     A     
 REG       LTG      EJECT  4,20                                                            REG         1632     A     
 REG      **        LTG -  LOAD TAG                                                        REG         1633     A     
 REG      *                                                                                REG         1634     A     
 REG      *         ENTRY  (B2) = 0 (LOAD UPPER HALF)                                      REG         1635     A     
 REG      *                     = 1 (LOAD LOWER HALF)                                      REG         1636     A     
 REG      *                (B3) = REGISTER GROUP FOR LOAD (RG=XXX).                        REG         1637     A     
 REG      *                (X1) = STATUS WORD OF TAG TO BE LOADED.                         REG         1638     A     
 REG      *                (X5) = TAG TO BE LOADED.                                        REG         1639     A     
 REG      *                                                                                REG         1640     A     
 REG      *         EXIT   (B2) = REGISTER (0TR)                                           REG         1641     A     
 REG      *                (B6) = STATUS WORD FOR TAG.                                     REG         1642     A     
 REG      *                (X6) = REGISTER (0R0)                                           REG         1643     A     
 REG      *                                                                                REG         1644     A     
 REG      *         USES   ALL REGISTERS EXCEPT A0,A4 B4.                                  REG         1645     A     
 REG      *                                                                                REG         1646     A     
 REG      *         CALLS  GNR,CLI                                                         REG         1647     A     
 REG                                                                                       REG         1648     A     
 REG                                                                                       REG         1649     A     
 REG       LTG      SUBR   =           ENTRY/EXIT...                                       REG         1650     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX6    X1                                                              REG         1651     A     
 REG                SX3    B2          (X3) = TYPE (UPPER/LOWER)                           REG         1652     A     
 REG                LX3    P2.BIASP    POSITION TYPE TO OFFSET BIAS                        REG         1653     A     
 REG                IX6    X6+X3       ADD (TYPLOD) INTO BIAS                              REG         1654     A     
 REG                SA6    LTGA        SAVE TAG TO BE USED IN INSTRUCTION                  REG         1655     A     
 REG                RJ     GNR         GET REGISTER                                        REG         1656     A     
 REG                SA1    LTGA                                                            REG         1657     A     
 REG                RJ     CLI         COMPILE LOAD INSTRUCTION                            REG         1658     A     
 REG                EQ     EXIT.                                                           REG         1659     A     
 REG                                                                                       REG         1660     A     
 REG                                                                                       REG         1661     A     
 REG       LTGA     DATA   0                                                               REG         1662     A     
 REG                                                                                       REG         1663     A     
 REG       RLL      SPACE  4,8                                                             REG         1664     A     
 REG      **        RLL -  LOCK REGISTER *X* AND *A* REGISTER.                             REG         1665     A     
 REG      *                                                                                REG         1666     A     
 REG      *         ENTRY  (B7) = REGISTER TO LOCK - 00R.                                  REG         1667     A     
 REG      *                                                                                REG         1668     A     
 REG      *         EXIT   REGISTER LOCKED.                                                REG         1669     A     
 REG      *                (X7) = LOCK REGISTER - 00R.                                     REG         1670     A     
 REG      *                                                                                REG         1671     A     
 REG      *         USES   A1,A2,A7  X0                                                    REG         1672     A     
 REG      *         CANNOT DESTORY *X6*                                                    REG         1673          I
          -FC5A258
 REG      *         CANNOT DESTROY *X6*                                                    FC5A258       54     A     
 REG                                                                                       REG         1674     A     
 REG                                                                                       REG         1675     A     
 REG       RLL      SUBR   =           ENTRY/EXIT...                                       REG         1676     A     
 REG                =X0    RLOCK                                                           REG         1677     A     
 REG                SA1    B7+REGFILE+REG.X                                                REG         1678     A     
 REG                BX7    X1+X0                                                           REG         1679     A     
 REG                SA2    B7+REGFILE+REG.A                                                REG         1680     A     
 REG                SA7    A1          LOCK ON *X*                                         REG         1681     A     
 REG                BX7    X2+X0                                                           REG         1682     A     
 REG                SA7    A2          LOCK ON *A*                                         REG         1683     A     
 REG                SX7    B7          REGISTER = 00R.                                     REG         1684     A     
 REG                EQ     EXIT.                                                           REG         1685     A     
 REG       RUL      SPACE  4,8                                                             REG         1686     A     
 REG      **        RUL -  UNLOCK REGISTER *X* AND *A* REGISTER.                           REG         1687     A     
 REG      *                                                                                REG         1688     A     
 REG      *         ENTRY  (B7) = REGISTER TO UNLOCK - 00R.                                REG         1689     A     
 REG      *                                                                                REG         1690     A     
 REG      *         EXIT   REGISTER UNLOCKED.                                              REG         1691     A     
 REG      *                                                                                REG         1692     A     
 REG      *         USES   A1,A2,A7  X0                                                    REG         1693     A     
 REG      *         CANNOT DESTORY *X6*                                                    REG         1694          I
          -FC5A258
 REG      *         CANNOT DESTROY *X6*                                                    FC5A258       55     A     
 REG                                                                                       REG         1695     A     
 REG                                                                                       REG         1696     A     
 REG       RUL      SUBR   =           ENTRY/EXIT...                                       REG         1697     A     
 REG                =X0    RLOCK                                                           REG         1698     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                LT     B7,EXIT.    IF NO REGISTER TO UNLOCK                            REG         1699     A     
 REG                SA1    B7+REGFILE+REG.X                                                REG         1700     A     
 REG                                                                                       REG         1701     A     
 REG      *         DO NOT TOUCH TEMP *X* REGISTER                                         REG         1702     A     
 REG                                                                                       REG         1703     A     
 REG                MX2    -RG.USEL                                                        REG         1704     A     
 REG                BX7    -X2*X1      USE COUNT                                           REG         1705     A     
 REG                =X2    MAX.USEC                                                        REG         1706     A     
 REG                BX2    X7-X2                                                           REG         1707     A     
 REG                ZR     X2,RUL1     IF TEMP REGISTER                                    REG         1708     A     
 REG                BX7    -X0*X1                                                          REG         1709     A     
 REG                SA7    A1          CLEAR LOCK ON *X*                                   REG         1710     A     
 REG       RUL1     SA2    B7+REGFILE+REG.A                                                REG         1711     A     
 REG                BX7    -X0*X2                                                          REG         1712     A     
 REG                SA7    A2          CLEAR LOCK ON *A*                                   REG         1713     A     
 REG                EQ     EXIT.                                                           REG         1714     A     
 REG                                                                                       REG         1715     A     
 REG       REGLK    BSSENT 3           LOCK REGISTER                                       REG         1716     A     
 REG       CLOADK   EQU    REGLK+1     *K* PORTION                                         REG         1717     A     
 REG       CLOADJ   EQUENT REGLK+2     *J* PORTION                                         REG         1718     A     
 REG       STRGLK   BSSENT 1                                                               REG         1719     A     
 REG       RUT      SPACE  4,8                                                             REG         1720     A     
 REG      **        RUT -  RESET USAGE TABLE FOR REGISTER BEING CLOBBERED.                 REG         1721     A     
 REG      *                                                                                REG         1722     A     
 REG      *         ENTRY  (B2) = 0TR OF REGISTER BEING CLOBBERED.                         REG         1723     A     
 REG      *                                                                                REG         1724     A     
 REG      *         EXIT   (B2) = PRESERVED.                                               REG         1725     A     
 REG      *                (B3) = 00R (R FROM *B2*)                                        REG         1726     A     
 REG      *                RGFILE, USEFILE CLEARED FOR (B2).                               REG         1727     A     
 REG      *                                                                                REG         1728     A     
 REG      *         USES   A1,A2,A3,A6,A7  X0  B3,B5,B7                                    REG         1729     A     
 REG      *                DESTORYS (A5) BUT NOT (X5)                                      REG         1730     A     
 REG      *                                                                                REG         1731     A     
 REG      *         (SCR2) FOR SAVING *X5*                                                 REG         1732     A     
 REG      *                                                                                REG         1733     A     
 REG      *         CALLS  GST,SFR,DRITE,WCODE                                             REG         1734     A     
 REG                                                                                       REG         1735     A     
 REG                                                                                       REG         1736     A     
 REG       RUT.X    SA5    RUTA        RESTORE (X5)                                        REG         1737     A     
 REG                SX6    B5                                                              REG         1738     A     
 REG                BX7    0                                                               REG         1739     A     
 REG                SB2    B5          RESTORE*B2*                                         REG         1740     A     
 REG                MX0    -3                                                              REG         1741     A     
 REG                                                                                       REG         1742     A     
 REG      **        CLEAR REGFILE ENTRY.                                                   REG         1743     A     
 REG                                                                                       REG         1744     A     
 REG                SB5    B5-REG.X                                                        REG         1745     A     
 REG                SA1    B2+REGFILE                                                      REG         1746     A     
 REG                MI     B5,RUT35    IF NOT X REG CLEAR ONLY ONE ENTRY                   REG         1747     A     
 REG                SA2    B5+REGFILE+REG.A  FETCH CORRESPONDING A-REG                     REG         1748     A     
 REG                BX2    X2-X1                                                           REG         1749     A     
 REG                AX2    RG.USEL                                                         REG         1750     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                NZ     X2,RUT35    IF TAGS NOT EQUAL                                   REG         1751     A     
 REG                SA7    A2+         CLOBBER A REG                                       REG         1752     A     
 REG       RUT35    BX6    -X0*X6                                                          REG         1753     A     
 REG                SA7    A1          (B2+REGFILE) IS ALWAYS CLOBBERED.                   REG         1754     A     
 REG                SB3    X6          =00R                                                REG         1755     A     
 REG                LX6    3           =0R0                                                REG         1756     A     
 REG                                                                                       REG         1757     A     
 REG       RUT      SUBR   =           ENTRY/EXIT...                                       REG         1758     A     
 REG                BX7    X5                                                              REG         1759     A     
 REG                SB5    B2                                                              REG         1760     A     
 REG                SA7    RUTA                                                            REG         1761     A     
 REG                SX6    RUT.X                                                           REG         1762     A     
 REG                SA5    B2+REGFILE                                                      REG         1763     A     
 REG                SA6    RUT.ADR                                                         REG         1764     A     
 REG       RUT5     BX1    X5                                                              REG         1765     A     
 REG                MX0    -1                                                              REG         1766     A     
 REG                =B7    0           STATUS OF TAG ONLY                                  REG         1767     A     
 REG                AX1    RG.TYPP                                                         REG         1768     A     
 REG                BX7    -X0*X1                                                          REG         1769     A     
 REG                SB2    X7          TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)           REG         1770     A     
 REG                SA7    RUT.TYP                                                         REG         1771     A     
 REG                RJ     GST         GET STATUS OF TAG                                   REG         1772     A     
 REG                SA2    RUT.ADR                                                         REG         1773     A     
 REG                SB7    X2                                                              REG         1774     A     
 REG                NZ     B2,RUT6     IF STATUS NOT SET CLEAR ENTRY                       REG         1775     A     
 REG                JP     B7                                                              REG         1776     A     
 REG                                                                                       REG         1777     A     
 REG                                                                                       REG         1778     A     
 REG      *         TAG IS ACTIVE, IF IT IS A SIMPLE TAG INDICATE IN REGISTER              REG         1779     A     
 REG      *         POINTER WORD THAT TAG IS NO LONGER IN A REGISTER - PUT TAG             REG         1780     A     
 REG      *         BACK IN TABLE FROM REGISTER FILE AND CLEAR REGISTER ENTRY              REG         1781     A     
 REG      *         FROM *0TR* ON ENTRY.                                                   REG         1782     A     
 REG                                                                                       REG         1783     A     
 REG       RUT6     SA2    RUT.TYP                                                         REG         1784     A     
 REG                MX0    -1                                                              REG         1785     A     
 REG                BX7    X5                                                              REG         1786     A     
 REG                SB3    X2+ST.STATP                                                     REG         1787     A     
 REG                LX0    X0,B3                                                           REG         1788     A     
 REG                BX6    X0*X1       INDICATE TAG NOT IN REGISTER                        REG         1789     A     
 REG                SA6    A1                                                              REG         1790     A     
 REG                SBIT   X7,P2.INTRP                                                     REG         1791     A     
 REG                MI     X7,RUT20    IF INTERMEDIATE                                     REG         1792     A     
 REG                JP     B7                                                              REG         1793     A     
 REG                                                                                       REG         1794     A     
 REG      *         FOUND INTERMEDIATE IN REGISTER -- MUST SAVE IN TEMPORARY               REG         1795     A     
 REG      *         (B2) = 0TR                                                             REG         1796     A     
 REG      *         (X5) = TAG                                                             REG         1797     A     
 REG                                                                                       REG         1798     A     
 REG      *RUT20    SBIT   X2,P2.ADDRP/P2.INTRP                                            REG         1799     A     
 REG      *         MI     X2,RUT30                                                        REG         1800     A     
 REG       RUT20    BSS    0                                                               REG         1801     A     
 REG                                                                                       REG         1802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       SNAP=H   IFNE   TEST                                                            REG         1803     A     
 REG                SX6    3RRUT                                                           REG         1804     A     
 REG                RJ     REGPRO                                                          REG         1805     A     
 REG       SNAP=H   ENDIF                                                                  REG         1806     A     
 REG                SBIT   X7,P2.ARRP/P2.INTRP                                             REG         1807     A     
 REG                PL     X7,RUT25    IF NOT ARRAY-LOAD                                   REG         1808     A     
 REG                                                                                       REG         1809     A     
 REG      **        INTERMEDIATE IS ARY-LOD -- INDICATE POST-PROCESSING REQUIRED.          REG         1810     A     
 REG                                                                                       REG         1811     A     
 REG                JP     B7                                                              REG         1812     A     
 REG                                                                                       REG         1813     A     
 REG       RUT25    SX0    B5-R.X6                                                         REG         1814     A     
 REG                BX7    X5                                                              REG         1815     A     
 REG                SB2    B5                                                              REG         1816     A     
 REG                PL     X0,RUT28    IF ALREADY IN STORE REGISTER                        REG         1817     A     
 REG                SX6    B5                                                              REG         1818     A     
 REG                SB3    RG=STOR                                                         REG         1819     A     
 REG                SA6    INT.REG     SAVE 0TR OF REGISTER BEING CLOBBERED                REG         1820     A     
 REG                SA7    INT.TAG                                                         REG         1821     A     
 REG                RJ     SFR         GET STORE REGISTER                                  REG         1822     A     
 REG                SB5    B2                                                              REG         1823          I
          -FC50950
 REG                SA2    RUT.REG     IJK OF PREVIOUS INSTRUCTION                         FC50950       12     A     
 REG                ZR     X2,RUT26A   IF IJK OF PREVIOUS INST CLEARED                     FC50950       13     A     
 REG                AX2    6                                                               FC50950       14     A     
 REG                AX6    3           STORE REGISTER SELECTED                             FC50950       15     A     
 REG                BX0    X2-X6                                                           FC50950       16     A     
 REG                NZ     X0,RUT26    IF STORE REG NOT I OF PREVIOUS INST                 FC50950       17     A     
 REG                NZ     X7,RUT26    IF NON ZERO USE COUNT                               FC50950       18     A     
 REG                                                                                       FC50950       19     A     
 REG       RUT25A   SX3    B2-R.X6                                                         FC50950       20     A     
 REG                NZ     X3,RUT25B   IF STORE REG SELECTED NOT X6                        FC50950       21     A     
 REG                SB2    R.X7                                                            FC50950       22     A     
 REG                SA5    B2+REGFILE                                                      FC50950       23     A     
 REG                EQ     RUT25C                                                          FC50950       24     A     
 REG                                                                                       FC50950       25     A     
 REG       RUT25B   SB2    R.X6                                                            FC50950       26     A     
 REG                SA5    B2+REGFILE                                                      FC50950       27     A     
 REG                                                                                       FC50950       28     A     
 REG       RUT25C   SX7    RUT27                                                           FC50950       29     A     
 REG                SA7    RUT.ADR                                                         FC50950       30     A     
 REG                SB5    B2                                                              FC50950       31     A     
 REG                EQ     RUT5                                                            FC50950       32     A     
 REG                                                                                       FC50950       33     A     
 REG       RUT26    SA3    IJK                                                             FC50950       34     A     
 REG                NZ     X3,RUT26A   IF K PART OF INST NOT JUST PROCESSED                FC50950       35     A     
 REG                SA1    INS.REG     K OF CURRENT INSTRUCTION                            FC50950       36     A     
 REG                BX3    X1-X6                                                           FC50950       37     A     
 REG                ZR     X3,RUT25A   IF STORE REG IS *K* OF CURRENT INSTRUCTION          FC50950       38     A     
 REG                                                                                       FC50950       39     A     
 REG       RUT26A   SB5    B2                                                              FC50950       40     A     
 REG                ZR     X7,RUT27    IF REGISTER AVAILABLE                               REG         1824     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                DRITE  DEACTIVATE                                                      REG         1825     A     
 REG                SA5    B2+REGFILE                                                      REG         1826     A     
 REG                SX7    RUT27                                                           REG         1827     A     
 REG                SA7    RUT.ADR     RESET JUMP ADDRESS                                  REG         1828     A     
 REG                ZR     X2,RUT5     IF REGISTER NOT FREED                               REG         1829     A     
 REG                MX0    -RG.USEL                                                        REG         1830     A     
 REG                SB5    B2                                                              REG         1831     A     
 REG                BX2    -X0*X5                                                          REG         1832     A     
 REG                NZ     X2,RUT5     IF NOT LAST USE OF REGISTER                         REG         1833     A     
 REG                                                                                       REG         1834     A     
 REG      **        TRANSFER INTERMEDIATE TO STORE REGISTER.                               REG         1835     A     
 REG                                                                                       REG         1836     A     
 REG       RUT27    SX6    B5          0TR *I* REGISTER                                    REG         1837     A     
 REG                MX0    -3                                                              REG         1838     A     
 REG                SA1    INT.REG     0TR *J* REGISTER                                    REG         1839     A     
 REG                BX2    -X0*X6                                                          REG         1840     A     
 REG                BX7    -X0*X1                                                          REG         1841     A     
 REG                LX2    3                                                               REG         1842     A     
 REG                IX7    X7+X2                                                           REG         1843     A     
 REG                SX7    X7+XMT/1S3                                                      REG         1844     A     
 REG                LX7    PB.INSTP+3                                                      REG         1845     A     
 REG                WCODE  X7                                                              REG         1846     A     
 REG                SB7    RUT.X                                                           REG         1847     A     
 REG                SA2    INT.REG                                                         REG         1848     A     
 REG                SB2    B5                                                              REG         1849     A     
 REG                SA5    INT.TAG                                                         REG         1850     A     
 REG                SB5    X2                                                              REG         1851     A     
 REG                                                                                       REG         1852     A     
 REG      **        STORE INTERMEDIATE IN TEMPORARY.                                       REG         1853     A     
 REG      *         (X5) = INTERMEDIATE TAG.                                               REG         1854     A     
 REG      *         (B2) = 0TR OF STORE REGISTER.                                          REG         1855     A     
 REG                                                                                       REG         1856     A     
 REG       RUT28    SX6    B5                                                              REG         1857     A     
 REG                SX7    B7                                                              REG         1858     A     
 REG                SA6    RUTA+1                                                          REG         1859     A     
 REG                SA7    RUT.ADR                                                         REG         1860     A     
 REG                RJ     CWI         STORE INTERMEDIATE IN TEMPORARY                     REG         1861     A     
 REG                SA1    RUTA+1                                                          REG         1862     A     
 REG                SA2    RUT.ADR                                                         REG         1863     A     
 REG                SB5    X1                                                              REG         1864     A     
 REG                SB7    X2                                                              REG         1865     A     
 REG                JP     B7                                                              REG         1866     A     
 REG                                                                                       REG         1867     A     
 REG       RUTA     BSS    3           RUT SCRATCH                                         REG         1868     A     
 REG       RUT.ADR  DATA   0                                                               REG         1869     A     
 REG       INT.TAG  DATA   0           INTERMEDIATE TAG                                    REG         1870     A     
 REG       INT.REG  DATA   0           0TR OF REGISTER INTERMEDIATE IS IN                  REG         1871     A     
 REG       RUT.TYP  DATA   0           TYPE OF TAG                                         REG         1872     A     
 REG       SDS      SPACE  4,20                                                            REG         1873     A     
 REG      **        SDS -  SET DELAYED STORE IN MOTION.                                    REG         1874     A     
 REG      *                                                                                REG         1875     A     
 REG      *         ENTRY  (B3) = REGISTER NUMBER FOR RIGHT MEMBER RESULTS = 0TR.          REG         1876     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1649    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                       MUST INDICATE EITHER *X6* OR *X7*                        REG         1877     A     
 REG      *                (X1) = TAG FOR LEFT MEMBER.                                     REG         1878     A     
 REG      *                                                                                REG         1879     A     
 REG      *         NOTE --                                                                REG         1880     A     
 REG      *         IF CURRENT TAG BEING SET IS SAME AS *DRITE*, *DRITE* IS IGNORE         REG         1881     A     
 REG      *                                                                                REG         1882     A     
 REG      *         EXIT   TAG FOR LEFT MEMBER SET INTO *RGFILE* *X* ASSOCIATE             REG         1883     A     
 REG      *                (DRITE) = - 0TR. FOR LEFT MEMBER IF ALREADY IN *A* REG          REG         1884     A     
 REG      *                            TAG, IF NOT IN AN *A* REGISTER.                     REG         1885     A     
 REG      *                                                                                REG         1886     A     
 REG      *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B7                              REG         1887     A     
 REG      *                (SDSA,SDSA+1)                                                   REG         1888     A     
 REG      *                                                                                REG         1889     A     
 REG      *         CALLS  DRITE,GST,SST,SFR,WCODE                                         REG         1890     A     
 REG                                                                                       REG         1891     A     
 REG                                                                                       REG         1892     A     
 REG       SDS.X    SA2    SDSA                                                            REG         1893     A     
 REG                MX0    -3                                                              REG         1894     A     
 REG                NO                                                                     REG         1895     A     
 REG                BX6    -X0*X2                                                          REG         1896     A     
 REG                SB2    X2                                                              REG         1897     A     
 REG                LX6    3                                                               REG         1898     A     
 REG                                                                                       REG         1899     A     
 REG                                                                                       REG         1900     A     
 REG       SDS      SUBR   =           ENTRY/EXIT...                                       REG         1901     A     
 REG                SX7    B3                                                              REG         1902     A     
 REG                SX0    B2                                                              REG         1903     A     
 REG                SA3    DRITE                                                           REG         1904     A     
 REG                BX6    X5                                                              REG         1905     A     
 REG                LX0    RG.TYPP                                                         REG         1906     A     
 REG                SA7    SDSA        SAVE REGISTER                                       REG         1907     A     
 REG                BX5    X5+X0                                                           REG         1908     A     
 REG                BX0    X5-X3                                                           REG         1909     A     
 REG                =A6    A7+1        SAVE REGISTER                                       REG         1910     A     
 REG                AX0    RG.TYPP                                                         REG         1911     A     
 REG                SB6    B2                                                              REG         1912     A     
 REG                ZR     X0,SDS10    IF CURRENT TAG ALREADY DELAYED- IGNORE OLD          REG         1913     A     
 REG                ZR     X3,SDS10    IF NO *DRITE*                                       REG         1914     A     
 REG                DRITE  DEACTIVATE  FORCE PROCESSING OF ANY DELAYED STORE               REG         1915     A     
 REG                                                                                       REG         1916     A     
 REG      *         (X6) = TAG CURRENTLY PROCESSING.                                       REG         1917     A     
 REG                                                                                       REG         1918     A     
 REG       SDS10    SB2    B6                                                              REG         1919     A     
 REG                =B7    0           STATUS OF TAG ONLY                                  REG         1920     A     
 REG                RJ     GST         GET STATUS OF TAG                                   REG         1921     A     
 REG                MX0    -3                                                              REG         1922     A     
 REG                =X3    REG.A                                                           REG         1923     A     
 REG                BX6    X0*X5                                                           REG         1924     A     
 REG                SX2    B2                                                              REG         1925     A     
 REG                ZR     B2,SDS15    IF TAG NOT IN REGISTER                              REG         1926     A     
 REG                BX7    X3*X2                                                           REG         1927     A     
 REG                MX3    -1                                                              REG         1928     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SB7    B6+ST.STATP                                                     REG         1929     A     
 REG                LX3    X3,B7                                                           REG         1930     A     
 REG                ZR     X7,SDS12    IF NOT IN *A* REGISTER                              REG         1931     A     
 REG                =X7    0                                                               REG         1932     A     
 REG                BX2    -X0*X2      =00R (LEFT MEMBER)                                  REG         1933     A     
 REG                SB2    B2+REG.X-REG.A                                                  REG         1934     A     
 REG                IX6    X6+X2                                                           REG         1935     A     
 REG                                                                                       REG         1936     A     
 REG       SDS12    SA7    B2+REGFILE  CLEAR REGISTER FILE                                 REG         1937     A     
 REG                BX7    X3*X1       CLEAR STATUS OF TAG                                 REG         1938     A     
 REG                SA7    A1                                                              REG         1939     A     
 REG       SDS15    SA2    SDSA        *X* REGISTER FOR LEFT MEMBER                        REG         1940     A     
 REG                SA6    DRITE       SET DRITE IN MOTION                                 REG         1941     A     
 REG                SB2    X2                                                              REG         1942     A     
 REG                BX6    -X0*X2                                                          REG         1943     A     
 REG                MX3    -RG.USEL                                                        REG         1944     A     
 REG                LX6    3           =0R0 (RIGHT MEMBER)                                 REG         1945     A     
 REG                SA2    B2+REGFILE                                                      REG         1946     A     
 REG                BX0    X3*X1       CLEAR USE COUNT                                     REG         1947     A     
 REG                BX7    -X3*X2      USE COUNT (RIGHT MEMBER)                            REG         1948     A     
 REG                IX6    X0+X6                                                           REG         1949     A     
 REG                SX0    B6                                                              REG         1950     A     
 REG                SB3    B6                                                              REG         1951     A     
 REG                LX0    P2.BIASP                                                        REG         1952     A     
 REG                IX6    X6+X0                                                           REG         1953     A     
 REG                =A6    A6+1                                                            REG         1954     A     
 REG                =A7    A6+1                                                            REG         1955     A     
 REG                NZ     X7,SDS20    IF NOT LAST USE OF RIGHT MEMBER                     REG         1956     A     
 REG                RJ     STS         SET TAG STATUS                                      REG         1957          I
          -FC5A375
 REG                SB7    SDS16                                                           FC5A375        9     A     
 REG                EQ     SDS32       POSSIBLY FORCE RELOAD OF CURRENT TAG                FC5A375       10     A     
 REG       SDS16    RJ     STS         SET TAG STATUS                                      FC5A375       11     A     
 REG                                                                                       FC5A375       12     A     
 REG                EQ     SDS.X       FINISH UP                                           REG         1958     A     
 REG                                                                                       REG         1959     A     
 REG       SDS20    BX7    X2                                                              REG         1960     A     
 REG                =X0    1                                                               REG         1961     A     
 REG                =A7    A6+1                                                            REG         1962     A     
 REG                IX2    X5-X0       USE COUNT - 1 (LEFT MEMBER)                         REG         1963     A     
 REG                BX0    -X3*X2                                                          REG         1964     A     
 REG                SA2    GSTC        REMEMBER LOCATION OF STATUS WORD                    REG         1965     A     
 REG                BX7    X2                                                              REG         1966     A     
 REG                ZR     X0,SDS.X    IF LAST USE OF LEFT MEMBER                          REG         1967     A     
 REG                SA7    SDSA+1                                                          REG         1968          I
          -FC5A375
 REG                SB7    SDS22                                                           FC5A375       13     A     
 REG                EQ     SDS32       POSSIBLY FORCE RELOAD OF CURRENT TAG                FC5A375       14     A     
 REG       SDS22    SA7    SDSA+1                                                          FC5A375       15     A     
 REG                                                                                       FC5A375       16     A     
 REG                SB3    RG=LODX                                                         REG         1969     A     
 REG                RJ     SFR                                                             REG         1970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                NZ     X7,SDS.X    IF X REGISTER NOT AVAILABLE                         REG         1971     A     
 REG                SA1    SDSA        =0TR) (RIGHT MEMBER)                                REG         1972     A     
 REG                MX0    -3                                                              REG         1973     A     
 REG                SX3    X6+XMT/1S3                                                      REG         1974     A     
 REG                BX1    -X0*X1      =00R                                                REG         1975     A     
 REG                SB5    B2                                                              REG         1976     A     
 REG                IX7    X3+X1                                                           REG         1977     A     
 REG                LX7    PB.INSTP+3                                                      REG         1978     A     
 REG                WCODE  X7                                                              REG         1979     A     
 REG                SA2    SDSA+1                                                          REG         1980     A     
 REG                SB2    B5                                                              REG         1981     A     
 REG                SB7    X2          ORDINAL IN TABLE OF STATUS WORD                     REG         1982     A     
 REG                AX2    18                                                              REG         1983     A     
 REG                SA2    X2          FETCH ORIGIN OF TABLE                               REG         1984     A     
 REG                SA1    X2+B7                                                           REG         1985     A     
 REG                SB3    B6                                                              REG         1986     A     
 REG                RJ     STS         SET TAG STATUS                                      REG         1987     A     
 REG                EQ     SDS.X       FINISH UP                                           REG         1988     A     
 REG                                                                                       FC5A375       17     A     
 REG      *         FORCE RELOAD OF CURRENT TAG IF TAG IS A SUBSCRIPTED STORE WITH         FC5A375       18     A     
 REG      *         SCALAR OFFSET AND IS NOT LAST USE OF TAG AND A SUBSCRIPTED             FC5A375       19     A     
 REG      *         STORE WITH VARIABLE SUBSCRIPTS IS FOUND BEFORE SECOND USE OF           FC5A375       20     A     
 REG      *         TAG.                                                                   FC5A375       21     A     
 REG                                                                                       FC5A375       22     A     
 REG       SDS32    LX0    X6                                                              FC5A375       23     A     
 REG                BX6    X5                                                              FC5A375       24     A     
 REG                SA6    SDSX5       SAVE X5                                             FC5A375       25     A     
 REG                BX6    X2                                                              FC5A375       26     A     
 REG                SA6    SDSX2       SAVE X2                                             FC5A375       27     A     
 REG                LX6    X0                                                              FC5A375       28     A     
 REG                SA5    B4+OR.2OP                                                       FC5A375       29     A     
 REG                LX3    X5                                                              FC5A375       30     A     
 REG                SBIT   X5,P2.ARRP                                                      FC5A375       31     A     
 REG                PL     X5,SDS42    IF NOT ARRAY REFERENCE                              FC5A375       32     A     
 REG                MX0    P2.TAGL                                                         FC5A375       33     A     
 REG                SA5    A5-OR.2OP   SET A5                                              FC5A375       34     A     
 REG                                                                                       FC5A375       35     A     
 REG       SDS34    SA5    A5+Z=TURP   NEXT TURPLE                                         FC5A375       36     A     
 REG                ZR     X5,SDS42    IF END OF T.PAR                                     FC5A375       37     A     
 REG                                                                                       FC5A375       38     A     
 REG       SDS35    HX5    OP.SKEL                                                         FC5A375       39     A     
 REG                AX5    -OP.SKELL   EXTRACT SKELTON ORDINAL                             FC5A375       40     A     
 REG                BX5    -X5                                                             FC5A375       41     A     
 REG                SA2    A5+OR.2OP                                                       FC5A375       42     A     
 REG                SB5    X5+V=STR.I                                                      FC5A375       43     A     
 REG                NZ     B5,SDS34    IF NOT STORE (V=STR.I)                              FC5A375       44     A     
 REG                LX5    X2                                                              FC5A375       45     A     
 REG                SBIT   X5,P2.INTRP                                                     FC5A375       46     A     
 REG                PL     X5,SDS40    IF NOT INTERMEDIATE                                 FC5A375       47     A     
 REG                SBIT   X5,P2.ARRP/P2.INTRP                                             FC5A375       48     A     
 REG                PL     X5,SDS40    IF NOT ARRAY (LEFT MEMBER)                          FC5A375       49     A     
 REG                                                                                       FC5A375       50     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       SDS38    LX5    X2                                                              FC5A375       51     A     
 REG                SA2    T.PAR                                                           FC5A375       52     A     
 REG                HX5    P2.BIAS                                                         FC5A375       53     A     
 REG                AX5    -P2.BIASL                                                       FC5A375       54     A     
 REG                SB5    X5                                                              FC5A375       55     A     
 REG                SB5    X2+B5                                                           FC5A375       56     A     
 REG                SA2    B5+OR.1OP   ARRAY (LEFT MEMBER)                                 FC5A375       57     A     
 REG                BX5    X2-X1       X1 = TAG FOR LEFT MEMBER(T.OUS)                     FC5A375       58     A     
 REG                BX2    X0*X5                                                           FC5A375       59     A     
 REG                ZR     X2,SDS.X    IF ARRAY WITH VARIABLE SUBSCRIPT FOUND              FC5A375       60     A     
 REG                EQ     SDS34       LOOP                                                FC5A375       61     A     
 REG                                                                                       FC5A375       62     A     
 REG       SDS40    SA2    A5+OR.1OP                                                       FC5A375       63     A     
 REG                LX5    X2                                                              FC5A375       64     A     
 REG                SBIT   X5,P2.INTRP                                                     FC5A375       65     A     
 REG                MI     X5,SDS34    IF INTERMEDIATE                                     FC5A375       66     A     
 REG                SBIT   X5,P2.ARRP/P2.INTRP                                             FC5A375       67     A     
 REG                PL     X5,SDS34    IF NOT ARRAY(RIGHT MEMBER)                          FC5A375       68     A     
 REG                BX5    X2-X3       X3 = TAG FOR LEFT MEMBER(T.PAR)                     FC5A375       69     A     
 REG                BX2    X0*X5                                                           FC5A375       70     A     
 REG                NZ     X2,SDS34    IF ARRAY WITH SCALAR OFFSET NOT FOUND               FC5A375       71     A     
 REG                                                                                       FC5A375       72     A     
 REG       SDS42    SA2    SDSX2       RELOAD X2                                           FC5A375       73     A     
 REG                SA5    SDSX5       RELOAD X5                                           FC5A375       74     A     
 REG                JP     B7          RETURN TO SDS16 OR SDS22                            FC5A375       75     A     
 REG                                                                                       FC5A375       76     A     
 REG       SDSX2    DATA   0           X2 SAVED HERE                                       FC5A375       77     A     
 REG       SDSX5    DATA   0           X5 SAVED HERE                                       FC5A375       78     A     
 REG                                                                                       REG         1989     A     
 REG       SDSA     DATA   0,0         SAVE REQUESTED REGISTER                             REG         1990     A     
 REG       SFR      SPACE  4,8                                                             REG         1991     A     
 REG      **        SFR -  SCAN FOR REGISTER.                                              REG         1992     A     
 REG      *                                                                                REG         1993     A     
 REG      *         *SFR* SCANS THE REGISTER FILE FINDING THE LOWEST USE COUNT             REG         1994     A     
 REG      *         REGISTER AVAILABLE OF THE TYPE REQUESTED.  *SFR* MAKES A               REG         1995     A     
 REG      *         SPECIAL CASE WHEN *RREG* IS SET OR A LOAD REGISTER IS                  REG         1996     A     
 REG      *         REQUESTED TO STOP *J* AND *K* FROM GETTING THE SAME REGISTER.          REG         1997     A     
 REG      *                                                                                REG         1998     A     
 REG      *         UPON EXIT *SFR* RESTORES THE REGISTER SCAN WORD REPOSITIONED           REG         1999     A     
 REG      *         TO POINT TO THE NEXT REGISTER TO START SCANNING.                       REG         2000     A     
 REG      *         (ALL REGISTER SCAN WORDS ARED DEFINED TO BE USED CYCLICALLY).          REG         2001     A     
 REG      *                                                                                REG         2002     A     
 REG      *         ENTRY  (B3) = RG=XXXX, TYPE OF REGISTER.                               REG         2003     A     
 REG      *                                                                                REG         2004     A     
 REG      *         EXIT   (B2) = 0TR, OF REGISTER FOUND.                                  REG         2005     A     
 REG      *                (B3) = PRESERVED                                                REG         2006     A     
 REG      *                (X6) = 0R0.                                                     REG         2007     A     
 REG      *                (X7) = USE COUNT                                                REG         2008     A     
 REG      *                                                                                REG         2009     A     
 REG      *         USES   A1,A2,A3  X0,X6,X7  B2,B3,B5,B7                                 REG         2010     A     
 REG      *                (SCR2 FOR SAVING *X5*)                                          REG         2011     A     
 REG                                                                                       REG         2012     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       REG         2013     A     
 REG       SFR.X    BX6    X2                                                              REG         2014          I
          -FC51555
 REG       SFR.X    SA1    REGE        ADD OF REGFILE ENTRY SELECTED                       FC51555       93     A     
 REG                SA1    X1                                                              FC51555       94     A     
 REG                BX6    X1                                                              FC51555       95     A     
 REG                SA6    REGE        REGFILE ENTRY IF NOT ZERO USE COUNT ELSE 0          FC51555       96     A     
 REG                BX6    X2                                                              FC51555       97     A     
 REG                SX3    B2                                                              REG         2015     A     
 REG                MX0    -3                                                              REG         2016     A     
 REG                =A6    B3+1        RESET REGISTER SKELETON WORD                        REG         2017     A     
 REG                SA5    SFRA        RESTORE *X5*                                        REG         2018     A     
 REG                BX6    -X0*X3                                                          REG         2019     A     
 REG                LX6    3                                                               REG         2020     A     
 REG                                                                                       REG         2021     A     
 REG       SFR      SUBR               ...ENTRY/EXIT...                                    REG         2022          I
          -FC5A346
 REG       SFR      SUBR   =           ...ENTRY/EXIT...                                    FC5A346       12     A     
 REG                SA1    B3                                                              REG         2023     A     
 REG                BX6    0                                                               REG         2024     A     
 REG                SA2    RREG                                                            REG         2025     A     
 REG                LX1    -RS.NUMP                                                        REG         2026     A     
 REG                BX7    -X2                                                             REG         2027     A     
 REG                SA6    RGX                                                             REG         2028     A     
 REG                MI     X2,SFR5     IF NO HARD REGISTER                                 REG         2029     A     
 REG                MX0    -RG.USEL                                                        REG         2030     A     
 REG                SA7    A2                                                              REG         2031     A     
 REG                SB2    X2                                                              REG         2032     A     
 REG                MX1    -3                                                              REG         2033     A     
 REG                BX6    -X1*X2                                                          REG         2034     A     
 REG                SA3    B2+REGFILE                                                      REG         2035     A     
 REG                LX6    3           =0R0                                                REG         2036     A     
 REG                BX7    -X0*X3      USE COUNT FOR HARD REGISTER                         REG         2037     A     
 REG                EQ     EXIT.                                                           REG         2038     A     
 REG                                                                                       REG         2039     A     
 REG       SFR5     SB7    X1          NUMBER OF REGISTERS                                 REG         2040     A     
 REG                ERRNZ  18-RS.NUML                                                      REG         2041     A     
 REG                MX3    1                                                               REG         2042     A     
 REG                BX7    X5                                                              REG         2043     A     
 REG                LX1    RS.NUMP-RS.MSKP                                                 REG         2044     A     
 REG                SX5    RLOCK                                                           REG         2045     A     
 REG                SA7    SFRA                                                            REG         2046     A     
 REG                SB5    X1-1        LENGTH OF MASK - 1                                  REG         2047     A     
 REG                ERRNZ  18-RS.MSKL                                                      REG         2048     A     
 REG                AX0    B5,X3       FORM MASK FOR REGISTER WORD                         REG         2049     A     
 REG                =A2    A1+1        LOAD REGISTER SKELETON WORD                         REG         2050     A     
 REG                =B5    B5+1        RESTORE LENGTH                                      REG         2051     A     
 REG                LX0    B5,X0       SHIFT MASK TO LOW ORDER                             REG         2052     A     
 REG                MX1    -RG.USEL                                                        REG         2053     A     
 REG                LX2    B5,X2       NEXT REGISTER ORDINAL                               REG         2054     A     
 REG                BX6    X0*X2                                                           REG         2055     A     
 REG                SA3    X6+REGFILE                                                      REG         2056     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX1    -X1*X3      EXTRACT USE COUNT                                   REG         2057     A     
 REG                                                                                       REG         2058     A     
 REG       SFR10    SB2    X6                                                              REG         2059     A     
 REG                SX6    A3                                                              FC51555       98     A     
 REG                SA6    REGE        RETAIN ADD OF REGFILE SELECTED                      FC51555       99     A     
 REG                BX7    X1                                                              REG         2060     A     
 REG                ZR     X7,SFR.X    IF REGISTER FREE                                    REG         2061          I
          -FC50949
 REG                NZ     X7,SFR12    IF REGISTER NOT FREE                                FC50949        7     A     
 REG                MX6    0                                                               FC50949        8     A     
 REG                SA6    A3          A3 => CURRENT REGFILE ENTRY                         FC50949        9     A     
 REG                EQ     SFR.X                                                           FC50949       10     A     
 REG                                                                                       REG         2062     A     
 REG       SFR12    ZR     B7,SFR.X    IF FINISHED                                         REG         2063     A     
 REG                BX6    X0*X2       NEXT REGISTER ORDINAL                               REG         2064     A     
 REG                MX1    -RG.USEL                                                        REG         2065     A     
 REG                SA3    X6+REGFILE                                                      REG         2066     A     
 REG                BX1    -X1*X3      EXTRACT USE COUNT                                   REG         2067     A     
 REG                IX3    X1-X7                                                           REG         2068     A     
 REG                NG     X3,SFR10    IF NEW LOW                                          REG         2069     A     
 REG                =B7    B7-1                                                            REG         2070     A     
 REG                LX2    X2,B5       SHIFT REGISTER WORD FOR NEXT ORDINAL                REG         2071     A     
 REG                SA3    X6+REGFILE                                                      REG         2072     A     
 REG                IX1    X1-X5                                                           REG         2073     A     
 REG                SBIT   X3,P2.INTRP                                                     REG         2074     A     
 REG                MI     X3,SFR12    IF INTERMEDIATE                                     REG         2075     A     
 REG                PL     X1,SFR12    IF NOT NEW LOW (NON-INTERMEDIATE)                   REG         2076     A     
 REG                IX5    X1+X5                                                           REG         2077     A     
 REG                SA6    A6                                                              REG         2078          I
          -FC51555
 REG                SA6    RGX                                                             FC51555      100     A     
 REG                EQ     SFR12                                                           REG         2079     A     
 REG                                                                                       REG         2080     A     
 REG       SFRA     BSS    1                                                               REG         2081     A     
 REG       REGE     BSS    1           REGFILE ENTRY IF NOT ZERO USE COUNT ELSE 0          FC51555      101     A     
 REG       STS      SPACE  4,8                                                             REG         2082     A     
 REG      **        STS - SET TAG STATUS                                                   REG         2083     A     
 REG      *                                                                                REG         2084     A     
 REG      *         ENTRY  (B2) = REGISTER (0TR)                                           REG         2085     A     
 REG      *                (B3) = TYPE OF LOAD.                                            REG         2086     A     
 REG      *                       0 = UPPER HALF OF TAG.                                   REG         2087     A     
 REG      *                       1 = LOWER HALF OF TAG.                                   REG         2088     A     
 REG      *                (A1) = STATUS WORD ADDRESS.                                     REG         2089     A     
 REG      *                (X1) = STATUS WORD.                                             REG         2090     A     
 REG      *                                                                                REG         2091     A     
 REG      *         EXIT   (A1,X1) _,= STATUS WORD                                         REG         2092     A     
 REG      *                (X5) = OPERAND OR REGFILE ENTRY WITH CURRENT USE COUNT          REG         2093     A     
 REG      *                (STATUS WORD) - APROPRIATE ST BIT AND REG FIELD SET             REG         2094     A     
 REG      *                (REGFILE(0TR)) - UPDATED WITH CORRECT USE COUNT                 REG         2095     A     
 REG      *                                                                                REG         2096     A     
 REG      *         USES   A2,  X0,X2,X7,  B7                                              REG         2097     A     
 REG      *                                                                                REG         2098     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         CALLS  AUT                                                             REG         2099     A     
 REG      *                                                                                REG         2100     A     
 REG      *                                                                                REG         2101     A     
 REG      *         NOTE - X1 AND X5 HAVE SOME FIELDS UPDATED,  BUT                        REG         2102     A     
 REG      *         THEY RETAIN THE SAME DATA STRUCTURE ACROSS STS.                        REG         2103     A     
 REG      *                                                                                REG         2104     A     
 REG      *         WARNING - IF THESE ROUTINES EVER MAKE TABLE MAN-                       REG         2105     A     
 REG      *         AGER CALLS IN THE FUTURE.  CARE MUST BE TAKEN TO                       REG         2106     A     
 REG      *         PRESERVE (A1) AS THE STATUS WORDPOINTER.                               REG         2107     A     
 REG                                                                                       REG         2108     A     
 REG                                                                                       REG         2109     A     
 REG       STS      SUBR   =           ENTRY/EXIT.                                         REG         2110     A     
 REG                SA2    UUC         GET USE COUNT INCRIMENT                             REG         2111          I
          -FC5A258
 REG                SA2    UUC         GET USE COUNT INCREMENT                             FC5A258       56     A     
 REG                RJ     AUT         ADJUST USE TOTAL                                    REG         2112     A     
 REG                ZR     B2,EXIT.    IF NO REGISTER REQUIRED                             REG         2113     A     
 REG                SA2    B3+STATUS   GET SHIFT COUNTS FOR STATUS ROUTINES                REG         2114     A     
 REG                =X0    1                                                               REG         2115     A     
 REG                SB7    X2          SET SHIFT COUNT TO ST.LST OR ST.UST                 REG         2116     A     
 REG                LX7    B7,X0       POSITION STATUS BIT                                 REG         2117     A     
 REG                =X0    B2          (X0) = (0TR)                                        REG         2118     A     
 REG                AX2    18          POSITION NEXT SHIFT COUNT                           REG         2119     A     
 REG                BX1    X1+X7       INSERT STATUS BIT IN STATUS WORD                    REG         2120     A     
 REG                SB7    X2          (B7) = ST.UREGP OR ST.LREGP                         REG         2121     A     
 REG                MX2    -ST.UREGL   SET (0TR) MASK                                      REG         2122     A     
 REG                LX2    B7,X2       POSITION (0TR) MASK                                 REG         2123     A     
 REG                LX7    B7,X0       POSITION (0TR)                                      REG         2124     A     
 REG                BX1    X2*X1       CLEAR APROPRIATE REG FIELD                          REG         2125     A     
 REG                SX0    B3          (X0) = TYPE (1 OR 0)                                REG         2126     A     
 REG                IX1    X7+X1       ADD (0TR) INTO STATUS WORD                          REG         2127     A     
 REG                LX0    RG.TYPP     POSITION TYPE BIT                                   REG         2128     A     
 REG                BX5    X5+X0       ADD IN TYPE BIT TO REGFILE ENTRY                    REG         2129     A     
 REG                SA2    UUC         GET USE COUNT DECRIMENT VALUE                       REG         2130          I
          -FC5A258
 REG                SA2    UUC         GET USE COUNT DECREMENT VALUE                       FC5A258       57          I
          -FC50748
 REG                LX7    X1                                                              REG         2131     A     
 REG                SX0    B2-REG.A    (X0) = (0TR) - (010)                                REG         2132          I
          -FC50748
 REG                SA7    A1          RESET STATUS WORD                                   REG         2133     A     
 REG                AX0    3           (X0) = (00T) = (001)                                REG         2134          I
          -FC50748
 REG                IX7    X5-X2       SUBTRACT USE COUNT INCRIMENT                        REG         2135          I
          -FC50748
 REG                NZ     X0,STS1     IF NOT AN A-REG                                     REG         2136          I
          -FC50748
 REG                SA2    B2+REGFILE                                                      FC50748        6     A     
 REG                MX0    -P2.USEL                                                        FC50748        7     A     
 REG                LX7    X2                                                              FC50748        8     A     
 REG                BX2    -X0*X2      USE COUNT                                           FC50748        9     A     
 REG                ZR     X2,STS1     IF NO USE COUNT                                     FC50748       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SX0    RLOCK                                                           FC50748       11     A     
 REG                BX0    X0*X2       LOCK BIT EXTRACTION                                 FC50748       12     A     
 REG                NZ     X0,STS1     IF LOCK BIT SET                                     FC50748       13     A     
 REG                BX0    X5-X7                                                           FC50748       14     A     
 REG                AX0    P2.USEL     ELIMINATE USE COUNT                                 FC50748       15     A     
 REG                NZ     X0,STS1     IF TAGS NOT EQUAL                                   FC50748       16     A     
 REG                SB3    X2          REGFILE USE COUNT                                   FC50964        8     A     
 REG                MX0    -P2.USEL                                                        FC50748       17     A     
 REG                BX7    -X0*X5                                                          FC50964        9     A     
 REG                SB7    X7          INCOMING OPERAND USE COUNT                          FC50964       10     A     
 REG                BX5    X0*X5                                                           FC50748       18     A     
 REG                GT     B7,B3,STSA  IF OPERAND USE COUNT .GT. REGFILE USE CNT           FC50964       11     A     
 REG                IX5    X5+X2       ELSE RETAIN REGFILE USE COUNT                       FC50748       19     A     
 REG                EQ     STS1                                                            FC50964       12     A     
 REG                                                                                       FC50964       13     A     
 REG       STSA     IX5    X5+X7       RETAIN INCOMING OPERAND USE COUNT                   FC50964       14     A     
 REG                                                                                       FC50964       15     A     
 REG                                                                                       FC50748       20     A     
 REG       STS1     SX0    B2-REG.A    (XO) = (OTR) - (010)                                FC50748       21     A     
 REG                SA2    UUC         GET USE COUNT DECREMENT VALUE                       FC50748       22     A     
 REG                AX0    3           (X0) = (00T) = (001)                                FC50748       23     A     
 REG                IX7    X5-X2       SUBTRACT USE COUNT INCRIMENT                        FC50748       24     A     
 REG                NZ     X0,STS2     IF NOT AN A-REG                                     FC50748       25     A     
 REG                BX2    X5                                                              REG         2137     A     
 REG                SA7    B2+REGFILE+REG.X-REG.A    PLACE TAG IN ASOCIATED X-REG          REG         2138     A     
 REG                SBIT   X2,P2.LCMP                                                      REG         2139     A     
 REG                MI     X2,EXIT.    IF LCM, DONT PLACE IN A-REG                         REG         2140     A     
 REG                                                                                       REG         2141     A     
 REG       STS1     SA7    B2+REGFILE  MAKE REGFILE ENTRY FOR TAG                          REG         2142          I
          -FC50748
 REG       STS2     SA7    B2+REGFILE  MAKE REGFILE ENTRY FOR TAG                          FC50748       26     A     
 REG                EQ     EXIT.                                                           REG         2143     A     
 REG                TITLE  SUBSCRIPT PROCESSING.                                           REG         2144     A     
 REG       ALTAG    DATA   0           PASS 3 ARRAY LOAD TAG                               REG         2145     A     
 REG       SAVEB4   BSS    3                                                               REG         2146     A     
 REG       ALREG    CON    0                                                               REG         2147     A     
 REG       AFREG    CON    0                                                               REG         2148     A     
 REG       ADDR     DATA   0                                                               REG         2149     A     
 REG       STORE    BSS    1                                                               REG         2150     A     
 REG       ADDRS    BSS    1                                                               REG         2151     A     
 REG       STORES   BSS    1                                                               REG         2152     A     
 REG       SAVEB2   DATA   0                                                               REG         2153     A     
 REG       TRIP     DATA   0                                                               REG         2154     A     
 REG       SAVEX1   DATA   0                                                               REG         2155     A     
 REG       AFSTS    CON    "BLOWUP"    LOCATION OF ADDRESS FUNCTION STATUS WORD            REG         2156     A     
 REG                                                                                       REG         2157     A     
 REG      **        O=PAR - PROCESS ARRAY REFERENCE.                                       REG         2158     A     
 REG      *                                                                                REG         2159     A     
 REG      *         ENTRY HERE FROM ARITH WHEN SUBSCRIPT TURPLE FOUND.                     REG         2160     A     
 REG      *         PROCESSING IS DEFERRED UNTIL USE OF SUBSCRIPTED ARRAY IS               REG         2161     A     
 REG      *         DETERMINED.  IF THE SUBSCRIPT IS A SUBSCRIPTED ARRAY, THEN             REG         2162     A     
 REG      *         ARRAY IS PROCESSED.                                                    REG         2163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG         2164     A     
 REG      *         ENTRY  (B4) _ START OF SUBSCRIPT ARRAY TURPLE. (OPERATOR WORD)         REG         2165     A     
 REG      *                (B4+1)_ ARRAY TAG.+ BIAS    (OR.1OP)                            REG         2166     A     
 REG      *                (B4+2)  INTERMEDIATE        (OR.2OP)                            REG         2167     A     
 REG      *                                                                                REG         2168     A     
 REG      *         EXIT   (B4) UPDATED, EXIT TO EIS.PNX.                                  REG         2169     A     
 REG      *         USES   CANNOT DESTROY *B4*.                                            REG         2170     A     
 REG                                                                                       REG         2171     A     
 REG                                                                                       REG         2172     A     
 REG       O=PAR    BSSENT 0           ENTRY...                                            REG         2173     A     
 REG       .T       IFEQ   TEST,ON                                                         FC5A140       20     A     
 REG                SA5    B4+OR.2OP                                                       REG         2174     A     
 REG                BX1    X5                                                              REG         2175          I
          -FC5A140
 REG                LX0    X5                                                              REG         2176          I
          -FC5A140
 REG                SBIT   X1,P2.INTRP                                                     REG         2177          I
          -FC5A140
 REG                PL     X1,SUBL     IF NOT INTERMEDIATE                                 REG         2178          I
          -FC5A140
 REG                SBIT   X0,P2.ARRP                                                      REG         2179          I
          -FC5A140
 REG                PL     X0,SUBL     IF NOT ARRAY                                        REG         2180          I
          -FC5A140
 REG                =B2    0                                                               REG         2181          I
          -FC5A140
 REG                =X6    0                                                               REG         2182          I
          -FC5A140
 REG                SA6    UUC                                                             REG         2183          I
          -FC5A140
 REG                RJ     SLD         IF SUBSCRIPTED SUBSCRIPT                            REG         2184          I
          -FC5A140
 REG                                                                                       REG         2185          I
          -FC5A140
 REG      *         THE FOLLOWING CALL TO LOCK REGISTERS IS TO PREVENT THE RE-USE          REG         2186          I
          -FC5A140
 REG      *         (BY PLUG CODE) OF THE REGISTER CONTAINING THE SUBSCRIPT IN THE         REG         2187          I
          -FC5A140
 REG      *         CASE OF A SUBSCRIPTED SUBSCRIPT.                                       REG         2188          I
          -FC5A140
 REG                                                                                       REG         2189          I
          -FC5A140
 REG                AX6    3                                                               REG         2190          I
          -FC5A140
 REG                SB7    X6                                                              REG         2191          I
          -FC5A140
 REG                RJ     RLL         LOCK REGISTER  *X*  AND  *A*                        REG         2192          I
          -FC5A140
 REG       SUBL     SB4    B4+Z=TURP                                                       REG         2193          I
          -FC5A140
 REG                CLAS=  X0,TP,(ARR,INTR)                                                FC5A140       21     A     
 REG                BX1    X0*X5                                                           FC5A140       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX1    X0-X1                                                           FC5A140       23     A     
 REG                ZR     X1,"BLOWUP" IF SUBSCRIPTED SUBSCRIPT                            FC5A140       24     A     
 REG       .T       ENDIF                                                                  FC5A140       25     A     
 REG                SB4    B4+Z=TURP                                                       FC5A140       26     A     
 REG                EQ     EIS.PNX     SET POST PROCESSING FLAG                            REG         2194     A     
 REG                                                                                       REG         2195     A     
 REG       SLD      SPACE  4,15                                                            REG         2196     A     
 REG      **        SLD -  SUBSCRIPT LOAD.                                                 REG         2197     A     
 REG      *                                                                                REG         2198     A     
 REG      *         CALLED WHEN PROCESSING AN INTERMEDIATE AND FOUND THAT IT IS AN         REG         2199     A     
 REG      *         ARRAY LOAD.                                                            REG         2200     A     
 REG      *                                                                                REG         2201     A     
 REG      *         EXIT   SUBSCRIPT LOADED IN (X6) REGISTER.                              REG         2202     A     
 REG      *                (X6) = REGISTER - (0R0).                                        REG         2203     A     
 REG      *                (B3) = REGISTER - (0TR).                                        REG         2204     A     
 REG      *                                                                                REG         2205     A     
 REG      *         (NOLDS) = (NOLDS) +1                                                   REG         2206     A     
 REG      *                                                                                REG         2207     A     
 REG      *         USES   A1,A2,A3,A4,A5  X0  B2,B3,B5,B6,B7                              REG         2208     A     
 REG      *                CELLS -  SCR2 TO SCR2+6                                         REG         2209     A     
 REG                                                                                       REG         2210     A     
 REG       SLD      SUBR   =           ENTRY/EXIT...                                       REG         2211     A     
 REG                SX6    B4                                                              REG         2212     A     
 REG                BX7    X4                                                              REG         2213     A     
 REG                SA2    T.PAR                                                           REG         2214     A     
 REG                LX1    X5                                                              REG         2215     A     
 REG                IX6    X6-X2                                                           REG         2216     A     
 REG                HX1    P2.BIAS                                                         REG         2217     A     
 REG                AX1    -P2.BIASL   ISOLATE I. L. ORDINAL OF ARRAY TURPLE               REG         2218     A     
 REG                SA6    SAVEB4      SAVE *B4*                                           REG         2219     A     
 REG                SB4    X1                                                              REG         2220     A     
 REG                SX6    A4                                                              REG         2221     A     
 REG                =A6    A6+1        SAVE *A4*                                           REG         2222     A     
 REG                SB4    X2+B4       SUBSCRIPT TURPLE                                    REG         2223     A     
 REG                =A7    A6+1        SAVE *X4*                                           REG         2224     A     
 REG                =X7    0           SET VALUE WANTED FLAG                               REG         2225     A     
 REG                SA7    STORES                                                          REG         2226     A     
 REG                SBIT   X5,P2.ADDRP                                                     REG         2227     A     
 REG                PL     X5,SLD1     IF NOT ADDRESS REFERENCE                            REG         2228     A     
 REG                =X7    SX=AK-SA=AK ADD IN TO OP-CODE FOR ADDRESS/VALUE                 REG         2229     A     
 REG                                                                                       REG         2230     A     
 REG       SLD1     SA7    ADDRS       NZ IF NO VALUE LOAD                                 REG         2231     A     
 REG                SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                                REG         2232     A     
 REG                SA1    RREG                                                            REG         2233     A     
 REG                MX6    -0                                                              REG         2234     A     
 REG                BX7    X1                                                              REG         2235     A     
 REG                SA6    A1                                                              REG         2236     A     
 REG                SX6    B2                                                              REG         2237     A     
 REG                SA7    ALREG       SAVE HARD REGISTER FLAG                             REG         2238     A     
 REG                SA7    ALREGS                                                          FC50131        5     A     
 REG                SA6    TYPLOD                                                          REG         2239     A     
 REG                SX0    X7-R.X6                                                         REG         2240     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                MI     X0,SLD15    IF NOT STORE REGISTER                               REG         2241     A     
 REG                                                                                       REG         2242     A     
 REG      *         LOCK STORE REGISTER TO FORCE THE OTHER STORE REGISTER TO BE            REG         2243     A     
 REG      *         USED FOR ANY STORES TO TEMPORARIES                                     REG         2244     A     
 REG                                                                                       REG         2245     A     
 REG                MX0    -3                                                              REG         2246     A     
 REG                BX0    -X0*X7                                                          REG         2247     A     
 REG                SB7    X0          (00R) HARD REGISTER FLAG                            REG         2248     A     
 REG                RJ     RLL         LOCK HARD REGISTER                                  REG         2249     A     
 REG                =X7    1                                                               REG         2250     A     
 REG                SA7    STORES                                                          REG         2251     A     
 REG       SLD15    DRITE  X5                                                              REG         2252     A     
 REG                BX6    0                                                               REG         2253     A     
 REG                SA6    TRIP        RESET RE-TRY INDICATOR                              REG         2254     A     
 REG                SB3    RG=LOAD                                                         REG         2255     A     
 REG                SB2    B0                                                              REG         2256     A     
 REG                SB7    B1                                                              REG         2257     A     
 REG                RJ     GST         GET STATUS OF ADDRESS FUNCTION                      REG         2258     A     
 REG                SA2    GSTC                                                            REG         2259     A     
 REG                BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS            REG         2260     A     
 REG                SA7    AFSTS                                                           REG         2261     A     
 REG                SB6    "BLOWUP"    **** DEBUG ****                                     REG         2262     A     
 REG                ZR     B2,SLD2     IF TAG NOT IN REGISTER                              REG         2263     A     
 REG                BX0    X6                                                              REG         2264     A     
 REG                AX0    3                                                               REG         2265     A     
 REG                SA2    X0+REGFILE+REG.X                                                REG         2266     A     
 REG                BX0    X5-X2                                                           REG         2267     A     
 REG                SBIT   X2,P2.INTRP                                                     REG         2268     A     
 REG                MI     X2,SLD3     IF INTERMEDIATE, NO CONFLICT                        REG         2269     A     
 REG                AX0    RG.USEL                                                         REG         2270     A     
 REG                ZR     X0,SLD3     IF CORRECT TAG                                      REG         2271     A     
 REG       SLD2     SA2    P2=KEEP                                                         REG         2272     A     
 REG                BX1    X2*X1                                                           REG         2273     A     
 REG                SB2    B0          INDICATE TYPLOD = UPPER                             REG         2274     A     
 REG                RJ     LTG         LOAD ADDRESS FUNCTION                               REG         2275     A     
 REG                SA2    TRIP                                                            REG         2276          I
          -FC50131
 REG                BX2    X5                                                              FC50131        6     A     
 REG                HX2    P2.LCM                                                          FC50131        7     A     
 REG                PL     X2,SLD21    IF NOT LCM ADDRESS FUNCTION                         FC50131        8     A     
 REG                BX2    X6                                                              FC50825        7     A     
 REG                AX2    3                                                               FC50825        8     A     
 REG                SB2    X2+REG.X    USE X-REG FOR STATUS                                FC50825        9     A     
 REG                BX2    X6                                                              FC50131        9          I
          -FC50603
 REG                AX2    3                                                               FC50131       10          I
          -FC50603
 REG                SB2    X2+REG.X    USE X-REG FOR STATUS                                FC50131       11          I
          -FC50603
 REG                SA2    ALREGS                                                          FC50131       12     A     
 REG                BX7    X2                                                              FC50131       13     A     
 REG                SA7    ALREG       RESTORE FROM POSSIBLE CLI USE                       FC50131       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       FC50131       15     A     
 REG       SLD21    SA2    TRIP                                                            FC50131       16     A     
 REG                ZR     X2,SLD3     IF NO RECORD OF TROUBLE                             REG         2277     A     
 REG                SA3    SAVEB2      (0TR) ARRAY LOAD REG                                REG         2278     A     
 REG                SB3    X3                                                              REG         2279     A     
 REG                NE     B2,B3,SLD3  IF NO CONFLICT                                      REG         2280          I
          -FC51572
 REG                SA1    B4+OR.1OP                                                       FC51572        5     A     
 REG                HX1    P2.LCM                                                          FC51572        6     A     
 REG                PL     X1,SLD23    IF NOT UEM LOAD/STORE                               FC51572        7     A     
 REG                SB3    B3+REG.X-REG.A     USE X REGISTER FOR UEM                       FC51572        8     A     
 REG                                                                                       FC51572        9     A     
 REG       SLD23    NE     B2,B3,SLD3  IF NO CONFLICT                                      FC51572       10     A     
 REG                                                                                       REG         2281     A     
 REG      **        PROBLEM DUE TO ADDRESS FUNCTION AND ARRAY LOAD CLAIMING                REG         2282     A     
 REG      *         SAME REGISTER.  ADDRESS FUNCTION MUST BE COPIED TO ANOTHER             REG         2283     A     
 REG      *         REGISTER.                                                              REG         2284     A     
 REG                                                                                       REG         2285     A     
 REG                                                                                       REG         2286     A     
 REG       .TEST    IFEQ   TEST,ON                                                         REG         2287     A     
 REG                =X0    1                                                               REG         2288     A     
 REG                BX0    -X0*X2                                                          REG         2289     A     
 REG       S=SLDCL  SNAP   SLD,,,(B2,B4,X5)                                                REG         2290     A     
 REG       S=SLDTP  SNAP   *SAVEB4,,3,NONE                                                 REG         2291     A     
 REG                NZ     X0,"BLOWUP" TRIP NE 1 OR +0 IS ILLEGAL                          REG         2292     A     
 REG       .TEST    ENDIF                                                                  REG         2293     A     
 REG                                                                                       REG         2294     A     
 REG                AX6    3           (00R)  ADDRESS FUNCTION REGISTER                    FC50408        6     A     
 REG                SB7    X6                                                              FC50408        7     A     
 REG                CALL   RLL         LOCK ADDRESS FUNCTION REGISTER                      FC50408        8     A     
 REG                RJ     AIR         ASSIGN INTERMEDIATE REGISTER                        REG         2295     A     
 REG                PL     B2,SLD25    IF REGISTER FREE                                    REG         2296     A     
 REG                RJ     ASR         ASSIGN STORE REGISTER                               REG         2297     A     
 REG       SLD25    SA3    SAVEB2      (0TR) ADDRESS FUNCTION REGISTER                     REG         2298     A     
 REG                SB5    X3                                                              REG         2299     A     
 REG                SX6    B2          (0TR) *I* REGISTER                                  REG         2300     A     
 REG                MX0    -3                                                              REG         2301     A     
 REG                                                                                       REG         2302     A     
 REG      *         MAKE ADJUSTMENTS TO *REGFILE*                                          REG         2303     A     
 REG                                                                                       REG         2304     A     
 REG                BX7    0                                                               REG         2305     A     
 REG                SA7    B5+REGFILE+REG.X-REG.A  CLEAR OLD REGFILE ENTRY                 REG         2306     A     
 REG                                                                                       REG         2307     A     
 REG      *         COMPILE TRANSMIT INSTRUCTION                                           REG         2308     A     
 REG                                                                                       REG         2309     A     
 REG                BX2    -X0*X6      (00R) *I* REGISTER                                  REG         2310     A     
 REG                BX7    -X0*X3      (00R) *J* REGISTER                                  REG         2311     A     
 REG                LX2    3                                                               REG         2312     A     
 REG                IX7    X7+X2                                                           REG         2313     A     
 REG                SX7    X7+XMT/1S3                                                      REG         2314     A     
 REG                LX7    PB.INSTP+3                                                      REG         2315     A     
 REG                SB5    B2                                                              REG         2316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                WCODE  X7                                                              REG         2317     A     
 REG                                                                                       REG         2318     A     
 REG      *         ADJUST/RESTORE REGISTERS                                               REG         2319     A     
 REG                                                                                       REG         2320     A     
 REG                SB2    B5          (0TR) NEW ADDRESS FUNCTION REGISTER                 REG         2321     A     
 REG                MX0    -3                                                              REG         2322     A     
 REG                SX6    B2                                                              REG         2323     A     
 REG                BX6    -X0*X6                                                          REG         2324     A     
 REG                LX6    3           (0R0) NEW ADDRESS FUNCTION REGISTER                 REG         2325     A     
 REG       SLD3     SA1    AFSTS                                                           REG         2326     A     
 REG                SB7    X1          ORDINAL IN TABLE OF STATUS WORD                     REG         2327     A     
 REG                AX1    18                                                              REG         2328     A     
 REG                SA2    X1          FETCH TABLE ORIGIN                                  REG         2329     A     
 REG                SA3    UUC         GET USE COUNT DECRIMENT                             REG         2330     A     
 REG                SA1    X2+B7       GET STATUS WORD OF ADDRESS FUNCTION                 REG         2331     A     
 REG                BX7    X5                                                              REG         2332     A     
 REG                SA2    TRIP        GET TROUBLE INDICATOR                               REG         2333     A     
 REG                SBIT   X7,P2.INTRP                                                     REG         2334     A     
 REG                PL     X7,SLD31    IF NOT INTERMEDIATE                                 REG         2335     A     
 REG                BX7    -X2*X3      (X7) = 0 IF TRIP=1 OR UUC IF TRIP=0                 REG         2336     A     
 REG                SA7    UUC         RESET UUC TO AVOID DOUBLE USE DECRIMENT             REG         2337     A     
 REG       SLD31    SB3    0           TYPE=UPPER                                          REG         2338     A     
 REG                RJ     STS         SET TAG STATUS                                      REG         2339     A     
 REG                BX7    X3                                                              REG         2340     A     
 REG                SA7    UUC         RESTORE UUC                                         REG         2341     A     
 REG                AX6    3                                                               REG         2342     A     
 REG                SB7    X6                                                              REG         2343     A     
 REG                RJ     RLL         LOCK ADDRESS FUNCTION REGISTER                      REG         2344          I
          -FC50825
 REG                SA1    ALREG                                                           REG         2345          I
          -FC50825
 REG                MX0    -P2.USEL                                                        FC50825       10          I
          -FC51150
 REG                SA1    B7+REGFILE+REG.X                                                FC50825       11          I
          -FC51150
 REG                BX0    -X0*X1                                                          FC50825       12          I
          -FC51150
 REG                NZ     X0,SLDA     IF USE COUNT                                        FC50825       13          I
          -FC51150
 REG                HX1    P2.LCM                                                          FC50825       14          I
          -FC51150
 REG                MI     X1,SLDB     IF LCM DON'T LOCK                                   FC50825       15          I
          -FC51150
 REG                                                                                       FC50825       16          I
          -FC51150
 REG       SLDA     RJ     RLL         LOCK ADDRESS FUNCTION REGISTER                      FC50825       17          I
          -FC51150
 REG                                                                                       FC50825       18          I
          -FC51150
 REG       SLDB     SA1    ALREG                                                           FC50825       19          I
          -FC51150
 REG                RJ     RLL         LOCK ADDRESS FUNCTION REGISTER                      FC51150        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA1    ALREG                                                           FC51150       10     A     
 REG                SX6    B2                                                              REG         2346     A     
 REG                BX7    X1                                                              REG         2347     A     
 REG                SA6    AFREG                                                           REG         2348     A     
 REG                SA7    RREG        RESET HARD REGISTER FLAG                            REG         2349     A     
 REG                SX0    X7-R.X6                                                         REG         2350     A     
 REG                MI     X0,SLD32    IF NOT STORE REGISTER                               REG         2351     A     
 REG                MX0    -3                                                              REG         2352     A     
 REG                BX0    -X0*X7                                                          REG         2353     A     
 REG                SB7    X0          (00R) HARD REGISTER FLAG                            REG         2354     A     
 REG                RJ     RUL         UNLOCK HARD REGISTER                                REG         2355     A     
 REG       SLD32    SB3    RG=LOAD                                                         REG         2356     A     
 REG                RJ     GNR         GET ARRAY LOAD REGISTER                             REG         2357     A     
 REG                SX7    B2                                                              REG         2358     A     
 REG                SA7    SAVEB2                                                          REG         2359          I
          -FC50825
 REG                SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                                REG         2360          I
          -FC50825
 REG                BX2    X5                                                              FC50825       20          I
          -FC51150
 REG                HX2    P2.LCM                                                          FC50825       21          I
          -FC51150
 REG                PL     X2,SLD33    IF NOT LCM                                          FC50825       22          I
          -FC51150
 REG                BX2    X6                                                              FC50825       23          I
          -FC51150
 REG                AX2    3                                                               FC50825       24          I
          -FC51150
 REG                SB2    X2+REG.X                                                        FC50825       25          I
          -FC51150
 REG                SX7    B2                                                              FC50825       26          I
          -FC51150
 REG                                                                                       FC50825       27          I
          -FC51150
 REG       SLD33    SB3    RG=LOAD                                                         FC50825       28          I
          -FC51150
 REG                SA7    SAVEB2                                                          FC50825       29          I
          -FC51150
 REG                SA7    SAVEB2                                                          FC51150       11     A     
 REG                SA5    B4+OR.2OP    ADDRESS FUNCTION TAG                               FC51150       12     A     
 REG                SB3    RG=LOAD                                                         REG         2361     A     
 REG                SB2    B0                                                              REG         2362     A     
 REG                SB7    B1                                                              REG         2363     A     
 REG                RJ     GST         GET STATUS OF ADDRESS FUNCTION (AGAIN)              REG         2364     A     
 REG                SA2    GSTC                                                            REG         2365     A     
 REG                BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS            REG         2366     A     
 REG                SA7    AFSTS                                                           REG         2367     A     
 REG                SB6    "BLOWUP"    **** DEBUG ****                                     REG         2368     A     
 REG                NZ     B2,SLD35    IF TAG IN REGISTER                                  REG         2369     A     
 REG                SA2    TRIP                                                            REG         2370     A     
 REG                =X6    X1+1                                                            REG         2371          I
          -FC50131
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                =X6    X2+1                                                            FC50131       17     A     
 REG                SA6    A2          INCREMENT TRIP HISTORY                              REG         2372     A     
 REG                EQ     SLD2                                                            REG         2373     A     
 REG                                                                                       REG         2374     A     
 REG       SLD35    SA5    SAVEB2                                                          REG         2375     A     
 REG                SB2    X5          RESTORE B2                                          REG         2376     A     
 REG                SB2    B2+REG.X-REG.A                                                  REG         2377     A     
 REG                SA5    B4+OR.1OP                                                       REG         2378     A     
 REG                SX6    B2                                                              REG         2379     A     
 REG                BX7    X5          ARRAY TAG - PASS 3 FORMAT                           REG         2380     A     
 REG                SA6    ALREG                                                           REG         2381     A     
 REG                SA7    ALTAG                                                           REG         2382     A     
 REG                SA3    AFREG                                                           REG         2383     A     
 REG                MX7    -3                                                              REG         2384     A     
 REG                BX6    -X7*X3      (00R)                                               REG         2385     A     
 REG                AX3    3           (00T)                                               REG         2386     A     
 REG                SB7    X6          (00R) FOR *RUL*                                     REG         2387     A     
 REG                SX4    SA=BK                                                           REG         2388     A     
 REG                ZR     X3,SLD4     IF *B* REGISTER                                     REG         2389     A     
 REG                SX4    SA=XK                                                           REG         2390     A     
 REG                RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER                    REG         2391     A     
 REG       SLD4     SA3    TYPLOD      TYPE OF LOAD (0=UPPER HALF, 1= LOWER HALF)          REG         2392     A     
 REG                SA1    ADDRS                                                           REG         2393     A     
 REG                BX7    X1                                                              REG         2394     A     
 REG                SA7    ADDR                                                            REG         2395     A     
 REG                SA1    STORES                                                          REG         2396     A     
 REG                BX7    X1                                                              REG         2397     A     
 REG                SA7    STORE                                                           REG         2398     A     
 REG                SA1    ALTAG       ARRAY LOAD TAG                                      REG         2399     A     
 REG                LX3    P2.BIASP                                                        REG         2400     A     
 REG      *                                                                                REG         2401     A     
 REG      *         (X1)    = ARRAY TAG                                                    REG         2402     A     
 REG      *         (X5)    = ARRAY TAG                                                    REG         2403     A     
 REG      *         (X4)    = SA=XK OR SA=BK                                               REG         2404     A     
 REG      *         (ALREG) =  I REGISTER (OTR)                                            REG         2405     A     
 REG      *         (AFREG) = J REGISTER (OTR)                                             REG         2406     A     
 REG      *         (ADDR)  = 0 IF VALUE WANTED                                            REG         2407     A     
 REG      *                 = 20000 IF ADDRESS WANTED                                      REG         2408     A     
 REG      *                                                                                REG         2409     A     
 REG                SA2    ADDR                                                            REG         2410     A     
 REG                IX1    X1+X3                                                           REG         2411     A     
 REG                BX3    X1                                                              REG         2412     A     
 REG                IX4    X2+X4       ADD IN VALUE FLAG                                   REG         2413     A     
 REG                BX7    X3                                                              REG         2414     A     
 REG                HX7    P2.LCM                                                          REG         2415     A     
 REG                MI     X7,SLD40    IF LCM REF                                          REG         2416     A     
 REG                SBIT   X3,P2.FPP                                                       REG         2417     A     
 REG                PL     X3,SLD8     IF ARRAY-LOAD NOT FORMAL PARAMETER                  REG         2418     A     
 REG                                                                                       REG         2419     A     
 REG      *         RELOCK ADDRESS FUNCTION REGISTER TO AVOID CONFLICT WITH                REG         2420     A     
 REG      *         *FP* LOAD REGISTER IN LCM/ECS CASE.                                    REG         2421     A     
 REG                                                                                       REG         2422     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       SLD40    BX7    X1                                                              REG         2423     A     
 REG                SA7    SAVEX1      SAVE X1                                             REG         2424     A     
 REG                RJ     RLL                                                             REG         2425     A     
 REG                SA1    ALREG                                                           REG         2426     A     
 REG                SX2    X1-R.X6                                                         REG         2427     A     
 REG                MI     X2,SLD42    IF NOT STORE REG, REG LOCK  IS NOT ON.              REG         2428     A     
 REG                SB7    X1-REG.X                                                        REG         2429     A     
 REG                RJ     RLL         HARD STORE REG MUST BE LOCKED.                      REG         2430     A     
 REG                                                                                       REG         2431     A     
 REG       SLD42    SA1    SAVEX1                                                          REG         2432     A     
 REG                BX7    X1                                                              REG         2433     A     
 REG                HX7    P2.LCM                                                          REG         2434     A     
 REG                MI     X7,SLD100   IF LCM REF                                          REG         2435     A     
 REG                RJ     LFP         LOAD ADDRESS OF FP                                  REG         2436     A     
 REG                SA3    ALREG                                                           REG         2437     A     
 REG                SX0    X3-R.X6                                                         REG         2438     A     
 REG                MI     X0,SLD44    IF NOT A STORE REG                                  REG         2439     A     
 REG                SB7    X3-REG.X                                                        REG         2440     A     
 REG                RJ     RUL         UNLOCK HARD STORE REG                               REG         2441     A     
 REG       SLD44    SA3    AFREG                                                           REG         2442     A     
 REG                MX0    -3                                                              REG         2443     A     
 REG                BX3    -X0*X3      (00R) ADDRESS FUNCTION REGISTER                     REG         2444     A     
 REG                SB7    X3                                                              REG         2445     A     
 REG                RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER                    REG         2446     A     
 REG                SA3    AFREG       (0TR) ADDRESS FUNCTION                              REG         2447     A     
 REG                SX6    B2          (00R) *FP* B REGISTER                               REG         2448     A     
 REG                AX3    3           (00T) ADDRESS FUNCTION REGISTER                     REG         2449     A     
 REG                SX1    SA=XB                                                           REG         2450     A     
 REG                SA2    ADDR                                                            REG         2451     A     
 REG                NZ     X3,SLD6     IF NOT IN *B* REGISTER                              REG         2452     A     
 REG                SX1    SA=BB                                                           REG         2453     A     
 REG       SLD6     IX4    X1+X2       ADD IN ADDRESS/VALUE FUNCTION                       REG         2454     A     
 REG                BX7    X6+X4       SET *K* REGISTER IN INSTRUCTION                     REG         2455     A     
 REG                LX7    PB.INSTP                                                        REG         2456     A     
 REG                EQ     SL.CMP      CONTINUE                                            REG         2457     A     
 REG                                                                                       REG         2458     A     
 REG      **        ADD IN BIAS FIELD FOR TAG IN (X1)                                      REG         2459     A     
 REG                                                                                       REG         2460     A     
 REG       SLD8     LX4    PB.INSTP     OP-CODE                                            REG         2461          I
          -FC50760
 REG       SLD8     MX0    -P2.BIASL                                                       FC50760        6     A     
 REG                BX7     X1                                                             FC50760        7     A     
 REG                LX7    -P2.BIASP                                                       FC50760        8     A     
 REG                BX7    -X0*X7      (X7) = BIAS                                         FC50760        9     A     
 REG                BX2    X7                                                              FC50760       10     A     
 REG                SA7    BIAS                                                            FC50760       11     A     
 REG                LX2    -P2.BIASL                                                       FC50760       12     A     
 REG                AX2    -P2.BIASL+17                                                    FC50760       13     A     
 REG                LX4    PB.INSTP    OP-CODE                                             FC50760       14     A     
 REG                NZ     X2,SLD102   IF ABS(BIAS) .GT. 2**17                             FC50760       15     A     
 REG                MX0    -PB.BIASL                                                       REG         2462     A     
 REG                LX1    -P2.BIASP                                                       REG         2463     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX7    -X0*X1                                                          REG         2464     A     
 REG                LX1    P2.BIASP-P2.TAGP                                                REG         2465     A     
 REG                MX0    -P2.TAGL                                                        REG         2466     A     
 REG                LX7    PB.BIASP                                                        REG         2467     A     
 REG                BX4    X7+X4       PB.BIAS = TRUNC(P2.BIAS)                            REG         2468     A     
 REG                BX7    -X0*X1                                                          REG         2469     A     
 REG                LX7    PB.TAGP                                                         REG         2470     A     
 REG                BX7    X7+X4       PB.TAG = P2.TAG                                     REG         2471     A     
 REG                                                                                       REG         2472     A     
 REG      **        OUTPUT CODE TO LOAD ARRAY INTO REGISTER.                               REG         2473     A     
 REG      *                                                                                REG         2474     A     
 REG      *         (AFREG) = REGISTER FOR *J* PART OF INSTRUCTION.                        REG         2475     A     
 REG      *         (ALREG) = REGISTER FREE FOR LOAD. (0TR)                                REG         2476     A     
 REG      *         (X7) = INSTRUCTION OP-CODE IN HIGH ORDER + BIAS IF PRESENT             REG         2477     A     
 REG                                                                                       REG         2478     A     
 REG       SL.CMP   SA2    AFREG                                                           REG         2479     A     
 REG                MX0    -3                                                              REG         2480     A     
 REG                BX4    -X0*X2      EXTRACT *J* REGISTER                                REG         2481     A     
 REG                LX4    -12                                                             REG         2482     A     
 REG                IX7    X7+X4       ADD IN *J* REGISTER                                 REG         2483     A     
 REG                SA1    ALREG                                                           REG         2484     A     
 REG                BX6    -X0*X1                                                          REG         2485     A     
 REG                LX6    60-9        *I* REGISTER                                        REG         2486     A     
 REG                IX7    X6+X7       ADD IN *I* REGISTER                                 REG         2487     A     
 REG                WCODE  X7          COMPILE ARRAY LOAD                                  REG         2488     A     
 REG                                                                                       REG         2489     A     
 REG       SLCMPQ   SA5    ADDR                                                            REG         2490     A     
 REG                SA2    ALREG       (0TR)                                               REG         2491     A     
 REG                ZR     X5,SL.CMP0  IF ADDRESS NOT REQUESTED                            REG         2492     A     
 REG                =X5    P2.ADDRM                                                        REG         2493     A     
 REG       SL.CMP0  =X5    X5+P2.ARRM                                                      REG         2494     A     
 REG                SA1    TYPLOD                                                          REG         2495     A     
 REG                SB2    X2                                                              REG         2496     A     
 REG                SB3    X1                                                              REG         2497     A     
 REG                                                                                       REG         2498     A     
 REG      *         DEFINE ARRAY LOAD RESULTS.                                             REG         2499     A     
 REG                                                                                       REG         2500     A     
 REG                RJ     DIT         DEFINE INTERMEDIATE                                 REG         2501     A     
 REG                                                                                       REG         2502     A     
 REG      *         RESTORE REGISTERS AND EXIT.                                            REG         2503     A     
 REG                                                                                       REG         2504     A     
 REG                SA5    SAVEB4                                                          REG         2505     A     
 REG                =X7    0                                                               REG         2506     A     
 REG                =A1    A5+1                                                            REG         2507     A     
 REG                SA2    T.PAR                                                           REG         2508     A     
 REG                IX5    X5+X2                                                           REG         2509     A     
 REG                SB4    X5          RESTORE *B4*                                        REG         2510     A     
 REG                =A2    A1+1                                                            REG         2511     A     
 REG                SA3    NOLDS                                                           REG         2512     A     
 REG                SA7    AFREG                                                           REG         2513     A     
 REG                SA4    X1          RESTORE *A4*                                        REG         2514     A     
 REG                =X7    X3+1                                                            REG         2515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX4    X2          RESTORE *X4*                                        REG         2516     A     
 REG                SA7    A3          UPDATE NO. OF LOADS                                 REG         2517     A     
 REG                EQ     EXIT.                                                           REG         2518     A     
 REG                                                                                       REG         2519     A     
 REG       SLD100   SA5    ALTAG                                                           REG         2520     A     
 REG                SA1    TYPLOD                                                          FC50010        9     A     
 REG                LX1    P2.BIASP                                                        FC50010       10     A     
 REG                IX5    X1+X5       ADD 1 IF LOWER                                      FC50010       11     A     
 REG                RJ     LLA         LOAD LCM ADDRESS                                    REG         2521     A     
 REG                RJ     LLV         LOAD LCM VALUE                                      REG         2522     A     
 REG                EQ     SLCMPQ                                                          REG         2523     A     
 REG                                                                                       FC50131       18     A     
 REG      *         HERE IF CA FIELD OVERFLOWS                                             FC50760       16     A     
 REG                                                                                       FC50760       17     A     
 REG       SLD102   MX0    -P2.TAGL                                                        FC50760       18     A     
 REG                LX1    P2.TAGL                                                         FC50760       19     A     
 REG                BX7    -X0*X1                                                          FC50760       20     A     
 REG                LX7    PB.TAGP                                                         FC50760       21     A     
 REG                BX7    X7+X4                                                           FC50760       22     A     
 REG                SA7    SLAA                                                            FC50760       23     A     
 REG                SB3    RG=LOAD                                                         FC50760       24     A     
 REG                CALL   GNR                                                             FC50760       25     A     
 REG                AX6    3                                                               FC50760       26     A     
 REG                SA6    SLBB        CA LOAD REG                                         FC50760       27     A     
 REG                MX0    1                                                               FC50760       28     A     
 REG                LX0    1+P2.SHRTP                                                      FC50760       29     A     
 REG                SA2    BIAS                                                            FC50760       30     A     
 REG                LX2    P2.BIASP                                                        FC50760       31     A     
 REG                BX5    X0+X2                                                           FC50760       32     A     
 REG                CALL   ESC         EXPAND SHORT CONSTANT                               FC50760       33     A     
 REG                SX0    SA=BK                                                           FC50760       34     A     
 REG                LX0    PB.INSTP                                                        FC50760       35     A     
 REG                LX3    PB.BIASP    (X3) = BIAS IN T.CON                                FC50760       36     A     
 REG                LX1    PB.TAGP     (X1) = (S=CON)                                      FC50760       37     A     
 REG                BX6    X0+X3                                                           FC50760       38     A     
 REG                SA3    SLBB        CA LOAD REG                                         FC50760       39     A     
 REG                BX7    X6+X1                                                           FC50760       40     A     
 REG                LX3    PB.IP                                                           FC50760       41     A     
 REG                BX7    X7+X3                                                           FC50760       42     A     
 REG                WCODE  X7          SA    CON.+K                                        FC50760       43     A     
 REG                SX2    IA                                                              FC50760       44     A     
 REG                LX2    PB.INSTP    OP-CODE                                             FC50760       45     A     
 REG                SA3    AFREG                                                           FC50760       46     A     
 REG                MX0    -3                                                              FC50760       47     A     
 REG                BX4    -X0*X3                                                          FC50760       48     A     
 REG                BX3    X4                                                              FC50760       49     A     
 REG                LX4    PB.IP       I REG                                               FC50760       50     A     
 REG                BX4    X4+X2                                                           FC50760       51     A     
 REG                LX3    PB.JP       J REG                                               FC50760       52     A     
 REG                BX2    X4+X3                                                           FC50760       53     A     
 REG                SA5    SLBB                                                            FC50760       54     A     
 REG                LX5    PB.KP       K REG                                               FC50760       55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX7    X2+X5                                                           FC50760       56     A     
 REG                WCODE  X7          IX    JX + KX                                       FC50760       57     A     
 REG                SA2    SLAA                                                            FC50760       58     A     
 REG                BX7    X2                                                              FC50760       59     A     
 REG                EQ     SL.CMP                                                          FC50760       60     A     
 REG                                                                                       FC50760       61     A     
 REG       SLAA     BSS    1                                                               FC50760       62     A     
 REG       SLBB     BSS    1                                                               FC50760       63     A     
 REG       ALREGS   BSS    1           LOCAL COPY ALREG                                    FC50131       19     A     
 REG                TITLE  SNAPS.                                                          REG         2524     A     
 REG       REGPRO   SPACE  4,20                                                            REG         2525     A     
 REG      **        REGPRO - HELP ME DETERMINE IF REGISTERS ARE BEING ASSIGNED             REG         2526     A     
 REG      *         CORRECTLY.                                                             REG         2527     A     
 REG      *                                                                                REG         2528     A     
 REG      *         ENTRY  (B2) = REGISTER BEING CLOBBERED, RESET ETC.                     REG         2529     A     
 REG      *                (X6) = CALLER NAME IN 3R FORMAT.                                REG         2530     A     
 REG      *                                                                                REG         2531     A     
 REG      *         EXIT   MESSAGE PRINTED.                                                REG         2532     A     
 REG      *                                                                                REG         2533     A     
 REG      *         DESTROYS *A1,X1, X6*                                                   REG         2534     A     
 REG                                                                                       REG         2535     A     
 REG       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        REG         2536     A     
 REG                                                                                       REG         2537     A     
 REG       REGPRO   SUBR               ...ENTRY/EXIT...                                    REG         2538     A     
 REG                SA1    CO.SNAP                                                         REG         2539     A     
 REG                LX1    1RH                                                             REG         2540     A     
 REG                PL     X1,REGPROX  IF NOT REQUESTED.                                   REG         2541     A     
 REG                SA1    =7L                                                             REG         2542     A     
 REG                BX6    X1+X6                                                           REG         2543     A     
 REG                SA6    REGLNN      CALLER NAME.                                        REG         2544     A     
 REG       REGFILE  CORE   REGFILE,L.RGFILE                                                REG         2545     A     
 REG                CALL   SVR=                                                            REG         2546     A     
 REG                SA1    SVB+4                                                           REG         2547     A     
 REG                SA2    T.PAR                                                           REG         2548     A     
 REG                SX0    X1                                                              REG         2549     A     
 REG                IX1    X0-X2                                                           REG         2550     A     
 REG                CALL   COD         CONVERT TO DPC                                      REG         2551     A     
 REG                SA6    REGLNO                                                          REG         2552     A     
 REG                SA1    SVB+2                                                           REG         2553     A     
 REG                SX1    X1                                                              REG         2554     A     
 REG                CALL   COD         CONVERT TO DPC                                      REG         2555     A     
 REG                SA6    REGLNW                                                          REG         2556     A     
 REG                SA1    RGC                                                             REG         2557     A     
 REG                CALL   COD                                                             REG         2558     A     
 REG                SA6    REGRGC                                                          REG         2559     A     
 REG                SA1    RGX                                                             REG         2560     A     
 REG                CALL   COD                                                             REG         2561     A     
 REG                SA6    REGRGX                                                          REG         2562     A     
 REG                PLINE  REGLN,10    PRINT CONTENTS OF RGC, RGX                          REG         2563     A     
 REG                CALL   RSR=                                                            REG         2564     A     
 REG                EQ     REGPRO      CONTINUE                                            REG         2565     A     
 REG                                                                                       REG         2566     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       REGLN    DATA   30H REGISTER REASSIGNMENT -HELP-                                REG         2567     A     
 REG       REGLNO   DATA   10H                                                             REG         2568     A     
 REG       REGLNW   DATA   10H                                                             REG         2569     A     
 REG       REGLNN   DATA   0                                                               REG         2570     A     
 REG                DATA   10H  RGC =                                                      REG         2571     A     
 REG       REGRGC   DATA   0                                                               REG         2572     A     
 REG                DATA   10H  RGX =                                                      REG         2573     A     
 REG       REGRGX   DATA   0                                                               REG         2574     A     
 REG                                                                                       REG         2575     A     
 REG       .TEST    ENDIF                                                                  REG         2576     A     
 REG       END      SPACE  4,10                                                            REG         2577     A     
 REG                LIST   D                                                               REG         2578     A     
 REG                END                                                                    REG         2579     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - REG     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          REG                       2579      2487
          FC5A140                      7         7
          FC50010                      3         3
          FC5A209                     27        27
          FC5A222                     16        16
          FC5A258                      6         5
          FC50131                     15        12
          FC50264                      6         6
          FC50408                      3         3
          FC5A346                      2         2
          FC5A375                     73        73
          FC50587                      5         5
          FC50748                     21        21
          FC50760                     58        58
          FC50825                     23         3
          FC50875                     14         0
          FC50920                     23         2
          FC50949                      4         4
          FC50950                     32        32
          FC50964                      8         8
          FC51150                      4         4
          FC51399                      1         0
          FC51413                     10        10
          FC51509                     10        10
          FC51555                     96        96
          FC51560                      1         1
          FC51572                      6         6
          FC51601                     26        26
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *DECK     GEN                                                                    GEN            1     A     
 GEN                IDENT  GEN                                                             GEN            2     A     
 GEN       GEN      SECT   ((QCG)    QUICK CODE GENERATOR.)                                GEN            3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       GEN      SPACE  4                                                               GEN            4     A     
 GEN      *         IN ALLOC                                                               GEN            5     A     
 GEN                EXT    ADW,ALC,ALC.CAI,ALC.REG,ALC.00                                  GEN            6     A     
 GEN                                                                                       GEN            7     A     
 GEN      *         IN CONRED                                                              GEN            8     A     
 GEN                EXT    REG=T                                                           GEN            9     A     
 GEN                                                                                       GEN           10     A     
 GEN      *         IN FEC                                                                 GEN           11     A     
 GEN                EXT    ESTACK                                                          GEN           12     A     
 GEN                                                                                       GEN           13     A     
 GEN      *         IN FTN                                                                 GEN           14     A     
 GEN                EXT    CO.DBER,CO.DBID,CO.LL,CO.SNAP                                   GEN           15     A     
 GEN                                                                                       GEN           16     A     
 GEN      *         IN FUN                                                                 GEN           17     A     
 GEN                EXT    UAP                                                             GEN           18     A     
 GEN                                                                                       GEN           19     A     
 GEN      *         IN IDP                                                                 GEN           20     A     
 GEN                EXT    IDP=SVB,IDP=SVX,REG=                                            GEN           21     A     
 GEN                                                                                       GEN           22     A     
 GEN      *         IN PUC                                                                 GEN           23     A     
 GEN                EXT    BN=APL,BN=CODE,BN=CON,BN=FMT,BN=IOAP,BN=NLST,BN=STRT            GEN           24     A     
 GEN                EXT    BN=SUB,BN=TEM,LEVEL0,MOD,NARGS,N.ARP,N.CON,N.EPL,N.FP           GEN           25     A     
 GEN                EXT    N.GL,S=AEXIT,S=CP,S=CPL,S=ENTRY,S=EXIT,S=FID,S=FILES            GEN           26     A     
 GEN                EXT    S=GPL,S=LA,S=LENP,S=SA1,S=SPA,S=SUB,S=SUBI,S=SUB0I              GEN           27     A     
 GEN                EXT    S=TA0,S=TRACE,S=UPW,S=VALUE,T=CON,T=DATS,T=ENTP,T=FPI           GEN           28     A     
 GEN                EXT    T=LA,T=PAR,T=VDI,T=VDIM,T.DATS,T.DIM,T.ENTP,T.FPI,T.LA          GEN           29     A     
 GEN                EXT    T.PAR,T.SYM,T.VDI,T.VDIM,WO.CS,WO.DOOT                          GEN           30     A     
 GEN                EXT    S=SA0                                                           FC5A436       19     A     
 GEN                                                                                       GEN           31     A     
 GEN      *         IN QCGC                                                                GEN           32     A     
 GEN                EXT    DRITE,ITS,PIG,POS,RED,REG=G,RGC,RGX,RREG,TRACE,TYPLOD           GEN           33     A     
 GEN                EXT    UUC,WIN,WTE                                                     GEN           34     A     
 GEN                                                                                       GEN           35     A     
 GEN      *         IN QSKEL                                                               GEN           36          I
          -FC5A337
 GEN                EXT    F.SCT,F.SKEL,V=NOOP,W=ALENT,W=DFENT,W=FUNT,W=IDV                GEN           37          I
          -FC5A337
 GEN      *         IN QSKEL/FSKEL                                                         FC5A337       19     A     
 GEN                EXT    F.SCT,F.SKEL,V=BSS,V=NOOP,W=ALENT,W=DFENT,W=FUNT,W=IDV          FC5A337       20     A     
 GEN                EXT    W=IMV,W=MASKV,W=MFPNT,W=MODG,W=PROM,W=PROS,W=SHIFV              GEN           38     A     
 GEN                EXT    W=TENT,W=TMENT                                                  GEN           39     A     
 GEN                                                                                       GEN           40     A     
 GEN      *         IN REG                                                                 GEN           41     A     
 GEN                EXT    AIR,ASR,CDS,CIA,CLOADJ,CRJ,DIT,DSC,GNR,GSTC,GTR,LSC             GEN           42     A     
 GEN                EXT    LTG,P2=KEEP,REGLK,RG=INTR,RG=LOAD,RG=LODX,RG=STOR               GEN           43     A     
 GEN                EXT    RG=TEMP,RLL,RUL,RUT,SDS,SLD,STRGLK,STS                          GEN           44     A     
 GEN                                                                                       GEN           45     A     
 GEN      *         IN UTILITY                                                             GEN           46     A     
 GEN                EXT    MVE=                                                            GEN           47     A     
 GEN                                                                                       GEN           48     A     
 GEN                LIST   -X                                                              GEN           49     A     
 GEN                                   COMAQCG IS LISTED IN QCGC                           GEN           50     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *CALL     COMAQCG            QCG MACRO DEFINITIONS                               GEN           51     A     
 GEN                                   COMSEIS IS LISTED IN QSKEL                          GEN           52     A     
 GEN      *CALL     COMSEIS            QCG SKELETON WORD FORMAT                            GEN           53     A     
 GEN                                   COMSQCG IS LISTED IN QCGC                           GEN           54     A     
 GEN      *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS                          GEN           55     A     
 GEN                                   COMSQRF IS LISTED IN QCGC                           GEN           56     A     
 GEN      *CALL     COMSQRF            QCG REGISTER ASSOCIATES                             GEN           57     A     
 GEN                                   DEFINS IS LISTED IN QSKEL                           GEN           58     A     
 GEN      *CALL     DEFINS             DEFINE MACHINE OPCODES                              GEN           59     A     
 GEN                LIST   *                                                               GEN           60     A     
 GEN       ISSUE    SPACE  4,10                                                            GEN           61     A     
 GEN      **        ISSUE - ISSUE OPERATION OR PSEUDO TO PB.                               GEN           62     A     
 GEN      *                                                                                GEN           63     A     
 GEN      *         ISSUE  OP,TAG,RETURN                                                   GEN           64     A     
 GEN      *                                                                                GEN           65     A     
 GEN      *         ENTRY  *OP* = OPERATION CODE FOR (PB.GHIJ).                            GEN           66     A     
 GEN      *                            (X7 IS NATURAL REGISTER)                            GEN           67     A     
 GEN      *                *TAG* = VALUE FOR (PB.TAG).                                     GEN           68     A     
 GEN      *                        IF PROPERLY POSITIONED, A BIAS VALUE CAN                GEN           69     A     
 GEN      *                        ALSO BE PRESENT IN THE REGISTER.                        GEN           70     A     
 GEN      *                        BE CAREFUL.                                             GEN           71     A     
 GEN      *                            (X1 IS NATURAL REGISTER)                            GEN           72     A     
 GEN      *                *RETURN* = OPTIONAL RETURN ADDRESS.                             GEN           73     A     
 GEN      *                *RETURN* OMITTED = CONTINUE IN LINE.                            GEN           74     A     
 GEN      *                            (B2 IS NATURAL REGISTER)                            GEN           75     A     
 GEN      *                                                                                GEN           76     A     
 GEN      *         CALLS  WCODE.                                                          GEN           77     A     
 GEN                                                                                       GEN           78     A     
 GEN                                                                                       GEN           79     A     
 GEN       ISSUE    MACRO  OP,TG,RET                                                       GEN           80     A     
 GEN                =X7    OP                                                              GEN           81     A     
 GEN                LX7    PB.GHIJP                                                        GEN           82     A     
 GEN      *                                                                                GEN           83     A     
 GEN                IFC    NE,/TG//,3                                                      GEN           84     A     
 GEN                =X1    TG                                                              GEN           85     A     
 GEN                LX1    PB.TAGP                                                         GEN           86     A     
 GEN                BX7    X7+X1                                                           GEN           87     A     
 GEN      *                                                                                GEN           88     A     
 GEN                WCODE  X7,RET                                                          GEN           89     A     
 GEN                ENDM                                                                   GEN           90     A     
 GEN                                                                                       GEN           91     A     
 GEN       O$       MICRO  1,,/T./                                                         GEN           92     A     
 GEN       L$       MICRO  1,,/T=/                                                         GEN           93     A     
 GEN       BT       MICRO  1,,/B6/                                                         GEN           94     A     
 GEN                TITLE  EIS - EXPAND INSTRUCTION SKELETONS.                             GEN           95     A     
 GEN       EIS      SPACE  4,20                                                            GEN           96     A     
 GEN      **        EIS -  EXPAND INSTRUCTION SKELETON.                                    GEN           97     A     
 GEN      *                                                                                GEN           98     A     
 GEN      *         HEART OF PASS TWO PROCESSING.  *EIS* USES THE PARSED FILE,             GEN           99     A     
 GEN      *         BUILT DURING PASS ONE AS A PSEUDO- MICRO PROGRAMMING FILE TO           GEN          100     A     
 GEN      *         GENERATE OBJECT CODE FOR THE CURRENT SEQUENCE.  EACH TURPLE            GEN          101     A     
 GEN      *         IS EXPANDED USING THE OR.OPR WORD AS THE ADDRESS FOR THE               GEN          102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         SKELETON.  AS EACH PORTION OF THE INSTRUCTION IS PROCESSED             GEN          103     A     
 GEN      *         *EIS* KEEPS TRACK OF REGISTERS USED, TYPE OF USAGE, OP-CODES           GEN          104     A     
 GEN      *         AND SEQUENCE BREAKS WITHIN THE PASS ONE FILE.                          GEN          105     A     
 GEN      *                                                                                GEN          106     A     
 GEN      *                                                                                GEN          107     A     
 GEN      *         SPECIAL CASING IS DONE WHEN THE OP-CODE FOR A GIVEN EXPANSION          GEN          108     A     
 GEN      *         DEFINES EITHER A LOAD OR STORE OPERATION.  AFTER THE J PORTION         GEN          109     A     
 GEN      *         OF A LOAD INSTRUCTION IS SET INTO *INS.REG*, EIS LOOKS AT THE          GEN          110     A     
 GEN      *         TYPE OF REGISTERS USED TO DETERMINE WHAT TYPE OF LOAD                  GEN          111     A     
 GEN      *         INSTRUCTION IS TO BE COMPILED.  IN DOING THIS, *EIS* MIGHT             GEN          112     A     
 GEN      *         HAVE TO INSERT SPECIAL SEQUENCES OF SKELETONS TO GET THE               GEN          113     A     
 GEN      *         REGISTERS SET-UP CORRECTLY FOR ADDRESS GENERATION.                     GEN          114     A     
 GEN      *                                                                                GEN          115     A     
 GEN      *         CURRENTLY THERE ARE FOUR MAJOR ROUTES *EIS* MAY TAKE                   GEN          116     A     
 GEN      *         1.  NON-STANDARD PROCESSORS                                            GEN          117     A     
 GEN      *             EXTERNAL PROCESSOR MUST BE CALLED TO EXPAND CURRENT                GEN          118     A     
 GEN      *             SKELETON.                                                          GEN          119     A     
 GEN      *         2.  A RESET OF SKELETON                                                GEN          120     A     
 GEN      *             CURRENT SKELETON USES ANOTHER SKELETON TO COMPLETE                 GEN          121     A     
 GEN      *             EXPANSION OF CURRENT TURPLE.                                       GEN          122     A     
 GEN      *         3.  A CALL DURING SKELETON EXPANSION                                   GEN          123     A     
 GEN      *             SUB-PROCESS INSIDE SKELETON REQUIRES A SPECIAL PROCESSOR           GEN          124     A     
 GEN      *             TO HANDLE SUB-FUNCTION OF TURPLE.                                  GEN          125     A     
 GEN      *         4.  A USE OF ANOTHER SKELETON FOR A SUB-PROCESS OF CURRENT             GEN          126     A     
 GEN      *             TURPLE.                                                            GEN          127     A     
 GEN      *             CURRENT TURPLE IS PARTIAL DEFINED BY ANOTHER SKELETON.             GEN          128     A     
 GEN      *                                                                                GEN          129     A     
 GEN      *         ENTRY  (B4) _ 1ST PARSED TURPLE.                                       GEN          130     A     
 GEN      *                                                                                GEN          131     A     
 GEN      *         EXIT   CODE COMPILED FOR PARSED FILE.                                  GEN          132     A     
 GEN      *                                                                                GEN          133     A     
 GEN      *         --------------- L O C K  -  R E G I S T E R S --------------           GEN          134     A     
 GEN      *                                                                                GEN          135     A     
 GEN      *                       B4 _ POINTS TO CURRENT TURPLE.                           GEN          136     A     
 GEN      *                       A4,X4 = CURRENT INSTRUCTION SKELETON.                    GEN          137     A     
 GEN      *                                                                                GEN          138     A     
 GEN      *         NO ROUTINE INTERNAL TO *EIS* MAY DESTROY ABOVE REGISTERS.              GEN          139     A     
 GEN      *         ------------------------------------------------------------           GEN          140     A     
 GEN                                                                                       GEN          141     A     
 GEN                                                                                       GEN          142     A     
 GEN       O=EISX   BSS    0           LAST SKELETON                                       GEN          143     A     
 GEN                                                                                       GEN          144     A     
 GEN       EIS      SUBR   =           ENTRY/EXIT...                                       GEN          145     A     
 GEN                SX6    R.X5-R.X0                                                       GEN          146     A     
 GEN                MX7    -1                                                              GEN          147     A     
 GEN                SA6    RGX         INITIALIZE REGISTER USAGE                           GEN          148     A     
 GEN                =X6    X6+1                                                            GEN          149     A     
 GEN                SA7    REGLK                                                           GEN          150     A     
 GEN                SA7    STRGLK                                                          GEN          151     A     
 GEN                SA6    RGC         INITIALIZE LOAD REGISTERS                           GEN          152     A     
 GEN                                                                                       GEN          153     A     
 GEN      *         RESET REGISTER SKELETON WORDS                                          GEN          154     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN          155     A     
 GEN       RESET    ECHO   ,CLASS=(INTR,TEMP,LOAD,LODX,STOR)                               GEN          156     A     
 GEN                =A1    =XRG=CLASS+2                                                    GEN          157     A     
 GEN                BX6    X1                                                              GEN          158     A     
 GEN                =A6    A1-1                                                            GEN          159     A     
 GEN       RESET    ENDD                                                                   GEN          160     A     
 GEN                                                                                       GEN          161     A     
 GEN       EIS.PNX  BSSENT 0                                                               GEN          162     A     
 GEN                                                                                       GEN          163     A     
 GEN       .SNAP=W  IFEQ   TEST,ON                                                         GEN          164     A     
 GEN                SA5    CO.SNAP                                                         GEN          165     A     
 GEN                LX5    1RW                                                             GEN          166     A     
 GEN                PL     X5,PNX1                                                         GEN          167     A     
 GEN       TURP=W   REGS   (B4),,1E5                                                       GEN          168     A     
 GEN       PNX1     BSS    0                                                               GEN          169     A     
 GEN       .SNAP=W  ENDIF                                                                  GEN          170     A     
 GEN                                                                                       GEN          171     A     
 GEN                =A5    B4+OR.OPR                                                       GEN          172     A     
 GEN                MX0    -OP.LINEL                                                       GEN          173     A     
 GEN                LX0    OP.LINEP                                                        GEN          174     A     
 GEN                BX1    -X0*X5      EXTRACT (X1) = LINE NUMBER                          GEN          175     A     
 GEN                ZR     X1,PNX4     IF NO LINE NUMBER                                   GEN          176     A     
 GEN                RJ     BOS         BEGINNING OF STATEMENT                              GEN          177     A     
 GEN                                                                                       FC5A337       21     A     
 GEN       PNX4     ZR     X5,EXIT.    IF END OF I. L.                                     GEN          178     A     
 GEN                CALL   RED         REFORMAT OPR FOR EXPANSION AND DEFINITION           GEN          179     A     
 GEN                SA2    X6+F.SCT    LOAD CONTROL WORD FOR SKELETON                      GEN          180     A     
 GEN                SX7    1+                                                              GEN          181     A     
 GEN                LX2    -VS.SBIP                                                        GEN          182     A     
 GEN                SX6    X2          (X6) = SKELETON BEGIN ORDINAL (W=)                  GEN          183     A     
 GEN                ERRNZ  18-VS.SBIL                                                      GEN          184     A     
 GEN                SA7    UUC         INITIALIZE USE COUNT DECREMENT                      GEN          185     A     
 GEN                                                                                       GEN          186     A     
 GEN       SUB.RET  BSSENT 0           SUBSKELETON RETURN                                  GEN          187     A     
 GEN                SB2    X6+F.SKEL   INSTRUCTION SKELETON ADDRESS                        GEN          188     A     
 GEN                SA4    B2-1        DUMMY LOAD TO ACTIVATE (A4)                         GEN          189     A     
 GEN                                                                                       GEN          190     A     
 GEN       .SNAP=W  IFEQ   TEST,ON                                                         GEN          191     A     
 GEN                SA1    CO.SNAP                                                         GEN          192     A     
 GEN                LX1    1RW                                                             GEN          193     A     
 GEN                PL     X1,SRET1                                                        GEN          194     A     
 GEN       SKEL=W   REGS   (X6),,1E5                                                       GEN          195     A     
 GEN       SRET1    BSS    0                                                               GEN          196     A     
 GEN       .SNAP=W  ENDIF                                                                  GEN          197     A     
 GEN                                                                                       GEN          198     A     
 GEN                                                                                       GEN          199     A     
 GEN       EIS.LNX  BSS    0                                                               GEN          200     A     
 GEN                SX6    -3                                                              GEN          201     A     
 GEN                BX5    0           CLEAR REGISTER ASSEMBLE - 000.                      GEN          202     A     
 GEN                SA6    IJK                                                             GEN          203     A     
 GEN                =X7    A4+1                                                            GEN          204     A     
 GEN                =A4    A4+1                                                            GEN          205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       SPECIAL  SPACE  4,8                                                             GEN          206     A     
 GEN      **        CHECK IF SKELETON REQUIRES SPECIAL HANDLING                            GEN          207     A     
 GEN      *                                                                                GEN          208     A     
 GEN      *         S-BRANCH - BRANCH TO A NEW SKELETON X AND CONTINUE                     GEN          209     A     
 GEN      *         CALL   - EXTERNAL PROCESSOR *RJ* TO X.                                 GEN          210     A     
 GEN      *         OTHER  - NORMAL PROCESSING.                                            GEN          211     A     
 GEN      *                                                                                GEN          212     A     
 GEN      *         ENTRY  (X4) = CURRENT SKELETON WORD.                                   GEN          213     A     
 GEN                                                                                       GEN          214     A     
 GEN                BX0    X4                                                              GEN          215     A     
 GEN                SA7    CURSK                                                           GEN          216     A     
 GEN                AX0    SK.TYPP                                                         GEN          217     A     
 GEN                MX1    -SK.TYPL+1                                                      GEN          218     A     
 GEN                BX7    -X1*X0      EXTRACT OPCODE TYPE                                 GEN          219     A     
 GEN                SB7    X7                                                              GEN          220     A     
 GEN                SA7    OPTYP                                                           GEN          221     A     
 GEN                JP     B7+EIS.TYP                                                      GEN          222     A     
 GEN                                                                                       GEN          223     A     
 GEN       EIS.TYP  BSS    0                                                               GEN          224     A     
 GEN                LOC    0                                                               GEN          225     A     
 GEN       M.COND   EQ     EIS.COND    CONDITIONAL                                         GEN          226     A     
 GEN       M.NORM   EQ     EIS.LN1     ARITHMETIC OPCODES                                  GEN          227     A     
 GEN       M.INCR   EQ     EIS.LN1     LOAD REGISTER                                       GEN          228     A     
 GEN       M.BRAN   EQ     EIS.BRN     BRANCH                                              GEN          229     A     
 GEN       M.SHIF   EQ     EIS.SHF     SHIFT / XMT                                         GEN          230     A     
 GEN       M.ICALL  EQ     EIS.CALL    CALL A SUBROUTINE                                   GEN          231     A     
 GEN       M.INOOP  EQ     NULLOP      FOR PROCESSING NOOPS                                GEN          232     A     
 GEN       M.ISBRN  EQ     EIS.SBRN    FOR BRANCHING TO ANOTHER SKELETON                   GEN          233     A     
 GEN       M.LOAD   EQ     EIS.LOD     LOAD / STORE TURPLE                                 GEN          234     A     
 GEN       L.MTBL   BSS                LENGTH OF TYPE JUMP-VECTOR                          GEN          235     A     
 GEN                LOC    *O                                                              GEN          236     A     
 GEN                                                                                       GEN          237     A     
 GEN      **        IF PROCESSING *RESET* SKELETON                                         GEN          238     A     
 GEN                                                                                       GEN          239     A     
 GEN       EIS.SBRN BSS    0                                                               GEN          240     A     
 GEN                =B2    X4          GET SKELETON ADDRESS                                GEN          241     A     
 GEN       .TEST    IFEQ   TEST,ON                                                         GEN          242     A     
 GEN                MI     B2,"BLOWUP" IF OLD TURPLE RESET CALL                            GEN          243     A     
 GEN       .TEST    ENDIF                                                                  GEN          244     A     
 GEN                =A4    B2-1        INITIALIZATION LOAD FOR EIS.LNX                     GEN          245     A     
 GEN                EQ     EIS.LNX                                                         GEN          246     A     
 GEN                                                                                       GEN          247     A     
 GEN      **        IF PROCESSING *CALL* SKELETON                                          GEN          248     A     
 GEN                                                                                       GEN          249     A     
 GEN       EIS.CALL SB2    X4          JUMP ADDRESS                                        GEN          250     A     
 GEN                AX4    SK.ARGP                                                         GEN          251     A     
 GEN                SX1    X4                                                              GEN          252     A     
 GEN                SB7    X4                                                              GEN          253     A     
 GEN                                                                                       GEN          254     A     
 GEN      **        WHEN (P.MARG) IS POSITIVE, IT CONTAINS THE ARGUMENT TO THE             GEN          255     A     
 GEN      *         MACRO.                                                                 GEN          256     A     
 GEN                                                                                       GEN          257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1674    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                LX1    P2.TAGP                                                         GEN          258     A     
 GEN                GE     B7,EIS.CL5  IF A CONSTANT                                       GEN          259     A     
 GEN                                                                                       GEN          260     A     
 GEN      **        WHEN (P.MARG) IS NEGATIVE, THE MACRO ARGUMENT IS IN THE PARSED         GEN          261     A     
 GEN      *         TURPLE, AND (P.MARG) IS THE COMPLEMENT OF THE ORDINAL IN THE           GEN          262     A     
 GEN      *         TURPLE WHICH CONTAINS THE ARGUMENT.                                    GEN          263     A     
 GEN                                                                                       GEN          264     A     
 GEN                SB7    X4                                                              GEN          265     A     
 GEN                SA1    B4-B7       LOAD ARGUMENT FROM PARSED FILE                      GEN          266     A     
 GEN       EIS.CL5  JP     B2          EXECUTE CALLED ROUTINE                              GEN          267     A     
 GEN                                                                                       GEN          268     A     
 GEN      **        IF PROCESSING *LOAD* TYPE INSTRUCTION.                                 GEN          269     A     
 GEN                                                                                       GEN          270     A     
 GEN       EIS.LOD  MX0    -SK.QFL                                                         GEN          271     A     
 GEN                BX6    -X0*X4                                                          GEN          272     A     
 GEN                ZR     X6,EIS.LN1  IF NO HARD REGISTER SPECIFIED                       GEN          273     A     
 GEN                SA6    RREG        SET HARD REGISTER                                   GEN          274     A     
 GEN                SA6    HREG        SET LOCK FLAG                                       GEN          275     A     
 GEN                EQ     EIS.LN1                                                         GEN          276     A     
 GEN                                                                                       GEN          277     A     
 GEN      **        EIS.LN1 - START PROCESSING OF CURRENT SKELETON.                        GEN          278     A     
 GEN      *                                                                                GEN          279     A     
 GEN      *         ENTRY  (A4),(X4) = CURRENT SKELETON WORD.                              GEN          280     A     
 GEN      *                (IJK) = -3.                                                     GEN          281     A     
 GEN                                                                                       GEN          282     A     
 GEN       EIS.COND BSS    0                                                               GEN          283     A     
 GEN       EIS.BRN  BSS    0                                                               GEN          284     A     
 GEN       EIS.SHF  BSS    0                                                               GEN          285     A     
 GEN       EIS.NOOP BSS    0                                                               GEN          286     A     
 GEN       EIS.LN1  MX0    SK.OPCL                                                         GEN          287     A     
 GEN                LX0    SK.OPCP+SK.OPCL                                                 GEN          288     A     
 GEN                BX6    X0*X4       EXTRACT OP-CODE FIELD                               GEN          289     A     
 GEN                LX4    -SK.QFL                                                         GEN          290     A     
 GEN                AX6    SK.OPCP                                                         GEN          291     A     
 GEN                SA6    OPCODE      CURRENT OP-CODE                                     GEN          292     A     
 GEN                                                                                       GEN          293     A     
 GEN      **        RETURN HERE FOR NEXT PROCESSING OF NEXT PORTION OF INSTRUCTION         GEN          294     A     
 GEN      *         CURRENTLY EXPANDING WITHIN SKELETON.                                   GEN          295     A     
 GEN                                                                                       GEN          296     A     
 GEN       EIS.NX   SA1    IJK                                                             GEN          297     A     
 GEN                MX0    -SR.NUML                                                        GEN          298     A     
 GEN                SB7    X1-3                                                            GEN          299     A     
 GEN                GT     B7,B1,EIS.CMP     IF FINISHED.                                  GEN          300     A     
 GEN       EIS.JP   SPACE  4,20                                                            GEN          301     A     
 GEN      **        HERE IF NOT END OF CURRENT SKELETON.                                   GEN          302     A     
 GEN      *         JUMP TO PROCESSOR FOR CURRENT PORTION OF INSTRUCTION.                  GEN          303     A     
 GEN      *                                                                                GEN          304     A     
 GEN      *         ENTRY  (X0) = MASK OF -SR.OADL                                         GEN          305     A     
 GEN      *                (X4) = SKELETON SHIFTED BY N*SR.OADL                            GEN          306     A     
 GEN      *                                                                                GEN          307     A     
 GEN      *         EXIT   (X3) = (INUM) FIELD.                                            GEN          308     A     
 GEN      *                (X6) = 0                                                        GEN          309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN          310     A     
 GEN                =X6    1                                                               GEN          311     A     
 GEN                BX3    -X0*X4      REGISTER/CONSTANT NUMBER.                           GEN          312     A     
 GEN                MX0    -SR.OADL                                                        GEN          313     A     
 GEN                LX4    -SR.NUML                                                        GEN          314     A     
 GEN                SA6    UUC         SET UPDATE USE COUNT INCREMENT                      GEN          315     A     
 GEN                BX1    -X0*X4                                                          GEN          316     A     
 GEN       .TEST    IFEQ   TEST,ON     IF TEST MODE                                        GEN          317     A     
 GEN                SX2    X1-L.ATABLE                                                     GEN          318     A     
 GEN                PL     X2,"BLOWUP"       IF INDEX OUTSIDE VECTOR                       GEN          319     A     
 GEN       .TEST    ENDIF                                                                  GEN          320     A     
 GEN                SA2    X1+AT.BASE                                                      GEN          321     A     
 GEN                SB2    X2          ADDRESS OF PROCESSOR.                               GEN          322     A     
 GEN                =B7    0                                                               GEN          323     A     
 GEN                BX6    0           CLEAR REGISTER ASSIGNMENT                           GEN          324     A     
 GEN                JP     B2                                                              GEN          325     A     
 GEN       TYPES    EJECT  4,20                                                            GEN          326     A     
 GEN      **        INDIVIDUAL PROCESSOR SECTION FOR SPECIFIED TYPE OF REQUEST             GEN          327     A     
 GEN      *         NOTE   AT.I TABLE MAY NOT EXCEED 5 BITS IN LENGTH,                     GEN          328     A     
 GEN      *                MAXIMUM LENGTH =37B...                                          GEN          329     A     
 GEN                                                                                       GEN          330     A     
 GEN                                                                                       GEN          331     A     
 GEN                MACRO  SKOP,OP,NOTLAST,LAST,STRING,OPEQ                                GEN          332     A     
 GEN       .1       IFC    EQ,/OPEQ//                                                      GEN          333     A     
 GEN                IFC    NE, LAST NOTLAST ,5                                             GEN          334     A     
 GEN                IFC    NE, NOTLAST NONE ,4                                             GEN          335     A     
 GEN       ADDRESS  MICRO  1,, EIS.NOTLAST                                                 GEN          336     A     
 GEN       CHRCNT   MICCNT ADDRESS                                                         GEN          337     A     
 GEN       BLANKS   MICRO  CHRCNT+1,,/            /                                        GEN          338     A     
 GEN                CON    "ADDRESS""BLANKS"AT.OP                                          GEN          339     A     
 GEN                IFC    NE, LAST NONE ,4                                                GEN          340     A     
 GEN       ADDRESS  MICRO  1,, EIS.LAST                                                    GEN          341     A     
 GEN       CHRCNT   MICCNT ADDRESS                                                         GEN          342     A     
 GEN       BLANKS   MICRO  CHRCNT+1,,/            /                                        GEN          343     A     
 GEN                CON    "ADDRESS""BLANKS"ZT.OP                                          GEN          344     A     
 GEN       .1       ENDIF                                                                  GEN          345     A     
 GEN                ENDM                                                                   GEN          346     A     
 GEN                                                                                       GEN          347     A     
 GEN       OPSTR    MICRO              NULL DEF FOR *SKOP*                                 GEN          348     A     
 GEN                                                                                       GEN          349     A     
 GEN                                                                                       GEN          350     A     
 GEN       AT.BASE  BSS                BASE OF FIELD PROCESSOR JUMP VECTOR                 GEN          351     A     
 GEN                LOC    0                                                               GEN          352     A     
 GEN                LIST   G,-X                                                            GEN          353     A     
 GEN                                   SKOP IS LISTED IN QSKEL                             GEN          354     A     
 GEN      *CALL     SKOP               DEFINE LINKAGE TO AT.PROCESSORS                     GEN          355     A     
 GEN                LIST   *                                                               GEN          356     A     
 GEN                                                                                       GEN          357     A     
 GEN       L.ATABLE BSS                NUMBER OF FIELD PROCESSORS                          GEN          358     A     
 GEN                LOC    *O                                                              GEN          359     A     
 GEN                ERRPL  L.ATABLE-1S5                                                    GEN          360     A     
 GEN       EIS.CMP  EJECT  4,20                                                            GEN          361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      **        COMPILE - FLUSH INSTRUCTION TO LONG FILE.                              GEN          362     A     
 GEN      *                                                                                GEN          363     A     
 GEN      *             HERE WHEN  I,J,K AND Q PORTIONS OF SKELETON HAVE BEEN              GEN          364     A     
 GEN      *             EVALUATED.                                                         GEN          365     A     
 GEN      *                                                                                GEN          366     A     
 GEN      *         ENTRY  INS.REG = REGISTERS - IJK                                       GEN          367     A     
 GEN      *                (X1) = REGISTERS - I00                                          GEN          368     A     
 GEN      *                (X6) = REGISTERS - 0I0                                          GEN          369     A     
 GEN      *                (X4) = SKELETON WORD SHIFTED TO SK.TYPP FIELD                   GEN          370     A     
 GEN                                                                                       GEN          371     A     
 GEN                                                                                       GEN          372     A     
 GEN       EIS.CMP  SA2    OPTYP                                                           GEN          373     A     
 GEN                MX0    -SK.OPCL                                                        GEN          374     A     
 GEN                LX1    X4          SAVE                                                GEN          375     A     
 GEN                SB7    X2-M.LOAD                                                       GEN          376     A     
 GEN                NZ     B7,EIS.CM1  IF NOT *LOAD* OP-CODE                               GEN          377     A     
 GEN                                                                                       GEN          378     A     
 GEN      **        TERMINATE INSTRUCTION *LOAD* OPERATOR                                  GEN          379     A     
 GEN                                                                                       GEN          380     A     
 GEN                BX3    X4                                                              GEN          381     A     
 GEN                SA1    RREG                                                            GEN          382     A     
 GEN                LX3    59-SK.ENDP+SK.OPCP                                              GEN          383     A     
 GEN                SB7    X1+XMT                                                          GEN          384     A     
 GEN                NZ     B7,NULLOP   IF LOAD SATISFIED                                   GEN          385     A     
 GEN                BX2    -X1                                                             GEN          386     A     
 GEN                MX7    -1                                                              GEN          387     A     
 GEN                SA5    INS.REG                                                         GEN          388     A     
 GEN                SA7    A1          INDICATE SATISFIED                                  GEN          389     A     
 GEN                IX7    X2+X5                                                           GEN          390     A     
 GEN                LX7    PB.INSTP                                                        GEN          391     A     
 GEN                EQ     EIS.CM6                                                         GEN          392     A     
 GEN                                                                                       GEN          393     A     
 GEN       EIS.CM1  BX2    -X0*X4      OPCODE FIELD                                        GEN          394     A     
 GEN                                                                                       GEN          395     A     
 GEN      **         DUMP CURRENT INSTRUCTION.                                             GEN          396     A     
 GEN                                                                                       GEN          397     A     
 GEN                BX3    X2                                                              GEN          398     A     
 GEN                AX3    3                                                               GEN          399     A     
 GEN                LX4    -SK.OPCL                                                        GEN          400     A     
 GEN                SB2    X3                                                              GEN          401     A     
 GEN                SA5    INS.REG                                                         GEN          402     A     
 GEN                MX0    -SK.TYPL                                                        GEN          403     A     
 GEN                BX0    -X0*X4      TYPE FIELD.                                         GEN          404     A     
 GEN                                                                                       GEN          405     A     
 GEN                LX5    60-SK.OPCL-3-3                                                  GEN          406     A     
 GEN      *         (X2) = OP-CODE                                                         GEN          407     A     
 GEN      *         (X5) = I,J,K PORTION OF INSTRUCTION                                    GEN          408     A     
 GEN      *         (A5) _ INS.REG                                                         GEN          409     A     
 GEN                                                                                       GEN          410     A     
 GEN                SB3    X2          GET OPCODE FOR JUMP TESTS                           GEN          411     A     
 GEN                SA3    A4          RESET SKELETON INSTRUCTION WORD                     GEN          412     A     
 GEN                LX2    -SK.OPCL    POSITION OPCODE FOR PRE-BINARY                      GEN          413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                HX3    SK.END      POSITION END OF SKELETON BIT                        GEN          414     A     
 GEN                IX7    X5+X2       SET PRE-BIN,OPCODE + I,J,K/Q FIELDS                 GEN          415     A     
 GEN                ZR     B3,CBREAK   IF UNCONDITIONAL JUMP CLEAR REGS                    GEN          416     A     
 GEN                SA2    DRITE                                                           GEN          417     A     
 GEN                SB3    B3-XMT/1S6  (XMT = CONDITIONALS + 1)                            GEN          418     A     
 GEN                ZR     X2,COMPILE  IF NO DELAYED STORE WRITE TO PRE-BIN                GEN          419     A     
 GEN                PL     B3,COMPILE  IF NOT A JUMP WRITE TO PRE-BIN                      GEN          420     A     
 GEN       CREAK    EJECT  4,8                                                             GEN          421     A     
 GEN      **        CBREAK - CHECK IF CURRENT OPCODE BEING COMPILED                        GEN          422     A     
 GEN      *         BREAKS THE CURRENT REGISTER ALLOCATION SEQUENCE.                       GEN          423     A     
 GEN      *                                                                                GEN          424     A     
 GEN      *         NOTE - GENERAL RETURN ADDRESS FOR EXTERNAL PROCESSORS.                 GEN          425     A     
 GEN      *         ENTRY  (X3) = SKELETON SHIFTED BY SK.ENDP                              GEN          426     A     
 GEN      *                (X7) = INSTRUCTION ABOUT TO BE ADDED TO T.PB                    GEN          427     A     
 GEN                                                                                       GEN          428     A     
 GEN       CBREAK   SA7    ESTACK                                                          GEN          429     A     
 GEN                CALL   CIA         CLEAR REGISTER FILE                                 GEN          430     A     
 GEN                SA2    ESTACK                                                          GEN          431     A     
 GEN                BX7    X2                                                              GEN          432     A     
 GEN                                                                                       GEN          433     A     
 GEN      **        COMPILE - OUTPUT INSTRUCTION TO LONG FILE.                             GEN          434     A     
 GEN      *                                                                                GEN          435     A     
 GEN      *         ENTRY  SAME AS *CBREAK*                                                GEN          436     A     
 GEN                                                                                       GEN          437     A     
 GEN       EIS.CM6  BSS    0                                                               GEN          438     A     
 GEN       COMPILE  WCODE  X7           INSTRUCTION TO LONG FILE                           GEN          439     A     
 GEN                                                                                       GEN          440     A     
 GEN      **        NULLOP - NULL PROCESSING                                               GEN          441     A     
 GEN      *                                                                                GEN          442     A     
 GEN      *         ENTRY  SAME AS *CBREAK* (X7) IGNORED.                                  GEN          443     A     
 GEN                                                                                       GEN          444     A     
 GEN       NULLOP   BSSENT 0                                                               GEN          445     A     
 GEN       O=NOOP   BSSENT 0           NULLOP FOR TURPLE                                   GEN          446     A     
 GEN       O=BVD    BSSENT 0           BEGIN VARDIM                                        GEN          447     A     
 GEN       O=HSBS   BSSENT 0           SUBSTRING PROCESSOR IS A NULLOP                     GEN          448     A     
 GEN       O=HCAT   BSSENT 0           CONCAT IS DEFERED                                   GEN          449     A     
 GEN       O=HCOL   BSSENT 0           COLIN TURPLE IS DEFERED                             GEN          450          I
          -FC50066
 GEN       O=HCOL   BSSENT 0           COLON TURPLE IS DEFERRED                            FC50066        8     A     
 GEN                =X6    0                                                               GEN          451          I
          -FC50950
 GEN                SA1    IJK                                                             FC50950       41     A     
 GEN                SX1    X1-6                                                            FC50950       42     A     
 GEN                NZ     X1,EIS.CM9  IF INSTRUCTION NOT COMPLETED                        FC50950       43     A     
 GEN                SA1    INS.REG                                                         FC50950       44     A     
 GEN                BX7    X1                                                              FC50950       45     A     
 GEN                SA7    RUT.REG     IJK PARTS OF INSTRUCTION JUST COMPLETED             FC50950       46     A     
 GEN                                                                                       FC50950       47     A     
 GEN       EIS.CM9  MX6    0                                                               FC50950       48     A     
 GEN                =X7                                                                    GEN          452     A     
 GEN                SA6    INS.REG     CLEAR REGISTER ASSEMBLY CELL                        GEN          453     A     
 GEN                =A7    A6+1        CLEAR OPCODE CELL                                   GEN          454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA1    REGLK                                                           GEN          455     A     
 GEN                =A7    A1+1        *I* PORTION                                         GEN          456     A     
 GEN                =A6    A7+1        *J* PORTION                                         GEN          457     A     
 GEN                SB7    X1                                                              GEN          458     A     
 GEN                CALL   RUL         UNLOCK REGISTER                                     GEN          459     A     
 GEN                MX6    -1                                                              GEN          460     A     
 GEN                SA3    CURSK                                                           GEN          461     A     
 GEN                SA4    X3                                                              GEN          462     A     
 GEN                HX4    SK.END                                                          GEN          463     A     
 GEN                SA6    REGLK                                                           GEN          464     A     
 GEN                PL     X4,EIS.LNX  IF NOT LAST INST. IN SKEL                           GEN          465     A     
 GEN                SB4    B4+Z=TURP                                                       GEN          466     A     
 GEN                EQ     EIS.PNX     PROCESS NEXT TURPLE                                 GEN          467     A     
 GEN                                                                                       GEN          468     A     
 GEN       CURSK    BSSENT 1                                                               GEN          469     A     
 GEN       HARDRG   EJECT  4,8                                                             GEN          470     A     
 GEN      **        2.  ASSIGN TEMPORARY REGISTER.                                         GEN          471     A     
 GEN      **            A.  ASSIGN TEMPORARY *B* REGISTER.                                 GEN          472     A     
 GEN                                                                                       GEN          473     A     
 GEN                                                                                       GEN          474     A     
 GEN       EIS.AB   SB2    X3+REG.B    SET 0TR IN B2.                                      GEN          475     A     
 GEN                BX6    X3                                                              GEN          476     A     
 GEN                LX6    3           SET 0R0 FOR EIS.REG                                 GEN          477     A     
 GEN                                                                                       GEN          478     A     
 GEN      **        CREATE A DUMMY ENTRY FOR THE REGFILE                                   GEN          479     A     
 GEN                                                                                       GEN          480     A     
 GEN                SX7    MAX.USEC    MAX USE COUNT PREVENTS SELECTION                    GEN          481     A     
 GEN                LX7    RG.USEP                                                         GEN          482     A     
 GEN                SA7    B2+REGFILE  SET IN REGFILE                                      GEN          483     A     
 GEN                EQ     EIS.LRF                                                         GEN          484     A     
 GEN       EIS.AX   EJECT  4,8                                                             GEN          485     A     
 GEN       EIS.X    EJECT  4,8                                                             GEN          486     A     
 GEN      **        EIS.AX AND EIS.CX - HARD *X* REGISTER PROCESSORS                       GEN          487     A     
 GEN      *                                                                                GEN          488     A     
 GEN      *         ENTRY  (X3) = REGISTER REQUESTED TO ASSIGN                             GEN          489     A     
 GEN      *                                                                                GEN          490     A     
 GEN      *         IF REGISTER REQUESTING IS NOT A STORE REGISTER, REGISTER IS            GEN          491     A     
 GEN      *         SET AFTER ANY CONFLICT WITH A TEMPORARY REGISTER IS RESOLVED.          GEN          492     A     
 GEN      *         IF A STORE REGISTER IS REQUESTED, A CHECK IS MADE FOR A STORE          GEN          493     A     
 GEN      *         REG  DEADLOCK, ONCE THIS IS REMEDIED THE HARD REG IS SET.              GEN          494     A     
 GEN      *         A DUMMY REGFILE ENTRY IS SET WITH MAX.USEC-1 FOR NOT LAST USE          GEN          495     A     
 GEN      *         OR 0 FOR LAST USE.                                                     GEN          496     A     
 GEN                                                                                       GEN          497     A     
 GEN       EIS.AX   SB6    X3                                                              GEN          498     A     
 GEN                SX6    MAX.USEC-1                                                      GEN          499     A     
 GEN                EQ     EIS.X                                                           GEN          500     A     
 GEN                                                                                       GEN          501     A     
 GEN       EIS.CX   SB6    X3                                                              GEN          502     A     
 GEN                =X6    0                                                               GEN          503     A     
 GEN                EQ     EIS.X                                                           GEN          504     A     
 GEN                                                                                       GEN          505     A     
 GEN       EIS.X    SB7    X3-R.X6+REG.X     (B7) = 0TR(X.6)-0TR(TARGET)                   GEN          506     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SX3    X3+REG.X                                                        GEN          507     A     
 GEN                LX3    P2.BIASP    POSITION HARD REGISTER NUMBER                       GEN          508     A     
 GEN                IX6    X6+X3       FORM DUMMY REGFILE ENTRY                            GEN          509     A     
 GEN                SA6    EISXA       SAVE DUMMY REGFILE ENTRY                            GEN          510     A     
 GEN                SB2    B6          (B2) = 00R OF TARGET                                GEN          511     A     
 GEN                MI     B7,EIS.X5   IF NOT REQUESTING STORE REGISTER                    GEN          512     A     
 GEN                DRITE  DEACTIVATE                                                      GEN          513     A     
 GEN                SB7    -B6                                                             GEN          514     A     
 GEN                SB7    B7-REG.X+R.X7     (B7) = 0TR(X7)-0TR(TARGET)                    GEN          515     A     
 GEN                SB2    B6          (B2) = 00R OF THE TARGET                            GEN          516     A     
 GEN                                                                                       GEN          517     A     
 GEN      **        TEST FOR TEMPORARY REG CLASH                                           GEN          518     A     
 GEN                                                                                       GEN          519     A     
 GEN       EIS.X5   SA1    B6+REG.X+REGFILE  EXAMINE ENTRY IN TARGET REGISTER              GEN          520     A     
 GEN                MX3    -RG.USEL    SET USE COUNT MASK                                  GEN          521     A     
 GEN                BX0    -X3*X1      EXTRACT USE COUNT                                   GEN          522     A     
 GEN                SX0    X0-MAX.USEC SUBTRACT THE SPECIAL TEMP REG USE COUNT             GEN          523     A     
 GEN                PL     X0,EIS.X7         IF A TEMP FIND A NEW REGISTER                 GEN          524     A     
 GEN                MI     B7,EIS.X10        IF NOT A STORE REG CLEAR IT                   GEN          525     A     
 GEN                SA1    B7+R.X6+REGFILE   GET REGFILE ENTRY FOR OTHER STORE REG         GEN          526     A     
 GEN                BX0    -X3*X1      EXTRACT USE COUNT                                   GEN          527     A     
 GEN                SX0    X0-MAX.USEC SUBTRACT USE COUNT GIVEN TO TEMP REGS               GEN          528     A     
 GEN                MI     X0,EIS.X10  NO DEADLOCK EXISTS CLEAR TARGET REG                 GEN          529     A     
 GEN                SB2    B7-REG.X+R.X6     (B2) = 00R OF THE OTHER STORE REG             GEN          530     A     
 GEN                                                                                       GEN          531     A     
 GEN      **        TROUBLE - EITHER OUR HARD REG IS CURRENTLY HOLDING A TEMPORARY         GEN          532     A     
 GEN      *         OR IT WILL CREATE A STORE REG DEADLOCK. WE MUST:                       GEN          533     A     
 GEN      *                (1) FIND A NEW TEMP REG.                                        GEN          534     A     
 GEN      *                (2) TRANSMIT OUR TEMP TO THAT REG. AND                          GEN          535     A     
 GEN      *                (3) RESET THE REG=T AND USAGE TABLES.                           GEN          536     A     
 GEN      *                                                                                GEN          537     A     
 GEN      *         (B2) = 00R OF REG TO CLEAR                                             GEN          538     A     
 GEN      *         (B6) = ORIGINAL TARGET REG                                             GEN          539     A     
 GEN                                                                                       GEN          540     A     
 GEN       EIS.X7   SX5    B2          SAVE REG TO CLEAR ACROSS GTR CALL                   GEN          541     A     
 GEN                CALL   GTR         GET TEMPORARY REGISTER                              GEN          542     A     
 GEN                IX7    X6+X5       (X7) = 0IJ                                          GEN          543     A     
 GEN                SX7    X7+XMT/1S3  ADD OPCODE IN FOR XMT INSTRUCTION                   GEN          544     A     
 GEN                SA1    X5+REG.X+REGFILE  GET REGFILE ENTRY FOR REG TO CLEAR            GEN          545     A     
 GEN                SX6    B2          0TR OF THE NEW TEMP REG                             GEN          546     A     
 GEN                BX3    X1                                                              GEN          547     A     
 GEN                AX3    -P2.BIASL   ISOLATE TEMP ORDINAL INTO REG=T                     GEN          548     A     
 GEN                SA6    X3+REG=T    RESET TEMP TABLE ENTRY                              GEN          549     A     
 GEN                LX7    PB.GHIJP    POSITION INSTRUCTION FOR WCODE                      GEN          550     A     
 GEN                BX6    X1                                                              GEN          551     A     
 GEN                SA6    B2+REGFILE  RESET USAGE TABLE (REGFILE)                         GEN          552     A     
 GEN                WCODE  X7          WRITE TRANSMIT INSTRUCTION                          GEN          553     A     
 GEN                SB2    X5                                                              GEN          554     A     
 GEN                CALL   RUT         CLEAR TEMPORARY REGISTER                            GEN          555     A     
 GEN                                                                                       GEN          556     A     
 GEN      **       CLEANUP - CLEAR TARGET REG, RESET REGFILE AND SET EXIT VALUES           GEN          557     A     
 GEN                                                                                       GEN          558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       EIS.X10  SB2    B6+REG.X                                                        GEN          559     A     
 GEN                CALL   RUT         CLEAR REGFILE ENTRY                                 GEN          560     A     
 GEN       EIS.X15  SA1    EISXA       GET DUMMY REGFILE ENTRY                             GEN          561     A     
 GEN                BX7    X1                                                              GEN          562     A     
 GEN                SA7    B2+REGFILE  RESET USE TABLE TO DUMMY X-TAG                      GEN          563     A     
 GEN                EQ     EIS.REG                                                         GEN          564     A     
 GEN                                                                                       GEN          565     A     
 GEN       EISXA    BSS    1                                                               GEN          566     A     
 GEN       EIS.AT   EJECT  4,8                                                             GEN          567     A     
 GEN      **            C.  ASSIGN TEMPORARY *X* REGISTER.                                 GEN          568     A     
 GEN      *                 ASSIGN X0, X7, X6 IN THAT ORDER, IF ALL ARE IN USE             GEN          569     A     
 GEN      *                 KILLS ANY DELAYED STORES.  IF ONE FREED USES REGISTER          GEN          570     A     
 GEN      *                 FROM DELAYED STORE, IF NOT USES ONE OF LOAD REGISTERS          GEN          571     A     
 GEN      *                 DEPENDING ON HOW MANY LOAD REGISTERS ARE LOCKED.               GEN          572     A     
 GEN                                                                                       GEN          573     A     
 GEN                                                                                       GEN          574     A     
 GEN       EIS.AT   SA1    X3+REG=T                                                        GEN          575     A     
 GEN                SB6    X3          ORDINAL OF TEMPORARY                                GEN          576     A     
 GEN                SB2    X1          REGISTER - 0TR                                      GEN          577     A     
 GEN                NZ     X1,EIS.AT30 IF ALREADY LOADED - USE IT                          GEN          578     A     
 GEN                                                                                       GEN          579     A     
 GEN      **        CHECK FOR UNNECESSARY TRANSMIT INSTRUCTION.  IF FOUND,                 GEN          580     A     
 GEN      *         MAKE *I* REGISTER SAME AS *J* REGISTER SO THAT *PIG* WILL              GEN          581     A     
 GEN      *         ELIMINATE INSTRUCTION.                                                 GEN          582     A     
 GEN                                                                                       GEN          583     A     
 GEN                SA2    OPCODE                                                          GEN          584     A     
 GEN                SB7    X2-XMT/1S6                                                      GEN          585     A     
 GEN                NZ     B7,EIS.AT10 IF NOT *XMT*                                        GEN          586     A     
 GEN                SA2    INS.REG                                                         GEN          587     A     
 GEN                MX0    -3                                                              GEN          588     A     
 GEN                AX2    3                                                               GEN          589     A     
 GEN                BX0    -X0*X2      *J* REGISTER                                        GEN          590     A     
 GEN                SA2    X0+REGFILE+REG.X      FETCH STATUS OF *J* REGISTER              GEN          591     A     
 GEN                MX1    -RG.USEL                                                        GEN          592     A     
 GEN                BX1    -X1*X2      USE COUNT                                           GEN          593     A     
 GEN                NZ     X1,EIS.AT10 IF USE COUNT NOT ZERO                               GEN          594     A     
 GEN                                                                                       GEN          595     A     
 GEN      *         TRANSMIT INSTRUCTION IS UNNECESSARY                                    GEN          596     A     
 GEN                                                                                       GEN          597     A     
 GEN                SB2    X0+REG.X    *I* REGISTER - 0TR                                  GEN          598     A     
 GEN                EQ     EIS.AT30                                                        GEN          599     A     
 GEN                                                                                       GEN          600     A     
 GEN       EIS.AT10 CALL   GTR         GET A TEMPORARY REGISTER                            GEN          601     A     
 GEN                                                                                       GEN          602     A     
 GEN      **        FOUND REGISTER FREE FOR TEMPORARY ASSIGNMENT.                          GEN          603     A     
 GEN      *         (B2) = 0TR.                                                            GEN          604     A     
 GEN      *         (B6) = ORDINAL OF TEMPORARY.                                           GEN          605     A     
 GEN                                                                                       GEN          606     A     
 GEN       EIS.AT30 SX3    B6                                                              GEN          607     A     
 GEN                SX7    B2                                                              GEN          608     A     
 GEN                LX3    P2.BIASP    POSITION REG=T ORDINAL                              GEN          609     A     
 GEN                =X2    MAX.USEC                                                        GEN          610     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                MX0    -3                                                              GEN          611     A     
 GEN                BX6    X2+X3       DUMMY TAG FOR REGFILE                               GEN          612     A     
 GEN                SA7    B6+REG=T    SET *REG=T* FILE                                    GEN          613     A     
 GEN                SA6    B2+REGFILE                                                      GEN          614     A     
 GEN                BX6    -X0*X7                                                          GEN          615     A     
 GEN                LX6    3                                                               GEN          616     A     
 GEN                EQ     EIS.LRF                                                         GEN          617     A     
 GEN       CLTEMP   EJECT  4,20                                                            GEN          618     A     
 GEN      **        CLEAR REGISTER ASSIGNMENT FOR CURRENT SKELETON.                        GEN          619     A     
 GEN      *             A.  PROCESS TEMPORARY - WITH CLEARING OF T-REGISTER.               GEN          620     A     
 GEN                                                                                       GEN          621     A     
 GEN       EIS.CT   SA2    X3+REG=T    LOAD TEMPORARY REGISTER CELL                        GEN          622     A     
 GEN                =X7    0                                                               GEN          623     A     
 GEN                MX1    -3                                                              GEN          624     A     
 GEN                SA7    A2          CLEAR TEMPORARY REGISTER CELL                       GEN          625     A     
 GEN                                                                                       GEN          626     A     
 GEN      **        CLEAR *USEFILE* USAGE COUNT ON REGISTER POINTED TO BY *0TR*            GEN          627     A     
 GEN      *         IN *X2*.                                                               GEN          628     A     
 GEN      *         (X1) = REGISTER MASK.                                                  GEN          629     A     
 GEN      *         (X2) = 0TR FOR REGISTER TO BE CLEARED.                                 GEN          630     A     
 GEN                                                                                       GEN          631     A     
 GEN       EIS.CT5  BX6    -X1*X2      REGISTER ONLY = 00R                                 GEN          632     A     
 GEN                SB2    X2                                                              GEN          633     A     
 GEN                BX7    0                                                               GEN          634     A     
 GEN                LX6    3           =0R0                                                GEN          635     A     
 GEN                SA7    X2+REGFILE                                                      GEN          636     A     
 GEN                EQ     EIS.LRF                                                         GEN          637     A     
 GEN       EIS.CB   SPACE  4,10                                                            GEN          638     A     
 GEN      **        EIS.CB - LAST USE OF *B* REGISTER.                                     GEN          639     A     
 GEN                                                                                       GEN          640     A     
 GEN                                                                                       GEN          641     A     
 GEN       EIS.CB   SX2    X3                                                              GEN          642     A     
 GEN                MX1    -3                                                              GEN          643     A     
 GEN                EQ     EIS.CT5     CONTINUE                                            GEN          644     A     
 GEN       EIS.G    SPACE  4,20                                                            GEN          645     A     
 GEN      **        EIS.G - LOAD INVENTED OPERAND.                                         GEN          646     A     
 GEN                                                                                       GEN          647     A     
 GEN      **        EIS.GP READS UP AN INVENTED OPERAND OF THE P TYPE                      GEN          648     A     
 GEN      *                THIS IS IDENTICAL TO EIS.P IN ALL ASPECTS EXCEPT                GEN          649     A     
 GEN      *                THE TABLE FROM WHICH THE OPERAND IS FETCHED.                    GEN          650     A     
 GEN      *                                                                                GEN          651     A     
 GEN      *         ENTRY  (X3) = THE ORDINAL INTO REG=GP TABLE (SR.NUM FIELD)             GEN          652     A     
 GEN                                                                                       GEN          653     A     
 GEN       EIS.GP   BSSENT 0                                                               GEN          654     A     
 GEN                SA2    X3+REG=G    GET PSEUDO OPERAND                                  GEN          655     A     
 GEN                EQ     EIS.P4                                                          GEN          656     A     
 GEN       EIS.GL   SPACE  4,10                                                            GEN          657     A     
 GEN      **        EIS.GL -                                                               GEN          658     A     
 GEN      *                PROCESSES GENERATED L TYPE OPERANDS.                            GEN          659     A     
 GEN      *                OPERANDS RECENTLY STORED IN THE REG=G TABLE ARE                 GEN          660     A     
 GEN      *                READ UP AND PASSED TO EIS.L AS IF THEY WERE NORMAL              GEN          661     A     
 GEN      *                OPERANDS TAKEN FROM THE I. L.                                   GEN          662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         EIS.GLN -                                                              GEN          663     A     
 GEN      *                SAME AS EIS.GL ONLY THE USE COUNT IS NOT DECRIMENTED            GEN          664     A     
 GEN      *         EIS.GLL -                                                              GEN          665     A     
 GEN      *                SAME AS EIS.GL ONLY TYPE IS SET TO 1 FOR LOWER HALF             GEN          666     A     
 GEN      *         EIS.GLNL -                                                             GEN          667     A     
 GEN      *                SAME AS EIS.GL ONLY TYPE IS 1 AND USE COUNT IS OFF.             GEN          668     A     
 GEN      *                                                                                GEN          669     A     
 GEN      *         ENTRY  (X3) = ORDINAL INTO REG=G (SR.NUM FIELD)                        GEN          670     A     
 GEN      *                                                                                GEN          671     A     
 GEN      *         EXIT   (X5) = OPERAND TO PROCESS                                       GEN          672     A     
 GEN      *                (X6) = TYPE UPPER/LOWER                                         GEN          673     A     
 GEN                                                                                       GEN          674     A     
 GEN                                                                                       GEN          675     A     
 GEN       EIS.GLN  SX7    0           (X7) = USE COUNT DECRIMENT                          GEN          676     A     
 GEN                SA7    UUC         DO NOT  DECREMENT USE COUNT                         GEN          677     A     
 GEN       EIS.GL   SX6    0           (X6) = TYPE UPPER                                   GEN          678     A     
 GEN                EQ     EIS.GL2     PROCESS GENERATED OPERAND                           GEN          679     A     
 GEN                                                                                       GEN          680     A     
 GEN       EIS.GLNL SX7    0           (X7) USE COUNT DECRIMENT                            GEN          681     A     
 GEN                SA7    UUC         DO NOT DECRIMENT USE COUNT                          GEN          682     A     
 GEN       EIS.GLL  SX6    1           (X6) = TYPE LOWER                                   GEN          683     A     
 GEN                EQ     EIS.GL2     PROCESS GENERATED OPERAND                           GEN          684     A     
 GEN                                                                                       GEN          685     A     
 GEN                                                                                       GEN          686     A     
 GEN       EIS.GL2  SA5    X3+REG=G    GET PSEUDO OPERAND                                  GEN          687     A     
 GEN                MX0    60-RG.USEL                                                      GEN          688     A     
 GEN                LX0    RG.USEP                                                         GEN          689     A     
 GEN                BX5    X0*X5       REMOVE USE COUNT                                    GEN          690     A     
 GEN                =X7    1           NEW USE COUNT                                       GEN          691     A     
 GEN                IX5    X5+X7       ADD USE COUNT INTO OPERAND                          GEN          692     A     
 GEN                EQ     EIS.L2      PROCESS LOAD                                        GEN          693     A     
 GEN       EIS.LL   SPACE  4,10                                                            GEN          694     A     
 GEN      **        EIS.LL - PROCESS LOAD OF LOWER PART OF DOUBLE WORD VARIABLE.           GEN          695     A     
 GEN      *                                                                                GEN          696     A     
 GEN      *         ENTRY  (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.                    GEN          697     A     
 GEN      *                (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.                    GEN          698     A     
 GEN                                                                                       GEN          699     A     
 GEN       EIS.LNL  =X6    0                                                               GEN          700     A     
 GEN                SA6    UUC                                                             GEN          701     A     
 GEN                                                                                       GEN          702     A     
 GEN       EIS.LL   SA5    X3+B4       TAG TO BE LOADED                                    GEN          703     A     
 GEN                =X6    1           INDICATE LOWER HALF                                 GEN          704     A     
 GEN                EQ     EIS.L2                                                          GEN          705     A     
 GEN       EIS.L    EJECT  4,8                                                             GEN          706     A     
 GEN      **           C. PROCESS LOAD INTO *A*,*X* REGISTER.                              GEN          707     A     
 GEN      *                ENTRY - (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.            GEN          708     A     
 GEN      *                        (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.            GEN          709     A     
 GEN                                                                                       GEN          710     A     
 GEN       EIS.LNU  SPACE  4,8                                                             GEN          711     A     
 GEN      **        EIS.LNU - SAME AS EIS.L BUT DOES NOT RESET USE COUNT OF                GEN          712     A     
 GEN      *         TAG BEING LOADED.                                                      GEN          713     A     
 GEN                                                                                       GEN          714     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN          715     A     
 GEN       EIS.LNU  =X6    0                                                               GEN          716     A     
 GEN                SA6    UUC                                                             GEN          717     A     
 GEN       EIS.L    SA5    X3+B4       TAG TO BE LOADED                                    GEN          718     A     
 GEN                =X6    0           UPPER HALF                                          GEN          719     A     
 GEN                                                                                       GEN          720     A     
 GEN       EIS.L2   SA6    TYPLOD      LOAD TYPE CELL 1 FOR LOWER, 0 FOR UPPER             GEN          721     A     
 GEN                SB6    X6                                                              GEN          722     A     
 GEN                                                                                       GEN          723     A     
 GEN       .TEST    IFEQ   TEST,ON                                                         GEN          724     A     
 GEN                MX0    -RG.USEL                                                        GEN          725     A     
 GEN                BX1    -X0*X5      EXTRACT USE COUNT                                   GEN          726     A     
 GEN                ZR     X1,"BLOWUP" IF OPREAND WAS NOT DUC-ED                           GEN          727     A     
 GEN                SX1    X1-RLOCK                                                        GEN          728     A     
 GEN                PL     X1,"BLOWUP" IMPOSSIBLE USE COUNT                                GEN          729     A     
 GEN       .TEST    ENDIF                                                                  GEN          730     A     
 GEN                                                                                       GEN          731     A     
 GEN                SA1    IJK         SR. FIELD INDICATOR: -3 IF K,0 IF J,3 IF I          GEN          732     A     
 GEN                =X0    X1-1                                                            GEN          733     A     
 GEN                SA1    OPTYP       GET SK.TYP FIELD OF CURRETN SKELETON WORD           GEN          734     A     
 GEN                =X1    X1-M.LOAD                                                       GEN          735     A     
 GEN                LX6    RG.TYPP                                                         GEN          736     A     
 GEN                BX5    X5+X6                                                           GEN          737     A     
 GEN                SA2    RREG                                                            GEN          738     A     
 GEN                MI     X0,EIS.L3   IF PROCESSING J OR K FIELDS                         GEN          739     A     
 GEN                PL     X2,EIS.L3   IF HARD REGISTER LOAD                               GEN          740     A     
 GEN                ZR     X1,EIS.STO  IF OPTYP IS LOAD/STORE COMPILE A STORE              GEN          741     A     
 GEN       EIS.L3   DRITE  DEACTIVATE                                                      GEN          742     A     
 GEN                BX1    X5                                                              GEN          743     A     
 GEN                SB2    B6                                                              GEN          744     A     
 GEN                BX0    X5                                                              GEN          745     A     
 GEN                SBIT   X1,P2.INTRP                                                     GEN          746     A     
 GEN                PL     X1,EIS.L5   IF NOT INTERMEDIATE                                 GEN          747     A     
 GEN                SBIT   X0,P2.ARRP                                                      GEN          748     A     
 GEN                PL     X0,EIS.L5   IF NOT ARY-LOD                                      GEN          749     A     
 GEN                SB2    B6                                                              GEN          750     A     
 GEN                CALL   SLD         LOAD SUBSCRIPTED ARRAY                              GEN          751     A     
 GEN                EQ     EIS.L16                                                         GEN          752          I
          -FC5A346
 GEN                EQ     EIS.L21                                                         FC5A346       13     A     
 GEN                                                                                       GEN          753     A     
 GEN       EIS.L5   SB3    RG=LOAD                                                         GEN          754     A     
 GEN                CALL   DSC         DETERMINE REGISTER STATUS CLASS                     GEN          755     A     
 GEN                SA2    GSTC                                                            GEN          756     A     
 GEN                LX3    X7                                                              GEN          757     A     
 GEN                BX7    X2                                                              GEN          758     A     
 GEN                SA7    EIS.LST     SAVE LOCATION OF STATUS WORD                        GEN          759     A     
 GEN                BX7    X3                                                              GEN          760     A     
 GEN                SA2    P2=KEEP                                                         GEN          761     A     
 GEN                BX1    X2*X1                                                           GEN          762     A     
 GEN                SA3    TYPLOD                                                          GEN          763     A     
 GEN                BX2    X5                                                              GEN          764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SBIT   X2,P2.SHRTP                                                     GEN          765     A     
 GEN                MI     X2,EIS.L10  IF SHORT CONSTANT                                   GEN          766     A     
 GEN                IX1    X1+X3                                                           GEN          767     A     
 GEN                ZR     B2,EIS.L7   IF TAG NOT IN REGISTER                              GEN          768     A     
 GEN                MX0    P2.TAGL                                                         GEN          769     A     
 GEN                BX0    X0*X1                                                           GEN          770     A     
 GEN                LX0    P2.TAGL                                                         GEN          771     A     
 GEN                SX2    X0-"P2=PFX"                                                     GEN          772     A     
 GEN                PL     X2,EIS.L6   IF NOT SYMTAB SYMBOL                                GEN          773     A     
 GEN                SA2    T.SYM                                                           GEN          774     A     
 GEN                =B6    X2+WB.W                                                         GEN          775     A     
 GEN                IX2    X0+X0                                                           GEN          776     A     
 GEN                IX0    X2+X0                                                           GEN          777     A     
 GEN                SA2    X0+B6       WB(TAG)                                             GEN          778     A     
 GEN                BX0    X2                                                              GEN          779     A     
 GEN                CLAS=  X2,WB,(EQV,BMEM)                                                GEN          780     A     
 GEN                BX2    X0*X2                                                           GEN          781     A     
 GEN                NZ     X2,EIS.L7   IF SYMBOL EQUIVALENCED                              GEN          782     A     
 GEN                                                                                       GEN          783     A     
 GEN       EIS.L6   BSS    0                                                               GEN          784     A     
 GEN                NZ     B2,EIS.L12   IF TAG IN REGISTER                                 GEN          785     A     
 GEN       EIS.L7   SB2    X3          INDICATE UPPER OR LOWER                             GEN          786     A     
 GEN                CALL   LTG         LOAD TAG                                            GEN          787     A     
 GEN                EQ     EIS.L15                                                         GEN          788     A     
 GEN                                                                                       GEN          789     A     
 GEN       EIS.L10  SB3    RG=LODX                                                         GEN          790     A     
 GEN                NZ     B2,EIS.L12  IF TAG IN REGISTER                                  GEN          791     A     
 GEN                CALL   LSC         LOAD SHORT CONSTANT                                 GEN          792     A     
 GEN                EQ     EIS.L15                                                         GEN          793     A     
 GEN                                                                                       GEN          794     A     
 GEN       EIS.L12  ZR     B7,EIS.L15  IF TAG IN CORRECT REGISTER                          GEN          795     A     
 GEN                SA7    EIS.INST    SAVE INSTRUNCION                                    GEN          796     A     
 GEN                AX6    3                                                               GEN          797     A     
 GEN                =A6    A7+EIS.JREG-EIS.INST  SAVE *J* REGISTER                         GEN          798     A     
 GEN                CALL   GNR         GET REGISTER                                        GEN          799     A     
 GEN                SA2    EIS.JREG                                                        GEN          800     A     
 GEN                BX3    X6                                                              GEN          801     A     
 GEN                =A1    A2-EIS.JREG+EIS.INST                                            GEN          802     A     
 GEN                IX0    X6+X2       =0IJ                                                GEN          803     A     
 GEN                SB5    B2                                                              GEN          804     A     
 GEN                IX7    X1+X0       OP-CODE + IJ                                        GEN          805     A     
 GEN                LX7    PB.INSTP+3                                                      GEN          806     A     
 GEN                WCODE  X7                                                              GEN          807     A     
 GEN                SA1    STRGLK                                                          GEN          808     A     
 GEN                MI     X1,EIS.L13  IF NO ASSIGNMENT TO CLEAR                           GEN          809     A     
 GEN                SA1    X1+REGFILE                                                      GEN          810     A     
 GEN                SX0    RLOCK                                                           GEN          811     A     
 GEN                BX6    -X0*X1      UNLOCK STORE REGISTER                               GEN          812     A     
 GEN                SA6    A1                                                              GEN          813     A     
 GEN       EIS.L13  BX6    X3                                                              GEN          814     A     
 GEN                SB2    B5                                                              GEN          815     A     
 GEN                                                                                       GEN          816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         INDICATE TAG IN REGISTER IN REGISTER.                                  GEN          817     A     
 GEN      *         UPDATE USE COUNT ON TAG AND PUT IN REGFILE.                            GEN          818     A     
 GEN      *         (B2) = REGISTER (0TR)                                                  GEN          819     A     
 GEN      *         (X5) = TAG (FROM PARSED FILE)                                          GEN          820     A     
 GEN      *         (X6) = REGISTER (0R0)                                                  GEN          821     A     
 GEN      *                (EIS.LST) = LOCATION OF TAG STATUS WORD                         GEN          822     A     
 GEN                                                                                       GEN          823     A     
 GEN       EIS.L15  SA3    TYPLOD                                                          GEN          824          I
          -FC5A346
 GEN       EIS.L15  SA1    IJK                                                             FC5A346       14     A     
 GEN                SX0    X1-1                                                            FC5A346       15     A     
 GEN                PL     X0,EIS.L20  IF NOT PROCESSING  J OR K  FIELD                    FC5A346       16     A     
 GEN                SX3    RLOCK                                                           FC5A346       17     A     
 GEN                SX1    -B2                                                             FC5A346       18     A     
 GEN                SB7    X1+R.X6                                                         FC5A346       19     A     
 GEN                LT     B0,B7,EIS.L20  IF TAG NOT IN STORE REGISTER                     FC5A346       20     A     
 GEN                SA2    B7+REGFILE+R.X7                                                 FC5A346       21     A     
 GEN                BX1    X3*X2                                                           FC5A346       22     A     
 GEN                ZR     X1,EIS.L20  IF OTHER STORE REGISTER NOT LOCKED                  FC5A346       23     A     
 GEN                SX7    B2                                                              FC5A346       24     A     
 GEN                SA7    EIS.LK      SAVE OTR OF REGISTER TAG IS IN                      FC5A346       25     A     
 GEN                SA3    UUC                                                             FC5A346       26     A     
 GEN                SX7    B0                                                              FC5A346       27     A     
 GEN                SA7    A3          SET USE COUNT TO ZERO TEMPORARILY                   FC5A346       28     A     
 GEN                BX7    X3                                                              FC5A346       29     A     
 GEN                SA7    EIS.LUC     CURRENT USE COUNT                                   FC5A346       30     A     
 GEN                SA3    TYPLOD                                                          FC5A346       31     A     
 GEN                SA1    EIS.LST     GET LOCATION OF STATUS WORD                         GEN          825     A     
 GEN                SB7    X1          ORDINAL IN TABLE OF STATUS WORD                     GEN          826     A     
 GEN                AX1    18                                                              GEN          827     A     
 GEN                SA2    X1          FETCH ORIGIN OF TABLE                               GEN          828     A     
 GEN                SA1    X2+B7                                                           GEN          829     A     
 GEN                SB3    X3                                                              GEN          830     A     
 GEN                RJ     STS         SET STATUS OF TAG                                   GEN          831     A     
 GEN                SB3    RG=TEMP                                                         FC5A346       32     A     
 GEN                CALL   SFR                                                             FC5A346       33     A     
 GEN                NZ     X7,EIS.L16  IF TEMPORARY REGISTER NOT AVAILABLE                 FC5A346       34     A     
 GEN                SX6    B2          OTR ASSIGNED BY *SFR*                               FC5A346       35     A     
 GEN                SA6    EIS.LX                                                          FC5A346       36     A     
 GEN                SA2    EIS.LK      OTR OF REG HOLDING TAG                              FC5A346       37     A     
 GEN                SB2    X2                                                              FC5A346       38     A     
 GEN                EQ     EIS.L19     SET STATUS USING REAL USE COUNT                     FC5A346       39     A     
 GEN                                                                                       FC5A346       40     A     
 GEN       EIS.L16  SB3    RG=LODX                                                         FC5A346       41     A     
 GEN                CALL   GNR                                                             FC5A346       42     A     
 GEN                SX7    B2          OTR OF REG ASSIGNED BY *GNR*                        FC5A346       43     A     
 GEN                SA7    EIS.LX                                                          FC5A346       44     A     
 GEN                SA3    TYPLOD                                                          FC5A346       45     A     
 GEN                SB2    X3                                                              FC5A346       46     A     
 GEN                CALL   GST                                                             FC5A346       47     A     
 GEN                NZ     B2,EIS.L17  IF TAG IN REGISTER - XMIT                           FC5A346       48     A     
 GEN                SA1    EIS.LST     GET LOCATION OF STATUS WORD                         FC5A346       49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SB7    X1          ORDINAL IN TABLE OF STATUS WORD                     FC5A346       50     A     
 GEN                AX1    18                                                              FC5A346       51     A     
 GEN                SA2    X1          FETCH ORIGIN OF TABLE                               FC5A346       52     A     
 GEN                SA1    X2+B7                                                           FC5A346       53     A     
 GEN                SA3    TYPLOD      UPPER/LOWER                                         FC5A346       54     A     
 GEN                LX3    P2.BIASP    POSITION TYPE                                       FC5A346       55     A     
 GEN                IX1    X1+X3       ADD(TYPLOD) INTO BIAS                               FC5A346       56     A     
 GEN                SA3    EIS.LX      ASSIGNED REGISTER                                   FC5A346       57     A     
 GEN                SB2    X3                                                              FC5A346       58     A     
 GEN                MX0    -3                                                              FC5A346       59     A     
 GEN                BX6    -X0*X3                                                          FC5A346       60     A     
 GEN                LX6    3                                                               FC5A346       61     A     
 GEN                CALL   CLI                                                             FC5A346       62     A     
 GEN                EQ     EIS.L19                                                         FC5A346       63     A     
 GEN                                                                                       FC5A346       64     A     
 GEN       EIS.L17  SA2    EIS.LX      OTR OF REGISTER TO TRANSMIT TO                      FC5A346       65     A     
 GEN                SB2    X2                                                              FC5A346       66     A     
 GEN                MX0    -3                                                              FC5A346       67     A     
 GEN                BX2    -X0*X2      (00R) *I* REGISTER                                  FC5A346       68     A     
 GEN                SA3    EIS.LK                                                          FC5A346       69     A     
 GEN                SX6    B0                                                              FC5A346       70     A     
 GEN                SB5    X3          OTR OF REGISTER TRANSMITTING FROM                   FC5A346       71     A     
 GEN                BX7    -X0*X3      (00R) *J* REGISTER                                  FC5A346       72     A     
 GEN                SA1    B5+REGFILE  *X* REGFILE ENTRY                                   FC5A346       73     A     
 GEN                SA3    B5+REGFILE-REG.A  *A* REGFILE ENTRY                             FC5A346       74     A     
 GEN                BX1    X3-X1                                                           FC5A346       75     A     
 GEN                AX1    OP.USEL                                                         FC5A346       76     A     
 GEN                NZ     X1,EIS.L18  IF TAGS NOT EQUAL CLEAR X REGFILE NTRY ONLY         FC5A346       77     A     
 GEN                SA6    A3          CLEAR OLD *A* REGFILE ENTRY                         FC5A346       78     A     
 GEN                                                                                       FC5A346       79     A     
 GEN       EIS.L18  SA6    A1          CLEAR OLD *X* REGFILE ENTRY                         FC5A346       80     A     
 GEN                LX2    3                                                               FC5A346       81     A     
 GEN                IX7    X7+X2                                                           FC5A346       82     A     
 GEN                SX7    X7+XMT/1S3                                                      FC5A346       83     A     
 GEN                LX7    PB.GHIJP                                                        FC5A346       84     A     
 GEN                SB5    B2                                                              FC5A346       85     A     
 GEN                WCODE  X7          TRANSMIT                                            FC5A346       86     A     
 GEN                SB2    B5                                                              FC5A346       87     A     
 GEN                                                                                       FC5A346       88     A     
 GEN       EIS.L19  SA1    EIS.LUC     SAVED USE COUNT                                     FC5A346       89     A     
 GEN                BX7    X1                                                              FC5A346       90     A     
 GEN                SA7    UUC         RESTORE USE COUNT                                   FC5A346       91     A     
 GEN                                                                                       FC5A346       92     A     
 GEN       EIS.L20  SA3    TYPLOD                                                          FC5A346       93     A     
 GEN                SA1    EIS.LST     GET LOCATION OF STATUS WORD                         FC5A346       94     A     
 GEN                SB7    X1                                                              FC5A346       95     A     
 GEN                AX1    18                                                              FC5A346       96     A     
 GEN                SA2    X1          FETCH ORIGIN OF TABLE                               FC5A346       97     A     
 GEN                SA1    X2+B7                                                           FC5A346       98     A     
 GEN                SB3    X3                                                              FC5A346       99     A     
 GEN                CALL   STS         SET STATUS OF TAG                                   FC5A346      100     A     
 GEN                MX0    -3                                                              FC5A346      101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SX1    B2                                                              FC5A346      102     A     
 GEN                BX6    -X0*X1                                                          FC5A346      103     A     
 GEN                LX6    3           0R0                                                 FC5A346      104     A     
 GEN                                                                                       GEN          832     A     
 GEN       EIS.L16  SA1    HREG                                                            GEN          833          I
          -FC5A346
 GEN       EIS.L21  SA1    HREG                                                            FC5A346      105     A     
 GEN                ZR     X1,EIS.LRF  IF HARD REGISTER TO REMAIN UN-LOCKED                GEN          834     A     
 GEN                BX2    X6                                                              GEN          835     A     
 GEN                MX7    0                                                               GEN          836     A     
 GEN                LX2    -3                                                              GEN          837     A     
 GEN                SA7    A1          CLEAR HREG                                          GEN          838     A     
 GEN                SB7    X2                                                              GEN          839     A     
 GEN                CALL   RLL         LOCK REGISTER                                       GEN          840     A     
 GEN                EQ     EIS.LRF                                                         GEN          841     A     
 GEN       EIS.LUC  DATA   0           USE COUNT SAVED HERE                                FC5A346      106     A     
 GEN       EIS.LK   DATA   0           OTR OF REG TAG IS IN                                FC5A346      107     A     
 GEN       EIS.LX   DATA   0           REG ASSIGNED AFTER GNR CALL                         FC5A346      108     A     
 GEN                                                                                       GEN          842     A     
 GEN       EIS.LST  CON    "BLOWUP"    LOCATION OF TAG STATUS WORD                         GEN          843     A     
 GEN       EIS.STO  SPACE  4,20                                                            GEN          844     A     
 GEN      **        EIS.STO - STORE PROCESSOR.                                             GEN          845     A     
 GEN      *                                                                                GEN          846     A     
 GEN      *         ENTRY  (X5) = STORE TARGET (THE LEFT MEMBER)                           GEN          847     A     
 GEN      *                       SHOULD = OR.1OP OR OR.2OP                                GEN          848     A     
 GEN                                                                                       GEN          849     A     
 GEN       EIS.STO  SA2    INS.REG     GET (0R0) FOR RIGHT HAND SIDE                       GEN          850     A     
 GEN                BX7    0                                                               GEN          851     A     
 GEN                LX6    X2                                                              GEN          852     A     
 GEN                SA7    UUC         DO NOT DECRIMENT USE COUNT                          GEN          853     A     
 GEN                AX2    3           (X2) = (00R)                                        GEN          854     A     
 GEN                SB2    X2+REG.X    ADD IN TYPE FOR (0TR)                               GEN          855     A     
 GEN                SX0    B2-R.X6                                                         GEN          856     A     
 GEN                PL     X0,EIS.ST1  IF IN *STORE* REGISTER                              GEN          857     A     
 GEN                SB7    X2                                                              FC50066        9     A     
 GEN                RJ     RLL         LOCK RHS IN CASE ASR CALLS DRITE(FP OR LCM)         FC50066       10     A     
 GEN                RJ     ASR         ASSIGN STORE REGISTER                               GEN          858     A     
 GEN                SX7    -XMT                                                            GEN          859     A     
 GEN                SA7    RREG        SET *RIGHT MEMBER NOT IN STORE REG* FLAG            GEN          860     A     
 GEN                SA1    INS.REG                                                         FC50066       11     A     
 GEN                AX1    3                                                               FC50066       12     A     
 GEN                SB7    X1                                                              FC50066       13     A     
 GEN                RJ     RUL         UNLOCK RHS REG                                      FC50066       14     A     
 GEN                                                                                       GEN          861     A     
 GEN      *         CHECK LEFT MEMBER FOR VARIABLE TYPE                                    GEN          862     A     
 GEN      *                (B2) = 0TR RIGHT MEMBER                                         GEN          863     A     
 GEN      *                (X5) = LEFT MEMBER                                              GEN          864     A     
 GEN                                                                                       GEN          865     A     
 GEN       EIS.ST1  BX2    X5                                                              GEN          866     A     
 GEN                SBIT   X2,P2.INTRP                                                     GEN          867     A     
 GEN                PL     X2,EIS.ST3  IF NOT INTERMEDIATE, SKIP ARRAY LOAD                GEN          868     A     
 GEN                                                                                       GEN          869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         LEFT MEMBER IS A *SUBSCRIPTED ARRAY INVOLVING ADDRESS FUNCTION         GEN          870     A     
 GEN                                                                                       GEN          871     A     
 GEN                SA1    RREG        GET HARD REG CELL                                   GEN          872     A     
 GEN                SX7    B2                                                              GEN          873     A     
 GEN                SB7    X1+XMT                                                          GEN          874     A     
 GEN                SA7    A1          SET HARD REG = 0TR OF RIGHE HAND SIDE               GEN          875     A     
 GEN                NZ     B7,EIS.ST2   IF RIGHT HAND SIDE IN STORE REG                    GEN          876     A     
 GEN                                                                                       GEN          877     A     
 GEN      *         COMPILE A TRANSMIT OF THE RIGHT MEMBER INTO A STORE REG.               GEN          878     A     
 GEN                                                                                       GEN          879     A     
 GEN                SA3    INS.REG     GET CURRENT 0R0, THE J-REG                          GEN          880     A     
 GEN                MX0    -3                                                              GEN          881     A     
 GEN                BX2    -X1         SET XMT OPCODE IN (X2)                              GEN          882     A     
 GEN                IX7    X3+X2       ADD  XMT + 0J0                                      GEN          883     A     
 GEN                LX6    3           (X6) = R00 OF THE I-REG                             GEN          884     A     
 GEN                IX7    X7+X6       ADD I-REG TO INSTRUCTION WORD                       GEN          885     A     
 GEN                LX7    PB.INSTP                                                        GEN          886     A     
 GEN                WCODE  X7          WRITE TRANSMIT INSTRUCTION                          GEN          887     A     
 GEN       EIS.ST2  SB2    B6          SET TYPE ( 1 IF UPPER, 0 IF LOWER)                  GEN          888     A     
 GEN                =X7    1                                                               GEN          889     A     
 GEN                SA7    UUC         SET USE COUNT DECREMENT CELL.                       GEN          890     A     
 GEN                CALL   SLD         LOAD SUBSCRIPTED ARRAY                              GEN          891     A     
 GEN                EQ     EIS.REG                                                         GEN          892     A     
 GEN                                                                                       GEN          893     A     
 GEN      *         SET DELAYED STORE IN MOTION                                            GEN          894     A     
 GEN                                                                                       GEN          895     A     
 GEN       EIS.ST3  SB3    B2          SET 0TR OF RIGHT HAND SIDE                          GEN          896     A     
 GEN                SB2    B6          SET TYPE ( 1 FOR UPPER, 0 FOR LOWER)                GEN          897     A     
 GEN                CALL   SDS         SET DELAYED STORE                                   GEN          898     A     
 GEN                EQ     EIS.REG                                                         GEN          899     A     
 GEN       EIS.IR   SPACE  4,10                                                            GEN          900     A     
 GEN      **        EIS.IR - SET INTERMEDIATE RESULT REGISTER.                             GEN          901     A     
 GEN      *                                                                                GEN          902     A     
 GEN      *             ENTRY  (B4) _ TURPLE.                                              GEN          903     A     
 GEN      *             EXIT   (X6) REGISTER NUMBER - 0R0.                                 GEN          904     A     
 GEN      *             USES   A1,A2,A3  X0  B2,B7                                         GEN          905     A     
 GEN      *             CALLS  CDS                                                         GEN          906     A     
 GEN                                                                                       GEN          907     A     
 GEN                                                                                       GEN          908     A     
 GEN       EIS.IRL  SB6    1           SET TYPE = FOR 1 LOWER HALF                         GEN          909     A     
 GEN                EQ     EIS.IR1                                                         GEN          910     A     
 GEN                                                                                       GEN          911     A     
 GEN       EIS.IR   SB6    0           SET TYPE = 0 FOR UPPER HALF                         GEN          912     A     
 GEN                EQ     EIS.IR1                                                         GEN          913     A     
 GEN                                                                                       GEN          914     A     
 GEN      *         CHECK IF NEXT TURPLE IS A STORE TURPLE                                 GEN          915     A     
 GEN                                                                                       GEN          916     A     
 GEN       EIS.IR1  SA2    B4+Z=TURP   GET NEXT OPERATOR                                   GEN          917     A     
 GEN                BX6    0                                                               GEN          918     A     
 GEN                SA6    UUC         DO NOT DECRIMENT USE COUNT                          GEN          919     A     
 GEN                MX0    -OP.CHINL                                                       GEN          920     A     
 GEN                AX2    OP.CHINP                                                        GEN          921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX2    -X0*X2      EXTRACT OPERATOR CHARACTOR INDEX                    GEN          922     A     
 GEN                SX2    X2-O.=      SUBTRACT INDEX FOR A STORE                          GEN          923     A     
 GEN                NZ     X2,EIS.IR10 IF NEXT TURP NOT A STORE, GET ANY FREE REG          GEN          924     A     
 GEN                CALL   ASR         FIND AVAILABLE STORE REGISTER                       GEN          925     A     
 GEN                EQ     EIS.IR30    CONTINUE                                            GEN          926     A     
 GEN                                                                                       GEN          927     A     
 GEN      *         IF INTERMEDIATE NOT INPUT INTO *STORE* TURPLE                          GEN          928     A     
 GEN                                                                                       GEN          929     A     
 GEN       EIS.IR10 CALL   AIR         ASSIGN INTERMEDIATE REGISTER                        GEN          930     A     
 GEN                PL     B2,EIS.IR20 IF REGISTER AVAILABLE                               GEN          931     A     
 GEN                CALL   ASR         USE STORE REGISTER                                  GEN          932     A     
 GEN                EQ     EIS.IR30                                                        GEN          933     A     
 GEN                                                                                       GEN          934     A     
 GEN       EIS.IR20 ZR     X7,EIS.IR30 IF REGISTER FREE                                    GEN          935     A     
 GEN                CALL   RUT         CLEAR TEMPORARY REGISTER                            GEN          936     A     
 GEN                                                                                       GEN          937     A     
 GEN      **        (B2) = 0TR. FOR RESULTS.                                               GEN          938     A     
 GEN                                                                                       GEN          939     A     
 GEN       EIS.IR30 =X5    0                                                               GEN          940     A     
 GEN                SB3    B6          INTERMEDIATE TYPE (UPPER/LOWER)                     GEN          941     A     
 GEN                CALL   DIT         DEFINE INTERMEDIATE                                 GEN          942     A     
 GEN                EQ     EIS.REG                                                         GEN          943     A     
 GEN       EIS.K    SPACE  4,10                                                            GEN          944     A     
 GEN      **        SET CONSTANT FOR CURRENT INSTRUCTION.                                  GEN          945     A     
 GEN                                                                                       GEN          946     A     
 GEN       EIS.AA   BSS    0                                                               GEN          947     A     
 GEN       EIS.CA   BSS    0                                                               GEN          948     A     
 GEN       EIS.K    SX6    X3          6 BIT TYPE CONSTANT.                                GEN          949     A     
 GEN                =B2    -1          INDICATE NOT A REGISTER (FOR EIS.LRF)               GEN          950     A     
 GEN                LX6    3                                                               GEN          951     A     
 GEN                EQ     EIS.LRF                                                         GEN          952     A     
 GEN       EIS.Q    SPACE  4,10                                                            GEN          953     A     
 GEN      **        EIS.Q - IMMEDIATE 18 BIT OPERAND.                                      GEN          954     A     
 GEN      *                                                                                GEN          955     A     
 GEN      *         NOTE THAT INCREMENT UNIT IS NOT USED TO EXTRACT THE FIELD FROM         GEN          956     A     
 GEN      *         THE SKELETON WORD, BECAUSE SIGN EXTENSION IS NOT WANTED.               GEN          957     A     
 GEN                                                                                       GEN          958     A     
 GEN                                                                                       GEN          959     A     
 GEN       EIS.Q    SA2    A4          RELOAD SKELETON WORD                                GEN          960     A     
 GEN                MX0    -SK.JPADL                                                       GEN          961     A     
 GEN                LX2    -SK.JPADP                                                       GEN          962     A     
 GEN                MX6    0           TAG = 0                                             GEN          963     A     
 GEN                BX7    -X0*X2      BIAS = JPAD                                         GEN          964     A     
 GEN                EQ     EIS.P5      PROCESS AS INTERMEDIATE                             GEN          965     A     
 GEN       EIS.S    SPACE  4,10                                                            GEN          966     A     
 GEN      **        EIS.S - SYMORD OF OPERAND IS IN AN (S=ORD) CELL.                       GEN          967     A     
 GEN                                                                                       GEN          968     A     
 GEN                                                                                       GEN          969     A     
 GEN       EIS.S    SA2    A4          GET SKELETON WORD                                   GEN          970     A     
 GEN                LX2    -SK.JPADP                                                       GEN          971     A     
 GEN                SA2    X2          GET SYMBOL TABLE TAG                                GEN          972     A     
 GEN                ERRNZ  18-SK.JPADL                                                     GEN          973     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX6    X2          TAG = (JPAD)                                        GEN          974     A     
 GEN                MX7    0                                                               GEN          975     A     
 GEN                EQ     EIS.P5                                                          GEN          976     A     
 GEN       EIS.P    SPACE  4,10                                                            GEN          977     A     
 GEN      **        PROCESS TAG AND BIAS FIELD SIMULTANEOULSY.                             GEN          978     A     
 GEN      *         WILL PROCESS P2.TAGL AND/OR P2.BIASL ELEMENTS OF TURPLE                GEN          979     A     
 GEN      *         OPERAND FOR ADD IN TO INSTRUCTION BUILD WORD.                          GEN          980     A     
 GEN      *                                                                                GEN          981     A     
 GEN      *         ENTRY  (X3)  RELATIVE WORD IN PARSE FILE TO USE                        GEN          982     A     
 GEN      *                (B4)  START OF TURPLE                                           GEN          983     A     
 GEN      *                                                                                GEN          984     A     
 GEN      *         EXIT   TO EIS.PX5 TO COMPLETE INSTRUCTION BUILD.                       GEN          985     A     
 GEN                                                                                       GEN          986     A     
 GEN                                                                                       GEN          987     A     
 GEN       EIS.P    BSS    0                                                               GEN          988     A     
 GEN                SA2    X3+B4       LOAD PARSED FILE WORD = 18/TAG,18/BIAS,24/0         GEN          989     A     
 GEN                                                                                       GEN          990     A     
 GEN       EIS.P4   MX0    -PB.BIASL                                                       GEN          991     A     
 GEN                LX2    -P2.BIASP                                                       GEN          992     A     
 GEN                BX7    -X0*X2      TRUNC(P2.BIAS)                                      GEN          993     A     
 GEN                MX0    -P2.TAGL                                                        GEN          994     A     
 GEN                LX2    P2.BIASP-P2.TAGP                                                GEN          995     A     
 GEN                BX6    -X0*X2      P2.TAG                                              GEN          996     A     
 GEN                                                                                       GEN          997     A     
 GEN      *         (X6) = TAG                                                             GEN          998     A     
 GEN      *         (X7) = 18-BIT BIAS                                                     GEN          999     A     
 GEN                                                                                       GEN         1000     A     
 GEN       EIS.P5   SA5    OPTYP                                                           GEN         1001     A     
 GEN                SB7    X5-M.SHIF                                                       GEN         1002     A     
 GEN                                                                                       GEN         1003     A     
 GEN      *         REPOSITION TAG PREFIX FROM P2 TO PB POSITION.                          GEN         1004     A     
 GEN                                                                                       GEN         1005     A     
 GEN                MX0    P2.PFXL                                                         GEN         1006     A     
 GEN                LX0    P2.PFXL+P2=PFX                                                  GEN         1007     A     
 GEN                BX0    X0*X6       EXTRACT TAG PREFIX                                  GEN         1008     A     
 GEN                BX6    -X0*X6      CLEAR PREFIX FROM TAG                               GEN         1009     A     
 GEN                LX0    P=PFX-P2=PFX      REPOSITION                                    GEN         1010     A     
 GEN                BX6    X0+X6                                                           GEN         1011     A     
 GEN                LX7    -PB.BIASL                                                       GEN         1012     A     
 GEN                BX6    X6+X7       18/BIAS,24/0,18/TAG                                 GEN         1013     A     
 GEN                ZR     B7,EIS.REG  IF IMEDIATE VALUE IS A SHIFT COUNT                  GEN         1014     A     
 GEN                                                                                       GEN         1015     A     
 GEN      **        WE ARE COMPILING A 30-BIT INSTRUCTION. WE MUST                         GEN         1016     A     
 GEN      *         BE CAREFUL TO PLACE OUR IMEDIATE VALUE IN THE COR-                     GEN         1017     A     
 GEN      *         RECT POSITION SO THAT EIS.REG WILL SHIFT IT TO THE                     GEN         1018     A     
 GEN      *         SAME POSITION REGARDLESS OF WHERE IJK IS PIONTING.                     GEN         1019     A     
 GEN                                                                                       GEN         1020     A     
 GEN                SA3    IJK                  GET VARIABLE SHIFT COUNT                   GEN         1021     A     
 GEN                SB6    X3-60+PB.TAGL-PB.KL  NEGATIVE OF DISIRED SHIFT COUNT            GEN         1022     A     
 GEN                ERRPL  6-PB.TAGL+PB.KL   POSSIBLE DANGER OF DROPPED BITS               GEN         1023     A     
 GEN                SB6    -B6         SET SHIFT COUNT                                     GEN         1024     A     
 GEN                LX6    B6,X6       POSITION IMEDIATE FIELDS                            GEN         1025     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                EQ     EIS.REG                                                         GEN         1026     A     
 GEN       EIS.LRF  SPACE  4,20                                                            GEN         1027     A     
 GEN      **        LOCK REGISTER FILE FOR REGISTER USED IN CURRENT INSTRUCTION            GEN         1028     A     
 GEN      *                                                                                GEN         1029     A     
 GEN      *         ENTRY  (B2) = 0TR                                                      GEN         1030     A     
 GEN      *                (X6) = 0R0, AS ABOVE.                                           GEN         1031     A     
 GEN      *                                                                                GEN         1032     A     
 GEN      *         EXIT   LOCK BIT SET IN (REGFILE) IF ASSIGNMENT IS FOR                  GEN         1033     A     
 GEN      *                            *K* PORTION OF INSTRUCTION.                         GEN         1034     A     
 GEN      *                CLEAR LOCK BIT ON *K* IF PROCESSING *J*                         GEN         1035     A     
 GEN                                                                                       GEN         1036     A     
 GEN                                                                                       GEN         1037     A     
 GEN       EIS.LRF  SA2    IJK                                                             GEN         1038     A     
 GEN                SA1    REGLK                                                           GEN         1039     A     
 GEN                MX7    -1                                                              GEN         1040     A     
 GEN                PL     X2,EIS.LRF5 IF NOT PROCESSING *K*                               GEN         1041     A     
 GEN                MI     B2,EIS.REG  IF A CONSTANT (NOT A REGISTER)                      GEN         1042     A     
 GEN                SX5    B2                                                              GEN         1043     A     
 GEN                MX1    -3                                                              GEN         1044     A     
 GEN                BX2    -X1*X5      GET REGISTER -00R                                   GEN         1045     A     
 GEN                SB7    X2                                                              GEN         1046     A     
 GEN                CALL   RLL         LOCK REGISTER                                       GEN         1047     A     
 GEN                SA7    REGLK       SAVE REGISTER  -00R.                                GEN         1048     A     
 GEN                =A7    A7+1                                                            GEN         1049     A     
 GEN                EQ     EIS.REG     CONTINUE                                            GEN         1050     A     
 GEN                                                                                       GEN         1051     A     
 GEN       EIS.LRF5 SA7    A1          CLEAR *REGLK*                                       GEN         1052     A     
 GEN                NZ     X2,EIS.REG  IF NOT PROCESSING *J*                               GEN         1053     A     
 GEN                SA7    CLOADJ                                                          GEN         1054     A     
 GEN                SB7    X1                                                              GEN         1055     A     
 GEN                CALL   RUL         UNLOCK REGISTER                                     GEN         1056     A     
 GEN      *         EQ     EIS.REG                                                         GEN         1057     A     
 GEN       REG      EJECT  4,8                                                             GEN         1058     A     
 GEN      **        9.  SET REGISTER IN TO BUILD REGISTER,(X5), AND CONTINUE               GEN         1059     A     
 GEN      *             TO NEXT.                                                           GEN         1060     A     
 GEN      *             ENTRY  (X6) = REGISTER - 0R0                                       GEN         1061     A     
 GEN      *                                                                                GEN         1062     A     
 GEN      *             EXIT   (X1) REGISTER SHIFTED APPROPRIATELY.                        GEN         1063     A     
 GEN      *                    (X4) SHIFTED BY -L.INUM                                     GEN         1064     A     
 GEN      *                    (B6) UPDATED BY 3.                                          GEN         1065     A     
 GEN      *                    INS.REG =  REGISTER ADDED IN PROPER POSITION.               GEN         1066     A     
 GEN                                                                                       GEN         1067     A     
 GEN                                                                                       GEN         1068     A     
 GEN       EIS.REG  SA3    IJK                                                             GEN         1069     A     
 GEN                SA1    INS.REG                                                         GEN         1070     A     
 GEN                SB6    X3                                                              GEN         1071     A     
 GEN                PL     X3,EIS.RG5  IF POSITIVE SHIFT                                   GEN         1072     A     
 GEN                SB6    B6+60       NO DROPPING THE BITS..                              GEN         1073     A     
 GEN       EIS.RG5  LX2    B6,X6                                                           GEN         1074     A     
 GEN                BX6    X1+X2                                                           GEN         1075     A     
 GEN                LX4    -SR.OADL                                                        GEN         1076     A     
 GEN                SX7    X3+3                                                            GEN         1077     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA6    A1          UPDATE ASSIGNED                                     GEN         1078     A     
 GEN                SA7    A3          UPDATE *IJK*                                        GEN         1079     A     
 GEN                EQ     EIS.NX      CONTINUE FOR NEXT PORTION OF INSTRUCTION.           GEN         1080     A     
 GEN                                                                                       GEN         1081     A     
 GEN       INS.REG  DATA   0           IJK PARTS OF INSTRUCTION                            GEN         1082          I
          -FC50950
 GEN       INS.REG  BSZENT 1           IJK PARTS OF INSTRUCTION                            FC50950       49     A     
 GEN       OPCODE   DATA   0           OPCODE                                              GEN         1083     A     
 GEN       IJK      DATA   0           = 3 PROCESSING *I* PART                             GEN         1084          I
          -FC50950
 GEN       IJK      BSZENT 1           = 3 PROCESSING *I* PART                             FC50950       50     A     
 GEN                                   = 0    -       *J*  -                               GEN         1085     A     
 GEN                                   =-3    -       *K*  -                               GEN         1086     A     
 GEN       OPTYP    DATA   0           M.XXX FOR OP-CODE FIELD OF SKELETON                 GEN         1087     A     
 GEN                                                                                       GEN         1088     A     
 GEN                                                                                       GEN         1089     A     
 GEN       EIS.INST DATA   0           INSTRUNCION TO PUT TAG IN CORRECT REGISTER          GEN         1090     A     
 GEN       EIS.JREG DATA   0           *J* REGISTER FOR ABOVE                              GEN         1091     A     
 GEN       HREG     BSSZ   1           LOCK HARD REGISTER FLAG                             GEN         1092     A     
 GEN       RUT.REG  BSZENT 1           IJK PARTS OF PREVIOUS INSTRUCTION                   FC50950       51     A     
 GEN                TITLE  (O=)  PROCESSORS CALLED BY SKELETONS.                           GEN         1093     A     
 GEN       O=XXX    SPACE  4,10                                                            GEN         1094     A     
 GEN      **        O=XXX - THIS SECTION CONTAINS SPECIAL PROCESSING ROUTINES              GEN         1095     A     
 GEN      *                 USED FOR EXPANSION OF SKELETONS.                               GEN         1096     A     
 GEN       BOS      SPACE  4,10                                                            GEN         1097     A     
 GEN      **        BOS - BEGINNING OF STATEMENT.                                          GEN         1098     A     
 GEN      *                                                                                GEN         1099     A     
 GEN      *         ENTRY  (A5) -> CURRENT TURPLE HEADER.                                  GEN         1100          I
          -FC5A337
 GEN      *         ENTRY  (A5) _ CURRENT TURPLE HEADER.                                   FC5A337       22     A     
 GEN      *                (X0) = COMPLEMENT MASK OF [OP.LINE].                            GEN         1101     A     
 GEN      *                (X1) = [OP.LINE] OF CURRENT TURPLE.                             GEN         1102     A     
 GEN      *                (X5) = CURRENT TURPLE HEADER.                                   GEN         1103     A     
 GEN      *                                                                                GEN         1104     A     
 GEN      *         EXIT   LINE NUMBER REMOVED FROM CURRENT TURPLE HEADER.                 GEN         1105     A     
 GEN      *                (X5) = ADJUSTED TURPLE HEADER.                                  GEN         1106     A     
 GEN      *                (TRACE) = CURRENT LINE NUMBER.                                  GEN         1107     A     
 GEN      *                                                                                GEN         1108     A     
 GEN      *         ISSUES (I.BOS) PSUEDO.                                                 GEN         1109     A     
 GEN      *                (I.OTR) IF *ER* SELECTED.                                       GEN         1110     A     
 GEN      *                (RJ FID) IF *DB=ID* SELECTED.                                   GEN         1111     A     
 GEN      *                                                                                GEN         1112     A     
 GEN      *         USES   ALL BUT  A0,  B4.                                               GEN         1113     A     
 GEN      *         CALLS  WCODE.                                                          GEN         1114     A     
 GEN                                                                                       GEN         1115     A     
 GEN                                                                                       GEN         1116     A     
 GEN       BOS      SUBR   0           ENTRY/EXIT...                                       GEN         1117     A     
 GEN                BX6    X0*X5       REMOVE LINE NUMBER FROM (OP.)                       GEN         1118     A     
 GEN                LX1    -OP.LINEP                                                       GEN         1119     A     
 GEN                SA2    CO.DBER                                                         GEN         1120     A     
 GEN                SA3    CO.DBID                                                         GEN         1121     A     
 GEN                BX2    X2+X3                                                           GEN         1122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX5    X0*X5       ADJUST (X5) ALSO                                    GEN         1123     A     
 GEN                LX7    X1                                                              GEN         1124     A     
 GEN                SA6    A5                                                              GEN         1125     A     
 GEN                SA7    TRACE                                                           GEN         1126     A     
 GEN                ZR     X2,BOS4     IF ERROR RECOVERY SELECTED                          GEN         1127          I
          -FC50936
 GEN                ZR     X2,BOS4     IF ERROR RECOVERY DE-SELECTED                       FC50936        6     A     
 GEN                NZ     X3,BOS3     IF CO.DBID ON                                       FC50936        7     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         1128     A     
 GEN                EQ     BOS4                                                            FC50936        8     A     
 GEN                                                                                       FC5A337       23     A     
 GEN       BOS3     CALL   CIA         CLEAR ALL REGISTERS                                 FC50936        9     A     
 GEN       BOS4     SA1    TRACE                                                           GEN         1129     A     
 GEN                SX3    I.BOS                                                           GEN         1130     A     
 GEN                LX1    PB.BIASP                                                        GEN         1131     A     
 GEN                LX3    PB.GHIJP                                                        GEN         1132     A     
 GEN                BX4    X1+X3                                                           GEN         1133     A     
 GEN                WCODE  X4          ISSUE  * BOS  LINE-NUMBER *                         GEN         1134     A     
 GEN                SA2    CO.DBER                                                         GEN         1135          I
          -FC5A166
 GEN                SA2    B4+Z=TURP   NEXT TURPLE                                         FC5A166        8     A     
 GEN                BX3    -X2                                                             FC5A166        9     A     
 GEN                LX3    -TH.SKELP                                                       FC5A166       10          I
          -FC50104
 GEN                ERRNZ  TH.SKELL-18                                                     FC5A166       11          I
          -FC50104
 GEN                HX3    TH.SKEL                                                         FC50104      247     A     
 GEN                AX3    -TH.SKELL   EXTRACT (SIGN EXTEND) NEGATIVE SKEL ORDINAL         FC50104      248     A     
 GEN                SX3    X3+=XV=BSS                                                      FC5A166       12          I
          -FC5A337
 GEN                SX3    X3+V=BSS                                                        FC5A337       24     A     
 GEN                NZ     X3,BOS5     IF BSS NOT NEXT                                     FC5A166       13     A     
 GEN                CLAS=  X0,OP,BSSI                                                      FC5A166       14     A     
 GEN                BX6    X0+X2                                                           FC5A166       15     A     
 GEN                SA6    A2          MARK BSS ISSUED                                     FC5A166       16     A     
 GEN                =A1    A2+OR.1OP                                                       FC5A166       17     A     
 GEN                RJ     PBW         PREPARE BSS FOR WCODE                               FC5A166       18     A     
 GEN                SA7    ESTACK      SAVE BSS                                            FC5A166       19     A     
 GEN                CALL   CIA         CLEAR ALL REGISTERS                                 FC5A166       20     A     
 GEN                SA2    ESTACK                                                          FC5A166       21     A     
 GEN                BX7    X2                                                              FC5A166       22     A     
 GEN                WCODE  X7          ISSUE BSS                                           FC5A166       23     A     
 GEN                                                                                       FC5A166       24     A     
 GEN       BOS5     SA2    CO.DBER                                                         FC5A166       25     A     
 GEN                SA3    CO.DBID                                                         GEN         1136     A     
 GEN                SX6    I.BOS&I.OTR                                                     GEN         1137     A     
 GEN                BX2    X2+X3                                                           GEN         1138     A     
 GEN                ZR     X2,EXIT.    IF OBJECT-TIME-REPRIEVE DE-SELECTED                 GEN         1139     A     
 GEN                SA2    MOD                                                             GEN         1140     A     
 GEN                HX2    MO.BLK                                                          GEN         1141     A     
 GEN                MI     X2,EXIT.    IF PROCESSING BLOCK DATA                            GEN         1142     A     
 GEN                LX6    PB.GHIJP                                                        GEN         1143     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX7    X4-X6       SWITCH OPCODE                                       GEN         1144     A     
 GEN                ZR     X3,BOS8     IF INTERACTIVE DEBUG NOT SELECTED                   GEN         1145     A     
 GEN                WCODE  X7                                                              GEN         1146     A     
 GEN                CALL   CIA         CLEAR ALL REGISTERS                                 GEN         1147     A     
 GEN                SX3    I.RJ3                                                           GEN         1148     A     
 GEN                SA4    S=FID                                                           GEN         1149     A     
 GEN                LX3    PB.GHIJP                                                        GEN         1150     A     
 GEN                LX4    PB.TAGP                                                         GEN         1151     A     
 GEN                BX7    X3+X4                                                           GEN         1152     A     
 GEN                                                                                       FC5A337       25     A     
 GEN       BOS8     WCODE  X7,EXIT.                                                        GEN         1153     A     
 GEN       O=CAR    SPACE  4,8                                                             GEN         1154     A     
 GEN      **        CAR -  CLEAR ALL REGISTER ASSOCIATES.                                  GEN         1155     A     
 GEN      *                                                                                GEN         1156     A     
 GEN      *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                        GEN         1157     A     
 GEN      *                                                                                GEN         1158     A     
 GEN      *         EXIT   *DRITE* CLEARED.                                                GEN         1159     A     
 GEN      *                ALL REGISTER ASSOCIATES CLEARED.                                GEN         1160     A     
 GEN      *                EXIT TO NULLOP                                                  GEN         1161     A     
 GEN      *                                                                                GEN         1162     A     
 GEN      *         CALLS  CAR.                                                            GEN         1163     A     
 GEN                                                                                       GEN         1164     A     
 GEN       O=CAR    BSSENT             ENTRY...                                            GEN         1165     A     
 GEN                CALL   CIA         CLEAR REGISTER FILE                                 GEN         1166     A     
 GEN                EQ     NULLOP                                                          GEN         1167     A     
 GEN       O=CBJ    SPACE  4,10                                                            GEN         1168     A     
 GEN      **        O=CBJ -  COMPILE INDEXED (B) JUMP.                                     GEN         1169     A     
 GEN      *                                                                                GEN         1170     A     
 GEN      *         ENTRY  (X1) = LABEL                                                    GEN         1171     A     
 GEN      *                (A4,X4) = SKELETON WORD                                         GEN         1172     A     
 GEN      *                                                                                GEN         1173     A     
 GEN      *         EXIT   TO EIS.CMP                                                      GEN         1174     A     
 GEN      *                (X7) = INSTRUCTION TO COMPILE                                   GEN         1175     A     
 GEN      *                (X3) = SKELETON SHIFTED BY P.IEND                               GEN         1176     A     
 GEN      *                AN  * JP   B6 + L.N  *  HAS BEEN CONSTRUCTED                    GEN         1177     A     
 GEN                                                                                       GEN         1178     A     
 GEN                                                                                       GEN         1179     A     
 GEN       O=CBJ    BSSENT 0           ENTRY...                                            GEN         1180     A     
 GEN                LX1    -P2.TAGP+PB.TAGP                                                GEN         1181     A     
 GEN                SX5    R.B6        ** B6 ONLY **                                       GEN         1182     A     
 GEN                =X2    I.JPI                                                           GEN         1183     A     
 GEN                BX1    X1+X5                                                           GEN         1184     A     
 GEN                LX2    PB.GHIJP                                                        GEN         1185     A     
 GEN                BX7    X1+X2       12/GHIJ,18/TAG(IF EXISTS),18/0,12/B-REG             GEN         1186     A     
 GEN                EQ     CBREAK      RETURN TO COMPILE INSTRUCTION                       GEN         1187     A     
 GEN       O=CDW    SPACE  4,8                                                             GEN         1188     A     
 GEN      **        CDW -  CHECK *DRITE* FLAG AND PROCESS IF SET.                          GEN         1189     A     
 GEN      *                                                                                GEN         1190     A     
 GEN      *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                        GEN         1191     A     
 GEN      *                                                                                GEN         1192     A     
 GEN      *         EXIT   *DRITE* CLEARED.                                                GEN         1193     A     
 GEN      *                EXIT TO NULLOP                                                  GEN         1194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *                                                                                GEN         1195     A     
 GEN      *         CALLS  CDS                                                             GEN         1196     A     
 GEN                                                                                       GEN         1197     A     
 GEN                                                                                       GEN         1198     A     
 GEN       O=CDW    BSSENT             ENTRY...                                            GEN         1199     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         1200     A     
 GEN                EQ     NULLOP                                                          GEN         1201     A     
 GEN       O=CBSS   SPACE  4,10                                                            GEN         1202     A     
 GEN      **        CBSS - DEFINE LABEL.                                                   GEN         1203     A     
 GEN      *                                                                                GEN         1204     A     
 GEN      *         ENTRY  (X1) = LABEL TO DEFINE.                                         GEN         1205     A     
 GEN      *                (X4) = SKELETON WORD                                            GEN         1206     A     
 GEN      *                                                                                GEN         1207     A     
 GEN      *         EXIT   TO *CBREAK*                                                     GEN         1208     A     
 GEN      *                (X3) = SKELETON SHIFTED BY SK.ENDP                              GEN         1209     A     
 GEN      *                (X7) = INSTRUCTION FORMATTED FOR LONG FILE                      GEN         1210     A     
 GEN      *                                                                                GEN         1211     A     
 GEN      *         NOTE THAT QCG CANNOT TAKE ADVANTAGE OF THE INACTIVE LABEL              GEN         1212     A     
 GEN      *         BIT (WB.INA), BECAUSE IT IS NOT GUARENTEED CORRECT UNTIL               GEN         1213     A     
 GEN      *         THE ENTIRE PROGRAM-UNIT HAS BEEN SCANNED.                              GEN         1214     A     
 GEN      *                                                                                GEN         1215     A     
 GEN      *         USES   CANNOT DESTROY  A0,A4  B4                                       GEN         1216     A     
 GEN                                                                                       GEN         1217     A     
 GEN                                                                                       GEN         1218     A     
 GEN       O=CBSS   BSSENT 0           ENTRY...                                            GEN         1219          I
          -FC5A166
 GEN       O=PLA    BSSENT 0           ENTRY...                                            GEN         1220          I
          -FC5A166
 GEN       PBW      SUBR               PREPARE BSS FOR WCODE                               FC5A166       26     A     
 GEN                LX1    -P2.TAGP                                                        GEN         1221     A     
 GEN                MX0    -P2.ORDL                                                        GEN         1222     A     
 GEN                BX2    -X0*X1                                                          GEN         1223     A     
 GEN                MX0    P2.PFXL                                                         GEN         1224     A     
 GEN                LX0    P2.PFXL+P2=PFX                                                  GEN         1225     A     
 GEN                BX0    X0*X1                                                           GEN         1226     A     
 GEN                LX0    P=PFX-P2=PFX      REPOSITION TAG PREFIX                         GEN         1227     A     
 GEN                BX2    X0+X2                                                           GEN         1228     A     
 GEN                =X0    I.BSS                                                           GEN         1229     A     
 GEN                LX0    PB.GHIJP                                                        GEN         1230     A     
 GEN                LX2    PB.TAGP                                                         GEN         1231     A     
 GEN                BX7    X0+X2                                                           GEN         1232     A     
 GEN                EQ     CBREAK      EXIT..                                              GEN         1233          I
          -FC5A166
 GEN                EQ     EXIT.                                                           FC5A166       27     A     
 GEN       O=PLA    SPACE  4,8                                                             FC5A166       28     A     
 GEN       O=PLA    BSSENT 0                                                               FC5A166       29     A     
 GEN                SA2    B4                                                              FC5A166       30     A     
 GEN                HX2    OP.BSSI                                                         FC5A166       31     A     
 GEN                MI     X2,NULLOP   IF BSS  ISSUED AT BOS                               FC5A166       32     A     
 GEN                SPACE  4,8                                                             FC5A166       33     A     
 GEN       O=CBSS   RJ     PBW                                                             FC5A166       34     A     
 GEN                EQ     CBREAK                                                          FC5A166       35     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       CRJT     SPACE  4,10                                                            GEN         1234     A     
 GEN      **        CRJ -  COMPILE SIMPLE RJT (WITH TRACE)                                 GEN         1235     A     
 GEN      *                                                                                GEN         1236     A     
 GEN      *         ENTRY  (X1) = 18/TAG OF ROUTINE,42/0                                   GEN         1237     A     
 GEN      *                (X4) = SKELETON WORD                                            GEN         1238     A     
 GEN      *                                                                                GEN         1239     A     
 GEN      *         EXIT   TO NULLOP                                                       GEN         1240     A     
 GEN      *                (X3) = SKELETON SHIFTED BY P.IEND                               GEN         1241     A     
 GEN                                                                                       GEN         1242     A     
 GEN                                                                                       GEN         1243     A     
 GEN       O=CRJ    BSSENT             ENTRY...                                            GEN         1244     A     
 GEN                SA4    CURSK                                                           GEN         1245     A     
 GEN                SA2    X4          FETCH CURRENT SKEL WORD                             GEN         1246     A     
 GEN                HX2    SK.ARG                                                          GEN         1247     A     
 GEN                MI     X2,CRJ2     IF (X1) ALREADY IN RIGHT FORMAT                     GEN         1248     A     
 GEN                LX1    -P2.TAGP                                                        GEN         1249     A     
 GEN                MX0    -P2.TAGL                                                        GEN         1250     A     
 GEN                BX1    -X0*X1                                                          GEN         1251     A     
 GEN                SA1    X1                                                              GEN         1252     A     
 GEN                LX1    P2.TAGP                                                         GEN         1253     A     
 GEN       CRJ2     SA3    TRACE                                                           GEN         1254     A     
 GEN                MX0    P2.TAGL                                                         GEN         1255     A     
 GEN                BX6    X0*X1       TAG                                                 GEN         1256     A     
 GEN                CRJ    MUST        COMPILE RJT (WITH TRACE)                            GEN         1257     A     
 GEN                EQ     NULLOP      EXIT..                                              GEN         1258     A     
 GEN       CDCS     SPACE  4,8                                                             GEN         1259     A     
 GEN      **        O=CDCS - RESET USER/FIXED COLLATE.                                     GEN         1260     A     
 GEN                                                                                       GEN         1261     A     
 GEN       O=CDCS   BSSENT 0                                                               GEN         1262     A     
 GEN                =A1    B4+OR.1OP                                                       GEN         1263     A     
 GEN                MX0    -P2.BIASL                                                       GEN         1264     A     
 GEN                LX1    -P2.BIASP                                                       GEN         1265     A     
 GEN                BX6    -X0*X1                                                          GEN         1266     A     
 GEN                SA6    WO.CS       SET COLLATE FIXED/USER                              GEN         1267     A     
 GEN                EQ     NULLOP                                                          GEN         1268     A     
 GEN       CDDOT    SPACE  4,8                                                             GEN         1269     A     
 GEN      **        O=CDDOT - RESET ZERO/ONE-TRIP LOOP.                                    GEN         1270     A     
 GEN                                                                                       GEN         1271     A     
 GEN       O=CDDOT  BSSENT 0                                                               GEN         1272     A     
 GEN                =A1    B4+OR.1OP                                                       GEN         1273     A     
 GEN                MX0    -P2.BIASL                                                       GEN         1274     A     
 GEN                LX1    -P2.BIASP                                                       GEN         1275     A     
 GEN                BX6    -X0*X1                                                          GEN         1276     A     
 GEN                SA6    WO.DOOT     SET DO TRIP 0/1                                     GEN         1277     A     
 GEN                EQ     NULLOP                                                          GEN         1278     A     
 GEN       CDLOO    SPACE  4,8                                                             GEN         1279     A     
 GEN      **        O=CDLOO - RESET OBJECT LIST ON/OFF.                                    GEN         1280     A     
 GEN                                                                                       GEN         1281     A     
 GEN       O=CDLOO  BSSENT 0                                                               GEN         1282     A     
 GEN                =A1    B4+OR.1OP                                                       GEN         1283     A     
 GEN                MX0    -P2.BIASL                                                       GEN         1284     A     
 GEN                LX1    -P2.BIASP                                                       GEN         1285     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA2    OCIOL                                                           GEN         1286     A     
 GEN                BX1    -X0*X1                                                          GEN         1287     A     
 GEN                LX2    PB.GHIJP                                                        GEN         1288     A     
 GEN                LX1    PB.BIASP                                                        GEN         1289     A     
 GEN                BX7    X1+X2                                                           GEN         1290     A     
 GEN                WCODE  X7,NULLOP   OC$ OR I.IOL 0/1                                    GEN         1291     A     
 GEN                                                                                       GEN         1292     A     
 GEN       OCIOL    BSSENT 1           CURRENT OBJECT LIST CONTROL OPCODE                  GEN         1293     A     
 GEN       O=ENT    SPACE  4,10                                                            GEN         1294     A     
 GEN      **        O=ENT - ALTERNATE ENTRY POINT DEFINITION.                              GEN         1295     A     
 GEN      *                                                                                GEN         1296     A     
 GEN      *         EXIT   TO O=CBSS --                                                    GEN         1297     A     
 GEN      *                (X1) = GL TO BE DEFINED                                         GEN         1298     A     
 GEN                                                                                       GEN         1299     A     
 GEN                                                                                       GEN         1300     A     
 GEN       O=ENT    BSSENT             ENTRY...                                            GEN         1301     A     
 GEN                SA1    N.GL                                                            GEN         1302     A     
 GEN                SX6    X1+B1       COUNT GENERATED LABELS                              GEN         1303     A     
 GEN                SA6    A1                                                              GEN         1304     A     
 GEN                =A2    B4+OR.1OP   GET ENTRY TAG                                       GEN         1305     A     
 GEN                SA3    N.ALTEN     GET NUMBER OF ALTERNATE ENTRIES                     GEN         1306     A     
 GEN                BX6    X1                                                              GEN         1307     A     
 GEN                =X7    X3+1                                                            GEN         1308     A     
 GEN                AX2    P2.TAGP     POSITION SYMBOL TABLE ORDINAL                       GEN         1309     A     
 GEN                SA7    A3          UPDATE ALTERNATE ENTRY COUNT                        GEN         1310     A     
 GEN                LX5    B1,X2       MULTIPLY ORDINAL BY 2                               GEN         1311     A     
 GEN                ERRNZ  K.SYM                                                           GEN         1312     A     
 GEN                SA3    T.SYM       (X3) = SYM TAB ORDINAL                              GEN         1313     A     
 GEN                MX0    60-WC.EGLL  SET ENTRY GENERATED LABEL MASK                      GEN         1314     A     
 GEN                IX5    X5+X2       INDEX = 2*ORD + ORD                                 GEN         1315     A     
 GEN                ERRNZ  3-Z=SYM                                                         GEN         1316     A     
 GEN                LX0    WC.EGLP     POSITION EGL MASK                                   GEN         1317     A     
 GEN                =B7    X3+WC.W                                                         GEN         1318     A     
 GEN                LX6    WC.EGLP     POSITION GL ORDINAL                                 GEN         1319     A     
 GEN                SA3    X5+B7       GET WC. OF ENTRY                                    GEN         1320     A     
 GEN                SX1    X1+K2.GL    TAG FOR GENERATED LABEL                             GEN         1321     A     
 GEN                BX3    X0*X3       CLEAR EGL FIELD                                     GEN         1322     A     
 GEN                BX6    X6+X3       ADD GL ORDINAL INTO WC.EGL                          GEN         1323     A     
 GEN                LX1    P2.TAGP                                                         GEN         1324     A     
 GEN                SA6    A3          RESET WC                                            GEN         1325     A     
 GEN                EQ     O=CBSS                                                          GEN         1326     A     
 GEN       O=GENT   SPACE  4,7                                                             GEN         1327     A     
 GEN      **        O=GENT - MAIN CONTROLER OF ALTERNATE ENTRY CODE GENERATION.            GEN         1328     A     
 GEN      *                IT PRESIDES OVER A LARGE SKELETON DRIVEN LOOP.                  GEN         1329     A     
 GEN      *                O=GENTX IS THE RETURN POINT FROM SKELETON CALLS.                GEN         1330     A     
 GEN                                                                                       GEN         1331     A     
 GEN                                                                                       GEN         1332     A     
 GEN       O=GENT   BSSENT 0                                                               GEN         1333     A     
 GEN                SA1    S=ENTRY     ORDINAL OF MAIN ENTRY                               GEN         1334     A     
 GEN                SX6    X1+                                                             GEN         1335     A     
 GEN                SA6    ENT.STO     INITIALIZE SYMBOL TABLE ORDINAL FOR SCAN            GEN         1336     A     
 GEN                                                                                       GEN         1337     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=GENTX  BSSENT 0                                                               GEN         1338     A     
 GEN                SA2    N.ALTEN     GET ALTERNATE ENTRY COUNT                           GEN         1339     A     
 GEN                =X7    X2-1                                                            GEN         1340     A     
 GEN                ZR     X2,NULLOP   IF NO MORE ALTERNATE ENTRIES                        GEN         1341     A     
 GEN                SA5    ENT.STO     GET SYM TAB ORDINAL OF LAST ENTRY                   GEN         1342     A     
 GEN                SA7    A2          RESET NUMBER OF ALT ENTS (N.ALTEN)                  GEN         1343     A     
 GEN                LX3    X5,B1       MULTIPLY SYM ORDINAL BY TWO                         GEN         1344     A     
 GEN                SA2    T.SYM       GET SYMBOL TABLE FWA FOR SEARCH LOOP                GEN         1345     A     
 GEN                IX3    X3+X5       (X3) = 3 * SYM TAB ORDINAL                          GEN         1346     A     
 GEN                =X3    X3+WB.W     (X3) = WB ORDINAL OF LAST ENTRY                     GEN         1347     A     
 GEN                SB7    Z=SYM       SET WB ORD INCRIMENT FOR SYM TAB SEARCH             GEN         1348     A     
 GEN                SX6    X5+                                                             GEN         1349     A     
 GEN                                                                                       GEN         1350     A     
 GEN      **        SYMBOL TABLE ENTRY SEARCH:                                             GEN         1351     A     
 GEN      *         SCAN SYMBOL TABLE UNTIL ALTERNATR ENTRIES ARE EXAUSTED.                GEN         1352     A     
 GEN                                                                                       GEN         1353     A     
 GEN       GENT5    =X3    X3+B7       INCRIMENT WB ORDINAL                                GEN         1354     A     
 GEN                =X6    X6+1        INCRIMENT SYMTAB ORDINAL                            GEN         1355     A     
 GEN                IX1    X2+X3       ADD ORIGIN TO  WB ORDINAL.                          GEN         1356     A     
 GEN                =A1    X1          GET WB OF POSSEBLE ENTRY                            GEN         1357     A     
 GEN                SBIT   X1,WB.ENTP                                                      GEN         1358     A     
 GEN                PL     X1,GENT5    IF NOT AN ENTRY                                     GEN         1359     A     
 GEN                SBIT   X1,WB.LABP/WB.ENTP                                              GEN         1360     A     
 GEN                MI     X1,GENT5    IF LABEL                                            GEN         1361     A     
 GEN                                                                                       GEN         1362     A     
 GEN      **        WE HAVE AN ENTRY. NOW SET REG=G TABLE, WITH THE                        GEN         1363     A     
 GEN      *         THE ENTRY AND ENTRY GENERATED LABEL (EGL),AND CALL                     GEN         1364     A     
 GEN      *         W=ALENT (THE NORMAL ALT ENT CODE SKEL).                                GEN         1365     A     
 GEN                                                                                       GEN         1366     A     
 GEN                MX0    -WC.EGLL    SET EGL MASK                                        GEN         1367     A     
 GEN                =A1    A1-WB.W+WC.W      GET WC                                        GEN         1368     A     
 GEN                LX1    -WC.EGLP    POSITION EGL FIELD                                  GEN         1369     A     
 GEN                =A6    A5          RESET SYM TAB ORDINAL (ENT.STO)                     GEN         1370     A     
 GEN                LX6    P2.TAGP     POSITION TAG FOR GP PROCESSING                      GEN         1371     A     
 GEN                BX1    -X0*X1      EXTRACT EGL FIELD                                   GEN         1372     A     
 GEN                SA6    REG=G       (GP1) = ALTERNATE ENTRY TAG                         GEN         1373     A     
 GEN                SX7    X1+K2.GL                                                        GEN         1374     A     
 GEN                LX7    P2.TAGP     POSITION TAG FOR GP2                                GEN         1375     A     
 GEN                SA7    REG=G+1     (GP2) = EGL                                         GEN         1376     A     
 GEN                SX6    W=ALENT     SKELETON FOR STANDARD ENTRY CODE                    GEN         1377     A     
 GEN                SA7    ENT.EGL     SAVE ENTRY GENERATED LABEL TAG                      GEN         1378     A     
 GEN                EQ     SUB.RET                                                         GEN         1379     A     
 GEN       O=FPENT  SPACE  4,10                                                            GEN         1380     A     
 GEN      **        O=FPENT                                                                GEN         1381     A     
 GEN      *                DECIDES TO PROCEEDE WITH NORMAL ENTRY CODE OR TO                GEN         1382          I
          -FC50066
 GEN      *                DECIDES TO PROCEED WITH NORMAL ENTRY CODE OR TO                 FC50066       15     A     
 GEN      *                TO SANDWITCH IN FP CODE. NORMAL FP CODE IS GENERATED            GEN         1383     A     
 GEN      *                BY W=FPENT WHICH LEADS TO W=ADSUB (ADD SUB CODE) AND            GEN         1384     A     
 GEN      *                W=VDENT (VAR DIM) CALLS.                                        GEN         1385     A     
 GEN                                                                                       GEN         1386     A     
 GEN                                                                                       GEN         1387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=FPENT  BSSENT 0                                                               GEN         1388     A     
 GEN                SX6    0                                                               F2950F5A      14     A     
 GEN                SA6    =XENTRJ     FLAG NO RJ ISSUED SINCE CODE MODIFICATION           F2950F5A      15     A     
 GEN                                                                                       F2950F5A      16     A     
 GEN       FPENT1   BSS    0                                                               F2950F5A      17     A     
 GEN                SA4    ENT.STO     ENTRY POINT SYMORD                                  GEN         1389     A     
 GEN                RJ     ISA         ISSUE SAVE A0 OR RJ CPL.                            GEN         1390     A     
 GEN                SA4    ENT.STO                                                         GEN         1391     A     
 GEN                RJ     OSC         ISSUE SUB CODE                                      GEN         1392     A     
 GEN                RJ     OZC         ISSUE SUB0 CODE                                     GEN         1393     A     
 GEN                SA1    ENT.VD            GET VAR DIM FLAG                              GEN         1394     A     
 GEN                SA1    ENTRJ                                                           F2950F5A      18     A     
 GEN                NZ     X1,FPENT2   IF RJ ISSUED (OR NOT NEEDED)                        F2950F5A      19     A     
 GEN                SA2    N.GL                                                            F2950F5A      20     A     
 GEN                =X6    X2+1                                                            F2950F5A      21     A     
 GEN                SX4    X2+K.GL   TAG OF GL                                             F2950F5A      22     A     
 GEN                SA6    A2          N.GL = N.GL + 1                                     F2950F5A      23     A     
 GEN                ISSUE  I.RJ3,X4    RJ GL                                               F2950F5A      24     A     
 GEN                ISSUE  I.BSS,X4    GL BSS 0                                            F2950F5A      25     A     
 GEN                ISSUE  I.ZERO      BSS 1                                               F2950F5A      26     A     
 GEN                                                                                       F2950F5A      27     A     
 GEN       FPENT2   SA1    ENT.VD      VARDIM FLAG                                         F2950F5A      28     A     
 GEN                ZR     X1,EVD1     IF NO VARDIM CODE                                   GEN         1395     A     
 GEN                SHRINK T=PAR,0                                                         GEN         1396     A     
 GEN                SA5    T=VDIM      LENGTH OF THE SPARE I.L.                            GEN         1397     A     
 GEN                ALLOC  T.PAR,X5    GET SPACE FOR THE SPARE I.L.                        GEN         1398     A     
 GEN                SA2    T.VDIM      FWA OF VDIM I.L.                                    GEN         1399     A     
 GEN                SA3    T.PAR       DESTINATION OF VDIM I. L. MOVE                      GEN         1400     A     
 GEN                MOVE   X5,X2,X3    MOVE VDIM I. L. TO T.PAR                            GEN         1401     A     
 GEN                SA1    ALC.00                                                          GEN         1402     A     
 GEN                BX7    X1          UNLOCK (B4)                                         GEN         1403     A     
 GEN                SA7    ALC.REG                                                         GEN         1404     A     
 GEN                SA1    ENT.STO                                                         GEN         1405     A     
 GEN                RJ     MAV         MARK VD IN *VDI* ALLOWED FROM THSI ENTRY            GEN         1406     A     
 GEN                RJ     MVT         NO-OP STORES NOT APPLICABLE                         GEN         1407     A     
 GEN                CALL   PIG         PROCESS I.L. FOR GEN                                GEN         1408     A     
 GEN                SA1    ALC.CAI                                                         GEN         1409     A     
 GEN                BX7    X1          RESTORE (B4) LOCK -> (T.PAR)                        GEN         1410     A     
 GEN                SA7    ALC.REG                                                         GEN         1411     A     
 GEN                SA1    T.PAR                                                           GEN         1412     A     
 GEN                =B4    X1          SET B4 FOR EIS                                      GEN         1413     A     
 GEN                EQ     EIS.PNX     RESTART GEN TO PROCESS VAR DIM I. L.                GEN         1414     A     
 GEN                                                                                       F2950F5A      29     A     
 GEN       O=FPHDR  BSSENT 0                                                               F2950F5A      30     A     
 GEN                MX6    1                                                               F2950F5A      31     A     
 GEN                SA6    ENTRJ       FLAG RJ NOT NEEDED TO VOID HEADER                   F2950F5A      32     A     
 GEN                EQ     FPENT1                                                          F2950F5A      33     A     
 GEN      *CALL COMFISA                                                                    GEN         1415     A     
 GEN      *CALL COMFOSC                                                                    GEN         1416     A     
 GEN      *CALL COMFMAV                                                                    GEN         1417     A     
 GEN       MVT      SPACE  4,10                                                            GEN         1418     A     
 GEN      **        MVT - MARK VARDIM TURPLES NOT ALLOWED FOR THIS ENTRY.                  GEN         1419     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         1420     A     
 GEN       MVT      SUBR                                                                   GEN         1421     A     
 GEN                SA1    T.VDI                                                           GEN         1422     A     
 GEN                SA2    T.PAR                                                           GEN         1423     A     
 GEN                SA3    T=VDI                                                           GEN         1424     A     
 GEN                SX6    V=NOOP                                                          GEN         1425     A     
 GEN                LX6    TH.SKELP                                                        GEN         1426     A     
 GEN                =X0    O.NONE                                                          GEN         1427     A     
 GEN                LX0    TH.TBPRP                                                        GEN         1428          I
          -FC50104
 GEN                LX0    TH.OVALP                                                        FC50104      249     A     
 GEN                BX6    X6+X0                                                           GEN         1429     A     
 GEN                SA1    X1-1                                                            GEN         1430     A     
 GEN                SB7    X3                                                              GEN         1431     A     
 GEN                SB2    X2                                                              GEN         1432     A     
 GEN                SB7    A1+B7                                                           GEN         1433     A     
 GEN                                                                                       GEN         1434     A     
 GEN       MVT10    SB6    A1-B7                                                           GEN         1435     A     
 GEN                ZR     B6,EXIT.    IF VDI EXHAUSTED                                    GEN         1436     A     
 GEN                =A1    A1+1                                                            GEN         1437     A     
 GEN                HX1    VD.ALO                                                          GEN         1438     A     
 GEN                MI     X1,MVT10    IF THIS VD APPLIES TO THIS ENTRY POINT              GEN         1439     A     
 GEN                LX1    VD.ALOP+1-VD.LENP                                               GEN         1440     A     
 GEN                SB6    X1-1                                                            GEN         1441     A     
 GEN                ERRNZ  VD.LENL-18                                                      GEN         1442     A     
 GEN                LX1    VD.LENP-VD.PNTP                                                 GEN         1443     A     
 GEN                SX0    X1+B6                                                           GEN         1444     A     
 GEN                ERRNZ  VD.PNTL-18                                                      GEN         1445     A     
 GEN                LX1    B1,X0                                                           GEN         1446     A     
 GEN                IX0    X1+X0                                                           GEN         1447     A     
 GEN                SA6    B2+X0       STORE = NOOP                                        GEN         1448     A     
 GEN                EQ     MVT10                                                           GEN         1449     A     
 GEN                                                                                       GEN         1450     A     
 GEN      **        RETURN FROM PROCESSING VAR DIM  I. L.                                  GEN         1451     A     
 GEN      *         HERE WE RESET THE VD I. L. FOR THE NEXT ENTRY                          GEN         1452     A     
 GEN                                                                                       GEN         1453     A     
 GEN                                                                                       GEN         1454     A     
 GEN       O=EVD    BSSENT 0           END VARDIM                                          GEN         1455     A     
 GEN                DRITE  DEACTIVATE  CHECK DELAYED WRITE                                 GEN         1456     A     
 GEN                CALL   CIA         CLEAR REGFILE                                       GEN         1457     A     
 GEN       EVD1     SA1    ENT.EGL     GET ENTRY GENERATED LABEL                           GEN         1458     A     
 GEN                ZR     X1,O=FINX   IF PROCESSING MAIN ENTRY                            GEN         1459     A     
 GEN                ERRZR  K.GL                                                            GEN         1460     A     
 GEN                BX7    X1                                                              GEN         1461     A     
 GEN                SX6    W=TENT      SET TERMINATE ENTRY CODE                            GEN         1462     A     
 GEN                SA7    REG=G+1     SET GP2 FOR W=TENT                                  GEN         1463     A     
 GEN                EQ     SUB.RET                                                         GEN         1464     A     
 GEN       O=FUNT   SPACE  4,10                                                            GEN         1465     A     
 GEN      **        O=FUNT  SETS X6 AND X7 TO FUNCTION RESULT IF NEEDED.                   GEN         1466     A     
 GEN                                                                                       GEN         1467     A     
 GEN                                                                                       GEN         1468     A     
 GEN       O=FUNT   BSSENT 0                                                               GEN         1469     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA1    MOD         GET PROGRAM MODE                                    GEN         1470     A     
 GEN                SX6    W=TMENT     NORMAL TERMINAL CODE SKEL FOR MAIN ENTRY            GEN         1471     A     
 GEN                SBIT   X1,MO.FUNP                                                      GEN         1472     A     
 GEN                PL     X1,SUB.RET  IF NOT A FUNCTION                                   GEN         1473     A     
 GEN                LX1    MO.FUNP+1-MO.MODEP      POSITION MODE                           GEN         1474     A     
 GEN                MX0    -MO.MODEL   SET MODE MASK                                       GEN         1475     A     
 GEN                BX0    -X0*X1      EXTRACT MODE                                        GEN         1476     A     
 GEN                SB7    X0-M.CHAR                                                       GEN         1477     A     
 GEN                ZR     B7,SUB.RET  IF CHARACTER FUNCTION                               GEN         1478     A     
 GEN                SX6    W=DFENT                                                         GEN         1479     A     
 GEN                SA1    S=VALUE                                                         GEN         1480     A     
 GEN                SX1    X1+M.DBL                                                        GEN         1481     A     
 GEN                =X2    X1+M.CPLX-M.DBL                                                 GEN         1482     A     
 GEN                LX3    B1,X1                                                           GEN         1483     A     
 GEN                LX4    B1,X2                                                           GEN         1484     A     
 GEN                IX1    X3+X1                                                           GEN         1485     A     
 GEN                IX2    X4+X2                                                           GEN         1486     A     
 GEN                SA3    T.SYM                                                           GEN         1487     A     
 GEN                =B7    X3+WB.W                                                         GEN         1488     A     
 GEN                SA1    X1+B7                                                           GEN         1489     A     
 GEN                SA2    X2+B7                                                           GEN         1490     A     
 GEN                BX0    X1+X2                                                           GEN         1491     A     
 GEN                HX0    WB.1REF                                                         GEN         1492          I
          -FC5A191
 GEN                HX0    WB.MDF                                                          FC5A191       19     A     
 GEN                MI     X0,SUB.RET  IF THERE IS DOUBLE OR COMPLEX ENTRY                 GEN         1493     A     
 GEN                EQ     NULLOP      CONTINUE WITH SINGLE FUNCTION SKEL                  GEN         1494     A     
 GEN       O=MENT   SPACE  4,10                                                            GEN         1495     A     
 GEN      **        O=MENT MAIN ENTRY CODE PROCESSOR.                                      GEN         1496     A     
 GEN      *                CHOOSES BETWEEN FP MAIN ENTRY CODE AND NORMAL MAIN              GEN         1497     A     
 GEN      *                ENTRY CODE.                                                     GEN         1498     A     
 GEN                                                                                       GEN         1499     A     
 GEN                                                                                       GEN         1500     A     
 GEN       O=MENT   BSSENT 0                                                               GEN         1501     A     
 GEN                RJ     ICP         ISSUE CP. AND GPL. TABLES                           GEN         1502     A     
 GEN                SA1    MOD                                                             GEN         1503     A     
 GEN                MX0    -MO.CLIFL                                                       GEN         1504     A     
 GEN                LX1    -MO.CLIFP                                                       GEN         1505     A     
 GEN                BX1    -X0*X1                                                          GEN         1506     A     
 GEN                NZ     X1,MENT05   IF CHARACTER FUNCTION                               GEN         1507     A     
 GEN                SA1    N.FP        GET NUMBER OF FORMAL PARAMETERS                     GEN         1508     A     
 GEN                SX5    W=FUNT      FUNCTION ENTRY CODE SKELETON                        GEN         1509     A     
 GEN                ZR     X1,MENT1    IF NO FORMAL PAREMETERS                             GEN         1510     A     
 GEN                                                                                       GEN         1511     A     
 GEN       MENT05   SX5    W=MFPNT     SUBSKEL FOR MAIN ENTRY                              GEN         1512     A     
 GEN                                                                                       GEN         1513     A     
 GEN       MENT1    CBSS   0           FORCE UPPER ON START BLOCK                          GEN         1514     A     
 GEN                ISUSE  STRT        USE   START.                                        GEN         1515     A     
 GEN                SA2    CO.DBER                                                         GEN         1516     A     
 GEN                ZR     X2,MENT2    IF OTR DESELEDTED                                   GEN         1517     A     
 GEN                RJ     SOR         SET OBJECT TIME REPRIEVE                            GEN         1518     A     
 GEN                                                                                       GEN         1519     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       MENT2    SA1    S=EXIT                                                          GEN         1520     A     
 GEN                ISSUE  I.BSS,X1    EXIT. BSS 0                                         GEN         1521     A     
 GEN                SA1    =XN.ARP                                                         GEN         1522     A     
 GEN                ZR     X1,MENT25   IF NO ALT ENTRIES                                   GEN         1523     A     
 GEN                ISSUE  7110B       SX1 0                                               GEN         1524     A     
 GEN                SA1    S=AEXIT                                                         GEN         1525     A     
 GEN                ISSUE  I.BSS,X1    AEXIT. BSS 0                                        GEN         1526     A     
 GEN                                                                                       GEN         1527     A     
 GEN       MENT25   BX7    0                                                               GEN         1528     A     
 GEN                =X6    X5          (X6) = SUBSKEL ORDINAL                              GEN         1529     A     
 GEN                SA7    ENT.EGL     SET EGL FLAG TO INDICATE MAIN ENTRY                 GEN         1530     A     
 GEN                SA1    S=ENTRY                                                         GEN         1531     A     
 GEN                BX7    X1                                                              GEN         1532     A     
 GEN                SA7    ENT.STO     FLAG MAIN ENTRY                                     GEN         1533     A     
 GEN                EQ     SUB.RET                                                         GEN         1534     A     
 GEN                                                                                       GEN         1535     A     
 GEN       ENT.EGL  BSZENT 1           ENTRY GENERATED LABEL CELL                          GEN         1536     A     
 GEN       ENT.STO  BSZENT 1           SYM TAB ORDINAL FOR ENTRY SYM TAB SCAN.             GEN         1537     A     
 GEN       ENT.SUB  BSZENT 1           ADD SUB FLAG                                        GEN         1538     A     
 GEN       CC$SUB   EQU    ENT.SUB                                                         GEN         1539     A     
 GEN       ENT.SB0  BSZENT 1                                                               GEN         1540     A     
 GEN       CC$SUB0  EQU    ENT.SB0                                                         GEN         1541     A     
 GEN       ENT.VD   BSZENT 1           VARDIM I. L. FLAG                                   GEN         1542     A     
 GEN       N.ALTEN  BSZENT 1           ALTERNATE ENTRY COUNTER                             GEN         1543     A     
 GEN      *CALL COMFICP                                                                    GEN         1544     A     
 GEN       O=FIN    SPACE  4,10                                                            GEN         1545     A     
 GEN      **        O=FIN - END OF IL.                                                     GEN         1546     A     
 GEN      *                                                                                GEN         1547     A     
 GEN      *         ENTRY  (B4) = TURPLE.                                                  GEN         1548     A     
 GEN      *         EXIT   TO EISX.                                                        GEN         1549     A     
 GEN                                                                                       GEN         1550     A     
 GEN                                                                                       GEN         1551     A     
 GEN       O=FIN    BSSENT             ENTRY...                                            GEN         1552     A     
 GEN                SA2    MOD                                                             GEN         1553     A     
 GEN                HX2    MO.PRO                                                          GEN         1554     A     
 GEN                PL     X2,FIN3     IF A SUB PROGRAM                                    GEN         1555     A     
 GEN                CBSS   0           FORCE UPPER                                         GEN         1556     A     
 GEN                ISUSE  STRT        USE START                                           GEN         1557     A     
 GEN                SA2    CO.DBER                                                         GEN         1558     A     
 GEN                ZR     X2,FIN2     IF OTR DE-SELECTED                                  GEN         1559     A     
 GEN                RJ     SOR         SET OBJRCT TIME REPRIEVE                            GEN         1560     A     
 GEN       FIN2     SX6    W=PROM      SET MAIN PROGRAM SKELETON                           GEN         1561     A     
 GEN                EQ     SUB.RET     PROCESS MAIN PROLOGUE                               GEN         1562     A     
 GEN                                                                                       GEN         1563     A     
 GEN       FIN3     LX2    MO.PROP-MO.BLKP                                                 GEN         1564     A     
 GEN                MI     X2,O=FINX   IF BLOCK DATA, TERMINATE                            GEN         1565     A     
 GEN                RJ     OST         OUTPUT SUB TABLES                                   GEN         1566     A     
 GEN                SX6    W=PROS                                                          GEN         1567     A     
 GEN                EQ     SUB.RET     ISSUE PROLOG                                        GEN         1568     A     
 GEN                                                                                       GEN         1569     A     
 GEN      *         PROLOG SKELETONS RETURN TO O=FINX.                                     GEN         1570     A     
 GEN                                                                                       GEN         1571     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=FINX   BSSENT             ...RETURN FROM PROLOG SKELETONS                     GEN         1572     A     
 GEN                CBSS   0           FORCE UPPER ON START BLOCK                          GEN         1573     A     
 GEN                WPOP   I.EMI       END MACHINE INSTRUCTIONS                            GEN         1574     A     
 GEN                SA2    =XN.STMAX                                                       FC50138        5     A     
 GEN                SA3    =XN.ST                                                          FC50138        6     A     
 GEN                MX6    X2+X3                                                           FC50138        7     A     
 GEN                SA6    A2          MAX IN NEWEST TEMP VECTOR SIZE                      FC50138        8     A     
 GEN                CALL   ITS         ISSUE TEMP STORAGE                                  GEN         1575     A     
 GEN                SA1    T=CON                                                           GEN         1576     A     
 GEN                BX6    X1                                                              GEN         1577     A     
 GEN                SA6    N.CON       FOR PASS 3                                          GEN         1578     A     
 GEN                WPOP   OC$END,EISX       EXIT..                                        GEN         1579     A     
 GEN       OST      EJECT                                                                  GEN         1580     A     
 GEN      **        OST - OUTPUT SUB AND SUB0 INDEX TABLES.                                GEN         1581     A     
 GEN                                                                                       GEN         1582     A     
 GEN       OST      SUBR                                                                   GEN         1583     A     
 GEN                SA1    ENT.SUB                                                         GEN         1584     A     
 GEN                ZR     X1,OST10    IF NO SUBS                                          GEN         1585     A     
 GEN                ISUSE  SUB                                                             GEN         1586     A     
 GEN                SA1    S=SUB                                                           GEN         1587     A     
 GEN                ISSUE  I.BSS,X1    SUB. BSS 0                                          GEN         1588     A     
 GEN                ISUSE  TEM                                                             GEN         1589     A     
 GEN                SA1    S=SUBI                                                          GEN         1590     A     
 GEN                ISSUE  I.BSS,X1    SUBI. BSS 0                                         GEN         1591     A     
 GEN                =X6    0                                                               GEN         1592     A     
 GEN                RJ     OSI         ISSUE SUBI.                                         GEN         1593     A     
 GEN                                                                                       GEN         1594     A     
 GEN       OST10    ISUSE  TEM                                                             GEN         1595     A     
 GEN                SA1    S=SUB0I                                                         GEN         1596     A     
 GEN                ISSUE  I.BSS,X1    SUB0I. BSS 0                                        GEN         1597     A     
 GEN                =X6    1                                                               GEN         1598     A     
 GEN                RJ     OSI         ISSUE SUB0I.                                        GEN         1599     A     
 GEN                EQ     EXIT.                                                           GEN         1600     A     
 GEN       OSI      SPACE  4,10                                                            GEN         1601     A     
 GEN      **        OSI - ISSUE SUB INDEX TABLE.                                           GEN         1602     A     
 GEN      *                                                                                GEN         1603     A     
 GEN      *         ENTRY  X6 = 0/1 FOR SUB/SUB0                                           GEN         1604     A     
 GEN                                                                                       GEN         1605     A     
 GEN       OSI      SUBR                                                                   GEN         1606     A     
 GEN                SA6    OSIA                                                            GEN         1607     A     
 GEN                MX7    0                                                               GEN         1608     A     
 GEN                SA7    OSIB                                                            GEN         1609     A     
 GEN                SA7    OSID        TOTAL = 0                                           GEN         1610     A     
 GEN                SA1    T.ENTP                                                          GEN         1611     A     
 GEN                =A0    -1                                                              GEN         1612     A     
 GEN                SB5    X1                                                              GEN         1613     A     
 GEN                EQ     OSI20                                                           GEN         1614     A     
 GEN                                                                                       GEN         1615     A     
 GEN      *         ISSUE ZERO TERMINATOR FOR THIS LIST.                                   GEN         1616     A     
 GEN                                                                                       GEN         1617     A     
 GEN       OSI10    SA2    OSIB                                                            GEN         1618     A     
 GEN                SA4    OSID                                                            GEN         1619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                IX1    X4-X2                                                           GEN         1620     A     
 GEN                ZR     X1,OSI20    IF NO SUBS THIS LIST                                GEN         1621     A     
 GEN                ISSUE  I.ZERO                                                          GEN         1622     A     
 GEN                SA1    T.ENTP                                                          GEN         1623     A     
 GEN                SB5    X1                                                              GEN         1624     A     
 GEN                SA1    OSIB                                                            GEN         1625     A     
 GEN                SX6    X1+B1       TOTAL = TOTAL + 1                                   GEN         1626     A     
 GEN                SA6    A1                                                              GEN         1627     A     
 GEN                SA6    A4          NEW LEN = TOTAL                                     GEN         1628     A     
 GEN                SX6    X4+B1                                                           GEN         1629     A     
 GEN                SA1    OSIC                                                            GEN         1630     A     
 GEN                SA2    X1+B5                                                           GEN         1631     A     
 GEN                SA1    OSIA                                                            GEN         1632     A     
 GEN                SA1    OSIS+X1                                                         GEN         1633     A     
 GEN                SB3    X1                                                              GEN         1634     A     
 GEN                LX6    B3                                                              GEN         1635     A     
 GEN                BX7    X2+X6                                                           GEN         1636     A     
 GEN                SA7    A2          SUBI[ENTP(I)] = OLD SUBI LEN+1                      GEN         1637     A     
 GEN                                                                                       GEN         1638     A     
 GEN       OSI20    SA0    A0+2        SKIP HEADER                                         GEN         1639     A     
 GEN                SX6    A0-B1       POINTS TO HEADER                                    GEN         1640     A     
 GEN                SA5    B5+A0                                                           GEN         1641     A     
 GEN                SA6    OSIC                                                            GEN         1642     A     
 GEN                SA1    T=ENTP                                                          GEN         1643     A     
 GEN                SB7    X1                                                              GEN         1644     A     
 GEN                SB7    A0-B7                                                           GEN         1645     A     
 GEN                PL     B7,EXIT.    IF ENTP FINISHED                                    GEN         1646     A     
 GEN                SB6    60                                                              GEN         1647     A     
 GEN                                                                                       GEN         1648     A     
 GEN       OSI30    NZ     B6,OSI40    IF THIS WORD NOT EXHAUSTED                          GEN         1649     A     
 GEN                SB6    60                                                              GEN         1650     A     
 GEN                =A0    A0+1                                                            GEN         1651     A     
 GEN                SA5    B5+A0                                                           GEN         1652     A     
 GEN                                                                                       GEN         1653     A     
 GEN       OSI40    SB6    B6-15                                                           GEN         1654     A     
 GEN                MX0    -EF.ORDL                                                        GEN         1655     A     
 GEN                AX3    B6,X5                                                           GEN         1656     A     
 GEN                BX6    -X0*X3                                                          GEN         1657     A     
 GEN                ZR     X6,OSI10    IF END OF LIST                                      GEN         1658     A     
 GEN                SA1    T.SYM                                                           GEN         1659     A     
 GEN                LX7    B1,X6                                                           GEN         1660     A     
 GEN                IX3    X7+X6                                                           GEN         1661     A     
 GEN                =B7    X1+WB.W                                                         GEN         1662     A     
 GEN                SA1    B7+X3                                                           GEN         1663     A     
 GEN                MX0    -WB.FPNOL                                                       GEN         1664     A     
 GEN                SA2    =XT.FPI                                                         GEN         1665     A     
 GEN                LX1    -WB.FPNOP                                                       GEN         1666     A     
 GEN                BX1    -X0*X1                                                          GEN         1667     A     
 GEN                IX3    X1+X2                                                           GEN         1668     A     
 GEN                SA3    X3-1                                                            GEN         1669     A     
 GEN                SA4    OSIA                                                            GEN         1670     A     
 GEN                SA2    OSIM2+X4                                                        GEN         1671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX0    X2*X3                                                           GEN         1672     A     
 GEN                ZR     X0,OSI30    IF THIS FP NOT APPLICABLE                           GEN         1673     A     
 GEN                SA2    OSIM3+X4                                                        GEN         1674     A     
 GEN                BX0    X2*X3                                                           GEN         1675     A     
 GEN                ZR     X0,OSI30    IF SUB0 AND NOT LEVEL 0                             GEN         1676     A     
 GEN                SA1    OSIO+X4     INSTRUCTION OPCODE                                  GEN         1677     A     
 GEN                ISSUE  X1,X6                                                           GEN         1678     A     
 GEN                SA1    OSIB                                                            GEN         1679     A     
 GEN                =X6    X1+1                                                            GEN         1680     A     
 GEN                SA6    A1          TOTAL = TOTAL + 1                                   GEN         1681     A     
 GEN                SA1    T.ENTP                                                          GEN         1682     A     
 GEN                SB5    X1                                                              GEN         1683     A     
 GEN                EQ     OSI30                                                           GEN         1684     A     
 GEN                                                                                       GEN         1685     A     
 GEN       OSIA     BSS    1                                                               GEN         1686     A     
 GEN       OSIB     BSSZ   1                                                               GEN         1687     A     
 GEN       OSIC     BSS    1                                                               GEN         1688     A     
 GEN       OSID     BSSZ   1                                                               GEN         1689     A     
 GEN       OSIS     CON    EH.SUBIP,EH.SB0IP                                               GEN         1690     A     
 GEN       OSIO     CON    I.SUBI,I.SB0I                                                   GEN         1691     A     
 GEN       OSIM2    BFMW   FP,LEN                                                          GEN         1692     A     
 GEN                BFMW   FP,(VDS,SUB0)                                                   GEN         1693     A     
 GEN       OSIM3    VFD    60/-0                                                           GEN         1694     A     
 GEN                BFMW   FP,LEV0                                                         GEN         1695     A     
 GEN       O=GFD    SPACE  4,10                                                            GEN         1696     A     
 GEN      **        O=GFD - GENERATE FILE DECLARATION.                                     GEN         1697     A     
 GEN      *                                                                                GEN         1698     A     
 GEN      *         ENTRY  (B4) -> (V=FILE) TURPLE.                                        GEN         1699     A     
 GEN      *                (1OP.BIAS) = FILE TABLE INDEX.                                  GEN         1700     A     
 GEN      *                                                                                GEN         1701     A     
 GEN      *         EXIT   TO EIS.PNX                                                      GEN         1702     A     
 GEN                                                                                       GEN         1703     A     
 GEN                                                                                       GEN         1704     A     
 GEN       TP       MICRO  1,, P2                                                          GEN         1705     A     
 GEN                                                                                       GEN         1706     A     
 GEN                                                                                       GEN         1707     A     
 GEN       O=GFD    BSSENT 0           ENTRY...                                            GEN         1708     A     
 GEN                SB5    B4                                                              GEN         1709     A     
 GEN      *CALL     COMFGFD                  GENERATE FILE DECLARATIONS                    GEN         1710     A     
 GEN                SB4    B4+Z=TURP                                                       GEN         1711     A     
 GEN                EQ     EIS.PNX                                                         GEN         1712     A     
 GEN       O=HDR    SPACE  4,10                                                            GEN         1713     A     
 GEN      **        O=HDR - BEGINNING OF PROGRAM-UNIT.                                     GEN         1714     A     
 GEN      *                                                                                GEN         1715     A     
 GEN      *         ENTRY  (B4) = TURPLE.                                                  GEN         1716     A     
 GEN      *         EXIT   TO EIS.PNX .                                                    GEN         1717     A     
 GEN                                                                                       GEN         1718     A     
 GEN                                                                                       GEN         1719     A     
 GEN       O=HDR    BSSENT             ENTRY...                                            GEN         1720     A     
 GEN                SB4    B4+Z=TURP                                                       GEN         1721     A     
 GEN                WPOP   OC$IDNT                                                         GEN         1722     A     
 GEN                SA2    MOD                                                             GEN         1723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                HX2    MO.BLK                                                          GEN         1724     A     
 GEN                MI     X2,EIS.PNX  IF BLOCKDATA, NO TRACE WORD                         GEN         1725     A     
 GEN                WPOP   OC$TRAC                                                         GEN         1726     A     
 GEN                SA2    MOD                                                             GEN         1727     A     
 GEN                HX2    MO.PRO                                                          GEN         1728     A     
 GEN                SA1    S=UPW                                                           GEN         1729     A     
 GEN                PL     X2,HDR6     IF NOT MAIN PROGRAM                                 GEN         1730     A     
 GEN                ZR     X1,EIS.PNX  IF NO FILE ARGUMENTS                                GEN         1731     A     
 GEN                ISSUE  OC$BSS,X1   UPW.  BSS 0                                         GEN         1732     A     
 GEN                SA2    NARGS                                                           GEN         1733     A     
 GEN                SX7    X2+B1                                                           GEN         1734     A     
 GEN                LX1    X7,B1       FILETAB LEN = 2 * (NARGS + 1)                       GEN         1735     A     
 GEN                LX1    -PB.TAGP+PB.BIASP                                               GEN         1736     A     
 GEN                ISSUE  OC$FVEC,X1,EIS.PNX                                              GEN         1737     A     
 GEN                                                                                       GEN         1738     A     
 GEN       HDR6     SA1    S=SA1                                                           GEN         1739     A     
 GEN                ISSUE  OC$BSS,X1   SAVEA1 BSS 0                                        GEN         1740     A     
 GEN                WPOP   I.ZERO                                                          FC5A436       20     A     
 GEN                                                                                       FC5A436       21     A     
 GEN      *         CID REQUIRES SAVEA0 TO BE AT SAVEA1+1.                                 FC5A436       22     A     
 GEN                                                                                       FC5A436       23     A     
 GEN                SA1    S=SA0                                                           FC5A436       24     A     
 GEN                ISSUE  OC$BSS,X1   SAVEA0  BSS  0                                      FC5A436       25     A     
 GEN                WPOP   OC$BMI                                                          GEN         1741     A     
 GEN                WPOP   I.ZERO                                                          GEN         1742     A     
 GEN                WPOP   I.EMI,EIS.PNX                                                   GEN         1743     A     
 GEN       DATA     SPACE  4,10                                                            GEN         1744     A     
 GEN      **        DATA - PROCESS DATA TURPLE AND TABLE.                                  GEN         1745     A     
 GEN                                                                                       GEN         1746     A     
 GEN                                                                                       GEN         1747     A     
 GEN       O=DATA   BSSENT 0                                                               GEN         1748     A     
 GEN                SA1    T=DATS                                                          GEN         1749     A     
 GEN                BX4    X1                                                              GEN         1750     A     
 GEN                LX1    PB.BIASP-PB.TAGP                                                GEN         1751     A     
 GEN                ISSUE  I.DATA,X1                                                       GEN         1752     A     
 GEN                                                                                       GEN         1753     A     
 GEN                SB5    0                                                               GEN         1754     A     
 GEN                SB6    X4                                                              GEN         1755     A     
 GEN                SB2    DATA10      EXIT FROM WTE                                       GEN         1756     A     
 GEN                                                                                       GEN         1757     A     
 GEN       DATA10   SA1    T.DATS                                                          GEN         1758     A     
 GEN                EQ     B5,B6,DATA20      IF DATA TABLE EXHAUSTED                       GEN         1759     A     
 GEN                SA5    X1+B5                                                           GEN         1760     A     
 GEN                BX7    X5                                                              GEN         1761     A     
 GEN                SB5    B5+1                                                            GEN         1762     A     
 GEN                JP     WTE         WRITE DATA TABLE ENTRY TO PREBINARY                 GEN         1763     A     
 GEN                                                                                       GEN         1764     A     
 GEN       DATA20   SHRINK T=DATS,0                                                        GEN         1765     A     
 GEN                EQ     NULLOP                                                          GEN         1766     A     
 GEN       O=ILL    SPACE  4,8                                                             GEN         1767     A     
 GEN      **        O=ILL - TURPLE CODE LOST.                                              GEN         1768     A     
 GEN                                                                                       GEN         1769     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=ILL    BSSENT                                                                 GEN         1770     A     
 GEN                EQ     "BLOWUP"                                                        GEN         1771     A     
 GEN       O=LCC    SPACE  4,10                                                            GEN         1772     A     
 GEN      **        O=LCC - LOADER CONTROL CARD.                                           GEN         1773     A     
 GEN      *                                                                                GEN         1774     A     
 GEN      *         ENTRY  (B4) = TURPLE.                                                  GEN         1775     A     
 GEN      *         EXIT   TO EIS.PNX .                                                    GEN         1776     A     
 GEN                                                                                       GEN         1777     A     
 GEN                                                                                       GEN         1778     A     
 GEN       O=LCC    BSSENT             ENTRY...                                            GEN         1779     A     
 GEN                =A1    B4+OR.1OP                                                       GEN         1780     A     
 GEN                SX7    OC$LCC                                                          GEN         1781     A     
 GEN                LX1    0-P2.BIASP+PB.BIASP                                             GEN         1782     A     
 GEN                LX7    PB.GHIJP                                                        GEN         1783     A     
 GEN                =A2    B4+OR.2OP                                                       GEN         1784     A     
 GEN                BX7    X7+X1                                                           GEN         1785     A     
 GEN                LX2    0-P2.BIASP+PB.TAGP                                              GEN         1786     A     
 GEN                BX7    X7+X2                                                           GEN         1787     A     
 GEN                SB4    B4+Z=TURP                                                       GEN         1788     A     
 GEN                WCODE  X7,EIS.PNX                                                      GEN         1789     A     
 GEN       O=PLIM   SPACE  4,10                                                            GEN         1790     A     
 GEN      **        O=PLIM - MARK END OF FILE DEFINITIONS.                                 GEN         1791     A     
 GEN                                                                                       GEN         1792     A     
 GEN                                                                                       GEN         1793     A     
 GEN       O=PLIM   BSSENT             ENTRY...                                            GEN         1794     A     
 GEN                SB4    B4+Z=TURP                                                       GEN         1795     A     
 GEN      *CALL COMFPLI                ISSUE QXNTRY. APLIST                                GEN         1796     A     
 GEN                EQ     EIS.PNX                                                         GEN         1797     A     
 GEN       O=RGT    SPACE  4,10                                                            GEN         1798     A     
 GEN      **        O=RGT - ALTERNATE RETURN                                               GEN         1799     A     
 GEN                                                                                       GEN         1800     A     
 GEN                                                                                       GEN         1801     A     
 GEN       O=RGT    BSSENT 0                                                               GEN         1802     A     
 GEN                MX2    P2.BIASL                                                        GEN         1803     A     
 GEN                LX2    P2.BIASL+P2.BIASP                                               GEN         1804     A     
 GEN                =A1    B4+OR.2OP                                                       GEN         1805     A     
 GEN                BX3    X1-X2       NEGATE BIAS                                         GEN         1806     A     
 GEN                MX1    1                                                               GEN         1807     A     
 GEN                BX3    X2*X3                                                           GEN         1808     A     
 GEN                LX1    1+P2.SHRTP                                                      GEN         1809     A     
 GEN                BX6    X1+X3                                                           GEN         1810     A     
 GEN                SA6    REG=G+1     GL2 = -2OP                                          GEN         1811     A     
 GEN                =A5    B4+OR.1OP                                                       GEN         1812     A     
 GEN                SA3    UAP                                                             GEN         1813     A     
 GEN                SX1    X3+K2.AP                                                        GEN         1814     A     
 GEN                LX1    P2.ORDP                                                         GEN         1815     A     
 GEN                LX5    -P2.BIASP                                                       GEN         1816     A     
 GEN                SX6    X5                                                              GEN         1817     A     
 GEN                LX6    P2.BIASP                                                        GEN         1818     A     
 GEN                BX6    X1+X6                                                           GEN         1819     A     
 GEN                SA6    REG=G       GL1 = APIND + BIAS[OP1]                             GEN         1820     A     
 GEN                EQ     NULLOP      CONTINUE WITH SKEL                                  GEN         1821     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=SEX    SPACE  4,10                                                            GEN         1822     A     
 GEN      **        O=SEX  - START EXECUTABLES.                                            GEN         1823     A     
 GEN      *                                                                                GEN         1824     A     
 GEN      *         ENTRY  (B4) = TURPLE                                                   GEN         1825     A     
 GEN      *         EXIT   TO EIS.PNX                                                      GEN         1826     A     
 GEN      *         CALLS  CBSS, SOR, WCODE.                                               GEN         1827     A     
 GEN                                                                                       GEN         1828     A     
 GEN                                                                                       GEN         1829     A     
 GEN       O=SEX    BSSENT             ENTRY...                                            GEN         1830     A     
 GEN                SB4    B4+Z=TURP                                                       GEN         1831     A     
 GEN                ISUSE$ CON         USE CON.                                            GEN         1832     A     
 GEN                WPOP   OC$CON      PROCESS LITERALS                                    GEN         1833     A     
 GEN                ISUSE$ FMT         USE FMT.                                            GEN         1834     A     
 GEN                WPOP   OC$FMT      PROCESS FORMATS                                     GEN         1835     A     
 GEN                WPOP   OC$DATA     PROCESS DATA STATEMENTS                             GEN         1836          I
          -FC5A132
 GEN                ISUSE$ APL         USE APL.                                            GEN         1837     A     
 GEN                WPOP   OC$APL      PROCESS AP-LIST                                     GEN         1838     A     
 GEN                ISUSE$ IOAP        USE IOAPL.                                          GEN         1839     A     
 GEN                WPOP   OC$IOM      PROCESS I/O APLISTS.                                GEN         1840     A     
 GEN                ISUSE$ NLST        USE NLST.                                           GEN         1841     A     
 GEN                WPOP   OC$NLST     PROCESS NAMELIST DEFS                               GEN         1842     A     
 GEN                SX2    BN=CODE                                                         GEN         1843     A     
 GEN                SX6    OC$USE                                                          GEN         1844     A     
 GEN                LX2    PB.BIASP                                                        GEN         1845     A     
 GEN                LX6    PB.GHIJP                                                        GEN         1846     A     
 GEN                BX7    X2+X6       ISSUE   * USE  CODE. *                              GEN         1847     A     
 GEN                WCODE  X7                                                              GEN         1848     A     
 GEN                SX6    I.LOO                                                           GEN         1849     A     
 GEN                SA6    OCIOL       CURRENT OBJECT ON/OFF OPCODE                        GEN         1850     A     
 GEN                WPOP   OC$BMI,EIS.PNX    BEGIN MACHINE INSTRUCTIONS                    GEN         1851     A     
 GEN       SOR      SPACE  4,10                                                            GEN         1852     A     
 GEN      **        SOR -  SET OBJECT TIME REPRIEVE CODE                                   GEN         1853     A     
 GEN      *                                                                                GEN         1854     A     
 GEN      *         ISSUES OBJECT-TIME-REPRIEVE HEADER --                                  GEN         1855     A     
 GEN      *                        +   SB0   B2-LEN.      CT.LENP = L.10                   GEN         1856     A     
 GEN      *                            SB0   B2+TRACE.    CT.TRAC = L.0                    GEN         1857     A     
 GEN      *         CALLS  WCODE.                                                          GEN         1858     A     
 GEN      *                                                                                GEN         1859     A     
 GEN      *         EXIT   TO CALLER                                                       GEN         1860     A     
 GEN                                                                                       GEN         1861     A     
 GEN       SOR      SUBR   0                                                               GEN         1862     A     
 GEN                SX4    I.OTR                                                           GEN         1863     A     
 GEN                SA2    S=LENP                                                          GEN         1864     A     
 GEN                =X2    X2+K.SYM                                                        GEN         1865     A     
 GEN                LX4    PB.GHIJP                                                        GEN         1866     A     
 GEN                LX2    PB.TAGP                                                         GEN         1867     A     
 GEN                BX7    X2+X4       12/I.OTR,18/TAG OF LENGTH WORD,30/0                 GEN         1868     A     
 GEN                WCODE  X7          SB0    B2-LEN.                                      GEN         1869     A     
 GEN                SX2    SB=BK+2S3   AVOID FORCE UPPER WITH REAL INST                    GEN         1870     A     
 GEN                LX2    PB.INSTP                                                        GEN         1871     A     
 GEN                SA3    S=TRACE                                                         GEN         1872     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                =X4    X3+K.SYM                                                        GEN         1873     A     
 GEN                LX4    PB.TAGP                                                         GEN         1874     A     
 GEN                IX7    X2+X4       12/6102,18/TAG OF TRACE WORD,30/0                   GEN         1875     A     
 GEN                WCODE  X7,EXIT.    SB0   B2+L.0                                        GEN         1876     A     
 GEN                TITLE  PROCESSORS TO SELECT SUB-SKELETONS.                             GEN         1877     A     
 GEN       O=IM     SPACE  4,10                                                            GEN         1878     A     
 GEN      **        O=IM - INTEGER MULTIPLY.                                               GEN         1879     A     
 GEN                                                                                       GEN         1880     A     
 GEN                                                                                       GEN         1881     A     
 GEN       O=IM     BSSENT 0           ENTRY...                                            GEN         1882     A     
 GEN                SX6    W=IMV       GENERAL INTEGER MULTIPLY                            GEN         1883     A     
 GEN                EQ     SUB.RET                                                         GEN         1884     A     
 GEN       O=ID     SPACE  4,10                                                            GEN         1885     A     
 GEN      **        O=ID - INTEGER DIVIDE.                                                 GEN         1886     A     
 GEN                                                                                       GEN         1887     A     
 GEN                                                                                       GEN         1888     A     
 GEN       O=ID     BSSENT 0                                                               GEN         1889     A     
 GEN                SX6    W=IDV       GENERAL INTEGER DIVIDE                              GEN         1890     A     
 GEN                EQ     SUB.RET                                                         GEN         1891     A     
 GEN       O=MASK   SPACE  4,10                                                            GEN         1892     A     
 GEN      **        O=MASK - SELECT MASK GENERATION CODE.                                  GEN         1893     A     
 GEN                                                                                       GEN         1894     A     
 GEN                                                                                       GEN         1895     A     
 GEN       O=MASK   BSSENT 0                                                               GEN         1896     A     
 GEN                SX6    W=MASKV     SET GENERAL MASK                                    GEN         1897     A     
 GEN                EQ     SUB.RET                                                         GEN         1898     A     
 GEN       O=MOD    SPACE  4,10                                                            GEN         1899     A     
 GEN      **        O=MOD - SELECT CODE FOR MODULUS FUNCTION.                              GEN         1900     A     
 GEN                                                                                       GEN         1901     A     
 GEN                                                                                       GEN         1902     A     
 GEN       O=MOD    BSSENT 0                                                               GEN         1903     A     
 GEN                SX6    W=MODG      SET GENERAL MODULUS SKEL                            GEN         1904     A     
 GEN                EQ     SUB.RET                                                         GEN         1905     A     
 GEN                SPACE  4,8                                                             GEN         1906     A     
 GEN      *         O=SHIFT - SELECT SUBSKEL FOR SHIFT FUNCTION                            GEN         1907     A     
 GEN                                                                                       GEN         1908     A     
 GEN       O=SHIFT  BSSENT 0                                                               GEN         1909     A     
 GEN                SX6    W=SHIFV     SET GENERAL SHIFT SKEL                              GEN         1910     A     
 GEN                EQ     SUB.RET                                                         GEN         1911     A     
 GEN                TITLE  (O=DO)  DO LOOP SKELETON PROCESSORS.                            GEN         1912     A     
 GEN       O=DOB    SPACE  4,10                                                            GEN         1913     A     
 GEN      **        O=DOB - FINAL ACTION OF A DO-BEGIN SKELETON.                           GEN         1914     A     
 GEN      *                                                                                GEN         1915     A     
 GEN      *         ENTRY  (X1) = DO-TOP LABEL OPERAND.                                    GEN         1916     A     
 GEN      *                                                                                GEN         1917     A     
 GEN      *         EXIT   TO O=CBSS --                                                    GEN         1918     A     
 GEN      *                (X1) = DO-TOP LABEL OPERAND.                                    GEN         1919     A     
 GEN      *                (B4) ADVANCED OVER MEGA-TURPLE.                                 GEN         1920     A     
 GEN                                                                                       GEN         1921     A     
 GEN                                                                                       GEN         1922     A     
 GEN       O=DOB    BSSENT 0           ENTRY...                                            GEN         1923     A     
 GEN                SB4    B4+2*Z=TURP ADVANCE REST OF MEGATURP                            GEN         1924     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                EQ     O=CBSS                                                          GEN         1925     A     
 GEN       O=DOBZ   SPACE 4,10                                                             GEN         1926     A     
 GEN      **        O=DOBZ - BEGIN ZERO TRIP DO LOOP                                       GEN         1927     A     
 GEN      *         DOBZ CREATES A 1 SUBTRACT FROM TRIP COUNT.                             GEN         1928     A     
 GEN      *         ITS ONLY JOB IS TO CREATE A GENERATED L                                GEN         1929     A     
 GEN      *         OPERAND (GL1) WHICH IS A SHORT CONSTANT  1.                            GEN         1930     A     
 GEN      *                                                                                GEN         1931     A     
 GEN      *         ENTRY  NONE                                                            GEN         1932     A     
 GEN      *                                                                                GEN         1933     A     
 GEN      *         EXIT   (REG=G) = I. L. FORMAT ENTRY FOR SHORT CON -1                   GEN         1934     A     
 GEN      *                                                                                GEN         1935     A     
 GEN      *         SAVES  A4,X4,B4                                                        GEN         1936     A     
 GEN                                                                                       GEN         1937     A     
 GEN                                                                                       GEN         1938     A     
 GEN                                                                                       GEN         1939     A     
 GEN       O=DOBZ   BSSENT 0                                                               GEN         1940     A     
 GEN                =X0    1                                                               GEN         1941     A     
 GEN                MX2    1                                                               GEN         1942     A     
 GEN                LX0    P2.SHRTP    SET SHORT CONSTANT BIT                              GEN         1943     A     
 GEN                =X6    0           USE COUNT INCRIMENT = 0                             GEN         1944     A     
 GEN                LX2    1+P2.BIASP  POSITION CONSTANT                                   GEN         1945     A     
 GEN                BX2    X2+X0       CONSTRUCT STATUS WORD                               GEN         1946     A     
 GEN                RJ     POS         PREPARE OPERAND STATUS WORD                         GEN         1947     A     
 GEN                SA6    REG=G       SET GL1                                             GEN         1948     A     
 GEN                EQ     NULLOP                                                          GEN         1949     A     
 GEN       O=DOC    SPACE  4,10                                                            GEN         1950     A     
 GEN      **        O=DOC - FIRST ACTION OF A DO CONCLUSION SKELETON.                      GEN         1951     A     
 GEN      *                                                                                GEN         1952     A     
 GEN      *         ENTRY  (X1) = 0, IFF (DO=SHORT) LOOP CONCLUDING.                       GEN         1953     A     
 GEN      *                                                                                GEN         1954     A     
 GEN      *         EXIT   TO *EIS.LNX* = CONTINUE WITH SKELETON.                          GEN         1955     A     
 GEN      *                (GL1) = SHORT CONSTANT -1.                                      GEN         1956     A     
 GEN                                                                                       GEN         1957     A     
 GEN                                                                                       GEN         1958     A     
 GEN       O=DOC    BSSENT 0           ENTRY...                                            GEN         1959     A     
 GEN                MX1    P2.BIASL-1                                                      GEN         1960     A     
 GEN                CLAS=  X3,P2,(SHRT)                                                    GEN         1961     A     
 GEN                LX1    P2.BIASL+P2.BIASP                                               GEN         1962     A     
 GEN                BX2    X3+X1                                                           GEN         1963     A     
 GEN                SX6    B0                                                              GEN         1964     A     
 GEN                CALL   POS         PROCESS OPERAND STATUS                              GEN         1965     A     
 GEN                SA6    REG=G       SET (GL1) = MINUS ONE                               GEN         1966     A     
 GEN                EQ     EIS.LNX     EXIT..                                              GEN         1967     A     
 GEN       O=DOEND  SPACE  4,10                                                            GEN         1968     A     
 GEN       O=PDE    SPACE  4,10                                                            GEN         1969     A     
 GEN      **        O=PDE - FINAL ACTION OF A DO-CONCLUSION SKELETON.                      GEN         1970     A     
 GEN      *                                                                                GEN         1971     A     
 GEN      *         O=PDE IS MAINLY PROVIDED FOR COMPATIBILITY WITH THE BRIDGE --          GEN         1972     A     
 GEN      *         ITS FUNCTION IS NOT NECESSARY TO QCG, BUT IS POSSIBLY A SLIGHT         GEN         1973     A     
 GEN      *         EFFICIENCY IMPROVEMENT.                                                GEN         1974     A     
 GEN      *                                                                                GEN         1975     A     
 GEN      *         EXIT   TO *EIS.PNX*.                                                   GEN         1976     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *                (B4) ADVANCED OVER MEGATURPLE.                                  GEN         1977     A     
 GEN                                                                                       GEN         1978     A     
 GEN                                                                                       GEN         1979     A     
 GEN       O=PDE    BSSENT 0           ENTRY/EXIT...                                       GEN         1980     A     
 GEN                SB4    B4+2*Z=TURP ADVANCE OVER MEGA-TURPLE                            GEN         1981     A     
 GEN                EQ     EIS.PNX     EXIT..                                              GEN         1982     A     
 GEN                TITLE  (O=GO)  COMPUTED GOTO PROCESSOR.                                GEN         1983     A     
 GEN       O=CGT    SPACE  4,10                                                            GEN         1984     A     
 GEN      **        O=CGT  COMPUTED GOTO PROCESSOR                                         GEN         1985     A     
 GEN      *                HERE THE KEY DECISION IS WHETHER THE LINE NUMBER                GEN         1986     A     
 GEN      *                IS GREATER THAN 7777B. THE REASON FOLLOWS:                      GEN         1987     A     
 GEN      *                THE ACTUAL JUMP CODE HAS THE FORM  JP   B6+L.N                  GEN         1988     A     
 GEN      *                                             L.N   RGT  =XGOTOER.               GEN         1989     A     
 GEN      *                                                   EQ   TAG1                    GEN         1990     A     
 GEN      *                                                   ........                     GEN         1991     A     
 GEN      *                                                   EQ   TAGN                    GEN         1992     A     
 GEN      *                    TWELVE BITS OF THE RJT WORD RESERVED FOR THE                GEN         1993     A     
 GEN      *                LINE NUMBER(TRACEBACK). IF LINE NO.IS GREATER THAN              GEN         1994     A     
 GEN      *                7777B ANOTHER WORD IS USED TO CARRY THE LINE NO.                GEN         1995     A     
 GEN      *                NOW, THE GOC SUB-SKELS SET B6, AND THUS MUST BE                 GEN         1996     A     
 GEN      *                DIFFER TO ACCOUNT FOR THE EXTRA WORD.IN BOTH CASES              GEN         1997     A     
 GEN      *                B6 IS ZERO IF THE CONTROL VARIABLE IS NOT BETWEEN               GEN         1998     A     
 GEN      *                1 AND N. OTHERWISE B6 POINTS TO THE APPROPRIATE                 GEN         1999     A     
 GEN      *                EQ   TAGI .                                                     GEN         2000     A     
 GEN                                                                                       GEN         2001     A     
 GEN       O=PCG    SPACE  4,10                                                            GEN         2002     A     
 GEN      **        SET UP GP AND SUBSKEL ORDINAL FOR COMPUTED GO TO.                      GEN         2003     A     
 GEN                                                                                       GEN         2004     A     
 GEN                                                                                       GEN         2005     A     
 GEN       O=PCG    BSSENT 0                                                               GEN         2006     A     
 GEN                SA5    N.GL        GET GL ORDINAL                                      GEN         2007     A     
 GEN                =X1    I.JPI+6S12  OPCODE FOR INDEX JUMP +6 FOR B6                     GEN         2008     A     
 GEN                ERRNZ  PB.BJRP                                                         GEN         2009     A     
 GEN                ERRNZ  12-PB.GHIJL                                                     GEN         2010     A     
 GEN                =X6    X5+1                                                            GEN         2011     A     
 GEN                SX5    X5+K.GL     ADD ON GL PREFIX                                    GEN         2012     A     
 GEN                ERRMI  K.GL                                                            GEN         2013     A     
 GEN                LX1    PB.GHIJP    POSITION OPCODE AND B6 INDICATOR                    GEN         2014     A     
 GEN                =A6    A5          RESET GL COUNTER                                    GEN         2015     A     
 GEN                LX5    PB.TAGP     POSITION TAG                                        GEN         2016     A     
 GEN                IX7    X1+X5       ADD TAG TO OPCODE + B6 INDICATOR                    GEN         2017     A     
 GEN                WCODE  X7          WRITE: JP  B6+GL.N                                  GEN         2018     A     
 GEN                =X7    I.BSS                                                           GEN         2019     A     
 GEN                LX7    PB.GHIJP                                                        GEN         2020     A     
 GEN                IX7    X7+X5                                                           GEN         2021     A     
 GEN                WCODE  X7,NULLOP   WRITE:  GL.N   BSS  0                               GEN         2022     A     
 GEN       O=PASG   SPACE  4,10                                                            GEN         2023     A     
 GEN      **        PASG- ASSIGN TURPLE PROCESSOR.                                         GEN         2024     A     
 GEN      *         MAINTAIN LABEL ADDRESS (LA.) TABLE AND DEFINE GL1.                     GEN         2025     A     
 GEN                                                                                       GEN         2026     A     
 GEN       O=PASG   BSSENT 0                                                               GEN         2027     A     
 GEN                SA1    S=LA                                                            GEN         2028     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA2    T=LA                                                            GEN         2029     A     
 GEN                LX1    P2.TAGP                                                         GEN         2030     A     
 GEN                LX2    P2.BIASP                                                        GEN         2031     A     
 GEN                =X6    0                                                               GEN         2032     A     
 GEN                BX2    X1+X2                                                           GEN         2033     A     
 GEN                RJ     POS         PREPARE OPERAND                                     GEN         2034     A     
 GEN                SA6    REG=G       GL1 = LA. + K, K= T=LA                              GEN         2035     A     
 GEN                =A1    B4+OR.1OP                                                       GEN         2036     A     
 GEN                MX0    -P2.TAGL                                                        GEN         2037     A     
 GEN                LX1    -P2.TAGP                                                        GEN         2038     A     
 GEN                BX6    -X0*X1                                                          GEN         2039     A     
 GEN                ADDWD  T.LA        LA(K) = SYMORD(1OP)                                 GEN         2040     A     
 GEN                EQ     NULLOP                                                          GEN         2041     A     
 GEN       END      SPACE  4,10                                                            GEN         2042     A     
 GEN                LIST   D                                                               GEN         2043     A     
 GEN                END                                                                    GEN         2044     A     
 GEN      *DECK     CWEOR2 - END OF F.E. + Q.C.G.                                          CWEOR2         1          I
          -FC5A370
 GEN      *CWEOR    0                  (2)  END OF F.E. + QCG.                             CWEOR2         2          I
          -FC5A370
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GEN     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GEN                       2044      2025
          CWEOR2                       2         0
          F2950F5A                    20        20
          FC5A166                     28        25
          FC5A191                      1         1
          FC50066                      8         8
          FC50138                      4         4
          FC50104                      3         3
          FC5A337                      7         7
          FC5A346                     96        96
          FC5A436                      7         7
          FC50950                     11        11
          FC50936                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR2*  
  
 WEOR2*   *DECK WEOR2*                                                                     FC5A370       12     A     
 WEOR2*   *WEOR 0   (2)  END OF F. E. + QCG.                                               FC5A370       13     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR2*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *REAR*  
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *REAR*  
  
 *REAR*   *DECK     *REAR* - BACK END (ONE PASS ASSEMBLER).                                *REAR*         1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *REAR*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *REAR*                       1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC      *DECK     REC    REAR END CONTROLLER                                             REC            1     A     
 REC                IDENT  REC                                                             REC            2     A     
 REC       REC      SECT   (REAR END CONTROLLER.)                                          REC            3     A     
 REC       REC      SPACE  4,10                                                            REC            4     A     
 REC      *         IN ALLOC                                                               REC            5     A     
 REC                EXT    ALC                                                             REC            6     A     
 REC                                                                                       REC            7     A     
 REC      *         IN FAS                                                                 REC            8     A     
 REC                EXT    BT.IDNT,BT.IDN9,FAS,SNR,CLE.EQ,ESL.EQ,ESL,CLE                   REC            9     A     
 REC                EXT    RADOL1,RADOL2,RADRTN,FBP,FBP.EQ                                 REC           10     A     
 REC                EXT    POL.EQ,POL,WLF.EQ,WLF,BST.EQ,BST                                REC           11     A     
 REC                                                                                       REC           12     A     
 REC      *         IN RSNAP                                                               REC           13     A     
 REC                EXT    DMT=                                                            REC           14     A     
 REC                                                                                       REC           15     A     
 REC      *         IN FTN                                                                 REC           16     A     
 REC                EXT    CO.DBID,CO.DBPM,CO.DBST,CO.OPT,CO.SNAP,FV.LGO,F.PB              REC           17          I
          -FC5A262
 REC                EXT    CO.QC                                                           REC           18          I
          -FC5A262
 REC                EXT    TL.CSOP,WNB=                                                    REC           19          I
          -FC5A262
 REC                EXT    CO.DBID,CO.DBPM,CO.DBST,CO.LOO,CO.OPT,CO.QC,CO.SNAP             FC5A262       35     A     
 REC                EXT    FV.LGO,F.PB,TL.CSOP,WNB=                                        FC5A262       36     A     
 REC                                                                                       REC           20     A     
 REC      *         IN MAP                                                                 REC           21     A     
 REC                EXT    MAP                                                             REC           22     A     
 REC                                                                                       REC           23     A     
 REC      *         IN PEM                                                                 REC           24     A     
 REC                EXT    PDM                                                             REC           25     A     
 REC                                                                                       REC           26     A     
 REC      *         IN PUC                                                                 REC           27     A     
 REC                EXT    BINIO,COMSIZ,ERRORS,F.LBT,NREXT,N.CON,PASS,SUM.LBT              REC           28     A     
 REC                EXT    S=CL,S=CON,S=LA,S=VALUE,T=API,T=APL,T=BLKS,T=LA                 REC           29     A     
 REC                EXT    T=CLW,T=CON,T=DIM,T=DATS,T=FMT,T=FPI,T=FPO,T=GL,T=IOA           REC           30     A     
 REC                EXT    T=IOI,T=LCA,T=LNT,T=NLST,T=SUB,T=SUB0,T=SYM,T.API               REC           31     A     
 REC                EXT    T.BLKS,T.DIM,T.FPI,T.FPO,T.GL,T.IOI,T.SUB,T.SUB0,T.SYM          REC           32     A     
 REC                EXT    USAVE,WO.LOA,WO.LOM,WO.LOO,WO.LOR,Z.LBT                         REC           33     A     
 REC                                                                                       REC           34     A     
 REC      *         IN QCGC                                                                REC           35     A     
 REC                EXT    BCT,PCA,SMB                                                     REC           36     A     
 REC                                                                                       REC           37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC      *         IN QCGLINK                                                             REC           38     A     
 REC                EXT    REL.RTN                                                         REC           39     A     
 REC                                                                                       REC           40     A     
 REC      *         IN RERRS                                                               REC           41     A     
 REC                EXT    E.MO1,E.MO3,E.MO8                                               REC           42          I
          -FC5A126
 REC                EXT    E.MO1,E.MO8                                                     FC5A126       40     A     
 REC                                                                                       REC           43     A     
 REC      *         IN UTILITY                                                             REC           44     A     
 REC                EXT    CIO=,SBM=                                                       REC           45     A     
 REC                                                                                       REC           46     A     
 REC                                                                                       REC           47     A     
 REC       WO.56    BSSENT 1           WRITE 5600 TABLE FOR CID/PMD                        REC           48     A     
 REC       WO.57    BSSENT 1           WRITE 5700 TABLE FOR CID                            REC           49     A     
 REC       COMSLBT  SPACE  4,10                                                            REC           50     A     
 REC      *CALL,COMSLBT                                                                    REC           51     A     
 REC                TITLE                                                                  REC           52     A     
 REC       REC      SPACE  4,10                                                            REC           53     A     
 REC      **        REC - REAR END CONTROLLER.                                             REC           54     A     
 REC      *                                                                                REC           55     A     
 REC      *         ENTRY  FROM INIT23                                                     REC           56     A     
 REC      *                                                                                REC           57     A     
 REC      *         EXIT   TO REAR END LOADER                                              REC           58     A     
 REC                                                                                       REC           59     A     
 REC                                                                                       REC           60     A     
 REC       REC      BSSENT 0           ...ENTRY                                            REC           61     A     
 REC                CALL   CGE         CHECK ON ERRORS FROM (2,2) OVERLAY                  REC           62     A     
 REC                RJ     REP         REAR END PRESETS                                    REC           63     A     
 REC                =X7    PASS=END                                                        REC           64     A     
 REC                SA7    PASS                                                            REC           65     A     
 REC                SA1    =XTV=END                                                        FC5A128      329     A     
 REC                SX7    B0                                                              FC5A128      330     A     
 REC                SA7    =XALC.PAR                                                       FC5A128      331     A     
 REC                BX7    X1                                                              FC5A128      332     A     
 REC                SA7    =XTV=CUR    SET CURRENT PHASE TO END (FOR ALLOC)                FC5A128      333     A     
 REC                RJ     END         PERFORM STORAGE ALLOCATION                          REC           66     A     
 REC                                                                                       REC           67     A     
 REC       .T       IFEQ   TEST,ON                                                         REC           68     A     
 REC                SA1    CO.SNAP                                                         REC           69     A     
 REC                LX1    1RE                                                             REC           70     A     
 REC                PL     X1,REC02S   IF (SNAP=E) NOT SELECTED                            REC           71     A     
 REC       SNAP=E   DUMPT  (SYM)                                                           REC           72     A     
 REC       REC02S   BSS                                                                    REC           73     A     
 REC       .T       ENDIF                                                                  REC           74     A     
 REC                                                                                       REC           75     A     
 REC      *         OUTPUT REFERENCE MAP.                                                  REC           76     A     
 REC                                                                                       REC           77     A     
 REC                SA1    WO.LOA                                                          REC           78     A     
 REC                SA2    WO.LOM                                                          REC           79     A     
 REC                SA3    WO.LOR                                                          REC           80     A     
 REC                BX1    X1+X2                                                           REC           81     A     
 REC                BX1    X1+X3                                                           REC           82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                ZR     X1,REC20    IF NO ATTRIBUTES, MAP OR REFERENCE                  REC           83     A     
 REC                CALL   MAP                                                             REC           84     A     
 REC                                                                                       REC           85     A     
 REC      *         PERFORM ASSEMBLY.                                                      REC           86     A     
 REC                                                                                       REC           87     A     
 REC       REC20    CALL   BCT         CONVERT CONSTANT TABLE                              REC           88     A     
 REC                CALL   PCA         CONVERT CONSTANTS IN T.CAC                          REC           89     A     
 REC                SA2    FV.LGO                                                          REC           90     A     
 REC                SA3    =XCO.LOO                                                        REC           91          I
          -FC5A262
 REC                SA3    CO.LOO                                                          FC5A262       37     A     
 REC                BX6    X3                                                              REC           92     A     
 REC                SA6    WO.LOO      INITIALIZE WORKING OLIST FLAG                       REC           93     A     
 REC                SA1    CO.QC                                                           REC           94     A     
 REC                BX6    X2+X3                                                           REC           95     A     
 REC                MI     X1,REC60    IF QC MODE, SKIP ASSEMBLY                           REC           96     A     
 REC                ZR     X6,REC60    IF NEITHER OL NOR BINARY REQUESTED                  REC           97     A     
 REC                =X7    PASS=FAS                                                        REC           98     A     
 REC                SA7    PASS        SET PASS TO ASSEMBLY                                REC           99     A     
 REC                NZ     X2,REC30    IF BINARY REQUESTED                                 REC          100     A     
 REC                PLUG   AT=WLF.EQ,TO=WLF,VOID=NO      TURN OFF WRITING OF LGO           REC          101     A     
 REC                PLUG   AT=BST.EQ,TO=BST,VOID=NO      TURN OFF WRITING OF *SUB*         REC          102     A     
 REC       REC30    NZ     X3,REC40    IF OBJECT LISTING REQUESTED                         REC          103     A     
 REC                PLUG   AT=POL.EQ,TO=POL,VOID=NO      TURN OFF OBJECT LISTING           REC          104     A     
 REC                PLUG   AT=RADOL1,TO=RADRTN,VOID=NO                                     REC          105     A     
 REC                PLUG   AT=RADOL2,TO=RADRTN,VOID=NO                                     REC          106     A     
 REC                PLUG   AT=FBP.EQ,TO=FBP,VOID=NO                                        REC          107     A     
 REC                                                                                       REC          108     A     
 REC       REC40    SA4    WO.57                                                           REC          109     A     
 REC                NZ     X4,REC50    IF 57 TABLE REQUESTED                               REC          110     A     
 REC                PLUG   AT=CLE.EQ,TO=CLE,VOID=NO                                        REC          111     A     
 REC                PLUG   AT=ESL.EQ,TO=ESL,VOID=NO                                        REC          112     A     
 REC                                                                                       REC          113     A     
 REC       REC50    BSS    0                                                               REC          114     A     
 REC       SNAP=F   IFNE   TEST                                                            REC          115          I
          -FC5A262
 REC                SA4    CO.SNAP                                                         REC          116          I
          -FC5A262
 REC                LX4    1RF                                                             REC          117          I
          -FC5A262
 REC                PL     X4,REC10S   IF SNAP=F NOT SELECTED                              REC          118          I
          -FC5A262
 REC                DUMPT  (T.PB)                                                          REC          119          I
          -FC5A262
 REC       REC10S   BSS    0                                                               REC          120          I
          -FC5A262
 REC       SNAP=F   ENDIF                                                                  REC          121          I
          -FC5A262
 REC                                                                                       REC          122          I
          -FC5A262
 REC                RJ     MER         MARK EXTERNAL RELOCATION                            REC          123     A     
 REC                SA7    NREXT                                                           REC          124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SA1    =XERRORS                                                        REC          125          I
          -FC5A262
 REC                SA1    ERRORS                                                          FC5A262       38     A     
 REC                NZ     X1,REC59    IF FATAL ERRORS                                     REC          126     A     
 REC       .RM      IFNE   CP#RM,0                                                         REC          127     A     
 REC                RECALL =XF.PB                                                          REC          128          I
          -FC5A262
 REC                READ   =XF.PB                                                          REC          129          I
          -FC5A262
 REC                RECALL F.PB                                                            FC5A262       39     A     
 REC                READ   F.PB                                                            FC5A262       40     A     
 REC                                                                                       REC          130     A     
 REC       .RM      ELSE                                                                   REC          131     A     
 REC                RECALL =XF.PB                                                          FC5A130        4          I
          -FC5A262
 REC                RECALL F.PB                                                            FC5A262       41     A     
 REC                SA1    BINIO                                                           REC          132     A     
 REC                MI     X1,REC55    IF CCG OR PHYSICAL I/O HAS OCCURED                  REC          133     A     
 REC                SA1    F.PB+I.FET  X1 = CODE/STATUS WORD                               REC          134     A     
 REC                MX6    -9                                                              REC          135          I
          -FC5A130
 REC                MX6    -18                                                             FC5A130        5     A     
 REC                BX1    X6*X1       ERASE OLD CODE/STATUS                               REC          136     A     
 REC                SX6    23B                                                             REC          137     A     
 REC                BX6    X1+X6       SIMULATE REWIND,RECALL,READ                         REC          138     A     
 REC                SA6    A1          UPDATE THE FET                                      REC          139     A     
 REC                EQ     REC59                                                           REC          140     A     
 REC                                                                                       REC          141     A     
 REC       REC55    BSS    0                                                               REC          142     A     
 REC                RECALL =XF.PB                                                          REC          143          I
          -FC5A130
 REC                READ   =XF.PB                                                          REC          144          I
          -FC5A262
 REC                READ   F.PB                                                            FC5A262       42     A     
 REC       .RM      ENDIF                                                                  REC          145     A     
 REC                                                                                       REC          146     A     
 REC       REC59    CALL   FAS         PERFORM ASSEMBLY                                    REC          147     A     
 REC                                                                                       REC          148     A     
 REC      *         TRASH TABLES NO LONGER REQUIRED.                                       REC          149     A     
 REC                                                                                       REC          150     A     
 REC       REC60    SHRINK T=CON                                                           REC          151     A     
 REC                SHRINK T=FMT,X6                                                        REC          152     A     
 REC                SHRINK T=NLST,X6                                                       REC          153     A     
 REC                SHRINK T=GL,X6                                                         REC          154     A     
 REC                SHRINK T=APL,X6                                                        REC          155     A     
 REC                SHRINK T=API,X6                                                        REC          156     A     
 REC                SHRINK T=LCA,X6                                                        REC          157     A     
 REC                SHRINK T=IOA,X6                                                        REC          158     A     
 REC                SHRINK T=IOI,X6                                                        REC          159     A     
 REC                SHRINK T=DATS,X6                                                       REC          160     A     
 REC                SHRINK T=FPI,X6                                                        REC          161     A     
 REC                SHRINK T=FPO,X6                                                        REC          162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SHRINK T=SUB,X6                                                        REC          163     A     
 REC                SHRINK T=SUB0                                                          REC          164     A     
 REC                SHRINK T=LNT,X6                                                        REC          165     A     
 REC                EQ     REL.RTN     TRANSFER TO REAR END LOADER...                      REC          166     A     
 REC       REP      SPACE  4,10                                                            REC          167     A     
 REC      **        REP - REAR END PRESETS.                                                REC          168     A     
 REC      *                                                                                REC          169     A     
 REC      *         SET UP CELLS FOR REAR END.                                             REC          170     A     
 REC                                                                                       REC          171     A     
 REC                                                                                       REC          172     A     
 REC       REP      SUBR   0           ENTRY/EXIT...                                       REC          173     A     
 REC                SA1    TL.CSOP                                                         REC          174     A     
 REC                SA2    A1+B1                                                           REC          175     A     
 REC                BX6    X1          SET C.C. OPTIONS INTO 77-TABLE                      REC          176     A     
 REC                SA3    CO.DBST                                                         REC          177     A     
 REC                SA4    CO.DBID                                                         REC          178     A     
 REC                BX3    X3+X4                                                           REC          179     A     
 REC                LX7    X2                                                              REC          180     A     
 REC                SX5    BT.IDN9                                                         REC          181     A     
 REC                SA6    X5+BT.IDNT                                                      REC          182     A     
 REC                =A1    A2+1        (TL.CSOP+3)                                         FC51002        5     A     
 REC                =A7    A6+1                                                            REC          183     A     
 REC                SA2    =7R                                                             FC51002        6     A     
 REC                MX0    18                                                              FC51002        7     A     
 REC                BX6    X0*X1                                                           FC51002        8     A     
 REC                BX6    X6+X2                                                           FC51002        9     A     
 REC                =A6    A7+1                                                            FC51002       10     A     
 REC                SA5    CO.DBPM                                                         REC          184     A     
 REC                BX6    X3+X5                                                           REC          185     A     
 REC                BX7    X3                                                              REC          186     A     
 REC                SA6    WO.56       (WO.56) = (CO.DBST).O.(CO.DBID).O.(CO.DBPM)         REC          187     A     
 REC                SA7    WO.57       (WO.57) = (CO.DBID) OR (CO.DBST)                    REC          188     A     
 REC                SA1    BINIO                                                           REC          189     A     
 REC                PL     X1,EXIT.    IF NOT CCG AND NO PHYSICAL I/O HAS OCCURED          REC          190     A     
 REC                SA1    FV.LGO                                                          FC50616       20     A     
 REC                SA2    CO.LOO                                                          FC50616       21     A     
 REC                BX1    X1+X2                                                           FC50616       22     A     
 REC                ZR     X1,EXIT.    IF B=0 AND LO=-O                                    FC50616       23     A     
 REC                REWIND F.PB                                                            REC          191     A     
 REC                EQ     EXIT.       EXIT...                                             REC          192     A     
 REC       END      TITLE  RELOCATE SYMBOL TABLES.                                         REC          193     A     
 REC       END      SPACE  4,10                                                            REC          194     A     
 REC      ***       END - RELOCATE SYMBOL TABLES.                                          REC          195     A     
 REC      *                                                                                REC          196     A     
 REC      *         ASSIGNS ALL ADDRESSES THAT ARE NOT YET KNOWN, RESERVING                REC          197     A     
 REC      *                STORAGE WHERE NECESSARY.                                        REC          198     A     
 REC      *         ANY "VAR"S IN THE SYMTAB WHICH DO NOT YET HAVE AN                      REC          199     A     
 REC      *         ADDRESS WILL BE ASSIGNED SPACE IN (BN=VAR).                            REC          200     A     
 REC                                                                                       REC          201     A     
 REC                                                                                       REC          202     A     
 REC       END      SUBR   0           ENTRY/EXIT...                                       REC          203     A     
 REC                                                                                       REC          204     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                                                                                       REC          205     A     
 REC      **        THE FOLLOWING CODE SOLVES THE VALUE. STORAGE ALLOCATION                REC          206     A     
 REC      *         PROBLEM BY SEARCHING THE LIST OF VALUE. SYMBOLS IN REVERSE             REC          207     A     
 REC      *         ORDER AND ASSIGNING THE BASE MEMBER THE TYPE OF THE FIRST              REC          208     A     
 REC      *         ONE WHICH HAS WB.DEF SET. IF NONE OF THEM ARE DEFINED, A               REC          209     A     
 REC      *         ZERO WILL BE STORED AT S=VALUE                                         REC          210     A     
 REC                                                                                       REC          211     A     
 REC                                                                                       REC          212     A     
 REC                SA1    S=VALUE                                                         REC          213     A     
 REC                SB2    X1                                                              REC          214     A     
 REC                LX1    1                                                               REC          215     A     
 REC                SB2    X1+B2       CONVERT TO INDEX                                    REC          216     A     
 REC                SA2    T.SYM                                                           REC          217     A     
 REC                SB2    B2+WB.W                                                         REC          218     A     
 REC                SB7    X2+B2       SAVE ADDRESS OF BASE MEMBER                         REC          219     A     
 REC                SB2    B2+Z=SYM*N.TYPE                                                 REC          220     A     
 REC                SA2    X2+B2       INITIALIZE FETCH REG                                REC          221     A     
 REC                SX7    M.CHAR                                                          REC          222     A     
 REC                                                                                       REC          223     A     
 REC       END1A    SA2    A2-Z=SYM                                                        REC          224     A     
 REC                IFBIT  X2,WB.DEFP,END1B  IF A VALUE. IS DEFINED                        REC          225          I
          -FC50252
 REC                SBIT   X2,WB.DEFP                                                      FC50252       18     A     
 REC                MI     X2,END1B    IF A VALUE. IS DEFINED                              FC50252       19     A     
 REC                =X7    X7-1                                                            REC          226     A     
 REC                PL     X7,END1A    IF NOT DONE                                         REC          227     A     
 REC                                                                                       REC          228     A     
 REC      **        HERE IF NO VALUE. HAS BEEN DEFINED                                     REC          229     A     
 REC                                                                                       REC          230     A     
 REC                MX6    0                                                               REC          231     A     
 REC                SA6    A1                                                              REC          232     A     
 REC                EQ     END1C                                                           REC          233     A     
 REC                                                                                       REC          234     A     
 REC       END1B    LX7    WB.MODEP    POSITION NEW MODE                                   REC          235     A     
 REC                MX0    -WB.MODEL                                                       REC          236     A     
 REC                LX0    WB.MODEP                                                        REC          237     A     
 REC                SA2    B7          *WB* OF BASE MEMBER                                 REC          238     A     
 REC                BX2    X0*X2       ERASE PREVIOUS MODE                                 REC          239     A     
 REC                BX6    X2+X7       FILL IN NEW MODE                                    REC          240     A     
 REC                SA6    A2          UPDATE *WB*                                         REC          241     A     
 REC                                                                                       REC          242     A     
 REC       END1C    BSS    0                                                               REC          243     A     
 REC                                                                                       REC          244     A     
 REC                                                                                       REC          245     A     
 REC      **        PART 1 - COMPLETE LOCAL BLOCK LENGTHS.                                 REC          246     A     
 REC      *                TBLN [LBT(BN=FMT)] = (T=FMT)                                    REC          247     A     
 REC      *                TBLN [LBT(BN=CON)] = (T=CON) + (T=CHAR)                         REC          248          I
          -FC5A262
 REC      *                TBLN [LBT(BN=CON)] = (T=CON)                                    FC5A262       43     A     
 REC      *                TBLN [LBT(BN=APL)] = (T=APL) + (T=LCA)-1                        REC          249     A     
 REC      *                TBLN [LBT(BN=IOAP)] = (T=IOA)/2 + (T=CLW)/2                     REC          250     A     
 REC      *                WC.RA [S=CHAR] = (T=CON)                                        REC          251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC      *                WC.RA [S=CL]   = (T=IOAP)/2                                     REC          252     A     
 REC                                                                                       REC          253     A     
 REC                                                                                       REC          254     A     
 REC                SA1    T=FMT                                                           REC          255     A     
 REC                SA4    =XF.LBT+BN=FMT                                                  REC          256          I
          -FC5A262
 REC                SA4    F.LBT+BN=FMT                                                    FC5A262       44     A     
 REC                MX2    0                                                               REC          257     A     
 REC                RJ     GBS         RESERVE FORMAT BLOCK                                REC          258     A     
 REC                SA3    CO.OPT                                                          REC          259     A     
 REC                SA1    T=LA                                                            REC          260     A     
 REC                NZ     X3,END1     IF NOT QUICK CODE GENERATOR                         REC          261     A     
 REC                SA2    S=LA                                                            REC          262     A     
 REC                RJ     GBS         GENERATE SPACE FOR (LA.)                            REC          263     A     
 REC                                                                                       REC          264     A     
 REC       END1     SA4    A4-BN=FMT+BN=CON  GENERATE (BN=CON)                             REC          265     A     
 REC                SA1    =XN.CON                                                         REC          266     A     
 REC                SA2    S=CON                                                           REC          267     A     
 REC                RJ     GBS         GENERATE SPACE FOR (CON.)                           REC          268     A     
 REC                                                                                       REC          269     A     
 REC                SA4    A4-BN=CON+BN=APL        GENERATE (BN=APL)                       REC          270     A     
 REC                SA2    T=LCA                                                           REC          271     A     
 REC                SA1    T=APL                                                           REC          272     A     
 REC                SX7    X2-1                                                            REC          273     A     
 REC                MX2    0                                                               REC          274     A     
 REC                IX1    X1+X7       LENGTH = T=APL + T=LCA - 1                          REC          275     A     
 REC                RJ     GBS                                                             REC          276     A     
 REC                                                                                       REC          277          I
          -FC5A262
 REC                SA1    =XT=IOA                                                         REC          278          I
          -FC5A262
 REC                SA1    T=IOA                                                           FC5A262       45     A     
 REC                SA4    A4-BN=APL+BN=IOAP       GENERATE (BN=IOAP)                      REC          279     A     
 REC                AX1    1           IOLEN = T=IOA / Z=IOA                               REC          280     A     
 REC                ERRNZ  2-Z=IOA                                                         REC          281     A     
 REC                MX2    0                                                               REC          282     A     
 REC                RJ     GBS         COUNT SPACE FOR IO APLS                             REC          283     A     
 REC                SA1    T=CLW                                                           REC          284     A     
 REC                SA2    S=CL                                                            REC          285     A     
 REC                AX1    1           CLLEN = T=CLW / Z=CLW                               REC          286     A     
 REC                ERRNZ  2-Z=CLW                                                         REC          287     A     
 REC                RJ     GBS         DEFINE SPACE FOR (CL.)                              REC          288     A     
 REC                                                                                       REC          289     A     
 REC                                                                                       REC          290     A     
 REC      **        PART 2 - PROCESS NAMELISTS.                                            REC          291     A     
 REC      *         FOR ALL REFERENCED NAMELIST GROUP NAMES, SET                           REC          292     A     
 REC      *         RL[WCI] = ML.PROG,                                                     REC          293     A     
 REC      *         RB[WCI] = BN=NLST,                                                     REC          294     A     
 REC      *         RA[WCI] = SUMMED LENGTH OF (I-1) GROUP DEFINITION APLISTS.             REC          295     A     
 REC                                                                                       REC          296     A     
 REC                                                                                       REC          297     A     
 REC       .T       IFEQ   TEST,ON                                                         REC          298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SA1    F.LBT+BN=NLST                                                   REC          299     A     
 REC                NZ     X1,"BLOWUP" IF SPURIOUS USE OF  *NAMLST.*  BLOCK                REC          300     A     
 REC       .T       ENDIF                                                                  REC          301     A     
 REC                                                                                       REC          302     A     
 REC                BX7    0           (X7) = RA = ACCUM LENGTH  *NAMLST.*  BLOCK          REC          303     A     
 REC                MX4    0                                                               REC          304     A     
 REC                RJ     ADA         ASSIGN BLOCK-REL RUN-TIME DIMTAB ADDRESSES          REC          305     A     
 REC                =B2    0           (B2) = *****                                        REC          306     A     
 REC                =B3    0           (B3) = *****                                        REC          307     A     
 REC                                                                                       REC          308     A     
 REC      *         PROCESS A NAMELIST GROUP.                                              REC          309     A     
 REC                                                                                       REC          310     A     
 REC       END2     SB3    B3+B2       ADVANCE TO NEXT GROUP                               REC          311     A     
 REC                =B2    0                                                               REC          312     A     
 REC                CALL   SNR         SET NAMELIST REGISTERS                              REC          313     A     
 REC                MI     B3,END4     IF NO MORE GROUPS                                   REC          314     A     
 REC                                                                                       REC          315     A     
 REC      *         SET RA,RL,RB IN T.SYM WORD C FOR GROUP-NAME.                           REC          316     A     
 REC                                                                                       REC          317     A     
 REC                =A1    A1+WC.W-WB.W                                                    REC          318     A     
 REC                                                                                       REC          319     A     
 REC       .T       IFEQ   TEST,ON                                                         REC          320     A     
 REC                CLAS=  X3,WC,(RLRB,RA)                                                 REC          321     A     
 REC                BX6    X3*X1                                                           REC          322     A     
 REC                NZ     X6,"BLOWUP" IF TRASH IN WORD C                                  REC          323     A     
 REC       .T       ENDIF                                                                  REC          324     A     
 REC                                                                                       REC          325     A     
 REC                ERRNZ  WC.RAP                                                          REC          326     A     
 REC                BX3    X1+X7                                                           REC          327     A     
 REC                SA2    ENDA        SKELETON  *RL=PROG, RB=(BN=NLST)*                   REC          328     A     
 REC                IX6    X3+X2                                                           REC          329     A     
 REC                SA6    A1          RA,RL,RB TO WORD C                                  REC          330     A     
 REC                SX1    B4+B4                                                           REC          331     A     
 REC                =X2    X1+1                                                            REC          332     A     
 REC                IX7    X7+X2       RA = RA + 2*NMEM + 1 (FOR GROUP HDR)                REC          333     A     
 REC                ZR     B2,END2     IF NO MEMBERS                                       REC          334     A     
 REC                =X1    B4+1        GROUP LEN (IN T.NLST) = (NR MEM - 1)/4 + 1          REC          335     A     
 REC                AX1    2                                                               REC          336     A     
 REC                =B2    X1+1                                                            REC          337     A     
 REC                EQ     END2        LOOP FOR NEXT GROUP                                 REC          338     A     
 REC                                                                                       REC          339     A     
 REC      *         HERE WHEN ALL GROUPS PROCESSED.                                        REC          340     A     
 REC                                                                                       REC          341     A     
 REC       END4     SA7    F.LBT+BN=NLST     DEFINE LENGTH OF  *NAMLST.*  BLOCK            REC          342     A     
 REC                                                                                       REC          343     A     
 REC                                                                                       REC          344     A     
 REC                                                                                       REC          345     A     
 REC                                                                                       REC          346     A     
 REC      **        PART 3 - PROCESS FORMAT LABELS.                                        REC          347     A     
 REC      *         FOR ALL FORMAT LABELS, SET                                             REC          348     A     
 REC      *         RL[WCI] = ML.PROG,                                                     REC          349     A     
 REC      *         RB[WCI] = BN=FMT                                                       REC          350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC      *         RA[WCI] = RA[WCI] + 1                                                  REC          351     A     
 REC                                                                                       REC          352     A     
 REC                                                                                       REC          353     A     
 REC                SA2    T=SYM                                                           REC          354     A     
 REC                SA1    T.SYM                                                           REC          355     A     
 REC                CLAS=  X4,WC,(RLRB)                                                    REC          356     A     
 REC                CLAS=  X5,WB,(LAB,FDEF)                                                REC          357     A     
 REC                SB7    X2          LENSYM = LEN(T.SYM)                                 REC          358     A     
 REC                =A3    X1+WB.W     WBA = FWA(T.SYM)                                    REC          359     A     
 REC                SA2    ENDB        SKELETON  *RL=PROG, RB=(BN=FMT)*                    REC          360     A     
 REC                =B3    Z=SYM                                                           REC          361     A     
 REC                SX0    1                                                               REC          362     A     
 REC                LX0    WC.RAP                                                          REC          363     A     
 REC                                                                                       FC50252       20     A     
 REC       END10    SA3    A3+B3       WBA = WBA + Z=SYM, WBI = (WBA)                      REC          364     A     
 REC                SB7    B7-B3       LENSYM = LENSYM - Z=SYM                             REC          365     A     
 REC                ZR     B7,END15    IF END OF T.SYM                                     REC          366     A     
 REC                BX6    X5*X3                                                           REC          367     A     
 REC                IX7    X6-X5                                                           REC          368     A     
 REC                NZ     X7,END10    IF NOT FORMAT LABEL                                 REC          369     A     
 REC                =A1    A3-WB.W+WC.W      WCI                                           REC          370     A     
 REC                BX7    -X4*X1      CLEAR (RLRB) FIELD                                  REC          371     A     
 REC                IX7    X7+X2                                                           REC          372     A     
 REC                IX7    X7+X0       RA[WCI] = RA[WCI] + 1                               REC          373     A     
 REC                SA7    A1          (RL,RB,RA)[WCI] = (ML.PROG,BN=FMT,RA+1)[WC.         REC          374     A     
 REC                EQ     END10                                                           REC          375     A     
 REC                                                                                       REC          376     A     
 REC                                                                                       REC          377     A     
 REC      **        PART 5 - ASSIGN ADDRESSES TO LOCAL SYMBOLS.                            REC          378     A     
 REC                                                                                       REC          379     A     
 REC                                                                                       REC          380     A     
 REC       END15    BSS                                                                    REC          381     A     
 REC                RJ     SMB         SET MAT BIT                                         REC          382     A     
 REC                RJ     SSA         SET SYMBOL ADDRESSES                                REC          383     A     
 REC                                                                                       REC          384     A     
 REC                                                                                       REC          385     A     
 REC      **        PART 6 - COMPUTE LENGTH OF SUB AND SUB0 BLOCK.                         REC          386     A     
 REC      *                FOR EACH FORMAL PARAMETER, RELOCATE ITS NUMBER OF SUB           REC          387     A     
 REC      *                REFERENCES (LEN[FP.], SUB0[FP.] OF T.FPI ENTRY )                REC          388     A     
 REC      *                RELATIVE TO THE SUB AND SUB0 BLOCK.                             REC          389     A     
 REC      *         AN T.FPO ENTRY IS MADE ALSO FOR EACH F.P.S, FORMATTED AS FP. .         REC          390     A     
 REC                                                                                       REC          391     A     
 REC                                                                                       REC          392     A     
 REC                SA4    T=FPI                                                           REC          393     A     
 REC                ZR     X4,END60    IF NO FORMAL PARAMETERS                             REC          394     A     
 REC                ALLOC  T.FPO,X4                                                        REC          395     A     
 REC                SB2    X1                                                              REC          396     A     
 REC                SB7    X4          FPLEN = (T=FPI)                                     REC          397     A     
 REC                SA3    =XT.FPI                                                         REC          398          I
          -FC50252
 REC                SA3    T.FPI                                                           FC50252       21     A     
 REC                MX4    0           LENSUB = 0                                          REC          399     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                MX5    0           SUB0LEN = 0                                         REC          400     A     
 REC                SB3    B0          IND = 0                                             REC          401     A     
 REC                SB4    X3                                                              REC          402     A     
 REC                =B5    2                                                               REC          403     A     
 REC                MX0    -FP.SUBL                                                        REC          404     A     
 REC                ERRNZ  FP.SUBL-FP.SUB0L                                                REC          405          I
          -FC50252
 REC                                                                                       FC50252       22     A     
 REC       END45    ZR     B7,END50    IF END OF T.FPI                                     REC          406     A     
 REC                SA3    B4+B3       FPI = T.FPI(IND)                                    REC          407     A     
 REC                CLAS=  X1,FP,(SUB,SUB0)                                                REC          408          I
          -FC50252
 REC                CLAS=  X1,FP,(CA,SUB,SUB0)                                             FC50252       23     A     
 REC                BX6    X4                                                              REC          409     A     
 REC                BX7    -X1*X3      CLEAR (SUB,SUB0) FIELDS                             REC          410     A     
 REC                LX5    FP.SUB0P                                                        REC          411     A     
 REC                LX6    FP.SUBP                                                         REC          412     A     
 REC                BX6    X5+X6                                                           REC          413     A     
 REC                LX5    -FP.SUB0P   RESTORE (X5)                                        REC          414     A     
 REC                BX2    X3                                                              REC          415          I
          -FC5A400
 REC                HX2    FP.LC                                                           REC          416          I
          -FC5A400
 REC                AX2    59                                                              REC          417          I
          -FC5A400
 REC                SB7    B7-B1       FPLEN = FPLEN - 1                                   REC          418     A     
 REC                LX3    -FP.LENP                                                        REC          419     A     
 REC                ERRNZ  FP.LENP-FP.SUBP                                                 REC          420     A     
 REC                BX1    -X0*X3      LENI = LEN[FPI]                                     REC          421     A     
 REC                BX1    -X2*X1      LENI .EQ. 0 IF LC[FPI] = 1                          REC          422          I
          -FC5A400
 REC                LX3    FP.LENP-FP.SUB0P                                                REC          423     A     
 REC                MX2    -FP.SUB0L                                                       FC50252       24     A     
 REC                BX3    -X0*X3      SUB0I = SUB0[FPI]                                   REC          424     A     
 REC                BX7    X7+X6                                                           REC          425     A     
 REC                SA6    B2+B3       [T.FPO(IND)] = (LENSUB,LENSUB0)[FP.]                REC          426     A     
 REC                SA7    A3          [FPI]  = (LENSUB,LENSUB0) [FP.]                     REC          427     A     
 REC                SB3    B3+B1       IND = IND + 1                                       REC          428     A     
 REC                ZR     X1,END48    IF LENI .EQ. 0                                      REC          429     A     
 REC                IX4    X4+X1       LENSUB = LENSUB + LENI                              REC          430     A     
 REC                SX4    X4+B1       ALLOW FOR 0 TERMINATOR WORD                         REC          431     A     
 REC                                                                                       FC50252       25     A     
 REC       END48    ZR     X3,END45    IF SUB0I .EQ. 0                                     REC          432     A     
 REC                IX5    X5+X3       LENSUB0 = LENSUB0 + SUB0I                           REC          433     A     
 REC                SX5    X5+B5       ALLOW FOR TERMINATOR AND HEADER WORD                REC          434     A     
 REC                EQ     END45                                                           REC          435     A     
 REC                                                                                       REC          436     A     
 REC       END50    BX6    X4                                                              REC          437     A     
 REC                BX7    X5                                                              REC          438     A     
 REC                SX0    X6                                                              REC          439     A     
 REC                LX6    LB.TBLNP                                                        REC          440     A     
 REC                LX7    LB.TBLNP                                                        REC          441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SA6    F.LBT+BN=SUB      TBLN[T.LBT(BN=SUB )] = LENSUB                 REC          442     A     
 REC                SA7    F.LBT+BN=SUB0     TBLN[T.LBT(BN=SUB0)] = LENSUB0                REC          443     A     
 REC                SA3    =XFV.LGO                                                        REC          444          I
          -FC5A262
 REC                SA3    FV.LGO                                                          FC5A262       46     A     
 REC                ZR     X3,END60    IF NO BINARY                                        REC          445     A     
 REC                ZR     X4,END55    IF LENSUB .EQ. 0                                    REC          446     A     
 REC                ALLOC  T.SUB,X0  ALLOCATE SPACE FOR T.SUB                              REC          447     A     
 REC                MX6    60                                                              REC          448     A     
 REC                SETMEM X1,X2,X6    INITIALIZE TO -0                                    REC          449     A     
 REC       END55    ZR     X5,END60    IF LENSUB0 .EQ. 0                                   REC          450          I
          -FC5A128
 REC                ALLOC  T.SUB0,X5   ALLOCATE SPACE FOR T.SUB0                           REC          451          I
          -FC5A128
 REC                RJ     ISZ         INITIALIZE SUB0 TABLE                               REC          452          I
          -FC5A128
 REC                                                                                       FC5A128      334     A     
 REC       END55    BSS    0                                                               FC5A128      335     A     
 REC                SHRINK T=SUB0,0                                                        FC5A197        5     A     
 REC       #MD      IFNE   .DAL,0,1                                                        FC5A128      336     A     
 REC                RJ     ISZ         INITIALIZE SUB0 TABLE                               FC5A128      337     A     
 REC                                                                                       REC          453     A     
 REC                                                                                       REC          454     A     
 REC      **        PART 7 - PROCESS LOCAL BLOCK TABLES.                                   REC          455     A     
 REC      *         CONVERT BASE LENGTH IN LOCAL BLOCK TABLE INTO PROGRAM                  REC          456     A     
 REC      *         RELOCATABLE ADDRESS  (ORG).                                            REC          457     A     
 REC      *         ALSO,  SET BLEN[LBT] = TBLN[LBT].                                      REC          458     A     
 REC                                                                                       REC          459     A     
 REC                                                                                       REC          460     A     
 REC       END60    BSS    0                                                               REC          461     A     
 REC                =A2    F.LBT-1     LBTA = F.LBT-1  (PRE-FETCH)                         REC          462     A     
 REC                SB2    =XZ.LBT     LENLBT = LENGTH OF LOCAL BLOCK TABLE                REC          463          I
          -FC5A262
 REC                SB2    Z.LBT       LENLBT = LENGTH OF LOCAL BLOCK TABLE                FC5A262       47     A     
 REC                =X6    0           ORG = 0                                             REC          464     A     
 REC                MX0    -LB.BLENL                                                       REC          465     A     
 REC                SA1    ERRORS                                                          FC5A174       17     A     
 REC                NZ     X1,END90    IF FATAL ERRORS                                     FC5A174       18     A     
 REC                                                                                       REC          466     A     
 REC       END70    SA2    A2+B1       LBTA= LBTA+1,  LBTI = (LBTA)                        REC          467     A     
 REC                SX5    3           INITIALIZE PARCEL COUNT = 3                         REC          468     A     
 REC                BX7    X2                                                              REC          469     A     
 REC                LX2    -LB.TBLNP                                                       REC          470     A     
 REC                HX7    LB.PARC                                                         REC          471     A     
 REC                AX7    -LB.PARCL   PARCNT = PARC[LBTI]                                 REC          472     A     
 REC                =B3    0           ROUNDUP = 0                                         REC          473     A     
 REC                ZR     X7,END80    IF PARCNT  EQ  0 (NO NEED TO ROUND UP)              REC          474     A     
 REC                SB3    B1          ROUNDUP = 1                                         REC          475     A     
 REC                                                                                       FC50252       26     A     
 REC       END80    BX2    -X0*X2      TBLNI= TBLN[LBTI]                                   REC          476     A     
 REC                BX7    X6                                                              REC          477     A     
 REC                LX7    LB.ORGP                                                         REC          478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SX2    X2+B3       BLENI = TBLNI + ROUNDUP                             REC          479     A     
 REC                SB2    B2-B1       LENLBT = LENLBT - 1                                 REC          480     A     
 REC                LX5    LB.PARCP                                                        REC          481     A     
 REC                IX6    X6+X2       ORG = ORG + BLENI                                   REC          482     A     
 REC                LX2    LB.BLENP                                                        REC          483     A     
 REC                BX7    X7+X5                                                           REC          484     A     
 REC                BX7    X7+X2                                                           REC          485     A     
 REC                SA7    A2          (BLEN,ORG) [LBTI] = (TBLNI,ORG) [LB.]               REC          486     A     
 REC                NZ     B2,END70    IF LENLBT  NE  0                                    REC          487     A     
 REC                                                                                       REC          488     A     
 REC       END90    SA6    =XSUM.LBT   PROGRAM UNIT LENGTH = ORG                           REC          489          I
          -FC5A262
 REC       END90    SA6    SUM.LBT     PROGRAM UNIT LENGTH = ORG                           FC5A262       48     A     
 REC                                                                                       REC          490     A     
 REC                                                                                       REC          491     A     
 REC      **        PART 8 - RELOCATE SYMBOL TABLE FOR ALL LOCAL BLOCKS.                   REC          492     A     
 REC      *                                                                                REC          493     A     
 REC      *         IF  RL = ML.PROG,                                                      REC          494     A     
 REC      *         RELOCATE THIS ENTRY, SETTING..                                         REC          495     A     
 REC      *         RA[WC] = RA[WC] + ORG [LBT( RB[WB] )],                                 REC          496     A     
 REC      *         RB[WC] = 0                                                             REC          497     A     
 REC                                                                                       REC          498     A     
 REC                                                                                       REC          499     A     
 REC                SA1    =XT.SYM                                                         REC          500          I
          -FC5A262
 REC                SA1    T.SYM                                                           FC5A262       49     A     
 REC                =B3    Z=SYM                                                           REC          501     A     
 REC                SA2    =XT=SYM                                                         REC          502          I
          -FC5A262
 REC                SA2    T=SYM                                                           FC5A262       50     A     
 REC                SA3    X1+WC.W     WCA = (T.SYM)+WC.W                                  REC          503     A     
 REC                SB7    X2-Z=SYM    LENSYM = (T=SYM) - Z=SYM                            REC          504     A     
 REC                SB4    =XF.LBT                                                         REC          505          I
          -FC5A262
 REC                SB4    F.LBT                                                           FC5A262       51     A     
 REC                MX0    -WC.RLL                                                         REC          506     A     
 REC                MX7    -WC.RBL                                                         REC          507     A     
 REC                                                                                       REC          508     A     
 REC      *         B3  =  LENGTH OF SYMBOL TABLE ENTRY                                    REC          509     A     
 REC      *         B4  =  BASE ADDRESS OF LBT                                             REC          510     A     
 REC      *         B7  =  SYMTAB LENGTH                                                   REC          511     A     
 REC      *         X0  =  MASK FOR (WC.RL)                                                REC          512     A     
 REC      *         A3  =  ADDRESS CURRENT SYMBOL TABLE  WC.W  ENTRY                       REC          513     A     
 REC                                                                                       REC          514     A     
 REC       END100   SA3    A3+B3       WCA = WCA + Z=SYM, WCI = (WCA)                      REC          515     A     
 REC                LX3    -WC.RLP                                                         REC          516     A     
 REC                ZR     B7,END110   IF TABLE EXHAUSTED                                  REC          517     A     
 REC                IFEQ   TEST,ON,1                                                       REC          518     A     
 REC                MI     B7,"BLOWUP" IF SYMBOL TABLE NOT MULT OF Z=SYM                   REC          519     A     
 REC                BX4    -X0*X3      RLI = RL[WCI]                                       REC          520     A     
 REC                SB7    B7-B3       LENSYM = LENSYM - Z=SYM                             REC          521     A     
 REC                SB2    X4-ML.PROG        = WC.RL(I) - ML.PROG                          REC          522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                NE     B2,B0,END100      IF RL(I) .NE. ML.PROG                         REC          523     A     
 REC                =A5    A3-WC.W+WB.W      *WB*                                          REC          524     A     
 REC                CLAS=  X1,WB,(FUN)                                                     REC          525     A     
 REC                BX5    X1*X5                                                           REC          526     A     
 REC                NZ     X5,END100   IF A FUNCTION                                       REC          527     A     
 REC                LX3    WC.RLP-WC.RBP                                                   REC          528     A     
 REC                BX6    X7*X3                                                           REC          529     A     
 REC                BX3    -X7*X3      RBI = RB[WCI]                                       REC          530     A     
 REC                SA5    X3+B4       LBI = LBT(RBI)                                      REC          531     A     
 REC                LX6    WC.RBP                                                          REC          532     A     
 REC                HX5    LB.ORG      ORGI = ORG[LBI]                                     REC          533     A     
 REC                AX5    -LB.ORGL+WC.RAP                                                 REC          534     A     
 REC                LX5    WC.RAP                                                          REC          535     A     
 REC                IX6    X6+X5       RAI = RAI + ORGI                                    REC          536     A     
 REC                SA6    A3          (RB,RA)[WCI] = (0,RAI) [WC.]                        REC          537     A     
 REC                EQ     END100                                                          REC          538     A     
 REC                                                                                       REC          539     A     
 REC                                                                                       REC          540     A     
 REC      **        PART 9 - PROCESS AUXILIARY TABLES.                                     REC          541     A     
 REC                                                                                       REC          542     A     
 REC                                                                                       REC          543     A     
 REC       END110   BSS    0                                                               REC          544     A     
 REC                SA1    =XERRORS                                                        REC          545          I
          -FC5A262
 REC                SA1    ERRORS                                                          FC5A262       52     A     
 REC                NZ     X1,END115   IF FATAL ERRORS, SKIP RELOCATING AUX TABLES         REC          546     A     
 REC                SA1    =XT=GL                                                          REC          547          I
          -FC5A262
 REC                SA2    =XT.GL                                                          REC          548          I
          -FC5A262
 REC                SA1    T=GL                                                            FC5A262       53     A     
 REC                SA2    T.GL                                                            FC5A262       54     A     
 REC                RJ     RAT         RELOCATE T.GL                                       REC          549     A     
 REC                SA1    =XT=API                                                         REC          550          I
          -FC5A262
 REC                SA2    =XT.API                                                         REC          551          I
          -FC5A262
 REC                SA1    T=API                                                           FC5A262       55     A     
 REC                SA2    T.API                                                           FC5A262       56     A     
 REC                RJ     RAT         RELOCATE T.API                                      REC          552     A     
 REC                SA1    =XT=IOI                                                         REC          553          I
          -FC5A262
 REC                SA2    =XT.IOI                                                         REC          554          I
          -FC5A262
 REC                SA1    T=IOI                                                           FC5A262       57     A     
 REC                SA2    T.IOI                                                           FC5A262       58     A     
 REC                RJ     RAT         RELOCATE T.IOI                                      REC          555     A     
 REC                                                                                       REC          556     A     
 REC                                                                                       REC          557     A     
 REC      **        PART 10 - RELOCATE LOCAL EQUIVALENCED VARIABLES.                       REC          558     A     
 REC      *                                                                                REC          559     A     
 REC      *         WORD WC.W OF EACH LOCAL EQUIV VARIABLE IS                              REC          560     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC      *         MODIFIED IN THE FOLLOWING WAY....                                      REC          561     A     
 REC      *                                                                                REC          562     A     
 REC      *         WB.COM(I) = WB.COM(M)                                                  REC          563     A     
 REC      *         WB.SAVE(I) = WB.SAVE(M), IF UNIVERSAL SAVE                             REC          564     A     
 REC      *         WC.RL(I) = WC.RL(M)                                                    REC          565     A     
 REC      *         WC.RB(I) = WC.RB(M)                                                    REC          566     A     
 REC      *         WC.RA(I) = WC.RA(I) + WC.RA(M)                                         REC          567     A     
 REC      *                WHERE I = THE CURRENT LOCAL EQUIV VARIABLE                      REC          568     A     
 REC      *                          BEING PROCESSED,                                      REC          569     A     
 REC      *                      M = WC.BASE(I), THE ORDINAL OF THE BASE                   REC          570     A     
 REC      *                          MEMBER.                                               REC          571     A     
 REC                                                                                       REC          572     A     
 REC                                                                                       REC          573     A     
 REC       END115   BSS    0                                                               REC          574     A     
 REC                SA1    =XT=SYM                                                         REC          575          I
          -FC5A262
 REC                SA2    =XT.SYM                                                         REC          576          I
          -FC5A262
 REC                SA1    T=SYM                                                           FC5A262       59     A     
 REC                SA2    T.SYM                                                           FC5A262       60     A     
 REC                =B3    Z=SYM                                                           REC          577     A     
 REC                =A4    X2+WB.W     WBA = FWA(T.SYM) + WB.W                             REC          578     A     
 REC                SB4    X1          LENSYM = (T=SYM)                                    REC          579     A     
 REC                =B5    X2+WC.W                                                         REC          580     A     
 REC                MX0    WC.RLRBL                                                        REC          581     A     
 REC                LX0    WC.RLRBL+WC.RLRBP                                               REC          582     A     
 REC                                                                                       FC50252       27     A     
 REC       END120   SA4    A4+B3       WBA = WBA + Z=SYM,  WBI = (WBA)                     REC          583     A     
 REC                SB4    B4-B3       LENSYM = LENSYM - Z=SYM                             REC          584     A     
 REC                ZR     B4,END130   IF END OF T.SYM                                     REC          585     A     
 REC                CLAS=  X1,WB,(LAB)                                                     REC          586     A     
 REC                MX7    -WB.BASEL                                                       REC          587     A     
 REC                LX6    X4                                                              REC          588     A     
 REC                BX2    X1*X4                                                           REC          589     A     
 REC                IFBIT  X4,-WB.EQVP,END120    IF NOT EQUIVALENCED                       REC          590          I
          -FC50252
 REC                SBIT   X4,WB.EQVP                                                      FC50252       28     A     
 REC                PL     X4,END120   IF NOT EQUIVALENCED                                 FC50252       29     A     
 REC                NZ     X2,END120   IF LABEL                                            REC          591     A     
 REC                LX4    1+WB.EQVP-WB.BASEP                                              REC          592     A     
 REC                BX7    -X7*X4      BASEI = BASE[WBI]                                   REC          593     A     
 REC                                                                                       REC          594     A     
 REC       .TEST    IFEQ   TEST,ON,1                                                       REC          595     A     
 REC                ZR     X7,"BLOWUP" BASE ORD SHOULD NOT BE 0                            REC          596     A     
 REC                                                                                       REC          597     A     
 REC                =A3    A4-WB.W+WC.W      WCI                                           REC          598     A     
 REC                LX2    X7,B1                                                           REC          599     A     
 REC                IX2    X2+X7       STINDB = 3 * BASEI                                  REC          600     A     
 REC                ERRNZ  3-Z=SYM                                                         REC          601     A     
 REC                BX7    -X0*X3      ALL BUT (RLRB)                                      REC          602     A     
 REC                CLAS=  X1,WB,(COM)                                                     REC          603     A     
 REC                LX4    WB.BASEP    RESTORE (X4)                                        REC          604     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SA2    X2+B5       WCB = T.SYM(STINDB) + WC.W                          REC          605     A     
 REC                =A5    A2-WC.W+WB.W      WBB = WB ENTRY OF BASE                        REC          606     A     
 REC                BX1    X1*X5       COMB = COM[WBB]                                     REC          607     A     
 REC                BX6    X1+X4                                                           REC          608     A     
 REC                BX3    X0*X2       RLRBB = RLRB[WCB]                                   REC          609     A     
 REC                HX2    WC.RA                                                           REC          610     A     
 REC                AX2    -WC.RAL     RAB = RA[WCB]                                       REC          611     A     
 REC                SA1    =XUSAVE                                                         REC          612     A     
 REC                BX1    X1*X5       SAVEB = SAVE[WBB] IF UNIVERSAL SAVE                 REC          613     A     
 REC                BX6    X6+X1                                                           REC          614     A     
 REC                BX7    X7+X3                                                           REC          615     A     
 REC                IX7    X7+X2                                                           REC          616     A     
 REC                SA7    A3          (RLRB,RA) [WCI] = (RARBB,RAI+RAB) [WC.]             REC          617     A     
 REC                SA6    A4          (COM,SAVE) [WBI] = (COMB,SAVEB) [WBB]               REC          618     A     
 REC                EQ     END120                                                          REC          619     A     
 REC                                                                                       REC          620     A     
 REC                                                                                       REC          621     A     
 REC      **        PART 11 - DIAGNOSE OBJECT PROGRAM LENGTH TOO LONG FOR ANY              REC          622     A     
 REC      *         POSSIBLE SCM.                                                          REC          623     A     
 REC                                                                                       REC          624     A     
 REC                                                                                       REC          625     A     
 REC       END130   MX3    1                                                               REC          626     A     
 REC                RJ     GCL         GET LCM COMMON LENGTH                               REC          627     A     
 REC                SA6    COMSIZ+1                                                        REC          628     A     
 REC                MX3    0                                                               REC          629     A     
 REC                RJ     GCL         GET CM COMMON LENGTH                                REC          630     A     
 REC                =X7    X6-MAX.SPCM+1                                                   REC          631          I
          -FC5A126
 REC                SA1    =XSUM.LBT                                                       REC          632          I
          -FC5A126
 REC                SX7    MAX.SPCM                                                        FC5A126       41     A     
 REC                =X1    1                                                               FC5A126       42     A     
 REC                IX7    X7+X1                                                           FC5A126       43     A     
 REC                IX7    X6-X7                                                           FC5A126       44     A     
 REC                SA1    SUM.LBT                                                         FC5A126       45     A     
 REC                SA6    COMSIZ                                                          REC          633     A     
 REC                IX2    X1+X6       OBJ PROG LEN = PROG LEN + COMMON LEN                REC          634     A     
 REC                =X0    X2-MAX.SPCM+1                                                   REC          635          I
          -FC5A126
 REC                SX0    MAX.SPCM                                                        FC5A126       46     A     
 REC                =X1    1                                                               FC5A126       47     A     
 REC                IX0    X0+X1                                                           FC5A126       48     A     
 REC                IX0    X2-X0                                                           FC5A126       49     A     
 REC                MI     X7,END140   IF COMMON LEN O.K.                                  REC          636     A     
 REC                FATAL  E.MO8       COMMON LENGTH TOO LONG                              REC          637     A     
 REC       END140   MI     X0,EXIT.    IF OBJ PROG LEN  O.K.                               REC          638     A     
 REC                FATAL  E.MO1       PROGRAM UNIT LENGTH TOO LONG                        REC          639     A     
 REC                EQ     EXIT.       EXIT...                                             REC          640     A     
 REC                                                                                       REC          641     A     
 REC                                                                                       REC          642     A     
 REC                                                                                       REC          643     A     
 REC       ENDA     BSS    0           DEFINE SKELETON  *RL=PROG, RB=(BN=NLST)*            REC          644     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                POS    WC.RLP+WC.RLL                                                   REC          645     A     
 REC                VFD    WC.RLL/ML.PROG                                                  REC          646     A     
 REC                ERRMI  *P-WC.RBP-WC.RBL                                                REC          647     A     
 REC                POS    WC.RBP+WC.RBL                                                   REC          648     A     
 REC                VFD    WC.RBL/BN=NLST                                                  REC          649     A     
 REC                VFD    *P/0                                                            REC          650     A     
 REC                                                                                       REC          651     A     
 REC       ENDB     BSS    0           DEFINE SKELETON  *RL=PROG, RB=(BN=FMT)*             REC          652     A     
 REC                POS    WC.RLP+WC.RLL                                                   REC          653     A     
 REC                VFD    WC.RLL/ML.PROG                                                  REC          654     A     
 REC                ERRMI  *P-WC.RBP-WC.RBL                                                REC          655     A     
 REC                POS    WC.RBP+WC.RBL                                                   REC          656     A     
 REC                VFD    WC.RBL/BN=FMT                                                   REC          657     A     
 REC                VFD    *P/0                                                            REC          658     A     
 REC       ADA      SPACE  4,10                                                            REC          659     A     
 REC      **        ADA - ASSIGN (RUN-TIME) DIMENSION TABLE ADDRESSES.                     REC          660     A     
 REC      *                                                                                REC          661     A     
 REC      *         SEARCHES THRU T.DIM FOR ENTRIES WITH RUN-TIME MATERIALIZATION          REC          662     A     
 REC      *         BIT (DH.MAT) SET.  FOR EACH SUCH ENTRY, ASSIGNS A BLOCK- OR            REC          663     A     
 REC      *         PROGRAM-RELATIVE ADDRESS, REFERENCED TO A BASE ADDRESS                 REC          664     A     
 REC      *         PROVIDED BY THE CALLER IN (X7).                                        REC          665     A     
 REC      *                                                                                REC          666     A     
 REC      *                                                                                REC          667     A     
 REC      *         ENTRY  (X7) = BASE ADDRESS, AS ABOVE.                                  REC          668     A     
 REC      *                (X4) = 0, IF (DH.MAT) TO BE HONORED.                            REC          669     A     
 REC      *                (X4) = 1S59, IF TO COUNT ALL ENTRIES.                           REC          670     A     
 REC      *                                                                                REC          671     A     
 REC      *         EXIT   (X7) = INCREMENTED BY TOTAL LENGTH OF DIMENSION TABLES          REC          672     A     
 REC      *                       TO BE MATERIALIZED AT RUN-TIME.                          REC          673     A     
 REC      *                (T.DIM) = (DH.RA) SET IN HEADERS THAT HAD (DH.MAT) ON.          REC          674     A     
 REC      *                                                                                REC          675     A     
 REC      *         USES   A - 1,2.   X - ALL.   B - 2,3.                                  REC          676     A     
 REC      *                                                                                REC          677     A     
 REC      *         CALLS  NONE.                                                           REC          678     A     
 REC                                                                                       REC          679     A     
 REC                                                                                       REC          680     A     
 REC       ADA      SUBR   =           ENTRY/EXIT...                                       REC          681     A     
 REC                SA1    T=DIM                                                           REC          682     A     
 REC                SA2    T.DIM                                                           REC          683     A     
 REC                MX0    -DH.DIML                                                        REC          684     A     
 REC                =B2    0           (B2) = T.DIM INDEX OF ARRAY ENTRY HEADER            REC          685     A     
 REC                SB3    X1          (B3) = LENGTH OF T.DIM                              REC          686     A     
 REC                MX5    -DH.RAL                                                         REC          687     A     
 REC       ADA2     GE     B2,B3,EXIT. IF END OF T.DIM                                     REC          688     A     
 REC                SA1    X2+B2       NEXT ENTRY HEADER                                   REC          689     A     
 REC                LX1    -DH.DIMP                                                        REC          690     A     
 REC                BX3    -X0*X1      EXTRACT NUMBER OF DIMENSIONS                        REC          691     A     
 REC                SB2    B2+X3                                                           REC          692     A     
 REC                =X3    X3+1                                                            REC          693     A     
 REC                SB2    B2+X3       ADVANCE INDEX TO NEXT HEADER (2*NRDIM + 1)          REC          694     A     
 REC                LX1    DH.DIMP-1-DH.MATP                                               REC          695     A     
 REC                BX6    X4+X1       MATI = (X4) .OR. (DH.MAT)                           REC          696     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                PL     X6,ADA2     IF THIS ENTRY NOT MATERIAL                          REC          697     A     
 REC                LX1    DH.MATP+1-DH.RAP                                                REC          698     A     
 REC                BX1    X5*X1       CLEAR DH.RA                                         REC          699     A     
 REC                BX6    X1+X7       ADDRESS TO HEADER                                   REC          700     A     
 REC                IX7    X7+X3       ADVANCE ADDRESS (1*NRDIM + 1)                       REC          701     A     
 REC                LX6    DH.RAP                                                          REC          702     A     
 REC                SA6    A1                                                              REC          703     A     
 REC                EQ     ADA2        LOOP FOR NEXT ENTRY                                 REC          704     A     
 REC       GBS      SPACE  4,10                                                            REC          705     A     
 REC      **        GBS - GENERATE BLOCK OF STORAGE.                                       REC          706     A     
 REC      *                                                                                REC          707     A     
 REC      *         ENTRY  (X1) = LENGTH.                                                  REC          708     A     
 REC      *                (X2) = SYMORD TO BE DEFINED.                                    REC          709     A     
 REC      *                (A4,X4) = LOCAL BLOCK TABLE ENTRY.                              REC          710     A     
 REC      *                                                                                REC          711     A     
 REC      *         EXIT   (A4,X4) = NEW BLOCK TABLE ENTRY.                                REC          712     A     
 REC      *                (WC.RA(SYMORD)) = OLD LENGTH OF BLOCK.                          REC          713     A     
 REC      *                BLOCK TABLE ENTRY UPDATED.                                      REC          714     A     
 REC      *         USES   A1,A2,A3,A6,A7  X1,X2,X3,X6,X7  B7                              REC          715     A     
 REC                                                                                       REC          716     A     
 REC                                                                                       REC          717     A     
 REC       GBS      SUBR   0           ENTRY/EXIT...                                       REC          718     A     
 REC                LX1    LB.TBLNP                                                        REC          719     A     
 REC                IX6    X4+X1       TBLN(I) = TBLN(I) + LENGTH                          REC          720     A     
 REC                SA6    A4                                                              REC          721     A     
 REC                ZR     X2,GBS8     IF NO SYMBOL                                        REC          722     A     
 REC                                                                                       REC          723     A     
 REC                SA1    T.SYM                                                           REC          724     A     
 REC                LX7    X2,B1                                                           REC          725     A     
 REC                LX4    -LB.TBLNP                                                       REC          726     A     
 REC                IX2    X2+X7       STI = 3 * SYMORD                                    REC          727     A     
 REC                ERRNZ  3-Z=SYM                                                         REC          728     A     
 REC                =B7    X1+WC.W                                                         REC          729     A     
 REC                MX0    -LB.TBLNL                                                       REC          730     A     
 REC                SA2    X2+B7       WCI = T.SYM(STI) + WC.W                             REC          731     A     
 REC                BX4    -X0*X4      ADDR = ORIGINAL LENGTH OF BLOCK                     REC          732     A     
 REC                LX4    WC.RAP                                                          REC          733     A     
 REC                BX7    X2+X4       RA[WCI] = ADDR                                      REC          734     A     
 REC                SA7    A2                                                              REC          735     A     
 REC                                                                                       REC          736     A     
 REC       GBS8     BX4    X6          RETURN (X4) = NEW ENTRY                             REC          737     A     
 REC                EQ     EXIT.                                                           REC          738     A     
 REC       GCL      SPACE  4,30                                                            REC          739     A     
 REC      **        GCL -  GET COMMON LENGTHS.                                             REC          740     A     
 REC      *         THIS ROUTINE SUMS SIZE OF CM OR LCM COMMON BLOCKS.                     REC          741     A     
 REC      *                                                                                REC          742     A     
 REC      *         ENTRY  X3 = MASK(LCM), WHERE LCM = 0 FOR CM,  1 FOR LCM                REC          743     A     
 REC      *         EXIT   (X6) = TOTAL SIZE OF LOCAL COMMON                               REC          744     A     
 REC      *         USES   A1,A2,X0,X1,X2,B2-B6                                            REC          745     A     
 REC                                                                                       REC          746     A     
 REC                                                                                       REC          747     A     
 REC       GCL      SUBR   0           ENTRY/EXIT...                                       REC          748     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SA2    T.BLKS                                                          REC          749     A     
 REC                =B2    X2+CB.W                                                         REC          750     A     
 REC                =X6    0           COMLEN = 0                                          REC          751     A     
 REC                SA1    T=BLKS                                                          REC          752     A     
 REC                =B6    Z=BLKS      BLKIND = Z=BLKS                                     REC          753     A     
 REC                SB4    X1                                                              REC          754     A     
 REC                SB3    B6                                                              REC          755     A     
 REC                MX0    -CB.BLENL                                                       REC          756     A     
 REC       GCL10    GE     B6,B4,EXIT. IF END OF T.BLKS                                    REC          757     A     
 REC                SA1    B2+B6       CBI = CB ENTRY OF T.BLKS                            REC          758     A     
 REC                BX2    X1                                                              REC          759     A     
 REC                SB6    B6+B3       BLKIND = BLKIND + Z=BLKS                            REC          760     A     
 REC                AX1    CB.BLENP                                                        REC          761     A     
 REC                BX1    -X0*X1      BLENI = BLEN[CBI]                                   REC          762     A     
 REC                HX2    CB.LCM                                                          REC          763     A     
 REC                BX2    X2-X3                                                           REC          764     A     
 REC                MI     X2,GCL10    IF NOT REQUESTED RESIDENCE                          REC          765     A     
 REC                IX6    X6+X1       BLKLEN = BLKLEN + BLENI                             REC          766     A     
 REC                EQ     GCL10                                                           REC          767     A     
 REC       ISZ      SPACE  4,10                                                            REC          768     A     
 REC      **        ISZ -  INITIALIZE SUB0 TABLE.                                          REC          769     A     
 REC      *                SET HEADER (0) AND TERMINATOR (-0) WORDS FOR EACH F.P.          REC          770     A     
 REC      *                ENTRY IN THE SUB0 TABLE.                                        REC          771     A     
 REC      *                                                                                FC5A128      338     A     
 REC      *         ENTRY  (X5) = SIZE OF SUB0 TABLE, INC. HEADERS AND TERMS.              FC5A128      339     A     
 REC                                                                                       REC          772     A     
 REC                                                                                       REC          773     A     
 REC       #MD      IFNE   .DAL,0                                                          FC5A128      340     A     
 REC       ISZ      SUBR   0           ENTRY/EXIT...                                       REC          774     A     
 REC                ZR     X5,EXIT.    IF NO SUB0 TABLE                                    FC5A128      341     A     
 REC                ALLOC  T.SUB0,X5   ALLOCATE SPACE FOR TABLE                            FC5A128      342     A     
 REC                SA1    T.SUB0                                                          REC          775     A     
 REC                SA2    T.FPO                                                           REC          776     A     
 REC                SA3    T=SUB0                                                          REC          777     A     
 REC                SA4    T=FPO                                                           REC          778     A     
 REC                SB2    X1                                                              REC          779     A     
 REC                SB3    X4                                                              REC          780     A     
 REC                IX5    X1+X3                                                           REC          781     A     
 REC                MX6    0           0 HEADER WORD                                       REC          782     A     
 REC                MX7    60          -0 TERMINATOR WORD                                  REC          783     A     
 REC                SA7    X5-1        LWA(T.SUB0) = -0                                    REC          784     A     
 REC                ERRMI  FUDGE-1                                                         REC          785     A     
 REC       ISZ10    ZR     B3,EXIT.    IF END OF TABLE                                     REC          786     A     
 REC                SB3    B3-B1       I = I - 1                                           REC          787     A     
 REC                SA5    X2+B3       FPOI = T.FPO(I)                                     REC          788     A     
 REC                AX5    FP.SUB0P                                                        REC          789     A     
 REC                SA6    X5+B2       T.SUB0(SUB0FWA) = 0                                 REC          790     A     
 REC                =A7    A6-1        T.SUB0(SUB0FWA-1) = -0                              REC          791     A     
 REC                EQ     ISZ10                                                           REC          792     A     
 REC       #MD      ENDIF                                                                  FC5A128      343     A     
 REC       MER      SPACE  4,10                                                            REC          793     A     
 REC      **        MER - MARK EXTERNAL RELOCATION.                                        REC          794     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC      **        PART 4 - PROCESS EXTERNAL SYMBOLS.                                     REC          795     A     
 REC      *         FOR ALL EXTERNALS, SET                                                 REC          796     A     
 REC      *         WC.RL(I) = ML.EXT                                                      REC          797     A     
 REC      *         WC.RB(I) = 0                                                           REC          798     A     
 REC      *         SET (NREXT) = NUMBER OF EXTERNALS.                                     REC          799     A     
 REC      *         FOR EXTERNALS WHICH ARE FORMAL PARAMETERS, REGARD AS NON-              REC          800     A     
 REC      *         EXTERNALS FROM NOW ON, SO SET  EXT[WBI] = 0.                           REC          801     A     
 REC                                                                                       REC          802     A     
 REC                                                                                       REC          803     A     
 REC       MER      SUBR   0           ENTRY/EXIT...                                       REC          804     A     
 REC                SA2    T=SYM                                                           REC          805     A     
 REC                SA1    T.SYM                                                           REC          806     A     
 REC                CLAS=  X4,WC,(RLRB)                                                    REC          807     A     
 REC                CLAS=  X0,WB,(EXT)                                                     REC          808     A     
 REC                SX7    B1          INITIALIZE EXTERNAL COUNTER                         REC          809     A     
 REC                SB7    X2                                                              REC          810     A     
 REC                =B3    Z=SYM                                                           REC          811     A     
 REC                =X2    ML.EXT      RLI = ML.EXT                                        REC          812     A     
 REC                =A3    X1+WB.W                                                         REC          813     A     
 REC                LX2    WC.RLP                                                          REC          814     A     
 REC       MER20    SA3    A3+B3       WBA = WBA + L.SYM, WBI = (WBA)                      REC          815     A     
 REC                SB7    B7-B3                                                           REC          816     A     
 REC                ZR     B7,EXIT.    IF SYMTAB EXHAUSTED                                 REC          817     A     
 REC                BX5    X3                                                              REC          818     A     
 REC                BX6    X0*X3                                                           REC          819     A     
 REC                HX5    WB.LAB                                                          REC          820     A     
 REC                MI     X5,MER20    IF LABEL                                            REC          821     A     
 REC                ZR     X6,MER20    IF NOT EXTERNAL                                     REC          822     A     
 REC                LX5    WB.LABP-WB.FPP                                                  REC          823     A     
 REC                =A1    A3-WB.W+WC.W                                                    REC          824     A     
 REC                PL     X5,MER30    IF NOT F.P.                                         REC          825     A     
 REC                BX6    -X0*X3                                                          REC          826     A     
 REC                SA6    A3          EXT[WBI] = 0                                        REC          827     A     
 REC                EQ     MER20                                                           REC          828     A     
 REC                                                                                       REC          829     A     
 REC       MER30    SX7    X7+B1       COUNT EXTERNALS                                     REC          830     A     
 REC                BX5    -X4*X1      CLEAR (RLRB) FIELD                                  REC          831     A     
 REC                IX6    X5+X2                                                           REC          832     A     
 REC                SA6    A1          (RL,RB) [WCI] = (RLI,0) [WC.]                       REC          833     A     
 REC                EQ     MER20                                                           REC          834     A     
 REC       RAT      SPACE  4,30                                                            REC          835     A     
 REC      **        RAT -  RELOCATE AUXILLIARY TABLES.                                     REC          836     A     
 REC      *         ENTRY -(A1) = LENGTH OF TABLE                                          REC          837     A     
 REC      *                (A2) = FWA  OF TABLE                                            REC          838     A     
 REC      *                                                                                REC          839     A     
 REC      *         THE TABLE ELEMENTS ARE ONE WORD PER TABLE ENTRY                        REC          840     A     
 REC      *         EACH TABLE ENTRY HAS THE FORMAT AS DEFINED BY WC.W OF THE              REC          841     A     
 REC      *         SYMBOL TABLE.                                                          REC          842     A     
 REC                                                                                       REC          843     A     
 REC                                                                                       REC          844     A     
 REC       RAT      SUBR   0           ENTRY/EXIT...                                       REC          845     A     
 REC                SB2    =XF.LBT                                                         REC          846     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                ZR     X1,EXIT.    IF LENGTH OF TABLE = 0                              REC          847     A     
 REC                SB3    X1          LENTAB = LENGTH OF TABLE                            REC          848     A     
 REC                SA1    X2          TA = FWA OF TABLE                                   REC          849     A     
 REC                MX7    -LB.ORGL                                                        REC          850     A     
 REC       RAT10    SB3    B3-B1       LENTAB = LENTAB - 1                                 REC          851     A     
 REC                SA1    A1+B1       TA = TA + 1,  TI = (TA)                             REC          852     A     
 REC                EQ     B3,B0,EXIT. IF TABLE EXHAUSTED                                  REC          853     A     
 REC                BX2    X1                                                              REC          854     A     
 REC                HX2    WC.RB                                                           REC          855     A     
 REC                AX2    -WC.RBL     RBI = RB[TI]                                        REC          856     A     
 REC                SA4    X2+B2       LBI = LBT(RBI)                                      REC          857     A     
 REC                LX4    -LB.ORGP                                                        REC          858     A     
 REC                BX4    -X7*X4      ORGI = ORG[LBI]                                     REC          859     A     
 REC                LX4    WC.RAP                                                          REC          860     A     
 REC                IX6    X1+X4                                                           REC          861     A     
 REC                SA6    A1          RA[TI] = (RA[TI] + ORGI) [WC.]                      REC          862     A     
 REC                EQ     RAT10                                                           REC          863     A     
 REC       SSA      SPACE  4,10                                                            REC          864     A     
 REC      **        SSA - SET SYMBOL ADDRESSES.                                            REC          865     A     
 REC      *                                                                                REC          866     A     
 REC      *         PHASE 1 OF SYMBOL TABLE COMPLETION.                                    REC          867     A     
 REC      *                                                                                REC          868     A     
 REC      *         FIRST, INDEX THE SYMBOL TABLE RELATIVE TO THE LBT (F.LBT).             REC          869     A     
 REC      *         THIS INVOLVES SETTING THE  WC.RB  FIELD OF UNIQUE LOCAL                REC          870     A     
 REC      *         SYMBOLS TO AN INDEX WHICH POINTS INTO THE FIXED TABLE,  F.LBT.         REC          871     A     
 REC      *         ALSO, THE TBLN FIELD OF  F.LBT  WILL BE ADJUSTED TO ACCOUNT            REC          872     A     
 REC      *         FOR THE LENGTH OF EACH UNIQUE LOCAL SYMBOL PROCESSED.                  REC          873     A     
 REC      *                                                                                REC          874     A     
 REC      *         FOR UNIQUE LOCAL VARIABLES, SET...                                     REC          875     A     
 REC      *         WC.RL(I) = ML.PROG  / (INDICATES PROGRAM RELOCATABLE).                 REC          876     A     
 REC      *         WC.RB(I) = (BN=VAR),                                                   REC          877     A     
 REC      *         WC.RA(I) = TBLN [LBT(BN=VAR)]                                          REC          878     A     
 REC      *         TBLN [LBT(BN=VAR)] = TBLN [LBT(BN=VAR)] + DIM SIZE                     REC          879     A     
 REC      *                FOR EACH LOCAL VARIABLE.                                        REC          880     A     
 REC      *         FOR CHARACTER VARIABLES, DIM SIZE = DIM SIZE * CLEN[WCI] / 10          REC          881     A     
 REC                                                                                       REC          882     A     
 REC                                                                                       REC          883     A     
 REC       SSA      SUBR   0           ENTRY/EXIT...                                       REC          884     A     
 REC                SA1    =XT.SYM                                                         REC          885          I
          -FC5A262
 REC                SA1    T.SYM                                                           FC5A262       61     A     
 REC                =B3    Z=SYM                                                           REC          886     A     
 REC                SA2    =XT=SYM                                                         REC          887          I
          -FC5A262
 REC                SA2    T=SYM                                                           FC5A262       62     A     
 REC                =A3    X1+WB.W     WBA = FWA(T.SYM) + WB.W                             REC          888     A     
 REC                CLAS=  X4,WB,(LAB,FP,EXT,NVAR,NLST,PARM,EQV,COM,ENT,SAVE)              REC          889     A     
 REC                =X6    ML.PROG                                                         REC          890     A     
 REC                =X5    BN=VAR                                                          REC          891     A     
 REC                LX6    WC.RLP                                                          REC          892     A     
 REC                LX5    WC.RBP                                                          REC          893     A     
 REC                BX5    X5+X6       (X5) = (RL,RB) = (ML.PROG,BN=VAR) [WC.]             REC          894     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SB7    X2          STLEN = (T=SYM)                                     REC          895     A     
 REC                SA1    =XT.DIM                                                         REC          896     A     
 REC                BX0    0           VARLEN = 0                                          REC          897     A     
 REC                =B5    X1          FWA DIM TABLE  (T.DIM)                              REC          898     A     
 REC                                                                                       REC          899     A     
 REC      *         B3  =  LENGTH OF SYMBOL TABLE ENTRY                                    REC          900     A     
 REC      *         B5  =  FWA  DIMENSION TABLES                                           REC          901     A     
 REC      *         B7  =  SYMBOL TABLE LENGTH                                             REC          902     A     
 REC      *         (X0) =  VARLEN                                                         REC          903     A     
 REC      *         X4 = CLASS BITS MASK                                                   REC          904     A     
 REC                                                                                       REC          905     A     
 REC       SSA10    SA3    A3+B3       WBA = WBA + L.SYM, WBI = (WBA)                      REC          906     A     
 REC                SB7    B7-B3       STLEN = STLEN + L.SYM                               REC          907     A     
 REC                ZR     B7,SSA30    IF SYMTAB EXHAUSTED                                 REC          908     A     
 REC                                                                                       REC          909     A     
 REC       .TEST    IFEQ   TEST,ON,1                                                       REC          910     A     
 REC                MI     B7,"BLOWUP" IF SYMBOL TABLE LENGTH NOT MULT OF L.SYM            REC          911     A     
 REC                                                                                       REC          912     A     
 REC                BX2    X4*X3                                                           REC          913     A     
 REC                NZ     X2,SSA10    IF NOT UNIQUE LOCAL, AVOID..                        REC          914     A     
 REC                IFBIT  X3,-WB.MATP,SSA10 IF NOT MATERIALIZED                           REC          915          I
          -FC5A262
 REC                SBIT   X3,WB.MATP                                                      FC5A262       63     A     
 REC                PL     X3,SSA10    IF NOT MATERIALIZED                                 FC5A262       64     A     
 REC                =A1    A3-WB.W+WC.W      WCI = WC.W ENTRY                              REC          916     A     
 REC                CLAS=  X2,WC,(RLRB,RA)                                                 REC          917     A     
 REC                BX2    X2*X1       RBRAI = (RLRB, RA) [WCI]                            REC          918     A     
 REC                MX6    -WB.MODEL                                                       REC          919     A     
 REC                NZ     X2,SSA10    IF STORAGE ALREADY ALLOCATED                        REC          920     A     
 REC                                                                                       REC          921          I
          -FC5A262
 REC                LX3    WB.MATP+1-WB.PNTP                                               REC          922     A     
 REC                MX7    -WB.PNTL                                                        REC          923     A     
 REC                BX2    -X7*X3      DTIND = PNT[WBI]                                    REC          924     A     
 REC                SA2    X2+B5       TDI = T.DIM(DTIND)                                  REC          925     A     
 REC                HX2    DH.PS                                                           REC          926     A     
 REC                AX2    -DH.PSL     SIZE = PS[TDI]                                      REC          927     A     
 REC                LX3    WB.PNTP-WB.MODEP                                                REC          928     A     
 REC                BX7    -X6*X3      MODEI = MODE[WBI]                                   REC          929     A     
 REC                SX6    X7-M.CHAR                                                       REC          930     A     
 REC                MX3    -0                                                              REC          931     A     
 REC                SB2    X7-M.DBL                                                        REC          932     A     
 REC                EQ     B2,B0,SSA20 IF MODE = DOUBLE                                    REC          933     A     
 REC                EQ     B2,B1,SSA20 IF MODE = COMPLEX                                   REC          934     A     
 REC                SX3    0           INDICATE SINGLE WORD ELEMENT                        REC          935     A     
 REC                NZ     X6,SSA20    IF NOT MODE CHARACTER                               REC          936     A     
 REC                BX7    X1                                                              REC          937     A     
 REC                HX7    WC.CLEN                                                         REC          938     A     
 REC                AX7    -WC.CLENL   CLENI = CLEN[WCI]                                   REC          939     A     
 REC                IX7    X2*X7       SIZE = SIZE * CLENI                                 REC          940     A     
 REC                CW     X2,X7       SIZE = SIZE / 10                                    REC          941     A     
 REC                                                                                       FC5A262       65     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC       SSA20    BX1    X1+X5                                                           REC          942     A     
 REC                MX6    -WC.RAL                                                         REC          943     A     
 REC                BX7    -X6*X0                                                          REC          944     A     
 REC       .T       IFEQ   TEST,ON                                                         REC          945     A     
 REC                LX1    -WC.RAP                                                         REC          946     A     
 REC                BX6    -X6*X1      RAI = RA[WCI]                                       REC          947     A     
 REC                NZ     X6,"BLOWUP" IF RAI .NE. 0                                       REC          948     A     
 REC                LX1    WC.RAP                                                          REC          949     A     
 REC       .T       ENDIF                                                                  REC          950     A     
 REC                BX3    X3*X2                                                           REC          951     A     
 REC                IX2    X2+X3       SIZE = 2 * SIZE (IF DOUBLE WORD)                    REC          952     A     
 REC                LX7    WC.RAP                                                          REC          953     A     
 REC                BX7    X7+X1                                                           REC          954     A     
 REC                IX0    X2+X0       VARLEN = VARLEN + SIZE                              REC          955     A     
 REC                SA7    A1          (RL,RB,RA)[WCI] = (RLI,BN=VAR,VARLEN)[WC.]          REC          956     A     
 REC                EQ     SSA10                                                           REC          957     A     
 REC                                                                                       REC          958     A     
 REC      *         UPDATE BLOCK LENGTH FOR (BN=VAR) BLOCK.                                REC          959     A     
 REC      *         (X0) = VARLEN                                                          REC          960     A     
 REC                                                                                       REC          961     A     
 REC       SSA30    SB4    =XF.LBT+BN=VAR                                                  REC          962          I
          -FC5A126
 REC       SSA30    SB4    F.LBT+BN=VAR                                                    FC5A126       50     A     
 REC                SA3    B4          LBVAR = LBT ENTRY FOR VARIABLES                     REC          963     A     
 REC                MX6    -LB.TBLNL                                                       REC          964     A     
 REC                LX3    -LB.TBLNP                                                       REC          965     A     
 REC                BX7    X6*X3                                                           REC          966     A     
 REC                SX4    X0-MAX.SPCM+1                                                   REC          967          I
          -FC5A126
 REC                MI     X4,SSA40    IF VARLEN .LT. 2**17-1                              REC          968          I
          -FC5A126
 REC                ERRNZ  18-LB.TBLNL                                                     REC          969          I
          -FC5A126
 REC                FATAL  E.MO3       VARIABLE BLOCK LENGTH .GT. 2**17-1                  REC          970          I
          -FC5A126
 REC                =X0    MAX.SPCM                                                        REC          971          I
          -FC5A126
 REC       SSA40    BX7    X7+X0                                                           REC          972          I
          -FC5A126
 REC                BX7    X7+X0                                                           FC5A126       51          I
          -FC5A139
 REC                                                                                       REC          973          I
          -FC5A139
 REC                SX4    MAX.SPCM                                                        FC5A139        4     A     
 REC                =X1    1                                                               FC5A139        5     A     
 REC                IX4    X4+X1                                                           FC5A139        6     A     
 REC                IX4    X0-X4                                                           FC5A139        7     A     
 REC                MI     X4,SSA40    IF VARIABLE LENGTH .LE. MAX.SPCM                    FC5A139        8     A     
 REC                SX0    MAX.SPCM                                                        FC5A139        9     A     
 REC                                                                                       FC5A262       66     A     
 REC       SSA40    BX7    X7+X0                                                           FC5A139       10     A     
 REC                LX7    LB.TBLNP                                                        REC          974     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REC     
  
 REC                SA7    A3          TBLN[LBVAR] = VARLEN                                REC          975     A     
 REC                EQ     EXIT.                                                           REC          976     A     
 REC       END      SPACE  4,10                                                            REC          977     A     
 REC                LIST   D                                                               REC          978     A     
 REC                END                                                                    REC          979     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - REC     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          REC                        979       914
          FC5A126                     12        11
          FC5A128                     15        15
          FC5A130                      2         1
          FC5A139                      7         7
          FC5A174                      2         2
          FC5A197                      1         1
          FC5A262                     32        32
          FC50252                     12        12
          FC50616                      4         4
          FC51002                      6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RERRS   
  
 RERRS    *DECK     RERRS  REAR END ERROR MESSAGE TEXTS                                    RERRS          1     A     
 RERRS              IDENT  RERRS                                                           RERRS          2     A     
 RERRS     RERRS    SECT   (REAR END ERROR MESSAGE TEXTS.)                                 RERRS          3     A     
 RERRS     RERRS    SPACE  4,10                                                            RERRS          4     A     
 RERRS    *         IN PEM                                                                 RERRS          5     A     
 RERRS              EXT    PEM,PEMS                                                        RERRS          6     A     
 RERRS                                                                                     RERRS          7     A     
 RERRS    *         IN PUC                                                                 RERRS          8     A     
 RERRS              EXT    ERR.F,ERR.D                                                     RERRS          9     A     
 RERRS    *CALL     COMAERR            ERROR PROCESSOR MACROS                              RERRS         10     A     
 RERRS    *CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              RERRS         11     A     
 RERRS     ERRORS   TITLE  ERROR MESSAGE TEXTS.                                            RERRS         12     A     
 RERRS    *CALL COMFERR                                                                    RERRS         13     A     
 RERRS     CCGERR   SPACE  4,10                                                            RERRS         14     A     
 RERRS    **        (2,2) PRODUCED ERRORS.                                                 RERRS         15     A     
 RERRS    *                                                                                RERRS         16     A     
 RERRS                                                                                     RERRS         17     A     
 RERRS                                                                                     RERRS         18     A     
 RERRS     E.CCG    ERROR  F,*,("LCM" HARDWARE ERROR)                                      RERRS         19     A     
 RERRS              SPACE  4,10                                                            RERRS         20     A     
 RERRS              LIST   D                                                               RERRS         21     A     
 RERRS              END                                                                    RERRS         22     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - RERRS   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          RERRS                       22        22
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RERRS   
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK    *DECK     RLINK - REAR END LINKAGES.                                             RLINK          1     A     
 RLINK              IDENT  RLINK                                                           RLINK          2     A     
 RLINK     RLINK    SECT   (REAR-END LINKAGES.)                                            RLINK          3     A     
 RLINK              SPACE  4,10                                                            RLINK          4     A     
 RLINK    *         IN ALLOC                                                               RLINK          5     A     
 RLINK              EXT    ADW                                                             RLINK          6     A     
 RLINK                                                                                     RLINK          7     A     
 RLINK    *         IN CCGLINK                                                             RLINK          8     A     
 RLINK              EXT    APCON,ERR22                                                     RLINK          9     A     
 RLINK                                                                                     RLINK         10     A     
 RLINK    *         IN FAS                                                                 RLINK         11     A     
 RLINK              EXT    RNI                                                             RLINK         12     A     
 RLINK                                                                                     RLINK         13     A     
 RLINK    *         IN PEM                                                                 RLINK         14     A     
 RLINK              EXT    PDM                                                             RLINK         15     A     
 RLINK                                                                                     RLINK         16     A     
 RLINK    *         IN PUC                                                                 RLINK         17     A     
 RLINK              EXT    N.TABLE,S=CON,T=APL,T=CAC,T=CON,T.APL,T.CAC,T.CON,T.CUT         RLINK         18     A     
 RLINK              EXT    T.STMT,T.SYM                                                    RLINK         19          I
          -FC51315
 RLINK              EXT    T.STMT,T.SYM,T=NLST                                             FC51315        6     A     
 RLINK                                                                                     RLINK         20     A     
 RLINK    *         IN RERRS                                                               RLINK         21     A     
 RLINK              EXT    E.CCG,E.MO2                                                     RLINK         22     A     
 RLINK     RLINK    SPACE  4                                                               RLINK         23     A     
 RLINK    ***              RLINK PROVIDES ENTRY POINTS.......                              RLINK         24     A     
 RLINK                                                                                     RLINK         25     A     
 RLINK                                                                                     RLINK         26     A     
 RLINK     FEC=BY   EQUENT 0                                                               RLINK         27     A     
 RLINK     STAGE    BSSENT 1                                                               RLINK         28     A     
 RLINK                                                                                     RLINK         29     A     
 RLINK     BLL      BSSENT                                                                 RLINK         30     A     
 RLINK     CHARMAP  BSSENT                                                                 RLINK         31     A     
 RLINK     FEC.RTN  BSSENT                                                                 RLINK         32     A     
 RLINK     LEXFLG   BSSENT                                                                 FC50889       21     A     
 RLINK              EQ     "BLOWUP"                                                        RLINK         33     A     
 RLINK                                                                                     RLINK         34     A     
 RLINK                                                                                     RLINK         35     A     
 RLINK     LDB      SUBR   =           DUMMY ENTRY POINT                                   RLINK         36     A     
 RLINK     .T       IFEQ   TEST,ON,2                                                       RLINK         37     A     
 RLINK              SA1    =XT.STMT                                                        RLINK         38     A     
 RLINK              NZ     X1,"BLOWUP" IF STATEMENT TABLE NOT EMPTY                        RLINK         39     A     
 RLINK              EQ     EXIT.                                                           RLINK         40     A     
 RLINK     CGE      SPACE  4,10                                                            RLINK         41     A     
 RLINK    **        CGE -  CHECK (CODE) GENERATOR ERRORS                                   RLINK         42     A     
 RLINK    *                                                                                RLINK         43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK    *         QUERIES *ERR22* FOR ERRORS NOTED DURING (2,2) OVERLAY.                 RLINK         44     A     
 RLINK    *         OUTPUTS THE PROPER DIAGNOSTIC, AS APPLICABLE.                          RLINK         45     A     
 RLINK                                                                                     RLINK         46     A     
 RLINK                                                                                     RLINK         47     A     
 RLINK     CGE      SUBR   =           ...ENTRY/EXIT...                                    RLINK         48     A     
 RLINK              SA1    ERR22                                                           RLINK         49     A     
 RLINK              ZR     X1,EXIT.    IF NO DIAGNOSTICS TO OUTPUT                         RLINK         50     A     
 RLINK              SB7    E.MO2       INSUFFICIENT FL                                     RLINK         51     A     
 RLINK              SX1    X1-1                                                            RLINK         52     A     
 RLINK              NZ     X1,CGE1     IF NOT FL MESSAGE                                   RLINK         53     A     
 RLINK              SB7    E.CCG       ECS/LCM HARDWARE ERROR                              RLINK         54     A     
 RLINK                                                                                     RLINK         55     A     
 RLINK     CGE1     FATAL  B7                                                              RLINK         56     A     
 RLINK              SX6    0                                                               RLINK         57     A     
 RLINK              SA6    ERR22       CLEAR DIAGNOSTIC FLAG                               RLINK         58     A     
 RLINK              EQ     EXIT.                                                           RLINK         59     A     
 RLINK     CELLS    SPACE  4,10                                                            RLINK         60     A     
 RLINK     LSR      CONENT 0           .NZ. IF FORMAL PARAMETER REFERENCE                  RLINK         61     A     
 RLINK     N.ALTEN  CONENT 0           NUMBER OF ALTERNATE ENTRIES                         RLINK         62     A     
 RLINK                                                                                     RLINK         63     A     
 RLINK                                                                                     RLINK         64     A     
 RLINK    *         RTT - REGISTER TRANSLATION TABLE.                                      RLINK         65     A     
 RLINK                                                                                     RLINK         66     A     
 RLINK     RTT      BSS                                                                    RLINK         67     A     
 RLINK              ECHO   2,T=(1,0,2) (B,A,X)                                             RLINK         68     A     
 RLINK              ECHO   1,N=(0,1,2,3,4,5,6,7)                                           RLINK         69     A     
 RLINK              VFD    9/200B,3/T,45/0,3/N                                             RLINK         70     A     
 RLINK                                                                                     RLINK         71     A     
 RLINK                                                                                     RLINK         72     A     
 RLINK    *         HTT - H FIELD TRANSLATION TABLE.                                       RLINK         73     A     
 RLINK                                                                                     RLINK         74     A     
 RLINK     HTT      BSS                                                                    RLINK         75     A     
 RLINK              ECHO   1,T=(4,5,6,7,3)   RJOBK (A+,A-,B+,B-,X+)                        RLINK         76     A     
 RLINK              VFD    6/T,54/0                                                        RLINK         77     A     
 RLINK                                                                                     RLINK         78     A     
 RLINK                                                                                     RLINK         79     A     
 RLINK    *         BJT - B JUMP TABLE.                                                    RLINK         80     A     
 RLINK                                                                                     RLINK         81     A     
 RLINK     BJT      BSS                                                                    RLINK         82     A     
 RLINK     .Z       SET    4                                                               RLINK         83     A     
 RLINK              ECHO   2,T=(EQ,NE,GE,LT)                                               RLINK         84     A     
 RLINK     JB.T     =      .Z                                                              RLINK         85     A     
 RLINK     .Z       SET    .Z+1                                                            RLINK         86     A     
 RLINK                                                                                     RLINK         87     A     
 RLINK              ECHO   1,JT=("BJUMPS")                                                 RLINK         88     A     
 RLINK              CON    JB.JT                                                           RLINK         89     A     
 RLINK     OPR      SPACE  4,10                                                            RLINK         90     A     
 RLINK    **        OPR - DEFINE OPR MACRO FOR JUMPS.                                      RLINK         91     A     
 RLINK                                                                                     RLINK         92     A     
 RLINK              PURGMAC            OPR                                                 RLINK         93     A     
 RLINK                                                                                     RLINK         94     A     
 RLINK              MACRO  OPR,NAM                                                         RLINK         95     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK              EQ     CI=NAM                                                          RLINK         96     A     
 RLINK     OPR      ENDM                                                                   RLINK         97     A     
 RLINK                                                                                     RLINK         98     A     
 RLINK     OPJP     BSS                                                                    RLINK         99     A     
 RLINK              LOC    0                                                               RLINK        100     A     
 RLINK    *CALL     OPRDEFS            OPT OPCODE DEFINITIONS                              RLINK        101     A     
 RLINK              LOC    *O                                                              RLINK        102     A     
 RLINK              TITLE  CII - CONVERT ISSUED INSTRUCTIONS.                              RLINK        103     A     
 RLINK     CII      SPACE  4,10                                                            RLINK        104     A     
 RLINK    **        CII - CONVERT ISSUED INSTRUCTIONS.                                     RLINK        105     A     
 RLINK    *                                                                                RLINK        106     A     
 RLINK    *         CALLED FROM *RAD* OF FAS TO CONVERT INSTRUCTIONS                       RLINK        107     A     
 RLINK    *         FROM *SI* TO *PB* FORMAT.                                              RLINK        108     A     
 RLINK    *         ENTRY  (X5) = INSTRUCTION IN *SI* FORMAT                               RLINK        109     A     
 RLINK    *         EXIT   (X5) = INSTRUCTION IN *PB* FORMAT                               RLINK        110     A     
 RLINK                                                                                     RLINK        111     A     
 RLINK                                                                                     RLINK        112     A     
 RLINK     CII      SUBR   =           ...ENTRY/EXIT...                                    RLINK        113     A     
 RLINK                                                                                     RLINK        114     A     
 RLINK    *         INITIALIZE REGISTERS FOR PROCESSORS --                                 RLINK        115     A     
 RLINK    *         (B2) = OC[PI]                                                          RLINK        116     A     
 RLINK    *         (B6) = RTT                                                             RLINK        117     A     
 RLINK    *         (X0) = MASK(-6)                                                        RLINK        118     A     
 RLINK    *         (X4) = RTT( RI[PI] )                                                   RLINK        119     A     
 RLINK    *         (X5) = [PI]                                                            RLINK        120     A     
 RLINK                                                                                     RLINK        121     A     
 RLINK              MX0    -6                                                              RLINK        122     A     
 RLINK              SB6    RTT                                                             RLINK        123     A     
 RLINK              BX6    -X0*X5                                                          RLINK        124     A     
 RLINK              UX7    B2,X5                                                           RLINK        125     A     
 RLINK              SA4    RTT+X6      I = RTT( RI[PI] )                                   RLINK        126     A     
 RLINK              JP     OPJP+B2     JUMP( OPJP( OC[PI] )                                RLINK        127     A     
 RLINK              TITLE  INSTRUCTION PROCESSORS.                                         RLINK        128     A     
 RLINK     NOP      SPACE  4,10                                                            RLINK        129     A     
 RLINK    **        PROCESS NOP.                                                           RLINK        130     A     
 RLINK                                                                                     RLINK        131     A     
 RLINK     CI=NOP   BSS                                                                    RLINK        132     A     
 RLINK              EQ     EXIT.                                                           RLINK        133     A     
 RLINK     BOS      SPACE  4,10                                                            RLINK        134     A     
 RLINK    **        PROCESS BOS.                                                           RLINK        135     A     
 RLINK                                                                                     RLINK        136     A     
 RLINK     CI=BOS   BSS                                                                    RLINK        137     A     
 RLINK              SX7    I.BOS                                                           RLINK        138     A     
 RLINK              LX7    PB.GHIJP    [PB] = OC[PB]                                       RLINK        139     A     
 RLINK              LX5    -SI.CAP                                                         RLINK        140     A     
 RLINK              SX3    X5          CA[PI]                                              RLINK        141     A     
 RLINK              LX3    PB.BIASP                                                        RLINK        142     A     
 RLINK              BX5    X7+X3       [PB] = [PB] + BIAS[PB]                              RLINK        143     A     
 RLINK              EQ     EXIT.                                                           RLINK        144     A     
 RLINK     TYI      SPACE  4,10                                                            RLINK        145     A     
 RLINK    **        TYPE I  OC=10-17,22-30,31-42,44,45,47                                  RLINK        146     A     
 RLINK    *         PRI RJORK   (GH IJK)                                                   RLINK        147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK    *         FROM (OC,RK,RJ,RI) TO (GHIJK)                                          RLINK        148     A     
 RLINK                                                                                     RLINK        149     A     
 RLINK     TYI      MACRO  NAM                                                             RLINK        150     A     
 RLINK              IRP    NAM                                                             RLINK        151     A     
 RLINK     CI=NAM   BSS    0                                                               RLINK        152     A     
 RLINK              IRP                                                                    RLINK        153     A     
 RLINK     TYI      ENDM                                                                   RLINK        154     A     
 RLINK                                                                                     RLINK        155     A     
 RLINK              TYI    (AND,OR,XOR)                                                    RLINK        156     A     
 RLINK              TYI    (ILS,IRS,NR,RNZ,UP,PK,FA)         OC = 22-30                    RLINK        157     A     
 RLINK              TYI    (FS,DFA,DFS,RFA,RFS,IA,IS,FM,RFM,DFM) OC=31-42                  RLINK        158     A     
 RLINK              TYI    (FD,RFD,CX)                       OC = 44,45,47                 RLINK        159     A     
 RLINK                                                                                     RLINK        160     A     
 RLINK     TYI      BSS                                                                    RLINK        161     A     
 RLINK              SX7    B2          (X7) = OC                                           RLINK        162     A     
 RLINK              LX7    PB.GHP                                                          RLINK        163     A     
 RLINK              SX3    X4          I = RTT( RI[PI] )                                   RLINK        164     A     
 RLINK              LX3    PB.IP                                                           RLINK        165     A     
 RLINK              BX7    X7+X3       [P] = OC[PB] + I[PB]                                RLINK        166     A     
 RLINK              LX5    -SI.RJP                                                         RLINK        167     A     
 RLINK              BX2    -X0*X5                                                          RLINK        168     A     
 RLINK              SA3    B6+X2       J = RTT( RJ[PI] )                                   RLINK        169     A     
 RLINK              SX2    X3                                                              RLINK        170     A     
 RLINK              LX2    PB.JP                                                           RLINK        171     A     
 RLINK              BX7    X7+X2       [PB] = [PB] + J[PB]                                 RLINK        172     A     
 RLINK              LX5    SI.RJP-SI.RKP                                                   RLINK        173     A     
 RLINK              BX2    -X0*X5                                                          RLINK        174     A     
 RLINK              SA3    B6+X2       RK = RTT( RK[PI] )                                  RLINK        175     A     
 RLINK              SX2    X3                                                              RLINK        176     A     
 RLINK              LX2    PB.KP                                                           RLINK        177     A     
 RLINK              BX5    X7+X2       [PB] = [PB] + K[PB]                                 RLINK        178     A     
 RLINK              EQ     EXIT.                                                           RLINK        179     A     
 RLINK     TYPE1    SPACE  4,8                                                             RLINK        180     A     
 RLINK    *         XMT AND XMTC NEED K=J                                                  RLINK        181     A     
 RLINK                                                                                     RLINK        182     A     
 RLINK     CI=XMT   BSS                                                                    RLINK        183     A     
 RLINK     CI=XMTC  BSS                                                                    RLINK        184     A     
 RLINK              SX7    B2          (X7) = OC                                           RLINK        185     A     
 RLINK              LX7    PB.GHP                                                          RLINK        186     A     
 RLINK              SX3    X4          I = RTT( RI[PI] )                                   RLINK        187     A     
 RLINK              LX3    PB.IP                                                           RLINK        188     A     
 RLINK              BX7    X7+X3       [P] = OC[PB] + I[PB]                                RLINK        189     A     
 RLINK              LX5    -SI.RJP                                                         RLINK        190     A     
 RLINK              BX2    -X0*X5                                                          RLINK        191     A     
 RLINK              SA3    B6+X2       J = RTT( RJ[PI] )                                   RLINK        192     A     
 RLINK              SX2    X3                                                              RLINK        193     A     
 RLINK              LX2    PB.JP                                                           RLINK        194     A     
 RLINK              BX7    X7+X2       [PB] = [PB] + J[PB]                                 RLINK        195     A     
 RLINK              LX2    PB.KP-PB.JP                                                     RLINK        196     A     
 RLINK              BX5    X7+X2       [PB] = [PB] + K[PB]                                 RLINK        197     A     
 RLINK              EQ     EXIT.                                                           RLINK        198     A     
 RLINK    TYPE1     SPACE  4,8                                                             RLINK        199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK                                                                                     RLINK        200     A     
 RLINK    *         NON-COMMUTATIVE BOOLEANS ARE OCIKJ.                                    RLINK        201     A     
 RLINK                                                                                     RLINK        202     A     
 RLINK     CI=STR   BSS    0                                                               RLINK        203     A     
 RLINK     CI=IMP   BSS    0                                                               RLINK        204     A     
 RLINK     CI=EQV   BSS    0                                                               RLINK        205     A     
 RLINK              SX7    B2          (X7) = OC                                           RLINK        206     A     
 RLINK              LX7    PB.GHP                                                          RLINK        207     A     
 RLINK              SX3    X4          I = RTT( RI[PI] )                                   RLINK        208     A     
 RLINK              LX3    PB.IP                                                           RLINK        209     A     
 RLINK              BX7    X7+X3       [P] = OC[PB] + I[PB]                                RLINK        210     A     
 RLINK              LX5    -SI.RJP                                                         RLINK        211     A     
 RLINK              BX2    -X0*X5                                                          RLINK        212     A     
 RLINK              SA3    B6+X2       J = RTT( RJ[PI] )                                   RLINK        213     A     
 RLINK              SX2    X3                                                              RLINK        214     A     
 RLINK              LX2    PB.KP                                                           RLINK        215     A     
 RLINK              BX7    X7+X2       [PB] = [PB] + J[PB]                                 RLINK        216     A     
 RLINK              LX5    SI.RJP-SI.RKP                                                   RLINK        217     A     
 RLINK              BX2    -X0*X5                                                          RLINK        218     A     
 RLINK              SA3    B6+X2       RK = RTT( RK[PI] )                                  RLINK        219     A     
 RLINK              SX2    X3                                                              RLINK        220     A     
 RLINK              LX2    PB.JP                                                           RLINK        221     A     
 RLINK              BX5    X7+X2       [PB] = [PB] + K[PB]                                 RLINK        222     A     
 RLINK              EQ     EXIT.                                                           RLINK        223     A     
 RLINK     LCM      SPACE  4,10                                                            RLINK        224     A     
 RLINK    **        LCM READ AND WRITE - TYPE I   OC=64,65                                 RLINK        225     A     
 RLINK    *         PRJ RK   (01I JK) I=4,5                                                RLINK        226     A     
 RLINK    *         FROM (OC,RI,RJ,RK) TO (GHIJK)                                          RLINK        227     A     
 RLINK                                                                                     RLINK        228     A     
 RLINK              ECHO   8,NAM=(DRL,DWL),II=(4,5),OP=(LD,ST)                             RLINK        229     A     
 RLINK     CI=NAM   SB2    01B                                                             RLINK        230     A     
 RLINK              SX4    II                                                              RLINK        231     A     
 RLINK              LX5    -SI.IHP                                                         RLINK        232     A     
 RLINK              SX3    X5                                                              RLINK        233     A     
 RLINK              LX5    SI.IHP+SI.RJP-SI.RIP    FAKE TYI (RJ=RI, RJ=RK)                 RLINK        234     A     
 RLINK              ZR     X3,TYI      IF IH = 0  */ NOT LEVEL 0                           RLINK        235     A     
 RLINK              SX7    I.OP_0                                                          RLINK        236     A     
 RLINK              EQ     SUB0                                                            RLINK        237     A     
 RLINK                                                                                     RLINK        238     A     
 RLINK     SUB0     LX7    PB.GHIJP                                                        RLINK        239     A     
 RLINK              SX3    X3-IH.LCM                                                       RLINK        240     A     
 RLINK              LX3    PB.TAGP                                                         RLINK        241     A     
 RLINK              BX7    X7+X3                                                           RLINK        242     A     
 RLINK              LX5    -SI.RJP                                                         RLINK        243     A     
 RLINK              BX3    -X0*X5                                                          RLINK        244     A     
 RLINK              SA3    B6+X3                                                           RLINK        245     A     
 RLINK              SX3    X3                                                              RLINK        246     A     
 RLINK              LX3    3                                                               RLINK        247     A     
 RLINK              LX5    SI.RJP-SI.RKP                                                   RLINK        248     A     
 RLINK              BX2    -X0*X5                                                          RLINK        249     A     
 RLINK              SA2    B6+X2                                                           RLINK        250     A     
 RLINK              SX2    X2                                                              RLINK        251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK              BX2    X2+X3                                                           RLINK        252     A     
 RLINK              LX2    PB.H2P                                                          RLINK        253     A     
 RLINK              BX5    X7+X2                                                           RLINK        254     A     
 RLINK              EQ     EXIT.                                                           RLINK        255     A     
 RLINK     INT      SPACE  4,10                                                            RLINK        256     A     
 RLINK    **        INTEGER ARITHMETIC - TYPE I  OC=77,100,101                             RLINK        257     A     
 RLINK    *         IXI XJOXK   (GH IJK)  GH=36,37,42                                      RLINK        258     A     
 RLINK    *         FROM (OC,RI,RJ,RK) TO (GHIJK)                                          RLINK        259     A     
 RLINK                                                                                     RLINK        260     A     
 RLINK              ECHO   2,NAM=(IAZ,ISZ,IM),OC=(36B,37B,42B)                             RLINK        261     A     
 RLINK     CI=NAM   SB2    OC                                                              RLINK        262     A     
 RLINK              EQ     TYI                                                             RLINK        263     A     
 RLINK     TYII     SPACE  4,10                                                            RLINK        264     A     
 RLINK    **        TYPE II  OC=20,21,43                                                   RLINK        265     A     
 RLINK    *         PRI    JK   (GH IJK)  GH=20,21,43                                      RLINK        266     A     
 RLINK    *         FROM (OC,CA,RI) TO (GHIJK)                                             RLINK        267     A     
 RLINK                                                                                     RLINK        268     A     
 RLINK              ECHO   1,NAM=(KLS,KRS,FMA)                                             RLINK        269     A     
 RLINK     CI=NAM   BSS                                                                    RLINK        270     A     
 RLINK              SX7    B2          (X7) = OPCODE                                       RLINK        271     A     
 RLINK              LX7    PB.GHP                                                          RLINK        272     A     
 RLINK              SX3    X4          I = RTT( RI[PB] )                                   RLINK        273     A     
 RLINK              LX3    PB.IP                                                           RLINK        274     A     
 RLINK              BX7    X7+X3       [PB] = OC[PB] + I[PB]                               RLINK        275     A     
 RLINK              LX5    -SI.CAP                                                         RLINK        276     A     
 RLINK              MX0    -PB.JL-PB.KL                                                    RLINK        277     A     
 RLINK              BX2    -X0*X5                                                          RLINK        278     A     
 RLINK              LX2    PB.KP                                                           RLINK        279     A     
 RLINK              ERRNZ  PB.KP+3-PB.JP     CODE ASSUMES 6/IJ                             RLINK        280     A     
 RLINK              BX5    X7+X2       [PB] = [PB] + JK[PB]                                RLINK        281     A     
 RLINK              EQ     EXIT.                                                           RLINK        282     A     
 RLINK     TYIII    SPACE  4,10                                                            RLINK        283     A     
 RLINK    **        TYPE III  OC=50-54,74                                                  RLINK        284     A     
 RLINK    *         SRI    RJ+CA+IH-H2   (GH IJQ)                                          RLINK        285     A     
 RLINK    *         FROM (H2,OC,CA,IH,RJ,RI H2) TO (GHIJ,TAG,BIAS,TAG2)                    RLINK        286     A     
 RLINK                                                                                     RLINK        287     A     
 RLINK    *         LDC (CONSTANT LOAD) PREPROCESSOR.                                      RLINK        288     A     
 RLINK                                                                                     RLINK        289     A     
 RLINK     CI=LDC   BSS    0                                                               RLINK        290     A     
 RLINK              SB2    OC.LD                                                           RLINK        291     A     
 RLINK              MX6    -SI.CAL                                                         RLINK        292     A     
 RLINK              SA1    =XT.CUT                                                         RLINK        293     A     
 RLINK              LX5    -SI.CAP                                                         RLINK        294     A     
 RLINK              SB7    X1                                                              RLINK        295     A     
 RLINK              BX2    X6*X5                                                           RLINK        296     A     
 RLINK              SA1    B7+X5                                                           RLINK        297     A     
 RLINK              BX5    X1+X2                                                           RLINK        298     A     
 RLINK              LX5    SI.CAP      CA = CUT(CA)                                        RLINK        299     A     
 RLINK                                                                                     RLINK        300     A     
 RLINK              ECHO   1,NAM=(LD,ST,STT,PLD,PST,S,ILD,TLD,TST)                         RLINK        301     A     
 RLINK     CI=NAM   BSS                                                                    RLINK        302     A     
 RLINK                                                                                     RLINK        303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK              UX7    B3,X4       I = RTT( RI[PI] )                                   RLINK        304     A     
 RLINK              LX7    PB.IP                                                           RLINK        305     A     
 RLINK              SX1    B3+5        G[OC]                                               RLINK        306     A     
 RLINK              LX1    PB.GHP+3                                                        RLINK        307     A     
 RLINK              BX7    X7+X1       [PB] = G[PB] + I[PB]                                RLINK        308     A     
 RLINK              LX5    -SI.RJP                                                         RLINK        309     A     
 RLINK              BX2    -X0*X5                                                          RLINK        310     A     
 RLINK              SA3    B6+X2       J = RTT( RJ[P] )                                    RLINK        311     A     
 RLINK              UX2    B3,X3                                                           RLINK        312     A     
 RLINK              SX3    B3                                                              RLINK        313     A     
 RLINK              LX2    PB.JP                                                           RLINK        314     A     
 RLINK              BX7    X7+X2       [PB] = [PB] + J[PB]                                 RLINK        315     A     
 RLINK              LX5    SI.RJP-SI.IHP                                                   RLINK        316     A     
 RLINK              MX1    -IH.CAIHL                                                       RLINK        317     A     
 RLINK              BX2    -X1*X5                                                          RLINK        318     A     
 RLINK              NZ     X2,LD1      IF IHCA[PI] .NE. 0                                  RLINK        319     A     
 RLINK              LX3    1           RJ*2                                                RLINK        320     A     
 RLINK              SB7    0                                                               RLINK        321     A     
 RLINK              EQ     TIB2        PROCESS AS 15 BIT SRI RJ                            RLINK        322     A     
 RLINK                                                                                     RLINK        323     A     
 RLINK     LD1      LX3    PB.GHP                                                          RLINK        324     A     
 RLINK              BX7    X7+X3       [PB] = [PB] + H[PB]                                 RLINK        325     A     
 RLINK              MX0    -SI.IHL                                                         RLINK        326     A     
 RLINK              BX6    -X0*X5                                                          RLINK        327     A     
 RLINK              ZR     X6,LD2      IF IH[PI] .EQ. 0                                    RLINK        328     A     
 RLINK              RJ     CFP         CHECK FORMAL PARAMETERS                             RLINK        329     A     
 RLINK              MX0    -PB.TAGL                                                        RLINK        330     A     
 RLINK              BX6    -X0*X5                                                          RLINK        331     A     
 RLINK              LX6    PB.TAGP                                                         RLINK        332     A     
 RLINK              BX7    X7+X6       [PB] = [PB] + TAG[PB]                               RLINK        333     A     
 RLINK     LD2      LX5    SI.IHP-SI.CAP                                                   RLINK        334     A     
 RLINK              MX0    -SI.CAL                                                         RLINK        335     A     
 RLINK              BX6    -X0*X5      CA[PI]                                              RLINK        336     A     
 RLINK              ZR     X6,LD3      IF CA[PI] .EQ. 0                                    RLINK        337     A     
 RLINK              LX6    PB.BIASP                                                        RLINK        338     A     
 RLINK              BX7    X7+X6       [PB] = [PB] + BIAS[PB]                              RLINK        339     A     
 RLINK     LD3      LX5    SI.CAP+59-SI.H2P                                                RLINK        340     A     
 RLINK              PL     X5,LD4      IF H2[PI] .EQ. 0                                    RLINK        341     A     
 RLINK              BX0    X7                                                              RLINK        342     A     
 RLINK              RJ     =XRNI       READ NEXT INSTRUCTION                               RLINK        343     A     
 RLINK              BX7    X0                                                              RLINK        344     A     
 RLINK              SX6    X5          H2[PI]                                              RLINK        345     A     
 RLINK              RJ     CFP         CHECK FORMAL PARAMETERS                             RLINK        346     A     
 RLINK              SX6    X5          H2[PI]                                              RLINK        347     A     
 RLINK              LX6    PB.H2P                                                          RLINK        348     A     
 RLINK              BX7    X7+X6       [PB] = [PB] + H2[PB]                                RLINK        349     A     
 RLINK     LD4      BX5    X7                                                              RLINK        350     A     
 RLINK              EQ     EXIT.                                                           RLINK        351     A     
 RLINK     TIB      SPACE  4,10                                                            RLINK        352     A     
 RLINK    **        TYPE I MEMORY REFS  OC=56-63                                           RLINK        353     A     
 RLINK    *         SRI RJORK  (GH IJK)  G=5,6,7 H=3-7                                     RLINK        354     A     
 RLINK    *         FROM (OC,RK,RJ,RI) TO (GHIJK)                                          RLINK        355     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK                                                                                     RLINK        356     A     
 RLINK              ECHO   1,NAM=(SLD,SST,SA)    (56,57,60)                                RLINK        357     A     
 RLINK     CI=NAM   BSS                                                                    RLINK        358     A     
 RLINK              SB7    0           FLAG A +BK                                          RLINK        359     A     
 RLINK              EQ     TIB                                                             RLINK        360     A     
 RLINK                                                                                     RLINK        361     A     
 RLINK              ECHO   1,NAM=(SDL,SDS,SS)    (61,62,63)                                RLINK        362     A     
 RLINK     CI=NAM   BSS                                                                    RLINK        363     A     
 RLINK              SB7    1           FLAG A -BK                                          RLINK        364     A     
 RLINK                                                                                     RLINK        365     A     
 RLINK     TIB      UX7    B3,X4       I = RTT( RI[PI] )                                   RLINK        366     A     
 RLINK              LX7    PB.IP       [PB] = I[PB]                                        RLINK        367     A     
 RLINK              SX1    B3+5        G[PB]                                               RLINK        368     A     
 RLINK              LX1    PB.GHP+3                                                        RLINK        369     A     
 RLINK              BX7    X7+X1       [PB] = [P] + G[PB]                                  RLINK        370     A     
 RLINK              LX5    -SI.RJP                                                         RLINK        371     A     
 RLINK              BX2    -X0*X5                                                          RLINK        372     A     
 RLINK              SA3    B6+X2                                                           RLINK        373     A     
 RLINK              UX2    B3,X3       J = RTT( RJ[PI] )                                   RLINK        374     A     
 RLINK              SX3    B3+B3       2 * TYPE(RJ)                                        RLINK        375     A     
 RLINK              LX2    PB.JP                                                           RLINK        376     A     
 RLINK              BX7    X7+X2       [PB] = [PB] + J[PB]                                 RLINK        377     A     
 RLINK                                                                                     RLINK        378     A     
 RLINK     TIB2     SX1    X3+B7                                                           RLINK        379     A     
 RLINK              SA3    HTT+X1      GET H PART OF OPCODE                                RLINK        380     A     
 RLINK              BX7    X7+X3       [PB] = [PB] + H[PB]                                 RLINK        381     A     
 RLINK              LX5    SI.RJP-SI.RKP                                                   RLINK        382     A     
 RLINK              BX2    -X0*X5                                                          RLINK        383     A     
 RLINK              SA3    B6+X2                                                           RLINK        384     A     
 RLINK              SX2    X3                                                              RLINK        385     A     
 RLINK              LX2    PB.KP                                                           RLINK        386     A     
 RLINK              BX5    X7+X2       [PB] = [PB] + K[PB]                                 RLINK        387     A     
 RLINK              EQ     EXIT.                                                           RLINK        388     A     
 RLINK     JPX      SPACE  4,10                                                            RLINK        389     A     
 RLINK    **        X JUMPS  OC=66                                                         RLINK        390     A     
 RLINK    *         JT     XJ,IH   (03I JQ)                                                RLINK        391     A     
 RLINK    *         FROM (OC,CA,RI) TO (GHI,TAG)                                           RLINK        392     A     
 RLINK                                                                                     RLINK        393     A     
 RLINK     CI=JPX   BSS                                                                    RLINK        394     A     
 RLINK              SX3    X4          [PB] = RTT[RI]                                      RLINK        395     A     
 RLINK              LX5    -SI.CAP                                                         RLINK        396     A     
 RLINK              SX7    030B+X5     I = XJT( CA[PI] )                                   RLINK        397     A     
 RLINK              LX7    PB.IP                                                           RLINK        398     A     
 RLINK              LX3    PB.JP                                                           RLINK        399     A     
 RLINK              LX5    SI.CAP-SI.IHP                                                   RLINK        400     A     
 RLINK              BX7    X7+X3       [PB] = [PB] + J[PB]                                 RLINK        401     A     
 RLINK                                                                                     RLINK        402     A     
 RLINK    *         CJP - COMMON JUMP IH PROCESSING.                                       RLINK        403     A     
 RLINK                                                                                     RLINK        404     A     
 RLINK     CJP      BSS                                                                    RLINK        405     A     
 RLINK              MX0    -SI.IHL                                                         RLINK        406     A     
 RLINK              BX3    -X0*X5                                                          RLINK        407     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK              LX3    PB.TAGP                                                         RLINK        408     A     
 RLINK              BX5    X7+X3       [PB] = [PB] + IH[PB]                                RLINK        409     A     
 RLINK              EQ     EXIT.                                                           RLINK        410     A     
 RLINK     JPBB     SPACE  4,10                                                            RLINK        411     A     
 RLINK    **        B JUMPS   OC=67                                                        RLINK        412     A     
 RLINK    *         JT  BI,BJ,K   (0H IJQ) H=4,5,6                                         RLINK        413     A     
 RLINK    *         FROM (OC,CA,RI,RJ) TO (GHIJ,TAG)                                       RLINK        414     A     
 RLINK                                                                                     RLINK        415     A     
 RLINK     CI=JPBB  BSS                                                                    RLINK        416     A     
 RLINK              SX7    X4          I = RTT( RJ[PI] )                                   RLINK        417     A     
 RLINK              LX7    PB.IP                                                           RLINK        418     A     
 RLINK              LX5    -SI.CAP                                                         RLINK        419     A     
 RLINK              SA3    BJT+X5      GH = BJT( CA[PI] )                                  RLINK        420     A     
 RLINK              LX3    PB.GHP                                                          RLINK        421     A     
 RLINK              BX7    X3+X7       [PB] = I[PB] + GH[PB]                               RLINK        422     A     
 RLINK              LX5    SI.CAP-SI.RJP                                                   RLINK        423     A     
 RLINK              BX6    -X0*X5                                                          RLINK        424     A     
 RLINK              SA4    B6+X6       J = RTT( RJ[PI] )                                   RLINK        425     A     
 RLINK              SX3    X4                                                              RLINK        426     A     
 RLINK              LX3    PB.JP                                                           RLINK        427     A     
 RLINK              BX7    X7+X3                                                           RLINK        428     A     
 RLINK              LX5    SI.RJP-SI.IHP                                                   RLINK        429     A     
 RLINK              EQ     CJP         ADD IN IH FIELD                                     RLINK        430     A     
 RLINK     JIN      SPACE  4,10                                                            RLINK        431     A     
 RLINK    **        INDEXED JUMP  OC=70                                                    RLINK        432     A     
 RLINK    *         JP  BI+IH   (02 I0Q)                                                   RLINK        433     A     
 RLINK    *         FROM (OC,CA,RI) TO (I.JPI,TAG,BJR)                                     RLINK        434     A     
 RLINK                                                                                     RLINK        435     A     
 RLINK     CI=JIN   BSS                                                                    RLINK        436     A     
 RLINK              SX7    I.JPI                                                           RLINK        437     A     
 RLINK              LX7    PB.GHIJP    [PB] = OC[PB]                                       RLINK        438     A     
 RLINK              SX3    X4          I = RTT( RI[PI] )                                   RLINK        439     A     
 RLINK              LX3    PB.BJRP                                                         RLINK        440     A     
 RLINK              LX5    -SI.IHP                                                         RLINK        441     A     
 RLINK              BX7    X7+X3       [PB] = [PB] + BJR[PB]                               RLINK        442     A     
 RLINK              EQ     CJP         ADD IH FIELD                                        RLINK        443     A     
 RLINK     RJ3      SPACE  4,10                                                            RLINK        444     A     
 RLINK    **        RETURN JUMP  OC=71                                                     RLINK        445     A     
 RLINK    *         RJ  IH   (01 Q)                                                        RLINK        446     A     
 RLINK    *         FROM (OC,IH) TO (I.RJ3,TAG)                                            RLINK        447     A     
 RLINK                                                                                     RLINK        448     A     
 RLINK     CI=RJ3   BSS                                                                    RLINK        449     A     
 RLINK              SX7    I.RJ3                                                           RLINK        450     A     
 RLINK              LX7    PB.GHIJP    [PB] = OC[PB]                                       RLINK        451     A     
 RLINK              EQ     CJP         PROCESS IH FIELD                                    RLINK        452     A     
 RLINK     RJ6      SPACE  4,10                                                            RLINK        453     A     
 RLINK    **        RETURN JUMP WITH TRACEBACK   OC=72                                     RLINK        454     A     
 RLINK    *         RJT  IH,CA   (+01 Q)                                                   RLINK        455     A     
 RLINK    *         FROM (OC,CA,HI) (TYPE IV) TO (I.RJ6,TAG,BIAS)                          RLINK        456     A     
 RLINK                                                                                     RLINK        457     A     
 RLINK     CI=RJ6   BSS                                                                    RLINK        458     A     
 RLINK              SX7    I.RJ6                                                           RLINK        459     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK              LX7    PB.GHIJP    [PB] = OC[P]                                        RLINK        460     A     
 RLINK              LX5    -SI.CAP                                                         RLINK        461     A     
 RLINK              MX0    -SI.CAL                                                         RLINK        462     A     
 RLINK              BX3    -X0*X5                                                          RLINK        463     A     
 RLINK              LX3    PB.BIASP    BIAS[PB] = LINE NUMBER                              RLINK        464     A     
 RLINK              BX7    X7+X3       [PB] = [PB] + BIAS[PB]                              RLINK        465     A     
 RLINK              LX5    SI.CAP                                                          RLINK        466     A     
 RLINK              SX6    X5          IH[PI]                                              RLINK        467     A     
 RLINK              RJ     CFP         CHECK FOR FORMAL PARAMETER                          RLINK        468     A     
 RLINK              SX6    X5          IH[PI]                                              RLINK        469     A     
 RLINK              LX6    PB.TAGP                                                         RLINK        470     A     
 RLINK              BX5    X7+X6       [PB] = [PB] + IH[PB]                                RLINK        471     A     
 RLINK              EQ     EXIT.                                                           RLINK        472     A     
 RLINK     UJP      SPACE  4,10                                                            RLINK        473     A     
 RLINK    **        UNCONDITIONAL JUMP   OC=73                                             RLINK        474     A     
 RLINK    *         EQ  IH   (04 Q)                                                        RLINK        475     A     
 RLINK    *         FROM (OC,IH) TO (I.UJP,TAG,BIAS)                                       RLINK        476     A     
 RLINK                                                                                     RLINK        477     A     
 RLINK     CI=UJP   BSS                                                                    RLINK        478     A     
 RLINK              SX7    I.UJP                                                           RLINK        479     A     
 RLINK              LX7    PB.GHIJP    [PB] = OC[PB]                                       RLINK        480     A     
 RLINK              EQ     CJP         ADD IH FIELD                                        RLINK        481     A     
 RLINK     LAB      SPACE  4,10                                                            RLINK        482     A     
 RLINK    **        LABELS  OC=6                                                           RLINK        483     A     
 RLINK    *         IH  BSS  0                                                             RLINK        484     A     
 RLINK    *         FROM (OC,IH) TO (I.BSS,TAG)                                            RLINK        485     A     
 RLINK                                                                                     RLINK        486     A     
 RLINK     CI=LAB   BSS                                                                    RLINK        487     A     
 RLINK              SX7    I.BSS                                                           RLINK        488     A     
 RLINK              LX7    PB.GHIJP    [PB] = OC[PB]                                       RLINK        489     A     
 RLINK              EQ     CJP         ADD IH FIELD...                                     RLINK        490     A     
 RLINK     ERRORS   SPACE  4,10                                                            RLINK        491     A     
 RLINK    **        ERRORS - THESE OP CODES SHOULD NEVER BE ENCOUNTERED.                   RLINK        492     A     
 RLINK                                                                                     RLINK        493     A     
 RLINK                                                                                     RLINK        494     A     
 RLINK              MACRO  ILL,NAM                                                         RLINK        495     A     
 RLINK     CI=NAM   EQ     "BLOWUP"                                                        RLINK        496     A     
 RLINK     ILL      ENDM                                                                   RLINK        497     A     
 RLINK                                                                                     RLINK        498     A     
 RLINK                                                                                     RLINK        499     A     
 RLINK     CLR      ILL                                                                    RLINK        500     A     
 RLINK     DAR      ILL                                                                    RLINK        501     A     
 RLINK     DEF      ILL                                                                    RLINK        502     A     
 RLINK     ENT      ILL                                                                    RLINK        503     A     
 RLINK     EOQ      ILL                                                                    RLINK        504     A     
 RLINK     EOS      ILL                                                                    RLINK        505     A     
 RLINK     LDV      ILL                                                                    RLINK        506     A     
 RLINK     RJXJ     ILL                                                                    RLINK        507     A     
 RLINK     RS       ILL                                                                    RLINK        508     A     
 RLINK     SXT      ILL                                                                    RLINK        509     A     
 RLINK                                                                                     RLINK        510     A     
 RLINK              LOC    *O                                                              RLINK        511     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK     BCT      SPACE  4,8                                                             RLINK        512     A     
 RLINK    **        BCT - CONVERT CONSTANT TABLE.                                          RLINK        513     A     
 RLINK    *                                                                                RLINK        514     A     
 RLINK    *         REFORMAT *CUT* AS ORDINALS TO CON. ARRAY, SQUEEZE UNUSED               RLINK        515     A     
 RLINK    *         ENTRIES OUT OF *CON*.                                                  RLINK        516     A     
 RLINK                                                                                     RLINK        517     A     
 RLINK     BCT      SUBR   =                                                               RLINK        518     A     
 RLINK              MX6    0                                                               RLINK        519     A     
 RLINK              ADDWD  T.CUT                                                           RLINK        520     A     
 RLINK              SA3    =XT.CON                                                         RLINK        521     A     
 RLINK              SB2    B0          I = 0                                               RLINK        522     A     
 RLINK              SB3    X2          N = L.CUT                                           RLINK        523     A     
 RLINK              SB4    X3                        (B4) = CON                            RLINK        524     A     
 RLINK              SB5    X1                        (B5) = CUT                            RLINK        525     A     
 RLINK              SX7    0           J = 0                                               RLINK        526     A     
 RLINK                                                                                     RLINK        527     A     
 RLINK     BCT1     SA5    B5+B2                                                           RLINK        528     A     
 RLINK              ZR     X5,BCT2     IF CUT(I) = 0 */ CON NOT REFERENCED                 RLINK        529     A     
 RLINK                                                                                     RLINK        530     A     
 RLINK              SA7    A5          CUT(I) = J    */ SET ORDINAL                        RLINK        531     A     
 RLINK              SA4    B4+B2                                                           RLINK        532     A     
 RLINK              BX6    X4          CON(J) = CON(I)  */ MOVE TO FINAL POSITION          RLINK        533     A     
 RLINK              SA6    B4+X7                                                           RLINK        534     A     
 RLINK              SX7    X7+B1       J = J + 1                                           RLINK        535     A     
 RLINK                                                                                     RLINK        536     A     
 RLINK     BCT2     SB2    B2+B1       I = I + 1                                           RLINK        537     A     
 RLINK              LT     B2,B3,BCT1  IF I < N                                            RLINK        538     A     
 RLINK              SA7    =XT=CON                                                         RLINK        539     A     
 RLINK              EQ     EXIT.                                                           RLINK        540     A     
 RLINK              TITLE  POST SUPPORT ROUTINES.                                          RLINK        541     A     
 RLINK     CFP      SPACE  4,10                                                            RLINK        542     A     
 RLINK    **        CFP - CHECK FOR FORMAL PARAMETERS.                                     RLINK        543     A     
 RLINK    *                                                                                RLINK        544     A     
 RLINK    *         ENTRY  (X6) = IH[PI] OR H2[PI]                                         RLINK        545     A     
 RLINK    *                                                                                RLINK        546     A     
 RLINK    *         EXIT   IF FP[WB]=1, RA[WC] IN O.SYM1                                   RLINK        547     A     
 RLINK    *                             (LSR) SET NONZERO                                  RLINK        548     A     
 RLINK    *                ELSE NO CHANGE                                                  RLINK        549     A     
 RLINK    *                                                                                RLINK        550     A     
 RLINK    *         CANNOT DESTROY  X5,X7                                                  RLINK        551     A     
 RLINK                                                                                     RLINK        552     A     
 RLINK                                                                                     RLINK        553     A     
 RLINK     CFP      SUBR               ...ENTRY/EXIT...                                    RLINK        554     A     
 RLINK              BX3    X6                                                              RLINK        555     A     
 RLINK              AX3    IH.IP                                                           RLINK        556     A     
 RLINK              NZ     X3,EXIT.    IF NOT SYMBOL TABLE SYMBOL                          RLINK        557     A     
 RLINK              SB2    X6                                                              RLINK        558     A     
 RLINK              IX3    X6+X6                                                           RLINK        559     A     
 RLINK              SB2    X3+B2       3*SYMORD                                            RLINK        560     A     
 RLINK              ERRNZ  3-Z=SYM                                                         RLINK        561     A     
 RLINK              SA2    =XT.SYM                                                         RLINK        562     A     
 RLINK              SB2    B2+WB.W                                                         RLINK        563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK              SA2    X2+B2       WB OF SYMTAB                                        RLINK        564     A     
 RLINK              HX2    WB.FP                                                           RLINK        565     A     
 RLINK              PL     X2,EXIT.    IF NOT F.P., EXIT...                                RLINK        566     A     
 RLINK              =A3    A2+1        WC OF SYMTAB                                        RLINK        567     A     
 RLINK              LX3    -WC.RAP                                                         RLINK        568     A     
 RLINK              =X2    1                                                               RLINK        569     A     
 RLINK              IX6    X3+X2       RA[WC] = RA[WC] + 1                                 RLINK        570     A     
 RLINK              LX6    WC.RAP      RESTORE POSITION                                    RLINK        571     A     
 RLINK              SA6    A3          UPDATE RA[WC]                                       RLINK        572     A     
 RLINK              SA6    LSR         FLAG F.P.                                           RLINK        573     A     
 RLINK              EQ     EXIT.       DONE...                                             RLINK        574     A     
 RLINK     SMB      SPACE  4,10                                                            RLINK        575     A     
 RLINK    **        SMB - SET MAT BIT FOR VARIABLES.                                       RLINK        576     A     
 RLINK    *         DUMMY ROUTINE CALLED FROM REC.                                         RLINK        577          I
          -FC51315
 RLINK    *         ALL NAMELIST MEMBERS THAT HAVE CLAS BITS(MAT,EQV,DEF,VAR) SET,         FC51315        7     A     
 RLINK    *         RESULT IN THE *EQ. * BASE MEMBER *MAT* BIT BEING CHECKED/SET.          FC51315        8     A     
 RLINK    *                                                                                FC51315        9     A     
 RLINK                                                                                     RLINK        578     A     
 RLINK                                                                                     RLINK        579     A     
 RLINK     SMB      SUBR   =           ENTRY/EXIT.                                         RLINK        580     A     
 RLINK              SA4    T=NLST                                                          FC51315       10     A     
 RLINK              ZR     X4,SMB      IF NO NAMELIST ENTRIES                              FC51315       11     A     
 RLINK              SB2    B1                                                              FC51315       12     A     
 RLINK              SB3    B0                                                              FC51315       13     A     
 RLINK                                                                                     FC51315       14     A     
 RLINK     SMB3     CALL   SNR         SET NAMELIST REGISTERS                              FC51315       15     A     
 RLINK              CLAS=  X4,WB,(MAT,EQV,DEF,VAR)                                         FC51315       16     A     
 RLINK              BX3    X4*X1       X1 =   T.SYM WORD B OF REQUESTED NAME               FC51315       17     A     
 RLINK              BX4    X3-X4                                                           FC51315       18     A     
 RLINK              NZ     X4,SMB4     IF(MAT,EQV,DEF,VAR)CLASS BITS NOT SET               FC51315       19     A     
 RLINK              MX0    WB.BASEL                                                        FC51315       20     A     
 RLINK              ERRNZ  WB.BASEL-12                                                     FC51315       21     A     
 RLINK              LX0    WB.BASEP-WB.PNTP-1                                              FC51315       22     A     
 RLINK              ERRNZ  WB.PNTL-13                                                      FC51315       23     A     
 RLINK              BX3    X0*X1                                                           FC51315       24     A     
 RLINK              AX3    -WB.BASEP+WB.CLASP+1                                            FC51315       25     A     
 RLINK              ERRNZ  WB.PNTL-13                                                      FC51315       26     A     
 RLINK              SA4    T.SYM                                                           FC51315       27     A     
 RLINK              SB5    X4+WB.W                                                         FC51315       28     A     
 RLINK              SB6    X3+B5                                                           FC51315       29     A     
 RLINK              LX4    X3,B1                                                           FC51315       30     A     
 RLINK              SA1    B6+X4       (X1)=T.SYM WORD B OF EQV CLASS BASE MEMBER          FC51315       31     A     
 RLINK              CLAS=  X3,WB,(MAT)                                                     FC51315       32     A     
 RLINK              BX6    X1+X3                                                           FC51315       33     A     
 RLINK              SA6    A1                                                              FC51315       34     A     
 RLINK                                                                                     FC51315       35     A     
 RLINK     SMB4     GT     B2,SMB3     IF MORE MEMBERS                                     FC51315       36     A     
 RLINK              LT     B3,SMB      IF NO MORE GROUPS                                   FC51315       37     A     
 RLINK              SB2    B1                                                              FC51315       38     A     
 RLINK              EQ     SMB3        CHECK MEMBERS OF NEXT GROUP                         FC51315       39     A     
 RLINK              EQ     EXIT.                                                           RLINK        581     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK     PAT      SPACE  4,10                                                            RLINK        582     A     
 RLINK    **        PAT - PRE-PROCESS AP-LIST TABLES.                                      RLINK        583     A     
 RLINK    *                FOR EACH AP-LIST ENTRY, IF TAG[AP.] .EQ. (S=CON), SET           RLINK        584     A     
 RLINK    *                BIAS[AP.] = T.CUT( BIAS[AP.]).                                  RLINK        585     A     
 RLINK    *         CALLED FROM *FO=APL* AND *FO=IOM* OF FAS.                              RLINK        586     A     
 RLINK    *         ENTRY  (B6) = 0 IF PROCESSING T.APL                                    RLINK        587     A     
 RLINK    *                     = 1 IF PROCESSING T.IOA                                    RLINK        588     A     
 RLINK                                                                                     RLINK        589     A     
 RLINK                                                                                     RLINK        590     A     
 RLINK     PAT      SUBR   =           ENTRY/EXIT.                                         RLINK        591     A     
 RLINK              SA1    =XT.APL+B6                                                      RLINK        592     A     
 RLINK              SA2    =XT=APL+B6                                                      RLINK        593     A     
 RLINK              SA3    =XAPCON                                                         RLINK        594     A     
 RLINK              ZR     X3,EXIT.    IF NO CONSTANTS IN AP-LISTS                         RLINK        595     A     
 RLINK              SA5    =XS=CON                                                         RLINK        596     A     
 RLINK              SA4    =XT.CUT                                                         RLINK        597     A     
 RLINK              SB5    X4                                                              RLINK        598     A     
 RLINK              SB3    B6+B1       (B3) .EQ. 1 IF T.APL, .EQ. 2 IF T.API               RLINK        599     A     
 RLINK              ERRNZ  2-Z=IOA                                                         RLINK        600     A     
 RLINK              MX0    -IA.TAGL                                                        RLINK        601     A     
 RLINK              MX3    -IA.BIASL                                                       RLINK        602     A     
 RLINK              SB2    X2                                                              RLINK        603     A     
 RLINK              SA2    X1-1                                                            RLINK        604     A     
 RLINK              CLAS=  X1,IA,(CRH,CHAR)                                                RLINK        605     A     
 RLINK                                                                                     RLINK        606     A     
 RLINK    *         PROCESS NEXT ENTRY OF AP-LIST TABLE.                                   RLINK        607     A     
 RLINK    *         (A1) = API                                                             RLINK        608     A     
 RLINK    *         (B2) = APLEN                                                           RLINK        609     A     
 RLINK    *         (B3) = Z=APL/Z=IOA                                                     RLINK        610     A     
 RLINK    *         (X5) = (S=CON)                                                         RLINK        611     A     
 RLINK    *         (B6) = T.APL/T.IOA INDICATOR                                           RLINK        612     A     
 RLINK    *         (B5) = FWA(T.CUT)                                                      RLINK        613     A     
 RLINK                                                                                     RLINK        614     A     
 RLINK     PAT10    ZR     B2,EXIT.    IF END OF TABLE                                     RLINK        615     A     
 RLINK              SA2    A2+B1                                                           RLINK        616     A     
 RLINK              BX4    X1*X2                                                           RLINK        617     A     
 RLINK              SB2    B2-B3                                                           RLINK        618     A     
 RLINK              LX2    -IA.TAGP                                                        RLINK        619     A     
 RLINK              BX6    -X0*X2      TAGI = TAG[AP2]                                     RLINK        620     A     
 RLINK              NZ     X4,PAT20    IF CHARACTER                                        RLINK        621     A     
 RLINK              IX7    X5-X6                                                           RLINK        622     A     
 RLINK              LX2    IA.TAGP-IA.BIASP                                                RLINK        623     A     
 RLINK              NZ     X7,PAT20    IF TAGI .NE. (S=CON)                                RLINK        624     A     
 RLINK              BX6    -X3*X2      BIASI = BIAS[API]                                   RLINK        625     A     
 RLINK              BX7    X3*X2       CLEAR BIAS FIELD                                    RLINK        626     A     
 RLINK              SA4    X6+B5       CUI = T.CUT(BIASI)                                  RLINK        627     A     
 RLINK              BX4    -X3*X4                                                          RLINK        628     A     
 RLINK              BX7    X7+X4                                                           RLINK        629     A     
 RLINK              LX7    IA.BIASP                                                        RLINK        630     A     
 RLINK              SA7    A2                                                              RLINK        631     A     
 RLINK                                                                                     RLINK        632     A     
 RLINK     PAT20    NE     B6,B1,PAT10 IF NOT PROCESSING IO-APLISTS                        RLINK        633     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RLINK   
  
 RLINK                                                                                     RLINK        634     A     
 RLINK    *         FOR IO-APLISTS, PROCESS IO1 ENTRY IF LIST ITEM.                        RLINK        635     A     
 RLINK    *         (X1) = AP1                                                             RLINK        636     A     
 RLINK                                                                                     RLINK        637     A     
 RLINK              SA2    A2+B1                                                           RLINK        638     A     
 RLINK              LX2    -IA.TAGP                                                        RLINK        639     A     
 RLINK              BX6    -X0*X2      TAGI = TAG[IO1]                                     RLINK        640     A     
 RLINK              IX6    X6-X5                                                           RLINK        641     A     
 RLINK              LX2    IA.TAGP-IA.BIASP                                                RLINK        642     A     
 RLINK              BX4    -X3*X2      BIASI = BIAS[IO1]]                                  RLINK        643     A     
 RLINK              BX7    X3*X2       CLEAR BIAS FIELD                                    RLINK        644     A     
 RLINK              NZ     X6,PAT10    IF TAGI .NE. (S=CON)                                RLINK        645     A     
 RLINK              SA4    X4+B5       CUI = T.CUT(BIASI)                                  RLINK        646     A     
 RLINK              BX4    -X3*X4                                                          RLINK        647     A     
 RLINK              BX7    X7+X4                                                           RLINK        648     A     
 RLINK              LX7    IA.BIASP                                                        RLINK        649     A     
 RLINK              SA7    A2          BIAS[AP2] = CUI                                     RLINK        650     A     
 RLINK              EQ     PAT10                                                           RLINK        651     A     
 RLINK     PCA      SPACE  4,8                                                             RLINK        652     A     
 RLINK    **        PCA - PROCESS CONSTANT REFERENCES IN T.CAC.                            RLINK        653     A     
 RLINK                                                                                     RLINK        654     A     
 RLINK     PCA      SUBR   =                                                               RLINK        655     A     
 RLINK              SA1    =XAPCON                                                         RLINK        656     A     
 RLINK              SA2    =XT=CAC                                                         RLINK        657     A     
 RLINK              ZR     X1,EXIT.    IF NO CONSTANTS IN APLISTS                          RLINK        658     A     
 RLINK              SA3    =XT.CAC                                                         RLINK        659     A     
 RLINK              ZR     X2,EXIT.    IF NO T.CAC                                         RLINK        660     A     
 RLINK              SA4    =XT.CUT                                                         RLINK        661     A     
 RLINK              SB6    X2-1                                                            RLINK        662     A     
 RLINK              SB3    X4                                                              RLINK        663     A     
 RLINK                                                                                     RLINK        664     A     
 RLINK     PCA10    SA1    X3+B6                                                           RLINK        665     A     
 RLINK              MI     B6,EXIT.    IF TOP OF TABLE                                     RLINK        666     A     
 RLINK              SB6    B6-B1                                                           RLINK        667     A     
 RLINK              LX1    59-WC.RBP                                                       RLINK        668     A     
 RLINK              PL     X1,PCA10    IF RB NE 1  */ NOT CON.                             RLINK        669     A     
 RLINK              LX1    1+WC.RBP-WC.RAP                                                 RLINK        670     A     
 RLINK              SA4    B3+X1       CUT[RA]                                             RLINK        671     A     
 RLINK              ERRMI  WC.RAL-18                                                       RLINK        672     A     
 RLINK              SX2    X1                                                              RLINK        673     A     
 RLINK              BX0    X1-X2       CLEAR RA                                            RLINK        674     A     
 RLINK              BX7    X4+X0       ADD IN RA[CUT ENTRY]                                RLINK        675     A     
 RLINK              LX7    WC.RAP                                                          RLINK        676     A     
 RLINK              SA7    A1                                                              RLINK        677     A     
 RLINK              EQ     PCA10                                                           RLINK        678     A     
 RLINK    *CALL COMFSCS                                                                    RLINK        679     A     
 RLINK     RLINK    SPACE  4,10                                                            RLINK        680     A     
 RLINK              LIST   D                                                               RLINK        681     A     
 RLINK              END                                                                    RLINK        682     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1750    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - RLINK   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          RLINK                      682       680
          FC50889                      1         1
          FC51315                     34        34
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RSNAP   
  
 RSNAP    *DECK     RSNAP - REAR END TEST MODE SNAP PACKAGE.                               RSNAP          1     A     
 RSNAP    **IF DEF,TEST                                                                    FC5A388       14     A     
 RSNAP    *IF DEF,TEST                                                                     FC5A388       15     A     
 RSNAP              IDENT  RSNAP                                                           RSNAP          2     A     
 RSNAP     RSNAP    SECT   (REAR-END TEST MODE SNAP PACKAGE.)                              RSNAP          3     A     
 RSNAP     RSNAP    SPACE  4                                                               RSNAP          4     A     
 RSNAP    ***              RSNAP PROVIDES SNAPSHOT AND DEBUGGING ROUTINES SPECIFIC         RSNAP          5     A     
 RSNAP    *         TO PASS THREE.                                                         RSNAP          6     A     
 RSNAP                                                                                     RSNAP          7     A     
 RSNAP                                                                                     RSNAP          8     A     
 RSNAP     #SNAP    IFEQ   TEST,ON                                                         RSNAP          9     A     
 RSNAP                                                                                     RSNAP         10     A     
 RSNAP                                                                                     RSNAP         11     A     
 RSNAP    *         IN IDP                                                                 RSNAP         12     A     
 RSNAP              EXT    DCM=,FW=IDPL,IDPFLG,IDP=COD,IDP=FRK,IDP=HDR,IDP=MN              RSNAP         13     A     
 RSNAP              EXT    IDP=PAS,IDP=SFN,IDP=SKT,IDP=SOB,IDP=WOD,IDP=ZTB,ROL=            RSNAP         14     A     
 RSNAP              EXT    RSR=,SNAPLNE,SVR=                                               RSNAP         15     A     
 RSNAP                                                                                     RSNAP         16     A     
 RSNAP    *         IN PUC                                                                 RSNAP         17     A     
 RSNAP              EXT    NAMES,N.TABLE,ORIGINS,T=SYM,T.SYM                               RSNAP         18     A     
 RSNAP     IDP      SPACE  4,10                                                            RSNAP         19     A     
 RSNAP    ***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.                                 RSNAP         20     A     
 RSNAP    *                                                                                RSNAP         21     A     
 RSNAP    *                                                                                RSNAP         22     A     
 RSNAP                                                                                     RSNAP         23     A     
 RSNAP                                                                                     RSNAP         24     A     
 RSNAP     CAD      EQUEXT IDP=CAD                                                         RSNAP         25     A     
 RSNAP     CHK      EQUEXT IDP=CHK                                                         RSNAP         26     A     
 RSNAP     FLL      EQUEXT IDP=FLL                                                         RSNAP         27     A     
 RSNAP     FRK      EQUEXT IDP=FRK                                                         RSNAP         28     A     
 RSNAP     HDR      EQUEXT IDP=HDR                                                         RSNAP         29     A     
 RSNAP     PAS      EQUEXT IDP=PAS                                                         RSNAP         30     A     
 RSNAP     PAT      EQUEXT IDP=PAT                                                         RSNAP         31     A     
 RSNAP     SKT      EQUEXT IDP=SKT                                                         RSNAP         32     A     
 RSNAP     SOB      EQUEXT IDP=SOB                                                         RSNAP         33     A     
 RSNAP                                                                                     RSNAP         34     A     
 RSNAP                                                                                     RSNAP         35     A     
 RSNAP     CDD      EQUEXT IDP=CDD                                                         RSNAP         36     A     
 RSNAP     COD      EQUEXT IDP=COD                                                         RSNAP         37     A     
 RSNAP     DXB      EQUEXT IDP=DXB                                                         RSNAP         38     A     
 RSNAP     MCS      EQUEXT IDP=MCS                                                         RSNAP         39     A     
 RSNAP     SFN      EQUEXT IDP=SFN                                                         RSNAP         40     A     
 RSNAP     SYS=     EQUEXT IDP=SYS                                                         RSNAP         41     A     
 RSNAP     WOD      EQUEXT IDP=WOD                                                         RSNAP         42     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RSNAP   
  
 RSNAP     ZTB      EQUEXT IDP=ZTB                                                         RSNAP         43     A     
 RSNAP     MISC     SPACE  4,10                                                            RSNAP         44     A     
 RSNAP    **        MISCELLANEOUS SYMBOL DEFINITIONS.                                      RSNAP         45     A     
 RSNAP    *                                                                                RSNAP         46     A     
 RSNAP    *                                                                                RSNAP         47     A     
 RSNAP                                                                                     RSNAP         48     A     
 RSNAP                                                                                     RSNAP         49     A     
 RSNAP     SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER            RSNAP         50     A     
 RSNAP                                                                                     RSNAP         51     A     
 RSNAP                                                                                     RSNAP         52     A     
 RSNAP     IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                                  RSNAP         53     A     
 RSNAP     PRBDO    SPACE  4,10                                                            RSNAP         54     A     
 RSNAP    **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                            RSNAP         55     A     
 RSNAP                                                                                     RSNAP         56     A     
 RSNAP              PURGMAC PRBDO                                                          RSNAP         57     A     
 RSNAP                                                                                     RSNAP         58     A     
 RSNAP     PRBDO    OPSYN  PLINE                                                           RSNAP         59     A     
 RSNAP     TEXTS    SPACE  4,10                                                            RSNAP         60     A     
 RSNAP    ***       TEXTS - INTERFACE TEXTS.                                               RSNAP         61     A     
 RSNAP    *                                                                                RSNAP         62     A     
 RSNAP                                                                                     RSNAP         63     A     
 RSNAP                                                                                     RSNAP         64     A     
 RSNAP              QUAL   IDP                                                             RSNAP         65     A     
 RSNAP     QUAL$    =      1           DESELECT QUALS IN /IDP/                             RSNAP         66     A     
 RSNAP              LIST   -L          *COMSIDP* IS LISTED IN DECK *IDP*                   RSNAP         67     A     
 RSNAP    *CALL     COMSIDP - COMCIDP INTERFACE TEXT                                       RSNAP         68     A     
 RSNAP              LIST   *                                                               RSNAP         69     A     
 RSNAP              QUAL   *                                                               RSNAP         70     A     
 RSNAP     DATA     SPACE  4,10                                                            RSNAP         71     A     
 RSNAP    ***       DATA STRUCTURES.                                                       RSNAP         72     A     
 RSNAP    *                                                                                RSNAP         73     A     
 RSNAP    *                                                                                RSNAP         74     A     
 RSNAP    *         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE                RSNAP         75     A     
 RSNAP    *         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE                   RSNAP         76     A     
 RSNAP    *         ROUTINES IN *RSNAP*.                                                   RSNAP         77     A     
 RSNAP     FI=      SPACE  4,10                                                            RSNAP         78     A     
 RSNAP    **        FI= - FTN/IDP CELLS.                                                   RSNAP         79     A     
 RSNAP    *                                                                                RSNAP         80     A     
 RSNAP    *         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED                   RSNAP         81     A     
 RSNAP    *         FOR FTN/IDP COMMUNICATION.                                             RSNAP         82     A     
 RSNAP     FI=BRLI  SPACE  4,10                                                            RSNAP         83     A     
 RSNAP    **        FI=BRLI - *BRLINE NR* CELL.                                            RSNAP         84     A     
 RSNAP    *                                                                                RSNAP         85     A     
 RSNAP    *         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED                 RSNAP         86     A     
 RSNAP    *         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS                RSNAP         87     A     
 RSNAP    *         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS                  RSNAP         88     A     
 RSNAP    *         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN                  RSNAP         89     A     
 RSNAP    *         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END                   RSNAP         90     A     
 RSNAP    *         MASTER LOOP.                                                           RSNAP         91     A     
 RSNAP                                                                                     RSNAP         92     A     
 RSNAP                                                                                     RSNAP         93     A     
 RSNAP     FI=BRLI  CONENT -1                                                              RSNAP         94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN RSNAP   
  
 RSNAP              TITLE  FTN5 SNAPPING ROUTINES.                                         RSNAP         95     A     
 RSNAP     ST=      SPACE  4,10                                                            RSNAP         96     A     
 RSNAP    ***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.               RSNAP         97     A     
 RSNAP    *                                                                                RSNAP         98     A     
 RSNAP    *                                                                                RSNAP         99     A     
 RSNAP    *         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC              RSNAP        100     A     
 RSNAP    *         STMT PROCESSORS FOR IDP COMMANDS.                                      RSNAP        101     A     
 RSNAP     UKT=RE   SPACE  4,10                                                            RSNAP        102     A     
 RSNAP    **        UKT=RE - USER IDP KEYWORD TABLE FOR *REAR-END*.                        RSNAP        103     A     
 RSNAP                                                                                     RSNAP        104     A     
 RSNAP                                                                                     RSNAP        105     A     
 RSNAP     UKT=RE   BSSENT 0           ** FWA OF KEYWORD TABLE **                          RSNAP        106     A     
 RSNAP              QUAL   IDP                                                             RSNAP        107     A     
 RSNAP     BRL      KEYW   (BRLINE NR)                                                     RSNAP        108     A     
 RSNAP     DMT      KEYW   (DUMPT FWA,LWA,LEN)                                             RSNAP        109     A     
 RSNAP              QUAL   *                                                               RSNAP        110     A     
 RSNAP              DATA   0           ** END OF TABLE MARK **                             RSNAP        111     A     
 RSNAP     UKT=LNK  DATA   0           ** LINK WORD **                                     RSNAP        112     A     
 RSNAP     ST=BRL   SPACE  4,10                                                            RSNAP        113     A     
 RSNAP    **        ST=BRL - HERE TO PROCESS *BRLINE NR*.                                  RSNAP        114     A     
 RSNAP                                                                                     RSNAP        115     A     
 RSNAP                                                                                     RSNAP        116     A     
 RSNAP     ST=BRL   BSS    0           ** ENTRY **                                         RSNAP        117     A     
 RSNAP              RJ     PAS         PARSE SUBEXPRESSION                                 RSNAP        118     A     
 RSNAP              SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT                 RSNAP        119     A     
 RSNAP              EQ     IDP=MN                                                          RSNAP        120     A     
 RSNAP     CTEXT    SPACE  4,10                                                            RSNAP        121     A     
 RSNAP    *         COMMON DECKS.                                                          RSNAP        122     A     
 RSNAP                                                                                     RSNAP        123     A     
 RSNAP                                                                                     RSNAP        124     A     
 RSNAP    *CALL     COMDDMT            DEBUG UTILITY TO DUMP TABLES                        RSNAP        125     A     
 RSNAP                                                                                     RSNAP        126     A     
 RSNAP     RSNAP    SPACE  4,10                                                            RSNAP        127     A     
 RSNAP              LIST   D                                                               RSNAP        128     A     
 RSNAP     ENDSNAP  END                MARK END OF SNAP DECK                               RSNAP        129     A     
 RSNAP    **ENDIF TEST                                                                     FC5A388       16     A     
 RSNAP    *ENDIF TEST                                                                      FC5A388       17     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - RSNAP   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          RSNAP                      129       129
          FC5A388                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *DECK     FAS - FORTRAN INTERNAL ASSEMBLER.                                      FAS            1     A     
 FAS                IDENT  FAS                                                             FAS            2     A     
 FAS       FAS      SECT   (FORTRAN INTERNAL ASSEMBLER.)                                   FAS            3     A     
 FAS       FAS      SPACE  4,10                                                            FAS            4     A     
 FAS                                                                                       FAS            5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS            6     A     
 FAS      *         IN ALLOC                                                               FAS            7     A     
 FAS                EXT    ADW,ALC                                                         FAS            8     A     
 FAS                                                                                       FAS            9     A     
 FAS      *         IN FSNAP                                                               FAS           10     A     
 FAS                EXT    DMT=,FI=BRLI                                                    FAS           11     A     
 FAS                                                                                       FAS           12     A     
 FAS      *         IN FTN                                                                 FAS           13     A     
 FAS                EXT    CO.ARGC,CO.DBPM,CO.OPT,CO.PW,CO.SNAP,CP.MODL,FV.LGO             FAS           14     A     
 FAS                EXT    F.LGO,F.PB,GT1,TL.DATE,TL.PTYP,TL.TIME                          FAS           15     A     
 FAS                EXT    CO.ARGF                                                         FC51002       11     A     
 FAS                                                                                       FAS           16     A     
 FAS      *         IN IDP                                                                 FAS           17     A     
 FAS                EXT    IDP=                                                            FAS           18     A     
 FAS                                                                                       FAS           19     A     
 FAS      *         IN LIST                                                                FAS           20     A     
 FAS                EXT    PIK                                                             FAS           21          I
          -FC5A219
 FAS                EXT    PIK,VFD                                                         FC5A219        5     A     
 FAS                                                                                       FAS           22     A     
 FAS      *         IN PUC                                                                 FAS           23     A     
 FAS                EXT    BINIO,BN=APL,BN=SUB,BN=SUB0,CBI,ERRORS,F.LBT,IDENT              FAS           24     A     
 FAS                EXT    LINEBUF,LINES,MOD,NREXT,N.TABLE,PIA,PIK=PS,SAVE,SUM.LBT         FAS           25     A     
 FAS                EXT    S=BU,S=LENP,S=ENTRY,S=RD,S=SA1,S=VD,T=APL,T=BLKS,T=CLW          FAS           26     A     
 FAS                EXT    T=DIM,T=DATS,T=ENT,T=FILL,T=IOA,T=LA,T=LCA,T=LCC,T=LGOB         FAS           27     A     
 FAS                EXT    T=LINK,T=LNT,T=NLST,T=PTXT,T=PTXTR,T=SCR,T=SYM                  FAS           28     A     
 FAS                EXT    T=XFIL,T.API,T.APL,T.BLKS,T.CAC,T.CLW,T.CON,T.DATS              FAS           29     A     
 FAS                EXT    T.DIM,T.ENT,T.FILL,T.FMT,T.FPI,T.FPO,T.GL,T.IOA,T.IOI           FAS           30     A     
 FAS                EXT    T.LA,T.LCA,T.LCC,T.LGOB,T.LINK,T.LNT,T.NLST,T.PTXT              FAS           31     A     
 FAS                EXT    T.PTXTR,T.SCR,T.SUB,T.SUB0,T.SYM,T.XFIL,USAVE,WO.LOO            FAS           32     A     
 FAS                EXT    WO.56,WO.57                                                     FAS           33          I
          -FC5A171A 
 FAS                EXT    WO.56,WO.57,VFD                                                 FC5A171A     346          I
          -FC5A219
 FAS                EXT    WO.56,WO.57,T.CLWB,T=CLWB                                       FC5A219        6     A     
 FAS                EXT    LEVEL2                                                          FC5A406        5     A     
 FAS                                                                                       FAS           34     A     
 FAS      *         IN REC                                                                 FAS           35     A     
 FAS                EXT    ADA                                                             FAS           36     A     
 FAS                                                                                       FAS           37     A     
 FAS      *         IN RLINK                                                               FAS           38     A     
 FAS                EXT    CII,PAT                                                         FAS           39     A     
 FAS                                                                                       FAS           40     A     
 FAS      *         IN UTILITY                                                             FAS           41     A     
 FAS                EXT    CIO=,DXB,MVE=,RDW=,SFN,SST,WOD,WTW=                             FAS           42     A     
 FAS       FAS      SPACE  4,10                                                            FAS           43     A     
 FAS      **        PASS *THREE* -- ASSEMBLE THE OBJECT CODE.                              FAS           44     A     
 FAS      *                                                                                FAS           45     A     
 FAS      *         *FAS*  CONTROLLING ROUTINE FOR FORTRAN INTERNAL ASSEMBLER.             FAS           46     A     
 FAS      *                                                                                FAS           47     A     
 FAS      *                                                                                FAS           48     A     
 FAS      *         ********** PSEUDO INSTRUCTION PROCESSORS *********                     FAS           49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                                                                                FAS           50     A     
 FAS      *                                                                                FAS           51     A     
 FAS      *         *DDS*  DUMP DATA STATEMENTS -- READS THE TRANSLATED *DATA*             FAS           52     A     
 FAS      *                STATEMENTS FROM *T.DATS* AND PRODUCES CORRESPONDING             FAS           53     A     
 FAS      *                BINARY TABLES FOR THE LOADER.                                   FAS           54     A     
 FAS      *                                                                                FAS           55     A     
 FAS      *         *DFT*  DUMP FILE TABLES.  DUMPS FIT + FET (S).                         FAS           56     A     
 FAS      *                                                                                FAS           57     A     
 FAS      *         *DIT*  DUMP IDENTIFICATION TABLES.  DUMPS IDNT, LDSET, PIDL,           FAS           58     A     
 FAS      *                ENTR TABLES AND TRACEBACK WORDS.                                FAS           59     A     
 FAS      *                                                                                FAS           60     A     
 FAS      *         *DLC*  DUMP *LDSET COMMON* DIRECTIVES FOR COMMON AND LOCAL             FAS           61     A     
 FAS      *                BLOCKS DECLARED TO BE SAVED.                                    FAS           62     A     
 FAS      *                                                                                FAS           63     A     
 FAS      *         *KAP*  TRANSLATES THE AP-LISTS GENERATED IN *T.APL* INTO               FAS           64     A     
 FAS      *                THE BINARY OUTPUT.                                              FAS           65     A     
 FAS      *                                                                                FAS           66     A     
 FAS      *         *KIO*  TRANSLATE THE I/O AP-LIST GENERATED IN *T.IOA*                  FAS           67     A     
 FAS      *                INTO THE BINARY OUTPUT.                                         FAS           68     A     
 FAS      *         *KNS*  READS THE TRANSLATED *NAMELIST* GROUP DEFINITIONS FROM          FAS           69     A     
 FAS      *                *T.NLST* AND PRODUCES APPROPRIATE BINARY.                       FAS           70     A     
 FAS      *                                                                                FAS           71     A     
 FAS      *         *KON*  PROCESS THE SAVED CONSTANTS (T.CON) INTO THE BINARY.            FAS           72     A     
 FAS      *                                                                                FAS           73     A     
 FAS      *         *RAD*  READS PSEUDO OBJECT CODE FROM *T.PB* (OR THE OVERFLOW           FAS           74     A     
 FAS      *                FILE), FILLING IN ACTUAL ADDRESSES AND RELOCATION BASES         FAS           75     A     
 FAS      *                AND WRITING BINARY.  ALSO WRITES OBJECT LISTING VIA A           FAS           76     A     
 FAS      *                CALL TO  *PIK*  (IN  *LIST*  ) IF REQUIRED.                     FAS           77     A     
 FAS      *                                                                                FAS           78     A     
 FAS      *                                                                                FAS           79     A     
 FAS      *          ********** SUPPORTING ROUTINES **********                             FAS           80     A     
 FAS      *                                                                                FAS           81     A     
 FAS      *                                                                                FAS           82     A     
 FAS      *         *BNW*  STORES CURRENT TEXT WORD INTO TEXT TABLE AND BEGINS             FAS           83     A     
 FAS      *                A NEW WORD.                                                     FAS           84     A     
 FAS      *                                                                                FAS           85     A     
 FAS      *         *BST*  BUILD  *SUB*  OBJECT TABLE.                                     FAS           86     A     
 FAS      *                                                                                FAS           87     A     
 FAS      *         *BSZ*  BUILD *SUB0* OBJECT TABLE.                                      FAS           88     A     
 FAS      *                                                                                FAS           89     A     
 FAS      *         *DFD*  DUMPS STATEMENT/LINE NUMBER (5700) AND LOADER SYMBOL            FAS           90     A     
 FAS      *                (5600) TABLES TO BINARY.                                        FAS           91     A     
 FAS      *                                                                                FAS           92     A     
 FAS      *         *DLC*  DUMP *LDSET,COMMON* DIRECTIVES FOR SAVE                         FAS           93     A     
 FAS      *                                                                                FAS           94     A     
 FAS      *         *DLF*  FLUSHES THE LINK AND FILL TABLES ACCUMLATED BY THE              FAS           95     A     
 FAS      *                OTHER PROCESSORS.                                               FAS           96     A     
 FAS      *                                                                                FAS           97     A     
 FAS      *         *DTX*  FLUSHES THE *TEXT* TABLE BEING CONSTRUCTED, AND RESETS          FAS           98     A     
 FAS      *                THE ORIGIN COUNTER APPROPRIATELY.                               FAS           99     A     
 FAS      *                                                                                FAS          100     A     
 FAS      *         *FST*  FORMAT LOADER SYMBOL TABLE FOR CID/ PMDMP IN A SCRATCH          FAS          101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                TABLE.                                                          FAS          102     A     
 FAS      *                                                                                FAS          103     A     
 FAS      *         *OCL*  TRANSLATES ENTRIES OF T.CLW (TABLE OF CHARACTER LENGTH          FAS          104     A     
 FAS      *                WORDS) INTO BINARY FORM DEFINED AS LO. .                        FAS          105     A     
 FAS      *                                                                                FAS          106     A     
 FAS      *         *ORD*  OUTPUT RUN-TIME DIMENSION TABLE TO BINARY.                      FAS          107     A     
 FAS      *                                                                                FAS          108     A     
 FAS      *         *OTB*  OUTPUT A TABLE TO BINARY FILE.                                  FAS          109     A     
 FAS      *                                                                                FAS          110     A     
 FAS      *         *OSB*  OUTPUT *SUB* /*SUB0* BLOCK TO BINARY FILE.                      FAS          111     A     
 FAS      *                                                                                FAS          112     A     
 FAS      *         *PAW*  PREPARE I/O AP-LIST WORD FOR NAMELIST MEMBERS.                  FAS          113     A     
 FAS      *                                                                                FAS          114     A     
 FAS      *         *PIT*  WRITE IDNT(77) TABLE TO BINARY FILE.                            FAS          115     A     
 FAS      *                                                                                FAS          116     A     
 FAS      *         *POL*  TRANSFER CONTROL TO APPROPRIATE LISTING ROUTINE                 FAS          117     A     
 FAS      *                IN DECK *LIST* IF LISTING OPTION IS ON.                         FAS          118     A     
 FAS      *                                                                                FAS          119     A     
 FAS      *         *PUSE* SUBROUTINE TO PROCESS   USE  PSEUDO.  SWITCHES ORG              FAS          120     A     
 FAS      *                AND PARCEL COUNTERS AS DICTATED BY  USE  PSEUDO                 FAS          121     A     
 FAS      *                INSTRUCTION.  CALLED BY PSEUDO INSTRUCTION PROCESSOR            FAS          122     A     
 FAS      *                PP=USE.                                                         FAS          123     A     
 FAS      *                                                                                FAS          124     A     
 FAS      *         *RBS*  RELOCATE   BSS  INSTRUCTIONS.                                   FAS          125     A     
 FAS      *                                                                                FAS          126     A     
 FAS      *         *REL*  CALLED BY OTHER ROUTINES TO DETERMINE VALUE AND                 FAS          127     A     
 FAS      *                RELOCATION OF TAGS.                                             FAS          128     A     
 FAS      *                                                                                FAS          129     A     
 FAS      *         *RNI*  READS ONE WORD FROM THE PRE-BINARY FILE (T.PB OR F.PB).         FAS          130     A     
 FAS      *                                                                                FAS          131     A     
 FAS      *         *SMW*  STORES MULTIPLE WORDS INTO BINARY TEXT, WITHOUT                 FAS          132     A     
 FAS      *                RELOCATION.                                                     FAS          133     A     
 FAS      *                                                                                FAS          134     A     
 FAS      *         *STI*  FOR A BLOCK DATA SUBPROGRAM, SKIP PB INSTRUCTIONS               FAS          135     A     
 FAS      *                UNTIL AN I.EMI INSTRUCTION IS REACHED.                          FAS          136     A     
 FAS      *                                                                                FAS          137     A     
 FAS      *         *STX*  STORES ONE WORD INTO THE *TEXT* CURRENTLY BEING BUILT,          FAS          138     A     
 FAS      *                UPDATING ORIGIN COUNTER AND RELOCATION BYTES.                   FAS          139     A     
 FAS      *                                                                                FAS          140     A     
 FAS      *         *WLF*  DOES THE ACTUAL WRITE TO THE BINARY, WHETHER IT BE A            FAS          141     A     
 FAS      *                FILE (*LGO*), OR, WHEN COMPILING-TO-CORE, ADDING TO A           FAS          142     A     
 FAS      *                TABLE (*T.LGO*).                                                FAS          143     A     
 FAS                SPACE  4,10                                                            FAS          144     A     
 FAS                TITLE  MACROS AND DEFINITIONS.                                         FAS          145     A     
 FAS       WLGO     SPACE  4,10                                                            FAS          146     A     
 FAS      **        WLGO - MACRO TO OUTPUT BINARY TO LGO.                                  FAS          147     A     
 FAS      *                                                                                FAS          148     A     
 FAS      *         WLGO   FWA,WC                                                          FAS          149     A     
 FAS      *                                                                                FAS          150     A     
 FAS      *         ENTRY  FWA = SOURCE ADDRESS OF WORDS TO BE OUTPUT (B6).                FAS          151     A     
 FAS      *                WC  = NUMBER OF WORDS TO OUTPUT  (B7).                          FAS          152     A     
 FAS      *         CALLS  WLF                                                             FAS          153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS          154     A     
 FAS                                                                                       FAS          155     A     
 FAS       WLGO     MACRO  F,W                                                             FAS          156     A     
 FAS                =B6    F                                                               FAS          157     A     
 FAS                =B7    W                                                               FAS          158     A     
 FAS                RJ     WLF                                                             FAS          159     A     
 FAS       WLGO     ENDM                                                                   FAS          160     A     
 FAS       MDL      SPACE  4,30                                                            FAS          161     A     
 FAS       MODLVL   MICRO  1,5,/"MODLVL"     /                                             FAS          162     A     
 FAS                                                                                       FAS          163     A     
 FAS                                                                                       FAS          164     A     
 FAS      **        TARGET - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR FOR           FAS          165     A     
 FAS      *                  WHICH THE PROGRAM IS OPTIMIZED.                               FAS          166     A     
 FAS      *                                                                                FAS          167     A     
 FAS      *         VALID - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR ON             FAS          168     A     
 FAS      *                 WHICH THE PROGRAM CAN BE EXECUTED.                             FAS          169     A     
 FAS      *                                                                                FAS          170     A     
 FAS      *         TARGET  AND  VALID  ARE CALCULATED FROM  MODEL                         FAS          171     A     
 FAS      *                                                                                FAS          172     A     
 FAS      *         MODEL      -->      TARGET     -->      VALID                          FAS          173     A     
 FAS      *         71                  64                  64                             FAS          174     A     
 FAS      *         72                  64                  64                             FAS          175     A     
 FAS      *         73                  64                  64                             FAS          176     A     
 FAS      *         74                  66                  6X                             FAS          177     A     
 FAS      *         76                  76                  7X                             FAS          178     A     
 FAS      *         171                 64                  64                             FAS          179     A     
 FAS      *         172                 64                  64                             FAS          180     A     
 FAS      *         173                 64                  64                             FAS          181     A     
 FAS      *         174                 64                  64                             FAS          182     A     
 FAS      *         175                 C5                  CX                             FAS          183     A     
 FAS      *         176                 76                  7X                             FAS          184     A     
 FAS      *                                                                                FAS          185     A     
 FAS                                                                                       FAS          186     A     
 FAS       A        MICCNT MODEL                                                           FAS          187          I
          -F2950F5
 FAS       TARGET   MICRO  A,1,/"MODEL"/                                                   FAS          188          I
          -F2950F5
 FAS       C        SET    0                                                               FAS          189          I
          -F2950F5
 FAS                IFEQ   A,3,1                                                           FAS          190          I
          -F2950F5
 FAS       C        SET    A*4                                                             FAS          191          I
          -F2950F5
 FAS       Z        MICRO  "TARGET"*2+C-1,1,/64646466XX76646464647576/                     FAS          192          I
          -F2950F5
 FAS       TARGET   MICRO  "TARGET"*2+C-1,2,/64646466XX7664646464C576/                     FAS          193          I
          -F2950F5
 FAS       X        MICRO  1,1,/"TARGET"/                                                  FAS          194          I
          -F2950F5
 FAS       Y        MICRO  2,1,/"TARGET"/                                                  FAS          195          I
          -F2950F5
 FAS       Y        MICRO  "Z"*10-59+"Y",1,/012345XXXXXXXXXXXXXX/                          FAS          196          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
          -F2950F5
 FAS       VALID    MICRO  1,,/"X""Y"/                                                     FAS          197          I
          -F2950F5
 FAS       .TMP    MICRO  2,1,/"MDL"/   73747576                                           F2950F5       30     A     
 FAS       TARGET  MICRO  2*".TMP"-5,2,/6466C576/                                          F2950F5       31     A     
 FAS       VALID   MICRO  2*".TMP"-5,2,/646XCX7X/                                          F2950F5       32     A     
 FAS                SPACE  4,30                                                            FAS          198     A     
 FAS                TITLE  BINARY OUTPUT TABLE DEFINITIONS.                                FAS          199     A     
 FAS      **        BT.--- BINARY OUTPUT TABLE DEFINITIONS.                                FAS          200     A     
 FAS                                                                                       FAS          201     A     
 FAS                                                                                       FAS          202     A     
 FAS       BT=PIDL  EQU    3400B       PROGRAM/BLOCK TABLE                                 FAS          203     A     
 FAS       BT=PTEXT EQU    3500B       PARTIAL WORD TEXT TABLE                             FAS          204     A     
 FAS       BT=ENTR  EQU    3600B       ENTRY POINT TABLE                                   FAS          205     A     
 FAS       BT=TEXT  EQU    4000B       RELOCATABLE TEXT TABLE                              FAS          206          I
          -FC5A132
 FAS       BT=XTEXT EQU    3700B                                                           FC5A132      103     A     
 FAS       BT=XFILL EQU    4100B       EXTENDED FILL OR *XFILL* TABLE                      FAS          207     A     
 FAS       BT=FILL  EQU    4200B       COMMON *FILL* TABLE                                 FAS          208     A     
 FAS       BT=REPL  EQU    4300B       DATA REPLICATION TABLE                              FAS          209          I
          -FC5A132
 FAS       BT=XREPL EQU    4700B                                                           FC5A132      104     A     
 FAS       BT=LINK  EQU    4400B       EXTERNAL *LINK* TABLE                               FAS          210     A     
 FAS       BT=XFER  EQU    4600B       TRANSFER ADDRESS TABLE                              FAS          211     A     
 FAS       BT=LSYM  EQU    5600B       LOADER SYMBOL TABLE                                 FAS          212     A     
 FAS       BT=LSTN  EQU    5700B       LOADER STMT AND LINE NUMBER TABLE                   FAS          213     A     
 FAS       BT=LDSET EQU    7000B       *LDSET* OBJECT DIRECTIVE                            FAS          214     A     
 FAS       BT=LIB   EQU    10B         *LIB* SUB-DIRECTIVE                                 FAS          215     A     
 FAS       BT=CMN   EQU    32B         *COMMON* SUB-DIRECTIVE                              FAS          216     A     
 FAS       BT=MAP   EQU    11B         *MAP* SUB-DIRECTIVE                                 FAS          217     A     
 FAS       BT=PREST EQU    12B         *PRESET* SUB-DIRECTIVE                              FAS          218     A     
 FAS       BT=IDNT  EQU    7700B       IDENT (PREFIX) TABLE                                FAS          219     A     
 FAS       BT=MXWC  EQU    7777B       MAXIMUM WORD COUNT PER TABLE OUTPUT TO LGO          FAS          220     A     
 FAS                                                                                       FAS          221     A     
 FAS                                                                                       FAS          222     A     
 FAS      **        HEADER WORD DEFINITIONS. (BT.)                                         FAS          223     A     
 FAS                                                                                       FAS          224     A     
 FAS                                                                                       FAS          225     A     
 FAS                DESCRIBE  BT.,60                                                       FAS          226     A     
 FAS       CN       DEFINE 12          CODE NUMBER                                         FAS          227     A     
 FAS       WC       DEFINE 12          WORD COUNT                                          FAS          228     A     
 FAS       PMDT     DEFINE 1           =1 IF CREATE ZZZZZDT FILE FOR PMDMP                 FAS          229     A     
 FAS                DEFINE 8                                                               FAS          230     A     
 FAS       RL       DEFINE 9                                                               FAS          231     A     
 FAS       TYP      DEFINE 1           BLOCK TYPE  (PIDL DESCRIPTIONS)                     FAS          232     A     
 FAS                DEFINE 17                                                              FAS          233     A     
 FAS                                                                                       FC5A132      105     A     
 FAS      *         DEFINE XTEXT HEADER WORD                                               FC5A132      106     A     
 FAS                                                                                       FC5A132      107     A     
 FAS                REDEF                                                                  FC5A132      108     A     
 FAS       CN       DEFINE 12          CODE NUMBER                                         FC5A132      109     A     
 FAS       WC       DEFINE 12          WORD COUNT                                          FC5A132      110     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       PMDT     DEFINE 1           =1 IF CREATE ZZZZZDT FILE FOR PMDMP                 FC5A132      111     A     
 FAS                DEFINE 2                                                               FC5A132      112     A     
 FAS       RLX      DEFINE 9                                                               FC5A132      113     A     
 FAS                DEFINE 24                                                              FC5A132      114     A     
 FAS                                                                                       FAS          234     A     
 FAS      *         DEFINE PARTIAL WORD TEXT TABLE FORMAT (BT.PTEXT).                      FAS          235     A     
 FAS                                                                                       FAS          236     A     
 FAS                REDEF                                                                  FAS          237     A     
 FAS       LEN      DEFINE 18                                                              FAS          238     A     
 FAS       BCP      DEFINE 6                                                               FAS          239     A     
 FAS       RP       DEFINE 1           REPLICATION INDICATOR                               FAS          240     A     
 FAS                DEFINE 2                                                               FAS          241     A     
 FAS       RB       DEFINE 9           RELOCATION BASE                                     FAS          242     A     
 FAS       FWA      DEFINE 24                                                              FAS          243     A     
 FAS                                                                                       FAS          244     A     
 FAS       RIP      DEFINE 24,47       REPLICATION INCREMENT FOR PTEXT                     FAS          245     A     
 FAS       RCP      DEFINE 24,23       REPLICATION COUNT FOR PTEXT                         FAS          246     A     
 FAS                                                                                       FAS          247     A     
 FAS      *         DEFINE REPLICATION TABLE FORMAT (BT.REP).                              FAS          248          I
          -FC5A132
 FAS                                                                                       FAS          249          I
          -FC5A132
 FAS                REDEF                                                                  FAS          250          I
          -FC5A132
 FAS       C        DEFINE 18          NO. OF TIMES BLOCK COPIED                           FAS          251          I
          -FC5A132
 FAS       B        DEFINE 15          BLOCK SIZE                                          FAS          252          I
          -FC5A132
 FAS       K        DEQU   B,BT.CL     DESTINATION ADDRESS INCREMENT                       FAS          253          I
          -FC5A132
 FAS       RS       DEFINE 9           RELOCATION BASE                                     FAS          254          I
          -FC5A132
 FAS       AS       DEFINE 18          RELATIVE ADDRESS                                    FAS          255          I
          -FC5A132
 FAS      *         DEFINE REPLICATION TABLE FORMAT (BT.XREP)                              FC5A132      115     A     
 FAS                                                                                       FC5A132      116     A     
 FAS                REDEF                                                                  FC5A132      117     A     
 FAS       C        DEFINE 15          NO. OF TIMES BLOCK COPIED                           FC5A132      118     A     
 FAS       B        DEFINE 12          BLOCK SIZE                                          FC5A132      119     A     
 FAS       K        DEQU   B,18        DESTINATION ADDRESS INCREMENT                       FC5A132      120     A     
 FAS       RS       DEFINE 9           RELOCATION BASE                                     FC5A132      121     A     
 FAS       AS       DEFINE 24          RELATIVE ADDRESS                                    FC5A132      122     A     
 FAS       BT.LSYM  SPACE  4,10                                                            FAS          256     A     
 FAS      *         LOADER SYMBOL TABLE HEADER TEMPLATE.                                   FAS          257     A     
 FAS                                                                                       FAS          258     A     
 FAS      *         DEFINE  HEADER WORD (BT.) .                                            FAS          259     A     
 FAS                                                                                       FAS          260     A     
 FAS                REDEF                                                                  FAS          261     A     
 FAS       CN       DEFINE 12          CODE NUMBER                                         FAS          262     A     
 FAS       WC       DEFINE 12          WORD COUNT                                          FAS          263     A     
 FAS                DEFINE 2                                                               FAS          264     A     
 FAS       LO       DEFINE 10          LANGUAGE ORDINAL, =4 FOR FTN5                       FAS          265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       LTB      DEFINE 1           =1 IF LAST SYMBOL TABLE                             FAS          266     A     
 FAS       DST      DEFINE 1           =1 IF THIS IS A DIMENSION DESCRIPTOR                FAS          267     A     
 FAS       TY       DEFINE 2           PROGRAM TYPE                                        FAS          268     A     
 FAS                DEFINE 2                                                               FAS          269     A     
 FAS       SA1      DEFINE 18          RELATIVE ADDRESS OF WORD TO SAVE REG. A1            FAS          270     A     
 FAS                                                                                       FAS          271     A     
 FAS       L.BTRB   EQU    4           WIDTH OF A RELOCATION BYTE                          FAS          272     A     
 FAS       L.77     EQU    16B                                                             FAS          273     A     
 FAS                SPACE  4,10                                                            FAS          274     A     
 FAS      **        BT.IDNT - IDNT (PREFIX) TABLE DIRECTIVE                                FAS          275     A     
 FAS                                                                                       FAS          276     A     
 FAS       BT.IDNT  BSSENT 0           PREFIX TABLE LAYOUT                                 FAS          277     A     
 FAS                                                                                       FAS          278     A     
 FAS                LOC    0                                                               FAS          279     A     
 FAS                                                                                       FAS          280     A     
 FAS                VFD    BT.CNL/BT=IDNT,BT.WCL/L.77,*P/0                                 FAS          281     A     
 FAS                DIS    1,*******         DECK NAME                                     FAS          282     A     
 FAS                DIS    2, MM/DD/YY  HH.MM.SS.                                          FAS          283     A     
 FAS                DATA   10H"OS.ID"                                                      FAS          284     A     
 FAS                DATA   10H"LPNAME""VER"                                                FAS          285     A     
 FAS                VFD    30/5H"MODLVL",12/2H"TARGET",12/2H"VALID",6/1H                   FAS          286     A     
 FAS                DATA   2H I        HARDWARE DEPENDENCIES                               FAS          287     A     
 FAS       BT.IDN8  CONENT 1H          PROG-UNIT TYPE                                      FAS          288     A     
 FAS      *                                           ---  OPTIONS  ---                    FAS          289     A     
 FAS       BT.IDN9  CONENT 1H          DBUG TRACE                                          FAS          290     A     
 FAS       BT.IDNTA DIS    1,                               ROUND SYS                      FAS          291     A     
 FAS                DIS    1,                                                              FC51002       12     A     
 FAS       BT.IDNTB DIS    1,                               ARG                            FC51002       13     A     
 FAS       BT.IDNTU BSSZ   L.77-*+1                        USER COMMENT                    FAS          292     A     
 FAS                                                                                       FAS          293     A     
 FAS                LOC    *O                                                              FAS          294     A     
 FAS       BT.DBMP  SPACE  4,10                                                            FAS          295     A     
 FAS      **        BT.DBMP - *LDSET PRESET* AND *LDSET MAP* LOADER SUB-DIRECTIVES         FAS          296     A     
 FAS      *         REQUIRED BY PMDMP.                                                     FAS          297     A     
 FAS                                                                                       FAS          298     A     
 FAS       BT.DBPM  BSS                                                                    FAS          299     A     
 FAS                VFD    BT.CNL/BT=PREST,BT.WCL/1,18/0,18/1                              FAS          300     A     
 FAS                VFD    60/60000000000433400000B                                        FAS          301     A     
 FAS                VFD    BT.CNL/BT=MAP,BT.WCL/1,17/0,18/3,1/1                            FAS          302     A     
 FAS                DATA   7LZZZZZMP                                                       FAS          303     A     
 FAS       BT.DBPML EQU    *-BT.DBPM                                                       FAS          304     A     
 FAS                SPACE  4,10                                                            FAS          305     A     
 FAS      **        BT.LIB - *LDSET(LIB=FORTRAN)* LOADER OBJECT DIRECTIVE.                 FAS          306     A     
 FAS                                                                                       FAS          307     A     
 FAS       BT.LIB   VFD    BT.CNL/BT=LIB,BT.WCL/BT.LIBL-1,*P/0                             FAS          308     A     
 FAS                DATA   L FTN5LIB                                                       FAS          309     A     
 FAS       BT.LIBL  EQU    *-BT.LIB                                                        FAS          310     A     
 FAS                SPACE  4,10                                                            FAS          311     A     
 FAS      **        BT.ERR - THIS LINE IS ALL THE BINARY OUTPUT IF THERE WERE              FAS          312     A     
 FAS      *                FATAL ERRORS.                                                   FAS          313     A     
 FAS                                                                                       FAS          314     A     
 FAS       BT.ERR   LIT    28LERRORS IN COMPILATION.                                       FAS          315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SPACE  4,10                                                            FAS          316          I
          -FC5A132
 FAS      **        BT.FIT - FILE INFORMATION TABLE TEMPLATE.                              FAS          317          I
          -FC5A132
 FAS                                                                                       FAS          318          I
          -FC5A132
 FAS      *         FIT TEXT TABLE HEADER WORD                                             FAS          319          I
          -FC5A132
 FAS       BT.FIT2  VFD    BT.CNL/BT=TEXT,BT.WCL/BT.FIT1+1,*P/**                           FAS          320          I
          -FC5A132
 FAS      *         POSSIBLE RELOC BYTES WORDS                                             FAS          321          I
          -FC5A132
 FAS       BT.FIT3  VFD    4/,4/2,4/,4/,4/,4/2,*P/0       6RM NO MRL                       FAS          322          I
          -FC5A132
 FAS                VFD    4/,4/2,4/,4/,4/,4/2,4/2,*P/0   6RM W/MRL                        FAS          323          I
          -FC5A132
 FAS                VFD    4/,4/,4/,4/,4/,4/,4/2,*P/0     7RM W/MRL                        FAS          324          I
          -FC5A132
 FAS                                                                                       FAS          325          I
          -FC5A132
 FAS      *         TEXT TABLE                                                             FAS          326          I
          -FC5A132
 FAS                                                                                       FAS          327          I
          -FC5A132
 FAS       BT.FIT   VFD    *P/**       FILLED BY FIT TEXT TABLE HEADER WORD                FAS          328          I
          -FC5A132
 FAS                VFD    *P/**       FILLED BY RELOC BYTES WORD                          FAS          329          I
          -FC5A132
 FAS                                                                                       FAS          330          I
          -FC5A132
 FAS      *         6RM/7RM FIT SKELETON                                                   FAS          331          I
          -FC5A132
 FAS                                                                                       FAS          332          I
          -FC5A132
 FAS       BT.FIT0  DATA   0                       FILE NAME (BY Q8NTRY)                   FAS          333          I
          -FC5A132
 FAS                VFD    42/0,18/**              FET ADDR                                FAS          334          I
          -FC5A132
 FAS                VFD    24/0,2/2,2/0,2/2,2/3,28/0 OF=N,CF=N,LT=ANY                      FAS          335          I
          -FC5A132
 FAS                VFD    24/0,18/**,18/0         CIO BUFFER LENGTH                       FAS          336          I
          -FC5A132
 FAS                DATA   0                                                               FAS          337          I
          -FC5A132
 FAS                VFD    28/0,1/1,13/0,18/**     SDS=YES,CIO BUFFER FWA                  FAS          338          I
          -FC5A132
 FAS                VFD    24/**,11/0,3/6,22/**    MRL,EO=AD,WSA FWA                       FAS          339          I
          -FC5A132
 FAS       BT.FIT1  =      *-BT.FIT0                                                       FAS          340          I
          -FC5A132
 FAS                SPACE  4,10                                                            FAS          341          I
          -FC5A132
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      **        BT.REP - REPLICATION TABLES BUILT HERE.                                FAS          342          I
          -FC5A132
 FAS      *                NOTE - REP TABLE MUST IMMEDIATELY FOLLOW FIT SKELETON.          FAS          343          I
          -FC5A132
 FAS                                                                                       FAS          344          I
          -FC5A132
 FAS       BT.REP   VFD    BT.CNL/BT=REPL,BT.WCL/2,*P/1                                    FAS          345          I
          -FC5A132
 FAS                VFD    33/0,9/1,18/**         SOURCE OF REPL                           FAS          346          I
          -FC5A132
 FAS                VFD    18/**,15/0,9/1,18/**   REPL COUNT,DESTINATION OF REPL           FAS          347          I
          -FC5A132
 FAS       BT.REPL  EQU    *-BT.REP                                                        FAS          348          I
          -FC5A132
 FAS                                                                                       FAS          349          I
          -FC5A132
 FAS       BT.FITL  EQU    *-BT.FIT                                                        FAS          350          I
          -FC5A132
 FAS       BT.XREP  SPACE  4,10                                                            FC5A132      123     A     
 FAS      **        BT.XREP - REPLICATION TABLES BUILT HERE.                               FC5A132      124     A     
 FAS                                                                                       FC5A132      125     A     
 FAS       BT.XREP  VFD    BT.CNL/BT=XREPL,BT.WCL/2,*P/1                                   FC5A132      126     A     
 FAS                VFD    27/0,9/1,24/**    SOURCE OF REPL                                FC5A132      127     A     
 FAS                VFD    15/**,12/0,9/1,24/**    REPL COUNT, DESTINATION OF REPL         FC5A132      128     A     
 FAS       BT.XREPL EQU    *-BT.XREP                                                       FC5A132      129     A     
 FAS                                                                                       FC5A132      130     A     
 FAS       BT.PTEXT SPACE  4,10                                                            FAS          351     A     
 FAS      **        BT.PTEXT - PARTIAL WORD TEXT TABLE BUILT HERE.                         FAS          352     A     
 FAS                                                                                       FAS          353     A     
 FAS       BT.PTEXT VFD    BT.CNL/BT=PTEXT,BT.WCL/**,*P/0                                  FAS          354     A     
 FAS                VFD    BT.LENL/**,BT.BCPL/**,BT.RPL/**,2/0,BT.RBL/**,                  FAS          355     A     
 FAS                VFD    BT.FWAL/**                                                      FAS          356     A     
 FAS                VFD    12/0,BT.RIPL/**,BT.RCPL/**                                      FAS          357     A     
 FAS                SPACE  4,10                                                            FAS          358     A     
 FAS                                                                                       FAS          359     A     
 FAS      **        BT.TEXT - PARTIAL *TEXT* TABLE BUILT HERE.                             FAS          360     A     
 FAS                                                                                       FAS          361     A     
 FAS       BT.TXWC  DATA   0           WORD COUNT                                          FAS          362     A     
 FAS       BT.TEXT  DATA   0           PARTIAL TABLE PROPER                                FAS          363     A     
 FAS       BT.TXRB  DATA   0           RELOCATION BYTES                                    FAS          364     A     
 FAS                BSSZ   15                                                              FAS          365     A     
 FAS       BT.TXTL  EQU    *-BT.TXRB   LENGTH OF WORKING BUFFER                            FAS          366     A     
 FAS                                                                                       FAS          367     A     
 FAS       BINWORD  DATA   0           PARTIAL BINARY OUTPUT WORD                          FAS          368     A     
 FAS       BINREL   DATA   0           PARTIAL RELOCATION                                  FAS          369     A     
 FAS                                                                                       FAS          370     A     
 FAS       BT.ENTR  VFD    BT.CNL/BT=ENTR,*P/0                                             FAS          371     A     
 FAS       BT.XFER  VFD    BT.CNL/BT=XFER,BT.WCL/1,*P/0                                    FAS          372     A     
 FAS       BT.XFR1  BSSENT 1           ROUTINE NAME GOES HERE                              FAS          373     A     
 FAS       BT.LSTN  SPACE  4,10                                                            FAS          374     A     
 FAS      *         STATEMENT LINE NUMBER TABLE HEADER TEMPLATE.                           FAS          375     A     
 FAS                                                                                       FAS          376     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       BT=FTN5  EQU    4           LANGUAGE ORDINAL FOR FTN5                           FAS          377     A     
 FAS       BT=LSYML EQU    3           NO. OF WORDS PER (5600) TABLE ENTRY                 FAS          378     A     
 FAS                ERRNZ  Z=SYM-BT=LSYML                                                  FAS          379     A     
 FAS                                                                                       FAS          380     A     
 FAS       BT.LSTN  VFD    BT.CNL/BT=LSTN,BT.WCL/**,12/BT=FTN5,*P/0                        FAS          381     A     
 FAS                                                                                       FAS          382     A     
 FAS      *         LOADER SYMBOL TABLE HEADER TEMPLATE.                                   FAS          383     A     
 FAS                                                                                       FAS          384     A     
 FAS       BT.LSYL  VFD    BT.CNL/BT=LSYM,BT.WCL/**,2/0,BT.LOL/BT=FTN5                     FAS          385     A     
 FAS                VFD    BT.LTBL/0,BT.DSTL/0,BT.TYL/0,2/0,BT.SA1L/**                     FAS          386     A     
 FAS       BT.LSYM  VFD    BT.CNL/BT=LSYM,BT.WCL/**,2/0,BT.LOL/BT=FTN5                     FAS          387     A     
 FAS                VFD    BT.LTBL/0,BT.DSTL/0,BT.TYL/0,2/0,BT.SA1L/**                     FAS          388     A     
 FAS       MODEV    SPACE  4,10                                                            FAS          389     A     
 FAS                PURGMAC  MODEV                                                         FAS          390     A     
 FAS                MACRO  MODEV,ADDR,B,L,I,R,D,COMPLEX,CHAR,COMMA                         FAS          391     A     
 FAS                ENTRY  ADDR                                                            FAS          392     A     
 FAS       ADDR     VFD    28/0,4/COMMA,4/CHAR,4/COMPLEX,4/D,4/R,4/I,4/L,4/B               FAS          393     A     
 FAS                ENDM                                                                   FAS          394     A     
 FAS                                                                                       FAS          395     A     
 FAS       CIDMOD   MODEV  6,1,2,3,4,5,7,0   MODES FOR CID/PMD                             FAS          396     A     
 FAS                                                                                       FAS          397     A     
 FAS       COMMOD   MODEV  1,4,1,0,2,3,5,0   MODES FOR COBOL (DAP S1518)                   FAS          398     A     
 FAS       LABMOD   CON    6           MODE FOR LABELS                                     FC5A121        4     A     
 FAS                                                                                       FAS          399     A     
 FAS       FCLMOD   MODEV  6,1,2,3,4,5,8,7   MODES FOR FCL                                 FAS          400     A     
 FAS       ICDEF    SPACE  4,10                                                            FAS          401     A     
 FAS      **        ICDEF - MACRO TO DEFINE I/O CONTROL CODE PROCESSING TABLE.             FAS          402     A     
 FAS                                                                                       FAS          403     A     
 FAS                                                                                       FAS          404     A     
 FAS                PURGMAC ICDEF                                                          FAS          405     A     
 FAS                                                                                       FAS          406     A     
 FAS                MACRO  ICDEF,ICN,NULL                                                  FAS          407     A     
 FAS                JP     KIO=ICN                                                         FAS          408     A     
 FAS       -        VFD    30/0                                                            FAS          409     A     
 FAS       ICDEF    ENDM                                                                   FAS          410     A     
 FAS      *CALL,COMSIOC                                                                    FAS          411     A     
 FAS       PSUD     SPACE  4,10                                                            FAS          412     A     
 FAS      **        PSUD,IPSUD - MACRO TO DEFINE PSEUDO INSTRUCTION JUMP TABLE.            FAS          413     A     
 FAS                                                                                       FAS          414     A     
 FAS                                                                                       FAS          415     A     
 FAS                PURGMAC PSUD,IPSUD                                                     FAS          416     A     
 FAS       PSUD     MACRO  PSN                                                             FAS          417     A     
 FAS                JP     FO=PSN                                                          FAS          418     A     
 FAS      -         VFD    12/0,18/=YLI=PSN                                                FAS          419     A     
 FAS       PSUD     ENDM                                                                   FAS          420     A     
 FAS                                                                                       FAS          421     A     
 FAS       IPSUD    MACRO  PSN                                                             FAS          422     A     
 FAS                JP     FI=PSN                                                          FAS          423     A     
 FAS      -         VFD    12/0,18/=YLI=PSN                                                FAS          424     A     
 FAS       IPSUD    ENDM                                                                   FAS          425     A     
 FAS       FAPSUD   BSSENT 0           ENTRY FROM *LIST*                                   FAS          426     A     
 FAS      *CALL     COMSPSU            PSEUDO INSTRUCTION DEFINITIONS                      FAS          427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LOC    Z.PSUD                                                          FAS          428     A     
 FAS       OC=FLA   CON    =YLI=FLA                                                        FAS          429     A     
 FAS                LOC    *O                                                              FAS          430     A     
 FAS       CELLS    SPACE  4,10                                                            FAS          431     A     
 FAS      **        CELLS.                                                                 FAS          432     A     
 FAS                                                                                       FAS          433     A     
 FAS                                                                                       FAS          434     A     
 FAS       BCI      BSSZ   1           .LT. 0 IF PROCESSING CCG TYPE INSTRUCTIONS          FAS          435     A     
 FAS       DELAY    BSSZ   1           12/2000B+FPNO, 48/ORGIN  (FOR *BST*)                FAS          436     A     
 FAS       ORG      CONENT 0           ORIGIN COUNTER                                      FAS          437     A     
 FAS       PARCEL   CONENT 0           PARCEL COUNTER, 3=EMPTY, -1=FULL                    FAS          438     A     
 FAS       ORGSUB   CONENT 0           LISTING ORIGIN COUNTER FOR SUB BLOCK                FAS          439     A     
 FAS       SUBFLG   CONENT 0           .LT. 0 IF INHIBIT *SUB*                             FAS          440     A     
 FAS       ORGSUB0  CONENT 0           LISTING ORIGIN COUNTER FOR SUB0 BLOCK               FAS          441     A     
 FAS       TAGSUB0  CONENT 0           LISTING TAG FOR *SUB0*                              FAS          442     A     
 FAS       OL=BIN   BSSENT 1           BINARY WORD TO BE LISTED                            FAS          443     A     
 FAS       OL=LBF   BSSENT 1           LABEL FIELD FWA          (PW .VS. NON-PW)           FAS          444     A     
 FAS       OL=PB    BSSENT 1           (PB.) FORMAT INSTRUCTION TO BE LISTED               FAS          445     A     
 FAS       OL=RL    BSSENT 1           RELOCATION INDICATOR FOR LISTING                    FAS          446     A     
 FAS       XFIL     BSSZ   1           TEMP SET IN *KAP* TO INFORM *REL* TO MAKE           FAS          447          I
          -FC5A250
 FAS      *                            AN XFILL TABLE ENTRY                                FAS          448          I
          -FC5A250
 FAS       SAVVD    BSS    1           SAVED WC.RA OF *VD.*                                FAS          449     A     
 FAS       TEMP     BSS    4           TEMPORARIES                                         FAS          450     A     
 FAS       RELSIZ   BSS    1                                                               FAS          451     A     
 FAS                TITLE  FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                    FAS          452     A     
 FAS       FAS      SPACE  4,10                                                            FAS          453     A     
 FAS      **        FAS -  FORTRAN INTERNAL ASSEMBLER.                                     FAS          454     A     
 FAS      *         CONTROLLING ROUTINE.                                                   FAS          455     A     
 FAS      *         CALLED BY AND EXITS TO  *REC*.                                         FAS          456     A     
 FAS      *         PROCESSES THE PRE-BINARY FILE (T.PB OR F.PB).                          FAS          457     A     
 FAS      *                                                                                FAS          458     A     
 FAS      *         USES   ALL                                                             FAS          459     A     
 FAS      *                                                                                FAS          460     A     
 FAS      *         CALLS  DDS,DFT,DIT,GCL,PCT,PFT,RIP,RNI                                 FAS          461     A     
 FAS                                                                                       FAS          462     A     
 FAS                                                                                       FAS          463     A     
 FAS       FAS      SUBR   =           ENTRY/EXIT                                          FAS          464     A     
 FAS                                                                                       FAS          465     A     
 FAS                                                                                       FAS          466     A     
 FAS      *         INITIALIZE LINK AND FILL TABLES.                                       FAS          467     A     
 FAS                                                                                       FAS          468     A     
 FAS                BX6    0                                                               FAS          469     A     
 FAS                SA1    CO.ARGC                                                         FAS          470     A     
 FAS                NZ     X1,FAS1     IF ARG=COMMON                                       FAS          471     A     
 FAS                SA6    COMMOD      [ALL]COMMOD = 0                                     FAS          472     A     
 FAS                SA6    LABMOD                                                          FC5A121        5     A     
 FAS                                                                                       FAS          473     A     
 FAS       FAS1     SHRINK T=LINK,X6                                                       FAS          474     A     
 FAS                SHRINK T=FILL,X6                                                       FAS          475     A     
 FAS                SHRINK T=XFIL,X6                                                       FAS          476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1764    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SHRINK T=LNT,X6                                                        FAS          477     A     
 FAS                SA2    NREXT                                                           FAS          478     A     
 FAS                ALLOC  T.LINK,X2   ALLOCATE BASIC LINK TABLE                           FAS          479     A     
 FAS                ALLOC  T.FILL,1    ALLOCATE BASIC FILL TABLE                           FAS          480     A     
 FAS                ALLOC  T.XFIL,1    ALLOCATE EXTENDED FILL TABLE                        FAS          481     A     
 FAS                SA2    CO.OPT                                                          FC5A171A     347     A     
 FAS                ZR     X2,FAS5     IF OPT = 0, BUFFER IS STATIC                        FC5A171A     348     A     
 FAS                                                                                       FAS          482     A     
 FAS      *         INITIALIZE LGO BUFFER.                                                 FAS          483     A     
 FAS                                                                                       FAS          484     A     
 FAS                SA2    FV.LGO                                                          FAS          485     A     
 FAS                ZR     X2,FAS5     IF BINARY NOT REQUESTED                             FAS          486     A     
 FAS                SHRINK T=LGOB                                                          FAS          487     A     
 FAS                IFEQ   CP#RM,0,2   IF CIO I/O                                          FAS          488     A     
 FAS                SA2    F.LGO+I.CBSET                                                   FAS          489     A     
 FAS                SKIP   1           SKIP 7RM CODE                                       FAS          490     A     
 FAS                SA2    F.LGO+I.HBSET                                                   FAS          491     A     
 FAS                                                                                       FAS          492     A     
 FAS                LX2    -18                                                             FAS          493     A     
 FAS                SX0    X2                                                              FAS          494     A     
 FAS                ALLOC  T.LGOB,X0   GET ROOM FOR LGO BUFFER                             FAS          495     A     
 FAS                                                                                       FAS          496     A     
 FAS                IFNE   CP#RM,0,1   IF NOT SCOPE 2                                      FAS          497     A     
 FAS                RECALL F.LGO                                                           FAS          498     A     
 FAS                                                                                       FAS          499     A     
 FAS       FAS5     SA2    ERRORS                                                          FAS          500     A     
 FAS                NZ     X2,END.ERR  IF FATAL ERRORS                                     FAS          501     A     
 FAS                                                                                       FAS          502     A     
 FAS      *         CALCULATE COMPLEMENT OF (PROGRAM UNIT LENGTH) = -(SUM.LBT),            FAS          503     A     
 FAS      *         AND SAVE IN  T.SYM(S=LENP) FOR OBJECT TIME REPRIEVE                    FAS          504     A     
 FAS      *         ...SPECIFICALLY USED DURING PROCESSING OF (SB0 B2 - LEN) INST.         FAS          505     A     
 FAS                                                                                       FAS          506     A     
 FAS                SA3    S=LENP      ORDINAL INTO LENP ENTRY IN T.SYM                    FAS          507     A     
 FAS                SA1    SUM.LBT                                                         FAS          508     A     
 FAS                LX0    X3,B1                                                           FAS          509     A     
 FAS                IX3    X0+X3       = 3 * ORDINAL = INDEX INTO T.SYM                    FAS          510     A     
 FAS                SA2    T.SYM                                                           FAS          511     A     
 FAS                IX2    X2+X3                                                           FAS          512     A     
 FAS                SA3    X2+WC.W                                                         FAS          513     A     
 FAS                MX0    -WC.RAL                                                         FAS          514     A     
 FAS                LX3    -WC.RAP                                                         FAS          515     A     
 FAS                BX4    X0*X3       CLEAR OLD (WC.RA)                                   FAS          516     A     
 FAS                BX5    -X1         (X5) = COMPLEMENT OF (SUB.LBT)                      FAS          517     A     
 FAS                BX3    -X0*X5      TRIM COMPLEMENT TO (WC.RA) WIDTH                    FAS          518     A     
 FAS                BX7    X3+X4                                                           FAS          519     A     
 FAS                LX7    WC.RAP                                                          FAS          520     A     
 FAS                SA7    A3          UPDATE (WC.) OF (S=LENP)                            FAS          521     A     
 FAS                                                                                       FAS          522     A     
 FAS      *         INITIALIZE SOME CELLS.                                                 FAS          523     A     
 FAS                                                                                       FAS          524     A     
 FAS                SA1    S=VD                                                            FAS          525     A     
 FAS                SA2    T.SYM                                                           FAS          526     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA7    ORDA                                                            FAS          527     A     
 FAS                =B2    X1+WC.W                                                         FAS          528     A     
 FAS                LX3    X1,B1                                                           FAS          529     A     
 FAS                SB2    B2+X3       STINDV = 3 * (S=VD)                                 FAS          530     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS          531     A     
 FAS                SA1    X2+B2       WCV = T.SYM(STINDV) + WC.W                          FAS          532     A     
 FAS                MX6    -WC.RAL                                                         FAS          533     A     
 FAS                LX1    -WC.RAP                                                         FAS          534     A     
 FAS                BX6    -X6*X1      RAV = RA[WCV]                                       FAS          535     A     
 FAS                SA6    SAVVD       (SAVVD) = RAV                                       FAS          536     A     
 FAS                SB4    BN=SUB0                                                         FAS          537     A     
 FAS                SB3    BN=SUB                                                          FAS          538     A     
 FAS                SA1    F.LBT+B3                                                        FAS          539     A     
 FAS                SA2    F.LBT+B4                                                        FAS          540     A     
 FAS                MX0    -LB.ORGL                                                        FAS          541     A     
 FAS                LX1    -LB.ORGP                                                        FAS          542     A     
 FAS                LX2    -LB.ORGP                                                        FAS          543     A     
 FAS                BX7    0                                                               FAS          544     A     
 FAS                SX6    3                                                               FAS          545     A     
 FAS                SA7    ORG         INITIALIZE  ORG = 0                                 FAS          546     A     
 FAS                SA7    DELAY       INITIALIZE  DELAY = 0                               FAS          547     A     
 FAS                SA7    CBI         INITIALIZE  CBI = 0                                 FAS          548     A     
 FAS                SA6    PARCEL      INITIALIZE  PARCEL = 3                              FAS          549     A     
 FAS                BX6    -X0*X1                                                          FAS          550     A     
 FAS                SA7    BINREL      INITIALIZE  BINREL = 0                              FAS          551     A     
 FAS                SA7    BINWORD     INITIALIZE  BINWORD = 0                             FAS          552     A     
 FAS                BX7    -X0*X2                                                          FAS          553     A     
 FAS                SA6    ORGSUB      (ORGSUB) = ORG[L.LBT(BN=SUB)]                       FAS          554     A     
 FAS                SA7    ORGSUB0     (ORGSUB0) = ORG[L.LBT(BN=SUB0)]                     FAS          555     A     
 FAS                RJ     DTX         INITIALIZE TEXT TABLE                               FAS          556     A     
 FAS                SA1    CO.PW                                                           FAS          557     A     
 FAS                SX1    X1-136                                                          FAS          558          I
          -FC50353
 FAS                SX1    X1-126                                                          FC50353       27     A     
 FAS                SX6    LINEBUF+4                                                       FAS          559     A     
 FAS                SA6    OL=LBF      (OL=LBF) -> LINEBUF+4                               FAS          560     A     
 FAS                ZR     X1,FASRTN   IF NOT PW MODE                                      FAS          561          I
          -FC50353
 FAS                PL     X1,FASRTN   IF NOT PW MODE                                      FC50353       28     A     
 FAS                SX7    LINEBUF+1                                                       FAS          562     A     
 FAS                SA7    A6          (OL=LBF) -> LINEBUF+1                               FAS          563     A     
 FAS                                                                                       FAS          564     A     
 FAS                                                                                       FAS          565     A     
 FAS      **        RETURN FROM PSEUDO INSTRUCTION PROCESSORS.                             FAS          566     A     
 FAS                                                                                       FAS          567     A     
 FAS                                                                                       FAS          568     A     
 FAS       FASRTN   BSS    0                                                               FAS          569     A     
 FAS                RJ     RNI         READ NEXT INSTRUCTION                               FAS          570     A     
 FAS                SA2    PARCEL                                                          FAS          571     A     
 FAS                SB2    X2                                                              FAS          572     A     
 FAS                MX0    PB.GHIJL                                                        FAS          573     A     
 FAS                BX3    X0*X5       (X3) = GHIJ                                         FAS          574     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX3    PB.GHIJL    48/0,12/GHIJ                                        FAS          575     A     
 FAS                SB4    X3                                                              FAS          576     A     
 FAS                BX7    -X3                                                             FAS          577     A     
 FAS                SB3    B2-2                                                            FAS          578     A     
 FAS                SA7    RADC        (RADC) = - GHIJ                                     FAS          579     A     
 FAS                                                                                       FAS          580     A     
 FAS                IFEQ   TEST,ON,2   IF TEST MODE                                        FAS          581     A     
 FAS                SB7    Z.PSUD                                                          FAS          582     A     
 FAS                GE     B4,B7,"BLOWUP"    IF ILLEGAL PSEUDO NUMBER                      FAS          583     A     
 FAS                JP     B4+OCPSUD   JUMP TO PSEUDO INSTRUCTION PROCESSOR                FAS          584     A     
 FAS       FO=XXX   SPACE  4,30                                                            FAS          585     A     
 FAS      **        THIS SECTION CONTAINS OC$ PSEUDO INSTRUCTION PROCESSORS.               FAS          586     A     
 FAS      *         THESE ROUTINES ARE INVOKED FROM ROUTINE  *FAS*  WHICH                  FAS          587     A     
 FAS      *         FINDS FROM THE PSEUDO INSTRUCTION JUMP TABLE AN ENTRY                  FAS          588     A     
 FAS      *         LABEL OF THE FORM    *  FO=XXX  *    , THEN JUMPS TO                   FAS          589     A     
 FAS      *         IT.                                                                    FAS          590     A     
 FAS      *         ENTRY  (X5) = INSTRUCTION                                              FAS          591     A     
 FAS      *         EXIT   IS ALWAYS TO   *FASRTN*   .                                     FAS          592     A     
 FAS       FO=ADDR  SPACE  4,10                                                            FAS          593     A     
 FAS       FO=ADDR  LX5    -PB.BIASP                                                       FAS          594     A     
 FAS                SB4    X5          SAVE BIAS FIELD                                     FAS          595     A     
 FAS                ERRNZ  PB.BIASL-18                                                     FAS          596     A     
 FAS                LX5    PB.BIASP                                                        FAS          597     A     
 FAS                MX0    -PB.TAGL                                                        FAS          598     A     
 FAS                LX0    PB.TAGP                                                         FAS          599     A     
 FAS                BX5    -X0*X5      CLEAR ALL BUT TAG                                   FAS          600     A     
 FAS                =B2    1                                                               FAS          601     A     
 FAS                MX6    -18                                                             FAS          602     A     
 FAS                SA6    RELMASK                                                         FAS          603     A     
 FAS                SX6    PB.BIASP                                                        FAS          604     A     
 FAS                SA6    RELPOS                                                          FAS          605     A     
 FAS                RJ     REL                                                             FAS          606     A     
 FAS                SA1    BINWORD                                                         FAS          607     A     
 FAS                SX2    B4                                                              FAS          608     A     
 FAS                LX2    18                                                              FAS          609     A     
 FAS                SX1    X1          ISOLATE ADDRESS                                     FAS          610     A     
 FAS                BX1    X1+X2                                                           FAS          611     A     
 FAS                SA2    BINREL                                                          FAS          612     A     
 FAS                BX0    X1                                                              FAS          613     A     
 FAS                RJ     STX                                                             FAS          614     A     
 FAS                RJ     FBP                                                             FAS          615     A     
 FAS                EQ     FASRTN                                                          FAS          616     A     
 FAS       FO=APL   SPACE  4,10                                                            FAS          617     A     
 FAS       FO=APL   BSS    0           PROCESS OC$APL PSEUDO                               FAS          618     A     
 FAS                =B6    0           INDICATE REGULAR AP-LIST                            FAS          619     A     
 FAS                CALL   PAT         PRE-PROCESS AP-LIST TABLE                           FAS          620     A     
 FAS                SA2    T=LCA                                                           FAS          621     A     
 FAS                SA3    T=APL                                                           FAS          622     A     
 FAS                SX2    X2-1                                                            FAS          623     A     
 FAS                BX6    X3                                                              FAS          624     A     
 FAS                SA6    APLA        SAVE (APLA) = CURRENT LENGTH OF T.APL               FAS          625     A     
 FAS                ZR     X2,APL.20   IF NO LCM POINTERS                                  FAS          626     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                ALLOC  T.APL,X2                                                        FAS          627     A     
 FAS                SA5    APLA                                                            FAS          628     A     
 FAS                SA4    T.APL                                                           FAS          629     A     
 FAS                SA1    T=LCA                                                           FAS          630     A     
 FAS                SA2    T.LCA                                                           FAS          631     A     
 FAS                SX1    X1-1                                                            FAS          632     A     
 FAS                SX2    X2+B1                                                           FAS          633     A     
 FAS                IX3    X4+X5                                                           FAS          634     A     
 FAS                MOVE   X1,X2,X3    APPEND LCA TABLE TO APL                             FAS          635     A     
 FAS                                                                                       FAS          636     A     
 FAS      *         TRANSFORM LCA TABLE INTO AUXILIARY SYMBOL TABLE                        FAS          637     A     
 FAS      *         AS NEEDED TO PROCESS CODE, BY CONVERTING TO WORD C                     FAS          638     A     
 FAS      *         FORMAT RELOCATION INFO POINTING TO LCM POINTERS IN                     FAS          639     A     
 FAS      *         T.APL .                                                                FAS          640     A     
 FAS                                                                                       FAS          641     A     
 FAS                SA1    APLA                                                            FAS          642     A     
 FAS                SA2    T.LCA                                                           FAS          643     A     
 FAS                SB5    X2+B1       I = 1                                               FAS          644     A     
 FAS                SB6    BN=APL                                                          FAS          645     A     
 FAS                SA2    F.LBT+B6                                                        FAS          646     A     
 FAS                MX7    1                                                               FAS          647     A     
 FAS                MX0    -LB.ORGL                                                        FAS          648     A     
 FAS                LX7    1+WC.RAP                                                        FAS          649     A     
 FAS                LX2    -LB.ORGP                                                        FAS          650     A     
 FAS                SA5    T=LCA                                                           FAS          651     A     
 FAS                BX3    -X0*X2                                                          FAS          652     A     
 FAS                IX6    X1+X3                                                           FAS          653     A     
 FAS                SX5    X5-1                                                            FAS          654     A     
 FAS                LX6    WC.RAP      RAT = ORG[LBT(BN=APL)] + T=APL - T=LCA-1            FAS          655     A     
 FAS       APL.15   ZR     X5,APL.20   IF T.LCA EXHAUSTED                                  FAS          656     A     
 FAS                SX5    X5-1                                                            FAS          657     A     
 FAS                SA6    B5          RA[LCA(I)] = RAT                                    FAS          658     A     
 FAS                IX6    X6+X7       RAT = RAT+1                                         FAS          659     A     
 FAS                =B5    B5+1        I = I + 1                                           FAS          660     A     
 FAS                EQ     APL.15                                                          FAS          661     A     
 FAS                                                                                       FAS          662     A     
 FAS       APL.20   MX6    0                                                               FAS          663     A     
 FAS                SHRINK T=PTXTR,X6                                                      FAS          664     A     
 FAS                RJ     KAP         COMPILE APLISTS (AND LCM POINTERS)                  FAS          665     A     
 FAS                =B6    0           INDICATE REGULAR APLIST                             FAS          666     A     
 FAS                RJ     POL         PRINT OBJECT LISTING                                FAS          667     A     
 FAS                SHRINK T=APL,0                                                         FAS          668     A     
 FAS                SHRINK T=PTXTR,X6                                                      FAS          669     A     
 FAS                EQ     FASRTN                                                          FAS          670     A     
 FAS                                                                                       FAS          671     A     
 FAS       APLA     BSSENT 1           T=APL BEFORE T=LCA APPENDED                         FAS          672     A     
 FAS       FO=BMI   SPACE  4,10                                                            FAS          673     A     
 FAS       FO=BMI   BSS    0           PROCESS OC$BMI PSEUDO                               FAS          674     A     
 FAS                RJ     RAD         PROCESS *TS* TYPE INSTRUCTIONS                      FAS          675     A     
 FAS                EQ     FASRTN                                                          FAS          676     A     
 FAS       FO=BSS   SPACE  4,10                                                            FAS          677     A     
 FAS       FO=BSS   BSS    0           PRECESS OC$BSS PSEUDO FOR LABELS                    FAS          678          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
          -FC50264
 FAS       FO=BSS   BSS    0           PROCESS OC$BSS PSEUDO FOR LABELS                    FC50264       22     A     
 FAS                RJ     RBS         RELOCATE   BSS   INSTRUCTION                        FAS          679     A     
 FAS                EQ     FASRTN                                                          FAS          680     A     
 FAS       FO=CON   SPACE  4,10         PROCESS OC$CON PSEUDO                              FAS          681     A     
 FAS       FO=CON   BSS    0                                                               FAS          682     A     
 FAS                RJ     POL         PRINT CONSTANT TABLE                                FAS          683     A     
 FAS                SA1    T.CON                                                           FAS          684     A     
 FAS                RJ     SMW         STORE MULTIPLE WORDS (T.CON)                        FAS          685     A     
 FAS                EQ     FASRTN                                                          FAS          686     A     
 FAS       FO=DATA  SPACE  4,10                                                            FAS          687          I
          -FC5A132
 FAS       FO=DATA  BSS    0           OUTPUT DATA TABLE                                   FAS          688          I
          -FC5A132
 FAS                RJ     POL         PRINT DATA TABLE                                    FAS          689          I
          -FC5A132
 FAS                RJ     DDS         DUMP DATA STATEMENTS                                FAS          690          I
          -FC5A132
 FAS                SHRINK T=DATS,0                                                        FAS          691          I
          -FC5A132
 FAS                EQ     FASRTN                                                          FAS          692          I
          -FC5A132
 FAS       FO=FEQU  SPACE  4,10                                                            FAS          693     A     
 FAS       FO=EQUN  BSS    0           *EQUN* PSEUDO                                       FAS          694     A     
 FAS                RJ     POL         PRINT *  LENP.  EQUN   *                            FAS          695     A     
 FAS                EQ     FASRTN                                                          FAS          696     A     
 FAS       FO=FMT   SPACE  4,10                                                            FAS          697     A     
 FAS       FO=FMT   BSS    0           PROCESS OC$FMT PSEUDO                               FAS          698     A     
 FAS                RJ     POL         PRINT FORMAT TABLE                                  FAS          699     A     
 FAS                SA1    T.FMT                                                           FAS          700     A     
 FAS                RJ     SMW         STORE MULTIPLE WORDS (T.FMT)                        FAS          701     A     
 FAS                SA3    CO.OPT                                                          FAS          702     A     
 FAS                SA4    T=LA                                                            FAS          703     A     
 FAS                NZ     X3,FASRTN   IF NOT QCG                                          FAS          704     A     
 FAS                SX6    -OC=FLA                                                         FAS          705     A     
 FAS                ZR     X4,FASRTN   IF NO LABELS ASSIGN-ED                              FAS          706     A     
 FAS                SA6    RADC                                                            FAS          707     A     
 FAS                RJ     FLA         FORMAT LABELS ASSIGN-ED                             FAS          708     A     
 FAS                EQ     FASRTN                                                          FAS          709     A     
 FAS       FO=FVEC  SPACE  4,10                                                            FAS          710     A     
 FAS       FO=FVEC  BSS    0                                                               FAS          711     A     
 FAS                SA2    T.SYM                                                           FAS          712     A     
 FAS                MX0    -PB.TAGL                                                        FAS          713     A     
 FAS                LX5    -PB.TAGP                                                        FAS          714     A     
 FAS                BX0    -X0*X5      TAGI = TAG[INSTRUCTION]                             FAS          715     A     
 FAS                ZR     X0,FVEC.10                                                      FAS          716     A     
 FAS                IX2    X2+X0                                                           FAS          717     A     
 FAS                =A1    X2-WB.W+WC.W      *WC*                                          FAS          718     A     
 FAS                =A4    A1-WC.W+WA.W      *WA*                                          FAS          719     A     
 FAS                MX0    WA.SYML                                                         FAS          720     A     
 FAS                BX0    X0*X4       ISOLATE LFN                                         FAS          721     A     
 FAS                MX4    1                                                               FAS          722     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX0    X0-X4       TURN OFF BIT 59                                     FAS          723     A     
 FAS       FVEC.10  LX5    PB.TAGP-PB.BIASP                                                FAS          724     A     
 FAS                MX3    -PB.BIASL                                                       FAS          725     A     
 FAS                BX3    -X3*X5                                                          FAS          726     A     
 FAS                ERRNZ  PB.BIASL-18                                                     FAS          727     A     
 FAS                BX1    X0+X3       MERGE LFN AND BUFL (OR MRL, OR PLIM)                FAS          728     A     
 FAS                =X2    0                                                               FAS          729          I
          -FC50049
 FAS                                                                                       FC50049       19     A     
 FAS       FVEC.20  =X2    0                                                               FC50049       20     A     
 FAS                BX0    X1                                                              FAS          730     A     
 FAS                RJ     STX         OUTPUT POINTER WORD                                 FAS          731     A     
 FAS                RJ     FBP         PRINT FILE DESCRIPTOR                               FAS          732     A     
 FAS                EQ     FASRTN                                                          FAS          733     A     
 FAS                                                                                       FC50049       21     A     
 FAS       FO=PLIM  SA1    =XCO.LL     PRINT LIMIT                                         FC50049       22     A     
 FAS                EQ     FVEC.20                                                         FC50049       23     A     
 FAS       FO=IDNT  SPACE  4,10                                                            FAS          734     A     
 FAS       FO=IDNT  BSS    0           PROCESS OC$IDENT PSEUDO                             FAS          735     A     
 FAS                RJ     DIT         DUMP IDENTIFICATION TABLES                          FAS          736     A     
 FAS                RJ     POL         PRINT * IDENT  PROGNAM*                             FAS          737     A     
 FAS                EQ     FASRTN                                                          FAS          738     A     
 FAS       FO=IOM   SPACE  4,10                                                            FAS          739     A     
 FAS       FO=IOM   BSS    0           PROCESS OC$IOM PSEUDO                               FAS          740     A     
 FAS                SB6    1           INDICATE IO-APLIST TABLE                            FAS          741     A     
 FAS                SA1    T=IOA                                                           FAS          742     A     
 FAS                ZR     X1,FASRTN   IF NO I/O                                           FAS          743     A     
 FAS                CALL   PAT         PRE-PROCESS I/O AP-LIST TABLE                       FAS          744     A     
 FAS                MX6    0                                                               FAS          745     A     
 FAS                SHRINK T=PTXTR,X6                                                      FAS          746     A     
 FAS                SHRINK T=SCR,X6                                                        FAS          747          I
          -FC5A219
 FAS                SHRINK T=CLWB,X6                                                       FC5A219        7     A     
 FAS                RJ     KIO         COMPILE I/O AP-LISTS                                FAS          748     A     
 FAS                RJ     OCL         OUTPUT CHARACTER LEGTH ARRAYS                       FAS          749          I
          -FC5A219
 FAS                RJ     OCL         OUTPUT CHARACTER LENGTH ARRAYS                      FC5A219        8     A     
 FAS                RJ     POL                                                             FAS          750     A     
 FAS                SHRINK T=CLW,0                                                         FAS          751     A     
 FAS                SHRINK T=IOA,X6                                                        FAS          752     A     
 FAS                SHRINK T=PTXTR,X6                                                      FAS          753     A     
 FAS                SHRINK T=SCR,X6                                                        FAS          754          I
          -FC5A219
 FAS                SHRINK T=CLWB,X6                                                       FC5A219        9     A     
 FAS                EQ     FASRTN                                                          FAS          755     A     
 FAS       FO=LCC   SPACE  4,10                                                            FAS          756     A     
 FAS       FO=LCC   BSS    0           PROCESS OC$LCC PSEUDO                               FAS          757     A     
 FAS                SA1    T.LCC                                                           FAS          758     A     
 FAS                LX5    0-PB.BIASP                                                      FAS          759     A     
 FAS                SB6    X1                                                              FAS          760     A     
 FAS                ERRMI  PB.BIASL-18                                                     FAS          761     A     
 FAS                SB6    X5+B6       ADDRESS OF DIRECTIVE                                FAS          762     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX5    PB.BIASP-PB.TAGP                                                FAS          763     A     
 FAS                SB7    X5          LENGTH OF DIRECTIVE                                 FAS          764     A     
 FAS                ERRMI  PB.TAGL-18                                                      FAS          765     A     
 FAS                SHRINK T=LCC                                                           FAS          766     A     
 FAS                WLGO   B6,B7       OUTPUT LOADER DIRECTIVE                             FAS          767     A     
 FAS                WRITER F.LGO,RCL                                                       FAS          768     A     
 FAS                SA5    RADB                                                            FAS          769     A     
 FAS                RJ     POL                                                             FAS          770     A     
 FAS                EQ     FASRTN                                                          FAS          771     A     
 FAS       FO=LOO   SPACE  4,10                                                            FAS          772     A     
 FAS       FO=LOO   BSS    0           TURN ON / OFF OBJECT LISTING                        FAS          773     A     
 FAS                MX6    -PB.BIASL                                                       FAS          774     A     
 FAS                AX5    PB.BIASP                                                        FAS          775     A     
 FAS                BX6    -X6*X5                                                          FAS          776     A     
 FAS                SA6    WO.LOO      (WO.LOO) = BIAS [INSTRUCTION]                       FAS          777     A     
 FAS                EQ     FASRTN                                                          FAS          778     A     
 FAS       FO=NLST  SPACE  4,10                                                            FAS          779     A     
 FAS       FO=NLST  BSS    0           PROCESS OC$NLST PSEUDO                              FAS          780     A     
 FAS                RJ     KNG         COMPILE NAMELIST GROUP DEFINITIONS                  FAS          781     A     
 FAS                RJ     POL         PRINT NAMELIST TABLE                                FAS          782     A     
 FAS                SHRINK T=NLST,0                                                        FAS          783     A     
 FAS                EQ     FASRTN                                                          FAS          784     A     
 FAS       FO=USE   SPACE  4,10                                                            FAS          785     A     
 FAS       FO=USE   BSS    0           PROCESS OC$USE PSEUDO                               FAS          786     A     
 FAS                BX7    X5                                                              FAS          787     A     
 FAS                RJ     PUSE        GO SWITCH  ORG  AND  PARCEL                         FAS          788     A     
 FAS                RJ     DTX         DUMP TEXT                                           FAS          789     A     
 FAS                RJ     POL         PRINT OBJECT LISTING                                FAS          790     A     
 FAS                EQ     FASRTN                                                          FAS          791     A     
 FAS       FO=TRAC  SPACE  4,10                                                            FAS          792     A     
 FAS       FO=TRAC  BSS    0           PROCESS OC$TRAC PSEUDO                              FAS          793     A     
 FAS                SA1    IDENT       ROUTINE NAME IN  0L  FORMAT                         FAS          794     A     
 FAS                CALL   SFN         SPACE FILL NAME                                     FAS          795     A     
 FAS                MX0    7*CHAR                                                          FAS          796     A     
 FAS                BX1    X0*X6       TRUNCATE TO 7 CHARACTERS                            FAS          797     A     
 FAS                SA4    S=ENTRY     SYMBOL TABLE ORDINAL FOR ENTRY                      FAS          798     A     
 FAS                LX0    X4,B1       DOUBLE ORDINAL                                      FAS          799     A     
 FAS                SA3    T.SYM                                                           FAS          800     A     
 FAS                IX0    X0+X4       =   3 * ORDINAL                                     FAS          801     A     
 FAS                IX3    X0+X3                                                           FAS          802     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS          803     A     
 FAS                =A4    X3+WC.W     FETCH (X4) = SYMTAB WORD WC                         FAS          804     A     
 FAS                MX0    -WC.RAL                                                         FAS          805     A     
 FAS                BX3    -X0*X4      ISOLATE  RA  FIELD                                  FAS          806     A     
 FAS                BX1    X1+X3                                                           FAS          807     A     
 FAS                =X2    2           PROGRAM RELATIVE                                    FAS          808     A     
 FAS                LX0    X1                                                              FAS          809     A     
 FAS                RJ     STX         STORE TEXT TABLE ENTRY (TRACE.)                     FAS          810     A     
 FAS                RJ     FBP         PRINT  *  NAME  TRACE.*                             FAS          811     A     
 FAS                =X1    1777B                                                           FAS          812     A     
 FAS                LX1    48                                                              FAS          813     A     
 FAS                MX2    0           NO RELOCATION                                       FAS          814     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                RJ     STX         STORE TEXT TABLE  ENTRY (TEMPA0.)                   FAS          815     A     
 FAS                EQ     FASRTN      EXIT...                                             FAS          816     A     
 FAS                SPACE  4,10                                                            FAS          817          I
          -FC5A132
 FAS      **        PSEUDOS NOT BEING PROCESSED.                                           FAS          818          I
          -FC5A132
 FAS                                                                                       FAS          819          I
          -FC5A132
 FAS       FO=CMNT  BSS    0                                                               FAS          820          I
          -FC5A132
 FAS                EQ     FASRTN                                                          FAS          821          I
          -FC5A132
 FAS                                                                                       FAS          822          I
          -FC5A132
 FAS                                                                                       FAS          823          I
          -FC5A132
 FAS      **        PSEUDOS NOT BEING IMPLEMENTED.                                         FAS          824          I
          -FC5A132
 FAS                                                                                       FAS          825          I
          -FC5A132
 FAS       FO=BSSZ  BSS    0                                                               FAS          826          I
          -FC5A132
 FAS       FO=BOS   BSS    0                                                               FAS          827          I
          -FC5A132
 FAS       FO=DIS   BSS    0                                                               FAS          828          I
          -FC5A132
 FAS       FO=HOL   BSS    0                                                               FAS          829          I
          -FC5A132
 FAS       FO=REPI  BSS    0                                                               FAS          830          I
          -FC5A132
 FAS       FO=TERM  BSS    0                                                               FAS          831          I
          -FC5A132
 FAS       FO=TTLE  BSS    0                                                               FAS          832          I
          -FC5A132
 FAS                EQ     "BLOWUP"    ILLEGAL PSEUDO                                      FAS          833          I
          -FC5A132
 FAS       FO=END   SPACE  4,10                                                            FAS          834     A     
 FAS      **        FO=END - END OF PREBINARY PROCESSING.                                  FAS          835     A     
 FAS      *         PROCESS SUBS AND SET ISUB BLOCK LENGTHS.                               FAS          836     A     
 FAS      *         LIST REMAINING OBJECT LISTING AND FINISH DUMPING TALES TO              FAS          837          I
          -FC50730
 FAS      *         LIST REMAINING OBJECT LISTING AND FINISH DUMPING TABLES TO             FC50730        7     A     
 FAS      *         THE BINARY.                                                            FAS          838     A     
 FAS                                                                                       FAS          839     A     
 FAS                                                                                       FAS          840     A     
 FAS       FO=END   BSS    0                                                               FAS          841     A     
 FAS                RJ     POL         PRINT * END   PROGNAM*                              FAS          842     A     
 FAS                SA1    FV.LGO                                                          FAS          843     A     
 FAS                ZR     X1,EXIT.    IF NO BINARY                                        FAS          844     A     
 FAS                SA4    T.SUB                                                           FAS          845     A     
 FAS                =X7    BN=SUB                                                          FAS          846     A     
 FAS                RJ     OSB         OUTPUT *SUB* BLOCK                                  FAS          847     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA4    T.SUB0                                                          FAS          848     A     
 FAS                =X7    BN=SUB0                                                         FAS          849     A     
 FAS                RJ     OSB         OUTPUT *SUB0* BLOCK                                 FAS          850     A     
 FAS                RJ     DTX         DUMP/RESET TEXT TABLE                               FAS          851     A     
 FAS                RJ     DLF         FLUSH LINK AND FILL TABLES                          FAS          852     A     
 FAS                RJ     DFD         DUMP 5600/5700 TABLES                               FAS          853     A     
 FAS                SA3    MOD                                                             FAS          854     A     
 FAS                IFBIT  X3,-MO.PROP,END.50    IF NOT PROGRAM                            FAS          855          I
          -FC5A231
 FAS                SBIT   X3,MO.PROP                                                      FC5A231      135     A     
 FAS                PL     X3,END.50   IF NOT PROGRAM                                      FC5A231      136     A     
 FAS                WLGO   BT.XFER,2                                                       FAS          856     A     
 FAS                                                                                       FAS          857     A     
 FAS      *         END LGO FILE - RETURN TO MAIN BATCH CONTROL.                           FAS          858     A     
 FAS                                                                                       FAS          859     A     
 FAS       END.50   WRITER F.LGO                                                           FAS          860     A     
 FAS                EQ     EXIT.                                                           FAS          861     A     
 FAS                                                                                       FAS          862     A     
 FAS      *         OUTPUT ERRORS BINARY IF FATAL ERRORS.                                  FAS          863     A     
 FAS                                                                                       FAS          864     A     
 FAS       END.ERR  BSS    0           ENTRY FOR FATAL ERRORS IN COMPILATION               FAS          865     A     
 FAS                RJ     PIT         PUMP  OUT IDNT (77) TABLE                           FAS          866     A     
 FAS                WLGO   BT.IDNT,L.77+1    PUT OUT PREFIX TABLE                          FAS          867          I
          -FC50032
 FAS                WLGO   BT.ERR,3    ...FOLLOWED BY ERRORS BINARY                        FAS          868     A     
 FAS                EQ     END.50                                                          FAS          869     A     
 FAS                                                                                       FAS          870     A     
 FAS       SAVCBI   EQU    TEMP        KEEP OLD (CBI) DURING OUTPUT OF *SUB* BLOCK         FAS          871     A     
 FAS                TITLE  RAD - *TS* TYPE INSTRUCTION PROCESSOR                           FAS          872     A     
 FAS                SPACE  4,30                                                            FAS          873     A     
 FAS      **        THE FOLLOWING SECTION CONTAINS *TS* TYPE INSTRUCTION                   FAS          874     A     
 FAS      *         PROCESSORS.  THE MAIN ROUTINE IN THIS GROUP IS *RAD*, WHICH            FAS          875     A     
 FAS      *         IS ENTERED FROM THE PSEUDO INSTRUCTION PROCESSOR  *FO=BMI*.            FAS          876     A     
 FAS       RAD      SPACE  4,30                                                            FAS          877     A     
 FAS      **        RAD - RELOCATE AND DUMP PRE-BINARY INSTRUCTIONS.                       FAS          878     A     
 FAS      *                                                                                FAS          879     A     
 FAS      *         ENTRY  (OC$BMI) PSEUDO ENCOUNTERED.                                    FAS          880     A     
 FAS      *         EXIT   (I.EMI) PSEUDO ENCOUNTERED.                                     FAS          881     A     
 FAS      *         USES   ALL                                                             FAS          882     A     
 FAS      *         CALLS  BNW,DTX,REL,RIP,ROL,STX                                         FAS          883     A     
 FAS                                                                                       FAS          884     A     
 FAS                                                                                       FAS          885     A     
 FAS       RAD      SUBR               ENTRY/EXIT...                                       FAS          886     A     
 FAS                MX6    0                                                               FAS          887     A     
 FAS                SA6    BCI                                                             FAS          888     A     
 FAS                SX7    3                                                               FAS          889     A     
 FAS                SA7    PARCEL                                                          FAS          890     A     
 FAS                RJ     DTX         INITIALIZE TABLE                                    FAS          891     A     
 FAS                SX7    PB.BIASP                                                        FAS          892     A     
 FAS                MX6    -PB.BIASL                                                       FAS          893     A     
 FAS                SA7    RELPOS                                                          FAS          894     A     
 FAS                SA6    RELMASK                                                         FAS          895     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS          896     A     
 FAS                                                                                       FAS          897     A     
 FAS      **        RETURN FROM I. PSEUDO INSTRUCTION PROCESSOR.                           FAS          898     A     
 FAS      *         READ NEXT INSTRUCTION FROM T.PB.                                       FAS          899     A     
 FAS                                                                                       FAS          900     A     
 FAS                                                                                       FAS          901     A     
 FAS       RADRTN   BSSENT 0                                                               FAS          902     A     
 FAS                SA2    RADA                                                            FAS          903     A     
 FAS                MX7    0                                                               FAS          904     A     
 FAS                SA7    TAGSUB0     CLEAR SUB0 TAG                                      FAS          905     A     
 FAS                NZ     X2,RAD20    IF READING PACKED INSTRUCTION                       FAS          906     A     
 FAS                RJ     RNI         READ NEXT INSTRUCTION                               FAS          907          I
          -FC50264
 FAS                SA1    RADF                                                            FC50264       23     A     
 FAS                ZR     X1,RAD10    IF NO SB0 FILL NEEDED                               FC50264       24     A     
 FAS                SX6    X1-1                                                            FC50264       25     A     
 FAS                SA6    A1          DECREMENT                                           FC50264       26     A     
 FAS                SA5    RADD        SB0+0                                               FC50264       27     A     
 FAS                NZ     X6,RAD5     IF SB0+0                                            FC50264       28     A     
 FAS                SA5    RADE        SB0+LINE/SEQ NO.                                    FC50264       29     A     
 FAS                                                                                       FC50264       30     A     
 FAS       RAD5     BX7    X5                                                              FC50264       31     A     
 FAS                SA7    OL=PB                                                           FC50264       32     A     
 FAS                SA7    RADB                                                            FC50264       33     A     
 FAS                EQ     RAD15                                                           FC50264       34     A     
 FAS                                                                                       FC50264       35     A     
 FAS       RAD10    RJ     RNI         READ NEXT INSTRUCTION                               FC50264       36     A     
 FAS                                                                                       FAS          908     A     
 FAS       .T       IFEQ   TEST,ON,1   IF TEST MODE                                        FAS          909     A     
 FAS                ZR     X5,"BLOWUP" IF TABLE EXHAUSTED                                  FAS          910     A     
 FAS                SA1    BCI                                                             FAS          911     A     
 FAS                PL     X1,RAD15    IF NOT PROCESSING CCG TYPE INSTRUCTIONS             FAS          912     A     
 FAS                                                                                       FAS          913     A     
 FAS      *         FOR CCG TYPE INSTRUCTIONS, CONVERT *SI* FORMAT TO *PB* FORMAT          FAS          914     A     
 FAS      *         BEFORE PROCESSING.                                                     FAS          915     A     
 FAS                                                                                       FAS          916     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS          917     A     
 FAS                SA2    CO.OPT                                                          FAS          918     A     
 FAS                ZR     X2,"BLOWUP" QCG SHOULD NOT HAVE CCG TYPE INSTRUCTIONS           FAS          919     A     
 FAS       .T       ENDIF                                                                  FAS          920     A     
 FAS                MX0    -PB.GHIJL                                                       FAS          921     A     
 FAS                LX5    PB.GHIJL                                                        FAS          922     A     
 FAS                BX0    -X0*X5      GHIJ[INSTRUCTION]                                   FAS          923     A     
 FAS                SX6    X0-I.ECI                                                        FAS          924     A     
 FAS                LX5    -PB.GHIJL                                                       FAS          925     A     
 FAS                ZR     X6,RAD30    IF I.ECI INSTRUCTION                                FAS          926     A     
 FAS                UX6    B2,X5                                                           FAS          927     A     
 FAS                MI     B2,RADRTN   IF CCG PSEUDO - IGNORE                              FAS          928     A     
 FAS                CALL   CII         CONVERT INSTRUCTION                                 FAS          929     A     
 FAS                EQ     RAD30                                                           FAS          930     A     
 FAS                                                                                       FAS          931     A     
 FAS       RAD15    MX3    PB.INSTL*3                                                      FAS          932     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX3    PB.INSTL*3                                                      FAS          933     A     
 FAS                BX2    -X3*X5                                                          FAS          934     A     
 FAS                BX7    X3+X2                                                           FAS          935     A     
 FAS                NZ     X7,RAD30    IF NOT PACKED INSTRUCTION                           FAS          936     A     
 FAS                BX2    X3*X5                                                           FAS          937     A     
 FAS       RAD20    MX3    PB.INSTL                                                        FAS          938     A     
 FAS                BX5    X3*X2       ISOLATE TOP INSTRUCTION                             FAS          939     A     
 FAS                BX7    -X3*X2      REMOVE FROM PACKAGE                                 FAS          940     A     
 FAS                LX7    PB.INSTL    REPOSITION                                          FAS          941     A     
 FAS                SA7    RADA        STORE PACKAGE REMNANTS                              FAS          942     A     
 FAS                                                                                       FAS          943     A     
 FAS      *         DETERMINE IF THIS IS A PSEUDO INSTRUCTION.                             FAS          944     A     
 FAS      *                (X5) = CURRENT INSTRUCTION.                                     FAS          945     A     
 FAS                                                                                       FAS          946     A     
 FAS       RAD30    SA2    PARCEL                                                          FAS          947     A     
 FAS                BX7    X5          (OL=PB) = INSTRUCTION ACTUALLY ASSEMBLED            FAS          948     A     
 FAS                MX0    PB.GHIJL                                                        FAS          949     A     
 FAS                SA7    RADB        ** TEMP **                                          FAS          950     A     
 FAS                SA7    OL=PB                                                           FAS          951     A     
 FAS                BX3    X0*X5                                                           FAS          952     A     
 FAS                MX6    -2          X6 = -3                                             FAS          953     A     
 FAS                SB2    X2                                                              FAS          954     A     
 FAS                SB3    X2-2                                                            FAS          955     A     
 FAS                LX3    PB.GHL                                                          FAS          956     A     
 FAS                SX1    X3          X1 = GH                                             FAS          957     A     
 FAS                ZR     X1,RAD=PSI  IF PSEUDO                                           FAS          958     A     
 FAS                                                                                       FAS          959     A     
 FAS                                                                                       FAS          960     A     
 FAS      **        NON-PSEUDO INSTRUCTIONS.                                               FAS          961     A     
 FAS      *         THE SIGN BIT OF THE INSTRUCTIONS CORRESPONDING ENTRY IN THE            FAS          962     A     
 FAS      *         *PIK=PS* TABLE INDICATES WHETHER IT IS A LONG (SET) OR SHORT           FAS          963     A     
 FAS      *         (NOT SET) INSTRUCTION.                                                 FAS          964     A     
 FAS                                                                                       FAS          965     A     
 FAS                                                                                       FAS          966     A     
 FAS                SA4    X3+PIK=PS   X4 = INST SKELETON                                  FAS          967     A     
 FAS                LX3    PB.GHL                                                          FAS          968     A     
 FAS                SB4    X3                                                              FAS          969     A     
 FAS                LX3    B1          X3 = (GHIJ)*2                                       FAS          970     A     
 FAS                AX4    60          EXTEND SIGN BIT OF SKEL TO MAKE A MASK              FAS          971     A     
 FAS                BX7    X4*X3       X7 = + LONG, 0 SHORT                                FAS          972     A     
 FAS                SA7    RADC        LONG/SHORT INDICATOR                                FAS          973     A     
 FAS                                                                                       FAS          974     A     
 FAS      *         ADJUST THE PARCEL COUNTER FOR THIS INSTRUCTION.                        FAS          975     A     
 FAS      *         ENTER WITH (B3) = PARCEL -2                                            FAS          976     A     
 FAS      *         EXIT WITH  (B3) = PARCEL + ADJUSTMENT FOR INSTRUCTION                  FAS          977     A     
 FAS                                                                                       FAS          978     A     
 FAS                PX3    X7                                                              FAS          979     A     
 FAS                NX7    X3                                                              FAS          980     A     
 FAS                UX3    X7                                                              FAS          981     A     
 FAS                AX3    47          X3 = +1 LONG, 0 SHORT                               FAS          982     A     
 FAS                BX7    -X3         X7 = -1     , -0                                    FAS          983     A     
 FAS                IX3    X7-X6       X3 = +2     , +3                                    FAS          984     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX4    -X6*X3      X4 = +2     , +3                                    FAS          985     A     
 FAS                SB3    X4+B3       (B3) = (X4) + PARCEL - 2                            FAS          986     A     
 FAS       RAD40    RJ     BNW         FORCE UPPER                                         FAS          987     A     
 FAS                SA1    RADC                                                            FAS          988     A     
 FAS                NZ     X1,RAD70    IF NOT A SHORT INSTRUCTION                          FAS          989     A     
 FAS                                                                                       FAS          990     A     
 FAS                                                                                       FAS          991     A     
 FAS      **        MERGE 15-BIT INSTRUCTION INTO (BINWORD).                               FAS          992     A     
 FAS                                                                                       FAS          993     A     
 FAS                SX7    B2-B1                                                           FAS          994     A     
 FAS                SX1    B2                                                              FAS          995     A     
 FAS                SA7    PARCEL                                                          FAS          996     A     
 FAS                SA2    BINWORD                                                         FAS          997     A     
 FAS                SB5    15          LEN = 15                                            FAS          998     A     
 FAS                LX1    4                                                               FAS          999     A     
 FAS                SB7    X1+B5                                                           FAS         1000     A     
 FAS                SB3    B7-B2       SHIFT COUNT = 15*PARCEL +15                         FAS         1001     A     
 FAS                MX0    15                                                              FAS         1002     A     
 FAS                BX5    X0*X5       CLEAR REST OF WORD                                  FAS         1003     A     
 FAS                LX5    B3                                                              FAS         1004     A     
 FAS                BX6    X2+X5       MERGE INSTRUCTION INTO BINWORD                      FAS         1005     A     
 FAS                SA6    A2                                                              FAS         1006     A     
 FAS                                                                                       FAS         1007     A     
 FAS       RADOL1   BSSENT 0                                                               FAS         1008     A     
 FAS      *         EQ     RADRTN      PLUGGED IF NOT LO=O                                 FAS         1009     A     
 FAS                BX1    X6                                                              FAS         1010     A     
 FAS                SB4    B3          INSTRUCTION SHIFT COUNT                             FAS         1011     A     
 FAS                RJ     VFD         CONVERT AND FORMAT INSTRUCTION                      FAS         1012          I
          -FC5A171A 
 FAS                CALL   VFD         CONVERT AND FORMAT INSTRUCTION                      FC5A171A     349     A     
 FAS                SA3    =10H                                                            FAS         1013     A     
 FAS                EQ     RAD90                                                           FAS         1014     A     
 FAS                                                                                       FAS         1015     A     
 FAS                                                                                       FAS         1016     A     
 FAS      **        GET RELOCATION FOR 30-BIT INST.                                        FAS         1017     A     
 FAS                                                                                       FAS         1018     A     
 FAS                                                                                       FAS         1019     A     
 FAS       RAD70    SX7    B2-2                                                            FAS         1020     A     
 FAS                MX0    -PB.H2L                                                         FAS         1021     A     
 FAS                SA7    PARCEL      (PARCEL) = PARCEL - 2                               FAS         1022     A     
 FAS                BX1    X5                                                              FAS         1023     A     
 FAS                LX1    -PB.H2P                                                         FAS         1024     A     
 FAS                BX3    -X0*X1      H2I = H2 [INSTRUCTION]                              FAS         1025     A     
 FAS                SA4    T.SYM                                                           FAS         1026     A     
 FAS                ZR     X3,RAD80    IF H2I .EQ.0  (NO ADDRESS DECREMENT)                FAS         1027     A     
 FAS                                                                                       FAS         1028     A     
 FAS      *         FOR INSTRUCTIONS REQUIRING ADDRESS DECREMENT, COMPUTE                  FAS         1029     A     
 FAS      *         RELOCATION FOR THE TAG AND BIAS, MINUS THE RELOCATION                  FAS         1030     A     
 FAS      *         FOR THE H2[INSTRUCTION] TAG AND SUBSTITUTE INTO BIAS FIELD             FAS         1031     A     
 FAS      *         OF THE INSTRUCTION  BEFORE CALLING REL.                                FAS         1032     A     
 FAS      *         SET H2[INSTRUCTION] = 0,   TAG[INSTRUCTION] = 0.                       FAS         1033     A     
 FAS                                                                                       FAS         1034     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX1    X0*X1       GET RID OF H2 FIELD                                 FAS         1035     A     
 FAS                MX6    -PB.TAGL                                                        FAS         1036     A     
 FAS                LX1    PB.H2P-PB.TAGP                                                  FAS         1037     A     
 FAS                HX5    PB.BIAS                                                         FAS         1038     A     
 FAS                AX5    -PB.BIASL   BIASI = BIAS [INSTRUCTION]                          FAS         1039     A     
 FAS                BX2    -X6*X1      TAGI = TAG [INSTRUCTION]                            FAS         1040     A     
 FAS                BX1    X6*X1       GET RID OF TAG FIELD                                FAS         1041     A     
 FAS                LX7    X3,B1                                                           FAS         1042     A     
 FAS                IX3    X3+X7       STINDH = 3 * H2I                                    FAS         1043     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1044     A     
 FAS                SB4    X2                                                              FAS         1045     A     
 FAS                SB3    X2+B4                                                           FAS         1046     A     
 FAS                MX0    -WC.RAL                                                         FAS         1047     A     
 FAS                LX1    PB.TAGP-PB.BIASP                                                FAS         1048     A     
 FAS                IX3    X4+X3                                                           FAS         1049     A     
 FAS                SA2    X3+WC.W     WCH = T.SYM(STINDH) + WC.W                          FAS         1050     A     
 FAS                LX2    -WC.RAP                                                         FAS         1051     A     
 FAS                BX6    -X0*X2      RAH = RA[WCH]                                       FAS         1052     A     
 FAS                SB4    B3+B4       STINDI = 3 * TAGI                                   FAS         1053     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1054     A     
 FAS                SB4    X4+B4                                                           FAS         1055     A     
 FAS                MX3    -PB.BIASL                                                       FAS         1056     A     
 FAS                =A4    B4+WC.W     WCI = T.SYM(STINDI) + WC.W                          FAS         1057     A     
 FAS                LX4    -WC.RAP                                                         FAS         1058     A     
 FAS                BX7    -X0*X4      RAI = RA[WCI]                                       FAS         1059     A     
 FAS                IX2    X7-X6       RAI = RAI - RAH                                     FAS         1060     A     
 FAS                IX7    X2+X5       ADDRESS = RAI + BIASI                               FAS         1061     A     
 FAS                BX1    X3*X1       GET RID OF BIAS FIELD                               FAS         1062     A     
 FAS                BX6    -X3*X7      TRIM ADDRESS TO SIZE OF BIAS                        FAS         1063     A     
 FAS                BX5    X1+X6                                                           FAS         1064     A     
 FAS                LX5    PB.BIASP                                                        FAS         1065     A     
 FAS       RAD80    RJ     REL                                                             FAS         1066     A     
 FAS                SA1    BINWORD                                                         FAS         1067     A     
 FAS                SA2    BINREL                                                          FAS         1068     A     
 FAS                SB7    X2                                                              FAS         1069     A     
 FAS                                                                                       FAS         1070     A     
 FAS      *         (B3) = INSTRUCTION SHIFT COUNT                                         FAS         1071     A     
 FAS      *         (B7) = RELOCATION BYTE                                                 FAS         1072     A     
 FAS      *         (X1) = BINARY WORD OUTPUT.                                             FAS         1073     A     
 FAS                                                                                       FAS         1074     A     
 FAS       RADOL2   BSSENT 0                                                               FAS         1075     A     
 FAS      *         EQ     RADRTN      PLUGGED IF NOT LO=O                                 FAS         1076     A     
 FAS                                                                                       FAS         1077     A     
 FAS       RAD85    SB5    30          LEN = 30                                            FAS         1078     A     
 FAS                SB4    B3+B5       INSTRUCTION SHIFT COUNT + LEN                       FAS         1079     A     
 FAS                RJ     VFD                                                             FAS         1080          I
          -FC5A171A 
 FAS                CALL   VFD                                                             FC5A171A     350     A     
 FAS                SX2    B7          (X2) = RELOC INFO                                   FAS         1081     A     
 FAS                SA3    =10H                                                            FAS         1082     A     
 FAS                SB3    B2-B1       = (PARCEL) - 1                                      FAS         1083     A     
 FAS                MX0    -3                                                              FAS         1084     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                AX1    X2,B3                                                           FAS         1085     A     
 FAS                BX0    -X0*X1      ISOLATE THIS RELOC VALUE                            FAS         1086     A     
 FAS                ZR     X0,RAD90    IF NO RELOCATION                                    FAS         1087     A     
 FAS                SA3    =10H+                                                           FAS         1088     A     
 FAS       RAD90    SA6    LINEBUF+1   (LINEBUF+1) = UPPER 30 BITS OF INSTRUCTION          FAS         1089     A     
 FAS                BX6    X3                                                              FAS         1090     A     
 FAS                =A7    A6+1        (LINEBUF+2) = LOWER 30 BITS OF INSTRUCTION          FAS         1091     A     
 FAS                =A6    A7+1        (LINEBUF+3) = RELOCATION FIELD                      FAS         1092     A     
 FAS                SA5    OL=PB                                                           FAS         1093     A     
 FAS                RJ     POL         PRINT OBJECT LIST                                   FAS         1094     A     
 FAS                EQ     RADRTN                                                          FAS         1095     A     
 FAS       RAD=PSI  SPACE  4,10                                                            FAS         1096     A     
 FAS      **        PROCESS I. PSEUDO INSTRUCTION.                                         FAS         1097     A     
 FAS      *                                                                                FAS         1098     A     
 FAS      *         USED IN CONJUCTION WITH THE PSEUDO INSTRUCTION JUMP TABLE              FAS         1099     A     
 FAS      *         AT IPSUD.                                                              FAS         1100     A     
 FAS      *         THE DECISION WHETHER TO FORCE UPPER BEFORE THE                         FAS         1101     A     
 FAS      *         INSTRUCTION IS MADE HERE DEPENDING ON THE PARCEL COUNT.                FAS         1102     A     
 FAS      *         (X3) = 6/IJ,48/0,6/GH                                                  FAS         1103     A     
 FAS      *         (B2) = (PARCEL)                                                        FAS         1104     A     
 FAS      *         (B3) = (PARCEL) - 2                                                    FAS         1105     A     
 FAS      *         (X0) = MASK FOR GHIJ                                                   FAS         1106     A     
 FAS                                                                                       FAS         1107     A     
 FAS       RAD=PSI  BSS    0                                                               FAS         1108     A     
 FAS                LX3    PB.GHL                                                          FAS         1109     A     
 FAS                SB4    X3          IJ                                                  FAS         1110     A     
 FAS                =X7    -X3                                                             FAS         1111     A     
 FAS                SA7    RADC        INDICATES PSEUDO INST                               FAS         1112     A     
 FAS                BX5    -X0*X5      MASK OFF GHIJ FROM INSTRUCTION                      FAS         1113     A     
 FAS                JP     B4+OCPSUD   JUMP TO I.PSUEDO INSTRUCTION PROCESSOR              FAS         1114     A     
 FAS       FI=BCI   SPACE  4,10                                                            FAS         1115     A     
 FAS       FI=BCI   BSS    0           BEGIN CCG TYPE INSTRUCTIONS                         FAS         1116     A     
 FAS                MX6    1                                                               FAS         1117     A     
 FAS                SA6    BCI         (BCI) = 1S59                                        FAS         1118     A     
 FAS                EQ     RADRTN                                                          FAS         1119     A     
 FAS       FI=DATA  SPACE  4,10                                                            FAS         1120     A     
 FAS       FI=DATA  BSS    0           READ AND PROCESS *DATA* INFORMATION                 FAS         1121     A     
 FAS                                                                                       FAS         1122     A     
 FAS      *         FLUSH PARTIAL WORD AND SAVE ORG.                                       FAS         1123     A     
 FAS                                                                                       FAS         1124     A     
 FAS                RJ     BNW         BEGIN NEW WORD                                      FAS         1125     A     
 FAS                SA1    ORG                                                             FAS         1126     A     
 FAS                BX6    X1                                                              FAS         1127     A     
 FAS                SA6    ORGD                                                            FAS         1128     A     
 FAS                SHRINK T=DATS,0                                                        FAS         1129     A     
 FAS                LX5    -PB.BIASP                                                       FAS         1130     A     
 FAS                MX0    -PB.BIASL                                                       FAS         1131     A     
 FAS                BX5    -X0*X5      NUMBER OF DATA WORDS FOLLOWING                      FAS         1132     A     
 FAS                ALLOC  T.DATS,X5                                                       FAS         1133     A     
 FAS                SB6    X1          (T.DATS)                                            FAS         1134     A     
 FAS                RJ     RMI         READ MULTIPLE PB WORDS                              FAS         1135     A     
 FAS                RJ     POL         PRINT OBJECT LIST                                   FAS         1136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                RJ     DDS         DUMP T.DATS                                         FAS         1137     A     
 FAS                SA1    ORGD                                                            FAS         1138     A     
 FAS                SX7    3                                                               FAS         1139     A     
 FAS                SHRINK T=DATS,0                                                        FAS         1140     A     
 FAS                BX6    X1                                                              FAS         1141     A     
 FAS                SA7    PARCEL      START OF NEW WORD                                   FAS         1142     A     
 FAS                SA6    ORG         RESTORE ORG                                         FAS         1143     A     
 FAS                RJ     DTX         INITIALIZE TEXT TABLE                               FAS         1144     A     
 FAS                EQ     RADRTN                                                          FAS         1145     A     
 FAS                                                                                       FAS         1146     A     
 FAS       ORGD     BSS    1                                                               FAS         1147     A     
 FAS       FI=ECI   SPACE  4,10                                                            FAS         1148     A     
 FAS       FI=ECI   BSS    0           END CCG TYPE INSTRUCTIONS                           FAS         1149     A     
 FAS                MX6    0                                                               FAS         1150     A     
 FAS                SA6    BCI         (BCI) = 0                                           FAS         1151     A     
 FAS                EQ     RADRTN                                                          FAS         1152     A     
 FAS       FI=BSS   SPACE  4,10                                                            FAS         1153     A     
 FAS       FI=BSS   BSS    0           PROCESS I.BSS INSTRUCTION                           FAS         1154     A     
 FAS                RJ     RBS         RELOCATE  BSS  PSEUDO INSTRUCTION                   FAS         1155     A     
 FAS                RJ     ESL         ENTER STMT LABEL IN 57 TABLE                        FAS         1156     A     
 FAS                EQ     RADRTN                                                          FAS         1157     A     
 FAS       FI=BOS   SPACE  4,10                                                            FAS         1158     A     
 FAS       FI=BOS   BSS    0           PROCESS I.BOS INSTRUCTION                           FAS         1159     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         1160     A     
 FAS                SA2    FI=BRLI                                                         FAS         1161     A     
 FAS                MX1    -PB.BIASL                                                       FAS         1162     A     
 FAS                LX5    -PB.BIASP                                                       FAS         1163     A     
 FAS                BX6    -X1*X5      (LINES) = NEW LINE NUMBER                           FAS         1164     A     
 FAS                IX2    X6-X2                                                           FAS         1165     A     
 FAS                SA6    LINES                                                           FAS         1166     A     
 FAS                LX5    PB.BIASP                                                        FAS         1167     A     
 FAS                NZ     X2,BOS.1    IF NOT AT BREAKPOINT LINE                           FAS         1168     A     
 FAS       BRLI3    BREAK                                                                  FAS         1169     A     
 FAS       BOS.1    BSS                                                                    FAS         1170     A     
 FAS       .T       ENDIF                                                                  FAS         1171     A     
 FAS                                                                                       FAS         1172     A     
 FAS                RJ     CLE         CREATE LINE TABLE ENTRY                             FAS         1173     A     
 FAS                RJ     POL         PRINT * LINE    NNN*                                FAS         1174     A     
 FAS                EQ     RADRTN                                                          FAS         1175     A     
 FAS       FI=CPL   SPACE  4,10                                                            FAS         1176     A     
 FAS       FI=CPL   BSS    0           *CPL.* TABLE ORDINAL                                FAS         1177     A     
 FAS                RJ     BNW         FORCE UPPER                                         FAS         1178     A     
 FAS                MX0    -PB.TAGL                                                        FAS         1179     A     
 FAS                MX6    -PB.ORDL                                                        FAS         1180     A     
 FAS                LX5    -PB.TAGP                                                        FAS         1181     A     
 FAS                BX2    -X0*X5      TAGI = TAG[INSTRUCTION]                             FAS         1182     A     
 FAS                BX3    X6*X2       PFXI = PFX[TAGI]                                    FAS         1183     A     
 FAS                LX5    PB.TAGP                                                         FAS         1184     A     
 FAS                NZ     X3,"BLOWUP" IF PFXI .NE. K=SYM                                  FAS         1185     A     
 FAS                ERRNZ  K=SYM                                                           FAS         1186     A     
 FAS                SA1    T.SYM                                                           FAS         1187     A     
 FAS                =B7    X1+WB.W                                                         FAS         1188     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX0    X2,B1                                                           FAS         1189     A     
 FAS                IX2    X0+X2       STIND = 3 * TAGI                                    FAS         1190     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1191     A     
 FAS                SA1    X2+B7       WBI = T.SYM(STIND) + WB.W                           FAS         1192     A     
 FAS                =A3    A1-WB.W+WC.W      WCI                                           FAS         1193     A     
 FAS                MX0    -WC.CLENL                                                       FAS         1194     A     
 FAS                LX3    -WC.CLENP                                                       FAS         1195     A     
 FAS                BX6    -X0*X3      CLENI = CLEN[WCI]                                   FAS         1196     A     
 FAS                LX3    WC.CLENP-1-WC.CTYPP                                             FAS         1197     A     
 FAS                AX3    59          SIGN EXTEND WC.CTYP                                 FAS         1198     A     
 FAS                HX1    WB.FPNO                                                         FAS         1199     A     
 FAS                AX1    -WB.FPNOL   FPNOI = FPNO[WBI]                                   FAS         1200     A     
 FAS                =X1    X1-1        FPNOI = FPNOI - 1                                   FAS         1201     A     
 FAS                ERRMI  18-WB.FPNOL                                                     FAS         1202     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1203     A     
 FAS                MI     X1,"BLOWUP" IF FPNOI .LT. 0                                     FAS         1204     A     
 FAS                BX3    -X3*X6      L = WC.CLEN IFF WC.CTYP .EQ. 0, ELSE = 0            FAS         1205     A     
 FAS                LX3    30                                                              FAS         1206     A     
 FAS                MX6    1                                                               FAS         1207     A     
 FAS                BX1    X1+X3                                                           FAS         1208     A     
 FAS                BX1    X1+X6       ADD IN SIGN BIT                                     FAS         1209     A     
 FAS                =X2    0           INDICATE NO RELOCATION                              FAS         1210     A     
 FAS                BX0    X1          SAVE (X0) = (X1)                                    FAS         1211     A     
 FAS                RJ     STX         STORE INTO TEXT                                     FAS         1212     A     
 FAS                RJ     FBP         FORMAT BINARY DISPLAY CODE AND PRINT                FAS         1213     A     
 FAS                EQ     RADRTN                                                          FAS         1214     A     
 FAS       FI=EMI   SPACE  4,10                                                            FAS         1215     A     
 FAS       FI=EMI   BSS    0           END OF QUICK MODE CODE, EXIT RAD                    FAS         1216     A     
 FAS                RJ     BNW         STORE LAST WORD INTO TEXT TABLE                     FAS         1217     A     
 FAS                EQ     EXIT.                                                           FAS         1218     A     
 FAS                                                                                       FAS         1219     A     
 FAS                                                                                       FAS         1220     A     
 FAS      *         FOR  RJ6, RJ3, JPI, UJP  PSEUDO INSTRUCTIONS, RETAIN                   FAS         1221     A     
 FAS      *         PSEUDO STATUS UNTIL FORCE UPPER, AFTER COMMENCES.                      FAS         1222     A     
 FAS      *         (X5) = INSTRUCTION WITHOUT GHIJ                                        FAS         1223     A     
 FAS       FI=JPI   SPACE  4,10                                                            FAS         1224     A     
 FAS       FI=JPI   BSS    0           PROCESS  I.JPI PSEUDO                               FAS         1225     A     
 FAS                LX5    -PB.BJRP                                                        FAS         1226     A     
 FAS                MX1    -PB.IL                                                          FAS         1227     A     
 FAS                BX4    -X1*X5      BI = BJR [INSTRUCTION]                              FAS         1228     A     
 FAS                LX5    PB.BJRP                                                         FAS         1229     A     
 FAS                LX4    PB.GHIJP+PB.IL    POSITION THE *B-BOX*                          FAS         1230     A     
 FAS                BX5    X1*X5       GET RID OF BJR FIELD                                FAS         1231     A     
 FAS                IX5    X5+X4                                                           FAS         1232     A     
 FAS                SX2    200B                                                            FAS         1233     A     
 FAS                SB3    B3+2        WORTH TWO PARCELS                                   FAS         1234     A     
 FAS                EQ     UJP.10                                                          FAS         1235     A     
 FAS       FI=LOO   SPACE  4,10                                                            FAS         1236     A     
 FAS       FI=LOO   BSS    0           TURN ON /OFF OBJECT LISTING                         FAS         1237     A     
 FAS                MX6    -PB.BIASL                                                       FAS         1238     A     
 FAS                AX5    PB.BIASP                                                        FAS         1239     A     
 FAS                BX6    -X6*X5                                                          FAS         1240     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA6    WO.LOO      (WO.LOO) = BIAS [INSTRUCTION]                       FAS         1241     A     
 FAS                EQ     RADRTN                                                          FAS         1242     A     
 FAS       FI=OTR   SPACE  4,10                                                            FAS         1243     A     
 FAS       FI=OTR   BSS    0           PROCESS  I.OTR PSEUDO                               FAS         1244     A     
 FAS                SX2    6102B                                                           FAS         1245     A     
 FAS                LX2    -PB.GHIJL                                                       FAS         1246     A     
 FAS                BX5    X5+X2       REPLACE GHIJ WITH OPCODE EQUIVALENT                 FAS         1247     A     
 FAS                LX7    X5                                                              FAS         1248     A     
 FAS                =X6    B1                                                              FAS         1249     A     
 FAS                SA6    RADC        CHANGE INDICATOR FROM PSEUDO TO LONG                FAS         1250     A     
 FAS                SA7    OL=PB       SET MODIFIED INSTRUCTION                            FAS         1251     A     
 FAS                MX0    PB.GHIJL                                                        FAS         1252     A     
 FAS                BX1    -X0*X5                                                          FAS         1253     A     
 FAS                LX1    PB.GHIJL+PB.TAGL                                                FAS         1254     A     
 FAS                SA2    S=LENP      ORDINAL TO LENP ENTRY IN T.SYM                      FAS         1255     A     
 FAS                BX3    X1-X2                                                           FAS         1256     A     
 FAS                NZ     X3,RAD40    IF NOT  *SB0  B2-LENP.*  INSTRUCTION                FAS         1257     A     
 FAS                LX6    X2,B1                                                           FAS         1258     A     
 FAS                IX7    X6+X2       STIND = 3 * ORDINAL                                 FAS         1259     A     
 FAS                SA2    T.SYM                                                           FAS         1260     A     
 FAS                IX6    X2+X7                                                           FAS         1261     A     
 FAS                SA3    X6+WC.W     WCI = T.SYM(STIND)                                  FAS         1262     A     
 FAS                LX3    -WC.RAP                                                         FAS         1263     A     
 FAS                MX7    -PB.BIASL                                                       FAS         1264     A     
 FAS                BX3    -X7*X3      BIASI = RA[WCI]                                     FAS         1265     A     
 FAS                BX1    X0*X5                                                           FAS         1266     A     
 FAS                LX3    PB.BIASP                                                        FAS         1267     A     
 FAS                IX5    X1+X3                                                           FAS         1268     A     
 FAS                BX6    X5                                                              FAS         1269     A     
 FAS                SA6    OL=PB                                                           FAS         1270     A     
 FAS                EQ     RAD40       PROCESS LIKE A LONG INSTRUCTION                     FAS         1271     A     
 FAS       FI=RJ3   SPACE  4,10                                                            FAS         1272     A     
 FAS       FI=RJ3   BSS    0           PROCESS  I.RJ3 PSEUDO                               FAS         1273     A     
 FAS                SX2    100B                                                            FAS         1274     A     
 FAS                SB3    B3+2        WORTH TWO PARCELS                                   FAS         1275     A     
 FAS                EQ     UJP.10                                                          FAS         1276     A     
 FAS       FI=LD0   SPACE  4,10                                                            FAS         1277     A     
 FAS       #DAL     IFEQ   .DAL,0      IF NO LEVEL 0 POSSIBLE                              FC5A171A     351     A     
 FAS       FI=LD0   EQU    "BLOWUP"                                                        FC5A171A     352     A     
 FAS       FI=ST0   EQU    "BLOWUP"                                                        FC5A171A     353     A     
 FAS       FI=SB0I  EQU    "BLOWUP"                                                        FC5A171A     354     A     
 FAS                                                                                       FC5A171A     355     A     
 FAS       #DAL     ELSE                                                                   FC5A171A     356     A     
 FAS       FI=LD0   BSS    0           LOAD INSTRUCTION FOR SUB0                           FAS         1278     A     
 FAS                =X2    1400B       LCM LOAD INSTRUCTION                                FAS         1279     A     
 FAS       LD0.10   MX0    -PB.H2L                                                         FAS         1280     A     
 FAS                BX6    X5                                                              FAS         1281     A     
 FAS                AX5    PB.H2P                                                          FAS         1282     A     
 FAS                BX0    -X0*X5      IJ                                                  FAS         1283     A     
 FAS                BX1    X0+X2       (014IJ/ 015IJ)                                      FAS         1284     A     
 FAS                =X5    53000B                                                          FAS         1285     A     
 FAS                LX0    3                                                               FAS         1286     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX5    X5+X0       (53IJ0)                                             FAS         1287     A     
 FAS                RJ     BSZ         MAKE AN SUB0 ENTRY                                  FAS         1288     A     
 FAS                LX5    -15                                                             FAS         1289     A     
 FAS                MX6    0                                                               FAS         1290     A     
 FAS                LX7    X5          (OL=PB) = ACTUAL INSTRUCTION                        FAS         1291     A     
 FAS                SA6    RADC        INDICATE SHORT INSTRUCTION                          FAS         1292     A     
 FAS                =B3    B3+3        THIS INSTRUCTION TAKES 15 BITS                      FAS         1293     A     
 FAS                SA7    OL=PB                                                           FAS         1294     A     
 FAS                EQ     RAD40       PROCESS AS 15 BIT INSTRUCTION                       FAS         1295     A     
 FAS       FI=ST0   SPACE  4,10                                                            FAS         1296     A     
 FAS       FI=ST0   BSS    0                                                               FAS         1297     A     
 FAS                =X2    1500B       LCM STORE INSTRUCTION                               FAS         1298     A     
 FAS                EQ     LD0.10                                                          FAS         1299     A     
 FAS       FI=SB0I  SPACE  4,10                                                            FAS         1300     A     
 FAS       FI=SB0I  BSS    0           OUTPUT A SUB0 INDEX WORD                            FAS         1301     A     
 FAS                SB4    BN=SUB0                                                         FAS         1302     A     
 FAS                SB6    FP.SUB0P                                                        FAS         1303     A     
 FAS                EQ     SUBI.10                                                         FAS         1304     A     
 FAS       #DAL     ENDIF                                                                  FC5A171A     357     A     
 FAS       FI=SUBI  SPACE  4,10                                                            FAS         1305     A     
 FAS       FI=SUBI  BSS    0           OUTPUT A SUBI WORD                                  FAS         1306     A     
 FAS                SB4    BN=SUB                                                          FAS         1307     A     
 FAS                SB6    FP.SUBP                                                         FAS         1308     A     
 FAS       SUBI.10  BSS    0                                                               FAS         1309     A     
 FAS                RJ     BNW         FORCE UPPER                                         FAS         1310     A     
 FAS                HX5    PB.TAG                                                          FAS         1311     A     
 FAS                AX5    -PB.TAGL    TAGI = TAG[INSTRUCTION]                             FAS         1312     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1313     A     
 FAS                MI     X5,"BLOWUP" IF TAGI .LT. 0                                      FAS         1314     A     
 FAS                SA2    T.SYM                                                           FAS         1315     A     
 FAS                LX0    X5,B1                                                           FAS         1316     A     
 FAS                IX0    X5+X0       STIND = 3 * TAGI                                    FAS         1317     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1318     A     
 FAS                =B7    X2+WB.W                                                         FAS         1319     A     
 FAS                SA1    X0+B7       WBI = T.SYM(STIND) + WB.W                           FAS         1320     A     
 FAS                MX0    -WB.FPNOL                                                       FAS         1321     A     
 FAS                AX1    WB.FPNOP                                                        FAS         1322     A     
 FAS                BX1    -X0*X1      FPNOI = FPNO[WBI]                                   FAS         1323     A     
 FAS                SB7    X1-1        FPNOI = FPNOI - 1                                   FAS         1324     A     
 FAS                ERRMI  18-WB.FPNOL                                                     FAS         1325     A     
 FAS                SA3    T.FPO                                                           FAS         1326     A     
 FAS                SA2    X3+B7       FPOI = T.FPO(FPNOI)                                 FAS         1327     A     
 FAS                AX2    B6                                                              FAS         1328     A     
 FAS                SX2    X2          SUBFWA = SUB[FPOI]                                  FAS         1329          I
          -FC50252
 FAS                ERRNZ  18-FP.SUBL                                                      FAS         1330          I
          -FC50252
 FAS                MX0    -FP.SUBL                                                        FC50252       30     A     
 FAS                BX2    -X0*X2      EXTRACT SUB FIELD                                   FC50252       31     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1331     A     
 FAS                MI     X2,"BLOWUP" IF SUBFWA .LT. 0                                    FAS         1332     A     
 FAS                SA4    F.LBT+B4    SUBBLK = T.LBT(BN=SUB)                              FAS         1333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                HX4    LB.ORG                                                          FAS         1334     A     
 FAS                AX4    -LB.ORGL    SUBORG = ORG[ T.LBT(BN=SUB)]                        FAS         1335     A     
 FAS                IX4    X4+X2       SUBFWA = SUBFWA + SUBORG                            FAS         1336     A     
 FAS                PX1    X4,B7       12/2000B+(FPNO-1), 30/0, 18/SUBORG                  FAS         1337     A     
 FAS                =X2    2           INDICATE LOWER ADDRESS RELOCATION                   FAS         1338     A     
 FAS                BX0    X1          SAVE (X0) = (X1)                                    FAS         1339     A     
 FAS                RJ     STX         OUTPUT THE SUB INDEX WORD                           FAS         1340     A     
 FAS                RJ     FBP         FORMAT BINARY AND PRINT                             FAS         1341     A     
 FAS                EQ     RADRTN                                                          FAS         1342     A     
 FAS       FI=UJP   SPACE  4,10                                                            FAS         1343     A     
 FAS       FI=UJP   BSS    0           PROCESS  I.UJP PSEUDO                               FAS         1344     A     
 FAS                SX2    400B                                                            FAS         1345          I
          -FC50730
 FAS                SA1    S=ENTRY                                                         FC50730        8     A     
 FAS                BX2    X5                                                              FC50730        9     A     
 FAS                HX2    PB.TAG                                                          FC50730       10     A     
 FAS                AX2    -PB.TAGL    EXTRACT OPERAND ORDINAL                             FC50730       11     A     
 FAS                IX1    X1-X2                                                           FC50730       12     A     
 FAS                NZ     X1,UJP.5    IF NOT MAIN ENTRY (OF SUBROUTINE)                   FC50730       13     A     
 FAS                =X1    1                                                               FC50730       14     A     
 FAS                LX1    PB.BIASP+17                                                     FC50730       15     A     
 FAS                BX5    X5+X1       MAKE A "BLOWUP" STYLE ENTRY                         FC50730       16     A     
 FAS                                                                                       FC50730       17     A     
 FAS       UJP.5    SX2    400B        EQ CODE                                             FC50730       18     A     
 FAS                SB3    B3+2        THIS INSTRUCTION IS WORTH TWO PARCELS               FAS         1346     A     
 FAS                                                                                       FC50730       19     A     
 FAS       UJP.10   LX2    -PB.GHIJL                                                       FAS         1347     A     
 FAS                BX5    X5+X2                                                           FAS         1348     A     
 FAS                LX6    X5          (OL=PB) = MODIFIED INSTRUCTION                      FAS         1349     A     
 FAS                SA6    OL=PB                                                           FAS         1350     A     
 FAS                RJ     BNW         FORCE UPPER IF NECESSARY                            FAS         1351     A     
 FAS                RJ     REL         RELOCATE ADDRESS                                    FAS         1352     A     
 FAS                SA2    BINREL                                                          FAS         1353     A     
 FAS                SA1    BINWORD                                                         FAS         1354     A     
 FAS                BX6    X1                                                              FAS         1355     A     
 FAS                SA0    X2          SAVE (A0) = LOWER 18 BITS OF (BINREL)               FAS         1356     A     
 FAS                SX0    B3          SAVE (X0) = (B3)                                    FAS         1357     A     
 FAS                SA6    TEMP        SAVE (TEMP) = BINARY WORD                           FAS         1358     A     
 FAS                RJ     STX         STORE IN TEXT TABLE, FORCE UPPER AFTER              FAS         1359     A     
 FAS                SA1    TEMP                                                            FAS         1360     A     
 FAS                SB3    X0          RESTORE (B3)                                        FAS         1361     A     
 FAS                SB7    A0                                                              FAS         1362     A     
 FAS                EQ     RAD85                                                           FAS         1363     A     
 FAS       FI=RJ6   SPACE  4,10                                                            FAS         1364     A     
 FAS       FI=RJ6   BSS    0           PROCESS  RJ WITH TRACE PSEUDO INST                  FAS         1365     A     
 FAS                SX2    100B                                                            FAS         1366     A     
 FAS                MX1    -PB.BIASL                                                       FAS         1367     A     
 FAS                LX2    -PB.GHIJL                                                       FAS         1368     A     
 FAS                BX5    X5+X2       (OL=PB) = MODIFIED INSTRUCTION                      FAS         1369     A     
 FAS                LX1    PB.BIASP                                                        FAS         1370     A     
 FAS                BX6    -X1*X5      LINE NUMBER = BIAS [INSTRUCTION]                    FAS         1371     A     
 FAS                BX7    X1*X5       (PB.BIAS) = 0, FOR BST                              FAS         1372     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX5    X1*X5                                                           FAS         1373     A     
 FAS                LX6    -PB.BIASP                                                       FC50264       37     A     
 FAS                SA6    SAVETR      (SAVETR) = LINE NUMBER                              FAS         1374     A     
 FAS                SA7    OL=PB                                                           FAS         1375     A     
 FAS                RJ     BNW         BEGIN NEW WORD (FORCE UPPER)                        FAS         1376     A     
 FAS                RJ     REL         RELOCATE THE RJ                                     FAS         1377     A     
 FAS                SA4    SAVETR      LINE NUM                                            FAS         1378     A     
 FAS                SA3    OL=PB                                                           FAS         1379     A     
 FAS                =X2    2           INDICATE LOWER PGM REL                              FAS         1380          I
          -FC50264
 FAS                SX2    7776B                                                           FC50264       38     A     
 FAS                IX2    X4-X2                                                           FC50264       39     A     
 FAS                MX6    0           NO SPECIAL LINE/SEQUENCE PROCESSING                 FC50264       40     A     
 FAS                MI     X2,RJ6.10   IF LINE/SEQUENCE NUMBER .LT. 4095                   FC50264       41     A     
 FAS                LX6    X4          INDICATE SPECIAL LINE/SEQUENCE PROCESSING           FC50264       42     A     
 FAS                SX4    7777B       RESET TO FLAG NOT REALLY LINE NUMBER                FC50264       43     A     
 FAS                                                                                       FC50264       44     A     
 FAS       RJ6.10   SA6    SAVETR                                                          FC50264       45     A     
 FAS                LX4    PB.BIASP                                                        FC50264       46     A     
 FAS                =X2    2           INDICATE LOWER PGM REL                              FC50264       47     A     
 FAS                SA1    BINWORD                                                         FAS         1381     A     
 FAS                BX7    X4+X3       ADD LINE NUM BACK IN TO LISTING                     FAS         1382     A     
 FAS                LX4    -PB.BIASP+18                                                    FAS         1383     A     
 FAS                BX1    X1+X4       ADD LINE NUM BACK IN TO BINARY                      FAS         1384     A     
 FAS                BX0    X1                                                              FAS         1385     A     
 FAS                SA7    A3                                                              FAS         1386     A     
 FAS                RJ     STX         STORE IN *TEXT* TABLE                               FAS         1387     A     
 FAS                RJ     FBP         FORM BINARY AND PRINT                               FAS         1388     A     
 FAS                SA3    SAVETR                                                          FC50264       48     A     
 FAS                ZR     X3,RADRTN   IF NO LINE/SEQUENCE NUMBER TO PROCESS               FC50264       49     A     
 FAS                SA1    RADD                                                            FC50264       50     A     
 FAS                LX3    PB.BIASP                                                        FC50264       51     A     
 FAS                BX6    X1+X3                                                           FC50264       52     A     
 FAS                SA6    RADE                                                            FC50264       53     A     
 FAS                =X6    2                                                               FC50264       54     A     
 FAS                SA6    RADF        INDICATE FUNNY RNI                                  FC50264       55     A     
 FAS                EQ     RADRTN                                                          FAS         1389     A     
 FAS       FI=USE   SPACE  4,10                                                            FAS         1390     A     
 FAS       FI=USE   BSS    0           PROCESS I.USE PSEUDO                                FAS         1391     A     
 FAS                RJ     BNW         BEGIN NEW WORD                                      FAS         1392     A     
 FAS                RJ     DTX         DUMP TEXT.                                          FAS         1393     A     
 FAS                BX7    X5                                                              FAS         1394     A     
 FAS                RJ     PUSE        GO SWITCH  ORG  AND  PARCEL                         FAS         1395     A     
 FAS                RJ     DTX         INITIALIZE NEW  ORG,PARCNT IN TEXT                  FAS         1396     A     
 FAS                RJ     POL         PRINT OBJECT LISTING                                FAS         1397     A     
 FAS                EQ     RADRTN                                                          FAS         1398     A     
 FAS       FI=ZERO  SPACE  4,10                                                            FAS         1399     A     
 FAS       FI=ZERO  BSS    0           OUTPUT A ZERO WORD                                  FAS         1400     A     
 FAS                RJ     BNW         FORCE UPPER                                         FAS         1401     A     
 FAS                MX1    0                                                               FAS         1402     A     
 FAS                BX2    0           INDICATE NO RELOCATION                              FAS         1403     A     
 FAS                RJ     STX                                                             FAS         1404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX0    0                                                               FAS         1405     A     
 FAS                RJ     FBP         FORMAT BINARY AND PRINT                             FAS         1406     A     
 FAS                EQ     RADRTN                                                          FAS         1407     A     
 FAS                                                                                       FAS         1408     A     
 FAS                                                                                       FAS         1409     A     
 FAS       RADA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS              FAS         1410     A     
 FAS       RADB     BSS    1           STORAGE FOR READW INPUT                             FAS         1411     A     
 FAS       RADC     BSSENT 1           STORAGE FOR INSTRUCTION TYPE                        FAS         1412     A     
 FAS       RADD     VFD    12/6100B,48/0     SB0 TEMPLATE                                  FC50264       56     A     
 FAS       RADE     BSS    1           SB0+LINE/SEQ NO.                                    FC50264       57     A     
 FAS       RADF     BSSZ   1           FUNNY RNI INDICATOR                                 FC50264       58     A     
 FAS       SAVETR   EQU    TEMP        SAVE TRACE BACK LINE NUM DURING RELOCATION          FAS         1413     A     
 FAS                TITLE  ASSEMBLER SUPPORTING ROUTINES                                   FAS         1414     A     
 FAS       BNW      SPACE  4,10                                                            FAS         1415     A     
 FAS      **        BNW - BEGIN NEW WORD.                                                  FAS         1416     A     
 FAS      *                                                                                FAS         1417     A     
 FAS      *         ENTRY  (B2) = CURRENT PARCEL.                                          FAS         1418     A     
 FAS      *                (B3) FLAGS WHETHER FORCE UPPER OR NOT --                        FAS         1419     A     
 FAS      *                       IF (B3) .GT. 0 , EXIT.                                   FAS         1420     A     
 FAS      *                                                                                FAS         1421     A     
 FAS      *         EXIT   OLD WORD STORED IN TEXT TABLE AND NEW WORD BEGUN.               FAS         1422     A     
 FAS      *                (B2) UPDATED.                                                   FAS         1423     A     
 FAS      *                (LINEBUF) = ORIGIN COUNTER, OR BLANK.                           FAS         1424     A     
 FAS      *                                                                                FAS         1425     A     
 FAS      *         CALLS  ROL, STX.                                                       FAS         1426     A     
 FAS                                                                                       FAS         1427     A     
 FAS                                                                                       FAS         1428     A     
 FAS       BNW      SUBR                                                                   FAS         1429     A     
 FAS                GT     B3,B0,BNW8  IF NO NEED TO PAD                                   FAS         1430     A     
 FAS                SA3    =460006100046000B                                               FAS         1431     A     
 FAS                SB3    B2-2                                                            FAS         1432     A     
 FAS                MX7    PB.INSTL                                                        FAS         1433     A     
 FAS                SX2    -B3         = 2 - (PARCEL)                                      FAS         1434     A     
 FAS                SA1    BINWORD                                                         FAS         1435     A     
 FAS                LX2    4           = 32 - 16*P                                         FAS         1436     A     
 FAS                SB7    X2+B3       = 32-16P+P-2 = 30 - 15(P)                           FAS         1437     A     
 FAS                AX7    B7                                                              FAS         1438     A     
 FAS                SA2    A1+B1                                                           FAS         1439     A     
 FAS                BX3    -X7*X3      GET PROPER NUMBER OF NO-OPS                         FAS         1440     A     
 FAS                IX1    X1+X3                                                           FAS         1441     A     
 FAS                RJ     STX         STORE THE WORD INTO THE CURRENT TEXT TABLE          FAS         1442     A     
 FAS                SB2    3           INDICATE EMPTY WORD NOW                             FAS         1443     A     
 FAS       BNW8     RJ     ROL         SET ORIGIN FOR OL                                   FAS         1444     A     
 FAS                EQ     EXIT.                                                           FAS         1445     A     
 FAS       BST      SPACE  4,10                                                            FAS         1446     A     
 FAS      **        BST -  BUILD  *SUB*  TABLE.                                            FAS         1447     A     
 FAS      *                                                                                FAS         1448     A     
 FAS      *         COMPILE AN ADDRESS SUBSTITUTION ENTRY INTO (T.SUB), IN                 FAS         1449     A     
 FAS      *         (SB.) FORMAT.  CALLED BY *REL* WHEN A MACHINE INSTRUCTION IS           FAS         1450     A     
 FAS      *         GENERATED WITH A Q-FIELD REFERING TO A FORMAL PARAMETER.               FAS         1451     A     
 FAS      *                                                                                FAS         1452     A     
 FAS      *         ENTRY  (B2) = PARCEL COUNT.                                            FAS         1453     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                (B5) = FORMAL PARAMETER NUMBER.                                 FAS         1454     A     
 FAS      *                (OL=PB) = BIAS IN (PB.BIAS) FIELD.                              FAS         1455     A     
 FAS      *                                                                                FAS         1456     A     
 FAS      *         EXIT   *SUB* ELEMENT STORED INTO  T.SUB.                               FAS         1457     A     
 FAS      *                (X5) = CURRENT  *SUB*  TABLE ELEMENT.                           FAS         1458     A     
 FAS      *                                                                                FAS         1459     A     
 FAS      *         KEEPS   B2,B4                                                          FAS         1460          I
          -FC5A219
 FAS      *         KEEPS  B2,B3,B4                                                        FC5A219       10     A     
 FAS                                                                                       FAS         1461     A     
 FAS                                                                                       FAS         1462     A     
 FAS       BST      SUBR   =           ENTRY/EXIT.                                         FAS         1463     A     
 FAS       BST.EQ   BSSENT 0                                                               FAS         1464     A     
 FAS                SB7    B5-B1                                                           FAS         1465     A     
 FAS                SA1    T.FPI                                                           FAS         1466     A     
 FAS                SA2    X1+B7       FPI = T.FPI(FPIND - 1)                              FAS         1467     A     
 FAS                SA3    T.SUB                                                           FAS         1468     A     
 FAS                SB3    X3                                                              FAS         1469          I
          -FC5A219
 FAS                SB6    X3                                                              FC5A219       11     A     
 FAS                LX2    -FP.SUBP                                                        FAS         1470     A     
 FAS                SB7    X2          SUBIND = ORG[FPI]                                   FAS         1471          I
          -FC50252
 FAS                ERRNZ  18-FP.SUBL                                                      FAS         1472          I
          -FC50252
 FAS                MX6    -FP.SUBL                                                        FC50252       32     A     
 FAS                BX6    -X6*X2      EXTRACT FP.SUB                                      FC50252       33     A     
 FAS                SB7    X6          SUBIND = ORG[FPI]                                   FC50252       34     A     
 FAS                =X6    1                                                               FAS         1473     A     
 FAS                IX7    X2+X6                                                           FAS         1474     A     
 FAS                LX7    FP.SUBP                                                         FAS         1475     A     
 FAS                SA7    A2          ORG[FPI] = ORG+1 [FP.]                              FAS         1476     A     
 FAS                                                                                       FAS         1477     A     
 FAS      *         CREATE POS[FP.] FROM PARCEL COUNT.                                     FAS         1478     A     
 FAS                                                                                       FAS         1479     A     
 FAS                SX0    B2-B1       = PARCEL -1                                         FAS         1480     A     
 FAS                SX1    B2-B1                                                           FAS         1481     A     
 FAS                LX0    4                                                               FAS         1482     A     
 FAS                IX5    X0-X1       SHIFT = 15 * (PARCEL - 1)                           FAS         1483     A     
 FAS                LX2    12                                                              FAS         1484     A     
 FAS                SX1    X5-1        SHCNT = (-1,  14,  OR 29)                           FAS         1485     A     
 FAS                AX1    59          SIGN EXTEND SHCNT                                   FAS         1486     A     
 FAS                SX4    B1                                                              FAS         1487     A     
 FAS                BX4    X1*X4       (1, 0, OR 0)                                        FAS         1488     A     
 FAS                SX5    X5+2000B    (2000B,  2017B,  OR 2036B)                          FAS         1489     A     
 FAS                IX5    X5-X4       POSI = (1777B,  2017B,  OR 2036B)                   FAS         1490     A     
 FAS                                                                                       FAS         1491     A     
 FAS      *         COMPLEMENT POSI IF DELAY.                                              FAS         1492     A     
 FAS                                                                                       FAS         1493     A     
 FAS                SA1    DELAY                                                           FAS         1494     A     
 FAS                SA3    ORG                                                             FAS         1495     A     
 FAS                PX7    X3,B5       DELI = (12/2000B+FPNO, 48/ORG)                      FAS         1496     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA7    A1          (DELAY) = DELI                                      FAS         1497     A     
 FAS                BX1    X1-X7       IF (DELAY ) .EQ. DELI, (X1) = 0                     FAS         1498     A     
 FAS                MX0    0                                                               FAS         1499     A     
 FAS                BX4    -X1                                                             FAS         1500     A     
 FAS                IX6    X0+X4                                                           FAS         1501     A     
 FAS                BX4    X1+X6       =0 IF DELAY,  -0 IF NOT                             FAS         1502     A     
 FAS                LX5    SB.POSP                                                         FAS         1503     A     
 FAS                ERRNZ  48-SB.POSP                                                      FAS         1504     A     
 FAS                MX2    12                                                              FAS         1505     A     
 FAS                BX2    -X4*X2      12 BIT MASK IF DELAY                                FAS         1506     A     
 FAS                BX5    X5-X2                                                           FAS         1507     A     
 FAS                                                                                       FAS         1508     A     
 FAS      *         FORM REST OF [SB.] WORD.                                               FAS         1509     A     
 FAS                                                                                       FAS         1510     A     
 FAS                SA1    OL=PB                                                           FAS         1511     A     
 FAS                MX0    -PB.BIASL                                                       FAS         1512     A     
 FAS                LX3    SB.ORGP                                                         FAS         1513     A     
 FAS                BX5    X5+X3                                                           FAS         1514     A     
 FAS                LX1    -PB.BIASP                                                       FAS         1515     A     
 FAS                BX1    -X0*X1      BIASI = BIAS[INSTRUCTION]                           FAS         1516     A     
 FAS                LX1    SB.BIASP                                                        FAS         1517     A     
 FAS                BX6    X1+X5                                                           FAS         1518     A     
 FAS                SA6    B3+B7       T.SUB(SUBIND) = (POS,BIASI,ORG)[SB.]                FAS         1519          I
          -FC5A219
 FAS                SA6    B6+B7       T.SUB(SUBIN) = (POS,BIASI,ORD)[SB.]                 FC5A219       12     A     
 FAS                EQ     EXIT.                                                           FAS         1520     A     
 FAS       BSZ      SPACE  4,10                                                            FAS         1521     A     
 FAS      **        BSZ -  BUILD SUB0 TABLE.                                               FAS         1522     A     
 FAS      *                MAKE A SUB0 TABLE ENTRY, FORMATTED AS SZ. .                     FAS         1523     A     
 FAS      *                                                                                FAS         1524     A     
 FAS      *         ENTRY  (X1) = LCM LOAD/ STORE INSTRUCTION                              FAS         1525     A     
 FAS      *                (X5) = SHORT INSTRUCTION                                        FAS         1526     A     
 FAS      *                (X6) = I.LD0/ I.ST0 PSEUDO INSTRUCTION                          FAS         1527     A     
 FAS      *         EXIT   (X5) = UNCHANGED                                                FAS         1528     A     
 FAS      *                (TAGSUB0) = SYMTAB ORD OF F.P. BEING SUB0ED.                    FAS         1529     A     
 FAS      *         USES                                                                   FAS         1530     A     
 FAS                                                                                       FAS         1531     A     
 FAS                                                                                       FAS         1532     A     
 FAS       BSZ      SUBR               ENTRY/EXIT.                                         FAS         1533     A     
 FAS       #MD      IFNE   .DAL,0                                                          FC5A132      131     A     
 FAS                HX6    PB.TAG                                                          FAS         1534     A     
 FAS                AX6    -PB.TAGL    TAGI = TAG[ INSTRUCTION]                            FAS         1535     A     
 FAS                SA6    TAGSUB0     (TAGSUB0) = TAGI                                    FAS         1536     A     
 FAS                SA2    T.SYM                                                           FAS         1537     A     
 FAS                SB4    X2+WB.W                                                         FAS         1538     A     
 FAS                LX3    X6,B1                                                           FAS         1539     A     
 FAS                SB4    X3+B4                                                           FAS         1540     A     
 FAS                MX0    -WB.FPNOL                                                       FAS         1541     A     
 FAS                SA2    X6+B4       WBI = T.SYM(STIND) + WB.W                           FAS         1542     A     
 FAS                SA3    T.FPI                                                           FAS         1543     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1544     A     
 FAS                AX2    WB.FPNOP                                                        FAS         1545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX0    -X0*X2      FPNOI = FPNO[WBI]                                   FAS         1546     A     
 FAS                SB4    X0-1        FPNOI = FPNOI - 1                                   FAS         1547     A     
 FAS                ERRMI  18-WB.FPNOL                                                     FAS         1548     A     
 FAS                SA2    X3+B4       FPI = T.FPI(FPNOI)                                  FAS         1549     A     
 FAS                LX2    -FP.SUB0P                                                       FAS         1550     A     
 FAS                =B7    X2+1        SUB0IND = SUB0[FPI]                                 FAS         1551     A     
 FAS                ERRNZ  18-FP.SUB0L                                                     FAS         1552     A     
 FAS                =X6    1                                                               FAS         1553     A     
 FAS                IX7    X6+X2                                                           FAS         1554     A     
 FAS                LX7    FP.SUB0P                                                        FAS         1555     A     
 FAS                SA7    A2          SUB0[FPI] = (SUB0+1) [FP.]                          FAS         1556     A     
 FAS                                                                                       FAS         1557     A     
 FAS      *         CREATE A SUB0 ENTRY.                                                   FAS         1558     A     
 FAS                                                                                       FAS         1559     A     
 FAS                SA2    PARCEL                                                          FAS         1560     A     
 FAS                SX0    X2                                                              FAS         1561     A     
 FAS                LX0    4                                                               FAS         1562     A     
 FAS                IX6    X0-X2       PARCEL* 15                                          FAS         1563     A     
 FAS                SX6    X6+2036B                                                        FAS         1564     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1565     A     
 FAS                MI     X6,"BLOWUP"                                                     FAS         1566     A     
 FAS                LX6    SZ.POSP-SZ.SLIP                                                 FAS         1567          I
          -FC51232
 FAS                SX3    X6-2074B                                                        FC51232        6     A     
 FAS                MI     X3,BSZ4     IF SHIFT COUNT LESS THAN 60                         FC51232        7     A     
 FAS                SX6    X6-74B                                                          FC51232        8     A     
 FAS                                                                                       FC51232        9     A     
 FAS       BSZ4     LX6    SZ.POSP-SZ.SLIP                                                 FC51232       10     A     
 FAS                BX1    X1-X5       LCM INSTR .XOR. 53IJ0                               FAS         1568     A     
 FAS                BX6    X6+X1                                                           FAS         1569     A     
 FAS                LX6    SZ.SLIP                                                         FAS         1570     A     
 FAS                SA3    ORG                                                             FAS         1571     A     
 FAS                SA4    T.SUB0                                                          FAS         1572          I
          -FC50010
 FAS                PL     X2,BSZ10    IF CURRENT WORD NOT FULL                            FC50010       12     A     
 FAS                =X3    X3+1        SUBBING NEXT WORD                                   FC50010       13     A     
 FAS                                                                                       FC50010       14     A     
 FAS       BSZ10    SA4    T.SUB0                                                          FC50010       15     A     
 FAS                LX3    SZ.ORGP                                                         FAS         1573     A     
 FAS                BX6    X3+X6                                                           FAS         1574     A     
 FAS                SA6    X4+B7       (POS,SLI,ADDR) [T.SUB0(SUB0IND)] = [SZ.]            FAS         1575     A     
 FAS                EQ     EXIT.                                                           FAS         1576     A     
 FAS       #MD      ELSE                                                                   FC5A132      132     A     
 FAS                EQ     "BLOWUP"                                                        FC5A132      133     A     
 FAS       #MD      ENDIF                                                                  FC5A132      134     A     
 FAS       CAB      SPACE  4,10                                                            FAS         1577     A     
 FAS      **        CAB - COPY ADJUSTED BITS.                                              FAS         1578     A     
 FAS      *                                                                                FAS         1579     A     
 FAS      *         COPIES SELECTED BITS FROM AN INPUT WORD, AND MERGES THEM,              FAS         1580     A     
 FAS      *         SHIFTED AS DIRECTED, INTO AN OUTPUT WORD.                              FAS         1581     A     
 FAS      *                                                                                FAS         1582     A     
 FAS      *         ENTRY  (A1,X1) = BIT SELECT LIST, AS SETUP BY CABS MACRO.              FAS         1583     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                (X2) = OUTPUT WORD.                                             FAS         1584     A     
 FAS      *                (X5) = INPUT WORD.                                              FAS         1585     A     
 FAS      *                                                                                FAS         1586     A     
 FAS      *         EXIT   (X2) = BITS MERGED PER SELECT LIST.                             FAS         1587     A     
 FAS      *                                                                                FAS         1588     A     
 FAS      *         USES   A1,3.  X0-1,3-4,6-7.  B2,7.                                     FAS         1589     A     
 FAS                                                                                       FAS         1590     A     
 FAS                                                                                       FAS         1591     A     
 FAS       CAB      SUBR   =           ENTRY/EXIT...                                       FAS         1592     A     
 FAS                MX0    -6                                                              FAS         1593     A     
 FAS                SX7    B1                                                              FAS         1594     A     
 FAS                                                                                       FAS         1595     A     
 FAS       CAB4     LX1    6                                                               FAS         1596     A     
 FAS                BX6    -X0*X1      (B2) = 60 - INBIT                                   FAS         1597     A     
 FAS                IX1    X1-X6                                                           FAS         1598     A     
 FAS                SB2    X6                                                              FAS         1599     A     
 FAS                LX1    6                                                               FAS         1600     A     
 FAS                BX3    -X0*X1      (B7) = OUTBIT                                       FAS         1601     A     
 FAS                IX1    X1-X3                                                           FAS         1602     A     
 FAS                SB7    X3                                                              FAS         1603     A     
 FAS                LX6    X5,B2       MOVE INBIT TO BOTTOM                                FAS         1604     A     
 FAS                BX3    X7*X6                                                           FAS         1605     A     
 FAS                LX6    X3,B7       POSITION ISOLATED OUTBIT                            FAS         1606     A     
 FAS                BX2    X6+X2       MERGE OUTBIT INTO OUTWORD                           FAS         1607     A     
 FAS                NZ     X1,CAB4     IF MORE FIELDS IN THIS SELECT WORD                  FAS         1608     A     
 FAS                SA1    A1                                                              FAS         1609     A     
 FAS                BX6    -X0*X1                                                          FAS         1610     A     
 FAS                ZR     X6,EXIT.    IF LAST WORD NOT FULL                               FAS         1611     A     
 FAS                SA1    A1+B1                                                           FAS         1612     A     
 FAS                NZ     X1,CAB4     IF NEW WORD NOT TERMINATOR                          FAS         1613     A     
 FAS                EQ     EXIT.                                                           FAS         1614     A     
 FAS       CABS     SPACE  4,10                                                            FAS         1615     A     
 FAS      **        CABS - CONSTRUCT ADJUSTED BIT SELECT LIST.                             FAS         1616     A     
 FAS      *                                                                                FAS         1617     A     
 FAS      * TAG     CABS   FI,FO,(BN1,BN2,...,BNN)                                         FAS         1618     A     
 FAS      *                                                                                FAS         1619     A     
 FAS      *         WHERE  FI = PREFIX FOR INPUT FIELD.                                    FAS         1620     A     
 FAS      *                FO = PREFIX FOR OUTPUT FIELD.                                   FAS         1621     A     
 FAS      *                BN(J) = BIT NAME TO BE COPIED, WHEN SAME IN BOTH WORDS.         FAS         1622     A     
 FAS      *                      = BNI/BNO,  WHEN SUFFIXES DIFFER.                         FAS         1623     A     
 FAS      *                BNI = BIT NAME IN FI.                                           FAS         1624     A     
 FAS      *                BNO = BIT NAME IN FO.                                           FAS         1625     A     
 FAS                                                                                       FAS         1626     A     
 FAS                                                                                       FAS         1627     A     
 FAS       CABS     MACRO  FI,FO,BL                                                        FAS         1628     A     
 FAS                IRP    BL                                                              FAS         1629     A     
 FAS       A        MICRO  1,,/BL//                                                        FAS         1630     A     
 FAS       B        MICCNT A                                                               FAS         1631     A     
 FAS       C        MICRO  B+2,,,BL,                                                       FAS         1632     A     
 FAS                IFC    EQ,/"C"//,1                                                     FAS         1633     A     
 FAS       C        MICRO  1,,/"A"/                                                        FAS         1634     A     
 FAS                VFD    6/60-FI."A"P,6/FO."C"P                                          FAS         1635     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                IRP                                                                    FAS         1636     A     
 FAS                VFD    11/0,*P/0                                                       FAS         1637     A     
 FAS                ENDM                                                                   FAS         1638     A     
 FAS       CLI      SPACE  4,10                                                            FAS         1639     A     
 FAS      **        CLE -  CREATE LINE TABLE ENTRY                                         FAS         1640     A     
 FAS      *                                                                                FAS         1641     A     
 FAS      *         ENTRY  (X5) = PB INSTRUCTION                                           FAS         1642     A     
 FAS      *         EXIT   AN ENTRY MADE TO T.LNT                                          FAS         1643     A     
 FAS      *         USES   A1,X1,X6                                                        FAS         1644     A     
 FAS                                                                                       FAS         1645     A     
 FAS                                                                                       FAS         1646     A     
 FAS      **        DEFINE 6700 TABLE FORMAT (LN.) .                                       FAS         1647     A     
 FAS                                                                                       FAS         1648     A     
 FAS                DESCRIBE LN.,60                                                        FAS         1649     A     
 FAS       LAB      DEFINE 18          LABEL IN BINARY                                     FAS         1650     A     
 FAS                DEFINE 6           0                                                   FAS         1651     A     
 FAS       LN       DEFINE 18          LINE NUMBER IN BINARY                               FAS         1652     A     
 FAS       RA       DEFINE 18                                                              FAS         1653     A     
 FAS                                                                                       FAS         1654     A     
 FAS                                                                                       FAS         1655     A     
 FAS       CLE      SUBR   =           ...ENTRY/EXIT...                                    FAS         1656     A     
 FAS       CLE.EQ   BSSENT 0                                                               FAS         1657     A     
 FAS                RJ     BNW         FORCE UPPER                                         FAS         1658     A     
 FAS                SA1    ORG                                                             FAS         1659     A     
 FAS                MX6    -PB.BIASL                                                       FAS         1660     A     
 FAS                LX5    -PB.BIASP                                                       FAS         1661     A     
 FAS                BX6    -X6*X5                                                          FAS         1662     A     
 FAS                LX5    PB.BIASP                                                        FAS         1663     A     
 FAS                LX1    LN.RAP                                                          FAS         1664     A     
 FAS                LX6    LN.LNP                                                          FAS         1665     A     
 FAS                BX6    X1+X6                                                           FAS         1666     A     
 FAS                ADDWD  T.LNT                                                           FAS         1667     A     
 FAS                EQ     EXIT.                                                           FAS         1668     A     
 FAS      DDS       SPACE  4,10                                                            FAS         1669     A     
 FAS      **        DDS - DUMP DATA STATEMENTS.                                            FAS         1670     A     
 FAS      *                                                                                FAS         1671     A     
 FAS      *         CALLED FROM *FO=DATA* OF FAS TO DAMP DATA STATEMENTS                   FAS         1672          I
          -FC5A231
 FAS      *         TO TEXT.                                                               FAS         1673          I
          -FC5A231
 FAS      *         CALLED FROM *FI=DATA* TO DUMP DATA STATEMENTS TO TEXT.                 FC5A231      137     A     
 FAS      *                                                                                FC5A231      138     A     
 FAS      *         ENTRY  T.DATS FORMATTED AS DA., DB. .                                  FAS         1674     A     
 FAS      *                                                                                FC5A231      139     A     
 FAS      *         CALLS  ALLOC,MOVE,DTX,OTB                                              FAS         1675     A     
 FAS                                                                                       FC50809        7     A     
 FAS                DESCRIBE DC.,60                                                        FC50809        8     A     
 FAS       LINK     DEFINE 1           INDICATE GROUP FULL                                 FC50809        9     A     
 FAS                DEFINE 23                                                              FC50809       10     A     
 FAS       PTR      DEFINE 18          IFF DC.LINK=1, POINT TO NEXT GROUP                  FC50809       11     A     
 FAS       CNT      DEFINE 18          WORD COUNT THIS GROUP                               FC50809       12     A     
 FAS                                                                                       FC50809       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS         1676     A     
 FAS       DDS      SUBR   0           ENTRY/EXIT.                                         FAS         1677     A     
 FAS                SB4    B0          IND = 0                                             FAS         1678     A     
 FAS                SHRINK T=PTXT,B4                                                       FAS         1679     A     
 FAS                SHRINK T=PTXTR,X6                                                      FAS         1680     A     
 FAS                ADDWD  T.PTXT      INITIALIZE COUNT                                    FC50809       14     A     
 FAS                ADDWD  T.PTXTR     INITIALIZE COUNT                                    FC50809       15     A     
 FAS                                                                                       FAS         1681     A     
 FAS      *         PROCESS NEXT DATA GROUP.                                               FAS         1682     A     
 FAS      *         (B4) = IND                                                             FAS         1683     A     
 FAS                                                                                       FAS         1684     A     
 FAS       DDS10    SA1    T.DATS                                                          FAS         1685     A     
 FAS                SA2    T=DATS                                                          FAS         1686     A     
 FAS                SA5    X1+B4       DAI = T.DATS(IND)                                   FAS         1687     A     
 FAS                SB2    X2                                                              FAS         1688     A     
 FAS                SB3    B2-B4                                                           FAS         1689     A     
 FAS                MX1    -DA.BIASL                                                       FAS         1690     A     
 FAS                ZR     B3,DDS90    IF TABLE EXHAUSTED                                  FAS         1691     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1692     A     
 FAS                MI     B3,"BLOWUP" IF IND .GT. TABLE LENGTH                            FAS         1693     A     
 FAS                LX5    -DA.BIASP                                                       FAS         1694     A     
 FAS                BX4    -X1*X5      BIASI = BIAS[DAI]                                   FAS         1695     A     
 FAS                LX5    DA.BIASP-DA.ORDP                                                FAS         1696     A     
 FAS                MX2    -DA.ORDL                                                        FAS         1697     A     
 FAS                BX1    -X2*X5      ORDI = ORD[DAI]                                     FAS         1698     A     
 FAS       .T       IFEQ   TEST,ON,3                                                       FAS         1699     A     
 FAS                MX0    -PB.ORDL                                                        FAS         1700     A     
 FAS                BX6    X0*X1       PFXI = PFX[ORDI]                                    FAS         1701     A     
 FAS                NZ     X6,"BLOWUP" IF PFXI .NE. K=SYM                                  FAS         1702     A     
 FAS                ERRNZ  K=SYM                                                           FAS         1703     A     
 FAS                LX2    X1,B1                                                           FAS         1704     A     
 FAS                IX1    X1+X2       STIND = 3 * ORDI                                    FAS         1705     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1706     A     
 FAS                SA2    T.SYM                                                           FAS         1707     A     
 FAS                =B7    X2+WC.W                                                         FAS         1708     A     
 FAS                SA2    X1+B7       WCI = T.SYM(STIND) + WC.W                           FAS         1709     A     
 FAS                MX1    -WC.RAL                                                         FAS         1710     A     
 FAS                MX7    -WC.RBL                                                         FAS         1711     A     
 FAS                LX2    -WC.RAP                                                         FAS         1712     A     
 FAS                BX1    -X1*X2      RAI = RA[WCI]                                       FAS         1713     A     
 FAS                LX2    WC.RAP-WC.RBP                                                   FAS         1714     A     
 FAS                BX7    -X7*X2      RBI = RB[WCI]                                       FAS         1715     A     
 FAS                AX7    1           BLKORD = RBI / 2                                    FAS         1716     A     
 FAS                ERRNZ  2-Z=BLKS                                                        FAS         1717     A     
 FAS                ZR     X7,DDS20    IF PROGRAM RELATIVE                                 FAS         1718     A     
 FAS                SX7    X7+B1       BLKORD = BLKORD + 1                                 FAS         1719     A     
 FAS                                                                                       FC50809       16     A     
 FAS       DDS20    MX0    -DA.WCL                                                         FAS         1720     A     
 FAS                SX6    B1                                                              FAS         1721     A     
 FAS                =A3    A2-WC.W+WB.W      WBI                                           FAS         1722     A     
 FAS                LX3    -WB.MATP                                                        FAS         1723     A     
 FAS                BX3    X6*X3       MATI = MAT[WBI]                                     FAS         1724     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SB7    X3          REMEMBER (B7) = WB.MAT                              FAS         1725     A     
 FAS                LX5    DA.ORDP-DA.WCP                                                  FAS         1726     A     
 FAS                BX0    -X0*X5      WDC = WC[DAI]                                       FAS         1727     A     
 FAS                BX3    X5                                                              FAS         1728     A     
 FAS                LX5    DA.WCP-DA.RPP                                                   FAS         1729     A     
 FAS                LX3    DA.WCP-1-DA.CHP                                                 FAS         1730     A     
 FAS                BX5    X6*X5       RPI = RP[DAI]                                       FAS         1731     A     
 FAS                SB3    X5+B1       HEADWD = RPI + 1                                    FAS         1732     A     
 FAS                PL     X3,DDS50    IF NOT CHARACTER DATA                               FAS         1733     A     
 FAS                                                                                       FAS         1734     A     
 FAS      *         CHARACTER DATA - BUILT PTEXT/ PTEXTR TABLE.                            FAS         1735     A     
 FAS      *         (B7) = WB.MAT                                                          FAS         1736     A     
 FAS      *         (X4) = BIASI                                                           FAS         1737     A     
 FAS      *         (X1) = RAI                                                             FAS         1738     A     
 FAS      *         (X2) = WCI                                                             FAS         1739     A     
 FAS      *         (X7) = BLKORD                                                          FAS         1740     A     
 FAS      *         (B3) = HEADWD                                                          FAS         1741     A     
 FAS                                                                                       FAS         1742     A     
 FAS                BX6    X0                                                              FAS         1743     A     
 FAS                CW     X3,X0       WDC = WDC / 10                                      FAS         1744     A     
 FAS                SX0    X3+B3       WDC = WDC + HEADWD                                  FAS         1745     A     
 FAS                SX7    X7+B1       BLKORD = BLDORD + 1                                 FAS         1746     A     
 FAS                LX7    BT.RBP                                                          FAS         1747     A     
 FAS                LX5    BT.RPP                                                          FAS         1748     A     
 FAS                BX7    X7+X5                                                           FAS         1749     A     
 FAS                ZR     B7,DDS85    IF ELEMENT NOT MATERIALIZED                         FAS         1750     A     
 FAS                BC     X3,X6       WDC = WDC * 6                                       FAS         1751     A     
 FAS                LX3    BT.LENP                                                         FAS         1752     A     
 FAS                BX7    X7+X3                                                           FAS         1753     A     
 FAS                WC     X3,X1       RAI = RAI * 10                                      FAS         1754     A     
 FAS                BX1    X3                                                              FAS         1755     A     
 FAS                IX4    X4+X1       RAI = BIASI + RAI                                   FAS         1756     A     
 FAS                WX1    X4,X2       CONVERT RAI TO FWA AND BCPI                         FAS         1757     A     
 FAS                BC     X3,X2       BCPI = BCPI * 6                                     FAS         1758     A     
 FAS                LX1    BT.FWAP                                                         FAS         1759     A     
 FAS                LX3    BT.BCPP                                                         FAS         1760     A     
 FAS                BX1    X1+X3                                                           FAS         1761     A     
 FAS                BX7    X7+X1                                                           FAS         1762     A     
 FAS                SA7    A5          (DAI) =  (LEN,BCP,RP,RB,FWA) [BT.]                  FAS         1763     A     
 FAS                SA1    T.PTXT                                                          FAS         1764     A     
 FAS                ZR     X5,DDS80    IF NO REPLICATION                                   FAS         1765     A     
 FAS                                                                                       FAS         1766     A     
 FAS      *         CHARACTER DATA WITH REPLICATION.                                       FAS         1767     A     
 FAS                                                                                       FAS         1768     A     
 FAS                SA4    A5+B1       DBI = DAI + 1                                       FAS         1769     A     
 FAS                MX3    -DB.CNTL                                                        FAS         1770     A     
 FAS                MX2    -DB.INCL                                                        FAS         1771     A     
 FAS                LX4    -DB.CNTP                                                        FAS         1772     A     
 FAS                BX3    -X3*X4      CNTI = CNT[DBI]                                     FAS         1773     A     
 FAS                SX7    B1                                                              FAS         1774     A     
 FAS       .T       IFEQ   TEST,ON,2                                                       FAS         1775     A     
 FAS                IX1    X3-X7                                                           FAS         1776     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MI     X1,"BLOWUP" IF CNTI .LE. 0                                      FAS         1777     A     
 FAS                                                                                       FAS         1778     A     
 FAS                IX3    X3+X7       CNTI = CNTI + 1                                     FAS         1779     A     
 FAS                LX3    BT.RCPP                                                         FAS         1780     A     
 FAS                LX4    DB.CNTP-DB.INCP                                                 FAS         1781     A     
 FAS                BX4    -X2*X4      INCI = INC[DBI]                                     FAS         1782     A     
 FAS                BC     X2,X4       INCI = INCI * 6                                     FAS         1783     A     
 FAS                LX2    BT.RIPP                                                         FAS         1784     A     
 FAS                BX7    X3+X2                                                           FAS         1785     A     
 FAS                SA7    A4          (DBI) = (INCI,CNTI)[BT.]                            FAS         1786     A     
 FAS                SA1    T.PTXTR                                                         FAS         1787     A     
 FAS                EQ     DDS80                                                           FAS         1788     A     
 FAS                                                                                       FAS         1789     A     
 FAS      *         NON CHARACTER DATA.                                                    FAS         1790     A     
 FAS      *         (B7) = WB.MAT                                                          FAS         1791     A     
 FAS                                                                                       FAS         1792     A     
 FAS       DDS50    SB4    B4+X0       IND = IND + WCI                                     FAS         1793     A     
 FAS                SB4    B4+B3       IND = IND + HEADWD                                  FAS         1794     A     
 FAS                ZR     B7,DDS10    IF NOT MATERIALISED                                 FAS         1795          I
          -FC5A231
 FAS                ZR     B7,DDS10    IF NOT MATERIALIZED                                 FC5A231      140     A     
 FAS                LX5    59                                                              FAS         1796     A     
 FAS                LX7    BT.RSP                                                          FAS         1797     A     
 FAS       .T       IFEQ   TEST,ON,3                                                       FAS         1798     A     
 FAS                BX2    X4                                                              FAS         1799     A     
 FAS                AX2    18                                                              FAS         1800          I
          -FC5A132
 FAS                NZ     X2,"BLOWUP" MUST HANDLE LARGE BIAS                              FAS         1801          I
          -FC5A132
 FAS       .FIX     SET                MUST HANDLE LARGE BIAS                              FAS         1802          I
          -FC5A132
 FAS                SX6    X4          TRUNCATE BIAS TO 18 BITS                            FAS         1803          I
          -FC5A132
 FAS                SX1    X1          TRUNCATE RAI TO 18 BITS                             FAS         1804          I
          -FC5A132
 FAS                IX6    X6+X1       RAI = RAI + BIASI                                   FAS         1805          I
          -FC5A132
 FAS                AX2    24                                                              FC5A132      135     A     
 FAS                NZ     X2,"BLOWUP" IF BIAS TOO LARGE                                   FC5A132      136     A     
 FAS                IX6    X4+X1       RAI = RAI + BIASI                                   FC5A132      137     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1806     A     
 FAS                MI     X6,"BLOWUP" IF RAI .LT. 0                                       FAS         1807     A     
 FAS                SX3    B1                                                              FAS         1808     A     
 FAS                LX3    BT.RLP                                                          FAS         1809          I
          -FC5A132
 FAS                LX3    BT.RLXP                                                         FC5A132      138     A     
 FAS                BX6    X6+X7                                                           FAS         1810     A     
 FAS                AX5    -0          -0 MASK IF REPL                                     FAS         1811     A     
 FAS                SA6    ORG                                                             FAS         1812     A     
 FAS                IX6    X6+X3       BLKS = BLKS + 1                                     FAS         1813     A     
 FAS                BX7    X5*X6                                                           FAS         1814     A     
 FAS                SA7    BT.REP+1    (BT.REP+1) = ORG, IFF REPLICATION                   FAS         1815          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
          -FC5A132
 FAS                SA7    BT.XREP+1   (BT.XREP+1) = ORG, IFF REPLICATION                  FC5A132      139     A     
 FAS                RJ     DTX         INITIALIZE TEXT TABLE                               FAS         1816     A     
 FAS                PL     X5,DDS70    IF NO REPLICATION                                   FAS         1817     A     
 FAS                SA5    A5+B1       DBI = DAI + 1                                       FAS         1818     A     
 FAS                MX1    -BT.KL                                                          FAS         1819     A     
 FAS                LX5    -DB.INCP                                                        FAS         1820     A     
 FAS                BX2    -X1*X5      K = INC[DBI]                                        FAS         1821     A     
 FAS       7        ERRMI  DB.INCL-BT.KL     TRUNCATE INCREMENT                            FAS         1822          I
          -FC5A132
 FAS                SA3    BT.REP+1                                                        FAS         1823          I
          -FC5A132
 FAS                ERRMI  DB.INCL-BT.KL                                                   FC5A132      140     A     
 FAS                MX1    -BT.CL                                                          FC5A132      141     A     
 FAS                SA3    BT.XREP+1                                                       FC5A132      142     A     
 FAS                LX2    BT.KP                                                           FAS         1824     A     
 FAS                LX5    DB.INCP-DB.CNTP                                                 FAS         1825     A     
 FAS                BX1    -X1*X5      C = CNT[DBI]                                        FAS         1826     A     
 FAS                ERRNZ  BT.CL-BT.KL                                                     FAS         1827          I
          -FC5A132
 FAS                ERRMI  DB.CNTL-BT.CL                                                   FC5A132      143     A     
 FAS                BX7    X3+X2       ADD IN K FILED                                      FAS         1828     A     
 FAS                SA7    A3          (BT.REP+1) = (K,RS,AS) [BT.]                        FAS         1829          I
          -FC5A132
 FAS                SA7    A3          (BT.XREP+1) = (K,RS,AS) [BT.]                       FC5A132      144     A     
 FAS                LX2    -BT.KP                                                          FAS         1830     A     
 FAS                LX1    BT.CP                                                           FAS         1831     A     
 FAS                BX6    X0          B = WCI                                             FAS         1832     A     
 FAS                LX6    BT.BP                                                           FAS         1833     A     
 FAS                BX6    X6+X1                                                           FAS         1834     A     
 FAS                CLAS=  X4,BT,(RS,AS)                                                   FAS         1835     A     
 FAS                BX4    X4*X7       RD = RS,(RELOCATION BASE OF SOURCE)                 FAS         1836     A     
 FAS                IX1    X4+X2       AD = AS + K                                         FAS         1837     A     
 FAS                BX6    X6+X1                                                           FAS         1838     A     
 FAS                SA6    A7+B1       (BT.REP+2) = (C,B,RD,AD) [BT.]                      FAS         1839          I
          -FC5A132
 FAS                SA6    A7+B1       (BT.XREP+2) = (C,B,RD,AD) [BT.]                     FC5A132      145     A     
 FAS                                                                                       FAS         1840     A     
 FAS      *         OUTPUT DATA WORDS.                                                     FAS         1841     A     
 FAS      *         ENTRY  (X0) = NO. OF WORDS TO OUTPUT                                   FAS         1842     A     
 FAS      *                A5 _ NEXT DATA WORD                                             FAS         1843     A     
 FAS                                                                                       FAS         1844     A     
 FAS       DDS70    SA5    A5+B1                                                           FAS         1845     A     
 FAS                BX2    0           INDICATE NO RELOCATION                              FAS         1846     A     
 FAS                SX0    X0-1                                                            FAS         1847     A     
 FAS                LX1    X5                                                              FAS         1848     A     
 FAS                RJ     STX         OUTPUT A WORD                                       FAS         1849     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         1850     A     
 FAS                MI     X0,"BLOWUP"       IF WORD COUNT ILL                             FAS         1851     A     
 FAS                NZ     X0,DDS70    IF MORE WORDS TO DO                                 FAS         1852     A     
 FAS                                                                                       FAS         1853     A     
 FAS                SA1    BT.REP+1                                                        FAS         1854          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
          -FC5A132
 FAS                SA1    BT.XREP+1                                                       FC5A132      146     A     
 FAS                ZR     X1,DDS10    IF NO REPLICATION                                   FAS         1855     A     
 FAS                RJ     DTX         FLUSH ANY PARTIAL TEXT TABLE                        FAS         1856     A     
 FAS                WLGO   BT.REP,BT.REPL                                                  FAS         1857          I
          -FC5A132
 FAS                WLGO   BT.XREP,BT.XREPL                                                FC5A132      147     A     
 FAS                EQ     DDS10                                                           FAS         1858     A     
 FAS                                                                                       FAS         1859     A     
 FAS      *         ALLOCATE ENTRY FOR PTEXT/ PTEXTR TABLE.                                FAS         1860     A     
 FAS      *         (X0) = WCI                                                             FAS         1861     A     
 FAS      *         A1 _ T.PTXT/ T.PTXTR                                                   FAS         1862     A     
 FAS                                                                                       FAS         1863     A     
 FAS       DDS80    SB2    X0          REMEMBER (B2) = (X0)                                FAS         1864     A     
 FAS                ALLOC  A1,X0                                                           FAS         1865          I
          -FC50809
 FAS                =B3    0           INITIALIZE HEADER POINTER                           FC50809       17     A     
 FAS                                                                                       FC50809       18     A     
 FAS       DDS81    SA2    X1+B3       FETCH CURRENT HEADER                                FC50809       19     A     
 FAS                SBIT   X2,DC.LINKP                                                     FC50809       20     A     
 FAS                PL     X2,DDS82    IF NO CHAIN, THIS GROUP                             FC50809       21     A     
 FAS                LX2    DC.LINKL+DC.LINKP-DC.PTRP                                       FC50809       22     A     
 FAS                SB3    X2          EXTRACT POINTER TO NEXT HEADER                      FC50809       23     A     
 FAS                ERRNZ  18-DC.PTRL                                                      FC50809       24     A     
 FAS                EQ     DDS81                                                           FC50809       25     A     
 FAS                                                                                       FC50809       26     A     
 FAS       DDS82    LX2    DC.LINKL+DC.LINKP                                               FC50809       27     A     
 FAS                IX7    X0+X2                                                           FC50809       28     A     
 FAS                SX3    BT=MXWC                                                         FC50809       29     A     
 FAS                IX3    X3-X7                                                           FC50809       30     A     
 FAS                PL     X3,DDS83    IF ROOM IN GROUP FOR THIS ENTRY                     FC50809       31     A     
 FAS                SA3    A1+N.TABLE                                                      FC50809       32     A     
 FAS                CLAS=  X7,DC,(LINK)                                                    FC50809       33     A     
 FAS                LX3    DC.PTRP     LINK TO NEW GROUP HEADER                            FC50809       34     A     
 FAS                BX7    X7+X2                                                           FC50809       35     A     
 FAS                BX7    X7+X3                                                           FC50809       36     A     
 FAS                SA7    A2          UPDATE HEADER                                       FC50809       37     A     
 FAS                BX6    X0          CURRENT COUNT WILL BE NEXT HEADER                   FC50809       38     A     
 FAS                ADDWD  A1          ADD NEW HEADER                                      FC50809       39     A     
 FAS                SX0    B2          RESTORE COUNT                                       FC50809       40     A     
 FAS                EQ     DDS84                                                           FC50809       41     A     
 FAS                                                                                       FC50809       42     A     
 FAS       DDS83    SA7    A2          UPDATE HEADER                                       FC50809       43     A     
 FAS                                                                                       FC50809       44     A     
 FAS       DDS84    ALLOC  A1,X0                                                           FC50809       45     A     
 FAS                SX3    B7-B2       FWATO = LWA(TABLE) - WCI                            FAS         1866     A     
 FAS                SA1    T.DATS                                                          FAS         1867     A     
 FAS                SX2    X1+B4       FWAFR = FWA(T.DATS) + IND                           FAS         1868     A     
 FAS                MOVE   B2,X2,X3    COPY WCI WORDS FROM T.DATS TO TABLE                 FAS         1869     A     
 FAS                SX0    B2          RESTORE (X0)                                        FAS         1870     A     
 FAS                                                                                       FAS         1871     A     
 FAS       DDS85    SB4    B4+X0       IND = IND + WCI                                     FAS         1872     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                EQ     DDS10                                                           FAS         1873     A     
 FAS                                                                                       FAS         1874     A     
 FAS      *         FLUSH *PTEXT* AND *PTEXTR* TABLES.                                     FAS         1875     A     
 FAS                                                                                       FAS         1876     A     
 FAS       DDS90    RJ     DTX         FLUSH ANY PARTIAL TEXT                              FAS         1877     A     
 FAS                MX0    0           NO BT.LTB BIT FOR THIS                              FAS         1878          I
          -FC50809
 FAS                MX6    0                                                               FC50809       46     A     
 FAS                ADDWD  T.PTXT      ADD DUMMY HEADER TO FLAG EOT                        FC50809       47     A     
 FAS                SA5    T.PTXT                                                          FAS         1879     A     
 FAS                SA0    BT.PTEXT                                                        FAS         1880          I
          -FC50809
 FAS                RJ     OTB         OUTPUT TABLE TO BINARY                              FAS         1881          I
          -FC50809
 FAS       DDS100   SA5    T.PTXTR                                                         FAS         1882          I
          -FC50809
 FAS                SA0    BT.PTEXT                                                        FAS         1883          I
          -FC50809
 FAS                RJ     OTB         OUTPUT TABLE TO BINARY                              FAS         1884          I
          -FC50809
 FAS                RJ     OTC         OUTPUT TABLE TO BINARY                              FC50809       48     A     
 FAS                SHRINK T=PTXT,0                                                        FC50809       49     A     
 FAS                MX6    0                                                               FC50809       50     A     
 FAS                ADDWD  T.PTXTR     ADD DUMMY HEADER TO FLAG EOT                        FC50809       51     A     
 FAS                SA5    T.PTXTR                                                         FC50809       52     A     
 FAS                RJ     OTC         OUTPUT TABLE TO BINARY                              FC50809       53     A     
 FAS                SHRINK T=PTXTR,0                                                       FC50809       54     A     
 FAS                EQ     EXIT.                                                           FAS         1885     A     
 FAS       DFD      SPACE  4,10                                                            FAS         1886     A     
 FAS      **        DFD -  DUMP 5700/5600 TABLES                                           FAS         1887     A     
 FAS      *         DUMPS STATEMENT/LINE NUMBER (5700) AND LOADER SYMBOL (5600)            FAS         1888     A     
 FAS      *         TABLES TO BINARY.                                                      FAS         1889     A     
 FAS      *                                                                                FAS         1890     A     
 FAS      *         5700 TABLES                                                            FAS         1891     A     
 FAS      *                                                                                FAS         1892     A     
 FAS      *         THE INFORMATION FOR 5700 TABLES EXISTS IN T.LNT IN CORRECT             FAS         1893     A     
 FAS      *         FORMAT.  IT ONLY REMAINS TO OUTPUT THE INFORMATION TO LGO.             FAS         1894     A     
 FAS      *         5700 TABLES ARE GENERATED BY DETERMINING FIRST IF ALL THE              FAS         1895     A     
 FAS      *         INFORMATION IN T.LNT WILL FIT INTO ONE TABLE (LE 7777B WORDS).         FAS         1896     A     
 FAS      *         IF SO, ONE 5700 TABLE CONTAINING ALL THE INFORMATION WILL              FAS         1897     A     
 FAS      *         BE BUILT.  IF NOT, AS MANY 5700 TABLES OF MAXIMUM SIZE (7777B)         FAS         1898     A     
 FAS      *         WILL BE BUILT AS NECESSARY, UNTIL ALL INFORMATION IS                   FAS         1899     A     
 FAS      *         PROCESSED.                                                             FAS         1900     A     
 FAS      *                                                                                FAS         1901     A     
 FAS      *         5600 TABLES                                                            FAS         1902     A     
 FAS      *                                                                                FAS         1903     A     
 FAS      *         5600 TABLE CONSISTS OF DIMENSION INFORMATION TABLE AND SYMBOL          FAS         1904     A     
 FAS      *         TABLE INFORMATION.                                                     FAS         1905     A     
 FAS      *         DIMENSION INFORMATION IS FORMATTED WAY AS NAMELIST RUN-TIME            FAS         1906     A     
 FAS      *         DIMENSION TABLE, THREE WORDS PER ENTRY.                                FAS         1907     A     
 FAS      *         LOADER SYMBOL TABLE IS ALSO A THREE WORD ENTRY, FORMATTED AS           FAS         1908     A     
 FAS      *         (WA., S2., S3.)                                                        FAS         1909     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                                                                                FAS         1910     A     
 FAS      *         ENTRY  NONE                                                            FAS         1911     A     
 FAS      *         CALLS  OTB,STX,ORD,FST                                                 FAS         1912     A     
 FAS                                                                                       FAS         1913     A     
 FAS                                                                                       FAS         1914     A     
 FAS       DFD      SUBR   0                                                               FAS         1915     A     
 FAS                                                                                       FAS         1916     A     
 FAS                                                                                       FAS         1917     A     
 FAS      **        PROCESS 5700 (LINE NUMBER) TABLE.                                      FAS         1918     A     
 FAS                                                                                       FAS         1919     A     
 FAS                SA1    WO.57                                                           FAS         1920     A     
 FAS                SA5    T.LNT                                                           FAS         1921     A     
 FAS                ZR     X1,DFD20    IF 5700 TABLE NOT REQUESTED                         FAS         1922     A     
 FAS                SA0    BT.LSTN                                                         FAS         1923     A     
 FAS                MX0    0           NO BT.LTB BIT FOR THIS                              FAS         1924     A     
 FAS                RJ     OTB         OUTPUT 5700 TABLE                                   FAS         1925     A     
 FAS                                                                                       FAS         1926     A     
 FAS      *         OUTPUT 5600 (SYMBOL) TABLE.                                            FAS         1927     A     
 FAS      *         FIRST, DUMP DIMENSION INFORMATION.                                     FAS         1928     A     
 FAS                                                                                       FAS         1929     A     
 FAS       DFD20    SA5    WO.56                                                           FAS         1930     A     
 FAS                ZR     X5,EXIT.    IF (5600) TABLE NOT REQUIRED                        FAS         1931     A     
 FAS                SA1    S=SA1       SA1ORD = (S=SA1)                                    FAS         1932     A     
 FAS                SA2    T.SYM                                                           FAS         1933     A     
 FAS                SB2    X1+WC.W                                                         FAS         1934     A     
 FAS                LX3    X1,B1                                                           FAS         1935     A     
 FAS                IX2    X2+X3       STINDS = 3 * SA1ORD                                 FAS         1936     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         1937     A     
 FAS                SA1    X2+B2       WCSA1 = T.SYM(STINDS) + WC.W                        FAS         1938     A     
 FAS                SA5    BT.LSYL                                                         FAS         1939     A     
 FAS                MX0    -MO.PTYPL+1                                                     FAS         1940     A     
 FAS                SA4    MOD                                                             FAS         1941     A     
 FAS                MX7    -WC.RAL                                                         FAS         1942     A     
 FAS                CLAS=  X3,BT,(DST)                                                     FAS         1943     A     
 FAS                LX4    -MO.PTYPP-1                                                     FAS         1944     A     
 FAS                LX1    -WC.RAP                                                         FAS         1945     A     
 FAS                BX7    -X7*X1                                                          FAS         1946     A     
 FAS                LX7    BT.SA1P                                                         FAS         1947     A     
 FAS                BX0    -X0*X4      PROG-UNIT TYPE = PTYP[MOD] / 2                      FAS         1948     A     
 FAS                BX7    X7+X3                                                           FAS         1949     A     
 FAS                LX0    BT.TYP                                                          FAS         1950     A     
 FAS                BX6    X5+X0                                                           FAS         1951     A     
 FAS                IX6    X6+X7                                                           FAS         1952     A     
 FAS                SA6    A5+B1       (BT.LSYM) = (DST,TYP,SA1) [BT.]                     FAS         1953     A     
 FAS                ERRNZ  BT.LSYL+1-BT.LSYM                                               FAS         1954     A     
 FAS                MX7    1           DUMP ALL DIM ENTRIES                                FAS         1955     A     
 FAS                LX7    1+DH.MATP                                                       FAS         1956     A     
 FAS                RJ     ORD         COLLECT RUN-TIME DIM INFO IN SCRATCH TABLE          FAS         1957     A     
 FAS                SA5    T.SCR                                                           FAS         1958     A     
 FAS                SA0    BT.LSYM                                                         FAS         1959     A     
 FAS                MX0    0           NO LTB BIT SET                                      FAS         1960     A     
 FAS                RJ     OTB         OUTPUT TABLE TO BINARY                              FAS         1961     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS         1962     A     
 FAS                                                                                       FAS         1963     A     
 FAS      **        FORM LOADER SYMBOL TABLE.                                              FAS         1964     A     
 FAS      *         IT IS ACCUMULATED IN A SRATCH TABLE (T.SCR) BEFORE DUMPED TO           FAS         1965     A     
 FAS      *         BINARY IN CHUNKS OF (7777) WORDS.                                      FAS         1966     A     
 FAS                                                                                       FAS         1967     A     
 FAS                                                                                       FAS         1968     A     
 FAS                ERRNZ  Z=SYM-BT=LSYML                                                  FAS         1969     A     
 FAS                SHRINK T=SCR,0                                                         FAS         1970     A     
 FAS                SA1    BT.LSYM                                                         FAS         1971     A     
 FAS                SA4    T=SYM                                                           FAS         1972     A     
 FAS                CLAS=  X2,BT,(DST)                                                     FAS         1973     A     
 FAS                BX6    -X2*X1                                                          FAS         1974     A     
 FAS                SA6    A1          DST[BT.LSYM] = 0                                    FAS         1975     A     
 FAS                ALLOC  T.SCR,X4-Z=SYM                                                  FAS         1976     A     
 FAS                RJ     FST         FORM SYMBOL TABLE                                   FAS         1977     A     
 FAS                                                                                       FAS         1978     A     
 FAS      *         DUMP SYMBOL TABLE TO BINARY.                                           FAS         1979     A     
 FAS                                                                                       FAS         1980     A     
 FAS                SA5    T.SCR                                                           FAS         1981     A     
 FAS                SA0    BT.LSYM     (A0) -> HEADER WORD                                 FAS         1982     A     
 FAS                MX0    1                                                               FAS         1983     A     
 FAS                LX0    1+BT.LTBP                                                       FAS         1984     A     
 FAS                RJ     OTB                                                             FAS         1985     A     
 FAS                EQ     EXIT.                                                           FAS         1986     A     
 FAS                                                                                       FAS         1987     A     
 FAS       DIT      SPACE  4,10                                                            FAS         1988     A     
 FAS      **        DIT - DUMP IDENTIFICATION TABLES FOR LOADER.                           FAS         1989     A     
 FAS      *                                                                                FAS         1990     A     
 FAS      *                                                                                FAS         1991     A     
 FAS      *         THIS ROUTINE PUMPS OUT --                                              FAS         1992     A     
 FAS      *                                                                                FAS         1993     A     
 FAS      *         1.  IDNT  (77)  TABLE                                                  FAS         1994     A     
 FAS      *         2.  LDSET (70)  DIRECTIVE      (IF NOT *BLOCKDATA*)                    FAS         1995     A     
 FAS      *         3.  PIDL  (34)  TABLE                                                  FAS         1996     A     
 FAS      *         4.  ENTR  (36)  TABLE          (IF NOT *BLOCKDATA*)                    FAS         1997     A     
 FAS      *                                                                                FAS         1998     A     
 FAS      *         USES   ALL BUT *A0*.                                                   FAS         1999     A     
 FAS      *                (T.SCR) FOR BUILDING SOME SCRATCH TABLES.                       FAS         2000     A     
 FAS      *         CALLS  ALLOC(ALC), DLC, PIT, WLGO(WLF).                                FAS         2001     A     
 FAS                                                                                       FAS         2002     A     
 FAS                                                                                       FAS         2003     A     
 FAS       DIT      SUBR   0           ENTRY/EXIT...                                       FAS         2004     A     
 FAS                RJ     PIT         PUMPS OUT IDNT TABLE                                FAS         2005     A     
 FAS                SA3    MOD                                                             FAS         2006     A     
 FAS                IFBIT  X3,MO.BLKP,DIT10                                                FAS         2007          I
          -FC5A231
 FAS                SBIT   X3,MO.BLKP                                                      FC5A231      141     A     
 FAS                MI     X3,DIT10    IF BLOCK DATA                                       FC5A231      142     A     
 FAS                RJ     DLC         DUMP LOADSET CONTROL                                FAS         2008     A     
 FAS                                                                                       FAS         2009     A     
 FAS      **        PIDL - PROGRAM IDENTIFICATION AND LENGTH TABLE.                        FAS         2010     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                ALSO CONTAINS THE LOCAL COMMON BLOCK TABLE.                     FAS         2011     A     
 FAS                                                                                       FAS         2012     A     
 FAS       DIT10    SA2    T=BLKS                                                          FAS         2013     A     
 FAS                AX4    X2,B1                                                           FAS         2014     A     
 FAS                ERRNZ  2-Z=BLKS                                                        FAS         2015     A     
 FAS                SHRINK T=SCR,0                                                         FAS         2016     A     
 FAS                ALLOC  T.SCR,X4+1  ALLOCATE (T=BLKS/Z=BLKS)+1 WORDS FOR *PIDL*         FAS         2017     A     
 FAS                SA3    IDENT                                                           FAS         2018     A     
 FAS                SA5    SUM.LBT                                                         FAS         2019     A     
 FAS                SB7    X2          PLEN = LEN[T.SCR]                                   FAS         2020     A     
 FAS                LX4    BT.WCP                                                          FAS         2021     A     
 FAS                SA2    CO.DBPM                                                         FAS         2022     A     
 FAS                =X7    BT=PIDL                                                         FAS         2023     A     
 FAS                LX7    BT.CNP                                                          FAS         2024     A     
 FAS                LX2    1+BT.PMDTP  SET BT.PMDT BIT IF PMDMP REQUESTED                  FAS         2025     A     
 FAS                BX7    X7+X2                                                           FAS         2026     A     
 FAS                BX6    X5+X3                                                           FAS         2027     A     
 FAS                BX7    X7+X4                                                           FAS         2028     A     
 FAS                SA7    X1          *PIDL* HEADER WORD                                  FAS         2029     A     
 FAS                =A6    A7+1        *PIDL* PROGRAM NAME WORD                            FAS         2030     A     
 FAS                SA5    T.BLKS                                                          FAS         2031     A     
 FAS                =A4    X5+CA.W     CAI = (T.BLKS) + CA.W                               FAS         2032     A     
 FAS                =B4    Z=BLKS                                                          FAS         2033     A     
 FAS                =B3    2           PIND = 2, (ACCOUNT FOR HEADER WORDS)                FAS         2034     A     
 FAS                MX0    CA.BNAML                                                        FAS         2035     A     
 FAS                MX7    -CB.BLENL                                                       FAS         2036     A     
 FAS                                                                                       FAS         2037     A     
 FAS      *         PROCESS NEXT ENTRY OF T.BLKS.                                          FAS         2038     A     
 FAS      *         (A4) _ CAI                                                             FAS         2039     A     
 FAS      *         (X0) = CA.BNAM MASK                                                    FAS         2040     A     
 FAS      *         (X1) = T.SCR                                                           FAS         2041     A     
 FAS      *         (X7) = CB.BLEN MASK                                                    FAS         2042     A     
 FAS      *         (B3) = PIND                                                            FAS         2043     A     
 FAS      *         (B4) = Z=BLKS                                                          FAS         2044     A     
 FAS      *         (B7) = PLEN                                                            FAS         2045     A     
 FAS                                                                                       FAS         2046     A     
 FAS       DIT20    GE     B3,B7,DIT60 IF NO MORE BLOCKS                                   FAS         2047     A     
 FAS                SA4    A4+B4       CAI = NEXT CA ENTRY OF T.BLKS                       FAS         2048     A     
 FAS                =A5    A4-CA.W+CB.W      CBI = CB ENTRY                                FAS         2049     A     
 FAS                BX4    X4*X0                                                           FAS         2050     A     
 FAS                BX3    -X7*X5      BLENI = BLEN[CBI]                                   FAS         2051     A     
 FAS                MX6    -3                                                              FAS         2052     A     
 FAS                IFBIT  X5,-CB.LCMP,DIT50 IF NOT LCM/ECS                                FAS         2053          I
          -FC5A231
 FAS                SBIT   X5,CB.LCMP                                                      FC5A231      143     A     
 FAS                PL     X5,DIT50    IF NOT LCM/ECS                                      FC5A231      144     A     
 FAS                                                                                       FAS         2054     A     
 FAS      *         ECS/LCM BLOCKS..  USE  LENGTH = BLENI/8 -- ROUNDED UP.                 FAS         2055     A     
 FAS                                                                                       FAS         2056     A     
 FAS                BX5    -X6*X3      GRAB REMAINDER                                      FAS         2057     A     
 FAS                AX3    3           BLENI = BLENI / 8                                   FAS         2058     A     
 FAS                ZR     X5,DIT40    IF DIVISION EXACT                                   FAS         2059     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                =X6    1                                                               FAS         2060     A     
 FAS                IX3    X3+X6       BLENI = BLENI + 1                                   FAS         2061     A     
 FAS       DIT40    CLAS=  X5,BT,(TYP) POSITION ECS/LCM BIT                                FAS         2062     A     
 FAS                BX3    X3+X5                                                           FAS         2063     A     
 FAS       DIT50    BX6    X4+X3                                                           FAS         2064     A     
 FAS                SA6    X1+B3       T.SCR(PIND) = 42/NAME,1/TYPE,17/LENGTH              FAS         2065     A     
 FAS                =B3    B3+1        PIND = PIND + 1                                     FAS         2066     A     
 FAS                EQ     DIT20                                                           FAS         2067     A     
 FAS                                                                                       FAS         2068     A     
 FAS       DIT60    WLGO   X1,B7       OUTPUT *PIDL* TABLE                                 FAS         2069     A     
 FAS                SA3    MOD                                                             FAS         2070     A     
 FAS                BX6    0                                                               FAS         2071     A     
 FAS                SBIT   X3,MO.BLKP                                                      FAS         2072     A     
 FAS                SHRINK T=SCR,X6    REMOVE THE ALLOCATION                               FAS         2073     A     
 FAS                MI     X3,EXIT.    IF  *BLOCKDATA*, EXIT...                            FAS         2074     A     
 FAS                                                                                       FAS         2075     A     
 FAS      **        DUMP *ENTR* TABLE.                                                     FAS         2076     A     
 FAS                                                                                       FAS         2077     A     
 FAS                SA5    T=ENT                                                           FAS         2078     A     
 FAS                LX0    X5,B1                                                           FAS         2079     A     
 FAS                SB5    X5          SAVE (B5) = LENGTH OF ENTRY POINT TABLE             FAS         2080     A     
 FAS                ALLOC  T.SCR,X0    ROOM TO BUILD THE *ENTR* TABLE                      FAS         2081     A     
 FAS                SA4    BT.ENTR                                                         FAS         2082     A     
 FAS                =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE                      FAS         2083     A     
 FAS                LX2    BT.WCP                                                          FAS         2084     A     
 FAS                BX6    X4+X2                                                           FAS         2085     A     
 FAS                SA3    T.SYM                                                           FAS         2086     A     
 FAS                =X0    1                                                               FAS         2087     A     
 FAS                SA5    T.ENT                                                           FAS         2088     A     
 FAS                =B4    X3+WC.W     (B4) = FWA SYMTAB + WORD WC OFFSET                  FAS         2089     A     
 FAS                LX0    BT.RLP                                                          FAS         2090     A     
 FAS                SA6    X1          *ENTR* CONTROL WORD                                 FAS         2091     A     
 FAS                SA4    X5          (A4) = FWA ENTRY PTS.                               FAS         2092     A     
 FAS                                                                                       FAS         2093     A     
 FAS       DIT70    SX5    X4          ISOLATE SYMORD                                      FAS         2094     A     
 FAS                ERRNZ  EP.ORDP                                                         FAS         2095     A     
 FAS                ERRNZ  EP.ORDL-18                                                      FAS         2096     A     
 FAS                LX2    X5,B1                                                           FAS         2097     A     
 FAS                IX7    X5+X2                                                           FAS         2098     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         2099     A     
 FAS                SA3    X7+B4       FETCH (X3) = SYMTAB WORD WC                         FAS         2100     A     
 FAS                =B5    B5-1                                                            FAS         2101     A     
 FAS                BX7    X4-X5       ISOLATE NAME                                        FAS         2102     A     
 FAS                ERRNZ  EP.NAMEL-42                                                     FAS         2103     A     
 FAS                ERRNZ  EP.NAMEP-18                                                     FAS         2104     A     
 FAS                LX3    -WC.RAP                                                         FAS         2105     A     
 FAS                SX6    X3                                                              FAS         2106     A     
 FAS                =A7    A6+1                                                            FAS         2107     A     
 FAS                BX6    X0+X6       INDICATE PROGRAM-RELATIVE ADDRESS                   FAS         2108     A     
 FAS                =A4    A4+1                                                            FAS         2109     A     
 FAS                =A6    A7+1                                                            FAS         2110     A     
 FAS                NZ     B5,DIT70    IF MORE ENTRY POINTS                                FAS         2111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS         2112     A     
 FAS                WLGO   X1,B7                                                           FAS         2113     A     
 FAS                SHRINK T=SCR       REMOVE THE ALLOCATION                               FAS         2114     A     
 FAS                EQ     EXIT.                                                           FAS         2115     A     
 FAS       DLC      SPACE  4,10                                                            FAS         2116     A     
 FAS      **        DLC - DUMP LOADSET CONTROL.                                            FAS         2117     A     
 FAS      *                                                                                FAS         2118     A     
 FAS      *         WRITES LDSET HEADER AND DIRECTIVES FOR --                              FAS         2119     A     
 FAS      *                (A)  LIB=                                                       FAS         2120     A     
 FAS      *                (B)  COMMON=      FOR SAVE STATEMENT                            FAS         2121     A     
 FAS      *                (C)  PRESET= + MAP=     FOR POST-MORTEM DUMP.                   FAS         2122     A     
 FAS      *         LDSET(COMMON=BLK1/.../BLKN) FOR EACH COMMON BLOCK                      FAS         2123     A     
 FAS      *                (AND SPECIAL LOCAL BLOCK S$A$V$E) ASSOCIATED WITH SAVE.         FAS         2124     A     
 FAS      *                IF UNIVERSAL SAVE IS ON, OUTPUT *LDSET COMMON (ALL)*            FAS         2125     A     
 FAS      *                ONLY.                                                           FAS         2126     A     
 FAS      *                                                                                FAS         2127     A     
 FAS      *         EXIT   LDSET COMMON DIRECTIVES DUMPPED TO BINARY                       FAS         2128          I
          -FC50353
 FAS      *         EXIT   LDSET DIRECTIVES DUMPED TO BINARY.                              FC50353       29     A     
 FAS      *                                                                                FAS         2129     A     
 FAS      *         USES   ALL.                                                            FAS         2130     A     
 FAS      *                (T.SCR)                                                         FAS         2131     A     
 FAS      *         CALLS  ALLOC, WLF                                                      FAS         2132     A     
 FAS                                                                                       FAS         2133     A     
 FAS                                                                                       FAS         2134     A     
 FAS       DLC      SUBR               ENTRY/EXIT...                                       FAS         2135     A     
 FAS                                                                                       FAS         2136     A     
 FAS      *         FIRST, ALLOCATE (T.SCR) WITH (MORE THAN) ENOUGH ROOM TO                FAS         2137     A     
 FAS      *         BUILD ALL THE LDSET DIRECTIVES.                                        FAS         2138     A     
 FAS      *                = 1 + (BT.LIBL) + (T=BLKS)/2 + (BT.DBPML)                       FAS         2139     A     
 FAS      *         KEEPS  (A6) -> LAST OCCUPIED WORD.                                     FAS         2140     A     
 FAS      *                (B6) -> T.SCR                                                   FAS         2141     A     
 FAS                                                                                       FAS         2142     A     
 FAS                SA2    T=BLKS                                                          FAS         2143     A     
 FAS                BX6    0                                                               FAS         2144     A     
 FAS                AX7    X2,B1                                                           FAS         2145     A     
 FAS                ERRNZ  2-Z=BLKS                                                        FAS         2146     A     
 FAS                SHRINK T=SCR,X6                                                        FAS         2147     A     
 FAS                SB5    X7          CLEN = LEN(T.BLKS) / Z=BLKS                         FAS         2148     A     
 FAS                SX0    X7+1+BT.DBPML+BT.LIBL                                           FAS         2149     A     
 FAS                ALLOC  T.SCR,X0    ALLOCATE ENOUGH WORDS FOR IT                        FAS         2150     A     
 FAS                SB6    X1                                                              FAS         2151     A     
 FAS                                                                                       FAS         2152     A     
 FAS                SA2    BT.LIB                                                          FAS         2153     A     
 FAS                BX6    X2                                                              FAS         2154     A     
 FAS                SA6    X1+B1       MOVE *LDSET(LIB=...)* INTO TABLE                    FAS         2155     A     
 FAS       .1       DUP    BT.LIBL-1                                                       FAS         2156     A     
 FAS                SA2    A2+B1                                                           FAS         2157     A     
 FAS                BX6    X2                                                              FAS         2158     A     
 FAS                SA6    A6+B1                                                           FAS         2159     A     
 FAS       .1       ENDD                                                                   FAS         2160     A     
 FAS                                                                                       FAS         2161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS         2162     A     
 FAS      *         CONSTRUCT *LDSET(COMMON) SUB-DIRECTIVE.                                FAS         2163     A     
 FAS                                                                                       FAS         2164     A     
 FAS                SA4    USAVE                                                           FAS         2165     A     
 FAS                SA5    SAVE                                                            FAS         2166     A     
 FAS                BX6    X4+X5                                                           FAS         2167     A     
 FAS                ZR     X6,DLC40    IF NO SAVE DECLARATIONS                             FAS         2168     A     
 FAS                SA6    A6+B1       SPACE OVER (BT.CMN) SUB-HEADER                      FAS         2169     A     
 FAS                SB2    A6          (B2) = FWA COMMON SEGMENT                           FAS         2170     A     
 FAS                NZ     X4,DLC30    IF UNIVERSAL SAVE                                   FAS         2171     A     
 FAS                                                                                       FAS         2172     A     
 FAS      *         EXPLICIT SAVE... FOR EACH COMMON BLOCK, CBI, WHICH HAS                 FAS         2173     A     
 FAS      *         SAVE[CBI] = 1, ADD NAME[CBI] TO (T.SCR).                               FAS         2174     A     
 FAS                                                                                       FAS         2175     A     
 FAS                SA5    T.BLKS                                                          FAS         2176     A     
 FAS                =A4    X5+CB.W     CBI = FWA(T.BLKS) + CB.W                            FAS         2177     A     
 FAS                =B4    Z=BLKS                                                          FAS         2178     A     
 FAS                SB5    B5-B1       FIRST ENTRY IN T.BLKS IS NOT USED.                  FC5A427        6     A     
 FAS                MX0    CA.BNAML                                                        FAS         2179     A     
 FAS                                                                                       FAS         2180     A     
 FAS      *         PROCESS NEXT ENTRY OF T.BLKS.                                          FAS         2181     A     
 FAS      *                (A4) -> CBI                                                     FAS         2182     A     
 FAS      *                (A6) -> LAST OCCUPIED WORD                                      FAS         2183     A     
 FAS      *                (X0) = CA.BNAM MASK                                             FAS         2184     A     
 FAS      *                (B4) = Z=BLKS                                                   FAS         2185     A     
 FAS      *                (B5) = CLEN                                                     FAS         2186     A     
 FAS                                                                                       FAS         2187     A     
 FAS       DLC20    SA4    A4+B4       CBI = NEXT CB ENTRY OF T.BLKS                       FAS         2188     A     
 FAS                =A2    A4-CB.W+CA.W      CAI = CA ENTRY                                FAS         2189     A     
 FAS                SB5    B5-B1                                                           FAS         2190     A     
 FAS                HX4    CB.SAVE                                                         FAS         2191     A     
 FAS                BX6    X0*X2       NAME = BNAM[CAI]                                    FAS         2192     A     
 FAS                PL     X4,DLC28    IF NOT SAVE[CBI]                                    FAS         2193     A     
 FAS                SA6    A6+B1                                                           FAS         2194     A     
 FAS       DLC28    GT     B5,DLC20    IF MORE BLOCKS TO EXAMINE                           FAS         2195     A     
 FAS                                                                                       FAS         2196     A     
 FAS       DLC30    SX2    BT=CMN                                                          FAS         2197     A     
 FAS                SX6    A6-B2       (X6) = NUMBER OF EXPLICIT BLOCKS ADDED              FAS         2198     A     
 FAS                LX2    BT.CNP                                                          FAS         2199     A     
 FAS                LX6    BT.WCP                                                          FAS         2200     A     
 FAS                BX7    X6+X2       ADD IN WC TO HEADER WORD                            FAS         2201     A     
 FAS                SA7    B2                                                              FAS         2202     A     
 FAS                                                                                       FAS         2203     A     
 FAS      *         OUTPUT *LDSET PREST* AND *LDSET MAP* DIRECTIVES FOR PMDMP.             FAS         2204     A     
 FAS                                                                                       FAS         2205     A     
 FAS       DLC40    SA4    CO.DBPM                                                         FAS         2206     A     
 FAS                ZR     X4,DLC60    IF POST MORTEM DUMP NOT REQUESTED                   FAS         2207     A     
 FAS                SB2    BT.DBPML                                                        FAS         2208     A     
 FAS                SA4    BT.DBPM                                                         FAS         2209     A     
 FAS       DLC45    BX6    X4          MOVE PMD WORD INTO (T.SCR)                          FAS         2210     A     
 FAS                SB2    B2-B1                                                           FAS         2211     A     
 FAS                SA6    A6+B1                                                           FAS         2212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA4    A4+B1                                                           FAS         2213     A     
 FAS                GT     B2,DLC45    IF MORE PMD STUFF TO MOVE                           FAS         2214     A     
 FAS                                                                                       FAS         2215     A     
 FAS      *         ALL NECESSARY DIRECTIVES IN PLACE.  COMPUTE LENGTH,                    FAS         2216     A     
 FAS      *         MANUFACTURE HEADING, AND WRITE OUT THE LOADER TABLE.                   FAS         2217     A     
 FAS                                                                                       FAS         2218     A     
 FAS       DLC60    SX2    A6-B6       (X2) = LWA - FWA = WORDS, EXCLUDING HEADER          FAS         2219     A     
 FAS                SX3    BT=LDSET                                                        FAS         2220     A     
 FAS                SB7    X2+B1       (B7) = W.C., INCLUDING HEADER                       FAS         2221     A     
 FAS                LX2    BT.WCP                                                          FAS         2222     A     
 FAS                LX3    BT.CNP                                                          FAS         2223     A     
 FAS                BX7    X2+X3                                                           FAS         2224     A     
 FAS                SA7    B6                                                              FAS         2225     A     
 FAS                WLGO   B6,B7       WRITE LOADSET DIRECTIVES                            FAS         2226     A     
 FAS                SHRINK T=SCR,0                                                         FAS         2227     A     
 FAS                EQ     EXIT.                                                           FAS         2228     A     
 FAS       DLF      SPACE  4,30                                                            FAS         2229     A     
 FAS      **        DLF -  DUMP *LINK*, *FILL*, AND *XFILL* TABLES.                        FAS         2230     A     
 FAS      *                                                                                FAS         2231     A     
 FAS      *         DUMPS LINK AND FILL TABLES TO BINARY.                                  FAS         2232     A     
 FAS      *                                                                                FAS         2233     A     
 FAS      *         TABLE MANAGER MAY CALL THIS ROUTINE TO FREE UP TABLE SPACE.            FAS         2234     A     
 FAS      *         BASIC IDEA STOLEN FROM *DLAST* IN *COMPASS VER 2.0*.                   FAS         2235     A     
 FAS      *         CALLS  SRT, WLF.                                                       FAS         2236     A     
 FAS      *                                                                                FAS         2237     A     
 FAS      *         KEEPS  A0                                                              FAS         2238     A     
 FAS                                                                                       FAS         2239     A     
 FAS                                                                                       FAS         2240     A     
 FAS       DLF      SUBR   =           ENTRY/EXIT...                                       FAS         2241     A     
 FAS                                                                                       FAS         2242     A     
 FAS      *         PROCESS *LINK* TABLE.                                                  FAS         2243     A     
 FAS                                                                                       FAS         2244     A     
 FAS       SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                                   FAS         2245     A     
 FAS                SA3    CO.SNAP                                                         FAS         2246     A     
 FAS                LX3    1RK                                                             FAS         2247     A     
 FAS                PL     X3,DLF10S   IF LINK TABLE SNAP NOT SELECTED                     FAS         2248     A     
 FAS                DUMPT  LINK                                                            FAS         2249     A     
 FAS       DLF10S   BSS    0                                                               FAS         2250     A     
 FAS       SNAP=K   ENDIF                                                                  FAS         2251     A     
 FAS                                                                                       FAS         2252     A     
 FAS                SX6    A0                                                              FAS         2253     A     
 FAS                SA6    DLFA        PRESERVE A0                                         FAS         2254     A     
 FAS                SA2    T=LINK                                                          FAS         2255     A     
 FAS                SA1    T.LINK                                                          FAS         2256     A     
 FAS                SA3    NREXT                                                           FAS         2257     A     
 FAS                IX4    X1+X3                                                           FAS         2258     A     
 FAS                IX1    X2-X3       (X1) = LENGTH FOR SORT                              FAS         2259     A     
 FAS                ZR     X1,DLF60    IF NO EXTERNALS                                     FAS         2260     A     
 FAS                MI     X1,"BLOWUP" IF NREXT .LT. (T=LINK)                              FAS         2261     A     
 FAS                SB7    X4          (B7) = FWA FOR SORT                                 FAS         2262     A     
 FAS                CALL   SST         SHELL SORT TABLE                                    FAS         2263     A     
 FAS                                                                                       FAS         2264     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA1    T.LINK                                                          FAS         2265     A     
 FAS                SA2    T=LINK                                                          FAS         2266     A     
 FAS                SA3    T.SYM                                                           FAS         2267     A     
 FAS                SA4    NREXT                                                           FAS         2268     A     
 FAS                IX5    X2-X4       LINK LENGTH                                         FAS         2269     A     
 FAS                SA0    X3          A0 = FWA NAME TAB                                   FAS         2270     A     
 FAS                IX0    X1+X4                                                           FAS         2271     A     
 FAS                SB7    X5          B7 = (LEN LINK)                                     FAS         2272     A     
 FAS                SA5    X0                                                              FAS         2273     A     
 FAS                SB4    X1          (B4) = FWA PHYSICAL TABLE                           FAS         2274     A     
 FAS                SB6    30                                                              FAS         2275     A     
 FAS                SA6    X1          PRESET STORE ADDR                                   FAS         2276     A     
 FAS                MX1    WA.SYML                                                         FAS         2277     A     
 FAS                MX0    30                                                              FAS         2278     A     
 FAS                SB5    -B1                                                             FAS         2279     A     
 FAS                SB2    -B1                                                             FAS         2280     A     
 FAS                                                                                       FAS         2281     A     
 FAS       DLF10    AX2    X5,B6       ISOLATE EXT NO                                      FAS         2282     A     
 FAS                SB3    X2                                                              FAS         2283     A     
 FAS                SB2    B2+B1                                                           FAS         2284     A     
 FAS                BX7    -X0*X5      ISOLATE 30/OUTPUT STUFF                             FAS         2285     A     
 FAS                EQ     B3,B5,DLF30 IF SAME AS LAST EXT                                 FAS         2286     A     
 FAS                SA3    B3+A0       FETCH EXT NAME                                      FAS         2287     A     
 FAS                SB5    B3                                                              FAS         2288     A     
 FAS                LX6    30                                                              FAS         2289     A     
 FAS                ZR     B2,DLF20    IF NO HANGING HALF-WORD                             FAS         2290     A     
 FAS                SA6    A6+B1                                                           FAS         2291     A     
 FAS       DLF20    BX6    X1*X3       ISOLATE NAME                                        FAS         2292     A     
 FAS                SB2    B0                                                              FAS         2293     A     
 FAS                SA6    A6+B1       STORE NEW NAME                                      FAS         2294     A     
 FAS                BX6    0                                                               FAS         2295     A     
 FAS       DLF30    SB7    B7-B1                                                           FAS         2296     A     
 FAS                LX4    X6,B6                                                           FAS         2297     A     
 FAS                BX6    X7+X4                                                           FAS         2298     A     
 FAS                SA5    A5+B1                                                           FAS         2299     A     
 FAS                ZR     B2,DLF40    IF LOWER BYTE                                       FAS         2300     A     
 FAS                SA6    A6+B1                                                           FAS         2301     A     
 FAS                SB2    -B1                                                             FAS         2302     A     
 FAS                BX6    0                                                               FAS         2303     A     
 FAS       DLF40    NZ     B7,DLF10    IF TABLE NOT EXHAUSTED                              FAS         2304     A     
 FAS                LX6    30                                                              FAS         2305     A     
 FAS                MI     B2,DLF50    IF NO HANGING HALF-WORD                             FAS         2306     A     
 FAS                SA6    A6+B1                                                           FAS         2307     A     
 FAS       DLF50    SX7    A6-B4       RESULTANT SIZE OF LINK TABLE                        FAS         2308     A     
 FAS                SA1    T.LINK                                                          FAS         2309     A     
 FAS                =B7    X7+1                                                            FAS         2310     A     
 FAS                SX4    BT=LINK                                                         FAS         2311     A     
 FAS                LX7    BT.WCP                                                          FAS         2312     A     
 FAS                SB6    X1                                                              FAS         2313     A     
 FAS                LX4    BT.CNP                                                          FAS         2314     A     
 FAS                BX6    X4+X7       FORM *LINK* CONTROL WORD                            FAS         2315     A     
 FAS                SA6    B6                                                              FAS         2316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                WLGO   B6,B7       WRITE OUT THE LINK TABLE                            FAS         2317     A     
 FAS                                                                                       FAS         2318     A     
 FAS       DLF60    SA1    NREXT                                                           FAS         2319     A     
 FAS                SHRINK T=LINK,X1                                                       FAS         2320     A     
 FAS                                                                                       FAS         2321     A     
 FAS      *         PROCESS *FILL* TABLE.                                                  FAS         2322     A     
 FAS                                                                                       FAS         2323     A     
 FAS                SA1    T=FILL                                                          FAS         2324     A     
 FAS                SA2    T.FILL                                                          FAS         2325     A     
 FAS                SB6    X1                                                              FAS         2326     A     
 FAS                BX6    0                                                               FAS         2327     A     
 FAS                EQ     B6,B1,DLF120      IF EMPTY FILL TABLE                           FAS         2328     A     
 FAS                SB7    X2          ZERO THE DUMMY WORD SO SORT WONT MOVE IT            FAS         2329     A     
 FAS                SA6    X2                                                              FAS         2330     A     
 FAS                CALL   SST                                                             FAS         2331     A     
 FAS                                                                                       FAS         2332     A     
 FAS                SA1    T.FILL                                                          FAS         2333     A     
 FAS                SA2    T=FILL                                                          FAS         2334     A     
 FAS                MX0    -30                                                             FAS         2335     A     
 FAS                SB2    30                                                              FAS         2336     A     
 FAS                SB6    X1          B6 =  FWA  TABLE                                    FAS         2337     A     
 FAS                BX7    0                                                               FAS         2338     A     
 FAS                SB4    X2+B6       B4 = LWA+1 TABLE                                    FAS         2339     A     
 FAS                SA1    B6+B1       FETCH FIRST ENTRY                                   FAS         2340     A     
 FAS                SHRINK A2,1                                                            FAS         2341     A     
 FAS                SA6    B6-B1                                                           FAS         2342     A     
 FAS                SB3    B6+B1                                                           FAS         2343     A     
 FAS                                                                                       FAS         2344     A     
 FAS       DLF70    BX6    X6+X3                                                           FAS         2345     A     
 FAS                SB5    30                                                              FAS         2346     A     
 FAS                SA6    A6+B1                                                           FAS         2347     A     
 FAS       DLF80    GE     B3,B4,DLF100      IF TABLE EXHAUSTED                            FAS         2348     A     
 FAS                AX2    X1,B2                                                           FAS         2349     A     
 FAS                SB3    B3+B1                                                           FAS         2350     A     
 FAS                BX4    X7-X2                                                           FAS         2351     A     
 FAS                ZR     X4,DLF90    IF SAME BLOCK AS PREVIOUS                           FAS         2352     A     
 FAS                SB3    B3-B1       SET TO RE-PROCESS LAST ENTRY                        FAS         2353     A     
 FAS                BX1    X2                                                              FAS         2354     A     
 FAS                LX7    X2                                                              FAS         2355     A     
 FAS                                                                                       FAS         2356     A     
 FAS       DLF90    BX3    -X0*X1      ISOLATE FILL BYTE                                   FAS         2357     A     
 FAS                SA1    B3                                                              FAS         2358     A     
 FAS                ZR     B5,DLF70    IF LOWER                                            FAS         2359     A     
 FAS                LX6    X3,B2                                                           FAS         2360     A     
 FAS                SB5    B2-B5       INDICATE NEXT IS LOWER                              FAS         2361     A     
 FAS                EQ     DLF80                                                           FAS         2362     A     
 FAS                                                                                       FAS         2363     A     
 FAS       DLF100   NZ     B5,DLF110                                                       FAS         2364     A     
 FAS                SA6    A6+B1       STORE HANGING HALF-WORD                             FAS         2365     A     
 FAS       DLF110   SX4    BT=FILL                                                         FAS         2366     A     
 FAS                SX3    A6-B6                                                           FAS         2367     A     
 FAS                LX4    BT.CNP                                                          FAS         2368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                =B7    X3+1                                                            FAS         2369     A     
 FAS                LX3    BT.WCP                                                          FAS         2370     A     
 FAS                BX6    X4+X3       MANUFACTURE CONTROL WORD                            FAS         2371     A     
 FAS                SA6    B6                                                              FAS         2372     A     
 FAS                WLGO   B6,B7                                                           FAS         2373     A     
 FAS                                                                                       FAS         2374     A     
 FAS      *         PROCESS *XFILL* TABLE                                                  FAS         2375     A     
 FAS                                                                                       FAS         2376     A     
 FAS       DLF120   SA2    T=XFIL                                                          FAS         2377     A     
 FAS                SA1    T.XFIL                                                          FAS         2378     A     
 FAS                SB7    X2                                                              FAS         2379     A     
 FAS                SB6    X1          B6 = FWA TABLE                                      FAS         2380     A     
 FAS                EQ     B7,B1,DLF130      IF EMPTY *XFILL* TABLE, EXIT...               FAS         2381     A     
 FAS                SX4    BT=XFILL                                                        FAS         2382     A     
 FAS                SX3    B7-B1                                                           FAS         2383     A     
 FAS                LX4    BT.CNP                                                          FAS         2384     A     
 FAS                LX3    BT.WCP                                                          FAS         2385     A     
 FAS                BX6    X4+X3       MANUFACTURE CONTROL WORD                            FAS         2386     A     
 FAS                SA6    B6                                                              FAS         2387     A     
 FAS                                                                                       FAS         2388     A     
 FAS       SNAP=X   IFNE   TEST        DUMPT *XFILL* TABLE                                 FAS         2389     A     
 FAS                SA3    CO.SNAP                                                         FAS         2390     A     
 FAS                LX3    1RX                                                             FAS         2391     A     
 FAS                PL     X3,DLF120S                                                      FAS         2392     A     
 FAS                DUMPT  XFIL                                                            FAS         2393     A     
 FAS       DLF120S  BSS    0                                                               FAS         2394     A     
 FAS       SNAP=X   ENDIF                                                                  FAS         2395     A     
 FAS                                                                                       FAS         2396     A     
 FAS                WLGO   B6,B7                                                           FAS         2397     A     
 FAS                SHRINK T=XFIL,1                                                        FAS         2398     A     
 FAS       DLF130   SA1    DLFA                                                            FAS         2399     A     
 FAS                SA0    X1          RESTORE A0                                          FAS         2400     A     
 FAS                EQ     EXIT.                                                           FAS         2401     A     
 FAS                                                                                       FAS         2402     A     
 FAS       DLFA     BSS    1           PRESERVE A0 HERE                                    FAS         2403     A     
 FAS       DTX      SPACE  4,30                                                            FAS         2404     A     
 FAS      **        DTX -  DUMP *TEXT* TABLE.                                              FAS         2405     A     
 FAS      *                                                                                FAS         2406     A     
 FAS      *         IF TABLE IS EMPTY, NO WRITE WILL TAKE PLACE, BUT THE TABLE             FAS         2407     A     
 FAS      *         WILL BE RESET TO INDICATE *EMPTY* AND (ORG).                           FAS         2408     A     
 FAS      *                                                                                FAS         2409     A     
 FAS      *         DTX CANNOT MOVE TABLES.                                                FAS         2410     A     
 FAS      *                                                                                FAS         2411     A     
 FAS      *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                        FAS         2412     A     
 FAS      *         CALLS  WLF.                                                            FAS         2413     A     
 FAS                                                                                       FAS         2414     A     
 FAS                                                                                       FAS         2415     A     
 FAS       DTX      SUBR               ENTRY/EXIT...                                       FAS         2416     A     
 FAS                SA1    BT.TXWC                                                         FAS         2417     A     
 FAS                SX7    X1-15                                                           FAS         2418     A     
 FAS                SX6    BT=TEXT                                                         FAS         2419          I
          -FC5A132
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SX6    BT=XTEXT                                                        FC5A132      148     A     
 FAS                ZR     X1,DTX10    IF EMPTY TABLE AVOID..                              FAS         2420     A     
 FAS                =A3    A1+1                                                            FAS         2421     A     
 FAS                LX7    2                                                               FAS         2422     A     
 FAS                SA2    A3+B1       BT.TXRB WORD                                        FAS         2423     A     
 FAS                SX1    X1+B1                                                           FAS         2424     A     
 FAS                LX6    BT.CNP                                                          FAS         2425     A     
 FAS                SB7    X1+B1                                                           FAS         2426     A     
 FAS                SB3    X7          SHIFT FOR PARTIAL TABLE RELOC BYTES                 FAS         2427     A     
 FAS                LX1    BT.WCP                                                          FAS         2428     A     
 FAS                BX3    X6+X3                                                           FAS         2429     A     
 FAS                SB6    A3                                                              FAS         2430     A     
 FAS                IX6    X3+X1                                                           FAS         2431     A     
 FAS                AX7    X2,B3                                                           FAS         2432     A     
 FAS                SA6    A3                                                              FAS         2433     A     
 FAS                SA7    A2                                                              FAS         2434     A     
 FAS                WLGO   B6,B7                                                           FAS         2435     A     
 FAS       DTX10    SA1    ORG                                                             FAS         2436     A     
 FAS                =X2    1                                                               FAS         2437     A     
 FAS                BX7    0                                                               FAS         2438     A     
 FAS                LX2    BT.RLP                                                          FAS         2439          I
          -FC5A132
 FAS                LX2    BT.RLXP                                                         FC5A132      149     A     
 FAS                SA7    BT.TXRB                                                         FAS         2440     A     
 FAS                IX6    X1+X2       ADJUST INTERNAL BLOCK ORDINAL TO LOADER             FAS         2441     A     
 FAS      *                            BLOCK NUMBER                                        FAS         2442     A     
 FAS                SA6    A7-B1                                                           FAS         2443     A     
 FAS                SA7    A6-B1                                                           FAS         2444     A     
 FAS                EQ     EXIT.                                                           FAS         2445     A     
 FAS       ESL      SPACE  4,10                                                            FAS         2446     A     
 FAS      **        ESL -  ENTER STMT LABEL IN 57 TABLE                                    FAS         2447     A     
 FAS      *                                                                                FAS         2448     A     
 FAS      *         ENTRY  (A5) _ PB INSTRUCTION                                           FAS         2449     A     
 FAS      *                                                                                FAS         2450     A     
 FAS      *         CALLS  DXB                                                             FAS         2451     A     
 FAS      *                                                                                FAS         2452     A     
 FAS      *         USES   X - ALL  A - 1,2,3,6  B - 2,3,4,5,7                             FAS         2453     A     
 FAS                                                                                       FAS         2454     A     
 FAS       ESL      SUBR   =           ...ENTRY/EXIT...                                    FAS         2455     A     
 FAS       ESL.EQ   BSSENT 0                                                               FAS         2456     A     
 FAS                SA5    A5          X5 = PB INSTRUCTION                                 FAS         2457     A     
 FAS                BX1    X5                                                              FAS         2458     A     
 FAS                MX0    -PB.PFXL                                                        FAS         2459     A     
 FAS                LX1    -PB.PFXP                                                        FAS         2460     A     
 FAS                BX0    -X0*X1      ISOLATE TAG PREFIX                                  FAS         2461     A     
 FAS                NZ     X0,EXIT.    IF NOT SYMTAB TAG                                   FAS         2462     A     
 FAS                SA2    T.SYM                                                           FAS         2463     A     
 FAS                LX1    PB.PFXP-PB.ORDP                                                 FAS         2464     A     
 FAS                MX0    -PB.ORDL                                                        FAS         2465     A     
 FAS                BX1    -X0*X1      ISOLATE SYMTAB *WB* ORDINAL                         FAS         2466     A     
 FAS                SB4    X1                                                              FAS         2467     A     
 FAS                LX1    1                                                               FAS         2468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SB4    X1+B4       CONVERT TO INDEX                                    FAS         2469     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         2470     A     
 FAS                =B4    B4-WA.W+WB.W                                                    FAS         2471     A     
 FAS                SA2    X2+B4       *WB* OF POSSIBLE LABEL                              FAS         2472     A     
 FAS                CLAS=  X1,WB,(CGS)                                                     FAS         2473     A     
 FAS                BX1    X1*X2                                                           FAS         2474     A     
 FAS                CLAS=  X3,WB,(LAB,SDEF)                                                FAS         2475     A     
 FAS                BX4    X3*X2                                                           FAS         2476     A     
 FAS                BX3    X4-X3                                                           FAS         2477     A     
 FAS                BX1    X1+X3                                                           FAS         2478     A     
 FAS                NZ     X1,EXIT.    IF NOT A LABEL                                      FAS         2479     A     
 FAS                =A2    A2-WB.W+WA.W      *WA*                                          FAS         2480     A     
 FAS                MX0    -WA.STLL                                                        FAS         2481     A     
 FAS                LX2    -WA.STLP                                                        FAS         2482     A     
 FAS                BX2    -X0*X2      ISOLATE STMT LABEL                                  FAS         2483     A     
 FAS                LX2    -CHAR       RIGHT JUSTIFY                                       FAS         2484     A     
 FAS                MX0    CHAR                                                            FAS         2485     A     
 FAS       ESL10    LX2    -CHAR                                                           FAS         2486     A     
 FAS                BX3    X0*X2                                                           FAS         2487     A     
 FAS                NZ     X3,ESL10    IF MORE OF THE LABEL                                FAS         2488     A     
 FAS                LX2    CHAR        LEFT JUSTIFY                                        FAS         2489     A     
 FAS                BX5    X2                                                              FAS         2490     A     
 FAS                =B7    1           DECIMAL BASE ASSUMED                                FAS         2491     A     
 FAS                CALL   DXB         CONVERT TO BINARY                                   FAS         2492     A     
 FAS                IFEQ   TEST,ON,1                                                       FAS         2493     A     
 FAS                NZ     X4,"BLOWUP" IF ERROR IN CONVERSION                              FAS         2494     A     
 FAS                SA1    T.LNT                                                           FAS         2495     A     
 FAS                SA3    T=LNT                                                           FAS         2496     A     
 FAS                IX1    X1+X3                                                           FAS         2497     A     
 FAS                =X1    X1-1        X1 = ADDRESS OF LAST T.LNT ENTRY                    FAS         2498     A     
 FAS                SA1    X1                                                              FAS         2499     A     
 FAS                LX6    LN.LABP                                                         FAS         2500     A     
 FAS                BX6    X1+X6                                                           FAS         2501     A     
 FAS                SA6    A1          FILL IN LABEL FIELD                                 FAS         2502     A     
 FAS                EQ     EXIT.                                                           FAS         2503     A     
 FAS       FBP      SPACE  4,10                                                            FAS         2504     A     
 FAS      **        FBP -  FORMAT BINARY AND PRINT.                                        FAS         2505     A     
 FAS      *                                                                                FAS         2506     A     
 FAS      *         ENTRY  (X0) = BINARY WORD TO BE FORMATTED.                             FAS         2507     A     
 FAS      *                (OL=PB) = PRE-BINARY INSTRUCTION FOR OBJECT LIST.               FAS         2508     A     
 FAS      *                                                                                FAS         2509     A     
 FAS      *         EXIT   (LINBUF+1 .. +2) = FORMATTED BINARY.                            FAS         2510     A     
 FAS      *                                                                                FAS         2511     A     
 FAS      *         CALLS  POL, WOD.                                                       FAS         2512     A     
 FAS                                                                                       FAS         2513     A     
 FAS                                                                                       FAS         2514     A     
 FAS       FBP      SUBR   =                                                               FAS         2515     A     
 FAS      *         EQ     EXIT.                                                           FAS         2516     A     
 FAS       FBP.EQ   BSSENT 0                                                               FAS         2517     A     
 FAS                BX1    X0                                                              FAS         2518     A     
 FAS                CALL   WOD         CONVERT BINARY TO DPC                               FAS         2519     A     
 FAS                SA5    OL=PB                                                           FAS         2520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA6    LINEBUF+1                                                       FAS         2521     A     
 FAS                =A7    A6+1                                                            FAS         2522     A     
 FAS                RJ     POL         PRINT OBJECT LISTING                                FAS         2523     A     
 FAS                EQ     EXIT.                                                           FAS         2524     A     
 FAS       FLA      SPACE  4,10                                                            FAS         2525     A     
 FAS      **        FLA - FORMAT LABELS ASSIGNED.                                          FAS         2526     A     
 FAS      *                                                                                FAS         2527     A     
 FAS      *         ENTRY  (X4) = LENGTH OF (T.LA).                                        FAS         2528     A     
 FAS      *                                                                                FAS         2529     A     
 FAS      *         EXIT   ............                                                    FAS         2530     A     
 FAS                                                                                       FAS         2531     A     
 FAS                                                                                       FAS         2532     A     
 FAS       FLA      SUBR   0           ENTRY/EXIT...                                       FAS         2533     A     
 FAS                SA1    T.LA                                                            FAS         2534     A     
 FAS                SA5    X1          FETCH (X5) = FIRST TABLE ENTRY                      FAS         2535     A     
 FAS                SA0    X4          (A0) = NUMBER OF ASSIGN-ED LABELS                   FAS         2536     A     
 FAS                SHRINK A4                                                              FAS         2537     A     
 FAS       FLA2     SA3    T.SYM                                                           FAS         2538     A     
 FAS                LX1    X5,B1                                                           FAS         2539     A     
 FAS                =B7    X3+WB.W                                                         FAS         2540     A     
 FAS                MX7    1                                                               FAS         2541     A     
 FAS                IX6    X1+X5       (X6) = INDEX OF LABEL SYMTAB ENTRY                  FAS         2542     A     
 FAS                SA4    X6+B7                                                           FAS         2543     A     
 FAS                MX0    -WC.RAL                                                         FAS         2544     A     
 FAS                =A3    A4-WB.W+WC.W                                                    FAS         2545     A     
 FAS                HX4    WB.SDEF                                                         FAS         2546     A     
 FAS                LX3    -WC.RAP                                                         FAS         2547     A     
 FAS                BX4    X7*X4       (X4) = (WB.SDEF) BIT IN SIGN                        FAS         2548     A     
 FAS                BX6    -X0*X3      (X6) = UNRELOCATED ADDRESS OF LABEL                 FAS         2549     A     
 FAS                BX1    X4+X6                                                           FAS         2550     A     
 FAS                MX2    0           INDICATE NO RELOCATION                              FAS         2551     A     
 FAS                RJ     STX         STORE WORD IN TEXT TABLE                            FAS         2552     A     
 FAS                RJ     POL         PRINT OBJECT LISTING                                FAS         2553     A     
 FAS                SB4    A0-B1                                                           FAS         2554     A     
 FAS                SA5    A5+1                                                            FAS         2555     A     
 FAS                SA0    A0-B1       DECREMENT UNPROCESSED LENGTH                        FAS         2556     A     
 FAS                GT     B4,FLA2     IF MORE LABELS TO DO                                FAS         2557     A     
 FAS                EQ     EXIT.                                                           FAS         2558     A     
 FAS       S2.      SPACE  4,30                                                            FAS         2559     A     
 FAS      **        BINARY OUTPUT LOADER SYMBOL TABLE DEFINITIONS.                         FAS         2560     A     
 FAS      *                                                                                FAS         2561     A     
 FAS      *         WORD ONE -  WA. FORMAT.                                                FAS         2562     A     
 FAS      *         WORD TWO -  S2. FORMAT.                                                FAS         2563     A     
 FAS      *         WORD THREE - S3. FORMAT.                                               FAS         2564     A     
 FAS                                                                                       FAS         2565     A     
 FAS                DESCRIBE S2.,60,,WB.W                                                  FAS         2566     A     
 FAS                DEFINE 12          0                                                   FAS         2567     A     
 FAS       PNT      DEFINE 12          DIMENSION OFFSET                                    FAS         2568     A     
 FAS       ARY      DEFINE 1           ARRAY                                               FAS         2569     A     
 FAS                DEFINE 11                                                              FAS         2570     A     
 FAS       SUB      DEFINE             SUBROUTINE                                          FAS         2571     A     
 FAS       NLST     DEFINE             NAMELIST GROUP NAME                                 FAS         2572     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       ENT      DEFINE             ENTRY POINT                                         FAS         2573     A     
 FAS       PARM     DEFINE             SYMBOLIC CONSTANT                                   FAS         2574     A     
 FAS       1REF     DEFINE             STRAY NAME                                          FAS         2575     A     
 FAS       MAT      DEFINE             VARIABLE MATERIALIZED                               FAS         2576     A     
 FAS       LAB      DEFINE 1           THIS ENTRY IS LABEL                                 FAS         2577     A     
 FAS       DEF      DEFINE 1           DEFINED                                             FAS         2578     A     
 FAS       EQV      DEFINE 1           MEMBER OF EQUIVALENCE CLASS                         FAS         2579     A     
 FAS       FUN      DEFINE 1           USED AS FUNCTION                                    FAS         2580     A     
 FAS       EXT      DEFINE 1           EXTERNAL SYMBOL                                     FAS         2581     A     
 FAS       CGS      DEFINE 1           COMPILER GENERATED SYMBOL                           FAS         2582     A     
 FAS       FP       DEFINE 1           FORMAL PARAMETER                                    FAS         2583     A     
 FAS       LEV      DEFINE 1           LEVEL 0 AND LCM                                     FAS         2584     A     
 FAS       LCM      DEFINE 1           VARIABLE RESIDES IN ECS/LCM                         FAS         2585     A     
 FAS       TYP      DEFINE 6           VARIABLE TYPE                                       FAS         2586     A     
 FAS       SIZ      DEFINE 3           LENGTH - 3 OF SYMBOL ENTRY                          FAS         2587     A     
 FAS                                                                                       FAS         2588     A     
 FAS                DESCRIBE S3.,60,,WC.W                                                  FAS         2589     A     
 FAS                DEFINE 3                                                               FAS         2590     A     
 FAS       RB       DEFINE 9           LOADER BLOCK NUMBER                                 FAS         2591     A     
 FAS       CL       DEFINE 1           CONSTANT LENGTH BIT                                 FAS         2592     A     
 FAS       CLEN     DEFINE 17          CHARACTER LENGTH                                    FAS         2593     A     
 FAS                DEFINE 2                                                               FAS         2594     A     
 FAS       BCP      DEFINE 4           BEGINNING CHARACTER POSITION                        FAS         2595     A     
 FAS       RA       DEFINE 24          RELATIVE ADDRESS FIELD                              FAS         2596     A     
 FAS       FST      SPACE  4,10                                                            FAS         2597     A     
 FAS      **        FST - FORMAT SYMBOL TABLE.                                             FAS         2598     A     
 FAS      *                                                                                FAS         2599     A     
 FAS      *         RE-FORMAT AND COPY COMPILER SYMBOL TABLE (T.SYM) INTO                  FAS         2600     A     
 FAS      *         SCRATCH AREA (T.SCR), IN PREPARATION FOR 5600 TABLE                    FAS         2601     A     
 FAS      *         GENERATION.                                                            FAS         2602     A     
 FAS      *                                                                                FAS         2603     A     
 FAS      *         ENTRY  (SAVVD) = ADDRESS (WC.RA) OF *VD.*.                             FAS         2604     A     
 FAS      *                                                                                FAS         2605     A     
 FAS      *         EXIT   (T.SCR) = CID FORMAT SYMBOL TABLE.                              FAS         2606          I
          -FC5A298
 FAS      *                (T.DIM) = (DH.RA) HAS CID OFFSETS.                              FAS         2607          I
          -FC5A298
 FAS      *         EXIT   (T.SCR) = CID/PMD FORMAT SYMBOL TABLE                           FC5A298        5     A     
 FAS      *                (T.DIM) = [DH.RA] HAS CID/PMD OFFSETS                           FC5A298        6     A     
 FAS      *                                                                                FAS         2608     A     
 FAS      *         USES   ALL.                                                            FAS         2609     A     
 FAS      *         CALLS  ADA, CAB.                                                       FAS         2610     A     
 FAS                                                                                       FAS         2611     A     
 FAS                                                                                       FAS         2612     A     
 FAS       FST      SUBR   0           ENTRY/EXIT...                                       FAS         2613     A     
 FAS                SX7    B1          CID WANTS 1-ORIGIN                                  FAS         2614     A     
 FAS                MX4    1           COUNT ALL DIM ENTRIES                               FAS         2615     A     
 FAS                CALL   ADA         ASSIGN DIM-TABLE ADDRESSES                          FAS         2616     A     
 FAS                SA1    T.SCR                                                           FAS         2617     A     
 FAS                SA2    T.SYM                                                           FAS         2618     A     
 FAS                SA3    T=SYM                                                           FAS         2619     A     
 FAS                SB6    X3          SYMLEN = LEN(T.SYM)                                 FAS         2620     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SB4    X1-Z=SYM+WB.W     STOAD = FWA(T.SCR) - Z=SYM + WB.W             FAS         2621     A     
 FAS                =B3    Z=SYM                                                           FAS         2622     A     
 FAS                =A5    X2+WB.W     SKIP FIRST ENTRY                                    FAS         2623     A     
 FAS                                                                                       FAS         2624     A     
 FAS      *         (A5) _ LAST WB. ENTRY.                                                 FAS         2625     A     
 FAS      *         (B4) _ LAST T.SCR ENTRY TO STORE INTO                                  FAS         2626     A     
 FAS      *         (B3) = Z=SYM                                                           FAS         2627     A     
 FAS      *         (B6) = SYMLEN                                                          FAS         2628     A     
 FAS                                                                                       FAS         2629     A     
 FAS       FST10    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                             FAS         2630     A     
 FAS                SB6    B6-B3       SYMLEN = SYMLEN - Z=SYM                             FAS         2631     A     
 FAS                MX0    WA.SYML                                                         FAS         2632     A     
 FAS                LE     B6,EXIT.    IF END OF (T.SYM)                                   FAS         2633     A     
 FAS                BX4    X5                                                              FAS         2634     A     
 FAS                HX4    WB.LAB                                                          FAS         2635     A     
 FAS                MI     X4,FST80    IF LABEL                                            FAS         2636     A     
 FAS                SB4    B4+B3       STAD = STAD + Z=SYM                                 FAS         2637     A     
 FAS                LX0    WA.SYML+WA.SYMP                                                 FAS         2638     A     
 FAS                =A4    A5-WB.W+WA.W      WAI = WA ENTRY OF T.SYM                       FAS         2639     A     
 FAS                BX7    X0*X4                                                           FAS         2640     A     
 FAS                =A7    B4-S2.W+WA.W      T.SCR(STAD-1) = SYM[WAI]                      FAS         2641     A     
 FAS                                                                                       FAS         2642     A     
 FAS      *         CONSTRUCT S2. ENTRY OF (5600) TABLE.                                   FAS         2643     A     
 FAS                                                                                       FAS         2644     A     
 FAS                SA1    FSTA                                                            FAS         2645     A     
 FAS                MX2    0           S2W = 0                                             FAS         2646     A     
 FAS                RJ     CAB         COPY ADJUSTED BITS                                  FAS         2647     A     
 FAS                                                                                       FAS         2648     A     
 FAS      *         TRANSFORM (WB.MODE) VIA CID MODE VECTOR.                               FAS         2649     A     
 FAS      *         TRANSFORM (WB.PNT) PER ADA, SINCE DIM ENTRIES ARE SHRUNK               FAS         2650     A     
 FAS      *                FOR 5600 TABLE OUTPUT.                                          FAS         2651     A     
 FAS      *         SET LEV[S2.] = 1 IF LCM .AND. LEVEL 0.                                 FAS         2652     A     
 FAS      *         (X2) = S2. BUILD WORD                                                  FAS         2653     A     
 FAS                                                                                       FAS         2654     A     
 FAS                BX4    X5                                                              FAS         2655     A     
 FAS                BX3    X5                                                              FAS         2656     A     
 FAS                HX3    WB.VAR                                                          FAS         2657     A     
 FAS                AX3    59                                                              FAS         2658     A     
 FAS                LX5    -WB.MODEP                                                       FAS         2659     A     
 FAS                LX4    -WB.PNTP                                                        FAS         2660     A     
 FAS                MX0    -WB.MODEL                                                       FAS         2661     A     
 FAS                MX6    -WB.PNTL                                                        FAS         2662     A     
 FAS                BX0    -X0*X5      MODEI = MODE[WBI]                                   FAS         2663     A     
 FAS                SA1    T.DIM                                                           FAS         2664     A     
 FAS                BX6    -X6*X4      DHI = PNT[WBI]                                      FAS         2665     A     
 FAS                BX6    X3*X6       ZERO IF NOT VARIABLE                                FAS         2666     A     
 FAS                SB2    X1                                                              FAS         2667     A     
 FAS                SA3    X6+B2       FETCH DIM HEADER                                    FAS         2668     A     
 FAS                MX1    -DH.RAL                                                         FAS         2669     A     
 FAS                LX3    -DH.RAP                                                         FAS         2670     A     
 FAS                BX1    -X1*X3      PNTI = RA[DHI]                                      FAS         2671     A     
 FAS                SB5    X0          REMEMBER (B5) = MODEI                               FAS         2672     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX1    S2.PNTP                                                         FAS         2673     A     
 FAS                BX2    X2+X1                                                           FAS         2674     A     
 FAS                LX4    WB.PNTP-1-WB.LEVP                                               FAS         2675     A     
 FAS                SA3    CIDMOD                                                          FAS         2676     A     
 FAS                MX6    -4                                                              FAS         2677     A     
 FAS                LX0    2                                                               FAS         2678     A     
 FAS                SB7    X0                                                              FAS         2679     A     
 FAS                AX3    B7                                                              FAS         2680     A     
 FAS                BX3    -X6*X3                                                          FAS         2681     A     
 FAS                LX3    S2.TYPP                                                         FAS         2682     A     
 FAS                BX6    X2+X3                                                           FAS         2683     A     
 FAS                LX5    WB.MODEP-1-WB.LCMP                                              FAS         2684     A     
 FAS                PL     X4,FST30    IF NOT LEVELED                                      FAS         2685     A     
 FAS                MX0    -WB.LEVNL                                                       FAS         2686     A     
 FAS                LX4    1+WB.LEVP-WB.LEVNP                                              FAS         2687     A     
 FAS                BX1    X5                                                              FAS         2688     A     
 FAS                AX1    59          SIGN EXTEND LCM BIT                                 FAS         2689     A     
 FAS                BX7    -X0*X4      LEVNOI = LEVN[WBI]                                  FAS         2690     A     
 FAS                BX1    -X1         = 0 IF LCM / (-0) IF NOT                            FAS         2691     A     
 FAS                BX1    X7+X1       = LEVNOI .OR. 0 / LEVNOI .OR. (-0)                  FAS         2692     A     
 FAS                NZ     X1,FST30    IF NOT (LCM) .AND. (LEVEL 0)                        FAS         2693     A     
 FAS                CLAS=  X3,S2,(LEV)                                                     FAS         2694     A     
 FAS                BX6    X6+X3                                                           FAS         2695     A     
 FAS       FST30    SA6    B4          T.SCR(STAD) = [S2.]                                 FAS         2696     A     
 FAS                                                                                       FAS         2697     A     
 FAS      *         CONSTRUCT S3. WORD.                                                    FAS         2698     A     
 FAS      *         DETERMINE LOADER RB FROM RB[WC.].                                      FAS         2699     A     
 FAS      *         COPY CLEN[WC.] AND BCP[WC.] IF NOT F.P. .                              FAS         2700     A     
 FAS      *         (B5) = MODEI                                                           FAS         2701     A     
 FAS                                                                                       FAS         2702     A     
 FAS                =A4    A5-WB.W+WC.W      WCI = WC ENTRY OF T.SYM                       FAS         2703     A     
 FAS                LX5    WB.LCMP-WB.FPP                                                  FAS         2704          I
          -FC5A298
 FAS                SBIT   X5,WB.FPP/WB.LCMP                                               FC5A298        7     A     
 FAS                MX2    0                                                               FAS         2705     A     
 FAS                BX6    X2                                                              FAS         2706     A     
 FAS                SA6    FSTB        FLAG NOT FP                                         FAS         2707     A     
 FAS                MI     X5,FST70    IF FP                                               FAS         2708     A     
 FAS                                                                                       FAS         2709     A     
 FAS       FST40    LX4    -WC.RBP                                                         FAS         2710     A     
 FAS                LX5    WB.FPP-WB.COMP                                                  FAS         2711     A     
 FAS                PL     X5,FST50    IF NOT COMMON                                       FAS         2712     A     
 FAS                MX0    -WC.RBL                                                         FAS         2713     A     
 FAS                BX6    -X0*X4      RBI = RB[WCI]                                       FAS         2714     A     
 FAS                ERRNZ  2-Z=BLKS                                                        FAS         2715     A     
 FAS                AX6    1           RBI = RBI / Z=BLKS                                  FAS         2716     A     
 FAS                =X2    X6+1        RBI = RBI + 1                                       FAS         2717     A     
 FAS                                                                                       FC5A298        8     A     
 FAS       FST50    =X2    X2+1        RBI = RBI + 1                                       FAS         2718     A     
 FAS                LX2    S3.RBP                                                          FAS         2719     A     
 FAS                SB5    B5-M.CHAR                                                       FAS         2720     A     
 FAS                MX6    -WC.BCPL                                                        FAS         2721     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                NZ     B5,FST60    IF NOT TYPE CHARACTER                               FAS         2722     A     
 FAS                LX4    WC.RBP-WC.BCPP                                                  FAS         2723     A     
 FAS                BX1    -X6*X4      BCPI = BCP[WCI]                                     FAS         2724     A     
 FAS                BX7    X4                                                              FAS         2725     A     
 FAS                MX3    -WC.CLENL                                                       FAS         2726     A     
 FAS                LX4    WC.BCPP-WC.CLENP                                                FAS         2727     A     
 FAS                LX1    S3.BCPP                                                         FAS         2728     A     
 FAS                BX2    X1+X2                                                           FAS         2729     A     
 FAS                BX6    -X3*X4      CLENI = CLEN[WCI]                                   FAS         2730     A     
 FAS                =X0    1                                                               FAS         2731     A     
 FAS                LX7    WC.BCPP-WC.CTYPP                                                FAS         2732     A     
 FAS                BX7    X0*X7       CTYPI = CTYP[WCI]                                   FAS         2733     A     
 FAS                BX0    X0-X7       =1 IFF CTYPI .EQ. 0                                 FAS         2734     A     
 FAS                LX6    S3.CLENP                                                        FAS         2735     A     
 FAS                LX0    S3.CLP                                                          FAS         2736     A     
 FAS                BX6    X6+X0                                                           FAS         2737     A     
 FAS                BX2    X2+X6                                                           FAS         2738     A     
 FAS                ZR     X7,FST60    IF CTYP[WCI] .EQ. 0                                 FAS         2739     A     
 FAS                SA1    SAVVD       RA OF *VD.* = (SAVVD)                               FAS         2740     A     
 FAS                MX0    -S3.CLENL                                                       FAS         2741     A     
 FAS                BX1    -X0*X1      RAVD = RA[WCV], TRUNCATED TO S3.CLENL               FAS         2742     A     
 FAS                LX1    S3.CLENP                                                        FAS         2743     A     
 FAS                IX2    X2+X1       CLEN[S3.] = CLEN[S3.] + RAVD                        FAS         2744     A     
 FAS                                                                                       FAS         2745     A     
 FAS      *         COPY RA[WC.] TO RA[S3.].                                               FAS         2746     A     
 FAS      *         (X2) = S3. BUILD WORD                                                  FAS         2747     A     
 FAS                                                                                       FAS         2748     A     
 FAS       FST60    SA4    FSTB                                                            FAS         2749     A     
 FAS                BX6    X4                                                              FAS         2750          I
          -FC5A298
 FAS                NZ     X4,FST65    IF FP, RA IS FPNO                                   FAS         2751          I
          -FC5A298
 FAS                MX7    -WC.RAL                                                         FAS         2752          I
          -FC5A298
 FAS                ZR     X4,FST65    IF NOT DUMMY ARGUMENT                               FC5A298        9     A     
 FAS                                                                                       FC5A298       10     A     
 FAS      *         FOR DUMMY ARGUMENTS, RA[S3.] = FPNO[WBI]-1                             FC5A298       11     A     
 FAS                                                                                       FC5A298       12     A     
 FAS                =X7    1                                                               FC5A298       13     A     
 FAS                IX6    X4-X7       FPNO[WBI]-1                                         FC5A298       14     A     
 FAS                LX6    S3.RAP                                                          FC5A298       15     A     
 FAS                BX6    X2+X6                                                           FC5A298       16     A     
 FAS                =A6    B4-WB.W+WC.W                                                    FC5A298       17     A     
 FAS                EQ     FST10                                                           FC5A298       18     A     
 FAS                                                                                       FC5A298       19     A     
 FAS       FST65    MX7    -WC.RAL                                                         FC5A298       20     A     
 FAS                =A4    A5-WB.W+WC.W                                                    FAS         2753     A     
 FAS                AX4    WC.RAP                                                          FAS         2754     A     
 FAS                BX6    -X7*X4      RAI = RA[WCI]                                       FAS         2755     A     
 FAS                LX6    S3.RAP                                                          FAS         2756     A     
 FAS                                                                                       FAS         2757          I
          -FC5A298
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       FST65    BX6    X2+X6                                                           FAS         2758          I
          -FC5A298
 FAS                BX6    X2+X6                                                           FC5A298       21     A     
 FAS                =A6    B4-WB.W+WC.W      T.SCR(STAD+1)= (BCP,CLEN,CL,RA) [S3.]         FAS         2759     A     
 FAS                EQ     FST10                                                           FAS         2760     A     
 FAS                                                                                       FAS         2761     A     
 FAS      *         FOR FORMAL PARAMETERS, RA[S3.] = FPNO[WBI] -1.                         FAS         2762          I
          -FC5A298
 FAS                                                                                       FAS         2763          I
          -FC5A298
 FAS       FST70    MX0    -WB.FPNOL                                                       FAS         2764     A     
 FAS                BX6    X5                                                              FAS         2765     A     
 FAS                LX6    1+WB.FPP-WB.FPNOP                                               FAS         2766     A     
 FAS                =X7    1                                                               FAS         2767          I
          -FC5A298
 FAS                BX6    -X0*X6      FPNOI = FPNO[WBI]                                   FAS         2768     A     
 FAS                IX6    X6-X7                                                           FAS         2769          I
          -FC5A298
 FAS                ERRMI  18-WB.FPNOL                                                     FAS         2770          I
          -FC5A298
 FAS                LX6    S3.RAP                                                          FAS         2771     A     
 FAS                SA6    FSTB        FLAG FP                                             FAS         2772     A     
 FAS                EQ     FST40                                                           FAS         2773     A     
 FAS                                                                                       FAS         2774     A     
 FAS       FSTB     BSS    1                                                               FAS         2775          I
          -FC5A298
 FAS                                                                                       FAS         2776          I
          -FC5A298
 FAS       FST80    SA4    T=SCR                                                           FAS         2777     A     
 FAS                SX6    X4-Z=SYM                                                        FAS         2778     A     
 FAS                SA6    A4+         DECREMENT 5600 TABLE LENGTH FOR LABEL               FAS         2779     A     
 FAS                EQ     FST10                                                           FAS         2780     A     
 FAS                                                                                       FAS         2781     A     
 FAS                LIST   G           **** DEBUG ****                                     FAS         2782     A     
 FAS       FSTA     CABS   WB,S2,(SUB,SDEF/DEF,EQV,FUN,EXT,CGS,FP,LCM,ARY,MAT,NLST         FAS         2783     A     
 FAS      ,,ENT,PARM,1REF)                                                                 FAS         2784     A     
 FAS                                                                                       FC5A298       22     A     
 FAS       FSTB     BSS    1           DUMMY ARGUMENT FLAG                                 FC5A298       23     A     
 FAS                LIST   *                                                               FAS         2785     A     
 FAS       KAP      SPACE  4,30                                                            FAS         2786     A     
 FAS      **        KAP -  COMPILE AP-LISTS.                                               FAS         2787     A     
 FAS      *                                                                                FAS         2788     A     
 FAS      *         RELOCATES AND RE-FORMATS *T.APL* INTO BINARY LOADER TEXT.              FAS         2789     A     
 FAS      *         USES   ALL                                                             FAS         2790     A     
 FAS      *         CALLS  DTX, REL, STX.                                                  FAS         2791     A     
 FAS                                                                                       FAS         2792     A     
 FAS                                                                                       FAS         2793     A     
 FAS       KAP      SUBR   0           ENTRY/EXIT.                                         FAS         2794     A     
 FAS                BX6    0                                                               FAS         2795     A     
 FAS                SA6    BINWORD     (BINWORD) = 0                                       FAS         2796     A     
 FAS                SA6    A6+B1       (BINREL) = 0                                        FAS         2797     A     
 FAS                SX7    IA.BIASP-PB.BIASP                                               FAS         2798     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX6    -IA.BIASL                                                       FAS         2799     A     
 FAS                SA7    RELPOS                                                          FAS         2800     A     
 FAS                SA6    RELMASK                                                         FAS         2801     A     
 FAS                SA2    T=APL                                                           FAS         2802     A     
 FAS                ALLOC  T.PTXTR,X2                                                      FAS         2803     A     
 FAS                RJ     DTX         RESET TEXT TABLE                                    FAS         2804     A     
 FAS                MX6    0                                                               FAS         2805     A     
 FAS                SA0    X6          STOIND = 0                                          FAS         2806     A     
 FAS                SA6    KAPA        (KAPA) = IND = 0                                    FAS         2807     A     
 FAS                                                                                       FAS         2808     A     
 FAS      *         A0 -> NEXT STORE INDEX INTO SCRATCH TABLE (T.PTXTR) FOR                FAS         2809     A     
 FAS      *         OBJECT LISTING.                                                        FAS         2810     A     
 FAS                                                                                       FAS         2811     A     
 FAS       KAP10    SA4    T=APL                                                           FAS         2812     A     
 FAS                SA2    T.APL                                                           FAS         2813     A     
 FAS                SA1    KAPA        IND = (KAPA)                                        FAS         2814     A     
 FAS                IX6    X4-X1       = LEN(T.APL) - IND                                  FAS         2815     A     
 FAS                ZR     X6,EXIT.    IF END OF T.APL                                     FAS         2816     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         2817     A     
 FAS                MI     X6,"BLOWUP" IF SOMETHING HORRIBLE                               FAS         2818     A     
 FAS                =X7    X1+1                                                            FAS         2819     A     
 FAS                IX2    X2+X1                                                           FAS         2820     A     
 FAS                SA7    A1          (KAPA) = IND + 1                                    FAS         2821     A     
 FAS                SA1    X2          API = T.APL(IND)                                    FAS         2822     A     
 FAS                =X2    0           INDICATE NO RELOCATION                              FAS         2823     A     
 FAS                BX5    X1                                                              FAS         2824     A     
 FAS                ZR     X1,KAP50    IF +/- 0                                            FAS         2825     A     
 FAS                BX4    X1                                                              FAS         2826     A     
 FAS                MX0    -IA.BIASL                                                       FAS         2827     A     
 FAS                MX3    -IA.TAGL                                                        FAS         2828     A     
 FAS                HX1    IA.CRH                                                          FAS         2829     A     
 FAS                LX4    -IA.TAGP                                                        FAS         2830     A     
 FAS                BX3    -X3*X4      TAGI = TAG[API]                                     FAS         2831     A     
 FAS                LX4    IA.TAGP-IA.BIASP                                                FAS         2832     A     
 FAS                BX6    -X0*X4      BIASI = BIAS[API]                                   FAS         2833     A     
 FAS                MI     X1,KAP80    IF RELATIONAL HEADER                                FAS         2834     A     
 FAS                                                                                       FAS         2835     A     
 FAS      *         SET TYP[OA.] = MODE[API], AND LCM[OA.] = LCM[WBI].                     FAS         2836     A     
 FAS                                                                                       FAS         2837     A     
 FAS                MX7    -IA.MODEL                                                       FAS         2838     A     
 FAS                LX4    IA.BIASP-IA.MODEP                                               FAS         2839     A     
 FAS                BX7    -X7*X4      TYPE = MODE[API]                                    FAS         2840     A     
 FAS                SA2    COMMOD                                                          FAS         2841     A     
 FAS                LX7    2                                                               FAS         2842     A     
 FAS                MX4    -4                                                              FAS         2843     A     
 FAS                SB7    X7                                                              FAS         2844     A     
 FAS                AX2    B7                                                              FAS         2845     A     
 FAS                BX7    -X4*X2                                                          FAS         2846     A     
 FAS                LX7    OA.TYPP                                                         FAS         2847     A     
 FAS                SA7    BINWORD     TYP[BINWORD] = TYPE                                 FAS         2848     A     
 FAS                                                                                       FAS         2849     A     
 FAS                MX2    0           FPI = 0                                             FAS         2850     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX4    -PB.ORDL                                                        FAS         2851     A     
 FAS                BX4    X4*X3       PFXI = PFX[TAGI]                                    FAS         2852     A     
 FAS                ERRNZ  K=SYM                                                           FAS         2853     A     
 FAS                NZ     X4,KAP15    IF PFXI .NE. K=SYM                                  FAS         2854          I
          -FC5A121
 FAS                NZ     X4,KAP12    IF PFXI .NE. K=SYM                                  FC5A121        6     A     
 FAS                SA2    T.SYM                                                           FAS         2855     A     
 FAS                LX7    X3,B1                                                           FAS         2856     A     
 FAS                IX4    X7+X3       STIND = 3 * TAGI                                    FAS         2857     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         2858     A     
 FAS                IX2    X2+X4                                                           FAS         2859     A     
 FAS                =A2    X2+WB.W     WBI = T.SYM(STIND) + WB.W                           FAS         2860     A     
 FAS                CLAS=  X4,WB,(LCM)                                                     FAS         2861     A     
 FAS                BX7    X4*X2       LCMI = LCM[WBI]                                     FAS         2862     A     
 FAS                HX2    WB.FP                                                           FAS         2863          I
          -FC5A121
 FAS                HX2    WB.LAB                                                          FC5A121        7     A     
 FAS                BX4    X2                                                              FC5A121        8     A     
 FAS                LX2    WB.LABP-WB.FPP                                                  FC5A121        9     A     
 FAS                MI     X4,KAP14    IF LABEL                                            FC5A121       10     A     
 FAS                SA4    A7          BINWORD                                             FAS         2864     A     
 FAS                LX7    OA.LCMP-WB.LCMP                                                 FAS         2865     A     
 FAS                BX7    X7+X4                                                           FAS         2866     A     
 FAS                SA7    A4          LCM[BINWORD] = LCMI                                 FAS         2867     A     
 FAS                                                                                       FAS         2868     A     
 FAS      *         FOR TAGI = *S=RD*, REPLACE BIAS[API] BY                                FAS         2869     A     
 FAS      *                RA[T.DIM(BIASI) + DH.W] BEFORE RELOCATION.                      FAS         2870     A     
 FAS                                                                                       FAS         2871     A     
 FAS                SA4    S=RD                                                            FAS         2872     A     
 FAS                IX4    X4-X3                                                           FAS         2873     A     
 FAS                MX0    -IA.BIASL                                                       FAS         2874     A     
 FAS                NZ     X4,KAP15    IF TAGI .NE. S=RD                                   FAS         2875     A     
 FAS                SA3    T.DIM                                                           FAS         2876     A     
 FAS                =B3    X3          +DH.W                                               FAS         2877     A     
 FAS                SA4    X6+B3       DHI = T.DIM(BIASI) + DH.W                           FAS         2878     A     
 FAS                LX5    -IA.BIASP                                                       FAS         2879     A     
 FAS                BX5    X0*X5       CLEAR BIAS FIELD                                    FAS         2880     A     
 FAS                LX4    -DH.RAP                                                         FAS         2881     A     
 FAS                BX0    -X0*X4      BIASI = RA[DHI], TRUNCATED TO IA.BIASL              FAS         2882     A     
 FAS                BX5    X5+X0       BIAS[API] = BIASI                                   FAS         2883     A     
 FAS                LX5    IA.BIASP                                                        FAS         2884     A     
 FAS                EQ     KAP15                                                           FC5A121       11     A     
 FAS                                                                                       FC5A121       12     A     
 FAS       KAP12    SX4    X4-K.GL                                                         FC5A121       13     A     
 FAS                NZ     X4,KAP15    IF NOT GENERATED LABEL                              FC5A121       14     A     
 FAS                                                                                       FC5A121       15     A     
 FAS       KAP14    SA4    LABMOD                                                          FC5A121       16     A     
 FAS                LX4    OA.TYPP                                                         FC5A121       17     A     
 FAS                BX7    X4                                                              FC5A121       18     A     
 FAS                SA7    BINWORD     TYPE[APLIST] = LABMOD                               FC5A121       19     A     
 FAS                EQ     KAP20                                                           FC5A121       20     A     
 FAS                                                                                       FAS         2885     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       KAP15    BX4    X1                                                              FAS         2886     A     
 FAS                LX1    IA.CRHP-IA.STP                                                  FAS         2887     A     
 FAS                LX4    IA.CRHP-IA.CHARP                                                FAS         2888     A     
 FAS                MI     X1,KAP25    IF ST                                               FAS         2889     A     
 FAS                PL     X4,KAP20    IF NON CHARACTER                                    FAS         2890     A     
 FAS                                                                                       FAS         2891     A     
 FAS                                                                                       FAS         2892     A     
 FAS      **        HANDLE CHARACTER APLIST HERE.                                          FAS         2893     A     
 FAS      *                                                                                FAS         2894     A     
 FAS      *         IF NOT FP, COPY (CLEN, BCP) FROM T.CAC(BIASI) ENTRY                    FAS         2895     A     
 FAS      *         AND REPLACE BIAS[IO1] WITH RA [T.CAC(BIASI)] BEFORE                    FAS         2896     A     
 FAS      *         RELOCATION.                                                            FAS         2897     A     
 FAS      *         SET (XFIL) FLAG TO INFORM *REL* TO CREATE A XFILL TABLE                FAS         2898          I
          -FC5A250
 FAS      *         ENTRY IF NEGATIVE ADDRESS RELOCATION.                                  FAS         2899          I
          -FC5A250
 FAS      *         (X6) = BIASI                                                           FAS         2900     A     
 FAS                                                                                       FAS         2901     A     
 FAS                                                                                       FAS         2902     A     
 FAS                MI     X2,KAP40    IF F.P.                                             FAS         2903     A     
 FAS                MX7    1                                                               FAS         2904          I
          -FC5A250
 FAS                MX0    -IA.BIASL                                                       FAS         2905     A     
 FAS                SA7    XFIL        (XFIL) = 1S59                                       FAS         2906          I
          -FC5A250
 FAS                SA3    T.CAC                                                           FAS         2907     A     
 FAS                MX1    -WC.BCPL                                                        FAS         2908     A     
 FAS                MX7    -WC.CLENL                                                       FAS         2909     A     
 FAS                SB3    X3                                                              FAS         2910     A     
 FAS                LX5    -IA.BIASP                                                       FAS         2911     A     
 FAS                BX5    X0*X5       CLEAR BIAS FIELD                                    FAS         2912     A     
 FAS                SA3    X6+B3       CACI = T.CAC(BIASI)                                 FAS         2913     A     
 FAS                BX2    X3                                                              FAS         2914     A     
 FAS                LX3    -WC.RAP                                                         FAS         2915     A     
 FAS                LX2    -WC.BCPP                                                        FAS         2916     A     
 FAS                BX4    -X0*X3      BIASI = RA[CACI], TRUNCATED TO IA.BIASL             FAS         2917     A     
 FAS                BX5    X5+X4       REPLACE BIAS FIELD                                  FAS         2918     A     
 FAS                BX1    -X1*X2      BCPI = BCP[CACI]                                    FAS         2919     A     
 FAS                LX5    IA.BIASP                                                        FAS         2920     A     
 FAS                LX2    WC.BCPP-WC.CLENP                                                FAS         2921     A     
 FAS                BX0    -X7*X2      CLENI = CLEN[CACI]                                  FAS         2922     A     
 FAS                LX1    OA.BCPP                                                         FAS         2923     A     
 FAS                SA3    BINWORD                                                         FAS         2924     A     
 FAS                LX0    OA.LENP                                                         FAS         2925     A     
 FAS                BX4    X1+X0                                                           FAS         2926     A     
 FAS                BX6    X3+X4                                                           FAS         2927     A     
 FAS                SA6    A3          (LEN,BCP) [BINWORD] = (CLENI,BCPI) [OA.]            FAS         2928     A     
 FAS                                                                                       FAS         2929     A     
 FAS      *         RELOCATE THE ADDRESS.                                                  FAS         2930     A     
 FAS                                                                                       FAS         2931     A     
 FAS       KAP20    =B2    1           INDICATE LOWER ADDRESS RELOCATION                   FAS         2932     A     
 FAS                MX0    PB.GHIJL                                                        FAS         2933     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1817    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX5    PB.TAGP-IA.TAGP                                                 FAS         2934     A     
 FAS                BX5    -X0*X5      CLEAR (GHIJ) FIELD                                  FAS         2935     A     
 FAS                RJ     REL         RELOCATE THE ADDRESS                                FAS         2936     A     
 FAS       KAP25    SA2    BINREL                                                          FAS         2937     A     
 FAS                SA1    BINWORD                                                         FAS         2938     A     
 FAS                EQ     KAP50                                                           FAS         2939     A     
 FAS                                                                                       FAS         2940     A     
 FAS                                                                                       FAS         2941     A     
 FAS      **        FOR CHARACTER FP ITEMS, SET ARG[OA.] = FPNO[WBI] - 1,                  FAS         2942     A     
 FAS      *         SUBS[OA.] = BIAS[API], AND FP[OA.] = 1.                                FAS         2943     A     
 FAS      *                                                                                FAS         2944     A     
 FAS      *         (X2) = WBI, HIGH SHIFTED TO WB.FP                                      FAS         2945     A     
 FAS      *         (X6) = BIAS[API]                                                       FAS         2946     A     
 FAS                                                                                       FAS         2947     A     
 FAS       KAP40    MX7    -WB.FPNOL                                                       FAS         2948     A     
 FAS                MX3    1                                                               FAS         2949     A     
 FAS                BX3    X3*X2       FPI = FP[WBI]                                       FAS         2950     A     
 FAS                LX2    1+WB.FPP-WB.FPNOP                                               FAS         2951     A     
 FAS                LX3    1+OA.FPP                                                        FAS         2952     A     
 FAS                BX7    -X7*X2      FPNOI = FPNO[WBI]                                   FAS         2953     A     
 FAS                MX4    -OA.SUBSL                                                       FAS         2954     A     
 FAS                BX6    -X4*X6                                                          FAS         2955     A     
 FAS                ERRMI  IA.BIASL-OA.SUBSL                                               FAS         2956     A     
 FAS                LX6    OA.SUBSP                                                        FAS         2957     A     
 FAS                BX6    X6+X3       ADD IN FP BIT                                       FAS         2958     A     
 FAS                SA4    BINWORD                                                         FAS         2959     A     
 FAS                =X7    X7-1        FPNOI = FPNOI - 1                                   FAS         2960     A     
 FAS                LX7    OA.ARGP                                                         FAS         2961     A     
 FAS                BX1    X6+X7                                                           FAS         2962     A     
 FAS                BX1    X1+X4                                                           FAS         2963     A     
 FAS                =X2    0           INDICATE NO RELOCATION                              FAS         2964     A     
 FAS       KAP50    BX6    X1                                                              FAS         2965     A     
 FAS                SB3    A0                                                              FAS         2966     A     
 FAS                SA3    T.PTXTR                                                         FAS         2967     A     
 FAS                SA6    X3+B3       T.PTXTR(STOIND) = BINARY EQUIVALENT                 FAS         2968     A     
 FAS                =A0    A0+1        STIND = STIND + 1                                   FAS         2969     A     
 FAS                RJ     STX         STORE INTO TEXT                                     FAS         2970     A     
 FAS                MX7    0                                                               FAS         2971          I
          -FC5A250
 FAS                SA7    XFIL        (XFIL) = 0                                          FAS         2972          I
          -FC5A250
 FAS                EQ     KAP10                                                           FAS         2973     A     
 FAS                                                                                       FAS         2974     A     
 FAS                                                                                       FAS         2975     A     
 FAS      **        OUTPUT CHARACTER RELATIONAL HEADER WORD.                               FAS         2976     A     
 FAS      *         (X2) = 0                                                               FAS         2977     A     
 FAS      *         (X3) = TAGI                                                            FAS         2978     A     
 FAS      *         (X6) = BIASI                                                           FAS         2979     A     
 FAS                                                                                       FAS         2980     A     
 FAS       KAP80    LX6    OA.RITEP                                                        FAS         2981     A     
 FAS                LX3    OA.LEFTP                                                        FAS         2982     A     
 FAS                ERRNZ  IA.LEFTP-IA.TAGP                                                FAS         2983     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                ERRNZ  IA.RITEP-IA.BIASP                                               FAS         2984     A     
 FAS                BX1    X3+X6                                                           FAS         2985     A     
 FAS                MX2    0           INDICATE NO RELOCATION                              FAS         2986     A     
 FAS                EQ     KAP50                                                           FAS         2987     A     
 FAS                                                                                       FAS         2988     A     
 FAS       KAPA     EQU    TEMP        SAVED T.APL INDEX                                   FAS         2989     A     
 FAS       KIO      SPACE  4,10                                                            FAS         2990     A     
 FAS      *         KIO - COMPILE I/O AP-LIST ITEMS.                                       FAS         2991     A     
 FAS      *                                                                                FAS         2992     A     
 FAS      *         RELOCATES AND REFORMATS *T.IOA* INTO BINARY LOADER TEXT                FAS         2993     A     
 FAS      *         DEFINED AS OA. .                                                       FAS         2994     A     
 FAS      *         USES:  ALL                                                             FAS         2995     A     
 FAS      *         CALLS: DTX,STX,REL,MFE                                                 FAS         2996     A     
 FAS      *         CELLS  KIOA                                                            FAS         2997     A     
 FAS                                                                                       FAS         2998     A     
 FAS                                                                                       FAS         2999     A     
 FAS       KIO      SUBR   0           ENTRY/EXIT.                                         FAS         3000     A     
 FAS                SX6    IA.BIASP-PB.BIASP                                               FAS         3001     A     
 FAS                SA6    RELPOS                                                          FAS         3002     A     
 FAS                BX7    0                                                               FAS         3003     A     
 FAS                SA7    BINWORD                                                         FAS         3004     A     
 FAS                SA7    A7+B1                                                           FAS         3005     A     
 FAS                SA7    KIOB        IND = 0                                             FAS         3006     A     
 FAS                RJ     DTX         SET ORIGIN IN TEXT TABLE                            FAS         3007     A     
 FAS                SA1    T=IOA                                                           FAS         3008     A     
 FAS                SA0    B0          STIND = 0         /* (T.PTXTR) INDEX                FAS         3009     A     
 FAS                AX0    X1,B1                                                           FAS         3010     A     
 FAS                ERRNZ  2-Z=IOA     TWO WORDS PER ENTRY                                 FAS         3011     A     
 FAS                ALLOC  T.PTXTR,X0                                                      FAS         3012     A     
 FAS                                                                                       FAS         3013     A     
 FAS      *         PROCESS NEXT ENTRY FROM T.IOA.                                         FAS         3014     A     
 FAS      *         (A0) = NEXT STORE ADDRESS FOR SCRATCH TABLE (T.PTXTR).                 FAS         3015     A     
 FAS                                                                                       FAS         3016     A     
 FAS       KIO10    SA5    T=IOA                                                           FAS         3017     A     
 FAS                SA2    T.IOA                                                           FAS         3018     A     
 FAS                SA1    KIOB        IND = (KIOB)                                        FAS         3019     A     
 FAS                =X3    Z=IOA                                                           FAS         3020     A     
 FAS                IX7    X5-X1       = LEN(T.IOA) - IND                                  FAS         3021     A     
 FAS                IX6    X1+X3                                                           FAS         3022     A     
 FAS                ZR     X7,EXIT.    IF END OF T.IOA                                     FAS         3023     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         3024     A     
 FAS                MI     X7,"BLOWUP" IF SOMETHING HORRIBLE                               FAS         3025     A     
 FAS                SA6    A1          (KIOB) = IND + Z=IOA                                FAS         3026     A     
 FAS                IX4    X2+X1                                                           FAS         3027     A     
 FAS                SA4    X4          IO1 = T.IOA(IND)                                    FAS         3028     A     
 FAS                =A3    A4+1        IO2 = IO1 + 1                                       FAS         3029     A     
 FAS                LX1    X4                                                              FAS         3030     A     
 FAS                =X2    0                                                               FAS         3031     A     
 FAS                ZR     X4,KIO110   IF +/- 0                                            FAS         3032     A     
 FAS                BX5    X4                                                              FAS         3033     A     
 FAS                BX6    X3                                                              FAS         3034     A     
 FAS                SA6    KIOA        (KIOA) = IO2                                        FAS         3035     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX7    -IA.MODEL                                                       FAS         3036     A     
 FAS                LX1    -IA.MODEP                                                       FAS         3037     A     
 FAS                LX4    -IA.VARP                                                        FAS         3038     A     
 FAS                BX2    -X7*X1      TYPE = MODE[IO1]                                    FAS         3039     A     
 FAS                SB3    X2          REMEMBER (B3) = TYPE                                FAS         3040     A     
 FAS                SX0    B1                                                              FAS         3041     A     
 FAS                LX1    IA.MODEP-IA.IOCP                                                FAS         3042     A     
 FAS                BX3    X0*X1       LST = IOC[IO1]                                      FAS         3043     A     
 FAS                LX3    OA.LSTP                                                         FAS         3044     A     
 FAS                NZ     X3,KIO12    IF CONTROL ITEM                                     FAS         3045     A     
 FAS                LX2    2                                                               FAS         3046     A     
 FAS                MX6    -4                                                              FAS         3047     A     
 FAS                SB4    X2                                                              FAS         3048     A     
 FAS                SA2    FCLMOD                                                          FAS         3049     A     
 FAS                AX2    B4                                                              FAS         3050     A     
 FAS                BX2    -X6*X2                                                          FAS         3051     A     
 FAS                BX7    -X4*X0      VARI = .NOT. VAR[IO1]                               FAS         3052     A     
 FAS                LX7    OA.VARP                                                         FAS         3053     A     
 FAS                BX3    X3+X7       VAR[BINLIST] = VARI                                 FAS         3054     A     
 FAS       KIO12    LX2    OA.TYPP                                                         FAS         3055     A     
 FAS                BX6    X2+X3                                                           FAS         3056     A     
 FAS                MX7    -IA.TAGL                                                        FAS         3057     A     
 FAS                LX4    IA.VARP-IA.TAGP                                                 FAS         3058     A     
 FAS                LX1    IA.IOCP-IA.CHARP                                                FAS         3059     A     
 FAS                BX3    -X7*X4      TAGI = TAG[IO1]                                     FAS         3060     A     
 FAS                BX2    X0*X1       CHARI = CHAR[IO1]                                   FAS         3061     A     
 FAS                SB4    X2          REMEMBER (B4) = CHARI                               FAS         3062     A     
 FAS                LX4    IA.TAGP-IA.BIASP                                                FAS         3063     A     
 FAS                MX7    -IA.BIASL                                                       FAS         3064     A     
 FAS                BX7    -X7*X4      BIASI = BIAS[IO1]                                   FAS         3065     A     
 FAS                MX2    -PB.ORDL                                                        FAS         3066     A     
 FAS                BX1    X2*X3       PFXI = PFX[TAGI]                                    FAS         3067     A     
 FAS                ERRNZ  K=SYM                                                           FAS         3068     A     
 FAS                LX4    IA.BIASP-1-IA.STP                                               FAS         3069     A     
 FAS                MX2    0           INDICATE NON FP                                     FAS         3070     A     
 FAS                NZ     X1,KIO15    IF PFXI .NE. K=SYM                                  FAS         3071     A     
 FAS                SA2    T.SYM                                                           FAS         3072     A     
 FAS                LX1    X3,B1                                                           FAS         3073     A     
 FAS                IX1    X1+X3       STIND = 3 * TAGI                                    FAS         3074     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         3075     A     
 FAS                IX2    X2+X1                                                           FAS         3076     A     
 FAS                =A2    X2+WB.W     WBI = T.SYM(STIND) + WB.W                           FAS         3077     A     
 FAS                CLAS=  X1,WB,(LCM)                                                     FAS         3078     A     
 FAS                BX1    X2*X1       LCMI = LCM[WBI]                                     FAS         3079     A     
 FAS                HX2    WB.FP                                                           FAS         3080     A     
 FAS                LX1    OA.LCMP-WB.LCMP                                                 FAS         3081     A     
 FAS                BX6    X6+X1       ADD IN LCM BIT                                      FAS         3082     A     
 FAS       KIO15    SA6    BINWORD     (LCM,LST,TYPE)[BINWORD] = (LCMI,IOC,TYPE)           FAS         3083     A     
 FAS                MI     X4,KIO18    IF ST                                               FAS         3084     A     
 FAS                                                                                       FAS         3085     A     
 FAS      *         FOR NON-CHARACTER FP ITEMS,                                            FAS         3086     A     
 FAS      *         SET    ARG[OA.] = FPNO[WBI] - 1,                                       FAS         3087     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                SUBS[OA.] = BIAS[IO1],                                          FAS         3088     A     
 FAS      *                FP[OA.] = FP[WBI].                                              FAS         3089     A     
 FAS      *         (X7) = BIASI                                                           FAS         3090     A     
 FAS      *         (A6,X6) = BINWORD                                                      FAS         3091     A     
 FAS                                                                                       FAS         3092     A     
 FAS                NZ     B4,KIO20    IF CHARACTER                                        FAS         3093     A     
 FAS                PL     X2,KIO40    IF NOT FP                                           FAS         3094     A     
 FAS                MX4    1                                                               FAS         3095     A     
 FAS                BX4    X4*X2       FPI = FP[WBI]                                       FAS         3096     A     
 FAS                LX4    1+OA.FPP                                                        FAS         3097     A     
 FAS                MX1    -WB.FPNOL                                                       FAS         3098     A     
 FAS                LX2    1+WB.FPP-WB.FPNOP                                               FAS         3099     A     
 FAS                BX1    -X1*X2      FPNOI = FPNO[WBI]                                   FAS         3100     A     
 FAS                MX5    -OA.SUBSL                                                       FAS         3101     A     
 FAS                BX7    -X5*X7                                                          FAS         3102     A     
 FAS                ERRMI  IA.BIASL-OA.SUBSL                                               FAS         3103     A     
 FAS                LX7    OA.SUBSP                                                        FAS         3104     A     
 FAS                BX4    X4+X7                                                           FAS         3105     A     
 FAS                =X5    X1-1        FPNOI = FPNOI - 1                                   FAS         3106     A     
 FAS                LX5    OA.ARGP                                                         FAS         3107     A     
 FAS                BX1    X4+X5                                                           FAS         3108     A     
 FAS                BX6    X1+X6                                                           FAS         3109     A     
 FAS       KIO18    BX2    X6                                                              FAS         3110     A     
 FAS                HX2    OA.LST                                                          FAS         3111     A     
 FAS                SA6    BINWORD                                                         FAS         3112     A     
 FAS                PL     X2,KIO85    IF NOT CONTROL ITEM                                 FAS         3113     A     
 FAS                CLAS=  X0,OA,(IND)                                                     FC5A131        6     A     
 FAS                SX1    B3-IC.STR                                                       FC5A131        7     A     
 FAS                ZR     X1,KIO19    IF ENCODE/DECODE STRING                             FC5A131        8     A     
 FAS                SX1    B3-IC.BUF                                                       FC5A131        9     A     
 FAS                ZR     X1,KIO19    IF BUFFER I/O FWA/LWA                               FC5A131       10     A     
 FAS                CLAS=  X0,OA,(VAR)                                                     FAS         3114     A     
 FAS                BX6    X6+X0                                                           FAS         3115          I
          -FC5A131
 FAS                                                                                       FC5A131       11     A     
 FAS       KIO19    BX6    X0+X6                                                           FC5A131       12     A     
 FAS                ZR     X3,KIO85    IF TAGI .EQ. 0                                      FAS         3116     A     
 FAS                SA6    A6          VAR[BINWORD] = 1                                    FAS         3117     A     
 FAS                EQ     KIO85                                                           FAS         3118     A     
 FAS                                                                                       FAS         3119     A     
 FAS      *         CHARACTER I/O AP-LIST.                                                 FAS         3120     A     
 FAS      *         IF NOT FP, COPY (BCP,CLEN) FROM T.CAC(BIAS[IO1]) ENTRY                 FAS         3121     A     
 FAS      *         AND REPLACE BIAS[IO1] WITH RA [T.CAC(BIAS[IO1])] BEFORE                FAS         3122     A     
 FAS      *         RELOCATION.                                                            FAS         3123     A     
 FAS      *         (X7) = BIASI                                                           FAS         3124     A     
 FAS      *         (A6,X6) = BINWORD                                                      FAS         3125     A     
 FAS                                                                                       FAS         3126     A     
 FAS       KIO20    PL     X2,KIO30    IF NOT FP                                           FAS         3127     A     
 FAS                EQ     "BLOWUP"    CHAR I/O AP SHOULD NOT BE FP                        FAS         3128     A     
 FAS                                                                                       FAS         3129     A     
 FAS       KIO30    SA1    T.CAC                                                           FAS         3130     A     
 FAS                SB5    X1                                                              FAS         3131     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX0    -IA.BIASL                                                       FAS         3132     A     
 FAS                LX5    -IA.BIASP                                                       FAS         3133     A     
 FAS                BX5    X0*X5       CLEAR BIAS FIELD                                    FAS         3134     A     
 FAS                SA4    X7+B5       CACI = T.CAC(BIASI)                                 FAS         3135     A     
 FAS                MX1    -WC.CLENL                                                       FAS         3136     A     
 FAS                MX7    -WC.BCPL                                                        FAS         3137     A     
 FAS                BX2    X4                                                              FAS         3138     A     
 FAS                LX4    -WC.RAP                                                         FAS         3139     A     
 FAS                LX2    -WC.CLENP                                                       FAS         3140     A     
 FAS                BX4    -X0*X4      BIASI = RA[CACI], TRUNCATED TO IA.BIASL             FAS         3141     A     
 FAS                BX5    X5+X4       REPLACE BIAS FIELD                                  FAS         3142     A     
 FAS                LX5    IA.BIASP                                                        FAS         3143     A     
 FAS                BX0    -X1*X2      CLENI = CLEN[CACI]                                  FAS         3144     A     
 FAS                LX0    OA.LENP                                                         FAS         3145     A     
 FAS                LX2    WC.CLENP-WC.BCPP                                                FAS         3146     A     
 FAS                BX2    -X7*X2      BCPI = BCP[CACI]                                    FAS         3147     A     
 FAS                LX2    OA.BCPP                                                         FAS         3148     A     
 FAS                BX2    X2+X0                                                           FAS         3149     A     
 FAS                BX6    X6+X2                                                           FAS         3150     A     
 FAS                SA6    BINWORD     (CLEN,BCP)[BINWORD] = (CLENI,BCPI)[OA.]             FAS         3151     A     
 FAS                                                                                       FAS         3152     A     
 FAS      *         JUMP TO APPROPRIATE I/O PROCESSOR.                                     FAS         3153     A     
 FAS      *         (B3) = TYPE                                                            FAS         3154     A     
 FAS                                                                                       FAS         3155     A     
 FAS                                                                                       FAS         3156     A     
 FAS       KIO40    SA4    BINWORD                                                         FAS         3157     A     
 FAS                MX7    -OA.ADRL                                                        FAS         3158     A     
 FAS                MX1    PB.GHIJL                                                        FAS         3159     A     
 FAS                LX5    PB.TAGP-IA.TAGP                                                 FAS         3160     A     
 FAS                BX5    -X1*X5      CLEAR (GHIJ) FILED                                  FAS         3161     A     
 FAS                SA7    RELMASK                                                         FAS         3162     A     
 FAS                BX2    X4                                                              FAS         3163     A     
 FAS                HX2    OA.LST                                                          FAS         3164     A     
 FAS                PL     X2,KIO=LIS  IF NOT CONTROL ITEM                                 FAS         3165     A     
 FAS                                                                                       FAS         3166     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         3167     A     
 FAS                ZR     B3,"BLOWUP" IF CONTROL CODE .EQ. 0                              FAS         3168     A     
 FAS                SX0    B3-IC=LEN-1                                                     FAS         3169     A     
 FAS                PL     X0,"BLOWUP" IF CONTROL CODE TOO BIG                             FAS         3170     A     
 FAS       .T       ENDIF                                                                  FAS         3171     A     
 FAS                                                                                       FAS         3172     A     
 FAS                JP     B3+IOCAD-1                                                      FAS         3173     A     
 FAS       KIO=     SPACE  4,10                                                            FAS         3174     A     
 FAS      **        KIO=   I/O CONTROL ITEM PROCESSORS.                                    FAS         3175     A     
 FAS      *                                                                                FAS         3176     A     
 FAS      *         ENTRY  A4 - BINWORD                                                    FAS         3177     A     
 FAS      *                A2 _ WBI                                                        FAS         3178     A     
 FAS      *                (X3) = TAGI.                                                    FAS         3179     A     
 FAS      *                (X5) = IO1.                                                     FAS         3180     A     
 FAS                                                                                       FAS         3181     A     
 FAS       KIO=     BSS    0                                                               FAS         3182     A     
 FAS                EQ     "BLOWUP"    CODE NOT IMPLEMENTED                                FAS         3183     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       KIO=END  SPACE  4,4                                                             FAS         3184     A     
 FAS      *         3/0,1/LST,2/0,6/TYPE,30/0,18/ADR.                                      FAS         3185          I
          -FC5A373
 FAS                                                                                       FAS         3186          I
          -FC5A373
 FAS       KIO=END  BSS    0                                                               FAS         3187     A     
 FAS       KIO=ERR  BSS    0                                                               FAS         3188     A     
 FAS       KIO=MOD  BSS    0                                                               FAS         3189     A     
 FAS       KIO=NML  BSS    0                                                               FAS         3190     A     
 FAS       KIO=RCL  BSS    0                                                               FAS         3191     A     
 FAS       KIO=SKP  BSS    0                                                               FAS         3192     A     
 FAS                MX7    -18                                                             FAS         3193     A     
 FAS                =B2    1           INDICATE LOWER PARCEL RELOCATION                    FAS         3194     A     
 FAS                SA7    RELMASK                                                         FAS         3195     A     
 FAS                RJ     REL                                                             FAS         3196     A     
 FAS                SA1    BINWORD                                                         FAS         3197     A     
 FAS                SA2    BINREL                                                          FAS         3198     A     
 FAS                EQ     KIO110                                                          FAS         3199     A     
 FAS       KIO=BUF  SPACE  4,4                                                             FAS         3200     A     
 FAS      *         1/LCM,1/FP,1/IND,1/LST,2/0,6/TYPE,24/0,24/ADR.                         FAS         3201          I
          -FC5A373
 FAS                                                                                       FAS         3202          I
          -FC5A373
 FAS       KIO=BUF  BSS    0                                                               FAS         3203     A     
 FAS                SB6    OA.LENP     LENGTH SHOULD BE *1*                                FC5A373        5     A     
 FAS                EQ     KIO60                                                           FC5A373        6     A     
 FAS       KIO=CNT  SPACE  4,10                                                            FC5A373        7          I
          -FC50722
 FAS       KIO=CNT  BSS    0                                                               FAS         3204          I
          -FC50722
 FAS       KIO=STR  BSS    0                                                               FAS         3205          I
          -FC50722
 FAS                SB6    OA.INDP                                                         FAS         3206          I
          -FC50722
 FAS                EQ     KIO60                                                           FAS         3207          I
          -FC50722
 FAS       KIO=FMTA SPACE  4,10                                                            FAS         3208     A     
 FAS       KIO=FMTA BSS    0                                                               FAS         3209     A     
 FAS                CLAS=  X1,OA,(TYP)                                                     FAS         3210     A     
 FAS                =X6    IC.FMT                                                          FAS         3211     A     
 FAS                LX6    OA.TYPP                                                         FAS         3212     A     
 FAS                BX4    -X1*X4      CLEAR MODE FIELD                                    FAS         3213     A     
 FAS                BX4    X4+X6                                                           FAS         3214     A     
 FAS                CLAS=  X1,OA,(IND)                                                     FAS         3215     A     
 FAS                BX6    X4+X1       ADD IN IND BIT FOR ASSIGN                           FAS         3216     A     
 FAS                SA6    A4          (MODE,IND)[BINWORD] = (IC.FMT,1)[OA.]               FAS         3217     A     
 FAS                EQ     KIO80                                                           FAS         3218     A     
 FAS       KIO=FMT  SPACE  4,4                                                             FAS         3219     A     
 FAS       KIO=ACC  BSS    0                                                               FAS         3220     A     
 FAS       KIO=BFL  BSS    0                                                               FAS         3221     A     
 FAS       KIO=BLK  BSS    0                                                               FAS         3222     A     
 FAS       KIO=EXS  BSS    0                                                               FAS         3223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1823    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       KIO=DIR  BSS    0                                                               FAS         3224     A     
 FAS       KIO=FIL  BSS    0                                                               FAS         3225     A     
 FAS       KIO=FMD  BSS    0                                                               FAS         3226     A     
 FAS       KIO=FOR  BSS    0                                                               FAS         3227     A     
 FAS       KIO=NAM  BSS    0                                                               FAS         3228     A     
 FAS       KIO=NMD  BSS    0                                                               FAS         3229     A     
 FAS       KIO=NXT  BSS    0                                                               FAS         3230     A     
 FAS       KIO=NUM  BSS    0                                                               FAS         3231     A     
 FAS       KIO=OPE  BSS    0                                                               FAS         3232     A     
 FAS       KIO=SEQ  BSS    0                                                               FAS         3233     A     
 FAS       KIO=STA  BSS    0                                                               FAS         3234     A     
 FAS       KIO=UNF  BSS    0                                                               FAS         3235     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FC5A369       27     A     
 FAS                ZR     X3,"BLOWUP" IF TAGI .EQ. 0                                      FC5A369       28     A     
 FAS                CLAS=  X7,OA,(VAR)                                                     FC5A369       29     A     
 FAS                BX6    X7+X4                                                           FC5A369       30     A     
 FAS                SA6    A4          VAR[BINWORD] = VARI[OA.]                            FC5A369       31     A     
 FAS                EQ     KIO80                                                           FC5A369       32     A     
 FAS       KIO=FMT  SPACE  4,10                                                            FC5A369       33     A     
 FAS       KIO=FMT  BSS    0                                                               FAS         3236     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         3237     A     
 FAS                ZR     X3,"BLOWUP" IF TAGI .EQ. 0                                      FAS         3238     A     
 FAS                SA1    A2          WBI                                                 FAS         3239     A     
 FAS                SBIT   X1,WB.LABP                                                      FAS         3240     A     
 FAS                MX7    1                                                               FAS         3241          I
          -FC5A369
 FAS                BX0    X7*X1       LABI = LAB[WBI]                                     FAS         3242          I
          -FC5A369
 FAS                BX7    X0-X7       VARI = 1, IF .NOT. LAB[WBI]                         FAS         3243          I
          -FC5A369
 FAS                LX7    1+OA.VARP                                                       FAS         3244          I
          -FC5A369
 FAS                BX6    X7+X4                                                           FAS         3245          I
          -FC5A369
 FAS                SA6    A4          VAR [BINWORD] = VARI[OA.]                           FAS         3246          I
          -FC5A369
 FAS                CLAS=  X7,OA,(VAR)                                                     FC5A369       34     A     
 FAS                PL     X1,KIO=FMT1 IF NOT FORMAT LABEL                                 FC5A369       35     A     
 FAS                MX7    -WB.FMTLL                                                       FC5A369       36     A     
 FAS                LX1    WB.LABL+WB.LABP-WB.FMTLP                                        FC5A369       37     A     
 FAS                BX7    -X7*X1      EXTRACT FORMAT LENGTH                               FC5A369       38     A     
 FAS                LX7    OA.LENP                                                         FC5A369       39     A     
 FAS                                                                                       FC5A369       40     A     
 FAS       KIO=FMT1 BX6    X7+X4                                                           FC5A369       41     A     
 FAS                SA6    A4                                                              FC5A369       42     A     
 FAS                EQ     KIO80                                                           FAS         3247     A     
 FAS       KIO=REC  SPACE  4,10                                                            FAS         3248     A     
 FAS      *         1/LCM,1/FP,1/IND,1/LST,1/VAR,1/0,6/TYPE,18/LEN,4/BCP,24/ADR.           FAS         3249          I
          -FC5A369
 FAS                                                                                       FAS         3250          I
          -FC5A369
 FAS       KIO=REC  BSS    0                                                               FAS         3251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       KIO=IOS  BSS    0                                                               FAS         3252     A     
 FAS       KIO=UNT  BSS    0                                                               FAS         3253     A     
 FAS                SB6    OA.VARP                                                         FAS         3254     A     
 FAS       KIO60    BSS    0                                                               FAS         3255     A     
 FAS                MX2    0           INDV = 0                                            FAS         3256     A     
 FAS                ZR     X3,KIO70    IF TAGI .EQ. 0                                      FAS         3257     A     
 FAS                =X2    1           INDV = 1                                            FAS         3258     A     
 FAS       KIO70    LX2    X2,B6                                                           FAS         3259     A     
 FAS                BX6    X4+X2                                                           FAS         3260     A     
 FAS                SA6    A4          IND[BINWORD] = INDV                                 FAS         3261     A     
 FAS                                                                                       FAS         3262     A     
 FAS      *         RELOCATE THE ADDRESS.                                                  FAS         3263     A     
 FAS                                                                                       FAS         3264     A     
 FAS       KIO=CNT  BSS    0                                                               FC50722        7     A     
 FAS       KIO=STR  BSS    0                                                               FC50722        8     A     
 FAS       KIO=LIS  BSS    0                                                               FAS         3265     A     
 FAS       KIO80    =B2    1           INDICATE LOWER PARCEL RELOCATION                    FAS         3266     A     
 FAS                RJ     REL                                                             FAS         3267     A     
 FAS       KIO85    SA1    BINWORD                                                         FAS         3268     A     
 FAS                SA2    BINREL                                                          FAS         3269     A     
 FAS                SA5    KIOA        IO2 = (KIOA)                                        FAS         3270     A     
 FAS                ZR     X5,KIO110   IF (IO2) .EQ. 0                                     FAS         3271     A     
 FAS                                                                                       FAS         3272     A     
 FAS      *         PROCESS THE LENGTH WORD. (IO2)                                         FAS         3273     A     
 FAS      *         (X5) = IO2                                                             FAS         3274     A     
 FAS                                                                                       FAS         3275     A     
 FAS       KIO90    LX5    -IA.TAGP                                                        FAS         3276     A     
 FAS                MX2    OA.LENL                                                         FAS         3277     A     
 FAS                LX2    OA.LENL+OA.LENP                                                 FAS         3278     A     
 FAS                BX7    -X2*X1      LEN[BINWORD] = 0                                    FAS         3279     A     
 FAS                MX0    -IA.TAGL                                                        FAS         3280     A     
 FAS                BX3    -X0*X5      TAGI = TAG[IO2]                                     FAS         3281     A     
 FAS                MX0    0           IND = 0                                             FAS         3282     A     
 FAS                MX6    -OA.LENL                                                        FAS         3283     A     
 FAS                ZR     X3,KIO100   IF TAGI .EQ. 0                                      FAS         3284     A     
 FAS                SX0    1           IND = 1                                             FAS         3285     A     
 FAS       KIO100   =B2    3           INDICATE UPPER PARCEL RELOCATION                    FAS         3286     A     
 FAS                LX0    OA.INDP                                                         FAS         3287     A     
 FAS                BX7    X7+X0       ADD IN IND BIT                                      FAS         3288     A     
 FAS                MX3    PB.GHIJL                                                        FAS         3289     A     
 FAS                LX5    PB.TAGP                                                         FAS         3290     A     
 FAS                BX5    -X3*X5      CLEAR (GHIJ) FIELD                                  FAS         3291     A     
 FAS                SA6    RELMASK                                                         FAS         3292     A     
 FAS                SA7    A1          IND[BINWORD] = IND                                  FAS         3293     A     
 FAS                RJ     REL                                                             FAS         3294     A     
 FAS                SA1    BINWORD                                                         FAS         3295     A     
 FAS                SA2    BINREL                                                          FAS         3296     A     
 FAS                                                                                       FAS         3297     A     
 FAS       KIO110   SA3    T.PTXTR                                                         FAS         3298     A     
 FAS                SB3    A0                                                              FAS         3299     A     
 FAS                BX6    X1                                                              FAS         3300     A     
 FAS                =A0    A0+1        STIND = STIND + 1                                   FAS         3301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA6    X3+B3       T.PTXTR(STIND) = BINARY WORD                        FAS         3302     A     
 FAS                RJ     STX         STORE THE TEXT WORD                                 FAS         3303     A     
 FAS                EQ     KIO10                                                           FAS         3304     A     
 FAS                                                                                       FAS         3305     A     
 FAS       KIOA     EQU    TEMP        SAVED SECOND WORD OF I/O AP                         FAS         3306     A     
 FAS       KIOB     EQU    TEMP+1      SAVED T.IOA INDEX                                   FAS         3307     A     
 FAS       KNG      SPACE  4,10                                                            FAS         3308     A     
 FAS      **        KNG - KOMPILE NAMELIST GROUP DEFINITIONS.                              FAS         3309     A     
 FAS                                                                                       FAS         3310     A     
 FAS                                                                                       FAS         3311     A     
 FAS      **        DEFINE NAMELIST DEFINITION BINARY OUTPUT FORMATS.                      FAS         3312     A     
 FAS                                                                                       FAS         3313     A     
 FAS                DESCRIBE   NA.     GROUP DEFINITION HEADER                             FAS         3314     A     
 FAS       GNAM     DEFINE WA.SYML     GROUP NAME, L FORMAT                                FAS         3315     A     
 FAS       NMEM     DEFINE 18          NUMBER OF GROUP MEMBERS                             FAS         3316     A     
 FAS                                                                                       FAS         3317     A     
 FAS                DESCRIBE   NB.     MEMBER HEADER                                       FAS         3318     A     
 FAS       MNAM     DEFINE WA.SYML     MEMBER NAME, L FORMAT                               FAS         3319     A     
 FAS       DADR     DEFINE 18          IF ARRAY, ADDR OF RUN-TIME DIM TABLE.               FAS         3320     A     
 FAS                                   IF VARIABLE, =0.                                    FAS         3321     A     
 FAS                                                                                       FAS         3322     A     
 FAS                DESCRIBE   NC.     MEMBER APLIST -- SAME AS STANDARD I/O APL.          FAS         3323     A     
 FAS       TEMP     DEFINE 60          *****  TEMP  *****                                  FAS         3324     A     
 FAS                                                                                       FAS         3325     A     
 FAS                                                                                       FAS         3326     A     
 FAS                                                                                       FAS         3327     A     
 FAS       KNG      SUBR   0           ENTRY/EXIT...                                       FAS         3328     A     
 FAS                                                                                       FAS         3329     A     
 FAS      *         ISSUE RUN-TIME ARRAY DIMENSION INFO TABLES.                            FAS         3330     A     
 FAS                                                                                       FAS         3331     A     
 FAS                RJ     DTX         INITIALIZE TEXT TABLE                               FAS         3332     A     
 FAS                MX7    0           SELECT ONLY MATERIAL DIM ENTRIES                    FAS         3333     A     
 FAS                RJ     ORD         OUTPUT RUN-TIME DIM TABLE                           FAS         3334     A     
 FAS                                                                                       FAS         3335     A     
 FAS      *         ISSUE NAMELIST GROUP DEFINITIONS.                                      FAS         3336     A     
 FAS                                                                                       FAS         3337     A     
 FAS                SA1    S=RD                                                            FAS         3338     A     
 FAS                SA2    T.SYM                                                           FAS         3339     A     
 FAS                MX6    -PB.BIASL                                                       FAS         3340     A     
 FAS                LX3    X1,B1                                                           FAS         3341     A     
 FAS                IX7    X3+X1                                                           FAS         3342     A     
 FAS                MX0    0                                                               FAS         3343     A     
 FAS                ERRNZ  Z=SYM-3                                                         FAS         3344     A     
 FAS                SA6    RELMASK                                                         FAS         3345     A     
 FAS                SA6    SUBFLG      INHIBIT *SUB*                                       FAS         3346     A     
 FAS                SB2    X7+WC.W                                                         FAS         3347     A     
 FAS                SA1    X2+B2       T.SYM WORD C FOR *RD.* ENTRY                        FAS         3348     A     
 FAS                MX3    -WC.RAL                                                         FAS         3349     A     
 FAS                LX1    -WC.RAP                                                         FAS         3350     A     
 FAS                BX6    -X3*X1                                                          FAS         3351     A     
 FAS                SA6    KNGB        (KNGB) = SAVE LOCAL COPY OF R-T DIM RA              FAS         3352     A     
 FAS                PX7    X0                                                              FAS         3353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA7    KNGA        INITIALIZE LOOP RESTART PARAMS                      FAS         3354     A     
 FAS                                                                                       FAS         3355     A     
 FAS      *         (KNG10)  PROCESS A NAMELIST GROUP.                                     FAS         3356     A     
 FAS                                                                                       FAS         3357     A     
 FAS       KNG10    SA1    KNGA                                                            FAS         3358     A     
 FAS                UX6,B2 X1          (B2) = T.NLST ORD OF GRP-NAME (=0)                  FAS         3359     A     
 FAS                                                                                       FAS         3360     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         3361     A     
 FAS                NZ     B2,"BLOWUP" IF NOT GRP-NAME REQUEST                             FAS         3362     A     
 FAS       .T       ENDIF                                                                  FAS         3363     A     
 FAS                                                                                       FAS         3364     A     
 FAS                SB3    X1          (B3) = T.NLST INDEX OF FWA GROUP                    FAS         3365     A     
 FAS                RJ     SNR         SET NAMELIST REGISTERS                              FAS         3366     A     
 FAS                MI     B3,KNG90    IF NO MORE GROUPS                                   FAS         3367     A     
 FAS                SX3    B3          SAVE RESTART PARAMS                                 FAS         3368     A     
 FAS                PX6    X3,B2                                                           FAS         3369     A     
 FAS                SA6    KNGA                                                            FAS         3370     A     
 FAS                =A1    A1+WA.W-WB.W                                                    FAS         3371     A     
 FAS                MX0    NA.GNAML                                                        FAS         3372     A     
 FAS                SX3    B4          NUMBER OF GROUP MEMBERS                             FAS         3373     A     
 FAS                HX1    WA.SYM                                                          FAS         3374     A     
 FAS                BX1    X0*X1                                                           FAS         3375     A     
 FAS                LX3    NA.NMEMP                                                        FAS         3376     A     
 FAS                =X2    0           (X2) = NO RELOC                                     FAS         3377     A     
 FAS                ERRNZ  NA.GNAMP-WA.SYMP                                                FAS         3378     A     
 FAS                IX1    X1+X3       (X1) = 42/ GRP-NAME, L FORMAT,  18/ NR MEMS         FAS         3379     A     
 FAS                RJ     STX         ISSUE GROUP DEFINITION HEADER                       FAS         3380     A     
 FAS                                                                                       FAS         3381     A     
 FAS      *         (KNG20)  PROCESS A NAMELIST GROUP MEMBER.                              FAS         3382     A     
 FAS                                                                                       FAS         3383     A     
 FAS       KNG20    SA1    KNGA                                                            FAS         3384     A     
 FAS                UX6,B2 X1                                                              FAS         3385     A     
 FAS                SB3    X1                                                              FAS         3386     A     
 FAS                ZR     B2,KNG10    IF NO MORE MEMBERS IN CURRENT GROUP                 FAS         3387     A     
 FAS                RJ     SNR         SET NAMELIST REGISTERS                              FAS         3388     A     
 FAS                SX7    A1                                                              FAS         3389     A     
 FAS                SX3    B3          SAVE RESTART PARAMS                                 FAS         3390     A     
 FAS                PX6    X3,B2                                                           FAS         3391     A     
 FAS                SA6    KNGA                                                            FAS         3392     A     
 FAS                SA7    KNGC        SAVE ADDRESS OF WB WORD                             FAS         3393     A     
 FAS                =A3    A1+WA.W-WB.W      EXTRACT MEMBER NAME                           FAS         3394     A     
 FAS                MX0    NB.MNAML                                                        FAS         3395     A     
 FAS                HX3    WA.SYM                                                          FAS         3396     A     
 FAS                BX6    X0*X3                                                           FAS         3397     A     
 FAS                ERRNZ  NB.MNAMP-WA.SYMP                                                FAS         3398     A     
 FAS                IX1    X6+X2       MERGE ADDR OF RUN-TIME DIM INFO                     FAS         3399     A     
 FAS                                                                                       FAS         3400     A     
 FAS      *         SEND MEMBER INFO TO BINARY OUTPUT FILE.                                FAS         3401     A     
 FAS                                                                                       FAS         3402     A     
 FAS                MX0    1                                                               FAS         3403     A     
 FAS                =X2    0           (X2) = PRESET NO RELOC                              FAS         3404     A     
 FAS                LX0    NB.DADRP+NB.DADRL                                               FAS         3405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1827    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX6    X0*X1       EXTRACT  *SIMPLE VAR*  FLAG BIT                     FAS         3406     A     
 FAS                =A3    KNGB                                                            FAS         3407     A     
 FAS                BX1    -X0*X1      CLEAR FLAG IF SET                                   FAS         3408     A     
 FAS                NZ     X6,KNG32    IF SIMPLE VARIABLE                                  FAS         3409     A     
 FAS                IX1    X1+X3       RELOCATE RUN-TIME DIMTAB ADDRESS                    FAS         3410     A     
 FAS                =X2    2           (X2) = LOWER PARCEL, PROGRAM RELOCATION             FAS         3411     A     
 FAS       KNG32    RJ     STX         ISSUE MEM-NAME, DIMTAB ADDR                         FAS         3412     A     
 FAS                                                                                       FAS         3413     A     
 FAS      *         ISSUE MEMBER I/O APLIST WORD.                                          FAS         3414     A     
 FAS      *         (X5) = SYMORD OF MEMBER.                                               FAS         3415     A     
 FAS                                                                                       FAS         3416     A     
 FAS                SA2    KNGC                                                            FAS         3417     A     
 FAS                SA1    X2          WBI = WB WORD OF MEMBER                             FAS         3418     A     
 FAS                RJ     PAW         PREPARE I/O APLIST WORD                             FAS         3419     A     
 FAS                SA1    BINWORD                                                         FAS         3420     A     
 FAS                SA2    BINREL                                                          FAS         3421     A     
 FAS                RJ     STX                                                             FAS         3422     A     
 FAS                EQ     KNG20       LOOP FOR NEXT MEMBER                                FAS         3423     A     
 FAS                                                                                       FAS         3424     A     
 FAS      *         (KNG90)  HERE WHEN ALL GROUPS DONE.                                    FAS         3425     A     
 FAS                                                                                       FAS         3426     A     
 FAS       KNG90    BX6    0                                                               FAS         3427     A     
 FAS       OCLB     EQU    TEMP+1      SAVED T.CLW INDEX                                   FAS         3428     A     
 FAS                SA6    SUBFLG                                                          FAS         3429     A     
 FAS                EQ     EXIT.                                                           FAS         3430     A     
 FAS                                                                                       FAS         3431     A     
 FAS                                                                                       FAS         3432     A     
 FAS                                                                                       FAS         3433     A     
 FAS       KNGA     EQU    TEMP        RESTART INFO - 12/CURR ORD,48/IX GROUP FWA          FAS         3434     A     
 FAS       KNGB     =      KNGA+1      LOCAL COPY OF  WC.RA  FOR *RD.*                     FAS         3435     A     
 FAS       KNGC     =      KNGB+1      MEM-NAME, RUN-TIME DIMTAB ADDR                      FAS         3436     A     
 FAS       KNGD     =      KNGC+1      LOCAL COPY OF WC.RA FOR *VD.*                       FAS         3437     A     
 FAS       OCL      SPACE  4,10                                                            FAS         3438     A     
 FAS      **        OCL - OUTPUT CHARACTER LENGTH ARRAYS.                                  FAS         3439     A     
 FAS      *                                                                                FAS         3440     A     
 FAS      *                CALLED AFTER *KIO* TO REFORMAT T.CLW INTO BINARY                FAS         3441     A     
 FAS      *                FORM DEFINED AS LO. .                                           FAS         3442     A     
 FAS      *                BINARY IS SAVED IN A SCRATCH TABLE FOR LISTING.                 FAS         3443     A     
 FAS      *                                                                                FAS         3444     A     
 FAS      *         ENTRY  (ORG) AND TEXT TABLE SET UP.                                    FAS         3445     A     
 FAS      *                                                                                FAS         3446     A     
 FAS      *         USES   ALL, T.SCR                                                      FAS         3447          I
          -FC5A219
 FAS      *         USES   ALL, T.CLWB                                                     FC5A219       13     A     
 FAS      *                                                                                FC5A219       14     A     
 FAS      *         CALLS  REL,STX                                                         FAS         3448     A     
 FAS      *                                                                                FC5A219       15     A     
 FAS      *         CELLS  OCLA,OCLB,OCLC                                                  FAS         3449     A     
 FAS                                                                                       FAS         3450     A     
 FAS                                                                                       FAS         3451     A     
 FAS      **        LO. - FORMAT OF CHARACTER LENGTH ARRAYS.                               FAS         3452     A     
 FAS      *         *OCL* TRANSLATES T.CLW INTO THIS BINARY FORM.                          FAS         3453     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1828    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS         3454     A     
 FAS                                                                                       FAS         3455     A     
 FAS                DESCRIBE LO.,60                                                        FAS         3456     A     
 FAS       LCMC     DEFINE 1           LCM BIT FOR COUNT (NOT USED)                        FAS         3457     A     
 FAS       FPC      DEFINE 1           FP BIT FOR COUNT  (NOT USED)                        FAS         3458     A     
 FAS       INDC     DEFINE 1           =1 IF LO.CNT IS ADDRESS                             FAS         3459     A     
 FAS                DEFINE 5                                                               FAS         3460          I
          -FC50137
 FAS       INDL     DEFINE 1           =1 IF LO.LEN IS ADDRESS                             FAS         3461          I
          -FC50137
 FAS                DEFINE 3                                                               FAS         3462          I
          -FC50137
 FAS                DEFINE 9                                                               FC50137        9     A     
 FAS       LEN      DEFINE 18          NO. OF CHARS IN EACH CHAR ARRAY ELEMENT             FAS         3463     A     
 FAS       CNT      DEFINE 30          NO. OF ELEMENTS TO BE PROCESSED                     FAS         3464          I
          -FC50137
 FAS                DEFINE 2                                                               FC50137       10     A     
 FAS       INDL     DEFINE 1           =1 IF LO.LEN IS ADDRESS                             FC50137       11     A     
 FAS                DEFINE 3                                                               FC50137       12     A     
 FAS       CNT      DEFINE 24          NO. OF ELEMENTS TO BE PROCESSED                     FC50137       13     A     
 FAS                                                                                       FAS         3465     A     
 FAS                                                                                       FAS         3466     A     
 FAS       OCL      SUBR   0           ENTRY/EXIT.                                         FAS         3467     A     
 FAS                SA3    T=CLW                                                           FAS         3468     A     
 FAS                SA0    0           (A0) = STIND = STORE INDEX FOR T.SCR                FAS         3469     A     
 FAS                AX0,X3,B1                                                              FAS         3470     A     
 FAS                SX6    A0                                                              FAS         3471     A     
 FAS                SA6    OCLB        (OCLB) = INDEX = 0                                  FAS         3472     A     
 FAS                ALLOC  T.SCR,X0    ALLOCATE (T=CLW)/2 SPACES                           FAS         3473          I
          -FC5A219
 FAS                ALLOC  T.CLWB,X0   ALLOCATE (T=CLW)/2 SPACES                           FC5A219       16     A     
 FAS                                                                                       FAS         3474     A     
 FAS      *         PROCESS NEXT ENTRY FROM T.CLW.                                         FAS         3475     A     
 FAS                                                                                       FAS         3476     A     
 FAS       OCL10    SA2    T=CLW                                                           FAS         3477     A     
 FAS                SA1    T.CLW                                                           FAS         3478     A     
 FAS                SA4    OCLB        INDEX = (OCLB)                                      FAS         3479     A     
 FAS                =X3    Z=CLW                                                           FAS         3480     A     
 FAS                IX7    X4-X2                                                           FAS         3481     A     
 FAS                IX6    X4+X3                                                           FAS         3482     A     
 FAS                ZR     X7,EXIT.    IF END OF T.CLW                                     FAS         3483     A     
 FAS                IX2    X1+X4                                                           FAS         3484     A     
 FAS                SA3    X2          CL1 = T.CLW(INDEX)                                  FAS         3485     A     
 FAS                =A5    A3+1        CL2 = CL1 + 1                                       FAS         3486     A     
 FAS                SA6    A4          (OCLB) = INDEX + Z=CLW                              FAS         3487     A     
 FAS                                                                                       FAS         3488     A     
 FAS      *         PROCESS COUNT WORD - CL2.                                              FAS         3489     A     
 FAS                                                                                       FAS         3490     A     
 FAS                MX0    -IA.TAGL                                                        FAS         3491     A     
 FAS                BX6    X3                                                              FAS         3492     A     
 FAS                SA6    OCLA        (OCLA) = CL1                                        FAS         3493     A     
 FAS                LX5    -IA.TAGP                                                        FAS         3494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1829    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                =X7    0           INDC = 0                                            FAS         3495     A     
 FAS                BX2    -X0*X5      TAGI = TAG[CL2]                                     FAS         3496     A     
 FAS                ZR     X2,OCL20    IF TAGI .EQ. 0                                      FAS         3497     A     
 FAS                SX7    B1          INDC = 1                                            FAS         3498     A     
 FAS       OCL20    =B2    1           INDICATE LOWER PARCEL RELOCATION                    FAS         3499     A     
 FAS                MX6    -LO.CNTL                                                        FAS         3500     A     
 FAS                SA6    RELMASK                                                         FAS         3501     A     
 FAS                LX7    LO.INDCP                                                        FAS         3502     A     
 FAS                MX3    PB.GHIJL                                                        FAS         3503     A     
 FAS                SA7    BINWORD     INDC[BINWORD] = INDC                                FAS         3504     A     
 FAS                LX5    PB.TAGP                                                         FAS         3505     A     
 FAS                BX5    -X3*X5      CLEAR (GHIJ) FIELD                                  FAS         3506     A     
 FAS                RJ     REL                                                             FAS         3507     A     
 FAS                                                                                       FAS         3508     A     
 FAS      *         PROCESS LENGTH WORD - CL1.                                             FAS         3509     A     
 FAS                                                                                       FAS         3510     A     
 FAS                SA5    OCLA        CL1 = (OCLA)                                        FAS         3511     A     
 FAS                MX0    -IA.TAGL                                                        FAS         3512     A     
 FAS                LX5    -IA.TAGP                                                        FAS         3513     A     
 FAS                BX2    -X0*X5      TAGI = TAG[CL1]                                     FAS         3514     A     
 FAS                =X7    0           INDL = 0                                            FAS         3515     A     
 FAS                LX5    PB.TAGP                                                         FAS         3516     A     
 FAS                ZR     X2,OCL30    IF TAGI .EQ. 0                                      FAS         3517     A     
 FAS                SX7    1           INDL = 1                                            FAS         3518     A     
 FAS       OCL30    =B2    3           INDICATE UPPER PARCEL RELOCATION                    FAS         3519     A     
 FAS                SA2    BINWORD                                                         FAS         3520     A     
 FAS                LX7    LO.INDLP                                                        FAS         3521     A     
 FAS                BX7    X2+X7                                                           FAS         3522     A     
 FAS                MX6    -LO.LENL                                                        FAS         3523     A     
 FAS                MX3    PB.GHIJL                                                        FAS         3524     A     
 FAS                BX5    -X3*X5      CLEAR (GHIJ) FIELD)                                 FAS         3525     A     
 FAS                SA7    A2          INDL[BINWORD] = INDL                                FAS         3526     A     
 FAS                SA6    RELMASK                                                         FAS         3527     A     
 FAS                RJ     REL                                                             FAS         3528     A     
 FAS                SA1    BINWORD                                                         FAS         3529     A     
 FAS                SA2    BINREL                                                          FAS         3530     A     
 FAS                SA3    T.SCR                                                           FAS         3531          I
          -FC5A219
 FAS                SA3    T.CLWB                                                          FC5A219       17     A     
 FAS                SB3    A0                                                              FAS         3532     A     
 FAS                BX6    X1                                                              FAS         3533     A     
 FAS                =A0    A0+1        STIND = STIND + 1                                   FAS         3534     A     
 FAS                SA6    X3+B3       T.SCR(STIND) = BINARY WORD                          FAS         3535          I
          -FC5A219
 FAS                SA6    X3+B3       T.CLWB(STIND) = BINARY WORD                         FC5A219       18     A     
 FAS                RJ     STX         STORE INTO TEXT WORD                                FAS         3536     A     
 FAS                EQ     OCL10                                                           FAS         3537     A     
 FAS                                                                                       FAS         3538     A     
 FAS       OCLA     EQU    TEMP        SAVED SECOND WORD OF CHARACTER LENGTH WORD          FAS         3539     A     
 FAS       ORD      SPACE  4,10                                                            FAS         3540     A     
 FAS      **        ORD -  OUTPUT RUN-TIME DIMENSION TABLE.                                FAS         3541     A     
 FAS      *                                                                                FAS         3542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1830    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *         ENTRY  (X7) = 0      IF OUTPUT ENTRIES FOR DH.MAT ON ONLY.             FAS         3543     A     
 FAS      *                     = DH.MAT IF OUTPUT ALL DIMENSION ENTRIES.                  FAS         3544     A     
 FAS      *                (SAVVD) = WC.RA OF *VD.*                                        FAS         3545     A     
 FAS      *         USES   ALL, T.SCR                                                      FAS         3546     A     
 FAS      *         CALLS  DTX,STX                                                         FAS         3547     A     
 FAS      *         CELLS  ORDA                                                            FAS         3548     A     
 FAS                                                                                       FAS         3549     A     
 FAS                                                                                       FAS         3550     A     
 FAS       ORD      SUBR   0           ENTRY/EXIT.                                         FAS         3551     A     
 FAS                SA7    ORDA                                                            FAS         3552     A     
 FAS                MX6    0                                                               FAS         3553     A     
 FAS                SA0    0           (A0) = CURRENT T.DIM PROCESSING INDEX               FAS         3554     A     
 FAS                SHRINK T=SCR,X6                                                        FAS         3555     A     
 FAS       ORD10    SA1    T=DIM                                                           FAS         3556     A     
 FAS                SA2    T.DIM                                                           FAS         3557     A     
 FAS                SB2    A0                                                              FAS         3558     A     
 FAS                SB3    X1                                                              FAS         3559     A     
 FAS                GE     B2,B3,EXIT. IF END OF T.DIM, EXIT.                              FAS         3560     A     
 FAS                SA1    X2+B2       (X1) = NEXT ARRAY DIM HEADER                        FAS         3561     A     
 FAS                SA3    ORDA                                                            FAS         3562     A     
 FAS                CLAS=  X4,DH,(MAT)                                                     FAS         3563     A     
 FAS                BX4    X4*X1       MATI = MAT[DIM HEADER]                              FAS         3564     A     
 FAS                BX2    X1                                                              FAS         3565     A     
 FAS                HX2    DH.DIM                                                          FAS         3566     A     
 FAS                AX2    -DH.DIML                                                        FAS         3567     A     
 FAS                IX0    X2+X2       (X0) = 2 * NR DIMS                                  FAS         3568     A     
 FAS                BX7    X4+X3       MATI .OR. (ORDA)                                    FAS         3569     A     
 FAS                NZ     X7,ORD20    IF DIM INFO TO BE ISSUED FOR ARRAY                  FAS         3570     A     
 FAS                =B2    X0+1                                                            FAS         3571     A     
 FAS                SA0    A0+B2       ADVANCE INDEX TO NEXT ARRAY HEADER                  FAS         3572     A     
 FAS                EQ     ORD10                                                           FAS         3573     A     
 FAS                                                                                       FAS         3574     A     
 FAS       ORD20    CLAS=  X2,DH,(VD,AS,DIM)                                               FAS         3575     A     
 FAS                BX1    X2*X1                                                           FAS         3576     A     
 FAS                =X2    0           (X2) = NO RELOCATION                                FAS         3577     A     
 FAS                =A0    A0+1        ADVANCE INDEX TO 1ST DIMENSION / SAVE               FAS         3578     A     
 FAS                SB2    X0                                                              FAS         3579     A     
 FAS                SX5    A0+B2       SAVE INDEX OF NEXT ARRAY HEADER (OR E-O-T)          FAS         3580     A     
 FAS                RJ     WWB         ISSUE HEADER                                        FAS         3581     A     
 FAS       ORD40    SA2    T.DIM                                                           FAS         3582     A     
 FAS                =B2    A0+1                                                            FAS         3583     A     
 FAS                SA4    X2+B2       D2I = UB/LB WORD OF T.DIM                           FAS         3584     A     
 FAS                =A3    A4-D2.W+D1.W      D1I = SPAN WORD OF T.DIM                      FAS         3585     A     
 FAS                =A0    B2+1        ADVANCE TO NEXT DIM                                 FAS         3586     A     
 FAS                BX1    X3                                                              FAS         3587     A     
 FAS                MX6    1                                                               FAS         3588     A     
 FAS                HX1    D1.SPAN                                                         FAS         3589     A     
 FAS                SA2    SAVVD       RAVD = (SAVVD)                                      FAS         3590     A     
 FAS                BX7    X6*X1       RELOC BIT FOR SPAN                                  FAS         3591     A     
 FAS                LX7    4           (UPPER PARCEL RELOCATION)                           FAS         3592     A     
 FAS                AX1    59          SIGN EXTEND TD[SPAN]                                FAS         3593     A     
 FAS                BX1    X1*X2       BASERA = RAVD IFF TD[SPAN] .EQ. 1                   FAS         3594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1831    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX2    X4                                                              FAS         3595     A     
 FAS                HX2    D2.LB                                                           FAS         3596     A     
 FAS                LX4    -D2.LBP-DI.INFP-DI.INFL                                         FAS         3597          I
          -FC5A231
 FAS                LX4    -D2.LBP-DM.INFP-DM.INFL                                         FC5A231      145     A     
 FAS                IX3    X3+X1       SPANI = SPANI + BASERA                              FAS         3598     A     
 FAS                SA1    A2          RAVD = (SAVVD)                                      FC50905        5     A     
 FAS                AX2    59          SIGN EXTEND TD[LB]                                  FAS         3599     A     
 FAS                AX4    -DI.INFL    LBI = LB[D2I], SIGN EXTENDED                        FAS         3600          I
          -FC5A231
 FAS                AX4    -DM.INFL    LBI = LB[D2I], SIGN EXTENDED                        FC5A231      146     A     
 FAS                BX1    X2*X1       BASERA = RAVD IFF TD[LB] .EQ. 1                     FAS         3601     A     
 FAS                IX4    X4+X1       LBI = LBI + BASERA                                  FAS         3602     A     
 FAS                BX2    X6*X2       RELOC BIT FOR LB                                    FAS         3603     A     
 FAS                LX2    1+DI.TDP                                                        FAS         3604          I
          -FC5A231
 FAS                MX1    -DI.INFL                                                        FAS         3605          I
          -FC5A231
 FAS                LX2    1+DM.TDP                                                        FC5A231      147     A     
 FAS                MX1    -DM.INFL                                                        FC5A231      148     A     
 FAS                BX4    -X1*X4      TRUNCATE LBI TO DI.INFL                             FAS         3606     A     
 FAS                BX4    X4+X2       ADD IN TD BIT                                       FAS         3607     A     
 FAS                LX2    -DI.TDP+1   (LOWER PARCEL RELOC FOR LB)                         FAS         3608          I
          -FC5A231
 FAS                LX2    -DM.TDP+1   (LOWER PARCEL RELOC FOR LB)                         FC5A231      149     A     
 FAS                BX2    X2+X7       RELOC BYTES FOR LB AND SPAN                         FAS         3609     A     
 FAS                LX3    30                                                              FAS         3610     A     
 FAS                BX1    X3+X4       30/SPAN,30/LB                                       FAS         3611     A     
 FAS                RJ     WWB         ISSUE DIMENSION INFO WORD                           FAS         3612     A     
 FAS                SB2    A0                                                              FAS         3613     A     
 FAS                SB3    X5                                                              FAS         3614     A     
 FAS                LT     B2,B3,ORD40 IF ANOTHER DIMENSION                                FAS         3615     A     
 FAS                EQ     ORD10       LOOP FOR NEXT ARRAY                                 FAS         3616     A     
 FAS                                                                                       FAS         3617     A     
 FAS       ORDA     EQU    TEMP+2      SAVED DH.MAT BIT                                    FAS         3618     A     
 FAS       OSB      SPACE  4,10                                                            FAS         3619     A     
 FAS      **        OSB -  OUTPUT  SUB  BLOCKS FOR  *SUB* / *SUB0*  OBJECT                 FAS         3620     A     
 FAS      *         TABLE TEXTS.                                                           FAS         3621     A     
 FAS      *         ENTRY- A4 -> FWA OF SUB TABLE (T.SUB / T.SUB0)                         FAS         3622     A     
 FAS      *                (X7) = LOCAL BLOCK ORDINAL (BN=) OF SUB BLOCK                   FAS         3623     A     
 FAS      *         EXIT - OBJECT TABLE FLUSHED TO LGO.                                    FAS         3624     A     
 FAS      *         CALLS - PUSE,DTX                                                       FAS         3625     A     
 FAS                                                                                       FAS         3626     A     
 FAS                                                                                       FAS         3627     A     
 FAS       OSB      SUBR               ENTRY/EXIT.                                         FAS         3628     A     
 FAS                SA5    A4+N.TABLE                                                      FAS         3629     A     
 FAS                ZR     X5,EXIT.    IF NO SUB TABLE TO DUMP                             FAS         3630     A     
 FAS                                                                                       FAS         3631     A     
 FAS      *         ISSUE A *USE* PSEUDO TO SWITCH ORG SUB BLOCK.                          FAS         3632     A     
 FAS                                                                                       FAS         3633     A     
 FAS                SA2    CBI                                                             FAS         3634     A     
 FAS                BX6    X2                                                              FAS         3635     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1832    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX7    PB.BIASP                                                        FAS         3636     A     
 FAS                SA6    SAVCBI      SAVE CURRENT BLOCK INDEX                            FAS         3637     A     
 FAS                RJ     PUSE        SWITCH ORG PARCEL COUNTS TO SUB BLOCK               FAS         3638     A     
 FAS                SX0    X5                                                              FAS         3639     A     
 FAS                SA0    X4-1        TABI = FWA OF TABLE - 1                             FAS         3640     A     
 FAS                RJ     DTX         DUMP TEXT TABLE                                     FAS         3641     A     
 FAS                                                                                       FAS         3642     A     
 FAS      *         DUMP NEXT TABLE ENTRY TO THE TEXT.                                     FAS         3643     A     
 FAS      *         (A0) = TABI                                                            FAS         3644     A     
 FAS      *         (X0) = LENTAB                                                          FAS         3645     A     
 FAS                                                                                       FAS         3646     A     
 FAS       OSB10    SX0    X0-1                                                            FAS         3647     A     
 FAS                =A0    A0+1        TABI = TABI + 1                                     FAS         3648     A     
 FAS                SA1    A0          TABLE ENTRY = (TABI)                                FAS         3649     A     
 FAS                MI     X0,OSB30    IF END OF TABLE                                     FAS         3650     A     
 FAS                =X2    2           INDICATE PROGRAM RELOCATION BYTE                    FAS         3651     A     
 FAS                NZ     X1,OSB20    IF NOT ZERO                                         FAS         3652     A     
 FAS                SX2    0           NO RELOCATION FOR ZERO WORD                         FAS         3653     A     
 FAS       OSB20    RJ     STX         STORE INTO TEXT                                     FAS         3654     A     
 FAS                EQ     OSB10                                                           FAS         3655     A     
 FAS                                                                                       FAS         3656     A     
 FAS      *         RESTORE TO ORG IN USE BEFORE SUB BLOCK.                                FAS         3657     A     
 FAS                                                                                       FAS         3658     A     
 FAS       OSB30    SA4    SAVCBI      PICK UP OLD INDEX TO LBT                            FAS         3659     A     
 FAS                LX4    PB.BIASP                                                        FAS         3660     A     
 FAS                BX7    X4                                                              FAS         3661     A     
 FAS                RJ     PUSE        SWITCH ORG, PARCEL COUNTS BACK TO ORIGINAL          FAS         3662     A     
 FAS                EQ     EXIT.                                                           FAS         3663     A     
 FAS       OTB      SPACE  4,10                                                            FAS         3664     A     
 FAS      **        OTB -  OUTPUT TABLE TO BINARY.                                         FAS         3665     A     
 FAS      *                                                                                FAS         3666     A     
 FAS      *         ENTRY  (A5,X5) = FWA OF TABLE TO BE DUMPED                             FAS         3667     A     
 FAS      *                A0 -> HEADER WORD                                               FAS         3668          I
          -FC50809
 FAS      *                (A0) _ HEADER WORD                                              FC50809       55     A     
 FAS      *                (X0) = LAST TABLE ENTRY BIT TO BE SET (BT.LTB)                  FAS         3669     A     
 FAS      *                                                                                FC50809       56     A     
 FAS      *         EXIT   TABLE WRITTEN TO BINARY FILE, SIZE SHRUNK TO ZERO.              FAS         3670     A     
 FAS      *         CALLS  WLGO                                                            FAS         3671          I
          -FC50809
 FAS      *                                                                                FC50809       57     A     
 FAS      *         CALLS  WLF                                                             FC50809       58     A     
 FAS                                                                                       FAS         3672     A     
 FAS                                                                                       FAS         3673     A     
 FAS       OTB      SUBR   0           ENTRY/EXIT.                                         FAS         3674     A     
 FAS                ERRMI  1-FUDGE                                                         FAS         3675     A     
 FAS                                                                                       FC50809       59     A     
 FAS       OTB10    SA2    A5+N.TABLE  LEN = LEN(TAB)                                      FAS         3676     A     
 FAS                MX7    0           NEWLEN = 0                                          FAS         3677     A     
 FAS                BX4    X0          LTB = LTB BIT                                       FAS         3678     A     
 FAS                SX1    X2-BT=MXWC                                                      FAS         3679     A     
 FAS                ZR     X2,EXIT.    IF NO MORE ENTRIES                                  FAS         3680     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1833    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MI     X1,OTB20    IF TABLEN .LT. MAXWC                                FAS         3681     A     
 FAS                SX2    BT=MXWC     LEN = MAXLEN                                        FAS         3682     A     
 FAS                BX7    X1          NEWLEN = LEN - MAXLEN                               FAS         3683     A     
 FAS                MX4    0           LTB = 0                                             FAS         3684     A     
 FAS                                                                                       FC50809       60     A     
 FAS       OTB20    IX6    X5+X2       FWA(TAB) = FWA(TAB) + LEN                           FAS         3685     A     
 FAS                SB4    X2                                                              FAS         3686     A     
 FAS                LX2    BT.WCP                                                          FAS         3687     A     
 FAS                SA7    A2          LEN(TAB) = NEWLEN                                   FAS         3688     A     
 FAS                SA3    A0                                                              FAS         3689     A     
 FAS                BX7    X3+X2                                                           FAS         3690     A     
 FAS                BX7    X7+X4       ADD IN BT.LTB                                       FAS         3691     A     
 FAS                SA7    X5-1                                                            FAS         3692     A     
 FAS                BX5    X6          ADJUST FWA                                          FAS         3693     A     
 FAS                WLGO   A7,B4+B1                                                        FAS         3694     A     
 FAS                EQ     OTB10                                                           FAS         3695     A     
 FAS       OTC      SPACE  4,10                                                            FC50809       61     A     
 FAS      **        OTC -  OUTPUT TABLE (COUNTED) TO BINARY.                               FC50809       62     A     
 FAS      *                                                                                FC50809       63     A     
 FAS      *         ENTRY  (A5,X5) = FWA OF TABLE TO BE DUMPED                             FC50809       64     A     
 FAS      *                                                                                FC50809       65     A     
 FAS      *         EXIT   TABLE WRITTEN TO BINARY FILE                                    FC50809       66     A     
 FAS      *                                                                                FC50809       67     A     
 FAS      *         CALLS  WLF                                                             FC50809       68     A     
 FAS                                                                                       FC50809       69     A     
 FAS                                                                                       FC50809       70     A     
 FAS       OTC      SUBR   0           ENTRY/EXIT.                                         FC50809       71     A     
 FAS                                                                                       FC50809       72     A     
 FAS       OTC10    SA2    X5          FETCH GROUP HEADER                                  FC50809       73     A     
 FAS                ZR     X2,EXIT.    IF NO MORE ENTRIES                                  FC50809       74     A     
 FAS                HX2    DC.CNT                                                          FC50809       75     A     
 FAS                AX2    -DC.CNTL    EXTRACT GROUP SIZE                                  FC50809       76     A     
 FAS                IX6    X5+X2       FWA(TAB) = FWA(TAB) + LEN                           FC50809       77     A     
 FAS                SB4    X2                                                              FC50809       78     A     
 FAS                LX2    BT.WCP                                                          FC50809       79     A     
 FAS                SA3    BT.PTEXT                                                        FC50809       80     A     
 FAS                BX7    X3+X2                                                           FC50809       81     A     
 FAS                SA7    X5          BT.PTEXT HEADER                                     FC50809       82     A     
 FAS                =X5    X6+1        ADJUST FWA                                          FC50809       83     A     
 FAS                WLGO   A7,B4+B1                                                        FC50809       84     A     
 FAS                EQ     OTC10                                                           FC50809       85     A     
 FAS       PAW      SPACE  4,10                                                            FAS         3696     A     
 FAS      **        PAW -  PREPARE AP-LIST WORD FOR NAMELIST GROUP MEMBER.                 FAS         3697     A     
 FAS      *                                                                                FAS         3698     A     
 FAS      *         ENTRY  (X5) = T.SYM ORDINAL FOR NAME                                   FAS         3699     A     
 FAS      *                 A1,(X1) = WB.W WORD OF NAME                                    FAS         3700     A     
 FAS      *         EXIT   (BINWORD) = AP-LIST WORD                                        FAS         3701     A     
 FAS      *                (BINREL) = RELOCATION BYTE FOR THE AP-LIST WORD                 FAS         3702     A     
 FAS      *         CALLS  REL                                                             FAS         3703     A     
 FAS      *         USES   ALL                                                             FAS         3704     A     
 FAS                                                                                       FAS         3705     A     
 FAS                                                                                       FAS         3706     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1834    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       PAW      SUBR               ENTRY/EXIT.                                         FAS         3707     A     
 FAS                MX7    -WC.RAL                                                         FAS         3708     A     
 FAS                SA7    RELMASK     SET MASK FOR *REL*                                  FAS         3709     A     
 FAS                =A3    A1-WB.W+WC.W      = WCI                                         FAS         3710     A     
 FAS                BX4    X3                                                              FAS         3711     A     
 FAS                MX0    -WB.MODEL                                                       FAS         3712     A     
 FAS                LX1    -WB.MODEP                                                       FAS         3713     A     
 FAS                LX3    -WC.BCPP                                                        FAS         3714     A     
 FAS                BX6    -X0*X1      MODEI = MODE[WBI]                                   FAS         3715     A     
 FAS                SA2    FCLMOD                                                          FAS         3716     A     
 FAS                MX7    -4                                                              FAS         3717     A     
 FAS                LX6    2                                                               FAS         3718     A     
 FAS                SB7    X6                                                              FAS         3719     A     
 FAS                AX2    B7                                                              FAS         3720     A     
 FAS                BX2    -X7*X2                                                          FAS         3721     A     
 FAS                BX6    X2          TYPI[OA] = FCLMOD (MODEI)                           FAS         3722     A     
 FAS                LX6    OA.TYPP                                                         FAS         3723     A     
 FAS                =X7    1                                                               FAS         3724     A     
 FAS                MX0    -WC.BCPL                                                        FAS         3725     A     
 FAS                BX0    -X0*X3      BCPI = BCP[WCI]                                     FAS         3726     A     
 FAS                LX1    WB.MODEP-WB.FPP                                                 FAS         3727     A     
 FAS                LX3    WC.BCPP-WC.CTYPP                                                FAS         3728     A     
 FAS                BX2    X7*X1       FPI = FP[WBI]                                       FAS         3729     A     
 FAS                BX3    X7*X3       CTYPI = CTYP[WCI]                                   FAS         3730     A     
 FAS                LX1    WB.FPP-WB.LCMP                                                  FAS         3731     A     
 FAS                SB2    X2          REMEMBER (B2) = FPI                                 FAS         3732     A     
 FAS                BX7    X7*X1       LCMI = LCM[WBI]                                     FAS         3733     A     
 FAS                LX7    OA.LCMP                                                         FAS         3734     A     
 FAS                LX2    OA.FPP                                                          FAS         3735     A     
 FAS                BX2    X2+X7                                                           FAS         3736     A     
 FAS                BX6    X6+X2                                                           FAS         3737     A     
 FAS                NZ     B2,PAW20    IF FORMAL PARAMETERS                                FAS         3738     A     
 FAS                HX4    WC.CLEN                                                         FAS         3739     A     
 FAS                AX4    -WC.CLENL   CLENI = CLEN[WCI]                                   FAS         3740     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         3741     A     
 FAS                MI     X4,"BLOWUP" IF CLENI .LT. 0                                     FAS         3742     A     
 FAS                LX0    OA.BCPP                                                         FAS         3743     A     
 FAS                LX3    OA.INDP     IND[OA.] = CTYPI                                    FAS         3744     A     
 FAS                BX3    X3+X0                                                           FAS         3745     A     
 FAS                LX4    OA.LENP                                                         FAS         3746     A     
 FAS                BX6    X6+X3                                                           FAS         3747     A     
 FAS                IX6    X6+X4                                                           FAS         3748     A     
 FAS                SA6    BINWORD     (BINWORD) =(LCMI,FPI,MODEI,BCPI,CLENI)[OA.]         FAS         3749     A     
 FAS                                                                                       FAS         3750     A     
 FAS      *         RELOCATE ADDRESS FOR NAME.                                             FAS         3751     A     
 FAS      *         (X5) = SYMORD OF NAME.                                                 FAS         3752     A     
 FAS                                                                                       FAS         3753     A     
 FAS                =B2    1           INDICATE LOWER PARCEL RELOCATION                    FAS         3754     A     
 FAS                LX5    PB.TAGP                                                         FAS         3755     A     
 FAS                RJ     REL                                                             FAS         3756     A     
 FAS                SA1    BINWORD                                                         FAS         3757     A     
 FAS                HX1    OA.IND                                                          FAS         3758     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1835    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX7    -OA.LENL                                                        FAS         3759     A     
 FAS                PL     X1,EXIT.    IF IND[BINWORD] .EQ. 0                              FAS         3760     A     
 FAS                                                                                       FAS         3761     A     
 FAS      *         WHEN CTYP[WCI] .EQ. 1, SET LEN[BINWORD] = RELEN,                       FAS         3762     A     
 FAS      *         WHERE  RELLEN IS (S=VD) RELOCATED USING CLEN[WCI] AS BIAS.             FAS         3763     A     
 FAS      *         INDIRECT BIT HAS ALREADY BEEN SET.                                     FAS         3764     A     
 FAS                                                                                       FAS         3765     A     
 FAS                SA5    S=VD                                                            FAS         3766     A     
 FAS                LX1    OA.INDP+1-OA.LENP                                               FAS         3767     A     
 FAS                BX6    X7*X1                                                           FAS         3768     A     
 FAS                BX3    -X7*X1      CLENI = LEN[BINWORD]                                FAS         3769     A     
 FAS                LX6    OA.LENP                                                         FAS         3770     A     
 FAS                SA6    A1          LEN[BINWORD] = 0                                    FAS         3771     A     
 FAS                SA7    RELMASK     (RELMASK) = OA.LENL MASK                            FAS         3772     A     
 FAS                LX3    PB.BIASP                                                        FAS         3773     A     
 FAS                LX5    PB.TAGP                                                         FAS         3774     A     
 FAS                BX5    X5+X3                                                           FAS         3775     A     
 FAS                =B2    3           INDICATE UPPER PARCEL RELOCATION                    FAS         3776     A     
 FAS                ERRNZ  30-OA.LENP                                                      FAS         3777     A     
 FAS                RJ     REL                                                             FAS         3778     A     
 FAS                EQ     EXIT.                                                           FAS         3779     A     
 FAS                                                                                       FAS         3780     A     
 FAS      *         FORMAL PARAMETERS.                                                     FAS         3781     A     
 FAS      *         (X6) = PARTIAL (BINLIST) WORD.                                         FAS         3782     A     
 FAS                                                                                       FAS         3783     A     
 FAS       PAW20    MX0    -OA.ARGL                                                        FAS         3784     A     
 FAS                LX1    WB.LCMP-WB.FPNOP                                                FAS         3785     A     
 FAS                BX0    -X0*X1      FPNOI = FPNO[WBI]                                   FAS         3786     A     
 FAS                =X0    X0-1        FPNOI = FPNOI - 1                                   FAS         3787     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         3788     A     
 FAS                MI     X0,"BLOWUP" IF FPNOI .LT. 0                                     FAS         3789     A     
 FAS                MX7    0                                                               FAS         3790     A     
 FAS                LX0    OA.ARGP                                                         FAS         3791     A     
 FAS                BX6    X6+X0                                                           FAS         3792     A     
 FAS                SA6    BINWORD     ARG[BINWORD] = FPNOI                                FAS         3793     A     
 FAS                SA7    BINREL      INDICATE NO RELOCATION                              FAS         3794     A     
 FAS                EQ     EXIT.                                                           FAS         3795     A     
 FAS       PIT      SPACE  4,30                                                            FAS         3796     A     
 FAS      **        PIT - PUMPS OUT IDNT (77) TABLE.                                       FAS         3797     A     
 FAS                                                                                       FAS         3798     A     
 FAS                                                                                       FAS         3799     A     
 FAS       PIT      SUBR   0           ENTRY/EXIT.                                         FAS         3800     A     
 FAS                SA1    TL.DATE                                                         FAS         3801     A     
 FAS                SA2    IDENT                                                           FAS         3802     A     
 FAS                SB2    CHAR                                                            FAS         3803     A     
 FAS                LX6    X1,B2                                                           FAS         3804     A     
 FAS                BX7    X2                                                              FAS         3805     A     
 FAS                SA3    TL.TIME                                                         FAS         3806     A     
 FAS                SA6    BT.IDNT+2                                                       FAS         3807     A     
 FAS                SA7    A6-1                                                            FAS         3808     A     
 FAS                SA7    BT.XFR1                                                         FAS         3809     A     
 FAS                LX6    X3,B2                                                           FAS         3810     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1836    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA6    A6+1                                                            FAS         3811     A     
 FAS                SA1    CP.MODL                                                         FAS         3812     A     
 FAS                SA2    TL.PTYP                                                         FAS         3813     A     
 FAS                LX6    X1                                                              FAS         3814     A     
 FAS                BX7    X2                                                              FAS         3815     A     
 FAS                SA6    BT.IDNT+BT.IDNTU                                                FAS         3816     A     
 FAS                SA7    BT.IDNT+BT.IDN8                                                 FAS         3817     A     
 FAS                                                                                       FC51002       14     A     
 FAS      *         NOTE -- THE FOLLOWING CODE DEPENDS UPON ARG=COMMON/FIXED               FC51002       15     A     
 FAS      *                 BEING ILLEGAL, AND CAUGHT DURING INITIALIZATION.               FC51002       16     A     
 FAS                                                                                       FC51002       17     A     
 FAS                SA1    CO.ARGC                                                         FC51002       18     A     
 FAS                SA2    CO.ARGF                                                         FC51002       19     A     
 FAS                LX1    1                                                               FC51002       20     A     
 FAS                LX2    2                                                               FC51002       21     A     
 FAS                IX2    X1+X2                                                           FC51002       22     A     
 FAS                SA1    X2+PITA                                                         FC51002       23     A     
 FAS                LX6    X1                                                              FC51002       24     A     
 FAS                SA6    BT.IDNT+BT.IDNTB                                                FC51002       25     A     
 FAS                                                                                       FC5A406        6     A     
 FAS       #DAL     IFNE   .DAL,0                                                          FC5A406        7     A     
 FAS                SA1    LEVEL2                                                          FC5A406        8     A     
 FAS                SA2    BT.IDNT+7   HARDWARE REQUIREMENTS                               FC5A406        9     A     
 FAS                MX0    CHAR                                                            FC5A406       10     A     
 FAS                LX0    8*CHAR                                                          FC5A406       11     A     
 FAS                BX2    -X0*X2                                                          FC5A406       12     A     
 FAS                SX0    1R                                                              FC5A406       13     A     
 FAS                ZR     X1,PIT1     IF NO LCM NECESSARY                                 FC5A406       14     A     
 FAS                SX0    1RL                                                             FC5A406       15     A     
 FAS                                                                                       FC5A406       16     A     
 FAS       PIT1     LX0    7*CHAR                                                          FC5A406       17     A     
 FAS                BX6    X2+X0       INSERT LCM FLAG AS NECESSARY                        FC5A406       18     A     
 FAS                SA6    A2                                                              FC5A406       19     A     
 FAS       #DAL     ENDIF                                                                  FC5A406       20     A     
 FAS                                                                                       FC5A406       21     A     
 FAS                WLGO   BT.IDNT,L.77+1                                                  FAS         3818     A     
 FAS                EQ     EXIT.                                                           FAS         3819     A     
 FAS                                                                                       FC51002       26     A     
 FAS       PITA     DIS    1,ARG=UNSPEC  ARG=-COMMON/-FIXED                                FC51002       27     A     
 FAS                DIS    1,ARG=COMMON  ARG= COMMON/-FIXED                                FC51002       28     A     
 FAS                DIS    1,ARG=FIXED   ARG=-COMMON/ FIXED                                FC51002       29     A     
 FAS       POL      SPACE  4,10                                                            FAS         3820     A     
 FAS      *         POL - PRINT OBJECT LISTING.                                            FAS         3821     A     
 FAS      *                                                                                FAS         3822     A     
 FAS      *         ENTRY  (X5) = INSTRUCTION                                              FAS         3823     A     
 FAS      *         EXIT   NONE                                                            FAS         3824     A     
 FAS      *                                                                                FAS         3825     A     
 FAS      *         CALLS PIK                                                              FAS         3826     A     
 FAS                                                                                       FAS         3827     A     
 FAS       POL      SUBR   =           ENTRY/EXIT.                                         FAS         3828     A     
 FAS       POL.EQ   BSSENT 0                                                               FAS         3829     A     
 FAS                SA2    WO.LOO                                                          FAS         3830     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1837    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA1    LINEBUF                                                         FAS         3831     A     
 FAS                ZR     X2,EXIT.    IF NO OBJECT LISTING REQUESTED                      FAS         3832     A     
 FAS                MI     X1,POL10    IF NOT BEGINNING OF WORD                            FAS         3833     A     
 FAS                PIA    ,A1         CONVERT ORGIN TO DPC                                FAS         3834     A     
 FAS       POL10    CALL   PIK                                                             FAS         3835     A     
 FAS                SA1    =10H                                                            FAS         3836     A     
 FAS                BX6    X1                                                              FAS         3837     A     
 FAS                SETMEM LINEBUF,5,X6      BLANK FILL LINEBUF 5 WORDS                    FAS         3838     A     
 FAS                EQ     EXIT.                                                           FAS         3839     A     
 FAS      *CALL,COMFUSE                                                                    FAS         3840     A     
 FAS                TITLE  SUPPORTING ROUTINES                                             FAS         3841     A     
 FAS       RBS      SPACE  4,10                                                            FAS         3842     A     
 FAS      **        RBS -  RELOCATE  BSS  PSEUDO INSTRUCTION                               FAS         3843     A     
 FAS      *         ENTRY  (B2) = (PARCEL)                                                 FAS         3844     A     
 FAS      *                (B3) = (PARCEL) - 2                                             FAS         3845     A     
 FAS      *                (X5) = INSTRUCTION                                              FAS         3846     A     
 FAS      *                                                                                FAS         3847     A     
 FAS      *         CALLS  BNW.                                                            FAS         3848     A     
 FAS                                                                                       FAS         3849     A     
 FAS       RBS      SUBR   0           ENTRY/EXIT                                          FAS         3850     A     
 FAS                RJ     BNW         FORCE UPPER                                         FAS         3851     A     
 FAS                MX1    -PB.BIASL                                                       FAS         3852     A     
 FAS                LX5    -PB.BIASP                                                       FAS         3853     A     
 FAS                SA3    ORG                                                             FAS         3854     A     
 FAS                BX1    -X1*X5      ISOLATE NO OF WORDS TO BE RESERVED                  FAS         3855     A     
 FAS                IX6    X1+X3                                                           FAS         3856     A     
 FAS                LX5    PB.BIASP                                                        FAS         3857     A     
 FAS                SA6    A3          INCREMENT ORIGIN                                    FAS         3858     A     
 FAS                ZR     X1,RBS1     IF ORG NOT BUMPED                                   FAS         3859     A     
 FAS                RJ     DTX         FLUSH TEXT TABLE                                    FAS         3860     A     
 FAS                                                                                       FAS         3861     A     
 FAS       RBS1     RJ     POL                                                             FAS         3862     A     
 FAS                EQ     EXIT.                                                           FAS         3863     A     
 FAS       REL      SPACE  4,30                                                            FAS         3864     A     
 FAS      **        REL -  RELOCATE 30-BIT INSTRUCTION.                                    FAS         3865     A     
 FAS      *                                                                                FAS         3866     A     
 FAS      *         ENTRY  (X5) = INSTRUCTION IN LONG FILE FORM.                           FAS         3867     A     
 FAS      *                            (PSEUDOS WILL NOT BE CHANGED.)                      FAS         3868     A     
 FAS      *                (B2) = PARCEL TO RECEIVE THIS INSTRUCTION.                      FAS         3869     A     
 FAS      *                            3 _ UPPER                                           FAS         3870     A     
 FAS      *                            2 _ MIDDLE                                          FAS         3871     A     
 FAS      *                            1 _ LOWER                                           FAS         3872     A     
 FAS      *                            0 _ ** SYSERR **                                    FAS         3873     A     
 FAS      *                (ORG) = OBJECT ADDRESS OF THIS INST.                            FAS         3874     A     
 FAS      *                (RELMASK) = COMPLEMENT MASK OF BIAS FIELD SIZE.                 FAS         3875     A     
 FAS      *                            (-18 FOR INSTRUCTIONS.)                             FAS         3876     A     
 FAS      *                            (-24 FOR AP-LISTS.)                                 FAS         3877     A     
 FAS      *                (RELPOS) = POSITION OF BIAS FILED IN (X5)                       FAS         3878          I
          -FC5A281
 FAS      *                (RELPOS) = POSITION OF BIAS FIELD IN (X5)                       FC5A281        6     A     
 FAS      *                (XFIL) = SPECIAL XFILL RELOCATION INDICATOR                     FAS         3879     A     
 FAS      *                                                                                FAS         3880     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1838    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *         EXIT   (B5) = FPNO[WBI], FOR *BST*                                     FAS         3881     A     
 FAS      *                INSTRUCTION AND RELOCATION HAVE BEEN OR-ED INTO BINWORD         FAS         3882     A     
 FAS      *                            AND BINREL.                                         FAS         3883     A     
 FAS      *                *LINK* AND *FILL* TABLE ENTRIES MADE AS NECESSARY.              FAS         3884     A     
 FAS      *                A *SUB* ENTRY MADE INTO T.SUB, IF F.P. AND (SUBFLG)             FAS         3885     A     
 FAS      *                            .GE. 0.                                             FAS         3886     A     
 FAS      *                                                                                FAS         3887     A     
 FAS      *         USES:  A1-A3,A5-A7   B3,B5,B6,B7  X0-X7                                FAS         3888     A     
 FAS      *         CALLS  ADW, BST                                                        FAS         3889     A     
 FAS      *         *WARNING*          DO NOT DESTROY (B4)                                 FAS         3890     A     
 FAS                                                                                       FAS         3891     A     
 FAS                                                                                       FAS         3892     A     
 FAS       REL      SUBR               ENTRY/EXIT...                                       FAS         3893     A     
 FAS                =B5    0           INITIALIZE FOR *BST*                                FAS         3894     A     
 FAS                SA3    RELMASK                                                         FAS         3895     A     
 FAS                SA1    RELPOS                                                          FAS         3896     A     
 FAS                SB3    X1                                                              FAS         3897     A     
 FAS                BX6    X5                                                              FAS         3898     A     
 FAS                LX6    -PB.TAGP                                                        FAS         3899     A     
 FAS                MX2    PB.GHIJL                                                        FAS         3900     A     
 FAS                MX0    -PB.TAGL                                                        FAS         3901     A     
 FAS                BX2    X2*X5       GHIJ PORTION OF INSTRUCTION                         FAS         3902     A     
 FAS                BX7    0           INDICATE NO RELOCATION                              FAS         3903     A     
 FAS                =X4    0           INDICATE NO SPECIAL RELOCATION                      FAS         3904     A     
 FAS                BX6    -X0*X6      TAGI = TAG [INSTRUCTION]                            FAS         3905     A     
 FAS                AX5    B3          SHIFT TO BIAS FIELD                                 FAS         3906     A     
 FAS                BX3    -X3*X5      BIASI = BIAS[INSTRUCTION]                           FAS         3907     A     
 FAS                LX2    PB.GHIJL+18          X2 = (30/0, 12/GHIJ, 18/0)                 FAS         3908     A     
 FAS                ZR     X6,REL60    IF TAGI .EQ. 0                                      FAS         3909     A     
 FAS                MX0    -PB.ORDL                                                        FAS         3910     A     
 FAS                BX5    X0*X6       PFXI = PFX[TAGI]                                    FAS         3911     A     
 FAS                =X7    2           INDICATE NOMINAL RELOCATION                         FAS         3912     A     
 FAS                SB3    B2-B1       DECREMENT PARCEL COUNT                              FAS         3913     A     
 FAS                LX7    B3                                                              FAS         3914     A     
 FAS                ZR     X5,REL10    IF PFXI .EQ. 0 (SYMBOL TABLE ORDINAL)               FAS         3915     A     
 FAS                ERRNZ  K=SYM                                                           FAS         3916     A     
 FAS                                                                                       FAS         3917     A     
 FAS      *         RELOCATE TAG FOR AUXILIARY TABLE (T.AUS), WHERE                        FAS         3918     A     
 FAS      *                AUX= ( GL,API,IOI,LCA).                                         FAS         3919     A     
 FAS      *         (X6) = TAGI                                                            FAS         3920     A     
 FAS                                                                                       FAS         3921     A     
 FAS                AX5    P=PFX       ISOLATE PREFIX                                      FAS         3922     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         3923     A     
 FAS                SB7    X5-K=END                                                        FAS         3924     A     
 FAS                PL     B7,"BLOWUP"       IF PFXI .GE. K=END                            FAS         3925     A     
 FAS       .T       ENDIF                                                                  FAS         3926     A     
 FAS                SA5    RELTAB+X5-1                                                     FAS         3927     A     
 FAS                SA1    X5          T.AUX = ORIGIN OF AUX. TABLE                        FAS         3928     A     
 FAS                BX6    -X0*X6      ORDI = ORD [TAGI]                                   FAS         3929     A     
 FAS                SB7    X6                                                              FAS         3930     A     
 FAS                SA1    X1+B7       AUXI = T.AUX(ORDI)                                  FAS         3931     A     
 FAS                LX1    -WC.RAP                                                         FAS         3932     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1839    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SX6    X1          RAI = RA[AUXI], TRUNCATED TO 18 BITS                FAS         3933     A     
 FAS                EQ     REL60                                                           FAS         3934     A     
 FAS                                                                                       FAS         3935     A     
 FAS      *         RELOCATE A SYMBOL TABLE TAG.                                           FAS         3936     A     
 FAS      *         FIND ADDRESS AND BLOCK NUMBER IN WC WORD OF SYMTAB.                    FAS         3937     A     
 FAS      *         A NON-ZERO BLOCK NUMBER MEANS COMMON.  FOR THOSE, PREPARE              FAS         3938     A     
 FAS      *         X4 FOR ADDING TO FILL/LINK TABLE.                                      FAS         3939     A     
 FAS      *         (X6) = ORDI                                                            FAS         3940     A     
 FAS                                                                                       FAS         3941     A     
 FAS       REL10    SA1    T.SYM                                                           FAS         3942     A     
 FAS                SA5    S=BU                                                            FAS         3943     A     
 FAS                IX5    X5-X6                                                           FAS         3944     A     
 FAS                LX0    X6,B1                                                           FAS         3945     A     
 FAS                IX0    X0+X6       STIND = 3 * ORDI                                    FAS         3946     A     
 FAS                IX1    X0+X1                                                           FAS         3947     A     
 FAS                ERRNZ  3-Z=SYM                                                         FAS         3948     A     
 FAS                NZ     X5,REL15    IF ORDI .NE. (S=BU)                                 FAS         3949     A     
 FAS                SA1    ORG                                                             FAS         3950     A     
 FAS                SA3    =400000B                                                        FAS         3951     A     
 FAS                =X4    0           NO SPECIAL RELOCATION                               FAS         3952     A     
 FAS                IX6    X1+X3       *BLOWUP* ADDRESS = (ORG) + 400000B                  FAS         3953     A     
 FAS                EQ     REL65                                                           FAS         3954     A     
 FAS                                                                                       FAS         3955     A     
 FAS       REL15    =A1    X1+WB.W     WBI = T.SYM(STIND)                                  FAS         3956     A     
 FAS                BX5    X1                                                              FAS         3957     A     
 FAS                LX1    59-WB.LABP                                                      FAS         3958     A     
 FAS                MI     X1,REL30    IF STATEMENT LABEL                                  FAS         3959     A     
 FAS                LX1    WB.LABP-WB.EXTP                                                 FAS         3960     A     
 FAS                MI     X1,REL50    IF EXTERNAL LINKAGE SYMBOL                          FAS         3961     A     
 FAS                LX1    WB.EXTP-WB.FPP                                                  FAS         3962     A     
 FAS                PL     X1,REL20    IF NOT F. P.                                        FAS         3963     A     
 FAS                MX4    -WB.FPNOL                                                       FAS         3964     A     
 FAS                LX1    1+WB.FPP-WB.FPNOP                                               FAS         3965     A     
 FAS                BX4    -X4*X1                                                          FAS         3966     A     
 FAS                =B5    X4          SAVE FPNO FOR INDEX IN *BST*                        FAS         3967     A     
 FAS                =X7    0           INDICATE NO RELOCATION                              FAS         3968     A     
 FAS       REL20    CLAS=  X4,WB,(COM)                                                     FAS         3969     A     
 FAS                BX4    X4*X5                                                           FAS         3970     A     
 FAS       REL30    =A1    A1-WB.W+WC.W      FETCH SYMTAB ADDRESS WORD                     FAS         3971     A     
 FAS                MX6    -WC.RAL                                                         FAS         3972     A     
 FAS                LX1    -WC.RAP                                                         FAS         3973     A     
 FAS                BX6    -X6*X1      ISOLATE (X6) = BLOCK-RELATIVE ADDRESS               FAS         3974     A     
 FAS                ZR     X4,REL60    IF LOCAL SYMBOL (NOT IN /COMMON/ BLOCK)             FAS         3975     A     
 FAS                MX4    -WC.RBL                                                         FAS         3976     A     
 FAS                LX1    WC.RAP-WC.RBP                                                   FAS         3977     A     
 FAS                BX4    -X4*X1      ISOLATE (X4) = INDEX IN (T.BLKS) OF RB              FAS         3978     A     
 FAS                AX4    1                                                               FAS         3979     A     
 FAS                ERRNZ  2-Z=BLKS                                                        FAS         3980     A     
 FAS                SX4    X4+2        SET (RB) = BLOCK NUMBER FOR LOADER                  FAS         3981     A     
 FAS                SBIT   X5,WB.LCMP                                                      FAS         3982     A     
 FAS                MX7    1                                                               FAS         3983     A     
 FAS                BX0    X7*X5       ISOLATE LCM BIT                                     FAS         3984     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1840    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SX1    T.FILL                                                          FAS         3985     A     
 FAS                BX4    X4+X0       MERGE LCM BIT INTO SPECIAL RELOC INDICATOR          FAS         3986     A     
 FAS                SX7    B0          INDICATE NOT PROGRAM-RELATIVE                       FAS         3987     A     
 FAS                LX1    BT.RLP                                                          FAS         3988     A     
 FAS                BX4    X4+X1                                                           FAS         3989     A     
 FAS                EQ     REL60                                                           FAS         3990     A     
 FAS                                                                                       FAS         3991     A     
 FAS      *         PROCESS EXTERNAL LINKAGE SYMBOL.                                       FAS         3992     A     
 FAS      *         (X0) = STIND                                                           FAS         3993     A     
 FAS                                                                                       FAS         3994     A     
 FAS       REL50    SX1    T.LINK                                                          FAS         3995     A     
 FAS                LX1    BT.RLP                                                          FAS         3996     A     
 FAS                SX6    B0                                                              FAS         3997     A     
 FAS                BX4    X1+X0       SET SPECIAL RELOCATION = EXTERNAL                   FAS         3998     A     
 FAS                SX7    B0                                                              FAS         3999     A     
 FAS                                                                                       FAS         4000     A     
 FAS      **        COMPUTE FINAL ADDRESS FIELD  =  [NEG] * ADDR + OFFSET                  FAS         4001     A     
 FAS      *         ENTRY  (X3) = OFFSET.                                                  FAS         4002     A     
 FAS      *                (X2) = *GHIJ*S18  (= INST SHIFTED LEFT BY 18)                   FAS         4003     A     
 FAS      *                (X4) = SPECIAL RELOCATION FLAG  --  42/WHICH, 18/ORD            FAS         4004     A     
 FAS      *                     = 0, THEN NO SPECIAL ACTION.                               FAS         4005     A     
 FAS      *                     " 0, THEN COMMON OR EXTERNAL RELOCATABLE.                  FAS         4006     A     
 FAS      *                            (ORD = BLOCK NUMBER OR TAG ORDINAL)                 FAS         4007     A     
 FAS      *                            (WHICH = WHICH TABLE TO ENTER.)                     FAS         4008     A     
 FAS      *                (X6) = PARTIAL ADDRESS                                          FAS         4009     A     
 FAS      *                (X7) = RELOCATION ALREADY COMPUTED.                             FAS         4010     A     
 FAS                                                                                       FAS         4011     A     
 FAS       REL60    LX3    -PB.BIASL     SIGN EXTEND THE BIAS                              FAS         4012          I
          -FC5A281
 FAS       REL60    SA1    RELPOS                                                          FC5A281        7     A     
 FAS                SB3    X1+60-PB.BIASL-PB.BIASP                                         FC5A281        8     A     
 FAS                LX3    B3,X3                                                           FC5A281        9     A     
 FAS                AX3    B3,X3       SIGN EXTEND BIAS                                    FC5A281       10     A     
 FAS                SA1    XFIL                                                            FAS         4013          I
          -FC5A250
 FAS                MX5    1                                                               FAS         4014          I
          -FC5A250
 FAS                BX1    X5*X1                                                           FAS         4015          I
          -FC5A250
 FAS                AX3    -PB.BIASL                                                       FAS         4016          I
          -FC5A281
 FAS                IX6    X3+X6       (X6) = FINAL ADDRESS                                FAS         4017     A     
 FAS                BX5    X5*X6       GET SIGN BIT                                        FAS         4018          I
          -FC5A250
 FAS                BX1    X1*X5       LCMB = 1S59, IF SIGN BIT AND XFIL .EQ. 1S59         FAS         4019          I
          -FC5A250
 FAS                BX4    X4+X1       ADD IN LCMB TO RELOCATION FLAG                      FAS         4020          I
          -FC5A250
 FAS                AX1    -0          FORM 60 BIT FLAG                                    FAS         4021          I
          -FC5A250
 FAS                BX1    -X1                                                             FAS         4022          I
          -FC5A250
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1841    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                BX7    X7*X1       SET TO NO RELOCATION IF LCMB ADDED IN               FAS         4023          I
          -FC5A250
 FAS       REL65    SA1    BINWORD                                                         FAS         4024     A     
 FAS                SA3    RELMASK                                                         FAS         4025     A     
 FAS                =X5    B2-1                                                            FAS         4026     A     
 FAS                BX6    -X3*X6      TRIM BIAS TO FIT IN RESULT FIELD SIZE               FAS         4027     A     
 FAS                                                                                       FAS         4028     A     
 FAS      *         CALCULATE SHIFT COUNT BY WHICH INSTRUCTION WILL BE POSITIONED          FAS         4029     A     
 FAS      *         IN *BINWORD*.                                                          FAS         4030     A     
 FAS                                                                                       FAS         4031     A     
 FAS                LX5    4           = 16*( (PARCEL) - 1 )                               FAS         4032     A     
 FAS                SX3    B2-B1                                                           FAS         4033     A     
 FAS                BX6    X6+X2                                                           FAS         4034     A     
 FAS                SA2    A1+B1                                                           FAS         4035     A     
 FAS                IX3    X5-X3                                                           FAS         4036     A     
 FAS                SB3    X3          = 15*( (PARCEL) - 1 )                               FAS         4037     A     
 FAS                LX6    X6,B3       POSITION FINAL INSTRUCTION HALF-WORD                FAS         4038     A     
 FAS                BX6    X1+X6       OR INST INTO BINWORD                                FAS         4039     A     
 FAS                IX7    X7+X2       MERGE RELOC INTO BINREL                             FAS         4040     A     
 FAS                SA6    A1                                                              FAS         4041     A     
 FAS                SA7    A2                                                              FAS         4042     A     
 FAS                ZR     X4,REL90    IF NO SPECIAL RELOCATION                            FAS         4043     A     
 FAS                PL     X4,REL80    IF NOT (LCM) RELOCATION                             FAS         4044     A     
 FAS                                                                                       FAS         4045     A     
 FAS      *         MAKE *XFILL* TABLE ENTRY --                                            FAS         4046     A     
 FAS                                                                                       FAS         4047     A     
 FAS                SX2    X4          ISOLATE BLOCK ORDINAL                               FAS         4048     A     
 FAS                NZ     X2,REL70    IF NOT PROGRAM BLOCK                                FAS         4049     A     
 FAS                SX2    X2+B1       ADD 1 FOR PROGRAM BLOCK NUMBER                      FAS         4050     A     
 FAS       REL70    SA1    ORG                                                             FAS         4051     A     
 FAS                SX7    B3          LOW-ORDER BIT POSITION OF ADDRESS FIELD             FAS         4052     A     
 FAS                LX1    6                                                               FAS         4053     A     
 FAS                BX6    X1+X7                                                           FAS         4054     A     
 FAS                LX6    6                                                               FAS         4055     A     
 FAS                SA3    RELMASK                                                         FAS         4056     A     
 FAS                BX3    -X3                                                             FAS         4057     A     
 FAS                CX3    X3                                                              FAS         4058     A     
 FAS                BX6    X6+X3                                                           FAS         4059     A     
 FAS                LX6    9                                                               FAS         4060     A     
 FAS                BX6    X6+X2                                                           FAS         4061     A     
 FAS                LX6    9                                                               FAS         4062     A     
 FAS                SX7    B1                                                              FAS         4063     A     
 FAS                BX6    X6+X7       30/(ORG), 6/0, 6/(RELSIZ), 9/ORD, 9/1               FAS         4064     A     
 FAS                ADDWD  T.XFIL                                                          FAS         4065     A     
 FAS                EQ     REL90                                                           FAS         4066     A     
 FAS                                                                                       FAS         4067     A     
 FAS      *         MAKE LINK/FILL TABLE ENTRY --                                          FAS         4068     A     
 FAS                                                                                       FAS         4069     A     
 FAS       REL80    SX2    X4          ISOLATE BLOCK/EXTERNAL INDEX                        FAS         4070     A     
 FAS                ERRNZ  18-BT.RLP                                                       FAS         4071     A     
 FAS                SA1    ORG                                                             FAS         4072     A     
 FAS                AX4    BT.RLP                                                          FAS         4073     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1842    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                LX5    BT.RLL-4                                                        FAS         4074     A     
 FAS                SX5    X5+1S11+1   X5 = 1/1, 2/(PARCEL)-1, 9/1                         FAS         4075     A     
 FAS                LX5    BT.RLP                                                          FAS         4076     A     
 FAS                LX2    30                                                              FAS         4077     A     
 FAS                BX6    X5+X1                                                           FAS         4078     A     
 FAS                IX6    X2+X6       = 30/ORD, 12/(X5), 18/(ORG)                         FAS         4079     A     
 FAS                ADDWD  X4                                                              FAS         4080     A     
 FAS                                                                                       FAS         4081     A     
 FAS       SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                                   FAS         4082     A     
 FAS                SA3    CO.SNAP                                                         FAS         4083     A     
 FAS                LX3    1RK                                                             FAS         4084     A     
 FAS                PL     X3,REL8S    IF LINK TABLE SNAP NOT SELECTED                     FAS         4085     A     
 FAS                DUMPT  LINK                                                            FAS         4086     A     
 FAS       REL8S    BSS    0                                                               FAS         4087     A     
 FAS       SNAP=K   ENDIF                                                                  FAS         4088     A     
 FAS                                                                                       FAS         4089     A     
 FAS       REL90    EQ     B5,B0,EXIT. IF NO   *SUB*  TO MAKE                              FAS         4090     A     
 FAS                RJ     BST         GO MAKE A  *SUB*                                    FAS         4091     A     
 FAS                EQ     EXIT.                                                           FAS         4092     A     
 FAS                                                                                       FAS         4093     A     
 FAS       RELTAB   BSS    0           VECTOR OF ADDRESS TABLES FOR TAG PREFIXES           FAS         4094     A     
 FAS                LOC    1                                                               FAS         4095     A     
 FAS       K=GL     CON    T.GL                                                            FAS         4096     A     
 FAS       K=AP     CON    T.API                                                           FAS         4097     A     
 FAS       K=IO     CON    T.IOI                                                           FAS         4098     A     
 FAS       K=LC     CON    T.LCA                                                           FAS         4099     A     
 FAS       K=END    BSS                VERIFY VECTOR SYNCHRONIZATION                       FAS         4100     A     
 FAS                LOC    *O                                                              FAS         4101     A     
 FAS                                                                                       FAS         4102     A     
 FAS       RELMASK  BSS    1           COMPLEMENT MASK OF BIAS FIELD SIZE                  FAS         4103     A     
 FAS       RELPOS   BSS    1           POS OF BIAS FIELD IN (X5) PASSED TO *REL*           FAS         4104     A     
 FAS       RNI      SPACE  4,30                                                            FAS         4105     A     
 FAS      **        RNI - READ NEXT INSTRUCTION.                                           FAS         4106     A     
 FAS      *                                                                                FAS         4107     A     
 FAS      *         READS NEXT PRE-BINARY INSTRUCTION FROM FILE F.PB .                     FAS         4108     A     
 FAS      *                                                                                FAS         4109     A     
 FAS      *         EXIT   (X5) = INSTRUCTION WORD.                                        FAS         4110     A     
 FAS      *                (RADB) = (X5).                                                  FAS         4111     A     
 FAS      *                (OL=PB) = (X5).                                                 FAS         4112     A     
 FAS                                                                                       FAS         4113     A     
 FAS                                                                                       FAS         4114     A     
 FAS       RNI      SUBR   =           ENTRY/EXIT.                                         FAS         4115     A     
 FAS                READW  F.PB,RADB,1     READ NEXT (PB.) WORD                            FAS         4116     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         4117     A     
 FAS                NZ     X1,"BLOWUP" IF REACHED EOR/EOF/EOI                              FAS         4118     A     
 FAS                SA5    RADB        FETCH WORD                                          FAS         4119     A     
 FAS                BX7    X5                                                              FAS         4120     A     
 FAS                SA7    OL=PB                                                           FAS         4121     A     
 FAS                EQ     EXIT.                                                           FAS         4122     A     
 FAS       RMI      SPACE  4,10                                                            FAS         4123     A     
 FAS      **        RMI - READ MULTIPLE WORD VERSION OF RNI.                               FAS         4124     A     
 FAS      *                                                                                FAS         4125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1843    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *         ENTRY  B6 = FWA OF AREA TO BE READ INTO.                               FAS         4126     A     
 FAS      *                X5 = NUMBER OF WORDS TO READ                                    FAS         4127     A     
 FAS      *                                                                                FAS         4128     A     
 FAS      *         EXIT   NONE                                                            FAS         4129     A     
 FAS                                                                                       FAS         4130     A     
 FAS       RMI      SUBR                                                                   FAS         4131     A     
 FAS                SB7    X5                                                              FAS         4132     A     
 FAS                READW  F.PB,B6,B7                                                      FAS         4133     A     
 FAS       .T       IFEQ   TEST,ON,1                                                       FAS         4134     A     
 FAS                NZ     X1,"BLOWUP" IF PREMATURE EOR                                    FAS         4135     A     
 FAS                EQ     EXIT.                                                           FAS         4136     A     
 FAS       ROL      SPACE  4,10                                                            FAS         4137     A     
 FAS      **        ROL - STORE ORIGIN COUNTER IN LINEBUF IF BIGINNING OF WORD.            FAS         4138          I
          -FC50353
 FAS      **        ROL -  STORE ORIGIN COUNTER IN LINEBUF IF BEGINNING OF WORD.           FC50353       30     A     
 FAS      *                                                                                FAS         4139     A     
 FAS      *         ENTRY  (B2) = PARCEL COUNT                                             FAS         4140     A     
 FAS      *         CALLS  NONE                                                            FAS         4141          I
          -FC50353
 FAS      *                                                                                FC50353       31     A     
 FAS      *         USES   A-1,2,6                                                         FAS         4142     A     
 FAS      *                X-1,2,6                                                         FAS         4143     A     
 FAS      *                B-7                                                             FAS         4144     A     
 FAS                                                                                       FAS         4145     A     
 FAS       ROL      SUBR   0           ENTRY/EXIT.                                         FAS         4146     A     
 FAS                SA1    =10H                                                            FAS         4147     A     
 FAS                SA2    ORG                                                             FAS         4148     A     
 FAS                SB7    B2-3                                                            FAS         4149     A     
 FAS                BX6    X1                                                              FAS         4150     A     
 FAS                NZ     B7,ROL10    IF NOT BEGINNING OF NEW WORD                        FAS         4151     A     
 FAS                BX6    X2                                                              FAS         4152     A     
 FAS       ROL10    SA6    LINEBUF                                                         FAS         4153     A     
 FAS                EQ     EXIT.                                                           FAS         4154     A     
 FAS       SMW      SPACE  4,10                                                            FAS         4155     A     
 FAS      **        SMW - STORE MULTIPLE WORDS.                                            FAS         4156     A     
 FAS      *                                                                                FAS         4157     A     
 FAS      *         SMW DUMPS A COMPILER TABLE INTO THE OBJECT FILE AS                     FAS         4158     A     
 FAS      *         BINARY INFORMATION (I.E., NO RELOCATION IS DONE).                      FAS         4159     A     
 FAS      *                                                                                FAS         4160     A     
 FAS      *         ENTRY  (A1, X1) = TABLE TO BE DUMPED.                                  FAS         4161     A     
 FAS      *                ORIGIN SET.                                                     FAS         4162     A     
 FAS      *                TEXT TABLE INITIALIZED.                                         FAS         4163     A     
 FAS      *                                                                                FAS         4164     A     
 FAS      *         EXIT   TABLE SHRUNK TO ZERO.                                           FAS         4165     A     
 FAS      *                                                                                FAS         4166     A     
 FAS      *         USES   ALL.                                                            FAS         4167     A     
 FAS      *         CALLS  STX.                                                            FAS         4168     A     
 FAS                                                                                       FAS         4169     A     
 FAS                                                                                       FAS         4170     A     
 FAS       SMW      SUBR   0           ENTRY/EXIT...                                       FAS         4171     A     
 FAS                SA3    A1+N.TABLE                                                      FAS         4172     A     
 FAS                ZR     X3,EXIT.    IF EMPTY TABLE                                      FAS         4173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1844    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA0    X3          (A0) = LENGTH OF TABLE                              FAS         4174     A     
 FAS                SA5    X1          FETCH (A5, X5) = TABLE ENTRY                        FAS         4175     A     
 FAS                SHRINK A3                                                              FAS         4176     A     
 FAS       SMW4     MX2    0           INDICATE NO RELOCATION                              FAS         4177     A     
 FAS                BX1    X5                                                              FAS         4178     A     
 FAS                RJ     STX         STORE WORD IN TEXT TABLE                            FAS         4179     A     
 FAS                SB4    A0-B1                                                           FAS         4180     A     
 FAS                SA5    A5+1        FETCH NEXT ENTRY                                    FAS         4181     A     
 FAS                SA0    A0-B1       DECREMENT UNPROCESSED LENGTH                        FAS         4182     A     
 FAS                GT     B4,SMW4     IF TABLE NOT EXHAUSTED                              FAS         4183     A     
 FAS                EQ     EXIT.                                                           FAS         4184     A     
 FAS       SNR      SPACE  4,10                                                            FAS         4185     A     
 FAS      **        SNR - SET NAMELIST REGISTERS.                                          FAS         4186     A     
 FAS      *                                                                                FAS         4187     A     
 FAS      *                                                                                FAS         4188     A     
 FAS      *         ENTRY  (B2) = T.NLST ORD OF REQUEST (0=GRP-NAME, 1-N=MEM-NAM).         FAS         4189     A     
 FAS      *                (B3) = T.NLST INDEX TO FWA CURRENT GROUP.                       FAS         4190     A     
 FAS      *                                                                                FAS         4191     A     
 FAS      *         EXIT   (B2) = (B2)+1 IF GROUP HAS ANOTHER MEMBER.                      FAS         4192     A     
 FAS      *                     = 0 IF NO MORE MEMBERS.                                    FAS         4193     A     
 FAS      *                (B3) = UNCHANGED IF GROUP HAS ANOTHER MEMBER.                   FAS         4194     A     
 FAS      *                     = T.NLST INDEX TO FWA NEXT GROUP IF (B2) = 0.              FAS         4195     A     
 FAS      *                     = -1 IF NO MORE GROUPS (END OF T.NLST).                    FAS         4196     A     
 FAS      *                (B4) = NR MEMBERS IN CURRENT GROUP.                             FAS         4197     A     
 FAS      *                (A1,X1) = T.SYM WORD B FOR REQUESTED NAME.                      FAS         4198     A     
 FAS      *                (X5) = T.SYM ORDINAL OF REQUESTED NAME.                         FAS         4199     A     
 FAS      *           FOR GROUP MEMBERS ONLY, ALSO RETURNS ...                             FAS         4200     A     
 FAS      *                (A2) -> (ONLY IF ARRAY) T.DIM HEADER FOR MEMBER NAME.           FAS         4201     A     
 FAS      *                (X2) = IF ARRAY, BLOCK-REL ADDR OF RUN-TIME DIMTAB,             FAS         4202     A     
 FAS      *                     = IF SIMPLE VARIABLE, = 4S15.                              FAS         4203     A     
 FAS      *                                                                                FAS         4204     A     
 FAS      *         USES   A1-3,   X0-4,   B2-7.                                           FAS         4205     A     
 FAS      *                                                                                FAS         4206     A     
 FAS      *         CALLS  NONE.                                                           FAS         4207     A     
 FAS                                                                                       FAS         4208     A     
 FAS                                                                                       FAS         4209     A     
 FAS       SNR      SUBR   =           ENTRY/EXIT...                                       FAS         4210     A     
 FAS       SNR2     SA1    T=NLST                                                          FAS         4211     A     
 FAS                SA2    T.NLST                                                          FAS         4212     A     
 FAS                =B2    B2+1        *(B2) = ORDINAL NEXT MEMBER                         FAS         4213     A     
 FAS                SB5    X1          (B5) = LEN (T.NLST)                                 FAS         4214     A     
 FAS                LE     B5,B0,SNR5  IF T.NLST EMPTY                                     FAS         4215     A     
 FAS                MI     B3,SNR5     IF NO MORE GROUPS                                   FAS         4216     A     
 FAS                GE     B3,B5,SNR5  IF IX[GRP-HDR] BEYOND END OF T.NLST                 FAS         4217     A     
 FAS                SB6    X2          (B6) = (T.NLST)                                     FAS         4218     A     
 FAS                SA1    X2+B3       GROUP HEADER                                        FAS         4219     A     
 FAS                MX0    -NG.NMEML                                                       FAS         4220     A     
 FAS                LX1    0-NG.NMEMP                                                      FAS         4221     A     
 FAS                BX2    -X0*X1                                                          FAS         4222     A     
 FAS                SB4    X2          *(B4) = NR GROUP MEMBERS                            FAS         4223     A     
 FAS                                                                                       FAS         4224     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         4225     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1845    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                =B7    B2-1                                                            FAS         4226     A     
 FAS                GT     B7,B4,"BLOWUP"    IF REQUEST BEYOND END OF GROUP                FAS         4227     A     
 FAS       .T       ENDIF                                                                  FAS         4228     A     
 FAS                                                                                       FAS         4229     A     
 FAS      *         COMPUTE LEFT SHIFT COUNT NEEDED TO POSITION REQUESTED ORDINAL          FAS         4230     A     
 FAS      *         TO BITS 14-0.  COUNT = MOD(ORD+2,4) * 15.                              FAS         4231     A     
 FAS                                                                                       FAS         4232     A     
 FAS                =X1    B2+1        ORD+2                                               FAS         4233     A     
 FAS                MX2    -2                                                              FAS         4234     A     
 FAS                BX3    -X2*X1      MOD(ORD+2,4)                                        FAS         4235     A     
 FAS                SX1    X3                                                              FAS         4236     A     
 FAS                LX3    4                                                               FAS         4237     A     
 FAS                IX2    X3-X1       *15                                                 FAS         4238     A     
 FAS                SB7    X2          SHIFT COUNT                                         FAS         4239     A     
 FAS                                                                                       FAS         4240     A     
 FAS      *         COMPUTE T.NLST INDEX OF REQUESTED ORDINAL.                             FAS         4241     A     
 FAS      *         INDEX = (ORD+1)/4 + INDEX FWA GROUP.                                   FAS         4242     A     
 FAS                                                                                       FAS         4243     A     
 FAS                SX1    B2                                                              FAS         4244     A     
 FAS                AX1    2                                                               FAS         4245     A     
 FAS                SX2    B3+X1       INDEX                                               FAS         4246     A     
 FAS                                                                                       FAS         4247     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         4248     A     
 FAS                SX3    B5                                                              FAS         4249     A     
 FAS                IX3    X2-X3                                                           FAS         4250     A     
 FAS                PL     X3,"BLOWUP" IF INDEX BEYOND END OF T.NLST                       FAS         4251     A     
 FAS       .T       ENDIF                                                                  FAS         4252     A     
 FAS                                                                                       FAS         4253     A     
 FAS                SA1    B6+X2       T.NLST WORD CONTAINING REQUESTED ORD                FAS         4254     A     
 FAS                =B6    X2+1        (B6) = INDEX TO NEXT T.NLST WORD                    FAS         4255     A     
 FAS                SA2    T.SYM                                                           FAS         4256     A     
 FAS                LX1    B7          SHIFT ORD TO BITS 14-0                              FAS         4257     A     
 FAS                ERRNZ  NG.ORDL-NG.NMEML  IF (X0) MASK LENGTH ERROR                     FAS         4258     A     
 FAS                BX5    -X0*X1      *(X5) = T.SYM ORDINAL OF REQUESTED NAME             FAS         4259     A     
 FAS                =B7    X5+WB.W                                                         FAS         4260     A     
 FAS                LX1    X5,B1                                                           FAS         4261     A     
 FAS                                                                                       FAS         4262     A     
 FAS                SB7    B7+X1       ORD*3 + WB.W                                        FAS         4263     A     
 FAS                SA1    X2+B7       *(A1,X1) = T.SYM WORD B FOR REQUESTED NAME          FAS         4264     A     
 FAS                MX2    1                                                               FAS         4265     A     
 FAS                LX2    NB.DADRP+NB.DADRL                                               FAS         4266     A     
 FAS                                                                                       FAS         4267     A     
 FAS                NE     B2,B1,SNR3  IF PROCESSING MEMBER                                FAS         4268     A     
 FAS                                                                                       FAS         4269     A     
 FAS       .T       IFEQ   TEST,ON                                                         FAS         4270     A     
 FAS                BX3    X1                                                              FAS         4271     A     
 FAS                IFBIT  X3,-WB.NLSTP,"BLOWUP" IF NOT GROUP-NAME                         FAS         4272          I
          -FC5A231
 FAS                SBIT   X3,WB.NLSTP                                                     FC5A231      150     A     
 FAS                PL     X3,"BLOWUP" IF NOT GROUP NAME                                   FC5A231      151     A     
 FAS                LX3    WB.NLSTP+1-WB.PNTP-WB.PNTL                                      FAS         4273     A     
 FAS                AX3    -WB.PNTL                                                        FAS         4274     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1846    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SB7    X3                                                              FAS         4275     A     
 FAS                NE     B7,B3,"BLOWUP"    IF GROUP-NAME ORDINAL MISMATCH                FAS         4276     A     
 FAS       .T       ENDIF                                                                  FAS         4277     A     
 FAS                                                                                       FAS         4278     A     
 FAS                BX3    X1                                                              FAS         4279     A     
 FAS                IFBIT  X3,WB.MATP,SNR4   IF ANY I/O STMNT REF-D GROUP NAME             FAS         4280          I
          -FC5A231
 FAS                SBIT   X3,WB.MATP                                                      FC5A231      152     A     
 FAS                MI     X3,SNR4     IF ANY I/O STATEMENT REFERENCED GROUP NAME          FC5A231      153     A     
 FAS                =X1    B4+1        GROUP LEN (IN T.NLST) = (NR MEM - 1)/4 + 1          FAS         4281     A     
 FAS                AX1    2                                                               FAS         4282     A     
 FAS                =B6    X1+1                                                            FAS         4283     A     
 FAS                =B2    0           (B2) = RESET FOR NEW GROUP HEADER                   FAS         4284     A     
 FAS                SB3    B3+B6       (B3) = ADVANCE TO NEW GROUP ORD                     FAS         4285     A     
 FAS                EQ     SNR2        RESTART                                             FAS         4286     A     
 FAS                                                                                       FAS         4287     A     
 FAS       SNR3     BX3    X1                                                              FAS         4288     A     
 FAS                IFBIT  X3,-WB.ARYP,SNR4  IF NOT ARRAY                                  FAS         4289          I
          -FC5A231
 FAS                SBIT   X3,WB.ARYP                                                      FC5A231      154     A     
 FAS                PL     X3,SNR4     IF NOT ARRAY                                        FC5A231      155     A     
 FAS                SA2    T.DIM                                                           FAS         4290     A     
 FAS                BX3    X1                                                              FAS         4291     A     
 FAS                SB7    X2                                                              FAS         4292     A     
 FAS                HX3    WB.PNT                                                          FAS         4293     A     
 FAS                AX3    -WB.PNTL                                                        FAS         4294     A     
 FAS                SA2    B7+X3       *(A2) = ADDR OF T.DIM HEADER                        FAS         4295     A     
 FAS                HX2    DH.RA                                                           FAS         4296     A     
 FAS                AX2    -DH.RAL     *(X2) = ADDR OF RUN-TIME DIM INFO                   FAS         4297     A     
 FAS       SNR4     LE     B2,B4,EXIT. IF ANOTHER MEMBER                                   FAS         4298     A     
 FAS                =B2    0           *(B2) = NO MORE MEMBERS                             FAS         4299     A     
 FAS                SB3    B6          *(B3) = INDEX TO FWA NEXT GROUP IN T.NLST           FAS         4300     A     
 FAS                LT     B3,B5,EXIT. IF ANOTHER GROUP                                    FAS         4301     A     
 FAS       SNR5     =B2    0           *(B2) = NO MORE MEMBERS                             FAS         4302     A     
 FAS                =B3    -1          *(B3) = END OF T.NLST                               FAS         4303     A     
 FAS                EQ     EXIT.                                                           FAS         4304     A     
 FAS       STX      SPACE  4,30                                                            FAS         4305     A     
 FAS      **        STX -  STORE *TEXT* TABLE ENTRY.                                       FAS         4306     A     
 FAS      *                                                                                FAS         4307     A     
 FAS      *         STX CANNOT MOVE TABLES.                                                FAS         4308     A     
 FAS      *                                                                                FAS         4309     A     
 FAS      *         ENTRY  (X1) = WORD TO BE OUTPUT                                        FAS         4310     A     
 FAS      *                (X2) = RELOCATION BYTE FOR THAT WORD                            FAS         4311     A     
 FAS      *         EXIT   TABLE UPDATED AND FLUSHED AS NECESSARY.                         FAS         4312     A     
 FAS      *                (ORG) INCREMENTED.                                              FAS         4313     A     
 FAS      *                (PARCEL) INDICATES EMPTY.                                       FAS         4314     A     
 FAS      *                (BINWORD) = (BINREL) = 0                                        FAS         4315     A     
 FAS      *         USES   A1-A4,A6,A7  B1-B3,B5-B7                                        FAS         4316     A     
 FAS      *         CALLS  DTX.                                                            FAS         4317     A     
 FAS                                                                                       FAS         4318     A     
 FAS                                                                                       FAS         4319     A     
 FAS       STX      SUBR               ENTRY/EXIT...                                       FAS         4320     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1847    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                SA3    BT.TXWC                                                         FAS         4321     A     
 FAS                BX6    X1                                                              FAS         4322     A     
 FAS                SA1    BT.TXRB                                                         FAS         4323     A     
 FAS                SX7    3                                                               FAS         4324     A     
 FAS                SA6    OL=BIN                                                          FAS         4325     A     
 FAS                SA6    X3+BT.TEXT+2                                                    FAS         4326     A     
 FAS                SX6    X3+B1                                                           FAS         4327     A     
 FAS                LX1    L.BTRB                                                          FAS         4328     A     
 FAS                SA6    A3          UPDATE WORD COUNT                                   FAS         4329     A     
 FAS                SA7    PARCEL      INDICATE EMPTY WORD                                 FAS         4330     A     
 FAS                BX7    X2+X1                                                           FAS         4331     A     
 FAS                SA2    ORG                                                             FAS         4332     A     
 FAS                SX3    X6-15                                                           FAS         4333     A     
 FAS                BX6    X2          CAPTURE (ORIGIN) FOR LISTING                        FAS         4334     A     
 FAS                SA6    LINEBUF                                                         FAS         4335     A     
 FAS                BX6    0                                                               FAS         4336     A     
 FAS                SA7    A1                                                              FAS         4337     A     
 FAS                SA6    BINWORD                                                         FAS         4338     A     
 FAS                =X7    1                                                               FAS         4339     A     
 FAS                IX7    X2+X7       INCREMENT ORIGIN COUNTER                            FAS         4340     A     
 FAS                SA6    A6+B1                                                           FAS         4341     A     
 FAS                SA7    A2                                                              FAS         4342     A     
 FAS                MI     X3,EXIT.    IF NOT FULL TABLE                                   FAS         4343     A     
 FAS                                                                                       FAS         4344     A     
 FAS                RJ     DTX         FLUSH TEXT TABLE                                    FAS         4345     A     
 FAS                EQ     EXIT.                                                           FAS         4346     A     
 FAS       VFD      SPACE  4,10                                                            FAS         4347          I
          -FC5A171A 
 FAS      **        VFD - VARIABLE FIELD DEFINITION.                                       FAS         4348          I
          -FC5A171A 
 FAS      *                                                                                FAS         4349          I
          -FC5A171A 
 FAS      *                                                                                FAS         4350          I
          -FC5A171A 
 FAS      *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL            FAS         4351          I
          -FC5A171A 
 FAS      *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.                  FAS         4352          I
          -FC5A171A 
 FAS      *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY--         FAS         4353          I
          -FC5A171A 
 FAS      *                                                                                FAS         4354          I
          -FC5A171A 
 FAS      *         POS    (B4)   IN (X1)                                                  FAS         4355          I
          -FC5A171A 
 FAS      *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1)         FAS         4356          I
          -FC5A171A 
 FAS      *                                                                                FAS         4357          I
          -FC5A171A 
 FAS      *         E.G.   (B4) = 45   POSITION COUNTER                                    FAS         4358          I
          -FC5A171A 
 FAS      *                (B5) = 30   NR OF BITS                                          FAS         4359          I
          -FC5A171A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1848    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS      *                                                                                FAS         4360          I
          -FC5A171A 
 FAS      *                BINARY      76211031100015620310                                FAS         4361          I
          -FC5A171A 
 FAS      *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))              FAS         4362          I
          -FC5A171A 
 FAS      *                                                                                FAS         4363          I
          -FC5A171A 
 FAS      *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                            FAS         4364          I
          -FC5A171A 
 FAS      *                (B4)  =  POSITION COUNTER                                       FAS         4365          I
          -FC5A171A 
 FAS      *                (B5)  =  NR OF BITS IN FIELD                                    FAS         4366          I
          -FC5A171A 
 FAS      *                                                                                FAS         4367          I
          -FC5A171A 
 FAS      *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT          FAS         4368          I
          -FC5A171A 
 FAS      *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT          FAS         4369          I
          -FC5A171A 
 FAS      *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,                 FAS         4370          I
          -FC5A171A 
 FAS      *                            ELSE .NZ.                                           FAS         4371          I
          -FC5A171A 
 FAS      *                                                                                FAS         4372          I
          -FC5A171A 
 FAS      *         USES   X - 0,1,2,3,4,6,7                                               FAS         4373          I
          -FC5A171A 
 FAS      *                A - NONE                                                        FAS         4374          I
          -FC5A171A 
 FAS      *                B - 6                                                           FAS         4375          I
          -FC5A171A 
 FAS      *                                                                                FAS         4376          I
          -FC5A171A 
 FAS      *         CALLS  NONE                                                            FAS         4377          I
          -FC5A171A 
 FAS                                                                                       FAS         4378          I
          -FC5A171A 
 FAS                                                                                       FAS         4379          I
          -FC5A171A 
 FAS       VFD      SUBR               ** ENTRY/EXIT **                                    FAS         4380          I
          -FC5A171A 
 FAS                MX3    0                                                               FAS         4381          I
          -FC5A171A 
 FAS                BX0    X0-X0                                                           FAS         4382          I
          -FC5A171A 
 FAS                SB6    B5-1                                                            FAS         4383          I
          -FC5A171A 
 FAS                LT     B4,B0,EXIT. IF POS COUNT IS BAD                                 FAS         4384          I
          -FC5A171A 
 FAS                LT     B5,B0,EXIT. IF BIT COUNT IS BAD                                 FAS         4385          I
          -FC5A171A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1849    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                MX0    -3                                                              FAS         4386          I
          -FC5A171A 
 FAS                ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                          FAS         4387          I
          -FC5A171A 
 FAS                MX3    1                                                               FAS         4388          I
          -FC5A171A 
 FAS                AX3    X3,B6                                                           FAS         4389          I
          -FC5A171A 
 FAS                NO                                                                     FAS         4390          I
          -FC5A171A 
 FAS                LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT             FAS         4391          I
          -FC5A171A 
 FAS                BX1    X3*X1                                                           FAS         4392          I
          -FC5A171A 
 FAS                                                                                       FAS         4393          I
          -FC5A171A 
 FAS       VFD2     MX6    0                                                               FAS         4394          I
          -FC5A171A 
 FAS                BX7    X7-X7                                                           FAS         4395          I
          -FC5A171A 
 FAS                SB6    60                                                              FAS         4396          I
          -FC5A171A 
 FAS                                                                                       FAS         4397          I
          -FC5A171A 
 FAS      *         ASSEMBLE APPROPRIATE DIGITS.                                           FAS         4398          I
          -FC5A171A 
 FAS                                                                                       FAS         4399          I
          -FC5A171A 
 FAS       VFD3     LX1    3                                                               FAS         4400          I
          -FC5A171A 
 FAS                BX2    -X0*X1                                                          FAS         4401          I
          -FC5A171A 
 FAS                LX3    3                                                               FAS         4402          I
          -FC5A171A 
 FAS                BX4    -X0*X3                                                          FAS         4403          I
          -FC5A171A 
 FAS                SX2    X2+1R0                                                          FAS         4404          I
          -FC5A171A 
 FAS                SB6    B6-6                                                            FAS         4405          I
          -FC5A171A 
 FAS                NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                          FAS         4406          I
          -FC5A171A 
 FAS                SX2    1R                                                              FAS         4407          I
          -FC5A171A 
 FAS                                                                                       FAS         4408          I
          -FC5A171A 
 FAS       VFD4     LX2    X2,B6                                                           FAS         4409          I
          -FC5A171A 
 FAS                BX7    X7+X2                                                           FAS         4410          I
          -FC5A171A 
 FAS                GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                        FAS         4411          I
          -FC5A171A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1850    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS                                                                                       FAS         4412          I
          -FC5A171A 
 FAS      *         HERE IF PACKING REGISTER (X7) IS FULL.                                 FAS         4413          I
          -FC5A171A 
 FAS                                                                                       FAS         4414          I
          -FC5A171A 
 FAS                SB6    60                                                              FAS         4415          I
          -FC5A171A 
 FAS                NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD                  FAS         4416          I
          -FC5A171A 
 FAS                BX6    X7                                                              FAS         4417          I
          -FC5A171A 
 FAS                MX7    0                                                               FAS         4418          I
          -FC5A171A 
 FAS                EQ     VFD3                                                            FAS         4419          I
          -FC5A171A 
 FAS       WLF      SPACE  4,30                                                            FAS         4420     A     
 FAS      **        WLF -  WRITE *LGO* FILE.                                               FAS         4421     A     
 FAS      *                                                                                FAS         4422     A     
 FAS      *                ALL BINARY OUTPUT MUST BE DONE THRU THIS ROUTINE.               FAS         4423     A     
 FAS      *         PLEASE USE THE MACRO FORM, *WLGO*, TO INSURE CORRECT CALLING           FAS         4424     A     
 FAS      *         SEQUENCE.                                                              FAS         4425     A     
 FAS      *                                                                                FAS         4426     A     
 FAS      *         WLF CANNOT MOVE TABLES.                                                FAS         4427     A     
 FAS      *                                                                                FAS         4428     A     
 FAS      *         ENTRY  (B6) = FWA DATA                                                 FAS         4429     A     
 FAS      *                (B7) = WORD COUNT                                               FAS         4430     A     
 FAS      *         USES   ALL BUT A5,X5,X0,A0                                             FAS         4431     A     
 FAS      *         KEEPS  B4          *TEMP*                                              FAS         4432     A     
 FAS      *         CALLS  FA=WTW.                                                         FAS         4433     A     
 FAS                                                                                       FAS         4434     A     
 FAS                                                                                       FAS         4435     A     
 FAS       WLF      SUBR   =           ENTRY/EXIT.                                         FAS         4436     A     
 FAS       WLF.EQ   BSSENT 0                                                               FAS         4437     A     
 FAS                SX6    B4          SAVE (B4)                                           FAS         4438     A     
 FAS                SA6    GT1                                                             FAS         4439     A     
 FAS                WRITEW F.LGO,B6,B7  WRITE IT OUT ON DISK                               FAS         4440     A     
 FAS                SA1    GT1                                                             FAS         4441     A     
 FAS                SB4    X1          RESTORE (B4)                                        FAS         4442     A     
 FAS                EQ     EXIT.                                                           FAS         4443     A     
 FAS       WWB      SPACE  4,10                                                            FAS         4444     A     
 FAS      **        WWB -  WRITE ONE WORD TO TEXT /OR TO SCATCH TABLE                      FAS         4445     A     
 FAS      *                (T.SCR).                                                        FAS         4446     A     
 FAS      *         ENTRY  (X1) = WORD TO BE OUTPUT                                        FAS         4447     A     
 FAS      *                (X2) = RELOCTION BYTES                                          FAS         4448     A     
 FAS      *                (ORDA) = 0 IF WRITING TO TEXT                                   FAS         4449     A     
 FAS      *                       = 1 IF WRITING TO SCRATCH TABLE                          FAS         4450     A     
 FAS      *         CALLS  STX,ALLOC                                                       FAS         4451     A     
 FAS      *         CELLS  ORDC                                                            FAS         4452     A     
 FAS      *         USES   ALL BUT A5,X5,A0,  T.SCR                                        FAS         4453     A     
 FAS                                                                                       FAS         4454     A     
 FAS                                                                                       FAS         4455     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1851    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAS     
  
 FAS       WWB      SUBR   0           ENTRY/EXIT.                                         FAS         4456     A     
 FAS                SA4    ORDA                                                            FAS         4457     A     
 FAS                ZR     X4,WWB10    IF WRITING TO TEXT                                  FAS         4458     A     
 FAS                BX6    X1                                                              FAS         4459     A     
 FAS                ADDWD  T.SCR                                                           FAS         4460     A     
 FAS                EQ     EXIT.                                                           FAS         4461     A     
 FAS                                                                                       FAS         4462     A     
 FAS       WWB10    RJ     STX         OUTPUT A WORD TO TEXT TABLE                         FAS         4463     A     
 FAS                EQ     EXIT.                                                           FAS         4464     A     
 FAS                                                                                       FAS         4465     A     
 FAS                PURGMAC WLGO                                                           FAS         4466     A     
 FAS                SPACE  4,10                                                            FAS         4467     A     
 FAS                LIST   D                                                               FAS         4468     A     
 FAS                END                                                                    FAS         4469     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FAS     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FAS                       4469      4187
          F2950F5                      3         3
          FC5A121                     17        17
          FC5A131                      7         7
          FC5A132                     47        47
          FC5A171A                    12        11
          FC50010                      4         4
          FC5A219                     14        14
          FC5A231                     21        21
          FC50049                      5         5
          FC50137                      5         5
          FC5A281                      5         5
          FC5A298                     19        19
          FC50252                      5         5
          FC50264                     37        37
          FC50353                      5         5
          FC5A369                     16        16
          FC5A373                      3         2
          FC5A406                     17        17
          FC50722                      2         2
          FC50730                     13        13
          FC5A427                      1         1
          FC50809                     79        79
          FC50905                      1         1
          FC51002                     19        19
          FC51232                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ZEROLNK 
  
 ZEROLNK  *DECK ZEROLNK                                                                    ZEROLNK        1     A     
 ZEROLNK            IDENT  ZEROLNK                                                         ZEROLNK        2     A     
 ZEROLNK   ZEROLNK  SECT   (0,0 OVERLAY LINKAGES)                                          ZEROLNK        3     A     
 ZEROLNK   ZEROLNK  SPACE  4,10                                                            ZEROLNK        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1852    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ZEROLNK 
  
 ZEROLNK  **        ZEROLNK PROVIDES ENTRY POINTS NORMALLY SUPPLIED BY *MAP*               ZEROLNK        5     A     
 ZEROLNK  *         AND *LIST* FOR THE SHORT (0,0) OVERLAY.                                ZEROLNK        6          I
          -FC5A150
 ZEROLNK  *         *LIST*, AND *PUC* FOR THE SHORT (0,0) OVERLAY.                         FC5A150      539     A     
 ZEROLNK                                                                                   ZEROLNK        7     A     
 ZEROLNK   PIK      SUBR   =                                                               ZEROLNK        8     A     
 ZEROLNK            EQ     EXIT.                                                           ZEROLNK        9     A     
 ZEROLNK                                                                                   ZEROLNK       10     A     
 ZEROLNK   VFD      EQUENT PIK                                                             FC5A171A     358     A     
 ZEROLNK   MAP      EQUENT PIK                                                             ZEROLNK       11     A     
 ZEROLNK   LUS      EQUENT PIK                                                             FC5A150      540     A     
 ZEROLNK   MOVES    BSSENT 1                                                               FC5A150      541     A     
 ZEROLNK   PARSLEN  EQUENT MOVES                                                           FC5A150      542     A     
 ZEROLNK   ALC=CNT  EQUENT MOVES                                                           FC5A150      543     A     
 ZEROLNK                                                                                   ZEROLNK       12     A     
 ZEROLNK   FIN      BSSENT 0                                                               ZEROLNK       13     A     
 ZEROLNK   FIN.MAP  BSSENT 0                                                               ZEROLNK       14     A     
 ZEROLNK   FIN.OL   BSSENT 0                                                               ZEROLNK       15     A     
 ZEROLNK                                                                                   ZEROLNK       16     A     
 ZEROLNK            LIST   D                                                               ZEROLNK       17     A     
 ZEROLNK            END                                                                    ZEROLNK       18     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ZEROLNK 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ZEROLNK                     18        17
          FC5A150                      5         5
          FC5A171A                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *DECK,MAP                                                                        MAP            1     A     
 MAP                IDENT  MAP                                                             MAP            2     A     
 MAP       MAP      SECT   (STORAGE MAP AND CROSS REFERENCE.)                              MAP            3     A     
 MAP       MAP      SPACE  4                                                               MAP            4     A     
 MAP      *         IN ALLOC                                                               MAP            5     A     
 MAP                EXT    ADW,ALC                                                         MAP            6     A     
 MAP                                                                                       MAP            7     A     
 MAP      *         IN FSNAP                                                               MAP            8     A     
 MAP                EXT    DMT=                                                            MAP            9     A     
 MAP                                                                                       MAP           10     A     
 MAP      *         IN FTN                                                                 MAP           11     A     
 MAP                EXT    CO.PW,CO.SNAP,CP.BLF,CP.PS,F.REF                                MAP           12          I
          -FC5A107
 MAP                EXT    CO.PS,CO.PW,CO.SNAP,CP.BLF,F.REF                                FC5A107       18     A     
 MAP                                                                                       MAP           13     A     
 MAP      *         IN PUC                                                                 MAP           14     A     
 MAP                EXT    BLNKCOM,FAILSFT,HDRBL,LCNT,LINEBUF,LOSTREF,MOD,O.STITL          MAP           15     A     
 MAP                EXT    PASS,PIA,REFIO,S=VALUE,T=BLKS,T=ECT,T=REF,T=SCR,T=SYM           MAP           16     A     
 MAP                EXT    T.BLKS,T.CON,T.DIM,T.ECT,T.REF,T.SCR,T.SYM,WOF,WO.LOA           MAP           17     A     
 MAP                EXT    WO.LOM,WO.LOR,WO.QC,T.ENTP                                      MAP           18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1853    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP           19     A     
 MAP      *         IN RLINK                                                               MAP           20     A     
 MAP                EXT    SCSA,SCS                                                        MAP           21     A     
 MAP                                                                                       MAP           22     A     
 MAP      *         IN UTILITY                                                             MAP           23     A     
 MAP                EXT    CDD,CIO=,MVE=,RDW=,SBM=,SFN,SST,WOD,ZTB                         MAP           24     A     
 MAP                                                                                       MAP           25     A     
 MAP       FIN      BSSENT 0           END OF OVERLAY WHEN MAP AND OLIST ARE OFFF          MAP           26     A     
 MAP       MACROS   EJECT                                                                  MAP           27     A     
 MAP                TITLE  MACRO AND MICRO DEFINITIONS                                     MAP           28     A     
 MAP      **        ALL MACROS LOCAL TO THE DECK MAP ARE DEFINED HERE.                     MAP           29     A     
 MAP                                                                                       MAP           30     A     
 MAP                                                                                       MAP           31     A     
 MAP      **        DDTE - DEFINE A DEPENDENT TABLE ENTRY.                                 MAP           32     A     
 MAP      *                                                                                MAP           33     A     
 MAP      *         DEFINES AN ENTRY IN A TABLE THAT DEPENDS ON THE ORDER                  MAP           34     A     
 MAP      *         IN WHICH THE DIFFERENT MAP SEGMENTS ARE OUTPUT.                        MAP           35     A     
 MAP      *         THE MACRO WILL CAUSE AN ASSEMBLY ERROR IF THE ORDER                    MAP           36     A     
 MAP      *         OF THE TABLE BEING GENERATED IS NOT THE SAME AS THE                    MAP           37     A     
 MAP      *         ORDER OF *MST*.                                                        MAP           38     A     
 MAP      *                                                                                MAP           39     A     
 MAP      *         DDTE   TEST,STMT1,STMT2.                                               MAP           40     A     
 MAP                                                                                       MAP           41     A     
 MAP                PURGMAC  DDTE                                                          MAP           42     A     
 MAP                                                                                       MAP           43     A     
 MAP       DDTE     MACRO  TEST,STMT1,STMT2                                                MAP           44     A     
 MAP       .1       SET    STO+1                                                           MAP           45     A     
 MAP       STO      SET    .1                                                              MAP           46     A     
 MAP                ERRNZ  TEST-.1                                                         MAP           47     A     
 MAP                STMT1                                                                  MAP           48     A     
 MAP                STMT2                                                                  MAP           49     A     
 MAP       DDTE     ENDM                                                                   MAP           50     A     
 MAP       MACROS   SPACE  4,10                                                            MAP           51     A     
 MAP      **        DTE -  DEFINE TABLE ENTRY.                                             MAP           52     A     
 MAP      *                                                                                MAP           53     A     
 MAP      *         DEFINES ENTRY IN A TABLE OF ROUTINE ADDRESSES.                         MAP           54     A     
 MAP      *         USED TO CREATE AN ADDRESS TABLE FOR MAP FORMATTERS.                    MAP           55     A     
 MAP      *                                                                                MAP           56     A     
 MAP      *         DTE    ADRS1,ADRS2.                                                    MAP           57     A     
 MAP                                                                                       MAP           58     A     
 MAP                PURGMAC  DTE                                                           MAP           59     A     
 MAP                                                                                       MAP           60     A     
 MAP       DTE      MACRO  ADRS1,ADRS2                                                     MAP           61     A     
 MAP                VFD    30/ADRS1,30/ADRS2                                               MAP           62     A     
 MAP       DTE      ENDM                                                                   MAP           63     A     
 MAP       MACROS   SPACE  4,10                                                            MAP           64     A     
 MAP      **        DMSTE -  DEFINE MAP SEGMENT TABLE ENTRY.                               MAP           65     A     
 MAP      *                                                                                MAP           66     A     
 MAP      *         MAKES ENTRY IN MAP SEGMENT TABLE AND DEFINES A SYMBOL                  MAP           67     A     
 MAP      *         WHICH DESCRIBES THE POSITION OF THE SEGMENT WITHIN THE                 MAP           68     A     
 MAP      *         TABLE.                                                                 MAP           69     A     
 MAP      *                                                                                MAP           70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1854    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         DMSTE  SEG,IR.                                                         MAP           71     A     
 MAP                                                                                       MAP           72     A     
 MAP                PURGMAC  DMSTE                                                         MAP           73     A     
 MAP                                                                                       MAP           74     A     
 MAP       DMSTE    MACRO  SEG,IR                                                          MAP           75     A     
 MAP                VFD    30/SEG,30/IR                                                    MAP           76     A     
 MAP       SEG_P    SET    STO+1                                                           MAP           77     A     
 MAP       STO      SET    SEG_P                                                           MAP           78     A     
 MAP       DMSTE    ENDM                                                                   MAP           79     A     
 MAP       MACROS   SPACE  4,10                                                            MAP           80     A     
 MAP      **        RESR - RESTORE CONTENTS OF REGISTERS.                                  MAP           81     A     
 MAP      *                                                                                MAP           82     A     
 MAP      *         FETCHES PREVIOUSLY STORED REGS FROM A MEMORY BLOCK .                   MAP           83     A     
 MAP      *         REGISTER LIST ON CALL MUST BE IDENTICAL TO THE LIST                    MAP           84          I
          -FC5A185
 MAP      *         USED ON PREVIOUS SAVR CALL.  IF A1 IS IN THE LIST,                     MAP           85          I
          -FC5A185
 MAP      *         IT MUST BE LAST.  B7 CANNOT BE IN THE LIST.                            MAP           86          I
          -FC5A185
 MAP      *         IF A1 IS IN THE LIST, IT MUST BE LAST.                                 FC5A185        4     A     
 MAP      *                                                                                MAP           87     A     
 MAP      *         RESR   (R1,R2...R5),ADRS.                                              MAP           88     A     
 MAP      *                                                                                MAP           89     A     
 MAP      *         USES   A1,B7,X1.                                                       MAP           90     A     
 MAP                                                                                       MAP           91     A     
 MAP                PURGMAC  RESR                                                          MAP           92     A     
 MAP                                                                                       MAP           93     A     
 MAP       RESR     MACRO  REG,ADRS                                                        MAP           94     A     
 MAP                SB7    B0                                                              MAP           95          I
          -FC5A185
 MAP                IRP    REG                                                             MAP           96     A     
 MAP                SA1    B7+ADRS                                                         MAP           97          I
          -FC5A185
 MAP                SA1    ADRS+SV_REG                                                     FC5A185        5     A     
 MAP                S_REG  X1                                                              MAP           98     A     
 MAP                =B7    B7+1                                                            MAP           99          I
          -FC5A185
 MAP                IRP                                                                    MAP          100     A     
 MAP       RESR     ENDM                                                                   MAP          101     A     
 MAP       MACROS   SPACE  4,10                                                            MAP          102     A     
 MAP      **        SAVR - SAVE CONTENTS OF REGISTERS.                                     MAP          103     A     
 MAP      *                                                                                MAP          104     A     
 MAP      *         STORES THE LOW 18 BITS OF UP TO 5 REGISTERS INTO A                     MAP          105          I
          -FC5A185
 MAP      *         STORES THE LOW 18 BITS OF UP TO 4 REGISTERS INTO A                     FC5A185        6     A     
 MAP      *         MEMORY BLOCK. USED TO IMPROVE READABILITY OF CODE                      MAP          106     A     
 MAP      *         IN PLACES WHERE POINTERS USED BY THE CONTROLLER MUST                   MAP          107     A     
 MAP      *         EXIST ACROSS SUBROUTINE OR MACRO CALLS.  SINCE THIS MACRO              MAP          108          I
          -FC5A185
 MAP      *         USES X7 AND B7, THESE REGS CANNOT BE IN THE CALL.                      MAP          109          I
          -FC5A185
 MAP      *         EXIST ACROSS SUBROUTINE OR MACRO CALLS.                                FC5A185        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1855    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                                                                                MAP          110     A     
 MAP      *         SAVR   (R1,R2,...R5),ADRS.                                             MAP          111          I
          -FC5A185
 MAP      *         SAVR   (R1,R2,...R4),ADRS                                              FC5A185        8     A     
 MAP      *                                                                                MAP          112     A     
 MAP      *         USES   X7,B7.                                                          MAP          113          I
          -FC5A185
 MAP      *         USES   X7.                                                             FC5A185        9     A     
 MAP                                                                                       MAP          114     A     
 MAP                PURGMAC  SAVR                                                          MAP          115     A     
 MAP                                                                                       MAP          116     A     
 MAP       SAVR     MACRO  REG,ADRS                                                        MAP          117     A     
 MAP                SB7    B0                                                              MAP          118          I
          -FC5A185
 MAP                IRP    REG                                                             MAP          119     A     
 MAP                SX7    REG                                                             MAP          120     A     
 MAP                SA7    B7+ADRS                                                         MAP          121          I
          -FC5A185
 MAP                =B7    B7+1                                                            MAP          122          I
          -FC5A185
 MAP                SA7    ADRS+SV_REG                                                     FC5A185       10     A     
 MAP                IRP                                                                    MAP          123     A     
 MAP       SAVR     ENDM                                                                   MAP          124     A     
 MAP       MACROS   SPACE  4,10                                                            MAP          125     A     
 MAP      **        WLINE -            WRITE A LINE.                                       MAP          126     A     
 MAP      *                                                                                MAP          127     A     
 MAP      *         WILL BLANK FILL THE LAST WORD OF A LINE,                               MAP          128     A     
 MAP      *         WRITE A LINE, AND IF THE LINE WAS IN MAPBUFF,                          MAP          129     A     
 MAP      *         WILL ZERO THE BUFFER AND RESET PCB PARAMETERS. CAN                     MAP          130     A     
 MAP      *         HANDLE OUTPUT OF BLANK LINES BOTH BEFORE AND AFTER                     MAP          131     A     
 MAP      *         WRITING THE LINE.                                                      MAP          132     A     
 MAP      *                                                                                MAP          133     A     
 MAP      *         WLINE  ADRS,NW,BEF,AFT.                                                MAP          134     A     
 MAP      *                                                                                MAP          135     A     
 MAP      *         USES   X - 1,5,6  A - 1,6.                                             MAP          136     A     
 MAP      *                                                                                MAP          137     A     
 MAP      *         CALLS  PLINE,SETMEM,SFN.                                               MAP          138     A     
 MAP                                                                                       MAP          139     A     
 MAP                PURGMAC  WLINE                                                         MAP          140     A     
 MAP                                                                                       MAP          141     A     
 MAP       WLINE    MACRO  ADRS,NW,BEF,AFT                                                 MAP          142     A     
 MAP                =X5    NW                                                              MAP          143     A     
 MAP       #OS      IFNE   .OS,2,4     NO COLON PROBLEM WITH W-RECS.                       FC5A158A     451     A     
 MAP                =X1    NW-1                                                            MAP          144     A     
 MAP                SA1    ADRS+X1                                                         MAP          145     A     
 MAP                CALL   SFN                                                             MAP          146     A     
 MAP                SA6    A1          BLANK FILL THE LAST WORD                            MAP          147     A     
 MAP                PLINE  ADRS,X5,BEF                                                     MAP          148     A     
 MAP                IFC    NE,$AFT$0$,1                                                    MAP          149     A     
 MAP                PLINE  ,,AFT                                                           MAP          150     A     
 MAP                IFC    EQ,$ADRS$IRBA$,1                                                FC51206        6     A     
 MAP                SKIP   6                                                               FC51206        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1856    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                IFC    NE,$ADRS$MOCBUF$,5                                              MAP          151     A     
 MAP                SETMEM ADRS,X5,0                                                       MAP          152     A     
 MAP                SX6    60                                                              MAP          153     A     
 MAP                SA6    PCB.SC                                                          MAP          154     A     
 MAP                =X6    -2                                                              MAP          155     A     
 MAP                SA6    PCB.WO                                                          MAP          156     A     
 MAP       WLINE    ENDM                                                                   MAP          157     A     
 MAP       MACROS   SPACE  4,10                                                            MAP          158     A     
 MAP      **        THE FOLLOWING MACRO IS USED AS A DEBUGGING TOOL ONLY.                  MAP          159     A     
 MAP      *         IT IS USED TO SUPPRESS OUTPUT OF PROCESSORS.                           MAP          160     A     
 MAP                                                                                       MAP          161     A     
 MAP                PURGMAC  XOUT                                                          MAP          162     A     
 MAP                                                                                       MAP          163     A     
 MAP       XOUT     MACRO                                                                  MAP          164     A     
 MAP                LX4    30                                                              MAP          165     A     
 MAP                SB6    X4                                                              MAP          166     A     
 MAP                SA1    MOC.XXS                                                         MAP          167     A     
 MAP                RJ     PCB                                                             MAP          168     A     
 MAP                EQ     MOC.RB                                                          MAP          169     A     
 MAP       XOUT     ENDM                                                                   MAP          170     A     
 MAP       MACROS   SPACE  4,10                                                            MAP          171     A     
 MAP      **        XTRCT -  EXTRACT A FIELD FROM A REGISTER.                              MAP          172     A     
 MAP      *                                                                                MAP          173     A     
 MAP      *         WILL EXTRACT ANY FIELD DEFINED BY FTN5TXT *DEFINE* MACRO.              MAP          174     A     
 MAP      *                                                                                MAP          175     A     
 MAP      *         XTRCT  FLD,SXR,DXR.                                                    MAP          176     A     
 MAP      *                                                                                MAP          177     A     
 MAP      *         USES   *SXR*,*DXR*,X0.                                                 MAP          178     A     
 MAP                                                                                       MAP          179     A     
 MAP                PURGMAC  XTRCT                                                         MAP          180     A     
 MAP                                                                                       MAP          181     A     
 MAP       XTRCT    MACRO  FLD,SXR,DXR                                                     MAP          182     A     
 MAP                MX0    -FLD_L                                                          MAP          183     A     
 MAP                L_SXR  -FLD_P                                                          MAP          184     A     
 MAP                B_DXR  -X0*SXR                                                         MAP          185     A     
 MAP       XTRCT    ENDM                                                                   MAP          186     A     
 MAP       MICROS   EJECT                                                                  MAP          187     A     
 MAP      **        ALL MICROS LOCAL TO THE DECK MAP ARE DEFINED HERE.                     MAP          188     A     
 MAP                                                                                       MAP          189     A     
 MAP      **        MICROS FOR SEGMENT TITLES.                                             MAP          190     A     
 MAP                                                                                       MAP          191     A     
 MAP       VMT      MICRO  1,,$ --VARIABLE MAP--$                                          MAP          192     A     
 MAP       SCMT     MICRO  1,,$ --SYMBOLIC CONSTANTS--$                                    MAP          193     A     
 MAP       PMT      MICRO  1,,$ --PROCEDURES--$                                            MAP          194     A     
 MAP       LMT      MICRO  1,,$ --STATEMENT LABELS--$                                      MAP          195     A     
 MAP       EPMT     MICRO  1,,$ --ENTRY POINTS--$                                          MAP          196     A     
 MAP       NLMT     MICRO  1,,$ --NAMELISTS--$                                             MAP          197     A     
 MAP       DLMT     MICRO  1,,$ --DO LOOPS--$                                              MAP          198     A     
 MAP       CEMT     MICRO  1,,$ --COMMON+EQUIVALENCE--$                                    MAP          199     A     
 MAP       CEMLT    MICRO  1,,$ --LOCAL EQUIVALENCE--$                                     MAP          200     A     
 MAP       IOMT     MICRO  1,,$ --I/O UNITS--$                                             MAP          201     A     
 MAP                                                                                       MAP          202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1857    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      **        MICROS FOR THE REFERENCE SYMBOL USAGE DICTIONARY.                      MAP          203     A     
 MAP                                                                                       MAP          204     A     
 MAP       VUD1     MICRO  1,,$A=ARGLIST, C=CTRL OF DO, I=DATA INIT,$                      MAP          205     A     
 MAP       VUD2     MICRO  1,,$R=READ, S=STORE, U=I/O UNIT, W=WRITE$                       MAP          206     A     
 MAP       SCUD1    MICRO  1,,$S=SOURCE DEFINITION$                                        MAP          207     A     
 MAP       SCUD2    MICRO  1,,$ $                                                          MAP          208     A     
 MAP       PUD1     MICRO  1,,$D=DEF LINE OF STMT FUNC$                                    MAP          209     A     
 MAP       PUD2     MICRO  1,,$ $                                                          MAP          210          I
          -FC5A188
 MAP       PUD2     MICRO  1,,$A=ACTUAL ARGUMENT$                                          FC5A188        7     A     
 MAP       LUD1     MICRO  1,,$A=ASSIGN STMT, D=DO STMT,$                                  MAP          211     A     
 MAP       LUD2     MICRO  1,,$R=READ, W=WRITE$                                            MAP          212          I
          -FC50514
 MAP       LUD2     MICRO  1,,$R=READ, W=WRITE, L=LABEL$                                   FC50514       17     A     
 MAP       EPUD1    MICRO  1,,$D=DEFINITION$                                               MAP          213          I
          -FC50451
 MAP       EPUD1    MICRO  1,,$D=DEFINITION, R=RETURN$                                     FC50451       23     A     
 MAP       EPUD2    MICRO  1,,$ $                                                          MAP          214     A     
 MAP       NLUD1    MICRO  1,,$D=DEFINITION, R=READ, W=WRITE$                              MAP          215     A     
 MAP       NLUD2    MICRO  1,,$ $                                                          MAP          216     A     
 MAP       DLUD1    MICRO  1,,$ $                                                          MAP          217     A     
 MAP       DLUD2    MICRO  1,,$ $                                                          MAP          218     A     
 MAP       CEUD1    MICRO  1,,$ $                                                          MAP          219     A     
 MAP       CEUD2    MICRO  1,,$ $                                                          MAP          220     A     
 MAP       IOUD1    MICRO  1,,$R=READ, W=WRITE$                                            MAP          221     A     
 MAP       IOUD2    MICRO  1,,$ $                                                          MAP          222     A     
 MAP                EJECT                                                                  MAP          223     A     
 MAP                TITLE  SYMBOL DEFINITIONS                                              MAP          224          I
          -FC5A185
 MAP                TITLE  PARAMETER DEFINITIONS                                           FC5A185       11     A     
 MAP      **        THE FOLLOWING SYMBOLS DEFINE CONSTANTS USED IN THE DECK MAP            MAP          225     A     
 MAP      *         TO CONTROL VARIOUS ASPECTS OF BOTH THE CODE AND THE OUTPUT.            MAP          226     A     
 MAP                                                                                       MAP          227     A     
 MAP       L        EQU    0           MEANS LEFT JUSTIFICATION                            MAP          228     A     
 MAP       MAPCPR   EQU    7           CHARS PER REFERENCE                                 MAP          229     A     
 MAP       MAPDTC   EQU    91          DICTIONARY TAB COLUMN                               MAP          230     A     
 MAP       MAPLC    EQU    132         LAST COLUMN USED BY MAP IF NOT IN PW MODE           MAP          231          I
          -FC50353
 MAP       MAPLC    EQU    126         USED TO DETERMINE IF IN PW SPLIT MODE               FC50353       32     A     
 MAP       MAPLFL   EQU    15          LARGEST FORMATTER LENGTH                            MAP          232     A     
 MAP       MAPMCPR  EQU    7           MINIMUM CHARS PER REFERENCE                         MAP          233     A     
 MAP       MAPMRL   EQU    3           MINIMUM ROW LENGTH                                  MAP          234     A     
 MAP       MAPMRPL  EQU    2           MINIMUM REFERENCES PER LINE                         MAP          235     A     
 MAP       MAPPML   EQU    4           PROCESSOR MESSAGE LENGTH                            MAP          236     A     
 MAP       MAPUDL   EQU    4           USAGE DICTIONARY ENTRY LENGTH (WORDS)               MAP          237     A     
 MAP       R        EQU    1           MEANS RIGHT JUSTIFICATION                           MAP          238     A     
 MAP       STO      SET    -1          INITIAL VALUE OF SEGMENT TABLE OFFSET               MAP          239     A     
 MAP       VMTL     MICCNT    VMT         VARIABLE MAP TITLE LENGTH                        MAP          240     A     
 MAP       SCMTL    MICCNT    SCMT        SYMBOLIC CONSTANTS TITLE LENGTH                  MAP          241     A     
 MAP       PMTL     MICCNT    PMT         PROCEDURE MAP TITLE LENGTH                       MAP          242     A     
 MAP       LMTL     MICCNT    LMT         LABEL MAP TITLE LENGTH                           MAP          243     A     
 MAP       EPMTL    MICCNT    EPMT        ENTRY POINT MAP TITLE LENGTH                     MAP          244     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1858    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       NLMTL    MICCNT    NLMT        NAMELIST MAP TITLE LENGTH                        MAP          245     A     
 MAP       DLMTL    MICCNT    DLMT        DO-LOOP MAP TITLE LENGTH                         MAP          246     A     
 MAP       CEMTL    MICCNT    CEMT        COMMON+EQUIV MAP TITLE LENGTH                    MAP          247     A     
 MAP       CEMLTL   MICCNT    CEMLT       COMMON+EQUIV MAP LOCAL TITLE LENGTH              MAP          248     A     
 MAP       IOMTL    MICCNT    IOMT        I/O MAP TITLE LENGTH                             MAP          249     A     
 MAP       TEMP1    MAX  VMTL,SCMTL,PMTL,LMTL,EPMTL,NLMTL,DLMTL,CEMTL,IOMTL,CEMLTL         MAP          250     A     
 MAP       TEMP2    EQU    TEMP1+9                                                         MAP          251     A     
 MAP       MAPSTL   EQU    TEMP2/10    ROUND UP TO NEXT HIGHEST WORD                       MAP          252     A     
 MAP                                                                                       MAP          253     A     
 MAP                                                                                       MAP          254     A     
 MAP      **        THE FORMAT OF T.SCR AS USED BY MAP IS AS FOLLOWS -                     MAP          255     A     
 MAP                                                                                       MAP          256     A     
 MAP                DESCRIBE  MT.                                                          MAP          257     A     
 MAP       SYM      DEFINE WA.SYML     DPC OF A SYMBOL (-0L- FORMAT)                       MAP          258     A     
 MAP       RABM     DEQU   SYM,24      RA OF A COMMON BLOCK MEMBER                         MAP          259          I
          -FC5A185
 MAP       WAI      DEFINE 18          SYMTAB *WA* INDEX                                   MAP          260          I
          -FC5A185
 MAP                REDEF  SYM                                                             FC5A185       12     A     
 MAP       NMG      DEFINE 18          NUMBER OF MEMBERS IN A GROUP OF ITEMS               FC5A185       13     A     
 MAP       RA       DEFINE 24          RA OF A COMMON+EQUIVALENCE MAP ITEM                 FC5A185       14     A     
 MAP       WAI      DEFINE 18          SYMTAB *WA* INDEX                                   FC5A185       15     A     
 MAP                TITLE  TABLES                                                          MAP          261     A     
 MAP                EJECT                                                                  MAP          262     A     
 MAP      **        THE FOLLOWING SECTION OF CODE DEFINES ALL TABLES NEEDED                MAP          263     A     
 MAP      *         BY THE CONTROLLER.                                                     MAP          264     A     
 MAP                                                                                       MAP          265     A     
 MAP      **        FORMATTER TABLE FOR VARIABLES.                                         MAP          266     A     
 MAP                                                                                       MAP          267     A     
 MAP       TVAR     DTE    0,VARA                                                          MAP          268     A     
 MAP                DTE    0,VARB                                                          MAP          269     A     
 MAP                DTE    0,VARC                                                          MAP          270     A     
 MAP                DTE    0,VARB                                                          MAP          271     A     
 MAP                DTE    0,VARC                                                          MAP          272     A     
 MAP                DTE    0,VARB                                                          MAP          273     A     
 MAP                DTE    0,VARC                                                          MAP          274     A     
 MAP                                                                                       MAP          275     A     
 MAP      **        FORMATTERS FOR VARIABLES.                                              MAP          276     A     
 MAP                                                                                       MAP          277     A     
 MAP       VARA     DTE    3,XB                                                            MAP          278     A     
 MAP                DTE    7,NAM                                                           MAP          279     A     
 MAP                DTE    3,XA                                                            MAP          280     A     
 MAP                DTE    11,REF                                                          MAP          281     A     
 MAP                DTE    0,0                                                             MAP          282     A     
 MAP                                                                                       MAP          283     A     
 MAP       VARB     DTE    3,XB                                                            MAP          284     A     
 MAP                DTE    7,NAM                                                           MAP          285     A     
 MAP                DTE    7,ADR                                                           MAP          286          I
          -FC5A416
 MAP                DTE    8,ADR                                                           FC5A416        5     A     
 MAP                DTE    2,XA                                                            MAP          287     A     
 MAP                DTE    9,BLK                                                           MAP          288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1859    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DTE    1,XA                                                            MAP          289     A     
 MAP                DTE    16,PRP                                                          MAP          290     A     
 MAP                DTE    1,XA                                                            MAP          291     A     
 MAP                DTE    10,TYP                                                          MAP          292     A     
 MAP                DTE    7,SZE                                                           MAP          293     A     
 MAP                DTE    3,XC                                                            MAP          294     A     
 MAP                DTE   0,0                                                              MAP          295     A     
 MAP                                                                                       MAP          296     A     
 MAP       VARC     DTE    3,XB                                                            MAP          297     A     
 MAP                DTE    7,NAM                                                           MAP          298     A     
 MAP                DTE    7,ADR                                                           MAP          299          I
          -FC5A416
 MAP                DTE    8,ADR                                                           FC5A416        6     A     
 MAP                DTE    2,XA                                                            MAP          300     A     
 MAP                DTE    9,BLK                                                           MAP          301     A     
 MAP                DTE    1,XA                                                            MAP          302     A     
 MAP                DTE    16,PRP                                                          MAP          303     A     
 MAP                DTE    1,XA                                                            MAP          304     A     
 MAP                DTE    10,TYP                                                          MAP          305     A     
 MAP                DTE    7,SZE                                                           MAP          306     A     
 MAP                DTE    3,XA                                                            MAP          307     A     
 MAP                DTE    11,REF                                                          MAP          308     A     
 MAP                DTE    0,0                                                             MAP          309     A     
 MAP                                                                                       MAP          310     A     
 MAP      **        FORMATTER TABLE FOR SYMBOLIC CONSTANTS.                                MAP          311     A     
 MAP                                                                                       MAP          312     A     
 MAP       TSC      DTE    0,SCA                                                           MAP          313     A     
 MAP                DTE    0,SCB                                                           MAP          314     A     
 MAP                DTE    0,SCC                                                           MAP          315     A     
 MAP                DTE    0,SCB                                                           MAP          316     A     
 MAP                DTE    0,SCC                                                           MAP          317     A     
 MAP                DTE    0,SCB                                                           MAP          318     A     
 MAP                DTE    0,SCC                                                           MAP          319     A     
 MAP                                                                                       MAP          320     A     
 MAP      **        FORMATTERS FOR SYMBOLIC CONSTANTS.                                     MAP          321     A     
 MAP                                                                                       MAP          322     A     
 MAP       SCA      DTE    3,XB                                                            MAP          323     A     
 MAP                DTE    7,NAM                                                           MAP          324     A     
 MAP                DTE    3,XA                                                            MAP          325     A     
 MAP                DTE    11,REF                                                          MAP          326     A     
 MAP                DTE    0,0                                                             MAP          327     A     
 MAP                                                                                       MAP          328     A     
 MAP       SCB      DTE    3,XB                                                            MAP          329     A     
 MAP                DTE    7,NAM                                                           MAP          330     A     
 MAP                DTE    1,XA                                                            MAP          331     A     
 MAP                DTE    10,TYP                                                          MAP          332     A     
 MAP                DTE    23,VAL                                                          MAP          333     A     
 MAP                DTE    4,XC                                                            MAP          334     A     
 MAP                DTE    0,0                                                             MAP          335     A     
 MAP                                                                                       MAP          336     A     
 MAP       SCC      DTE    3,XB                                                            MAP          337     A     
 MAP                DTE    7,NAM                                                           MAP          338     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1860    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DTE    1,XA                                                            MAP          339     A     
 MAP                DTE    10,TYP                                                          MAP          340     A     
 MAP                DTE    23,VAL                                                          MAP          341     A     
 MAP                DTE    3,XA                                                            MAP          342     A     
 MAP                DTE    11,REF                                                          MAP          343     A     
 MAP                DTE    0,0                                                             MAP          344     A     
 MAP                                                                                       MAP          345     A     
 MAP      **        FORMATTER TABLE FOR PROCEDURES.                                        MAP          346     A     
 MAP                                                                                       MAP          347     A     
 MAP       TPRO     DTE    0,PROA                                                          MAP          348     A     
 MAP                DTE    0,PROB                                                          MAP          349     A     
 MAP                DTE    0,PROC                                                          MAP          350     A     
 MAP                DTE    0,PROB                                                          MAP          351     A     
 MAP                DTE    0,PROC                                                          MAP          352     A     
 MAP                DTE    0,PROB                                                          MAP          353     A     
 MAP                DTE    0,PROC                                                          MAP          354     A     
 MAP                                                                                       MAP          355     A     
 MAP      **        FORMATTERS FOR PROCEDURES.                                             MAP          356     A     
 MAP                                                                                       MAP          357     A     
 MAP       PROA     DTE    3,XB                                                            MAP          358     A     
 MAP                DTE    7,NAM                                                           MAP          359     A     
 MAP                DTE    3,XA                                                            MAP          360     A     
 MAP                DTE    11,REF                                                          MAP          361     A     
 MAP                DTE    0,0                                                             MAP          362     A     
 MAP                                                                                       MAP          363     A     
 MAP       PROB     DTE    3,XB                                                            MAP          364     A     
 MAP                DTE    7,NAM                                                           MAP          365     A     
 MAP                DTE    3,XA                                                            MAP          366     A     
 MAP                DTE    10,TYP                                                          MAP          367     A     
 MAP                DTE    2,XA                                                            MAP          368     A     
 MAP                DTE    7,ARG                                                           MAP          369     A     
 MAP                DTE    3,XA                                                            MAP          370     A     
 MAP                DTE    10,CLS                                                          MAP          371     A     
 MAP                DTE    4,XC                                                            MAP          372     A     
 MAP                DTE    0,0                                                             MAP          373     A     
 MAP                                                                                       MAP          374     A     
 MAP       PROC     DTE    3,XB                                                            MAP          375     A     
 MAP                DTE    7,NAM                                                           MAP          376     A     
 MAP                DTE    1,XA                                                            MAP          377     A     
 MAP                DTE    10,TYP                                                          MAP          378     A     
 MAP                DTE    7,ARG                                                           MAP          379     A     
 MAP                DTE    1,XA                                                            MAP          380     A     
 MAP                DTE    10,CLS                                                          MAP          381     A     
 MAP                DTE    11,REF                                                          MAP          382     A     
 MAP                DTE    0,0                                                             MAP          383     A     
 MAP                                                                                       MAP          384     A     
 MAP      **        FORMATTER TABLE FOR LABELS.                                            MAP          385     A     
 MAP                                                                                       MAP          386     A     
 MAP       TLAB     DTE    0,LABA                                                          MAP          387     A     
 MAP                DTE    0,LABB                                                          MAP          388     A     
 MAP                DTE    0,LABC                                                          MAP          389     A     
 MAP                DTE    0,LABB                                                          MAP          390     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1861    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DTE    0,LABC                                                          MAP          391     A     
 MAP                DTE    0,LABB                                                          MAP          392     A     
 MAP                DTE    0,LABC                                                          MAP          393     A     
 MAP                                                                                       MAP          394     A     
 MAP      **        FORMATTERS FOR LABELS.                                                 MAP          395     A     
 MAP                                                                                       MAP          396     A     
 MAP       LABA     DTE    3,XB                                                            MAP          397     A     
 MAP                DTE    5,LBL                                                           MAP          398     A     
 MAP                DTE    3,XA                                                            MAP          399     A     
 MAP                DTE    7,LDEF                                                          MAP          400     A     
 MAP                DTE    2,XA                                                            MAP          401     A     
 MAP                DTE    11,REF                                                          MAP          402     A     
 MAP                DTE    0,0                                                             MAP          403     A     
 MAP                                                                                       MAP          404     A     
 MAP       LABB     DTE    3,XB                                                            MAP          405     A     
 MAP                DTE    5,LBL                                                           MAP          406     A     
 MAP                DTE    1,XA                                                            MAP          407     A     
 MAP                DTE    9,LADR                                                          MAP          408     A     
 MAP                DTE    3,XA                                                            MAP          409     A     
 MAP                DTE    10,PRP                                                          MAP          410     A     
 MAP                DTE    7,LDEF                                                          MAP          411     A     
 MAP                DTE    5,XC                                                            MAP          412     A     
 MAP                DTE    0,0                                                             MAP          413     A     
 MAP                                                                                       MAP          414     A     
 MAP       LABC     DTE    3,XB                                                            MAP          415     A     
 MAP                DTE    5,LBL                                                           MAP          416     A     
 MAP                DTE    2,XA                                                            MAP          417     A     
 MAP                DTE    9,LADR                                                          MAP          418     A     
 MAP                DTE    1,XA                                                            MAP          419     A     
 MAP                DTE    10,PRP                                                          MAP          420     A     
 MAP                DTE    1,XA                                                            MAP          421     A     
 MAP                DTE    7,LDEF                                                          MAP          422     A     
 MAP                DTE    2,XA                                                            MAP          423     A     
 MAP                DTE    11,REF                                                          MAP          424     A     
 MAP                DTE    0,0                                                             MAP          425     A     
 MAP                                                                                       MAP          426     A     
 MAP      **        FORMATTER TABLE FOR ENTRY POINTS.                                      MAP          427     A     
 MAP                                                                                       MAP          428     A     
 MAP       TENT     DTE    0,ENTA                                                          MAP          429     A     
 MAP                DTE    0,ENTB                                                          MAP          430     A     
 MAP                DTE    0,ENTC                                                          MAP          431     A     
 MAP                DTE    0,ENTB                                                          MAP          432     A     
 MAP                DTE    0,ENTC                                                          MAP          433     A     
 MAP                DTE    0,ENTB                                                          MAP          434     A     
 MAP                DTE    0,ENTC                                                          MAP          435     A     
 MAP                                                                                       MAP          436     A     
 MAP      **        FORMATTERS FOR ENTRY POINTS.                                           MAP          437     A     
 MAP                                                                                       MAP          438     A     
 MAP       ENTA     EQU    VARA        IDENTICAL TO A VARIABLE MAP FORMATTER               MAP          439     A     
 MAP                                                                                       MAP          440     A     
 MAP       ENTB     DTE    3,XB                                                            MAP          441     A     
 MAP                DTE    7,NAM                                                           MAP          442     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1862    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DTE    7,ADR                                                           MAP          443     A     
 MAP                DTE    2,XA                                                            MAP          444     A     
 MAP                DTE    7,EPA                                                           MAP          445     A     
 MAP                DTE    4,XC                                                            MAP          446     A     
 MAP                DTE    0,0                                                             MAP          447     A     
 MAP                                                                                       MAP          448     A     
 MAP       ENTC     DTE    3,XB                                                            MAP          449     A     
 MAP                DTE    7,NAM                                                           MAP          450     A     
 MAP                DTE    7,ADR                                                           MAP          451     A     
 MAP                DTE    2,XA                                                            MAP          452     A     
 MAP                DTE    7,EPA                                                           MAP          453     A     
 MAP                DTE    3,XA                                                            MAP          454     A     
 MAP                DTE    11,REF                                                          MAP          455     A     
 MAP                DTE    0,0                                                             MAP          456     A     
 MAP                                                                                       MAP          457     A     
 MAP      **        FORMATTER TABLE FOR NAMELISTS.                                         MAP          458     A     
 MAP                                                                                       MAP          459     A     
 MAP       TNAM     DTE    0,NAMA                                                          MAP          460     A     
 MAP                DTE    0,NAMB                                                          MAP          461     A     
 MAP                DTE    0,NAMC                                                          MAP          462     A     
 MAP                DTE    0,NAMB                                                          MAP          463     A     
 MAP                DTE    0,NAMC                                                          MAP          464     A     
 MAP                DTE    0,NAMB                                                          MAP          465     A     
 MAP                DTE    0,NAMC                                                          MAP          466     A     
 MAP                                                                                       MAP          467     A     
 MAP      **        FORMATTERS FOR NAMELISTS.                                              MAP          468     A     
 MAP                                                                                       MAP          469     A     
 MAP       NAMA     EQU    VARA        IDENTICAL TO A VARIABLE MAP FORMATTER               MAP          470     A     
 MAP                                                                                       MAP          471     A     
 MAP       NAMB     DTE    3,XB                                                            MAP          472     A     
 MAP                DTE    7,NAM                                                           MAP          473     A     
 MAP                DTE    7,ADR                                                           MAP          474     A     
 MAP                DTE    4,XC                                                            MAP          475     A     
 MAP                DTE    0,0                                                             MAP          476     A     
 MAP                                                                                       MAP          477     A     
 MAP       NAMC     DTE    3,XB                                                            MAP          478     A     
 MAP                DTE    7,NAM                                                           MAP          479     A     
 MAP                DTE    7,ADR                                                           MAP          480     A     
 MAP                DTE    3,XA                                                            MAP          481     A     
 MAP                DTE    11,REF                                                          MAP          482     A     
 MAP                DTE    0,0                                                             MAP          483     A     
 MAP                                                                                       MAP          484     A     
 MAP      **        FORMATTER TABLE FOR DO-LOOPS.                                          MAP          485     A     
 MAP                                                                                       MAP          486     A     
 MAP       TDOL     DTE    0,0                                                             MAP          487     A     
 MAP                DTE    0,0                                                             MAP          488     A     
 MAP                DTE    0,0                                                             MAP          489     A     
 MAP                DTE    0,DOLA                                                          MAP          490     A     
 MAP                DTE    0,DOLA                                                          MAP          491     A     
 MAP                DTE    0,DOLA                                                          MAP          492     A     
 MAP                DTE    0,DOLA                                                          MAP          493     A     
 MAP                                                                                       MAP          494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1863    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      **        FORMATTERS FOR DO-LOOPS.                                               MAP          495     A     
 MAP                                                                                       MAP          496     A     
 MAP       DOLA     DTE    3,XB                                                            MAP          497     A     
 MAP                DTE    5,DOLAB                                                         MAP          498     A     
 MAP                DTE    2,XA                                                            MAP          499     A     
 MAP                DTE    9,LADR                                                          MAP          500     A     
 MAP                DTE    2,XA                                                            MAP          501     A     
 MAP                DTE    22,PRP                                                          MAP          502     A     
 MAP                DTE    2,XA                                                            MAP          503     A     
 MAP                DTE    7,DOIN                                                          MAP          504     A     
 MAP                DTE    5,FROM                                                          MAP          505     A     
 MAP                DTE    2,XA                                                            MAP          506     A     
 MAP                DTE    5,TO                                                            MAP          507     A     
 MAP                DTE    0,0                                                             MAP          508     A     
 MAP                                                                                       MAP          509     A     
 MAP      **        FORMATTER TABLE FOR I/O UNITS.                                         MAP          510     A     
 MAP                                                                                       MAP          511     A     
 MAP       TIO      DTE    0,IOA                                                           MAP          512     A     
 MAP                DTE    0,IOB                                                           MAP          513     A     
 MAP                DTE    0,IOA                                                           MAP          514     A     
 MAP                DTE    0,IOB                                                           MAP          515     A     
 MAP                DTE    0,IOA                                                           MAP          516     A     
 MAP                DTE    0,IOB                                                           MAP          517     A     
 MAP                DTE    0,IOA                                                           MAP          518     A     
 MAP                                                                                       MAP          519     A     
 MAP      **        FORMATTERS FOR I/O UNITS.                                              MAP          520     A     
 MAP                                                                                       MAP          521     A     
 MAP       IOA      DTE    3,XB                                                            MAP          522     A     
 MAP                DTE    7,NAM                                                           MAP          523     A     
 MAP                DTE    1,XB                                                            MAP          524     A     
 MAP                DTE    23,PRP                                                          MAP          525     A     
 MAP                DTE    11,REF                                                          MAP          526     A     
 MAP                DTE    0,0                                                             MAP          527     A     
 MAP                                                                                       MAP          528     A     
 MAP       IOB      DTE    3,XB                                                            MAP          529     A     
 MAP                DTE    7,NAM                                                           MAP          530     A     
 MAP                DTE    1,XB                                                            MAP          531     A     
 MAP                DTE    23,PRP                                                          MAP          532     A     
 MAP                DTE    3,XC                                                            MAP          533     A     
 MAP                DTE    0,0                                                             MAP          534     A     
 MAP                SPACE  4,10                                                            MAP          535     A     
 MAP      **        TABLE OF  INITIALIZING ROUTINES. ADDRESSES IN THIS TABLE               MAP          536          I
          -FC5A185
 MAP      **        MAP SEGMENT TABLE - ADDRESSES IN THIS TABLE                            FC5A185       16     A     
 MAP      *         ARE THOSE OF ROUTINES WHICH GIVE VALUES TO PARAMETERS NEEDED           MAP          537     A     
 MAP      *         BY MOC TO OUTPUT A MAP. ONLY THOSE MAPS WITH UNIQUE PARAMETER          MAP          538     A     
 MAP      *         REQUIREMENTS HAVE UNIQUE INITIALIZING ROUTINES.                        MAP          539     A     
 MAP      *         SYMBOLS CORRESPONDING TO NON - EXISTENT ROUTINES OR TABLES             MAP          540     A     
 MAP      *         WILL BE EQU'D TO ZERO.                                                 MAP          541     A     
 MAP                                                                                       MAP          542     A     
 MAP       TCOM     EQU    0                                                               MAP          543     A     
 MAP       MST      BSS    0                                                               MAP          544     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1864    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP          545     A     
 MAP                LOC    0                                                               MAP          546     A     
 MAP                DMSTE  TVAR,IRA    VAR MAP FORMATTER, INITIAL ROUTINE                  MAP          547     A     
 MAP                DMSTE  TSC,IRA     SYMBOLIC CONSTANTS MAP                              MAP          548     A     
 MAP                DMSTE  TPRO,IRA    PROCEDURE MAP                                       MAP          549     A     
 MAP                DMSTE  TLAB,IRA    LABEL MAP                                           MAP          550     A     
 MAP                DMSTE  TENT,IRA    ENTRY POINT MAP                                     MAP          551     A     
 MAP                DMSTE  TNAM,IRA    NAMELIST MAP                                        MAP          552     A     
 MAP                DMSTE  TDOL,IRA    DO-LOOP MAP                                         MAP          553     A     
 MAP                DMSTE  TCOM,IRB    COMMON+EQUIVALENCE MAP                              MAP          554     A     
 MAP                DMSTE  TIO,IRA     I/O UNITS MAP                                       MAP          555     A     
 MAP                CON      0           MARKS END OF TABLE                                MAP          556     A     
 MAP                LOC    *O                                                              MAP          557     A     
 MAP                TITLE  MESSAGES AND BUFFERS                                            MAP          558     A     
 MAP                EJECT                                                                  MAP          559     A     
 MAP      **        MESSAGES AND BUFFERS OF MAJOR IMPORTANCE ARE LOCATED HERE.             MAP          560     A     
 MAP                                                                                       MAP          561     A     
 MAP                                                                                       MAP          562     A     
 MAP      **        TABLE OF LIST OPTIONS.                                                 MAP          563     A     
 MAP                                                                                       MAP          564     A     
 MAP       MAPLOT   DIS    1,(LO=R)                                                        MAP          565     A     
 MAP                DIS    1,(LO=A)                                                        MAP          566     A     
 MAP                DIS    1,(LO=A/R)                                                      MAP          567     A     
 MAP                DIS    1,(LO=M)                                                        MAP          568     A     
 MAP                DIS    1,(LO=M/R)                                                      MAP          569     A     
 MAP                DIS    1,(LO=M/A)                                                      MAP          570     A     
 MAP                DIS    1,(LO=M/A/R)                                                    MAP          571     A     
 MAP                                                                                       MAP          572     A     
 MAP                                                                                       MAP          573     A     
 MAP      **        SEGMENT TITLES.                                                        MAP          574     A     
 MAP                                                                                       MAP          575     A     
 MAP                                                                                       MAP          576     A     
 MAP       STO      SET    -1                                                              MAP          577     A     
 MAP                                                                                       MAP          578     A     
 MAP       MAPST    DDTE   TVARP,(CON    VMTL),(DIS    MAPSTL,"VMT")                       MAP          579     A     
 MAP                DDTE   TSCP,(CON    SCMTL),(DIS    MAPSTL,"SCMT")                      MAP          580     A     
 MAP                DDTE   TPROP,(CON    PMTL),(DIS    MAPSTL,"PMT")                       MAP          581     A     
 MAP                DDTE   TLABP,(CON    LMTL),(DIS    MAPSTL,"LMT")                       MAP          582     A     
 MAP                DDTE   TENTP,(CON    EPMTL),(DIS    MAPSTL,"EPMT")                     MAP          583     A     
 MAP                DDTE   TNAMP,(CON    NLMTL),(DIS    MAPSTL,"NLMT")                     MAP          584     A     
 MAP                DDTE   TDOLP,(CON    DLMTL),(DIS    MAPSTL,"DLMT")                     MAP          585     A     
 MAP                DDTE   TCOMP,(CON    CEMTL),(DIS    MAPSTL,"CEMT")                     MAP          586     A     
 MAP                DDTE   TIOP,(CON    IOMTL),(DIS    MAPSTL,"IOMT")                      MAP          587     A     
 MAP                                                                                       MAP          588     A     
 MAP                                                                                       MAP          589     A     
 MAP      **        REFERENCE SYMBOL USAGE DICTIONARY.                                     MAP          590     A     
 MAP                                                                                       MAP          591     A     
 MAP                                                                                       MAP          592     A     
 MAP       STO      SET    -1                                                              MAP          593     A     
 MAP                                                                                       MAP          594     A     
 MAP       MAPUD    DDTE   TVARP,(DIS    MAPUDL,"VUD1"),(DIS    MAPUDL,"VUD2")             MAP          595     A     
 MAP                DDTE   TSCP,(DIS    MAPUDL,"SCUD1"),(DIS    MAPUDL,"SCUD2")            MAP          596     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1865    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DDTE   TPROP,(DIS    MAPUDL,"PUD1"),(DIS    MAPUDL,"PUD2")             MAP          597     A     
 MAP                DDTE   TLABP,(DIS    MAPUDL,"LUD1"),(DIS    MAPUDL,"LUD2")             MAP          598     A     
 MAP                DDTE   TENTP,(DIS    MAPUDL,"EPUD1"),(DIS    MAPUDL,"EPUD2")           MAP          599     A     
 MAP                DDTE   TNAMP,(DIS    MAPUDL,"NLUD1"),(DIS    MAPUDL,"NLUD2")           MAP          600     A     
 MAP       MAP.XS   DDTE   TDOLP,(DIS    MAPUDL,"DLUD1"),(DIS    MAPUDL,"DLUD2")           MAP          601     A     
 MAP                DDTE   TCOMP,(DIS    MAPUDL,"CEUD1"),(DIS    MAPUDL,"CEUD2")           MAP          602     A     
 MAP                DDTE   TIOP,(DIS    MAPUDL,"IOUD1"),(DIS    MAPUDL,"IOUD2")            MAP          603     A     
 MAP                                                                                       MAP          604     A     
 MAP                                                                                       MAP          605     A     
 MAP      **        DPC BUFFER FOR USE OF XOUT MACRO.                                      MAP          606     A     
 MAP                                                                                       MAP          607     A     
 MAP                                                                                       MAP          608     A     
 MAP       MAP.XXS  DIS    3,XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX                                MAP          609     A     
 MAP                                                                                       MAP          610     A     
 MAP                                                                                       MAP          611     A     
 MAP      **        TO AVOID PROBLEMS CAUSED WHEN *PEM* USES THE BUFFER                    MAP          612     A     
 MAP      *         *LINEBUF* IN TEST MODE, WE USE THE FOLLOWING **KLUDGE** -              MAP          613     A     
 MAP                                                                                       MAP          614     A     
 MAP                                                                                       MAP          615     A     
 MAP       .T       IFEQ   TEST,ON                                                         MAP          616     A     
 MAP                BSS    1                                                               MAP          617     A     
 MAP       MAPBUFF  BSS    14                                                              MAP          618     A     
 MAP       .T       ELSE                                                                   MAP          619     A     
 MAP       MAPBUFF  EQU    LINEBUF                                                         MAP          620     A     
 MAP       .T       ENDIF                                                                  MAP          621     A     
 MAP       MAP      EJECT                                                                  MAP          622     A     
 MAP                TITLE  MAIN ROUTINES                                                   MAP          623     A     
 MAP      **        MAP -  REFERENCE MAP PRODUCTION.                                       MAP          624     A     
 MAP      *                                                                                MAP          625     A     
 MAP      *         M.A. PETERS        SVLOPS  1978.                                       MAP          626     A     
 MAP      *                                                                                MAP          627     A     
 MAP      *         ENTRY  NONE.                                                           MAP          628     A     
 MAP      *                                                                                MAP          629     A     
 MAP      *         EXIT   NONE.                                                           MAP          630     A     
 MAP      *                                                                                MAP          631     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP          632     A     
 MAP      *                                                                                MAP          633     A     
 MAP      *         CALLS  PRT,MOC,SHRINK,PLINE,EFE,ALLOC.                                 MAP          634     A     
 MAP                                                                                       MAP          635     A     
 MAP                                                                                       MAP          636     A     
 MAP       MAP      SUBR   =           ENTRY/EXIT...                                       MAP          637     A     
 MAP                SA1    FAILSFT                                                         MAP          638     A     
 MAP                NZ     X1,EXIT.    NO MAP IF TABLES CRUMPED                            MAP          639     A     
 MAP                =X6    PASS=MAP                                                        MAP          640     A     
 MAP                SA6    PASS                                                            MAP          641     A     
 MAP                SA2    CP.PS                                                           MAP          642          I
          -FC5A107
 MAP                SA2    CO.PS                                                           FC5A107       19     A     
 MAP                                                                                       MAP          643     A     
 MAP      **        IF BL PARAMETER SELECTED, PAGE EJECT.                                  MAP          644     A     
 MAP                                                                                       MAP          645     A     
 MAP                SA3    CP.BLF                                                          MAP          646     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1866    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                ZR     X3,MAP30    IF BL NOT SELECTED                                  MAP          647     A     
 MAP                BX6    X2                                                              MAP          648     A     
 MAP                SA6    LCNT                                                            MAP          649     A     
 MAP                                                                                       MAP          650     A     
 MAP       MAP30    SA1    WO.LOM                                                          MAP          651     A     
 MAP                LX1    3                                                               MAP          652     A     
 MAP                SA2    WO.LOA                                                          MAP          653     A     
 MAP                LX2    2                                                               MAP          654     A     
 MAP                SA3    WO.LOR                                                          MAP          655     A     
 MAP                LX3    1                                                               MAP          656     A     
 MAP                BX6    X1+X2                                                           MAP          657     A     
 MAP                BX6    X6+X3                                                           MAP          658     A     
 MAP                SA6    MAP.NO       MAP.NO HAS A VALUE BETWEEN 1 AND 7 (INCL)          MAP          659     A     
 MAP                                                                                       MAP          660     A     
 MAP      **        SELECT PROPER LO HEADING AND PUT IT INTO OTH.LO .                      MAP          661     A     
 MAP                                                                                       MAP          662     A     
 MAP                =X5    X6-1        OFFSET INTO MAPLOT TABLE                            MAP          663     A     
 MAP                SA1    X5+MAPLOT                                                       MAP          664     A     
 MAP                BX6    X1                                                              MAP          665     A     
 MAP                SA6    OTH.LO                                                          MAP          666     A     
 MAP                RJ     PRT         PREPARE REFERENCE TABLE                             MAP          667     A     
 MAP                RJ     EFE         ENTER FAKE ENTRY POINTS                             MAP          668     A     
 MAP                RJ     MOC         GO TO CONTROLLER                                    MAP          669     A     
 MAP                SA2    MAPNEW                                                          MAP          670     A     
 MAP                BX2    -X2                                                             MAP          671     A     
 MAP                ALLOC  T.SYM,X2                                                        MAP          672          I
          -FC5A185
 MAP                ALLOC  T.SYM,X2    ELIMINATE FAKE ENTRY POINTS                         FC5A185       17     A     
 MAP                =X1    1                                                               MAP          673     A     
 MAP                SX6    HDRBL                                                           MAP          674     A     
 MAP                LX1    30                                                              MAP          675     A     
 MAP                BX6    X6+X1                                                           MAP          676     A     
 MAP                SA6    O.STITL     SUPRESS OLD HEADING                                 MAP          677     A     
 MAP                EQ     EXIT.       RETURN TO REC                                       MAP          678     A     
 MAP                                                                                       MAP          679     A     
 MAP       MAP.NO   BSS    1           STORAGE FOR MAP NUMBER CALC AT THE START            MAP          680     A     
 MAP       MAPNEW   BSS    1           NUMBER OF WORDS ADDED TO T.SYM                      MAP          681     A     
 MAP       MOC      EJECT                                                                  MAP          682     A     
 MAP      **        MOC -  MAP OUTPUT CONTROLLER.                                          MAP          683     A     
 MAP      *                                                                                MAP          684     A     
 MAP      *         THIS ROUTINE OVERSEES THE OUTPUT OF EACH MAP SEGMENT.                  MAP          685     A     
 MAP      *         THE MAIN CONTROLLER LOOP IS DIVIDED INTO 3 SECTIONS:                   MAP          686     A     
 MAP      *                                                                                MAP          687     A     
 MAP      *         1)  INITIALIZATION FOR THE CURRENT MAP SEGMENT.                        MAP          688     A     
 MAP      *         2)  OUTPUT OF TITLE AND HEADING FOR CURRENT MAP SEGMENT .              MAP          689     A     
 MAP      *         3)  OUTPUT OF THE  CURRENT MAP SEGMENT.                                MAP          690     A     
 MAP      *                                                                                MAP          691     A     
 MAP      *         THE HEART OF THE CONTROLLER IS A 10 WORD TABLE WHICH                   MAP          692     A     
 MAP      *         HAS ONE ENTRY FOR EACH MAP TO BE OUTPUT. EACH TABLE                    MAP          693     A     
 MAP      *         ENTRY CONTAINS TWO ADDRESSES. IN THE LOWER 30 BITS                     MAP          694     A     
 MAP      *         IS THE ADDRESS OF A ROUTINE WHICH WILL GIVE VALUES TO                  MAP          695     A     
 MAP      *         PARAMETERS THAT ENABLE THE CONTROLLER TO OUTPUT THE                    MAP          696     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1867    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         CURRENT MAP. IN THE UPPER 30 BITS IS THE ADDRESS OF A                  MAP          697     A     
 MAP      *         TABLE ACCESSED BY THE ABOVE ROUTINE.                                   MAP          698     A     
 MAP      *                                                                                MAP          699     A     
 MAP      *         THE FOLLOWING REGISTER-POINTER ASSOCIATIONS HOLD:                      MAP          700     A     
 MAP      *                                                                                MAP          701     A     
 MAP      *         GLOBALLY  - X5 CONTAINS CURRENT OFFSET INTO THE MST TABLE.             MAP          702     A     
 MAP      *                                                                                MAP          703     A     
 MAP      *         SECTION 2 - X2 CONTAINS CURRENT *TRIP COUNT*.                          MAP          704     A     
 MAP      *                     X3 CONTAINS CURRENT FORMATTER OFFSET.                      MAP          705     A     
 MAP      *                     B5 CONTAINS CURRENT FORMATTER ADDRESS.                     MAP          706     A     
 MAP      *                                                                                MAP          707     A     
 MAP      *         SECTION 3 - ALL SECTION 2 ASSOCIATIONS.                                MAP          708     A     
 MAP      *                     X4 CONTAINS THE PRINT FLAG.                                MAP          709          I
          -FC5A185
 MAP      *                                                                                MAP          710     A     
 MAP      *         ENTRY  NONE.                                                           MAP          711     A     
 MAP      *                                                                                MAP          712     A     
 MAP      *         EXIT   REFERENCE MAP OUTPUT IS COMPLETE.                               MAP          713     A     
 MAP      *                                                                                MAP          714     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP          715     A     
 MAP      *                                                                                MAP          716     A     
 MAP      *         CALLS  RNI,PLINE,SETMEM,OTH.                                           MAP          717     A     
 MAP                                                                                       MAP          718     A     
 MAP                                                                                       MAP          719     A     
 MAP                                                                                       MAP          720     A     
 MAP       MOC      SUBR               ENTRY/EXIT                                          MAP          721     A     
 MAP                                                                                       MAP          722     A     
 MAP      **        MAKE SURE THAT BUFFER DOESNT HAVE GARBAGE IN IT .                      MAP          723     A     
 MAP                                                                                       MAP          724     A     
 MAP                SETMEM MAPBUFF-1,15                                                    MAP          725     A     
 MAP                                                                                       MAP          726     A     
 MAP      **        INITIALIZATION FOR CURRENT MAP.                                        MAP          727     A     
 MAP                                                                                       MAP          728     A     
 MAP                =X5    -1                                                              MAP          729     A     
 MAP                                                                                       FC50326       37     A     
 MAP       MOC10    =X5    X5+1                                                            MAP          730     A     
 MAP                SA1    X5+MST      X1 = 30/FORMATTER TABLE,30/INITIAL ROUTINE          MAP          731     A     
 MAP                ZR     X1,EXIT.    IF ALL DONE                                         MAP          732     A     
 MAP                SB5    X1                                                              MAP          733     A     
 MAP                SAVR   (X5),MOCSAV                                                     MAP          734     A     
 MAP                JP     B5          JUMP TO INITIALIZER                                 MAP          735     A     
 MAP                                                                                       MAP          736     A     
 MAP      *         INITIALIZER RETURNS HERE (B5= ADDRS OF PROPER FORMATTER).              MAP          737     A     
 MAP                                                                                       MAP          738     A     
 MAP       MOC.RA   RESR   (X5),MOCSAV                                                     MAP          739     A     
 MAP                ZR     B5,MOC10    IF NOTHING TO OUTPUT                                MAP          740     A     
 MAP                                                                                       MAP          741     A     
 MAP      *        OUTPUT THE TITLE AND HEADING FOR CURRENT MAP.                           MAP          742     A     
 MAP                                                                                       MAP          743     A     
 MAP                SA2    MOCTC       TRIP COUNT                                          MAP          744          I
          -FC5A185
 MAP                MX3    0                                                               MAP          745          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1868    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP       MOC30    SA4    X3+B5       X4 = 30/FIELD WIDTH,30/PROCESSOR ADRS               MAP          746          I
          -FC5A185
 MAP                NZ     X4,MOC40    IF NOT AT END OF FORMATTER                          MAP          747          I
          -FC5A185
 MAP                MX3    0           RESET FORMATTER OFFSET                              MAP          748          I
          -FC5A185
 MAP                =X2    X2-1        DECR TRIP COUNT                                     MAP          749          I
          -FC5A185
 MAP                ZR     X2,MOC50    IF HEADING IS DONE                                  MAP          750          I
          -FC5A185
 MAP                SA4    B5          IF NOT, FETCH 1ST FORMATTER WORD                    MAP          751          I
          -FC5A185
 MAP                                                                                       MAP          752          I
          -FC5A185
 MAP       MOC40    SA1    X4          FETCH PROCESSOR HEADING                             MAP          753          I
          -FC5A185
 MAP                LX4    30                                                              MAP          754          I
          -FC5A185
 MAP                SB6    X4          B6= NUMBER OF CHARS IN HEADING                      MAP          755          I
          -FC5A185
 MAP                SAVR   (X2,X3,B5),MOCSAV                                               MAP          756          I
          -FC5A185
 MAP                RJ     PCB                                                             MAP          757          I
          -FC5A185
 MAP                RESR   (X2,X3,B5),MOCSAV                                               MAP          758          I
          -FC5A185
 MAP                =X3    X3+1                                                            MAP          759          I
          -FC5A185
 MAP                EQ     MOC30       CONTINUE                                            MAP          760          I
          -FC5A185
 MAP                                                                                       MAP          761          I
          -FC5A185
 MAP       MOC50    SAVR   (X5,B5),MOCSAV                                                  MAP          762          I
          -FC5A185
 MAP                RJ     OTH         OUTPUT TITLE AND HEADING                            MAP          763          I
          -FC5A185
 MAP                RESR   (X5,B5),MOCSAV                                                  MAP          764          I
          -FC5A185
 MAP                                                                                       MAP          765          I
          -FC5A185
 MAP      *         OUTPUT OF THE CURRENT MAP.                                             MAP          766          I
          -FC5A185
 MAP                                                                                       MAP          767          I
          -FC5A185
 MAP                MX4    0           PRINT FLAG                                          MAP          768          I
          -FC5A185
 MAP                SA2    MOCTC       GET ORIGINAL TRIP COUNT                             MAP          769          I
          -FC5A185
 MAP       MOC60    MX3    0           FORMATTER OFFSET                                    MAP          770          I
          -FC5A185
 MAP                =X6    1           USED AS A FLAG                                      MAP          771          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1869    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                =X2    X2-1                                                            MAP          772          I
          -FC5A185
 MAP                PL     X2,MOC70    IF LINE NOT FINISHED                                MAP          773          I
          -FC5A185
 MAP                SA2    MOCTC       REFRESH THE TRIP COUNT                              MAP          774          I
          -FC5A185
 MAP                =X2    X2-1                                                            MAP          775          I
          -FC5A185
 MAP                =X4    1           SET THE PRINT FLAG                                  MAP          776          I
          -FC5A185
 MAP                SAVR   (X2,X3,X4,X5,B5),MOCSAV                                         MAP          777          I
          -FC5A185
 MAP                SA5    PCB.WO      MAPBUFF OFFSET                                      MAP          778          I
          -FC5A185
 MAP                SX5    X5+2        NO. OF WORDS TO OUTPUT                              MAP          779          I
          -FC5A185
 MAP                WLINE  MAPBUFF-1,X5,0,0                                                MAP          780          I
          -FC5A185
 MAP                MX6    0                                                               MAP          781          I
          -FC5A185
 MAP                                                                                       MAP          782          I
          -FC5A185
 MAP       MOC70    ZR     X6,MOC80    IF NO NEED TO SAVE POINTERS                         MAP          783          I
          -FC5A185
 MAP                SAVR   (X2,X3,X4,X5,B5),MOCSAV                                         MAP          784          I
          -FC5A185
 MAP                                                                                       MAP          785          I
          -FC5A185
 MAP       MOC80    RJ     RNI         CALCULATES SCR INDEX                                MAP          786          I
          -FC5A185
 MAP                RESR   (X2,X3,X4,X5,B5),MOCSAV                                         MAP          787          I
          -FC5A185
 MAP                SA1    RNI.PI                                                          MAP          788          I
          -FC5A185
 MAP                =X1    X1-1                                                            MAP          789          I
          -FC5A185
 MAP                PL     X1,MOC90    IF MORE TO PROCESS                                  MAP          790          I
          -FC5A185
 MAP                NZ     X4,MOC10    IF NOTHING TO PRINT, PROCESS NEXT MAP               MAP          791          I
          -FC5A185
 MAP                SAVR   (X5),MOCSAV  X5 IS ONLY REG NOT RESET AT TOP OF LOOP            MAP          792          I
          -FC5A185
 MAP                SA5    PCB.WO      MAPBUFF OFFSET                                      MAP          793          I
          -FC5A185
 MAP                SX5    X5+2        NUMBER OF WORDS TO OUTPUT                           MAP          794          I
          -FC5A185
 MAP                WLINE  MAPBUFF-1,X5,0,0                                                MAP          795          I
          -FC5A185
 MAP                RESR   (X5),MOCSAV                                                     MAP          796          I
          -FC5A185
 MAP                EQ     MOC10       PROCESS NEXT MAP                                    MAP          797          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1870    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                                                                                       MAP          798          I
          -FC5A185
 MAP       MOC90    SA4    X3+B5       FETCH FORMATTER WORD                                MAP          799          I
          -FC5A185
 MAP                SB6    X4                                                              MAP          800          I
          -FC5A185
 MAP                ZR     B6,MOC60    IF AT END OF FORMATTER                              MAP          801          I
          -FC5A185
 MAP                                                                                       MAP          802          I
          -FC5A185
 MAP       MOC100   SAVR   (X2,X3,X4,X5,B5),MOCSAV                                         MAP          803          I
          -FC5A185
 MAP                SA2    T.SCR                                                           MAP          804          I
          -FC5A185
 MAP                SB2    X2                                                              MAP          805          I
          -FC5A185
 MAP                SA1    RNI.PI                                                          MAP          806          I
          -FC5A185
 MAP                =X1    X1-1                                                            MAP          807          I
          -FC5A185
 MAP                SA1    B2+X1       FETCH T.SCR WORD                                    MAP          808          I
          -FC5A185
 MAP                BX7    X1                                                              MAP          809          I
          -FC5A185
 MAP                JP     B6+MAPPML   GO TO PROCESSOR                                     MAP          810          I
          -FC5A185
 MAP                                                                                       MAP          811          I
          -FC5A185
 MAP      *         PROCESSORS RETURN HERE.                                                MAP          812          I
          -FC5A185
 MAP                                                                                       MAP          813          I
          -FC5A185
 MAP       MOC.RB   RESR   (X2,X3,X4,X5,B5),MOCSAV                                         MAP          814          I
          -FC5A185
 MAP                =X3    X3+1        BUMP FORMATTER OFFSET                               MAP          815          I
          -FC5A185
 MAP                EQ     MOC90       CONTINUE                                            MAP          816          I
          -FC5A185
 MAP                SA4    B5          X4 = FIRST WORD OF FORMATTER                        FC5A185       18     A     
 MAP                SA2    MOCTC       X2 = TRIP COUNT                                     FC5A185       19     A     
 MAP                MX3    0                                                               FC5A185       20     A     
 MAP                                                                                       FC5A185       21     A     
 MAP       MOC30    SA1    X4          X1 = PROCESSOR HEADING                              FC5A185       22     A     
 MAP                LX4    30                                                              FC5A185       23     A     
 MAP                SB6    X4          B6 = LENGTH (IN CHARS) OF HEADING                   FC5A185       24     A     
 MAP                SAVR   (X2,X3,B5),MOCSAV                                               FC5A185       25     A     
 MAP                RJ     PCB         PACK CHARACTERS IN BUFFER                           FC5A185       26     A     
 MAP                RESR   (X2,X3,B5),MOCSAV                                               FC5A185       27     A     
 MAP                =X3    X3+1                                                            FC5A185       28     A     
 MAP                SA4    X3+B5       X4 = 30/FIELD WIDTH, 30/PROCESSOR ADDRESS           FC5A185       29     A     
 MAP                NZ     X4,MOC30    IF NOT END OF FORMATTER                             FC5A185       30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1871    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MX3    0                                                               FC5A185       31     A     
 MAP                =X2    X2-1                                                            FC5A185       32     A     
 MAP                SA4    B5          X4 = 1ST WORD OF FORMATTER                          FC5A185       33     A     
 MAP                NZ     X2,MOC30    IF HEADING NOT DONE                                 FC5A185       34     A     
 MAP                                                                                       FC5A185       35          I
          -FC50326
 MAP                RJ     OTH         OUTPUT TITLE AND HEADING                            FC5A185       36     A     
 MAP                RJ     RNI         RETURN THE 1ST ITEM INDEX                           FC5A185       37     A     
 MAP                RESR   (B5,X5),MOCSAV                                                  FC5A185       38     A     
 MAP                SA2    MOCTC                                                           FC5A185       39     A     
 MAP                SAVR   (X2),MOCSAV                                                     FC5A185       40     A     
 MAP                                                                                       FC5A185       41     A     
 MAP      **        OUTPUT OF THE CURRENT MAP                                              FC5A185       42     A     
 MAP                                                                                       FC5A185       43     A     
 MAP       MOC40    MX3    0                                                               FC5A185       44     A     
 MAP                SA4    B5          X4 = 1ST WORD OF FORMATTER                          FC5A185       45     A     
 MAP                SB6    X4          B6 = PROCESSOR ADDRESS                              FC5A185       46     A     
 MAP                                                                                       FC5A185       47     A     
 MAP       MOC50    SAVR   (X3),MOCSAV                                                     FC5A185       48     A     
 MAP                SA2    T.SCR                                                           FC5A185       49     A     
 MAP                SA1    RNI.PI                                                          FC5A185       50     A     
 MAP                SB2    X2                                                              FC5A185       51     A     
 MAP                =X1    X1-1                                                            FC5A185       52     A     
 MAP                SA1    B2+X1       X1 = TABLE ENTRY FOR NEXT ITEM                      FC5A185       53     A     
 MAP                BX7    X1                                                              FC5A185       54     A     
 MAP                JP     B6+MAPPML   PROCESS NEXT FIELD FOR ITEM                         FC5A185       55     A     
 MAP                                                                                       FC5A185       56     A     
 MAP      **        PROCESSORS RETURN HERE                                                 FC5A185       57     A     
 MAP                                                                                       FC5A185       58     A     
 MAP       MOC.RB   RESR   (X2,X3,B5,X5),MOCSAV                                            FC5A185       59     A     
 MAP                =X3    X3+1                                                            FC5A185       60     A     
 MAP                SA4    X3+B5                                                           FC5A185       61     A     
 MAP                SB6    X4                                                              FC5A185       62     A     
 MAP                NZ     B6,MOC50    IF NOT END OF FORMATTER                             FC5A185       63     A     
 MAP                                                                                       FC5A185       64          I
          -FC50326
 MAP                RJ     RNI         RETURN NEXT INDEX                                   FC5A185       65     A     
 MAP                SA1    RNI.PI                                                          FC5A185       66     A     
 MAP                =X1    X1-1                                                            FC5A185       67     A     
 MAP                PL     X1,MOC60    IF MORE ITEMS                                       FC5A185       68     A     
 MAP                SB6    500                                                             FC5A185       69     A     
 MAP                RJ     CBS         FLUSH THE BUFFER                                    FC5A185       70     A     
 MAP                RESR   (X5),MOCSAV                                                     FC5A185       71     A     
 MAP                EQ     MOC10       PROCESS NEXT MAP                                    FC5A185       72     A     
 MAP                                                                                       FC5A185       73     A     
 MAP       MOC60    RESR   (X2),MOCSAV                                                     FC5A185       74     A     
 MAP                =X2    X2-1                                                            FC5A185       75     A     
 MAP                SAVR   (X2,X3),MOCSAV                                                  FC5A185       76     A     
 MAP                NZ     X2,MOC40    IF NOT END OF LINE                                  FC5A185       77     A     
 MAP                SA5    PCB.WO                                                          FC5A185       78     A     
 MAP                SX5    X5+2        X5 = NO. OF WORDS TO OUTPUT                         FC5A185       79     A     
 MAP                WLINE  MAPBUFF-1,X5,0,0                                                FC5A185       80     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1872    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA2    MOCTC                                                           FC5A185       81     A     
 MAP                SAVR   (X2),MOCSAV                                                     FC5A185       82     A     
 MAP                RESR   (B5),MOCSAV                                                     FC5A185       83     A     
 MAP                EQ     MOC40                                                           FC5A185       84     A     
 MAP                SPACE  4,10                                                            MAP          817     A     
 MAP      **        BUFFERS  AND POINTERS.                                                 MAP          818     A     
 MAP                                                                                       MAP          819     A     
 MAP                                                                                       MAP          820     A     
 MAP       MOCBUF   BSSZ   15          TEMP STORAGE FOR A HEADING                          MAP          821     A     
 MAP                                                                                       MAP          822     A     
 MAP       MOCTC    BSS    1           TRIP COUNT                                          MAP          823     A     
 MAP       MOCSAV   BSS    5           AREA TO SAVE POINTERS                               MAP          824          I
          -FC5A185
 MAP       MOCSAV   BSS    0                                                               FC5A185       85     A     
 MAP                LOC    0                                                               FC5A185       86     A     
 MAP       SVB5     BSS    1           TEMP STORAGE FOR B5                                 FC5A185       87     A     
 MAP       SVX5     BSS    1           TEMP FOR X5                                         FC5A185       88     A     
 MAP       SVX2     BSS    1           TEMP FOR X2                                         FC5A185       89     A     
 MAP       SVX3     BSS    1           TEMP FOR X3                                         FC5A185       90     A     
 MAP                LOC    *O                                                              FC5A185       91     A     
 MAP                TITLE  INITIALIZING ROUTINES                                           MAP          825     A     
 MAP       IRA      EJECT                                                                  MAP          826     A     
 MAP      **        THE FOLLOWING ROUTINES ARE THE INITIALIZING ROUTINES                   MAP          827     A     
 MAP      *         CALLED BY THE CONTROLLER.                                              MAP          828     A     
 MAP       IRA      SPACE  4,10                                                            MAP          829     A     
 MAP      **        IRA -  INITIALIZING ROUTINE A.                                         MAP          830     A     
 MAP      *                                                                                MAP          831     A     
 MAP      *         THIS ROUTINE ACCOMPLISHES THE FOLLOWING -                              MAP          832     A     
 MAP      *                                                                                MAP          833     A     
 MAP      *         1)  SELECTS THE APPROPRIATE FORMATTER FOR THE CONTROLLER.              MAP          834     A     
 MAP      *                                                                                MAP          835     A     
 MAP      *         2)  CALLS STS TO SEPARATE PROPER SYMBOL TYPE FROM SYMTAB.              MAP          836     A     
 MAP      *                                                                                MAP          837     A     
 MAP      *         3)  CALLS DMF TO DETERMINE HOW THE CURRENT MAP WILL APPEAR ON          MAP          838     A     
 MAP      *             THE PAGE.                                                          MAP          839     A     
 MAP      *                                                                                MAP          840     A     
 MAP      *         ENTRY  (X5) = OFFSET INTO MST TABLE.                                   MAP          841     A     
 MAP      *                (X1) = 30/ADRS FORMATTER TABLE,30/ADRS IRA.                     MAP          842     A     
 MAP      *                                                                                MAP          843     A     
 MAP      *         EXIT   (B5) = ADDRESS OF PROPER FORMATTER.                             MAP          844     A     
 MAP      *                                                                                MAP          845     A     
 MAP      *         USES   X - ALL  A - ALL  B - 2,3,4,5,7.                                MAP          846     A     
 MAP      *                                                                                MAP          847     A     
 MAP      *         CALLS  STS,DMF,SST.                                                    MAP          848     A     
 MAP                                                                                       MAP          849     A     
 MAP       IRA      LX1    5*CHAR                                                          MAP          850     A     
 MAP                SB5    X1          B5 = ADRS FORMATTER TABLE                           MAP          851     A     
 MAP                SA1    MAP.NO                                                          MAP          852     A     
 MAP                =X2    X1-1                                                            MAP          853     A     
 MAP                SA2    B5+X2       X2 = ADRS OF PROPER FORMATTER                       MAP          854     A     
 MAP                MX4    0                                                               MAP          855     A     
 MAP                SB4    X5          COPY OF MST OFFSET FOR STS AND DMF                  MAP          856     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1873    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SB5    X2                                                              MAP          857     A     
 MAP                SX6    B5                                                              MAP          858     A     
 MAP                SA6    IRASAV      PRESERVE FORMATTER ADDRESS                          MAP          859     A     
 MAP                ZR     B5,MOC.RA   IF NO OUTPUT FOR THIS MAP                           MAP          860     A     
 MAP                SA5    IRAJP+B4                                                        MAP          861     A     
 MAP                SB2    X5                                                              MAP          862     A     
 MAP                JP     B2          SELECT PROPER CODE SECTION                          MAP          863     A     
 MAP                                                                                       MAP          864     A     
 MAP                                                                                       MAP          865     A     
 MAP       STO      SET    -1                                                              MAP          866     A     
 MAP       IRAJP    BSS    0                                                               MAP          867     A     
 MAP                LOC    0                                                               MAP          868     A     
 MAP                                                                                       MAP          869     A     
 MAP                DDTE   TVARP,(VFD    60/IRA5)        VARIABLES                         MAP          870     A     
 MAP                DDTE   TSCP,(VFD    60/IRA10)        SYMBOLIC CONSTANTS                MAP          871     A     
 MAP                DDTE   TPROP,(VFD    60/IRA15)       PROCEDURES                        MAP          872     A     
 MAP                DDTE   TLABP,(VFD    60/IRA20)       LABELS                            MAP          873     A     
 MAP                DDTE   TENTP,(VFD    60/IRA25)       ENTRY POINTS                      MAP          874     A     
 MAP                DDTE   TNAMP,(VFD    60/IRA30)       NAMELISTS                         MAP          875     A     
 MAP                DDTE   TDOLP,(VFD    60/IRA35)       DO-LOOPS                          MAP          876     A     
 MAP                DDTE   TCOMP,(VFD    60/"BLOWUP")    COMMON+EQUIV                      MAP          877     A     
 MAP                DDTE   TIOP,(VFD    60/IRA40)        I/O UNITS                         MAP          878     A     
 MAP                LOC    *O                                                              MAP          879     A     
 MAP                                                                                       MAP          880     A     
 MAP                                                                                       MAP          881     A     
 MAP       IRA5     CLAS=  X5,WB,(VAR)                                                     MAP          882     A     
 MAP                CLAS=  X4,WB,(PARM,ENT,LAB,NLST,CGS)                                   MAP          883     A     
 MAP                EQ     IRA45                                                           MAP          884     A     
 MAP                                                                                       MAP          885     A     
 MAP       IRA10    CLAS=  X5,WB,(PARM)                                                    MAP          886     A     
 MAP                CLAS=  X4,WB,(LAB,CGS)                                                 MAP          887     A     
 MAP                EQ     IRA45                                                           MAP          888     A     
 MAP                                                                                       MAP          889     A     
 MAP       IRA15    CLAS=  X5,WB,(FUN,SUB,DEXT)                                            MAP          890     A     
 MAP                CLAS=  X4,WB,(LAB,CGS)                                                 MAP          891     A     
 MAP                EQ     IRA45                                                           MAP          892     A     
 MAP                                                                                       MAP          893     A     
 MAP       IRA20    CLAS=  X5,WB,(LAB)                                                     MAP          894     A     
 MAP                CLAS=  X4,WB,(CGS)                                                     MAP          895     A     
 MAP                EQ     IRA45                                                           MAP          896     A     
 MAP                                                                                       MAP          897     A     
 MAP       IRA25    SA5    MOD                                                             MAP          898     A     
 MAP                HX5    MO.BLK                                                          MAP          899     A     
 MAP                SB2    B5                                                              MAP          900     A     
 MAP                =B5    0                                                               MAP          901     A     
 MAP                MI     X5,MOC.RA   IF BLOCK DATA, SUPPRESS                             MAP          902     A     
 MAP                SB5    B2                                                              MAP          903     A     
 MAP                CLAS=  X5,WB,(ENT)                                                     MAP          904     A     
 MAP                CLAS=  X4,WB,(LAB,CGS)                                                 MAP          905     A     
 MAP                EQ     IRA45                                                           MAP          906     A     
 MAP                                                                                       MAP          907     A     
 MAP       IRA30    CLAS=  X5,WB,(NLST)                                                    MAP          908     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1874    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                CLAS=  X4,WB,(LAB,CGS)                                                 MAP          909     A     
 MAP                EQ     IRA45                                                           MAP          910     A     
 MAP                                                                                       MAP          911     A     
 MAP       IRA35    SB2    B5                                                              MAP          912     A     
 MAP                =B5    0                                                               MAP          913     A     
 MAP                SA1    WO.QC                                                           MAP          914     A     
 MAP                MI     X1,MOC.RA   SUPPRESS IF FATAL ERRORS OR QC MODE                 MAP          915     A     
 MAP                SB5    B2                                                              MAP          916     A     
 MAP                CLAS=  X5,WB,(LAB,DOGL)                                                MAP          917     A     
 MAP                BX5    -X5         COMPLEMENT TO MAKE *AND* OF BITS POSSIIBLE          MAP          918          I
          -FC50326
 MAP                BX5    -X5         COMPLEMENT TO MAKE *AND* OF BITS POSSIBLE           FC50326       38     A     
 MAP                EQ     IRA45                                                           MAP          919     A     
 MAP                                                                                       MAP          920     A     
 MAP       IRA40    CLAS=  X5,WB,(UDC,NVAR)                                                MAP          921     A     
 MAP                BX5    -X5         BOTH BITS MUST BE ON                                MAP          922     A     
 MAP                                                                                       MAP          923     A     
 MAP       IRA45    RJ     STS                                                             MAP          924     A     
 MAP                SA5    T=SCR                                                           MAP          925     A     
 MAP                NZ     X5,IRA60    IF TABLE NOT EMPTY                                  MAP          926     A     
 MAP                SB5    B0                                                              MAP          927     A     
 MAP                EQ     MOC.RA      RETURN TO CONTROLLER                                MAP          928     A     
 MAP                                                                                       MAP          929     A     
 MAP       IRA60    RJ     DMF         DETERMINE MAP FORMAT                                MAP          930     A     
 MAP                SA1    T.SCR                                                           MAP          931     A     
 MAP                SB7    X1          FWA OF TABLE                                        MAP          932     A     
 MAP                SA1    T=SCR                                                           MAP          933     A     
 MAP                SX7    B4-TDOLP                                                        MAP          934     A     
 MAP                ZR     X7,IRA70    IF DO-LOOP MAP                                      MAP          935     A     
 MAP                CALL   SST         SORT THE TABLE                                      MAP          936     A     
 MAP       IRA70    SA1    IRASAV                                                          MAP          937     A     
 MAP                SB5    X1                                                              MAP          938     A     
 MAP                EQ     MOC.RA                                                          MAP          939     A     
 MAP                                                                                       MAP          940     A     
 MAP                                                                                       MAP          941     A     
 MAP       IRASAV   BSS    1                                                               MAP          942          I
          -FC5A185
 MAP       IRASAV   EQU    MOCSAV+SVB5                                                     FC5A185       92     A     
 MAP      IRB       SPACE  4,10                                                            MAP          943     A     
 MAP      **        IRB -  INITIALIZING ROUTINE B.                                         MAP          944     A     
 MAP      *                                                                                MAP          945     A     
 MAP      *         ACTUALLY PERFORMS INITIALIZATION AND OUTPUT OF THE                     MAP          946     A     
 MAP      *         COMMON+EQUIVALENCE MAP. UPON EXIT, B5 MUST BE SET                      MAP          947     A     
 MAP      *         TO ZERO TO FORCE MOC TO BYPASS ITS OWN CONTROL LOGIC.                  MAP          948     A     
 MAP      *                                                                                MAP          949     A     
 MAP      *         EXIT   (B5) = 0.                                                       MAP          950     A     
 MAP      *                OUTPUT OF COMMON-EQUIVALENCE MAP COMPLETE.                      MAP          951     A     
 MAP      *                                                                                MAP          952     A     
 MAP      *         CALLS  SST,OTH,PCB,OBI,OBM,OLE,SCS.                                    MAP          953     A     
 MAP      *                                                                                MAP          954     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP          955     A     
 MAP                                                                                       MAP          956     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1875    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       IRB      SA1    WO.LOM                                                          MAP          957     A     
 MAP                =B5    0                                                               MAP          958     A     
 MAP                ZR     X1,MOC.RA   IF THIS MAP NOT SELECTED                            MAP          959     A     
 MAP                SA1    WO.QC                                                           FC5A185       93     A     
 MAP                MI     X1,MOC.RA   IF FATAL ERRORS OR QC MODE                          FC5A185       94     A     
 MAP                SA1    T=ECT                                                           MAP          960     A     
 MAP                SA2    T=BLKS                                                          MAP          961     A     
 MAP                IX2    X2+X1                                                           MAP          962          I
          -FC5A185
 MAP                SX2    X2-3                                                            MAP          963          I
          -FC5A185
 MAP                MI     X2,MOC.RA   IF NO OUTPUT                                        MAP          964          I
          -FC5A185
 MAP                SX1    X1-3                                                            FC5A185       95     A     
 MAP                SX2    X2-Z=BLKS-1                                                     FC5A185       96     A     
 MAP                BX3    X1*X2                                                           FC5A185       97     A     
 MAP                MI     X3,MOC.RA   IF NO OUTPUT                                        FC5A185       98     A     
 MAP                SA2    T.ECT                                                           MAP          965          I
          -FC5A109
 MAP                                                                                       FC5A109        5     A     
 MAP      **        CHECK IF S$A$V$E BLOCK WOULD BE THE ONLY OUTPUT.                       FC5A109        6     A     
 MAP                                                                                       FC5A109        7     A     
 MAP                NZ     X1,IRB5     IF EQUIVALENCES EXIST                               FC5A109        8          I
          -FC5A185
 MAP                =X2    X2-1                                                            FC5A109        9          I
          -FC5A185
 MAP                NZ     X2,IRB5     IF MORE THAN 1 COMMON BLOCK                         FC5A109       10          I
          -FC5A185
 MAP                PL     X1,IRB5     IF EQUIVALENCES EXIST                               FC5A185       99     A     
 MAP                =X2    X2-1                                                            FC5A185      100     A     
 MAP                PL     X2,IRB7     IF MORE THAN ONE BLOCK                              FC5A185      101     A     
 MAP                SA2    T.BLKS                                                          FC5A109       11     A     
 MAP                SA2    X2+Z=BLKS   X2 = *CA*                                           FC5A109       12     A     
 MAP                SA3    =7RS$A$V$E                                                      FC5A109       13     A     
 MAP                XTRCT  CA.BNAM,X2,X2     EXTRACT BLOCK NAME                            FC5A109       14     A     
 MAP                BX2    X2-X3                                                           FC5A109       15     A     
 MAP                ZR     X2,MOC.RA   IF IT IS THE ONLY BLOCK                             FC5A109       16     A     
 MAP                                                                                       FC5A109       17     A     
 MAP       IRB5     SA2    T.ECT                                                           FC5A109       18     A     
 MAP                SB7    X2                                                              MAP          966     A     
 MAP                SA1    T=ECT                                                           FC5A185      102     A     
 MAP                CALL   SST         SORT EQUIVALENCE CLASS TABLE                        MAP          967     A     
 MAP                SA1    MAP.XS                                                          MAP          968          I
          -FC5A185
 MAP                                                                                       FC5A185      103     A     
 MAP       IRB7     SA1    MAP.XS                                                          FC5A185      104     A     
 MAP                =B6    1                                                               MAP          969     A     
 MAP                RJ     PCB         BLANK LINE INSTEAD OF HEADING                       MAP          970     A     
 MAP                =X5    TCOMP                                                           MAP          971     A     
 MAP                RJ     OTH         OUTPUT TITLE AND HEADING                            MAP          972     A     
 MAP                MX6    0                                                               MAP          973     A     
 MAP                SA6    OBI.BI      INITIALIZE BLOCK INDEX                              MAP          974     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1876    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP          975     A     
 MAP      **        OUTPUT OF COMMON BLOCK INFORMATION.                                    MAP          976     A     
 MAP                                                                                       MAP          977     A     
 MAP       IRB10    RJ     OBI         OUTPUT BLOCK INFO                                   MAP          978          I
          -FC5A185
 MAP                MI     X3,IRB30    IF NO MORE COMMON BLOCKS                            MAP          979          I
          -FC5A185
 MAP                                                                                       MAP          980          I
          -FC5A185
 MAP      **        OUTPUT OF BLOCK ELEMENT INFO.                                          MAP          981          I
          -FC5A185
 MAP                                                                                       MAP          982          I
          -FC5A185
 MAP                RJ     OBM         OUTPUT BLOCK MEMBERS                                MAP          983          I
          -FC5A185
 MAP       IRB10    RJ     GNB         GET NEXT BLOCK                                      FC5A185      105     A     
 MAP                MI     X3,IRB30    IF NO MORE BLOCKS                                   FC5A185      106     A     
 MAP                RJ     OBI         OUTPUT BLOCK INFORMATION                            FC5A185      107     A     
 MAP                RJ     OML         OUTPUT BLOCK MEMBERS                                FC5A185      108     A     
 MAP                EQ     IRB10                                                           MAP          984     A     
 MAP                                                                                       MAP          985     A     
 MAP      **        OUTPUT OF LOCAL EQUIVALENCE CLASSES.                                   MAP          986     A     
 MAP                                                                                       MAP          987     A     
 MAP       IRB30    MX7    1                                                               MAP          988          I
          -FC5A185
 MAP                LDBIT  X1,TE.NBP                                                       MAP          989          I
          -FC5A185
 MAP                BX7    X1+X7                                                           MAP          990          I
          -FC5A185
 MAP                SA7    SCSA                                                            MAP          991          I
          -FC5A185
 MAP                MX6    0                                                               MAP          992          I
          -FC5A185
 MAP                SCAN   T.ECT,SCS   LOOK FOR LOCAL EQUIVALENCE CLASS                    MAP          993          I
          -FC5A185
 MAP                =B5    0                                                               MAP          994          I
          -FC5A185
 MAP                MI     B7,MOC.RA   IF NO LOCAL CLASSES                                 MAP          995          I
          -FC5A185
 MAP                SX6    A2+1                                                            MAP          996          I
          -FC5A185
 MAP                SA6    OCEI.ADR                                                        MAP          997          I
          -FC5A185
 MAP                WLINE  IRBA,MAPSTL,2,1   OUTPUT TITLE                                  MAP          998          I
          -FC5A185
 MAP                                                                                       MAP          999          I
          -FC5A185
 MAP                RJ     OLE         OUTPUT LOCAL EQUIVALENCE                            MAP         1000          I
          -FC5A185
 MAP       IRB30    RJ     GLE         GET LOCAL EQUIVALENCE CLASSES                       FC5A185      109     A     
 MAP                =B5    0                                                               FC5A185      110     A     
 MAP                SA1    T=SCR                                                           FC5A185      111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1877    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                ZR     X1,MOC.RA   IF NO LOCAL CLASSES                                 FC5A185      112     A     
 MAP                WLINE  IRBA,MAPSTL,2,1   OUTPUT TITLE                                  FC5A185      113     A     
 MAP                SA1    MAP.XS                                                          FC5A185      114     A     
 MAP                SB6    6                                                               FC5A185      115     A     
 MAP                RJ     PCB         INDENT 6                                            FC5A185      116     A     
 MAP                RJ     OML         OUPUT LOCAL EQUIVALENCE                             FC5A185      117     A     
 MAP                =B5    0                                                               MAP         1001     A     
 MAP                EQ     MOC.RA                                                          MAP         1002     A     
 MAP                                                                                       MAP         1003     A     
 MAP       IRBA     DIS    3, --LOCAL EQUIVALENCE--                                        MAP         1004     A     
 MAP                TITLE  GENERAL PURPOSE ROUTINES                                        MAP         1005     A     
 MAP       BNS      EJECT                                                                  MAP         1006          I
          -FC5A185
 MAP      **        THE FOLLOWING GROUP OF SUBROUTINES ARE GENERAL PURPOSE                 MAP         1007          I
          -FC5A185
 MAP                TITLE  TASK PERFORMERS                                                 FC5A185      118     A     
 MAP      **        THE FOLLOWING GROUP OF SUBROUTINES ARE                                 FC5A185      119     A     
 MAP      *         ROUTINES THAT PERFORM VARIOUS TASKS FOR THE CONTROLLER.                MAP         1008     A     
 MAP                                                                                       MAP         1009     A     
 MAP      **        BNS -  BOUND NAME WITH SLASHES.                                        MAP         1010     A     
 MAP      *                                                                                MAP         1011     A     
 MAP      *         THIS ROUTINE IS USED TO FORMAT BLOCK NAMES FOR OUTPUT.                 MAP         1012     A     
 MAP      *                                                                                MAP         1013     A     
 MAP      *         ENTRY  (X1) = NAME TO BE BOUNDED, LEFT JUSTIFIED.                      MAP         1014     A     
 MAP      *                                                                                MAP         1015     A     
 MAP      *         EXIT   (X1) = FORMATTED NAME LEFT JUSTIFIED.                           MAP         1016     A     
 MAP      *                                                                                MAP         1017     A     
 MAP      *         USES   X - ALL  A - 2,3,4,7  B - 3.                                    MAP         1018     A     
 MAP      *                                                                                MAP         1019     A     
 MAP      *         KEEPS  X4.                                                             MAP         1020     A     
 MAP      *                                                                                MAP         1021     A     
 MAP      *         CALLS  NONE.                                                           MAP         1022     A     
 MAP                                                                                       MAP         1023     A     
 MAP       BNS      SUBR               ENTRY/EXIT...                                       MAP         1024     A     
 MAP                BX7    X4                                                              MAP         1025     A     
 MAP                SA7    BNSAV       PRESERVE X4                                         MAP         1026     A     
 MAP                MX0    -1                                                              MAP         1027     A     
 MAP                SA2    =40404040404040404040B                                          MAP         1028     A     
 MAP                SA3    =10H//////////                                                  MAP         1029     A     
 MAP                SA4    =1A/                                                            MAP         1030     A     
 MAP                SB3    60-CHAR+1                                                       MAP         1031     A     
 MAP                IX7    X1+X0       LOCATE LOWEST BIT                                   MAP         1032     A     
 MAP                BX5    -X7+X1                                                          MAP         1033     A     
 MAP                BX7    X2*X5       40 WHERE CHARACTERS WERE                            MAP         1034     A     
 MAP                LX5    X7,B3                                                           MAP         1035     A     
 MAP                IX6    X7-X5                                                           MAP         1036     A     
 MAP                IX7    X7+X6       77 WHERE CHARACTERS WERE                            MAP         1037     A     
 MAP                BX6    -X7*X3                                                          MAP         1038     A     
 MAP                AX7    CHAR        EXTEND MASK                                         MAP         1039     A     
 MAP                BX5    -X7*X4                                                          MAP         1040     A     
 MAP                IX6    X1+X6       APPEND TRAILING SLASHES                             MAP         1041     A     
 MAP                BX7    X7*X6       DISCARD SUPERFLUOUS SLASHES                         MAP         1042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1878    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                IX7    X5+X7       SPACE FILL                                          MAP         1043     A     
 MAP                LX7    -CHAR                                                           MAP         1044     A     
 MAP                BX1    X7                                                              MAP         1045     A     
 MAP                SA4    BNSAV       RESTORE X4                                          MAP         1046     A     
 MAP                EQ     EXIT.                                                           MAP         1047     A     
 MAP                                                                                       MAP         1048     A     
 MAP       BNSAV    BSS    1           CELL TO PRESERVE REGISTER X4                        MAP         1049     A     
 MAP       CBS      SPACE  4,10                                                            MAP         1050     A     
 MAP      **        CBS -  CREATE BUFFER SPACE.                                            MAP         1051     A     
 MAP      *                                                                                MAP         1052     A     
 MAP      *         WILL FLUSH BUFFER (MAPBUFF) IF THERE ARE LESS THAN                     MAP         1053     A     
 MAP      *         (B6) CHARACTERS OF ROOM LEFT.                                          MAP         1054     A     
 MAP      *                                                                                MAP         1055     A     
 MAP      *         ENTRY  (B6) = SPACE NEEDED (IN CHARACTERS).                            MAP         1056     A     
 MAP      *                                                                                MAP         1057     A     
 MAP      *         CALLS  GBL,WLINE.                                                      MAP         1058     A     
 MAP      *                                                                                MAP         1059     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP         1060     A     
 MAP                                                                                       MAP         1061     A     
 MAP       CBS      SUBR               ENTRY/EXIT...                                       MAP         1062     A     
 MAP                SA1    CO.PW                                                           MAP         1063     A     
 MAP                RJ     GBL         GET BUFFER LENGTH                                   MAP         1064     A     
 MAP                ZR     X2,EXIT.    IF BUFFER EMPTY                                     MAP         1065     A     
 MAP                SX1    X1          STRIP CONNECT BIT                                   FC5A187       18     A     
 MAP                IX1    X1-X2       ROOM LEFT ON PAGE                                   MAP         1066     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         1067     A     
 MAP                MI     X1,"BLOWUP" IF BUFFER TOO BIG                                   MAP         1068     A     
 MAP                SB3    X1                                                              MAP         1069     A     
 MAP                SB3    B3-B6                                                           MAP         1070     A     
 MAP                PL     B3,EXIT.    IF ENOUGH ROOM                                      MAP         1071     A     
 MAP                SX6    B6                                                              MAP         1072     A     
 MAP                SA6    CBSSAV                                                          MAP         1073     A     
 MAP                SA1    PCB.WO                                                          MAP         1074     A     
 MAP                SX1    X1+2                                                            MAP         1075     A     
 MAP                WLINE  MAPBUFF-1,X1,0,0                                                MAP         1076     A     
 MAP                SX6    7                                                               FC50297        5     A     
 MAP                SA6    OCEI.TAB    INITIALIZE TAB COUNTER                              FC50297        6     A     
 MAP                SA1    CBSSAV                                                          MAP         1077     A     
 MAP                SX1    X1-150                                                          MAP         1078     A     
 MAP                PL     X1,EXIT.    IF BUFFER FLUSH FORCED                              MAP         1079     A     
 MAP                SB6    6                                                               MAP         1080     A     
 MAP                SA1    MAP.XS                                                          MAP         1081     A     
 MAP                RJ     PCB         INDENT 6                                            MAP         1082     A     
 MAP                SB3    -1          INDICATE BUFFER OUTPUT                              FC50297        7     A     
 MAP                EQ     EXIT.                                                           MAP         1083     A     
 MAP                                                                                       MAP         1084     A     
 MAP       CBSSAV   BSS    1           CELL TO PRESERVE SPACE NEEDED                       MAP         1085     A     
 MAP       CCBB     SPACE  4,10                                                            MAP         1086     A     
 MAP      **        CCBB - COUNT CHARS BEFORE BLANK.                                       MAP         1087     A     
 MAP      *                                                                                MAP         1088     A     
 MAP      *         USED TO DETERMINE LENGTH OF A PROCESSOR OUTPUT TO                      MAP         1089     A     
 MAP      *         FACILITATE LEFT OR RIGHT JUSTIFICATION OF THAT OUTPUT                  MAP         1090     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1879    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         IN THE FIELD ALOTTED TO THE PROCESSOR.                                 MAP         1091     A     
 MAP      *                                                                                MAP         1092     A     
 MAP      *         ENTRY  (X1) = PROCESSOR OUTPUT TO CHECK.                               MAP         1093     A     
 MAP      *                (X0) = PL FOR INPUT LEFT JUST., MI FOR RIGHT JUST.              MAP         1094     A     
 MAP      *                                                                                MAP         1095     A     
 MAP      *         EXIT   (B6) = CHARACTER COUNT.                                         MAP         1096     A     
 MAP      *                                                                                MAP         1097     A     
 MAP      *         USES   X - 2,3,4,7  B - 2,3,6.                                         MAP         1098     A     
 MAP      *                                                                                MAP         1099     A     
 MAP      *         CALLS  NONE.                                                           MAP         1100     A     
 MAP                                                                                       MAP         1101     A     
 MAP       CCBB     SUBR               ENTRY/EXIT...                                       MAP         1102     A     
 MAP                SX3    1R                                                              MAP         1103     A     
 MAP                LX3    -CHAR                                                           MAP         1104     A     
 MAP                MX4    CHAR                                                            MAP         1105     A     
 MAP                SB2    CHAR        SHIFT COUNT FOR LEFT JUST. INPUT                    MAP         1106     A     
 MAP                PL     X0,CCBB10   IF INPUT LEFT JUST.                                 MAP         1107     A     
 MAP                LX3    CHAR                                                            MAP         1108     A     
 MAP                LX4    CHAR                                                            MAP         1109     A     
 MAP                SB2    -CHAR       SHIFT COUNT FOR RIGHT JUST. INPUT                   MAP         1110     A     
 MAP                                                                                       MAP         1111     A     
 MAP       CCBB10   BX7    X1                                                              MAP         1112     A     
 MAP                SB3    10          LOOP LIMIT                                          MAP         1113     A     
 MAP                =B6    0           NON-BLANK CHAR COUNTER                              MAP         1114     A     
 MAP                                                                                       MAP         1115     A     
 MAP       CCBB20   =B3    B3-1                                                            MAP         1116     A     
 MAP                MI     B3,EXIT.    IF NO BLANKS FOUND                                  MAP         1117     A     
 MAP                BX2    X4*X7       ISOLATE A CHAR                                      MAP         1118     A     
 MAP                BX2    X2-X3                                                           MAP         1119     A     
 MAP                ZR     X2,EXIT.    IF FOUND A BLANK                                    MAP         1120     A     
 MAP                =B6    B6+1                                                            MAP         1121     A     
 MAP                LX7    B2,X7                                                           MAP         1122     A     
 MAP                EQ     CCBB20      CONTINUE                                            MAP         1123     A     
 MAP       DELF     SPACE  4,10                                                            MAP         1124     A     
 MAP      **        DELF - DELETE FIELDS FROM A FORMATTER.                                 MAP         1125     A     
 MAP      *                                                                                MAP         1126     A     
 MAP      *         WILL DELETE FIELDS ON THE BASIS OF PRIORITIES DEFINED                  MAP         1127     A     
 MAP      *         IN A TABLE UNIQUE TO THE MAP SEGMENT BEING PROCESSED.                  MAP         1128     A     
 MAP      *         AN OCCURANCE OF THE PROCESSOR CURRENTLY AT THE TOP OF                  MAP         1129     A     
 MAP      *         THE PRIORITY TABLE WILL BE REPLACED BY A NO-OP PROCESSOR.              MAP         1130     A     
 MAP      *         THIS IS CONTINUED UNTIL THE LENGTH OF THE FORMATTER                    MAP         1131     A     
 MAP      *         BECOMES EQUAL TO OR LESS THAN THE PAGE WIDTH.                          MAP         1132     A     
 MAP      *                                                                                MAP         1133     A     
 MAP      *         ENTRY  (B2) = LENGTH OF FORMATTER.                                     MAP         1134     A     
 MAP      *                (B5) = ADDRESS OF FORMATTER.                                    MAP         1135     A     
 MAP      *                (B4) = MST OFFSET.                                              MAP         1136     A     
 MAP      *                                                                                MAP         1137     A     
 MAP      *         EXIT   (X6) = 1.                                                       MAP         1138     A     
 MAP      *                (X7) = X5  (PRESERVED ON ENTRY).                                MAP         1139     A     
 MAP      *                                                                                MAP         1140     A     
 MAP      *         USES   X - 1,2,3,4,5,6,7   A - 1,2,3,5,6  B - 3,6,7.                   MAP         1141     A     
 MAP      *                                                                                MAP         1142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1880    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         KEEPS  X5.                                                             MAP         1143     A     
 MAP                                                                                       MAP         1144     A     
 MAP                                                                                       MAP         1145     A     
 MAP       DELF     BX6    X5                                                              MAP         1146     A     
 MAP                SA6    DELFA       PRESERVE X5                                         MAP         1147     A     
 MAP                SA1    CO.PW                                                           MAP         1148     A     
 MAP                SB6    X1                                                              MAP         1149     A     
 MAP                SX5    B2-B6       NUMBER OF COLUMNS EXCEEDING PW                      MAP         1150     A     
 MAP                IFEQ   TEST,ON,2                                                       MAP         1151     A     
 MAP                ZR     X5,"BLOWUP"                                                     MAP         1152     A     
 MAP                MI     X5,"BLOWUP" IF BAD B2 OR ERROR BY DMF                           MAP         1153     A     
 MAP                =B3    0           OFFSET INTO PRIORITY TABLE                          MAP         1154     A     
 MAP                SA1    B4+DELFB    X1 = ADRS OF PRIORITY TABLE                         MAP         1155     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         1156     A     
 MAP                ZR     X1,"BLOWUP" IF TABLE DOESNT EXIST                               MAP         1157     A     
 MAP                =B7    0           OFFSET INTO FORMATTER                               MAP         1158     A     
 MAP                SX6    NOP                                                             MAP         1159     A     
 MAP                                                                                       MAP         1160     A     
 MAP       DELF10   SA2    X1+B3       SEARCH FOR THIS PROCESSOR                           MAP         1161     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         1162     A     
 MAP                ZR     X2,"BLOWUP" IF ERROR                                            MAP         1163     A     
 MAP                =B3    B3+1                                                            MAP         1164     A     
 MAP                MX7    0           COUNTS PASSES THROUGH THE TABLE                     MAP         1165     A     
 MAP                                                                                       MAP         1166     A     
 MAP      **        THE FOLLOWING LOOP WILL GO ON TO THE NEXT HIGHEST                      MAP         1167     A     
 MAP      *         PRIORITY PROCESSOR IF IT CANT FIND THE PRESENT ONE                     MAP         1168     A     
 MAP      *         WITHIN 2 PASSES THROUGH THE TABLE.                                     MAP         1169     A     
 MAP                                                                                       MAP         1170     A     
 MAP       DELF20   SA3    B5+B7       WORD OF FORMATTER                                   MAP         1171     A     
 MAP                =B7    B7+1                                                            MAP         1172     A     
 MAP                NZ     X3,DELF30   IF NOT AT END OF FORMATTER                          MAP         1173     A     
 MAP                =X7    X7+1                                                            MAP         1174     A     
 MAP                SX3    X7-2                                                            MAP         1175     A     
 MAP                PL     X3,DELF10   IF PROCESSOR NOT PRESENT IN FORMATTER               MAP         1176     A     
 MAP                =B7    0                                                               MAP         1177     A     
 MAP                EQ     DELF20      CONTINUE                                            MAP         1178     A     
 MAP                                                                                       MAP         1179     A     
 MAP       DELF30   SX4    X3                                                              MAP         1180     A     
 MAP                IX4    X2-X4                                                           MAP         1181     A     
 MAP                NZ     X4,DELF20   IF NO MATCH                                         MAP         1182     A     
 MAP                MX7    0           RESET PASS COUNTER                                  MAP         1183     A     
 MAP                LX3    30                                                              MAP         1184     A     
 MAP                SX3    X3                                                              MAP         1185     A     
 MAP                IX5    X5-X3                                                           MAP         1186     A     
 MAP                SA6    A3          REPLACE PROCESSOR BY NOP                            MAP         1187     A     
 MAP                =X3    X5-1                                                            MAP         1188     A     
 MAP                PL     X3,DELF10   IF MORE DELETIONS NECESSARY                         MAP         1189     A     
 MAP                =X6    1                                                               MAP         1190     A     
 MAP                SA5    DELFA       RESTORE X5                                          MAP         1191     A     
 MAP                BX7    X5                                                              MAP         1192     A     
 MAP                EQ     DMF.RTN     RETURN TO DMF                                       MAP         1193     A     
 MAP       DELF     SPACE  4                                                               MAP         1194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1881    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       DELFA    BSS    1           TO PRESERVE X5                                      MAP         1195     A     
 MAP                                                                                       MAP         1196     A     
 MAP      **        TABLE OF PRIORITY TABLE ADDRESSES, ACCESSED VIA MST OFFSET.            MAP         1197     A     
 MAP      *         MUST BE IN THE SAME ORDER AS MST.                                      MAP         1198     A     
 MAP                                                                                       MAP         1199     A     
 MAP       STO      SET    -1                                                              MAP         1200     A     
 MAP       DELFB    BSS    0                                                               MAP         1201     A     
 MAP                LOC    0                                                               MAP         1202     A     
 MAP                DDTE   TVARP,(VFD    60/DELFPT1)     VARIABLE MAP                      MAP         1203     A     
 MAP                DDTE   TSCP,(VFD    60/DELFPT2)      SYMBOLIC CONSTANTS                MAP         1204     A     
 MAP                DDTE   TPROP,(VFD    60/0)                                             MAP         1205     A     
 MAP                DDTE   TLABP,(VFD    60/0)                                             MAP         1206          I
          -FC50834
 MAP                DDTE   TLABP,(VFD   60/DELFPT4)       LABELS                           FC50834        6     A     
 MAP                DDTE   TENTP,(VFD    60/0)                                             MAP         1207     A     
 MAP                DDTE   TNAMP,(VFD    60/0)                                             MAP         1208     A     
 MAP                DDTE   TDOLP,(VFD    60/DELFPT3)     DO-LOOPS                          MAP         1209     A     
 MAP                DDTE   TCOMP,(VFD    60/0)                                             MAP         1210     A     
 MAP                DDTE   TIOP,(VFD    60/0)                                              MAP         1211     A     
 MAP                LOC    *O                                                              MAP         1212     A     
 MAP                                                                                       MAP         1213     A     
 MAP      **        FIELD DELETION PRIORITY TABLES.                                        MAP         1214     A     
 MAP                                                                                       MAP         1215     A     
 MAP       DELFPT1  VFD    60/XC                                                           MAP         1216     A     
 MAP                VFD    60/ADR                                                          MAP         1217     A     
 MAP                VFD    60/BLK                                                          MAP         1218     A     
 MAP                VFD    60/XA                                                           MAP         1219     A     
 MAP                VFD    60/SZE                                                          MAP         1220     A     
 MAP                VFD    60/XA                                                           MAP         1221     A     
 MAP                VFD    60/0                                                            MAP         1222     A     
 MAP                                                                                       MAP         1223     A     
 MAP       DELFPT2  VFD    60/VAL                                                          MAP         1224     A     
 MAP                VFD    60/0                                                            MAP         1225     A     
 MAP                                                                                       MAP         1226     A     
 MAP       DELFPT3  VFD    60/ADR                                                          MAP         1227          I
          -FC50834
 MAP       DELFPT3  VFD    60/LADR                                                         FC50834        7     A     
 MAP                VFD    60/XA                                                           MAP         1228     A     
 MAP                VFD    60/DOIN                                                         MAP         1229     A     
 MAP                VFD    60/0                                                            MAP         1230     A     
 MAP                                                                                       FC50834        8     A     
 MAP       DELFPT4  VFD    60/XA                                                           FC50834        9     A     
 MAP                VFD    60/0                                                            FC50834       10     A     
 MAP       DMF      SPACE  4,10                                                            MAP         1231     A     
 MAP      **        DMF -  DETERMINE MAP FORMAT.                                           MAP         1232     A     
 MAP      *                                                                                MAP         1233     A     
 MAP      *         THIS ROUTINE ATTEMPTS TO FIX THE FORMAT OF A MAP OUTPUT                MAP         1234     A     
 MAP      *         IN SUCH A WAY AS TO MAKE EFFICIENT USE OF PAPER AND TO                 MAP         1235     A     
 MAP      *         MAKE IT AESTHETICALLY PLEASING, GIVEN THE LIMITATION                   MAP         1236     A     
 MAP      *         ON PAGE WIDTH.                                                         MAP         1237     A     
 MAP      *                                                                                MAP         1238     A     
 MAP      *         ENTRY  (X5)= LENGTH OF T.SCR.                                          MAP         1239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1882    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                (B5)= ADDRESS OF A FORMATTER.                                   MAP         1240     A     
 MAP      *                (B4) = MST OFFSET.                                              MAP         1241     A     
 MAP      *                                                                                MAP         1242     A     
 MAP      *         EXIT   NONE.                                                           MAP         1243     A     
 MAP      *                                                                                MAP         1244     A     
 MAP      *         CALLS  SRNI,DELF.                                                      MAP         1245     A     
 MAP      *                                                                                MAP         1246     A     
 MAP      *         USES   X - 1,2,3,4,5,6,7  A - ALL  B - ALL.                            MAP         1247     A     
 MAP                                                                                       MAP         1248     A     
 MAP       DMF      SUBR               ENTRY/EXIT.                                         MAP         1249     A     
 MAP                SB2    B0                                                              MAP         1250     A     
 MAP                MX3    0                                                               MAP         1251     A     
 MAP                                                                                       MAP         1252     A     
 MAP       DMF20    SA2    B5+B2       GRAB WORD OF FORMATTER                              MAP         1253     A     
 MAP                ZR     X2,DMF30    IF LAST WORD OF FORMATTER                           MAP         1254     A     
 MAP                LX2    5*CHAR                                                          MAP         1255     A     
 MAP                SX2    X2          ISOLATE FIELD WIDTH                                 MAP         1256     A     
 MAP                IX3    X3+X2       ACCUMULATE SUM                                      MAP         1257     A     
 MAP                =B2    B2+1                                                            MAP         1258     A     
 MAP                IFEQ   TEST,ON,2                                                       MAP         1259     A     
 MAP                SB3    B2-MAPLFL                                                       MAP         1260     A     
 MAP                PL     B3,"BLOWUP" IF B2 GE LARGEST FORMATTER LENGTH                   MAP         1261     A     
 MAP                EQ     DMF20                                                           MAP         1262     A     
 MAP                                                                                       MAP         1263     A     
 MAP       DMF30    SA4    CO.PW                                                           MAP         1264     A     
 MAP                SB2    X3          SAVE COPY OF FORMATTER LENGTH FOR DELF              MAP         1265     A     
 MAP                SX4    X4          STRIP CONNECT BIT                                   FC5A226        5     A     
 MAP                IX6    X4/X3       MAXIMUM NUMBER OF SECTIONS                          MAP         1266     A     
 MAP                BX2    X5          SAVE COPY OF NUMBER OF ENTRIES IN T.SCR             MAP         1267     A     
 MAP                =X1    X5-MAPMRL                                                       MAP         1268     A     
 MAP                PL     X1,DMF40    IF MORE THAN MAPMRL ENTRIES                         MAP         1269     A     
 MAP                ZR     X6,DELF     IF FIELDS NEED TO BE DELETED                        MAP         1270     A     
 MAP                =X6    1                                                               MAP         1271     A     
 MAP                BX7    X5                                                              MAP         1272     A     
 MAP                EQ     DMF.RTN                                                         MAP         1273     A     
 MAP                                                                                       MAP         1274     A     
 MAP       DMF40    SA1    MAP.NO      GET MAP.NO                                          MAP         1275     A     
 MAP                LX1    59                                                              MAP         1276     A     
 MAP                PL     X1,DMF45    IF REFERENCES NOT SELECTED                          MAP         1277     A     
 MAP                ZR     X6,DELF     IF FIELDS NEED TO BE DELETED                        MAP         1278     A     
 MAP                =X6    1           FORCE SECTION COUNT TO 1                            MAP         1279     A     
 MAP                                                                                       MAP         1280     A     
 MAP       DMF45    BX3    X6          SAVE COPY OF # OF SECTIONS                          MAP         1281     A     
 MAP                ZR     X3,DELF     IF FIELDS NEED TO BE DELETED                        MAP         1282     A     
 MAP                IX7    X2/X3                                                           MAP         1283     A     
 MAP                =X1    X7-MAPMRL                                                       MAP         1284     A     
 MAP                PL     X1,DMF.RTN  IF THIS IS A GOOD FORMAT                            MAP         1285     A     
 MAP                =X6    X6-1                                                            MAP         1286     A     
 MAP                BX2    X5          REFRESH # OF ENTRIES                                MAP         1287     A     
 MAP                EQ     DMF45       TRY NEXT VALUE                                      MAP         1288     A     
 MAP                                                                                       MAP         1289     A     
 MAP      **        DELF WILL RETURN HERE.                                                 MAP         1290     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1883    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         1291     A     
 MAP       DMF.RTN  SA6    MOCTC       SET TRIP COUNT                                      MAP         1292     A     
 MAP                MX6    0                                                               MAP         1293     A     
 MAP                SA6    SRNI.LED    INITIALIZE LAST ELEMENT OF DIVISION                 MAP         1294     A     
 MAP                SB2    5                                                               MAP         1295          I
          -FC50488
 MAP                SB2    3                                                               FC50488        6     A     
 MAP                RJ     SRNI        SET RNI PARAMETERS                                  MAP         1296     A     
 MAP                EQ     EXIT.                                                           MAP         1297     A     
 MAP       EFE      SPACE  4,10                                                            MAP         1298     A     
 MAP      **        EFE -  ENTER FAKE ENTRY PTS IN SYMTAB.                                 MAP         1299     A     
 MAP      *                                                                                MAP         1300     A     
 MAP      *         THIS IS A KLUDGE TO ENABLE FUNCTION ENTRY POINTS TO APPEAR             MAP         1301     A     
 MAP      *         IN BOTH THE VARIABLE MAP AND THE ENTRY POINT MAP.                      MAP         1302     A     
 MAP      *                                                                                MAP         1303     A     
 MAP      *         EXIT   *MAPNEW* = NUMBER OF WORDS ADDED TO SYMBOL TABLE.               MAP         1304     A     
 MAP      *                                                                                MAP         1305     A     
 MAP      *                FAKE ENTRY POINTS ARE IN SYMBOL TABLE.                          MAP         1306     A     
 MAP      *                                                                                MAP         1307     A     
 MAP      *         USES   X - ALL  A - ALL  B - 2,3,4,5,7.                                MAP         1308     A     
 MAP      *                                                                                MAP         1309     A     
 MAP      *         CALLS  STS,SRC,ALLOC.                                                  MAP         1310     A     
 MAP                                                                                       MAP         1311     A     
 MAP       EFE      SUBR               ENTRY/EXIT...                                       MAP         1312     A     
 MAP                MX6    0                                                               MAP         1313     A     
 MAP                SA6    MAPNEW                                                          MAP         1314     A     
 MAP                SA1    MOD                                                             MAP         1315     A     
 MAP                IFBIT  X1,-MO.FUNP,EXIT. IF NOT COMPILING A FUNCTION                   MAP         1316          I
          -FC5A391
 MAP                SBIT   X1,MO.FUNP                                                      FC5A391        5     A     
 MAP                PL     X1,EXIT.    IF NOT COMPILING A FUNCTION                         FC5A391        6     A     
 MAP                CLAS=  X5,WB,(ENT)                                                     MAP         1317     A     
 MAP                CLAS=  X4,WB,(CGS,LAB)                                                 MAP         1318     A     
 MAP                SB4    100         SET UP STS ENTRY CONDITIONS                         MAP         1319     A     
 MAP                RJ     STS         SEPARATE ENTRY POINTS FROM SYMTAB                   MAP         1320     A     
 MAP                SA1    T=SCR       X1 = NUMBER OF ENTRY POINTS                         MAP         1321     A     
 MAP                SB2    X1                                                              MAP         1322     A     
 MAP                LX1    1                                                               MAP         1323     A     
 MAP                SX6    X1+B2       X6 = NUMBER OF WORDS TO ADD TO SYMTAB               MAP         1324     A     
 MAP                SA6    MAPNEW                                                          MAP         1325     A     
 MAP                BX5    X6                                                              MAP         1326     A     
 MAP                ALLOC  T.SYM,X6                                                        MAP         1327     A     
 MAP                SA1    T.SYM                                                           MAP         1328     A     
 MAP                SA2    T=SYM                                                           MAP         1329     A     
 MAP                IX2    X1+X2                                                           MAP         1330     A     
 MAP                IX2    X2-X5                                                           MAP         1331     A     
 MAP                SB5    X2          B5 = ADDRESS OF *WA* OF 1ST FAKE ENTRY              MAP         1332     A     
 MAP                =B2    0           LOOP COUNTER                                        MAP         1333     A     
 MAP                SB3    X5          LOOP LIMIT                                          MAP         1334     A     
 MAP                SA5    T.SCR                                                           MAP         1335     A     
 MAP                =A3    X5-1        INITIALIZE FETCH REG                                MAP         1336     A     
 MAP                SA2    S=VALUE                                                         MAP         1337     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1884    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                CLAS=  X4,WB,(EQV,BASE,BMEM,CGS,1REF,FP)                               MAP         1338          I
          -FC5A109
 MAP                                                                                       MAP         1339     A     
 MAP       EFE10    =A3    A3+1                                                            MAP         1340     A     
 MAP                CLAS=  X4,WB,(EQV,BASE,BMEM,CGS,1REF,FP,MODE)                          FC5A109       19          I
          -FC5A191
 MAP                CLAS=  X4,WB,(EQV,BASE,BMEM,CGS,1REF,FP,MODE,MDF)                      FC5A191       20     A     
 MAP                XTRCT  MT.WAI,X3,X3     ISOLATE *WA* OFFSET OF REAL ENTRY              MAP         1341     A     
 MAP                SB7    X3                                                              MAP         1342     A     
 MAP                SA5    X1+B7                                                           MAP         1343     A     
 MAP                BX6    X5                                                              MAP         1344     A     
 MAP                SA6    B2+B5       FIX *WA* OF FAKE ENTRY                              MAP         1345     A     
 MAP                RJ     SRC         SEARCH REFERENCE CHAIN                              MAP         1346     A     
 MAP                =B4    X3+WB.W                                                         MAP         1347     A     
 MAP                SA5    X1+B4       *WB* OF REAL ENTRY                                  MAP         1348     A     
 MAP                XTRCT  WB.MODE,X5,X5     ISOLATE MODE OF REAL ENTRY                    MAP         1349          I
          -FC5A109
 MAP                IX5    X5+X2                                                           MAP         1350          I
          -FC5A109
 MAP                XTRCT  WB.MODE,X5,X6     ISOLATE MODE OF REAL ENTRY                    FC5A109       20     A     
 MAP                IX5    X6+X2                                                           FC5A109       21     A     
 MAP                SB7    X5                                                              MAP         1351     A     
 MAP                LX5    1                                                               MAP         1352     A     
 MAP                SX5    X5+B7                                                           MAP         1353     A     
 MAP                =B7    X5+WB.W     X5 = OFFSET OF PROPER VALUE.                        MAP         1354     A     
 MAP                SA5    X1+B7       *WB* OF THE VALUE.                                  MAP         1355     A     
 MAP                BX6    -X4*X5      ERASE SOME BITS                                     MAP         1356          I
          -FC5A109
 MAP                BX5    -X4*X5      ERASE SOME FIELDS                                   FC5A109       22     A     
 MAP                LX6    WB.MODEP                                                        FC5A109       23     A     
 MAP                BX6    X5+X6       ADD IN MODE OF ENTRY POINT                          FC5A109       24     A     
 MAP                SA6    A6-WA.W+WB.W      FIX *WB* OF THE FAKE ENTRY                    MAP         1357     A     
 MAP                =B4    B4-WB.W+WC.W                                                    MAP         1358     A     
 MAP                SA4    X1+B4                                                           MAP         1359     A     
 MAP                MX0    -WC.CLIFL                                                       MAP         1360     A     
 MAP                LX0    WC.CLIFP                                                        MAP         1361     A     
 MAP                BX4    -X0*X4      ISOLATE CLIF                                        MAP         1362     A     
 MAP                SA5    A5-WB.W+WC.W      X5 = *WC* OF THE VALUE.                       MAP         1363     A     
 MAP                BX6    X5*X0       ERASE CLIF                                          MAP         1364     A     
 MAP                BX6    X6+X4                                                           MAP         1365     A     
 MAP                SA6    A6-WB.W+WC.W      FIX *WC* OF FAKE ENTRY                        MAP         1366     A     
 MAP                SB2    B2+Z=SYM                                                        MAP         1367     A     
 MAP                GE     B2,B3,EXIT. IF ALL DONE                                         MAP         1368     A     
 MAP                EQ     EFE10                                                           MAP         1369     A     
 MAP       GBL      SPACE  4,10                                                            MAP         1370     A     
 MAP      **        GBL - GET BUFFER LENGTH (IN CHARS).                                    MAP         1371     A     
 MAP      *                                                                                MAP         1372     A     
 MAP      *         EXIT   (X2) = BUFFER LENGTH IN CHARACTERS.                             MAP         1373     A     
 MAP      *                                                                                MAP         1374     A     
 MAP      *         CALLS  WC.                                                             MAP         1375     A     
 MAP      *                                                                                MAP         1376     A     
 MAP      *         USES   X - 2,3,4  A - 2  B - 2.                                        MAP         1377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1885    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         1378     A     
 MAP       GBL      SUBR               ENTRY/EXIT...                                       MAP         1379     A     
 MAP                                                                                       MAP         1380     A     
 MAP                SA2    PCB.WO                                                          MAP         1381     A     
 MAP                SX2    X2+2                                                            MAP         1382     A     
 MAP                WC     X3,X2       CONVERT TO CHARACTER COUNT                          MAP         1383     A     
 MAP                SA2    PCB.SC                                                          MAP         1384     A     
 MAP                MX4    0                                                               MAP         1385     A     
 MAP                SB2    X2-60                                                           MAP         1386     A     
 MAP                ZR     B2,GBL10    IF AT START OF WORD                                 MAP         1387     A     
 MAP                SX3    X3-10                                                           MAP         1388     A     
 MAP                SX4    6                                                               MAP         1389     A     
 MAP                IX4    X2/X4                                                           MAP         1390     A     
 MAP                SX2    10                                                              MAP         1391     A     
 MAP                IX4    X2-X4       X4 = CHARS IN LAST WORD                             MAP         1392     A     
 MAP                                                                                       MAP         1393     A     
 MAP       GBL10    IX2    X3+X4       X2 = TOTAL CHARS IN BUFFER                          MAP         1394     A     
 MAP                EQ     EXIT.                                                           MAP         1395     A     
 MAP       GBM      SPACE  4,10                                                            MAP         1396          I
          -FC5A185
 MAP      **        GBM - GET BLOCK MEMBERS.                                               MAP         1397          I
          -FC5A185
 MAP      *                                                                                MAP         1398          I
          -FC5A185
 MAP      *         WILL USE STS TO SEPARATE ALL MEMBERS OF A COMMON BLOCK                 MAP         1399          I
          -FC5A185
 MAP      *         FROM THE SYMTAB. EACH MEMBER SO SEPARATED WILL HAVE A                  MAP         1400          I
          -FC5A185
 MAP      *         ONE WORD SORT KEY ADDED TO T.SCR WITH THE HIGH ORDER                   MAP         1401          I
          -FC5A185
 MAP      *         SORT KEY CONSISTING OF THE WC.RA FIELD, AND THE LOW ORDER              MAP         1402          I
          -FC5A185
 MAP      *         SORT KEY CONSISTING OF THE SYMTAB *WB* INDEX.                          MAP         1403          I
          -FC5A185
 MAP      *                                                                                MAP         1404          I
          -FC5A185
 MAP      *         ENTRY  (X5) = CURRENT BLOCK INDEX.                                     MAP         1405          I
          -FC5A185
 MAP      *                                                                                MAP         1406          I
          -FC5A185
 MAP      *         EXIT   BLOCK MEMBERS ON T.SCR.                                         MAP         1407          I
          -FC5A185
 MAP      *                                                                                MAP         1408          I
          -FC5A185
 MAP      *         CALLS  STS.                                                            MAP         1409          I
          -FC5A185
 MAP      *                                                                                MAP         1410          I
          -FC5A185
 MAP      *         USES   X - ALL  A - 1,2,3,4,5,6  B - 2,3,4,7.                          MAP         1411          I
          -FC5A185
 MAP      *                                                                                MAP         1412          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1886    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         KEEPS  X5.                                                             MAP         1413          I
          -FC5A185
 MAP                                                                                       MAP         1414          I
          -FC5A185
 MAP       GBM      SUBR               ENTRY/EXIT...                                       MAP         1415          I
          -FC5A185
 MAP                BX6    X5                                                              MAP         1416          I
          -FC5A185
 MAP                SA6    STS.BI      PRESERVE X5                                         MAP         1417          I
          -FC5A185
 MAP                CLAS=  X5,WB,(COM)                                                     MAP         1418          I
          -FC5A185
 MAP                CLAS=  X4,WB,(CGS)                                                     MAP         1419          I
          -FC5A185
 MAP                =B4    TCOMP                                                           MAP         1420          I
          -FC5A185
 MAP                RJ     STS         SEPARATE BLOCK MEMBERS                              MAP         1421          I
          -FC5A185
 MAP                SA5    STS.BI      RESTORE X5                                          MAP         1422          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         1423          I
          -FC5A185
 MAP       GLE      SPACE  4,10                                                            FC5A185      120     A     
 MAP      **        GLE - GET LOCAL EQUIVALENCE CLASSES.                                   FC5A185      121     A     
 MAP      *                                                                                FC5A185      122     A     
 MAP      *         THIS ROUTINE WILL FIND ALL LOCAL EQUIVALENCE CLASSES                   FC5A185      123     A     
 MAP      *         IN T.ECT, REFORMATTING EACH ENTRY TO MT. FORMAT, AND                   FC5A185      124     A     
 MAP      *         PUTTING IT ON T.SCR FOR PROCESSING BY *OML*.                           FC5A185      125     A     
 MAP      *                                                                                FC5A185      126     A     
 MAP      *         ENTRY  T.ECT CONTAINS ALL EQUIVALENCE CLASSES, THE BASE                FC5A185      127     A     
 MAP      *                MEMBER OF ALL NON-LOCAL CLASSES HAVING BIT 59 SET.              FC5A185      128     A     
 MAP      *                                                                                FC5A185      129     A     
 MAP      *         EXIT   T.SCR CONTAINS ALL LOCAL EQUIVALENCE CLASSES                    FC5A185      130     A     
 MAP      *                IN MT. FORMAT.                                                  FC5A185      131     A     
 MAP      *                                                                                FC5A185      132     A     
 MAP      *         CALLS  SCS,ADW.                                                        FC5A185      133     A     
 MAP      *                                                                                FC5A185      134     A     
 MAP      *         USES   X - 0,1,2,3,5,6,7  A - 1,2,3,6,7  B - 2,7.                      FC5A185      135     A     
 MAP                                                                                       FC5A185      136     A     
 MAP                                                                                       FC5A185      137     A     
 MAP       GLE      SUBR               ENTRY/EXIT...                                       FC5A185      138     A     
 MAP                SHRINK T=SCR                                                           FC5A185      139     A     
 MAP                                                                                       FC5A185      140     A     
 MAP      **        LOOK FOR A LOCAL EQUIVALENCE CLASS.                                    FC5A185      141     A     
 MAP                                                                                       FC5A185      142     A     
 MAP       GLE10    MX7    1                                                               FC5A185      143     A     
 MAP                LDBIT  X1,TE.NBP                                                       FC5A185      144     A     
 MAP                BX7    X1+X7                                                           FC5A185      145     A     
 MAP                SA7    SCSA                                                            FC5A185      146     A     
 MAP                MX6    0                                                               FC5A185      147     A     
 MAP                SCAN   T.ECT,SCS                                                       FC5A185      148     A     
 MAP                MI     B7,EXIT.    IF NO MORE CLASSES                                  FC5A185      149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1887    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MX6    1                                                               FC5A185      150     A     
 MAP                BX6    X6+X2                                                           FC5A185      151     A     
 MAP                SA6    A2          MARK CLASS PROCESSED                                FC5A185      152     A     
 MAP                                                                                       FC5A185      153     A     
 MAP       GLE20    =B6    B7+1        PRESERVE INDEX OF 1ST MEMBER                        FC5A185      154     A     
 MAP                =B2    B6                                                              FC5A185      155     A     
 MAP                SA1    T=ECT                                                           FC5A185      156     A     
 MAP                SB3    X1                                                              FC5A185      157     A     
 MAP                SA1    T.ECT                                                           FC5A185      158     A     
 MAP                                                                                       FC5A185      159     A     
 MAP      **        NOW WE REFORMAT EACH MEMBER, ADDING IT TO T.SCR, AND                   FC5A185      160     A     
 MAP      *         COUNTING THE TOTAL NUMBER OF MEMBERS.                                  FC5A185      161     A     
 MAP                                                                                       FC5A185      162     A     
 MAP       GLE30    SA1    X1+B2       X1 = NEXT MEMBER (TE. FORMAT)                       FC5A185      163     A     
 MAP                HX1    TE.NB                                                           FC5A185      164     A     
 MAP                PL     X1,GLE40    IF END OF CLASS                                     FC5A185      165     A     
 MAP                LX1    1+TE.NBP-TE.SYMIP                                               FC5A185      166     A     
 MAP                SX6    X1                                                              FC5A185      167     A     
 MAP                ERRNZ  TE.SYMIL-18                                                     FC5A185      168     A     
 MAP                LX6    MT.WAIP                                                         FC5A185      169     A     
 MAP                LX1    TE.SYMIP                                                        FC5A185      170     A     
 MAP                XTRCT  TE.BIAS,X1,X1     X1 = BIAS FROM BASE                           FC5A185      171     A     
 MAP                LX1    MT.RAP                                                          FC5A185      172     A     
 MAP                BX6    X6+X1                                                           FC5A185      173     A     
 MAP                ADDWD  T.SCR       ADD REFORMATTED MEMBER TO T.SCR                     FC5A185      174     A     
 MAP                =B2    B2+1                                                            FC5A185      175     A     
 MAP                SA1    T.ECT       REFRESH FWA OF TABLE                                FC5A185      176     A     
 MAP                LT     B2,B3,GLE30 IF MORE MEMBERS                                     FC5A185      177     A     
 MAP                                                                                       FC5A185      178     A     
 MAP      GLE40     SX6    B2-B6       X6 = NUMBER OF CLASS MEMBERS                        FC5A185      179     A     
 MAP                SB2    X6                                                              FC5A185      180     A     
 MAP                SA1    B7-B2       X1 = 1ST MEMBER OF CLASS (MT. FORMAT)               FC5A185      181     A     
 MAP                LX6    MT.NMGP                                                         FC5A185      182     A     
 MAP                BX6    X6+X1                                                           FC5A185      183     A     
 MAP                SA6    A1          ADD LENGTH TO 1ST MEMBER                            FC5A185      184     A     
 MAP                EQ     GLE10       FIND NEXT CLASS                                     FC5A185      185     A     
 MAP       GNB      SPACE  4,10                                                            FC5A185      186     A     
 MAP      **        GNB - GET NEXT BLOCK.                                                  FC5A185      187     A     
 MAP      *                                                                                FC5A185      188     A     
 MAP      *         THIS ROUTINE WILL FIND THE NEXT COMMON BLOCK, AND COLLECT              FC5A185      189     A     
 MAP      *         ALL MEMBERS OF THAT BLOCK IN T.SCR VIA A CALL TO *STS*.                FC5A185      190     A     
 MAP      *                                                                                FC5A185      191     A     
 MAP      *         ENTRY  *OBI.BI* - CONTAINS THE CURRENT BLOCK INDEX.                    FC5A185      192     A     
 MAP      *                                                                                FC5A185      193     A     
 MAP      *         EXIT   (X3),*OBI.BI* - UPDATED BLOCK INDEX.(MI IF NONE LEFT)           FC5A185      194     A     
 MAP      *                                                                                FC5A185      195     A     
 MAP      *         CALLS  STS,SST,MEC.                                                    FC5A185      196     A     
 MAP      *                                                                                FC5A185      197     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,5,6  B - 2,3,4,5,6,7.                      FC5A185      198     A     
 MAP                                                                                       FC5A185      199     A     
 MAP                                                                                       FC5A185      200     A     
 MAP       GNB      SUBR               ENTRY/EXIT...                                       FC5A185      201     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1888    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       FC5A185      202     A     
 MAP       GNB10    SA1    T=BLKS                                                          FC5A185      203     A     
 MAP                SA5    OBI.BI                                                          FC5A185      204     A     
 MAP                =X1    X1-1                                                            FC5A185      205     A     
 MAP                SX5    X5+Z=BLKS                                                       FC5A185      206     A     
 MAP                IX3    X1-X5                                                           FC5A185      207     A     
 MAP                MI     X3,EXIT.    IF NO MORE BLOCKS                                   FC5A185      208     A     
 MAP                BX6    X5                                                              FC5A185      209     A     
 MAP                SA6    A5          UPDATE BLOCK COUNT                                  FC5A185      210     A     
 MAP                SA1    T.BLKS                                                          FC5A185      211     A     
 MAP                SB2    X5                                                              FC5A185      212     A     
 MAP                SA1    X1+B2                                                           FC5A185      213     A     
 MAP                XTRCT  CA.BNAM,X1,X1     X1 = BLOCK NAME                               FC5A185      214     A     
 MAP                SA2    =7RS$A$V$E                                                      FC5A185      215     A     
 MAP                BX1    X1-X2                                                           FC5A185      216     A     
 MAP                ZR     X1,GNB10    IF S$A$V$E BLOCK, SKIP IT                           FC5A185      217     A     
 MAP                                                                                       FC5A185      218     A     
 MAP      **        NOW WE COLLECT ALL BLOCK MEMBERS, SORT THEM BY RA,                     FC5A185      219     A     
 MAP      *         AND MARK ALL EQUIVALENCE CLASSES.                                      FC5A185      220     A     
 MAP                                                                                       FC5A185      221     A     
 MAP                SA6    STS.BI      TELL STS ABOUT BLOCK NUMBER                         FC5A185      222     A     
 MAP                CLAS=  X5,WB,(COM)                                                     FC5A185      223     A     
 MAP                CLAS=  X4,WB,(CGS)                                                     FC5A185      224     A     
 MAP                =B4    TCOMP                                                           FC5A185      225     A     
 MAP                RJ     STS         SEPARATE BLOCK MEMBERS                              FC5A185      226     A     
 MAP                SA2    T.SCR                                                           FC5A185      227     A     
 MAP                SA1    T=SCR                                                           FC5A185      228     A     
 MAP                SB7    X2                                                              FC5A185      229     A     
 MAP                CALL   SST         SORT BY RELATIVE ADDRESS                            FC5A185      230     A     
 MAP                RJ     MEC         MARK EQUIVALENCE CLASSES                            FC5A185      231     A     
 MAP                SA3    OBI.BI                                                          FC5A273        5     A     
 MAP                EQ     EXIT.                                                           FC5A185      232     A     
 MAP       JIF      SPACE  4,10                                                            MAP         1424     A     
 MAP      **        JIF -  JUSTIFY ITEM IN A FIELD.                                        MAP         1425     A     
 MAP      *                                                                                MAP         1426     A     
 MAP      *         ALLOWS FLEXIBILITY IN JUSTIFYING A PROCESSOR OUTPUT.                   MAP         1427     A     
 MAP      *         SHOULD BE USED ONLY WHEN THE OUTPUT OF A COMPLETE                      MAP         1428     A     
 MAP      *         ITEM CAN BE ACCOMPLISHED WITH ONE JIF CALL.                            MAP         1429     A     
 MAP      *         (OTHERWISE THE PURPOSE OF THE ROUTINE IS DEFEATED)                     MAP         1430     A     
 MAP      *                                                                                MAP         1431     A     
 MAP      *         ENTRY  (B5) = WIDTH IN CHARS OF FIELD.                                 MAP         1432     A     
 MAP      *                (B6) = IF PL - WIDTH IN CHARS OF ITEM.                          MAP         1433     A     
 MAP      *                       IF MI - INDICATES WIDTH IS UNKNOWN.                      MAP         1434     A     
 MAP      *                (X0) = BIT 0 INDICATES JUSTIFICATION OF OUTPUT.                 MAP         1435     A     
 MAP      *                       BIT 1 INDICATES JUSTIFICATION OF INPUT.                  MAP         1436     A     
 MAP      *                       -  OFF IMPLIES LEFT JUSTIFICATION.                       MAP         1437     A     
 MAP      *                       -  ON IMPLIES RIGHT JUSTIFICATION.                       MAP         1438     A     
 MAP      *                (A1) = ADRS 1ST WORD OF ITEM. (ONLY IF WIDTH GT 10).            MAP         1439     A     
 MAP      *                (X1) = 1ST WORD OF ITEM.                                        MAP         1440     A     
 MAP      *                                                                                MAP         1441     A     
 MAP      *         USES   X - ALL  A - 1,2,3,6  B - ALL.                                  MAP         1442     A     
 MAP      *                                                                                MAP         1443     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1889    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         CALLS  BC,CCBB,PCB.                                                    MAP         1444     A     
 MAP                                                                                       MAP         1445     A     
 MAP       JIF      SUBR               ENTRY/EXIT...                                       MAP         1446     A     
 MAP                LX0    58                                                              MAP         1447     A     
 MAP                PL     B6,JIF10    IF ITEM WIDTH IS KNOWN                              MAP         1448     A     
 MAP                RJ     CCBB        DETERMINE WIDTH                                     MAP         1449     A     
 MAP                                                                                       MAP         1450     A     
 MAP       JIF10    PL     X0,JIF20    IF ITEM ALREADY LEFT JUSTIFIED                      MAP         1451     A     
 MAP                SX2    B6                                                              MAP         1452     A     
 MAP                BC     X3,X2       CONVERT TO BIT COUNT                                MAP         1453     A     
 MAP                SB4    X3-10*CHAR                                                      MAP         1454     A     
 MAP                AX1    B4,X1       LEFT JUSTIFY                                        MAP         1455     A     
 MAP                                                                                       MAP         1456     A     
 MAP       JIF20    LX0    1                                                               MAP         1457     A     
 MAP                SB4    B5-B6                                                           MAP         1458     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         1459     A     
 MAP                MI     B4,"BLOWUP" IF FIELD TOO SMALL                                  MAP         1460     A     
 MAP                                                                                       MAP         1461     A     
 MAP                PL     X0,JIF30    IF OUTPUT TO BE LEFT JUSTIFIED                      MAP         1462     A     
 MAP                SB7    B6          PRESERVE ITEM WIDTH                                 MAP         1463     A     
 MAP                SB5    A1          PRESERVE ITEM ADDRESS                               MAP         1464     A     
 MAP                BX5    X1          PRESERVE 1ST WORD OF ITEM                           MAP         1465     A     
 MAP                SB6    B4                                                              MAP         1466     A     
 MAP                SA1    MAP.XS                                                          MAP         1467     A     
 MAP                RJ     PCB                                                             MAP         1468     A     
 MAP                SB6    B7          RESTORE ITEM WIDTH                                  MAP         1469     A     
 MAP                SA1    B5          RESTORE ITEM ADDRESS                                MAP         1470     A     
 MAP                BX1    X5          RESTORE ITEM                                        MAP         1471     A     
 MAP                RJ     PCB                                                             MAP         1472     A     
 MAP                EQ     EXIT.                                                           MAP         1473     A     
 MAP                                                                                       MAP         1474     A     
 MAP       JIF30    SB7    B6-10                                                           MAP         1475     A     
 MAP                PL     B7,JIF40    IF ITEM WIDTH GE 10                                 MAP         1476     A     
 MAP                SB7    B5-11                                                           MAP         1477     A     
 MAP                MI     B7,JIF40    IF FIELD WIDTH LE 10                                MAP         1478     A     
 MAP                SB6    10                                                              MAP         1479     A     
 MAP                RJ     PCB                                                             MAP         1480     A     
 MAP                SB6    B4                                                              MAP         1481     A     
 MAP                SA1    MAP.XS                                                          MAP         1482     A     
 MAP                RJ     PCB                                                             MAP         1483     A     
 MAP                EQ     EXIT.                                                           MAP         1484     A     
 MAP                                                                                       MAP         1485     A     
 MAP       JIF40    SB6    B5                                                              MAP         1486     A     
 MAP                RJ     PCB                                                             MAP         1487     A     
 MAP                EQ     EXIT.                                                           MAP         1488     A     
 MAP       MEC      SPACE  4,10                                                            FC5A185      233     A     
 MAP      **        MEC - MARK EQUIVALENCE CLASSES.                                        FC5A185      234     A     
 MAP      *                                                                                FC5A185      235     A     
 MAP      *         THIS ROUTINE WILL MAKE ONE PASS THROUGH A TABLE                        FC5A185      236     A     
 MAP      *         OF COMMON BLOCK MEMBERS, AND MARK EACH EQUIVALENCE                     FC5A185      237     A     
 MAP      *         CLASS BY PLACING A COUNT OF THE NUMBER OF CLASS                        FC5A185      238     A     
 MAP      *         MEMBERS IN THE UPPER 18 BITS OF THE 1ST MEMBER                         FC5A185      239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1890    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         OF THAT CLASS ENCOUNTERED. IT WILL ALSO MARK GROUPS                    FC5A185      240     A     
 MAP      *         OF NON-EQUIVALENCED ITEMS IN THE SAME MANNER.                          FC5A185      241     A     
 MAP      *                                                                                FC5A185      242     A     
 MAP      *         NOTE - THIS ROUTINE ASSUMES THAT CLASS MEMBERS WILL                    FC5A185      243     A     
 MAP      *                OCCUR CONSECUTIVELY IN THE TABLE.                               FC5A185      244     A     
 MAP      *                                                                                FC5A185      245     A     
 MAP      *         ENTRY  BLOCK MEMBERS ON T.SCR.  (MT. FORMAT)                           FC5A185      246     A     
 MAP      *                                                                                FC5A185      247     A     
 MAP      *         EXIT   EQUIVALENCE CLASSES MARKED. (MT.NMG FILLED IN)                  FC5A185      248     A     
 MAP      *                                                                                FC5A185      249     A     
 MAP      *         CALLS  SCS.                                                            FC5A185      250     A     
 MAP      *                                                                                FC5A185      251     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,5,6  B - 2,3,4,5,6,7.                      FC5A185      252     A     
 MAP                                                                                       FC5A185      253     A     
 MAP                                                                                       FC5A185      254     A     
 MAP       MEC      SUBR               ENTRY/EXIT...                                       FC5A185      255     A     
 MAP                SA4    T.SCR                                                           FC5A185      256     A     
 MAP                SA2    T=SCR                                                           FC5A185      257     A     
 MAP                SA5    T.SYM                                                           FC5A185      258     A     
 MAP                BX7    X5                                                              FC5A185      259     A     
 MAP                =B3    0                                                               FC5A185      260     A     
 MAP                SB4    X2                                                              FC5A185      261     A     
 MAP                IFEQ   TEST,ON,1                                                       FC5A185      262     A     
 MAP                ZR     B4,"BLOWUP" IF TABLE EMPTY                                      FC5A185      263     A     
 MAP                                                                                       FC5A185      264     A     
 MAP       MEC10    SA5    X4+B3       X5 = ENTRY OF T.SCR                                 FC5A185      265     A     
 MAP                LX5    -MT.WAIP                                                        FC5A185      266     A     
 MAP                =B6    X5-WA.W+WB.W                                                    FC5A185      267     A     
 MAP                ERRNZ  MT.WAIL-18                                                      FC5A185      268     A     
 MAP                LX5    MT.WAIP                                                         FC5A185      269     A     
 MAP                SA1    X7+B6       X1 = *WB* OF ITEM                                   FC5A185      270     A     
 MAP                HX1    WB.EQV                                                          FC5A185      271     A     
 MAP                MI     X1,MEC40    IF FOUND AN EQUIVALENCE CLASS                       FC5A185      272     A     
 MAP                                                                                       FC5A185      273     A     
 MAP      **        HERE IF NON-EQUIVALENCED ITEM FOUND.  WE NEED TO                       FC5A185      274     A     
 MAP      *         COUNT THE NUMBER OF CONSECUTIVE ITEMS OF THIS KIND,                    FC5A185      275     A     
 MAP      *         AND CHANGE THE SIGN TO INDICATE *NON-EQUIVALENCED ITEMS*.              FC5A185      276     A     
 MAP                                                                                       FC5A185      277     A     
 MAP                =B2    0                                                               FC5A185      278     A     
 MAP                                                                                       FC5A185      279     A     
 MAP       MEC20    =B2    B2+1                                                            FC5A185      280     A     
 MAP                SA1    A5+B2       X1 = NEXT T.SCR ENTRY                               FC5A185      281     A     
 MAP                SB6    B3+B2                                                           FC5A185      282     A     
 MAP                GE     B6,B4,MEC30 IF TABLE EXHAUSTED                                  FC5A185      283     A     
 MAP                LX1    -MT.WAIP                                                        FC5A185      284     A     
 MAP                =B6    X1-WA.W+WB.W                                                    FC5A185      285     A     
 MAP                ERRNZ  MT.WAIL-18                                                      FC5A185      286     A     
 MAP                SA1    X7+B6       X1 = *WB* OF ITEM                                   FC5A185      287     A     
 MAP                HX1    WB.EQV                                                          FC5A185      288     A     
 MAP                PL     X1,MEC20    IF NOT EQUIVALENCED                                 FC5A185      289     A     
 MAP                                                                                       FC5A185      290     A     
 MAP       MEC30    SX6    -B2                                                             FC5A185      291     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1891    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MX0    -MT.NMGL                                                        FC5A185      292     A     
 MAP                BX6    -X0*X6                                                          FC5A185      293     A     
 MAP                EQ     MEC80                                                           FC5A185      294     A     
 MAP                                                                                       FC5A185      295     A     
 MAP      **        HERE FOR EACH EQUIVALENCE CLASS. WE NEED TO LOCATE                     FC5A185      296     A     
 MAP      *         THE T.ECT ENTRY CORRESPONDING TO THE ITEM JUST FOUND.                  FC5A185      297     A     
 MAP                                                                                       FC5A185      298     A     
 MAP       MEC40    MX6    TE.SYMIL                                                        FC5A185      299     A     
 MAP                LX6    TE.SYMIL+TE.SYMIP                                               FC5A185      300     A     
 MAP                SA6    SCSA                                                            FC5A185      301     A     
 MAP                =X6    B6-WB.W+WA.W                                                    FC5A185      302     A     
 MAP                SCAN   T.ECT,SCS   FIND ITEM IN T.ECT                                  FC5A185      303     A     
 MAP                                                                                       FC5A185      304     A     
 MAP      **        NEXT WE SEARCH BACKWARDS TO LOCATE THE BASE MEMBER                     FC5A185      305     A     
 MAP      *         SO IT CAN BE MARKED *PROCESSED*.                                       FC5A185      306     A     
 MAP      *         (A2) _ T.ECT ENTRY OF CLASS MEMBER.                                    FC5A185      307     A     
 MAP      *         (B7) = MI IF ITEM NOT IN TABLE. INDEX OF ITEM OTHERWISE.               FC5A185      308     A     
 MAP                                                                                       FC5A185      309     A     
 MAP                =B2    0                                                               FC5A185      310     A     
 MAP                                                                                       FC5A185      311     A     
 MAP       MEC50    =B2    B2+1                                                            FC5A185      312     A     
 MAP                SA3    A2-B2       X3 = NEXT T.ECT ENTRY                               FC5A185      313     A     
 MAP                =B7    B7-1                                                            FC5A185      314     A     
 MAP                IFEQ   TEST,ON,1                                                       FC5A185      315     A     
 MAP                MI     B7,"BLOWUP" IF *NIT*                                            FC5A185      316     A     
 MAP                HX3    TE.NB                                                           FC5A185      317     A     
 MAP                MI     X3,MEC50    IF NOT BASE MEMBER                                  FC5A185      318     A     
 MAP                                                                                       FC5A185      319     A     
 MAP                LX3    TE.NBP+1                                                        FC5A185      320     A     
 MAP                MX6    1                                                               FC5A185      321     A     
 MAP                BX6    X6+X3                                                           FC5A185      322     A     
 MAP                SA6    A3          MARK CLASS *PROCESSED*                              FC5A185      323     A     
 MAP                                                                                       FC5A185      324     A     
 MAP      **        NOW WE SEARCH FORWARD STARTING AT A2+1 TO FIND                         FC5A185      325     A     
 MAP      *         EITHER THE END OF THE TABLE, OR THE BASE MEMBER OF                     FC5A185      326     A     
 MAP      *         THE NEXT CLASS, COUNTING AS WE GO.                                     FC5A185      327     A     
 MAP      *         (B2) = NUMBER OF MEMBERS FOUND SO FAR.                                 FC5A185      328     A     
 MAP                                                                                       FC5A185      329     A     
 MAP                SA1    T.ECT                                                           FC5A185      330     A     
 MAP                SA3    T=ECT                                                           FC5A185      331     A     
 MAP                =B6    0                                                               FC5A185      332     A     
 MAP                IX1    X1+X3                                                           FC5A185      333     A     
 MAP                SB5    X1          B5 = LWA + 1                                        FC5A185      334     A     
 MAP                                                                                       FC5A185      335     A     
 MAP       MEC60    =B6    B6+1                                                            FC5A185      336     A     
 MAP                SA3    A2+B6       X3 = NEXT T.ECT ENTRY                               FC5A185      337     A     
 MAP                SX6    A3-B5                                                           FC5A185      338     A     
 MAP                ZR     X6,MEC70    IF END OF TABLE                                     FC5A185      339     A     
 MAP                HX3    TE.NB                                                           FC5A185      340     A     
 MAP                MI     X3,MEC60    IF NOT BASE MEMBER                                  FC5A185      341     A     
 MAP                                                                                       FC5A185      342     A     
 MAP       MEC70    =B6    B6-1                                                            FC5A185      343     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1892    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SB2    B2+B6       B2 = COUNT OF MEMBERS                               FC5A185      344     A     
 MAP                SX6    B2                                                              FC5A185      345     A     
 MAP                                                                                       FC5A185      346     A     
 MAP      **        NOW WE PLACE THE COUNT INTO THE TABLE ENTRY OF THE                     FC5A185      347     A     
 MAP      *         FIRST ITEM OF THE GROUP, AND CHECK FOR END OF PROCESSING.              FC5A185      348     A     
 MAP      *         (A5) _ TABLE ENTRY OF THE FIRST ITEM OF THE GROUP.                     FC5A185      349     A     
 MAP      *         (X5) = TABLE ENTRY OF THE FIRST ITEM.                                  FC5A185      350     A     
 MAP      *         (X6) = COUNT OF ITEMS IN THE GROUP. (WITH PROPER SIGN)                 FC5A185      351     A     
 MAP      *         (B2) = ABSOLUTE VALUE OF X6 ABOVE.                                     FC5A185      352     A     
 MAP                                                                                       FC5A185      353     A     
 MAP       MEC80    LX6    MT.NMGP                                                         FC5A185      354     A     
 MAP                BX6    X5+X6                                                           FC5A185      355     A     
 MAP                SA6    A5          MERGE THE COUNT                                     FC5A185      356     A     
 MAP                SB3    B3+B2       B3 = NEW T.SCR OFFSET                               FC5A185      357     A     
 MAP                LT     B3,B4,MEC10 IF MORE ITEMS                                       FC5A185      358     A     
 MAP                                                                                       FC5A185      359     A     
 MAP                IFEQ   TEST,ON,1                                                       FC5A185      360     A     
 MAP                NE     B3,B4,"BLOWUP"    IF INCONSISTENT INCREMENT                     FC5A185      361     A     
 MAP                EQ     EXIT.                                                           FC5A185      362     A     
 MAP       OBI      SPACE  4,10                                                            MAP         1489     A     
 MAP      **        OBI -  OUTPUT COMMON BLOCK INFORMATION.                                MAP         1490     A     
 MAP      *                                                                                MAP         1491     A     
 MAP      *         THIS ROUTINE HAS 3 MAIN FUNCTIONS :                                    MAP         1492          I
          -FC5A185
 MAP      *                                                                                MAP         1493          I
          -FC5A185
 MAP      *         1)  INITIALIZE CELLS NEEDED BY OTHER COMMON-EQUIVALENCE                MAP         1494          I
          -FC5A185
 MAP      *             MAP ROUTINES.                                                      MAP         1495          I
          -FC5A185
 MAP      *                                                                                MAP         1496          I
          -FC5A185
 MAP      *         2)  COLLECT AND SORT ALL MEMBERS OF THE CURRENT COMMON BLOCK.          MAP         1497          I
          -FC5A185
 MAP      *                                                                                MAP         1498          I
          -FC5A185
 MAP      *         3)  OUTPUT INFO ON THE CURRENT COMMON BLOCK.                           MAP         1499          I
          -FC5A185
 MAP      *                                                                                MAP         1500          I
          -FC5A185
 MAP      *         ENTRY  *OBI.BI* - CONTAINS THE CURRENT BLOCK INDEX.                    MAP         1501     A     
 MAP      *                                                                                MAP         1502     A     
 MAP      *         EXIT   (X3),*OBI.BI* - UPDATED BLOCK INDEX. (MI IF NONE LEFT).         MAP         1503     A     
 MAP      *                                                                                MAP         1504     A     
 MAP      *                *OCEI.SUP* = 0.                                                 MAP         1505     A     
 MAP      *                                                                                MAP         1506     A     
 MAP      *         CALLS  GBM,SST,PCB,WLINE,BNS.                                          MAP         1507          I
          -FC5A185
 MAP      *         CALLS  PCB,WLINE,BNS.                                                  FC5A185      363     A     
 MAP      *                                                                                MAP         1508     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP         1509     A     
 MAP                                                                                       MAP         1510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1893    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       OBI      SUBR               ENTRY/EXIT...                                       MAP         1511     A     
 MAP                                                                                       MAP         1512          I
          -FC5A185
 MAP       OBI10    SA1    T=BLKS                                                          MAP         1513          I
          -FC5A185
 MAP                SA5    OBI.BI                                                          MAP         1514          I
          -FC5A185
 MAP                =X1    X1-2                                                            MAP         1515          I
          -FC5A185
 MAP                SX5    X5+2                                                            MAP         1516          I
          -FC5A185
 MAP                IX3    X1-X5                                                           MAP         1517          I
          -FC5A185
 MAP                MI     X3,EXIT.    IF NO MORE COMMON BLOCKS                            MAP         1518          I
          -FC5A185
 MAP                BX6    X5                                                              MAP         1519          I
          -FC5A185
 MAP                SA6    A5          UPDATE BLOCK INDEX                                  MAP         1520          I
          -FC5A185
 MAP                SA1    T.BLKS                                                          MAP         1521          I
          -FC5A185
 MAP                SB2    X5                                                              MAP         1522          I
          -FC5A185
 MAP                SA1    X1+B2                                                           MAP         1523          I
          -FC5A185
 MAP                XTRCT  CA.BNAM,X1,X1     ISOLATE THE BLOCK NAME                        MAP         1524          I
          -FC5A185
 MAP                SA2    =7RS$A$V$E                                                      MAP         1525          I
          -FC5A185
 MAP                BX1    X1-X2                                                           MAP         1526          I
          -FC5A185
 MAP                ZR     X1,OBI10    IF S$A$V$E BLOCK, SKIP IT                           MAP         1527          I
          -FC5A185
 MAP                                                                                       MAP         1528          I
          -FC5A185
 MAP      **        HERE WE COLLECT AND SORT ALL BLOCK MEMBERS.                            MAP         1529          I
          -FC5A185
 MAP                                                                                       MAP         1530          I
          -FC5A185
 MAP                RJ     GBM         GET BLOCK MEMBERS                                   MAP         1531          I
          -FC5A185
 MAP                SA1    T=SCR                                                           MAP         1532          I
          -FC5A185
 MAP                SA2    T.SCR                                                           MAP         1533          I
          -FC5A185
 MAP                SB7    X2                                                              MAP         1534          I
          -FC5A185
 MAP                CALL   SST         SORT THE MEMBERS                                    MAP         1535          I
          -FC5A185
 MAP                                                                                       MAP         1536          I
          -FC5A185
 MAP      **        OUTPUT BLOCK INFORMATION.                                              MAP         1537          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1894    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                                                                                       MAP         1538          I
          -FC5A185
 MAP                SA1    MAP.XS                                                          MAP         1539     A     
 MAP                SB6    3                                                               MAP         1540     A     
 MAP                RJ     PCB                                                             MAP         1541     A     
 MAP                SA5    OBI.BI                                                          FC5A185      364     A     
 MAP                SA1    T.BLKS                                                          MAP         1542     A     
 MAP                SB2    X5                                                              MAP         1543     A     
 MAP                SA5    X1+B2       *CA*                                                MAP         1544     A     
 MAP                SA2    BLNKCOM                                                         MAP         1545     A     
 MAP                SB6    X2                                                              MAP         1546     A     
 MAP                SB6    B6-B2                                                           MAP         1547     A     
 MAP                SA1    =2H//                                                           MAP         1548     A     
 MAP                ZR     B6,OBI15    IF BLANK COMMON                                     MAP         1549     A     
 MAP                XTRCT  CA.BNAM,X5,X1     ISOLATE BLOCK NAME                            MAP         1550     A     
 MAP                LX1    -CA.BNAML   LEFT JUSTIFY BLOCK NAME                             MAP         1551     A     
 MAP                RJ     BNS         BOUND NAME BY SLASHES                               MAP         1552     A     
 MAP                                                                                       MAP         1553     A     
 MAP       OBI15    SB6    10                                                              MAP         1554     A     
 MAP                RJ     PCB         ADD NAME TO LINE                                    MAP         1555     A     
 MAP                SA5    A5          RESTORE X5                                          MAP         1556     A     
 MAP                XTRCT  CA.BLVL,X5,X1     ISOLATE LEVEL NUMBER                          MAP         1557     A     
 MAP                NZ     X1,OBI17    ** KLUDGE TO AVOID LEV0                             MAP         1558     A     
 MAP                =X1    X1+1                                                            MAP         1559     A     
 MAP                                                                                       MAP         1560     A     
 MAP       OBI17    SX1    X1+33B      CONVERT TO DPC                                      MAP         1561     A     
 MAP                LX1    CHAR                                                            MAP         1562     A     
 MAP                SA2    =8LLEVEL =                                                      MAP         1563     A     
 MAP                BX1    X1+X2       APPEND TO 8LLEVEL =                                 MAP         1564     A     
 MAP                SA2    =1R,                                                            MAP         1565     A     
 MAP                BX1    X1+X2                                                           MAP         1566     A     
 MAP                SB6    10                                                              MAP         1567     A     
 MAP                RJ     PCB                                                             MAP         1568     A     
 MAP                SA1    =5H SIZE                                                        MAP         1569     A     
 MAP                SB6    5                                                               MAP         1570     A     
 MAP                RJ     PCB                                                             MAP         1571     A     
 MAP                =A5    A5+1        *CB*                                                MAP         1572     A     
 MAP                XTRCT  CB.BLEN,X5,X1     ISOLATE BLOCK LENGTH                          MAP         1573     A     
 MAP                =A3    A5-1                                                            MAP         1574     A     
 MAP                =B5    1                                                               MAP         1575     A     
 MAP                IFBIT  X3,-CA.CHARP,OBI20      IF UNITS NOT CHARACTER                  MAP         1576          I
          -FC5A391
 MAP                SBIT   X3,CA.CHARP                                                     FC5A391        7     A     
 MAP                PL     X3,OBI20    IF NOT CHARACTER COMMON BLOCK                       FC5A391        8     A     
 MAP                SB2    X1                                                              MAP         1577          I
          -FC5A185
 MAP                LX1    3                                                               MAP         1578          I
          -FC5A185
 MAP                SX1    X1+B2                                                           MAP         1579          I
          -FC5A185
 MAP                SX1    X1+B2       MULTIPLY LENGTH BY 10                               MAP         1580          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1895    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                BX3    X1                                                              FC5A185      365     A     
 MAP                LX1    3                                                               FC5A185      366     A     
 MAP                IX1    X1+X3                                                           FC5A185      367     A     
 MAP                IX1    X1+X3       MULTIPLY LENGTH BY 10                               FC5A185      368     A     
 MAP                =B5    0                                                               MAP         1581     A     
 MAP                                                                                       MAP         1582     A     
 MAP       OBI20    CALL   CDD         CONVERT SIZE TO DPC                                 MAP         1583     A     
 MAP                BX1    X4                                                              MAP         1584     A     
 MAP                =X0    1                                                               MAP         1585     A     
 MAP                RJ     CCBB                                                            MAP         1586     A     
 MAP                BX4    X1                                                              MAP         1587     A     
 MAP                LX4    -3*CHAR                                                         MAP         1588     A     
 MAP                SA1    =3L =                                                           MAP         1589     A     
 MAP                MX0    3*CHAR                                                          MAP         1590     A     
 MAP                BX4    -X0*X4      ERASE BLANKS                                        MAP         1591     A     
 MAP                BX1    X1+X4                                                           MAP         1592     A     
 MAP                SB6    B6+3                                                            MAP         1593     A     
 MAP                RJ     PCB                                                             MAP         1594     A     
 MAP                SA1    =6L CHARS   ASSUME UNITS ARE CHAR                               MAP         1595     A     
 MAP                ZR     B5,OBI30    IF ASSUMPTION CORRECT                               MAP         1596     A     
 MAP                SA1    =6L WORDS                                                       MAP         1597     A     
 MAP                                                                                       MAP         1598     A     
 MAP       OBI30    SB6    10                                                              MAP         1599     A     
 MAP                SA2    =4R "SCM"   ASSUME SCM                                          MAP         1600     A     
 MAP                HX5    CB.LCM                                                          MAP         1601     A     
 MAP                PL     X5,OBI35    IF ASSUMPTION CORRECT                               MAP         1602     A     
 MAP                SA2    =4R "LCM"                                                       MAP         1603     A     
 MAP                                                                                       MAP         1604     A     
 MAP       OBI35    BX1    X1+X2                                                           MAP         1605     A     
 MAP                RJ     PCB                                                             MAP         1606     A     
 MAP                LX5    CB.LCMP-CB.SAVEP+2                                              MAP         1607     A     
 MAP                PL     X5,OBI40    IF NOT SAVED                                        MAP         1608     A     
 MAP                SA1    =4HSAVE                                                         MAP         1609     A     
 MAP                SB6    4                                                               MAP         1610     A     
 MAP                RJ     PCB                                                             MAP         1611     A     
 MAP                                                                                       MAP         1612     A     
 MAP       OBI40    SA5    PCB.WO                                                          MAP         1613     A     
 MAP                SX5    X5+2                                                            MAP         1614     A     
 MAP                WLINE  MAPBUFF-1,X5,1,0  OUTPUT BLOCK INFO                             MAP         1615     A     
 MAP                SB6    6                                                               MAP         1616     A     
 MAP                SA1    MAP.XS                                                          MAP         1617     A     
 MAP                RJ     PCB         INDENT 6                                            MAP         1618     A     
 MAP                SA3    OBI.BI                                                          MAP         1619          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         1620     A     
 MAP                                                                                       MAP         1621     A     
 MAP       OBI.BI   BSS    1           BLOCK INDEX                                         MAP         1622     A     
 MAP       OBM      SPACE  4,10                                                            MAP         1623          I
          -FC5A185
 MAP      **        OBM -  OUTPUT BLOCK MEMBERS.                                           MAP         1624          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1896    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                                                                                MAP         1625          I
          -FC5A185
 MAP      *         CALLS  OCEI,CBS,PCB,SCS.                                               MAP         1626          I
          -FC5A185
 MAP      *                                                                                MAP         1627          I
          -FC5A185
 MAP      *         USES   ALL REGISTERS.                                                  MAP         1628          I
          -FC5A185
 MAP                                                                                       MAP         1629          I
          -FC5A185
 MAP       OBM      SUBR               ENTRY/EXIT...                                       MAP         1630          I
          -FC5A185
 MAP                SA1    T.SCR                                                           MAP         1631          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         1632          I
          -FC5A185
 MAP                SA6    OCEI.ADR    INITIALIZE ADDRESS CELL                             MAP         1633          I
          -FC5A185
 MAP                SA1    T=SCR                                                           MAP         1634          I
          -FC5A185
 MAP                IX6    X6+X1                                                           MAP         1635          I
          -FC5A185
 MAP                =X6    X6-1                                                            MAP         1636          I
          -FC5A185
 MAP                SA6    OCEI.LW     SET LWA OF TABLE                                    MAP         1637          I
          -FC5A185
 MAP                MX6    0                                                               MAP         1638          I
          -FC5A185
 MAP                SA6    OCEI.SUP    INITIALIZE STORAGE UNITS PROCESSED                  MAP         1639          I
          -FC5A185
 MAP                                                                                       MAP         1640          I
          -FC5A185
 MAP       OBM10    =B6    3                                                               MAP         1641          I
          -FC5A185
 MAP                RJ     CBS         CREATE BUFFER SPACE (3 CHARS)                       MAP         1642          I
          -FC5A185
 MAP                SA1    OCEI.ADR                                                        MAP         1643          I
          -FC5A185
 MAP                SA1    X1          TABLE ENTRY FOR CURRENT ITEM                        MAP         1644          I
          -FC5A185
 MAP                SA2    T.SYM                                                           MAP         1645          I
          -FC5A185
 MAP                SB2    X1-WA.W+WB.W      SYMTAB *WB* INDEX OF CURRENT ITEM             MAP         1646          I
          -FC5A185
 MAP                SA2    X2+B2       *WB*                                                MAP         1647          I
          -FC5A185
 MAP                HX2    WB.EQV                                                          MAP         1648          I
          -FC5A185
 MAP                PL     X2,OBM30    IF NOT EQUIVALENCED                                 MAP         1649          I
          -FC5A185
 MAP                SX6    B2-WB.W+WA.W                                                    MAP         1650          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1897    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MX7    TE.SYMIL                                                        MAP         1651          I
          -FC5A185
 MAP                LX7    TE.SYMIL+TE.SYMIP                                               MAP         1652          I
          -FC5A185
 MAP                SA7    SCSA                                                            MAP         1653          I
          -FC5A185
 MAP                SCAN   T.ECT,SCS   LOCATE ITEM IN T.ECT                                MAP         1654          I
          -FC5A185
 MAP                                                                                       MAP         1655          I
          -FC5A185
 MAP       OBM20    =B7    B7-1                                                            MAP         1656          I
          -FC5A185
 MAP                IFEQ   TEST,ON,1                                                       MAP         1657          I
          -FC5A185
 MAP                MI     B7,"BLOWUP" IF *NIT*                                            MAP         1658          I
          -FC5A185
 MAP                =A2    A2-1                                                            MAP         1659          I
          -FC5A185
 MAP                IFBIT  X2,TE.NBP,OBM20   IF NOT BASE MEMBER                            MAP         1660          I
          -FC5A185
 MAP                LX2    TE.NBP+1    RESTORE X2 TO NOMINAL POSITION                      MAP         1661          I
          -FC5A185
 MAP                MX6    1                                                               MAP         1662          I
          -FC5A185
 MAP                BX6    X6+X2                                                           MAP         1663          I
          -FC5A185
 MAP                SA6    A2          MARK CLASS PROCESSED                                MAP         1664          I
          -FC5A185
 MAP                SX1    3R  (                                                           MAP         1665          I
          -FC5A185
 MAP                LX1    -3*CHAR                                                         MAP         1666          I
          -FC5A185
 MAP                SB6    3                                                               MAP         1667          I
          -FC5A185
 MAP                SX7    59-WB.EQVP                                                      MAP         1668          I
          -FC5A114  -FC5A185
 MAP                CLAS=  X2,WB,(BASE)                                                    FC5A114        5          I
          -FC5A185
 MAP                BX7    X2                                                              FC5A114        6          I
          -FC5A185
 MAP                MX6    1                                                               MAP         1669          I
          -FC5A185
 MAP                EQ     OBM40                                                           MAP         1670          I
          -FC5A185
 MAP                                                                                       MAP         1671          I
          -FC5A185
 MAP       OBM30    SX1    1R                                                              MAP         1672          I
          -FC5A185
 MAP                LX1    -CHAR                                                           MAP         1673          I
          -FC5A185
 MAP                =B6    1                                                               MAP         1674          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1898    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MX6    1                                                               MAP         1675          I
          -FC5A185
 MAP                SX7    59-WB.EQVP                                                      MAP         1676          I
          -FC5A114  -FC5A185
 MAP                BX7    X6+X7                                                           MAP         1677          I
          -FC5A114  -FC5A185
 MAP                CLAS=  X2,WB,(EQV)                                                     FC5A114        7          I
          -FC5A185
 MAP                BX7    X2                                                              FC5A114        8          I
          -FC5A185
 MAP                MX6    0                                                               MAP         1678          I
          -FC5A185
 MAP                                                                                       MAP         1679          I
          -FC5A185
 MAP       OBM40    SA6    OCEI.EI                                                         MAP         1680          I
          -FC5A185
 MAP                SA7    OCEI.TC                                                         MAP         1681          I
          -FC5A185
 MAP                RJ     PCB         OUTPUT BEGINING CHARACTERS                          MAP         1682          I
          -FC5A185
 MAP                RJ     OCEI        OUTPUT ITEMS                                        MAP         1683          I
          -FC5A185
 MAP                =B6    3                                                               MAP         1684          I
          -FC5A185
 MAP                RJ     CBS         CREATE BUFFER SPACE (3 CHARS)                       MAP         1685          I
          -FC5A185
 MAP                SA2    OCEI.EI                                                         MAP         1686          I
          -FC5A185
 MAP                SX1    1R          ASSUME ITEMS NOT EQUIVALENCED                       MAP         1687          I
          -FC5A185
 MAP                LX1    -CHAR                                                           MAP         1688          I
          -FC5A185
 MAP                =B6    1                                                               MAP         1689          I
          -FC5A185
 MAP                PL     X2,OBM50    IF ASSUMPTION CORRECT                               MAP         1690          I
          -FC5A185
 MAP                SX1    3R  )                                                           MAP         1691          I
          -FC5A185
 MAP                LX1    -3*CHAR                                                         MAP         1692          I
          -FC5A185
 MAP                SB6    3                                                               MAP         1693          I
          -FC5A185
 MAP                                                                                       MAP         1694          I
          -FC5A185
 MAP       OBM50    RJ     PCB                                                             MAP         1695          I
          -FC5A185
 MAP                SA1    OCEI.ADR                                                        MAP         1696          I
          -FC5A185
 MAP                PL     X1,OBM10    IF MORE BLOCK MEMBERS                               MAP         1697          I
          -FC5A185
 MAP                SB6    500                                                             MAP         1698          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1899    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                RJ     CBS         FORCE BUFFER FLUSH                                  MAP         1699          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         1700          I
          -FC5A185
 MAP       OCEI     SPACE  4,10                                                            MAP         1701          I
          -FC5A185
 MAP      **        OCEI - OUTPUT COMMON-EQUIVALENCE ITEMS.                                MAP         1702          I
          -FC5A185
 MAP      *                                                                                MAP         1703          I
          -FC5A185
 MAP      *         ENTRY  *OCEI.ADR* = ADDRESS OF 1ST ITEM.                               MAP         1704          I
          -FC5A185
 MAP      *                                                                                MAP         1705          I
          -FC5A185
 MAP      *                *OCEI.EI* = MI IF ITEMS ARE EQUIVALENCED.                       MAP         1706          I
          -FC5A185
 MAP      *                          = PL OTHERWISE.                                       MAP         1707          I
          -FC5A185
 MAP      *                                                                                MAP         1708          I
          -FC5A185
 MAP      *                *OCEI.LW* = LWA OF TABLE ITEMS ARE IN.                          MAP         1709          I
          -FC5A185
 MAP      *                                                                                MAP         1710          I
          -FC5A185
 MAP      *                *OCEI.SUP* = STORAGE UNITS PROCESSED.                           MAP         1711          I
          -FC5A185
 MAP      *                                                                                MAP         1712          I
          -FC5A185
 MAP      *                *OCEI.TC*  - SPECIFIES TERMINATING CRITERION.                   MAP         1713          I
          -FC5A185
 MAP      *                           = 1/BIT VALUE, 41/0, 18/BIT TO TEST.                 MAP         1714          I
          -FC5A114  -FC5A185
 MAP      *                  CONTAINS BIT MASK OF THE *WB* FIELDS TO USE IN                FC5A114        9          I
          -FC5A185
 MAP      *                  COMPARING THE 1ST ITEM TO EACH SUCCESSIVE ITEM.               FC5A114       10          I
          -FC5A185
 MAP      *                  TERMINATION OCCURS WHEN THE SPECIFIED FIELDS                  FC5A114       11          I
          -FC5A185
 MAP      *                  ARE NOT IDENTICAL.                                            FC5A114       12          I
          -FC5A185
 MAP      *                                                                                MAP         1715          I
          -FC5A185
 MAP      *         EXIT   *OCEI.ADR* = MI IF TABLE EXHAUSTED.                             MAP         1716          I
          -FC5A185
 MAP      *                           = ADDRESS OF LAST ITEM + 1 OTHERWISE.                MAP         1717          I
          -FC5A185
 MAP      *                                                                                MAP         1718          I
          -FC5A185
 MAP      *                *OCEI.SUP* - UPDATED.                                           MAP         1719          I
          -FC5A185
 MAP      *                                                                                MAP         1720          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1900    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         CALLS  NAME,FIRST,LAST,CBS,PCB.                                        MAP         1721          I
          -FC5A185
 MAP      *                                                                                MAP         1722          I
          -FC5A185
 MAP      *         USES   ALL REGISTERS.                                                  MAP         1723          I
          -FC5A185
 MAP                                                                                       MAP         1724          I
          -FC5A185
 MAP       OCEI     SUBR               ENTRY/EXIT...                                       MAP         1725          I
          -FC5A185
 MAP                SA1    OCEI.ADR                                                        MAP         1726          I
          -FC5A185
 MAP                SA1    X1          X1 = 1ST TABLE ENTRY                                MAP         1727          I
          -FC5A185
 MAP                SB5    X1-WA.W+WB.W      B5 = SYMTAB *WB* INDEX OF 1ST ITEM            MAP         1728          I
          -FC5A185
 MAP                                                                                       MAP         1729          I
          -FC5A109  -FC5A185
 MAP       OCEI10   =X6    -1                                                              MAP         1730          I
          -FC5A109  -FC5A185
 MAP                =X6    -1                                                              FC5A109       25          I
          -FC5A185
 MAP                SA6    LAST.LI     INITIALIZE COMPARE CELL                             MAP         1731          I
          -FC5A185
 MAP                SX6    B5                                                              FC5A114       13          I
          -FC5A185
 MAP                SA6    OCEII       SAVE *WB* INDEX OF 1ST ITEM                         FC5A114       14          I
          -FC5A185
 MAP                RJ     NAME        DETERMINE ITEM NAME                                 MAP         1732          I
          -FC5A109  -FC5A185
 MAP       OCEI10   RJ     NAME        DETERMINE ITEM NAME                                 FC5A109       26          I
          -FC5A185
 MAP                RJ     FIRST       DETERMINE FIRST INDEX                               MAP         1733          I
          -FC5A185
 MAP                RJ     LAST        DETERMINE LAST INDEX                                MAP         1734          I
          -FC5A185
 MAP                SA1    OCEI.EI                                                         MAP         1735          I
          -FC5A185
 MAP                MI     X1,OCEI20   IF OCEI.SUP UPDATE NOT WANTED                       MAP         1736          I
          -FC5A185
 MAP                SA1    LAST.LI     LARGEST LAST INDEX SO FAR                           MAP         1737          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         1738          I
          -FC5A185
 MAP                SA6    OCEI.SUP    UPDATE STORAGE UNITS PROCESSED                      MAP         1739          I
          -FC5A185
 MAP                                                                                       MAP         1740          I
          -FC5A185
 MAP       OCEI20   =B6    B6+1        ACCOUNT FOR RIGHT PAREN                             MAP         1741          I
          -FC5A185
 MAP                RJ     CBS         CREATE BUFFER SPACE (B6 CHARS)                      MAP         1742          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1901    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    NAMEA       DPC OF NAME                                         MAP         1743          I
          -FC5A185
 MAP                =A2    A1+1        LENGTH                                              MAP         1744          I
          -FC5A185
 MAP                SB6    X2                                                              MAP         1745          I
          -FC5A185
 MAP                RJ     PCB         OUTPUT NAME                                         MAP         1746          I
          -FC5A185
 MAP                SA1    FIRSTA      DPC OF FIRST INDEX                                  MAP         1747          I
          -FC5A185
 MAP                =A2    A1+1        LENGTH                                              MAP         1748          I
          -FC5A185
 MAP                SB6    X2                                                              MAP         1749          I
          -FC5A185
 MAP                RJ     PCB         OUTPUT FIRST INDEX                                  MAP         1750          I
          -FC5A185
 MAP                SA1    LASTA       DPC OF LAST INDEX                                   MAP         1751          I
          -FC5A185
 MAP                =A2    A1+1        LENGTH                                              MAP         1752          I
          -FC5A185
 MAP                SB6    X2                                                              MAP         1753          I
          -FC5A185
 MAP                RJ     PCB                                                             MAP         1754          I
          -FC5A185
 MAP                SA1    =1L>                                                            MAP         1755          I
          -FC5A185
 MAP                =B6    1                                                               MAP         1756          I
          -FC5A185
 MAP                RJ     PCB         OUTPUT RIGHT PAREN                                  MAP         1757          I
          -FC5A185
 MAP                SA1    OCEI.ADR                                                        MAP         1758          I
          -FC5A185
 MAP                =X6    X1+1                                                            MAP         1759          I
          -FC5A185
 MAP                SA2    OCEI.LW     LWA                                                 MAP         1760          I
          -FC5A185
 MAP                IX2    X2-X6                                                           MAP         1761          I
          -FC5A185
 MAP                PL     X2,OCEI30   IF TABLE NOT EXHAUSTED                              MAP         1762          I
          -FC5A185
 MAP                BX6    X2                                                              MAP         1763          I
          -FC5A185
 MAP                                                                                       MAP         1764          I
          -FC5A185
 MAP       OCEI30   SA6    A1          UPDATE ADDRESS                                      MAP         1765          I
          -FC5A185
 MAP                MI     X6,EXIT.    IF TABLE EXHAUSTED                                  MAP         1766          I
          -FC5A185
 MAP                SA1    X6          X1 = TABLE ENTRY                                    MAP         1767          I
          -FC5A185
 MAP                SA2    OCEI.TC     TERMINATING CRITERION                               MAP         1768          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1902    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA3    T.SYM                                                           MAP         1769          I
          -FC5A185
 MAP                =B5    X1-WA.W+WB.W      B5 = SYMTAB *WB* INDEX OF NEXT ITEM           MAP         1770          I
          -FC5A185
 MAP                SA3    X3+B5       *WB*                                                MAP         1771          I
          -FC5A114  -FC5A185
 MAP                SB3    X2          B3 = SHIFT COUNT FOR PROPER BIT                     MAP         1772          I
          -FC5A114  -FC5A185
 MAP                LX3    B3,X3                                                           MAP         1773          I
          -FC5A114  -FC5A185
 MAP                BX3    X2-X3                                                           MAP         1774          I
          -FC5A114  -FC5A185
 MAP                MI     X3,OCEI10   IF CRITERION NOT SATISFIED                          MAP         1775          I
          -FC5A114  -FC5A185
 MAP                SA4    X3+B5       *WB*                                                FC5A114       15          I
          -FC5A185
 MAP                SA1    OCEII                                                           FC5A114       16          I
          -FC5A185
 MAP                SB3    X1          B3 = *WB* INDEX OF 1ST ITEM                         FC5A114       17          I
          -FC5A185
 MAP                SA1    X3+B3       X1 = *WB*                                           FC5A114       18          I
          -FC5A185
 MAP                BX1    X2*X1                                                           FC5A114       19          I
          -FC5A185
 MAP                BX4    X2*X4       EXTRACT SPECIFIED FIELDS                            FC5A114       20          I
          -FC5A185
 MAP                BX4    X1-X4                                                           FC5A114       21          I
          -FC5A185
 MAP                ZR     X4,OCEI10   IF CRITERION NOT SATISFIED                          FC5A114       22          I
          -FC5A185
 MAP                SA1    LAST.LI                                                         MAP         1776          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         1777          I
          -FC5A185
 MAP                SA6    OCEI.SUP                                                        MAP         1778          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         1779          I
          -FC5A185
 MAP                                                                                       MAP         1780          I
          -FC5A185
 MAP       OCEI.ADR BSS    1           ADDRESS OF AN ITEM                                  MAP         1781          I
          -FC5A185
 MAP       OCEI.EI  BSS    1           EQUIVALENCE INDICATOR                               MAP         1782          I
          -FC5A185
 MAP       OCEI.LW  BSS    1           LWA OF TABLE CONTAINING ITEMS                       MAP         1783          I
          -FC5A185
 MAP       OCEI.SUP BSS    1           STORAGE UNITS PROCESSED                             MAP         1784          I
          -FC5A185
 MAP       OCEI.TC  BSS    1           TERMINATING CRITERION                               MAP         1785          I
          -FC5A185
 MAP       OCEII    BSS    1           *WB* INDEX OF 1ST ITEM                              FC5A114       23          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1903    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       OLE      SPACE  4,10                                                            MAP         1786          I
          -FC5A185
 MAP      **        OLE -  OUTPUT LOCAL EQUIVALENCES.                                      MAP         1787          I
          -FC5A185
 MAP      *                                                                                MAP         1788          I
          -FC5A185
 MAP      *         ENTRY  *OCEI.ADR* = ADDRESS OF 1ST CLASS MEMBER.                       MAP         1789          I
          -FC5A185
 MAP      *                                                                                MAP         1790          I
          -FC5A185
 MAP      *         CALLS  OCEI,CBS,SCS.                                                   MAP         1791          I
          -FC5A185
 MAP      *                                                                                MAP         1792          I
          -FC5A185
 MAP      *         USES   ALL REGISTERS.                                                  MAP         1793          I
          -FC5A185
 MAP                                                                                       MAP         1794          I
          -FC5A185
 MAP       OLE      SUBR               ENTRY/EXIT...                                       MAP         1795          I
          -FC5A185
 MAP                SB6    6                                                               MAP         1796          I
          -FC5A185
 MAP                SA1    MAP.XS                                                          MAP         1797          I
          -FC5A185
 MAP                RJ     PCB         INDENT 6 SPACES                                     MAP         1798          I
          -FC5A185
 MAP                SA1    T.ECT                                                           MAP         1799          I
          -FC5A185
 MAP                SA2    T=ECT                                                           MAP         1800          I
          -FC5A185
 MAP                IX6    X2+X1                                                           MAP         1801          I
          -FC5A185
 MAP                =X6    X6-1                                                            MAP         1802          I
          -FC5A185
 MAP                SA6    OCEI.LW     SET LWA OF TABLE                                    MAP         1803          I
          -FC5A185
 MAP                MX6    1                                                               MAP         1804          I
          -FC5A114  -FC5A185
 MAP                SX1    59-WB.CGSP                                                      MAP         1805          I
          -FC5A114  -FC5A185
 MAP                BX6    X6+X1                                                           MAP         1806          I
          -FC5A114  -FC5A185
 MAP                SA6    OCEI.TC     SET TERMINATING CRITERION                           MAP         1807          I
          -FC5A114  -FC5A185
 MAP                CLAS=  X1,WB,(CGS)                                                     FC5A114       24          I
          -FC5A185
 MAP                BX6    X1                                                              FC5A114       25          I
          -FC5A185
 MAP                SA6    OCEI.TC     SET TERMINATING CRITERION                           FC5A114       26          I
          -FC5A185
 MAP                MX6    1                                                               FC5A114       27          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1904    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA6    OCEI.EI     INDICATE EQUIVALENCED ITEMS                         MAP         1808          I
          -FC5A185
 MAP                SA2    OCEI.ADR                                                        MAP         1809          I
          -FC5A185
 MAP                =A2    X2-1                                                            MAP         1810          I
          -FC5A185
 MAP       OLE10    =X6    A2+1                                                            MAP         1811          I
          -FC5A185
 MAP                SA6    OCEI.ADR                                                        MAP         1812          I
          -FC5A185
 MAP                MX6    1                                                               MAP         1813          I
          -FC5A185
 MAP                BX6    X6+X2                                                           MAP         1814          I
          -FC5A185
 MAP                SA6    A2          MARK CLASS PROCESSED                                MAP         1815          I
          -FC5A185
 MAP                MX6    0                                                               MAP         1816          I
          -FC5A185
 MAP                SA6    OCEI.SUP                                                        MAP         1817          I
          -FC5A185
 MAP                SA1    T.SYM                                                           MAP         1818          I
          -FC5A185
 MAP                =A2    A2+1                                                            MAP         1819          I
          -FC5A185
 MAP                =B5    X2-WA.W+WB.W      *WB* INDEX                                    MAP         1820          I
          -FC5A185
 MAP                SA1    X1+B5       *WB*                                                MAP         1821          I
          -FC5A185
 MAP                SX6    =4H   (                                                         MAP         1822          I
          -FC5A185
 MAP                SX7    =4H  )                                                          MAP         1823          I
          -FC5A185
 MAP                LX1    -WB.MODEP                                                       MAP         1824          I
          -FC5A185
 MAP                MX2    -WB.MODEL                                                       MAP         1825          I
          -FC5A185
 MAP                BX1    -X2*X1      ISOLATE MODE                                        MAP         1826          I
          -FC5A185
 MAP                SX1    X1-M.CHAR                                                       MAP         1827          I
          -FC5A185
 MAP                NZ     X1,OLE20    IF NOT TYPE CHAR                                    MAP         1828          I
          -FC5A185
 MAP                SX6    =4H  '(                                                         MAP         1829          I
          -FC5A185
 MAP                SX7    =4H  )'                                                         MAP         1830          I
          -FC5A185
 MAP                                                                                       MAP         1831          I
          -FC5A185
 MAP       OLE20    SA6    OLELP                                                           MAP         1832          I
          -FC5A185
 MAP                SA7    OLERP                                                           MAP         1833          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1905    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                =B6    4                                                               MAP         1834          I
          -FC5A185
 MAP                RJ     CBS         CREATE BUFFER SPACE (4 CHARS)                       MAP         1835          I
          -FC5A185
 MAP                SA1    OLELP                                                           MAP         1836          I
          -FC5A185
 MAP                SA1    X1                                                              MAP         1837          I
          -FC5A185
 MAP                =B6    4                                                               MAP         1838          I
          -FC5A185
 MAP                RJ     PCB                                                             MAP         1839          I
          -FC5A185
 MAP                RJ     OCEI        OUTPUT ITEMS                                        MAP         1840          I
          -FC5A185
 MAP                =B6    4                                                               MAP         1841          I
          -FC5A185
 MAP                RJ     CBS         CREATE BUFFER SPACE (4 CHARS)                       MAP         1842          I
          -FC5A185
 MAP                SA1    OLERP                                                           MAP         1843          I
          -FC5A185
 MAP                SA1    X1                                                              MAP         1844          I
          -FC5A185
 MAP                =B6    4                                                               MAP         1845          I
          -FC5A185
 MAP                RJ     PCB                                                             MAP         1846          I
          -FC5A185
 MAP                MX7    1                                                               MAP         1847          I
          -FC5A185
 MAP                LDBIT  X1,TE.NBP                                                       MAP         1848          I
          -FC5A185
 MAP                BX7    X1+X7                                                           MAP         1849          I
          -FC5A185
 MAP                SA7    SCSA                                                            MAP         1850          I
          -FC5A185
 MAP                MX6    0                                                               MAP         1851          I
          -FC5A185
 MAP                SCAN   T.ECT,SCS   LOOK FOR ANOTHER LOCAL CLASS                        MAP         1852          I
          -FC5A185
 MAP                PL     B7,OLE10    IF MORE LOCAL CLASSES                               MAP         1853          I
          -FC5A185
 MAP                SB6    500                                                             MAP         1854          I
          -FC5A185
 MAP                RJ     CBS         FORCE BUFFER FLUSH                                  MAP         1855          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         1856          I
          -FC5A185
 MAP                                                                                       MAP         1857          I
          -FC5A185
 MAP                                                                                       MAP         1858          I
          -FC5A185
 MAP       OLELP    BSS    1                                                               MAP         1859          I
          -FC5A185
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1906    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       OLERP    BSS    1                                                               MAP         1860          I
          -FC5A185
 MAP       OCEI     SPACE  4,10                                                            FC5A185      369     A     
 MAP      **        OCEI - OUTPUT COMMON+EQUIVALENCE ITEMS.                                FC5A185      370     A     
 MAP      *                                                                                FC5A185      371     A     
 MAP      *         THIS ROUTINE WILL OUTPUT EACH ITEM REQUESTED IN 4 PARTS :              FC5A185      372     A     
 MAP      *                                                                                FC5A185      373     A     
 MAP      *         1)  THE NAME OF THE ITEM.                                              FC5A185      374     A     
 MAP      *         2)  THE STORAGE UNIT OCCUPIED BY THE 1ST ELEMENT OF THE ITEM.          FC5A185      375     A     
 MAP      *         3)  THE STORAGE UNIT OCCUPIED BY THE LAST ELEMENT OF THE ITEM.         FC5A185      376     A     
 MAP      *         4)  THE TRAILING CHARACTERS *> * .                                     FC5A185      377     A     
 MAP      *                                                                                FC5A185      378     A     
 MAP      *         ENTRY  (OCEI.ADR) = ADDRESS OF THE 1ST ITEM.                           FC5A185      379     A     
 MAP      *                (OCEI.NI)  = THE NUMBER OF ITEMS TO OUTPUT.                     FC5A185      380     A     
 MAP      *                                                                                FC5A185      381     A     
 MAP      *         EXIT   (OCEI.ADR) = ADDRESS OF LAST ITEM OUTPUT + 1.                   FC5A185      382     A     
 MAP      *                ALL REQUESTED ITEMS OUTPUT.                                     FC5A185      383     A     
 MAP      *                                                                                FC5A185      384     A     
 MAP      *         CALLS  NAME,FIRST,LAST,CBS,PCB.                                        FC5A185      385     A     
 MAP      *                                                                                FC5A185      386     A     
 MAP      *         USES   ALL REGISTERS.                                                  FC5A185      387     A     
 MAP                                                                                       FC5A185      388     A     
 MAP                                                                                       FC5A185      389     A     
 MAP       OCEI     SUBR               ENTRY/EXIT...                                       FC5A185      390     A     
 MAP                                                                                       FC5A185      391     A     
 MAP       OCEI10   RJ     NAME        DETERMINE NAME                                      FC5A185      392     A     
 MAP                RJ     FIRST       DETERMINE FIRST INDEX                               FC5A185      393     A     
 MAP                RJ     LAST        DETERMINE LAST INDEX                                FC5A185      394     A     
 MAP                                                                                       FC5A185      395     A     
 MAP      **        ALL INFO FOR THE CURRENT ITEM HAS BEEN ASSEMBLED.                      FC5A185      396     A     
 MAP      *         (B6) = LENGTH OF INFO IN CHARACTERS.                                   FC5A185      397     A     
 MAP                                                                                       FC5A185      398     A     
 MAP                =B6    B6+2        ACCOUNT FOR *> *                                    FC5A185      399          I
          -FC50297
 MAP                SB6    B6+1        ACCOUNT FOR *>*                                     FC50297        8     A     
 MAP                RJ     CBS         CREATE BUFFER SPACE                                 FC5A185      400     A     
 MAP                SA1    NAMEA       X1 = DPC OF NAME                                    FC5A185      401     A     
 MAP                =A2    A1+1        X2 = LENGTH OF NAME                                 FC5A185      402     A     
 MAP                SB6    X2                                                              FC5A185      403     A     
 MAP                RJ     PCB         OUTPUT NAME                                         FC5A185      404     A     
 MAP                SA1    FIRSTA      X1 = FIRST DPC                                      FC5A185      405     A     
 MAP                =A2    A1+1        X2 = LENGTH OF FIRST                                FC5A185      406     A     
 MAP                SB6    X2                                                              FC5A185      407     A     
 MAP                RJ     PCB         OUTPUT FIRST                                        FC5A185      408     A     
 MAP                SA1    LASTA       X1 = DPC OF LAST                                    FC5A185      409     A     
 MAP                =A2    A1+1        X2 = LENGTH OF LAST                                 FC5A185      410     A     
 MAP                SB6    X2                                                              FC5A185      411     A     
 MAP                RJ     PCB         OUTPUT LAST                                         FC5A185      412     A     
 MAP                SA1    =2L>                                                            FC5A185      413          I
          -FC50297
 MAP                =B6    2                                                               FC5A185      414          I
          -FC50297
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1907    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    =1L>                                                            FC50297        9     A     
 MAP                SB6    1                                                               FC50297       10     A     
 MAP                RJ     PCB         OUTPUT TRAILING CHARACTERS                          FC5A185      415     A     
 MAP                SA1    OCEI.NI                                                         FC5A185      416     A     
 MAP                SA2    OCEI.ADR                                                        FC5A185      417     A     
 MAP                =X6    X1-1                                                            FC5A185      418     A     
 MAP                =X7    X2+1                                                            FC5A185      419     A     
 MAP                SA6    A1          UPDATE NUMBER OF ITEMS                              FC5A185      420     A     
 MAP                SA7    A2          UPDATE ADDRESS                                      FC5A185      421     A     
 MAP                NZ     X6,OCEI10   IF MORE ITEMS                                       FC5A185      422          I
          -FC50297
 MAP                EQ     EXIT.                                                           FC5A185      423          I
          -FC50297
 MAP                SA1    OCEI.TAB                                                        FC50297       11     A     
 MAP                SX0    23                                                              FC50297       12     A     
 MAP                IX1    X1+X0       INCREMENT FOR TAB                                   FC50297       13     A     
 MAP                BX7    X1                                                              FC50297       14     A     
 MAP                SA7    A1          UPDATE                                              FC50297       15     A     
 MAP                ZR     X6,EXIT.    IF ALL ITEMS PROCESSED                              FC50297       16     A     
 MAP                RJ     TAB         MOVE TO NEXT POSITION                               FC50297       17     A     
 MAP                EQ     OCEI10      CONTINUE                                            FC50297       18     A     
 MAP                                                                                       FC5A185      424     A     
 MAP       OCEI.ADR BSS    1                                                               FC5A185      425          I
          -FC50297
 MAP       OCEI.NI  BSS    1                                                               FC5A185      426          I
          -FC50297
 MAP       OCEI.ADR BSS    1           ADDRESS OF COMMON/EQUIVALENCE ITEM                  FC50297       19     A     
 MAP       OCEI.NI  BSS    1           NUMBER OF ITEMS                                     FC50297       20     A     
 MAP       OCEI.TAB BSS    1           TAB POSITION                                        FC50297       21     A     
 MAP       OML      SPACE  4,10                                                            FC5A185      427     A     
 MAP      **        OML - OUTPUT MEMORY LAYOUT.                                            FC5A185      428     A     
 MAP      *                                                                                FC5A185      429     A     
 MAP      *         THIS ROUTINE DIRECTS THE OUTPUT OF COMMON + EQUIVALENCE                FC5A185      430     A     
 MAP      *         MAP ITEMS, DELIMITING ANY AND ALL EQUIVALENCE CLASSES                  FC5A185      431     A     
 MAP      *         THAT MAY EXIST.                                                        FC5A185      432     A     
 MAP      *                                                                                FC5A185      433     A     
 MAP      *         ENTRY  ALL ITEMS ON T.SCR (MT. FORMAT)                                 FC5A185      434     A     
 MAP      *                                                                                FC5A185      435     A     
 MAP      *         EXIT   ALL ITEMS OUTPUT.                                               FC5A185      436     A     
 MAP      *                                                                                FC5A185      437     A     
 MAP      *         CALLS  OCEI,CBS,PCB.                                                   FC5A185      438     A     
 MAP      *                                                                                FC5A185      439     A     
 MAP      *         USES   ALL REGISTERS.                                                  FC5A185      440     A     
 MAP                                                                                       FC5A185      441     A     
 MAP                                                                                       FC5A185      442     A     
 MAP       OML      SUBR               ENTRY/EXIT...                                       FC5A185      443     A     
 MAP                SA1    T.SCR                                                           FC5A185      444     A     
 MAP                BX6    X1                                                              FC5A185      445     A     
 MAP                SA6    OCEI.ADR    SET FWA OF ITEMS                                    FC5A185      446     A     
 MAP                SA2    T=SCR                                                           FC5A185      447     A     
 MAP                IX6    X6+X2                                                           FC5A185      448     A     
 MAP                =X6    X6-1                                                            FC5A185      449     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1908    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA6    OMLLWA      SET LWA OF ITEMS                                    FC5A185      450     A     
 MAP                                                                                       FC5A185      451     A     
 MAP       OML10    SA2    X1          X2 = TABLE ENTRY OF AN ITEM                         FC5A185      452     A     
 MAP                LX2    -MT.NMGP                                                        FC5A185      453     A     
 MAP                SX6    X2          X6 = NO. OF ITEMS IN NEXT GROUP                     FC5A185      454     A     
 MAP                ERRNZ  MT.NMGL-18                                                      FC5A185      455     A     
 MAP                IFEQ   TEST,ON,1                                                       FC5A185      456     A     
 MAP                ZR     X6,"BLOWUP" IF BAD COUNT                                        FC5A185      457     A     
 MAP                MI     X6,OML20    IF GROUP OF NON-EQUIV ITEMS                         FC5A185      458     A     
 MAP                                                                                       FC5A185      459     A     
 MAP      **        HERE FOR ALL EQUIVALENCE CLASSES.                                      FC5A185      460     A     
 MAP                                                                                       FC5A185      461     A     
 MAP                SA6    OCEI.NI     SET NUMBER OF ITEMS                                 FC5A185      462     A     
 MAP                SA1    OCEI.TAB                                                        FC50297       22     A     
 MAP                RJ     TAB         BLANK FILL TO PROPER POSITION                       FC50297       23     A     
 MAP                =B6    1                                                               FC5A185      463     A     
 MAP                RJ     CBS         CREATE BUFFER SPACE                                 FC5A185      464     A     
 MAP                SA1    =1L(                                                            FC5A185      465     A     
 MAP                =B6    1                                                               FC5A185      466     A     
 MAP                RJ     PCB         OUTPUT LEFT PAREN                                   FC5A185      467     A     
 MAP                RJ     OCEI        OUTPUT EQUIVALENCE CLASS                            FC5A185      468     A     
 MAP                =B6    1                                                               FC5A185      469     A     
 MAP                RJ     CBS         CREATE BUFFER SPACE                                 FC5A185      470     A     
 MAP                SA1    =1L)                                                            FC5A185      471     A     
 MAP                =B6    1                                                               FC5A185      472     A     
 MAP                RJ     PCB         OUTPUT RIGHT PAREN                                  FC5A185      473     A     
 MAP                EQ     OML30                                                           FC5A185      474     A     
 MAP                                                                                       FC5A185      475     A     
 MAP      **        HERE FOR ALL NON-EQUIVALENCED ITEMS.                                   FC5A185      476     A     
 MAP                                                                                       FC5A185      477     A     
 MAP       OML20    BX6    -X6                                                             FC5A185      478     A     
 MAP                SA6    OCEI.NI     SET NUMBER OF ITEMS                                 FC5A185      479     A     
 MAP                SA1    OCEI.TAB                                                        FC50297       24     A     
 MAP                RJ     TAB         BLANK FILL TO PROPER POSITION                       FC50297       25     A     
 MAP                RJ     OCEI        OUTPUT ITEMS                                        FC5A185      480     A     
 MAP                                                                                       FC5A185      481     A     
 MAP      **        TEST FOR EXHAUSTED TABLE.                                              FC5A185      482     A     
 MAP                                                                                       FC5A185      483     A     
 MAP       OML30    SA1    OCEI.ADR                                                        FC5A185      484     A     
 MAP                SA2    OMLLWA                                                          FC5A185      485     A     
 MAP                IX2    X2-X1                                                           FC5A185      486     A     
 MAP                PL     X2,OML10    IF MORE ITEMS                                       FC5A185      487     A     
 MAP                SB6    500                                                             FC5A185      488     A     
 MAP                RJ     CBS         FORCE BUFFER FLUSH                                  FC5A185      489     A     
 MAP                EQ     EXIT.                                                           FC5A185      490     A     
 MAP                                                                                       FC5A185      491     A     
 MAP      OMLLWA    BSS    1                                                               FC5A185      492     A     
 MAP       OTH      SPACE  4,10                                                            MAP         1861     A     
 MAP      **        OTH -  OUTPUT TITLE AND HEADING.                                       MAP         1862     A     
 MAP      *                                                                                MAP         1863     A     
 MAP      *         WILL OUTPUT TITLE AND HEADING WITHOUT PAGE EJECT,                      MAP         1864     A     
 MAP      *         (UNLESS THERE ARE LESS THAN 10 LINES LEFT ON PAGE)                     MAP         1865     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1909    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         AND SET O.STITL CELL TO ALLOW WOF TO TAKE CARE OF                      MAP         1866     A     
 MAP      *         FUTURE OUTPUT OF HEADING FOR THE CURRENT MAP.                          MAP         1867     A     
 MAP      *                                                                                MAP         1868     A     
 MAP      *         ENTRY  *PCB.WO* = NO. WORDS IN HEADING - 2.                            MAP         1869     A     
 MAP      *                (X5) = MST OFFSET.                                              MAP         1870     A     
 MAP      *                                                                                MAP         1871     A     
 MAP      *         EXIT   TITLE AND HEADING OUTPUT.                                       MAP         1872     A     
 MAP      *                                                                                MAP         1873     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP         1874     A     
 MAP      *                                                                                MAP         1875     A     
 MAP      *         CALLS  WLINE,PCB,MOVE,SETMEM,TAB.                                      MAP         1876     A     
 MAP                                                                                       MAP         1877     A     
 MAP       OTH      SUBR               ENTRY/EXIT...                                       MAP         1878     A     
 MAP                SA1    LCNT                                                            MAP         1879     A     
 MAP                SA2    CP.PS                                                           MAP         1880          I
          -FC5A107
 MAP                SA2    CO.PS                                                           FC5A107       20     A     
 MAP                IX6    X2-X1                                                           MAP         1881     A     
 MAP                SX6    X6-10                                                           MAP         1882     A     
 MAP                LX5    2           MULTIPLY MST OFFSET BY 4                            MAP         1883     A     
 MAP                PL     X6,OTH10    IF 10 OR MORE LINES LEFT                            MAP         1884     A     
 MAP                BX6    X2                                                              MAP         1885     A     
 MAP                SA6    LCNT        FORCE EJECT WITH NEXT LINE                          MAP         1886     A     
 MAP                =X1    1                                                               MAP         1887     A     
 MAP                SX6    HDRBL                                                           MAP         1888     A     
 MAP                LX1    30                                                              MAP         1889     A     
 MAP                BX6    X6+X1                                                           MAP         1890     A     
 MAP                SA6    O.STITL     SUPRESS OLD HEADING                                 MAP         1891     A     
 MAP                                                                                       MAP         1892     A     
 MAP       OTH10    SA1    WO.LOR                                                          MAP         1893     A     
 MAP                PL     X1,OTH20    IF REFERENCES NOT SELECTED                          MAP         1894     A     
 MAP                SA1    CO.PW                                                           MAP         1895     A     
 MAP                SX1    X1-MAPLC                                                        MAP         1896     A     
 MAP                MI     X1,OTH20    IF IN PW MODE                                       MAP         1897     A     
 MAP                SX1    MAPDTC                                                          MAP         1898     A     
 MAP                RJ     TAB         BLANK FILL TO DICTIONARY TAB COLUMN                 MAP         1899     A     
 MAP                BX7    X5                                                              MAP         1900     A     
 MAP                LX7    1           MST OFFSET * 8                                      MAP         1901     A     
 MAP                SA1    X7+MAPUD+4                                                      MAP         1902     A     
 MAP                SB6    MAPUDL*10                                                       MAP         1903     A     
 MAP                RJ     PCB         OUTPUT PIECE OF USAGE DICTIONARY                    MAP         1904     A     
 MAP                                                                                       MAP         1905     A     
 MAP       OTH20    SA1    PCB.WO                                                          MAP         1906     A     
 MAP                =X0    X1+2        NO. WORDS IN HEADING                                MAP         1907     A     
 MAP                MOVE   X0,MAPBUFF-1,MOCBUF   MOVE HEADING TO DIFFERENT BUFFER          MAP         1908     A     
 MAP                SETMEM MAPBUFF-1,X0,0    ZERO THE BUFFER                               MAP         1909     A     
 MAP                SX6    60                                                              MAP         1910     A     
 MAP                SA6    PCB.SC      RESET SHIFT COUNT                                   MAP         1911     A     
 MAP                =X6    -2                                                              MAP         1912     A     
 MAP                SA6    PCB.WO      RESET WORD OFFSET                                   MAP         1913     A     
 MAP                SA1    X5+MAPST    FETCH LENGTH OF TITLE                               MAP         1914     A     
 MAP                SB4    X0          SAVE HEADING LENGTH                                 MAP         1915     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1910    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SB6    X1                                                              MAP         1916     A     
 MAP                =A1    A1+1        GET READY FOR PCB                                   MAP         1917     A     
 MAP                SB4    X0          SAVE HEADING LENGTH                                 MAP         1918     A     
 MAP                RJ     PCB                                                             MAP         1919     A     
 MAP                SA1    OTH.LO       FETCH LIST OPTIONS                                 MAP         1920     A     
 MAP                SB6    10                                                              MAP         1921     A     
 MAP                RJ     PCB         APPEND THEM TO TITLE                                MAP         1922     A     
 MAP                SA1    WO.LOR                                                          MAP         1923     A     
 MAP                PL     X1,OTH30    IF REFERENCES NOT SELECTED                          MAP         1924     A     
 MAP                SA1    CO.PW                                                           MAP         1925     A     
 MAP                SX1    X1-MAPLC                                                        MAP         1926     A     
 MAP                MI     X1,OTH30    IF IN PW MODE                                       MAP         1927     A     
 MAP                SX1    MAPDTC                                                          MAP         1928     A     
 MAP                RJ     TAB         BLANK FILL TO DICTIONARY TAB COLUMN                 MAP         1929     A     
 MAP                BX7    X5                                                              MAP         1930     A     
 MAP                LX7    1           MST OFFSET * 8                                      MAP         1931     A     
 MAP                SA1    X7+MAPUD                                                        MAP         1932     A     
 MAP                SB6    MAPUDL*10                                                       MAP         1933     A     
 MAP                RJ     PCB         OUTPUT PART OF USAGE DICTIONARY                     MAP         1934     A     
 MAP                                                                                       MAP         1935     A     
 MAP       OTH30    SA1    PCB.WO                                                          MAP         1936     A     
 MAP                =X1    X1+2        NO. OF WORDS TO OUTPUT                              MAP         1937     A     
 MAP                SX0    B4                                                              MAP         1938     A     
 MAP                WLINE  MAPBUFF-1,X1,2,0  OUTPUT THE TITLE                              MAP         1939     A     
 MAP                WLINE  MOCBUF,X0,0,1     OUTPUT THE HEADING                            MAP         1940     A     
 MAP                SX6    MOCBUF                                                          MAP         1941     A     
 MAP                SA1    WO.LOR                                                          MAP         1942     A     
 MAP                PL     X1,OTH40    IF REFERENCES NOT SELECTED                          MAP         1943     A     
 MAP                SA1    CO.PW                                                           MAP         1944     A     
 MAP                SX1    X1-MAPLC                                                        MAP         1945     A     
 MAP                MI     X1,OTH40    IF IN PW MODE                                       MAP         1946     A     
 MAP                SX0    X0-MAPUDL   TRICK WOF INTO SUPPRESSING DICT.                    MAP         1947     A     
 MAP                                                                                       MAP         1948     A     
 MAP       OTH40    LX0    30                                                              MAP         1949     A     
 MAP                BX6    X6+X0       30/LEN,30/FWA                                       MAP         1950     A     
 MAP                SA6    O.STITL     SET CELL FOR USE BY WOF                             MAP         1951     A     
 MAP                EQ     EXIT.                                                           MAP         1952     A     
 MAP                                                                                       MAP         1953     A     
 MAP       OTH.LO    BSS    1           LIST OPTIONS PUT HERE BY MAP                       MAP         1954     A     
 MAP       PCB      SPACE  4,10                                                            MAP         1955     A     
 MAP      **        PCB -  PLACE CHARACTERS IN BUFFER.                                     MAP         1956     A     
 MAP      *                                                                                MAP         1957     A     
 MAP      *         BEGINING AT LEFT, PCB REMOVES CHARACTERS FROM A STRING                 MAP         1958     A     
 MAP      *         AND STARTING AT WORD AND CHARACTER POSITION SPECIFIED                  MAP         1959     A     
 MAP      *         BY *PCB.WO* AND *PCB.SC* RESPECTIVELY, PLACES THEM IN                  MAP         1960     A     
 MAP      *         THE BUFFER.                                                            MAP         1961     A     
 MAP      *                                                                                MAP         1962     A     
 MAP      *         ENTRY  (A1) = ADRS 1ST WORD OF STRING.                                 MAP         1963     A     
 MAP      *                (X1) = 1ST WORD OF STRING.                                      MAP         1964     A     
 MAP      *                (B6) = LENGTH OF STRING.                                        MAP         1965     A     
 MAP      *                                                                                MAP         1966     A     
 MAP      *         EXIT   NONE.                                                           MAP         1967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1911    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                                                                                MAP         1968     A     
 MAP      *         USES    X - ALL EXCEPT X5  A - 1,2,3,6  B - 2,3,6.                     MAP         1969     A     
 MAP      *                                                                                MAP         1970     A     
 MAP      *         CALLS  NONE.                                                           MAP         1971     A     
 MAP                                                                                       MAP         1972     A     
 MAP       PCB10    BX6    X2                                                              MAP         1973     A     
 MAP                SX4    B2-60                                                           MAP         1974     A     
 MAP                NZ     X4,PCB15    IF NOT AT START OF NEW WORD                         MAP         1975     A     
 MAP                =X6    X6-1                                                            MAP         1976     A     
 MAP                                                                                       MAP         1977     A     
 MAP       PCB15    SA6    PCB.WO       STORE WORD OFFSET                                  MAP         1978     A     
 MAP                SX6    B2                                                              MAP         1979     A     
 MAP                SA6    PCB.SC                                                          MAP         1980     A     
 MAP                BX6    X3                                                              MAP         1981     A     
 MAP                SA6    X2+MAPBUFF  REPLACE MAPBUFF WORD                                MAP         1982     A     
 MAP                                                                                       MAP         1983     A     
 MAP       PCB      SUBR               ENTRY/EXIT...                                       MAP         1984     A     
 MAP                SB3    B0                                                              MAP         1985     A     
 MAP                MX0    CHAR                                                            MAP         1986     A     
 MAP                SA2    PCB.WO       CURRENT MAPBUFF OFFSET                             MAP         1987     A     
 MAP                SA3    PCB.SC       CURRENT SHIFT COUNT                                MAP         1988     A     
 MAP                SB2    X3-60                                                           MAP         1989     A     
 MAP                NZ     B2,PCB17    IF NOT AT START OF NEW WORD                         MAP         1990     A     
 MAP                =X2    X2+1                                                            MAP         1991     A     
 MAP                                                                                       MAP         1992     A     
 MAP       PCB17    SB2    X3                                                              MAP         1993     A     
 MAP                SA3    X2+MAPBUFF  CURRENT MAPBUFF WORD                                MAP         1994     A     
 MAP                                                                                       MAP         1995     A     
 MAP       PCB20    =B6    B6-1                                                            MAP         1996     A     
 MAP                MI     B6,PCB10    IF STRING EXHAUSTED                                 MAP         1997     A     
 MAP                BX4    X0*X1       GRAB LEFTMOST CHARACTER                             MAP         1998     A     
 MAP                LX4    B2,X4       SHIFT INTO POSITION                                 MAP         1999     A     
 MAP                BX3    X4+X3       ADD IT TO MAPBUFF WORD                              MAP         2000     A     
 MAP                SB2    B2-6                                                            MAP         2001     A     
 MAP                GT     B2,B0,PCB30 IF MAPBUFF WORD NOT FILLED                          MAP         2002     A     
 MAP                BX6    X3          OTHERWISE...                                        MAP         2003     A     
 MAP                IFEQ   TEST,ON,2                                                       MAP         2004     A     
 MAP                SX7    X2-14                                                           MAP         2005     A     
 MAP                PL     X7,"BLOWUP" IF BAD OFFSET                                       MAP         2006     A     
 MAP                SA6    X2+MAPBUFF  STORE FILLED WORD                                   MAP         2007     A     
 MAP                =X2    X2+1                                                            MAP         2008     A     
 MAP                SA3    X2+MAPBUFF  GET NEXT ONE                                        MAP         2009     A     
 MAP                SB2    60          RESET SHIFT COUNT                                   MAP         2010     A     
 MAP                                                                                       MAP         2011     A     
 MAP       PCB30    LX1    CHAR                                                            MAP         2012     A     
 MAP                =B3    B3+1                                                            MAP         2013     A     
 MAP                SX4    B3-10                                                           MAP         2014     A     
 MAP                MI     X4,PCB20    IF WORD OF STRING NOT EMPTY                         MAP         2015     A     
 MAP                =A1    A1+1        GET NEXT ONE OTHERWISE                              MAP         2016     A     
 MAP                SB3    B0          RESET CHARACTER COUNT                               MAP         2017     A     
 MAP                EQ     PCB20       CONTINUE                                            MAP         2018     A     
 MAP                                                                                       MAP         2019     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1912    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         2020     A     
 MAP       PCB.WO    CON    -2          MAPBUFF WORD OFFSET                                MAP         2021     A     
 MAP       PCB.SC    CON    60          MAPBUFF SHIFT COUNT (CHAR POSITION)                MAP         2022     A     
 MAP       PRT      SPACE  4,10                                                            MAP         2023     A     
 MAP      **        PRT -  PREPARE REFERENCE TABLE.                                        MAP         2024     A     
 MAP      *                                                                                MAP         2025     A     
 MAP      *                                                                                MAP         2026     A     
 MAP      *         EXIT   REFERENCE LINKS SET UP (IF SELECTED).                           MAP         2027     A     
 MAP      *                TABLES SQUEEZED AND SORTED.                                     MAP         2028     A     
 MAP      *                                                                                MAP         2029     A     
 MAP      *         USES   ALL BUT A0.                                                     MAP         2030     A     
 MAP      *         CALLS  PST.                                                            MAP         2031     A     
 MAP                                                                                       MAP         2032     A     
 MAP                                                                                       MAP         2033     A     
 MAP       PRT      SUBR               ENTRY/EXIT...                                       MAP         2034     A     
 MAP                SA1    WO.LOR                                                          MAP         2035     A     
 MAP                PL     X1,PRT2     IF REF-MAP NOT SELECTED                             MAP         2036     A     
 MAP                SA3    REFIO                                                           MAP         2037     A     
 MAP                ZR     X3,PRT2     IF TABLE IN CORE                                    MAP         2038     A     
 MAP                                                                                       MAP         2039     A     
 MAP      **        READ REFERENCE TABLE BACK INTO CORE.                                   MAP         2040     A     
 MAP                                                                                       MAP         2041     A     
 MAP                SX0    B4          SAVE (B4)                                           MAP         2042     A     
 MAP                WRITER F.REF                                                           MAP         2043     A     
 MAP                REWIND F.REF                                                           MAP         2044     A     
 MAP                SB4    X0          RESTORE (B4)                                        MAP         2045     A     
 MAP                SA2    LOSTREF                                                         MAP         2046     A     
 MAP                ALLOC  T.REF,X2                                                        MAP         2047     A     
 MAP                                                                                       MAP         2048     A     
 MAP                IFNE   CP#RM,7,1                                                       MAP         2049     A     
 MAP                READ   =XF.REF                                                         MAP         2050          I
          -FC50562
 MAP                READ   F.REF                                                           FC50562        5     A     
 MAP                                                                                       MAP         2051     A     
 MAP                SA1    T.REF                                                           MAP         2052     A     
 MAP                SA3    T=REF                                                           MAP         2053     A     
 MAP                SX0    B4          SAVE (B4)                                           MAP         2054     A     
 MAP                READW  =XF.REF,X1,X3                                                   MAP         2055          I
          -FC50562
 MAP                READW  F.REF,X1,X3                                                     FC50562        6     A     
 MAP                SB4    X0          RESTORE (B4)                                        MAP         2056     A     
 MAP                                                                                       MAP         2057     A     
 MAP      **        PRE-LOAD REGISTERS, AND CLEAR LINKS FROM SYMBOL AND LABEL              MAP         2058     A     
 MAP      *         TABLES.                                                                MAP         2059     A     
 MAP                                                                                       MAP         2060     A     
 MAP       PRT2     SA1    T.SYM                                                           MAP         2061     A     
 MAP                SA4    T=SYM                                                           MAP         2062     A     
 MAP                SA3    X1                                                              MAP         2063     A     
 MAP                SB5    X1          (B5) = FWA SYMBOL TABLE                             MAP         2064     A     
 MAP                MX0    WA.SYML                                                         MAP         2065     A     
 MAP                =B2    Z=SYM                                                           MAP         2066     A     
 MAP                SB7    X4-Z=SYM                                                        MAP         2067     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1913    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                BX6    X0*X3                                                           MAP         2068     A     
 MAP                                                                                       MAP         2069     A     
 MAP       PRT23    SA6    A3          CLEAR LINKS FROM SYM TAB                            MAP         2070     A     
 MAP                SA3    A3+B2                                                           MAP         2071     A     
 MAP                SB7    B7-B2                                                           MAP         2072     A     
 MAP                BX6    X0*X3                                                           MAP         2073     A     
 MAP                PL     B7,PRT23                                                        MAP         2074     A     
 MAP                                                                                       MAP         2075     A     
 MAP      **        LINK SYMBOLS AND LABELS INTO  THE REFERENCES.                          MAP         2076     A     
 MAP                                                                                       MAP         2077     A     
 MAP                SA1    T=REF       (X1) = LEN REF TABLE                                MAP         2078     A     
 MAP                SA4    T.REF                                                           MAP         2079     A     
 MAP                ZR     X1,PRT5     IF REF TABLE EMPTY                                  MAP         2080     A     
 MAP                =X6    X1+1                                                            MAP         2081     A     
 MAP                =X7    X4-1                                                            MAP         2082     A     
 MAP                ERRMI  FUDGE-1     CODE REQUIRES AT LEAST 1 SLOP WORD                  MAP         2083     A     
 MAP                SB4    X7                                                              MAP         2084     A     
 MAP                MX0    XR.TAGL                                                         MAP         2085     A     
 MAP                SA6    A1                                                              MAP         2086     A     
 MAP                SA7    A4          FAKE UP INITIAL ENTRY, TO PREVENT ZERO LINK         MAP         2087     A     
 MAP                SA5    B4+X1                                                           MAP         2088     A     
 MAP                                                                                       MAP         2089     A     
 MAP       SNAP=R   IFNE   TEST        DMP REFERENCE TABLE                                 MAP         2090     A     
 MAP                SA3    CO.SNAP                                                         MAP         2091     A     
 MAP                LX3    1RR                                                             MAP         2092     A     
 MAP                PL     X3,PRT3S    IF REFERENCE SNAP NOT SELECTED                      MAP         2093     A     
 MAP                DUMPT  REF                                                             MAP         2094     A     
 MAP       PRT3S    BSS    0                                                               MAP         2095     A     
 MAP       SNAP=R   ENDIF                                                                  MAP         2096     A     
 MAP                                                                                       MAP         2097     A     
 MAP       PRT4     BX6    -X0*X5                                                          MAP         2098     A     
 MAP                LX5    -XR.TAGP                                                        MAP         2099     A     
 MAP                SX2    X5                                                              MAP         2100     A     
 MAP                LX7    X2,B1                                                           MAP         2101     A     
 MAP                IX2    X2+X7       (X2) = SYMTAB INDEX                                 MAP         2102     A     
 MAP                ERRNZ  3-Z=SYM     CODE ASSUMES Z=SYM = 3                              MAP         2103     A     
 MAP                SA2    X2+B5       FETCH SYMBOL                                        MAP         2104     A     
 MAP                SX4    X2          ISOLATE SYM LINK                                    MAP         2105     A     
 MAP                BX3    X2-X4                                                           MAP         2106     A     
 MAP                LX4    XR.TAGP                                                         MAP         2107     A     
 MAP                =A5    A5-1                                                            MAP         2108     A     
 MAP                IX6    X6+X4       LINK THIS REF TO PREVIOUS CHAIN                     MAP         2109     A     
 MAP                BX7    X3+X1       SYM/LAB LINKS TO THIS REF                           MAP         2110     A     
 MAP                SA6    B4+X1                                                           MAP         2111     A     
 MAP                SX1    A5-B4       (X1) = (X1) - 1                                     MAP         2112     A     
 MAP                SA7    A2                                                              MAP         2113     A     
 MAP                NZ     X1,PRT4     IF MORE REFERENCES                                  MAP         2114     A     
 MAP                                                                                       MAP         2115     A     
 MAP       PRT5     BSS    0                                                               MAP         2116     A     
 MAP       SNAP=R   IFNE   TEST        DUMP REFERENCE TABLE                                MAP         2117     A     
 MAP                SA3    CO.SNAP                                                         MAP         2118     A     
 MAP                LX3    1RR                                                             MAP         2119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1914    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                PL     X3,PRT5S    IF REFERENCE SNAP NOT SELECTED                      MAP         2120     A     
 MAP                DUMPT  SYM                                                             MAP         2121     A     
 MAP       PRT5S    BSS    0                                                               MAP         2122     A     
 MAP       SNAP=R   ENDIF                                                                  MAP         2123     A     
 MAP                EQ     EXIT.                                                           MAP         2124     A     
 MAP       RNI      SPACE  4,10                                                            MAP         2125     A     
 MAP      **        RNI -  RETURN NEXT INDEX                                               MAP         2126     A     
 MAP      *                                                                                MAP         2127     A     
 MAP      *         RETURNS INDEX OF NEXT TABLE MEMBER TO BE PROCESSED                     MAP         2128     A     
 MAP      *         BY THE CALLING ROUTINE                                                 MAP         2129     A     
 MAP      *                                                                                MAP         2130     A     
 MAP      *         ENTRY  NONE                                                            MAP         2131     A     
 MAP      *                                                                                MAP         2132     A     
 MAP      *         EXIT   *RNI.PI* = INDEX OF NEXT MEMBER                                 MAP         2133     A     
 MAP      *                                                                                MAP         2134     A     
 MAP      *         CALLS  SRNI                                                            MAP         2135     A     
 MAP      *         USES   X - 1,2,3,4,5,6,7  A - ALL  B - 2,3,4,5                         MAP         2136     A     
 MAP                                                                                       MAP         2137     A     
 MAP       RNI      SUBR               ENTRY/EXIT...                                       MAP         2138     A     
 MAP       RNI5     SA3    RNI.PI      PREVIOUS INDEX RETURNED                             MAP         2139     A     
 MAP                SA4    SRNI.BDF                                                        MAP         2140     A     
 MAP                PL     X4,RNI10    IF NOT FIRST TIME FOR THIS TABLE DIVISION           MAP         2141     A     
 MAP                BX7    X3                                                              MAP         2142     A     
 MAP                SA7    A4                                                              MAP         2143     A     
 MAP                =X6    1                                                               MAP         2144     A     
 MAP                SA6    RNI.CC                                                          MAP         2145     A     
 MAP                =X6    -1                                                              MAP         2146     A     
 MAP                SA6    RNI.SC                                                          MAP         2147     A     
 MAP                EQ     EXIT.                                                           MAP         2148     A     
 MAP                                                                                       MAP         2149     A     
 MAP       RNI10    SA1    RNI.CC      COUNTS NO. OF TIMES CALLED FOR THIS TABLE           MAP         2150     A     
 MAP                =X7    X1+1                                                            MAP         2151     A     
 MAP                SA7    RNI.CC      UPDATE IT                                           MAP         2152     A     
 MAP                SA2    RNI.CL      CALL LIMIT                                          MAP         2153     A     
 MAP                IX1    X2-X7                                                           MAP         2154     A     
 MAP                PL     X1,RNI20    IF TABLE DIVISION NOT EMPTY                         MAP         2155     A     
 MAP                SB2    0                                                               MAP         2156     A     
 MAP                RJ     SRNI        RESET RNI PARAMETERS                                MAP         2157     A     
 MAP                PL     B3,RNI5     IF TABLE NOT EMPTY                                  MAP         2158     A     
 MAP                MX7    0           SIGNAL EMPTY TABLE                                  MAP         2159     A     
 MAP                SA7    RNI.PI                                                          MAP         2160     A     
 MAP                EQ     EXIT.       RETURN                                              MAP         2161     A     
 MAP                                                                                       MAP         2162     A     
 MAP       RNI20    SA1    RNI.SC      SECTION COUNTER                                     MAP         2163     A     
 MAP                =X6    X1+1                                                            MAP         2164     A     
 MAP                SA1    RNI.SL+X6   FETCH LENGTH PREVIOUS SECTION                       MAP         2165     A     
 MAP                IX7    X3+X1       COMPUTE NEW INDEX                                   MAP         2166     A     
 MAP                SA2    SRNI.LED                                                        MAP         2167     A     
 MAP                IX3    X2-X7                                                           MAP         2168     A     
 MAP                MI     X3,RNI30    IF TIME TO BACK UP TO 1ST SECTION                   MAP         2169     A     
 MAP                SA6    RNI.SC                                                          MAP         2170     A     
 MAP                SA7    RNI.PI                                                          MAP         2171     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1915    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                EQ     EXIT.                                                           MAP         2172     A     
 MAP                                                                                       MAP         2173     A     
 MAP       RNI30    SA1    SRNI.FED                                                        MAP         2174     A     
 MAP                IX1    X2-X1                                                           MAP         2175     A     
 MAP                =X1    X1+1                                                            MAP         2176          I
          -FC5A185
 MAP                IX7    X7-X1                                                           MAP         2177          I
          -FC5A185
 MAP                =X7    X7+1                                                            MAP         2178          I
          -FC5A185
 MAP                IX7    X7-X1                                                           FC5A185      493     A     
 MAP                =X6    -1                                                              MAP         2179     A     
 MAP                SA6    RNI.SC      UPDATE SECTION COUNTER                              MAP         2180     A     
 MAP                SA7    RNI.PI      UPDATE PREVIOUS INDEX                               MAP         2181     A     
 MAP                EQ     EXIT.       RETURN                                              MAP         2182     A     
 MAP                                                                                       MAP         2183     A     
 MAP       RNI.SL   BSS    6           STORAGE FOR SECTION LENGTHS                         MAP         2184     A     
 MAP       RNI.CC   BSS    1           CALL COUNTER                                        MAP         2185     A     
 MAP       RNI.CL   BSS    1           CALL LIMIT                                          MAP         2186     A     
 MAP       RNI.SC   BSS    1           SECTION COUNTER                                     MAP         2187     A     
 MAP       RNI.PI   BSS    1           PREVIOUS INDEX                                      MAP         2188     A     
 MAP       SRC      SPACE  4,10                                                            MAP         2189     A     
 MAP      **        SRC -  SEARCH REFERENCE CHAIN.                                         MAP         2190     A     
 MAP      *                                                                                MAP         2191     A     
 MAP      *         WILL SEARCH REF CHAIN FOR A *D* USAGE LETTER, SETTING XR.MEDF          MAP         2192     A     
 MAP      *         IN THAT ENTRY SO THAT REF PROCESSOR CAN SKIP IT.                       MAP         2193     A     
 MAP      *                                                                                MAP         2194     A     
 MAP      *         ENTRY  (X6) = *WA* OF A SYMBOL.                                        MAP         2195     A     
 MAP      *                                                                                MAP         2196     A     
 MAP      *         USES   X - 0,5,6,7  A - 5,7  B - 4.                                    MAP         2197     A     
 MAP                                                                                       MAP         2198     A     
 MAP       SRC20    LX5    XR.USEP                                                         MAP         2199          I
          -FC50913
 MAP                LDBIT  X7,XR.MEDFP                                                     MAP         2200          I
          -FC50913
 MAP                BX7    X5+X7                                                           MAP         2201          I
          -FC50913
 MAP                SA7    A5                                                              MAP         2202          I
          -FC50913
 MAP                                                                                       MAP         2203     A     
 MAP       SRC      SUBR               ENTRY/EXIT...                                       MAP         2204     A     
 MAP                SA5    WO.LOR                                                          MAP         2205     A     
 MAP                PL     X5,EXIT.    IF REFERENCES NOT SELECTED                          MAP         2206     A     
 MAP                SA5    T.REF                                                           MAP         2207     A     
 MAP                SB4    X5          FWA T.REF                                           MAP         2208     A     
 MAP                XTRCT  WA.HASH,X6,X6     ISOLATE LINK TO HEAD OF REF CHAIN             MAP         2209     A     
 MAP                ZR     X6,EXIT.    IF NO REFS                                          MAP         2210     A     
 MAP                                                                                       MAP         2211     A     
 MAP       SRC10    SA5    B4+X6                                                           MAP         2212     A     
 MAP                XTRCT  XR.TAG,X5,X6      ISOLATE LINK TO NEXT REF                      MAP         2213     A     
 MAP                LX5    XR.TAGP-XR.USEP                                                 MAP         2214     A     
 MAP                MX0    -XR.USEL                                                        MAP         2215     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1916    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                BX7    -X0*X5      ISOLATE USAGE LETTER                                MAP         2216     A     
 MAP                SX7    X7-CR.DEF                                                       MAP         2217          I
          -FC50913
 MAP                ZR     X7,SRC20    IF FOUND *D* USAGE LETTER                           MAP         2218          I
          -FC50913
 MAP                SX0    X7-CR.DEF                                                       FC50913        9     A     
 MAP                ZR     X0,SRC20    IF FOUND *D* USAGE LETTER                           FC50913       10     A     
 MAP                SX7    X7-CR.RET                                                       FC50913       11     A     
 MAP                NZ     X7,SRC30    IF NOT FOUND *R* USAGE LETTER                       FC50913       12     A     
 MAP                                                                                       FC50913       13     A     
 MAP       SRC20    LX5    XR.USEP                                                         FC50913       14     A     
 MAP                LDBIT  X7,XR.MEDFP                                                     FC50913       15     A     
 MAP                BX7    X5+X7                                                           FC50913       16     A     
 MAP                SA7    A5                                                              FC50913       17     A     
 MAP                NZ     X6,SRC10    IF MORE REFS                                        MAP         2219          I
          -FC50913
 MAP                                                                                       FC50913       18     A     
 MAP       SRC30    NZ     X6,SRC10    IF MORE REFS                                        FC50913       19     A     
 MAP                EQ     EXIT.                                                           MAP         2220     A     
 MAP       SRNI     SPACE  4,10                                                            MAP         2221     A     
 MAP      **        SRNI - SET RNI PARAMETERS.                                             MAP         2222     A     
 MAP      *                                                                                MAP         2223     A     
 MAP      *         ENTRY  *SRNI.LED* = INDEX OF LAST ELEMENT IN T.SCR DIVISION.           MAP         2224     A     
 MAP      *                                                                                MAP         2225     A     
 MAP      *                *T=SCR* = LENGTH OF T.SCR.                                      MAP         2226     A     
 MAP      *                                                                                MAP         2227     A     
 MAP      *                *MOCTC* = NUMBER OF SECTIONS TO APPEAR ACROSS PAGE.             MAP         2228     A     
 MAP      *                                                                                MAP         2229     A     
 MAP      *                (B2) = NUMBER OF LINES NEEDED BY HEADINGS.                      MAP         2230     A     
 MAP      *                                                                                MAP         2231     A     
 MAP      *         EXIT   (B3) = -1 IF TABLE EMPTY.                                       MAP         2232     A     
 MAP      *                                                                                MAP         2233     A     
 MAP      *         USES   X - 1,2,3,4,5,6,7  A - 2,3,4,5,6,7  B - 2,3,5,6.                MAP         2234     A     
 MAP                                                                                       MAP         2235     A     
 MAP       SRNI     SUBR               ENTRY/EXIT...                                       MAP         2236     A     
 MAP                =X6    -1                                                              MAP         2237     A     
 MAP                SA6    SRNI.BDF    SET BEGINING OF DIVISION FLAG                       MAP         2238     A     
 MAP                SA2    SRNI.LED    LAST ELEMENT IN THIS DIVISION                       MAP         2239     A     
 MAP                SA3    T=SCR                                                           MAP         2240     A     
 MAP                =X6    X2+1                                                            MAP         2241     A     
 MAP                SA6    SRNI.FED    RESET FIRST ELEMENT OF DIVISION                     MAP         2242     A     
 MAP                IX7    X3-X6                                                           MAP         2243     A     
 MAP                =B3    -1                                                              MAP         2244     A     
 MAP                MI     X7,EXIT.    IF TABLE EMPTY                                      MAP         2245     A     
 MAP                SA4    LCNT                                                            MAP         2246     A     
 MAP                SA5    CP.PS                                                           MAP         2247          I
          -FC5A107
 MAP                SA5    CO.PS                                                           FC5A107       21     A     
 MAP                IX2    X5-X4                                                           MAP         2248     A     
 MAP                SB3    X2                                                              MAP         2249          I
          -FC50488
 MAP                SB3    X2-2                                                            FC50488        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1917    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SX4    B3-B2       X4 = NUMBER OF USABLE LINES                         MAP         2250     A     
 MAP                SX7    X2-10                                                           MAP         2251     A     
 MAP                PL     X7,SRNI10   IF *OTH* WONT PAGE EJECT                            MAP         2252     A     
 MAP                SB3    X5                                                              MAP         2253     A     
 MAP                SX4    B3-B2                                                           MAP         2254     A     
 MAP                SX4    X4-3                                                            MAP         2255          I
          -FC50488
 MAP                                                                                       MAP         2256     A     
 MAP       SRNI10   SA5    MAP.NO                                                          MAP         2257     A     
 MAP                LX5    -1                                                              MAP         2258     A     
 MAP                BX1    X3          X1 = DEFAULT NUMBER OF ENTRIES ON PAGE              MAP         2259     A     
 MAP                SA2    MOCTC                                                           MAP         2260     A     
 MAP                MI     X5,SRNI20   IF REFERENCES SELECTED                              MAP         2261     A     
 MAP                IX5    X4*X2       X5 = NO. OF ENTRIES THAT COULD FIT ON PAGE          MAP         2262     A     
 MAP                IX7    X3-X6                                                           MAP         2263     A     
 MAP                =X1    X7+1        X1 = NUMBER OF ENTRIES LEFT                         MAP         2264     A     
 MAP                IX7    X5-X1                                                           MAP         2265     A     
 MAP                PL     X7,SRNI20   IF ALL ENTRIES WILL FIT ON PAGE                     MAP         2266     A     
 MAP                BX1    X5                                                              MAP         2267     A     
 MAP                                                                                       MAP         2268     A     
 MAP       SRNI20   IX7    X6+X1                                                           MAP         2269     A     
 MAP                =X7    X7-1                                                            MAP         2270     A     
 MAP                SA7    SRNI.LED    RESET LAST                                          MAP         2271     A     
 MAP                SA6    RNI.PI      INITIALIZE INDEX                                    MAP         2272     A     
 MAP                =B5    X2-1        LOOP LIMIT                                          MAP         2273     A     
 MAP                =B6    0                                                               MAP         2274     A     
 MAP                =B2    1           EXTRA LENGTH                                        MAP         2275     A     
 MAP                BX4    X1                                                              MAP         2276     A     
 MAP                BX5    X2                                                              MAP         2277     A     
 MAP                IX7    X4/X5                                                           MAP         2278     A     
 MAP                IX6    X7*X2                                                           MAP         2279     A     
 MAP                IX6    X1-X6                                                           MAP         2280     A     
 MAP                SB3    X6          B3 = REMAINDER                                      MAP         2281     A     
 MAP                                                                                       MAP         2282     A     
 MAP       SRNI30   =B3    B3-1                                                            MAP         2283     A     
 MAP                PL     B3,SRNI40   IF NEED TO ADD EXTRA LENGTH                         MAP         2284     A     
 MAP                =B2    0                                                               MAP         2285     A     
 MAP                SB3    10          PREVENTS EXECUTION OF THIS SEQUENCE                 MAP         2286     A     
 MAP                                                                                       MAP         2287     A     
 MAP       SRNI40   SX6    X7+B2       COMPUTE LENGTH OF A SECTION                         MAP         2288     A     
 MAP                SA6    RNI.SL+B6                                                       MAP         2289     A     
 MAP                =B6    B6+1                                                            MAP         2290     A     
 MAP                LE     B6,B5,SRNI30      IF NOT DONE                                   MAP         2291     A     
 MAP                BX6    X1                                                              MAP         2292     A     
 MAP                SA6    RNI.CL      CALL LIMIT                                          MAP         2293     A     
 MAP                EQ     EXIT.                                                           MAP         2294     A     
 MAP       SRNI     SPACE  4                                                               MAP         2295     A     
 MAP       SRNI.BDF BSS    1           FLAG                                                MAP         2296     A     
 MAP       SRNI.FED BSS    1           FIRST ELEMENT OF TABLE DIVISION                     MAP         2297     A     
 MAP       SRNI.LED BSS    1           LAST ELEMENT OF TABLE DIVISION                      MAP         2298     A     
 MAP       STS      SPACE  4,10                                                            MAP         2299     A     
 MAP      **        STS -  SYMBOL TABLE SEPARATION.                                        MAP         2300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1918    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                                                                                MAP         2301     A     
 MAP      *         WILL SELECT ONE OF THE FOLLOWING SYMBOL TYPES                          MAP         2302     A     
 MAP      *         FROM THE SYMBOL TABLE -                                                MAP         2303     A     
 MAP      *         VARIABLES,PROCEDURES,LABELS,NAMELIST,STRAY NAMES,DO LOOPS,             MAP         2304     A     
 MAP      *         ENTRY POINTS,SYMBOLIC CONSTANTS,COMMON BLOCK MEMBERS.                  MAP         2305     A     
 MAP      *         FOR EACH ENTRY SELECTED, AN INDIRECT SORT KEY IS                       MAP         2306     A     
 MAP      *         ADDED TO T.SCR.                                                        MAP         2307     A     
 MAP      *                                                                                MAP         2308     A     
 MAP      *         ENTRY  (X5) = BIT MASK TO SELECT A SYMBOL TYPE.                        MAP         2309     A     
 MAP      *                (X4) = BIT MASK TO REJECT SUBSET OF SELECTED SYM TYPE.          MAP         2310     A     
 MAP      *                (B4) = MST OFFSET.                                              MAP         2311     A     
 MAP      *                (STS.BI) = BLOCK INDEX (COM-EQV MAP ONLY)  .                    MAP         2312     A     
 MAP      *                                                                                MAP         2313     A     
 MAP      *         EXIT   PROPER SYMBOLS ON T.SCR.                                        MAP         2314     A     
 MAP      *                                                                                MAP         2315     A     
 MAP      *         USES   X - 0,1,2,3,6,7  A - 1,2,3  B - 2,3,7.                          MAP         2316     A     
 MAP      *                                                                                MAP         2317     A     
 MAP      *         CALLS  ADDWD,SHRINK.                                                   MAP         2318     A     
 MAP                                                                                       MAP         2319     A     
 MAP       STS      SUBR               ENTRY/EXIT.                                         MAP         2320     A     
 MAP                SHRINK T=SCR,0                                                         MAP         2321     A     
 MAP                SA1    T.SYM                                                           MAP         2322     A     
 MAP                SA2    T=SYM                                                           MAP         2323     A     
 MAP      **                                                                               MAP         2324     A     
 MAP      *         WILL ALWAYS SKIP OVER ZERO-TH ORDINAL.                                 MAP         2325     A     
 MAP      **                                                                               MAP         2326     A     
 MAP                =B2    WB.W                                                            MAP         2327     A     
 MAP                SB3    X2                                                              MAP         2328     A     
 MAP                                                                                       MAP         2329     A     
 MAP       STS10    SB2    B2+Z=SYM                                                        MAP         2330     A     
 MAP                SB3    B3-Z=SYM                                                        MAP         2331     A     
 MAP                ZR     B3,EXIT.    IF TABLE EXHAUSTED                                  MAP         2332     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         2333     A     
 MAP                MI     B3,"BLOWUP" IF TABLE LENGTH NOT MULTIPLE OF Z=SYM               MAP         2334     A     
 MAP                SA3    X1+B2                                                           MAP         2335     A     
 MAP                SX7    B4-TVARP                                                        MAP         2336     A     
 MAP                NZ     X7,STS20    IF NOT VARIABLE MAP                                 MAP         2337     A     
 MAP                CLAS=  X7,WB,(VAR,NVAR,LAB)                                            MAP         2338     A     
 MAP                BX7    X7*X3                                                           MAP         2339     A     
 MAP                ZR     X7,STS30    IF STRAY NAME, LET IT THROUGH                       MAP         2340     A     
 MAP                EQ     STS25                                                           MAP         2341     A     
 MAP                                                                                       MAP         2342     A     
 MAP       STS20    SX7    B4-TDOLP                                                        MAP         2343     A     
 MAP                ZR     X7,STS22    IF DO-LOOP MAP                                      MAP         2344     A     
 MAP                SX7    B4-TIOP                                                         MAP         2345     A     
 MAP                NZ     X7,STS25    IF NOT I/O MAP                                      MAP         2346     A     
 MAP                                                                                       MAP         2347     A     
 MAP       STS22    BX7    X5+X3                                                           MAP         2348     A     
 MAP                NZ     X7,STS10    IF ALL REQUESTED BITS ARE ZERO                      MAP         2349     A     
 MAP                EQ     STS30                                                           MAP         2350          I
          -FC50514
 MAP                EQ     STS35                                                           FC50514       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1919    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         2351     A     
 MAP       STS25    BX7    X5*X3                                                           MAP         2352     A     
 MAP                ZR     X7,STS10    IF SELECT CRITERIA NOT SATISFIED                    MAP         2353     A     
 MAP                BX7    X4*X3                                                           MAP         2354     A     
 MAP                NZ     X7,STS10    IF REJECT SUBSET CRITERIA SATISFIED                 MAP         2355     A     
 MAP                SX7    B4-TCOMP                                                        MAP         2356     A     
 MAP                NZ     X7,STS30    IF NOT COMMON-EQUIVALENCE MAP                       MAP         2357     A     
 MAP                SA2    A3-WB.W+WC.W                                                    MAP         2358     A     
 MAP                SA3    STS.BI                                                          MAP         2359     A     
 MAP                XTRCT  WC.RB,X2,X7 ISOLATE BLOCK INDEX                                 MAP         2360     A     
 MAP                IX7    X3-X7                                                           MAP         2361     A     
 MAP                NZ     X7,STS10    IF BLOCK INDEXES DONT MATCH                         MAP         2362     A     
 MAP                LX2    WC.RBP                                                          MAP         2363     A     
 MAP                ERRNZ  WC.RAL-24                                                       MAP         2364          I
          -FC5A185
 MAP                SX6    X2          ISOLATE RA                                          MAP         2365          I
          -FC5A185
 MAP                XTRCT  WC.RA,X2,X6    X6 = RA                                          FC5A185      494     A     
 MAP                =A3    A2-WC.W+WB.W      *WB*                                          MAP         2366     A     
 MAP                XTRCT  WB.MODE,X3,X3                                                   MAP         2367     A     
 MAP                SX3    X3-M.CHAR                                                       MAP         2368     A     
 MAP                NZ     X3,STS27    IF NOT TYPE CHAR                                    MAP         2369          I
          -FC5A185
 MAP                LX6    MT.RAP                                                          FC5A185      495     A     
 MAP                NZ     X3,STS40    IF NOT TYPE CHAR                                    FC5A185      496     A     
 MAP                LX6    -MT.RAP                                                         FC5A185      497     A     
 MAP                LX2    WC.RAP                                                          FC5A185      498     A     
 MAP                WC     X3,X6       CONVERT RA TO CHARACTERS                            MAP         2370     A     
 MAP                XTRCT  WC.BCP,X2,X6      ISOLATE BEGINING CHARACTER POSITION           MAP         2371     A     
 MAP                IX6    X6+X3                                                           MAP         2372     A     
 MAP                                                                                       MAP         2373          I
          -FC5A185
 MAP       STS27    LX6    MT.RABMP                                                        MAP         2374          I
          -FC5A185
 MAP                EQ     STS40                                                           MAP         2375          I
          -FC5A185
 MAP                LX6    MT.RAP                                                          FC5A185      499     A     
 MAP                SA3    A3          RESTORE *WB*                                        FC5A185      500     A     
 MAP                HX3    WB.EQV                                                          FC5A185      501     A     
 MAP                PL     X3,STS40    IF NOT EQUIVALENCED                                 FC5A185      502     A     
 MAP                LX6    -MT.RAP                                                         FC5A185      503     A     
 MAP                LX3    1+WB.EQVP-WB.BASEP                                              FC5A185      504     A     
 MAP                MX0    -WB.BASEL                                                       FC5A185      505     A     
 MAP                BX3    -X0*X3      X3 = SYMORD OF BASE MEMBER                          FC5A185      506     A     
 MAP                BX2    X3                                                              FC5A185      507     A     
 MAP                LX3    1                                                               FC5A185      508     A     
 MAP                IX3    X3+X2       CONVERT TO *WA* INDEX                               FC5A185      509     A     
 MAP                IX3    X1+X3       X3 = *WA* ADDRESS                                   FC5A185      510     A     
 MAP                =A3    X3+WC.W     X3 = *WC*                                           FC5A185      511     A     
 MAP                XTRCT  WC.BCP,X3,X3      X3 = BCP OF BASE                              FC5A185      512     A     
 MAP                IX6    X6+X3       X6 = COMPLETE RA OF MEMBER                          FC5A185      513     A     
 MAP                LX6    MT.RAP                                                          FC5A185      514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1920    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                EQ     STS40                                                           FC5A185      515     A     
 MAP                                                                                       MAP         2376     A     
 MAP       STS30    =A2    A3-1        GRAB SYMBOL                                         MAP         2377          I
          -FC50514
 MAP       STS30    SA2    MAP.NO                                                          FC50514       19     A     
 MAP                =A1    A3-WB.W+WA.W                                                    FC50514       20     A     
 MAP                LX2    -1                                                              FC50514       21     A     
 MAP                PL     X2,STS35    IF LO=-R                                            FC50514       22     A     
 MAP                SX1    X1          EXTRACT REFERENCE LINK                              FC50514       23     A     
 MAP                ZR     X1,STS50    IF NO REFERENCES COLLECTED FOR SYMBOL               FC50514       24     A     
 MAP                                                                                       FC50514       25     A     
 MAP       STS35    =A2    A3-WB.W+WA.W                                                    FC50514       26     A     
 MAP                MX7    -WA.SYML                                                        MAP         2378     A     
 MAP                LX2    -WA.SYMP                                                        MAP         2379     A     
 MAP                BX6    -X7*X2       ISOLATE SYMBOL                                     MAP         2380     A     
 MAP                LX6    MT.SYMP                                                         MAP         2381     A     
 MAP                SX7    B4-TIOP                                                         MAP         2382     A     
 MAP                NZ     X7,STS40    IF NOT I/O MAP                                      MAP         2383     A     
 MAP                PL     X6,STS10    IF BIT 59 NOT SET                                   MAP         2384     A     
 MAP                MX7    1                                                               MAP         2385     A     
 MAP                BX6    X6-X7       TURN OFF BIT 59                                     MAP         2386     A     
 MAP                                                                                       MAP         2387     A     
 MAP       STS40    =X1    B2-WB.W     OFFSET OF THIS ENTRY                                MAP         2388     A     
 MAP                LX1    MT.WAIP                                                         MAP         2389     A     
 MAP                IX6    X6+X1       FORM INDIRECT KEY                                   MAP         2390          I
          -FC5A185
 MAP                BX6    X6+X1       FORM INDIRECT KEY                                   FC5A185      516     A     
 MAP                ADDWD  T.SCR                                                           MAP         2391     A     
 MAP                SA1    T.SYM       REFRESH FWA OF SYMTAB                               MAP         2392          I
          -FC50514
 MAP                                                                                       FC50514       27     A     
 MAP       STS50    SA1    T.SYM                                                           FC50514       28     A     
 MAP                EQ     STS10                                                           MAP         2393     A     
 MAP                                                                                       MAP         2394     A     
 MAP       STS.BI   BSS    1           BLOCK INDEX. USED ONLY DURING COM-EQV MAP           MAP         2395     A     
 MAP       TAB      SPACE  4,10                                                            MAP         2396     A     
 MAP      **        TAB -  TAB OUT TO GIVEN COLUMN IN MAPBUFF.                             MAP         2397     A     
 MAP      *                                                                                MAP         2398     A     
 MAP      *         ENTRY  (X1) = COLUMN TO TAB TO.                                        MAP         2399     A     
 MAP      *                                                                                MAP         2400     A     
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6  B - 2,3,6.                      MAP         2401     A     
 MAP      *                                                                                MAP         2402     A     
 MAP      *         CALLS  PCB,GBL.                                                        MAP         2403          I
          -FC50297
 MAP      *         CALLS  CBS, GBL, PCB.                                                  FC50297       26     A     
 MAP                                                                                       MAP         2404     A     
 MAP       TAB      SUBR               ENTRY/EXIT...                                       MAP         2405     A     
 MAP                                                                                       MAP         2406          I
          -FC50297
 MAP                RJ     GBL         GET BUFFER LENGTH                                   MAP         2407     A     
 MAP                IX4    X1-X2                                                           MAP         2408     A     
 MAP                =B6    X4-1        NUMBER OF BLANKS TO OUTPUT                          MAP         2409     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1921    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                IFEQ   TEST,ON,1                                                       MAP         2410     A     
 MAP                MI     B6,"BLOWUP" IF BAD X1                                           MAP         2411     A     
 MAP                ZR     B6,EXIT.    IF POSITIONED CORRECTLY                             FC50297       27     A     
 MAP                RJ     CBS         MAKE SURE ENOUGH BUFFER SPACE                       FC50297       28     A     
 MAP                MI     B3,EXIT.    IF NOT ENOUGH BUFFER SPACE, NO TAB                  FC50297       29     A     
 MAP                SA1    MAP.XS                                                          MAP         2412     A     
 MAP                RJ     PCB         TAB TO REQUESTED COLUMN                             MAP         2413     A     
 MAP                EQ     EXIT.                                                           MAP         2414     A     
 MAP                TITLE  FIELD PROCESSORS                                                MAP         2415     A     
 MAP      ADR       EJECT                                                                  MAP         2416          I
          -FC50326
 MAP      **        NOTE - UNTIL THEY HAVE BEEN WRITTEN AND/OR DEBUGGED SOME               MAP         2417          I
          -FC50326
 MAP      *         PROCESSORS WILL OUTPUT XXXXXX INSTEAD OF DATA.                         MAP         2418          I
          -FC50326
 MAP       ADR      SPACE  4,10                                                            MAP         2419     A     
 MAP      **        ADR -  OUTPUT RELATIVE ADDRESS OF A SYMBOL.                            MAP         2420     A     
 MAP      *                                                                                MAP         2421     A     
 MAP      *         ACCESSES SYMBOL TABLE VIA OFFSET STORED IN X7 TO GET                   MAP         2422     A     
 MAP      *         RELATIVE ADDRESS OF A SYMBOL.                                          MAP         2423     A     
 MAP      *                                                                                MAP         2424     A     
 MAP      *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/ADR.                                MAP         2425     A     
 MAP      *                (X7) = ENTRY OF T.SCR (CONTAINS INDEX).                         MAP         2426     A     
 MAP      *                                                                                MAP         2427     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         2428     A     
 MAP      *                                                                                MAP         2429     A     
 MAP      *         CALLS  JIF,PIA,CDD,CCBB,PCB.                                           MAP         2430     A     
 MAP                                                                                       MAP         2431     A     
 MAP       ADR      DIS    MAPPML,ADDRESS                                                  MAP         2432     A     
 MAP                                                                                       MAP         2433     A     
 MAP                SA2    T.SYM                                                           MAP         2434     A     
 MAP                XTRCT  MT.WAI,X7,X7      ISOLATE T.SYM WORD A INDEX                    MAP         2435     A     
 MAP                =B6    X7+WB.W     OFFSET TO WORD B                                    MAP         2436     A     
 MAP                SA1    X2+B6       FETCH WORD B                                        MAP         2437     A     
 MAP                LX4    30                                                              MAP         2438     A     
 MAP                SB5    X4          ISOLATE FIELD WIDTH                                 MAP         2439     A     
 MAP                MX6    0                                                               MAP         2440          I
          -FC5A114
 MAP                IFBIT  X1,-WB.FPP,ADR10  IF NOT AN F.P.                                MAP         2441          I
          -FC5A391
 MAP                SBIT   X1,WB.FPP                                                       FC5A391        9     A     
 MAP                PL     X1,ADR10    IF NOT DUMMY ARGUMENT                               FC5A391       10     A     
 MAP                LX1    WB.FPP+1    RESTORE X1 TO NOMINAL POSITION                      MAP         2442     A     
 MAP                XTRCT  WB.FPNO,X1,X1     ISOLATE FPNO                                  MAP         2443     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         2444     A     
 MAP                BX1    X6                                                              MAP         2445     A     
 MAP                =B5    B5-1                                                            MAP         2446     A     
 MAP                =B6    -1          INDICATE UNKNOWN ITEM WIDTH                         MAP         2447     A     
 MAP                SX0    3           BOTH INPUT AND OUTPUT RIGHT JUSTIFY                 MAP         2448     A     
 MAP                RJ     JIF                                                             MAP         2449     A     
 MAP                =B6    1                                                               MAP         2450     A     
 MAP                SA1    MAP.XS                                                          MAP         2451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1922    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                RJ     PCB                                                             MAP         2452     A     
 MAP                EQ     MOC.RB                                                          MAP         2453     A     
 MAP                                                                                       MAP         2454     A     
 MAP       ADR10    IFBIT  X1,WB.MATP/WB.FPP,ADR20 IF MATERIALIZED                         MAP         2455          I
          -FC5A391
 MAP                IFBIT  X1,-WB.EQVP/WB.MATP,ADR15     IF NOT EQUIVALENCED               MAP         2456          I
          -FC5A391
 MAP       ADR10    SBIT   X1,WB.MATP/WB.FPP                                               FC5A391       11     A     
 MAP                MI     X1,ADR20    IF MATERIALIZED                                     FC5A391       12     A     
 MAP                SBIT   X1,WB.EQVP/WB.MATP                                              FC5A391       13     A     
 MAP                PL     X1,ADR15    IF NOT EQUIVALENCED                                 FC5A391       14     A     
 MAP                LX1    WB.EQVP+1   RESTORE X1 TO NOMINAL POSITION                      MAP         2457     A     
 MAP                XTRCT  WB.BASE,X1,X1     X1 = SYMORD OF BASE MEMBER                    MAP         2458          I
          -FC5A114
 MAP                SB6    X1                                                              MAP         2459          I
          -FC5A114
 MAP                LX1    1                                                               MAP         2460          I
          -FC5A114
 MAP                SB6    X1+B6       CONVERT TO INDEX                                    MAP         2461          I
          -FC5A114
 MAP                =B6    B6-WA.W+WB.W                                                    MAP         2462          I
          -FC5A114
 MAP                =A1    A1-WB.W+WC.W      X1 = *WC*                                     MAP         2463          I
          -FC5A114
 MAP                XTRCT  WC.RA,X1,X6       X6 = EQUIV. CLASS OFFSET                      MAP         2464          I
          -FC5A114
 MAP                SA1    X2+B6       *WB* OF EQUIV. CLASS BASE                           MAP         2465          I
          -FC5A114
 MAP                EQ     ADR20                                                           MAP         2466          I
          -FC5A114
 MAP                XTRCT  WB.BASE,X1,X4     X4 = SYMORD OF BASE MEMBER                    FC5A114       28     A     
 MAP                SB6    X4                                                              FC5A114       29     A     
 MAP                LX4    1                                                               FC5A114       30     A     
 MAP                SB6    X4+B6                                                           FC5A114       31     A     
 MAP                =B6    B6+WB.W     CONVERT TO *WB* INDEX                               FC5A114       32     A     
 MAP                SA4    X2+B6       *WB* OF BASE MEMBER                                 FC5A114       33     A     
 MAP                IFBIT  X4,WB.MATP,ADR20  IF BASE MEMBER IS MATERIALIZED                FC5A114       34          I
          -FC5A391
 MAP                SBIT   X4,WB.MATP                                                      FC5A391       15     A     
 MAP                MI     X4,ADR20    IF BASE MEMBER MATERIALIZED                         FC5A391       16     A     
 MAP                                                                                       MAP         2467     A     
 MAP       ADR15    SA1    =5HNONE                                                         MAP         2468     A     
 MAP                SB6    5                                                               MAP         2469     A     
 MAP                =X0    1                                                               MAP         2470     A     
 MAP                RJ     JIF                                                             MAP         2471     A     
 MAP                EQ     MOC.RB                                                          MAP         2472     A     
 MAP                                                                                       MAP         2473     A     
 MAP       ADR20    =A1    A1-WB.W+WC.W   FETCH WORD C                                     MAP         2474     A     
 MAP                XTRCT  WC.RA,X1,X1 ISOLATE RELATIVE ADDRESS                            MAP         2475     A     
 MAP                SA2    WO.QC                                                           MAP         2476     A     
 MAP                PL     X2,ADR30    IF NO FATAL ERRORS                                  MAP         2477     A     
 MAP                MX1    0                                                               MAP         2478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1923    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MX6    0                                                               MAP         2479     A     
 MAP                                                                                       MAP         2480     A     
 MAP       ADR30    IX1    X1+X6                                                           MAP         2481          I
          -FC5A114
 MAP                PIA                CONVERT TO OCTAL DPC                                MAP         2482          I
          -FC5A114
 MAP       ADR30    PIA                CONVERT TO OCTAL DPC                                FC5A114       35     A     
 MAP                LX6    8*CHAR                                                          MAP         2483     A     
 MAP                BX1    X6                                                              MAP         2484     A     
 MAP                =B6    -1                                                              MAP         2485     A     
 MAP                SX0    3                                                               MAP         2486     A     
 MAP                RJ     JIF                                                             MAP         2487     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2488     A     
 MAP       ARG      SPACE  4,10                                                            MAP         2489     A     
 MAP      **        ARG -  OUTPUT THE NUMBER OF ARGUMENTS OF A PROCEDURE.                  MAP         2490     A     
 MAP      *                                                                                MAP         2491     A     
 MAP      *         WILL OUTPUT EITHER VAR, UNKNOWN, OR AN ARGUMENT COUNT                  MAP         2492     A     
 MAP      *         DEPENDING ON THE NATURE OF THE PROCEDURE BEING PROCESSED.              MAP         2493     A     
 MAP      *                                                                                MAP         2494     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/ARG.                                   MAP         2495     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2496     A     
 MAP      *                (X5) = MST OFFSET.                                              MAP         2497     A     
 MAP      *                                                                                MAP         2498     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         2499     A     
 MAP      *                                                                                MAP         2500     A     
 MAP      *         CALLS  JIF,CDD,PCB.                                                    MAP         2501     A     
 MAP                                                                                       MAP         2502     A     
 MAP       ARG      DIS    MAPPML,ARGS---                                                  MAP         2503     A     
 MAP                                                                                       MAP         2504     A     
 MAP                SA2    T.SYM                                                           MAP         2505     A     
 MAP                XTRCT  MT.WAI,X7,X7      ISOLATE T.SYM OFFSET                          MAP         2506     A     
 MAP                =B6    X7+WB.W     OFFSET TO WORD B                                    MAP         2507     A     
 MAP                SA1    X2+B6       FETCH WORD B                                        MAP         2508     A     
 MAP                LX4    30                                                              MAP         2509     A     
 MAP                SB5    X4                                                              MAP         2510     A     
 MAP                =A2    A1-WB.W+WC.W   FETCH WORD C                                     MAP         2511     A     
 MAP                IFBIT  X1,-WB.DEFP,ARG10 IF ARG COUNT NOT DETERMINED                   MAP         2512          I
          -FC50562
 MAP                SBIT   X1,WB.DEFP                                                      FC50562        7     A     
 MAP                PL     X1,ARG10    IF ARGUMENT COUNT NOT DETERMINED                    FC50562        8     A     
 MAP                LX3    X2          ANOTHER COPY OF *WC*                                FC50562        9     A     
 MAP                XTRCT  WC.ARGC,X2,X1      ISOLATE ARG COUNT                            MAP         2513     A     
 MAP                CALL   CDD                                                             MAP         2514          I
          -FC50562
 MAP                XTRCT  WC.FUNT,X3,X3     FUNCTION TYPE                                 FC50562       10     A     
 MAP                =X3    X3-MF.LIB                                                       FC50562       11     A     
 MAP                NZ     X3,ARG5     IF NOT INTRINSIC                                    FC50562       12     A     
 MAP                SX0    X1-7                                                            FC50562       13     A     
 MAP                ZR     X0,ARG20    IF VARIABLE ARGUMENT INTRINSIC                      FC50562       14     A     
 MAP                                                                                       FC50562       15     A     
 MAP       ARG5     CALL   CDD         CONVERT ARGUMENT COUNT TO DISPLAY                   FC50562       16     A     
 MAP                SB6    B5                                                              MAP         2515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1924    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                BX1    X6                                                              MAP         2516     A     
 MAP                LX1    -4*CHAR                                                         MAP         2517     A     
 MAP                RJ     PCB                                                             MAP         2518     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2519     A     
 MAP                                                                                       MAP         2520     A     
 MAP       ARG10    XTRCT  WC.FUNT,X2,X2     ISOLATE FUNCTION TYPE                         MAP         2521     A     
 MAP                =X3    X2-MF.LIB                                                       MAP         2522     A     
 MAP                ZR     X3,ARG20    IF INTRINSIC FUNCTION                               MAP         2523     A     
 MAP                =X3    X2-MF.INL                                                       MAP         2524     A     
 MAP                ZR     X3,ARG20    IF INTRINSIC FUNCTION                               MAP         2525     A     
 MAP                SA1    =7HUNKNOWN                                                      MAP         2526     A     
 MAP                SB6    7                                                               MAP         2527     A     
 MAP                MX0    0           INPUT AND OUTPUT LEFT JUSTIFY                       MAP         2528     A     
 MAP                RJ     JIF                                                             MAP         2529     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2530     A     
 MAP                                                                                       MAP         2531     A     
 MAP       ARG20    SA1    =3HVAR                                                          MAP         2532     A     
 MAP                SB6    3                                                               MAP         2533     A     
 MAP                MX0    0                                                               MAP         2534     A     
 MAP                RJ     JIF                                                             MAP         2535     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2536     A     
 MAP       BLK      SPACE  4,10                                                            MAP         2537     A     
 MAP      **        BLK -  OUTPUT NAME OF BLOCK FOR A SYMBOL.                              MAP         2538     A     
 MAP      *                                                                                MAP         2539     A     
 MAP      *         OUTPUTS THE NAME OF THE COMMON BLOCK THAT THE CURRENT                  MAP         2540     A     
 MAP      *         SYMBOL IS A MEMBER OF, IF ANY.                                         MAP         2541     A     
 MAP      *                                                                                MAP         2542     A     
 MAP      *         ENTRY  (X7) = ENTRY OF T.SCR (CONTAINING OFFSET).                      MAP         2543     A     
 MAP      *                (X4) = 30/FIELD WIDTH,30/BLK.                                   MAP         2544     A     
 MAP      *                                                                                MAP         2545     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP         2546     A     
 MAP      *                                                                                MAP         2547     A     
 MAP      *         CALLS  JIF,BNS,PCB.                                                    MAP         2548     A     
 MAP                                                                                       MAP         2549     A     
 MAP       BLK      DIS    MAPPML,BLOCK---------------                                     MAP         2550     A     
 MAP                                                                                       MAP         2551     A     
 MAP                SA2    T.SYM                                                           MAP         2552     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET                    MAP         2553     A     
 MAP                =B6    X1+WB.W     OFFSET TO WORD B                                    MAP         2554     A     
 MAP                SA1    B6+X2       FETCH WORD B                                        MAP         2555     A     
 MAP                LX4    30                                                              MAP         2556     A     
 MAP                SB5    X4                                                              MAP         2557     A     
 MAP                IFBIT  X1,WB.COMP,BLK10      IF SYMBOL IS IN COMMON                    MAP         2558          I
          -FC50326
 MAP                IFBIT  X1,-WB.FPP/WB.COMP,BLK5 IF NOT AN FP                            MAP         2559          I
          -FC50326
 MAP                SBIT   X1,WB.COMP                                                      FC50326       39     A     
 MAP                MI     X1,BLK10    IF SYMBOL IS IN COMMON                              FC50326       40     A     
 MAP                SBIT   X1,WB.FPP/WB.COMP                                               FC50326       41     A     
 MAP                PL     X1,BLK4     IF SYMBOL IS NOT FORMAL PARAMETER                   FC50326       42     A     
 MAP                SA1    =9HDUMMY-ARG                                                    MAP         2560     A     
 MAP                MX0    0                                                               MAP         2561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1925    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SB6    9                                                               MAP         2562     A     
 MAP                RJ     JIF                                                             MAP         2563     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         2564     A     
 MAP                                                                                       FC50326       43     A     
 MAP       BLK4     SBIT   X1,WB.SFAP/WB.FPP                                               FC50326       44     A     
 MAP                PL     X1,BLK5     IF SMYBOL IS NOT STF DUMMY ARGUMENT                 FC50326       45     A     
 MAP                SA1    =8HSTF-DARG                                                     FC50326       46     A     
 MAP                MX0    0                                                               FC50326       47     A     
 MAP                SB6    8                                                               FC50326       48     A     
 MAP                RJ     JIF                                                             FC50326       49     A     
 MAP                EQ     MOC.RB      RETURN                                              FC50326       50     A     
 MAP                                                                                       MAP         2565     A     
 MAP       BLK5     SA1    MAP.XS     GET READY FOR PCB                                    MAP         2566     A     
 MAP                SB6    B5                                                              MAP         2567     A     
 MAP                RJ     PCB                                                             MAP         2568     A     
 MAP                EQ     MOC.RB                                                          MAP         2569     A     
 MAP                                                                                       MAP         2570     A     
 MAP       BLK10    =A1    A1-WB.W+WC.W   FETCH WORD C                                     MAP         2571     A     
 MAP                XTRCT  WC.RB,X1,X1 ISOLATE BLOCK OFFSET                                MAP         2572     A     
 MAP                SA5    T.BLKS                                                          MAP         2573     A     
 MAP                SB4    X1                                                              MAP         2574     A     
 MAP                SA1    B4+X5       FETCH WORD A OF T.BLKS                              MAP         2575     A     
 MAP                XTRCT  CA.BNAM,X1,X1     ISOLATE BLOCK NAME                            MAP         2576     A     
 MAP                LX1    -CA.BNAML   LEFT JUSTIFY IT                                     MAP         2577     A     
 MAP                SA2    BLNKCOM                                                         MAP         2578     A     
 MAP                SB7    X2                                                              MAP         2579     A     
 MAP                SB7    B7-B4                                                           MAP         2580     A     
 MAP                ZR     B7,BLK20    IF BLANK COMMON                                     MAP         2581     A     
 MAP                RJ     BNS         BOUND NAME BY SLASHES                               MAP         2582     A     
 MAP                EQ     BLK30                                                           MAP         2583     A     
 MAP                                                                                       MAP         2584     A     
 MAP       BLK20    SA1    =10H//                                                          MAP         2585     A     
 MAP                                                                                       MAP         2586     A     
 MAP       BLK30    MX0    0                                                               MAP         2587     A     
 MAP                =B6    -1                                                              MAP         2588     A     
 MAP                RJ     JIF                                                             MAP         2589     A     
 MAP                                                                                       MAP         2590     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2591     A     
 MAP       CLS      SPACE  4,10                                                            MAP         2592     A     
 MAP      **        CLS -  OUTPUT THE CLASS OF A PROCEDURE.                                MAP         2593     A     
 MAP      *                                                                                MAP         2594     A     
 MAP      *         WILL OUTPUT EXTERNAL, SUBROUTINE, INTRINSIC, FUNCTION OR               MAP         2595     A     
 MAP      *         STAT FUNC DEPENDING ON THE NATURE OF THE PROCEDURE                     MAP         2596     A     
 MAP      *         BEING PROCESSED.                                                       MAP         2597     A     
 MAP      *                                                                                MAP         2598     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/CLS.                                   MAP         2599     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2600     A     
 MAP      *                                                                                MAP         2601     A     
 MAP      *         USES   X - ALL  A - 1,2,3,6  B - ALL.                                  MAP         2602     A     
 MAP      *                                                                                MAP         2603     A     
 MAP      *         CALLS  JIF.                                                            MAP         2604     A     
 MAP                                                                                       MAP         2605     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1926    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       CLS      DIS    MAPPML,CLASS---------------                                     MAP         2606     A     
 MAP                                                                                       MAP         2607     A     
 MAP                LX4    30                                                              MAP         2608     A     
 MAP                SB5    X4                                                              MAP         2609     A     
 MAP                SA2    T.SYM                                                           MAP         2610     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET                    MAP         2611     A     
 MAP                =B2    X7+WB.W     OFFSET TO WORD B                                    MAP         2612     A     
 MAP                SA2    X2+B2       FETCH WORD B                                        MAP         2613     A     
 MAP                IFBIT  X2,-WB.SUBP,CLS10 IF NOT A SUBROUTINE                           MAP         2614          I
          -FC5A360
 MAP                SBIT   X2,WB.SUBP                                                      FC5A360        8     A     
 MAP                PL     X2,CLS10    IF NOT A SUBROUTINE                                 FC5A360        9     A     
 MAP                SA1    =10HSUBROUTINE                                                  MAP         2615     A     
 MAP                IFBIT  X2,-WB.FPP/WB.SUBP,CLS5 IF NOT PASSED AS ARGUMENT               MAP         2616          I
          -FC5A360
 MAP                SBIT   X2,WB.FPP/WB.SUBP                                               FC5A360       10     A     
 MAP                PL     X2,CLS5     IF NOT DUMMY ARGUMENT SUBROUTINE                    FC5A360       11     A     
 MAP                SA1    =10HDUMMY-SUBR                                                  MAP         2617     A     
 MAP                                                                                       MAP         2618     A     
 MAP       CLS5     MX0    0                                                               MAP         2619     A     
 MAP                SB6    10                                                              MAP         2620     A     
 MAP                RJ     JIF                                                             MAP         2621     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2622     A     
 MAP                                                                                       MAP         2623     A     
 MAP       CLS10    IFBIT  X2,-WB.DEXTP/WB.SUBP,CLS20     IF NOT EXTERNAL                  MAP         2624          I
          -FC5A360
 MAP       CLS10    SBIT   X2,WB.FUNP/WB.SUBP                                              FC5A360       12     A     
 MAP                MI     X2,CLS20    IF FUNCTION                                         FC5A360       13     A     
 MAP                SA1    =8HEXTERNAL                                                     MAP         2625     A     
 MAP                MX0    0                                                               MAP         2626     A     
 MAP                SB6    8                                                               MAP         2627     A     
 MAP                RJ     JIF                                                             MAP         2628     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         2629     A     
 MAP                                                                                       MAP         2630     A     
 MAP       CLS20    =A1    A2-WB.W+WC.W   FETCH WORD C                                     MAP         2631     A     
 MAP                XTRCT  WC.FUNT,X1,X1     ISOLATE FUNCTION TYPE                         MAP         2632     A     
 MAP                SA1    X1+CLSM     FETCH PROPER FUNCTION TYPE MESSAGE                  MAP         2633     A     
 MAP                IFBIT  X2,-WB.FPP/WB.DEXTP,CLS30     IF NOT PASSED AS ARGUMENT         MAP         2634          I
          -FC5A360
 MAP                SBIT   X2,WB.FPP/WB.FUNP                                               FC5A360       14     A     
 MAP                PL     X2,CLS30    IF NOT DUMMY ARGUMENT FUNCTION                      FC5A360       15     A     
 MAP                SA1    =10HDUMMY-FUNC                                                  MAP         2635     A     
 MAP                                                                                       MAP         2636     A     
 MAP       CLS30    MX0    0                                                               MAP         2637     A     
 MAP                =B6    -1                                                              MAP         2638     A     
 MAP                RJ     JIF                                                             MAP         2639     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         2640     A     
 MAP       CLS      SPACE  4,10                                                            MAP         2641     A     
 MAP       CLSM     BSS                                                                    MAP         2642     A     
 MAP                LOC    0                                                               MAP         2643     A     
 MAP       MF.USER  DIS    1,FUNCTION                                                      MAP         2644     A     
 MAP       MF.STF   DIS    1,STAT FUNC                                                     MAP         2645     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1927    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       MF.LIB   DIS    1,INTRINSIC                                                     MAP         2646     A     
 MAP       .T       IFEQ   TEST,ON                                                         MAP         2647     A     
 MAP       MF.BEF   DIS    1,**ERR**3  ALWAYS CGS                                          MAP         2648     A     
 MAP       MF.INL   DIS    1,**ERR**4  ALWAYS CGS                                          MAP         2649     A     
 MAP       .T       ENDIF                                                                  MAP         2650     A     
 MAP                LOC    *O                                                              MAP         2651     A     
 MAP       DOIN     SPACE  4,10                                                            MAP         2652     A     
 MAP      **        DOIN - OUTPUT VARIABLE USED AS LOOP CONTROL INDEX.                     MAP         2653     A     
 MAP      *                                                                                MAP         2654     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/DOIN.                                  MAP         2655     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2656     A     
 MAP      *                                                                                MAP         2657     A     
 MAP      *         USES   X - ALL  A - 1,2,3,6  B - ALL.                                  MAP         2658     A     
 MAP      *                                                                                MAP         2659     A     
 MAP      *         CALLS  JIF,SFN.                                                        MAP         2660     A     
 MAP                                                                                       MAP         2661     A     
 MAP       DOIN     DIS    MAPPML,INDEX-----                                               MAP         2662     A     
 MAP                                                                                       MAP         2663     A     
 MAP                SA1    T.SYM                                                           MAP         2664     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         2665     A     
 MAP                =B2    X7+WB.W                                                         MAP         2666     A     
 MAP                SA2    X1+B2       FETCH SYMTAB (WB.) OF DOGL                          MAP         2667     A     
 MAP                XTRCT  WB.DI,X2,X2                                                     MAP         2668     A     
 MAP                LX7    X2,B1                                                           MAP         2669     A     
 MAP                IX3    X2+X7       (X3) = INDEX OF SYMTAB ENTRY OF DO-INDEX            MAP         2670     A     
 MAP                ERRNZ  3-Z=SYM                                                         MAP         2671     A     
 MAP                =B2    X1+WA.W                                                         MAP         2672     A     
 MAP                SA2    X3+B2                                                           MAP         2673     A     
 MAP                XTRCT  WA.SYM,X2,X1      ISOLATE NAME OF DO-INDEX                      MAP         2674     A     
 MAP                LX1    WA.SYMP     LEFT JUSTIFY IT                                     MAP         2675     A     
 MAP                CALL   SFN         SPACE FILL                                          MAP         2676     A     
 MAP                LX4    30                                                              MAP         2677     A     
 MAP                SB5    X4                                                              MAP         2678     A     
 MAP                BX1    X6                                                              MAP         2679     A     
 MAP                MX0    0                                                               MAP         2680     A     
 MAP                =B6    -1                                                              MAP         2681     A     
 MAP                RJ     JIF                                                             MAP         2682     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2683     A     
 MAP       DOLAB    SPACE  4,10                                                            MAP         2684     A     
 MAP      **        DOLAB - OUTPUT LABEL DEFINED AS END OF LOOP.                           MAP         2685     A     
 MAP      *                                                                                MAP         2686     A     
 MAP      *         IF LOOP IS AN IMPLIED DO IN AN I/O STATEMENT, THIS                     MAP         2687     A     
 MAP      *         FIELD WILL BE BLANK.                                                   MAP         2688     A     
 MAP      *                                                                                MAP         2689     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/DOLAB.                                 MAP         2690     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2691     A     
 MAP      *                                                                                MAP         2692     A     
 MAP      *         USES   X - ALL  A - 1,2,3,6  B - ALL.                                  MAP         2693     A     
 MAP      *                                                                                MAP         2694     A     
 MAP      *         CALLS  JIF,ZTB,PCB.                                                    MAP         2695     A     
 MAP                                                                                       MAP         2696     A     
 MAP       DOLAB    DIS    MAPPML,LABEL                                                    MAP         2697     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1928    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         2698     A     
 MAP                LX4    30                                                              MAP         2699     A     
 MAP                SB5    X4                                                              MAP         2700     A     
 MAP                SA1    T.SYM                                                           MAP         2701     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET                    MAP         2702     A     
 MAP                =B2    X7+WB.W     OFFSET TO WORD B                                    MAP         2703     A     
 MAP                SA2    X1+B2                                                           MAP         2704     A     
 MAP                XTRCT  WB.TL,X2,X2 ISOLATE SYMORD OF TERMINAL LABEL                    MAP         2705     A     
 MAP                NZ     X2,DOLAB10  IF NOT AN I/O LOOP                                  MAP         2706     A     
 MAP                SA1    =3HI/O                                                          MAP         2707     A     
 MAP                SB6    B5                                                              MAP         2708     A     
 MAP                RJ     PCB                                                             MAP         2709     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2710     A     
 MAP                                                                                       MAP         2711     A     
 MAP       DOLAB10  LX7    X2,B1                                                           MAP         2712     A     
 MAP                =B2    X1+WA.W                                                         MAP         2713     A     
 MAP                IX3    X2+X7       (X3) = INDEX OF SYMTAB ENTRY OF TERMINAL            MAP         2714     A     
 MAP                ERRNZ  3-Z=SYM                                                         MAP         2715     A     
 MAP                SA2    X3+B2                                                           MAP         2716     A     
 MAP                XTRCT  WA.STL,X2,X1      ISOLATE THE LABEL                             MAP         2717     A     
 MAP                CALL   ZTB         CONVERT 00 CHARS TO BLANKS                          MAP         2718     A     
 MAP                BX1    X6                                                              MAP         2719     A     
 MAP                SX0    3                                                               MAP         2720     A     
 MAP                =B6    -1                                                              MAP         2721     A     
 MAP                RJ     JIF                                                             MAP         2722     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2723     A     
 MAP       EPA      SPACE  4,10                                                            MAP         2724     A     
 MAP      **        EPA -  OUTPUT THE NUMBER OF ARGS FOR AN ENTRY POINT.                   MAP         2725     A     
 MAP      *                                                                                MAP         2726     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/EPA.                                   MAP         2727     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2728     A     
 MAP      *                                                                                MAP         2729     A     
 MAP      *         CALLS  CDD,PCB.                                                        MAP         2730     A     
 MAP      *                                                                                MAP         2731     A     
 MAP      *         USES   X - 1,2,3,4,6,7  A - 1,2,3,4,6  B - 2,3,4,5,6.                  MAP         2732     A     
 MAP                                                                                       MAP         2733     A     
 MAP       EPA      DIS    MAPPML,ARGS---                                                  MAP         2734     A     
 MAP                                                                                       MAP         2735     A     
 MAP                LX4    30                                                              MAP         2736     A     
 MAP                SB5    X4          PRESERVE FIELD WIDTH                                MAP         2737     A     
 MAP                SA2    T.SYM                                                           MAP         2738     A     
 MAP                XTRCT  MT.WAI,X7,X7      X7 = *WA* INDEX                               MAP         2739     A     
 MAP                =B2    X7-WA.W+WB.W                                                    MAP         2740     A     
 MAP                SA2    X2+B2       *WB*                                                MAP         2741     A     
 MAP                SA3    T.ENTP                                                          MAP         2742     A     
 MAP                XTRCT  WB.PNT,X2,X2      X2 = T.ENTP INDEX + 1                         MAP         2743     A     
 MAP                MX1    0                                                               FC5A108        8     A     
 MAP                ZR     X2,EPA10    IF NO ARGS                                          FC5A108        9     A     
 MAP                =B2    X2-1                                                            MAP         2744     A     
 MAP                SA3    X3+B2       T.ENTP HEADER WORD (EH.)                            MAP         2745     A     
 MAP                XTRCT  EH.FPC,X3,X1      X1 = FP COUNT                                 MAP         2746     A     
 MAP                CALL   CDD                                                             MAP         2747          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1929    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A108
 MAP       EPA10    CALL   CDD                                                             FC5A108       10     A     
 MAP                SB6    B5                                                              MAP         2748     A     
 MAP                BX1    X6                                                              MAP         2749     A     
 MAP                LX1    -4*CHAR                                                         MAP         2750     A     
 MAP                RJ     PCB                                                             MAP         2751     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2752     A     
 MAP       FIRST    SPACE  4,10                                                            MAP         2753     A     
 MAP      **        FIRST - DETERMINE STORAGE UNIT OCCUPIED BY FIRST                       MAP         2754     A     
 MAP      *                 ELEMENT OF COMMON-EQUIVALENCE MAP ITEM.                        MAP         2755     A     
 MAP      *                                                                                MAP         2756     A     
 MAP      *         ENTRY  *OCEI.EI* = MI IF ITEMS ARE EQUIVALENCED.                       MAP         2757          I
          -FC5A185
 MAP      *                          = PL OTHERWISE.                                       MAP         2758          I
          -FC5A185
 MAP      *                                                                                MAP         2759          I
          -FC5A185
 MAP      *                *OCEI.SUP* = COUNT OF STORAGE UNITS PROCESSED.                  MAP         2760          I
          -FC5A185
 MAP      *                                                                                MAP         2761          I
          -FC5A185
 MAP      *                (B5) = INDEX OF ITEM IN T.SYM.                                  MAP         2762          I
          -FC5A185
 MAP      *                                                                                MAP         2763          I
          -FC5A185
 MAP      *                (B6) = NUMBER OF CHARS USED BY ITEM SO FAR.                     MAP         2764          I
          -FC5A185
 MAP      *                                                                                MAP         2765          I
          -FC5A185
 MAP      *         EXIT   (B6) -  UPDATED.                                                MAP         2766          I
          -FC5A185
 MAP      *                                                                                MAP         2767          I
          -FC5A185
 MAP      *                (B5) - PRESERVED.                                               MAP         2768          I
          -FC5A185
 MAP      *                                                                                MAP         2769          I
          -FC5A185
 MAP      *                *FIRSTA*+1 = NUMBER OF CHARS IN FIRST DATUM.                    MAP         2770          I
          -FC5A185
 MAP      *                                                                                MAP         2771          I
          -FC5A185
 MAP      *                *FIRST*    = DPC OF FIRST DATUM.                                MAP         2772          I
          -FC5A185
 MAP      *                                                                                MAP         2773          I
          -FC5A185
 MAP      *         CALLS  CCBB,CDD,SCS.                                                   MAP         2774          I
          -FC5A185
 MAP      *                                                                                MAP         2775          I
          -FC5A185
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,4,6  B - 2,3,4,6,7.                MAP         2776          I
          -FC5A185
 MAP                                                                                       MAP         2777          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1930    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP       FIRST    SUBR               ENTRY/EXIT...                                       MAP         2778          I
          -FC5A185
 MAP                SA1    OCEI.EI                                                         MAP         2779          I
          -FC5A185
 MAP                =X4    0                                                               MAP         2780          I
          -FC5A185
 MAP                PL     X1,FIRST10  IF ITEM NOT EQUIVALENCED                            MAP         2781          I
          -FC5A185
 MAP                SX6    B5-WB.W+WA.W                                                    MAP         2782          I
          -FC5A185
 MAP                MX7    TE.SYMIL                                                        MAP         2783          I
          -FC5A185
 MAP                LX7    TE.SYMIL+TE.SYMIP                                               MAP         2784          I
          -FC5A185
 MAP                SA7    SCSA                                                            MAP         2785          I
          -FC5A185
 MAP                SCAN   T.ECT,SCS                                                       MAP         2786          I
          -FC5A185
 MAP                IFEQ   TEST,ON,1                                                       MAP         2787          I
          -FC5A185
 MAP                MI     B7,"BLOWUP" IF *NIT*                                            MAP         2788          I
          -FC5A185
 MAP                XTRCT  TE.BIAS,X2,X4     ISOLATE BIAS FROM BASE                        MAP         2789          I
          -FC5A185
 MAP                                                                                       MAP         2790          I
          -FC5A185
 MAP       FIRST10  SA2    OCEI.SUP                                                        MAP         2791          I
          -FC5A185
 MAP                =X2    X2+1                                                            MAP         2792          I
          -FC5A185
 MAP                IX1    X2+X4       X1 = FIRST                                          MAP         2793          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         2794          I
          -FC5A185
 MAP                SA6    LASTA                                                           MAP         2795          I
          -FC5A185
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         2796          I
          -FC5A185
 MAP                BX1    X4                                                              MAP         2797          I
          -FC5A185
 MAP                SB4    B6          SAVE B6                                             MAP         2798          I
          -FC5A185
 MAP                =X0    1                                                               MAP         2799          I
          -FC5A185
 MAP                RJ     CCBB        DETERMINE LENGTH                                    MAP         2800          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         2801          I
          -FC5A185
 MAP                SA6    FIRSTA                                                          MAP         2802          I
          -FC5A185
 MAP                SX6    B6                                                              MAP         2803          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1931    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                =A6    A6+1                                                            MAP         2804          I
          -FC5A185
 MAP                SB6    B4+B6       UPDATE TOTAL CHAR COUNT                             MAP         2805          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         2806          I
          -FC5A185
 MAP                                                                                       MAP         2807          I
          -FC5A185
 MAP       FIRSTA   BSS    2           STORAGE FOR DATA                                    MAP         2808          I
          -FC5A185
 MAP      *         ENTRY  (OCEI.ADR) = ADDRESS OF TABLE ENTRY FOR ITEM.                   FC5A185      517     A     
 MAP      *                (B6) = CHAR COUNT FOR ITEM.                                     FC5A185      518     A     
 MAP      *                                                                                FC5A185      519     A     
 MAP      *         EXIT   (B6) = UPDATED BY LENGTH OF FIRST DPC.                          FC5A185      520     A     
 MAP      *                (FIRSTA) = DPC OF FIRST.                                        FC5A185      521     A     
 MAP      *                (FIRSTA+1) = LENGTH OF FIRST IN CHARS.                          FC5A185      522     A     
 MAP      *                                                                                FC5A185      523     A     
 MAP      *         CALLS  CCBB,CDD.                                                       FC5A185      524     A     
 MAP      *                                                                                FC5A185      525     A     
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,4,6  B - 2,3,4,6.                  FC5A185      526     A     
 MAP                                                                                       FC5A185      527     A     
 MAP                                                                                       FC5A185      528     A     
 MAP       FIRST    SUBR               ENTRY/EXIT...                                       FC5A185      529     A     
 MAP                SA1    OCEI.ADR                                                        FC5A185      530     A     
 MAP                SA1    X1          X1 = TABLE ENTRY FOR ITEM                           FC5A185      531     A     
 MAP                XTRCT  MT.RA,X1,X6    X6 = RA OF ITEM                                  FC5A185      532     A     
 MAP                =X1    1                                                               FC5A185      533     A     
 MAP                IX6    X1+X6       CONVERT FROM RA TO INDEX                            FC5A185      534     A     
 MAP                SA6    LASTA       SAVE FOR USE BY *LAST*                              FC5A185      535     A     
 MAP                BX1    X6                                                              FC5A185      536     A     
 MAP                SB5    B6                                                              FC5A185      537     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      FC5A185      538     A     
 MAP                MX0    CHAR                                                            FC5A185      539     A     
 MAP                LX4    -CHAR                                                           FC5A185      540     A     
 MAP                BX4    -X0*X4      ERASE UPPER BLANK                                   FC5A185      541     A     
 MAP                SA1    =1L<                                                            FC5A185      542     A     
 MAP                BX1    X4+X1       PREFIX WITH <                                       FC5A185      543     A     
 MAP                =X0    1                                                               FC5A185      544     A     
 MAP                RJ     CCBB        DETERMINE LENGTH                                    FC5A185      545     A     
 MAP                BX6    X1                                                              FC5A185      546     A     
 MAP                SA6    FIRSTA                                                          FC5A185      547     A     
 MAP                SX6    B6                                                              FC5A185      548     A     
 MAP                =A6    A6+1                                                            FC5A185      549     A     
 MAP                SB6    B6+B5       UPDATE CHARACTER COUNT                              FC5A185      550     A     
 MAP                EQ     EXIT.                                                           FC5A185      551     A     
 MAP                                                                                       FC5A185      552     A     
 MAP       FIRSTA   BSS    2                                                               FC5A185      553     A     
 MAP       FROM     SPACE  4,10                                                            MAP         2809     A     
 MAP      **        FROM - OUTPUT THE LINE NUMBER OF 1ST STATEMENT OF A LOOP.              MAP         2810     A     
 MAP      *                                                                                MAP         2811     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/FROM.                                  MAP         2812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1932    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                (X7) = T.SCR ENTRY.                                             MAP         2813     A     
 MAP      *                                                                                MAP         2814     A     
 MAP      *         USES   X - ALL  A - 1,2,3,6  B - ALL.                                  MAP         2815     A     
 MAP      *                                                                                MAP         2816     A     
 MAP      *         CALLS  JIF,CDD.                                                        MAP         2817     A     
 MAP                                                                                       MAP         2818     A     
 MAP       FROM     DIS    MAPPML,-FROM                                                    MAP         2819     A     
 MAP                                                                                       MAP         2820     A     
 MAP                SA1    T.SYM                                                           MAP         2821     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         2822     A     
 MAP                =B2    X7+WC.W                                                         MAP         2823     A     
 MAP                SA1    X1+B2                                                           MAP         2824     A     
 MAP                XTRCT  WC.LINE,X1,X1     ISOLATE LINE NUMBER                           MAP         2825     A     
 MAP                LX4    30                                                              MAP         2826     A     
 MAP                SB5    X4                                                              MAP         2827     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         2828     A     
 MAP                BX1    X6                                                              MAP         2829     A     
 MAP                SX0    3                                                               MAP         2830     A     
 MAP                =B6    -1                                                              MAP         2831     A     
 MAP                RJ     JIF                                                             MAP         2832     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2833     A     
 MAP       LADR     SPACE  4,10                                                            MAP         2834     A     
 MAP      **        LADR - OUTPUT THE PROGRAM RELATIVE ADDRESS OF A LABEL.                 MAP         2835     A     
 MAP      *                                                                                MAP         2836     A     
 MAP      *         IF NO MEANINGFULL ADDRESS CAN BE ASSIGNED TO A LABEL,                  MAP         2837     A     
 MAP      *         ONE OF THE FOLLOWING FLAGS WILL BE OUTPUT :                            MAP         2838     A     
 MAP      *         *UNDEF*, *NO REFS*, INACTIVE, OR BLANK.                                MAP         2839     A     
 MAP      *                                                                                MAP         2840     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/LADR.                                  MAP         2841     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2842     A     
 MAP      *                                                                                MAP         2843     A     
 MAP      *         USES  X - ALL  A - 1,2,3,6  B - ALL.                                   MAP         2844     A     
 MAP      *                                                                                MAP         2845     A     
 MAP      *         CALLS  JIF,PIA.                                                        MAP         2846     A     
 MAP                                                                                       MAP         2847     A     
 MAP       LADR     DIS    MAPPML,ADDRESS---                                               MAP         2848     A     
 MAP                                                                                       MAP         2849     A     
 MAP                SA1    T.SYM                                                           MAP         2850     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         2851     A     
 MAP                =B6    X7+WB.W     OFFSET TO WORD B                                    MAP         2852     A     
 MAP                SA1    X1+B6       FETCH WORD B                                        MAP         2853     A     
 MAP                LX4    30                                                              MAP         2854     A     
 MAP                SB5    X4                                                              MAP         2855     A     
 MAP                CLAS=  X4,WB,(SDEF,NDEF,FDEF)                                          MAP         2856     A     
 MAP                BX4    X1*X4                                                           MAP         2857     A     
 MAP                NZ     X4,LADR10   IF DEFINED                                          MAP         2858     A     
 MAP                SA1    =7H*UNDEF*                                                      MAP         2859     A     
 MAP                =X0    1                                                               MAP         2860     A     
 MAP                SB6    7                                                               MAP         2861     A     
 MAP                RJ     JIF                                                             MAP         2862     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         2863     A     
 MAP                                                                                       MAP         2864     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1933    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       LADR10   IFBIT  X1,-WB.1REFP,LADR20   IF REFERENCED                             MAP         2865          I
          -FC50628
 MAP       LADR10   CLAS=  X4,WB,(CGS,DOGL)                                                FC50628        5     A     
 MAP                BX2    X4*X1                                                           FC50628        6     A     
 MAP                BX4    X2-X4                                                           FC50628        7     A     
 MAP                ZR     X4,LADR30   IF DO-TOP LABEL                                     FC50628        8     A     
 MAP                SBIT   X1,WB.1REFP                                                     FC50628        9     A     
 MAP                PL     X1,LADR20   IF REFERENCED                                       FC50628       10     A     
 MAP                SA1    =9H*NO REFS*                                                    MAP         2866     A     
 MAP                =X0    1                                                               MAP         2867     A     
 MAP                SB6    9                                                               MAP         2868     A     
 MAP                RJ     JIF                                                             MAP         2869     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         2870     A     
 MAP                                                                                       MAP         2871     A     
 MAP       LADR20   IFBIT  X1,-WB.INAP/WB.1REFP,LADR30   IF ACTIVE                         MAP         2872          I
          -FC5A108
 MAP       LADR20   IFBIT  X1,WB.ACTP/WB.1REFP,LADR30    IF ACTIVE                         FC5A108       11          I
          -FC50628
 MAP                IFBIT  X1,-WB.SDEFP/WB.ACTP,LADR30     IF NOT EXECUTABLE LABEL         FC5A109       27          I
          -FC50628
 MAP       LADR20   SBIT   X1,WB.ACTP/WB.1REFP                                             FC50628       11     A     
 MAP                MI     X1,LADR30   IF ACTIVE                                           FC50628       12     A     
 MAP                SBIT   X1,WB.SDEFP/WB.ACTP                                             FC50628       13     A     
 MAP                PL     X1,LADR30   IF NOT EXECUTABLE LABEL                             FC50628       14     A     
 MAP                SA1    =8HINACTIVE                                                     MAP         2873     A     
 MAP                =X0    1                                                               MAP         2874     A     
 MAP                SB6    8                                                               MAP         2875     A     
 MAP                RJ     JIF                                                             MAP         2876     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         2877     A     
 MAP                                                                                       MAP         2878     A     
 MAP       LADR30   SA1    A1-WB.W+WC.W      FETCH WORD C                                  MAP         2879     A     
 MAP                XTRCT  WC.RA,X1,X1 ISOLATE RELATIVE ADDRESS                            MAP         2880     A     
 MAP                SA2    WO.QC                                                           MAP         2881     A     
 MAP                PL     X2,LADR40   IF NO FATAL ERRORS                                  MAP         2882     A     
 MAP                MX1    0                                                               MAP         2883     A     
 MAP                                                                                       MAP         2884     A     
 MAP       LADR40   PIA                CONVERT TO OCTAL DPC                                MAP         2885     A     
 MAP                LX6    8*CHAR                                                          MAP         2886     A     
 MAP                BX1    X6                                                              MAP         2887     A     
 MAP                SB5    B5-2                                                            MAP         2888     A     
 MAP                =X0    3                                                               MAP         2889     A     
 MAP                =B6    -1                                                              MAP         2890     A     
 MAP                RJ     JIF                                                             MAP         2891     A     
 MAP                SA1    MAP.XS                                                          MAP         2892     A     
 MAP                SB6    2                                                               MAP         2893     A     
 MAP                RJ     PCB                                                             MAP         2894     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         2895     A     
 MAP       LAST     SPACE  4,10                                                            MAP         2896     A     
 MAP      **        LAST - DETERMINE STORAGE UNIT OCCUPIED BY LAST ELEMENT                 MAP         2897     A     
 MAP      *                OF COMMON-EQUIVALENCE ITEM.                                     MAP         2898     A     
 MAP      *                                                                                MAP         2899     A     
 MAP      *         ENTRY  *OCEI.EI* = MI IF ITEMS ARE EQUIVALENCED.                       MAP         2900          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1934    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP      *                          = PL OTHERWISE.                                       MAP         2901          I
          -FC5A185
 MAP      *                                                                                MAP         2902          I
          -FC5A185
 MAP      *                (B5) = INDEX OF ITEM IN T.SYM.                                  MAP         2903          I
          -FC5A185
 MAP      *                                                                                MAP         2904          I
          -FC5A185
 MAP      *                (B6) = NUMBER OF CHARS USED BY ITEM SO FAR.                     MAP         2905          I
          -FC5A185
 MAP      *                                                                                MAP         2906          I
          -FC5A185
 MAP      *                *LASTA* = STORAGE UNIT OCCUPIED BY FIRST                        MAP         2907          I
          -FC5A185
 MAP      *                          ELEMENT OF ITEM.                                      MAP         2908          I
          -FC5A185
 MAP      *                                                                                MAP         2909          I
          -FC5A185
 MAP      *         EXIT   (B6) - UPDATED.                                                 MAP         2910          I
          -FC5A185
 MAP      *                                                                                MAP         2911          I
          -FC5A185
 MAP      *                *LASTA*+1 = NUMBER OF CHARS IN DPC OF LAST DATUM.               MAP         2912          I
          -FC5A185
 MAP      *                                                                                MAP         2913          I
          -FC5A185
 MAP      *                *LASTA*   = DPC OF LAST DATUM.                                  MAP         2914          I
          -FC5A185
 MAP      *                                                                                MAP         2915          I
          -FC5A185
 MAP      *                (B5) - PRESERVED .                                              MAP         2916          I
          -FC5A185
 MAP      *                                                                                MAP         2917          I
          -FC5A185
 MAP      *         CALLS  CDD,CCBB.                                                       MAP         2918          I
          -FC5A185
 MAP      *                                                                                MAP         2919          I
          -FC5A185
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - 2,3,4,6.                            MAP         2920          I
          -FC5A185
 MAP                                                                                       MAP         2921          I
          -FC5A185
 MAP       LAST     SUBR               ENTRY/EXIT...                                       MAP         2922          I
          -FC5A185
 MAP                                                                                       MAP         2923          I
          -FC5A185
 MAP                SA1    OCEI.EI                                                         MAP         2924          I
          -FC5A185
 MAP                SA3    T.SYM                                                           MAP         2925          I
          -FC5A185
 MAP                SA3    X3+B5       *WB*                                                MAP         2926          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1935    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                XTRCT  WB.MODE,X3,X6     ISOLATE MODE OF ITEM                          MAP         2927          I
          -FC5A185
 MAP                LX3    WB.MODEP-WB.ARYP-1                                              MAP         2928          I
          -FC5A185
 MAP                =X1    1                                                               MAP         2929          I
          -FC5A185
 MAP                PL     X3,LAST10   IF ITEM NOT AN ARRAY                                MAP         2930          I
          -FC5A185
 MAP                LX3    WB.ARYP+1   RESTORE X3                                          MAP         2931          I
          -FC5A185
 MAP                XTRCT  WB.PNT,X3,X3      ISOLATE T.DIM INDEX                           MAP         2932          I
          -FC5A185
 MAP                SA2    T.DIM                                                           MAP         2933          I
          -FC5A185
 MAP                SB2    X3                                                              MAP         2934          I
          -FC5A185
 MAP                SA2    X2+B2       *DH*                                                MAP         2935          I
          -FC5A185
 MAP                XTRCT  DH.PS,X2,X1 ISOLATE LENGTH                                      MAP         2936          I
          -FC5A185
 MAP                                                                                       MAP         2937          I
          -FC5A185
 MAP       LAST10   =X2    X6-M.DBL                                                        MAP         2938          I
          -FC5A185
 MAP                =X3    2                                                               MAP         2939          I
          -FC5A185
 MAP                ZR     X2,LAST20   IF DOUBLE PRECISION                                 MAP         2940          I
          -FC5A185
 MAP                =X2    X6-M.CPLX                                                       MAP         2941          I
          -FC5A185
 MAP                ZR     X2,LAST20   IF COMPLEX                                          MAP         2942          I
          -FC5A185
 MAP                =X2    X6-M.CHAR                                                       MAP         2943          I
          -FC5A185
 MAP                =X3    1                                                               MAP         2944          I
          -FC5A185
 MAP                NZ     X2,LAST20   IF NOT CHARACTER                                    MAP         2945          I
          -FC5A185
 MAP                =A3    A3-WB.W+WC.W                                                    MAP         2946          I
          -FC5A185
 MAP                XTRCT  WC.CLEN,X3,X3     ISOLATE CHARACTER LENGTH                      MAP         2947          I
          -FC5A185
 MAP                                                                                       MAP         2948          I
          -FC5A185
 MAP       LAST20   IX5    X1*X3       X5 = TOTAL LENGTH OF ITEM                           MAP         2949          I
          -FC5A185
 MAP                SA3    LASTA                                                           MAP         2950          I
          -FC5A185
 MAP                IX2    X3+X5                                                           MAP         2951          I
          -FC5A185
 MAP                =X1    X2-1        X1 = LAST INDEX                                     MAP         2952          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1936    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                SA2    LAST.LI                                                         MAP         2953          I
          -FC5A185
 MAP                IX2    X2-X1                                                           MAP         2954          I
          -FC5A185
 MAP                PL     X2,LAST30   IF NOT LARGEST LAST INDEX SO FAR                    MAP         2955          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         2956          I
          -FC5A185
 MAP                SA6    A2          UPDATE LARGEST LAST INDEX                           MAP         2957          I
          -FC5A185
 MAP                                                                                       MAP         2958          I
          -FC5A185
 MAP       LAST30   SB5    B6          SAVE  B6                                            MAP         2959          I
          -FC5A185
 MAP                =B6    0                                                               MAP         2960          I
          -FC5A185
 MAP                IX3    X3-X1                                                           MAP         2961          I
          -FC5A185
 MAP                ZR     X3,LAST40   IF LAST .EQ. FIRST                                  MAP         2962          I
          -FC5A185
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         2963          I
          -FC5A185
 MAP                MX0    CHAR                                                            MAP         2964          I
          -FC5A185
 MAP                LX4    -CHAR                                                           MAP         2965          I
          -FC5A185
 MAP                BX4    -X0*X4      ERASE UPPER BLANK                                   MAP         2966          I
          -FC5A185
 MAP                SA1    =1L-                                                            MAP         2967          I
          -FC5A185
 MAP                BX1    X4+X1       PREFIX WITH -                                       MAP         2968          I
          -FC5A185
 MAP                =X0    1                                                               MAP         2969          I
          -FC5A185
 MAP                RJ     CCBB        DETERMINE NUMBER OF NON-BLANK CHARS                 MAP         2970          I
          -FC5A185
 MAP                BX6    X1                                                              MAP         2971          I
          -FC5A185
 MAP                                                                                       MAP         2972          I
          -FC5A185
 MAP       LAST40   SA6    LASTA                                                           MAP         2973          I
          -FC5A185
 MAP                SX6    B6                                                              MAP         2974          I
          -FC5A185
 MAP                =A6    A6+1                                                            MAP         2975          I
          -FC5A185
 MAP                SB6    B6+B5       UPDATE TOTAL CHARACTER COUNT                        MAP         2976          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         2977          I
          -FC5A185
 MAP                                                                                       MAP         2978          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1937    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP       LASTA    BSS    2           DATA STORAGE                                        MAP         2979          I
          -FC5A185
 MAP       LAST.LI  BSS    1           COMPARE CELL                                        MAP         2980          I
          -FC5A185
 MAP      *         ENTRY  (OCEI.ADR) = ADDRESS OF TABLE ENTRY FOR ITEM.                   FC5A185      554     A     
 MAP      *                (LASTA) = FIRST INDEX FOR THIS ITEM. (BINARY)                   FC5A185      555     A     
 MAP      *                (B6) = CHARACTER COUNT.                                         FC5A185      556     A     
 MAP      *                                                                                FC5A185      557     A     
 MAP      *         EXIT   (B6) = UPDATED BY LENGTH OF LAST DPC.                           FC5A185      558     A     
 MAP      *                (LASTA) = DPC OF LAST.                                          FC5A185      559     A     
 MAP      *                (LASTA+1) = LENGTH OF LAST INDEX.                               FC5A185      560     A     
 MAP      *                                                                                FC5A185      561     A     
 MAP      *         CALLS  CDD,CCBB.                                                       FC5A185      562     A     
 MAP      *                                                                                FC5A185      563     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - 2,3,4,6.                            FC5A185      564     A     
 MAP                                                                                       FC5A185      565     A     
 MAP                                                                                       FC5A185      566     A     
 MAP       LAST     SUBR               ENTRY/EXIT...                                       FC5A185      567     A     
 MAP                SA3    T.SYM                                                           FC5A185      568     A     
 MAP                SA1    OCEI.ADR                                                        FC5A185      569     A     
 MAP                SA1    X1                                                              FC5A185      570     A     
 MAP                LX1    -MT.WAIP                                                        FC5A185      571     A     
 MAP                SB2    X1-WA.W+WB.W                                                    FC5A185      572     A     
 MAP                ERRNZ  MT.WAIL-18                                                      FC5A185      573     A     
 MAP                SA3    X3+B2       X3 = *WB*                                           FC5A185      574     A     
 MAP                XTRCT  WB.MODE,X3,X6     X6 = MODE OF ITEM                             FC5A185      575     A     
 MAP                LX3    WB.MODEP-WB.ARYP-1                                              FC5A185      576     A     
 MAP                =X1    1                                                               FC5A185      577     A     
 MAP                PL     X3,LAST10   IF NOT AN ARRAY                                     FC5A185      578     A     
 MAP                LX3    WB.ARYP+1                                                       FC5A185      579     A     
 MAP                XTRCT  WB.PNT,X3,X3      X3 = T.DIM INDEX                              FC5A185      580     A     
 MAP                SA2    T.DIM                                                           FC5A185      581     A     
 MAP                SB2    X3                                                              FC5A185      582     A     
 MAP                SA2    X2+B2       X2 = *DH*                                           FC5A185      583     A     
 MAP                XTRCT  DH.PS,X2,X1 X1 = LENGTH                                         FC5A185      584     A     
 MAP                                                                                       FC5A185      585     A     
 MAP       LAST10   SX7    1R-                                                             FC5A185      586     A     
 MAP                SA7    LASTA+1     STORE SEPARATOR FOR NON-CHAR ITEM                   FC5A185      587     A     
 MAP                =X2    X6-M.DBL                                                        FC5A185      588     A     
 MAP                =X3    2                                                               FC5A185      589     A     
 MAP                ZR     X2,LAST20   IF DOUBLE PRECISION                                 FC5A185      590     A     
 MAP                =X2    X6-M.CPLX                                                       FC5A185      591     A     
 MAP                ZR     X2,LAST20   IF COMPLEX                                          FC5A185      592     A     
 MAP                =X2    X6-M.CHAR                                                       FC5A185      593     A     
 MAP                =X3    1                                                               FC5A185      594     A     
 MAP                NZ     X2,LAST20   IF NOT CHARACTER                                    FC5A185      595     A     
 MAP                =A3    A3-WB.W+WC.W                                                    FC5A185      596     A     
 MAP                XTRCT  WC.CLEN,X3,X3     X3 = CHARACTER LENGTH                         FC5A185      597     A     
 MAP                =X7    1R:                                                             FC5A185      598     A     
 MAP                SA7    LASTA+1     STORE SEPARATOR FOR CHAR ITEM                       FC5A185      599     A     
 MAP                                                                                       FC5A185      600     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1938    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       LAST20   IX5    X1*X3       X5 = TOTAL LENGTH OF ITEM                           FC5A185      601     A     
 MAP                SA3    LASTA                                                           FC5A185      602     A     
 MAP                IX2    X3+X5                                                           FC5A185      603     A     
 MAP                =X5    1                                                               FC5A185      604     A     
 MAP                IX1    X2-X5       X1 = LAST                                           FC5A185      605     A     
 MAP                SB5    B6          SAVE B6                                             FC5A185      606     A     
 MAP                =B6    0                                                               FC5A185      607     A     
 MAP                IX3    X3-X1                                                           FC5A185      608     A     
 MAP                ZR     X3,LAST30   IF LAST .EQ. FIRST                                  FC5A185      609     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      FC5A185      610     A     
 MAP                MX0    CHAR                                                            FC5A185      611     A     
 MAP                LX4    -CHAR                                                           FC5A185      612     A     
 MAP                BX4    -X0*X4      ERASE UPPER BLANK                                   FC5A185      613     A     
 MAP                SA1    LASTA+1     X1 = SEPARATOR                                      FC5A185      614     A     
 MAP                LX1    -CHAR                                                           FC5A185      615     A     
 MAP                BX1    X4+X1       PREFIX WITH - (OR :)                                FC5A185      616     A     
 MAP                =X0    1                                                               FC5A185      617     A     
 MAP                RJ     CCBB        DETERMINE LENGTH                                    FC5A185      618     A     
 MAP                BX6    X1                                                              FC5A185      619     A     
 MAP                                                                                       FC5A185      620     A     
 MAP       LAST30   SA6    LASTA                                                           FC5A185      621     A     
 MAP                SX6    B6                                                              FC5A185      622     A     
 MAP                =A6    A6+1                                                            FC5A185      623     A     
 MAP                SB6    B6+B5       UPDATE TOTAL CHARACTER COUNT                        FC5A185      624     A     
 MAP                EQ     EXIT.                                                           FC5A185      625     A     
 MAP                                                                                       FC5A185      626     A     
 MAP       LASTA    BSS    2                                                               FC5A185      627     A     
 MAP       LBL      SPACE  4,10                                                            MAP         2981     A     
 MAP      **        LBL -  OUTPUT A LABEL NUMBER.                                          MAP         2982     A     
 MAP      *                                                                                MAP         2983     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/LBL.                                   MAP         2984     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         2985     A     
 MAP      *                                                                                MAP         2986     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         2987     A     
 MAP      *                                                                                MAP         2988     A     
 MAP      *         CALLS  JIF,ZTB.                                                        MAP         2989     A     
 MAP                                                                                       MAP         2990     A     
 MAP       LBL      DIS    MAPPML,LABEL                                                    MAP         2991     A     
 MAP                                                                                       MAP         2992     A     
 MAP                LX4    30                                                              MAP         2993     A     
 MAP                SB5    X4                                                              MAP         2994     A     
 MAP                XTRCT  WA.STL,X7,X1      ISOLATE THE LABEL                             MAP         2995     A     
 MAP                CALL   ZTB         CONVERT 00 CHARS TO BLANKS                          MAP         2996     A     
 MAP                BX1    X6                                                              MAP         2997     A     
 MAP                SX0    3                                                               MAP         2998     A     
 MAP                =B6    -1                                                              MAP         2999     A     
 MAP                RJ     JIF                                                             MAP         3000     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3001     A     
 MAP       LDEF     SPACE  4,10                                                            MAP         3002     A     
 MAP      **        LDEF - OUTPUT SOURCE LINE NUMBER WHERE A LABEL WAS DEFINED.            MAP         3003     A     
 MAP      *                                                                                MAP         3004     A     
 MAP      *         IF LABEL WAS NOT DEFINED, *UNDEF* WILL BE OUTPUT.                      MAP         3005     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1939    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *                                                                                MAP         3006     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/LDEF.                                  MAP         3007     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         3008     A     
 MAP      *                                                                                MAP         3009     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         3010     A     
 MAP      *                                                                                MAP         3011     A     
 MAP      *         CALLS  JIF,CDD.                                                        MAP         3012     A     
 MAP                                                                                       MAP         3013     A     
 MAP       LDEF     DIS    MAPPML,----DEF                                                  MAP         3014     A     
 MAP                                                                                       MAP         3015     A     
 MAP                SA1    T.SYM                                                           MAP         3016     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3017     A     
 MAP                =B6    X7+WB.W     OFFSET TO WORD B                                    MAP         3018     A     
 MAP                SA1    X1+B6       FETCH WORD B                                        MAP         3019     A     
 MAP                LX4    30                                                              MAP         3020     A     
 MAP                SB5    X4          FIELD WIDTH                                         MAP         3021     A     
 MAP                CLAS=  X4,WB,(SDEF,NDEF,FDEF)                                          MAP         3022     A     
 MAP                BX4    X1*X4                                                           MAP         3023     A     
 MAP                NZ     X4,LDEF10   IF DEFINED                                          MAP         3024     A     
 MAP                SA1    =7H*UNDEF*                                                      MAP         3025     A     
 MAP                =X0    1                                                               MAP         3026     A     
 MAP                SB6    7                                                               MAP         3027     A     
 MAP                RJ     JIF                                                             MAP         3028     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3029     A     
 MAP                                                                                       MAP         3030     A     
 MAP       LDEF10   SA1    A1-WB.W+WC.W      FETCH WORD C                                  MAP         3031     A     
 MAP                XTRCT  WC.LINE,X1,X1     ISOLATE LINE NUMBER                           MAP         3032     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         3033     A     
 MAP                BX1    X6                                                              MAP         3034     A     
 MAP                SX0    3                                                               MAP         3035     A     
 MAP                =B6    -1                                                              MAP         3036     A     
 MAP                RJ     JIF                                                             MAP         3037     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3038     A     
 MAP       NAM      SPACE  4,10                                                            MAP         3039     A     
 MAP      **        NAM -  OUTPUT THE NAME OF A SYMBOL.                                    MAP         3040     A     
 MAP      *                                                                                MAP         3041     A     
 MAP      *         THIS ROUTINE WILL TAKE THE SYMBOL IN UPPER 42 BITS                     MAP         3042     A     
 MAP      *         OF X7 AND FORMAT IT FOR PCB.                                           MAP         3043     A     
 MAP      *                                                                                MAP         3044     A     
 MAP      *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/NAM.                                MAP         3045     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         3046     A     
 MAP      *                                                                                MAP         3047     A     
 MAP      *         USES   X - ALL  A - 1,2,3,6  B - ALL.                                  MAP         3048     A     
 MAP      *                                                                                MAP         3049     A     
 MAP      *         CALLS  JIF,SFN.                                                        MAP         3050     A     
 MAP                                                                                       MAP         3051     A     
 MAP       NAM      DIS    MAPPML,NAME------                                               MAP         3052     A     
 MAP                                                                                       MAP         3053     A     
 MAP                XTRCT  MT.SYM,X7,X1      ISOLATE NAME                                  MAP         3054     A     
 MAP                LX1    -MT.SYML    LEFT JUSTIFY IT                                     MAP         3055     A     
 MAP                CALL   SFN         SPACE FILL                                          MAP         3056     A     
 MAP                BX1    X6                                                              MAP         3057     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1940    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                LX4    30                                                              MAP         3058     A     
 MAP                SB5    X4                                                              MAP         3059     A     
 MAP                MX0    0                                                               MAP         3060     A     
 MAP                =B6    -1                                                              MAP         3061     A     
 MAP                RJ     JIF                                                             MAP         3062     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3063     A     
 MAP       NAME     SPACE  4,10                                                            MAP         3064     A     
 MAP      **        NAME - DETERMINE NAME OF COMMON-EQUIVALENCE ITEM.                      MAP         3065     A     
 MAP      *                                                                                MAP         3066     A     
 MAP      *         ENTRY  (B5) = INDEX OF ITEM IN T.SYM.                                  MAP         3067          I
          -FC5A185
 MAP      *                                                                                MAP         3068          I
          -FC5A185
 MAP      *         EXIT   (B6),*NAMEA*+1 = LENGTH OF NAME.                                MAP         3069          I
          -FC5A185
 MAP      *                                                                                MAP         3070          I
          -FC5A185
 MAP      *                *NAMEA* = DPC OF NAME.                                          MAP         3071          I
          -FC5A185
 MAP      *                                                                                MAP         3072          I
          -FC5A185
 MAP      *                (B5) - PRESERVED.                                               MAP         3073          I
          -FC5A185
 MAP      *                                                                                MAP         3074          I
          -FC5A185
 MAP      *         CALLS  SFN,CCBB.                                                       MAP         3075          I
          -FC5A185
 MAP      *                                                                                MAP         3076          I
          -FC5A185
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,3,6  B - 2,3,6.                        MAP         3077          I
          -FC5A185
 MAP                                                                                       MAP         3078          I
          -FC5A185
 MAP       NAME     SUBR               ENTRY/EXIT...                                       MAP         3079          I
          -FC5A185
 MAP                SA3    T.SYM                                                           MAP         3080          I
          -FC5A185
 MAP                SB2    B5-WB.W+WA.W                                                    MAP         3081          I
          -FC5A185
 MAP                SA3    X3+B2       *WA*                                                MAP         3082          I
          -FC5A185
 MAP                XTRCT  WA.SYM,X3,X1      ISOLATE SYMBOL NAME                           MAP         3083          I
          -FC5A185
 MAP                LX1    -WA.SYML    LEFT JUSTIFY                                        MAP         3084          I
          -FC5A185
 MAP                CALL   SFN         SPACE FILL                                          MAP         3085          I
          -FC5A185
 MAP                =X0    1                                                               MAP         3086          I
          -FC5A185
 MAP                BX1    X6                                                              MAP         3087          I
          -FC5A185
 MAP                RJ     CCBB        DETERMINE NAME LENGTH                               MAP         3088          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1941    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC5A185
 MAP                SX1    B6                                                              MAP         3089          I
          -FC5A185
 MAP                LX1    2                                                               MAP         3090          I
          -FC5A185
 MAP                SX1    X1+B6                                                           MAP         3091          I
          -FC5A185
 MAP                SB2    X1+B6       CONVERT TO CHARACTER COUNT TO BIT COUNT             MAP         3092          I
          -FC5A185
 MAP                SA1    =1L<                                                            MAP         3093          I
          -FC5A185
 MAP                SB2    B2-60                                                           MAP         3094          I
          -FC5A185
 MAP                AX1    B2,X1                                                           MAP         3095          I
          -FC5A185
 MAP                MX0    CHAR                                                            MAP         3096          I
          -FC5A185
 MAP                AX0    B2,X0                                                           MAP         3097          I
          -FC5A185
 MAP                BX6    -X0*X6      ERASE FIRST TRAILING BLANK                          MAP         3098          I
          -FC5A185
 MAP                BX6    X6+X1       APPEND LEFT PAREN                                   MAP         3099          I
          -FC5A185
 MAP                LX6    -CHAR                                                           MAP         3100          I
          -FC5A185
 MAP                SB6    B6+2        ACCOUNT FOR BLANK AND LEFT PAREN                    MAP         3101          I
          -FC5A185
 MAP                SA6    NAMEA                                                           MAP         3102          I
          -FC5A185
 MAP                SX6    B6                                                              MAP         3103          I
          -FC5A185
 MAP                =A6    A6+1                                                            MAP         3104          I
          -FC5A185
 MAP                EQ     EXIT.                                                           MAP         3105          I
          -FC5A185
 MAP                                                                                       MAP         3106          I
          -FC5A185
 MAP       NAMEA    BSS    2           STORAGE FOR DATA                                    MAP         3107          I
          -FC5A185
 MAP      *         ENTRY  (OCEI.ADR) = ADDRESS OF TABLE ENTRY FOR ITEM.                   FC5A185      628     A     
 MAP      *                                                                                FC5A185      629     A     
 MAP      *         EXIT   (B6) = LENGTH OF NAME IN CHARS.                                 FC5A185      630     A     
 MAP      *                (NAMEA) = DPC OF NAME.                                          FC5A185      631     A     
 MAP      *                (NAMEA+1) = B6                                                  FC5A185      632     A     
 MAP      *                                                                                FC5A185      633     A     
 MAP      *         CALLS  SFN,CCBB.                                                       FC5A185      634     A     
 MAP      *                                                                                FC5A185      635     A     
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,6  B - 2,3,6.                        FC5A185      636     A     
 MAP                                                                                       FC5A185      637     A     
 MAP                                                                                       FC5A185      638     A     
 MAP       NAME     SUBR               ENTRY/EXIT...                                       FC5A185      639     A     
 MAP                SA1    OCEI.ADR                                                        FC5A185      640     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1942    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA2    T.SYM                                                           FC5A185      641     A     
 MAP                SA1    X1          X1 = TABLE ENTRY OF ITEM                            FC5A185      642     A     
 MAP                LX1    -MT.WAIP                                                        FC5A185      643     A     
 MAP                SB2    X1                                                              FC5A185      644     A     
 MAP                ERRNZ  MT.WAIL-18                                                      FC5A185      645     A     
 MAP                SA2    X2+B2       X2 = *WA*                                           FC5A185      646     A     
 MAP                XTRCT  WA.SYM,X2,X1      X1 = DPC OF NAME                              FC5A185      647          I
          -FC50297
 MAP                LX1    -WA.SYML    LEFT JUSTIFY                                        FC5A185      648          I
          -FC50297
 MAP                MX1    WA.SYML                                                         FC50297       30     A     
 MAP                HX2    WA.SYM                                                          FC50297       31     A     
 MAP                BX1    X1*X2       EXTRACT DPC OF NAME                                 FC50297       32     A     
 MAP                CALL   SFN         SPACE FILL                                          FC5A185      649     A     
 MAP                =X0    1                                                               FC5A185      650     A     
 MAP                BX1    X6                                                              FC5A185      651     A     
 MAP                RJ     CCBB        DETERMINE LENGTH                                    FC5A185      652     A     
 MAP                LX6    -CHAR                                                           FC5A185      653          I
          -FC50297
 MAP                =B6    B6+1        ACCOUNT FOR PRECEDING BLANK                         FC5A185      654          I
          -FC50297
 MAP                SA6    NAMEA                                                           FC5A185      655     A     
 MAP                SX6    B6                                                              FC5A185      656     A     
 MAP                =A6    A6+1                                                            FC5A185      657     A     
 MAP                EQ     EXIT.                                                           FC5A185      658     A     
 MAP                                                                                       FC5A185      659     A     
 MAP       NAMEA    BSS    2                                                               FC5A185      660     A     
 MAP       NOP      SPACE  4,10                                                            MAP         3108     A     
 MAP      **        NOP -  DO NOTHING AT ALL.                                              MAP         3109     A     
 MAP      *                                                                                MAP         3110     A     
 MAP      *         USED TO EFFECTIVELY DELETE A FIELD FROM A MAP                          MAP         3111     A     
 MAP      *         WHEN PAGE WIDTH LIMITATIONS WONT ALLOW ENTIRE                          MAP         3112     A     
 MAP      *         MAP TO BE PRINTED.                                                     MAP         3113     A     
 MAP      *                                                                                MAP         3114     A     
 MAP       NOP      DIS    MAPPML,THIS SHOULD NEVER BE PRINTED                             MAP         3115     A     
 MAP                                                                                       MAP         3116     A     
 MAP                EQ     MOC.RB                                                          MAP         3117     A     
 MAP       PRP      SPACE  4,10                                                            MAP         3118     A     
 MAP      **        PRP -  OUTPUT PROPERTIES OF DO LOOPS, VARIABLES, OR LABELS.            MAP         3119     A     
 MAP      *                                                                                MAP         3120     A     
 MAP      *         THIS ROUTINE MAKES ONE PASS THROUGH A TABLE UNIQUE TO                  MAP         3121     A     
 MAP      *         THE MAP SEGMENT BEING PROCESSED TO OUTPUT PROPERTIES.                  MAP         3122     A     
 MAP      *         THE ACTION OF THE PROCESSOR IS DETERMINED BY FIELDS IN                 MAP         3123     A     
 MAP      *         THE 1ST WORD OF EACH 2-WORD TABLE ENTRY.  A MAXIMUM OF                 MAP         3124     A     
 MAP      *         TWO BITS MUST BE TESTED TO DETERMINE WHETHER A PROPERTY                MAP         3125     A     
 MAP      *         IS TO BE PRINTED OR NOT.  IN ADDITION, CERTAIN ACTIONS                 MAP         3126     A     
 MAP      *         MAY NEED TO BE TAKEN BEFORE PRINTING.  THIS INFORMATION                MAP         3127     A     
 MAP      *         (ALONG WITH THE LENGTH IN CHARS OF THE PROPERTY) IS                    MAP         3128     A     
 MAP      *         CONTAINED IN THE 1ST WORD OF EACH TABLE ENTRY AS FOLLOWS :             MAP         3129     A     
 MAP      *                                                                                MAP         3130     A     
 MAP      *         18/BIT1,1/VAL1,18/BIT2,1/VAL2,18/LABEL,4/LENGTH.                       MAP         3131     A     
 MAP      *                                                                                MAP         3132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1943    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/PRP.                                   MAP         3133     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         3134     A     
 MAP      *                (X5) = CURRENT MST OFFSET.                                      MAP         3135     A     
 MAP      *                                                                                MAP         3136     A     
 MAP      *         USES   ALL EXCEPT A5.                                                  MAP         3137     A     
 MAP      *                                                                                MAP         3138     A     
 MAP      *         CALLS  JIF,PCB.                                                        MAP         3139     A     
 MAP                                                                                       MAP         3140     A     
 MAP       PRP      DIS    MAPPML,PROPERTIES--------------------                           MAP         3141     A     
 MAP                                                                                       MAP         3142     A     
 MAP                SA1    T.SYM                                                           MAP         3143     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3144     A     
 MAP                =B2    X7+WB.W                                                         MAP         3145     A     
 MAP                SA1    X1+B2                                                           MAP         3146     A     
 MAP                LX4    30                                                              MAP         3147     A     
 MAP                SB4    X4          SAVE COPY OF THE FIELD WIDTH                        MAP         3148     A     
 MAP                =B7    0           FLAG                                                MAP         3149     A     
 MAP                =B5    0           CHARACTER COUNTER                                   MAP         3150     A     
 MAP                SA4    PRPPTA+X5   X4 = PROPER TABLE ADDRESS                           MAP         3151     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         3152     A     
 MAP                ZR     X4,"BLOWUP" IF BAD X5                                           MAP         3153     A     
 MAP                SA4    X4-2        INITIALIZE A4                                       MAP         3154     A     
 MAP                BX5    X1                                                              MAP         3155     A     
 MAP                                                                                       MAP         3156     A     
 MAP       PRP30    SA4    A4+2                                                            MAP         3157     A     
 MAP                ZR     X4,PRP50    IF AT END OF TABLE                                  MAP         3158     A     
 MAP                LX4    18                                                              MAP         3159     A     
 MAP                SB2    X4          ISOLATE 1ST BIT NUMBER                              MAP         3160     A     
 MAP                LX4    1                                                               MAP         3161     A     
 MAP                =X0    1                                                               MAP         3162     A     
 MAP                BX2    X0*X4       ISOLATE BIT VALUE THAT TRIGGERS SUPPRESS            MAP         3163     A     
 MAP                LX2    B2,X2       POSITION IT                                         MAP         3164     A     
 MAP                LX0    B2,X0                                                           MAP         3165     A     
 MAP                BX1    X0*X5       ISOLATE ACTUAL BIT VALUE                            MAP         3166     A     
 MAP                BX1    X1-X2                                                           MAP         3167     A     
 MAP                ZR     X1,PRP30    IF SATISFIES SUPPRESS CRITERION                     MAP         3168     A     
 MAP                LX4    18                                                              MAP         3169     A     
 MAP                SB2    X4          ISOLATE 2ND BIT NUMBER                              MAP         3170     A     
 MAP                LX4    1                                                               MAP         3171     A     
 MAP                =X0    1                                                               MAP         3172     A     
 MAP                BX2    X0*X4       ISOLATE BIT VALUE THAT TRIGGERS SUPPRESS            MAP         3173     A     
 MAP                LX2    B2,X2       POSITION IT                                         MAP         3174     A     
 MAP                LX0    B2,X0                                                           MAP         3175     A     
 MAP                BX1    X0*X5       ISOLATE ACTUAL BIT VALUE                            MAP         3176     A     
 MAP                BX1    X1-X2                                                           MAP         3177     A     
 MAP                ZR     X1,PRP30    IF SATISFIES SUPPRESS CRITERION                     MAP         3178     A     
 MAP                LX4    18                                                              MAP         3179     A     
 MAP                SB2    X4          ADDRESS OF CODE TO EXECUTE                          MAP         3180     A     
 MAP                JP     B2                                                              MAP         3181     A     
 MAP                                                                                       MAP         3182     A     
 MAP       PRP40    MX0    4                                                               MAP         3183     A     
 MAP                BX1    X0*X4       ISOLATE PROPERTY LENGTH                             MAP         3184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1944    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                LX1    4                                                               MAP         3185     A     
 MAP                SB6    X1+B7       ADD LENGTH OF / (IF ANY)                            MAP         3186     A     
 MAP                SB5    B5+B6       ACCUMULATE SUM                                      MAP         3187     A     
 MAP                IFEQ   TEST,ON,2                                                       MAP         3188     A     
 MAP                SB2    B4-B5                                                           MAP         3189     A     
 MAP                MI     B2,"BLOWUP" IF EXCEEDING FIELD WIDTH                            MAP         3190     A     
 MAP                SA1    A4+1                                                            MAP         3191     A     
 MAP                ZR     B7,PRP45    IF NOTHING PREVIOUSLY OUTPUT                        MAP         3192     A     
 MAP                SX0    5                                                               MAP         3193     A     
 MAP                BX1    X1-X0       CHANGE BLANK TO /                                   MAP         3194     A     
 MAP                LX1    -CHAR                                                           MAP         3195     A     
 MAP                                                                                       MAP         3196     A     
 MAP       PRP45    RJ     PCB                                                             MAP         3197     A     
 MAP                =B7    1           SET THE FLAG                                        MAP         3198     A     
 MAP                EQ     PRP30       CONTINUE                                            MAP         3199     A     
 MAP                                                                                       MAP         3200     A     
 MAP       PRP50    SB6    B4-B5       NUMBER OF UNUSED COLUMNS                            MAP         3201     A     
 MAP                SA1    MAP.XS                                                          MAP         3202     A     
 MAP                RJ     PCB                                                             MAP         3203     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3204     A     
 MAP       PRP      SPACE  4,10                                                            MAP         3205     A     
 MAP      **        THE FOLLOWING CODE IS EXECUTED ONLY IF WB.LEV IS                       MAP         3206     A     
 MAP      *         SET. (WHEN PROCESSING VARIABLE MAP)                                    MAP         3207     A     
 MAP                                                                                       MAP         3208     A     
 MAP       PRP60    BX1    X5                                                              MAP         3209     A     
 MAP                XTRCT  WB.LEVN,X1,X1      ISOLATE THE LEVEL NUMBER                     MAP         3210     A     
 MAP                SX1    X1+33B      CONVERT TO DPC                                      MAP         3211     A     
 MAP                =A2    A4+1                                                            MAP         3212     A     
 MAP                MX0    CHAR                                                            MAP         3213     A     
 MAP                LX0    -3*CHAR                                                         MAP         3214     A     
 MAP                BX2    -X0*X2      ERASE OLD LEVEL NUMBER                              MAP         3215     A     
 MAP                LX1    6*CHAR                                                          MAP         3216     A     
 MAP                BX7    X1+X2       APPEND NEW LEVEL NUMBER                             MAP         3217     A     
 MAP                SA7    A2                                                              MAP         3218     A     
 MAP                EQ     PRP40                                                           MAP         3219     A     
 MAP       PRP      SPACE  4,10                                                            MAP         3220     A     
 MAP      **        THE FOLLOWING CODE IS EXECUTED ONLY IF THE                             MAP         3221     A     
 MAP      *         LABEL MAP IS BEING PROCESSED.                                          MAP         3222     A     
 MAP                                                                                       MAP         3223     A     
 MAP       PRP70    MX0    4                                                               MAP         3224     A     
 MAP                BX1    X0*X4       ISOLATE LENGTH                                      MAP         3225     A     
 MAP                LX1    4                                                               MAP         3226     A     
 MAP                SB6    X1                                                              MAP         3227     A     
 MAP                SA1    A4+1                                                            MAP         3228     A     
 MAP                SB5    B4                                                              MAP         3229     A     
 MAP                MX0    0                                                               MAP         3230     A     
 MAP                RJ     JIF                                                             MAP         3231     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3232     A     
 MAP                                                                                       MAP         3233     A     
 MAP      **        THE FOLLOWING CODE IS EXECUTED ONLY DURING VARIABLE MAP OUTPUT         MAP         3234     A     
 MAP      *         IF A SYMBOL IS UNUSED.                                                 MAP         3235     A     
 MAP                                                                                       MAP         3236     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1945    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       PRP80    CLAS=  X1,WB,(DEF)                                                     MAP         3237     A     
 MAP                BX5    X1+X5       TURN ON THE *DEF* BIT                               MAP         3238     A     
 MAP                EQ     PRP40                                                           MAP         3239     A     
 MAP       PRP      SPACE  4                                                               MAP         3240     A     
 MAP      **        TABLE OF PRIORITY TABLE ADDRESSES.                                     MAP         3241     A     
 MAP                                                                                       MAP         3242     A     
 MAP       STO      SET    -1                                                              MAP         3243     A     
 MAP       PRPPTA   BSS    0                                                               MAP         3244     A     
 MAP                LOC    0                                                               MAP         3245     A     
 MAP                DDTE   TVARP,(VFD    60/PRPA)        VARIABLES                         MAP         3246     A     
 MAP                DDTE   TSCP,(VFD    60/0)                                              MAP         3247     A     
 MAP                DDTE   TPROP,(VFD    60/0)                                             MAP         3248     A     
 MAP                DDTE   TLABP,(VFD    60/PRPC)        LABELS                            MAP         3249     A     
 MAP                DDTE   TENTP,(VFD    60/0)                                             MAP         3250     A     
 MAP                DDTE   TNAMP,(VFD    60/0)                                             MAP         3251     A     
 MAP                DDTE   TDOLP,(VFD    60/PRPB)        DO-LOOPS                          MAP         3252     A     
 MAP                DDTE   TCOMP,(VFD    60/0)                                             MAP         3253     A     
 MAP                DDTE   TIOP,(VFD    60/PRPD)         I/O UNITS                         MAP         3254     A     
 MAP                LOC    *O                                                              MAP         3255     A     
 MAP       PRP      SPACE  4,10                                                            MAP         3256     A     
 MAP      **        THE FOLLOWING CODE DEFINES ONE TABLE FOR EACH MAP                      MAP         3257     A     
 MAP      *         SEGMENT THAT USES THIS PROCESSOR.                                      MAP         3258     A     
 MAP                                                                                       MAP         3259     A     
 MAP       PRPA     VFD    18/WB.VARP,1/1,18/WB.NVARP,1/1,18/PRP80,4/6                     MAP         3260          I
          -FC50326
 MAP       PRPA     VFD    18/WB.SFAP,1/0,18/WB.SFAP,1/0,18/PRP50,4/0                      FC50326       51     A     
 MAP                DATA   10H                                                             FC50326       52     A     
 MAP                VFD    18/WB.VARP,1/1,18/WB.NVARP,1/1,18/PRP80,4/6                     FC50326       53     A     
 MAP                DATA   10HUNUSED                                                       MAP         3261     A     
 MAP                                                                                       MAP         3262     A     
 MAP                VFD    18/WB.DEFP,1/1,18/WB.FPP,1/1,18/PRP40,4/3                       MAP         3263     A     
 MAP                DATA   10HUND                                                          MAP         3264     A     
 MAP                                                                                       MAP         3265     A     
 MAP                VFD    18/WB.EQVP,1/0,18/WB.EQVP,1/0,18/PRP40,4/3                      MAP         3266     A     
 MAP                DATA   10HEQV                                                          MAP         3267     A     
 MAP                                                                                       MAP         3268     A     
 MAP                VFD    18/WB.1REFP,1/0,18/WB.1REFP,1/0,18/PRP40,4/7                    MAP         3269          I
          -FC5A229
 MAP                DATA   10H*STRAY*                                                      MAP         3270          I
          -FC5A229
 MAP                VFD    18/WB.1REFP,1/0,18/WB.COMP,1/1,18/PRP40,4/3                     FC5A229        5     A     
 MAP                DATA   10H*S*                                                          FC5A229        6     A     
 MAP                                                                                       MAP         3271     A     
 MAP                VFD    18/WB.LEVP,1/0,18/WB.LEVP,1/0,18/PRP60,4/4                      MAP         3272     A     
 MAP                DATA   10HLEV                                                          MAP         3273     A     
 MAP                                                                                       MAP         3274     A     
 MAP                VFD    18/WB.SAVEP,1/0,18/WB.SAVEP,1/0,18/PRP40,4/3                    MAP         3275     A     
 MAP                DATA   10HSAV                                                          MAP         3276     A     
 MAP                                                                                       MAP         3277     A     
 MAP                DATA   0                                                               MAP         3278     A     
 MAP       PRP      SPACE  4,10                                                            MAP         3279     A     
 MAP       PRPB     VFD    18/WB.DLERP,1/0,18/WB.DLERP,1/0,18/PRP40,4/4                    MAP         3280     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1946    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DATA   10HXREF                                                         MAP         3281     A     
 MAP                                                                                       MAP         3282     A     
 MAP                VFD    18/WB.DLENP,1/0,18/WB.DLENP,1/0,18/PRP40,4/5                    MAP         3283     A     
 MAP                DATA   10HENTRY                                                        MAP         3284     A     
 MAP                                                                                       MAP         3285     A     
 MAP                VFD    18/WB.DLNIP,1/0,18/WB.DLNIP,1/0,18/PRP40,4/5                    MAP         3286     A     
 MAP                DATA   10HOUTER                                                        MAP         3287     A     
 MAP                                                                                       MAP         3288     A     
 MAP                VFD    18/WB.DLEXP,1/0,18/WB.DLEXP,1/0,18/PRP40,4/4                    MAP         3289     A     
 MAP                DATA   10HEXIT                                                         MAP         3290     A     
 MAP                                                                                       MAP         3291     A     
 MAP                DATA   0                                                               MAP         3292     A     
 MAP       PRP      SPACE  4,10                                                            MAP         3293     A     
 MAP      PRPC      VFD    18/WB.FDEFP,1/0,18/WB.FDEFP,1/0,18/PRP70,4/6                    MAP         3294     A     
 MAP                DATA   10HFORMAT                                                       MAP         3295     A     
 MAP                                                                                       MAP         3296     A     
 MAP                VFD    18/WB.NDEFP,1/0,18/WB.NDEFP,1/0,18/PRP70,4/6                    MAP         3297     A     
 MAP                DATA   10HNON-EX                                                       MAP         3298     A     
 MAP                                                                                       MAP         3299     A     
 MAP                VFD    18/WB.DOTP,1/0,18/WB.DOTP,1/0,18/PRP70,4/7                      MAP         3300     A     
 MAP                DATA   10HDO-TERM                                                      MAP         3301     A     
 MAP                                                                                       MAP         3302     A     
 MAP                DATA   0                                                               MAP         3303     A     
 MAP                                                                                       MAP         3304     A     
 MAP       PRPD     VFD    18/WB.AUXP,1/0,18/WB.AUXP,1/0,18/PRP40,4/3                      MAP         3305     A     
 MAP                DATA   10HAUX                                                          MAP         3306     A     
 MAP                                                                                       MAP         3307     A     
 MAP                VFD    18/WB.FMTP,1/0,18/WB.FMTP,1/0,18/PRP40,4/3                      MAP         3308     A     
 MAP                DATA   10HFMT                                                          MAP         3309     A     
 MAP                                                                                       MAP         3310     A     
 MAP                VFD    18/WB.BINP,1/0,18/WB.BINP,1/0,18/PRP40,4/3                      MAP         3311     A     
 MAP                DATA   10HBIN                                                          MAP         3312     A     
 MAP                                                                                       MAP         3313     A     
 MAP                VFD    18/WB.DIRP,1/0,18/WB.DIRP,1/0,18/PRP40,4/3                      MAP         3314     A     
 MAP                DATA   10HDIR                                                          MAP         3315     A     
 MAP                                                                                       MAP         3316     A     
 MAP                VFD    18/WB.SEQP,1/0,18/WB.SEQP,1/0,18/PRP40,4/3                      MAP         3317     A     
 MAP                DATA   10HSEQ                                                          MAP         3318     A     
 MAP                                                                                       MAP         3319     A     
 MAP                VFD    18/WB.BUFP,1/0,18/WB.BUFP,1/0,18/PRP40,4/3                      MAP         3320     A     
 MAP                DATA   10HBUF                                                          MAP         3321     A     
 MAP                                                                                       MAP         3322     A     
 MAP                DATA   0                                                               MAP         3323     A     
 MAP       REF      SPACE  4,10                                                            MAP         3324     A     
 MAP      **        REF -  OUTPUT REFERENCES TO A SYMBOL.                                  MAP         3325     A     
 MAP      *                                                                                MAP         3326     A     
 MAP      *         EACH REFERENCE TAKES UP MAPCPR COLUMNS. CODE WILL WORK                 MAP         3327     A     
 MAP      *         PROPERLY ONLY IF MAPCPR IS BETWEEN 7 AND 10 INCL.                      MAP         3328     A     
 MAP      *                                                                                MAP         3329     A     
 MAP      *         ENTRY  (X7) = ENTRY OF T.SCR.                                          MAP         3330     A     
 MAP      *                (X5) = CURRENT MST OFFSET.                                      MAP         3331     A     
 MAP      *                                                                                MAP         3332     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1947    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         USES   ALL REGISTERS.                                                  MAP         3333     A     
 MAP      *                                                                                MAP         3334     A     
 MAP      *         CALLS  PCB,CDD,WLINE,GBL.                                              MAP         3335     A     
 MAP                                                                                       MAP         3336     A     
 MAP       REF      DIS    MAPPML,REFERENCES------                                         MAP         3337     A     
 MAP                                                                                       MAP         3338     A     
 MAP                PLUG   AT=REFP1,TO=REF15,,VOID=NO                                      FC5A203        4     A     
 MAP                SA1    MOD                                                             MAP         3339     A     
 MAP                IFBIT  X1,-MO.FUNP,REF1C IF NOT COMPILING A FUNCTION                   MAP         3340          I
          -FC5A203
 MAP                IFBIT  X1,-MO.FUNP,REF1B IF NOT COMPILING A FUNCTION                   FC5A203        5          I
          -FC50464
 MAP                PLUG   AT=REFP1,FROM=REFNOP,,,VOID=NO                                  MAP         3341          I
          -FC50464
 MAP                SBIT   X1,MO.FUNP                                                      FC50464       27     A     
 MAP                PL     X1,REF3     IF NOT FUNCTION                                     FC50464       28     A     
 MAP                =X6    X5-TVARP                                                        MAP         3342     A     
 MAP                ZR     X6,REF1A    IF PROCESSING VARIABLE MAP                          MAP         3343          I
          -FC5A203
 MAP                =X6    X5-TENTP                                                        MAP         3344          I
          -FC5A203
 MAP                ZR     X6,REF1B    IF PROCESSING ENTRY MAP                             MAP         3345          I
          -FC5A203
 MAP                PLUG   AT=REFP1,TO=REF15,,VOID=NO                                      MAP         3346          I
          -FC5A203
 MAP                EQ     REF1C                                                           MAP         3347          I
          -FC5A203
 MAP                                                                                       MAP         3348          I
          -FC5A203
 MAP       REF1A    PLUG   AT=REFP2,FROM=REFPL,,,VOID=NO                                   MAP         3349          I
          -FC5A203
 MAP                EQ     REF1C                                                           MAP         3350          I
          -FC5A203
 MAP                                                                                       MAP         3351          I
          -FC5A203
 MAP       REF1B    PLUG   AT=REFP2,FROM=REFMI,,,VOID=NO                                   MAP         3352          I
          -FC5A203
 MAP                                                                                       MAP         3353          I
          -FC5A203
 MAP       REF1C    RJ     GBL         GET BUFFER LENGTH                                   MAP         3354          I
          -FC5A203
 MAP                NZ     X6,REF1A    IF NOT PROCESSING VARIABLE MAP                      FC5A203        6          I
          -FC50464
 MAP                NZ     X6,REF1     IF NOT PROCESSING VARIABLE MAP                      FC50464       29     A     
 MAP                PLUG   AT=REFP2,FROM=REFPL,,,VOID=NO                                   FC5A203        7     A     
 MAP                EQ     REF1B                                                           FC5A203        8          I
          -FC50464
 MAP                EQ     REF2                                                            FC50464       30     A     
 MAP                                                                                       FC5A203        9     A     
 MAP       REF1A    =X6    X5-TENTP                                                        FC5A203       10          I
          -FC50464
 MAP                NZ     X6,REF1B    IF NOT PROCESSING ENTRY MAP                         FC5A203       11          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1948    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FC50464
 MAP       REF1     =X6    X5-TENTP                                                        FC50464       31     A     
 MAP                NZ     X6,REF3     IF NOT PROCESSING ENTRY MAP                         FC50464       32     A     
 MAP                PLUG   AT=REFP2,FROM=REFMI,,,VOID=NO                                   FC5A203       12     A     
 MAP                                                                                       FC5A203       13     A     
 MAP       REF1B    RJ     GBL         GET BUFFER LENGTH                                   FC5A203       14          I
          -FC50464
 MAP       REF2     PLUG   AT=REFP1,FROM=REFNOP,,,VOID=NO                                  FC50464       33     A     
 MAP                                                                                       FC50464       34     A     
 MAP       REF3     RJ     GBL         GET BUFFER LENGTH                                   FC50464       35     A     
 MAP                BX6    X2                                                              MAP         3355     A     
 MAP                SA6    REFICC      SAVE INITIAL CHARACTER COUNT                        MAP         3356     A     
 MAP                SA3    CO.PW                                                           MAP         3357     A     
 MAP                SX3    X3          STRIP CONNECT BIT                                   FC5A187       19     A     
 MAP                IX3    X3-X2       # COLUMNS REF CAN USE                               MAP         3358     A     
 MAP                SX1    MAPCPR                                                          MAP         3359     A     
 MAP                IX3    X3/X1       X3 = # OF REFERENCES PER LINE                       MAP         3360     A     
 MAP                SX1    X3-MAPMRPL                                                      MAP         3361     A     
 MAP                PL     X1,REF5     IF ROOM FOR 2 OR MORE REFERENCES PER LINE           MAP         3362     A     
 MAP                SA7    REFSAV+2    PRESERVE T.SCR ENTRY                                MAP         3363     A     
 MAP                SA1    PCB.WO                                                          MAP         3364     A     
 MAP                SX1    X1+2                                                            MAP         3365     A     
 MAP                WLINE  MAPBUFF-1,X1,0,0    FLUSH THE BUFFER                            MAP         3366     A     
 MAP                SA1    MAP.XS                                                          MAP         3367     A     
 MAP                SB6    10                                                              MAP         3368     A     
 MAP                RJ     PCB                                                             MAP         3369     A     
 MAP                SA3    CO.PW                                                           MAP         3370     A     
 MAP                SX3    X3-10                                                           MAP         3371     A     
 MAP                SX1    MAPCPR                                                          MAP         3372     A     
 MAP                IX3    X3/X1                                                           MAP         3373     A     
 MAP                SX6    10                                                              MAP         3374     A     
 MAP                SA6    REFICC                                                          MAP         3375     A     
 MAP                SA1    REFSAV+2                                                        MAP         3376     A     
 MAP                BX7    X1          RESTORE T.SCR ENTRY                                 MAP         3377     A     
 MAP                                                                                       MAP         3378     A     
 MAP       REF5     BX6    X3                                                              MAP         3379     A     
 MAP                SA6    REFRPL      SAVE IT                                             MAP         3380     A     
 MAP                SA1    T.SYM                                                           MAP         3381     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3382     A     
 MAP                =B2    X7+WA.W                                                         MAP         3383     A     
 MAP                SA1    X1+B2       FETCH WORD A                                        MAP         3384     A     
 MAP                LX1    -WA.HASHP                                                       MAP         3385     A     
 MAP                BX5    -X0*X1      ISOLATE LINK TO HEAD OF REF CHAIN                   MAP         3386     A     
 MAP                ZR     X5,MOC.RB   IF NO REFERENCES                                    MAP         3387     A     
 MAP                SB5    X3          COUNTER                                             MAP         3388     A     
 MAP                                                                                       MAP         3389     A     
 MAP       REF10    SA1    MAP.XS                                                          MAP         3390     A     
 MAP                SB6    MAPCPR-MAPMCPR                                                  MAP         3391     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         3392     A     
 MAP                MI     B6,"BLOWUP" IF MAPCPR BAD                                       MAP         3393     A     
 MAP                RJ     PCB                                                             MAP         3394     A     
 MAP                MX0    -XR.LINEL                                                       MAP         3395     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1949    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    T.REF                                                           MAP         3396     A     
 MAP                SB2    X5                                                              MAP         3397     A     
 MAP                SA1    X1+B2       FETCH T.REF ENTRY                                   MAP         3398     A     
 MAP                LX1    -XR.LINEP                                                       MAP         3399     A     
 MAP                BX1    -X0*X1      ISOLATE LINE NUMBER OF REFERENCE                    MAP         3400     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         3401     A     
 MAP                LX6    2*CHAR                                                          MAP         3402     A     
 MAP                SA1    A1          RESTORE T.REF ENTRY                                 MAP         3403     A     
 MAP                BX3    X1                                                              MAP         3404     A     
 MAP                MX2    -XR.TAGL                                                        MAP         3405     A     
 MAP                LX3    -XR.TAGP                                                        MAP         3406     A     
 MAP                BX5    -X2*X3      ISOLATE LINK TO NEXT REFERENCE                      MAP         3407     A     
 MAP                                                                                       MAP         3408     A     
 MAP       REFP1    EQ     REF15                                                           MAP         3409     A     
 MAP      +         LX3    XR.TAGP-XR.MEDFP-1                                              MAP         3410     A     
 MAP                                                                                       MAP         3411     A     
 MAP       REFP2    PL     X3,REF15                                                        MAP         3412     A     
 MAP      +         ZR     X5,MOC.RB                                                       MAP         3413     A     
 MAP                EQ     REF10                                                           MAP         3414     A     
 MAP                                                                                       MAP         3415     A     
 MAP       REF15    MX2    -XR.USEL                                                        MAP         3416     A     
 MAP                LX1    -XR.USEP                                                        MAP         3417     A     
 MAP                BX1    -X2*X1      ISOLATE USAGE LETTER                                MAP         3418     A     
 MAP                SX2    X1-55B                                                          MAP         3419     A     
 MAP                ZR     X2,REF20    IF BLANK USAGE LETTER                               MAP         3420     A     
 MAP                MX2    -2*CHAR                                                         MAP         3421     A     
 MAP                BX6    X2*X6       ERASE LOWER BLANKS OF LINE NUMBER                   MAP         3422     A     
 MAP                SX2    1R/                                                             MAP         3423     A     
 MAP                LX2    CHAR                                                            MAP         3424     A     
 MAP                BX1    X1+X2       COMBINE / AND USAGE LETTER                          MAP         3425     A     
 MAP                BX6    X1+X6       APPEND TO LINE NUMBER                               MAP         3426     A     
 MAP                                                                                       MAP         3427     A     
 MAP       REF20    SB6    MAPMCPR                                                         MAP         3428     A     
 MAP                BX1    X6                                                              MAP         3429     A     
 MAP                LX1    60-6*MAPMCPR                                                    MAP         3430     A     
 MAP                RJ     PCB                                                             MAP         3431     A     
 MAP                ZR     X5,MOC.RB   IF LINK IS ZERO                                     MAP         3432     A     
 MAP                =B5    B5-1                                                            MAP         3433     A     
 MAP                NZ     B5,REF10    IF LINE NOT FINISHED                                MAP         3434     A     
 MAP                SA2    PCB.WO                                                          MAP         3435     A     
 MAP                =X2    X2+2        # OF WORDS TO OUTPUT                                MAP         3436     A     
 MAP                SAVR   (X5,B5),REFSAV                                                  MAP         3437     A     
 MAP                WLINE  MAPBUFF-1,X2,0,0  OUTPUT THE LINE                               MAP         3438     A     
 MAP                RESR   (X5,B5),REFSAV                                                  MAP         3439     A     
 MAP                SA2    REFICC      # OF BLANKS TO OUTPUT                               MAP         3440     A     
 MAP                SB6    X2                                                              MAP         3441     A     
 MAP                SA1    MAP.XS                                                          MAP         3442     A     
 MAP                RJ     PCB                                                             MAP         3443     A     
 MAP                SA1    REFRPL                                                          MAP         3444     A     
 MAP                SB5    X1                                                              MAP         3445     A     
 MAP                EQ     REF10       CONTINUE                                            MAP         3446     A     
 MAP                                                                                       MAP         3447     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1950    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       REF      SPACE  4,10                                                            MAP         3448     A     
 MAP       REFSAV   BSS    3           STORAGE FOR POINTERS                                MAP         3449     A     
 MAP                                                                                       MAP         3450     A     
 MAP       REFICC   BSS    1           INITIAL CHARACTER COUNT                             MAP         3451     A     
 MAP       REFPF    BSS    1           PRINT FLAG CELL                                     MAP         3452     A     
 MAP       REFRPL   BSS    1           REFERENCES PER LINE                                 MAP         3453     A     
 MAP       REFNOP   NO                                                                     MAP         3454     A     
 MAP       REFPL    PL     X3,REF15                                                        MAP         3455     A     
 MAP       REFMI    MI     X3,REF15                                                        MAP         3456     A     
 MAP       SZE      SPACE  4,10                                                            MAP         3457     A     
 MAP      **        SZE -  OUTPUT THE SIZE OF A VARIABLE.                                  MAP         3458     A     
 MAP      *                                                                                MAP         3459     A     
 MAP      *         THIS ROUTINE ACCESSES T.DIM (IF VAR IS AN ARRAY)                       MAP         3460     A     
 MAP      *         TO GET THE LINEAR LENGTH OF A VARIABLE.                                MAP         3461     A     
 MAP      *                                                                                MAP         3462     A     
 MAP      *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/SZE.                                MAP         3463     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         3464     A     
 MAP      *                                                                                MAP         3465     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         3466     A     
 MAP      *                                                                                MAP         3467     A     
 MAP      *         CALLS  JIF,CDD,PCB.                                                    MAP         3468     A     
 MAP                                                                                       MAP         3469     A     
 MAP       SZE      DIS    MAPPML,---SIZE                                                  MAP         3470     A     
 MAP                                                                                       MAP         3471     A     
 MAP                SA2    T.SYM                                                           MAP         3472     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3473     A     
 MAP                =B6    X7+WB.W     OFFSET TO WORD B                                    MAP         3474     A     
 MAP                SA1    B6+X2       FETCH WORD B                                        MAP         3475     A     
 MAP                BX2    X1                                                              MAP         3476     A     
 MAP                LX4    30                                                              MAP         3477     A     
 MAP                SB5    X4                                                              MAP         3478     A     
 MAP                IFBIT  X2,WB.ARYP,SZE10  IF AN ARRAY                                   MAP         3479          I
          -FC5A391
 MAP                SBIT   X2,WB.ARYP                                                      FC5A391       17     A     
 MAP                MI     X2,SZE10    IF ARRAY                                            FC5A391       18     A     
 MAP                SA1    MAP.XS                                                          MAP         3480     A     
 MAP                SB6    B5                                                              MAP         3481     A     
 MAP                RJ     PCB                                                             MAP         3482     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3483     A     
 MAP                                                                                       MAP         3484     A     
 MAP       SZE10    SA2    T.DIM                                                           MAP         3485     A     
 MAP                XTRCT  WB.PNT,X1,X1      ISOLATE T.DIM OFFSET                          MAP         3486     A     
 MAP                SB6    X2                                                              MAP         3487     A     
 MAP                SA1    B6+X1       FETCH HEADER WORD                                   MAP         3488     A     
 MAP                CLAS=  X5,DH,(VD,AS)                                                   MAP         3489     A     
 MAP                BX2    X5*X1                                                           MAP         3490     A     
 MAP                ZR     X2,SZE40    IF NOT VARIABLE LENGTH OR ASSUMED SIZE              MAP         3491     A     
 MAP                LX4    30                                                              MAP         3492     A     
 MAP                SB6    X4                                                              MAP         3493     A     
 MAP                SA1    =7HADJ-ARY                                                      MAP         3494     A     
 MAP                MX0    0                                                               MAP         3495     A     
 MAP                SB6    7                                                               MAP         3496     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1951    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                RJ     JIF                                                             MAP         3497     A     
 MAP                EQ     MOC.RB                                                          MAP         3498     A     
 MAP                                                                                       MAP         3499     A     
 MAP       SZE40    MX0    -DH.PSL                                                         MAP         3500     A     
 MAP                LX1    -DH.PSP                                                         MAP         3501     A     
 MAP                BX1    -X0*X1      ISOLATE PRODUCT OF SPANS                            MAP         3502     A     
 MAP                BX5    X4                                                              MAP         3503     A     
 MAP                CALL   CDD                                                             MAP         3504     A     
 MAP                BX1    X6                                                              MAP         3505     A     
 MAP                SX0    3                                                               MAP         3506     A     
 MAP                =B6    -1                                                              MAP         3507     A     
 MAP                RJ     JIF                                                             MAP         3508     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3509     A     
 MAP       TO       SPACE  4,10                                                            MAP         3510     A     
 MAP      **        TO -   OUTPUT LINE NUMBER OF LAST STATEMENT OF A LOOP.                 MAP         3511     A     
 MAP      *                                                                                MAP         3512     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/TO.                                    MAP         3513     A     
 MAP      *                (X7) = T.SCR ENTRY.                                             MAP         3514     A     
 MAP      *                                                                                MAP         3515     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         3516     A     
 MAP      *                                                                                MAP         3517     A     
 MAP      *         CALLS  JIF,CDD                                                         MAP         3518     A     
 MAP                                                                                       MAP         3519     A     
 MAP       TO       DIS    MAPPML,---TO                                                    MAP         3520     A     
 MAP                                                                                       MAP         3521     A     
 MAP                SA1    T.SYM                                                           MAP         3522     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3523     A     
 MAP                =B2    X7+WB.W                                                         MAP         3524     A     
 MAP                SA3    X1+B2       X3 = *WB*                                           MAP         3525     A     
 MAP                =A2    A3-WB.W+WC.W      X2 = *WC*                                     MAP         3526     A     
 MAP                XTRCT  WB.TL,X3,X3 ISOLATE SYMORD OF TERMINAL LABEL                    MAP         3527     A     
 MAP                ZR     X3,TO10     IF I/O LOOP                                         MAP         3528     A     
 MAP                LX7    X3,B1                                                           MAP         3529     A     
 MAP                =B2    X1+WC.W                                                         MAP         3530     A     
 MAP                IX3    X3+X7       (X3) = INDEX OF SYMTAB ENTRY OF TERMINAL            MAP         3531     A     
 MAP                ERRNZ  3-Z=SYM                                                         MAP         3532     A     
 MAP                SA2    X3+B2       X2 = *WC*                                           MAP         3533     A     
 MAP       TO10     XTRCT  WC.LINE,X2,X1     ISOLATE LINE NUMBER                           MAP         3534     A     
 MAP                LX4    30                                                              MAP         3535     A     
 MAP                SB5    X4                                                              MAP         3536     A     
 MAP                CALL   CDD                                                             MAP         3537     A     
 MAP                BX1    X6                                                              MAP         3538     A     
 MAP                SX0    3                                                               MAP         3539     A     
 MAP                =B6    -1                                                              MAP         3540     A     
 MAP                RJ     JIF                                                             MAP         3541     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3542     A     
 MAP       TYP      SPACE  4,10                                                            MAP         3543     A     
 MAP      **        TYP -  OUTPUT THE TYPE OF A SYMBOL.                                    MAP         3544     A     
 MAP      *                                                                                MAP         3545     A     
 MAP      *         THIS ROUTINE WILL OUTPUT THE TYPE OF A PROCEDURE,PAR,                  MAP         3546     A     
 MAP      *         OR A VARIABLE, DEPENDING ON WHICH MAP IS BEING PROCESSED.              MAP         3547     A     
 MAP      *                                                                                MAP         3548     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1952    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/TYP.                                MAP         3549     A     
 MAP      *                (X7) = ENTRY OF T.SCR.                                          MAP         3550     A     
 MAP      *                (X5) = CURRENT MST OFFSET.                                      MAP         3551     A     
 MAP      *                                                                                MAP         3552     A     
 MAP      *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                                MAP         3553     A     
 MAP      *                                                                                MAP         3554     A     
 MAP      *         CALLS  JIF,CDD.                                                        MAP         3555     A     
 MAP                                                                                       MAP         3556     A     
 MAP       TYP      DIS    MAPPML,TYPE----------------                                     MAP         3557     A     
 MAP                                                                                       MAP         3558     A     
 MAP                LX4    30                                                              MAP         3559     A     
 MAP                SB5    X4                                                              MAP         3560     A     
 MAP                SA2    T.SYM                                                           MAP         3561     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3562     A     
 MAP                =B6    X7+WB.W     OFFSET TO WORD B                                    MAP         3563     A     
 MAP                SA1    B6+X2       FETCH WORD B                                        MAP         3564     A     
 MAP                BX2    X1                                                              MAP         3565     A     
 MAP                XTRCT  WB.MODE,X2,X2     ISOLATE MODE BITS                             MAP         3566     A     
 MAP                SX7    X5-TPROP                                                        MAP         3567     A     
 MAP                NZ     X7,TYP110   IF NOT PROCEDURE MAP                                MAP         3568     A     
 MAP                IFBIT  X1,-WB.SUBP,TYP105      IF NOT A SUBROUTINE                     MAP         3569          I
          -FC5A360
 MAP                SBIT   X1,WB.FUNP                                                      FC5A360       16     A     
 MAP                MI     X1,TYP105   IF FUNCTION                                         FC5A360       17     A     
 MAP                SA1    MAP.XS                                                          MAP         3570     A     
 MAP                SB6    B5                                                              MAP         3571     A     
 MAP                RJ     PCB                                                             MAP         3572     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3573     A     
 MAP                                                                                       MAP         3574     A     
 MAP       TYP105   IFBIT  X1,-WB.GENFP/WB.SUBP,TYP110    IF NOT GENERIC                   MAP         3575          I
          -FC5A360
 MAP       TYP105   SBIT   X1,WB.GENFP/WB.FUNP                                             FC5A360       18     A     
 MAP                PL     X1,TYP110   IF NOT GENERIC FUNCTION                             FC5A360       19     A     
 MAP                SA1    =7HGENERIC                                                      MAP         3576     A     
 MAP                MX0    0                                                               MAP         3577     A     
 MAP                SB6    7                                                               MAP         3578     A     
 MAP                RJ     JIF                                                             MAP         3579     A     
 MAP                EQ     MOC.RB      RETURN                                              MAP         3580     A     
 MAP                                                                                       MAP         3581     A     
 MAP       TYP110   =X3    X2-M.CHAR                                                       MAP         3582     A     
 MAP                NZ     X3,TYP130   IF NOT TYPE CHARACTER                               MAP         3583     A     
 MAP                =A4    A1-WB.W+WC.W   FETCH WORD C                                     MAP         3584     A     
 MAP                BX3    X4                                                              MAP         3585     A     
 MAP                IFBIT  X3,WC.CTYPP,TYP120      IF VARIABLE LENGTH CHARACTER            MAP         3586          I
          -FC5A360
 MAP                SBIT   X3,WC.CTYPP                                                     FC5A360       20     A     
 MAP                MI     X3,TYP120   IF PASSED LENGTH CHARACTER                          FC5A360       21     A     
 MAP                MX0    -WC.CLENL                                                       MAP         3587     A     
 MAP                BX1    X4                                                              MAP         3588     A     
 MAP                LX1    -WC.CLENP                                                       MAP         3589     A     
 MAP                BX1    -X0*X1      ISOLATE CHARACTER LENGTH                            MAP         3590     A     
 MAP                CALL   CDD         CONVERT TO DPC                                      MAP         3591     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1953    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    =5LCHAR*                                                        MAP         3592     A     
 MAP                LX4    -5*CHAR                                                         MAP         3593     A     
 MAP                MX0    -5*CHAR                                                         MAP         3594     A     
 MAP                BX4    -X0*X4       ERASE UPPER BLANKS                                 MAP         3595     A     
 MAP                BX1    X1+X4       CONCATENATE THE LENGTH                              MAP         3596     A     
 MAP                EQ     TYP150                                                          MAP         3597     A     
 MAP                                                                                       MAP         3598     A     
 MAP       TYP120   SA1    =8HCHAR*(*)                                                     MAP         3599     A     
 MAP                EQ     TYP150                                                          MAP         3600     A     
 MAP                                                                                       MAP         3601     A     
 MAP       TYP130   SA1    X2+TYPM     FETCH PROPER TYPE MESSAGE                           MAP         3602     A     
 MAP                                                                                       MAP         3603     A     
 MAP       TYP150   MX0    0                                                               MAP         3604     A     
 MAP                =B6    -1                                                              MAP         3605     A     
 MAP                RJ     JIF                                                             MAP         3606     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3607     A     
 MAP       TYP      SPACE  4,10                                                            MAP         3608     A     
 MAP       TYPM     BSS    0                                                               MAP         3609     A     
 MAP                LOC    0                                                               MAP         3610     A     
 MAP                DATA   7HBOOLEAN                                                       MAP         3611     A     
 MAP                DATA   7HLOGICAL                                                       MAP         3612     A     
 MAP                DATA   7HINTEGER                                                       MAP         3613     A     
 MAP                DATA   4HREAL                                                          MAP         3614     A     
 MAP                DATA   6HDOUBLE                                                        MAP         3615     A     
 MAP                DATA   7HCOMPLEX                                                       MAP         3616     A     
 MAP                LOC    *O                                                              MAP         3617     A     
 MAP       VAL      SPACE  4,10                                                            MAP         3618     A     
 MAP      **        VAL -  OUTPUT THE VALUE OF A SYMBOLIC CONSTANT.                        MAP         3619     A     
 MAP      *                                                                                MAP         3620     A     
 MAP      *         ENTRY  (X4) = 30/FIELD WIDTH,30/VAL.                                   MAP         3621     A     
 MAP      *                (X7) = T.SCR ENTRY.                                             MAP         3622     A     
 MAP      *                                                                                MAP         3623     A     
 MAP      *         USES   ALL EXCEPT A7.                                                  MAP         3624     A     
 MAP      *                                                                                MAP         3625     A     
 MAP      *         CALLS  PCB,WOD,CDD,JIF.                                                MAP         3626     A     
 MAP                                                                                       MAP         3627     A     
 MAP       VAL      DIS    MAPPML,------------------VALUE                                  MAP         3628     A     
 MAP                                                                                       MAP         3629     A     
 MAP                LX4    30                                                              MAP         3630     A     
 MAP                SX5    X4                                                              MAP         3631     A     
 MAP                SA1    T.SYM                                                           MAP         3632     A     
 MAP                XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                           MAP         3633     A     
 MAP                =B2    X7+WB.W     OFFSET TO WORD B                                    MAP         3634     A     
 MAP                SA1    X1+B2       FETCH WORD B                                        MAP         3635     A     
 MAP                =A2    A1-WB.W+WC.W      FETCH WORD C                                  MAP         3636     A     
 MAP                BX3    X2                                                              MAP         3637     A     
 MAP                XTRCT  WC.RA,X2,X2 ISOLATE OFFSET INTO T.CHAR OR T.CON                 MAP         3638     A     
 MAP                SB4    X2          KEEP EXTRA COPY                                     MAP         3639     A     
 MAP                XTRCT  WB.MODE,X1,X1     ISOLATE MODE BITS                             MAP         3640     A     
 MAP                SX7    X1-M.CHAR                                                       MAP         3641     A     
 MAP                NZ     X7,VAL20    IF NOT TYPE CHARACTER                               MAP         3642     A     
 MAP                XTRCT  WC.CLEN,X3,X3     ISOLATE CHARACTER LENGTH                      MAP         3643     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1954    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SB7    X3+2        ADD SPACE USED BY THE QUOTES                        MAP         3644     A     
 MAP                SB2    X5                                                              MAP         3645     A     
 MAP                SX7    B2-B7                                                           MAP         3646     A     
 MAP                SA1    T.CON                                                           MAP         3647     A     
 MAP                SB5    X1                                                              MAP         3648     A     
 MAP                PL     X7,VAL10    IF IT FITS                                          MAP         3649     A     
 MAP                =B6    1                                                               MAP         3650     A     
 MAP                SA1    =1H'                                                            MAP         3651     A     
 MAP                RJ     PCB                                                             MAP         3652     A     
 MAP                SB6    X5-4                                                            MAP         3653     A     
 MAP                SA1    B5+B4                                                           MAP         3654     A     
 MAP                RJ     PCB                                                             MAP         3655     A     
 MAP                SB6    3                                                               MAP         3656     A     
 MAP                SA1    =3H...                                                          MAP         3657     A     
 MAP                RJ     PCB                                                             MAP         3658     A     
 MAP                EQ     MOC.RB                                                          MAP         3659     A     
 MAP                                                                                       MAP         3660     A     
 MAP       VAL10    SB6    X7                                                              MAP         3661     A     
 MAP                SA1    MAP.XS                                                          MAP         3662     A     
 MAP                RJ     PCB                                                             MAP         3663     A     
 MAP                =B6    1                                                               MAP         3664     A     
 MAP                SA1    =1H'                                                            MAP         3665     A     
 MAP                RJ     PCB                                                             MAP         3666     A     
 MAP                SB6    B7-2                                                            MAP         3667     A     
 MAP                SA1    B5+B4                                                           MAP         3668     A     
 MAP                RJ     PCB                                                             MAP         3669     A     
 MAP                SA1    =1H'                                                            MAP         3670     A     
 MAP                =B6    1                                                               MAP         3671     A     
 MAP                RJ     PCB                                                             MAP         3672     A     
 MAP                EQ     MOC.RB                                                          MAP         3673     A     
 MAP                                                                                       MAP         3674     A     
 MAP       VAL20    SX7    X1-M.LOG                                                        MAP         3675     A     
 MAP                NZ     X7,VAL40    IF NOT TYPE LOGICAL                                 MAP         3676     A     
 MAP                SA1    T.CON                                                           MAP         3677     A     
 MAP                SA1    X1+B4       FETCH LOGICAL CONSTANT                              MAP         3678     A     
 MAP                PL     X1,VAL30    IF VALUE FALSE                                      MAP         3679     A     
 MAP                SA1    =6H.TRUE.                                                       MAP         3680     A     
 MAP                =X0    1                                                               MAP         3681     A     
 MAP                SB6    6                                                               MAP         3682     A     
 MAP                SB5    X5                                                              MAP         3683     A     
 MAP                RJ     JIF                                                             MAP         3684     A     
 MAP                EQ     MOC.RB                                                          MAP         3685     A     
 MAP                                                                                       MAP         3686     A     
 MAP       VAL30    SA1    =7H.FALSE.                                                      MAP         3687     A     
 MAP                =X0    1                                                               MAP         3688     A     
 MAP                SB6    7                                                               MAP         3689     A     
 MAP                SB5    X5                                                              MAP         3690     A     
 MAP                RJ     JIF                                                             MAP         3691     A     
 MAP                EQ     MOC.RB                                                          MAP         3692     A     
 MAP                                                                                       MAP         3693     A     
 MAP       VAL40    SX7    X1-M.INT                                                        MAP         3694     A     
 MAP                NZ     X7,VAL60    IF NOT INTEGER                                      MAP         3695     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1955    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    T.CON                                                           MAP         3696     A     
 MAP                SA1    X1+B4       FETCH INTEGER CONSTANT                              MAP         3697     A     
 MAP                BX3    X1          PRESERVE ORIGINAL NUMBER                            FC5A189        6     A     
 MAP                =B7    0                                                               MAP         3698     A     
 MAP                PL     X1,VAL45    IF NO NEED TO COMPLEMENT IT                         MAP         3699     A     
 MAP                =B7    1                                                               MAP         3700     A     
 MAP                BX1    -X1                                                             MAP         3701     A     
 MAP                                                                                       MAP         3702     A     
 MAP       VAL45    BX2    X1                                                              MAP         3703          I
          -FC5A189
 MAP                AX2    48                                                              MAP         3704          I
          -FC5A189
 MAP                SB5    X5          SAVE  THE FIELD WIDTH                               MAP         3705          I
          -FC5A189
 MAP                ZR     X2,VAL50    IF LT 2**48                                         MAP         3706          I
          -FC5A189
 MAP       VAL45    SA2    =9999999999                                                     FC5A189        7     A     
 MAP                IX2    X2-X1                                                           FC5A189        8     A     
 MAP                SB5    X5          SAVE THE FIELD WIDTH                                FC5A189        9     A     
 MAP                PL     X2,VAL50    IF .LT. 9999999999                                  FC5A189       10     A     
 MAP                BX1    X3          X1 = ORIGINAL NUMBER                                FC5A189       11     A     
 MAP                CALL   WOD                                                             MAP         3707     A     
 MAP                SA6    VALA                                                            MAP         3708     A     
 MAP                =A7    A6+1                                                            MAP         3709     A     
 MAP                =B6    2                                                               MAP         3710     A     
 MAP                SA1    =2HO"                                                           MAP         3711     A     
 MAP                RJ     PCB                                                             MAP         3712     A     
 MAP                =B6    B5-3                                                            MAP         3713     A     
 MAP                SA1    VALA                                                            MAP         3714     A     
 MAP                RJ     PCB                                                             MAP         3715     A     
 MAP                =B6    1                                                               MAP         3716     A     
 MAP                SA1    =1H"                                                            MAP         3717     A     
 MAP                RJ     PCB                                                             MAP         3718     A     
 MAP                EQ     MOC.RB                                                          MAP         3719     A     
 MAP                                                                                       MAP         3720     A     
 MAP       VAL50    CALL   CDD                                                             MAP         3721     A     
 MAP                BX1    X6                                                              MAP         3722     A     
 MAP                =B4    1                                                               MAP         3723     A     
 MAP                RJ     CCBB        DETERMINE THE LENGTH                                MAP         3724     A     
 MAP                SX5    B6                                                              MAP         3725     A     
 MAP                BC     X2,X5       CONVERT TO BIT COUNT                                MAP         3726     A     
 MAP                SB4    X2-10*CHAR                                                      MAP         3727     A     
 MAP                AX5    B4,X1       LEFT JUSTIFY CONVERSION                             MAP         3728     A     
 MAP                SB4    B6          PRESERVE ITS LENGTH                                 MAP         3729     A     
 MAP                SB6    B6+B7       ADD LENGTH OF -                                     MAP         3730     A     
 MAP                SB6    B5-B6       = NUMBER OF BLANKS TO OUTPUT                        MAP         3731     A     
 MAP                IFEQ   TEST,ON,1                                                       MAP         3732     A     
 MAP                MI     B6,"BLOWUP" IF BAD B5                                           MAP         3733     A     
 MAP                SA1    MAP.XS                                                          MAP         3734     A     
 MAP                RJ     PCB                                                             MAP         3735     A     
 MAP                ZR     B7,VAL55    IF NO NEED TO PRINT                                 MAP         3736     A     
 MAP                =B6    1                                                               MAP         3737     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1956    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    =1H-                                                            MAP         3738     A     
 MAP                RJ     PCB                                                             MAP         3739     A     
 MAP                                                                                       MAP         3740     A     
 MAP       VAL55    SB6    B4          RESTORE INTEGER LENGTH                              MAP         3741     A     
 MAP                BX1    X5                                                              MAP         3742     A     
 MAP                RJ     PCB                                                             MAP         3743     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3744     A     
 MAP                                                                                       MAP         3745     A     
 MAP       VAL60    SA1    T.CON                                                           MAP         3746     A     
 MAP                SA1    X1+B4       FETCH THE CONSTANT                                  MAP         3747     A     
 MAP                SB4    X5          SAVE THE FIELD WIDTH                                MAP         3748     A     
 MAP                CALL   WOD                                                             MAP         3749     A     
 MAP                SA6    VALA                                                            MAP         3750     A     
 MAP                =A7    A6+1                                                            MAP         3751     A     
 MAP                =B6    2                                                               MAP         3752     A     
 MAP                SA1    =2HO"                                                           MAP         3753     A     
 MAP                RJ     PCB                                                             MAP         3754     A     
 MAP                =B6    B4-3                                                            MAP         3755     A     
 MAP                SA1    VALA                                                            MAP         3756     A     
 MAP                RJ     PCB                                                             MAP         3757     A     
 MAP                =B6    1                                                               MAP         3758     A     
 MAP                SA1    =1H"                                                            MAP         3759     A     
 MAP                RJ     PCB                                                             MAP         3760     A     
 MAP                EQ     MOC.RB                                                          MAP         3761     A     
 MAP                                                                                       MAP         3762     A     
 MAP                                                                                       MAP         3763     A     
 MAP       VALA     BSS    2           STORAGE FOR 20 OCTAL DIGITS                         MAP         3764     A     
 MAP       XA       SPACE  4,10                                                            MAP         3765     A     
 MAP      **        XA -   OUTPUT VARIABLE NUMBER OF BLANKS.                               MAP         3766     A     
 MAP      *                                                                                MAP         3767     A     
 MAP      *         IN *HEADER* MODE THE DATA IN THE FIRST FEW WORDS                       MAP         3768     A     
 MAP      *         IS USED TO ACCOMPLISH SPACING BETWEEN FIELD HEADERS.                   MAP         3769     A     
 MAP      *         IN *PROCESSING* MODE IT WILL OUTPUT A GIVEN NUMBER                     MAP         3770     A     
 MAP      *         OF BLANKS TO TAKE CARE OF SPACING BETWEEN FIELD OUTPUTS.               MAP         3771     A     
 MAP      *                                                                                MAP         3772     A     
 MAP      *         ENTRY  (X4) = 30/# OF BLANKS,30/XA.                                    MAP         3773     A     
 MAP      *                                                                                MAP         3774     A     
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6,7  B - 2,3,6.                    MAP         3775     A     
 MAP      *                                                                                MAP         3776     A     
 MAP      *         CALLS  PCB.                                                            MAP         3777     A     
 MAP                                                                                       MAP         3778     A     
 MAP       XA       DIS    MAPPML,------------------------------                           MAP         3779     A     
 MAP                                                                                       MAP         3780     A     
 MAP                SA1    MAP.XS                                                          MAP         3781     A     
 MAP                LX4    30                                                              MAP         3782     A     
 MAP                SB6    X4                                                              MAP         3783     A     
 MAP                RJ     PCB                                                             MAP         3784     A     
 MAP                EQ     MOC.RB      RETURN TO CONTROLLER                                MAP         3785     A     
 MAP       XB       SPACE  4,10                                                            MAP         3786     A     
 MAP      **        XB -   OUTPUT VARIABLE NUMBER OF BLANKS.                               MAP         3787     A     
 MAP      *                                                                                MAP         3788     A     
 MAP      *         FUNCTIONS IDENTICALLY TO XA EXCEPT THAT IN *HEADER*                    MAP         3789     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1957    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         MODE THE DATA IS USED TO SPACE BETWEEN THE 1ST COLUMN                  MAP         3790     A     
 MAP      *         OF A PAGE AND THE 1ST FIELD HEADER.                                    MAP         3791     A     
 MAP      *                                                                                MAP         3792     A     
 MAP      *         ENTRY  (X4) = 30/# OF BLANKS,30/XB.                                    MAP         3793     A     
 MAP      *                                                                                MAP         3794     A     
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6,7  B - 2,3,6.                    MAP         3795     A     
 MAP      *                                                                                MAP         3796     A     
 MAP      *         CALLS  PCB.                                                            MAP         3797     A     
 MAP                                                                                       MAP         3798     A     
 MAP       XB       DIS    MAPPML,  -                                                      MAP         3799     A     
 MAP                                                                                       MAP         3800     A     
 MAP                SA1    MAP.XS                                                          MAP         3801     A     
 MAP                LX4    30                                                              MAP         3802     A     
 MAP                SB6    X4                                                              MAP         3803     A     
 MAP                RJ     PCB                                                             MAP         3804     A     
 MAP                EQ     MOC.RB                                                          MAP         3805     A     
 MAP       XC       SPACE  4,10                                                            MAP         3806     A     
 MAP      **        XC -   OUTPUT VARIABLE NUMBER OF BLANKS.                               MAP         3807     A     
 MAP      *                                                                                MAP         3808     A     
 MAP      *         FUNCTIONS IDENTICALLY TO XA EXCEPT THAT IN *HEADER*                    MAP         3809     A     
 MAP      *         MODE THE DATA IS USED TO ACCOMPLISH SPACING BETWEEN                    MAP         3810     A     
 MAP      *         REPEATED HEADERS. (I.E. CASES WHERE A MAP IS WRITTEN                   MAP         3811     A     
 MAP      *         ACROSS THE PAGE IN MORE THAN ONE BLOCK)                                MAP         3812     A     
 MAP      *                                                                                MAP         3813     A     
 MAP      *         ENTRY  (X4) = 30/# BLANKS,30/XC.                                       MAP         3814     A     
 MAP      *                                                                                MAP         3815     A     
 MAP      *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6,7  B - 2,3,6.                    MAP         3816     A     
 MAP      *                                                                                MAP         3817     A     
 MAP      *         CALLS  PCB.                                                            MAP         3818     A     
 MAP                                                                                       MAP         3819     A     
 MAP       XC       DIS    MAPPML,                                                         MAP         3820     A     
 MAP                                                                                       MAP         3821     A     
 MAP                SA1    MAP.XS                                                          MAP         3822     A     
 MAP                LX4    30                                                              MAP         3823     A     
 MAP                SB6    X4                                                              MAP         3824     A     
 MAP                RJ     PCB                                                             MAP         3825     A     
 MAP                EQ     MOC.RB                                                          MAP         3826     A     
 MAP                SPACE  4,10                                                            MAP         3827     A     
 MAP                LIST   D                                                               MAP         3828     A     
 MAP                ENTRY  FIN.MAP                                                         MAP         3829     A     
 MAP       FIN.MAP  END                END OF (1,0) OVERLAY WHEN NO OLIST                  MAP         3830     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - MAP     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          MAP                       3830      3127
          FC5A108                      4         3
          FC5A114                     31         7
          FC5A107                      4         4
          FC5A109                     23        16
          FC5A158A                     1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1958    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          FC5A185                    657       644
          FC5A187                      2         2
          FC5A188                      1         1
          FC5A189                      6         6
          FC5A191                      1         1
          FC5A203                     11         5
          FC5A226                      1         1
          FC5A229                      2         2
          FC5A273                      1         1
          FC50297                     28        28
          FC50353                      1         1
          FC50451                      1         1
          FC5A360                     14        14
          FC50326                     17        17
          FC50488                      2         2
          FC50514                     12        12
          FC50562                     12        12
          FC5A391                     14        14
          FC50464                      9         9
          FC50628                     10        10
          FC5A416                      2         2
          FC50834                      5         5
          FC50913                     11        11
          FC51206                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *DECK     LIST                                                                   LIST           1     A     
 LIST               IDENT  LIST                                                            LIST           2     A     
 LIST      LIST     SECT   (OBJECT CODE LISTING ROUTINES.)                                 LIST           3     A     
 LIST      LIST     SPACE  4                                                               LIST           4     A     
 LIST     *         IN ALLOC                                                               LIST           5     A     
 LIST               EXT    ALC                                                             LIST           6     A     
 LIST                                                                                      LIST           7     A     
 LIST     *         IN FAS                                                                 LIST           8     A     
 LIST               EXT    APLA,FAPSUD,OL=BIN,OL=LBF,OL=PB,OL=RL,ORGSUB,RADC               LIST           9     A     
 LIST               EXT    TAGSUB0                                                         LIST          10     A     
 LIST                                                                                      LIST          11     A     
 LIST     *         IN FTN                                                                 LIST          12     A     
 LIST               EXT    CO.OPT,CO.PW,CP.PS                                              LIST          13          I
          -FC5A107
 LIST               EXT    CO.OPT,CO.PS,CO.PW                                              FC5A107       22     A     
 LIST                                                                                      LIST          14     A     
 LIST     *         IN PUC                                                                 LIST          15     A     
 LIST               EXT    F.LBT,IDENT,LINEBUF,MOD,N.TABLE,O.STITL,PIA,PIK=BL              LIST          16          I
          -FC5A132
 LIST               EXT    PIK=I,PIK=J,PIK=LCM,PIK=PI,PIK=PS,PIK=TAG,PIK=XJP               LIST          17          I
          -FC5A132
 LIST               EXT    F.LBT,IDENT,LINEBUF,MOD,N.TABLE,O.STITL,PIA,PIK=LCM             FC5A132      150     A     
 LIST               EXT    PIK=PI,PIK=PS,PIK=XJP                                           FC5A132      151     A     
 LIST               EXT    SUM.LBT,S=CL,S=CON,S=LENP,S=LA,S=RD,T=API,T=APL,T=CLW           LIST          18     A     
 LIST               EXT    T=DIM,T=DATS,T=FMT,T=IOA,T=LA,T=NLST,T=SCR,T.API,T.APL          LIST          19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1959    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               EXT    T.CAC,T.CLW,T.CON,T.DIM,T.FMT,T.PTXTR,T.SCR,T.SYM,WOF           LIST          20     A     
 LIST               EXT    T.CLWB,T.FPI,T.SUB                                              FC5A219       19     A     
 LIST                                                                                      LIST          21     A     
 LIST     *         IN UTILITY                                                             LIST          22     A     
 LIST               EXT    CDD,COD,DMT=,MVE=,SFN,SST,WOD,ZTB                               LIST          23     A     
 LIST      PS.      EJECT                                                                  FC5A182        4     A     
 LIST     **        PS. -  SHIFTED PROGRAM TAG FORMAT FOR  AP  ENTRIES.                    LIST          24     A     
 LIST     *                                                                                LIST          25     A     
 LIST     *         THIS FORMAT IS USED IN ROUTINE *WAP* TO SORT OUT                       LIST          26     A     
 LIST     *         AP-LIST INDEX TABLE.                                                   LIST          27     A     
 LIST                                                                                      LIST          28     A     
 LIST                                                                                      LIST          29     A     
 LIST               DESCRIBE  PS.,60                                                       LIST          30     A     
 LIST      RA       DEFINE 18          RELATIVE ADDRESS                                    LIST          31     A     
 LIST      ORD      DEFINE 18          ORDINAL                                             LIST          32     A     
 LIST               DEFINE 24                                                              LIST          33     A     
 LIST                                                                                      LIST          34     A     
 LIST     *         CELLS                                                                  LIST          35     A     
 LIST                                                                                      LIST          36     A     
 LIST      SAVFP    BSS    1           F.P. INDICATOR                                      LIST          37     A     
 LIST                                                                                      FC5A132      152     A     
 LIST     *         INSTRUCTION SKELETON TABLE (PARTIAL LIST)                              FC5A132      153     A     
 LIST                                                                                      FC5A132      154     A     
 LIST      PIK=TAG  BSSZ   4           TEMP HOLDING (DPC) TAG AND OFFSET.                  FC5A132      155     A     
 LIST                                                                                      FC5A132      156     A     
 LIST      PIK=BL   CON    1L +3R      THE WORD BEFORE *PIK=I* MUST BE NEGATIVE            FC5A132      157     A     
 LIST      PIK=I    CON    0           *I* REGISTER OF INSTRUCTION                         FC5A132      158     A     
 LIST      PIK=J    CON    0           *J* REGISTER OF INSTRUCTION                         FC5A132      159     A     
 LIST               DATA   0           *K* REGISTER OF INSTRUCTION                         FC5A132      160     A     
 LIST               DATA   -1          FLAG TO INDICATE 18-BIT *K* PORTION                 FC5A132      161     A     
 LIST               DATA   1R+         PLUS                                                FC5A132      162     A     
 LIST               DATA   1R-         MINUS                                               FC5A132      163     A     
 LIST               DATA   1R*         STAR                                                FC5A132      164     A     
 LIST               DATA   1R/         SLASH                                               FC5A132      165     A     
 LIST               DATA   1R,         COMMA                                               FC5A132      166     A     
 LIST               DATA   1RA                                                             FC5A132      167     A     
 LIST               DATA   1RB                                                             FC5A132      168     A     
 LIST               DATA   -0          FLAG TO INDICATE CONDITIONAL *B* REGISTER           FC5A132      169     A     
 LIST               DATA   1RX                                                             FC5A132      170     A     
 LIST               DATA   1R          BLANK                                               FC5A132      171     A     
 LIST      KTY      SPACE  4,10                                                            FC5A281       11     A     
 LIST     **        KTY -  DETERMINE LENGTH OF CONSTANT TO CONVERT                         FC5A281       12     A     
 LIST     *                                                                                FC5A281       13     A     
 LIST     *         KTY    LENGTH      LENGTH OF CONSTANT (BITS)                           FC5A281       14     A     
 LIST     *         KTY                DEFAULT IS 18 BITS                                  FC5A281       15     A     
 LIST                                                                                      FC5A281       16     A     
 LIST                                                                                      FC5A281       17     A     
 LIST      KTY      MACRO  LENGTH                                                          FC5A281       18     A     
 LIST      A        MICRO 1,, 18                                                           FC5A281       19     A     
 LIST               IFC    NE,/LENGTH//,1                                                  FC5A281       20     A     
 LIST      A        MICRO 1,, LENGTH                                                       FC5A281       21     A     
 LIST               SB2    60-"A"                                                          FC5A281       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1960    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               RJ     KTY                                                             FC5A281       23     A     
 LIST      KTY      ENDM                                                                   FC5A281       24     A     
 LIST               TITLE  PIK - OBJECT CODE LISTING MAIN ROUTINE                          LIST          38     A     
 LIST      PIK      SPACE  0                                                               LIST          39     A     
 LIST     **        PIK -  PRINT INSTRUCTION KONVERSION.                                   LIST          40     A     
 LIST     *                                                                                LIST          41     A     
 LIST     *         CALLED BY FAS/POL IF OBJECT LISTING IS ENABLED.                        LIST          42     A     
 LIST     *         POL IS CALLED BY INSTRUCTION CONSTRUCTORS (NORMAL AND PSEUDO)          LIST          43     A     
 LIST     *         IN FAS, RAD, AND REL TO CONVERT AND PRINT EACH OBJECT                  LIST          44     A     
 LIST     *         INSTRUCTION AS THEY ARE PROCESSED.                                     LIST          45     A     
 LIST     *                                                                                LIST          46     A     
 LIST     *         ENTRY  RADC = + LONG,0 SHORT, - PSEUDO                                 LIST          47     A     
 LIST     *                (X5) = ADJUSTED INSTRUCTION IN (PB.) FORMAT.                    LIST          48     A     
 LIST     *                (OL=BIN) = BINARY.                                              LIST          49     A     
 LIST     *                (OL=RL) = RELOCATION LISTING INDICATOR (SEE PLL).               LIST          50     A     
 LIST     *                (LINEBUF+0) = (ORIGIN) TO BE LISTED.                            LIST          51     A     
 LIST     *                            .MI. IF ALREADY FORMATTED.                          LIST          52     A     
 LIST     *                                                                                LIST          53     A     
 LIST     *         EXIT   (OL=PB) = INSTRUCTION                                           LIST          54     A     
 LIST                                                                                      LIST          55     A     
 LIST                                                                                      LIST          56     A     
 LIST      PIK      SUBR   =           ENTRY/EXIT...                                       LIST          57     A     
 LIST               LX6    X5                                                              LIST          58     A     
 LIST               SA2    RADC                                                            LIST          59     A     
 LIST               BX7    0                                                               LIST          60     A     
 LIST               LX1    X5                                                              LIST          61     A     
 LIST               SA7    SAVFP       (SAVFP) = 0                                         LIST          62     A     
 LIST               SA6    OL=PB                                                           LIST          63     A     
 LIST               SA7    PIK=TAG+1   (PIK=TAG+1) = 0                                     LIST          64     A     
 LIST               SA7    A7+B1       (PIK=TAG+2) = 0                                     LIST          65     A     
 LIST               PL     X2,PIK20    IF NOT PSEUDO                                       LIST          66     A     
 LIST               BX2    -X2         (X2) = PSEUDO NUMBER                                LIST          67     A     
 LIST               SA3    X2+FAPSUD                                                       LIST          68     A     
 LIST               SB7    X3                                                              LIST          69     A     
 LIST               JP     B7          JUMP TO LISTING PROCESSOR                           LIST          70     A     
 LIST                                                                                      LIST          71     A     
 LIST                                                                                      LIST          72     A     
 LIST     **        PRINT NON-PSEUDO INSTRUCTIONS.                                         LIST          73     A     
 LIST     *         BREAK OUT THE *I*, *J*, AND *K* PORTIONS OF INSTRUCTION.               LIST          74     A     
 LIST                                                                                      LIST          75     A     
 LIST                                                                                      LIST          76     A     
 LIST      PIK20    MX0    -PB.H2L                                                         LIST          77     A     
 LIST               BX6    X0*X5       CLEAR PB.H2 FIELD                                   LIST          78     A     
 LIST               LX6    PB.GHL                                                          LIST          79     A     
 LIST               SB5    X6          *GH*                                                LIST          80     A     
 LIST               SX0    7                                                               LIST          81     A     
 LIST     .1        ECHO   ,P1=(I,J,K),REG=(3,6,6),LOC=(PIK=I,,),SC=(9,3,3)                LIST          82     A     
 LIST               LX1    SC                                                              LIST          83     A     
 LIST               BX.REG X0*X1                                                           LIST          84     A     
 LIST               SX6    X.REG+1R0                                                       LIST          85     A     
 LIST               SA6    LOC  A6+B1  *P1*                                                LIST          86     A     
 LIST     .1        ENDD                                                                   LIST          87     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1961    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST                                                                                      LIST          88     A     
 LIST               SA3    B5+PIK=PS   FETCH INST SKELETON                                 LIST          89     A     
 LIST               PL     X3,PIK60    IF SHORT INSTRUCTION (15 BIT)                       LIST          90     A     
 LIST                                                                                      LIST          91     A     
 LIST     *         PRE-PROCESS AND CONVERT TAGS.                                          LIST          92     A     
 LIST                                                                                      LIST          93     A     
 LIST               MX4    -PB.TAGL                                                        LIST          94     A     
 LIST               LX1    PB.TAGL-3                                                       LIST          95     A     
 LIST               BX3    -X4*X1      ISOLATE TAG                                         LIST          96     A     
 LIST               =B3    B5                                                              LIST          97     A     
 LIST                                                                                      FC50629        6     A     
 LIST      PIK40    BSS    0                                                               LIST          98     A     
 LIST               RJ     KTX         CONVERT TAG TO EXTERNAL FORM                        LIST          99     A     
 LIST               SA6    PIK=TAG                                                         LIST         100     A     
 LIST               MX4    -PB.BIASL                                                       LIST         101     A     
 LIST               BX1    X5                                                              LIST         102     A     
 LIST               LX1    -PB.BIASP                                                       LIST         103     A     
 LIST               MX0    -PB.H2L                                                         LIST         104     A     
 LIST               BX3    -X4*X1                                                          LIST         105     A     
 LIST               LX1    PB.BIASP-PB.H2P                                                 LIST         106     A     
 LIST               BX4    -X0*X1      H2I = H2[INSTRUCTION]                               LIST         107     A     
 LIST               ZR     X3,PIK55    IF NO OFFSET                                        LIST         108     A     
 LIST               RJ     KTY         CONVERT OFFSET                                      LIST         109          I
          -FC5A281
 LIST               KTY                CONVERT OFFSET                                      FC5A281       25     A     
 LIST               MI     X3,PIK50    IF NEGATIVE OFFSET                                  LIST         110     A     
 LIST               SX1    1R+                                                             LIST         111     A     
 LIST               NE     B3,B1,PIK45 IF NOT RJ WITH TRACE                                LIST         112     A     
 LIST               SX1    1R,                                                             LIST         113     A     
 LIST               SA3    SAVFP                                                           LIST         114     A     
 LIST               SA2    =2L,S                                                           LIST         115     A     
 LIST               ZR     X3,PIK45    IF NOT F.P.                                         LIST         116     A     
 LIST               BX7    X2                                                              LIST         117     A     
 LIST               SA7    PIK=TAG+2   ADD *,S* FOR SUB                                    LIST         118     A     
 LIST                                                                                      FC50629        7     A     
 LIST      PIK45    BX6    X6+X1                                                           LIST         119     A     
 LIST               LX6    -CHAR                                                           LIST         120     A     
 LIST                                                                                      FC50629        8     A     
 LIST      PIK50    SA6    PIK=TAG+1                                                       LIST         121     A     
 LIST                                                                                      LIST         122     A     
 LIST     *         LIST ADDRESS DECREMENT FROM H2[INSTRUCTION] FILED.                     LIST         123     A     
 LIST                                                                                      LIST         124     A     
 LIST      PIK55    SX6    B3-3                                                            LIST         125     A     
 LIST               ZR     X4,PIK60    IF NO ADDRESS DECREMENT                             LIST         126     A     
 LIST               ZR     X6,PIK60    IF INDEXED JUMP INSTRUCTION                         LIST         127     A     
 LIST               BX3    X4                                                              LIST         128     A     
 LIST               RJ     KTX         CONVERT TAG                                         LIST         129     A     
 LIST               SA3    =1L-                                                            LIST         130     A     
 LIST               LX6    -CHAR                                                           LIST         131     A     
 LIST               BX6    X6+X3                                                           LIST         132     A     
 LIST               SA6    A6+B1                                                           LIST         133     A     
 LIST                                                                                      LIST         134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1962    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *         DO ACTUAL INSTRUCTION SKELETON CONVERSION.                             LIST         135     A     
 LIST                                                                                      LIST         136     A     
 LIST      PIK60    SA1    =1H                                                             LIST         137     A     
 LIST               SX4    B5-3                                                            LIST         138     A     
 LIST               BX6    X1                                                              LIST         139     A     
 LIST               MX2    -2*CHAR                                                         LIST         140     A     
 LIST               SA1    OL=LBF                                                          LIST         141     A     
 LIST               SA6    X1                                                              LIST         142     A     
 LIST               SA3    B5+PIK=PS   SKELETON                                            LIST         143     A     
 LIST               SA1    PIK=I                                                           LIST         144     A     
 LIST               NZ     X4,PIK70    IF NOT X-JUMP                                       LIST         145     A     
 LIST               SA3    X1-1R0+PIK=XJP  X-JUMP SKELETON                                 LIST         146     A     
 LIST               EQ     PIK75                                                           LIST         147     A     
 LIST                                                                                      LIST         148     A     
 LIST      PIK70    =X4    B5-01B                                                          LIST         149     A     
 LIST               NZ     X4,PIK75    IF NOT LCM LOAD/STORE                               LIST         150     A     
 LIST               SA3    =XPIK=LCM+X1-1R4  LCM LOAD OR STORE SKEL                        LIST         151     A     
 LIST                                                                                      LIST         152     A     
 LIST      PIK75    BX4    -X2*X3                                                          LIST         153     A     
 LIST               LX3    59-58                                                           LIST         154     A     
 LIST               PL     X3,PIK80    IF NO B-JUMP                                        LIST         155     A     
 LIST               SA1    PIK=J                                                           LIST         156     A     
 LIST               SX1    X1-1R0                                                          LIST         157     A     
 LIST               NZ     X1,PIK80    IF *BJ* .NE. *B0*                                   LIST         158     A     
 LIST               SA4    B5-4+PIK=XJP                                                    LIST         159     A     
 LIST               BX4    -X2*X4                                                          LIST         160     A     
 LIST                                                                                      FC50629        9     A     
 LIST      PIK80    LX4    4*CHAR                                                          LIST         161     A     
 LIST               SA2    PIK=BL                                                          LIST         162     A     
 LIST               LX3    4+2                                                             LIST         163     A     
 LIST               IX6    X4+X2                                                           LIST         164     A     
 LIST               MX0    -4                                                              LIST         165     A     
 LIST               BX2    -X0*X3      ISOLATE FIRST DESCRIPTOR                            LIST         166     A     
 LIST               LX3    4                                                               LIST         167     A     
 LIST               SA2    PIK=I-1+X2                                                      LIST         168     A     
 LIST               LX2    4*CHAR                                                          LIST         169     A     
 LIST               SB2    4*CHAR                                                          LIST         170     A     
 LIST                                                                                      FC50629       10     A     
 LIST      PIK90    LX6    6                                                               LIST         171     A     
 LIST               SB2    B2-CHAR                                                         LIST         172     A     
 LIST               IX6    X6+X2                                                           LIST         173     A     
 LIST               NZ     B2,PIK100   IF ASSEMBLY NOT FULL                                LIST         174     A     
 LIST               SA6    A6+B1                                                           LIST         175     A     
 LIST               SB2    10*CHAR                                                         LIST         176     A     
 LIST               BX6    0                                                               LIST         177     A     
 LIST                                                                                      FC50629       11     A     
 LIST      PIK100   BX1    -X0*X3                                                          LIST         178     A     
 LIST               SA2    X1+PIK=I-1                                                      LIST         179     A     
 LIST               LX3    4                                                               LIST         180     A     
 LIST               PL     X2,PIK90    IF NO CONDITIONAL ITEM                              LIST         181     A     
 LIST               ZR     X1,PIK150   IF END OF SKELETON                                  LIST         182     A     
 LIST               NZ     X2,PIK110   IF 18-BIT  *K*  PORTION                             LIST         183     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1963    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BX1    -X0*X3                                                          LIST         184     A     
 LIST               =X2    1RB                                                             FC50629       12     A     
 LIST               SA1    X1+PIK=I-1  FETCH CONDIT-REGISTER                               LIST         185          I
          -FC50629
 LIST               SX1    X1-1                                                            FC50629       13     A     
 LIST               ZR     X1,PIK90    PRESERVE BI [EVEN IF B0]                            FC50629       14     A     
 LIST               SA1    X1+PIK=I    FETCH CONDITIONAL REGISTER                          FC50629       15     A     
 LIST               SX1    X1-1R0                                                          LIST         186     A     
 LIST               =X2    1RB                                                             LIST         187     A     
 LIST               NZ     X1,PIK90    IF NOT  *B0*                                        LIST         188     A     
 LIST               LX3    2*4         SKIP OVER REGISTER AND FOLLOWING SEP                LIST         189     A     
 LIST               EQ     PIK100                                                          LIST         190     A     
 LIST                                                                                      LIST         191     A     
 LIST     *         MERGE K-ADDRESS PORTION INTO ASSEMBLY.                                 LIST         192     A     
 LIST     *         ENTRY  (X6) = PARTIAL OUTPUT WORD (RIGHT JUST, ZERO FILL)              LIST         193     A     
 LIST     *                (B2) = 6 * (NUMBER OF EMPTY CHARS LEFT IN X6)                   LIST         194     A     
 LIST     *                (A6) _ LAST OUTPUT LINE STORE ADDRESS.                          LIST         195     A     
 LIST     *                (B3) = INDEX TO INSTRUCTION SKELTON                             LIST         196     A     
 LIST                                                                                      LIST         197     A     
 LIST      PIK110   SA2    PIK=TAG                                                         LIST         198     A     
 LIST               MX0    -CHAR                                                           LIST         199     A     
 LIST                                                                                      FC50629       16     A     
 LIST      PIK120   LX2    CHAR                                                            LIST         200     A     
 LIST               SB0    0                                                               LIST         201     A     
 LIST               BX1    -X0*X2                                                          LIST         202     A     
 LIST                                                                                      FC50629       17     A     
 LIST      PIK130   LX6    CHAR                                                            LIST         203     A     
 LIST               SB2    B2-CHAR                                                         LIST         204     A     
 LIST               LX2    CHAR                                                            LIST         205     A     
 LIST               IX6    X6+X1                                                           LIST         206     A     
 LIST               BX1    -X0*X2                                                          LIST         207     A     
 LIST               NZ     B2,PIK140   IF ASSEMBLY NOT FULL                                LIST         208     A     
 LIST               SA6    A6+B1                                                           LIST         209     A     
 LIST               SB2    10*CHAR                                                         LIST         210     A     
 LIST               BX6    0                                                               LIST         211     A     
 LIST                                                                                      FC50629       18     A     
 LIST      PIK140   NZ     X1,PIK130   IF MORE CHARACTERS                                  LIST         212     A     
 LIST               SA2    A2+B1                                                           LIST         213     A     
 LIST               NZ     X2,PIK120   IF OFFSET EXISTS                                    LIST         214     A     
 LIST                                                                                      FC50629       19     A     
 LIST      PIK150   SA3    =1H                                                             LIST         215     A     
 LIST               SB4    B2-B1                                                           LIST         216     A     
 LIST               MX7    1                                                               LIST         217     A     
 LIST               AX7    X7,B4                                                           LIST         218     A     
 LIST               BX3    X3*X7       GET DESIRED NO. OF BLANKS                           LIST         219     A     
 LIST               BX6    X6+X3       BLANK FILL                                          LIST         220     A     
 LIST               LX6    X6,B2       LEFT JUSTIFY ASSEMBLY                               LIST         221     A     
 LIST               SA6    A6+B1                                                           LIST         222     A     
 LIST               SX0    B3-B1       SAVE (B3-1)                                         LIST         223     A     
 LIST               SB3    LINEBUF-1                                                       LIST         224     A     
 LIST               PLINE  LINEBUF,A6-B3                                                   LIST         225     A     
 LIST               SA1    TAGSUB0                                                         LIST         226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1964    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA4    =7RSUB0                                                         LIST         227     A     
 LIST               LX1    PB.TAGP                                                         LIST         228     A     
 LIST               ZR     X0,EXIT.    IF RJ WITH TRACE                                    LIST         229     A     
 LIST               NZ     X1,SUBI.10  IF SUB0                                             LIST         230     A     
 LIST               SA4    PIK=TAG+1                                                       LIST         231     A     
 LIST               RJ     WSM         WRITE SUB MACRO                                     LIST         232     A     
 LIST               EQ     EXIT.                                                           LIST         233     A     
 LIST      LI=XXX   SPACE  4,10                                                            LIST         234     A     
 LIST     **        PRINT PSEUDO INSTRUCTIONS.                                             LIST         235     A     
 LIST     *                                                                                LIST         236     A     
 LIST     *         (X1)=(X5)=INSTRUCTION                                                  LIST         237     A     
 LIST                                                                                      LIST         238     A     
 LIST                                                                                      LIST         239     A     
 LIST      LI=BSSZ  BSSENT 0                                                               LIST         240          I
          -FC5A132
 LIST      LI=CMNT  BSSENT 0                                                               LIST         241          I
          -FC5A132
 LIST      LI=DIS   BSSENT 0                                                               LIST         242          I
          -FC5A132
 LIST      LI=HOL   BSSENT 0                                                               LIST         243          I
          -FC5A132
 LIST      LI=TTLE  BSSENT 0                                                               LIST         244          I
          -FC5A132
 LIST      LI=TERM  BSSENT 0                                                               LIST         245          I
          -FC5A132
 LIST      LI=REPI  BSSENT 0                                                               LIST         246          I
          -FC5A132
 LIST               EQ     "BLOWUP"    NOT IMPLEMENTED                                     LIST         247          I
          -FC5A132
 LIST                                                                                      LIST         248          I
          -FC5A132
 LIST      LI=BMI   BSSENT 0                                                               LIST         249     A     
 LIST      LI=BCI   BSSENT 0                                                               LIST         250     A     
 LIST      LI=OTR   BSSENT 0                                                               LIST         251     A     
 LIST      LI=EMI   BSSENT 0                                                               LIST         252     A     
 LIST      LI=ECI   BSSENT 0                                                               LIST         253     A     
 LIST      LI=LOO   BSSENT 0                                                               LIST         254     A     
 LIST               EQ     EXIT.       NO ACTION                                           LIST         255     A     
 LIST      LI=ADDR  SPACE  3,10                                                            LIST         256     A     
 LIST      LI=ADDR  BSSENT 0                                                               LIST         257     A     
 LIST               SA5    =7RADDR                                                         LIST         258     A     
 LIST               SA2    T.SYM                                                           LIST         259     A     
 LIST               LX1    -PB.TAGP                                                        LIST         260     A     
 LIST               SX3    X1          ISOLATE T.SYM INDEX                                 LIST         261     A     
 LIST               ERRNZ  PB.TAGL-18                                                      LIST         262     A     
 LIST               LX1    PB.TAGP-PB.BIASP                                                LIST         263     A     
 LIST               SX4    X1          ISOLATE BIAS                                        LIST         264     A     
 LIST               ERRNZ  PB.BIASL-18                                                     LIST         265     A     
 LIST               RJ     KTX                                                             LIST         266     A     
 LIST               SA6    PIK=TAG                                                         LIST         267     A     
 LIST               SX6    1R,                                                             LIST         268     A     
 LIST               LX6    -CHAR                                                           LIST         269     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1965    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               =A6    A6+1                                                            LIST         270     A     
 LIST               BX3    X4                                                              LIST         271     A     
 LIST               RJ     KTY                                                             LIST         272          I
          -FC5A281
 LIST               KTY                CONVERT BIAS                                        FC5A281       26     A     
 LIST               =A6    A6+1                                                            LIST         273     A     
 LIST               =A2    A6-2                                                            LIST         274     A     
 LIST               SA1    =10H                                                            LIST         275     A     
 LIST               BX3    X5                                                              LIST         276     A     
 LIST               BX6    X1                                                              LIST         277     A     
 LIST               RJ     PVF         PRINT  *       ADDR   NAME,VERSION  *               LIST         278     A     
 LIST               EQ     EXIT.                                                           LIST         279     A     
 LIST      LI=APL   SPACE  4,10                                                            LIST         280     A     
 LIST      LI=APL   BSSENT 0           LIST AP-LISTS                                       LIST         281     A     
 LIST               SB6    B0          INDICATE REGULAR AP-LISTS                           LIST         282     A     
 LIST               SA1    WCA.RJ                                                          LIST         283     A     
 LIST               SA2    APLA        LENGTH OF T.APL BEFORE APPENDING T.LCA              LIST         284     A     
 LIST               RJ     WAP                                                             LIST         285     A     
 LIST               RJ     WLP         LIST LCM POINTER CELLS                              LIST         286     A     
 LIST               EQ     EXIT.                                                           LIST         287     A     
 LIST      LI=BOS   SPACE  4,4                                                             LIST         288     A     
 LIST      LI=BOS   BSSENT 0           LIST LINE NUMBER                                    LIST         289     A     
 LIST               MX0    -PB.BIASL                                                       LIST         290     A     
 LIST               AX1    PB.BIASP                                                        LIST         291     A     
 LIST               BX1    -X0*X1      LINE NUM = BIAS [INSTRUCTION]                       LIST         292     A     
 LIST               CALL   CDD         CONVERT LINE NUMBER TO DISPLAY CODE                 LIST         293     A     
 LIST               SA1    =H/*/                                                           LIST         294     A     
 LIST               SA2    =H/ /                                                           LIST         295     A     
 LIST               BX6    X1                                                              LIST         296     A     
 LIST               SA3    OL=LBF                                                          LIST         297     A     
 LIST               LX7    X2                                                              LIST         298     A     
 LIST               SA6    X3          +4 = Z 1-10      NOMINALLY                          LIST         299     A     
 LIST               SA3    =5ALINE                                                         LIST         300     A     
 LIST               SA7    A6+B1       +5 = Z11-20                                         LIST         301     A     
 LIST               BX6    X3                                                              LIST         302     A     
 LIST               LX7    X4                                                              LIST         303     A     
 LIST               SA6    A7+B1       +6 = Z21-30                                         LIST         304     A     
 LIST               SA7    A6+B1       +7 = Z31-40                                         LIST         305     A     
 LIST               SB3    A7+B1                                                           LIST         306     A     
 LIST               SB6    LINEBUF                                                         LIST         307     A     
 LIST               PLINE  B6,B3-B6                                                        LIST         308     A     
 LIST               EQ     EXIT.                                                           LIST         309     A     
 LIST      LI=BSS   SPACE  4,4                                                             LIST         310     A     
 LIST      LI=BSS   BSSENT 0           *BSS*,  DEFINE LOCATION SYMBOL                      LIST         311     A     
 LIST               RJ     PBS         PRINT * TAG   BSS   N*                              LIST         312     A     
 LIST               EQ     EXIT.                                                           LIST         313     A     
 LIST      LI=CON   SPACE  4,10                                                            LIST         314     A     
 LIST      LI=CON   BSSENT 0           PRINT CONSTANT ASSIGNMENTS                          LIST         315     A     
 LIST               SA3    CO.PW                                                           LIST         316     A     
 LIST               SX7    9                                                               LIST         317     A     
 LIST               SX3    X3-136                                                          LIST         318          I
          -FC50353
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1966    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SX3    X3-126                                                          FC50353       33     A     
 LIST               SX6    CC0                                                             LIST         319     A     
 LIST               ZR     X3,CON.10   IF NOT IN PW MODE                                   LIST         320          I
          -FC50353
 LIST               PL     X3,CON.10   IF NOT IN PW MODE                                   FC50353       34     A     
 LIST               SX7    5                                                               LIST         321     A     
 LIST               SX6    CC3                                                             LIST         322     A     
 LIST      CON.10   SA7    WCCB        (WCCB) = LENGTH OF PRINT LINE                       LIST         323     A     
 LIST               SA6    A7+1        (WCCB+1) = START OF LINE BUFFER                     LIST         324     A     
 LIST               SA1    S=CON                                                           LIST         325     A     
 LIST               SA5    T.CON                                                           LIST         326     A     
 LIST               RJ     WCC         WRITE (T.CON)                                       LIST         327     A     
 LIST               EQ     EXIT.                                                           LIST         328     A     
 LIST      LI=CPL   SPACE  4,10                                                            LIST         329     A     
 LIST      LI=CPL   BSSENT 0           PRINT *CPL* TAG WORD                                LIST         330     A     
 LIST               MX0    -PB.TAGL                                                        LIST         331     A     
 LIST               LX1    -PB.TAGP                                                        LIST         332     A     
 LIST               BX3    -X0*X1      TAGI = TAG[INSTRUCTION]                             LIST         333     A     
 LIST               BX4    X3                                                              LIST         334     A     
 LIST               RJ     KTX         CONVERT TAGI                                        LIST         335     A     
 LIST               SA6    PIK=TAG     (PIK=TAG) = TAG                                     LIST         336     A     
 LIST                                                                                      LIST         337     A     
 LIST     *         LIST   *CP         TAG,L*                                              LIST         338     A     
 LIST     *                WHERE L = WC.CLEN IFF WC.CTYP .EQ. 0, ELSE  L = 0.              LIST         339     A     
 LIST                                                                                      LIST         340     A     
 LIST               LX0    X4,B1                                                           LIST         341     A     
 LIST               IX2    X4+X0       STIND = 3 * TAGI                                    LIST         342     A     
 LIST               ERRNZ  3-Z=SYM                                                         LIST         343     A     
 LIST               SA3    T.SYM                                                           LIST         344     A     
 LIST               =B7    X3+WC.W                                                         LIST         345     A     
 LIST               SA1    X2+B7       WCI = T.SYM(STIND) + WC.W                           LIST         346     A     
 LIST               BX2    X1                                                              LIST         347     A     
 LIST               HX1    WC.CLEN                                                         LIST         348     A     
 LIST               AX1    -WC.CLENL   CLENI = CLEN[WCI]                                   LIST         349     A     
 LIST               HX2    WC.CTYP                                                         LIST         350     A     
 LIST               AX2    59                                                              LIST         351     A     
 LIST               BX3    -X2*X1      L = CLENI IFF WC.CTYP .EQ. 0                        LIST         352     A     
 LIST               RJ     KTY         CONVERT L TO DPC                                    LIST         353          I
          -FC5A281
 LIST               KTY                CONVERT LENGTH                                      FC5A281       27     A     
 LIST               SA2    =1R,                                                            LIST         354     A     
 LIST               BX6    X2+X6                                                           LIST         355     A     
 LIST               LX6    -CHAR                                                           LIST         356     A     
 LIST               SA6    A6+B1       (PIK=TAG+1) = ,L                                    LIST         357     A     
 LIST               SA2    A6-B1                                                           LIST         358     A     
 LIST               SA1    =10H                                                            LIST         359     A     
 LIST               SA3    =7RCP                                                           LIST         360     A     
 LIST               BX6    X1                                                              LIST         361     A     
 LIST               RJ     PVF         PRINT *  CP    TAG,L*                               LIST         362     A     
 LIST               EQ     EXIT.                                                           LIST         363     A     
 LIST      LI=DATA  SPACE  4,10                                                            LIST         364     A     
 LIST      LI=DATA  BSSENT 0           PRINT DATA INITIALIZATION TABLES                    LIST         365     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1967    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA2    T=DATS                                                          LIST         366     A     
 LIST               ZR     X2,EXIT.    IF NO DATA INITIALIZATION                           LIST         367     A     
 LIST      .T       IFEQ   TEST,ON                                                         LIST         368     A     
 LIST               DUMPT  DATS                                                            LIST         369     A     
 LIST      .T       ENDIF                                                                  LIST         370     A     
 LIST               EQ     EXIT.                                                           LIST         371     A     
 LIST      LI=END   SPACE  4,10                                                            LIST         372     A     
 LIST      LI=END   BSSENT 0           PRINT END LINE                                      LIST         373     A     
 LIST               MX7    0                                                               LIST         374     A     
 LIST               SA7    PIK=TAG+1                                                       LIST         375     A     
 LIST               SA4    MOD                                                             LIST         376     A     
 LIST               SA2    IDENT                                                           LIST         377     A     
 LIST               SBIT   X4,MO.PROP                                                      LIST         378     A     
 LIST               SA1    =1H                                                             LIST         379     A     
 LIST               AX4    -0                                                              LIST         380     A     
 LIST               BX6    X1                                                              LIST         381     A     
 LIST               BX7    X2*X4                                                           LIST         382     A     
 LIST               SA3    =7REND                                                          LIST         383     A     
 LIST               SA7    A7-B1       (PIK=TAG) = PROGRAM NAME  OR 0                      LIST         384     A     
 LIST               SA2    A7                                                              LIST         385     A     
 LIST               RJ     PVF         PRINT *END    PROGNAM*                              LIST         386     A     
 LIST               EQ     EXIT.                                                           LIST         387     A     
 LIST      LI=EQUN  SPACE  4,10                                                            LIST         388     A     
 LIST      LI=EQUN  BSSENT 0           PRINT *EQUN*                                        LIST         389     A     
 LIST               SA1    SUM.LBT                                                         LIST         390     A     
 LIST               PIA    ,LINEBUF    PREPARE INSTRUCTION ADDRESS                         LIST         391     A     
 LIST               SA3    S=LENP      ORDINAL INTO T.SYM ENTRY FOR LENP.                  LIST         392     A     
 LIST               LX0    X3,B1                                                           LIST         393     A     
 LIST               IX3    X3+X0       = 3 * ORDINAL = INDEX INTO T.SYM                    LIST         394     A     
 LIST               SA2    T.SYM                                                           LIST         395     A     
 LIST               IX1    X2+X3                                                           LIST         396     A     
 LIST               MX0    WA.SYML                                                         LIST         397     A     
 LIST               SA3    X1+WA.W     FETCH LABEL                                         LIST         398     A     
 LIST               BX1    X0*X3       KEEP NAME                                           LIST         399     A     
 LIST               CALL   SFN         SPACE FILL NAME                                     LIST         400     A     
 LIST               LX6    -CHAR                                                           LIST         401     A     
 LIST               SA3    =10HEQUN                                                        LIST         402     A     
 LIST      EQUN.10  SA1    OL=LBF                                                          LIST         403     A     
 LIST               SA6    X1                                                              LIST         404     A     
 LIST               BX6    X3                                                              LIST         405     A     
 LIST               =A6    A6+1                                                            LIST         406     A     
 LIST               SB7    LINEBUF-1                                                       LIST         407     A     
 LIST               PLINE  LINEBUF,A6-B7     PRINT  *LENP.  EQUN   *                       LIST         408     A     
 LIST               EQ     EXIT.                                                           LIST         409     A     
 LIST      LI=FEQU  SPACE  4,4                                                             LIST         410     A     
 LIST      LI=FMT   SPACE  4,10                                                            LIST         411     A     
 LIST      LI=FMT   BSSENT 0           PRINT FORMAT ASSIGNMENTS                            LIST         412     A     
 LIST               RJ     WCF                                                             LIST         413     A     
 LIST               SA3    CO.OPT                                                          LIST         414     A     
 LIST               SA2    T=LA                                                            LIST         415     A     
 LIST               NZ     X3,EXIT.    IF NOT QCG                                          LIST         416     A     
 LIST               SA1    S=LA                                                            LIST         417     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1968    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               ZR     X2,EXIT.    IF NO LABELS ASSIGN-ED                              LIST         418     A     
 LIST               LX1    PB.TAGP                                                         LIST         419     A     
 LIST               RJ     PBS         PRINT BSS (LA.)                                     LIST         420     A     
 LIST               SX6    1R                                                              LIST         421     A     
 LIST               SA6    OL=RL       SET TO INCLUDE OCTAL                                LIST         422     A     
 LIST               EQ     EXIT.                                                           LIST         423     A     
 LIST      LI=FLA   SPACE  4,10                                                            LIST         424     A     
 LIST      LI=FLA   BSSENT 0           FORMAT LABEL ASSIGN-ED                              LIST         425     A     
 LIST               SA4    =7LLABS                                                         LIST         426     A     
 LIST               BX6    X4                                                              LIST         427     A     
 LIST               BX3    X1                                                              LIST         428     A     
 LIST               SA6    LINEBUF+5                                                       LIST         429     A     
 LIST               RJ     KTX         CONVERT LABEL TAG                                   LIST         430     A     
 LIST               SA6    A6+B1                                                           LIST         431     A     
 LIST               SA2    OL=BIN                                                          LIST         432     A     
 LIST               AX2    -1                                                              LIST         433     A     
 LIST               SA4    =L/,FMT/                                                        LIST         434     A     
 LIST               BX7    -X2*X4      FLAG AS FORMAT IFF SIGN OFF                         LIST         435     A     
 LIST               MX6    0                                                               LIST         436     A     
 LIST               SA7    A6+B1                                                           LIST         437     A     
 LIST               SB5    LINEBUF+5                                                       LIST         438     A     
 LIST               SA6    A7+B1                                                           LIST         439     A     
 LIST               RJ     PLL         PUBLISH LISTING LINE                                LIST         440     A     
 LIST               EQ     EXIT.                                                           LIST         441     A     
 LIST      LI=FVEC  SPACE  4,4                                                             LIST         442     A     
 LIST      LI=FVEC  BSSENT 0           PRINT FILE DESCRIPTOR                               LIST         443     A     
 LIST               SA5    =7RFVEC                                                         LIST         444     A     
 LIST               SA2    T.SYM                                                           LIST         445     A     
 LIST               LX1    -PB.TAGP                                                        LIST         446     A     
 LIST               SB7    X1          ISOLATE T.SYM *WB* INDEX                            LIST         447     A     
 LIST               SA4    =10H                                                            LIST         448     A     
 LIST               ZR     B7,FVEC.10  IF NO LFN                                           LIST         449     A     
 LIST               SB7    B7-WB.W+WA.W                                                    LIST         450     A     
 LIST               ERRNZ  PB.TAGL-18                                                      LIST         451     A     
 LIST               SA2    X2+B7                                                           LIST         452     A     
 LIST               MX0    -WA.SYML                                                        LIST         453     A     
 LIST               LX2    -WA.SYMP                                                        LIST         454     A     
 LIST               BX4    -X0*X2      ISOLATE NAME OF FILE                                LIST         455     A     
 LIST               LX4    -WA.SYML    LEFT JUSTIFY                                        LIST         456     A     
 LIST               MX2    1                                                               LIST         457     A     
 LIST               BX4    X4-X2       TURN OFF BIT 59                                     LIST         458     A     
 LIST                                                                                      FC5A281       28     A     
 LIST      FVEC.10  LX1    PB.TAGP-PB.BIASP                                                LIST         459     A     
 LIST               SX3    X1          ISOLATE BUFL (OR MRL)                               LIST         460     A     
 LIST               ERRNZ  PB.BIASL-18                                                     LIST         461     A     
 LIST               RJ     KTY         CONVERT BUFL (OR MRL) TO DPC                        LIST         462          I
          -FC5A281
 LIST               KTY                CONVERT BUFL (OR MRL)                               FC5A281       29     A     
 LIST               SA6    PIK=TAG                                                         LIST         463          I
          -FC50049
 LIST                                                                                      FC50049       24     A     
 LIST      FVEC.20  SA6    PIK=TAG                                                         FC50049       25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1969    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BX1    X4                                                              LIST         464     A     
 LIST               CALL   SFN         SPACE FILL THE NAME                                 LIST         465     A     
 LIST               LX6    -CHAR                                                           LIST         466     A     
 LIST               BX3    X5                                                              LIST         467     A     
 LIST               SA2    PIK=TAG                                                         LIST         468     A     
 LIST               RJ     PVF         PRINT  *LFN     FVEC  BUFL   *                      LIST         469     A     
 LIST               EQ     EXIT.                                                           LIST         470     A     
 LIST                                                                                      FC50049       26     A     
 LIST      LI=PLIM  BSSENT 0           PRINT LIMIT                                         FC50049       27     A     
 LIST               SA1    =XCO.LL     PRINT LIMIT                                         FC50049       28     A     
 LIST               CALL   CDD         CONVERT TO DECIMAL                                  FC50049       29     A     
 LIST               MX5    1                                                               FC50049       30     A     
 LIST               SB2    B2-B1                                                           FC50049       31     A     
 LIST               AX5    B2                                                              FC50049       32     A     
 LIST               BX6    X5*X4       ZERO FILL LIMIT                                     FC50049       33     A     
 LIST               SA5    =7RPLIM                                                         FC50049       34     A     
 LIST               SA4    =10H                                                            FC50049       35     A     
 LIST               EQ     FVEC.20                                                         FC50049       36     A     
 LIST      LI=IDNT  SPACE  4,4                                                             LIST         471     A     
 LIST      LI=IDNT  BSSENT 0                                                               LIST         472     A     
 LIST               RJ     WCS         LIST BLOCK STATISTICS                               LIST         473     A     
 LIST               SA1    IDENT       FETCH PROGRAM NAME                                  LIST         474     A     
 LIST               SA3    =7RIDENT                                                        LIST         475     A     
 LIST               SA4    =10H                                                            LIST         476     A     
 LIST               MX6    0           SUPPRESS OCTAL AND RELOC                            LIST         477     A     
 LIST               BX7    X1                                                              LIST         478     A     
 LIST               SA6    OL=RL                                                           LIST         479     A     
 LIST               LX6    X4                                                              LIST         480     A     
 LIST               SA7    PIK=TAG     (PIK=TAG) = PROGRAM NAME                            LIST         481     A     
 LIST               SA2    A7+                                                             LIST         482     A     
 LIST               RJ     PVF         PRINT  *    IDENT  PROGNAM *                        LIST         483     A     
 LIST               EQ     EXIT.                                                           LIST         484     A     
 LIST      LI=IOM   SPACE  4,10                                                            LIST         485     A     
 LIST      LI=IOM   BSSENT 0           LIST IO AP-LISTS                                    LIST         486     A     
 LIST               SA1    =10H                                                            LIST         487     A     
 LIST               SA3    =7RIOM                                                          LIST         488     A     
 LIST               BX6    X1                                                              LIST         489     A     
 LIST               BX7    X3                                                              LIST         490     A     
 LIST               SA7    WIO.10                                                          LIST         491     A     
 LIST               SA6    LINEBUF+1                                                       LIST         492     A     
 LIST               =A6    A6+1                                                            LIST         493     A     
 LIST               SB6    B1          INDICATE IO AP-LIST                                 LIST         494     A     
 LIST               SA1    WIO.RJ                                                          LIST         495     A     
 LIST               SA2    T=IOA                                                           LIST         496     A     
 LIST               RJ     WAP         LIST I/O AP-LISTS                                   LIST         497     A     
 LIST               SA3    =7RCLW                                                          LIST         498     A     
 LIST               BX6    X3                                                              LIST         499     A     
 LIST               SA6    WIO.10                                                          LIST         500     A     
 LIST               RJ     WCL         LIST CHARACTER LENGTH ARRAYS                        LIST         501     A     
 LIST               EQ     EXIT.                                                           LIST         502     A     
 LIST      LI=JPI   SPACE  4,4                                                             LIST         503     A     
 LIST      LI=JPI   BSSENT 0           PRINT *JP   BI+Q* INSTRUCTION                       LIST         504     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1970    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SB3    3           INDEX TO INSTRUCTION SKELETON                       LIST         505     A     
 LIST               MX4    -PB.IL                                                          FC5A219       20     A     
 LIST               LX5    -PB.IP                                                          FC5A219       21     A     
 LIST               BX6    -X4*X5      EXTRACT *I*                                         FC5A219       22     A     
 LIST               LX5    PB.IP                                                           FC5A219       23     A     
 LIST               SX6    X6+1R0                                                          FC5A219       24     A     
 LIST               SA6    PIK=I       SET FOR JP INTRUCTION                               FC5A219       25     A     
 LIST               EQ     RJ6.10                                                          LIST         506     A     
 LIST      LI=LCC   SPACE  4,10                                                            LIST         507     A     
 LIST     **        DUE TO THE DIFICULTIES INVOLVED IN PRINTING LOADER                     LIST         508     A     
 LIST     *         DIRECTIVES IN THE PROPER PLACE, WE WILL NOT DO SO.                     LIST         509     A     
 LIST                                                                                      LIST         510     A     
 LIST                                                                                      LIST         511     A     
 LIST      LI=LCC   BSSENT 0           PRINT USER LOADER DIRECTIVE                         LIST         512     A     
 LIST               EQ     EXIT.                                                           LIST         513     A     
 LIST      LI=LD0   SPACE  4,10                                                            LIST         514     A     
 LIST      LI=LD0   BSSENT 0                                                               LIST         515     A     
 LIST      LI=ST0   BSSENT 0                                                               LIST         516     A     
 LIST               EQ     "BLOWUP"    SHOULD NOT COME HERE                                LIST         517     A     
 LIST      LI=NLST  SPACE  4,10                                                            LIST         518     A     
 LIST      LI=NLST  BSSENT 0           PRINT NAMELIST GROUP TABLE                          LIST         519     A     
 LIST               SA2    T=DIM                                                           LIST         520     A     
 LIST     ** FV     WHAT ABOUT RUN-TIME DIM TABLE ??                                       LIST         521     A     
 LIST               SA2    T=NLST                                                          LIST         522     A     
 LIST               ZR     X2,EXIT.    IF NO NAMELIST GROUPS                               LIST         523     A     
 LIST      .T       IFEQ   TEST,ON                                                         LIST         524     A     
 LIST               DUMPT  NLST                                                            LIST         525     A     
 LIST      .T       ENDIF                                                                  LIST         526     A     
 LIST               EQ     EXIT.                                                           LIST         527     A     
 LIST      LI=RJ3   SPACE  4,4                                                             LIST         528     A     
 LIST      LI=RJ3   BSSENT 0           PRINT *RJ     XXX* INSTRUCTION                      LIST         529     A     
 LIST               SB3    2           INDEX TO INSTRUCTION SKELETON                       LIST         530     A     
 LIST               EQ     RJ6.10                                                          LIST         531     A     
 LIST      LI=RJ6   SPACE  4,4                                                             LIST         532     A     
 LIST      LI=RJ6   BSSENT 0           PRINT RETURN JUMP WITH TRACE                        LIST         533     A     
 LIST               SB3    1           INDEX TO INSTRUCTION SKELETON                       LIST         534     A     
 LIST      RJ6.10   MX4    -PB.TAGL                                                        LIST         535     A     
 LIST               SX6    1RT                                                             LIST         536     A     
 LIST               LX1    -PB.TAGP                                                        LIST         537     A     
 LIST               SB5    PIK=PS+1                                                        LIST         538     A     
 LIST               SB5    B3-B5                                                           LIST         539     A     
 LIST               SB5    B5+PIK=PI                                                       LIST         540     A     
 LIST               BX3    -X4*X1      ISOLATE TAG                                         LIST         541     A     
 LIST               SA6    PIK=I+2                                                         LIST         542     A     
 LIST               EQ     PIK40                                                           LIST         543     A     
 LIST      LI=SB0I  SPACE  4,10                                                            LIST         544     A     
 LIST      LI=SB0I  BSSENT 0           OUTPUT SUB0 INDEX                                   LIST         545     A     
 LIST               SA4    =7RSB0I                                                         LIST         546     A     
 LIST               EQ     SUBI.10                                                         LIST         547     A     
 LIST      LI=SUBI  SPACE  4,10                                                            LIST         548     A     
 LIST      LI=SUBI  BSSENT 0           OUTPUT SUB INDEX                                    LIST         549     A     
 LIST               SA4    =7RSUBI                                                         LIST         550     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1971    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      SUBI.10  BSS    0                                                               LIST         551     A     
 LIST               MX0    -PB.TAGL                                                        LIST         552     A     
 LIST               AX1    PB.TAGP                                                         LIST         553     A     
 LIST               BX3    -X0*X1      TAGI = TAG[INSTRUCTION]                             LIST         554     A     
 LIST               RJ     KTX         CONVERT TAG                                         LIST         555     A     
 LIST               SA6    PIK=TAG     (PIK=TAG) = TAG                                     LIST         556     A     
 LIST               SA1    =10H                                                            LIST         557     A     
 LIST               BX3    X4                                                              LIST         558     A     
 LIST               BX6    X1                                                              LIST         559     A     
 LIST               SA2    A6                                                              LIST         560     A     
 LIST               RJ     PVF         PRINT * SUBI  TAG*                                  LIST         561     A     
 LIST               EQ     EXIT.                                                           LIST         562     A     
 LIST      LI=UJP   SPACE  4,4                                                             LIST         563     A     
 LIST      LI=UJP   BSSENT 0           PRINT *EQ     XXX* INSTRUCTION                      LIST         564     A     
 LIST               SB3    4           INDEX TO INSTRUCTION SKELETON                       LIST         565     A     
 LIST               EQ     RJ6.10                                                          LIST         566     A     
 LIST      LI=USE   SPACE  4,4                                                             LIST         567     A     
 LIST      LI=USE   BSSENT 0           PRINT *USE BLOCK*                                   LIST         568     A     
 LIST               HX1    PB.BIAS                                                         LIST         569     A     
 LIST               AX1    -PB.BIASL                                                       LIST         570     A     
 LIST               SA1    X1+TLBN     FETCH BLOCK NAME                                    LIST         571     A     
 LIST               SX6    55B                                                             LIST         572     A     
 LIST               SA4    =10H                                                            LIST         573     A     
 LIST               SA3    =7RUSE                                                          LIST         574     A     
 LIST               IX7    X1-X6       LEAVE A 0 AT BOTTOM OF NAME                         LIST         575     A     
 LIST               SA7    PIK=TAG     (PIK=TAG) = BLOCK NAME                              LIST         576     A     
 LIST               SA2    A7                                                              LIST         577     A     
 LIST               BX6    X4                                                              LIST         578     A     
 LIST               RJ     PVF         PRINT * USE  BLKNAM*                                LIST         579     A     
 LIST               EQ     EXIT.                                                           LIST         580     A     
 LIST                                                                                      LIST         581     A     
 LIST      USE.10   DIS    1,                                                              LIST         582     A     
 LIST               DIS    1,                                                              LIST         583     A     
 LIST               DATA   10H USE  BLOC                                                   LIST         584     A     
 LIST               BSS    1           K NAME                                              LIST         585     A     
 LIST      LI=TRAC  SPACE  4,4                                                             LIST         586     A     
 LIST      LI=TRAC  BSSENT 0           PRINT *NAME    TRACE*                               LIST         587     A     
 LIST               SA1    IDENT                                                           LIST         588     A     
 LIST               CALL   ZTB         ZERO CHARS TO BLANKS                                LIST         589     A     
 LIST               LX6    -6                                                              LIST         590     A     
 LIST               SX7    1R+         INDICATE PROGRAM RELOCATION                         LIST         591     A     
 LIST               SA6    LINEBUF+4                                                       LIST         592     A     
 LIST               SB5    TRAC.A                                                          LIST         593     A     
 LIST               SA7    OL=RL                                                           LIST         594     A     
 LIST               RJ     PLL         PUBLISH LISTING LINE                                LIST         595     A     
 LIST               EQ     EXIT.                                                           LIST         596     A     
 LIST                                                                                      LIST         597     A     
 LIST      TRAC.A   DATA   L/TRACE./                                                       LIST         598     A     
 LIST               DATA   0                                                               LIST         599     A     
 LIST      LI=PLIM  SPACE  4,4                                                             LIST         600     A     
 LIST      LI=ZERO  SPACE  4,10                                                            LIST         601     A     
 LIST      LI=ZERO  BSSENT 0           PRINT A ZERO WORD                                   LIST         602     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1972    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA3    =10H                                                            LIST         603     A     
 LIST               BX1    0                                                               LIST         604     A     
 LIST               RJ     ZWI         OUTPUT A ZERO WORD                                  LIST         605     A     
 LIST               EQ     EXIT.                                                           LIST         606     A     
 LIST                                                                                      LIST         607     A     
 LIST               TITLE  OBJECT LISTING SUPPORTING ROUTINES.                             LIST         608     A     
 LIST      KTX      SPACE  4,10                                                            LIST         609     A     
 LIST     **        KTX -  KONVERT TAG TO EXTERNAL FORMAT                                  LIST         610     A     
 LIST     *                                                                                LIST         611     A     
 LIST     *         ENTRY  (X3) = TAG (R-JUST, ZERO FILL)                                  LIST         612     A     
 LIST     *         EXIT   (X6) = DPC CONVERSION (L-JUST, ZERO FILL, 9 CHAR MAX)           LIST         613     A     
 LIST     *                (SAVFP) .EQ. 1 IF FP                                            LIST         614     A     
 LIST     *         USES   A1,A2,A3,A7   B2,B7   X1,X2,X3,X6,X7                            LIST         615     A     
 LIST                                                                                      LIST         616     A     
 LIST                                                                                      LIST         617     A     
 LIST      KTX      SUBR               ENTRY/EXIT...                                       LIST         618     A     
 LIST               ZR     X3,KTX60    IF TAG .EQ. 0                                       LIST         619     A     
 LIST               MX1    -PB.ORDL                                                        LIST         620     A     
 LIST               BX2    X1*X3       PFXI = PFX[TAGI]                                    LIST         621     A     
 LIST               ZR     X2,KTX20    IF PFXI .EQ. 0 (IF SYMBOL TABLE ORDINAL)            LIST         622     A     
 LIST                                                                                      LIST         623     A     
 LIST     *         CONVERT AN INTERNAL TAG.                                               LIST         624     A     
 LIST     *         X3 = TAGI (R-JUST)                                                     LIST         625     A     
 LIST                                                                                      LIST         626     A     
 LIST               SX6    B0                                                              LIST         627     A     
 LIST               BX1    -X1*X3      ORDI = ORD[TAGI]                                    LIST         628     A     
 LIST               AX2    P=PFX                                                           LIST         629     A     
 LIST               SB2    X2                                                              LIST         630     A     
 LIST      .TEST    IFEQ   TEST,ON                                                         LIST         631     A     
 LIST               SX3    X2-K=END                                                        LIST         632     A     
 LIST               PL     X3,"BLOWUP" IF PFXI .GE. K=END                                  LIST         633     A     
 LIST      .TEST    ENDIF                                                                  LIST         634     A     
 LIST               SX3    7                                                               LIST         635     A     
 LIST      KTX10    BX2    X3*X1       ISOLATE LOWEST OCTAL DIGIT                          LIST         636     A     
 LIST               AX1    3                                                               LIST         637     A     
 LIST               SX2    X2+1R0                                                          LIST         638     A     
 LIST               BX6    X6+X2                                                           LIST         639     A     
 LIST               LX6    -CHAR                                                           LIST         640     A     
 LIST               NZ     X1,KTX10    IF NUMBER NOT FINISHED                              LIST         641     A     
 LIST               SA3    B2+KTXN     FETCH TAG PREFIX                                    LIST         642     A     
 LIST               BX6    X6+X3                                                           LIST         643     A     
 LIST               LX6    -3*CHAR                                                         LIST         644     A     
 LIST               EQ     EXIT.                                                           LIST         645     A     
 LIST                                                                                      LIST         646     A     
 LIST     *         CONVERT VARIABLE TAG.                                                  LIST         647     A     
 LIST     *         TESTS FOR STATEMENT LABEL (*LAB*) AND PROCESSES.                       LIST         648     A     
 LIST     *         PREFIX TAG WITH *=X* IF *EXT* BIT IS SET IN THE SYMBOL                 LIST         649     A     
 LIST     *         TABLE ENTRY.                                                           LIST         650     A     
 LIST     *         (X3) = ORDI        (SYMBOL TABLE ORDINAL)                              LIST         651     A     
 LIST                                                                                      LIST         652     A     
 LIST                                                                                      LIST         653     A     
 LIST      KTX20    SA1    T.SYM                                                           LIST         654     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1973    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               LX6    X3,B1                                                           LIST         655     A     
 LIST               IX6    X6+X3       STIND =  3 * ORDI                                   LIST         656     A     
 LIST               ERRNZ  3-Z=SYM                                                         LIST         657     A     
 LIST               IX1    X1+X6                                                           LIST         658     A     
 LIST               SA2    X1+WB.W     WBI = T.SYM(STIND)                                  LIST         659     A     
 LIST               BX7    X2                                                              LIST         660     A     
 LIST               IFBIT  X2,WB.LABP,KTX40  IF STATEMENT LABEL                            LIST         661          I
          -FC5A219
 LIST               SBIT   X2,WB.LABP                                                      FC5A219       26     A     
 LIST               MI     X2,KTX40    IF STATEMENT LABEL                                  FC5A219       27     A     
 LIST               MX6    WA.SYML                                                         LIST         662     A     
 LIST               =X1    1                                                               LIST         663          I
          -FC5A219
 LIST               SA3    A2-WB.W+WA.W      WAI = T.SYM(STIND)                            LIST         664     A     
 LIST               BX6    X6*X3      SYMBOL                                               LIST         665     A     
 LIST               LX2    WB.LABP-WB.EXTP                                                 LIST         666     A     
 LIST               LX7    -WB.FPP                                                         LIST         667          I
          -FC5A219
 LIST               BX7    X1*X7                                                           LIST         668          I
          -FC5A219
 LIST               =B2    0                                                               FC5A219       28     A     
 LIST               SBIT   X7,WB.FPP                                                       FC5A219       29     A     
 LIST               PL     X7,KTX30    IF NOT FP                                           FC5A219       30     A     
 LIST               MX1    -WB.FPNOL                                                       FC5A219       31     A     
 LIST               LX7    1+WB.FPP-WB.FPNOP                                               FC5A219       32     A     
 LIST               BX1    -X1*X7                                                          FC5A219       33     A     
 LIST               SB2    X1                                                              FC5A219       34     A     
 LIST      KTX30    SX7    B2+         FPNO (OR ZERO)                                      FC5A219       35     A     
 LIST               SA7    SAVFP       (SAVFP) = FPNO[WBI]                                 FC5A219       36     A     
 LIST               SA7    SAVFP       (SAVFP) = FP[WBI]                                   LIST         669     A     
 LIST               PL     X2,EXIT.    IF NOT AN EXTERNAL                                  LIST         670     A     
 LIST               SX1    2R=X                                                            LIST         671     A     
 LIST               BX6    X1+X6                                                           LIST         672     A     
 LIST               LX6    -2*CHAR     PREFIX EXTERNALS WITH *=X*                          LIST         673     A     
 LIST               EQ     EXIT.       EXIT..                                              LIST         674     A     
 LIST                                                                                      LIST         675     A     
 LIST     *         CONVERT STATEMENT LABEL TAG.                                           LIST         676     A     
 LIST     *         (A2) = WBI                                                             LIST         677     A     
 LIST                                                                                      LIST         678     A     
 LIST      KTX40    =A1    A2-WB.W+WA.W      WAI = WORD A ENTRY OF SYMBOL                  LIST         679     A     
 LIST               MX2    CHAR                                                            LIST         680     A     
 LIST               AX1    WA.STLP     EXTRACT THE LABEL                                   LIST         681     A     
 LIST      KTX50    BX6    X2*X1       ISOLATE LEADING CHARACTER                           LIST         682     A     
 LIST               LX1    CHAR                                                            LIST         683     A     
 LIST               ZR     X6,KTX50    IF NO SIGNIFICANT CHARACTER YET                     LIST         684     A     
 LIST               SX2    2R.*-1R*                                                        LIST         685     A     
 LIST               BX6    X1+X2                                                           LIST         686     A     
 LIST               LX6    -2*CHAR                                                         LIST         687     A     
 LIST               EQ     EXIT.                                                           LIST         688     A     
 LIST                                                                                      LIST         689     A     
 LIST      KTX60    RJ     KTY         KONVERT 0 TO DPC                                    LIST         690          I
          -FC5A281
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1974    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      KTX60    KTY                CONVERT 0                                           FC5A281       30     A     
 LIST               EQ     EXIT.                                                           LIST         691     A     
 LIST                                                                                      LIST         692     A     
 LIST     *         VECTOR OF PREFIXES FOR AUXILLIARY TABLE TAGS.                          LIST         693     A     
 LIST                                                                                      LIST         694     A     
 LIST      KTXN     BSS    0                                                               LIST         695     A     
 LIST               LOC    0                                                               LIST         696     A     
 LIST      K=SYM    DATA   3RSY.       K.SYM       (SHOULD NEVER SEE THIS)                 LIST         697     A     
 LIST      K=GL     DATA   3RGL.       K.GL        GENERATED LABEL                         LIST         698     A     
 LIST      K=AP     DATA   3RAP.       K.AP        AP-LIST INDEX                           LIST         699     A     
 LIST      K=IO     DATA   3RIO.       K.IO        I/O APL INDEX                           LIST         700     A     
 LIST      K=LC     DATA   3RLC.       K.LC        LCM POINTER WORD INDEX                  LIST         701          I
          -FC50457
 LIST      K=LC     DATA   3RLP.       K.LC        LCM POINTER WORD INDEX                  FC50457       10     A     
 LIST      K=END    BSS    0           INSURE VECTOR SYNCHRONIZATION                       LIST         702     A     
 LIST               LOC    *O                                                              LIST         703     A     
 LIST      KTY      SPACE  4,10                                                            LIST         704     A     
 LIST     **        KTY -  CONVERT SHORT CONSTANTS FOR OBJECT LIST.                        LIST         705     A     
 LIST     *                                                                                LIST         706     A     
 LIST     *         ENTRY  (X3) = CONSTANT, RIGHT JUSTIFIED IN BITS (23-00).               LIST         707          I
          -FC5A281
 LIST     *                       IF BIT (2**23) IS SET, CONSTANT IS ASSUMED TO BE         LIST         708          I
          -FC5A281
 LIST     *                       NEGATIVE, AND CONVERSION WILL HAVE A LEADING             LIST         709          I
          -FC5A281
 LIST     *                       MINUS SIGN.                                              LIST         710          I
          -FC5A281
 LIST     *         ENTRY  (B2) = SHIFT COUNT FOR SIGN EXTENSION                           FC5A281       31     A     
 LIST     *                (X3) = CONSTANT, RIGHT JUSTIFIED.  HIGH ORDER BIT IS            FC5A281       32     A     
 LIST     *                       ASSUMED TO BE SIGN BIT (WHICH BIT IS HIGH ORDER          FC5A281       33     A     
 LIST     *                       IS DETERMINED BY (B2)).  MINUS SIGN WILL PREFIX          FC5A281       34     A     
 LIST     *                       AS NECESSARY.                                            FC5A281       35     A     
 LIST     *                                                                                LIST         711     A     
 LIST     *         EXIT   (X6) = DPC CONVERSION (0L FORMAT).  WILL HAVE A                 LIST         712     A     
 LIST     *                       TRAILING *B* SUFFIX IF ABSOLUTE VALUE OF                 LIST         713     A     
 LIST     *                       THE CONSTANT IS .GT. EIGHT.                              LIST         714     A     
 LIST     *                (X3) .LT.0 IF CONSTANT WAS NEGATIVE.                            LIST         715     A     
 LIST     *                                                                                LIST         716     A     
 LIST     *         USES   X1-X3,X6,X7                                                     LIST         717     A     
 LIST                                                                                      LIST         718     A     
 LIST                                                                                      LIST         719     A     
 LIST      KTY      SUBR               ENTRY/EXIT...                                       LIST         720     A     
 LIST               SX7    7                                                               LIST         721     A     
 LIST               LX3    -PB.BIASL                                                       LIST         722          I
          -FC5A281
 LIST               AX3    -PB.BIASL     SIGN EXTEND                                       LIST         723          I
          -FC5A281
 LIST               BX2    X3                                                              LIST         724          I
          -FC5A281
 LIST               AX2    PB.BIASL      MASK = (+0 IF POS), (-0 IF NEG)                   LIST         725          I
          -FC5A281
 LIST               LX3    B2,X3                                                           FC5A281       36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1975    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BX2    X3                                                              FC5A281       37     A     
 LIST               AX3    B2,X3       SIGN EXTEND                                         FC5A281       38     A     
 LIST               AX2    59          MASK = (+0 IF POS), (-0 IF NEG)                     FC5A281       39     A     
 LIST               BX6    X2-X3       X6 = ABS (X3)                                       LIST         726     A     
 LIST               LX1    X6                                                              LIST         727     A     
 LIST               AX6    3                                                               LIST         728     A     
 LIST               ZR     X6,KTY6     IF ABS(X3) .LT. 8                                   LIST         729     A     
 LIST               =X6    1RB                                                             LIST         730     A     
 LIST                                                                                      LIST         731     A     
 LIST      KTY6     BX2    X7*X1       ISOLATE LOWEST OCTAL DIGIT                          LIST         732     A     
 LIST               AX1    3                                                               LIST         733     A     
 LIST               SX2    X2+1R0                                                          LIST         734     A     
 LIST               LX6    -CHAR                                                           LIST         735     A     
 LIST               BX6    X2+X6                                                           LIST         736     A     
 LIST               NZ     X1,KTY6     IF NUMBER NOT EXHAUSTED                             LIST         737     A     
 LIST                                                                                      LIST         738     A     
 LIST               LX6    -CHAR                                                           LIST         739     A     
 LIST               PL     X3,EXIT.    IF POSITIVE CONSTANT                                LIST         740     A     
 LIST               SX1    1R-                                                             LIST         741     A     
 LIST               BX6    X1+X6                                                           LIST         742     A     
 LIST               LX6    -CHAR                                                           LIST         743     A     
 LIST               EQ     EXIT.                                                           LIST         744     A     
 LIST      KUB      SPACE  4,10                                                            LIST         745     A     
 LIST     **        KUB -  KONVERT UPPER BITS TO DISPLAY CODE.                             LIST         746     A     
 LIST     *                CONVERT UPPER 12 BITS OF A WORD TO DISPLAY CODE,                LIST         747     A     
 LIST     *                ZERO NOT SUPPRESSED.                                            LIST         748     A     
 LIST     *                                                                                LIST         749     A     
 LIST     *         ENTRY  (X1) = WORD TO BE CONVERTED                                     LIST         750     A     
 LIST     *         EXIT   (X7) = WORD CONTAINING LEFT JUSTIFIED 4 CHARACTERS              LIST         751     A     
 LIST     *                       CONVERTED TO DPC                                         LIST         752     A     
 LIST     *         USES   X -  1,3,4,6,7                                                  LIST         753     A     
 LIST     *                B -  2,4                                                        LIST         754     A     
 LIST                                                                                      LIST         755     A     
 LIST                                                                                      LIST         756     A     
 LIST      KUB      SUBR   0           ENTRY/EXIT.                                         LIST         757     A     
 LIST               =X3    1R0                                                             LIST         758     A     
 LIST               MX6    -3                                                              LIST         759     A     
 LIST               MX7    0                                                               LIST         760     A     
 LIST               SB4    3                                                               LIST         761     A     
 LIST               SB2    4*3         N = 4                                               LIST         762     A     
 LIST      KUB10    LX1    B4                                                              LIST         763     A     
 LIST               BX4    -X6*X1                                                          LIST         764     A     
 LIST               IX4    X4+X3       CONVERT TO DPC                                      LIST         765     A     
 LIST               LX7    CHAR                                                            LIST         766     A     
 LIST               BX7    X7+X4                                                           LIST         767     A     
 LIST               SB2    B2-B4       N = N - 1                                           LIST         768     A     
 LIST               NZ     B2,KUB10    IF N .NE. 0                                         LIST         769     A     
 LIST               LX7    -4*CHAR                                                         LIST         770     A     
 LIST               EQ     EXIT.                                                           LIST         771     A     
 LIST      PBS      SPACE  4,10                                                            LIST         772     A     
 LIST     **        PBS -  PRINT BSS INSTRUCTION.                                          LIST         773     A     
 LIST     *                                                                                LIST         774     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1976    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *         ENTRY  (X1) = PB INSTRUCTION FORMAT , WHERE                            LIST         775     A     
 LIST     *                PB.TAG      TAG OF BSS                                          LIST         776     A     
 LIST     *                PB.BIAS     NUMBER OF BSS                                       LIST         777     A     
 LIST     *         CALLS  KTX,KTY,PVF                                                     LIST         778     A     
 LIST     *         USES   ALL BUT X0,A5,X5,A0                                             LIST         779     A     
 LIST                                                                                      LIST         780     A     
 LIST                                                                                      LIST         781     A     
 LIST      PBS      SUBR               ENTRY/EXIT...                                       LIST         782     A     
 LIST               MX7    -PB.BIASL                                                       LIST         783     A     
 LIST               MX6    -PB.TAGL                                                        LIST         784     A     
 LIST               LX1    -PB.BIASP                                                       LIST         785     A     
 LIST               BX3    -X7*X1      BSS COUNT = BIAS [INSTRUCTION]                      LIST         786     A     
 LIST               LX1    PB.BIASP-PB.TAGP                                                LIST         787     A     
 LIST               BX4    -X6*X1      BSS TAG = TAG [INSTRUCTION]                         LIST         788     A     
 LIST               RJ     KTY         CONVERT BSS COUNT TO DPC                            LIST         789          I
          -FC5A281
 LIST               KTY                CONVERT BSS COUNT                                   FC5A281       40     A     
 LIST               SA6    PBSA+1                                                          LIST         790     A     
 LIST               SA2    =1H                                                             LIST         791     A     
 LIST               BX6    X2                                                              LIST         792     A     
 LIST               LX3    X4                                                              LIST         793     A     
 LIST               ZR     X4,PBS10    IF TAGI .EQ. 0    (NO TAG)                          LIST         794     A     
 LIST               RJ     KTX         CONVERT TAG TO EXTERNAL REPRESENTATION              LIST         795     A     
 LIST               BX1    X6                                                              LIST         796     A     
 LIST               CALL   SFN         SPACE FILL                                          LIST         797     A     
 LIST      PBS10    LX6    -6                                                              LIST         798     A     
 LIST               BX7    0           INDICATE NO OCTAL                                   LIST         799     A     
 LIST               SB5    A6-B1                                                           LIST         800     A     
 LIST               SA7    OL=RL                                                           LIST         801     A     
 LIST               SA6    LINEBUF+4                                                       LIST         802     A     
 LIST               RJ     PLL         PUBLISH LISTING LINE                                LIST         803     A     
 LIST               EQ     EXIT.                                                           LIST         804     A     
 LIST                                                                                      LIST         805     A     
 LIST      PBSA     DATA   7LBSS                                                           LIST         806     A     
 LIST               DATA   1L0                                                             LIST         807     A     
 LIST               DATA   0                                                               LIST         808     A     
 LIST      PVF      SPACE  4,10                                                            LIST         809     A     
 LIST     **        PVF -  PACK VARIABLE FIELD FOR LISTING.                                LIST         810     A     
 LIST     *         ENTRY  X2 = (A2) = (FWA OF ITEMS TO BE PACKED)                         LIST         811     A     
 LIST     *                X6 = LABEL FIELD TO BE WRITTEN                                  LIST         812     A     
 LIST     *                X3 = 7R]OP-FIELD                                                LIST         813     A     
 LIST     *                ITEMS ARE IN 0L FORMAT, TERMINATED BY A ZERO WORD               LIST         814     A     
 LIST     *         USES   ALL BUT A0,A5,X5,X0                                             LIST         815     A     
 LIST                                                                                      LIST         816     A     
 LIST                                                                                      LIST         817     A     
 LIST      PVF      SUBR               ENTRY/EXIT...                                       LIST         818     A     
 LIST               SA1    OL=LBF                                                          LIST         819     A     
 LIST               SA6    X1          STORE LABEL FIELD                                   LIST         820     A     
 LIST               BX6    X3                                                              LIST         821     A     
 LIST               SB2    3*CHAR                                                          LIST         822     A     
 LIST               MX4    -CHAR                                                           LIST         823     A     
 LIST               SB7    A6-B1                                                           LIST         824     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1977    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               ZR     X2,PFV40    IF NOTHING TO PACK                                  LIST         825     A     
 LIST      PVF10    LX2    CHAR                                                            LIST         826     A     
 LIST               SB0    0                                                               LIST         827     A     
 LIST               BX1    -X4*X2                                                          LIST         828     A     
 LIST      PVF20    LX6    CHAR                                                            LIST         829     A     
 LIST               SB2    B2-CHAR                                                         LIST         830     A     
 LIST               LX2    CHAR                                                            LIST         831     A     
 LIST               IX6    X6+X1                                                           LIST         832     A     
 LIST               BX1    -X4*X2      ISOLATE NEXT CHARACTER                              LIST         833     A     
 LIST               NZ     B2,PVF30    IF ASSEMBLY NOT FULL                                LIST         834     A     
 LIST               SA6    A6+B1                                                           LIST         835     A     
 LIST               SB2    10*CHAR                                                         LIST         836     A     
 LIST               BX6    0                                                               LIST         837     A     
 LIST      PVF30    NZ     X1,PVF20    IF MORE CHARACTERS                                  LIST         838     A     
 LIST               SA2    A2+B1                                                           LIST         839     A     
 LIST               SA3    =1H                                                             LIST         840     A     
 LIST               NZ     X2,PVF10    IF MORE ITEMS                                       LIST         841     A     
 LIST               SB3    B2-B1                                                           LIST         842     A     
 LIST               MX7    1                                                               LIST         843     A     
 LIST               AX7    X7,B3                                                           LIST         844     A     
 LIST               BX3    X3*X7       GET DESIRED NO. OF BLANKS                           LIST         845     A     
 LIST               BX6    X6+X3       FILL IN BLANKS                                      LIST         846     A     
 LIST      PFV40    LX6    X6,B2                                                           LIST         847     A     
 LIST               SA6    A6+B1                                                           LIST         848     A     
 LIST               SB3    LINEBUF-1                                                       LIST         849     A     
 LIST               PLINE  LINEBUF,A6-B3                                                   LIST         850     A     
 LIST               EQ     EXIT.                                                           LIST         851     A     
 LIST      PLL      SPACE  4,10                                                            LIST         852     A     
 LIST     **        PLL - PUBLISH LISTING LINE.                                            LIST         853     A     
 LIST     *                                                                                LIST         854     A     
 LIST     *         ENTRY  (B5) -> FIRST ITEM TO ASSEMBLE.                                 LIST         855     A     
 LIST     *                            USUALLY -> LINEBUF+5 = 7L_OPCODE.                   LIST         856     A     
 LIST     *                (LINEBUF+0) = ORIGIN COUNTER.                                   LIST         857     A     
 LIST     *                            .MI. IF ALREADY FORMATTED.                          LIST         858     A     
 LIST     *                (LINEBUF+4) = LABEL FIELD, FORMATTED ALREADY.                   LIST         859     A     
 LIST     *                (OL=LBF) = ADDRESS IN LINEBUF OF LABEL FIELD (FOR PW).          LIST         860     A     
 LIST     *                (OL=BIN) = FULLWORD BINARY FOR LISTING.                         LIST         861     A     
 LIST     *                (OL=RL) = RELOCATION LISTING INDICATOR --                       LIST         862     A     
 LIST     *                            .ZR. = SUPPRESS OCTAL, BLANK RL.                    LIST         863     A     
 LIST     *                            .NZ. = 1R_F, F = RELOC CHARACTER.                   LIST         864     A     
 LIST     *                                                                                LIST         865     A     
 LIST     *         USES   ALL BUT  A0,X0,  A5,X5.                                         LIST         866     A     
 LIST     *         CALLS  COD, PLINE, PVS, WOD.                                           LIST         867     A     
 LIST                                                                                      LIST         868     A     
 LIST                                                                                      LIST         869     A     
 LIST      PLL      SUBR   0           ENTRY/EXIT...                                       LIST         870     A     
 LIST               SA3    OL=RL                                                           LIST         871     A     
 LIST               SA4    =H/  /                                                          LIST         872     A     
 LIST               BX6    X4                                                              LIST         873     A     
 LIST               SB6    A5          SAVE (A5)                                           LIST         874     A     
 LIST               LX7    X4                                                              LIST         875     A     
 LIST               ZR     X3,PLL5     IF NO OCTAL TRANSLATION                             LIST         876     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1978    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA1    OL=BIN                                                          LIST         877     A     
 LIST               CALL   WOD                                                             LIST         878     A     
 LIST      PLL5     SA3    OL=RL                                                           LIST         879     A     
 LIST               SA6    LINEBUF+1   (LINEBUF+1, +2) = OCTAL                             LIST         880     A     
 LIST               SA7    A6+B1                                                           LIST         881     A     
 LIST               SX6    1R                                                              LIST         882     A     
 LIST               SA5    B6          RESTORE (A5)                                        LIST         883     A     
 LIST               SA6    A3                                                              LIST         884     A     
 LIST               ZR     X3,PLL6     IF NO RELOCATION                                    LIST         885     A     
 LIST               SX6    X3+                                                             LIST         886     A     
 LIST      PLL6     SA4    =9L                                                             LIST         887     A     
 LIST               SA3    LINEBUF+4                                                       LIST         888     A     
 LIST               IX7    X4+X6       (LINEBUF+3) = RELOCATION                            LIST         889     A     
 LIST               SA1    OL=LBF                                                          LIST         890     A     
 LIST               SA2    B5                                                              LIST         891     A     
 LIST               LX7    -2*6                                                            LIST         892     A     
 LIST               BX6    X3          SET STORE AT (LINEBUF+4)                            LIST         893     A     
 LIST               SA7    A7+B1                                                           LIST         894     A     
 LIST               SA6    X1                                                              LIST         895     A     
 LIST               RJ     PVS         PACK VARIABLE STRINGS                               LIST         896     A     
 LIST               SA1    LINEBUF                                                         LIST         897     A     
 LIST               SB3    A6+B1       (B3) = LWA+1 OF PACKED LINE                         LIST         898     A     
 LIST               SB6    A1                                                              LIST         899     A     
 LIST               MI     X1,PLL8     IF ORIGIN ALREADY FORMATTED                         LIST         900     A     
 LIST               CALL   COD                                                             LIST         901     A     
 LIST               LX6    2*6                                                             LIST         902     A     
 LIST               SA6    A1          SET (ORIGIN) IN LINEBUF+0                           LIST         903     A     
 LIST      PLL8     PLINE  B6,B3-B6                                                        LIST         904     A     
 LIST               EQ     EXIT.                                                           LIST         905     A     
 LIST      PVS      SPACE  4,10                                                            LIST         906     A     
 LIST     **        PVS - PACK VARIABLE STRINGS.                                           LIST         907     A     
 LIST     *                                                                                LIST         908     A     
 LIST     *         ENTRY  (A2,X2) = FIRST ITEM.                                           LIST         909     A     
 LIST     *                (A6) -> LAST WORD STORED.                                       LIST         910     A     
 LIST     *                ITEMS ARE IN 0L FORMAT, TERMINATED BY A ZERO WORD               LIST         911     A     
 LIST     *                                                                                LIST         912     A     
 LIST     *         EXIT   (A6) -> LAST WORD STORED (BLANK FILLED).                        LIST         913     A     
 LIST     *         USES   ALL BUT A0,A5,X5,X0                                             LIST         914     A     
 LIST                                                                                      LIST         915     A     
 LIST                                                                                      LIST         916     A     
 LIST      PVS      SUBR               ENTRY/EXIT...                                       LIST         917     A     
 LIST               SB2    10*6        INDICATE ACCUMULATOR EMPTY                          LIST         918     A     
 LIST               MX4    -CHAR                                                           LIST         919     A     
 LIST               BX6    0                                                               LIST         920     A     
 LIST               ZR     X2,EXIT.    IF NOTHING TO PACK                                  LIST         921     A     
 LIST      PVS10    LX2    CHAR                                                            LIST         922     A     
 LIST               SB0    +                                                               LIST         923     A     
 LIST               BX1    -X4*X2                                                          LIST         924     A     
 LIST      PVS20    LX6    6                                                               LIST         925     A     
 LIST               BX2    X2-X1       REMOVE CHAR FROM SOURCE                             LIST         926     A     
 LIST               SB2    B2-6                                                            LIST         927     A     
 LIST               LX2    6                                                               LIST         928     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1979    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               IX6    X6+X1                                                           LIST         929     A     
 LIST               BX1    -X4*X2      ISOLATE NEXT CHARACTER                              LIST         930     A     
 LIST               NZ     B2,PVS30    IF ASSEMBLY NOT FULL                                LIST         931     A     
 LIST               SA6    A6+B1                                                           LIST         932     A     
 LIST               SB2    10*6                                                            LIST         933     A     
 LIST               BX6    0                                                               LIST         934     A     
 LIST      PVS30    NZ     X2,PVS20    IF SOURCE NOT EMPTY                                 LIST         935     A     
 LIST               MI     X2,PVS20    IF SOURCE WORD ALL SEMICOLONS                       LIST         936     A     
 LIST               SA2    A2+B1                                                           LIST         937     A     
 LIST               SB3    B2-B1                                                           LIST         938     A     
 LIST               NZ     X2,PVS10    IF MORE ITEMS                                       LIST         939     A     
 LIST               MX7    1                                                               LIST         940     A     
 LIST               SA3    =1H                                                             LIST         941     A     
 LIST               AX7    X7,B3                                                           LIST         942     A     
 LIST               BX3    X3*X7       GET DESIRED NO. OF BLANKS                           LIST         943     A     
 LIST               BX6    X6+X3       FILL IN BLANKS                                      LIST         944     A     
 LIST               LX6    X6,B2                                                           LIST         945     A     
 LIST               SA6    A6+B1                                                           LIST         946     A     
 LIST               EQ     EXIT.                                                           LIST         947     A     
 LIST      VFD      SPACE  4,10                                                            FC5A171A     359     A     
 LIST     **        VFD - VARIABLE FIELD DEFINITION.                                       FC5A171A     360     A     
 LIST     *                                                                                FC5A171A     361     A     
 LIST     *                                                                                FC5A171A     362     A     
 LIST     *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL            FC5A171A     363     A     
 LIST     *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.                  FC5A171A     364     A     
 LIST     *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY--         FC5A171A     365     A     
 LIST     *                                                                                FC5A171A     366     A     
 LIST     *         POS    (B4)   IN (X1)                                                  FC5A171A     367     A     
 LIST     *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1)         FC5A171A     368     A     
 LIST     *                                                                                FC5A171A     369     A     
 LIST     *         E.G.   (B4) = 45   POSITION COUNTER                                    FC5A171A     370     A     
 LIST     *                (B5) = 30   NR OF BITS                                          FC5A171A     371     A     
 LIST     *                                                                                FC5A171A     372     A     
 LIST     *                BINARY      76211031100015620310                                FC5A171A     373     A     
 LIST     *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))              FC5A171A     374     A     
 LIST     *                                                                                FC5A171A     375     A     
 LIST     *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                            FC5A171A     376     A     
 LIST     *                (B4)  =  POSITION COUNTER                                       FC5A171A     377     A     
 LIST     *                (B5)  =  NR OF BITS IN FIELD                                    FC5A171A     378     A     
 LIST     *                                                                                FC5A171A     379     A     
 LIST     *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT          FC5A171A     380     A     
 LIST     *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT          FC5A171A     381     A     
 LIST     *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,                 FC5A171A     382     A     
 LIST     *                            ELSE .NZ.                                           FC5A171A     383     A     
 LIST     *                                                                                FC5A171A     384     A     
 LIST     *         USES   X - 0,1,2,3,4,6,7                                               FC5A171A     385     A     
 LIST     *                A - NONE                                                        FC5A171A     386     A     
 LIST     *                B - 6                                                           FC5A171A     387     A     
 LIST     *                                                                                FC5A171A     388     A     
 LIST     *         CALLS  NONE                                                            FC5A171A     389     A     
 LIST                                                                                      FC5A171A     390     A     
 LIST                                                                                      FC5A171A     391     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1980    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      VFD      SUBR   =           ** ENTRY/EXIT **                                    FC5A171A     392     A     
 LIST               MX3    0                                                               FC5A171A     393     A     
 LIST               BX0    X0-X0                                                           FC5A171A     394     A     
 LIST               SB6    B5-1                                                            FC5A171A     395     A     
 LIST               LT     B4,B0,EXIT. IF POS COUNT IS BAD                                 FC5A171A     396     A     
 LIST               LT     B5,B0,EXIT. IF BIT COUNT IS BAD                                 FC5A171A     397     A     
 LIST               MX0    -3                                                              FC5A171A     398     A     
 LIST               ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                          FC5A171A     399     A     
 LIST               MX3    1                                                               FC5A171A     400     A     
 LIST               AX3    X3,B6                                                           FC5A171A     401     A     
 LIST               NO                                                                     FC5A171A     402     A     
 LIST               LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT             FC5A171A     403     A     
 LIST               BX1    X3*X1                                                           FC5A171A     404     A     
 LIST                                                                                      FC5A171A     405     A     
 LIST      VFD2     MX6    0                                                               FC5A171A     406     A     
 LIST               BX7    X7-X7                                                           FC5A171A     407     A     
 LIST               SB6    60                                                              FC5A171A     408     A     
 LIST                                                                                      FC5A171A     409     A     
 LIST     *         ASSEMBLE APPROPRIATE DIGITS.                                           FC5A171A     410     A     
 LIST                                                                                      FC5A171A     411     A     
 LIST      VFD3     LX1    3                                                               FC5A171A     412     A     
 LIST               BX2    -X0*X1                                                          FC5A171A     413     A     
 LIST               LX3    3                                                               FC5A171A     414     A     
 LIST               BX4    -X0*X3                                                          FC5A171A     415     A     
 LIST               SX2    X2+1R0                                                          FC5A171A     416     A     
 LIST               SB6    B6-6                                                            FC5A171A     417     A     
 LIST               NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                          FC5A171A     418     A     
 LIST               SX2    1R                                                              FC5A171A     419     A     
 LIST                                                                                      FC5A171A     420     A     
 LIST      VFD4     LX2    X2,B6                                                           FC5A171A     421     A     
 LIST               BX7    X7+X2                                                           FC5A171A     422     A     
 LIST               GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                        FC5A171A     423     A     
 LIST                                                                                      FC5A171A     424     A     
 LIST     *         HERE IF PACKING REGISTER (X7) IS FULL.                                 FC5A171A     425     A     
 LIST                                                                                      FC5A171A     426     A     
 LIST               SB6    60                                                              FC5A171A     427     A     
 LIST               NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD                  FC5A171A     428     A     
 LIST               BX6    X7                                                              FC5A171A     429     A     
 LIST               MX7    0                                                               FC5A171A     430     A     
 LIST               EQ     VFD3                                                            FC5A171A     431     A     
 LIST      WAP      SPACE  4,10                                                            LIST         948     A     
 LIST     **        WAP -  LIST AP-LISTS ACTUALLY COMPILED.                                LIST         949     A     
 LIST     *                CALLED FROM *LI=APL* AND *LI=IOM*.                              LIST         950     A     
 LIST     *                                                                                LIST         951     A     
 LIST     *         ENTRY  (B6) = APL/ IOAP INDICATOR, .EQ. 0 IF APL, .EQ. 1               LIST         952     A     
 LIST     *                       IF IO AP-LISTS.                                          LIST         953     A     
 LIST     *                (X1) = RJ  WCA/ WIO , ROUTINE TO LIST ONE AP-LIST ITEM          LIST         954     A     
 LIST     *                (X2) = LENGTH OF AP-LIST TABLE TO PRINT                         LIST         955     A     
 LIST     *                T.PTXTR HAS BINARY EQUIVALENT OF AP-LISTS.                      LIST         956     A     
 LIST     *                                                                                LIST         957     A     
 LIST     *         CALLS  ALLOC,SST,KTX,SFN,PLINE,ZWI,PIA,WCA,WIO,WOD                     LIST         958     A     
 LIST     *         CELLS  WAPA,WAPB                                                       LIST         959     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1981    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *                                                                                LIST         960     A     
 LIST     *         (NOTE) CODE ASSUMES T.APL IMMEDIATELY PRECEDES T.IOA,                  LIST         961     A     
 LIST     *                T.API IMMEDIATELY PRECEDES T.IOI.                               LIST         962     A     
 LIST                                                                                      LIST         963     A     
 LIST                                                                                      LIST         964     A     
 LIST      WAP      SUBR   0           ENTRY/EXIT...                                       LIST         965     A     
 LIST               SB3    BN=APL+B6                                                       FC50457       11     A     
 LIST               SA3    B3+F.LBT                                                        FC50457       12     A     
 LIST               LX3    -LB.ORGP                                                        FC50457       13     A     
 LIST               SA0    X3          ORGA = ORG[T.LBT(BN=APL)]                           FC50457       14     A     
 LIST               ERRNZ  18-LB.ORGL                                                      FC50457       15     A     
 LIST               BX6    X1                                                              FC50457       16     A     
 LIST               ZR     X2,EXIT.    IF NO AP-LISTS TO PRINT                             LIST         966     A     
 LIST               BX6    X1                                                              LIST         967          I
          -FC50457
 LIST               AX4    X2,B6                                                           LIST         968     A     
 LIST               ERRNZ  2-Z=IOA                                                         LIST         969     A     
 LIST               SA6    WAP.RJ                                                          LIST         970     A     
 LIST               SB3    BN=APL+B6                                                       LIST         971          I
          -FC50457
 LIST               SA3    B3+F.LBT                                                        LIST         972          I
          -FC50457
 LIST               SB5    X4                                                              LIST         973     A     
 LIST               LX3    -LB.ORGP                                                        LIST         974          I
          -FC50457
 LIST               SA0    X3          ORGA =ORG [T.LBT(BN=APL)] (TRANCATED TO 18)         LIST         975          I
          -FC50457
 LIST               SA2    T=API+B6                                                        LIST         976     A     
 LIST               SHRINK T=SCR                                                           LIST         977     A     
 LIST               ALLOC  T.SCR,X2                                                        LIST         978     A     
 LIST               SA3    T.API+B6                                                        LIST         979     A     
 LIST               =B4    1           APLIND = 1                                          LIST         980     A     
 LIST               SB2    X2-1        LEN = (T=API) - 1                                   LIST         981     A     
 LIST               SA4    X3          APA = FWA(T.API)                                    LIST         982     A     
 LIST               SX6    A0+B5       LWAAPL = ORG + (T=APL)                              LIST         983     A     
 LIST               LX6    PS.RAP                                                          LIST         984     A     
 LIST               SA2    T.APL+B6                                                        LIST         985     A     
 LIST               MX7    -WC.RAL                                                         LIST         986     A     
 LIST               SA6    X1          FWA(T.SCR) = LWAAPL                                 LIST         987     A     
 LIST               SA5    X2          ORGAPI = FWA(T.APL)                                 LIST         988     A     
 LIST                                                                                      LIST         989     A     
 LIST     *         FORM TEMPORARY AP TAG TABLE AS PS. AND STORE IN T.SCR.                 LIST         990     A     
 LIST     *         FOR I = 1,(T=API/T=IOI)                                                LIST         991     A     
 LIST     *                RA[PS.] = RA[API],  ORD[PS.] = I.                               LIST         992     A     
 LIST                                                                                      LIST         993     A     
 LIST      WAP10    =A4    A4+1        APA = APA + 1, API = (APA)                          LIST         994     A     
 LIST               SX3    B4                                                              LIST         995     A     
 LIST               LE     B2,WAP20    IF LEN .LE. 0                                       LIST         996     A     
 LIST               =B2    B2-1        LEN = LEN - 1                                       LIST         997     A     
 LIST               LX4    -WC.RAP                                                         LIST         998     A     
 LIST               BX6    -X7*X4      RAI = RA[API]                                       LIST         999     A     
 LIST               LX6    PS.RAP                                                          LIST        1000     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1982    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               LX3    PS.ORDP                                                         LIST        1001     A     
 LIST               BX6    X6+X3                                                           LIST        1002     A     
 LIST               SA6    X1+B4       T.SCR(APIND) = (RAI,APIND) [PS.]                    LIST        1003     A     
 LIST               =B4    B4+1        APIND = APIND + 1                                   LIST        1004     A     
 LIST               EQ     WAP10       LOOP..                                              LIST        1005     A     
 LIST                                                                                      LIST        1006     A     
 LIST     *         SORT T.SCR IN ASCENDING ORDER OF RA[PS.].                              LIST        1007     A     
 LIST                                                                                      LIST        1008     A     
 LIST      WAP20    SB7    X1          (B7) = FWA(T.SCR) FOR SORT                          LIST        1009     A     
 LIST               SX1    B4          (X1) = LENGTH FOR SORT                              LIST        1010     A     
 LIST               CALL   SST         SORT T.SCR                                          LIST        1011     A     
 LIST                                                                                      LIST        1012     A     
 LIST     *         BEGIN LISTING NEXT GROUP OF APL'S.                                     LIST        1013     A     
 LIST     *         (A5,X5) = ORGAPI                                                       LIST        1014     A     
 LIST     *         (B6) = APL/ IO-APL INDICATOR                                           LIST        1015     A     
 LIST     *         (A0) = ORGA                                                            LIST        1016     A     
 LIST                                                                                      LIST        1017     A     
 LIST      WAP30    SA1    T.SCR                                                           LIST        1018     A     
 LIST               SA2    T=SCR                                                           LIST        1019     A     
 LIST               SA3    X1          APA = FWA(T.SCR), API = (APA)                       LIST        1020     A     
 LIST               =X6    X1+1        (T.SCR) = (T.SCR) + 1                               LIST        1021     A     
 LIST               LX3    -PS.RAP     RIGHT JUSTIFY RA FIELD                              LIST        1022     A     
 LIST               SX7    X2-1        (T=SCR) = (T=SCR) - 1                               LIST        1023     A     
 LIST               SA7    A2                                                              LIST        1024     A     
 LIST               ZR     X7,EXIT.    IF END OF LIST                                      LIST        1025     A     
 LIST               SA6    A1                                                              LIST        1026     A     
 LIST               SB4    X3          RAI = RA[API]                                       LIST        1027     A     
 LIST               ERRMI  18-PS.RAL                                                       LIST        1028     A     
 LIST               LX3    PS.RAP-PS.ORDP                                                  LIST        1029     A     
 LIST               SX3    X3          TAGI = TAG[API]                                     LIST        1030     A     
 LIST               ERRMI  18-PS.ORDL                                                      LIST        1031     A     
 LIST               SA2    APTAG+B6    (X2) = K.AP/ K.IO                                   LIST        1032     A     
 LIST               =A4    A3+1        APJ = API + 1                                       LIST        1033     A     
 LIST               LX4    -PS.RAP                                                         LIST        1034     A     
 LIST               SB3    X4          RAJ = RA[APJ]                                       LIST        1035     A     
 LIST               ERRNZ  18-PS.RAL                                                       LIST        1036     A     
 LIST               IX4    X3+X2       ADD PREFIX TO TAG                                   LIST        1037     A     
 LIST               SX0    B3-B4       LENAPI = RAJ - RAI                                  LIST        1038     A     
 LIST               SX1    A0                                                              LIST        1039     A     
 LIST               PIA    ,LINEBUF                                                        LIST        1040     A     
 LIST               BX1    X4                                                              LIST        1041     A     
 LIST               LX1    PB.TAGP                                                         LIST        1042     A     
 LIST               SX6    B6                                                              LIST        1043     A     
 LIST               SA6    WAPA        (WAPA) = (B6)                                       LIST        1044     A     
 LIST               RJ     PBS         PRINT *  TAG  BSS  0*                               LIST        1045     A     
 LIST               SA1    WAPA                                                            LIST        1046     A     
 LIST               SB6    X1+         RESTORE (B6)                                        LIST        1047     A     
 LIST               ZR     X0,WAP30    IF LENAPI.EQ.0 (NEXT TAG AT SAME PLACE)             LIST        1048     A     
 LIST                                                                                      LIST        1049     A     
 LIST     *         LIST NEXT APL ITEM IN THIS GROUP.                                      LIST        1050     A     
 LIST     *         (X0) = LENAPI                                                          LIST        1051     A     
 LIST                                                                                      LIST        1052     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1983    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      WAP40    SA3    T.PTXTR                                                         LIST        1053     A     
 LIST               =X6    X3+1                                                            LIST        1054     A     
 LIST               SA1    X3                                                              LIST        1055     A     
 LIST               SA6    A3          FWA(T.PTXTR) = FWA(T.PTXTR) + 1                     LIST        1056     A     
 LIST               SB5    X0          SAVE (B5) = (X0)                                    LIST        1057     A     
 LIST               SB2    A5          SAVE (B2) = (A5)                                    LIST        1058     A     
 LIST               CALL   WOD         CONVERT BINARY TO DPC                               LIST        1059     A     
 LIST               SA6    LINEBUF+1                                                       LIST        1060     A     
 LIST               SA7    LINEBUF+2                                                       LIST        1061     A     
 LIST               SX1    A0                                                              LIST        1062     A     
 LIST               PIA    ,A6-B1                                                          LIST        1063     A     
 LIST               SA5    B2          RESTORE (A5)                                        LIST        1064     A     
 LIST               SA1    A5                                                              LIST        1065     A     
 LIST               SX0    B5          RESTORE (X0)                                        LIST        1066     A     
 LIST               NZ     X1,WAP50    IF NOT +/- 0                                        LIST        1067     A     
 LIST               SA3    =10H                                                            LIST        1068     A     
 LIST               RJ     ZWI         PRINT ZERO WORD ITEM                                LIST        1069     A     
 LIST               EQ     WAP90                                                           LIST        1070     A     
 LIST                                                                                      LIST        1071     A     
 LIST      WAP50    BSS    0                                                               LIST        1072     A     
 LIST      WAP.RJ   RJ     **          CALL  WCA/ WIO TO LIST ONE AP-LIST                  LIST        1073     A     
 LIST                                                                                      LIST        1074     A     
 LIST      WAP90    SA1    WAPA                                                            LIST        1075     A     
 LIST               SA2    =10H                                                            LIST        1076     A     
 LIST               SB6    X1          RESTORE (B6)                                        LIST        1077     A     
 LIST               SB3    B6+B1                                                           LIST        1078     A     
 LIST               BX6    X2                                                              LIST        1079     A     
 LIST               SETMEM LINEBUF+1,4,X6    BLANK FILL                                    LIST        1080     A     
 LIST               ERRNZ  2-Z=IOA                                                         LIST        1081     A     
 LIST               SA5    A5+B3       ORGAPI = ORGAPI + Z=APL /Z=IOA                      LIST        1082     A     
 LIST               SA0    A0+B1       ORGA = ORGA + 1                                     LIST        1083     A     
 LIST               SX0    X0-1        LENAPI = LENAPI - 1                                 LIST        1084     A     
 LIST               NZ     X0,WAP40    IF MORE ITEMS IN THIS AP-LIST                       LIST        1085     A     
 LIST               EQ     WAP30                                                           LIST        1086     A     
 LIST                                                                                      LIST        1087     A     
 LIST      WAPA     BSS    1                                                               LIST        1088     A     
 LIST      WCA.RJ   RJ     WCA                                                             LIST        1089     A     
 LIST      WIO.RJ   RJ     WIO                                                             LIST        1090     A     
 LIST      WCA      SPACE  4,10                                                            LIST        1091     A     
 LIST     **        WCA - LIST ONE AP-LIST.                                                LIST        1092     A     
 LIST     *                LIST SUB MACRO ALSO IF FP[WBI] .EQ. 1.                          LIST        1093     A     
 LIST     *                                                                                LIST        1094     A     
 LIST     *         LISTS: AP.N        APL   TAG+BIAS,BCP,CLEN (IF LCM[WBI].EQ.0)          LIST        1095     A     
 LIST     *                LC.N        LAP   TAG+BIAS,BCP,CLEN (IF LCM[WBI].EQ.1)          LIST        1096     A     
 LIST     *         ENTRY  (X1) = T.APL ENTRY                                              LIST        1097     A     
 LIST     *         USES   ALL BUT A5,X0,B6                                                LIST        1098     A     
 LIST     *         CALLS  KTX,KTY,PVF,WSM                                                 LIST        1099     A     
 LIST                                                                                      LIST        1100     A     
 LIST                                                                                      LIST        1101     A     
 LIST      WCA      SUBR               ENTRY/EXIT.                                         LIST        1102     A     
 LIST               BX5    X1                                                              LIST        1103     A     
 LIST               MX6    0                                                               LIST        1104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1984    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA6    WCA.10+4    (WCA.10+4) = 0                                      LIST        1105     A     
 LIST               MX7    -IA.TAGL                                                        LIST        1106     A     
 LIST               HX1    IA.CRH                                                          LIST        1107     A     
 LIST               LX5    -IA.TAGP                                                        LIST        1108     A     
 LIST               SB5    B0          PSNAM = *APL*                                       LIST        1109     A     
 LIST               BX3    -X7*X5      TAGI = TAG[API]                                     LIST        1110     A     
 LIST               BX4    X3                                                              LIST        1111     A     
 LIST               MI     X1,WCA90    IF CHARACTER RELATIONAL HEADER                      LIST        1112     A     
 LIST               RJ     KTX         CONVERT TAGI TO EXTERNAL FORM                       LIST        1113     A     
 LIST               MX2    -IA.MODEL                                                       LIST        1114     A     
 LIST               SA6    WCA.10+2    (WCA.10+2) = TAG                                    LIST        1115     A     
 LIST               LX5    IA.TAGP-IA.MODEP                                                LIST        1116     A     
 LIST               BX7    -X2*X5      TYPE = MODE[API]                                    LIST        1117     A     
 LIST               LX7    OA.TYPP                                                         LIST        1118     A     
 LIST               MX1    0           INDICATE NON LCM AND NON FP                         LIST        1119     A     
 LIST               MX6    -PB.ORDL                                                        LIST        1120     A     
 LIST               BX6    X6*X4       PFXI = PFX[TAGI]                                    LIST        1121     A     
 LIST               NZ     X6,WCA15    IF PFXI .NE. K=SYM                                  LIST        1122     A     
 LIST               ERRNZ  K=SYM                                                           LIST        1123     A     
 LIST               SA3    T.SYM                                                           LIST        1124     A     
 LIST               =B2    X3+WB.W                                                         LIST        1125     A     
 LIST               LX6    X4,B1                                                           LIST        1126     A     
 LIST               IX6    X4+X6       STIND = 3 * TAGI                                    LIST        1127     A     
 LIST               ERRNZ  3-Z=SYM                                                         LIST        1128     A     
 LIST               SX1    B1                                                              LIST        1129     A     
 LIST               SA2    X6+B2       WBI = T.SYM(STIND)+WB.W                             LIST        1130     A     
 LIST               LX2    -WB.LCMP                                                        LIST        1131     A     
 LIST               BX1    X1*X2       LCMI = LCM[WBI]                                     LIST        1132     A     
 LIST               SB5    X1          REMEMBER (B5) = LCMI                                LIST        1133     A     
 LIST               LX1    OA.LCMP                                                         LIST        1134     A     
 LIST               LX2    WB.LCMP-1-WB.FPP                                                LIST        1135     A     
 LIST      WCA15    BX6    X7+X1                                                           LIST        1136     A     
 LIST               SA6    WCA.10      (WCA.10) = (LCM,MODEI) [OA.]                        LIST        1137     A     
 LIST                                                                                      LIST        1138     A     
 LIST               BX3    X5                                                              LIST        1139     A     
 LIST               LX5    IA.MODEP-1-IA.STP                                               LIST        1140     A     
 LIST               LX3    IA.MODEP-IA.BIASP                                               LIST        1141     A     
 LIST               MI     X5,WCA95    IF ST[API] .EQ. 1                                   LIST        1142     A     
 LIST               MX7    -IA.BIASL                                                       LIST        1143     A     
 LIST               BX3    -X7*X3      BIASI = BIAS[API]                                   LIST        1144     A     
 LIST               LX5    IA.STP-IA.CHARP                                                 LIST        1145     A     
 LIST               MI     X5,WCA20    IF CHARACTER                                        LIST        1146     A     
 LIST                                                                                      LIST        1147     A     
 LIST     *         IF TAGI IS (S=RD), REPLACE BIAS BY ITS DIMENSION                       LIST        1148     A     
 LIST     *         HEADER RA.                                                             LIST        1149     A     
 LIST     *         (X4) = TAGI                                                            LIST        1150     A     
 LIST                                                                                      LIST        1151     A     
 LIST               SA2    S=RD                                                            LIST        1152     A     
 LIST               SA1    T.DIM                                                           LIST        1153     A     
 LIST               IX7    X2-X4                                                           LIST        1154     A     
 LIST               SB2    X1          +DH.W                                               LIST        1155     A     
 LIST               NZ     X7,WCA40    IF TAGI .NE. S=RD                                   LIST        1156     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1985    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA3    X3+B2       DHI = T.DIM(BIASI) + DH.W                           LIST        1157     A     
 LIST               HX3    DH.RA                                                           LIST        1158     A     
 LIST               AX3    -DH.RAL     BIASI = RA[DHI]                                     LIST        1159     A     
 LIST               EQ     WCA40                                                           LIST        1160     A     
 LIST                                                                                      LIST        1161     A     
 LIST     *         HANDLE CHARACTER APLIST HERE.                                          LIST        1162     A     
 LIST                                                                                      LIST        1163     A     
 LIST      WCA20    PL     X2,WCA35    IF NOT F.P.                                         LIST        1164     A     
 LIST               MX7    0                                                               LIST        1165     A     
 LIST               SA7    SAVFP       DISABLE *SUB*                                       LIST        1166     A     
 LIST               SA4    WCA.10                                                          LIST        1167     A     
 LIST               MX6    1                                                               LIST        1168     A     
 LIST               BX6    X6*X2       FPI = FP[WBI]                                       LIST        1169     A     
 LIST               LX6    1+OA.FPP                                                        LIST        1170     A     
 LIST               BX6    X6+X4                                                           LIST        1171     A     
 LIST               SA6    A4          FP[WCA.10] = FPI                                    LIST        1172     A     
 LIST               MX7    -WB.FPNOL                                                       LIST        1173     A     
 LIST               LX2    1+WB.FPP-WB.FPNOP                                               LIST        1174     A     
 LIST               BX4    -X7*X2      FPNOI = FPNO[WBI]                                   LIST        1175     A     
 LIST               RJ     KTY                                                             LIST        1176          I
          -FC5A281
 LIST               KTY                CONVERT FPNO                                        FC5A281       41     A     
 LIST               SA6    WCA.10+2    (WCA.10+2) = BIASI                                  LIST        1177     A     
 LIST               =X3    X4-1        FPNOI = FPNOI - 1                                   LIST        1178     A     
 LIST               EQ     WCA40                                                           LIST        1179     A     
 LIST                                                                                      LIST        1180     A     
 LIST      WCA35    SA2    T.CAC                                                           LIST        1181     A     
 LIST               MX7    -WC.CLENL                                                       LIST        1182     A     
 LIST               MX1    -WC.BCPL                                                        LIST        1183     A     
 LIST               SB2    X2                                                              LIST        1184     A     
 LIST               SA3    X3+B2       CACI = T.CAC(BIASI)                                 LIST        1185     A     
 LIST               BX5    X3                                                              LIST        1186     A     
 LIST               LX5    -WC.BCPP                                                        LIST        1187     A     
 LIST               BX3    -X1*X5      BCPI = BCP[CACI]                                    LIST        1188     A     
 LIST               LX5    WC.BCPP-WC.CLENP                                                LIST        1189     A     
 LIST               BX4    -X7*X5      CLENI = CLEN[CACI]                                  LIST        1190     A     
 LIST               RJ     KTY         CONVERT BCPI TO DPC                                 LIST        1191          I
          -FC5A281
 LIST               KTY                CONVERT BCPI                                        FC5A281       42     A     
 LIST               SA1    =1L,                                                            LIST        1192     A     
 LIST               BX7    X1                                                              LIST        1193     A     
 LIST               SA6    WCA.10+5    (WCA.10+5) = BCP                                    LIST        1194     A     
 LIST               SA7    A6-B1       (WCA.10+4) = SLASH                                  LIST        1195     A     
 LIST               BX3    X4                                                              LIST        1196     A     
 LIST               RJ     KTY         CONVERT CLENI TO DPC                                LIST        1197          I
          -FC5A281
 LIST               KTY                CONVERT CLEN                                        FC5A281       43     A     
 LIST               MX1    -IA.BIASL                                                       LIST        1198     A     
 LIST               LX5    WC.CLENP-WC.RAP                                                 LIST        1199     A     
 LIST               BX3    -X1*X5      BIASI = RA[CACI], TRUNCATED TO IA.BIASL             LIST        1200     A     
 LIST               SA6    WCA.10+7    (WCA.10+7) = CLEN                                   LIST        1201     A     
 LIST                                                                                      LIST        1202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1986    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *         NON CHARACTER APLIST.                                                  LIST        1203     A     
 LIST     *         (X3) = BIASI                                                           LIST        1204     A     
 LIST                                                                                      LIST        1205     A     
 LIST      WCA40    RJ     KTY         CONVERT BIAS TO EXTERNAL FORM                       LIST        1206          I
          -FC5A281
 LIST      WCA40    KTY    24          CONVERT BIAS                                        FC5A281       44     A     
 LIST               MI     X3,WCA60    IF BIAS IS NEGATIVE                                 LIST        1207     A     
 LIST               SX1    1R+         PREFIX A PLUS                                       LIST        1208     A     
 LIST               BX6    X6+X1                                                           LIST        1209     A     
 LIST               LX6    -CHAR                                                           LIST        1210     A     
 LIST      WCA60    SA6    WCA.10+3    (WCA.10+3) = BIAS                                   LIST        1211     A     
 LIST                                                                                      LIST        1212     A     
 LIST      WCA80    SA1    WCA.10                                                          LIST        1213     A     
 LIST               RJ     KUB         CONVERT UPPER 12 BITS                               LIST        1214     A     
 LIST               SA7    A1                                                              LIST        1215     A     
 LIST               SA2    =10H                                                            LIST        1216     A     
 LIST               SA3    B5+APLAB    7RAPL OR 7RLAP                                      LIST        1217     A     
 LIST               BX6    X2                                                              LIST        1218     A     
 LIST               SA2    WCA.10                                                          LIST        1219     A     
 LIST               RJ     PVF         PACK VARIABLE FIELD                                 LIST        1220     A     
 LIST               SA4    WCA.10+3                                                        LIST        1221     A     
 LIST               RJ     WSM         WRITE SUB MACRO                                     LIST        1222     A     
 LIST               EQ     EXIT.                                                           LIST        1223     A     
 LIST                                                                                      LIST        1224     A     
 LIST     *         LIST CHARACTER RELATIONAL HEADER.                                      LIST        1225     A     
 LIST                                                                                      LIST        1226     A     
 LIST      WCA90    RJ     KTY         CONVERT LEFT (TAGI) TO DPC                          LIST        1227          I
          -FC5A281
 LIST      WCA90    KTY                CONVERT LEFT TAGI                                   FC5A281       45     A     
 LIST               ERRNZ  IA.LEFTP-IA.TAGP                                                LIST        1228     A     
 LIST      .T       IFEQ   TEST,ON,1                                                       LIST        1229     A     
 LIST               MI     X3,"BLOWUP" LEFT SHOULD NEVER BE .LT. 0                         LIST        1230     A     
 LIST               SA6    WCA.10+2    (WCA.10+2) = LEFT                                   LIST        1231     A     
 LIST               MX1    -IA.RITEL                                                       LIST        1232     A     
 LIST               LX5    IA.TAGP-IA.BIASP                                                LIST        1233     A     
 LIST               BX3    -X1*X5      RITEI = BIAS[API]                                   LIST        1234     A     
 LIST               ERRNZ  IA.RITEP-IA.BIASP                                               LIST        1235     A     
 LIST               RJ     KTY         CONVERT RITE (BIASI) TO DPC                         LIST        1236          I
          -FC5A281
 LIST               KTY    24          CONVERT RITE (BIASI)                                FC5A281       46     A     
 LIST      .T       IFEQ   TEST,ON,1                                                       LIST        1237     A     
 LIST               MI     X3,"BLOWUP" RITE SHOULD NEVER BE .LT. 0                         LIST        1238     A     
 LIST               SX1    1R,                                                             LIST        1239     A     
 LIST               BX6    X6+X1                                                           LIST        1240     A     
 LIST               LX6    -CHAR                                                           LIST        1241     A     
 LIST               SA6    A6+B1       (WCA.10+3) = , BIASI                                LIST        1242     A     
 LIST               SA2    =2LRH                                                           LIST        1243     A     
 LIST               BX7    X2                                                              LIST        1244     A     
 LIST               SA7    WCA.10      (WCA.10) = 'RH'                                     LIST        1245     A     
 LIST               EQ     WCA80                                                           LIST        1246     A     
 LIST                                                                                      LIST        1247     A     
 LIST      WCA95    SA1    =1L,                                                            LIST        1248     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1987    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               MX6    0                                                               LIST        1249     A     
 LIST               BX7    X1                                                              LIST        1250     A     
 LIST               SA7    WCA.10+3    (WCA.10+3) = COMMA                                  LIST        1251     A     
 LIST               SA6    SAVFP       (SAVFP) = 0                                         LIST        1252     A     
 LIST               EQ     WCA80                                                           LIST        1253     A     
 LIST                                                                                      LIST        1254     A     
 LIST      APLAB    DATA   7RAPL                                                           LIST        1255     A     
 LIST               DATA   7RLAP                                                           LIST        1256     A     
 LIST                                                                                      LIST        1257     A     
 LIST      WCA.10   BSS    1           +0    (LCM,FP,MODE)                                 LIST        1258     A     
 LIST               DATA   1L,                                                             LIST        1259     A     
 LIST               BSS    2           +2    TAG+BIAS                                      LIST        1260     A     
 LIST               DATA   1L,                                                             LIST        1261     A     
 LIST               DATA   0           +5    BCP                                           LIST        1262     A     
 LIST               DATA   1L,                                                             LIST        1263     A     
 LIST               BSS    1           +7    CLEN                                          LIST        1264     A     
 LIST               DATA   0                                                               LIST        1265     A     
 LIST               DATA   7RLAP                                                           LIST        1266     A     
 LIST      WCC      SPACE  4,10                                                            LIST        1267     A     
 LIST     **        WCC -  LIST CONSTANT ASSIGNMENTS.                                      LIST        1268     A     
 LIST     *                CALLED FROM *LI=CON*.                                           LIST        1269     A     
 LIST     *                                                                                LIST        1270     A     
 LIST     *         LISTS: TAG         CON   CONSTANT IN OCTAL,CONSTANT IN DPC             LIST        1271          I
          -FC50226
 LIST     *         LISTS  TAG         CON   CONSTANT IN OCTAL DPC                         FC50226        5     A     
 LIST     *                                                                                FC50226        6     A     
 LIST     *         ENTRY  (X1) = SYMORD OF LABEL FOR BLOCK.                               LIST        1272     A     
 LIST     *                (WC.RA[SYMORD]) = OBJECT ORIGIN OF FIRST WORD.                  LIST        1273     A     
 LIST     *                (A5, X5) = FWA BINARY CONSTANTS.                                LIST        1274     A     
 LIST     *                                                                                LIST        1275     A     
 LIST     *         USES   ALL.                                                            LIST        1276     A     
 LIST     *         CALLS  PIA, PLINE, ZTB, ZWI.                                           LIST        1277          I
          -FC50226
 LIST     *                                                                                FC50226        7     A     
 LIST     *         CALLS  MVE=, PIA, WOD, WOF, ZTB                                        FC50226        8     A     
 LIST                                                                                      LIST        1278     A     
 LIST                                                                                      LIST        1279     A     
 LIST      WCC      SUBR   0           ENTRY/EXIT...                                       LIST        1280     A     
 LIST               SA3    A5+N.TABLE                                                      LIST        1281     A     
 LIST               SA2    T.SYM                                                           LIST        1282     A     
 LIST               ZR     X3,EXIT.    IF (TABLE) EMPTY                                    LIST        1283     A     
 LIST               LX6    X1,B1                                                           LIST        1284     A     
 LIST               SA5    X5          (CI, VI) = FIRST CONSTANT                           LIST        1285     A     
 LIST               SA0    X3          LENT = LENGTH OF TABLE                              LIST        1286     A     
 LIST               IX1    X6+X1       STIND = 3 * SYMORD                                  LIST        1287     A     
 LIST               ERRNZ  3-Z=SYM                                                         LIST        1288     A     
 LIST               IX1    X1+X2                                                           LIST        1289     A     
 LIST               MX7    WA.SYML                                                         LIST        1290     A     
 LIST               =A3    X1+WA.W     WAI = T.SYM(STIND)                                  LIST        1291     A     
 LIST               =A4    X1+WC.W                                                         LIST        1292     A     
 LIST               HX3    WA.SYM                                                          LIST        1293     A     
 LIST               BX1    X7*X3       NAMEI = SYM[WAI]                                    LIST        1294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1988    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               CALL   ZTB         ZEROES TO BLANKS                                    LIST        1295     A     
 LIST               LX4    -WC.RAP                                                         LIST        1296     A     
 LIST               MX2    -WC.RAL                                                         LIST        1297     A     
 LIST               BX7    -X2*X4      (WCCF) = ORGA = OBJECT ORIGIN                       LIST        1298     A     
 LIST               SX1    A0                                                              LIST        1299     A     
 LIST               SA7    WCCF                                                            LIST        1300     A     
 LIST               IX7    X1+X7       ORGLAST = ORGA + LENT                               LIST        1301     A     
 LIST               SA7    A7+B1                                                           LIST        1302     A     
 LIST                                                                                      LIST        1303     A     
 LIST      WCC20    LX6    -CHAR                                                           LIST        1304     A     
 LIST               SA6    CC3         (CC3) = LABEL                                       LIST        1305     A     
 LIST               SA1    WCCF                                                            LIST        1306     A     
 LIST               SX7    X1+B1       ORGA = ORGA + 1                                     LIST        1307     A     
 LIST               SA7    A1                                                              LIST        1308     A     
 LIST               PIA    ,LINEBUF    CONVERT ADDRESS TO DISPLAY                          LIST        1309     A     
 LIST               BX1    X5                                                              LIST        1310     A     
 LIST               NZ     X5,WCC30    IF NOT CONSTANT ZERO                                LIST        1311          I
          -FC5A182
 LIST               SA3    CC3         RETRIEVE LABEL FIELD                                LIST        1312          I
          -FC5A182
 LIST               RJ     ZWI         ZERO WORD ITEM                                      LIST        1313          I
          -FC5A182
 LIST               SA5    A5+B1                                                           LIST        1314          I
          -FC5A182
 LIST               EQ     WCC40                                                           LIST        1315          I
          -FC5A182
 LIST                                                                                      LIST        1316          I
          -FC5A182
 LIST      WCC30    SA6    A6-B1                                                           LIST        1317          I
          -FC5A182
 LIST               SA6    A6-B1                                                           FC5A182        5     A     
 LIST               BX7    X5                                                              LIST        1318          I
          -FC50226
 LIST               SB5    A5+B1                                                           LIST        1319     A     
 LIST               SA7    CC8         (CC8) = DPC ECHO OF CON                             LIST        1320          I
          -FC50226
 LIST      .T       IFEQ   TEST,OFF,1                                                      FC50226        9     A     
 LIST               SA5    =H/ /                                                           FC50226       10     A     
 LIST               BX7    X5                                                              FC50226       11     A     
 LIST               SA7    CC8                                                             FC50226       12     A     
 LIST               CALL   WOD         CONVERT CONST TO DPC                                LIST        1321     A     
 LIST               SA5    B5                                                              LIST        1322     A     
 LIST               SA6    CC5         (CC5)  = ABCDEFGHIJ                                 LIST        1323     A     
 LIST               =A7    A6+1        (CC5+1) = KLMNOPQRST                                LIST        1324     A     
 LIST               SA6    CC0                                                             LIST        1325     A     
 LIST               =A7    A6+1                                                            LIST        1326     A     
 LIST               SA1    WCCB        LENGTH OF PRINT LINE                                LIST        1327     A     
 LIST               =A2    A1+1        FWA OF PRINT BUFFER                                 LIST        1328     A     
 LIST               MOVE   X1,X2,LINEBUF+1                                                 LIST        1329     A     
 LIST               SA2    WCCB                                                            LIST        1330     A     
 LIST               PLINE  LINEBUF,X2+B1     PRINT THE LINE                                LIST        1331     A     
 LIST      WCC40    SA2    WCCF                                                            LIST        1332          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1989    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
          -FC5A182
 LIST               SA2    WCCF                                                            FC5A182        6     A     
 LIST               SA3    A2+B1                                                           LIST        1333     A     
 LIST               SA1    =H/ /                                                           LIST        1334     A     
 LIST               IX7    X2-X3       MORE = ORGA .LT. ORGLAST                            LIST        1335     A     
 LIST               BX6    X1                                                              LIST        1336     A     
 LIST               MI     X7,WCC20    IF MORE CONSTANTS                                   LIST        1337     A     
 LIST               EQ     EXIT.                                                           LIST        1338     A     
 LIST                                                                                      LIST        1339     A     
 LIST      CC0      DIS    3,                                                              LIST        1340     A     
 LIST      CC3      DIS    1, LABEL.                                                       LIST        1341     A     
 LIST               DIS    1,CON                                                           LIST        1342     A     
 LIST      CC5      DIS    3,12345678901234567890B                                         LIST        1343     A     
 LIST      CC8      DIS    1, DPC VAL                                                      LIST        1344     A     
 LIST                                                                                      LIST        1345     A     
 LIST      WCCB     BSS    2           LENGTH OF PRINT LINE (PW VS NONPW) AND FWA          LIST        1346     A     
 LIST      WCCF     BSS    2           ORGA, ORGLAST                                       LIST        1347     A     
 LIST      WCE      SPACE  4,10                                                            LIST        1348     A     
 LIST      WCF      SPACE  4,10                                                            LIST        1349     A     
 LIST     **        WCF -  LIST FORMATS.                                                   LIST        1350     A     
 LIST     *                                                                                LIST        1351     A     
 LIST     *         CALLS  PIA,WOD,PLINE                                                   LIST        1352     A     
 LIST                                                                                      LIST        1353     A     
 LIST                                                                                      LIST        1354     A     
 LIST      WCF      SUBR               ENTRY/EXIT...                                       LIST        1355     A     
 LIST               SA2    T=FMT                                                           LIST        1356     A     
 LIST               ZR     X2,EXIT.    IF END OF T.FMT                                     LIST        1357     A     
 LIST               SA3    T.FMT                                                           LIST        1358     A     
 LIST               SA5    X3          FETCH 1ST FORMAT                                    LIST        1359     A     
 LIST               SA0    X2          A0 = LENGTH OF TABLE.                               LIST        1360     A     
 LIST               SB4    B0                                                              LIST        1361     A     
 LIST                                                                                      LIST        1362     A     
 LIST     *         PROCESS 1ST WORD - STATEMENT NUMBER.                                   LIST        1363     A     
 LIST                                                                                      LIST        1364     A     
 LIST      WCF10    SA2    WCFC                                                            LIST        1365     A     
 LIST               MX0    WA.STLL                                                         LIST        1366     A     
 LIST               BX1    X0*X5                                                           LIST        1367     A     
 LIST               LX1    9*CHAR                                                          LIST        1368     A     
 LIST               BX6    X2+X1                                                           LIST        1369     A     
 LIST               SA6    CC3         (CC3) = TAG                                         LIST        1370     A     
 LIST                                                                                      LIST        1371     A     
 LIST     *         PROCESS CONTENTS OF FORMAT.                                            LIST        1372     A     
 LIST                                                                                      LIST        1373     A     
 LIST      WCF20    BX6    X5                                                              LIST        1374     A     
 LIST               SB5    A5                                                              LIST        1375     A     
 LIST               SA6    CC8         +6 = DPC ECHO OF CON                                LIST        1376     A     
 LIST               BX1    X5                                                              LIST        1377     A     
 LIST               CALL   WOD         CONVERT CONTENTS OF WORD TO OCTAL                   LIST        1378     A     
 LIST               SA5    B5+B1                                                           LIST        1379     A     
 LIST               SA4    BN=FMT+F.LBT                                                    LIST        1380     A     
 LIST               SA6    CC5         (CC5)  = ABCDEFGHIJ                                 LIST        1381     A     
 LIST               SA7    A6+B1       (CC5+1) = KLMNOPQRST                                LIST        1382     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1990    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA6    CC0                                                             LIST        1383     A     
 LIST               SA7    A6+B1                                                           LIST        1384     A     
 LIST               SX1    B4+X4                                                           LIST        1385     A     
 LIST               PIA    ,LINEBUF    CONVERT ADDRESS TO DPC                              LIST        1386     A     
 LIST               SA1    WCCB        LENGTH OF PRINT LINE                                LIST        1387     A     
 LIST               SA2    A1+B1       FWA OF BUFFER                                       LIST        1388     A     
 LIST               MOVE   X1,X2,LINEBUF+1                                                 LIST        1389     A     
 LIST               SA2    WCCB                                                            LIST        1390     A     
 LIST               PLINE  LINEBUF,X2+B1                                                   LIST        1391     A     
 LIST               SA1    =1H                                                             LIST        1392     A     
 LIST               MX0    8*CHAR                                                          LIST        1393     A     
 LIST               BX6    X1                                                              LIST        1394     A     
 LIST               BX3    -X0*X5                                                          LIST        1395     A     
 LIST               SA6    CC3         CLEAR TAG WORD                                      LIST        1396     A     
 LIST               SB4    B4+B1                                                           LIST        1397     A     
 LIST               SB3    A0                                                              LIST        1398     A     
 LIST               EQ     B4,B3,EXIT. IF NO MORE FORMATS                                  LIST        1399     A     
 LIST               NZ     X3,WCF20    IF MORE IN CURRENT FORMAT.                          LIST        1400     A     
 LIST               EQ     WCF10       CONTINUE                                            LIST        1401     A     
 LIST                                                                                      LIST        1402     A     
 LIST      WCFC     VFD    CHAR/1R.,WA.STLL/0,24/4R                                        LIST        1403     A     
 LIST      WCL      SPACE  4,10                                                            LIST        1404     A     
 LIST     **        WCL -  WRITE CHARACTER LENGTH ARRAYS.                                  LIST        1405     A     
 LIST     *                                                                                LIST        1406     A     
 LIST     *                CL.         BSS   0                                             LIST        1407     A     
 LIST     *                            CLW   TAG1+BIAS1,TAG2+BIAS2                         LIST        1408     A     
 LIST     *                                                                                LIST        1409     A     
 LIST     *         ENTRY  (A0) = ORIGIN OF (CL.)S.                                        LIST        1410     A     
 LIST     *                T.SCR HAS BINARY REPRESENTATION                                 LIST        1411          I
          -FC5A219
 LIST     *                T.CLWB HAS BINARY REPRESENTATION                                FC5A219       37     A     
 LIST     *                                                                                FC5A219       38     A     
 LIST     *         CALLS  WIO,PIA,WOD                                                     LIST        1412     A     
 LIST                                                                                      LIST        1413     A     
 LIST                                                                                      LIST        1414     A     
 LIST      WCL      SUBR   0           ENTRY/EXIT...                                       LIST        1415     A     
 LIST               SX1    A0                                                              LIST        1416     A     
 LIST               PIA    ,LINEBUF                                                        LIST        1417     A     
 LIST               SA1    S=CL                                                            LIST        1418     A     
 LIST               LX1    PB.TAGP                                                         LIST        1419     A     
 LIST               RJ     PBS         PRINT  * CL.  BSS    0*                             LIST        1420     A     
 LIST               SA1    T.CLW                                                           LIST        1421     A     
 LIST               SA2    T=CLW                                                           LIST        1422     A     
 LIST               SX0    X2                                                              LIST        1423     A     
 LIST               SA5    X1-Z=IOA    CLI = FWA(T.CLW) - Z=IOA                            LIST        1424     A     
 LIST                                                                                      LIST        1425     A     
 LIST     *         PROCESS NEXT ENTRY OF T.CLW.                                           LIST        1426     A     
 LIST                                                                                      LIST        1427     A     
 LIST      WCL10    ZR     X0,EXIT.    IF END OF T.CLW                                     LIST        1428     A     
 LIST               SA4    T.SCR                                                           LIST        1429          I
          -FC5A219
 LIST               SA4    T.CLWB                                                          FC5A219       39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1991    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               =X6    X4+1                                                            LIST        1430     A     
 LIST               SX1    A0                                                              LIST        1431     A     
 LIST               SA6    A4          FWA(T.SCR) = FWA(T.SCR) + 1                         LIST        1432     A     
 LIST               PIA    ,LINEBUF    CONVERT ORGA                                        LIST        1433     A     
 LIST               SA1    X4                                                              LIST        1434     A     
 LIST               SB3    A5          SAVE (B3) = A5                                      LIST        1435     A     
 LIST               SB4    X0          SAVE (B4) = (X0)                                    LIST        1436     A     
 LIST               CALL   WOD         CONVERT BINARY TO DPC                               LIST        1437     A     
 LIST               SA6    LINEBUF+1                                                       LIST        1438     A     
 LIST               =A7    A6+1                                                            LIST        1439     A     
 LIST               SX0    B4          RESTORE (X0)                                        LIST        1440     A     
 LIST               SA5    B3+Z=IOA    CLI = CLI + (Z=IOA)                                 LIST        1441     A     
 LIST               RJ     WIO         PRINT THE LIST                                      LIST        1442     A     
 LIST               =A0    A0+1        ORGA = ORGA + 1                                     LIST        1443     A     
 LIST               SX0    X0-Z=IOA    LEN = LEN - Z=IOA                                   LIST        1444     A     
 LIST               EQ     WCL10                                                           LIST        1445     A     
 LIST      WCS      SPACE  4,10                                                            LIST        1446     A     
 LIST     **        WCS - LIST BLOCK STATISTICS.                                           LIST        1447     A     
 LIST     *                                                                                LIST        1448     A     
 LIST     *         CALLS  PLINE,PIA                                                       LIST        1449     A     
 LIST                                                                                      LIST        1450     A     
 LIST                                                                                      LIST        1451     A     
 LIST      WCS      SUBR               ENTRY/EXIT...                                       LIST        1452     A     
 LIST               SA1    CP.PS       FETCH PAGE SIZE                                     LIST        1453          I
          -FC5A107
 LIST               SA1    CO.PS       FETCH PAGE SIZE                                     FC5A107       23     A     
 LIST               SX4    3                                                               LIST        1454     A     
 LIST               SX6    WCSB                                                            LIST        1455     A     
 LIST               LX4    30                                                              LIST        1456     A     
 LIST               BX7    X4+X6       SET SUBTITLE = 'OBJECT LISTING'                     LIST        1457     A     
 LIST               =X3    X1-1        TO AVOID A DOUBLE EJECT                             LIST        1458     A     
 LIST               SA7    O.STITL                                                         LIST        1459     A     
 LIST               PLINE  WCSA,4,X3   PRINT TABLE HEADING                                 LIST        1460     A     
 LIST               SA1    =10H                                                            LIST        1461     A     
 LIST               BX6    X1                                                              LIST        1462     A     
 LIST               SA0    B0          BLKI = 0                                            LIST        1463     A     
 LIST               SA6    LINEBUF                                                         LIST        1464     A     
 LIST      WCS30    SA5    A0+F.LBT    FETCH BLOCK ORIGIN                                  LIST        1465     A     
 LIST               LX5    -LB.ORGP                                                        LIST        1466     A     
 LIST               SX1    X5          TRUNCATE ORG TO 18 BITS                             LIST        1467     A     
 LIST               PIA    ,LINEBUF+2  (LINEBUF+2) = BLOCK ADDRESS                         LIST        1468     A     
 LIST               LX5    LB.ORGP-LB.BLENP                                                LIST        1469     A     
 LIST               SX1    X5          TRUNCATE BLEN TO 18 BITS                            LIST        1470     A     
 LIST               PIA    ,A6+B1      (LINEBUF+3) = BLOCK LENGTH                          LIST        1471     A     
 LIST               SA2    A0+TLBN     FETCH BLOCK NAME                                    LIST        1472     A     
 LIST               BX7    X2                                                              LIST        1473     A     
 LIST               SA7    LINEBUF+1                                                       LIST        1474     A     
 LIST               SA0    A0+B1       BLKI = BLKI + 1                                     LIST        1475     A     
 LIST               PLINE  A7-B1,4                                                         LIST        1476     A     
 LIST               SB2    A0-Z.LBT                                                        LIST        1477     A     
 LIST               MI     B2,WCS30    IF MORE BLOCKS TO PRINT                             LIST        1478     A     
 LIST               SA1    =10H                                                            LIST        1479     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1992    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BX6    X1                                                              LIST        1480     A     
 LIST               SETMEM LINEBUF+1,4,X6    BLANK FILL LINEBUF 4 WORDS                    LIST        1481     A     
 LIST               PLINE  B0,B0,1     SPACE 1                                             LIST        1482     A     
 LIST               EQ     EXIT.                                                           LIST        1483     A     
 LIST                                                                                      LIST        1484     A     
 LIST      WCSA     DIS    4,          BLOCK      ADDRESS    LENGTH                        LIST        1485     A     
 LIST      WCSB     DIS    3,             OBJECT LISTING.                                  LIST        1486     A     
 LIST      WIO      SPACE  4,10                                                            LIST        1487     A     
 LIST     **        WIO - LIST ONE I/O AP-LISTS.                                           LIST        1488     A     
 LIST     *                CALLED FROM WAP AND WCL TO LIST ONE I/O APLIST.                 LIST        1489     A     
 LIST     *                                                                                LIST        1490     A     
 LIST     *         LISTS  IO.N        IOM   TAG+BIAS,BCP,TAG+BIAS                         LIST        1491     A     
 LIST     *         ENTRY: (A5,X5) = IO1                                                   LIST        1492          I
          -FC50236
 LIST     *         USES:  ALL BUT A0,X0,A5,B6                                             LIST        1493          I
          -FC50236
 LIST     *                                                                                FC50236        5     A     
 LIST     *         ENTRY  (A5,X5) = IOM                                                   FC50236        6     A     
 LIST     *                                                                                FC50236        7     A     
 LIST     *         USES   ALL EXCEPT A0,X0,A5,B6                                          FC50236        8     A     
 LIST     *                                                                                FC50236        9     A     
 LIST     *         CALLS  KTX,KTY,RVF                                                     LIST        1494     A     
 LIST     *                                                                                LIST        1495     A     
 LIST     *                **WARNING** DO NOT EVER TRY TO USE                              LIST        1496     A     
 LIST     *                            REGISTERS A0,X0,A5,B6 IN THIS                       LIST        1497     A     
 LIST     *                            ROUTINE, TERRIBLE THINGS WILL HAPPEN!               LIST        1498     A     
 LIST     *                            (LIKE AN INFINITE LOOP?)                            LIST        1499     A     
 LIST                                                                                      LIST        1500     A     
 LIST                                                                                      LIST        1501     A     
 LIST      WIO      SUBR   0           ENTRY/EXIT.                                         LIST        1502     A     
 LIST               =X7    0                                                               FC5A219       40     A     
 LIST               SA7    WIO.10+9    CLEAR BCP FIELD                                     FC5A219       41     A     
 LIST               MX4    -IA.MODEL                                                       LIST        1503     A     
 LIST               MX7    -IA.TAGL                                                        LIST        1504     A     
 LIST               LX5    -IA.TAGP                                                        LIST        1505     A     
 LIST               BX3    -X7*X5      TAGI = TAG[IO1]                                     LIST        1506     A     
 LIST               SB4    X3          REMEBER (B4) = TAGI                                 LIST        1507     A     
 LIST               RJ     KTX         CONVERT TAG TO DPC                                  LIST        1508     A     
 LIST               SA6    WIO.10+3    (WIO.10+3) = TAG                                    LIST        1509     A     
 LIST               =X1    1                                                               LIST        1510     A     
 LIST               LX5    IA.TAGP-IA.MODEP                                                LIST        1511     A     
 LIST               BX6    -X4*X5      MODEI = MODE[IO1]                                   LIST        1512     A     
 LIST               LX5    IA.MODEP-IA.IOCP                                                LIST        1513     A     
 LIST               BX1    X1*X5       LST = IOC[IO1]                                      LIST        1514     A     
 LIST               LX1    OA.LSTP                                                         LIST        1515     A     
 LIST               NZ     X1,WIO10    IF NOT CONTROL ITEM                                 LIST        1516          I
          -FC50236
 LIST               NZ     X1,WIO10    IF CONTROL ITEM                                     FC50236       10     A     
 LIST               SA2    =XFCLMOD                                                        LIST        1517     A     
 LIST               LX6    2                                                               LIST        1518     A     
 LIST               MX7    -4                                                              LIST        1519     A     
 LIST               SB7    X6                                                              LIST        1520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1993    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               AX2    B7                                                              LIST        1521     A     
 LIST               BX6    -X7*X2                                                          LIST        1522     A     
 LIST                                                                                      FC50236       11     A     
 LIST      WIO10    LX6    OA.TYPP                                                         LIST        1523     A     
 LIST               BX6    X6+X1                                                           LIST        1524     A     
 LIST               EQ     B4,WIO15    IF TAGI .EQ. 0                                      LIST        1525          I
          -FC50236
 LIST               CLAS=  X2,OA,(VAR)                                                     LIST        1526          I
          -FC50236
 LIST               ZR     B4,WIO15    IF TAGI .EQ. 0                                      FC50236       12     A     
 LIST               ZR     X1,WIO11    IF NOT CONTROL ITEM                                 FC50236       13     A     
 LIST               BX2    X6                                                              FC50236       14     A     
 LIST               MX3    -OA.TYPL                                                        FC50236       15     A     
 LIST               HX2    OA.TYP                                                          FC50236       16     A     
 LIST               LX2    OA.TYPL                                                         FC50236       17     A     
 LIST               BX2    -X3*X2      EXTRACT CONTROL CODE                                FC50236       18     A     
 LIST               SX3    X2-IC.UNT                                                       FC50236       19     A     
 LIST               ZR     X3,WIO12    IF UNIT                                             FC50236       20     A     
 LIST               SX3    X2-IC.REC                                                       FC50236       21     A     
 LIST               ZR     X3,WIO12    IF RECORD LENGTH                                    FC50236       22     A     
 LIST               SX3    X2-IC.IOS                                                       FC50236       23     A     
 LIST               ZR     X3,WIO12    IF I/O STATUS                                       FC50236       24     A     
 LIST               EQ     WIO15       NO OTHER CONTROL ITEM GETS OA.VAR                   FC50236       25     A     
 LIST                                                                                      FC50236       26     A     
 LIST      WIO11    BX2    X5                                                              FC50236       27     A     
 LIST               LX2    IA.IOCP-IA.VARP-IA.VARL                                         FC50236       28     A     
 LIST               MI     X2,WIO15    IF IA.VAR (LOOP INDICATOR)                          FC50236       29     A     
 LIST                                                                                      FC50236       30     A     
 LIST      WIO12    CLAS=  X2,OA,(VAR)                                                     FC50236       31     A     
 LIST               BX6    X6+X2       ADD IN VAR BIT                                      LIST        1527     A     
 LIST                                                                                      LIST        1528     A     
 LIST      WIO15    MX7    -PB.ORDL                                                        LIST        1529     A     
 LIST               SX2    B4                                                              LIST        1530     A     
 LIST               BX3    X7*X2       PFXI = PFX[TAGI]                                    LIST        1531     A     
 LIST               NZ     X3,WIO20    IF PFXI .NE. 0                                      LIST        1532     A     
 LIST               ERRNZ  K=SYM                                                           LIST        1533     A     
 LIST               SX2    X2+B4                                                           LIST        1534     A     
 LIST               SB4    X2+B4       STIND = 3 * TAGI                                    LIST        1535     A     
 LIST               ERRNZ  3-Z=SYM                                                         LIST        1536     A     
 LIST               SA2    T.SYM                                                           LIST        1537     A     
 LIST               =X2    X2+WB.W                                                         LIST        1538     A     
 LIST               SA2    X2+B4       WBI = T.SYM(STIND) + WB.W                           LIST        1539     A     
 LIST               CLAS=  X3,WB,(LCM)                                                     LIST        1540     A     
 LIST               MX7    1                                                               LIST        1541     A     
 LIST               BX3    X3*X2       LCMI = LCM[WBI]                                     LIST        1542     A     
 LIST               HX2    WB.FP                                                           LIST        1543     A     
 LIST               LX3    OA.LCMP-WB.LCMP                                                 LIST        1544     A     
 LIST               BX6    X6+X3       ADD IN LCM BIT                                      LIST        1545     A     
 LIST                                                                                      FC50236       32     A     
 LIST      WIO20    SA6    WIO.10+1    (WIO.10+1) = (LCM,LST,TYPE)[OA.]                    LIST        1546     A     
 LIST                                                                                      LIST        1547          I
          -FC50236
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1994    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               LX5    IA.IOCP-1-IA.STP                                                LIST        1548     A     
 LIST               PL     X5,WIO25    IF NOT ST                                           LIST        1549     A     
 LIST               SA1    =1L,                                                            LIST        1550     A     
 LIST               BX6    X1                                                              LIST        1551     A     
 LIST               BX5    -X5         SET (X5) = 0 SO THAT (WIO.10+5) = 0                 LIST        1552     A     
 LIST               EQ     WIO50       WILL BE SET ALSO                                    LIST        1553     A     
 LIST                                                                                      LIST        1554     A     
 LIST      WIO25    MX7    -IA.BIASL                                                       LIST        1555     A     
 LIST               LX5    1+IA.STP-IA.BIASP                                               LIST        1556     A     
 LIST               BX3    -X7*X5      BIASI = BIAS[IO1]                                   LIST        1557     A     
 LIST               LX5    IA.BIASP-1-IA.CHARP                                             LIST        1558     A     
 LIST               MI     X5,WIO30    IF CHARACTER                                        LIST        1559     A     
 LIST               PL     X2,WIO40    IF NOT F.P.                                         LIST        1560     A     
 LIST                                                                                      LIST        1561     A     
 LIST     *         FOR NON CHARACTER F.P. ITEM, OUTPUT:                                   LIST        1562     A     
 LIST     *                IOM         0000, BIASI, WB.FPNO-1                              LIST        1563     A     
 LIST                                                                                      LIST        1564     A     
 LIST               SA1    WIO.10+1                                                        LIST        1565     A     
 LIST               MX4    1                                                               LIST        1566     A     
 LIST               BX4    X4*X2       FPI = FP[WBI]                                       LIST        1567     A     
 LIST               LX4    1+OA.FPP                                                        LIST        1568     A     
 LIST               BX6    X1+X4                                                           LIST        1569     A     
 LIST               SA6    A1          FP[WIO.10+1] = FPI                                  LIST        1570     A     
 LIST               MX7    -WB.FPNOL                                                       LIST        1571     A     
 LIST               LX2    1+WB.FPP-WB.FPNOP                                               LIST        1572     A     
 LIST               BX4    -X7*X2      FPNOI = FPNO[WBI]                                   LIST        1573     A     
 LIST               RJ     KTY         CONVERT BIAS TO DPC                                 LIST        1574          I
          -FC5A281
 LIST               KTY    24          CONVERT BIAS                                        FC5A281       47     A     
 LIST               SA6    WIO.10+3    (WIO.10+3) = BIASI                                  LIST        1575     A     
 LIST               =X3    X4-1        FPNOI = FPNOI - 1                                   LIST        1576     A     
 LIST               EQ     WIO40                                                           LIST        1577     A     
 LIST                                                                                      LIST        1578     A     
 LIST     *         HANDLE CHARACTER APLIST.                                               LIST        1579     A     
 LIST     *         (X2) = WBI HIGH SHIFTED TO WB.FP                                       LIST        1580     A     
 LIST                                                                                      LIST        1581     A     
 LIST      WIO30    MI     X2,"BLOWUP" CHARACTER F.P. NOT ALLOWED                          LIST        1582     A     
 LIST               SA1    T.CAC                                                           LIST        1583     A     
 LIST               SB5    X1                                                              LIST        1584     A     
 LIST               MX7    -WC.BCPL                                                        LIST        1585     A     
 LIST               SA4    B5+X3       CACI = T.CAC(BIASI)                                 LIST        1586     A     
 LIST               LX4    -WC.BCPP                                                        LIST        1587     A     
 LIST               BX3    -X7*X4      BCPI = BCP[IO1]                                     LIST        1588     A     
 LIST               RJ     KTY         CONVERT BCPI TO DPC                                 LIST        1589          I
          -FC5A281
 LIST               KTY                CONVERT BCPI                                        FC5A281       48     A     
 LIST               LX4    WC.BCPP-WC.CLENP                                                LIST        1590     A     
 LIST               MX7    -WC.CLENL                                                       LIST        1591     A     
 LIST               BX3    -X7*X4      CLENI = CLEN[IO1]                                   LIST        1592     A     
 LIST               SA6    WIO.10+9    (WIO.10+9) = BCP                                    LIST        1593     A     
 LIST               LX4    WC.CLENP-WC.RAP                                                 LIST        1594     A     
 LIST               RJ     KTY         CONVERT CLEN TO DPC                                 LIST        1595          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1995    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
          -FC5A281
 LIST               KTY                CONVERT CLEN                                        FC5A281       49     A     
 LIST               SA1    =1R+                                                            LIST        1596     A     
 LIST               SX7    1R0                                                             LIST        1597     A     
 LIST               BX6    X6+X1                                                           LIST        1598     A     
 LIST               LX6    -CHAR                                                           LIST        1599     A     
 LIST               LX7    -CHAR                                                           LIST        1600     A     
 LIST               SA6    WIO.10+7    (WIO.10+7) = CLEN                                   LIST        1601     A     
 LIST               SA7    A6-B1       (WIO.10+6) = DPC(0)                                 LIST        1602     A     
 LIST               MX1    -IA.BIASL                                                       LIST        1603     A     
 LIST               BX3    -X1*X4      BIASI = RA[CACI], TRUNCATED TO IA.BIASL             LIST        1604     A     
 LIST                                                                                      LIST        1605     A     
 LIST      WIO40    RJ     KTY         CONVERT BIASI TO DPC                                LIST        1606          I
          -FC5A281
 LIST      WIO40    KTY    24          CONVERT BIAS                                        FC5A281       50     A     
 LIST               MI     X3,WIO50    IF NEGATIVE BIAS                                    LIST        1607     A     
 LIST               SA1    =1R+                                                            LIST        1608     A     
 LIST               IX6    X6+X1                                                           LIST        1609     A     
 LIST               LX6    -CHAR                                                           LIST        1610     A     
 LIST                                                                                      LIST        1611     A     
 LIST     *         PROCESS IO2.                                                           LIST        1612     A     
 LIST                                                                                      LIST        1613     A     
 LIST      WIO50    SA6    WIO.10+4    (WIO.10+4) = BIASI                                  LIST        1614     A     
 LIST               MX7    0                                                               LIST        1615     A     
 LIST               =A4    A5+1        IO2 = IO1 + 1                                       LIST        1616     A     
 LIST               MI     X5,WIO55    IF CHARACTER                                        LIST        1617     A     
 LIST               SA7    A6+B1       (WIO.10+5) = 0 TERMINATOR                           LIST        1618     A     
 LIST                                                                                      FC50236       33     A     
 LIST      WIO55    ZR     X4,WIO70    IF IO2 .EQ. 0                                       LIST        1619     A     
 LIST               MX7    -IA.TAGL                                                        LIST        1620     A     
 LIST               LX4    -IA.TAGP                                                        LIST        1621     A     
 LIST               BX3    -X7*X4      TAG2I = TAG[IO2]                                    LIST        1622     A     
 LIST               SA1    WIO.10+1                                                        LIST        1623     A     
 LIST               CLAS=  X2,OA,(IND)                                                     LIST        1624     A     
 LIST               ZR     X3,WIO58    IF TAG2I .EQ. 0                                     LIST        1625     A     
 LIST               BX6    X1+X2       ADD IN IND BIT                                      LIST        1626     A     
 LIST               SA6    A1          IND[WIO.10+1] = 1                                   LIST        1627     A     
 LIST      WIO58    LX4    IA.TAGP-IA.BIASP                                                LIST        1628     A     
 LIST               RJ     KTX         CONVERT LENGTH TAG                                  LIST        1629     A     
 LIST               SA6    WIO.10+6    (WIO.10+6) = TAG2I                                  LIST        1630     A     
 LIST               MX5    -IA.BIASL                                                       LIST        1631     A     
 LIST               BX3    -X5*X4      BIAS2I = BIAS[IO2]                                  LIST        1632     A     
 LIST               RJ     KTY         CONVERT LENGTH BIAS                                 LIST        1633          I
          -FC5A281
 LIST               KTY    24          CONVERT LENGTH BIAS                                 FC5A281       51     A     
 LIST               MI     X3,WIO60    IF BIAS IS NEGATIVE                                 LIST        1634     A     
 LIST               SA1    =1R+                                                            LIST        1635     A     
 LIST               BX6    X6+X1                                                           LIST        1636     A     
 LIST               LX6    -CHAR                                                           LIST        1637     A     
 LIST                                                                                      FC50236       34     A     
 LIST      WIO60    SA6    A6+B1       (WIO.10+7) = BIASI                                  LIST        1638     A     
 LIST               SA1    =1L,                                                            LIST        1639     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1996    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BX7    X1                                                              LIST        1640     A     
 LIST               SA7    WIO.10+5    (WIO.10+5) = COMMA                                  LIST        1641     A     
 LIST                                                                                      LIST        1642     A     
 LIST      WIO70    SA1    WIO.10+1                                                        LIST        1643     A     
 LIST               RJ     KUB         CONVERT UPPER 12 BITS                               LIST        1644     A     
 LIST               SA7    A1                                                              LIST        1645     A     
 LIST               SA1    =10H                                                            LIST        1646     A     
 LIST               SA3    WIO.10                                                          LIST        1647     A     
 LIST               BX6    X1                                                              LIST        1648     A     
 LIST               SA2    A3+B1                                                           LIST        1649     A     
 LIST               RJ     PVF         PRINT THE LINE                                      LIST        1650     A     
 LIST               SA1    =1L,                                                            LIST        1651     A     
 LIST               BX6    X1                                                              LIST        1652     A     
 LIST               SA6    WIO.10+5    (WIO.10+5) = COMMA                                  LIST        1653     A     
 LIST               EQ     EXIT.                                                           LIST        1654     A     
 LIST                                                                                      LIST        1655     A     
 LIST      WIO.10   DATA   7RIOM                                                           LIST        1656     A     
 LIST               BSS    1           +1    MODE                                          LIST        1657     A     
 LIST               DATA   1L,                                                             LIST        1658     A     
 LIST               BSS    2           +3    TAG1 + BIAS1                                  LIST        1659     A     
 LIST               DATA   1L,                                                             LIST        1660     A     
 LIST               BSS    2           +6    TAG2 + BIAS2                                  LIST        1661     A     
 LIST               DATA   1L,                                                             LIST        1662     A     
 LIST               DATA   0           +9    BCP                                           LIST        1663     A     
 LIST               DATA   0                                                               LIST        1664     A     
 LIST                                                                                      LIST        1665     A     
 LIST      APTAG    CON    K.AP                                                            LIST        1666     A     
 LIST               CON    K.IO                                                            LIST        1667     A     
 LIST      WLP      SPACE  4,10                                                            LIST        1668     A     
 LIST     **        WLP - LIST LCM POINTER CELLS.                                          LIST        1669     A     
 LIST     *               LIST *SUB* MACRO IF FP[WBI] .EQ. 1.                              LIST        1670     A     
 LIST     *                                                                                LIST        1671     A     
 LIST     *         LISTS: LC.N        LAP   TAG+BIAS                                      LIST        1672     A     
 LIST     *         ENTRY  (A0) = ORGA, ORGIN COUNTER OF LISTING AP-LISTS                  LIST        1673     A     
 LIST     *                (APLA) = LEN OF T.APL BEFORE APPENDING T.LCA                    LIST        1674     A     
 LIST     *         USES   ALL                                                             LIST        1675     A     
 LIST                                                                                      LIST        1676     A     
 LIST                                                                                      LIST        1677     A     
 LIST      WLP      SUBR               ENTRY/EXIT.                                         LIST        1678     A     
 LIST               SA5    T.APL                                                           LIST        1679     A     
 LIST               SA2    APLA                                                            LIST        1680     A     
 LIST               SA3    T=APL                                                           LIST        1681     A     
 LIST               MX7    0                                                               LIST        1682     A     
 LIST               IX2    X5+X2                                                           LIST        1683     A     
 LIST               IX6    X5+X3                                                           LIST        1684     A     
 LIST               SA7    X6          LWA+1(T.APL) = 0  (MARK TERMINATOR)                 LIST        1685     A     
 LIST               ERRMI  1-FUDGE                                                         LIST        1686     A     
 LIST               =X0    0           LCIND = 0                                           LIST        1687     A     
 LIST               SA5    X2          LCAD = FWA(T.APL) + (APLA)                          LIST        1688     A     
 LIST                                                                                      LIST        1689     A     
 LIST     *         LIST NEXT LCM POINTER CELL.                                            LIST        1690     A     
 LIST     *         FOR N= 1, (T=LCA-1),                                                   LIST        1691     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1997    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *         LIST:    * LC.N    LAP    (T.LCA(N+1)) *                               LIST        1692     A     
 LIST     *         (A0) = ORGA                                                            LIST        1693     A     
 LIST     *         (X0) = LCIND                                                           LIST        1694     A     
 LIST     *         (A5) = LCAD                                                            LIST        1695     A     
 LIST                                                                                      LIST        1696     A     
 LIST      WLP10    ZR     X5,EXIT.    IF END OF T.LCA                                     LIST        1697     A     
 LIST               SX0    X0+B1       LCIND = LCIND + 1                                   LIST        1698     A     
 LIST               MX6    -IA.TAGL                                                        LIST        1699     A     
 LIST               MX7    -IA.BIASL                                                       LIST        1700     A     
 LIST               LX5    -IA.BIASP                                                       LIST        1701     A     
 LIST               BX4    -X7*X5      BIASI = BIAS[LCI]                                   LIST        1702     A     
 LIST               LX5    IA.BIASP-IA.TAGP                                                LIST        1703     A     
 LIST               BX3    -X6*X5      TAGI = TAG[LCI]                                     LIST        1704     A     
 LIST               RJ     KTX         CONVERT TAG                                         LIST        1705     A     
 LIST               SA6    PIK=TAG                                                         LIST        1706     A     
 LIST               BX3    X4                                                              LIST        1707     A     
 LIST               RJ     KTY         CONVERT BIAS                                        LIST        1708          I
          -FC5A281
 LIST               KTY    24          CONVERT BIAS                                        FC5A281       52     A     
 LIST               MI     X3,WLP20    IF BIAS .LT. 0                                      LIST        1709     A     
 LIST               SX1    1R+                                                             LIST        1710     A     
 LIST               BX6    X6+X1                                                           LIST        1711     A     
 LIST               LX6    -CHAR                                                           LIST        1712     A     
 LIST      WLP20    SA6    A6+B1                                                           LIST        1713     A     
 LIST               SX1    A0                                                              LIST        1714     A     
 LIST               PIA    ,LINEBUF    CONVERT ORGA TO DPC                                 LIST        1715     A     
 LIST               =A0    A0+1        ORGA = ORGA + 1                                     LIST        1716     A     
 LIST               MX7    -PB.TAGL                                                        LIST        1717     A     
 LIST               =X3    X0+K.LC                                                         LIST        1718     A     
 LIST               BX3    -X7*X3      GET RID OF SIGN EXTENSION                           LIST        1719     A     
 LIST               RJ     KTX         CONVERT LCIND TO A LC.N TAG                         LIST        1720     A     
 LIST               BX1    X6                                                              LIST        1721     A     
 LIST               CALL   SFN         SPACE FILL                                          LIST        1722     A     
 LIST               LX6    -CHAR                                                           LIST        1723     A     
 LIST               SA3    B1+APLAB    *LAP*                                               LIST        1724     A     
 LIST               =A5    A5+1        LCAD = LCAD + 1,  LCI = (LCAD)                      LIST        1725     A     
 LIST               SA2    PIK=TAG                                                         LIST        1726     A     
 LIST               RJ     PVF         PRINT  * LAP   TAG+BIAS*                            LIST        1727     A     
 LIST               SA4    PIK=TAG+1                                                       LIST        1728     A     
 LIST               RJ     WSM         WRITE SUB MACRO                                     LIST        1729     A     
 LIST               EQ     WLP10                                                           LIST        1730     A     
 LIST      WSM      SPACE  4,10                                                            LIST        1731     A     
 LIST     **        WSM - WRITE SUB MACRO.                                                 LIST        1732     A     
 LIST     *                                                                                LIST        1733     A     
 LIST     *         ENTRY: A4-1, A4 _ TAG, BIAS FIELD OF INSTRUCTION, 0_L FORMAT           LIST        1734     A     
 LIST     *                (SUBORG) = ORGIN COUNTER OF SUB BLOCK                           LIST        1735          I
          -FC5A219
 LIST     *                (ORGSUB) = ORIGIN COUNTER OF SUB BLOCK                          FC5A219       42     A     
 LIST     *                                                                                FC5A219       43     A     
 LIST     *         EXIT:  SUB    TAG,BIAS   LISTED                                        LIST        1736     A     
 LIST     *                (SAVFP) = 0                                                     LIST        1737     A     
 LIST     *                                                                                FC5A219       44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1998    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *         USES:  ALL BUT A5,X5                                                   LIST        1738     A     
 LIST     *         CALLS  PIA,PVF                                                         LIST        1739          I
          -FC5A219
 LIST     *                                                                                LIST        1740          I
          -FC5A219
 LIST     *                **NOTE**    ROUTINE *KTX* MUST BE CALLED                        LIST        1741          I
          -FC5A219
 LIST     *                            TO THIS ROUTINE.                                    LIST        1742          I
          -FC5A219
 LIST     *                                                                                FC5A219       45     A     
 LIST     *         CALLS  PIA, PVF, VFD                                                   FC5A219       46     A     
 LIST                                                                                      LIST        1743     A     
 LIST                                                                                      LIST        1744     A     
 LIST      WSM      SUBR   0           ENTRY/EXIT.                                         LIST        1745     A     
 LIST               SA1    SAVFP                                                           LIST        1746     A     
 LIST               SA3    =1L,                                                            LIST        1747     A     
 LIST               ZR     X1,EXIT.    IF *SUB* NOT NECESSARY                              LIST        1748     A     
 LIST               LX4    -CHAR                                                           LIST        1749     A     
 LIST               IX7    X4+X3       PREFIX WITH (,)                                     LIST        1750     A     
 LIST               SA7    A4                                                              LIST        1751     A     
 LIST               SB2    X1-1        FPNO-1 = T.FPI INDEX                                FC5A219       47     A     
 LIST               SA1    T.FPI                                                           FC5A219       48     A     
 LIST               SA2    X1+B2       FETCH FPI ENTRY                                     FC5A219       49     A     
 LIST               SA1    ORGSUB                                                          LIST        1752     A     
 LIST               SX7    X1+B1                                                           LIST        1753          I
          -FC5A219
 LIST               SA7    A1          SUBORG = SUBORG + 1                                 LIST        1754          I
          -FC5A219
 LIST               MX7    -FP.SUBL                                                        FC5A219       50     A     
 LIST               LX2    -FP.SUBP                                                        FC5A219       51     A     
 LIST               BX2    -X7*X2      EXTRACT THE SUB INDEX                               FC5A219       52     A     
 LIST               SB2    X2-1                                                            FC5A219       53     A     
 LIST               SX1    X1+B2                                                           FC5A219       54     A     
 LIST               PIA    ,LINEBUF    CONVERT SUBORG TO DPC                               LIST        1755     A     
 LIST               SA2    T.SUB                                                           FC5A219       55     A     
 LIST               SA1    X2+B2       FETCH SUB ENTRY                                     FC5A219       56     A     
 LIST               SB4    60                                                              FC5A219       57     A     
 LIST               SB5    60                                                              FC5A219       58     A     
 LIST               RJ     VFD         FORM SUB CALL DPC                                   FC5A219       59     A     
 LIST               SA3    =10H+       TO INDICATE RELOCATION                              FC5A219       60          I
          -FC50629
 LIST               SA3    =1H+        TO INDICATE RELOCATION                              FC50629       20     A     
 LIST               SA6    LINEBUF+1                                                       FC5A219       61     A     
 LIST               LX6    X3                                                              FC5A219       62     A     
 LIST               =A7    A6+1                                                            FC5A219       63     A     
 LIST               =A6    A7+1                                                            FC5A219       64     A     
 LIST               SA1    =10H                                                            LIST        1756     A     
 LIST               BX6    X1                                                              LIST        1757     A     
 LIST               =A2    A4-1                                                            LIST        1758     A     
 LIST               SA3    =7RSUB                                                          LIST        1759     A     
 LIST               RJ     PVF         PRINT  *    SUB    TAG,BIAS*                        LIST        1760     A     
 LIST               BX7    0                                                               LIST        1761     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE1999    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA7    SAVFP       (SAVFP) = 0                                         LIST        1762     A     
 LIST               EQ     EXIT.                                                           LIST        1763     A     
 LIST      DATA     SPACE  4,10                                                            LIST        1764     A     
 LIST      ZWI      SPACE  4,10                                                            LIST        1765     A     
 LIST     **        ZWI - ZERO WORD ITEM.                                                  LIST        1766     A     
 LIST     *                                                                                LIST        1767     A     
 LIST     *         LISTS A ZERO WORD ITEM, E.G., FOR APLISTS.                             LIST        1768     A     
 LIST     *                                                                                LIST        1769     A     
 LIST     *         ENTRY  (X3) = LABEL FIELD.                                             LIST        1770     A     
 LIST     *                (LINEBUF+0) = SET AS DESIRED (USUALLY ORIGIN).                  LIST        1771     A     
 LIST     *                (X1) = +/- ZERO                                                 LIST        1772     A     
 LIST     *                                                                                LIST        1773     A     
 LIST     *         USES   A1-A4,A6,A7  X1-X4,X6,X7  B2-B7.                                LIST        1774     A     
 LIST                                                                                      LIST        1775     A     
 LIST                                                                                      LIST        1776     A     
 LIST      ZWI      SUBR   0           ENTRY/EXIT...                                       LIST        1777     A     
 LIST               IFEQ   TEST,ON,1                                                       LIST        1778     A     
 LIST               NZ     X1,"BLOWUP"                                                     LIST        1779     A     
 LIST               BX7    X3                                                              LIST        1780     A     
 LIST               SX6    2R0 &2R-0                                                       LIST        1781     A     
 LIST               SA2    OL=LBF                                                          LIST        1782     A     
 LIST               BX3    X1*X6       ERASE ALTER-MASK IF POSITIVE ZERO                   LIST        1783     A     
 LIST               SA7    X2                                                              LIST        1784     A     
 LIST               LX3    -2*CHAR                                                         LIST        1785     A     
 LIST               SA2    =H/0 /                                                          LIST        1786     A     
 LIST               BX6    X2-X3       H/-0/  OR   H/0/                                    LIST        1787     A     
 LIST               SA6    A7+B1                                                           LIST        1788     A     
 LIST               SB7    LINEBUF-1                                                       LIST        1789     A     
 LIST               PLINE  LINEBUF,A6-B7                                                   LIST        1790     A     
 LIST               EQ     EXIT.                                                           LIST        1791     A     
 LIST      TLBN     SPACE  4,10                                                            LIST        1792     A     
 LIST     **        TLBN - TABLE OF LOCAL BLOCK NAMES.                                     LIST        1793     A     
 LIST                                                                                      LIST        1794     A     
 LIST                                                                                      LIST        1795     A     
 LIST               MACRO  LBLK,NR,NAM                                                     LIST        1796     A     
 LIST      NR  DIS    1,NAM                                                                LIST        1797     A     
 LIST               ENDM                                                                   LIST        1798     A     
 LIST                                                                                      LIST        1799     A     
 LIST                                                                                      LIST        1800     A     
 LIST      TLBN     BSS                                                                    LIST        1801     A     
 LIST               LOC    0                                                               LIST        1802     A     
 LIST               LIST   -X,G        COMSLBT IS LISTED IN REC                            LIST        1803     A     
 LIST     *CALL     COMSLBT            DEFINE LOCAL BLOCK NAMES                            LIST        1804     A     
 LIST               LIST   *                                                               LIST        1805     A     
 LIST      Z.LBT    BSS                NUMBER OF BLOCKS                                    LIST        1806     A     
 LIST               LOC    *O                                                              LIST        1807     A     
 LIST      END      SPACE  4,10                                                            LIST        1808     A     
 LIST               LIST   D                                                               LIST        1809     A     
 LIST               ENTRY  FIN.OL                                                          LIST        1810     A     
 LIST      FIN.OL   END                END OF (1,0) OVERLAY WHEN OLIST ON                  LIST        1811     A     
 LIST     *DECK     CWEOR3 - END OF PASS 3.                                                CWEOR3         1          I
          -FC5A370
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2000    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *CWEOR,0                     (3)  END OF PASS 3.                                 CWEOR3         2          I
          -FC5A370
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LIST    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LIST                      1811      1731
          CWEOR3                       2         0
          FC5A107                      2         2
          FC5A132                     22        22
          FC5A171A                    73        73
          FC5A182                      3         3
          FC5A219                     46        45
          FC50049                     13        13
          FC5A281                     42        42
          FC50226                      8         8
          FC50236                     30        30
          FC50353                      2         2
          FC50457                      7         7
          FC50629                     15        15
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR3*  
  
 WEOR3*   *DECK WEOR3*                                                                     FC5A370       14     A     
 WEOR3*   *WEOR 0   (3)  END OF PASS 3.                                                    FC5A370       15     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR3*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *BRIDGE*
  
 *BRIDGE* *DECK     *BRIDGE* - LINKAGE TO CCG.                                             *BRIDGE*       1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *BRIDGE*
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *BRIDGE*                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC     *DECK     CCGC   CCG CONTROLLER                                                  CCGC           1     A     
 CCGC               IDENT  CCGC                                                            CCGC           2     A     
 CCGC      CCGC     SECT   (CCG CONTROLLER AND SUPPORT.)                                   CCGC           3     A     
 CCGC      CCGC     SPACE  4,10                                                            CCGC           4     A     
 CCGC     ***              CCGC IS THE CONTROLLER FOR THE CYBER CODE GENERATOR.            CCGC           5     A     
 CCGC                                                                                      CCGC           6     A     
 CCGC                                                                                      CCGC           7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2001    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC      .FAST    EQU    0                                                               CCGC           8     A     
 CCGC      .OPT     EQU    1                                                               CCGC           9     A     
 CCGC      .CG      EQU    .OPT        INDICATE CYBER CODE GENERATOR                       CCGC          10     A     
 CCGC      BT       MICRO  1,,/B4/     TEMP B-REG FOR COMDECKS                             CCGC          11     A     
 CCGC      O$       MICRO  1,,/O$/                                                         CCGC          12     A     
 CCGC      L$       MICRO  1,,/L$/                                                         CCGC          13     A     
 CCGC      CCGC     SPACE  4,8                                                             CCGC          14     A     
 CCGC     *         IN BRIDGE                                                              CCGC          15     A     
 CCGC               EXT    BRIDGE                                                          CCGC          16     A     
 CCGC                                                                                      CCGC          17     A     
 CCGC     *         IN CCGLINK                                                             CCGC          18     A     
 CCGC               EXT    CGL.RTN,ERR22                                                   CCGC          19     A     
 CCGC                                                                                      CCGC          20     A     
 CCGC     *         IN FTN                                                                 CCGC          21     A     
 CCGC               EXT    CO.SNAP,F.PB,MSG=,OT.RM                                         CCGC          22     A     
 CCGC                                                                                      CCGC          23     A     
 CCGC     *         IN IDP                                                                 CCGC          24     A     
 CCGC               EXT    SNP=                                                            CCGC          25     A     
 CCGC                                                                                      CCGC          26     A     
 CCGC     *         IN PUC                                                                 CCGC          27     A     
 CCGC               EXT    BN=BUF,BN=TEM,F.LBT,IDENT,L=API                                 CCGC          28     A     
 CCGC               EXT    L=APL,L=ASG,L=BLKS,L=CON,L=FILE,L=GL,L=IOA,L=IOI                CCGC          29     A     
 CCGC               EXT    L=NLST,L=SYM,MOD,N.STMAX,N.VD,O=API,O=APL                       CCGC          30     A     
 CCGC               EXT    O=ASG,O=BLKS,O=CON,O=GL,O=IOA,O=IOI,O=NLST                      CCGC          31     A     
 CCGC               EXT    O=SYM,PASS,PIK=PS,S=CP,S=CPL,S=CT,S=ENTRY,S=GPL,S=IT            CCGC          32     A     
 CCGC               EXT    S=LC,S=OT,S=SPA,S=ST,S=SUB,S=SUBI,S=TA0,S=TRACE,S=VD            CCGC          33     A     
 CCGC               EXT    WOF                                                             CCGC          34     A     
 CCGC                                                                                      CCGC          35     A     
 CCGC     *         IN UTILITY                                                             CCGC          36     A     
 CCGC               EXT    CDD,WTO=                                                        CCGC          37     A     
 CCGC               SPACE  4,10                                                            CCGC          38     A     
 CCGC      F$STITL  BSSENT                                                                 CCGC          39     A     
 CCGC               DIS    6,                  **** MESSAGES FROM JASIK'S SUPER            CCGC          40     A     
 CCGC               DIS    6,CODE GENERATOR.    ****                                       CCGC          41     A     
 CCGC      N$STITL  CONENT 0                                                               CCGC          42     A     
 CCGC                                                                                      CCGC          43     A     
 CCGC      CC$FT    CONENT 0           0 TO EVICT OPT SCRATCH FILE                         CCGC          44     A     
 CCGC      CC$SUB   CONENT 0           SUB OCCURRED FLAG                                   CCGC          45     A     
 CCGC      CC$SUB0  CONENT 0           SUB0 OCCURRED FLAG                                  CCGC          46     A     
 CCGC      HO$DC    CONENT 0           .NE. 0 IF DEAD CODE ENCOUNTERED BY CCG              CCGC          47     A     
 CCGC      HO$OBO   BSSENT 1           CCG SCRATCH BUFFER ORIGIN                           CCGC          48     A     
 CCGC      HO$OFLL  CONENT 0           ORIGIN OF LCM FOR CCG                               CCGC          49     A     
 CCGC      HO$OPT   BSSENT 1           CO.OPT S 58                                         CCGC          50     A     
 CCGC      N.ALTEN  CONENT 0           NUMBER OF ALTERNATE ENTRIES                         CCGC          51     A     
 CCGC      CCGC     SPACE  4,10                                                            CCGC          52     A     
 CCGC     **        CCGC - CCG CONTROLLER.                                                 CCGC          53     A     
 CCGC     *                                                                                CCGC          54     A     
 CCGC     *         CCGC IS CALLED BY INIT22 AFTER OVERLAY INITIALIZATION.                 CCGC          55     A     
 CCGC                                                                                      CCGC          56     A     
 CCGC                                                                                      CCGC          57     A     
 CCGC      CCGC     BSSENT 0           ...ENTRY                                            CCGC          58     A     
 CCGC               =X6    PASS=CCG                                                        CCGC          59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2002    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               SA6    =XPASS      SET PASS TO CCG                                     CCGC          60     A     
 CCGC               CALL   BRIDGE      INTERFACE TO CCG                                    CCGC          61     A     
 CCGC               SA1    =XHO$OPT                                                        CCGC          62     A     
 CCGC               SA4    =XMOD                                                           CCGC          63     A     
 CCGC               PL     X1,CCG2     IF OPT NE 2                                         CCGC          64     A     
 CCGC               HX4    MO.BLK                                                          CCGC          65     A     
 CCGC               MI     X4,CCG2     IF BLOCK DATA                                       CCGC          66     A     
 CCGC               CALL   CG$GPO      PERFORM GLOBAL OPTIMIZATION                         CCGC          67     A     
 CCGC      CCG2     CALL   OTC         OUTPUT TERMINAL CODE                                CCGC          68     A     
 CCGC                                                                                      CCGC          69     A     
 CCGC     *         COMMUNICATE TO PASS1-3 TM POSITIONS OF PASS2 TABLES.                   CCGC          70     A     
 CCGC                                                                                      CCGC          71     A     
 CCGC      CCG4     BSS    0                                                               CCGC          72     A     
 CCGC                                                                                      CCGC          73     A     
 CCGC               MACRO  TABSH,PASS1,D1,D2,PASS2                                         CCGC          74     A     
 CCGC      PA2      MICRO  1,,/PASS2/                                                      CCGC          75     A     
 CCGC               IFC    EQ,/PASS2//,1                                                   CCGC          76     A     
 CCGC      PA2      MICRO  1,,/PASS1/                                                      CCGC          77     A     
 CCGC               SA1    =XO$"PA2"                                                       CCGC          78     A     
 CCGC               SA2    =XL$"PA2"                                                       CCGC          79     A     
 CCGC               BX6    X1                                                              CCGC          80     A     
 CCGC               LX7    X2                                                              CCGC          81     A     
 CCGC               SA6    =XO=PASS1                                                       CCGC          82     A     
 CCGC               SA7    =XL=PASS1                                                       CCGC          83     A     
 CCGC               ENDM                                                                   CCGC          84     A     
 CCGC                                                                                      CCGC          85     A     
 CCGC     *CALL COMSTAB                                                                    CCGC          86     A     
 CCGC                                                                                      CCGC          87     A     
 CCGC      FE       TABSH              FOR PSEUDO TABLE OF PRESERVED TABLES                CCGC          88     A     
 CCGC                                                                                      CCGC          89     A     
 CCGC               EQ     =XCGL.RTN   RETURN TO CODE GENERATOR LOADER...                  CCGC          90     A     
 CCGC      CCGC     TITLE  CCG SUPPORT ROUTINES.                                           CCGC          91     A     
 CCGC      DPT      SPACE  4,10                                                            CCGC          92     A     
 CCGC     **        DPT -  DEFINE PROGRAM TAG.                                             CCGC          93     A     
 CCGC     *                                                                                CCGC          94     A     
 CCGC     *         ENTRY  (X6) = ENTRY FOR *T.GL*, (WC) FORMAT                            CCGC          95     A     
 CCGC                                                                                      CCGC          96     A     
 CCGC                                                                                      CCGC          97     A     
 CCGC      DPT      SUBR               ...ENTRY/EXIT...                                    CCGC          98     A     
 CCGC               SA1    =XO$GLT                                                         CCGC          99     A     
 CCGC               SA6    B3+X1                                                           CCGC         100     A     
 CCGC               EQ     EXIT.                                                           CCGC         101     A     
 CCGC      FA=LOL   SPACE  4,10                                                            CCGC         102     A     
 CCGC     **        FA=LOL - LIST ONE LINE.                                                CCGC         103     A     
 CCGC     *                                                                                CCGC         104     A     
 CCGC     *         ENTRY  (B6) = LINE BUFFER ADDRESS.                                     CCGC         105     A     
 CCGC     *                (B7) = LENGTH OF LINE.                                          CCGC         106     A     
 CCGC     *                (X6) = NUMBER OF PRECEDING BLANK LINES TO LIST.                 CCGC         107     A     
 CCGC                                                                                      CCGC         108     A     
 CCGC                                                                                      CCGC         109     A     
 CCGC      FA=LOL   SUBR   =           ...ENTRY/EXIT...                                    CCGC         110     A     
 CCGC               PLINE  B6,B7,X6                                                        CCGC         111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2003    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               EQ     EXIT.       DONE...                                             CCGC         112     A     
 CCGC      ABT      SPACE  4,10                                                            CCGC         113     A     
 CCGC     **        CCG EXIT HERE WHEN ERRORS.                                             CCGC         114     A     
 CCGC     *                                                                                CCGC         115     A     
 CCGC     *         THE SUBROUTINE ENTRY IS FOR CALLING SEQUENCE COMPATIBLITY.             CCGC         116     A     
 CCGC     *         EXITS TO CCG4.                                                         CCGC         117     A     
 CCGC                                                                                      CCGC         118     A     
 CCGC                                                                                      CCGC         119     A     
 CCGC      HE$ABT   SUBR   =           ...ENTRY                                            CCGC         120     A     
 CCGC               SX6    1                                                               CCGC         121     A     
 CCGC               EQ     HE1                                                             CCGC         122     A     
 CCGC                                                                                      CCGC         123     A     
 CCGC      HE$CTX   BSSENT 0                                                               CCGC         124     A     
 CCGC      HE$EPX   BSSENT 0                                                               CCGC         125     A     
 CCGC               SX6    2                                                               CCGC         126     A     
 CCGC                                                                                      CCGC         127     A     
 CCGC      HE1      SA6    ERR22                                                           CCGC         128     A     
 CCGC               EQ     CCG4                                                            CCGC         129     A     
 CCGC      HR$LDC   SPACE  4,10                                                            CCGC         130     A     
 CCGC     **        HR$LDC - LIST DEAD CODE.                                               CCGC         131     A     
 CCGC     *                                                                                CCGC         132     A     
 CCGC     *         ENTRY  (O$RND) = DEAD LINE NUMBERS (IN BINARY).                        CCGC         133     A     
 CCGC     *                                                                                CCGC         134     A     
 CCGC     *         CALLS  CDD, PLINE.                                                     CCGC         135     A     
 CCGC                                                                                      CCGC         136     A     
 CCGC                                                                                      CCGC         137     A     
 CCGC      HR$LDC   SUBR   =           ENTRY/EXIT...                                       CCGC         138     A     
 CCGC               PLINE  LDCA,5,1                                                        CCGC         139     A     
 CCGC               PLINE  LDCB,3                                                          CCGC         140     A     
 CCGC               SA1    IDENT                                                           CCGC         141     A     
 CCGC               SA2    =XO$RND                                                         CCGC         142     A     
 CCGC               SA3    =XL$RND                                                         CCGC         143     A     
 CCGC               BX7    X1                                                              CCGC         144     A     
 CCGC               SA5    X2-1        (A5) -> PREVIOUS ITEM IN TABLE                      CCGC         145     A     
 CCGC               SA7    LDCD                                                            CCGC         146     A     
 CCGC               SX5    X3          (X5) = NUMBER OF ITEMS YET TO LIST                  CCGC         147     A     
 CCGC               MESSAGE LDCC,,RCL  ** DEAD CODE IN PROGNAM **                          CCGC         148     A     
 CCGC                                                                                      CCGC         149     A     
 CCGC      LDC2     SX0    -7+1        1 - (ITEMS PER LISTING LINE)                        CCGC         150     A     
 CCGC               SB6    X5                                                              CCGC         151     A     
 CCGC               SA6    LDCA                                                            CCGC         152     A     
 CCGC      LDC4     SA5    A5+B1                                                           CCGC         153     A     
 CCGC               SX1    X5                                                              CCGC         154     A     
 CCGC               CALL   CDD         CONVERT DECIMAL DIGITS                              CCGC         155     A     
 CCGC               SX0    X0+B1                                                           CCGC         156     A     
 CCGC               SB6    B6-1                                                            CCGC         157     A     
 CCGC               SA6    A6+B1                                                           CCGC         158     A     
 CCGC               LE     B6,LDC6     IF TABLE EXHAUSTED                                  CCGC         159     A     
 CCGC               MI     X0,LDC4     IF LINE NOT FULL                                    CCGC         160     A     
 CCGC      LDC6     SB7    A6+B1                                                           CCGC         161     A     
 CCGC               SX5    B6                                                              CCGC         162     A     
 CCGC               SB6    LDCA+1                                                          CCGC         163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2004    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               PLINE  B6,B7-B6                                                        CCGC         164     A     
 CCGC               NZ     X5,LDC2     IF TABLE NOT EXHAUSTED                              CCGC         165     A     
 CCGC               EQ     EXIT.                                                           CCGC         166     A     
 CCGC                                                                                      CCGC         167     A     
 CCGC      LDCA     DIS    5,  STATEMENTS BEGINNING AT BELOW LINE NUMBERS ARE              CCGC         168     A     
 CCGC      LDCB     DIS    3,  UNREACHABLE (DEAD CODE).                                    CCGC         169     A     
 CCGC      LDCC     DATA   A/ DEAD CODE IN /                                               CCGC         170     A     
 CCGC      LDCD     BSS    1           (IDENT)                                             CCGC         171     A     
 CCGC                                                                                      CCGC         172     A     
 CCGC                                                                                      CCGC         173     A     
 CCGC      T.SYM    EQUEXT O$SYM                                                           CCGC         174     A     
 CCGC     *CALL     COMFWIN            WRITE INSTRUCTIONS TO PREBINARY                     CCGC         175     A     
 CCGC               ENTRY  WIN                                                             CCGC         176     A     
 CCGC                                                                                      CCGC         177     A     
 CCGC      ORG      EQUEXT CC$BLEN                                                         CCGC         178     A     
 CCGC      PARCEL   EQUEXT CC$PC                                                           CCGC         179     A     
 CCGC               ENTRY  WTE                                                             CCGC         180     A     
 CCGC      CBI      EQUEXT CC$LBO                                                          CCGC         181     A     
 CCGC     *CALL     COMFITS                                                                CCGC         182     A     
 CCGC               ENTRY  ITS                                                             CCGC         183     A     
 CCGC               ENTRY  PSTAB                                                           CCGC         184     A     
 CCGC               ENTRY  WINOC                                                           CCGC         185     A     
 CCGC     *CALL     COMFUSE            PROCESS USE PSEUDO INSTRUCTION                      CCGC         186     A     
 CCGC                                                                                      CCGC         187     A     
 CCGC               TITLE  SUBROUTINES.                                                    CCGC         188     A     
 CCGC      OTC      EJECT                                                                  CCGC         189     A     
 CCGC      ISSUE    SPACE  4,8                                                             CCGC         190     A     
 CCGC     **        ISSUE - ISSUE OPERATION OR PSEUDO TO PB.                               CCGC         191     A     
 CCGC                                                                                      CCGC         192     A     
 CCGC      ISSUE    MACRO  OP,TAG                                                          CCGC         193     A     
 CCGC               =X7    OP                                                              CCGC         194     A     
 CCGC               LX7    PB.GHIJP                                                        CCGC         195     A     
 CCGC               IFC    NE,/TAG//,3                                                     CCGC         196     A     
 CCGC               XR=    X5,TAG                                                          CCGC         197     A     
 CCGC               LX5    PB.TAGP                                                         CCGC         198     A     
 CCGC               BX7    X7+X5                                                           CCGC         199     A     
 CCGC               WCODE  X7                                                              CCGC         200     A     
 CCGC      ISSUE    ENDM                                                                   CCGC         201     A     
 CCGC      XR=      SPACE  4,8                                                             CCGC         202     A     
 CCGC     **        XR= - X-REGISTER VERSION OF R= PSEUDO INSTRUCTION.                     CCGC         203     A     
 CCGC     *                                                                                CCGC         204     A     
 CCGC     *         IF *EXPR* = *LDREG*, GENERATES NOTHING.                                CCGC         205     A     
 CCGC     *         IF *EXPR* = OTHER X-REG, GENERATES BOOLEAN XMIT TO *LDREG*.            CCGC         206     A     
 CCGC     *         IF *EXPR* = ELSE, GENERATES INCREMENT INSTR TO LOAD *LDREG*.           CCGC         207     A     
 CCGC     *                                                                                CCGC         208     A     
 CCGC     *                                                                                CCGC         209     A     
 CCGC     *         XR=       LDREG,EXPR                                                   CCGC         210     A     
 CCGC     *                                                                                CCGC         211     A     
 CCGC     *         ENTRY  *LDREG* = X-REGISTER TO BE LOADED.  MUST BE X1 THRU X5.         CCGC         212     A     
 CCGC     *                *EXPR*  = ADDRESS EXPRESSION FOR VALUE TO BE LOADED.            CCGC         213     A     
 CCGC     *                                                                                CCGC         214     A     
 CCGC     *         USES   *LDREG* AND ITS A-REGISTER.                                     CCGC         215     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2005    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC     *                                                                                CCGC         216     A     
 CCGC     *         CALLS  NONE                                                            CCGC         217     A     
 CCGC                                                                                      CCGC         218     A     
 CCGC                                                                                      CCGC         219     A     
 CCGC               PURGMAC   XR=                                                          CCGC         220     A     
 CCGC                                                                                      CCGC         221     A     
 CCGC      XR=      MACRO  R,E                                                             CCGC         222     A     
 CCGC       LOCAL A                                                                        CCGC         223     A     
 CCGC     A MICRO 1,, E                                                                    CCGC         224     A     
 CCGC     A MICCNT A                                                                       CCGC         225     A     
 CCGC       IFEQ A,2,5                                                                     CCGC         226     A     
 CCGC     A MICRO 1,1, E                                                                   CCGC         227     A     
 CCGC       IFC EQ, "A" X ,3                                                               CCGC         228     A     
 CCGC       IFC NE, R E ,1                                                                 CCGC         229     A     
 CCGC       B_R E                                                                          CCGC         230     A     
 CCGC       SKIP 6                                                                         CCGC         231     A     
 CCGC     A MICRO 2,1, R                                                                   CCGC         232     A     
 CCGC       IFC GE, "A" 1 ,3                                                               CCGC         233     A     
 CCGC       IFC LT, "A" 6 ,2                                                               CCGC         234     A     
 CCGC       SA"A" E                                                                        CCGC         235     A     
 CCGC       SKIP 1                                                                         CCGC         236     A     
 CCGC       ERR (R) NOT X1-X5 "SEQUENCE"                                                   CCGC         237     A     
 CCGC      XR=      ENDM                                                                   CCGC         238     A     
 CCGC               SPACE  4,8                                                             CCGC         239     A     
 CCGC     **        OTC - OUTPUT TERMINAL CODE.                                            CCGC         240     A     
 CCGC                                                                                      CCGC         241     A     
 CCGC     **        AI. - APLIST INDEX TABLE ENTRY FORMAT                                  CCGC         242     A     
 CCGC               DESCRIBE AI.,60                                                        CCGC         243     A     
 CCGC      EQV      DEFINE 1                                                               CCGC         244     A     
 CCGC      BASE     DEFINE 1           BASE MEMBER OF A CLASS OF EQUIV APLISTS             CCGC         245     A     
 CCGC               DEFINE 4                                                               CCGC         246     A     
 CCGC      LINK     DEFINE 18                                                              CCGC         247     A     
 CCGC      LEN      DEFINE 18                                                              CCGC         248     A     
 CCGC      INDX     DEFINE 18                                                              CCGC         249     A     
 CCGC                                                                                      CCGC         250     A     
 CCGC      BIAS     DEQU   LEN                                                             CCGC         251     A     
 CCGC      ORD      DEQU   INDX                                                            CCGC         252     A     
 CCGC                                                                                      CCGC         253     A     
 CCGC      OTCA     BSS    1                                                               CCGC         254     A     
 CCGC      OTCB     BSS    1                                                               CCGC         255     A     
 CCGC                                                                                      CCGC         256     A     
 CCGC      OTC      SUBR   =                                                               CCGC         257     A     
 CCGC               SX1    =XBN=STRT                                                       CCGC         258     A     
 CCGC               CALL   CG$CUB      VARDIM CODE TO GO TO START.                         CCGC         259     A     
 CCGC               ISSUE  I.ECI       FLAG END OF CCG OUTPUT                              CCGC         260     A     
 CCGC               SA1    CC$SUB                                                          CCGC         261     A     
 CCGC               ZR     X1,OTC1     IF NO SUBS                                          CCGC         262     A     
 CCGC                                                                                      CCGC         263     A     
 CCGC               ISUSE  SUB         USE SUB.                                            CCGC         264     A     
 CCGC               ISSUE  I.BSS,=XS=SUB     SUB. BSS 0                                    CCGC         265     A     
 CCGC               ISUSE  TEM                                                             CCGC         266     A     
 CCGC               ISSUE  I.BSS,=XS=SUBI                                                  CCGC         267     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2006    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               =X6    0                                                               CCGC         268     A     
 CCGC               RJ     OSI         OUTPUT SUB INDEX TABLE                              CCGC         269     A     
 CCGC               ISUSE  STRT        USE START.                                          CCGC         270     A     
 CCGC               SA4    =XS=ENTRY                                                       CCGC         271     A     
 CCGC               RJ     OSC         OUTPUT SUB CODE FOR HEADER                          CCGC         272     A     
 CCGC                                                                                      CCGC         273     A     
 CCGC      OTC1     RJ     MZP         MARK POSSIBLE LEVEL-0 VARDIMS FOR OZC               CCGC         274     A     
 CCGC               ISUSE  TEM                                                             CCGC         275     A     
 CCGC               ISSUE  I.BSS,=XS=SUB0I                                                 CCGC         276     A     
 CCGC               =X6    1                                                               CCGC         277     A     
 CCGC               RJ     OSI         ISSUE SUB0 INDEX TABLE                              CCGC         278     A     
 CCGC                                                                                      CCGC         279     A     
 CCGC      OTC15    ISUSE  STRT                                                            CCGC         280     A     
 CCGC               SA4    S=ENTRY                                                         CCGC         281     A     
 CCGC               RJ     OZC         ISSUE SUB0 CODE FOR HEADER                          CCGC         282     A     
 CCGC               RJ     OVC                                                             CCGC         283     A     
 CCGC               SA4    =XS=ENTRY                                                       CCGC         284     A     
 CCGC               RJ     OLC         OUTPUT FP LOCAL COPIES                              CCGC         285     A     
 CCGC               SA2    =XN.ALTEN                                                       CCGC         286     A     
 CCGC               ZR     X2,OTC4     IF NO ALTERNATE ENTRIES                             CCGC         287     A     
 CCGC               ISUSE  CODE        USE CODE.                                           CCGC         288     A     
 CCGC                                                                                      CCGC         289     A     
 CCGC     *         ISSUE ALTERNATE ENTRY BLOCKS.                                          CCGC         290     A     
 CCGC                                                                                      CCGC         291     A     
 CCGC               SA2    =XS=ENTRY                                                       CCGC         292     A     
 CCGC               SX6    X2+B1       I = (S=ENTRY)                                       CCGC         293     A     
 CCGC                                                                                      CCGC         294     A     
 CCGC      OTC2     SA3    =XO$SYM                                                         CCGC         295     A     
 CCGC               LX2    B1,X6                                                           CCGC         296     A     
 CCGC               IX4    X6+X2                                                           CCGC         297     A     
 CCGC               IX0    X3+X4                                                           CCGC         298     A     
 CCGC               SA3    X0+B1                                                           CCGC         299     A     
 CCGC               SX6    X6+B1       I = I + 1                                           CCGC         300     A     
 CCGC               HX3    WB.ENT                                                          CCGC         301     A     
 CCGC               PL     X3,OTC2     IF NOT ENT[WB(I)]                                   CCGC         302     A     
 CCGC               LX3    WB.ENTP-WB.LABP                                                 CCGC         303     A     
 CCGC               MI     X3,OTC2     IF LAB[WB(I)]                                       CCGC         304     A     
 CCGC               SX4    X6-1                                                            CCGC         305     A     
 CCGC               BX6    X4                                                              CCGC         306     A     
 CCGC               SA6    OTCA                                                            CCGC         307     A     
 CCGC               MX0    -WC.EGLL                                                        CCGC         308     A     
 CCGC               SA3    A3+B1                                                           CCGC         309     A     
 CCGC               LX3    -WC.EGLP                                                        CCGC         310     A     
 CCGC               BX2    -X0*X3                                                          CCGC         311     A     
 CCGC               SX6    I.GL+X2     OTCB = EGL[WC(I)]                                   CCGC         312     A     
 CCGC               SA6    OTCB                                                            CCGC         313     A     
 CCGC               ISSUE  I.BSS,X4    LNAME BSS 0                                         CCGC         314     A     
 CCGC               ISSUE  I.UJP,X4    ENTRY/EXIT WORD                                     CCGC         315     A     
 CCGC               ISSUE  5140B,X4    SA4 ENAME                                           CCGC         316     A     
 CCGC               ISSUE  1064B       BX6 X4                                              CCGC         317     A     
 CCGC               ISSUE  5160B,=XS=ENTRY   SA6 HNAME                                     CCGC         318     A     
 CCGC               MX6    0                                                               F2950F5A      34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2007    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               SA6    =XENTRJ     FLAG NO RJ SINCE PLUG                               F2950F5A      35     A     
 CCGC                                                                                      CCGC         319     A     
 CCGC               RJ     ISA         ISSUE SAVE A0 / RJ CPL.                             CCGC         320     A     
 CCGC               SA4    OTCA                                                            CCGC         321     A     
 CCGC               RJ     OSC         ISSUE SUB CODE                                      CCGC         322     A     
 CCGC               RJ     OZC         ISSUE SUB0 CODE                                     CCGC         323     A     
 CCGC               RJ     OVC         OUTPUT VARDIM CODE                                  CCGC         324     A     
 CCGC               SA4    OTCA                                                            CCGC         325     A     
 CCGC               RJ     OLC         OUTPUT FP LOCAL COPIES                              CCGC         326     A     
 CCGC                                                                                      F2950F5A      36     A     
 CCGC     *         IF NO RJ ISSUED SINCE PLUG, ISSUE ONE NOW TO VOID STACK.               F2950F5A      37     A     
 CCGC                                                                                      F2950F5A      38     A     
 CCGC               SA5    ENTRJ                                                           F2950F5A      39     A     
 CCGC               NZ     X5,OTC3     IF RJ ISSUED AS PART OF INITIALIZATION              F2950F5A      40     A     
 CCGC               ADDWRD GLT,B0      ADD GENERATED LABEL                                 F2950F5A      41     A     
 CCGC               SX4    B6+K.GL     TAG OF LABEL                                        F2950F5A      42     A     
 CCGC               ISSUE  I.RJ3,X4    RJ GL                                               F2950F5A      43     A     
 CCGC               ISSUE  I.BSS,X4    GL BSS 0                                            F2950F5A      44     A     
 CCGC               ISSUE  I.ZERO      BSS 1                                               F2950F5A      45     A     
 CCGC                                                                                      CCGC         327     A     
 CCGC     *         ISSUE JUMP INTO CODE BODY.                                             CCGC         328     A     
 CCGC                                                                                      CCGC         329     A     
 CCGC      OTC3     SA5    OTCB                                                            CCGC         330     A     
 CCGC               SA1    N.ALTEN                                                         CCGC         331     A     
 CCGC               SX6    X1-1                                                            CCGC         332     A     
 CCGC               SA6    A1          N.ALTEN = N.ALTEN + 1                               CCGC         333     A     
 CCGC               SB5    X6                                                              CCGC         334     A     
 CCGC               ISSUE  I.UJP,X5    EQ EGL[WC(I)]                                       CCGC         335     A     
 CCGC               SA4    OTCA                                                            CCGC         336     A     
 CCGC               SX6    X4+1                                                            CCGC         337     A     
 CCGC               NZ     B5,OTC2     IF N LT MAX  */MORE ENTRIES                         CCGC         338     A     
 CCGC                                                                                      CCGC         339     A     
 CCGC      OTC4     ISSUE  I.EMI                                                           CCGC         340     A     
 CCGC                                                                                      CCGC         341          I
          -F2950F5A 
 CCGC      OTC6     MX7    0                                                               CCGC         342          I
          -F2950F5A 
 CCGC               MX7    0                                                               F2950F5A      46     A     
 CCGC               SA7    =XL$ASG     SHRINK *ASG*                                        CCGC         343     A     
 CCGC               SB5    B0                                                              CCGC         344     A     
 CCGC               RJ     CAW         CONVERT APT TO WC. FORMAT                           CCGC         345     A     
 CCGC               SB5    B1                                                              CCGC         346     A     
 CCGC               RJ     CAW         CONVERT IOI TO WC. FORMAT.                          CCGC         347     A     
 CCGC               CALL   ITS                                                             CCGC         348     A     
 CCGC               RJ     MEP         MISC. END PROCESSING                                CCGC         349     A     
 CCGC               ISSUE  OC$END                                                          CCGC         350     A     
 CCGC               EQ     EXIT.                                                           CCGC         351     A     
 CCGC      OLC      EJECT                                                                  CCGC         352     A     
 CCGC     **        OLC - OUTPUT LOCAL COPIES OF FORMAL PARAMETERS.                        CCGC         353     A     
 CCGC     *                                                                                CCGC         354     A     
 CCGC     *         ENTRY  X4 = ENTRY SYMTAB ORD.                                          CCGC         355     A     
 CCGC                                                                                      CCGC         356     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2008    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC      OLC      SUBR                                                                   CCGC         357     A     
 CCGC               SA1    N$LC                                                            CCGC         358     A     
 CCGC               ZR     X1,EXIT.    IF NO LOCAL COPIES                                  CCGC         359     A     
 CCGC               SA2    O$SYM                                                           CCGC         360     A     
 CCGC               LX3    B1,X4                                                           CCGC         361     A     
 CCGC               IX4    X4+X3                                                           CCGC         362     A     
 CCGC               =B7    X2+WB.W                                                         CCGC         363     A     
 CCGC               SA1    B7+X4                                                           CCGC         364     A     
 CCGC               MX0    -WB.PNTL                                                        CCGC         365     A     
 CCGC               LX1    -WB.PNTP                                                        CCGC         366     A     
 CCGC               BX5    -X0*X1                                                          CCGC         367     A     
 CCGC               ZR     X5,EXIT.    IF NO FP*S AT THIS ENTRY                            CCGC         368     A     
 CCGC                                                                                      CCGC         369     A     
 CCGC     *         ALLOCATE FOR LD, XMT ST SEQUENCE FOR ALL FPS.                          CCGC         370     A     
 CCGC                                                                                      CCGC         371     A     
 CCGC               SA1    =XL$FPI                                                         CCGC         372     A     
 CCGC               LX2    B1,X1                                                           CCGC         373     A     
 CCGC               IX1    X2+X1                                                           CCGC         374     A     
 CCGC               LX1    2                                                               CCGC         375     A     
 CCGC               SX1    X1+4        L$TXT = 4 (FOR BOS) + 3*4*L$FPI                     CCGC         376     A     
 CCGC               MX7    0                                                               CCGC         377     A     
 CCGC               SA7    L$TXT                                                           CCGC         378     A     
 CCGC               ALLOC  TXT,X1                                                          CCGC         379     A     
 CCGC                                                                                      CCGC         380     A     
 CCGC     *         INITIALIZE SEQ. TO BOS.                                                CCGC         381     A     
 CCGC                                                                                      CCGC         382     A     
 CCGC               =X7    1                                                               CCGC         383     A     
 CCGC               LX7    R1.INP                                                          CCGC         384     A     
 CCGC               =B6    OC.BOS                                                          CCGC         385     A     
 CCGC               PX6    B6,X7                                                           CCGC         386     A     
 CCGC               MX7    0                                                               CCGC         387     A     
 CCGC               SA6    X2                                                              CCGC         388     A     
 CCGC               SA1    F$RDT+OC.BOS                                                    CCGC         389     A     
 CCGC               SA7    A6+B1                                                           CCGC         390     A     
 CCGC               BX6    X1                                                              CCGC         391     A     
 CCGC               SA6    A7+B1                                                           CCGC         392     A     
 CCGC               SA7    A6+B1                                                           CCGC         393     A     
 CCGC               SB3    4           RI = 4                                              CCGC         394     A     
 CCGC               SA1    =XO$ENTP                                                        CCGC         395     A     
 CCGC               SA3    =XO$FPI                                                         CCGC         396     A     
 CCGC               IX0    X1+X5                                                           CCGC         397     A     
 CCGC               SB6    X3-1                                                            CCGC         398     A     
 CCGC               SA2    X0                                                              CCGC         399     A     
 CCGC               SB4    60                                                              CCGC         400     A     
 CCGC                                                                                      CCGC         401     A     
 CCGC      OLC10    NZ     B4,OLC20    IF WORD NOT EXHAUSTED                               CCGC         402     A     
 CCGC               SB4    60                                                              CCGC         403     A     
 CCGC               SA2    A2+1                                                            CCGC         404     A     
 CCGC                                                                                      CCGC         405     A     
 CCGC      OLC20    SB4    B4-15                                                           CCGC         406     A     
 CCGC               MX0    -EF.ORDL                                                        CCGC         407     A     
 CCGC               AX4    B4,X2                                                           CCGC         408     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2009    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               BX6    -X0*X4                                                          CCGC         409     A     
 CCGC               ZR     X6,OLC30    IF END OF PARAMATER LIST                            CCGC         410     A     
 CCGC                                                                                      CCGC         411     A     
 CCGC     *         IF FPI.LC IS SET, ISSUE CODE TO DEFINE LOCAL COPY.                     CCGC         412     A     
 CCGC                                                                                      CCGC         413     A     
 CCGC               LX4    B1,X6                                                           CCGC         414     A     
 CCGC               IX4    X4+X6                                                           CCGC         415     A     
 CCGC               SA4    B7+X4                                                           CCGC         416     A     
 CCGC               MX0    -WB.FPNOL                                                       CCGC         417     A     
 CCGC               BX5    X4                                                              CCGC         418     A     
 CCGC               LX4    -WB.FPNOP                                                       CCGC         419     A     
 CCGC               BX3    -X0*X4                                                          CCGC         420     A     
 CCGC               SA4    B6+X3       FPI(FP)                                             CCGC         421     A     
 CCGC               HX4    FP.LC                                                           CCGC         422     A     
 CCGC               PL     X4,OLC10    IF NO LOCAL COPY                                    CCGC         423     A     
 CCGC               MX0    -WB.MODEL                                                       CCGC         424     A     
 CCGC               LX5    -WB.MODEP                                                       CCGC         425     A     
 CCGC               SA6    OLCA        SAVE IH                                             CCGC         426     A     
 CCGC               BX0    -X0*X5                                                          CCGC         427     A     
 CCGC               =B2    1           FLAG DOUBLE WORD                                    CCGC         428     A     
 CCGC               SB5    X0-M.DBL                                                        CCGC         429     A     
 CCGC               ZR     B5,OLC24    IF FP DOUBLE                                        CCGC         430     A     
 CCGC               EQ     B5,B1,OLC24 IF FP COMPLEX                                       CCGC         431     A     
 CCGC               =B2    0           FLAG SINGLE WORD                                    CCGC         432     A     
 CCGC                                                                                      CCGC         433     A     
 CCGC      OLC24    LX4    1+FP.LCP-FP.CAP                                                 CCGC         434     A     
 CCGC               MX0    -FP.CAL                                                         CCGC         435     A     
 CCGC               BX0    -X0*X4                                                          CCGC         436     A     
 CCGC                                                                                      CCGC         437     A     
 CCGC      OLC25    SX5    B3          RI                                                  CCGC         438     A     
 CCGC               SB5    OC.LD                                                           CCGC         439     A     
 CCGC               LX6    IH.IHP                                                          CCGC         440     A     
 CCGC               RJ     SRI         ISSUE LD 4,FP                                       CCGC         441     A     
 CCGC               SX5    B3                                                              CCGC         442     A     
 CCGC               SX4    B3-4                                                            CCGC         443     A     
 CCGC               LX4    R1.RJP                                                          CCGC         444     A     
 CCGC               BX5    X5+X4                                                           CCGC         445     A     
 CCGC               MX6    0                                                               CCGC         446     A     
 CCGC               SB5    OC.XMT                                                          CCGC         447     A     
 CCGC               RJ     SRI         ISSUE XMT 10,4                                      CCGC         448     A     
 CCGC               SX5    B3-4                                                            CCGC         449     A     
 CCGC               SB5    OC.ST                                                           CCGC         450     A     
 CCGC               SA1    =XS=LC                                                          CCGC         451     A     
 CCGC               LX0    IH.CAP                                                          CCGC         452     A     
 CCGC               LX1    IH.IHP                                                          CCGC         453     A     
 CCGC               BX6    X0+X1                                                           CCGC         454     A     
 CCGC               RJ     SRI         ISSUE ST 10,LC.+K                                   CCGC         455     A     
 CCGC               ZR     B2,OLC10    IF NOT ABOUT TO DO LOWER                            CCGC         456     A     
 CCGC               =X5    1                                                               CCGC         457     A     
 CCGC               LX5    IH.CAP-IH.IHP     CA = 1                                        CCGC         458     A     
 CCGC               SA3    OLCA                                                            CCGC         459     A     
 CCGC               BX6    X3+X5                                                           CCGC         460     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2010    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               LX0    -IH.CAP                                                         CCGC         461     A     
 CCGC               =X0    X0+1        K = K + 1                                           CCGC         462     A     
 CCGC               =B2    0           FLAG LOWER DONE                                     CCGC         463     A     
 CCGC               EQ     OLC25       OUTPUT LOWER                                        CCGC         464     A     
 CCGC                                                                                      CCGC         465     A     
 CCGC      OLC30    SX6    B3                                                              CCGC         466     A     
 CCGC               SX7    B3-4                                                            CCGC         467     A     
 CCGC               SA6    L$TXT                                                           CCGC         468     A     
 CCGC               ZR     X7,EXIT.                                                        CCGC         469     A     
 CCGC               SA7    =XCC$BRN+1                                                      CCGC         470     A     
 CCGC               ISSUE  I.BCI                                                           CCGC         471     A     
 CCGC               CALL   CG$CPC                                                          CCGC         472     A     
 CCGC               ISSUE  I.ECI                                                           CCGC         473     A     
 CCGC               EQ     EXIT.                                                           CCGC         474     A     
 CCGC                                                                                      CCGC         475     A     
 CCGC      OLCA     BSS    1                                                               CCGC         476     A     
 CCGC      SRI      SPACE  4,8                                                             CCGC         477     A     
 CCGC     **        SRI - STORE RLIST INSTRUCTION.                                         CCGC         478     A     
 CCGC     *                                                                                CCGC         479     A     
 CCGC     *         ENTRY  B5 = OPCODE                                                     CCGC         480     A     
 CCGC     *                X5 = R1                                                         CCGC         481     A     
 CCGC     *                X6 = R2                                                         CCGC         482     A     
 CCGC     *                                                                                CCGC         483     A     
 CCGC     *         BUMPS RI IN B3                                                         CCGC         484     A     
 CCGC                                                                                      CCGC         485     A     
 CCGC      SRI      SUBR                                                                   CCGC         486     A     
 CCGC               PX7    B5,X5                                                           CCGC         487     A     
 CCGC               SA3    F$RDT+B5                                                        CCGC         488     A     
 CCGC               SA7    A7+B1                                                           CCGC         489     A     
 CCGC               SA6    A7+B1                                                           CCGC         490     A     
 CCGC               MX7    0                                                               CCGC         491     A     
 CCGC               BX6    X3                                                              CCGC         492     A     
 CCGC               SA6    A6+B1                                                           CCGC         493     A     
 CCGC               SB3    B3+4                                                            CCGC         494     A     
 CCGC               SA7    A6+1                                                            CCGC         495     A     
 CCGC               EQ     EXIT.                                                           CCGC         496     A     
 CCGC      OVC      SPACE  4,10                                                            CCGC         497     A     
 CCGC     **        OVC - OUTPUT VARDIM CODE.                                              CCGC         498     A     
 CCGC                                                                                      CCGC         499     A     
 CCGC      OVC      SUBR                                                                   CCGC         500     A     
 CCGC               BX6    X4                                                              CCGC         501     A     
 CCGC               SA6    OVCA                                                            CCGC         502     A     
 CCGC               SA1    =XL$VDT                                                         CCGC         503     A     
 CCGC               ZR     X1,EXIT.    IF NO VARDIM                                        CCGC         504     A     
 CCGC               RJ     MVT         MOVE VARDIM TO TXT                                  CCGC         505     A     
 CCGC                                                                                      CCGC         506     A     
 CCGC     *         ZERO ALL VD.ALO BITS AND RESET THOSE FOR VD. CELLS WHICH               CCGC         507     A     
 CCGC     *         THIS ENTRY POINT IS ALLOWED TO ACCESS.                                 CCGC         508     A     
 CCGC                                                                                      CCGC         509     A     
 CCGC               SA1    OVCA                                                            CCGC         510     A     
 CCGC               RJ     MAV         MARK VARDIMS APPLICABLE TO THIS ENTRY               CCGC         511     A     
 CCGC               RJ     MMV         MARK MATERIALIZED VARDIM                            CCGC         512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2011    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               ISSUE  I.BCI       START OF CCG OUTPUT                                 CCGC         513     A     
 CCGC               SA1    L$TXT                                                           CCGC         514     A     
 CCGC               SX6    X1-4                                                            CCGC         515     A     
 CCGC               SA6    =XCC$BRN+1                                                      CCGC         516     A     
 CCGC               CALL   CG$CPC                                                          CCGC         517     A     
 CCGC               ISSUE  I.ECI                                                           CCGC         518     A     
 CCGC               EQ     EXIT.                                                           CCGC         519     A     
 CCGC                                                                                      CCGC         520     A     
 CCGC      OVCA     BSS    1           ENTRY SYMTAB ORDINAL                                CCGC         521     A     
 CCGC      MVT      SPACE  4,8                                                             CCGC         522     A     
 CCGC     **        MVT - MOVE VARDIM TO TXT.                                              CCGC         523     A     
 CCGC                                                                                      CCGC         524     A     
 CCGC      MVT      SUBR                                                                   CCGC         525     A     
 CCGC               MX6    0                                                               CCGC         526     A     
 CCGC               SA6    =XL$TXT                                                         CCGC         527     A     
 CCGC               ALLOC  TXT,X1+3                                                        CCGC         528     A     
 CCGC               MX7    60                                                              CCGC         529     A     
 CCGC               SB7    X3-1                                                            CCGC         530     A     
 CCGC               SA7    X2+B7                                                           CCGC         531     A     
 CCGC               SX1    X3-3                                                            CCGC         532     A     
 CCGC               BX6    X1                                                              CCGC         533     A     
 CCGC               BX3    X2                                                              CCGC         534     A     
 CCGC               SA6    A3                                                              CCGC         535     A     
 CCGC               SA2    =XO$VDT                                                         CCGC         536     A     
 CCGC               MOVE   X1,X2,X3    MOVE (L$VDT, VDT, TXT)                              CCGC         537     A     
 CCGC               EQ     EXIT.                                                           CCGC         538     A     
 CCGC      MMV      SPACE  4,8                                                             CCGC         539     A     
 CCGC     **        MMV - MARK MATERIALIZED VARDIMS.                                       CCGC         540     A     
 CCGC     *         LOOP THROUGH TXT COPY OF VARDIM CODE, PROCESSING ALL STORES.           CCGC         541     A     
 CCGC     *         THOSE VD. CELLS WHICH ARE NEEDED (ALLOWED FOR THIS ENTRY POINT         CCGC         542     A     
 CCGC     *         AND USED IN THE PROGRAM) ARE GIVEN THEIR REAL CA FROM VDT.             CCGC         543     A     
 CCGC     *         OTHER VD. STORES ARE NO-OP*ED.                                         CCGC         544     A     
 CCGC                                                                                      CCGC         545     A     
 CCGC      MMV      SUBR                                                                   CCGC         546     A     
 CCGC               SA2    =XO$TXT                                                         CCGC         547     A     
 CCGC               SB4    59-D.STP                                                        CCGC         548     A     
 CCGC               SA1    X2+2+3*4    I = 4  STORE MAY BE 4TH INST. AT EARLIEST           CCGC         549     A     
 CCGC               SA2    =XO$VDI                                                         CCGC         550     A     
 CCGC               SB6    X2                                                              CCGC         551     A     
 CCGC               SA2    =XF$RDT+OC.NOP                                                  CCGC         552     A     
 CCGC               SB5    OC.NOP                                                          CCGC         553     A     
 CCGC               BX7    X2                                                              CCGC         554     A     
 CCGC               MX5    VD.MAL                                                          CCGC         555     A     
 CCGC               SB3    4                                                               CCGC         556     A     
 CCGC               LX5    VD.MAL+VD.MAP                                                   CCGC         557     A     
 CCGC               MX0    -VD.CAL                                                         CCGC         558     A     
 CCGC                                                                                      CCGC         559     A     
 CCGC      OVC10    LX3    B4,X1                                                           CCGC         560          I
          -FC50182
 CCGC      MMV10    LX3    B4,X1                                                           FC50182        5     A     
 CCGC               SA1    A1+B3                                                           CCGC         561     A     
 CCGC               PL     X3,OVC10    IF NOT ST[D(I)]                                     CCGC         562          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2012    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
          -FC50182
 CCGC               PL     X3,MMV10    IF NOT ST[D(I)]                                     FC50182        6     A     
 CCGC               ZR     X3,EXIT.    IF I = LEN(TXT)                                     CCGC         563     A     
 CCGC               SA2    A1-5        R2W = R2(I)                                         CCGC         564     A     
 CCGC               LX2    -IH.CAP                                                         CCGC         565     A     
 CCGC               SA4    X2+B6       VDW = VDT(CA[R2W])                                  CCGC         566     A     
 CCGC               HX4    VD.MA                                                           CCGC         567     A     
 CCGC               BX3    -X4*X5                                                          CCGC         568     A     
 CCGC               NZ     X3,OVC15    IF THIS VD. NOT NEEDED                              CCGC         569          I
          -FC50182
 CCGC               NZ     X3,MMV15    IF THIS VD. NOT NEEDED                              FC50182        7     A     
 CCGC               LX4    VD.MAP+VD.MAL-VD.CAP                                            CCGC         570     A     
 CCGC               BX4    -X0*X4                                                          CCGC         571     A     
 CCGC               BX6    X0*X2                                                           CCGC         572     A     
 CCGC               BX6    X4+X6       CA[R2W] = CA[VDW]                                   CCGC         573     A     
 CCGC               LX6    IH.CAP                                                          CCGC         574     A     
 CCGC               SA6    A2                                                              CCGC         575     A     
 CCGC               EQ     OVC10                                                           CCGC         576          I
          -FC50182
 CCGC               EQ     MMV10                                                           FC50182        8     A     
 CCGC                                                                                      CCGC         577     A     
 CCGC      OVC15    MX3    0                                                               CCGC         578          I
          -FC50182
 CCGC      MMV15    MX3    0                                                               FC50182        9     A     
 CCGC               SA7    A2+B1       D(I) = RDT(OC.NOP)                                  CCGC         579     A     
 CCGC               PX6    B5,X3                                                           CCGC         580     A     
 CCGC               SA6    A2-B1       R1(I) = P(OC.NOP)                                   CCGC         581     A     
 CCGC               EQ     OVC10                                                           CCGC         582          I
          -FC50182
 CCGC               EQ     MMV10                                                           FC50182       10     A     
 CCGC     *CALL COMFISA                                                                    CCGC         583     A     
 CCGC     *CALL COMFMAV                                                                    CCGC         584     A     
 CCGC      OSI      EJECT                                                                  CCGC         585     A     
 CCGC     **        OSI - ISSUE SUB INDEX TABLE.                                           CCGC         586     A     
 CCGC                                                                                      CCGC         587     A     
 CCGC      OSI      SUBR                                                                   CCGC         588     A     
 CCGC               SA6    OSIA                                                            CCGC         589     A     
 CCGC               MX7    0                                                               CCGC         590     A     
 CCGC               SA7    =XL$TST                                                         CCGC         591     A     
 CCGC               SA7    OSIB                                                            CCGC         592     A     
 CCGC               SA1    =XN.CPL                                                         CCGC         593     A     
 CCGC               SX1    X1+B1                                                           CCGC         594     A     
 CCGC               ALLOC  TST,X1                                                          CCGC         595     A     
 CCGC               MX7    0                                                               CCGC         596     A     
 CCGC               SA7    A3          L$TST = 0                                           CCGC         597     A     
 CCGC                                                                                      CCGC         598     A     
 CCGC     *         ISSUE CPL WORD FOR EACH FORMAL PARAMETER.                              CCGC         599     A     
 CCGC                                                                                      CCGC         600     A     
 CCGC               SA1    =XO$ENTP                                                        CCGC         601     A     
 CCGC               SA2    =XL$ENTP                                                        CCGC         602     A     
 CCGC               IX0    X1+X2                                                           CCGC         603     A     
 CCGC               SA5    X1-1                                                            CCGC         604     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2013    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               SB5    X0                                                              CCGC         605     A     
 CCGC               EQ     OSI20                                                           CCGC         606     A     
 CCGC                                                                                      CCGC         607     A     
 CCGC     *         ISSUE ZERO TERMINATOR FOR THIS LIST.                                   CCGC         608     A     
 CCGC                                                                                      CCGC         609     A     
 CCGC      OSI10    SA2    OSIB                                                            CCGC         610     A     
 CCGC               SA3    L$TST                                                           CCGC         611     A     
 CCGC               IX1    X3-X2                                                           CCGC         612     A     
 CCGC               ZR     X1,OSI20    IF NO SUBS THIS LIST                                CCGC         613     A     
 CCGC               MX1    1                                                               CCGC         614     A     
 CCGC               ADDWRD TST,X1                                                          CCGC         615     A     
 CCGC               SA1    OSIB                                                            CCGC         616     A     
 CCGC               SB2    X1                                                              CCGC         617     A     
 CCGC               SA1    =XO$TST                                                         CCGC         618     A     
 CCGC               SA3    L$TST                                                           CCGC         619     A     
 CCGC               RJ     SLE         SQUEEZE LAST ENTRY IF POSSIBLE                      CCGC         620     A     
 CCGC               SA6    OSIB                                                            CCGC         621     A     
 CCGC               SA6    L$TST                                                           CCGC         622     A     
 CCGC               SX6    B2+B1                                                           CCGC         623     A     
 CCGC               SA1    OSIC                                                            CCGC         624     A     
 CCGC               SA2    X1                                                              CCGC         625     A     
 CCGC               SA1    OSIA                                                            CCGC         626     A     
 CCGC               SA1    OSIS+X1                                                         CCGC         627     A     
 CCGC               SB3    X1                                                              CCGC         628     A     
 CCGC               LX6    B3                                                              CCGC         629     A     
 CCGC               BX7    X2+X6                                                           CCGC         630     A     
 CCGC               SA7    A2          SUBI[ENTP(I)] = OLD SUBI LEN                        CCGC         631     A     
 CCGC                                                                                      CCGC         632     A     
 CCGC      OSI20    SB3    A5+B1                                                           CCGC         633     A     
 CCGC               SX6    B3                                                              CCGC         634     A     
 CCGC               SA6    OSIC        SAVE HEADER ADDRESS                                 CCGC         635     A     
 CCGC               SB6    B3-B5                                                           CCGC         636     A     
 CCGC               ZR     B6,OSI50    IF END OF ENTP                                      CCGC         637     A     
 CCGC               SA5    B3+B1       SKIP HEADER                                         CCGC         638     A     
 CCGC               SB4    60                                                              CCGC         639     A     
 CCGC                                                                                      CCGC         640     A     
 CCGC      OSI30    NZ     B4,OSI40    IF THIS WORD NOT EXHAUSTED                          CCGC         641     A     
 CCGC               SB4    60                                                              CCGC         642     A     
 CCGC               SA5    A5+1                                                            CCGC         643     A     
 CCGC                                                                                      CCGC         644     A     
 CCGC      OSI40    SB4    B4-15                                                           CCGC         645     A     
 CCGC               MX0    -EF.ORDL                                                        CCGC         646     A     
 CCGC               AX3    B4,X5                                                           CCGC         647     A     
 CCGC               BX6    -X0*X3                                                          CCGC         648     A     
 CCGC               ZR     X6,OSI10    IF END OF LIST                                      CCGC         649     A     
 CCGC               SA1    O$SYM                                                           CCGC         650     A     
 CCGC               LX7    B1,X6                                                           CCGC         651     A     
 CCGC               IX3    X7+X6                                                           CCGC         652     A     
 CCGC               =B7    X1+WB.W                                                         CCGC         653     A     
 CCGC               SA1    B7+X3                                                           CCGC         654     A     
 CCGC               MX0    -WB.FPNOL                                                       CCGC         655     A     
 CCGC               SA2    =XO$FPI                                                         CCGC         656     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2014    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               LX1    -WB.FPNOP                                                       CCGC         657     A     
 CCGC               BX1    -X0*X1                                                          CCGC         658     A     
 CCGC               IX3    X1+X2                                                           CCGC         659     A     
 CCGC               SA3    X3-1                                                            CCGC         660     A     
 CCGC               SA4    OSIA                                                            CCGC         661     A     
 CCGC               SA2    OSIM1+X4                                                        CCGC         662          I
          -FC5A400
 CCGC               SA2    OSIM3+X4                                                        FC5A400        8     A     
 CCGC               SA1    OSIM2+X4                                                        CCGC         663     A     
 CCGC               BX0    X2*X3                                                           CCGC         664          I
          -FC5A400
 CCGC               NZ     X0,OSI30    IF LOCAL COPY MADE AND SUB                          CCGC         665          I
          -FC5A400
 CCGC               BX0    X1*X3                                                           CCGC         666     A     
 CCGC               ZR     X0,OSI30    IF FP NOT APPLICABLE                                CCGC         667     A     
 CCGC               SA1    OSIM3+X4                                                        CCGC         668          I
          -FC5A400
 CCGC               BX0    X1*X3                                                           CCGC         669          I
          -FC5A400
 CCGC               BX0    X2*X3                                                           FC5A400        9     A     
 CCGC               ZR     X0,OSI30    IF SUB0 AND NOT LEVEL = 0                           CCGC         670     A     
 CCGC               ADDWRD TST,X6                                                          CCGC         671     A     
 CCGC               EQ     OSI30                                                           CCGC         672     A     
 CCGC                                                                                      CCGC         673     A     
 CCGC      OSI50    SA1    L$TST                                                           CCGC         674     A     
 CCGC               SA2    O$TST                                                           CCGC         675     A     
 CCGC                                                                                      CCGC         676     A     
 CCGC     *         LOOP THROUGH TEMP. SUB TABLE AND ISSUE SUB INDEX TABLE.                CCGC         677     A     
 CCGC                                                                                      CCGC         678     A     
 CCGC               MX7    0                                                               CCGC         679     A     
 CCGC               IX0    X1+X2                                                           CCGC         680     A     
 CCGC               SA7    A1          L$TST = 0                                           CCGC         681     A     
 CCGC               SA7    X0          ZERO TERMINATE TST                                  CCGC         682     A     
 CCGC               SA4    X2-1                                                            CCGC         683     A     
 CCGC                                                                                      CCGC         684     A     
 CCGC      OSI60    SA4    A4+B1                                                           CCGC         685     A     
 CCGC               ZR     X4,EXIT.    IF TST TERMINATOR                                   CCGC         686     A     
 CCGC               MI     X4,OSI70    IF SUBLIST TERMINATOR                               CCGC         687     A     
 CCGC               SA1    OSIA                                                            CCGC         688     A     
 CCGC               SA2    OSIO+X1                                                         CCGC         689     A     
 CCGC               ISSUE  X2,X4                                                           CCGC         690     A     
 CCGC               EQ     OSI60                                                           CCGC         691     A     
 CCGC                                                                                      CCGC         692     A     
 CCGC      OSI70    ISSUE  I.ZERO                                                          CCGC         693     A     
 CCGC               EQ     OSI60                                                           CCGC         694     A     
 CCGC                                                                                      CCGC         695     A     
 CCGC      OSIA     BSS    1                                                               CCGC         696     A     
 CCGC      OSIB     BSSZ   1                                                               CCGC         697     A     
 CCGC      OSIC     BSS    1                                                               CCGC         698     A     
 CCGC      OSIS     CON    EH.SUBIP,EH.SB0IP                                               CCGC         699     A     
 CCGC      OSIO     CON    I.SUBI,I.SB0I                                                   CCGC         700     A     
 CCGC      OSIM1    BFMW   FP,LC                                                           CCGC         701          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2015    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
          -FC5A400
 CCGC               CON    0                                                               CCGC         702          I
          -FC5A400
 CCGC      OSIM2    BFMW   FP,LEN                                                          CCGC         703     A     
 CCGC               BFMW   FP,(LC,VD,SUB0)                                                 CCGC         704     A     
 CCGC      OSIM3    VFD    60/-0                                                           CCGC         705     A     
 CCGC               BFMW   FP,LEV0                                                         CCGC         706     A     
 CCGC      SLE      EJECT                                                                  CCGC         707     A     
 CCGC     *         SLE - SQUEEZE LAST TABLE ENTRY.                                        CCGC         708     A     
 CCGC     *                                                                                CCGC         709     A     
 CCGC     *         ENTRY  A1,X1 = TABLE FWA                                               CCGC         710     A     
 CCGC     *                A3,X3 = TABLE LENGTH (INCLUDING NEW ENTRY)                      CCGC         711     A     
 CCGC     *                B2 = INDEX OF NEW ENTRY (LENGTH WITHOUT NEW ENTRY)              CCGC         712     A     
 CCGC     *                                                                                CCGC         713     A     
 CCGC     *         EXIT   X6 = LENGTH INCLUDING NEW ENTRY IF NOT ALREADY PRESENT          CCGC         714     A     
 CCGC     *                B2 = INDEX OF ENTRY (SQUEEZED OR NOT)                           CCGC         715     A     
 CCGC     *                                                                                CCGC         716     A     
 CCGC     *         PRESERVES A4,A5, X4,X5 ,B5                                             CCGC         717     A     
 CCGC                                                                                      CCGC         718     A     
 CCGC      SLE      SUBR                                                                   CCGC         719     A     
 CCGC               BX6    X3                                                              CCGC         720     A     
 CCGC               SB3    X3                                                              CCGC         721     A     
 CCGC               EQ     B2,B3,EXIT. IF NOTHING ADDED                                    CCGC         722     A     
 CCGC               SB4    B3-B2                                                           CCGC         723     A     
 CCGC               SB3    B2-B4                                                           CCGC         724     A     
 CCGC               LT     B2,B4,EXIT. IF NOT ENOUGH ROOM FOR POSSIBLE COPY                CCGC         725     A     
 CCGC                                                                                      CCGC         726     A     
 CCGC      SLE10    SA2    X1+B2                                                           CCGC         727     A     
 CCGC               SB7    B4-B1                                                           CCGC         728     A     
 CCGC               SA3    X1+B3                                                           CCGC         729     A     
 CCGC                                                                                      CCGC         730     A     
 CCGC     *         SCAN BACKWARDS FOR COPY OF FIRST ELEMENT OF NEW ENTRY.                 CCGC         731     A     
 CCGC                                                                                      CCGC         732     A     
 CCGC      SLE20    BX7    X3-X2                                                           CCGC         733     A     
 CCGC               =A3    A3-1                                                            CCGC         734     A     
 CCGC               MI     B3,EXIT.    IF BEGINNING OF TABLE - NO HIT                      CCGC         735     A     
 CCGC               =B3    B3-1                                                            CCGC         736     A     
 CCGC               NZ     X7,SLE20    IF NOT MATCH                                        CCGC         737     A     
 CCGC               =X0    A3+1                                                            CCGC         738     A     
 CCGC               =A2    A2+1                                                            CCGC         739     A     
 CCGC               =A3    X0+1                                                            CCGC         740     A     
 CCGC                                                                                      CCGC         741     A     
 CCGC      SLE30    ZR     B7,SLE40    IF WHOLE ENTRY MATCHES                              CCGC         742     A     
 CCGC               BX7    X2-X3                                                           CCGC         743     A     
 CCGC               =B7    B7-1                                                            CCGC         744     A     
 CCGC               =A2    A2+1                                                            CCGC         745     A     
 CCGC               =A3    A3+1                                                            CCGC         746     A     
 CCGC               ZR     X7,SLE30    IF MATCH                                            CCGC         747     A     
 CCGC                                                                                      CCGC         748     A     
 CCGC     *         START LOOKING FOR FIRST ELEMENT AGAIN.                                 CCGC         749     A     
 CCGC                                                                                      CCGC         750     A     
 CCGC               IX3    X0-X1                                                           CCGC         751     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2016    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               SB3    X3-1                                                            CCGC         752     A     
 CCGC               EQ     SLE10                                                           CCGC         753     A     
 CCGC                                                                                      CCGC         754     A     
 CCGC      SLE40    SX6    B2          NEW LENGTH                                          CCGC         755     A     
 CCGC               IX3    X0-X1                                                           CCGC         756     A     
 CCGC               SB2    X3          BIAS                                                CCGC         757     A     
 CCGC               EQ     EXIT.                                                           CCGC         758     A     
 CCGC     *CALL COMFOSC                                                                    CCGC         759     A     
 CCGC      AFT      EJECT                                                                  CCGC         760     A     
 CCGC     **        BR$AFT - CALLED AFTER *SQZ* BY CCG.                                    CCGC         761     A     
 CCGC     *                                                                                CCGC         762     A     
 CCGC     *         NORMALLY DO-NOTHING ROUTINE, BUT USED BY MZP TO REGAIN                 CCGC         763     A     
 CCGC     *         CONTROL WITH NO CODE GENERATION                                        CCGC         764     A     
 CCGC                                                                                      CCGC         765     A     
 CCGC      BR$AFT   SUBR   =                                                               CCGC         766     A     
 CCGC               EQ     EXIT.                                                           CCGC         767     A     
 CCGC      MZP      SPACE  4,8                                                             CCGC         768     A     
 CCGC     **        MZP - MARK PARAMETERS USED IN VD. EXPRESSIONS.                         CCGC         769     A     
 CCGC     *         THIS INFORMATION IS NEEDED WHEN OUTPUTING SUB0 INDEX TABLE             CCGC         770     A     
 CCGC     *         SINCE SOME SUB0 REFERENCES HAVE NOT YET BEEN POSTED (FROM VD.          CCGC         771     A     
 CCGC     *         CODE.                                                                  CCGC         772     A     
 CCGC                                                                                      CCGC         773     A     
 CCGC      MZP      SUBR                                                                   CCGC         774     A     
 CCGC               SA3    =XLEVEL0                                                        CCGC         775     A     
 CCGC               SA1    =XL$VDT                                                         CCGC         776     A     
 CCGC               ZR     X3,EXIT.    IF NO POSSIBLE SUB0*S                               CCGC         777     A     
 CCGC                                                                                      CCGC         778     A     
 CCGC      #MD      IFEQ   .DAL,1                                                          CCGC         779     A     
 CCGC               ZR     X1,EXIT.    IF NO VARDIM                                        CCGC         780     A     
 CCGC               RJ     MVT         MOVE VARDIM TO TXT                                  CCGC         781     A     
 CCGC                                                                                      CCGC         782     A     
 CCGC     *         SET *ALLOWED* PROPERTY ON ALL VARDIMS, AS WE WANT                      CCGC         783     A     
 CCGC     *         THIS SEQ. TO CONTAIN THE UNION OF VARDIM CODE FROM                     CCGC         784     A     
 CCGC     *         ALL ENTRY BLOCKS.                                                      CCGC         785     A     
 CCGC                                                                                      CCGC         786     A     
 CCGC               SA2    O$VDI                                                           CCGC         787     A     
 CCGC               SA3    L$VDI                                                           CCGC         788     A     
 CCGC               SB7    X3                                                              CCGC         789     A     
 CCGC               CLAS=  X0,VD,ALO                                                       CCGC         790     A     
 CCGC               SA4    X2                                                              CCGC         791     A     
 CCGC                                                                                      CCGC         792     A     
 CCGC      MZP10    BX6    X0+X4                                                           CCGC         793     A     
 CCGC               SB7    B7-B1                                                           CCGC         794     A     
 CCGC               SA6    A4                                                              CCGC         795     A     
 CCGC               SA4    A4+B1                                                           CCGC         796     A     
 CCGC               NZ     B7,MAV10    IF VDI NOT EXHAUSTED                                CCGC         797          I
          -FC50182
 CCGC               NZ     B7,MZP10    IF VDI NOT EXHAUSTED                                FC50182       11     A     
 CCGC               RJ     MMV         MARK NEEDED VARDIM (SQUEEZE UNNEEDED)               CCGC         798     A     
 CCGC               PLUG   AT=BR$AFT+1,TO=MZP20,VOID=NO                                    CCGC         799     A     
 CCGC               SA1    L$TXT                                                           CCGC         800     A     
 CCGC               SX6    X1-4                                                            CCGC         801     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2017    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               SA6    =XCC$BRN+1                                                      CCGC         802     A     
 CCGC               CALL   CG$CPC                                                          CCGC         803     A     
 CCGC                                                                                      CCGC         804     A     
 CCGC     *         REGAIN CONTROL AFTER *SQZ* AND MARK FPS LOADED IN VD. CODE.            CCGC         805     A     
 CCGC                                                                                      CCGC         806     A     
 CCGC      MZP20    PLUG   AT=BR$AFT+1,TO=BR$AFT,VOID=NO                                   CCGC         807     A     
 CCGC               SX7    4                                                               CCGC         808     A     
 CCGC               SA7    L$TXT                                                           CCGC         809     A     
 CCGC               SA2    O$TXT                                                           CCGC         810     A     
 CCGC               SA1    X2                                                              CCGC         811     A     
 CCGC               CLAS=  X4,D,(FP,L2,LD)                                                 CCGC         812     A     
 CCGC               BX0    X4                                                              CCGC         813     A     
 CCGC               SA4    =XO$FPI                                                         CCGC         814     A     
 CCGC               SB7    X4-1                                                            CCGC         815     A     
 CCGC               SA5    =XO$SYM                                                         CCGC         816     A     
 CCGC               =B6    X5+WB.W                                                         CCGC         817     A     
 CCGC               MX7    -WB.FPNOL                                                       CCGC         818     A     
 CCGC               CLAS=  X5,FP,VD                                                        CCGC         819     A     
 CCGC                                                                                      CCGC         820     A     
 CCGC      MZP30    UX1    B2,X1                                                           CCGC         821     A     
 CCGC               ERRNZ  OC.EOQ                                                          CCGC         822     A     
 CCGC               SA1    A1+2                                                            CCGC         823     A     
 CCGC               ZR     B2,EXIT.    IF END OF SEQUENCE                                  CCGC         824     A     
 CCGC               BX2    X0*X1                                                           CCGC         825     A     
 CCGC               SA1    A1+2                                                            CCGC         826     A     
 CCGC               BX3    X0-X2                                                           CCGC         827     A     
 CCGC               NZ     X3,MZP30    IF NOT LCM FORMAL LOAD                              CCGC         828     A     
 CCGC                                                                                      CCGC         829     A     
 CCGC     *         SET FP.VD.                                                             CCGC         830     A     
 CCGC                                                                                      CCGC         831     A     
 CCGC               SA2    A1-3                                                            CCGC         832     A     
 CCGC               LX2    -IH.IHP                                                         CCGC         833     A     
 CCGC               SX3    X2                                                              CCGC         834     A     
 CCGC               LX4    B1,X3                                                           CCGC         835     A     
 CCGC               IX2    X3+X4                                                           CCGC         836     A     
 CCGC               SA2    B6+X2       WBI = WB(IH[R2(I)])                                 CCGC         837     A     
 CCGC               LX2    -WB.FPNOP                                                       CCGC         838     A     
 CCGC               BX3    -X7*X2                                                          CCGC         839     A     
 CCGC               SA2    B7+X3       FPI(FPNO[WBI])                                      CCGC         840     A     
 CCGC               BX6    X2+X5       VD[FPI] = 1                                         CCGC         841     A     
 CCGC               SA6    A2                                                              CCGC         842     A     
 CCGC               EQ     MZP30                                                           CCGC         843     A     
 CCGC      #MD      ELSE                                                                   CCGC         844     A     
 CCGC      .TEST    IFEQ   TEST,1,1                                                        CCGC         845     A     
 CCGC               EQ     "BLOWUP"                                                        CCGC         846     A     
 CCGC      #MD      ENDIF                                                                  CCGC         847     A     
 CCGC      CAW      EJECT                                                                  CCGC         848     A     
 CCGC     **        CAW - CONVERT APLIST INDEX TABLE TO WC FORMAT.                         CCGC         849     A     
 CCGC     *                                                                                CCGC         850     A     
 CCGC     *         ENTRY  B5 - 0 FOR APT,  1 FOR IOA.                                     CCGC         851     A     
 CCGC                                                                                      CCGC         852     A     
 CCGC      CAW      SUBR                                                                   CCGC         853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2018    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               ADDWRD APT+B5,B0   ADD SEARCH TERMINATOR                               CCGC         854     A     
 CCGC               SX7    X3-1                                                            CCGC         855     A     
 CCGC               SX0    =XBN=APL+B5                                                     CCGC         856     A     
 CCGC               SA1    X2          N = 0                                               CCGC         857     A     
 CCGC               SB6    X2                                                              CCGC         858     A     
 CCGC               LX0    WC.RBP                                                          CCGC         859     A     
 CCGC               MX5    0           EQFLAG = 0                                          CCGC         860     A     
 CCGC               SA7    A3          L$APT = L$APT - 1                                   CCGC         861     A     
 CCGC                                                                                      CCGC         862     A     
 CCGC     *         DEFINE ADDRESSES OF NON-EQUIVALENCED APLISTS.                          CCGC         863     A     
 CCGC                                                                                      CCGC         864     A     
 CCGC      CAW10    BX5    X5+X1       EQFLAG = EQFLAG .OR. EQV[APT(N)]                    CCGC         865     A     
 CCGC               SA1    A1+B1       N=N+1                                               CCGC         866     A     
 CCGC               ZR     X1,CAW20    IF N GT L$APT                                       CCGC         867     A     
 CCGC               LX1    59-AI.EQVP                                                      CCGC         868     A     
 CCGC               MI     X1,CAW10    IF EQV[APT(N)]                                      CCGC         869     A     
 CCGC               LX1    1+AI.EQVP-AI.INDXP                                              CCGC         870     A     
 CCGC               SX4    X1          ILWA1 = INDX[APT(N)]                                CCGC         871     A     
 CCGC               LX1    AI.INDXP-AI.LENP                                                CCGC         872     A     
 CCGC               SX3    X1          LEN = LEN[APT(N)]                                   CCGC         873     A     
 CCGC               IX6    X4-X3                                                           CCGC         874     A     
 CCGC               MX1    0                                                               CCGC         875     A     
 CCGC               LX6    WC.RAP      RA[APT(N)] = ILWA1 - LEN                            CCGC         876     A     
 CCGC               AX6    B5          IOA IS 2 WORDS PER ENTRY                            CCGC         877     A     
 CCGC               BX6    X6+X0       RB[APT(N)] = BN=APL                                 CCGC         878     A     
 CCGC               SA6    A1                                                              CCGC         879     A     
 CCGC               EQ     CAW10                                                           CCGC         880     A     
 CCGC                                                                                      CCGC         881     A     
 CCGC     *         DEFINE ADDRESSES OF EQV. ENTRYIES.                                     CCGC         882     A     
 CCGC                                                                                      CCGC         883     A     
 CCGC      CAW20    PL     X5,EXIT.    IF .NOT. EQFLAG                                     CCGC         884     A     
 CCGC               SA5    B6+         N=0                                                 CCGC         885     A     
 CCGC                                                                                      CCGC         886     A     
 CCGC      CAW30    SA5    A5+B1       N = N + 1                                           CCGC         887     A     
 CCGC               ZR     X5,EXIT.    IF N GT L$APT                                       CCGC         888     A     
 CCGC               LX5    59-AI.EQVP                                                      CCGC         889     A     
 CCGC               PL     X5,CAW30    IF NOT EQV[APT(N)]                                  CCGC         890     A     
 CCGC               SB3    B0          CA = 0                                              CCGC         891     A     
 CCGC               BX1    X5          L = N                                               CCGC         892     A     
 CCGC                                                                                      CCGC         893     A     
 CCGC      CAW40    LX1    1+AI.EQVP-AI.ORDP                                               CCGC         894     A     
 CCGC               SB7    X1                                                              CCGC         895     A     
 CCGC               LX1    AI.ORDP-AI.BIASP                                                CCGC         896     A     
 CCGC               SB3    B3+X1       CA = CA + BIAS[APT(L)]                              CCGC         897     A     
 CCGC               SA1    B6+B7       L=ORD[APT(L)]                                       CCGC         898     A     
 CCGC               LX1    59-AI.EQVP                                                      CCGC         899     A     
 CCGC               MI     X1,CAW40    IF EQV[APT(L)]                                      CCGC         900     A     
 CCGC               SX2    B3                                                              CCGC         901     A     
 CCGC               AX2    B5          IOA 2-WORD/ENTRY                                    CCGC         902     A     
 CCGC               LX1    1+AI.EQVP                                                       CCGC         903     A     
 CCGC               LX2    WC.RAP                                                          CCGC         904     A     
 CCGC               IX6    X1+X2       RA[APT(N)] = RA[APT)] + CA                          CCGC         905     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2019    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               SA6    A5                                                              CCGC         906     A     
 CCGC               EQ     CAW30                                                           CCGC         907     A     
 CCGC      MEP      EJECT                                                                  CCGC         908     A     
 CCGC     *         MEP - MISCELLANEOUS END PROCESSING FOR CCG MODE ONLY.                  CCGC         909     A     
 CCGC     *         PASS 3 TYPE PROCESSING THAT MUST BE PERFORMED IN PASS 2.               CCGC         910     A     
 CCGC                                                                                      CCGC         911     A     
 CCGC      MEP      SUBR                                                                   CCGC         912     A     
 CCGC                                                                                      CCGC         913     A     
 CCGC     *         SET LENGTH OF RUN-TIME CONSTANT TABLE FOR PASS3.                       CCGC         914     A     
 CCGC                                                                                      CCGC         915     A     
 CCGC               SA1    =XL$CUT                                                         CCGC         916     A     
 CCGC               SA2    =XO$CUT                                                         CCGC         917     A     
 CCGC               MX6    0                                                               CCGC         918     A     
 CCGC               ZR     X1,MEP10    IF NO CONSTANTS                                     CCGC         919     A     
 CCGC               SB2    X1                                                              CCGC         920     A     
 CCGC                                                                                      CCGC         921     A     
 CCGC      MEP5     SB2    B2-1                                                            CCGC         922     A     
 CCGC               SA1    X2+B2                                                           CCGC         923     A     
 CCGC               IX6    X6+X1       N.CON = N.CON + CUT(I)                              CCGC         924     A     
 CCGC               NZ     B2,MEP5     IF NOT TOP OF CUT                                   CCGC         925     A     
 CCGC                                                                                      CCGC         926     A     
 CCGC      MEP10    SA6    =XN.CON                                                         CCGC         927     A     
 CCGC                                                                                      CCGC         928     A     
 CCGC               SA3    =XCC$PC                                                         CCGC         929     A     
 CCGC               SA4    =XCC$BLEN                                                       CCGC         930     A     
 CCGC               SA2    =XCC$LBO                                                        CCGC         931     A     
 CCGC               LX3    18                                                              CCGC         932     A     
 CCGC               BX6    X3+X4                                                           CCGC         933     A     
 CCGC               SA6    =XF$LBT+X2                                                      CCGC         934     A     
 CCGC               CALL   CG$IEP                                                          CCGC         935     A     
 CCGC               RJ     MDV         REFORMAT APPROPRIATE VD POINTERS IN DIMTAB          CCGC         936     A     
 CCGC               EQ     EXIT.                                                           CCGC         937     A     
 CCGC      MDV      SPACE  4,8                                                             CCGC         938     A     
 CCGC     **        MDV - MARK CERTAIN DIMTAB-RESIDENT VARDIMS AS NEEDED.                  CCGC         939     A     
 CCGC     *                                                                                CCGC         940     A     
 CCGC     *         MDV MARKS SPAN AND LOWER BOUND OF *MAT* DIMTAB AS                      CCGC         941     A     
 CCGC     *         NEEDED.                                                                CCGC         942     A     
 CCGC     *                                                                                CCGC         943     A     
 CCGC                                                                                      CCGC         944     A     
 CCGC      MDV      SUBR                                                                   CCGC         945     A     
 CCGC               MX0    -DI.INFL                                                        CCGC         946          I
          -FC5A231
 CCGC               MX0    -DM.INFL                                                        FC5A231      156     A     
 CCGC               SA2    =XO$DIM                                                         CCGC         947     A     
 CCGC               SA3    =XL$DIM                                                         CCGC         948     A     
 CCGC               IX7    X2+X3                                                           CCGC         949     A     
 CCGC               SB7    X7                                                              CCGC         950     A     
 CCGC               SA2    X2-1                                                            CCGC         951     A     
 CCGC                                                                                      CCGC         952     A     
 CCGC      MDV5     SA2    A2+B1                                                           CCGC         953     A     
 CCGC               SB2    A2-B7                                                           CCGC         954     A     
 CCGC               ZR     B2,EXIT.    IF DIMTAB EXHAUSTED                                 CCGC         955     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2020    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               BX4    X2                                                              CCGC         956     A     
 CCGC               HX4    DH.VD                                                           CCGC         957     A     
 CCGC               LX2    -DH.DIMP                                                        CCGC         958     A     
 CCGC               MX3    -DH.DIML                                                        CCGC         959     A     
 CCGC               BX3    -X3*X2                                                          CCGC         960     A     
 CCGC               PL     X4,MDV40    IF NOT VARDIM                                       CCGC         961     A     
 CCGC               LX4    DH.VDP-DH.MATP                                                  CCGC         962     A     
 CCGC               PL     X4,MDV40    IF NOT NEEDED                                       CCGC         963     A     
 CCGC               SB6    X3                                                              CCGC         964     A     
 CCGC                                                                                      CCGC         965     A     
 CCGC      MDV10    =A2    A2+1                                                            CCGC         966     A     
 CCGC               LX2    59-D1.SPANP-DI.TDP                                              CCGC         967          I
          -FC5A231
 CCGC               LX2    59-D1.SPANP-DM.TDP                                              FC5A231      157     A     
 CCGC               PL     X2,MDV20    IF NOT VARIABLE SPAN                                CCGC         968     A     
 CCGC               LX2    1+DI.TDP                                                        CCGC         969          I
          -FC5A231
 CCGC               LX2    1+DM.TDP                                                        FC5A231      158     A     
 CCGC               BX1    -X0*X2                                                          CCGC         970     A     
 CCGC               CALL   CG$AVO                                                          CCGC         971     A     
 CCGC               BX6    X0*X2       CLEAR CA                                            CCGC         972     A     
 CCGC               BX6    X1+X6       NEW CA FROM AVO                                     CCGC         973     A     
 CCGC               LX6    D1.SPANP                                                        CCGC         974     A     
 CCGC               SA6    A2                                                              CCGC         975     A     
 CCGC                                                                                      CCGC         976     A     
 CCGC      MDV20    =A2    A2+1                                                            CCGC         977     A     
 CCGC               LX2    59-D2.LBP-DI.TDP                                                CCGC         978          I
          -FC5A231
 CCGC               LX2    59-D2.LBP-DM.TDP                                                FC5A231      159     A     
 CCGC               PL     X2,MDV30    IF NOT VARIABLE LOWER BOUND                         CCGC         979     A     
 CCGC               LX2    1+DI.TDP                                                        CCGC         980          I
          -FC5A231
 CCGC               LX2    1+DM.TDP                                                        FC5A231      160     A     
 CCGC               BX1    -X0*X2                                                          CCGC         981     A     
 CCGC               CALL   CG$AVO                                                          CCGC         982     A     
 CCGC               BX6    X0*X2       CLEAR CA                                            CCGC         983     A     
 CCGC               BX6    X1+X6       NEW CA FROM AVO                                     CCGC         984     A     
 CCGC               LX6    D2.LBP                                                          CCGC         985     A     
 CCGC               SA6    A2                                                              CCGC         986     A     
 CCGC                                                                                      CCGC         987     A     
 CCGC      MDV30    =B6    B6-1                                                            CCGC         988     A     
 CCGC               NZ     B6,MDV10    IF MORE DIMENSIONS TO GO                            CCGC         989     A     
 CCGC               EQ     MDV5                                                            CCGC         990     A     
 CCGC                                                                                      CCGC         991     A     
 CCGC      MDV40    LX4    B1,X3                                                           CCGC         992     A     
 CCGC               ERRNZ  Z=DD-2                                                          CCGC         993     A     
 CCGC               SB6    X4                                                              CCGC         994     A     
 CCGC               SA2    A2+B6                                                           CCGC         995     A     
 CCGC               EQ     MDV5                                                            CCGC         996     A     
 CCGC      OUTPTK   EJECT                                                                  CCGC         997     A     
 CCGC                                                                                      CCGC         998     A     
 CCGC                                                                                      CCGC         999     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2021    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CCGC    
  
 CCGC               LIST   D                                                               CCGC        1000     A     
 CCGC               END                                                                    CCGC        1001     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CCGC    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CCGC                      1001       980
          F2950F5A                    13        13
          FC5A231                      5         5
          FC50182                      7         7
          FC5A400                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *DECK     BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                                   BRIDGE         1     A     
 BRIDGE             IDENT  BRIDGE                                                          BRIDGE         2     A     
 BRIDGE    BRIDGE   SECT   (TRANSMOGRIFY PASS 1 OUTPUT.)                                   BRIDGE         3     A     
 BRIDGE    DEFINES  TITLE  GLOBAL DATA AND STUCTURE DEFINITIONS.                           BRIDGE         4     A     
 BRIDGE             SST                                                                    BRIDGE         5     A     
 BRIDGE                                                                                    BRIDGE         6     A     
 BRIDGE             DESCRIBE TS.,60    TURPLE STATUS TABLE ENTRY                           BRIDGE         7     A     
 BRIDGE    FR       DEFINE 1           FUNCTION RESULT (RNU CONTAINS ST. BIAS)             BRIDGE         8     A     
 BRIDGE    FRL      DEFINE 1           LOWER FUNCTION RESULT (RNL=CA)                      BRIDGE         9     A     
 BRIDGE    DEF      DEFINE 1           DEFERRED PROCESSING FOR THIS TURPLE                 BRIDGE        10     A     
 BRIDGE    RTV      DEFINE 1           RIGHT BRANCH VISITED (CHAR WALK)                    BRIDGE        11     A     
 BRIDGE    SUB      DEFINE 1           SUBSTRING                                           BRIDGE        12     A     
 BRIDGE             DEFINE 1                                                               BRIDGE        13     A     
 BRIDGE    CLEN     DEFINE 18          CHAR OF CHAR EXPRESSIONS                            BRIDGE        14     A     
 BRIDGE    RNL      DEFINE 18          R-NUMBER OF LOWER RESULT                            BRIDGE        15     A     
 BRIDGE    RNU      DEFINE 18          R-NUMBER OF UPPER RESULT                            BRIDGE        16     A     
 BRIDGE                                                                                    BRIDGE        17     A     
 BRIDGE             REDEF  RNL                                                             BRIDGE        18     A     
 BRIDGE    FROM     DEFINE 18          FOR CHAR TREE WALK                                  BRIDGE        19     A     
 BRIDGE                                                                                    BRIDGE        20     A     
 BRIDGE                                                                                    BRIDGE        21     A     
 BRIDGE             DESCRIBE AT.,60    ATF (APLIST TYPE INFO) WORD                         BRIDGE        22     A     
 BRIDGE    LEN      DEFINE 1           PROCESSING I/O LEN                                  BRIDGE        23     A     
 BRIDGE    IOC      DEFINE 1           PROCESSING I/O CONTROL CODE                         BRIDGE        24     A     
 BRIDGE    CHAR     DEFINE 1           CHAR TYPE APLIST FOR ASM                            BRIDGE        25     A     
 BRIDGE    NUL      DEFINE 1           THIS ITEM HAS NON-UNITY ARRAY LEN                   BRIDGE        26     A     
 BRIDGE    LEV0     DEFINE 1           LEVEL 0                                             BRIDGE        27     A     
 BRIDGE    MODE     DEFINE 5                                                               BRIDGE        28     A     
 BRIDGE    OPT2     DEFINE 6           HIGH 6 BITS OF AP. FORM                             BRIDGE        29     A     
 BRIDGE             DEFINE 26                                                              BRIDGE        30     A     
 BRIDGE    RES      DEFINE 17          RESERVED SO IO IS REALLY 18                         BRIDGE        31     A     
 BRIDGE    IO       DEFINE 1           0/1 NON-I/O / I/O                                   BRIDGE        32     A     
 BRIDGE                                                                                    BRIDGE        33     A     
 BRIDGE             REDEF  OPT2                                                            BRIDGE        34     A     
 BRIDGE    ST       DEFINE 1           I/O DEF                                             BRIDGE        35     A     
 BRIDGE    USE      DEFINE 1           USE OR POSSIBLE USE                                 BRIDGE        36     A     
 BRIDGE    P1       DEFINE 1           DOUBLE WORD REF                                     BRIDGE        37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2022    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             DEFINE 2                                                               BRIDGE        38     A     
 BRIDGE    CR       DEFINE 1           CLASS REF                                           BRIDGE        39     A     
 BRIDGE                                                                                    BRIDGE        40     A     
 BRIDGE    IODP     DEQU   USE,2                                                           BRIDGE        41     A     
 BRIDGE                                                                                    BRIDGE        42     A     
 BRIDGE             DESCRIBE SC.,60    SKELETON DESCRIPTOR WORD                            BRIDGE        43     A     
 BRIDGE             DEFINE 1                                                               BRIDGE        44     A     
 BRIDGE    PTYP     DEFINE 5           CALL PARAMETER TYPE                                 BRIDGE        45     A     
 BRIDGE    PNUM     DEFINE 6           CALL PARAMETER NUM                                  BRIDGE        46     A     
 BRIDGE    MAXT     DEFINE 6                                                               BRIDGE        47     A     
 BRIDGE             DEFINE 6                                                               BRIDGE        48     A     
 BRIDGE    PRO      DEFINE 18          CALL PROCESSOR ADDRESS                              BRIDGE        49     A     
 BRIDGE    AD       DEFINE 18          SET ADDRESS                                         BRIDGE        50     A     
 BRIDGE                                                                                    BRIDGE        51     A     
 BRIDGE             DESCRIBE SE.,60    SET (SKELETON EXPANSION) WORD                       BRIDGE        52     A     
 BRIDGE    FI       DEFINE 1           FIRST INSTRUCTION IN SKELETON                       BRIDGE        53     A     
 BRIDGE    ROP      DEFINE 1           ROUNDABLE OPERATION                                 BRIDGE        54     A     
 BRIDGE             DEFINE 1                                                               BRIDGE        55     A     
 BRIDGE    TYP      DEFINE 3           .NZ. IF BRANCH OR CALL                              BRIDGE        56     A     
 BRIDGE    OC       DEFINE 9           INSTRUCTION OPCODE                                  BRIDGE        57     A     
 BRIDGE    1TYP     DEFINE 5                                                               BRIDGE        58     A     
 BRIDGE    1NUM     DEFINE 6                                                               BRIDGE        59     A     
 BRIDGE    2TYP     DEFINE 5                                                               BRIDGE        60     A     
 BRIDGE    2NUM     DEFINE 6                                                               BRIDGE        61     A     
 BRIDGE    3TYP     DEFINE 5                                                               BRIDGE        62     A     
 BRIDGE    3NUM     DEFINE 6                                                               BRIDGE        63     A     
 BRIDGE    Q        DEFINE 12                                                              BRIDGE        64     A     
 BRIDGE                                                                                    BRIDGE        65     A     
 BRIDGE    BR       DEQU   Q,18        BRANCH ADDRESS                                      BRIDGE        66     A     
 BRIDGE                                                                                    BRIDGE        67     A     
 BRIDGE             DESCRIBE SE.,60                                                        BRIDGE        68     A     
 BRIDGE             DEFINE 15                                                              BRIDGE        69     A     
 BRIDGE             DEFINE 4                                                               BRIDGE        70     A     
 BRIDGE    PRO      DEFINE 18                                                              BRIDGE        71     A     
 BRIDGE    PTYP     DEFINE 5                                                               BRIDGE        72     A     
 BRIDGE    PNUM     DEFINE 6                                                               BRIDGE        73     A     
 BRIDGE             DEFINE 12                                                              BRIDGE        74     A     
 BRIDGE                                                                                    BRIDGE        75     A     
 BRIDGE             DESCRIBE SY.,42    SYMBOL INFO IN PRE                                  BRIDGE        76     A     
 BRIDGE    IH       DEFINE 18          SYMBOL ORDINAL                                      BRIDGE        77     A     
 BRIDGE    CA       DEFINE 24          OFFSET OR CONSTANT                                  BRIDGE        78     A     
 BRIDGE             SPACE  4,8                                                             BRIDGE        79     A     
 BRIDGE             DESCRIBE SD.,60                                                        BRIDGE        80     A     
 BRIDGE             DEFINE 24                                                              BRIDGE        81     A     
 BRIDGE    RN       DEFINE 18                                                              BRIDGE        82     A     
 BRIDGE    CA       DEFINE 18                                                              BRIDGE        83     A     
 BRIDGE    ADVIL    SPACE  4,8                                                             BRIDGE        84     A     
 BRIDGE   **        ADVIL - ADVANCE I.L. POINTER.                                          BRIDGE        85     A     
 BRIDGE   *         USED TO SKIP 1 OR MORE TURPLES AFTER PROCESSING AS PART                BRIDGE        86     A     
 BRIDGE   *         OF MEGATURPLE.                                                         BRIDGE        87     A     
 BRIDGE   *                                                                                BRIDGE        88     A     
 BRIDGE   *         USES   A2, A7                                                          BRIDGE        89     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2023    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE        90     A     
 BRIDGE    ADVIL    MACRO  NUM                                                             BRIDGE        91     A     
 BRIDGE             SA2    BP                                                              BRIDGE        92     A     
 BRIDGE             SX7    X2+NUM*Z=TURP                                                   BRIDGE        93     A     
 BRIDGE             SA7    A2                                                              BRIDGE        94     A     
 BRIDGE             SA2    INDEX                                                           BRIDGE        95     A     
 BRIDGE             SX7    X2+NUM                                                          BRIDGE        96     A     
 BRIDGE             SA7    A2                                                              BRIDGE        97     A     
 BRIDGE             DUP    NUM,1                                                           BRIDGE        98     A     
 BRIDGE             ADDWRD TST,B0                                                          BRIDGE        99     A     
 BRIDGE             ENDM                                                                   BRIDGE       100     A     
 BRIDGE    ISSUE    SPACE  4,8                                                             BRIDGE       101     A     
 BRIDGE   **        ISSUE - ISSUE OPERATION OR PSEUDO TO PB.                               BRIDGE       102     A     
 BRIDGE                                                                                    BRIDGE       103     A     
 BRIDGE    ISSUE    MACRO  OP,TAG                                                          BRIDGE       104     A     
 BRIDGE             =X7    OP                                                              BRIDGE       105     A     
 BRIDGE             LX7    PB.GHIJP                                                        BRIDGE       106     A     
 BRIDGE             IFC    NE,/TAG//,3                                                     BRIDGE       107     A     
 BRIDGE             XR=    X5,TAG                                                          BRIDGE       108     A     
 BRIDGE             LX5    PB.TAGP                                                         BRIDGE       109     A     
 BRIDGE             BX7    X7+X5                                                           BRIDGE       110     A     
 BRIDGE             WCODE  X7                                                              BRIDGE       111     A     
 BRIDGE    ISSUE    ENDM                                                                   BRIDGE       112     A     
 BRIDGE    XR=      SPACE  4,8                                                             BRIDGE       113     A     
 BRIDGE   **        XR= - X-REGISTER VERSION OF R= PSEUDO INSTRUCTION.                     BRIDGE       114     A     
 BRIDGE   *                                                                                BRIDGE       115     A     
 BRIDGE   *         IF *EXPR* = *LDREG*, GENERATES NOTHING.                                BRIDGE       116     A     
 BRIDGE   *         IF *EXPR* = OTHER X-REG, GENERATES BOOLEAN XMIT TO *LDREG*.            BRIDGE       117     A     
 BRIDGE   *         IF *EXPR* = ELSE, GENERATES INCREMENT INSTR TO LOAD *LDREG*.           BRIDGE       118     A     
 BRIDGE   *                                                                                BRIDGE       119     A     
 BRIDGE   *                                                                                BRIDGE       120     A     
 BRIDGE   *         XR=       LDREG,EXPR                                                   BRIDGE       121     A     
 BRIDGE   *                                                                                BRIDGE       122     A     
 BRIDGE   *         ENTRY  *LDREG* = X-REGISTER TO BE LOADED.  MUST BE X1 THRU X5.         BRIDGE       123     A     
 BRIDGE   *                *EXPR*  = ADDRESS EXPRESSION FOR VALUE TO BE LOADED.            BRIDGE       124     A     
 BRIDGE   *                                                                                BRIDGE       125     A     
 BRIDGE   *         USES   *LDREG* AND ITS A-REGISTER.                                     BRIDGE       126     A     
 BRIDGE   *                                                                                BRIDGE       127     A     
 BRIDGE   *         CALLS  NONE                                                            BRIDGE       128     A     
 BRIDGE                                                                                    BRIDGE       129     A     
 BRIDGE                                                                                    BRIDGE       130     A     
 BRIDGE             PURGMAC   XR=                                                          BRIDGE       131     A     
 BRIDGE                                                                                    BRIDGE       132     A     
 BRIDGE    XR=      MACRO  R,E                                                             BRIDGE       133     A     
 BRIDGE     LOCAL A                                                                        BRIDGE       134     A     
 BRIDGE   A MICRO 1,, E                                                                    BRIDGE       135     A     
 BRIDGE   A MICCNT A                                                                       BRIDGE       136     A     
 BRIDGE     IFEQ A,2,5                                                                     BRIDGE       137     A     
 BRIDGE   A MICRO 1,1, E                                                                   BRIDGE       138     A     
 BRIDGE     IFC EQ, "A" X ,3                                                               BRIDGE       139     A     
 BRIDGE     IFC NE, R E ,1                                                                 BRIDGE       140     A     
 BRIDGE     B_R E                                                                          BRIDGE       141     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2024    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE     SKIP 6                                                                         BRIDGE       142     A     
 BRIDGE   A MICRO 2,1, R                                                                   BRIDGE       143     A     
 BRIDGE     IFC GE, "A" 1 ,3                                                               BRIDGE       144     A     
 BRIDGE     IFC LT, "A" 6 ,2                                                               BRIDGE       145     A     
 BRIDGE     SA"A" E                                                                        BRIDGE       146     A     
 BRIDGE     SKIP 1                                                                         BRIDGE       147     A     
 BRIDGE     ERR (R) NOT X1-X5 "SEQUENCE"                                                   BRIDGE       148     A     
 BRIDGE    XR=      ENDM                                                                   BRIDGE       149     A     
 BRIDGE    REGS     EJECT                                                                  BRIDGE       150     A     
 BRIDGE   **        IN RLIST MACROS ONE MAY SPECIFY A SPECIFIC DESTINATION REGISTE         BRIDGE       151     A     
 BRIDGE   *         FOR THE *RI* OF AN INSTRUCTION BY IMMEDIATELY FOLLOWING IT             BRIDGE       152     A     
 BRIDGE   *         WITH A REGISTER STORE INSTRUCTION.                                     BRIDGE       153     A     
 BRIDGE   *         THE NAMES OF THE REGISTER APPEARS IN THE *SO* FIELD FOLLOWED           BRIDGE       154     A     
 BRIDGE   *         BY A PERIOD, AND PRECEEDED BY A T ONLY IF IT IS A TEMPORARY            BRIDGE       155     A     
 BRIDGE   *         REGISTER STORE.                                                        BRIDGE       156     A     
 BRIDGE                                                                                    BRIDGE       157     A     
 BRIDGE             ECHO   3,R=(B,X),Z=(0,20B)                                             BRIDGE       158     A     
 BRIDGE             ECHO   2,N=(0,1,2,3,4,5,6,7)                                           BRIDGE       159     A     
 BRIDGE    R_N.     EQU    Z+N                                                             BRIDGE       160     A     
 BRIDGE    T_R_N.   EQU    SO.TLOCK+Z+N                                                    BRIDGE       161     A     
 BRIDGE    CFTE     SPACE  3,14                                                            BRIDGE       162     A     
 BRIDGE   **        CFTE - CONTROL FLOW TABLE ENTRY MACRO                                  BRIDGE       163     A     
 BRIDGE   *                                                                                BRIDGE       164     A     
 BRIDGE   *                FROM = BLOCK NUMBER OF *FROM* EDGE                              BRIDGE       165     A     
 BRIDGE   *                TO = BLOCK NUMBER / *IH* OF TARGET BLOCK                        BRIDGE       166     A     
 BRIDGE   *                TYPE = *IH* IF *TO* IS AN IH AND THIS IS A JUMP EDGE.           BRIDGE       167     A     
 BRIDGE                                                                                    BRIDGE       168     A     
 BRIDGE    CFTE     MACRO  FROM,TO,TYP                                                     BRIDGE       169     A     
 BRIDGE             IFC    EQ,/FROM/CBN/,2                                                 BRIDGE       170     A     
 BRIDGE             SA1    =XCBN                                                           BRIDGE       171     A     
 BRIDGE             ELSE   1                                                               BRIDGE       172     A     
 BRIDGE             R=     X1,FROM                                                         BRIDGE       173     A     
 BRIDGE             R=     X2,TO                                                           BRIDGE       174     A     
 BRIDGE             LX1    CF.FROMP                                                        BRIDGE       175     A     
 BRIDGE             LX2    CF.TOP                                                          BRIDGE       176     A     
 BRIDGE             IFC    EQ,/TYP/IH/,3                                                   BRIDGE       177     A     
 BRIDGE             MX7    1                                                               BRIDGE       178     A     
 BRIDGE             LX7    1+CF.JPP                                                        BRIDGE       179     A     
 BRIDGE             BX2    X7+X2                                                           BRIDGE       180     A     
 BRIDGE             BX1    X1+X2                                                           BRIDGE       181     A     
 BRIDGE             ADDWRD CFT,X1                                                          BRIDGE       182     A     
 BRIDGE             ENDM                                                                   BRIDGE       183     A     
 BRIDGE    CBN      EQUEXT CC$CBN                                                          BRIDGE       184     A     
 BRIDGE                                                                                    BRIDGE       185     A     
 BRIDGE    GPBUF    MICRO  1,,/GOVG/                                                       BRIDGE       186     A     
 BRIDGE    TP       MICRO  1,,/TP/     FOR COMMON SUBSKEL CODE                             BRIDGE       187     A     
 BRIDGE    BIAS     MICRO  1,,/BIAS/                                                       BRIDGE       188     A     
 BRIDGE    ORD      MICRO  1,,/ORD/                                                        BRIDGE       189     A     
 BRIDGE    TFILE    MICRO  1,,/=XO$FILE/                                                   BRIDGE       190     A     
 BRIDGE    O$       MICRO  1,,/O$/                                                         BRIDGE       191     A     
 BRIDGE    L$       MICRO  1,,/L$/                                                         BRIDGE       192     A     
 BRIDGE    BT       MICRO  1,,/B4/     TEMP B-REG FOR COMDECKS                             BRIDGE       193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2025    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    GOV      SPACE  4,10                                                            BRIDGE       194     A     
 BRIDGE    SKU.OP   EQU    6                                                               BRIDGE       195     A     
 BRIDGE    SKU.RS   EQU    1                                                               BRIDGE       196     A     
 BRIDGE    SKU.GOP  EQU    2                                                               BRIDGE       197     A     
 BRIDGE    SKU.TMP  EQU    22                                                              BRIDGE       198     A     
 BRIDGE                                                                                    BRIDGE       199     A     
 BRIDGE    F.GOVCL  BSS    0           START OF AREA CLEARED IN MAIN LOOP                  BRIDGE       200          I
          -FC5A164
 BRIDGE    GOVL     BSSZ   SKU.OP                                                          BRIDGE       201          I
          -FC5A164
 BRIDGE    GOVLL    BSSZ   2                                                               BRIDGE       202          I
          -FC5A164
 BRIDGE    GOVR     BSSZ   SKU.RS                                                          BRIDGE       203     A     
 BRIDGE    GOVRL    BSSZ   SKU.RS                                                          BRIDGE       204     A     
 BRIDGE                                                                                    BRIDGE       205          I
          -FC5A164
 BRIDGE    Z.GOVCL  EQU    *-F.GOVCL                                                       BRIDGE       206          I
          -FC5A164
 BRIDGE                                                                                    BRIDGE       207     A     
 BRIDGE    GOVT     BSSZ   SKU.TMP     OP TYPE OPERAND BUFFER                              BRIDGE       208     A     
 BRIDGE    GOVG     BSSZ   SKU.GOP     GENERATED OPERAND COMMUNICATION AREA                BRIDGE       209     A     
 BRIDGE    PRE      TITLE  INITIALIZATION.                                                 BRIDGE       210     A     
 BRIDGE    BRIDGE   SUBR   =                                                               BRIDGE       211     A     
 BRIDGE             SX1    =XBN=CODE                                                       BRIDGE       212     A     
 BRIDGE             CALL   CG$INIT                                                         BRIDGE       213     A     
 BRIDGE             ADDWRD ASG,B0      TERMINATE ASG TABLE FOR SEARCH                      BRIDGE       214     A     
 BRIDGE             SA6    =XN$VD      FOR PASS 2 VD. RENUMBERING                          BRIDGE       215     A     
 BRIDGE             SA1    =XN.GL                                                          BRIDGE       216     A     
 BRIDGE             ALLOC  GLT,X1                                                          BRIDGE       217     A     
 BRIDGE             MX6    0                                                               BRIDGE       218          I
          -FC5A164
 BRIDGE             SA6    X2          GLT(0) = 0                                          BRIDGE       219          I
          -FC5A164
 BRIDGE             SETMEM X2,X3       GLT = 0                                             FC5A164       71     A     
 BRIDGE             ADDWRD APT,B0      API(0) = 0                                          BRIDGE       220     A     
 BRIDGE             ADDWRD IOT,B0      IOI(0) = 0                                          BRIDGE       221     A     
 BRIDGE             ADDWRD CAC,B0      CAC(0) = 0  */ FOR STAPL ENTRIES TO POINT T         BRIDGE       222     A     
 BRIDGE                                                                                    BRIDGE       223     A     
 BRIDGE   *         IF ARG=COMMON IS SPECIFIED, USER FUNCTION STORES TO APLIST             BRIDGE       224     A     
 BRIDGE   *         MUST PRESERVE TYPE FIELD, SO WE SELECT I/O STORE-TO-APLIST             BRIDGE       225     A     
 BRIDGE   *         SKELETONS FOR USE IN NON-I/O CASES SINCE I/O SKEL PRESERVES            BRIDGE       226     A     
 BRIDGE   *         THIS TYPE FIELD.                                                       BRIDGE       227     A     
 BRIDGE                                                                                    BRIDGE       228     A     
 BRIDGE             SA1    =XCO.ARGC                                                       BRIDGE       229     A     
 BRIDGE             LX1    1                                                               BRIDGE       230          I
          -FC51544
 BRIDGE             SA2    APSTR+X1                                                        BRIDGE       231          I
          -FC51544
 BRIDGE             BX7    X2                                                              BRIDGE       232          I
          -FC51544
 BRIDGE             SA7    APSTR       APSTR = APSTR(ARG=C)                                BRIDGE       233          I
          -FC51544
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2026    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA2    APSTR0+X1                                                       BRIDGE       234          I
          -FC51544
 BRIDGE             BX7    X2                                                              BRIDGE       235          I
          -FC51544
 BRIDGE             SA7    APSTR0      APSTR0 = APSTR0(ARG=C)                              BRIDGE       236          I
          -FC51544
 BRIDGE             PL     X1,BRG1     IF ARG=COMMON NOT SET                               FC51544       26     A     
 BRIDGE             SA2    APST                                                            FC51544       27     A     
 BRIDGE             BX6    X2                                                              FC51544       28     A     
 BRIDGE             SA2    A2+1                                                            FC51544       29     A     
 BRIDGE             BX7    X2                                                              FC51544       30     A     
 BRIDGE             SA6    APSTR+1     APSTR = APSTR(ARC=C)                                FC51544       31     A     
 BRIDGE             SA7    APSTR0+1    APSTR0 = APSTR0(ARC=C)                              FC51544       32     A     
 BRIDGE                                                                                    BRIDGE       237     A     
 BRIDGE   *         SETUP CONSTANT USAGE TABLE FOR CON. SQUEEZING.                         BRIDGE       238     A     
 BRIDGE                                                                                    BRIDGE       239     A     
 BRIDGE             SA1    =XL$CVT                                                         BRIDGE       240          I
          -FC51544
 BRIDGE    BRG1     SA1    =XL$CVT                                                         FC51544       33     A     
 BRIDGE             ZR     X1,PRE.0    IF NO PASS 1 CONSTANTS                              BRIDGE       241     A     
 BRIDGE             ALLOC  CUT,X1                                                          BRIDGE       242     A     
 BRIDGE             SETMEM X2,X3                                                           BRIDGE       243          I
          -FC5A415
 BRIDGE             SA1    =XNSQZLH    SQUEEZE LONG HOLLERITH FLAG                         FC5A415       24     A     
 BRIDGE             SETMEM X2,X3,X1                                                        FC5A415       25     A     
 BRIDGE                                                                                    BRIDGE       244     A     
 BRIDGE   *         INITIALIZE DATA STRUCTURES                                             BRIDGE       245     A     
 BRIDGE                                                                                    BRIDGE       246     A     
 BRIDGE             MX6    0                                                               BRIDGE       247     A     
 BRIDGE             RJ     INS         FAKE STATEMENT ZERO                                 BRIDGE       248     A     
 BRIDGE    PRE      TITLE  MAIN LOOP.                                                      BRIDGE       249     A     
 BRIDGE   *         CLEAR OPERAND BUFFERS.                                                 BRIDGE       250     A     
 BRIDGE                                                                                    BRIDGE       251     A     
 BRIDGE    PRE.0    MX6    0                                                               BRIDGE       252          I
          -FC5A164
 BRIDGE             SA6    GOVL                                                            BRIDGE       253          I
          -FC5A164
 BRIDGE             SA6    A6+B1                                                           BRIDGE       254          I
          -FC5A164
 BRIDGE             SA6    GOVLL                                                           BRIDGE       255          I
          -FC5A164
 BRIDGE             SA6    GOVLL+1                                                         BRIDGE       256          I
          -FC5A164
 BRIDGE    PRE.0    BSS    0                                                               FC5A164       72     A     
 BRIDGE                                                                                    BRIDGE       257     A     
 BRIDGE   *         PROCESS NEXT TURPLE.                                                   BRIDGE       258     A     
 BRIDGE                                                                                    BRIDGE       259     A     
 BRIDGE             RJ     ROT         READ ONE TURPLE                                     BRIDGE       260          I
          -FC5A150
 BRIDGE    PRE.010  RJ     ROT         READ ONE TURPLE                                     FC5A150      544     A     
 BRIDGE             MX0    -TH.LINEL                                                       BRIDGE       261     A     
 BRIDGE             LX1    -TH.LINEP                                                       BRIDGE       262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2027    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX6    -X0*X1                                                          BRIDGE       263     A     
 BRIDGE             SB5    A1                                                              BRIDGE       264     A     
 BRIDGE             ZR     X6,PRE.1    IF NOT NEW STATEMENT                                BRIDGE       265     A     
 BRIDGE             RJ     INS         INITIALIZE NEW STATEMENT                            BRIDGE       266     A     
 BRIDGE                                                                                    BRIDGE       267     A     
 BRIDGE    PRE.1    ADDWRD TST,B0                                                          BRIDGE       268     A     
 BRIDGE             SA1    B5                                                              BRIDGE       269     A     
 BRIDGE             SA2    INDEX                                                           BRIDGE       270     A     
 BRIDGE             SX6    X2+B1                                                           BRIDGE       271     A     
 BRIDGE             SA6    A2          INDEX=INDEX+1                                       BRIDGE       272     A     
 BRIDGE             LX1    -TH.SKELP                                                       BRIDGE       273     A     
 BRIDGE             SX6    X1                                                              BRIDGE       274          I
          -FC50104
 BRIDGE             ERRNZ  TH.SKELL-18                                                     BRIDGE       275          I
          -FC50104
 BRIDGE             MX0    -TH.SKELL                                                       FC50104      250     A     
 BRIDGE             BX6    -X0*X1                                                          FC50104      251     A     
 BRIDGE             SB5    A1          OPR = TURP(1)                                       BRIDGE       276     A     
 BRIDGE             BX0    -X1                                                             FC5A150      545          I
          -FC50104
 BRIDGE             BX0    -X6                                                             FC50104      252     A     
 BRIDGE             SX5    X0+=XV=NOOP                                                     FC5A150      546     A     
 BRIDGE             ZR     X5,PRE.010  IF *NO-OP*                                          FC5A150      547     A     
 BRIDGE                                                                                    BRIDGE       277     A     
 BRIDGE    SUB.RET  SA5    =XF.SCT+X6  SCI=SCT(OP)                                         BRIDGE       278     A     
 BRIDGE             SA6    PREA        SKOP = OP[OPR]                                      BRIDGE       279     A     
 BRIDGE             LX5    -SC.ADP                                                         BRIDGE       280     A     
 BRIDGE             SB4    X5                                                              BRIDGE       281     A     
 BRIDGE             ZR     B4,PRE.900  IF AD[SCI] = 0                                      BRIDGE       282     A     
 BRIDGE             SA5    B4          SKAD=AD[SCI]                                        BRIDGE       283     A     
 BRIDGE             LX5    59-SE.FIP                                                       BRIDGE       284     A     
 BRIDGE                                                                                    BRIDGE       285     A     
 BRIDGE    PRE.300  LX5    SE.FIP-59-SE.TYPP                                               BRIDGE       286     A     
 BRIDGE             MX0    -SE.TYPL                                                        BRIDGE       287     A     
 BRIDGE             BX2    -X0*X5      TY = TYP[INST]                                      BRIDGE       288     A     
 BRIDGE             SB2    X2                                                              BRIDGE       289     A     
 BRIDGE             ZR     B2,PRE.302  IF INSTRUCTION WORD                                 BRIDGE       290     A     
 BRIDGE             JP     B2+PRE.301-1                                                    BRIDGE       291     A     
 BRIDGE                                                                                    BRIDGE       292     A     
 BRIDGE    PRE.301  EQ     PRE.500     CALL                                                BRIDGE       293     A     
 BRIDGE             EQ     PRE.600     BRANCH                                              BRIDGE       294     A     
 BRIDGE                                                                                    BRIDGE       295     A     
 BRIDGE    PRE.302  LX5    SE.TYPP-SE.OCP                                                  BRIDGE       296     A     
 BRIDGE             MX0    -SE.OCL                                                         BRIDGE       297     A     
 BRIDGE             BX6    -X0*X5      OP=OC[INST]                                         BRIDGE       298     A     
 BRIDGE             RJ     CIR         CONVERT INSTRUCTION TO RLIST                        BRIDGE       299     A     
 BRIDGE                                                                                    BRIDGE       300     A     
 BRIDGE    PRE.899  SA5    B4+B1                                                           BRIDGE       301     A     
 BRIDGE             SB4    B4+B1       SKAD=SKAD+1                                         BRIDGE       302     A     
 BRIDGE             LX5    59-SE.FIP                                                       BRIDGE       303     A     
 BRIDGE             PL     X5,PRE.300  IF NOT LAST INSTRUCTION OF SKELETON                 BRIDGE       304     A     
 BRIDGE                                                                                    BRIDGE       305     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2028    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    PRE.900  SA1    PREA                                                            BRIDGE       306     A     
 BRIDGE             SA5    F.SCT+X1                                                        BRIDGE       307     A     
 BRIDGE             LX5    -SC.PROP                                                        BRIDGE       308     A     
 BRIDGE             SB6    X5                                                              BRIDGE       309     A     
 BRIDGE             ZR     B6,PRE.0    IF PRO[SCI] = 0  */ NO END PROCESSING               BRIDGE       310     A     
 BRIDGE             SX6    PRE.0                                                           BRIDGE       311     A     
 BRIDGE             MX0    -SC.PTYPL                                                       BRIDGE       312     A     
 BRIDGE             LX5    SC.PROP-SC.PTYPP                                                BRIDGE       313     A     
 BRIDGE             BX7    -X0*X5                                                          BRIDGE       314     A     
 BRIDGE             SA7    CTYP                                                            BRIDGE       315     A     
 BRIDGE             MX0    -SC.PNUML                                                       BRIDGE       316     A     
 BRIDGE             LX5    SC.PTYPP-SC.PNUMP                                               BRIDGE       317     A     
 BRIDGE             BX7    -X0*X5                                                          BRIDGE       318     A     
 BRIDGE             SA7    CNUM                                                            BRIDGE       319     A     
 BRIDGE             SA6    PREB                                                            BRIDGE       320     A     
 BRIDGE             JP     B6                                                              BRIDGE       321     A     
 BRIDGE                                                                                    BRIDGE       322     A     
 BRIDGE   *         PROCESS CALL.                                                          BRIDGE       323     A     
 BRIDGE                                                                                    BRIDGE       324     A     
 BRIDGE    PRE.500  LX5    SE.TYPP-SE.PROP                                                 BRIDGE       325     A     
 BRIDGE             SB6    X5                                                              BRIDGE       326     A     
 BRIDGE             SX6    PRE.899                                                         BRIDGE       327     A     
 BRIDGE             MX0    -SE.PTYPL                                                       BRIDGE       328     A     
 BRIDGE             LX5    SE.PROP-SE.PTYPP                                                BRIDGE       329     A     
 BRIDGE             BX7    -X0*X5                                                          BRIDGE       330     A     
 BRIDGE             SA7    CTYP                                                            BRIDGE       331     A     
 BRIDGE             MX0    -SE.PNUML                                                       BRIDGE       332     A     
 BRIDGE             LX5    SE.PTYPP-SE.PNUMP                                               BRIDGE       333     A     
 BRIDGE             BX7    -X0*X5                                                          BRIDGE       334     A     
 BRIDGE             SA7    CNUM                                                            BRIDGE       335     A     
 BRIDGE             SA6    PREB                                                            BRIDGE       336     A     
 BRIDGE             JP     B6                                                              BRIDGE       337     A     
 BRIDGE                                                                                    BRIDGE       338     A     
 BRIDGE   *         PROCESS BRANCH.                                                        BRIDGE       339     A     
 BRIDGE                                                                                    BRIDGE       340     A     
 BRIDGE    PRE.600  LX5    SE.TYPP-SE.BRP                                                  BRIDGE       341     A     
 BRIDGE             SB4    X5          SKAD=BR[INST]                                       BRIDGE       342     A     
 BRIDGE             SA5    B4          INST=[SKAD]                                         BRIDGE       343     A     
 BRIDGE             LX5    59-SE.FIP                                                       BRIDGE       344     A     
 BRIDGE             EQ     PRE.300                                                         BRIDGE       345     A     
 BRIDGE                                                                                    BRIDGE       346     A     
 BRIDGE   *         RETURN FROM SPECIAL PROCESSOR.                                         BRIDGE       347     A     
 BRIDGE                                                                                    BRIDGE       348     A     
 BRIDGE    PRE.RET  SA1    PREB                                                            BRIDGE       349     A     
 BRIDGE             SB6    X1                                                              BRIDGE       350     A     
 BRIDGE             JP     B6                                                              BRIDGE       351     A     
 BRIDGE                                                                                    BRIDGE       352     A     
 BRIDGE    APST     CON    =XV=IPLG1,=XV=IPLG2                                             FC51544       34     A     
 BRIDGE    APSTR    CON    =XV=APSTR,=XV=IPLUG                                             BRIDGE       353     A     
 BRIDGE    APSTR0   CON    =XV=APSTR,=XV=IPLG0                                             BRIDGE       354     A     
 BRIDGE    LL.TXT   CON    4           LOCAL L.TXT                                         BRIDGE       355     A     
 BRIDGE    IND0     CON    0           TURPLE INDEX ORIGIN                                 BRIDGE       356     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2029    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    INDEX    CON    -1          INDEX                                               BRIDGE       357     A     
 BRIDGE    PREA     BSSZ   1           SKOP                                                BRIDGE       358     A     
 BRIDGE    PREB     BSSZ   1           SPECIAL PROCESSOR RETURN ADDRESS                    BRIDGE       359     A     
 BRIDGE    CTYP     BSSZ   1           CALL PROCESSOR PARAMETER TYP                        BRIDGE       360     A     
 BRIDGE    CNUM     BSSZ   1           CALL PROCESSOR PARAMETER NUM                        BRIDGE       361     A     
 BRIDGE    OPT2     BSSENT 1           NON ZERO IF OPT = 2                                 BRIDGE       362     A     
 BRIDGE    CSN      BSSZ   1           CURRENT STATEMENT NUMBER                            BRIDGE       363     A     
 BRIDGE    OCIOL    CON    OC$LOO      CONTAINS CURRENTLY PROPER OBJECT-LIST OP.           BRIDGE       364     A     
 BRIDGE    INS      TITLE  STATEMENT/SEQUENCE PROCESSING.                                  BRIDGE       365     A     
 BRIDGE   **        INS - INITIALIZE NEW STATEMENT.                                        BRIDGE       366     A     
 BRIDGE   *                                                                                BRIDGE       367     A     
 BRIDGE   *         ENTRY  X6 = CURRENT LINE NUMBER                                        BRIDGE       368     A     
 BRIDGE                                                                                    BRIDGE       369     A     
 BRIDGE    INS      SUBR                                                                   BRIDGE       370     A     
 BRIDGE             SA6    BOSA                                                            BRIDGE       371     A     
 BRIDGE             RJ     TSP         TERMINATE PREVIOUS STATEMENT                        BRIDGE       372     A     
 BRIDGE                                                                                    BRIDGE       373     A     
 BRIDGE    INS10    SA5    O$TXT                                                           BRIDGE       374     A     
 BRIDGE             SA1    BOSA                                                            BRIDGE       375     A     
 BRIDGE             BX6    X1                                                              BRIDGE       376     A     
 BRIDGE             SA4    LL.TXT                                                          BRIDGE       377     A     
 BRIDGE             IX0    X4+X5                                                           BRIDGE       378     A     
 BRIDGE             SB7    X5+B1                                                           BRIDGE       379     A     
 BRIDGE             SA3    X0-4                                                            BRIDGE       380     A     
 BRIDGE             UX7    B2,X3                                                           BRIDGE       381     A     
 BRIDGE             NE     B2,B1,INS20 IF LAST IN TXT NOT *BOS*                            BRIDGE       382     A     
 BRIDGE             SA6    CSN         SET LAST STMT NUMBER                                BRIDGE       383     A     
 BRIDGE             LX6    R1.INP                                                          BRIDGE       384     A     
 BRIDGE             PX7    B1,X6       OC = OC.BOS                                         BRIDGE       385     A     
 BRIDGE             SA7    A3          OVERWRITE PREVIOUS BOS                              BRIDGE       386     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE       387     A     
 BRIDGE                                                                                    BRIDGE       388     A     
 BRIDGE   *         ADD THE *BOS* TO THE SEQUENCE AND CONTINUE                             BRIDGE       389     A     
 BRIDGE                                                                                    BRIDGE       390     A     
 BRIDGE    INS20    SA2    LXR                                                             BRIDGE       391     A     
 BRIDGE             SX7    X4-12000B                                                       BRIDGE       392     A     
 BRIDGE             PL     X7,INS30    IF L.TXT GT 12000B                                  BRIDGE       393     A     
 BRIDGE             SX7    X4-2000B                                                        BRIDGE       394     A     
 BRIDGE             ZR     X2,INS40    IF NO XTERNAL REFS IN SEQ                           BRIDGE       395     A     
 BRIDGE             MI     X7,INS40    IF L.TXT LT 2000B                                   BRIDGE       396     A     
 BRIDGE                                                                                    BRIDGE       397     A     
 BRIDGE   *         TERMINATE SEQUENCE AS IT IS GETTING UNMANAGEABLE.                      BRIDGE       398     A     
 BRIDGE                                                                                    BRIDGE       399     A     
 BRIDGE    INS30    MX6    0                                                               BRIDGE       400     A     
 BRIDGE             SA6    CC$OPTL     NOT WELL-BEHAVED                                    BRIDGE       401     A     
 BRIDGE             RJ     PCS         PROCESS SEQUENCE                                    BRIDGE       402     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE       403     A     
 BRIDGE             SA1    CBN                                                             BRIDGE       404     A     
 BRIDGE             ZR     X2,INS10    IF OPT NE 2                                         BRIDGE       405     A     
 BRIDGE             SX6    X1+1        CBN = CBN + 1                                       BRIDGE       406     A     
 BRIDGE             SA6    A1                                                              BRIDGE       407     A     
 BRIDGE             CFTE   X1,X6       FLOW <CBN-1, CBN>                                   BRIDGE       408     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2030    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             EQ     INS10                                                           BRIDGE       409     A     
 BRIDGE                                                                                    BRIDGE       410     A     
 BRIDGE    INS40    SA6    CSN                                                             BRIDGE       411     A     
 BRIDGE             LX6    R1.INP                                                          BRIDGE       412     A     
 BRIDGE             MX7    0                                                               BRIDGE       413     A     
 BRIDGE             =B7    OC.BOS                                                          BRIDGE       414     A     
 BRIDGE             BX5    X6                                                              BRIDGE       415     A     
 BRIDGE             RJ     IRI         ISSUE BOS                                           BRIDGE       416     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE       417     A     
 BRIDGE                                                                                    BRIDGE       418     A     
 BRIDGE    BOSA     BSSZ   1           TEMPORARY CURRENT STATEMENT NUMBER                  BRIDGE       419     A     
 BRIDGE    SEG      SPACE  4,8                                                             BRIDGE       420     A     
 BRIDGE   **        P=SEG - RESET TURPLE COUNTERS.                                         BRIDGE       421     A     
 BRIDGE   *         NEXT TURPLE IS ZERO.                                                   BRIDGE       422     A     
 BRIDGE                                                                                    BRIDGE       423     A     
 BRIDGE    P=SEG    BSSENT 0                                                               BRIDGE       424     A     
 BRIDGE             MX6    0                                                               BRIDGE       425     A     
 BRIDGE             SA6    IND0                                                            BRIDGE       426     A     
 BRIDGE             MX6    -1                                                              BRIDGE       427     A     
 BRIDGE             SA6    INDEX                                                           BRIDGE       428     A     
 BRIDGE             RJ     TSP                                                             BRIDGE       429     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE       430     A     
 BRIDGE    TSP      EJECT                                                                  BRIDGE       431     A     
 BRIDGE   **        TSP - TERMINATE STATEMENT PROCESSING.                                  BRIDGE       432     A     
 BRIDGE   *         REORDERS BUFFERS FOR NEXT STATEMENT PROCESSING OR PCS CALL.            BRIDGE       433     A     
 BRIDGE                                                                                    BRIDGE       434     A     
 BRIDGE    TSP      SUBR                                                                   BRIDGE       435     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE       436     A     
 BRIDGE             BX6    X1                                                              BRIDGE       437     A     
 BRIDGE             SA6    TXT0        MARK START OF NEXT STATEMENT TXT                    BRIDGE       438     A     
 BRIDGE             SA1    IND0                                                            BRIDGE       439     A     
 BRIDGE             SA2    INDEX                                                           BRIDGE       440     A     
 BRIDGE             IX6    X1+X2                                                           BRIDGE       441     A     
 BRIDGE             SX6    X6+B1                                                           BRIDGE       442     A     
 BRIDGE             MX7    -1                                                              BRIDGE       443     A     
 BRIDGE             SA6    A1          IND0 = IND0 + INDEX + 1                             BRIDGE       444     A     
 BRIDGE             SA7    A2          INDEX = -1                                          BRIDGE       445     A     
 BRIDGE             MX7    0                                                               BRIDGE       446     A     
 BRIDGE             SA7    =XL$TST     L.TST=0                                             BRIDGE       447     A     
 BRIDGE             SA2    =XN.STMAX                                                       BRIDGE       448     A     
 BRIDGE             SA1    N.ST                                                            BRIDGE       449     A     
 BRIDGE             MX6    X1+X2                                                           BRIDGE       450     A     
 BRIDGE             SA7    A1          N.ST = 0                                            BRIDGE       451     A     
 BRIDGE             SA6    A2          N.STMAX = MAX (N.ST, N.STMAX)                       BRIDGE       452     A     
 BRIDGE             SA7    =XL$DTT     L.DTT = 0                                           BRIDGE       453     A     
 BRIDGE             EQ     TSP                                                             BRIDGE       454     A     
 BRIDGE                                                                                    BRIDGE       455     A     
 BRIDGE    TXT0     CON    4           TXT POINTER FOR START OF THIS STATEMENT             BRIDGE       456     A     
 BRIDGE    PCS      EJECT                                                                  BRIDGE       457     A     
 BRIDGE   **        PCS - PROCESS CURRENT SEQUENCE.                                        BRIDGE       458     A     
 BRIDGE                                                                                    BRIDGE       459     A     
 BRIDGE    PCS      SUBR                                                                   BRIDGE       460     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2031    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             RJ     TSP         TERMINATE STATEMENT                                 BRIDGE       461     A     
 BRIDGE             SX0    B4                                                              BRIDGE       462     A     
 BRIDGE             SX7    B5                                                              BRIDGE       463     A     
 BRIDGE             LX0    18                                                              BRIDGE       464     A     
 BRIDGE             BX7    X7+X0                                                           BRIDGE       465     A     
 BRIDGE             SA7    PCSA                                                            BRIDGE       466     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE       467     A     
 BRIDGE             BX7    X1                                                              BRIDGE       468     A     
 BRIDGE             SX6    X1-4                                                            BRIDGE       469     A     
 BRIDGE             SA7    L$TXT       L.TXT = LL.TXT  */PREPARE FOR PAS                   BRIDGE       470     A     
 BRIDGE             SA6    =XCC$BRN+1  LAST R-NUMBER = L.TXT-4                             BRIDGE       471     A     
 BRIDGE             RJ     IST         ISSUE STORES TO TEMPS.                              BRIDGE       472     A     
 BRIDGE             CALL   CG$PAS                                                          BRIDGE       473     A     
 BRIDGE             SA1    PCSA                                                            BRIDGE       474     A     
 BRIDGE             SB5    X1                                                              BRIDGE       475     A     
 BRIDGE             AX1    18                                                              BRIDGE       476     A     
 BRIDGE             SB4    X1                                                              BRIDGE       477     A     
 BRIDGE             SX7    4                                                               BRIDGE       478     A     
 BRIDGE             SA7    TXT0        MARK START OF TXT FOR THIS STATEMENT                BRIDGE       479     A     
 BRIDGE             SA7    LL.TXT                                                          BRIDGE       480     A     
 BRIDGE             SA1    LALS        LOOP ACTIVE STACK LENGTH (NEST DEPTH)               BRIDGE       481     A     
 BRIDGE             MX7    0                                                               BRIDGE       482     A     
 BRIDGE             BX6    X1                                                              BRIDGE       483     A     
 BRIDGE             SA6    =XCC$LNL                                                        BRIDGE       484     A     
 BRIDGE             SA7    LXR                                                             BRIDGE       485     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE       486     A     
 BRIDGE                                                                                    BRIDGE       487     A     
 BRIDGE    PCSA     BSSZ   1                                                               BRIDGE       488     A     
 BRIDGE    LALS     BSSZ   1           LOOP ACTIVE STACK LENGTH                            BRIDGE       489     A     
 BRIDGE    IST      EJECT                                                                  BRIDGE       490     A     
 BRIDGE   **        IST - ISSUE STATEMENT TEMPORARY STORES.                                BRIDGE       491     A     
 BRIDGE                                                                                    BRIDGE       492     A     
 BRIDGE    IST      SUBR                                                                   BRIDGE       493     A     
 BRIDGE             SA1    =XL$FUN                                                         BRIDGE       494     A     
 BRIDGE             ZR     X1,EXIT.    IF NO STORES FLAGGED                                BRIDGE       495     A     
 BRIDGE             SA2    =XO$FUN                                                         BRIDGE       496     A     
 BRIDGE             SB6    B0                                                              BRIDGE       497     A     
 BRIDGE             MX0    60                                                              BRIDGE       498     A     
 BRIDGE             =X5    0                                                               BRIDGE       499     A     
 BRIDGE             SB7    X2                                                              BRIDGE       500     A     
 BRIDGE             CALL   SST#                                                            BRIDGE       501     A     
 BRIDGE             SA1    L$FUN                                                           BRIDGE       502     A     
 BRIDGE             LX1    2                                                               BRIDGE       503     A     
 BRIDGE             ALLOC  TXT,X1      ALLOC FOR STORES                                    BRIDGE       504     A     
 BRIDGE             SA1    O$FUN                                                           BRIDGE       505     A     
 BRIDGE             SA0    X1-1                                                            BRIDGE       506     A     
 BRIDGE             SB5    X2          O$TXT                                               BRIDGE       507     A     
 BRIDGE             SA1    L$FUN                                                           BRIDGE       508     A     
 BRIDGE             MX7    0                                                               BRIDGE       509     A     
 BRIDGE             SA7    A1                                                              BRIDGE       510     A     
 BRIDGE             SB2    X3-4        IND = L$TXT                                         BRIDGE       511     A     
 BRIDGE             SB6    X1          I = L$FUN  */NUMBER OF STORES TO INSERT             BRIDGE       512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2032    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE       513     A     
 BRIDGE    IST10    ZR     B6,EXIT.    IF I EQ 0                                           BRIDGE       514     A     
 BRIDGE             SA4    A0+B6       INST = FUN(I)                                       BRIDGE       515     A     
 BRIDGE             BX0    X4                                                              BRIDGE       516     A     
 BRIDGE             LX4    -SD.RNP     RNC = RN[INST]                                      BRIDGE       517     A     
 BRIDGE             SB3    X4+4        RNN = RNC + 1                                       BRIDGE       518     A     
 BRIDGE             SX4    B6                                                              BRIDGE       519     A     
 BRIDGE             LX4    2                                                               BRIDGE       520     A     
 BRIDGE             SB4    B3+X4                                                           BRIDGE       521     A     
 BRIDGE             GT     B4,B2,IST20 IF RNN+I GT IND                                     BRIDGE       522     A     
 BRIDGE             SX2    B5+B3                                                           BRIDGE       523     A     
 BRIDGE             IX3    X2+X4                                                           BRIDGE       524     A     
 BRIDGE             SB4    B4-4                                                            BRIDGE       525     A     
 BRIDGE             SX1    B2-B4                                                           BRIDGE       526     A     
 BRIDGE             MOVE   X1,X2,X3                                                        BRIDGE       527     A     
 BRIDGE             SB2    B4          IND = RNN+I-4                                       BRIDGE       528     A     
 BRIDGE                                                                                    BRIDGE       529     A     
 BRIDGE    IST20    SA3    =XS=ST                                                          BRIDGE       530     A     
 BRIDGE             SX4    X0                                                              BRIDGE       531     A     
 BRIDGE             LX3    IH.IHP                                                          BRIDGE       532     A     
 BRIDGE             LX4    IH.CAP                                                          BRIDGE       533     A     
 BRIDGE             BX6    X3+X4                                                           BRIDGE       534     A     
 BRIDGE             SB3    OC.ST                                                           BRIDGE       535     A     
 BRIDGE             AX0    SD.RNP                                                          BRIDGE       536     A     
 BRIDGE             LX0    R1.RIP                                                          BRIDGE       537     A     
 BRIDGE             SA3    =XF$RDT+OC.ST                                                   BRIDGE       538     A     
 BRIDGE             PX7    B3,X0                                                           BRIDGE       539     A     
 BRIDGE             SA7    B5+B2                                                           BRIDGE       540     A     
 BRIDGE             SA6    A7+B1                                                           BRIDGE       541     A     
 BRIDGE             BX7    X3                                                              BRIDGE       542     A     
 BRIDGE             MX6    0                                                               BRIDGE       543     A     
 BRIDGE             SA7    A6+B1                                                           BRIDGE       544     A     
 BRIDGE             SA6    A7+B1                                                           BRIDGE       545     A     
 BRIDGE             SB6    B6-B1       I = I-1                                             BRIDGE       546     A     
 BRIDGE             SB2    B2-4        IND = IND - 1                                       BRIDGE       547     A     
 BRIDGE             EQ     IST10                                                           BRIDGE       548     A     
 BRIDGE    CIR      TITLE  INSTRUCTION PROCESSING ROUTINES.                                BRIDGE       549     A     
 BRIDGE   **        CIR - CONVERT INSTRUCTION TO RLIST.                                    BRIDGE       550     A     
 BRIDGE   *                                                                                BRIDGE       551     A     
 BRIDGE   *         ENTRY  X6 = OPCODE                                                     BRIDGE       552     A     
 BRIDGE   *                B4 _ CURRENT SET ENTRY                                          BRIDGE       553     A     
 BRIDGE   *                B5 _ CURRENT TURPLE OPERATOR WORD                               BRIDGE       554     A     
 BRIDGE   *                                                                                BRIDGE       555     A     
 BRIDGE   *         EXIT  B4,B5 PRESERVED                                                  BRIDGE       556     A     
 BRIDGE   *                                                                                BRIDGE       557     A     
 BRIDGE    NOV      MACRO  N,X                                                             BRIDGE       558     A     
 BRIDGE             SA5    B4                                                              BRIDGE       559     A     
 BRIDGE             MX0    -SE.N_TYPL                                                      BRIDGE       560     A     
 BRIDGE             LX5    -SE.N_TYPP                                                      BRIDGE       561     A     
 BRIDGE             BX1    -X0*X5                                                          BRIDGE       562     A     
 BRIDGE             MX0    -SE.N_NUML                                                      BRIDGE       563     A     
 BRIDGE             LX5    SE.N_TYPP-SE.N_NUMP                                             BRIDGE       564     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2033    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX2    -X0*X5                                                          BRIDGE       565     A     
 BRIDGE             RJ     GOV                                                             BRIDGE       566     A     
 BRIDGE             IFC    EQ,/X//,1                                                       BRIDGE       567     A     
 BRIDGE             SA6    CIRV+N-1                                                        BRIDGE       568     A     
 BRIDGE             ENDM                                                                   BRIDGE       569     A     
 BRIDGE    CIR0     SA1    CIRA                                                            BRIDGE       570     A     
 BRIDGE             SB7    X1                                                              BRIDGE       571     A     
 BRIDGE             RJ     IRI         ISSUE RLIST INSTRUCTION (OC,VAL)                    BRIDGE       572     A     
 BRIDGE                                                                                    BRIDGE       573     A     
 BRIDGE    CIR      SUBR                                                                   BRIDGE       574     A     
 BRIDGE             SA6    CIRA                                                            BRIDGE       575     A     
 BRIDGE             SA1    =XF$RDT+X6                                                      BRIDGE       576     A     
 BRIDGE             BX7    -X1                                                             BRIDGE       577     A     
 BRIDGE             HX7    D.^D                                                            BRIDGE       578     A     
 BRIDGE             SA7    CIRB        SAVE RI FIELD DEFINED PROPERTY                      BRIDGE       579     A     
 BRIDGE             LX1    59-D.TYP-1                                                      BRIDGE       580     A     
 BRIDGE             LX2    B1,X1                                                           BRIDGE       581     A     
 BRIDGE             MI     X1,CIR1     IF TY[DESCR(OC)] .GE. 2  */  TYPE > 2               BRIDGE       582     A     
 BRIDGE   *                                                                                BRIDGE       583     A     
 BRIDGE   *         PROCESS TYPE 1 AND 2 RLIST.                                            BRIDGE       584     A     
 BRIDGE                                                                                    BRIDGE       585     A     
 BRIDGE             NOV    3           VAL(3) = RK/SO                                      BRIDGE       586     A     
 BRIDGE             SX7    4                                                               BRIDGE       587     A     
 BRIDGE             SA7    RJOFF       MARK ANY R-NUMBER DEFINED AS RI+4                   BRIDGE       588     A     
 BRIDGE                                                                                    BRIDGE       589     A     
 BRIDGE   *         SET DEF TO INDICATE RK FIELD DEFINED IF THIS IS                        BRIDGE       590     A     
 BRIDGE   *         NORMALIZE OR PACK INSTRUCTION.                                         BRIDGE       591     A     
 BRIDGE                                                                                    BRIDGE       592     A     
 BRIDGE             SA1    CIRA                                                            BRIDGE       593     A     
 BRIDGE             SB2    X1-OC.NR                                                        BRIDGE       594     A     
 BRIDGE             SB3    X1-OC.UP-1                                                      BRIDGE       595     A     
 BRIDGE             MI     B2,CIR05    IF NOT NORMALIZE OR PACK                            BRIDGE       596     A     
 BRIDGE             PL     B3,CIR05    DITTO                                               BRIDGE       597     A     
 BRIDGE             MX7    1           SET DEF THIS FIELD                                  BRIDGE       598     A     
 BRIDGE             SA7    DEF                                                             BRIDGE       599     A     
 BRIDGE                                                                                    BRIDGE       600     A     
 BRIDGE    CIR05    NOV    2           VAL(2) = RJ/IN                                      BRIDGE       601     A     
 BRIDGE             SA1    CIRB                                                            BRIDGE       602     A     
 BRIDGE             BX7    X1                                                              BRIDGE       603     A     
 BRIDGE             SA7    DEF                                                             BRIDGE       604     A     
 BRIDGE             =X7    0                                                               BRIDGE       605     A     
 BRIDGE             SA7    RJOFF                                                           BRIDGE       606     A     
 BRIDGE             NOV    1,X6        VAL(1) = RI                                         BRIDGE       607     A     
 BRIDGE             SA1    CIRA                                                            BRIDGE       608     A     
 BRIDGE             SA2    F$RDT+X1                                                        BRIDGE       609     A     
 BRIDGE             LX2    59-D.TYP                                                        BRIDGE       610     A     
 BRIDGE             SA5    CIRV+1                                                          BRIDGE       611     A     
 BRIDGE             MX7    0                                                               BRIDGE       612     A     
 BRIDGE             SA7    DEF                                                             BRIDGE       613     A     
 BRIDGE             SA4    A5+B1                                                           BRIDGE       614     A     
 BRIDGE             MI     X2,CIR1A    IF TYPE = 2                                         BRIDGE       615     A     
 BRIDGE             LX5    R1.RJP-R1.RKP                                                   BRIDGE       616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2034    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX3    X4+X5                                                           BRIDGE       617     A     
 BRIDGE             LX3    R1.RKP                                                          BRIDGE       618     A     
 BRIDGE             LX6    R1.RIP                                                          BRIDGE       619     A     
 BRIDGE             BX5    X6+X3                                                           BRIDGE       620     A     
 BRIDGE             EQ     CIR0                                                            BRIDGE       621     A     
 BRIDGE                                                                                    BRIDGE       622     A     
 BRIDGE    CIR1A    LX5    R1.INP-R1.SOP                                                   BRIDGE       623     A     
 BRIDGE             BX3    X4+X5                                                           BRIDGE       624     A     
 BRIDGE             LX3    R1.SOP                                                          BRIDGE       625     A     
 BRIDGE             LX6    R1.RIP                                                          BRIDGE       626     A     
 BRIDGE             BX5    X6+X3                                                           BRIDGE       627     A     
 BRIDGE             EQ     CIR0                                                            BRIDGE       628     A     
 BRIDGE                                                                                    BRIDGE       629     A     
 BRIDGE   *         PROCESS TYPE 3 RLIST.                                                  BRIDGE       630     A     
 BRIDGE                                                                                    BRIDGE       631     A     
 BRIDGE    CIR1     MI     X2,CIR3     IF TYPE = 4                                         BRIDGE       632     A     
 BRIDGE             SB2    X6                                                              BRIDGE       633     A     
 BRIDGE             SB3    B2-OC.ST                                                        BRIDGE       634     A     
 BRIDGE             ZR     B3,CIR2     IF STORE                                            BRIDGE       635     A     
 BRIDGE                                                                                    BRIDGE       636     A     
 BRIDGE             NOV    3           IH/CA                                               BRIDGE       637     A     
 BRIDGE             NOV    2,X6        RF                                                  BRIDGE       638     A     
 BRIDGE             SA1    CIRV+2      IH/CA                                               BRIDGE       639     A     
 BRIDGE             BX5    X6                                                              BRIDGE       640     A     
 BRIDGE             MX0    -SY.CAL                                                         BRIDGE       641     A     
 BRIDGE             LX1    -SY.CAP                                                         BRIDGE       642     A     
 BRIDGE             BX0    -X0*X1                                                          BRIDGE       643     A     
 BRIDGE             RJ     ACA         ADJUST LONG CA (ISSUE LDC, IA)                      BRIDGE       644     A     
 BRIDGE             SA3    CIRV+2                                                          BRIDGE       645     A     
 BRIDGE             BX6    X5                                                              BRIDGE       646     A     
 BRIDGE             SA6    CIRV+1      RF = RFNEW                                          BRIDGE       647     A     
 BRIDGE             LX0    SY.CAP                                                          BRIDGE       648     A     
 BRIDGE             MX1    -SY.CAL                                                         BRIDGE       649     A     
 BRIDGE             LX1    SY.CAP                                                          BRIDGE       650     A     
 BRIDGE             BX6    X1*X3       CLEAR OLD CA                                        BRIDGE       651     A     
 BRIDGE             BX7    X6+X0       CA = CANEW                                          BRIDGE       652     A     
 BRIDGE             SA7    A3                                                              BRIDGE       653     A     
 BRIDGE             SA1    CIRB                                                            BRIDGE       654     A     
 BRIDGE             BX7    X1                                                              BRIDGE       655     A     
 BRIDGE             SA7    DEF                                                             BRIDGE       656     A     
 BRIDGE             NOV    1,X6        VAL(1) = RI                                         BRIDGE       657     A     
 BRIDGE             MX7    0                                                               BRIDGE       658     A     
 BRIDGE             SA7    DEF                                                             BRIDGE       659     A     
 BRIDGE             SA1    CIRV+2                                                          BRIDGE       660     A     
 BRIDGE             BX5    X6                                                              BRIDGE       661     A     
 BRIDGE             MX0    -IH.CAL                                                         BRIDGE       662     A     
 BRIDGE             LX1    -SY.CAP                                                         BRIDGE       663     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE       664     A     
 BRIDGE             AX1    SY.IHP                                                          BRIDGE       665     A     
 BRIDGE             SA4    CIRA                                                            BRIDGE       666     A     
 BRIDGE             SA3    CIRV+1                                                          BRIDGE       667     A     
 BRIDGE             LX1    IH.IHP                                                          BRIDGE       668     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2035    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SB6    X4-OC.JPX                                                       BRIDGE       669     A     
 BRIDGE             LX6    IH.CAP                                                          BRIDGE       670     A     
 BRIDGE             BX0    X1+X6                                                           BRIDGE       671     A     
 BRIDGE             ZR     B6,CIR15    IF X-JUMP  */ FIELD2 IS FOR CA                      BRIDGE       672     A     
 BRIDGE             LX3    IH.RFP                                                          BRIDGE       673     A     
 BRIDGE             BX7    X0+X3                                                           BRIDGE       674     A     
 BRIDGE             EQ     CIR0                                                            BRIDGE       675     A     
 BRIDGE                                                                                    BRIDGE       676     A     
 BRIDGE    CIR15    LX3    IH.CAP                                                          BRIDGE       677     A     
 BRIDGE             BX7    X0+X3                                                           BRIDGE       678     A     
 BRIDGE             EQ     CIR0                                                            BRIDGE       679     A     
 BRIDGE                                                                                    BRIDGE       680     A     
 BRIDGE   *         PROCESS STORE.                                                         BRIDGE       681     A     
 BRIDGE                                                                                    BRIDGE       682     A     
 BRIDGE    CIR2     NOV    2,X6        ISSUE XMIT AS RJ                                    BRIDGE       683     A     
 BRIDGE             MX7    0                                                               BRIDGE       684     A     
 BRIDGE             LX6    R1.RJP                                                          BRIDGE       685     A     
 BRIDGE             SA5    LL.TXT                                                          BRIDGE       686     A     
 BRIDGE             LX5    R1.RIP                                                          BRIDGE       687     A     
 BRIDGE             BX5    X5+X6                                                           BRIDGE       688     A     
 BRIDGE             SB7    OC.XMT                                                          BRIDGE       689     A     
 BRIDGE             RJ     IRI         ISSUE RLIST INSTRUCTION (OC.XMT,VAL)                BRIDGE       690     A     
 BRIDGE             SX6    B1                                                              BRIDGE       691     A     
 BRIDGE             SA6    SMF         SET STORE MODE                                      BRIDGE       692     A     
 BRIDGE                                                                                    BRIDGE       693     A     
 BRIDGE             NOV    1,X6                                                            BRIDGE       694     A     
 BRIDGE             MX6    0                                                               BRIDGE       695     A     
 BRIDGE             SA6    SMF         CLEAR STORE MODE                                    BRIDGE       696     A     
 BRIDGE             EQ     CIR                                                             BRIDGE       697     A     
 BRIDGE                                                                                    BRIDGE       698     A     
 BRIDGE   *         PROCESS TYPE 4.                                                        BRIDGE       699     A     
 BRIDGE                                                                                    BRIDGE       700     A     
 BRIDGE    CIR3     NOV    3,X6        VAL(3) = IH                                         BRIDGE       701     A     
 BRIDGE             MX7    0                                                               BRIDGE       702     A     
 BRIDGE             LX6    R1.IHP-SY.IHP                                                   BRIDGE       703     A     
 BRIDGE             BX5    X6                                                              BRIDGE       704     A     
 BRIDGE             EQ     CIR0                                                            BRIDGE       705     A     
 BRIDGE                                                                                    BRIDGE       706     A     
 BRIDGE    SMF      BSSZ   1           STORE MODE FLAG                                     BRIDGE       707     A     
 BRIDGE    CIRV     BSS    4           PARAMETER VALUES FOR IRI                            BRIDGE       708     A     
 BRIDGE    CIRA     BSS    1           OP CODE                                             BRIDGE       709     A     
 BRIDGE    CIRB     BSSZ   1                                                               BRIDGE       710     A     
 BRIDGE    DEF      BSSZ   1           THIS FIELD DEFINED (FOR GOV)                        BRIDGE       711     A     
 BRIDGE    RJOFF    BSSZ   1           RJ FIELD OFFSET                                     BRIDGE       712     A     
 BRIDGE    GOV      EJECT                                                                  BRIDGE       713     A     
 BRIDGE   **        GOV - GET OPERAND VALUE.                                               BRIDGE       714     A     
 BRIDGE   *                                                                                BRIDGE       715     A     
 BRIDGE   *         ENTRY  X1 = OPERAND TYPE                                               BRIDGE       716     A     
 BRIDGE   *                X2 = OPERAND NUM                                                BRIDGE       717     A     
 BRIDGE   *                                                                                BRIDGE       718     A     
 BRIDGE   *         EXIT   X6 = OPERAND VALUE (R-NUMBER OR IMMEDIATE FIELD VALUE)          BRIDGE       719     A     
 BRIDGE   *                                                                                BRIDGE       720     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2036    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *         PRESERVES  B4,B5                                                       BRIDGE       721     A     
 BRIDGE                                                                                    BRIDGE       722     A     
 BRIDGE             PURGMAC SKOP                                                           BRIDGE       723     A     
 BRIDGE                                                                                    BRIDGE       724     A     
 BRIDGE             MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ                                  BRIDGE       725     A     
 BRIDGE             IFC    EQ, OPEQ  ,1                                                    BRIDGE       726     A     
 BRIDGE             EQ     GOV.OP                                                          BRIDGE       727          I
          -FC5A132
 BRIDGE             CON    GOV.OP                                                          FC5A132      172     A     
 BRIDGE             ENDM                                                                   BRIDGE       728     A     
 BRIDGE                                                                                    BRIDGE       729     A     
 BRIDGE    GOV      SUBR                                                                   BRIDGE       730     A     
 BRIDGE             SA5    GOV.JT+X1                                                       FC5A132      173     A     
 BRIDGE             SA4    INDEX                                                           BRIDGE       731     A     
 BRIDGE             SA3    SMF         STORE MODE FLAG                                     BRIDGE       732          I
          -FC5A164
 BRIDGE             MX6    0           GOV = 0                                             BRIDGE       733     A     
 BRIDGE             SB3    X1                                                              BRIDGE       734          I
          -FC5A132
 BRIDGE             SB3    X5                                                              FC5A132      174     A     
 BRIDGE             SB2    X2                                                              BRIDGE       735     A     
 BRIDGE             SB7    X4                                                              BRIDGE       736     A     
 BRIDGE             SA5    DEF                                                             BRIDGE       737     A     
 BRIDGE             JP     GOV.JT+B3                                                       BRIDGE       738          I
          -FC5A132
 BRIDGE             JP     B3                                                              FC5A132      175     A     
 BRIDGE    GOV.JT   BSS    0                                                               BRIDGE       739     A     
 BRIDGE                                                                                    BRIDGE       740     A     
 BRIDGE             LOC    0                                                               BRIDGE       741     A     
 BRIDGE             LIST   -X,G                                                            BRIDGE       742     A     
 BRIDGE                                                                                    BRIDGE       743     A     
 BRIDGE             EQ     GOV         NULL OPERAND                                        BRIDGE       744          I
          -FC5A132
 BRIDGE             CON    GOV         NULL OPERAND                                        FC5A132      176     A     
 BRIDGE   *CALL     SKOP   SKELETON OPERAND JUMP TABLE                                     BRIDGE       745     A     
 BRIDGE                                                                                    BRIDGE       746     A     
 BRIDGE             LIST   *                                                               BRIDGE       747     A     
 BRIDGE             LOC    *O                                                              BRIDGE       748     A     
 BRIDGE                                                                                    BRIDGE       749     A     
 BRIDGE    GOV.A    BSS    0                                                               BRIDGE       750     A     
 BRIDGE    GOV.B    BSS    0                                                               BRIDGE       751     A     
 BRIDGE    GOV.X    EQ     "BLOWUP"                                                        BRIDGE       752     A     
 BRIDGE                                                                                    BRIDGE       753     A     
 BRIDGE    GOV.L    BSS    0                                                               BRIDGE       754     A     
 BRIDGE    GOV.LU   SA1    GOVL+B2-1                                                       BRIDGE       755          I
          -FC5A164
 BRIDGE             BX6    X1                                                              BRIDGE       756          I
          -FC5A164
 BRIDGE             ZR     X1,GOV21    IF FIRST USE                                        BRIDGE       757          I
          -FC5A164
 BRIDGE             ZR     X3,GOV      IF ^STORE, GOV = L(NUM)                             BRIDGE       758          I
          -FC5A164
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2037    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE       759          I
          -FC5A164
 BRIDGE    GOV21    SB6    B0          LOW=0                                               BRIDGE       760          I
          -FC5A164
 BRIDGE    GOV.LU   SB6    B0                                                              FC5A164       73     A     
 BRIDGE             SA4    B5+B2       O = OPD(NUM)                                        BRIDGE       761     A     
 BRIDGE             RJ     LOP         LOAD OPERAND                                        BRIDGE       762     A     
 BRIDGE             SA6    GOVL+B2-1   GOV = L(NUM) = LOP(TYP,NUM,LOW)                     BRIDGE       763          I
          -FC5A164
 BRIDGE             EQ     GOV                                                             BRIDGE       764     A     
 BRIDGE                                                                                    BRIDGE       765     A     
 BRIDGE    GOV.LL   SA1    GOVLL+B2-1                                                      BRIDGE       766          I
          -FC5A164
 BRIDGE             BX6    X1                                                              BRIDGE       767          I
          -FC5A164
 BRIDGE             ZR     X1,GOV31    IF FIRST USE                                        BRIDGE       768          I
          -FC5A164
 BRIDGE             ZR     X3,GOV      IF ^STORE, GOV = LL(NUM)                            BRIDGE       769          I
          -FC5A164
 BRIDGE                                                                                    BRIDGE       770          I
          -FC5A164
 BRIDGE    GOV31    SB6    B1          LOW=1                                               BRIDGE       771          I
          -FC5A164
 BRIDGE    GOV.LL   SB6    B1                                                              FC5A164       74     A     
 BRIDGE             SA4    B5+B2       O = OPD(NUM)                                        BRIDGE       772     A     
 BRIDGE             RJ     LOP         LOAD OPERAND                                        BRIDGE       773     A     
 BRIDGE             SA6    GOVLL+B2-1  GOV = LL(NUM)= LOP(TYPE,NUM,LOW)                    BRIDGE       774          I
          -FC5A164
 BRIDGE             EQ     GOV                                                             BRIDGE       775     A     
 BRIDGE                                                                                    BRIDGE       776     A     
 BRIDGE    GOV.P    SA1    B5+B2       O = OPD(NUM)                                        BRIDGE       777     A     
 BRIDGE             RJ     GLT         GET SYMBOL/LABEL TAG                                BRIDGE       778     A     
 BRIDGE                                                                                    BRIDGE       779     A     
 BRIDGE    GOVP1    LX3    SY.IHP                                                          BRIDGE       780     A     
 BRIDGE             LX4    SY.CAP                                                          BRIDGE       781     A     
 BRIDGE             BX6    X4+X3       GOV=IHCA[O]                                         BRIDGE       782     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       783     A     
 BRIDGE                                                                                    BRIDGE       784     A     
 BRIDGE    GOV.R    BSS    0                                                               BRIDGE       785     A     
 BRIDGE    GOV.RU   SA2    LL.TXT                                                          BRIDGE       786     A     
 BRIDGE             BX6    X2                                                              BRIDGE       787     A     
 BRIDGE             SA2    =XO$TST                                                         BRIDGE       788     A     
 BRIDGE             LX6    TS.RNUP                                                         BRIDGE       789     A     
 BRIDGE             SA3    X2+B7                                                           BRIDGE       790     A     
 BRIDGE             BX7    X6+X3                                                           BRIDGE       791     A     
 BRIDGE             SA7    A3          RNU[TST(INDEX)] = LL.TXT                            BRIDGE       792     A     
 BRIDGE             LX6    -TS.RNUP    GOV = LL.TXT                                        BRIDGE       793     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       794     A     
 BRIDGE                                                                                    BRIDGE       795     A     
 BRIDGE    GOV.RL   SA2    LL.TXT                                                          BRIDGE       796     A     
 BRIDGE             BX6    X2                                                              BRIDGE       797     A     
 BRIDGE             SA2    =XO$TST                                                         BRIDGE       798     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2038    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             LX6    TS.RNLP                                                         BRIDGE       799     A     
 BRIDGE             SA3    X2+B7                                                           BRIDGE       800     A     
 BRIDGE             BX7    X6+X3                                                           BRIDGE       801     A     
 BRIDGE             SA7    A3          RNL[TST(INDEX)] = LL.TXT                            BRIDGE       802     A     
 BRIDGE             LX6    -TS.RNLP    GOV = LL.TXT                                        BRIDGE       803     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       804     A     
 BRIDGE                                                                                    BRIDGE       805     A     
 BRIDGE                                                                                    BRIDGE       806     A     
 BRIDGE    GOV.T    SA1    GOVT+B2                                                         BRIDGE       807     A     
 BRIDGE             BX6    X1                                                              BRIDGE       808     A     
 BRIDGE             PL     X5,GOV      IF FIELD NOT DEFINED HERE, GOV=T(NUM)               BRIDGE       809     A     
 BRIDGE             SA4    RJOFF                                                           BRIDGE       810     A     
 BRIDGE             SA3    LL.TXT                                                          BRIDGE       811     A     
 BRIDGE             IX6    X3+X4                                                           BRIDGE       812     A     
 BRIDGE             SA6    A1          GOV = T(NUM) = LL.TXT + RJOFFSET                    BRIDGE       813     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       814     A     
 BRIDGE                                                                                    BRIDGE       815     A     
 BRIDGE    GOV.Q    SA5    B4                                                              BRIDGE       816     A     
 BRIDGE             SX5    X5                                                              BRIDGE       817     A     
 BRIDGE             MX0    -SY.CAL                                                         BRIDGE       818     A     
 BRIDGE             BX6    -X0*X5                                                          BRIDGE       819     A     
 BRIDGE             LX6    SY.CAP                                                          BRIDGE       820     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       821     A     
 BRIDGE                                                                                    BRIDGE       822     A     
 BRIDGE    GOV.K    SX6    B2                                                              BRIDGE       823     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       824     A     
 BRIDGE                                                                                    BRIDGE       825     A     
 BRIDGE    GOV.S    SA5    B4                                                              BRIDGE       826     A     
 BRIDGE             SA1    X5                                                              BRIDGE       827     A     
 BRIDGE             BX6    X1                                                              BRIDGE       828     A     
 BRIDGE             LX6    SY.IHP                                                          BRIDGE       829     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       830     A     
 BRIDGE                                                                                    BRIDGE       831     A     
 BRIDGE    GOV.GLU  BSS    0                                                               BRIDGE       832     A     
 BRIDGE    GOV.GL   SB6    B0                                                              BRIDGE       833     A     
 BRIDGE             SA4    GOVG+B2                                                         BRIDGE       834     A     
 BRIDGE             RJ     LOP                                                             BRIDGE       835     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       836     A     
 BRIDGE                                                                                    BRIDGE       837     A     
 BRIDGE    GOV.GLL  SB6    B1                                                              BRIDGE       838     A     
 BRIDGE             SA4    GOVG+B2                                                         BRIDGE       839     A     
 BRIDGE             RJ     LOP                                                             BRIDGE       840     A     
 BRIDGE             EQ     GOV                                                             BRIDGE       841     A     
 BRIDGE                                                                                    BRIDGE       842     A     
 BRIDGE    GOV.GP   SA1    GOVG+B2                                                         BRIDGE       843     A     
 BRIDGE             RJ     GLT         GET SYMBOL/LABEL TAG                                BRIDGE       844     A     
 BRIDGE             EQ     GOVP1                                                           BRIDGE       845     A     
 BRIDGE    LOP      EJECT                                                                  BRIDGE       846     A     
 BRIDGE   **        LOP - LOAD OPERAND.                                                    BRIDGE       847     A     
 BRIDGE   *         ISSUES LOAD OR STORE OR SET OF OPERAND.                                BRIDGE       848     A     
 BRIDGE   *                                                                                BRIDGE       849     A     
 BRIDGE   *         ENTRY  X4 = OPERAND                                                    BRIDGE       850     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2039    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *                B6 = LOW, LOWER HALF FLAG                                       BRIDGE       851     A     
 BRIDGE   *                                                                                BRIDGE       852     A     
 BRIDGE   *         EXIT   X6 = R-NUMBER OF OPERAND                                        BRIDGE       853     A     
 BRIDGE   *                                                                                BRIDGE       854     A     
 BRIDGE   *         PRESERVES          B2,B4,B5                                            BRIDGE       855     A     
 BRIDGE                                                                                    BRIDGE       856     A     
 BRIDGE    LOPE     SA1    LOPA                                                            BRIDGE       857     A     
 BRIDGE             SB2    X1+                                                             BRIDGE       858     A     
 BRIDGE             MX7    0                                                               BRIDGE       859     A     
 BRIDGE             SA7    SMF                                                             BRIDGE       860     A     
 BRIDGE                                                                                    BRIDGE       861     A     
 BRIDGE    LOP      SUBR                                                                   BRIDGE       862     A     
 BRIDGE             SX6    B2                                                              BRIDGE       863     A     
 BRIDGE             SA6    LOPA                                                            BRIDGE       864     A     
 BRIDGE             SA3    SMF                                                             BRIDGE       865     A     
 BRIDGE             =X0    1S1                                                             BRIDGE       866     A     
 BRIDGE             BX1    X4          FOR GLT                                             BRIDGE       867     A     
 BRIDGE             LX4    -TP.ADDRP+1                                                     BRIDGE       868     A     
 BRIDGE             BX5    X0*X4                                                           BRIDGE       869     A     
 BRIDGE             BX0    X3+X5                                                           BRIDGE       870     A     
 BRIDGE             SA5    LL.TXT                                                          BRIDGE       871     A     
 BRIDGE             LX5    R1.RIP      RI = LL.TXT                                         BRIDGE       872     A     
 BRIDGE                                                                                    BRIDGE       873     A     
 BRIDGE   *         SELECT OC.LD/ST/STT                                                    BRIDGE       874     A     
 BRIDGE                                                                                    BRIDGE       875     A     
 BRIDGE             SB7    OC.LD+X0    OPC = OC.LD + (2*ADDR[O]+SMF)                       BRIDGE       876     A     
 BRIDGE             LX4    TP.ADDRP-1+59-TP.SHRTP                                          BRIDGE       877     A     
 BRIDGE             PL     X4,LOP1     IF ^SHRT[O]   IF NOT SHORT CONSTANT                 BRIDGE       878     A     
 BRIDGE                                                                                    BRIDGE       879     A     
 BRIDGE             SB7    OC.S        OPC = OC.S                                          BRIDGE       880     A     
 BRIDGE             MX0    -SY.CAL                                                         BRIDGE       881     A     
 BRIDGE             LX4    TP.SHRTP-59-TP.BIASP+60                                         BRIDGE       882     A     
 BRIDGE             BX6    -X0*X4                                                          BRIDGE       883     A     
 BRIDGE             SX4    X6-0                                                            BRIDGE       884     A     
 BRIDGE             MX7    0                                                               BRIDGE       885     A     
 BRIDGE             PL     X4,LOP05    IF CONSTANT POSITIVE                                BRIDGE       886     A     
 BRIDGE             ZR     X4,LOP07    IF -0                                               BRIDGE       887     A     
 BRIDGE                                                                                    BRIDGE       888     A     
 BRIDGE    LOP05    LX6    R1.INP                                                          BRIDGE       889     A     
 BRIDGE             BX5    X5+X6                                                           BRIDGE       890     A     
 BRIDGE             RJ     IRI         ISSUE (S,VAL)                                       BRIDGE       891     A     
 BRIDGE             MX0    -R1.RIL                                                         BRIDGE       892     A     
 BRIDGE             LX5    -R1.RIP                                                         BRIDGE       893     A     
 BRIDGE             BX6    -X0*X5                                                          BRIDGE       894     A     
 BRIDGE             EQ     LOPE                                                            BRIDGE       895     A     
 BRIDGE                                                                                    BRIDGE       896     A     
 BRIDGE    LOP07    SX6    60                                                              BRIDGE       897     A     
 BRIDGE             SB7    OC.FMA                                                          BRIDGE       898     A     
 BRIDGE             EQ     LOP05       ISSUE MASK(60)                                      BRIDGE       899     A     
 BRIDGE                                                                                    BRIDGE       900     A     
 BRIDGE    LOP1     LX4    TP.SHRTP-TP.INTRP                                               BRIDGE       901     A     
 BRIDGE             MI     X4,LOP2     IF INTR[O]   IF INTERMEDIATE OPERAND                BRIDGE       902     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2040    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             RJ     GLT         GET LABEL/SYMBOL TAG                                BRIDGE       903     A     
 BRIDGE             SA2    S=CON                                                           BRIDGE       904     A     
 BRIDGE             BX2    X2-X3                                                           BRIDGE       905     A     
 BRIDGE             NZ     X2,LOP15    IF NOT CONSTANT LOAD                                BRIDGE       906     A     
 BRIDGE             SB7    OC.LDC                                                          BRIDGE       907     A     
 BRIDGE             EQ     LOP16                                                           BRIDGE       908     A     
 BRIDGE                                                                                    BRIDGE       909     A     
 BRIDGE    LOP15    SA2    =XS$VD                                                          BRIDGE       910     A     
 BRIDGE             BX6    X2-X3                                                           BRIDGE       911     A     
 BRIDGE             NZ     X6,LOP16    IF NOT VARDIM LOAD                                  BRIDGE       912     A     
 BRIDGE             SB3    B7-OC.LD                                                        BRIDGE       913     A     
 BRIDGE             NZ     B3,LOP16    IF NOT LOAD                                         BRIDGE       914     A     
 BRIDGE             SB7    OC.LDV                                                          BRIDGE       915     A     
 BRIDGE                                                                                    BRIDGE       916     A     
 BRIDGE                                                                                    BRIDGE       917     A     
 BRIDGE    LOP16    BX6    X3                                                              BRIDGE       918     A     
 BRIDGE             LX6    18                                                              BRIDGE       919     A     
 BRIDGE             SX3    B7                                                              BRIDGE       920     A     
 BRIDGE             BX6    X3+X6                                                           BRIDGE       921     A     
 BRIDGE             SA6    LOPC                                                            BRIDGE       922     A     
 BRIDGE             SA3    SMF                                                             BRIDGE       923     A     
 BRIDGE             SX5    X5-4                                                            BRIDGE       924     A     
 BRIDGE             LX3    -1                                                              BRIDGE       925     A     
 BRIDGE             AX3    59                                                              BRIDGE       926     A     
 BRIDGE             BX6    X3*X5                                                           BRIDGE       927     A     
 BRIDGE             SA6    LOPB        RI IFF STORE                                        BRIDGE       928     A     
 BRIDGE             SX2    B6                                                              BRIDGE       929     A     
 BRIDGE             IX0    X4+X2       CA = CA[ORD[O]] + LOW                               BRIDGE       930     A     
 BRIDGE             MX5    0           RF = 0                                              BRIDGE       931     A     
 BRIDGE             RJ     ACA         ADJUST LONG CA                                      BRIDGE       932     A     
 BRIDGE             SA3    LOPC                                                            BRIDGE       933     A     
 BRIDGE             SB7    X3                                                              BRIDGE       934     A     
 BRIDGE             AX3    18                                                              BRIDGE       935     A     
 BRIDGE             LX3    IH.IHP                                                          BRIDGE       936     A     
 BRIDGE             MX6    -IH.CAL                                                         BRIDGE       937     A     
 BRIDGE             BX0    -X6*X0                                                          BRIDGE       938     A     
 BRIDGE             LX5    IH.RFP                                                          BRIDGE       939     A     
 BRIDGE             BX3    X3+X5                                                           BRIDGE       940     A     
 BRIDGE             LX0    IH.CAP                                                          BRIDGE       941     A     
 BRIDGE             SA5    LOPB                                                            BRIDGE       942     A     
 BRIDGE             BX7    X3+X0                                                           BRIDGE       943     A     
 BRIDGE             NZ     X5,LOP17    IF STORE                                            BRIDGE       944     A     
 BRIDGE             SA5    LL.TXT      RI = LL.TXT                                         BRIDGE       945     A     
 BRIDGE                                                                                    BRIDGE       946     A     
 BRIDGE    LOP17    RJ     IRI         ISSUE OPC,RI,IH,CA,RF                               BRIDGE       947     A     
 BRIDGE             LX5    -R1.RIP                                                         BRIDGE       948     A     
 BRIDGE             BX6    X5                                                              BRIDGE       949     A     
 BRIDGE             EQ     LOPE                                                            BRIDGE       950     A     
 BRIDGE                                                                                    BRIDGE       951     A     
 BRIDGE    LOP2     SA2    IND0                                                            BRIDGE       952     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE       953     A     
 BRIDGE             LX4    TP.INTRP-59-TP.ORDP+60                                          BRIDGE       954     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2041    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX6    -X0*X4                                                          BRIDGE       955     A     
 BRIDGE             IX3    X6-X2                                                           BRIDGE       956     A     
 BRIDGE             SX1    B7                                                              BRIDGE       957     A     
 BRIDGE             SB7    X3          IND = ORD[O] - IND0                                 BRIDGE       958     A     
 BRIDGE             LX4    TP.ORDP+59-TP.ARYP-60                                           BRIDGE       959     A     
 BRIDGE             PL     X4,LOP3     IF ^ARY[O]                                          BRIDGE       960     A     
 BRIDGE             MX7    0                                                               BRIDGE       961     A     
 BRIDGE             SA7    SMF         CLEAR STORE MODE                                    BRIDGE       962     A     
 BRIDGE             RJ     GAR         GENERATE ARRAY LOAD(IND)                            BRIDGE       963     A     
 BRIDGE             EQ     LOPE                                                            BRIDGE       964     A     
 BRIDGE                                                                                    BRIDGE       965     A     
 BRIDGE    LOP3     RJ     LIR         LOAD INTERMEDIATE RESULT (IND)                      BRIDGE       966     A     
 BRIDGE             EQ     LOPE                                                            BRIDGE       967     A     
 BRIDGE                                                                                    BRIDGE       968     A     
 BRIDGE    LOPA     BSS    1                                                               BRIDGE       969     A     
 BRIDGE    LOPB     BSS    1                                                               BRIDGE       970     A     
 BRIDGE    LOPC     BSS    1                                                               BRIDGE       971     A     
 BRIDGE    ACA      EJECT                                                                  BRIDGE       972     A     
 BRIDGE   **        ACA - ADJUST CA.                                                       BRIDGE       973     A     
 BRIDGE   *         IF ABS(CA) .GT. 377777B, ACA ISSUES LOAD OF CONSTANT AND               BRIDGE       974     A     
 BRIDGE   *         ADD TO RF (INDEX) IF PRESENT.                                          BRIDGE       975     A     
 BRIDGE   *                                                                                BRIDGE       976     A     
 BRIDGE   *         ENTRY  X0 = CA, 24-BIT SIGNED                                          BRIDGE       977     A     
 BRIDGE   *                X5 = RF                                                         BRIDGE       978     A     
 BRIDGE   *                                                                                BRIDGE       979     A     
 BRIDGE   *         EXIT   X0 = NEW CA (OLD CA OR 0)                                       BRIDGE       980     A     
 BRIDGE   *                X5 = NEW RF (OLD RF OR RI OF LAST INSTRUCTION)                  BRIDGE       981     A     
 BRIDGE                                                                                    BRIDGE       982     A     
 BRIDGE    ACA      SUBR                                                                   BRIDGE       983     A     
 BRIDGE             SB3    59-23                                                           BRIDGE       984     A     
 BRIDGE             LX6    B3,X0                                                           BRIDGE       985     A     
 BRIDGE             AX6    59-23+17                                                        BRIDGE       986     A     
 BRIDGE             ZR     X6,EXIT.    IF CA NOT LONG                                      BRIDGE       987     A     
 BRIDGE             LX1    B3,X0                                                           BRIDGE       988     A     
 BRIDGE             AX1    B3          SIGN EXTEND CA                                      BRIDGE       989     A     
 BRIDGE             CALL   CG$SCT      ENTER CA INTO CON.                                  BRIDGE       990     A     
 BRIDGE             BX7    X5                                                              BRIDGE       991     A     
 BRIDGE             SA7    ACAA        SAVE RF                                             BRIDGE       992     A     
 BRIDGE             SB7    OC.LDC                                                          BRIDGE       993     A     
 BRIDGE             SA2    =XS=CON     IH = CON.                                           BRIDGE       994     A     
 BRIDGE             SA5    LL.TXT      RI = LL.TXT                                         BRIDGE       995     A     
 BRIDGE             LX5    R1.RIP                                                          BRIDGE       996     A     
 BRIDGE             LX6    IH.CAP      CA = CON. ORDINAL                                   BRIDGE       997     A     
 BRIDGE             LX2    IH.IHP                                                          BRIDGE       998     A     
 BRIDGE             BX7    X6+X2                                                           BRIDGE       999     A     
 BRIDGE             RJ     IRI         ISSUE LDC RI,CON.,CA                                BRIDGE      1000     A     
 BRIDGE             SA1    ACAA                                                            BRIDGE      1001     A     
 BRIDGE             MX0    0           NEWCA = 0                                           BRIDGE      1002     A     
 BRIDGE             ZR     X1,EXIT.    IF NO RF                                            BRIDGE      1003     A     
 BRIDGE             LX5    -R1.RIP                                                         BRIDGE      1004     A     
 BRIDGE             SX6    X5+4        RI = RI(LDC) + 4                                    BRIDGE      1005     A     
 BRIDGE             LX5    R1.RJP-R1.RIP     RJ = RI(LDC)                                  BRIDGE      1006     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2042    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             LX6    R1.RIP                                                          BRIDGE      1007     A     
 BRIDGE             BX6    X6+X5                                                           BRIDGE      1008     A     
 BRIDGE             LX1    R1.RKP      RK = OLD RF                                         BRIDGE      1009     A     
 BRIDGE             SB7    OC.IA                                                           BRIDGE      1010     A     
 BRIDGE             MX7    0                                                               BRIDGE      1011     A     
 BRIDGE             BX5    X6+X1                                                           BRIDGE      1012     A     
 BRIDGE             RJ     IRI         ISSUE IA RI,RJ,RK                                   BRIDGE      1013     A     
 BRIDGE             MX0    0           CA = 0                                              BRIDGE      1014     A     
 BRIDGE             MX6    -R1.RIL                                                         BRIDGE      1015     A     
 BRIDGE             LX5    -R1.RIP                                                         BRIDGE      1016     A     
 BRIDGE             BX5    -X6*X5      NEW RF = RI                                         BRIDGE      1017     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1018     A     
 BRIDGE                                                                                    BRIDGE      1019     A     
 BRIDGE    ACAA     BSS    1                                                               BRIDGE      1020     A     
 BRIDGE                                                                                    BRIDGE      1021     A     
 BRIDGE                                                                                    BRIDGE      1022     A     
 BRIDGE    IRI      EJECT                                                                  BRIDGE      1023     A     
 BRIDGE   *         IRI - ISSUE RLIST INSTRUCTION.                                         BRIDGE      1024     A     
 BRIDGE   *                                                                                BRIDGE      1025     A     
 BRIDGE   *         ENTRY  X5 = WORD 1 (LESS OPCODE)                                       BRIDGE      1026     A     
 BRIDGE   *                X7 = WORD 2                                                     BRIDGE      1027     A     
 BRIDGE   *                B7 = OP CODE                                                    BRIDGE      1028     A     
 BRIDGE   *                                                                                BRIDGE      1029     A     
 BRIDGE   *         EXIT   X5,X7 PRESERVED                                                 BRIDGE      1030     A     
 BRIDGE   *                                                                                BRIDGE      1031     A     
 BRIDGE   *         PRESERVES B4,B5                                                        BRIDGE      1032     A     
 BRIDGE                                                                                    BRIDGE      1033     A     
 BRIDGE                                                                                    BRIDGE      1034     A     
 BRIDGE    IRI      SUBR                                                                   BRIDGE      1035     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      1036     A     
 BRIDGE             SA3    =XL$TXT                                                         BRIDGE      1037     A     
 BRIDGE             SX6    X1+4                                                            BRIDGE      1038     A     
 BRIDGE             IX0    X3-X6                                                           BRIDGE      1039     A     
 BRIDGE             SA6    A1          LL.TXT = LL.TXT + 4                                 BRIDGE      1040     A     
 BRIDGE             PL     X0,IRI1     IF LOCAL L.TXT (LL.TXT) .LE. L.TXT                  BRIDGE      1041     A     
 BRIDGE             BX0    X7                                                              BRIDGE      1042     A     
 BRIDGE             ALLOC  TXT,1000                                                        BRIDGE      1043          I
          -FC5A180
 BRIDGE             ALLOC  TXT,200B                                                        FC5A180       26     A     
 BRIDGE             SA3    LL.TXT                                                          BRIDGE      1044     A     
 BRIDGE             BX6    X3                                                              BRIDGE      1045     A     
 BRIDGE             BX7    X0                                                              BRIDGE      1046     A     
 BRIDGE                                                                                    BRIDGE      1047     A     
 BRIDGE    IRI1     SA3    F$RDT+B7                                                        BRIDGE      1048     A     
 BRIDGE             SA4    =XO$TXT                                                         BRIDGE      1049     A     
 BRIDGE             IX1    X4+X6                                                           BRIDGE      1050     A     
 BRIDGE             MX6    0                                                               BRIDGE      1051     A     
 BRIDGE             SA6    X1-1        RLIST(4) = 0                                        BRIDGE      1052     A     
 BRIDGE             BX6    X3                                                              BRIDGE      1053     A     
 BRIDGE             SA6    A6-B1       RLIST(3) = DES(OC)                                  BRIDGE      1054     A     
 BRIDGE             PX6    B7,X5                                                           BRIDGE      1055     A     
 BRIDGE             SA7    A6-B1       RLIST(2) = R2W                                      BRIDGE      1056     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2043    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA6    A7-B1       RLIST(1) = (OC,R1W)                                 BRIDGE      1057     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1058     A     
 BRIDGE    LIR      EJECT                                                                  BRIDGE      1059     A     
 BRIDGE   **        LIR    LOAD INTERMEDIATE RESULT.                                       BRIDGE      1060     A     
 BRIDGE   *         ENTRY  B6 = LOW (0=UPPER, 1=LOWER)                                     BRIDGE      1061     A     
 BRIDGE   *                B7 = INDEX                                                      BRIDGE      1062     A     
 BRIDGE   *                                                                                BRIDGE      1063     A     
 BRIDGE   *         EXIT   X6 = R-NUMBER OF INT.                                           BRIDGE      1064     A     
 BRIDGE                                                                                    BRIDGE      1065     A     
 BRIDGE    LIR      SUBR                                                                   BRIDGE      1066     A     
 BRIDGE             SA1    =XO$TST                                                         BRIDGE      1067     A     
 BRIDGE             SB2    59-TS.FRP+B6                                                    BRIDGE      1068     A     
 BRIDGE             ERRNZ  TS.FRP-TS.FRLP-1                                                BRIDGE      1069     A     
 BRIDGE             SA2    X1+B7                                                           BRIDGE      1070     A     
 BRIDGE             LX0    B2,X2                                                           BRIDGE      1071     A     
 BRIDGE             MI     X0,LIR05    IF ALREADY STORED OUT                               BRIDGE      1072     A     
 BRIDGE             SB2    X2                                                              BRIDGE      1073     A     
 BRIDGE             SA1    LXR                                                             BRIDGE      1074     A     
 BRIDGE             SB3    X1                                                              BRIDGE      1075     A     
 BRIDGE             SB3    B2-B3                                                           BRIDGE      1076     A     
 BRIDGE             PL     B3,LIR1     IF RN LT LXR   */ INT NOT DEFINED BEFORE RJ         BRIDGE      1077     A     
 BRIDGE                                                                                    BRIDGE      1078     A     
 BRIDGE    LIR05    RJ     STR         STORE INTERMEDIATE RESULT                           BRIDGE      1079     A     
 BRIDGE             SA5    LL.TXT                                                          BRIDGE      1080     A     
 BRIDGE             LX5    R1.RIP      RI = LL.TXT                                         BRIDGE      1081     A     
 BRIDGE             SA1    =XS=ST                                                          BRIDGE      1082     A     
 BRIDGE             LX1    IH.IHP                                                          BRIDGE      1083     A     
 BRIDGE             LX2    IH.CAP                                                          BRIDGE      1084     A     
 BRIDGE             BX7    X1+X2                                                           BRIDGE      1085     A     
 BRIDGE             SB7    OC.LD                                                           BRIDGE      1086     A     
 BRIDGE             RJ     IRI         ISSUE FUNCTION RESULT LOAD                          BRIDGE      1087     A     
 BRIDGE             LX5    -R1.RIP                                                         BRIDGE      1088     A     
 BRIDGE             BX6    X5          LIR = RI                                            BRIDGE      1089     A     
 BRIDGE             EQ     LIR                                                             BRIDGE      1090     A     
 BRIDGE                                                                                    BRIDGE      1091     A     
 BRIDGE   *         NOT FUNCTION RESULT. GET R-NUMBER FROM TST.                            BRIDGE      1092     A     
 BRIDGE                                                                                    BRIDGE      1093     A     
 BRIDGE    LIR1     NZ     B6,LIR2     IF LOWER                                            BRIDGE      1094     A     
 BRIDGE             LX2    -TS.RNUP                                                        BRIDGE      1095     A     
 BRIDGE             SX6    X2                                                              BRIDGE      1096     A     
 BRIDGE             EQ     LIR         LIR = RNU[TST(INDEX)]                               BRIDGE      1097     A     
 BRIDGE                                                                                    BRIDGE      1098     A     
 BRIDGE    LIR2     LX2    -TS.RNLP                                                        BRIDGE      1099     A     
 BRIDGE             SX6    X2                                                              BRIDGE      1100     A     
 BRIDGE             EQ     LIR         LIR = RNL[TST(INDEX)]                               BRIDGE      1101     A     
 BRIDGE    SDT      SPACE  4,8                                                             BRIDGE      1102     A     
 BRIDGE   **        SDT - STORE DOUBLE WORD TEMP.                                          BRIDGE      1103     A     
 BRIDGE   *                                                                                BRIDGE      1104     A     
 BRIDGE   *         ENTRY AND EXIT SAME AS STR                                             BRIDGE      1105     A     
 BRIDGE                                                                                    BRIDGE      1106     A     
 BRIDGE    SDT      SUBR                                                                   BRIDGE      1107     A     
 BRIDGE             SA1    B5                                                              BRIDGE      1108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2044    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      1109     A     
 BRIDGE             LX1    -TH.MODEP                                                       BRIDGE      1110     A     
 BRIDGE             BX0    -X0*X1                                                          BRIDGE      1111     A     
 BRIDGE             SB2    X0-M.DBL                                                        BRIDGE      1112     A     
 BRIDGE             ZR     B2,SDT10    IF DOUBLE                                           BRIDGE      1113     A     
 BRIDGE             EQ     B2,B1,SDT10 IF COMPLEX                                          BRIDGE      1114     A     
 BRIDGE             RJ     STR         SINGLE WORD                                         BRIDGE      1115     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1116     A     
 BRIDGE                                                                                    BRIDGE      1117     A     
 BRIDGE    SDT10    SA1    O$TST                                                           BRIDGE      1118     A     
 BRIDGE             SA1    X1+B7                                                           BRIDGE      1119     A     
 BRIDGE             HX1    TS.FR                                                           BRIDGE      1120     A     
 BRIDGE             MX0    2                                                               BRIDGE      1121     A     
 BRIDGE             BX0    X0*X1                                                           BRIDGE      1122     A     
 BRIDGE             LX0    2                                                               BRIDGE      1123     A     
 BRIDGE             BX6    X1                                                              BRIDGE      1124     A     
 BRIDGE             LX1    1+TS.FRP-TS.RNUP                                                BRIDGE      1125     A     
 BRIDGE             SX2    X1          UPPER RN/ST. CA                                     BRIDGE      1126     A     
 BRIDGE             LX1    TS.RNUP-TS.RNLP                                                 BRIDGE      1127     A     
 BRIDGE             SX3    X1          LOWER RN/ST. CA                                     BRIDGE      1128     A     
 BRIDGE             SB2    SDT.JT+X0                                                       BRIDGE      1129     A     
 BRIDGE             JP     B2                                                              BRIDGE      1130     A     
 BRIDGE                                                                                    BRIDGE      1131     A     
 BRIDGE    SDT.JT   EQ     SDT20       NEITHER STORED                                      BRIDGE      1132     A     
 BRIDGE             EQ     SDT30       LOWER STORED                                        BRIDGE      1133     A     
 BRIDGE             EQ     SDT40       UPPER STORED                                        BRIDGE      1134     A     
 BRIDGE             EQ     SDT50       BOTH STORED                                         BRIDGE      1135     A     
 BRIDGE                                                                                    BRIDGE      1136     A     
 BRIDGE    SDT20    RJ     STR         STORE UPPER                                         BRIDGE      1137     A     
 BRIDGE    SDT21    SB6    1                                                               BRIDGE      1138     A     
 BRIDGE             RJ     STR         STORE LOWER                                         BRIDGE      1139     A     
 BRIDGE             SX2    X2-1        CA OF UPPER                                         BRIDGE      1140     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1141     A     
 BRIDGE                                                                                    BRIDGE      1142     A     
 BRIDGE    SDT30    CLAS=  X1,TS,(FRL,RNL)                                                 BRIDGE      1143     A     
 BRIDGE             BX6    -X1*X6                                                          BRIDGE      1144     A     
 BRIDGE             SB2    X3                                                              BRIDGE      1145     A     
 BRIDGE             RJ     SFT                                                             BRIDGE      1146     A     
 BRIDGE             LX1    TS.RNLP                                                         BRIDGE      1147     A     
 BRIDGE             BX6    X6+X1       RESTORE LOWER R-NUMBER                              BRIDGE      1148     A     
 BRIDGE             SA6    A1                                                              BRIDGE      1149     A     
 BRIDGE             EQ     SDT20                                                           BRIDGE      1150     A     
 BRIDGE                                                                                    BRIDGE      1151     A     
 BRIDGE    SDT40    SA1    N.ST                                                            BRIDGE      1152     A     
 BRIDGE             IX3    X1-X2                                                           BRIDGE      1153     A     
 BRIDGE             SB2    X3                                                              BRIDGE      1154     A     
 BRIDGE             EQ     B2,B1,SDT21 IF NEXT ST. AVAIL.                                  BRIDGE      1155     A     
 BRIDGE             CLAS=  X1,TS,(FR,RNU)                                                  BRIDGE      1156     A     
 BRIDGE             BX6    -X1*X6                                                          BRIDGE      1157     A     
 BRIDGE             SB2    X2                                                              BRIDGE      1158     A     
 BRIDGE             RJ     SFT                                                             BRIDGE      1159     A     
 BRIDGE             LX1    TS.RNUP                                                         BRIDGE      1160     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2045    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX6    X6+X1       RESTORE UPPER R-NUMBER                              BRIDGE      1161     A     
 BRIDGE             SA6    A1                                                              BRIDGE      1162     A     
 BRIDGE             EQ     SDT20                                                           BRIDGE      1163     A     
 BRIDGE                                                                                    BRIDGE      1164     A     
 BRIDGE    SDT50    IX0    X3-X2                                                           BRIDGE      1165     A     
 BRIDGE             SB2    X0                                                              BRIDGE      1166     A     
 BRIDGE             EQ     B2,B1,EXIT. IF UPPER/LOWER CONTIGUOUS                           BRIDGE      1167     A     
 BRIDGE             CLAS=  X1,TS,(FRL,RNL)                                                 BRIDGE      1168     A     
 BRIDGE             BX6    -X1*X6                                                          BRIDGE      1169     A     
 BRIDGE             SB2    X3                                                              BRIDGE      1170     A     
 BRIDGE             RJ     SFT                                                             BRIDGE      1171     A     
 BRIDGE             LX1    TS.RNLP                                                         BRIDGE      1172     A     
 BRIDGE             BX6    X6+X1       RESTORE LOWER R-NUMBER                              BRIDGE      1173     A     
 BRIDGE             SA6    A1                                                              BRIDGE      1174     A     
 BRIDGE             EQ     SDT40                                                           BRIDGE      1175     A     
 BRIDGE    SFT      SPACE  4,8                                                             BRIDGE      1176     A     
 BRIDGE   **        SFT - SCAN FOR TEMPORARY'S PREDECESSOR.                                BRIDGE      1177     A     
 BRIDGE   *         ENTRY  B2 = CA OF ST. CELL                                             BRIDGE      1178     A     
 BRIDGE   *                                                                                BRIDGE      1179     A     
 BRIDGE   *         EXIT   X1 = R-NUMBER WHICH WAS STORED INTO ST. + CA                    BRIDGE      1180     A     
 BRIDGE                                                                                    BRIDGE      1181     A     
 BRIDGE    SFT      SUBR                                                                   BRIDGE      1182     A     
 BRIDGE             SA4    =XO$FUN                                                         BRIDGE      1183     A     
 BRIDGE             SB2    -B2                                                             BRIDGE      1184     A     
 BRIDGE             SA5    X4-1                                                            BRIDGE      1185     A     
 BRIDGE                                                                                    BRIDGE      1186     A     
 BRIDGE    SFT10    =A5    A5+1                                                            BRIDGE      1187     A     
 BRIDGE             LX5    -SD.CAP                                                         BRIDGE      1188     A     
 BRIDGE             SX0    X5+B2                                                           BRIDGE      1189     A     
 BRIDGE             NZ     X0,SFT10    IF THIS IS NOT DESIRED CA                           BRIDGE      1190     A     
 BRIDGE             LX5    SD.CAP-SD.RNP                                                   BRIDGE      1191     A     
 BRIDGE             SX1    X5          SFT = RN[FUN(I)]                                    BRIDGE      1192     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1193     A     
 BRIDGE             SPACE  4,8                                                             BRIDGE      1194     A     
 BRIDGE   **        STR - STORE TEMP RESULT.                                               BRIDGE      1195     A     
 BRIDGE   *                                                                                BRIDGE      1196     A     
 BRIDGE   *         ENTRY  B6 = LOW                                                        BRIDGE      1197     A     
 BRIDGE   *                B7 = INDEX                                                      BRIDGE      1198     A     
 BRIDGE   *                                                                                BRIDGE      1199     A     
 BRIDGE   *         EXIT   X2 = CA                                                         BRIDGE      1200     A     
 BRIDGE                                                                                    BRIDGE      1201     A     
 BRIDGE    STR      SUBR                                                                   BRIDGE      1202     A     
 BRIDGE             SA1    =XO$TST                                                         BRIDGE      1203     A     
 BRIDGE             SA3    X1+B7                                                           BRIDGE      1204     A     
 BRIDGE             SA1    STRA+B6                                                         BRIDGE      1205     A     
 BRIDGE             SB3    X1                                                              BRIDGE      1206     A     
 BRIDGE             LX4    B3,X3                                                           BRIDGE      1207     A     
 BRIDGE             SB2    59-TS.FRP+B6                                                    BRIDGE      1208     A     
 BRIDGE             LX0    B2,X3                                                           BRIDGE      1209     A     
 BRIDGE             SX2    X4          STR = RNU/RNL[TST(INDEX)]                           BRIDGE      1210     A     
 BRIDGE             MI     X0,EXIT.    IF FR/FRL[TST(INDEX)]  */ ALREADY STORED            BRIDGE      1211     A     
 BRIDGE             SA5    =XN.ST                                                          BRIDGE      1212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2046    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             MX0    1                                                               BRIDGE      1213     A     
 BRIDGE             SB2    -B6                                                             BRIDGE      1214     A     
 BRIDGE             SB2    1+TS.FRP+B2                                                     BRIDGE      1215     A     
 BRIDGE             LX0    B2                                                              BRIDGE      1216     A     
 BRIDGE             MX6    -TS.RNUL                                                        BRIDGE      1217     A     
 BRIDGE             BX3    X6*X4                                                           BRIDGE      1218     A     
 BRIDGE             BX1    X5+X3                                                           BRIDGE      1219     A     
 BRIDGE             SB3    -B3                                                             BRIDGE      1220     A     
 BRIDGE             SB3    60+B3                                                           BRIDGE      1221     A     
 BRIDGE             LX1    B3                                                              BRIDGE      1222     A     
 BRIDGE             BX6    X0+X1                                                           BRIDGE      1223     A     
 BRIDGE             SA6    A3          RNU/RNL[TST(INDEX)] = N.ST, FR/FRL = 1              BRIDGE      1224     A     
 BRIDGE                                                                                    BRIDGE      1225     A     
 BRIDGE   *         ISSUE STORE INSERTION CONTROL WORD(S).                                 BRIDGE      1226     A     
 BRIDGE                                                                                    BRIDGE      1227     A     
 BRIDGE             SX7    X2                                                              BRIDGE      1228     A     
 BRIDGE             LX7    SD.RNP                                                          BRIDGE      1229     A     
 BRIDGE             ERRNZ  SD.CAP                                                          BRIDGE      1230     A     
 BRIDGE             BX1    X7+X5                                                           BRIDGE      1231     A     
 BRIDGE             BX0    X3                                                              BRIDGE      1232     A     
 BRIDGE             ADDWRD FUN,X1                                                          BRIDGE      1233     A     
 BRIDGE             BX2    X5                                                              BRIDGE      1234     A     
 BRIDGE             SX7    X5+B1                                                           BRIDGE      1235     A     
 BRIDGE             SA7    A5          N.ST = N.ST + 1                                     BRIDGE      1236     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1237     A     
 BRIDGE                                                                                    BRIDGE      1238     A     
 BRIDGE    STRA     CON    60-TS.RNUP,60-TS.RNLP                                           BRIDGE      1239     A     
 BRIDGE             SPACE  4,8                                                             BRIDGE      1240     A     
 BRIDGE    GAR      EJECT                                                                  BRIDGE      1241     A     
 BRIDGE   *                                                                                BRIDGE      1242     A     
 BRIDGE   *         ENTRY  X1 = OPCODE (LD/ST/STT)                                         BRIDGE      1243     A     
 BRIDGE   *                B6 = LOW (0=UPPER, 1=LOWER)                                     BRIDGE      1244     A     
 BRIDGE   *                B7 = IND, INDEX OF TST ENTRY OF TURPLE TO EXPAND                BRIDGE      1245     A     
 BRIDGE   *                                                                                BRIDGE      1246     A     
 BRIDGE   *         EXIT   X5 = R1 WORD OF REFERENCE.                                      BRIDGE      1247     A     
 BRIDGE   *                X6 = R-NUMBER OF REFERENCE.                                     BRIDGE      1248     A     
 BRIDGE   *                X7 = R2 WORD OF REFERENCE.                                      BRIDGE      1249     A     
 BRIDGE                                                                                    BRIDGE      1250     A     
 BRIDGE    GAR      SUBR                                                                   BRIDGE      1251     A     
 BRIDGE             SX7    B6                                                              BRIDGE      1252     A     
 BRIDGE             SA7    GARA                                                            BRIDGE      1253     A     
 BRIDGE             SA2    =XO$TST                                                         BRIDGE      1254     A     
 BRIDGE             BX6    X1                                                              BRIDGE      1255     A     
 BRIDGE             SA3    X2+B7       T = TST(IND)                                        BRIDGE      1256     A     
 BRIDGE             SA6    GARB                                                            BRIDGE      1257     A     
 BRIDGE             LX3    -TS.RNUP                                                        BRIDGE      1258     A     
 BRIDGE             SA1    =XO$DTT                                                         BRIDGE      1259     A     
 BRIDGE             SB2    X3+B1                                                           BRIDGE      1260     A     
 BRIDGE             SA4    X1+B2       OP1 = DTT(2,RNU[TST(IND)])                          BRIDGE      1261     A     
 BRIDGE             BX7    X4                                                              BRIDGE      1262     A     
 BRIDGE             SA4    A4+B1       OP2 = DTT(3,RNU[TST(IND)])                          BRIDGE      1263     A     
 BRIDGE             SA7    GARC                                                            BRIDGE      1264     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2047    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA5    LL.TXT                                                          BRIDGE      1265     A     
 BRIDGE             SX7    X5-4                                                            BRIDGE      1266     A     
 BRIDGE             LX7    R1.RIP                                                          BRIDGE      1267     A     
 BRIDGE             SA7    GARD        RIS = LL.ISB - 3                                    BRIDGE      1268     A     
 BRIDGE    .ARY     SKIP               RESTORE IF SUBSCRIPTED SUBSCRIPTS OUTPUT            FC5A140       27     A     
 BRIDGE             CLAS=  X1,TP,(ARY,INTR)                                                BRIDGE      1269     A     
 BRIDGE             BX0    X1*X4                                                           BRIDGE      1270     A     
 BRIDGE             BX1    X0-X1                                                           BRIDGE      1271     A     
 BRIDGE             NZ     X1,GAR10    IF NOT A(B(I))                                      BRIDGE      1272     A     
 BRIDGE                                                                                    BRIDGE      1273     A     
 BRIDGE   *         INNER ARRAY LOAD ALREADY ISSUED.  R-NUMBER IN BIAS.                    BRIDGE      1274     A     
 BRIDGE                                                                                    BRIDGE      1275     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      1276     A     
 BRIDGE             LX4    -TP.BIASP                                                       BRIDGE      1277     A     
 BRIDGE             BX7    -X0*X4                                                          BRIDGE      1278     A     
 BRIDGE             EQ     GAR20                                                           BRIDGE      1279     A     
 BRIDGE    .ARY     ENDIF                                                                  FC5A140       28     A     
 BRIDGE                                                                                    BRIDGE      1280     A     
 BRIDGE   *         GAR MAY HAVE BEEN CALLED FROM LOP, SO PRESERVE EXIT.                   BRIDGE      1281     A     
 BRIDGE                                                                                    BRIDGE      1282     A     
 BRIDGE    GAR10    SA1    LOP                                                             BRIDGE      1283          I
          -FC5A140
 BRIDGE    .ARY     SKIP               RESTORE IF SUBSCRIPTED SUBSCRIPTS OUTPUT            FC5A140       29     A     
 BRIDGE    GAR10    BSS    0                                                               FC5A140       30     A     
 BRIDGE    .ARY     ENDIF                                                                  FC5A140       31     A     
 BRIDGE             SA1    LOP                                                             FC5A140       32     A     
 BRIDGE             =B6    0                                                               BRIDGE      1284     A     
 BRIDGE             BX6    X1                                                              BRIDGE      1285     A     
 BRIDGE             SA6    GARE                                                            BRIDGE      1286     A     
 BRIDGE             SA1    LOPA                                                            BRIDGE      1287     A     
 BRIDGE             SB2    X1+         MUST PRESERVE ORIGINAL B2 FROM LOP                  BRIDGE      1288     A     
 BRIDGE             RJ     LOP         LOAD INDEX FUNCTION                                 BRIDGE      1289     A     
 BRIDGE             SA1    GARE                                                            BRIDGE      1290     A     
 BRIDGE             BX7    X1                                                              BRIDGE      1291     A     
 BRIDGE             SA7    LOP                                                             BRIDGE      1292     A     
 BRIDGE             BX7    X6                                                              BRIDGE      1293     A     
 BRIDGE                                                                                    BRIDGE      1294     A     
 BRIDGE    GAR20    SA1    GARC                                                            BRIDGE      1295     A     
 BRIDGE             RJ     GLT         GET SYMBOL TAG                                      BRIDGE      1296     A     
 BRIDGE             BX6    X3                                                              BRIDGE      1297     A     
 BRIDGE             SA6    GARE                                                            BRIDGE      1298     A     
 BRIDGE             SA5    GARA                                                            BRIDGE      1299     A     
 BRIDGE             LX4    59-23                                                           BRIDGE      1300     A     
 BRIDGE             AX4    59-23                                                           BRIDGE      1301     A     
 BRIDGE             MX0    -SY.CAL                                                         BRIDGE      1302     A     
 BRIDGE             IX1    X4+X5       CA = BIAS + LOW                                     BRIDGE      1303     A     
 BRIDGE             BX5    X7                                                              BRIDGE      1304     A     
 BRIDGE             BX0    -X0*X1                                                          BRIDGE      1305     A     
 BRIDGE             RJ     ACA         ADJUST LONG CA                                      BRIDGE      1306     A     
 BRIDGE             SA2    GARB                                                            BRIDGE      1307     A     
 BRIDGE             LX5    IH.RFP                                                          BRIDGE      1308     A     
 BRIDGE             BX7    X5                                                              BRIDGE      1309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2048    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             MX6    -IH.CAL                                                         BRIDGE      1310     A     
 BRIDGE             BX5    -X6*X0                                                          BRIDGE      1311     A     
 BRIDGE             LX5    IH.CAP                                                          BRIDGE      1312     A     
 BRIDGE             SA3    GARE                                                            BRIDGE      1313     A     
 BRIDGE             LX3    IH.IHP                                                          BRIDGE      1314     A     
 BRIDGE             BX4    X5+X3                                                           BRIDGE      1315     A     
 BRIDGE             BX7    X4+X7                                                           BRIDGE      1316     A     
 BRIDGE             SB7    X2                                                              BRIDGE      1317     A     
 BRIDGE             SA5    LL.TXT                                                          BRIDGE      1318     A     
 BRIDGE             LX5    R1.RIP                                                          BRIDGE      1319     A     
 BRIDGE             SB2    B7-OC.ST                                                        BRIDGE      1320     A     
 BRIDGE             NZ     B2,GAR3     IF ^STORE                                           BRIDGE      1321     A     
 BRIDGE             SA5    GARD        RI = RIS                                            BRIDGE      1322     A     
 BRIDGE                                                                                    BRIDGE      1323     A     
 BRIDGE    GAR3     RJ     IRI         ISSUE (OP,RI,RF,ORD[OP1],BIAS[OP1]+LOW              BRIDGE      1324     A     
 BRIDGE             BX6    X5                                                              BRIDGE      1325     A     
 BRIDGE             EQ     GAR                                                             BRIDGE      1326     A     
 BRIDGE                                                                                    BRIDGE      1327     A     
 BRIDGE    GARA     BSS    1                                                               BRIDGE      1328     A     
 BRIDGE    GARB     BSS    1                                                               BRIDGE      1329     A     
 BRIDGE    GARC     BSS    1                                                               BRIDGE      1330     A     
 BRIDGE    GARD     BSS    1                                                               BRIDGE      1331     A     
 BRIDGE    GARE     BSS    1                                                               BRIDGE      1332     A     
 BRIDGE    ROT      TITLE  TURPLE INPUT ROUTINES.                                          BRIDGE      1333     A     
 BRIDGE   **        ROT - READ ONE TURPLE.                                                 BRIDGE      1334     A     
 BRIDGE   *                                                                                BRIDGE      1335     A     
 BRIDGE   *         EXIT   X1 = OPERATOR WORD.                                             BRIDGE      1336     A     
 BRIDGE   *                A1 _ OPERAOR WORD.                                              BRIDGE      1337     A     
 BRIDGE   *                4 TURPLES PLUS 1 WORD GUARANTEED IN CORE.                       BRIDGE      1338     A     
 BRIDGE                                                                                    BRIDGE      1339     A     
 BRIDGE    ROT      SUBR                                                                   BRIDGE      1340     A     
 BRIDGE             RJ     ROW         READ A WORD                                         BRIDGE      1341          I
          -FC5A132
 BRIDGE             SA2    BP                                                              BRIDGE      1342     A     
 BRIDGE             SX7    X2+4*Z=TURP-1                                                   BRIDGE      1343          I
          -FC5A132
 BRIDGE             SX6    X2+Z=TURP-1                                                     BRIDGE      1344          I
          -FC5A132
 BRIDGE             SA1    RLBL+X2                                                         FC5A132      177     A     
 BRIDGE             SX7    X2+4*Z=TURP                                                     FC5A132      178     A     
 BRIDGE             SX6    X2+Z=TURP                                                       FC5A132      179     A     
 BRIDGE             SA6    A2                                                              BRIDGE      1345     A     
 BRIDGE             MI     X7,ROT      IF ANOTHER 4 TURPLES IN THE BUFFER                  BRIDGE      1346     A     
 BRIDGE             SX7    X2+Z=TURP-1                                                     BRIDGE      1347          I
          -FC5A132
 BRIDGE             SA7    ROTA        SAVE MOVE BIAS                                      BRIDGE      1348          I
          -FC5A132
 BRIDGE             SX4    X2-1                                                            BRIDGE      1349          I
          -FC5A132
 BRIDGE             BX1    -X4         N.WDS IN BUFFER                                     BRIDGE      1350          I
          -FC5A132
 BRIDGE             SX6    RLB+X4      START ADDRESS                                       BRIDGE      1351          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2049    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
          -FC5A132
 BRIDGE             MOVE   X1,RLBL+X4,X6     MOVE DOWN                                     BRIDGE      1352          I
          -FC5A132
 BRIDGE             RJ     RFB         REFILL BUFFER                                       BRIDGE      1353          I
          -FC5A132
 BRIDGE             BX1    -X2                                                             FC5A132      180     A     
 BRIDGE             LX5    X6          PRESERVE MOVE BIAS                                  FC5A132      181     A     
 BRIDGE             SX3    RLB+X2      NUMBER OF WORDS IN BUFFER                           FC5A132      182     A     
 BRIDGE             ZR     X1,ROT10    IF NOTHING IN BUFFER TO MOVE DOWN                   FC5A132      183     A     
 BRIDGE             MOVE   X1,RLBL+X2,X3                                                   FC5A132      184     A     
 BRIDGE                                                                                    FC5A132      185     A     
 BRIDGE    ROT10    RJ     RFB         REFILL BUFFER                                       FC5A132      186     A     
 BRIDGE             SA1    BP                                                              BRIDGE      1354     A     
 BRIDGE             SA2    ROTA        ADJUST BP TO ACCOUNT FOR MOVED IL                   BRIDGE      1355          I
          -FC5A132
 BRIDGE             IX6    X2+X1       AT THE BEGINNING OF THE BUFFER                      BRIDGE      1356          I
          -FC5A132
 BRIDGE             IX6    X5+X1       ADJUST BP TO ACCOUNT FOR MOVED IL                   FC5A132      187     A     
 BRIDGE             SA6    A1                                                              BRIDGE      1357     A     
 BRIDGE             SA1    X6+RLBL-Z=TURP                                                  BRIDGE      1358     A     
 BRIDGE             EQ     ROT                                                             BRIDGE      1359     A     
 BRIDGE                                                                                    BRIDGE      1360     A     
 BRIDGE    ROTA     BSSZ   1                                                               BRIDGE      1361     A     
 BRIDGE    ROW      SPACE  3,8         ROW                                                 BRIDGE      1362     A     
 BRIDGE   **        ROW - READ ONE WORD OF IL FROM BUFFER/*RLB*                            BRIDGE      1363     A     
 BRIDGE    ROW      SUBR                                                                   BRIDGE      1364     A     
 BRIDGE             SA2    BP                                                              BRIDGE      1365     A     
 BRIDGE             SA1    RLBL+X2     FETCH WORD                                          BRIDGE      1366     A     
 BRIDGE             SX6    X2+B1       ADVANCE BUFFER POINTER                              BRIDGE      1367     A     
 BRIDGE             SA6    A2                                                              BRIDGE      1368     A     
 BRIDGE             MI     X2,ROW      IF WORD WAS FROM THE BUFFER                         BRIDGE      1369     A     
 BRIDGE             RJ     RFB         REFILL THE BUFFER                                   BRIDGE      1370     A     
 BRIDGE             SA2    BP                                                              BRIDGE      1371     A     
 BRIDGE             SA1    RLBL+X2                                                         BRIDGE      1372     A     
 BRIDGE             SX6    X2+B1       ADVANCE BUFFER INDEX                                BRIDGE      1373     A     
 BRIDGE             SA6    A2                                                              BRIDGE      1374     A     
 BRIDGE             EQ     ROW                                                             BRIDGE      1375     A     
 BRIDGE    RFB      SPACE  3           RFB                                                 BRIDGE      1376     A     
 BRIDGE   **        RFB - REFILL BUFFER                                                    BRIDGE      1377     A     
 BRIDGE                                                                                    BRIDGE      1378     A     
 BRIDGE    RFB      SUBR                                                                   BRIDGE      1379     A     
 BRIDGE             SX6    -L.RLB                                                          BRIDGE      1380     A     
 BRIDGE             SA6    BP                                                              BRIDGE      1381     A     
 BRIDGE             BX4    -X6                                                             BRIDGE      1382     A     
 BRIDGE             SX1    B6                                                              BRIDGE      1383     A     
 BRIDGE             SX2    B5                                                              BRIDGE      1384     A     
 BRIDGE             SX3    B4                                                              BRIDGE      1385     A     
 BRIDGE             LX1    18                                                              BRIDGE      1386     A     
 BRIDGE             LX2    18+18                                                           BRIDGE      1387     A     
 BRIDGE             BX0    X1+X2                                                           BRIDGE      1388     A     
 BRIDGE             BX7    X0+X3                                                           BRIDGE      1389     A     
 BRIDGE             SA7    RFBA                                                            BRIDGE      1390     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2050    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             READW  =XF.IL,RLBL+X6,X4  REFILL BUFFER                                BRIDGE      1391     A     
 BRIDGE             SA2    RFBA                                                            BRIDGE      1392     A     
 BRIDGE             SB4    X2                                                              BRIDGE      1393     A     
 BRIDGE             AX2    18                                                              BRIDGE      1394     A     
 BRIDGE             SB6    X2                                                              BRIDGE      1395     A     
 BRIDGE             AX2    18                                                              BRIDGE      1396     A     
 BRIDGE             SB5    X2                                                              BRIDGE      1397     A     
 BRIDGE             EQ     RFB                                                             BRIDGE      1398     A     
 BRIDGE                                                                                    BRIDGE      1399     A     
 BRIDGE    RFBA     BSS    1                                                               BRIDGE      1400     A     
 BRIDGE    L.RLB    EQU    200                                                             BRIDGE      1401     A     
 BRIDGE    BUFFER   BSS    4*Z=TURP    MUST PRECEDE RLB                                    BRIDGE      1402     A     
 BRIDGE    RLB      BSS    L.RLB                                                           BRIDGE      1403     A     
 BRIDGE    RLBL     BSS    0                                                               BRIDGE      1404     A     
 BRIDGE    BP       CON    0                                                               BRIDGE      1405     A     
 BRIDGE    HDR      TITLE  SPECIAL PROCESSING ROUTINES (*CALL*)                            BRIDGE      1406     A     
 BRIDGE   **        HDR - HEADER TURPLE PROCESSOR.                                         BRIDGE      1407     A     
 BRIDGE   *         ISSUE IDENT AND TRACE INFORMATION.                                     BRIDGE      1408     A     
 BRIDGE                                                                                    BRIDGE      1409     A     
 BRIDGE    P=HDR    BSSENT 0                                                               BRIDGE      1410     A     
 BRIDGE             ISSUE  OC$IDNT                                                         BRIDGE      1411     A     
 BRIDGE             SA4    =XMOD                                                           BRIDGE      1412     A     
 BRIDGE             HX4    MO.BLK                                                          BRIDGE      1413     A     
 BRIDGE             MI     X4,PRE.RET  IF BLOCK DATA                                       BRIDGE      1414     A     
 BRIDGE             ISSUE  OC$TRAC                                                         BRIDGE      1415     A     
 BRIDGE             LX4    MO.BLKP-MO.PROP                                                 BRIDGE      1416     A     
 BRIDGE             SA1    =XS=UPW                                                         BRIDGE      1417     A     
 BRIDGE             PL     X4,PRE.RET  IF NOT MAIN PROGRAM                                 BRIDGE      1418     A     
 BRIDGE             ZR     X1,PRE.RET  IF NO FILE ARGUMENTS                                BRIDGE      1419     A     
 BRIDGE             ISSUE  OC$BSS,X1   UPW.  BSS 0                                         BRIDGE      1420     A     
 BRIDGE             SA2    =XNARGS                                                         BRIDGE      1421     A     
 BRIDGE             SX7    X2+B1                                                           BRIDGE      1422     A     
 BRIDGE             LX1    X7,B1       FILETAB LEN = 2 * (NARGS + 1)                       BRIDGE      1423     A     
 BRIDGE             LX1    -PB.TAGP+PB.BIASP                                               BRIDGE      1424     A     
 BRIDGE             ISSUE  OC$FVEC,X1                                                      BRIDGE      1425     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1426     A     
 BRIDGE    FILES    SPACE  4,4                                                             BRIDGE      1427     A     
 BRIDGE   **        FILES - PROCESS FILE INFORMATION.                                      BRIDGE      1428     A     
 BRIDGE                                                                                    BRIDGE      1429     A     
 BRIDGE                                                                                    BRIDGE      1430     A     
 BRIDGE    P=GFD    BSSENT 0           ENTRY...                                            BRIDGE      1431     A     
 BRIDGE   *CALL,COMFGFD                GENERATE FILE DECLARATIONS                          BRIDGE      1432     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1433     A     
 BRIDGE    PLIM     SPACE  4,10                                                            BRIDGE      1434     A     
 BRIDGE   **        PLIM - PROCESS PLIM TURPLE.                                            BRIDGE      1435     A     
 BRIDGE                                                                                    BRIDGE      1436     A     
 BRIDGE                                                                                    BRIDGE      1437     A     
 BRIDGE    P=PLIM   BSSENT 0                                                               BRIDGE      1438     A     
 BRIDGE   *CALL COMFPLI                ISSUE QXNTRY. APLIST                                BRIDGE      1439     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1440     A     
 BRIDGE    C$       TITLE  SPECIAL PROCESSING ROUTINES (*CALL*)                            BRIDGE      1441     A     
 BRIDGE    C$LOO    SPACE  4,8                                                             BRIDGE      1442     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2051    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   **        C$LOO - SPECIFY OBJECT LIST ON/OFF                                     BRIDGE      1443     A     
 BRIDGE                                                                                    BRIDGE      1444     A     
 BRIDGE    P=CDLOO  BSSENT 0                                                               BRIDGE      1445     A     
 BRIDGE             SA1    B5+OR.1OP                                                       BRIDGE      1446     A     
 BRIDGE             RJ     GLT         GET OPERAND VALUE                                   BRIDGE      1447     A     
 BRIDGE             SA1    OCIOL       PROPER OPERATOR                                     BRIDGE      1448     A     
 BRIDGE             LX1    PB.GHIJP                                                        BRIDGE      1449     A     
 BRIDGE             LX4    PB.BIASP                                                        BRIDGE      1450     A     
 BRIDGE             BX7    X1+X4                                                           BRIDGE      1451     A     
 BRIDGE             WCODE  X7                                                              BRIDGE      1452     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1453     A     
 BRIDGE    C$DOT    SPACE  4,8                                                             BRIDGE      1454     A     
 BRIDGE   **        C$DOT - SPECIFY ZERO/ONE TRIP DO LOOPS.                                BRIDGE      1455     A     
 BRIDGE                                                                                    BRIDGE      1456     A     
 BRIDGE    P=CDDOT  BSSENT 0                                                               BRIDGE      1457     A     
 BRIDGE             SA1    B5+OR.1OP                                                       BRIDGE      1458     A     
 BRIDGE             RJ     GLT         GET OPERAND VALUE                                   BRIDGE      1459     A     
 BRIDGE             BX6    X4                                                              BRIDGE      1460     A     
 BRIDGE             SA6    =XWO.DOOT                                                       BRIDGE      1461     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1462     A     
 BRIDGE    C$CS     SPACE  4,8                                                             BRIDGE      1463     A     
 BRIDGE   **        C$CS - SPECIFY FIXED/USER COLLATION.                                   BRIDGE      1464     A     
 BRIDGE                                                                                    BRIDGE      1465     A     
 BRIDGE    P=CDCS   BSSENT 0                                                               BRIDGE      1466     A     
 BRIDGE             SA1    B5+OR.1OP                                                       BRIDGE      1467     A     
 BRIDGE             RJ     GLT         GET OPERAND VALUE                                   BRIDGE      1468     A     
 BRIDGE             BX6    X4                                                              BRIDGE      1469     A     
 BRIDGE             SA6    =XWO.CS                                                         BRIDGE      1470     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1471     A     
 BRIDGE    DATA     SPACE  4,8                                                             BRIDGE      1472     A     
 BRIDGE   **        DATA - PROCESS DATA TURPLE AND SUBTABLE.                               BRIDGE      1473     A     
 BRIDGE   *         ISSUE DATA INFORMATION FROM IL AS I.DATA PSEUDO                        BRIDGE      1474     A     
 BRIDGE   *         FOLLOWED BY DATA SUB-TABLE.                                            BRIDGE      1475     A     
 BRIDGE                                                                                    BRIDGE      1476     A     
 BRIDGE    P=DATA   BSSENT 0                                                               BRIDGE      1477     A     
 BRIDGE             ISSUE  I.ECI       END CCG INSTRUCTION FORMAT                          BRIDGE      1478     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      1479     A     
 BRIDGE             LX1    -TP.BIASP                                                       BRIDGE      1480     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      1481     A     
 BRIDGE             BX4    -X0*X1                                                          BRIDGE      1482     A     
 BRIDGE             BX1    -X0*X1                                                          BRIDGE      1483     A     
 BRIDGE             LX1    PB.BIASP-PB.TAGP                                                BRIDGE      1484     A     
 BRIDGE             ISSUE  I.DATA,X1                                                       BRIDGE      1485     A     
 BRIDGE                                                                                    BRIDGE      1486     A     
 BRIDGE   *         LOOP CALLING WTE TO WRITE DATA INFO TO PREBIN.                         BRIDGE      1487     A     
 BRIDGE                                                                                    BRIDGE      1488     A     
 BRIDGE             =B5    0                                                               BRIDGE      1489     A     
 BRIDGE             SB6    X4          WORD COUNT                                          BRIDGE      1490     A     
 BRIDGE                                                                                    BRIDGE      1491     A     
 BRIDGE    DATA10   EQ     B5,B6,DATA20      IF DATA EXHAUSTED                             BRIDGE      1492     A     
 BRIDGE             RJ     ROW         READ ONE WORD FROM IL                               BRIDGE      1493     A     
 BRIDGE             BX7    X1                                                              BRIDGE      1494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2052    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             =B5    B5+1                                                            BRIDGE      1495     A     
 BRIDGE             SB2    DATA10      RETURN ADDRESS                                      BRIDGE      1496     A     
 BRIDGE             JP     =XWTE                                                           BRIDGE      1497     A     
 BRIDGE                                                                                    BRIDGE      1498     A     
 BRIDGE    DATA20   ISSUE  I.BCI       RESTART CCG INSTRUCTION FORMAT                      BRIDGE      1499     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      1500          I
          -FC50001
 BRIDGE             NZ     X2,PRE.RET  IF OPT = 2                                          BRIDGE      1501          I
          -FC50001
 BRIDGE             CALL   FSU#        FORCE UPPER                                         BRIDGE      1502          I
          -FC50001
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1503     A     
 BRIDGE    SEX      EJECT                                                                  BRIDGE      1504     A     
 BRIDGE   **        SEX - START OF EXECUTABLES IN IL.                                      BRIDGE      1505     A     
 BRIDGE                                                                                    BRIDGE      1506     A     
 BRIDGE    P=SEX    BSSENT 0                                                               BRIDGE      1507     A     
 BRIDGE             ISUSE$ CON         USE CON.                                            BRIDGE      1508     A     
 BRIDGE             ISSUE  OC$CON                                                          BRIDGE      1509     A     
 BRIDGE             ISUSE$ FMT         USE FMT.                                            BRIDGE      1510     A     
 BRIDGE             ISSUE  OC$FMT                                                          BRIDGE      1511     A     
 BRIDGE             ISSUE  OC$DATA                                                         BRIDGE      1512          I
          -FC5A132
 BRIDGE             ISUSE$ APL                                                             BRIDGE      1513     A     
 BRIDGE             ISSUE  OC$APL                                                          BRIDGE      1514     A     
 BRIDGE             ISUSE$ IOAP                                                            BRIDGE      1515     A     
 BRIDGE             ISSUE  OC$IOM                                                          BRIDGE      1516     A     
 BRIDGE             ISUSE$ NLST                                                            BRIDGE      1517     A     
 BRIDGE             ISSUE  OC$NLST                                                         BRIDGE      1518     A     
 BRIDGE             ISSUE  OC$BMI                                                          BRIDGE      1519     A     
 BRIDGE             SX6    I.LOO                                                           BRIDGE      1520     A     
 BRIDGE             SA6    OCIOL                                                           BRIDGE      1521     A     
 BRIDGE             ISUSE  STRT        USE START.                                          BRIDGE      1522     A     
 BRIDGE             SA4    MOD                                                             BRIDGE      1523     A     
 BRIDGE             HX4    MO.BLK                                                          BRIDGE      1524     A     
 BRIDGE             MI     X4,SEX70    IF BLOCK DATA                                       BRIDGE      1525     A     
 BRIDGE             SA2    =XCO.DBER                                                       BRIDGE      1526     A     
 BRIDGE             ZR     X2,SEX04    IF ER NOT SELECTED                                  BRIDGE      1527     A     
 BRIDGE             ISSUE  I.OTR,=XS=LENP                                                  BRIDGE      1528     A     
 BRIDGE             ISSUE  6102B,=XS=TRACE   SB0 B2+TRACE.                                 BRIDGE      1529     A     
 BRIDGE                                                                                    BRIDGE      1530     A     
 BRIDGE    SEX04    LX4    MO.BLKP-MO.SUBP                                                 BRIDGE      1531     A     
 BRIDGE             PL     X4,SEX05    IF NOT PROCESSING SUBROUTINE                        BRIDGE      1532     A     
 BRIDGE             ISSUE  I.BSS,=XS=EXIT                                                  BRIDGE      1533     A     
 BRIDGE             SA1    =XN.ARP                                                         BRIDGE      1534     A     
 BRIDGE             ZR     X1,SEX30    IF NO ALTERNATE RETURNS                             BRIDGE      1535     A     
 BRIDGE             ISSUE  7110B       SX1 0                                               BRIDGE      1536     A     
 BRIDGE             ISSUE  I.BSS,=XS=AEXIT                                                 BRIDGE      1537     A     
 BRIDGE             EQ     SEX30                                                           BRIDGE      1538     A     
 BRIDGE                                                                                    BRIDGE      1539     A     
 BRIDGE    SEX05    SA2    =XMOD                                                           BRIDGE      1540     A     
 BRIDGE             HX2    MO.FUN                                                          BRIDGE      1541     A     
 BRIDGE             PL     X2,SEX30    IF NOT COMPILING FUNCTION                           BRIDGE      1542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2053    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             ISSUE  I.BSS,=XS=EXIT                                                  BRIDGE      1543     A     
 BRIDGE             SA2    =XMOD                                                           BRIDGE      1544     A     
 BRIDGE             MX0    -MO.MODEL                                                       BRIDGE      1545     A     
 BRIDGE             SA4    =XS=VALUE                                                       BRIDGE      1546     A     
 BRIDGE             LX2    -MO.MODEP                                                       BRIDGE      1547     A     
 BRIDGE             BX3    -X0*X2                                                          BRIDGE      1548     A     
 BRIDGE             SB6    X3-M.CHAR                                                       BRIDGE      1549     A     
 BRIDGE             ZR     B6,SEX30    IF CHARACTER FUNCTION                               BRIDGE      1550     A     
 BRIDGE             SX1    X4+M.DBL                                                        BRIDGE      1551     A     
 BRIDGE             =X2    X1+M.CPLX-M.DBL                                                 BRIDGE      1552     A     
 BRIDGE             LX3    B1,X1                                                           BRIDGE      1553     A     
 BRIDGE             LX5    B1,X2                                                           BRIDGE      1554     A     
 BRIDGE             IX1    X3+X1                                                           BRIDGE      1555     A     
 BRIDGE             IX2    X5+X2                                                           BRIDGE      1556     A     
 BRIDGE             SA3    O$SYM                                                           BRIDGE      1557     A     
 BRIDGE             =B7    X3+WB.W                                                         BRIDGE      1558     A     
 BRIDGE             SA1    X1+B7                                                           BRIDGE      1559     A     
 BRIDGE             SA2    X2+B7                                                           BRIDGE      1560     A     
 BRIDGE             BX0    X1+X2                                                           BRIDGE      1561     A     
 BRIDGE             HX0    WB.1REF                                                         BRIDGE      1562          I
          -FC5A191
 BRIDGE             HX0    WB.MDF                                                          FC5A191       21     A     
 BRIDGE             PL     X0,SEX20    IF THERE IS NO DOUBLE OR COMPLEX ENTRY              BRIDGE      1563     A     
 BRIDGE             =X3    1                                                               BRIDGE      1564     A     
 BRIDGE             LX3    PB.BIASP-PB.TAGP                                                BRIDGE      1565     A     
 BRIDGE             BX1    X3+X4                                                           BRIDGE      1566     A     
 BRIDGE             ISSUE  5150B,X1    SA5 VALUE.+1                                        BRIDGE      1567     A     
 BRIDGE             ISSUE  1075B       BX7 X5                                              BRIDGE      1568     A     
 BRIDGE                                                                                    BRIDGE      1569     A     
 BRIDGE    SEX20    ISSUE  5140B,X4    SA4 VALUE.                                          BRIDGE      1570     A     
 BRIDGE             ISSUE  1064B       BX6 X4                                              BRIDGE      1571     A     
 BRIDGE                                                                                    BRIDGE      1572     A     
 BRIDGE    SEX30    SA5    MOD                                                             BRIDGE      1573     A     
 BRIDGE             MX0    -MO.CLIFL                                                       BRIDGE      1574     A     
 BRIDGE             LX5    -MO.CLIFP                                                       BRIDGE      1575     A     
 BRIDGE             BX5    -X0*X5                                                          BRIDGE      1576     A     
 BRIDGE             NZ     X5,SEX35    IF CHARACTER FUNCTION                               BRIDGE      1577     A     
 BRIDGE             SA5    =XN.FP                                                          BRIDGE      1578     A     
 BRIDGE             ZR     X5,SEX40    IF NO FORMAL PARAMETERS                             BRIDGE      1579     A     
 BRIDGE                                                                                    BRIDGE      1580     A     
 BRIDGE    SEX35    ISSUE  5130B,=XS=TA0     SA3 TEMPA0.                                   BRIDGE      1581     A     
 BRIDGE             ISSUE  5203B       SA0 X3+                                             BRIDGE      1582     A     
 BRIDGE                                                                                    BRIDGE      1583     A     
 BRIDGE    SEX40    SA4    =XMOD                                                           BRIDGE      1584     A     
 BRIDGE             HX4    MO.BLK                                                          BRIDGE      1585     A     
 BRIDGE             MI     X4,SEX70    IF BLOCK DATA                                       BRIDGE      1586     A     
 BRIDGE                                                                                    BRIDGE      1587     A     
 BRIDGE   *         ISSUE ENTRY POINT.                                                     BRIDGE      1588     A     
 BRIDGE                                                                                    BRIDGE      1589     A     
 BRIDGE             ISSUE  I.BSS,=XS=ENTRY                                                 BRIDGE      1590     A     
 BRIDGE             LX4    MO.BLKP-MO.PROP                                                 BRIDGE      1591     A     
 BRIDGE             PL     X4,SEX50    IF NOT MAIN PROGRAM                                 BRIDGE      1592     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2054    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE      1593     A     
 BRIDGE             ISSUE  5110B,=XS=FILES   SA1 FILES.                                    BRIDGE      1594     A     
 BRIDGE             ISSUE  I.RJ3,=XS=INIT    RJ QXNTRY.                                    BRIDGE      1595     A     
 BRIDGE             EQ     SEX60                                                           BRIDGE      1596     A     
 BRIDGE                                                                                    BRIDGE      1597     A     
 BRIDGE    SEX50    ISSUE  I.UJP,=XS=ENTRY   GENERATE ENTRY/EXIT WORD                      BRIDGE      1598     A     
 BRIDGE             SA4    =XS=ENTRY                                                       BRIDGE      1599     A     
 BRIDGE             CALL   ISA         ISSUE SAVE A0 / RJ CPL.                             BRIDGE      1600     A     
 BRIDGE             RJ     ICP         ISSUE GLOBAL PARAMETER TABLE                        BRIDGE      1601     A     
 BRIDGE                                                                                    BRIDGE      1602     A     
 BRIDGE    SEX60    ISUSE  CODE        USE CODE.                                           BRIDGE      1603     A     
 BRIDGE                                                                                    BRIDGE      1604     A     
 BRIDGE    SEX70    ISSUE  I.BCI       SIGNALS START OF CCG-STYLE PREBIN                   BRIDGE      1605     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1606     A     
 BRIDGE   *CALL COMFICP                                                                    BRIDGE      1607     A     
 BRIDGE    APLISTS  TITLE  SPECIAL PROCESSING ROUTINES (*CALL*)                            BRIDGE      1608     A     
 BRIDGE    GAP      EJECT                                                                  BRIDGE      1609     A     
 BRIDGE   **        APLIST PROCESSORS.                                                     BRIDGE      1610     A     
 BRIDGE                                                                                    BRIDGE      1611     A     
 BRIDGE   **        GAP - GENERAL (USER FUNCTION) APLIST PROCESSOR.                        BRIDGE      1612     A     
 BRIDGE                                                                                    BRIDGE      1613     A     
 BRIDGE    P=GAP    BSSENT 0                                                               BRIDGE      1614     A     
 BRIDGE             MX6    0                                                               BRIDGE      1615     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      1616     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      1617     A     
 BRIDGE             RJ     IAW         ISSUE APLIST WORD                                   BRIDGE      1618     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1619     A     
 BRIDGE    FAP      SPACE  4,8                                                             BRIDGE      1620     A     
 BRIDGE   **        FAP - BEGIN FUNCTION APLIST.                                           BRIDGE      1621     A     
 BRIDGE                                                                                    BRIDGE      1622     A     
 BRIDGE    P=FAP    BSSENT 0                                                               BRIDGE      1623     A     
 BRIDGE             =A1    B5+OR.OPR                                                       BRIDGE      1624     A     
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      1625     A     
 BRIDGE             LX1    -TH.MODEP                                                       BRIDGE      1626     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE      1627     A     
 BRIDGE             SB2    X6-M.CHAR                                                       BRIDGE      1628     A     
 BRIDGE             NZ     B2,PRE.RET                                                      BRIDGE      1629     A     
 BRIDGE             MX7    0                                                               BRIDGE      1630     A     
 BRIDGE             SA7    ATF                                                             BRIDGE      1631     A     
 BRIDGE             SX7    K=AP                                                            BRIDGE      1632     A     
 BRIDGE             MX6    1                                                               BRIDGE      1633     A     
 BRIDGE             LX7    TP.CPFXP                                                        BRIDGE      1634     A     
 BRIDGE             SA6    FAF         MARK APLIST STARTED                                 BRIDGE      1635     A     
 BRIDGE             SA4    L$APT                                                           BRIDGE      1636     A     
 BRIDGE             LX4    TP.ORDP                                                         BRIDGE      1637     A     
 BRIDGE             BX7    X7+X4                                                           BRIDGE      1638     A     
 BRIDGE             SA7    CAPL                                                            BRIDGE      1639     A     
 BRIDGE             MX1    1                                                               BRIDGE      1640     A     
 BRIDGE             ADDWRD APT,X1      ALLOCATE APLIST                                     BRIDGE      1641     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      1642     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      1643     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      1644     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2055    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX1    -X0*X1                                                          BRIDGE      1645     A     
 BRIDGE             RJ     GCL         GET FUNCTION LENGTH                                 BRIDGE      1646     A     
 BRIDGE             =B2    0           SET LEVEL=0                                         FC50728        9     A     
 BRIDGE             RJ     ETT         ENTER TARGET TEMP INTO APLIST                       BRIDGE      1647     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1648     A     
 BRIDGE                                                                                    BRIDGE      1649     A     
 BRIDGE    IOD      SPACE  4,8                                                             BRIDGE      1650     A     
 BRIDGE   **        IOD - I/O DATA LIST ITEM.                                              BRIDGE      1651     A     
 BRIDGE                                                                                    BRIDGE      1652     A     
 BRIDGE    P=IOD    BSSENT 0                                                               BRIDGE      1653     A     
 BRIDGE             CLAS=  X2,AT,(IO)                                                      BRIDGE      1654     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      1655     A     
 BRIDGE             MX0    TP.IODPL                                                        BRIDGE      1656     A     
 BRIDGE             BX7    X1                                                              BRIDGE      1657     A     
 BRIDGE             HX7    TP.IODP                                                         BRIDGE      1658     A     
 BRIDGE             BX0    X0*X7                                                           BRIDGE      1659     A     
 BRIDGE             MX4    1                                                               BRIDGE      1660     A     
 BRIDGE             LX0    TP.IODPL+AT.IODPP                                               BRIDGE      1661     A     
 BRIDGE             LX4    1+AT.NULP                                                       BRIDGE      1662     A     
 BRIDGE             BX3    X0+X2       IODP[ATF] = IODP[OPD]                               BRIDGE      1663     A     
 BRIDGE             =A2    A1+OR.2OP-OR.1OP                                                BRIDGE      1664     A     
 BRIDGE             HX2    TP.SHRT                                                         BRIDGE      1665     A     
 BRIDGE             PL     X2,IOD10    IF LENGTH OPERAND NOT SHORT CON                     BRIDGE      1666     A     
 BRIDGE             LX2    1+TP.SHRTP-TP.BIASP                                             BRIDGE      1667     A     
 BRIDGE             =X5    1                                                               BRIDGE      1668     A     
 BRIDGE             MX6    -TP.BIASL                                                       BRIDGE      1669     A     
 BRIDGE             BX6    -X6*X2                                                          BRIDGE      1670     A     
 BRIDGE             IX2    X6-X5                                                           BRIDGE      1671     A     
 BRIDGE             NZ     X2,IOD10    IF BIAS[TURP(3)] NE 1                               BRIDGE      1672     A     
 BRIDGE             MX4    0           NUL[ATF] = 0                                        BRIDGE      1673     A     
 BRIDGE                                                                                    BRIDGE      1674     A     
 BRIDGE    IOD10    BX6    X3+X4                                                           BRIDGE      1675     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      1676     A     
 BRIDGE             BX6    X4                                                              BRIDGE      1677     A     
 BRIDGE             SA6    IODA                                                            BRIDGE      1678     A     
 BRIDGE             RJ     IAW         ISSUE APLIST WORD FOR DATA ADDRESS                  BRIDGE      1679     A     
 BRIDGE             CLAS=  X2,AT,(IO,LEN)                                                  BRIDGE      1680     A     
 BRIDGE             SA4    IODA                                                            BRIDGE      1681     A     
 BRIDGE             =A1    B5+OR.2OP                                                       BRIDGE      1682     A     
 BRIDGE             BX6    X2+X4       INSERT NON-UNITY LENGTH PROPERTY                    BRIDGE      1683     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      1684     A     
 BRIDGE             RJ     IAW         ISSUE LENGTH OF ITEM                                BRIDGE      1685     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1686     A     
 BRIDGE                                                                                    BRIDGE      1687     A     
 BRIDGE    IODA     BSSZ   1                                                               BRIDGE      1688     A     
 BRIDGE    IOC      SPACE  4,8                                                             BRIDGE      1689     A     
 BRIDGE   **        IOC - I/O CONTROL TURPLE PROCESSOR.                                    BRIDGE      1690     A     
 BRIDGE                                                                                    BRIDGE      1691     A     
 BRIDGE    P=IOC    BSSENT 0                                                               BRIDGE      1692     A     
 BRIDGE             SA1    B5+OR.2OP                                                       BRIDGE      1693     A     
 BRIDGE             CLAS=  X2,AT,(IO,IOC)                                                  BRIDGE      1694     A     
 BRIDGE             MX0    TP.IODPL                                                        BRIDGE      1695     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2056    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX7    X1                                                              BRIDGE      1696     A     
 BRIDGE             HX7    TP.IODP                                                         BRIDGE      1697     A     
 BRIDGE             BX0    X0*X7                                                           BRIDGE      1698     A     
 BRIDGE             LX0    TP.IODPL+AT.IODPP                                               BRIDGE      1699     A     
 BRIDGE             BX6    X0+X2                                                           BRIDGE      1700     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      1701     A     
 BRIDGE             RJ     IAW          ISSUE APLIST WORD FOR CONTROL ITEM                 BRIDGE      1702     A     
 BRIDGE             SA1    =XL$SAP                                                         BRIDGE      1703     A     
 BRIDGE             SA2    =XO$SAP                                                         BRIDGE      1704     A     
 BRIDGE             =A5    B5+OR.1OP                                                       BRIDGE      1705     A     
 BRIDGE             LX5    -TP.BIASP                                                       BRIDGE      1706     A     
 BRIDGE             MX0    -IA.MODEL                                                       BRIDGE      1707     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      1708     A     
 BRIDGE             SA4    X3-1                                                            BRIDGE      1709     A     
 BRIDGE             LX4    -IA.MODEP                                                       BRIDGE      1710     A     
 BRIDGE             BX3    X0*X4       CLEAR MODE                                          BRIDGE      1711     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      1712     A     
 BRIDGE             BX5    -X0*X5                                                          BRIDGE      1713     A     
 BRIDGE             BX6    X3+X5       MODE[SAP(L$SAP)]=BIAS[TURP(2)] (CODE)               BRIDGE      1714     A     
 BRIDGE             LX6    IA.MODEP                                                        BRIDGE      1715     A     
 BRIDGE             SA6    A4                                                              BRIDGE      1716     A     
 BRIDGE             RJ     PNA                                                             BRIDGE      1717     A     
 BRIDGE             ADDWRD SAP,B0                                                          BRIDGE      1718     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1719     A     
 BRIDGE    IOU      SPACE  4,8                                                             BRIDGE      1720     A     
 BRIDGE   **        IOU - UNIT CODE TURPLE PROCESSOR.                                      BRIDGE      1721     A     
 BRIDGE   *         SEPARATE TURPLE USED FOR UNIT SINCE IT HAS LENGTH                      BRIDGE      1722     A     
 BRIDGE   *         ATTRIBUTE LIKE DATA ITEM.                                              BRIDGE      1723     A     
 BRIDGE                                                                                    BRIDGE      1724     A     
 BRIDGE    P=IOU    BSSENT 0                                                               BRIDGE      1725     A     
 BRIDGE             CLAS=  X1,AT,(IO,IOC)                                                  BRIDGE      1726     A     
 BRIDGE             MX4    1                                                               BRIDGE      1727     A     
 BRIDGE             LX4    1+AT.NULP                                                       BRIDGE      1728     A     
 BRIDGE             SA2    B5+OR.2OP                                                       BRIDGE      1729     A     
 BRIDGE             HX2    TP.SHRT                                                         BRIDGE      1730     A     
 BRIDGE             PL     X2,IOU10    IF NOT SHORT CON LENGTH                             BRIDGE      1731     A     
 BRIDGE             LX2    1+TP.SHRTP-TP.BIASP                                             BRIDGE      1732     A     
 BRIDGE             =X5    1                                                               BRIDGE      1733     A     
 BRIDGE             MX6    -TP.BIASL                                                       BRIDGE      1734     A     
 BRIDGE             BX6    -X6*X2                                                          BRIDGE      1735     A     
 BRIDGE             IX2    X6-X5                                                           BRIDGE      1736     A     
 BRIDGE             NZ     X2,IOU10    IF LENGTH NE 1                                      BRIDGE      1737     A     
 BRIDGE             MX4    0                                                               BRIDGE      1738     A     
 BRIDGE                                                                                    BRIDGE      1739     A     
 BRIDGE    IOU10    BX6    X1+X4                                                           BRIDGE      1740     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      1741     A     
 BRIDGE             BX6    X4                                                              BRIDGE      1742     A     
 BRIDGE             SA6    IODA                                                            BRIDGE      1743     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      1744     A     
 BRIDGE             RJ     IAW                                                             BRIDGE      1745     A     
 BRIDGE             MX0    -IA.MODEL                                                       BRIDGE      1746     A     
 BRIDGE             SA1    O$SAP                                                           BRIDGE      1747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2057    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA2    L$SAP                                                           BRIDGE      1748     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      1749     A     
 BRIDGE             SA4    X3-1                                                            BRIDGE      1750     A     
 BRIDGE             =X1    IC.UNT                                                          BRIDGE      1751     A     
 BRIDGE             LX4    -IA.MODEP                                                       BRIDGE      1752     A     
 BRIDGE             BX6    X0*X4                                                           BRIDGE      1753     A     
 BRIDGE             BX6    X6+X1       MODE[SAP(L$SAP)] = IC.UNIT                          BRIDGE      1754     A     
 BRIDGE             LX6    IA.MODEP    RESET UPDATED SAP ENTRY                             BRIDGE      1755     A     
 BRIDGE             SA6    A4                                                              BRIDGE      1756     A     
 BRIDGE             CLAS=  X1,AT,(IOC,IO,LEN)                                              BRIDGE      1757     A     
 BRIDGE             SA4    IODA                                                            BRIDGE      1758     A     
 BRIDGE             BX6    X1+X4       INSERT NUL PROPERTY                                 BRIDGE      1759     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      1760     A     
 BRIDGE             SA1    B5+OR.2OP                                                       BRIDGE      1761     A     
 BRIDGE             RJ     IAW         PROCESS LENGTH WORD                                 BRIDGE      1762     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      1763     A     
 BRIDGE    IAW      EJECT                                                                  BRIDGE      1764     A     
 BRIDGE   **        IAW - ISSUE APLIST WORD.                                               BRIDGE      1765     A     
 BRIDGE   *         CONTROLS ADDITION OF APLIST ITEM TO APPROPIATE (APL OR IOA)            BRIDGE      1766     A     
 BRIDGE   *         TABLE,  AND FILING OF OPT2 USE/DEF ENTRY.                              BRIDGE      1767     A     
 BRIDGE   *                                                                                BRIDGE      1768     A     
 BRIDGE   *         ENTRY  (X1) = OPD, OPERAND WORD.                                       BRIDGE      1769     A     
 BRIDGE                                                                                    BRIDGE      1770     A     
 BRIDGE    IAW      SUBR                                                                   BRIDGE      1771     A     
 BRIDGE                                                                                    BRIDGE      1772     A     
 BRIDGE   *         SET AT.LEV0 IF THIS OPD IS LEVEL 0.                                    BRIDGE      1773     A     
 BRIDGE                                                                                    BRIDGE      1774     A     
 BRIDGE             SA2    B5+OR.OPR                                                       BRIDGE      1775     A     
 BRIDGE             SA3    ATF                                                             BRIDGE      1776     A     
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      1777     A     
 BRIDGE             LX2    -TH.MODEP                                                       BRIDGE      1778     A     
 BRIDGE             BX6    -X0*X2                                                          BRIDGE      1779     A     
 BRIDGE             LX6    AT.MODEP                                                        BRIDGE      1780     A     
 BRIDGE             CLAS=  X4,TP,(LCM,FP)                                                  BRIDGE      1781     A     
 BRIDGE             BX0    X4                                                              BRIDGE      1782     A     
 BRIDGE             BX7    X3+X6       MODE[ATF] = MODE[TURP(1)]                           BRIDGE      1783     A     
 BRIDGE             BX5    X1                                                              BRIDGE      1784     A     
 BRIDGE             BX3    X0*X1                                                           BRIDGE      1785     A     
 BRIDGE             BX0    X0-X3                                                           BRIDGE      1786     A     
 BRIDGE             NZ     X0,IAW10    IF OPD NOT LCM AND FP                               BRIDGE      1787     A     
 BRIDGE             SA4    O$SYM                                                           BRIDGE      1788     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      1789     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      1790     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE      1791     A     
 BRIDGE             LX2    B1,X6                                                           BRIDGE      1792     A     
 BRIDGE             IX6    X6+X2                                                           BRIDGE      1793     A     
 BRIDGE             =B2    X4+WB.W                                                         BRIDGE      1794     A     
 BRIDGE             SA2    X6+B2                                                           BRIDGE      1795     A     
 BRIDGE             MX0    -WB.LEVNL                                                       BRIDGE      1796     A     
 BRIDGE             LX2    -WB.LEVNP                                                       BRIDGE      1797     A     
 BRIDGE             BX6    -X0*X2                                                          BRIDGE      1798     A     
 BRIDGE             NZ     X6,IAW10    IF LEV[OPD] NE 0                                    BRIDGE      1799     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2058    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             MX0    1                                                               BRIDGE      1800     A     
 BRIDGE             LX0    1+AT.LEV0P                                                      BRIDGE      1801     A     
 BRIDGE             BX7    X0+X7                                                           BRIDGE      1802     A     
 BRIDGE                                                                                    BRIDGE      1803     A     
 BRIDGE    IAW10    SA7    ATF                                                             BRIDGE      1804     A     
 BRIDGE             SA4    FAF                                                             BRIDGE      1805     A     
 BRIDGE             MI     X4,IAW20    IF NOT FIRST IAW CALL IN LIST                       BRIDGE      1806     A     
 BRIDGE             BX2    X7                                                              BRIDGE      1807     A     
 BRIDGE             LX2    -AT.IOP                                                         BRIDGE      1808     A     
 BRIDGE             SX7    X2+K=AP                                                         BRIDGE      1809     A     
 BRIDGE             MX6    1                                                               BRIDGE      1810     A     
 BRIDGE             LX7    TP.CPFXP                                                        BRIDGE      1811     A     
 BRIDGE             SA6    A4          MARK NOT FIRST AP                                   BRIDGE      1812     A     
 BRIDGE             SA4    =XL$APT+X2                                                      BRIDGE      1813     A     
 BRIDGE             LX4    TP.ORDP                                                         BRIDGE      1814     A     
 BRIDGE             BX7    X7+X4                                                           BRIDGE      1815     A     
 BRIDGE             SA7    CAPL                                                            BRIDGE      1816     A     
 BRIDGE             MX1    1                                                               BRIDGE      1817     A     
 BRIDGE             ADDWRD APT+X2,X1                                                       BRIDGE      1818     A     
 BRIDGE             SX6    X3-1                                                            BRIDGE      1819     A     
 BRIDGE             SA6    UAP         LAST USER AP                                        BRIDGE      1820     A     
 BRIDGE                                                                                    BRIDGE      1821     A     
 BRIDGE    IAW20    SA2    ATF                                                             BRIDGE      1822     A     
 BRIDGE             BX3    X2                                                              BRIDGE      1823     A     
 BRIDGE             MX0    -AT.MODEL                                                       BRIDGE      1824     A     
 BRIDGE             LX2    -AT.MODEP                                                       BRIDGE      1825     A     
 BRIDGE             BX6    -X0*X2                                                          BRIDGE      1826     A     
 BRIDGE             SX2    X6-M.CHAR                                                       BRIDGE      1827     A     
 BRIDGE             BX1    X5                                                              BRIDGE      1828     A     
 BRIDGE             ZR     X2,IAW30    IF MODE[ATF] = M.CHAR                               BRIDGE      1829     A     
 BRIDGE             RJ     PAF         PROCESS NON-CHAR ITEM                               BRIDGE      1830     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1831     A     
 BRIDGE                                                                                    BRIDGE      1832     A     
 BRIDGE    IAW30    HX3    AT.LEN                                                          BRIDGE      1833     A     
 BRIDGE             PL     X3,IAW40    IF NOT PROCESSING CHAR ITEM LENGTH                  BRIDGE      1834     A     
 BRIDGE             RJ     PCL         PROCESS CHAR LEN                                    BRIDGE      1835     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1836     A     
 BRIDGE                                                                                    BRIDGE      1837     A     
 BRIDGE    IAW40    RJ     PAC         PROCESS CHARACTER ITEM                              BRIDGE      1838     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1839     A     
 BRIDGE                                                                                    BRIDGE      1840     A     
 BRIDGE    UAP      BSS    1           LAST USER SUBROUTINE APLIST                         BRIDGE      1841     A     
 BRIDGE    PCL      EJECT                                                                  BRIDGE      1842     A     
 BRIDGE   **        PCL - PROCESS CHARACTER ARRAY ITEM LENGTH.                             BRIDGE      1843     A     
 BRIDGE                                                                                    BRIDGE      1844     A     
 BRIDGE    PCL      SUBR                                                                   BRIDGE      1845     A     
 BRIDGE             SA3    ATF                                                             BRIDGE      1846     A     
 BRIDGE             HX3    AT.NUL                                                          BRIDGE      1847     A     
 BRIDGE             PL     X3,PCL50    IF NOT ARRAY ITEM                                   BRIDGE      1848     A     
 BRIDGE             BX6    X1                                                              BRIDGE      1849     A     
 BRIDGE             SA6    PCLA                                                            BRIDGE      1850     A     
 BRIDGE             SA1    FARB                                                            BRIDGE      1851     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2059    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             RJ     GCL         GET LEN/TAG                                         BRIDGE      1852     A     
 BRIDGE             BX2    X1                                                              BRIDGE      1853     A     
 BRIDGE             =X6    1                                                               BRIDGE      1854     A     
 BRIDGE             SA6    CLF         FLAG APLIST TO CLW                                  BRIDGE      1855     A     
 BRIDGE             =B7    0                                                               BRIDGE      1856     A     
 BRIDGE             RJ     AIT         ENTER CLEN TO CLW                                   BRIDGE      1857     A     
 BRIDGE             SA1    PCLA                                                            BRIDGE      1858     A     
 BRIDGE             RJ     PAF         LENGTH TO CLW                                       BRIDGE      1859     A     
 BRIDGE                                                                                    BRIDGE      1860     A     
 BRIDGE   *         ELIMINATE LAST CLW PAIR IF ALREADY EXISTS.                             BRIDGE      1861     A     
 BRIDGE                                                                                    BRIDGE      1862     A     
 BRIDGE             SA2    =XO$CLW                                                         BRIDGE      1863     A     
 BRIDGE             SA3    =XL$CLW                                                         BRIDGE      1864     A     
 BRIDGE             SA4    X2                                                              BRIDGE      1865     A     
 BRIDGE             =A5    A4+1                                                            BRIDGE      1866     A     
 BRIDGE             SB6    X2+2                                                            BRIDGE      1867     A     
 BRIDGE             IX0    X2+X3                                                           BRIDGE      1868     A     
 BRIDGE             SB2    X0                                                              BRIDGE      1869     A     
 BRIDGE             =A2    B2-1                                                            BRIDGE      1870     A     
 BRIDGE             =A1    A2-1                                                            BRIDGE      1871     A     
 BRIDGE             SX0    X3-2        INDEX = L$CLW - 2                                   BRIDGE      1872     A     
 BRIDGE                                                                                    BRIDGE      1873     A     
 BRIDGE    PCL30    BX6    X1-X4                                                           BRIDGE      1874     A     
 BRIDGE             BX7    X2-X5                                                           BRIDGE      1875     A     
 BRIDGE             SA4    A4+2        W1 = W1+2                                           BRIDGE      1876     A     
 BRIDGE             BX6    X6+X7       2 CLW WORDS CANNOT BE COMPLEMENTS                   BRIDGE      1877     A     
 BRIDGE             =A5    A4+1        W2 = W2+2                                           BRIDGE      1878     A     
 BRIDGE             NZ     X6,PCL30    IF NOT HIT                                          BRIDGE      1879     A     
 BRIDGE             SB3    A4-B2                                                           BRIDGE      1880     A     
 BRIDGE             ZR     B3,PCL40    IF HIT NOT END OF TABLE                             BRIDGE      1881     A     
 BRIDGE             BX7    X0                                                              BRIDGE      1882     A     
 BRIDGE             SA7    A3          L$CLW = L$CLW-2                                     BRIDGE      1883     A     
 BRIDGE             SX0    A4-B6       INDEX = W1-O$CLW-2                                  BRIDGE      1884     A     
 BRIDGE                                                                                    BRIDGE      1885     A     
 BRIDGE    PCL40    AX2    B1,X0       BIAS = INDEX/2                                      BRIDGE      1886     A     
 BRIDGE             =X6    0                                                               BRIDGE      1887     A     
 BRIDGE             SA3    =XS=CL      TAG = CL.                                           BRIDGE      1888     A     
 BRIDGE             SA6    CLF         FLAG ADD TO APLIST                                  BRIDGE      1889     A     
 BRIDGE             =B7    0                                                               BRIDGE      1890     A     
 BRIDGE             RJ     AIT         FILE CL. POINTER TO APLIST                          BRIDGE      1891     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1892     A     
 BRIDGE                                                                                    BRIDGE      1893     A     
 BRIDGE    PCL50    ADDWRD SAP,B0                                                          BRIDGE      1894     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      1895     A     
 BRIDGE                                                                                    BRIDGE      1896     A     
 BRIDGE    PCLA     BSS    1                                                               BRIDGE      1897     A     
 BRIDGE    PAF      EJECT                                                                  BRIDGE      1898     A     
 BRIDGE   **        PAF - PROCESS APLIST TURPLE OPERAND WORD.                              BRIDGE      1899     A     
 BRIDGE   *         PAF PRODUCES *APL* OR *IOA* TABLE ENTRY FOR CURRENT APLIST             BRIDGE      1900     A     
 BRIDGE   *         TYPE (APL OR IOD FWA) TURPLE.  ANY REQUIRED CODE TO SETUP              BRIDGE      1901     A     
 BRIDGE   *         APLIST, SUCH AS STORES TO TEMP OR STORES TO APLIST ARE                 BRIDGE      1902     A     
 BRIDGE   *         OUTPUT TO *FUN* AFTER CODE PRECEDING APLIST IS MOVED TO                BRIDGE      1903     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2060    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *         *FUN* FROM *TXT*.  PAF WILL ALSO PRODUCE *AUD* ENTRY IF OPT=2.         BRIDGE      1904     A     
 BRIDGE   *                                                                                BRIDGE      1905     A     
 BRIDGE   *         ENTRY  X1 = OPD, OPERAND WORD TO PROCESS.                              BRIDGE      1906     A     
 BRIDGE   *                                                                                BRIDGE      1907     A     
 BRIDGE   *                (ATF) = APLIST TYPE FLAG - DEFINES MODE OF OPERATION:           BRIDGE      1908     A     
 BRIDGE   *                        ATF = 0      USER FUNCTION APLIST                       BRIDGE      1909     A     
 BRIDGE   *                        ATF = 1      IO DATA ITEM ADDR. OR IO CTL. ITEM         BRIDGE      1910     A     
 BRIDGE   *                        ATF = 1S59+1 IO DATA ITEM LEN OR CONTROL CODE           BRIDGE      1911     A     
 BRIDGE                                                                                    BRIDGE      1912     A     
 BRIDGE    P=APRET  BSSENT 0           RETURN FROM SKEL AFTER CODE ISSUE                   BRIDGE      1913     A     
 BRIDGE                                                                                    BRIDGE      1914     A     
 BRIDGE    PAF      SUBR                                                                   BRIDGE      1915     A     
 BRIDGE             BX6    X1                                                              BRIDGE      1916     A     
 BRIDGE             SA6    PAFB                                                            BRIDGE      1917     A     
 BRIDGE             SA6    GOVG        GPBUF(1) = OPD                                      BRIDGE      1918     A     
 BRIDGE             MX7    0                                                               BRIDGE      1919     A     
 BRIDGE             SA7    APSKEL      SET TO NO CODE TO ISSUE                             BRIDGE      1920     A     
 BRIDGE             SA4    CAPL                                                            BRIDGE      1921     A     
 BRIDGE             BX7    X4                                                              BRIDGE      1922     A     
 BRIDGE             =A7    A6+1        GPBUF(2) = CURRENT APLIST                           BRIDGE      1923     A     
 BRIDGE             LX6    59-TP.INTRP                                                     BRIDGE      1924     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      1925     A     
 BRIDGE             PL     X6,PAF15    IF ^INTR[OP1]                                       BRIDGE      1926     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      1927     A     
 BRIDGE             SA2    IND0                                                            BRIDGE      1928     A     
 BRIDGE             IX3    X1-X2                                                           BRIDGE      1929     A     
 BRIDGE             BX0    -X0*X3      IND = ORD[OP1] - IND0                               BRIDGE      1930     A     
 BRIDGE             LX6    TP.INTRP-TP.ARYP                                                BRIDGE      1931     A     
 BRIDGE             PL     X6,PAF25    IF ^ARY[OP1]                                        BRIDGE      1932     A     
 BRIDGE             SA2    ATF                                                             BRIDGE      1933     A     
 BRIDGE             HX2    AT.LEN                                                          BRIDGE      1934     A     
 BRIDGE             MI     X2,PAF5     IF PROCESSING LEN, MUST MATERIALIZE                 BRIDGE      1935     A     
 BRIDGE                                                                                    BRIDGE      1936     A     
 BRIDGE             LX1    TP.ORDP-TP.ADDRP-1                                              BRIDGE      1937     A     
 BRIDGE             PL     X1,PAF30    IF NOT ADDR[OP1]  */NOT LOCF                        BRIDGE      1938     A     
 BRIDGE                                                                                    BRIDGE      1939     A     
 BRIDGE                                                                                    BRIDGE      1940     A     
 BRIDGE   *         STORE TO TEMP AND PLACE TEMP IN APLIST.                                BRIDGE      1941     A     
 BRIDGE                                                                                    BRIDGE      1942     A     
 BRIDGE    PAF5     SB6    B0                                                              BRIDGE      1943     A     
 BRIDGE             SA4    GOVG                                                            BRIDGE      1944     A     
 BRIDGE             RJ     LOP                                                             BRIDGE      1945     A     
 BRIDGE             LX6    R1.RJP                                                          BRIDGE      1946     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      1947     A     
 BRIDGE             MX7    0                                                               BRIDGE      1948     A     
 BRIDGE             SB7    OC.XMT                                                          BRIDGE      1949     A     
 BRIDGE             BX5    X6+X1                                                           BRIDGE      1950     A     
 BRIDGE             RJ     IRI                                                             BRIDGE      1951     A     
 BRIDGE             MX0    -R1.RIL                                                         BRIDGE      1952     A     
 BRIDGE             BX6    -X0*X6                                                          BRIDGE      1953     A     
 BRIDGE             LX6    SD.RNP                                                          BRIDGE      1954     A     
 BRIDGE             SA5    N.ST                                                            BRIDGE      1955     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2061    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             LX5    SD.CAP                                                          BRIDGE      1956     A     
 BRIDGE             BX1    X5+X6                                                           BRIDGE      1957     A     
 BRIDGE             ADDWRD FUN,X1                                                          BRIDGE      1958     A     
 BRIDGE             SX7    X5+B1                                                           BRIDGE      1959     A     
 BRIDGE             SA7    A5          N.ST = N.ST + 1                                     BRIDGE      1960     A     
 BRIDGE             SB7    B0                                                              BRIDGE      1961     A     
 BRIDGE             BX2    X5                                                              BRIDGE      1962     A     
 BRIDGE             SA3    S=ST                                                            BRIDGE      1963     A     
 BRIDGE             RJ     AIT                                                             BRIDGE      1964     A     
 BRIDGE             EQ     PAF60                                                           BRIDGE      1965     A     
 BRIDGE                                                                                    BRIDGE      1966     A     
 BRIDGE    PAF15    LX6    TP.INTRP-TP.ADDRP                                               BRIDGE      1967     A     
 BRIDGE             MI     X6,PAF5     IF ADDR[OP1]  */LOCF(X)                             BRIDGE      1968     A     
 BRIDGE             LX6    TP.ADDRP-TP.FPP                                                 BRIDGE      1969     A     
 BRIDGE             RJ     GLT         GET  SYMBOL/LABEL TAG                               BRIDGE      1970     A     
 BRIDGE             BX2    X4                                                              BRIDGE      1971     A     
 BRIDGE             SA1    ATF                                                             BRIDGE      1972     A     
 BRIDGE             SB7    B0                                                              BRIDGE      1973     A     
 BRIDGE             HX1    AT.LEN                                                          BRIDGE      1974     A     
 BRIDGE             MI     X1,PAF21    IF I/O LEN                                          BRIDGE      1975     A     
 BRIDGE             ZR     X3,PAF22    IF SHORT CONSTANT                                   BRIDGE      1976     A     
 BRIDGE             LX1    AT.LENP-AT.IOP                                                  BRIDGE      1977     A     
 BRIDGE             MI     X1,PAF20    IF I/O FWA                                          BRIDGE      1978     A     
 BRIDGE             MI     X6,PAF35    IF FP[OP1]                                          BRIDGE      1979     A     
 BRIDGE                                                                                    BRIDGE      1980     A     
 BRIDGE    PAF20    RJ     AIT                                                             BRIDGE      1981     A     
 BRIDGE             EQ     PAF40                                                           BRIDGE      1982     A     
 BRIDGE                                                                                    BRIDGE      1983     A     
 BRIDGE   *         CONVERT SHORT CONSTANT ITEM TO CON. ENTRY.                             BRIDGE      1984     A     
 BRIDGE                                                                                    BRIDGE      1985     A     
 BRIDGE    PAF22    SX1    X2-0                                                            BRIDGE      1986     A     
 BRIDGE             CALL   CG$SCT                                                          BRIDGE      1987     A     
 BRIDGE             SA3    =XS=CON                                                         BRIDGE      1988     A     
 BRIDGE             SX2    X6                                                              BRIDGE      1989     A     
 BRIDGE             SB7    B0                                                              BRIDGE      1990     A     
 BRIDGE             RJ     AIT                                                             BRIDGE      1991     A     
 BRIDGE             EQ     PAF60                                                           BRIDGE      1992     A     
 BRIDGE                                                                                    BRIDGE      1993     A     
 BRIDGE   *         STORE LOCAL COPY OF FP OR LCM I/O LEN.                                 BRIDGE      1994     A     
 BRIDGE                                                                                    BRIDGE      1995     A     
 BRIDGE    PAF21    MI     X6,PAF5     IF FP                                               BRIDGE      1996     A     
 BRIDGE             LX6    TP.FPP-TP.LCMP                                                  BRIDGE      1997     A     
 BRIDGE             MI     X6,PAF5     IF LCM                                              BRIDGE      1998     A     
 BRIDGE             EQ     PAF20                                                           BRIDGE      1999     A     
 BRIDGE                                                                                    BRIDGE      2000     A     
 BRIDGE    PAF25    SB7    X0                                                              BRIDGE      2001     A     
 BRIDGE             SB6    B0                                                              BRIDGE      2002     A     
 BRIDGE             SA2    ATF         GET TYPE FLAG                                       FC50684        9     A     
 BRIDGE             HX2    AT.LEN                                                          FC50684       10     A     
 BRIDGE             MI     X2,PAF26    IF IO LENGTH                                        FC50684       11     A     
 BRIDGE             RJ     SDT         ISSUE TEMP(S)                                       BRIDGE      2003          I
          -FC51379
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2062    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             NZ     X2,PAF25A   IF NOT USER APLIST                                  FC51379        6     A     
 BRIDGE             SA1    N.STMAX                                                         FC51379        7     A     
 BRIDGE             SA2    N.ST                                                            FC51379        8     A     
 BRIDGE             MX6    X1+X2                                                           FC51379        9     A     
 BRIDGE             SA6    A2          TO AVOID POSSIBLE TEMP STORE CONFLICT               FC51379       10     A     
 BRIDGE    PAF25A   RJ     SDT         ISSUE TEMP(S)                                       FC51379       11     A     
 BRIDGE             EQ     PAF27                                                           FC50684       12     A     
 BRIDGE                                                                                    FC50684       13     A     
 BRIDGE    PAF26    RJ     STR         ISSUE TEMP                                          FC50684       14     A     
 BRIDGE                                                                                    FC50684       15     A     
 BRIDGE    PAF27    SA3    =XS=ST                                                          FC50684       16     A     
 BRIDGE             SA3    =XS=ST                                                          BRIDGE      2004          I
          -FC50684
 BRIDGE             SB7    B0                                                              BRIDGE      2005     A     
 BRIDGE             RJ     AIT                                                             BRIDGE      2006     A     
 BRIDGE             EQ     PAF60                                                           BRIDGE      2007     A     
 BRIDGE                                                                                    BRIDGE      2008     A     
 BRIDGE                                                                                    BRIDGE      2009     A     
 BRIDGE   *         MARK GPBUF COPY OF OPERAND AS ADDR TO FORCE ADDRESS SET.               BRIDGE      2010     A     
 BRIDGE                                                                                    BRIDGE      2011     A     
 BRIDGE    PAF30    SA1    GOVG                                                            BRIDGE      2012     A     
 BRIDGE             MX7    1                                                               BRIDGE      2013     A     
 BRIDGE             LX7    1+TP.ADDRP                                                      BRIDGE      2014     A     
 BRIDGE             BX6    X7+X1                                                           BRIDGE      2015     A     
 BRIDGE             SA6    A1          ADDR[GPBUF(1)] = 1                                  BRIDGE      2016     A     
 BRIDGE                                                                                    BRIDGE      2017     A     
 BRIDGE   *         PROCESS ARRAY LOAD APLIST.                                             BRIDGE      2018     A     
 BRIDGE                                                                                    BRIDGE      2019     A     
 BRIDGE             SA1    O$TST                                                           BRIDGE      2020     A     
 BRIDGE             MX7    TP.ORDL                                                         BRIDGE      2021     A     
 BRIDGE             SB3    X1                                                              BRIDGE      2022     A     
 BRIDGE             SA2    X0+B3       TST(ORD)                                            BRIDGE      2023     A     
 BRIDGE             LX7    TP.ORDL+TP.ORDP                                                 BRIDGE      2024     A     
 BRIDGE             LX2    -TS.RNUP                                                        BRIDGE      2025     A     
 BRIDGE             SA1    O$DTT                                                           BRIDGE      2026     A     
 BRIDGE             SB2    X2+B1                                                           BRIDGE      2027     A     
 BRIDGE             SA4    X1+B2       DTT(2,RNU[TST])                                     BRIDGE      2028          I
          -FC5A181
 BRIDGE             SA1    X1+B2       DTT(2,RNU[TST])                                     FC5A181        5     A     
 BRIDGE             SB7    B1          FLAG STORE TO APLIST                                BRIDGE      2029          I
          -FC5A438
 BRIDGE             CLAS=  X4,TP,(LCM,FP)                                                  FC5A438        6     A     
 BRIDGE             BX0    X4                                                              FC5A438        7     A     
 BRIDGE             BX3    X0*X1                                                           FC5A438        8     A     
 BRIDGE             BX0    X0-X3                                                           FC5A438        9     A     
 BRIDGE             NZ     X0,PAF3     IF NOT LCM AND FP                                   FC5A438       10     A     
 BRIDGE             MX0    1                                                               FC5A438       11     A     
 BRIDGE             LX0    1+AT.LEV0P                                                      FC5A438       12     A     
 BRIDGE             SA2    ATF                                                             FC5A438       13     A     
 BRIDGE             BX7    X0+X2                                                           FC5A438       14     A     
 BRIDGE             SA7    A2                                                              FC5A438       15     A     
 BRIDGE    PAF3     SB7    B1          FLAG STORE TO APLIST                                FC5A438       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2063    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX3    X7*X4                                                           BRIDGE      2030          I
          -FC5A181
 BRIDGE             LX3    -TP.ORDP                                                        BRIDGE      2031          I
          -FC5A181
 BRIDGE             RJ     GLT         GET ARRAY TAG                                       FC5A181        6     A     
 BRIDGE             MX2    0                                                               BRIDGE      2032     A     
 BRIDGE             RJ     AIT                                                             BRIDGE      2033     A     
 BRIDGE             SA1    ATF                                                             BRIDGE      2034     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      2035     A     
 BRIDGE             =X0    2B                                                              BRIDGE      2036     A     
 BRIDGE             SB6    X1+APSTR                                                        BRIDGE      2037     A     
 BRIDGE             LX1    2-AT.LEV0P                                                      BRIDGE      2038          I
          -FC5A438
 BRIDGE             LX1    1-AT.LEV0P                                                      FC5A438       17     A     
 BRIDGE             BX0    X0*X1                                                           BRIDGE      2039     A     
 BRIDGE             SA1    B6+X0       SKEL=APSTR+2*LEVEL0+IO                              BRIDGE      2040     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2041     A     
 BRIDGE             SA7    APSKEL      ISSUE STORE TO APLIST                               BRIDGE      2042     A     
 BRIDGE             ZR     X2,PAF60    IF OPT NE 2                                         BRIDGE      2043     A     
 BRIDGE             MX0    1                                                               BRIDGE      2044     A     
 BRIDGE             LX0    1+AP.CRP                                                        BRIDGE      2045     A     
 BRIDGE             BX6    X6+X0                                                           BRIDGE      2046     A     
 BRIDGE             SA6    A6          MARK ARRAY REF AS CLASS REF.                        BRIDGE      2047     A     
 BRIDGE             EQ     PAF60                                                           BRIDGE      2048     A     
 BRIDGE                                                                                    BRIDGE      2049     A     
 BRIDGE   *         PREPARE FOR STORE TO APLIST.                                           BRIDGE      2050     A     
 BRIDGE                                                                                    BRIDGE      2051     A     
 BRIDGE                                                                                    BRIDGE      2052     A     
 BRIDGE    PAF35    SB7    B1          MARK STORE TO APLIST                                BRIDGE      2053     A     
 BRIDGE             RJ     AIT                                                             BRIDGE      2054     A     
 BRIDGE             SA1    ATF                                                             BRIDGE      2055     A     
 BRIDGE             =X0    2B                                                              BRIDGE      2056     A     
 BRIDGE             SB6    X1+APSTR                                                        BRIDGE      2057     A     
 BRIDGE             LX1    2-AT.LEV0P                                                      BRIDGE      2058     A     
 BRIDGE             BX0    X0*X1                                                           BRIDGE      2059     A     
 BRIDGE             SA1    B6+X0       SKEL=APSTR+2*LEVEL0+IO                              BRIDGE      2060     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2061     A     
 BRIDGE             SA7    APSKEL                                                          BRIDGE      2062     A     
 BRIDGE                                                                                    BRIDGE      2063     A     
 BRIDGE   *         SET ADDR BIT IN FP OPERAND.                                            BRIDGE      2064     A     
 BRIDGE                                                                                    BRIDGE      2065     A     
 BRIDGE             SA1    GOVG                                                            BRIDGE      2066     A     
 BRIDGE             SX0    TP.ADDRM                                                        BRIDGE      2067     A     
 BRIDGE             BX7    X0+X1                                                           BRIDGE      2068     A     
 BRIDGE             SA7    A1                                                              BRIDGE      2069     A     
 BRIDGE                                                                                    BRIDGE      2070     A     
 BRIDGE    PAF40    SA1    OPT2                                                            BRIDGE      2071     A     
 BRIDGE             MX0    1                                                               BRIDGE      2072     A     
 BRIDGE             LX0    1+AP.CRP                                                        BRIDGE      2073     A     
 BRIDGE             ZR     X1,PAF60    IF OPT NE 2                                         BRIDGE      2074     A     
 BRIDGE             ZR     B7,PAF60    IF IH = 0                                           BRIDGE      2075     A     
 BRIDGE             SA1    =XO$SYM                                                         BRIDGE      2076     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2064    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SB6    X1+B1                                                           BRIDGE      2077     A     
 BRIDGE             SX7    B7                                                              BRIDGE      2078     A     
 BRIDGE             SX3    B7-K.GL                                                         BRIDGE      2079     A     
 BRIDGE             MX1    0           FLAG *NOT FORMAT*                                   BRIDGE      2080     A     
 BRIDGE             PL     X3,PAF55    IF GL                                               BRIDGE      2081     A     
 BRIDGE             MX7    -TP.ORDL                                                        BRIDGE      2082     A     
 BRIDGE             =A3    PAFB        OPD = TURP(2)                                       BRIDGE      2083     A     
 BRIDGE             LX3    -TP.ORDP                                                        BRIDGE      2084     A     
 BRIDGE             BX7    -X7*X3                                                          BRIDGE      2085     A     
 BRIDGE             LX3    B1,X7                                                           BRIDGE      2086     A     
 BRIDGE             IX4    X3+X7                                                           BRIDGE      2087     A     
 BRIDGE             SA1    B6+X4                                                           BRIDGE      2088     A     
 BRIDGE             HX1    WB.LAB                                                          BRIDGE      2089     A     
 BRIDGE             MI     X1,PAF55    IF LABEL                                            BRIDGE      2090     A     
 BRIDGE             LX1    WB.LABP-WB.ARYP                                                 BRIDGE      2091     A     
 BRIDGE             PL     X1,PAF60    IF ^DIM[WORDB(ORD[OPD])]                            BRIDGE      2092     A     
 BRIDGE             BX6    X0+X6                                                           BRIDGE      2093     A     
 BRIDGE             SA6    A6          CR[AP(M.AP)] = 1                                    BRIDGE      2094     A     
 BRIDGE             EQ     PAF60                                                           BRIDGE      2095     A     
 BRIDGE                                                                                    BRIDGE      2096     A     
 BRIDGE    PAF55    SA2    =XL$AUD                                                         BRIDGE      2097     A     
 BRIDGE             LX1    WB.LABP-WB.FREFP                                                BRIDGE      2098     A     
 BRIDGE             SX6    X2-1                                                            BRIDGE      2099     A     
 BRIDGE             SA6    A2          REMOVE LABEL ENTRY FROM AUD                         BRIDGE      2100     A     
 BRIDGE             MI     X1,PAF60    IF FORMAT                                           BRIDGE      2101     A     
 BRIDGE             CFTE   CBN,X7,IH   FLOW <CBN, AP LABEL>                                BRIDGE      2102     A     
 BRIDGE                                                                                    BRIDGE      2103     A     
 BRIDGE    PAF60    SA1    ATF                                                             BRIDGE      2104     A     
 BRIDGE             HX1    AT.LEN                                                          BRIDGE      2105     A     
 BRIDGE             MI     X1,PAF61    IF NOT FIRST CALL FOR THIS ITEM                     BRIDGE      2106     A     
 BRIDGE             SA4    CAPL                                                            BRIDGE      2107     A     
 BRIDGE             =X2    1                                                               BRIDGE      2108     A     
 BRIDGE             LX2    TP.BIASP                                                        BRIDGE      2109     A     
 BRIDGE             IX7    X4+X2                                                           BRIDGE      2110     A     
 BRIDGE             SA7    A4          BIAS[CAPL] = BIAS[CAPL] + 1                         BRIDGE      2111     A     
 BRIDGE                                                                                    BRIDGE      2112     A     
 BRIDGE    PAF61    SA1    APSKEL                                                          BRIDGE      2113     A     
 BRIDGE             ZR     X1,EXIT.    IF NO CODE TO ISSUE                                 BRIDGE      2114     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2115     A     
 BRIDGE             EQ     SUB.RET                                                         BRIDGE      2116     A     
 BRIDGE                                                                                    BRIDGE      2117     A     
 BRIDGE    APSKEL   BSS    1                                                               BRIDGE      2118     A     
 BRIDGE    PAFB     BSS    1                                                               BRIDGE      2119     A     
 BRIDGE    AIT      EJECT                                                                  BRIDGE      2120     A     
 BRIDGE   **        AIT - ADD APLIST TO APL/IOA AND USE/DEF INFO TO AUT.                   BRIDGE      2121     A     
 BRIDGE   *                                                                                BRIDGE      2122     A     
 BRIDGE   *                X2 = CA (24-BIT SIGNED)                                         BRIDGE      2123     A     
 BRIDGE   *                X3 = IH                                                         BRIDGE      2124     A     
 BRIDGE   *                B7 = 1 IF STORE TO APLIST, ELSE 0.                              BRIDGE      2125     A     
 BRIDGE                                                                                    BRIDGE      2126     A     
 BRIDGE    AIT      SUBR                                                                   BRIDGE      2127     A     
 BRIDGE             SA4    ATF                                                             BRIDGE      2128     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2065    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA1    B5                                                              BRIDGE      2129     A     
 BRIDGE             MX7    0                                                               BRIDGE      2130     A     
 BRIDGE             MI     X4,AIT6     IF I/O LENGTH                                       BRIDGE      2131     A     
 BRIDGE                                                                                    BRIDGE      2132     A     
 BRIDGE   *         SET AP.P1 BIT IF DOUBLE-WORD ITEM.                                     BRIDGE      2133     A     
 BRIDGE                                                                                    BRIDGE      2134     A     
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      2135     A     
 BRIDGE             LX1    -TH.MODEP                                                       BRIDGE      2136     A     
 BRIDGE             BX0    -X0*X1                                                          BRIDGE      2137     A     
 BRIDGE             SB6    X0-M.DBL                                                        BRIDGE      2138     A     
 BRIDGE             LX1    TH.MODEP                                                        BRIDGE      2139     A     
 BRIDGE             ZR     B6,AIT5     IF DOUBLE                                           BRIDGE      2140     A     
 BRIDGE             NE     B6,B1,AIT6  IF NOT COMPLEX                                      BRIDGE      2141     A     
 BRIDGE                                                                                    BRIDGE      2142     A     
 BRIDGE    AIT5     MX7    1                                                               BRIDGE      2143     A     
 BRIDGE             LX7    1+AP.P1P                                                        BRIDGE      2144     A     
 BRIDGE                                                                                    BRIDGE      2145     A     
 BRIDGE    AIT6     SA5    S=CON                                                           BRIDGE      2146     A     
 BRIDGE             SA7    AITA                                                            BRIDGE      2147     A     
 BRIDGE             BX6    X3-X5                                                           BRIDGE      2148     A     
 BRIDGE             NZ     X6,AIT7     IF IH NE CON.                                       BRIDGE      2149     A     
 BRIDGE             MX6    1                                                               BRIDGE      2150     A     
 BRIDGE             SA6    =XAPCON     FLAG CON. IN APLIST                                 BRIDGE      2151     A     
 BRIDGE             HX4    AT.CHAR                                                         BRIDGE      2152     A     
 BRIDGE             MI     X4,AIT60    IF CHARACTER CONSTANT                               BRIDGE      2153     A     
 BRIDGE             SX1    X2                                                              BRIDGE      2154     A     
 BRIDGE             LX7    -AP.P1P                                                         BRIDGE      2155     A     
 BRIDGE             =X4    X7+1        LENGTH = P1 + 1                                     BRIDGE      2156     A     
 BRIDGE             RJ     FMU         MARK CON. ENTRY(S) AS USED                          BRIDGE      2157     A     
 BRIDGE             EQ     AIT8                                                            BRIDGE      2158     A     
 BRIDGE                                                                                    BRIDGE      2159     A     
 BRIDGE   *         MARK CON. MEMBERS USED AS APPROPRIATE.                                 BRIDGE      2160     A     
 BRIDGE                                                                                    BRIDGE      2161     A     
 BRIDGE    AIT60    SA1    =XO$CAC                                                         BRIDGE      2162     A     
 BRIDGE             SB6    X2                                                              BRIDGE      2163     A     
 BRIDGE             SA5    X1+B6       CAC(BIAS) CONTAINS WC FOR THIS APLIST.              BRIDGE      2164     A     
 BRIDGE             MX0    -WC.CLENL                                                       BRIDGE      2165     A     
 BRIDGE             LX5    -WC.CLENP                                                       BRIDGE      2166     A     
 BRIDGE             BX6    -X0*X5      X6 = CLEN                                           BRIDGE      2167     A     
 BRIDGE             MX0    -WC.BCPL                                                        BRIDGE      2168     A     
 BRIDGE             LX5    WC.CLENP-WC.BCPP                                                BRIDGE      2169     A     
 BRIDGE             BX4    -X0*X5      X4 = BCP                                            BRIDGE      2170     A     
 BRIDGE             MX0    -WC.RAL                                                         BRIDGE      2171     A     
 BRIDGE             LX5    WC.BCPP-WC.RAP                                                  BRIDGE      2172     A     
 BRIDGE             BX1    -X0*X5      X1 = RA = BIAS OF FIRST USED CON.                   BRIDGE      2173     A     
 BRIDGE             IX0    X4+X6                                                           BRIDGE      2174     A     
 BRIDGE             CW     X4,X0       X4 = NUMBER OF WORDS SPANNED                        BRIDGE      2175     A     
 BRIDGE             RJ     FMU         MARK CONS AS USED                                   BRIDGE      2176     A     
 BRIDGE             EQ     AIT8                                                            BRIDGE      2177     A     
 BRIDGE                                                                                    BRIDGE      2178     A     
 BRIDGE    AIT7     SA4    S$VD                                                            BRIDGE      2179     A     
 BRIDGE             BX6    X3-X4                                                           BRIDGE      2180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2066    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             NZ     X6,AIT8     IF NOT VARDIM APLIST                                BRIDGE      2181     A     
 BRIDGE             BX7    X3                                                              BRIDGE      2182     A     
 BRIDGE             SX1    X2                                                              BRIDGE      2183     A     
 BRIDGE             CALL   CG$AVO      CALL AVO( X1=CA )                                   BRIDGE      2184     A     
 BRIDGE             SX2    X1                                                              BRIDGE      2185     A     
 BRIDGE             BX3    X7                                                              BRIDGE      2186     A     
 BRIDGE                                                                                    BRIDGE      2187     A     
 BRIDGE    AIT8     MX0    -AP.CAL                                                         BRIDGE      2188     A     
 BRIDGE             SA1    =XCO.ARGC                                                       BRIDGE      2189     A     
 BRIDGE             SA5    AITA                                                            BRIDGE      2190     A     
 BRIDGE             BX6    -X0*X2                                                          BRIDGE      2191     A     
 BRIDGE             SA4    ATF                                                             BRIDGE      2192     A     
 BRIDGE             LX4    -AT.IOP                                                         BRIDGE      2193     A     
 BRIDGE             SX0    X4                                                              BRIDGE      2194     A     
 BRIDGE             LX4    AT.IOP                                                          BRIDGE      2195     A     
 BRIDGE             LX0    -1                                                              BRIDGE      2196     A     
 BRIDGE             BX0    X0+X1                                                           BRIDGE      2197     A     
 BRIDGE             AX0    59                                                              BRIDGE      2198     A     
 BRIDGE             BX5    X3+X5                                                           BRIDGE      2199     A     
 BRIDGE             LX6    AP.CAP                                                          BRIDGE      2200     A     
 BRIDGE             LX5    AP.IHP                                                          BRIDGE      2201     A     
 BRIDGE             BX5    X5+X6                                                           BRIDGE      2202     A     
 BRIDGE                                                                                    BRIDGE      2203     A     
 BRIDGE   *         INCLUDE IO CONTROL AND CHARACTER BITS AND MODE.                        BRIDGE      2204     A     
 BRIDGE                                                                                    BRIDGE      2205     A     
 BRIDGE             CLAS=  X1,AT,MODE                                                      BRIDGE      2206     A     
 BRIDGE             BX1    X0*X1       INCLUDE MODE IF IO OR ARG=C                         BRIDGE      2207     A     
 BRIDGE             BX7    X1*X4                                                           BRIDGE      2208     A     
 BRIDGE             CLAS=  X1,AT,CHAR                                                      BRIDGE      2209     A     
 BRIDGE             LX7    IA.MODEP-AT.MODEP                                               BRIDGE      2210     A     
 BRIDGE             BX0    X1*X4                                                           BRIDGE      2211     A     
 BRIDGE             CLAS=  X1,AT,IOC                                                       BRIDGE      2212     A     
 BRIDGE             LX0    IA.CHARP-AT.CHARP                                               BRIDGE      2213     A     
 BRIDGE             BX7    X0+X7                                                           BRIDGE      2214     A     
 BRIDGE             BX1    X1*X4                                                           BRIDGE      2215     A     
 BRIDGE             LX1    IA.IOCP-AT.IOCP                                                 BRIDGE      2216     A     
 BRIDGE             BX0    X7+X1                                                           BRIDGE      2217     A     
 BRIDGE             SX7    B7                                                              BRIDGE      2218     A     
 BRIDGE             SB7    X3          SAVE TAG                                            BRIDGE      2219     A     
 BRIDGE             LX7    IA.STP                                                          BRIDGE      2220     A     
 BRIDGE             LX2    IA.BIASP                                                        BRIDGE      2221     A     
 BRIDGE             LX3    IA.TAGP                                                         BRIDGE      2222     A     
 BRIDGE             BX0    X0+X7                                                           BRIDGE      2223     A     
 BRIDGE             BX6    X2+X3                                                           BRIDGE      2224     A     
 BRIDGE             BX1    X6+X0                                                           BRIDGE      2225     A     
 BRIDGE             MX2    AT.OPT2L                                                        BRIDGE      2226     A     
 BRIDGE             SA3    WO.DOOT                                                         BRIDGE      2227     A     
 BRIDGE             LX3    IA.VARP                                                         BRIDGE      2228     A     
 BRIDGE             BX1    X1+X3       VAR[AP] = DOTRIP                                    BRIDGE      2229     A     
 BRIDGE             HX4    AT.OPT2                                                         BRIDGE      2230     A     
 BRIDGE             BX4    X2*X4                                                           BRIDGE      2231     A     
 BRIDGE             BX5    X5+X4                                                           BRIDGE      2232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2067    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA3    CLF                                                             BRIDGE      2233     A     
 BRIDGE             ADDWRD SAP+X3,X1   SAP OR CLW                                          BRIDGE      2234     A     
 BRIDGE             SB3    B7-K.GL                                                         BRIDGE      2235     A     
 BRIDGE             PL     B3,AIT25    IF NOT IN SYMBOL TABLE                              BRIDGE      2236     A     
 BRIDGE             SA2    O$SYM                                                           BRIDGE      2237     A     
 BRIDGE             MX1    1                                                               BRIDGE      2238     A     
 BRIDGE             SB3    B7+B7                                                           BRIDGE      2239     A     
 BRIDGE             LX1    1+WB.MATP                                                       BRIDGE      2240     A     
 BRIDGE             SX2    X2+B1                                                           BRIDGE      2241     A     
 BRIDGE             SB3    B3+B7                                                           BRIDGE      2242     A     
 BRIDGE             SA2    X2+B3                                                           BRIDGE      2243     A     
 BRIDGE             BX6    X1+X2                                                           BRIDGE      2244     A     
 BRIDGE             SA6    A2          MAT[WB(IH)] = 1                                     BRIDGE      2245     A     
 BRIDGE                                                                                    BRIDGE      2246     A     
 BRIDGE    AIT25    SA2    OPT2                                                            BRIDGE      2247     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2248     A     
 BRIDGE             ZR     X2,EXIT.    IF OPT NE 2                                         BRIDGE      2249     A     
 BRIDGE             ZR     B7,EXIT.    IF TAG = 0                                          BRIDGE      2250     A     
 BRIDGE             ADDWRD AUD,X1      ADD TO USE/DEF BUFFER                               BRIDGE      2251     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2252     A     
 BRIDGE                                                                                    BRIDGE      2253     A     
 BRIDGE    AITA     BSS    1                                                               BRIDGE      2254     A     
 BRIDGE    CLF      BSSZ   1                                                               BRIDGE      2255     A     
 BRIDGE    FMU      SPACE  4,8                                                             BRIDGE      2256     A     
 BRIDGE   **        FMU - MARK MULTIPLE CON. ENTRIES AS USED.                              BRIDGE      2257     A     
 BRIDGE   *         MULTIPLE ENTRY VERSION OF CG$FCU .                                     BRIDGE      2258     A     
 BRIDGE   *                                                                                BRIDGE      2259     A     
 BRIDGE   *         ENTRY  X1 = FIRST CON. BIAS                                            BRIDGE      2260     A     
 BRIDGE   *                X4 = LENGTH OF USED SPAN.                                       BRIDGE      2261     A     
 BRIDGE                                                                                    BRIDGE      2262     A     
 BRIDGE    FMU      SUBR                                                                   BRIDGE      2263     A     
 BRIDGE             SA5    =XO$CUT                                                         BRIDGE      2264     A     
 BRIDGE             SX7    B1                                                              BRIDGE      2265     A     
 BRIDGE             SB6    X4                                                              BRIDGE      2266     A     
 BRIDGE             IX0    X5+X1                                                           BRIDGE      2267     A     
 BRIDGE                                                                                    BRIDGE      2268     A     
 BRIDGE    FMU10    SB6    B6-B1                                                           BRIDGE      2269     A     
 BRIDGE             SA7    X0+B6                                                           BRIDGE      2270     A     
 BRIDGE             NZ     B6,FMU10    IF NOT TOP OF ENTRIES                               BRIDGE      2271     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2272     A     
 BRIDGE    PNA      EJECT                                                                  BRIDGE      2273     A     
 BRIDGE   **        PNA - PROCESS NAMELIST APLIST.                                         BRIDGE      2274     A     
 BRIDGE   *         CONSTRUCT PSEUDO APLIST FOR NAMELIST ITEMS IN OPT=2.                   BRIDGE      2275     A     
 BRIDGE                                                                                    BRIDGE      2276     A     
 BRIDGE    PNA      SUBR                                                                   BRIDGE      2277     A     
 BRIDGE             SA3    OPT2                                                            BRIDGE      2278     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      2279     A     
 BRIDGE             ZR     X3,EXIT.    IF OPT NE 2                                         BRIDGE      2280     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      2281     A     
 BRIDGE             LX1    -TP.BIASP                                                       BRIDGE      2282     A     
 BRIDGE             BX2    -X0*X1                                                          BRIDGE      2283     A     
 BRIDGE             SB7    X2-IC.NML                                                       BRIDGE      2284     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2068    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             NZ     B7,EXIT.    IF BIAS[TURP(2)] .NE. IC.NML                        BRIDGE      2285     A     
 BRIDGE             =A1    A1+OR.2OP-OR.1OP                                                BRIDGE      2286     A     
 BRIDGE             MX0    TP.IODPL                                                        BRIDGE      2287     A     
 BRIDGE             HX1    TP.IODP                                                         BRIDGE      2288     A     
 BRIDGE             BX6    X0*X1                                                           BRIDGE      2289     A     
 BRIDGE             LX6    2+AP.USEP                                                       BRIDGE      2290     A     
 BRIDGE             SA6    IOBITS                                                          BRIDGE      2291     A     
 BRIDGE             SA5    =XO$SYM                                                         BRIDGE      2292     A     
 BRIDGE             LX1    TP.IODPL+TP.IODPP-TP.ORDP                                       BRIDGE      2293     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2294     A     
 BRIDGE             BX2    -X0*X1                                                          BRIDGE      2295     A     
 BRIDGE             LX3    B1,X2                                                           BRIDGE      2296     A     
 BRIDGE             IX4    X2+X3                                                           BRIDGE      2297     A     
 BRIDGE             IX0    X5+X4                                                           BRIDGE      2298     A     
 BRIDGE             SA5    =XO$NLST                                                        BRIDGE      2299     A     
 BRIDGE             =A1    X0+WB.W                                                         BRIDGE      2300     A     
 BRIDGE             MX2    -WB.PNTL                                                        BRIDGE      2301     A     
 BRIDGE             LX1    -WB.PNTP                                                        BRIDGE      2302     A     
 BRIDGE             BX3    -X2*X1                                                          BRIDGE      2303     A     
 BRIDGE             SB7    X3                                                              BRIDGE      2304     A     
 BRIDGE             SA5    X5+B7       I=1 , NLSI = NLST(PNT[WB(ORD[TURP(3)])])            BRIDGE      2305     A     
 BRIDGE             MX0    -NG.NMEML                                                       BRIDGE      2306     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2307     A     
 BRIDGE             SB4    B7          B4 PRESERVED ACROSS THE ALLOCATE                    FC5A395        9     A     
 BRIDGE             LX1    -NG.NMEMP                                                       BRIDGE      2308     A     
 BRIDGE             BX1    -X0*X1                                                          BRIDGE      2309     A     
 BRIDGE             SB7    X1          N = NMEM[NLSI]                                      BRIDGE      2310     A     
 BRIDGE             SX1    B7-B1                                                           BRIDGE      2311     A     
 BRIDGE             ALLOC  AUD,X1                                                          BRIDGE      2312     A     
 BRIDGE             SA5    =XO$NLST                                                        FC5A395       10     A     
 BRIDGE             SA5    X5+B4       I=1 , NLSI = NLST(PNT[WB(ORD[TURP(3)])])            FC5A395       11     A     
 BRIDGE                                                                                    BRIDGE      2313     A     
 BRIDGE   *         INITIALIZE A7 TO OVERWRITE GROUP NAME AUD ENTRY WITH                   BRIDGE      2314     A     
 BRIDGE   *         FIRST MEMBER ENTRY.                                                    BRIDGE      2315     A     
 BRIDGE                                                                                    BRIDGE      2316     A     
 BRIDGE             SX1    X2+B6                                                           BRIDGE      2317     A     
 BRIDGE             SA2    X1-2                                                            BRIDGE      2318     A     
 BRIDGE             MX0    -NG.ORDL                                                        BRIDGE      2319     A     
 BRIDGE             SB4    30                                                              BRIDGE      2320     A     
 BRIDGE             BX7    X2                                                              BRIDGE      2321     A     
 BRIDGE             SA7    A2          INITIALIZE A7 WITH FIRST STORE ADDR. -1             BRIDGE      2322     A     
 BRIDGE                                                                                    BRIDGE      2323     A     
 BRIDGE    PNA10    ZR     B7,EXIT.    IF I = N+1   */ NAMELIST TABLE EXHAUSTED            BRIDGE      2324     A     
 BRIDGE             NZ     B4,PNA20    IF CURRENT WORD NOT EXHAUSTED                       BRIDGE      2325     A     
 BRIDGE             SB4    60                                                              BRIDGE      2326     A     
 BRIDGE             SA5    A5+1        NLSI = NLSI + 1                                     BRIDGE      2327     A     
 BRIDGE                                                                                    BRIDGE      2328     A     
 BRIDGE    PNA20    SB4    B4-15                                                           BRIDGE      2329     A     
 BRIDGE             AX4    B4,X5                                                           BRIDGE      2330     A     
 BRIDGE             BX3    -X0*X4                                                          BRIDGE      2331     A     
 BRIDGE             MX4    0                                                               BRIDGE      2332     A     
 BRIDGE             SA1    O$SYM                                                           BRIDGE      2333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2069    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             LX2    B1,X3                                                           BRIDGE      2334     A     
 BRIDGE             IX6    X3+X2                                                           BRIDGE      2335     A     
 BRIDGE             =B2    X1+WB.W                                                         BRIDGE      2336     A     
 BRIDGE             SA1    X6+B2                                                           BRIDGE      2337     A     
 BRIDGE             MX7    1                                                               BRIDGE      2338     A     
 BRIDGE             HX1    WB.ARY                                                          BRIDGE      2339     A     
 BRIDGE             BX7    X7*X1                                                           BRIDGE      2340     A     
 BRIDGE             LX1    WB.ARYP-WB.EQVP                                                 BRIDGE      2341     A     
 BRIDGE             LX7    1+AP.CRP                                                        BRIDGE      2342     A     
 BRIDGE             PL     X1,PNA30    IF MEMBER NOT EQUIVALENCED                          BRIDGE      2343     A     
 BRIDGE             MX6    -WB.BASEL                                                       BRIDGE      2344     A     
 BRIDGE             LX1    WB.EQVP+1-WB.BASEP                                              BRIDGE      2345     A     
 BRIDGE             BX3    -X6*X1                                                          BRIDGE      2346     A     
 BRIDGE             =A1    A1+WC.W-WB.W                                                    BRIDGE      2347     A     
 BRIDGE             MX6    -WC.RAL                                                         BRIDGE      2348     A     
 BRIDGE             LX1    -AP.CAL                                                         BRIDGE      2349     A     
 BRIDGE             BX4    -X6*X1                                                          BRIDGE      2350     A     
 BRIDGE                                                                                    BRIDGE      2351     A     
 BRIDGE    PNA30    LX3    AP.IHP                                                          BRIDGE      2352     A     
 BRIDGE             SA1    IOBITS                                                          BRIDGE      2353     A     
 BRIDGE             LX4    AP.CAP                                                          BRIDGE      2354     A     
 BRIDGE             BX7    X7+X4                                                           BRIDGE      2355     A     
 BRIDGE             BX4    X3+X1                                                           BRIDGE      2356     A     
 BRIDGE             BX7    X7+X4                                                           BRIDGE      2357     A     
 BRIDGE             SB7    B7-B1       I = I + 1                                           BRIDGE      2358     A     
 BRIDGE             SA7    A7+B1       AUD(J) = AP(IH[MEMI],CA[MEMI],ARY[MEMI],UD)         BRIDGE      2359     A     
 BRIDGE             EQ     PNA10                                                           BRIDGE      2360     A     
 BRIDGE                                                                                    BRIDGE      2361     A     
 BRIDGE    IOBITS   BSS    1                                                               BRIDGE      2362     A     
 BRIDGE    PAC      EJECT                                                                  BRIDGE      2363     A     
 BRIDGE   **        PAC - CHARACTER APLIST PROCESSORS.                                     BRIDGE      2364     A     
 BRIDGE                                                                                    BRIDGE      2365     A     
 BRIDGE    PAC      SUBR                                                                   BRIDGE      2366     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2367     A     
 BRIDGE             HX7    TP.CAT                                                          BRIDGE      2368     A     
 BRIDGE             PL     X7,PAC10    IF NOT CAT[OPD]                                     BRIDGE      2369     A     
 BRIDGE             RJ     IAC         ISSUE APLIST FOR CONCAT                             BRIDGE      2370     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2371     A     
 BRIDGE                                                                                    BRIDGE      2372     A     
 BRIDGE    PAC10    RJ     PCI         PROCESS CHARACTER ITEM                              BRIDGE      2373     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2374     A     
 BRIDGE    PCO      SPACE  4,8                                                             BRIDGE      2375     A     
 BRIDGE   **        PCO - PROCESS CHARACTER OPERAND.                                       BRIDGE      2376     A     
 BRIDGE                                                                                    BRIDGE      2377     A     
 BRIDGE    PCO      SUBR                                                                   BRIDGE      2378     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2379     A     
 BRIDGE             HX7    TP.CAT                                                          BRIDGE      2380     A     
 BRIDGE             PL     X7,PCO10    IF NOT CAT[OPD]                                     BRIDGE      2381     A     
 BRIDGE             RJ     ICE         ISSUE CHARACTER EXPRESSION TO SAP                   BRIDGE      2382     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2383     A     
 BRIDGE                                                                                    BRIDGE      2384     A     
 BRIDGE    PCO10    RJ     PCI         ISSUE CHARACTER ITEM TO SAP                         BRIDGE      2385     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2070    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2386     A     
 BRIDGE    IAC      EJECT                                                                  BRIDGE      2387     A     
 BRIDGE   **        IAC - ISSUE APLIST FOR CONCAT.                                         BRIDGE      2388     A     
 BRIDGE                                                                                    BRIDGE      2389     A     
 BRIDGE    IAC      SUBR                                                                   BRIDGE      2390     A     
 BRIDGE             RJ     CEC         CHECK FOR EVALUATED //                              BRIDGE      2391     A     
 BRIDGE             ZR     B7,EXIT.    IF ALREADY EVALUATED (ST. TO APLIST)                BRIDGE      2392     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2393     A     
 BRIDGE             SA7    IACA                                                            BRIDGE      2394     A     
 BRIDGE             RJ     SAE         STACK APLIST ENVIRONMENT                            BRIDGE      2395     A     
 BRIDGE             MX1    0                                                               BRIDGE      2396     A     
 BRIDGE             SA3    S=ST                                                            BRIDGE      2397     A     
 BRIDGE             RJ     PCA         RESERVE APLIST FOR TARGET TEMP                      BRIDGE      2398     A     
 BRIDGE             SA1    L$SAP                                                           BRIDGE      2399     A     
 BRIDGE             SA2    L$AUD                                                           BRIDGE      2400     A     
 BRIDGE             LX2    18                                                              BRIDGE      2401     A     
 BRIDGE             BX7    X1+X2                                                           BRIDGE      2402     A     
 BRIDGE             SA7    IACB                                                            BRIDGE      2403     A     
 BRIDGE             SA1    IACA                                                            BRIDGE      2404     A     
 BRIDGE             MX6    0                                                               FC5A243      152     A     
 BRIDGE             SA6    FVSUKL      CLEAR *UNKNOWN LENGTH* FLAG                         FC5A243      153     A     
 BRIDGE             RJ     ICE         ISSUE EXPRESSION TO APLIST                          BRIDGE      2405     A     
 BRIDGE                                                                                    BRIDGE      2406     A     
 BRIDGE   *         ALLOCATE ST. STORAGE FOR TARGET TEMP AND FILE IN                       BRIDGE      2407     A     
 BRIDGE   *         *TST* FOR THIS TURPLE.  NOW THAT WE KNOW LENGTH, WE                    BRIDGE      2408     A     
 BRIDGE   *         RECALL PAC AND TRANSFER APLIST AND AUD ENTRIES TO                      BRIDGE      2409     A     
 BRIDGE   *         SPACES RESERVED FOR THEM.                                              BRIDGE      2410     A     
 BRIDGE                                                                                    BRIDGE      2411     A     
 BRIDGE             =B2    1           SET LEVEL=1                                         FC50728       10     A     
 BRIDGE             RJ     ETT         ENTER TARGET TEMP TO SAP                            BRIDGE      2412     A     
 BRIDGE             SA1    FVSUKL                                                          FC5A243      154     A     
 BRIDGE             NZ     X1,IAC20    IF EXPRESSION INCLUDES VARIABLE SUBSTRING           FC5A243      155     A     
 BRIDGE             SA1    ETTA                                                            BRIDGE      2413          I
          -FC50728
 BRIDGE             SA1    ETTA+1      GET LEVEL 1 TARGET TEMP                             FC50728       11     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2414     A     
 BRIDGE             SA3    IACA                                                            BRIDGE      2415     A     
 BRIDGE             SA4    IND0                                                            BRIDGE      2416     A     
 BRIDGE             MX2    -TP.ORDL                                                        BRIDGE      2417     A     
 BRIDGE             LX3    -TP.ORDP                                                        BRIDGE      2418     A     
 BRIDGE             BX2    -X2*X3                                                          BRIDGE      2419     A     
 BRIDGE             IX7    X2-X4                                                           BRIDGE      2420     A     
 BRIDGE             SA4    O$TST                                                           BRIDGE      2421     A     
 BRIDGE             IX7    X4+X7                                                           BRIDGE      2422     A     
 BRIDGE             SA6    X7          TST(ORD[OPD]) = ETTA                                BRIDGE      2423     A     
 BRIDGE             SA4    OPT2                                                            BRIDGE      2424          I
          -FC5A243
 BRIDGE                                                                                    FC5A243      156     A     
 BRIDGE    IAC20    SA4    OPT2                                                            FC5A243      157     A     
 BRIDGE             SA2    IACB                                                            BRIDGE      2425     A     
 BRIDGE             SA1    L$SAP                                                           BRIDGE      2426     A     
 BRIDGE             SA5    O$SAP                                                           BRIDGE      2427     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2071    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE      2428     A     
 BRIDGE    IAC30    SX6    X1-1                                                            BRIDGE      2429     A     
 BRIDGE             IX7    X5+X6                                                           BRIDGE      2430     A     
 BRIDGE             SA6    A1          L$SAP = L$SAP - 1                                   BRIDGE      2431     A     
 BRIDGE             SA3    X7                                                              BRIDGE      2432     A     
 BRIDGE             SB6    X2-1                                                            BRIDGE      2433     A     
 BRIDGE             BX7    X3                                                              BRIDGE      2434     A     
 BRIDGE             SA7    X5+B6       SAP(TSAP) = SAP(L$SAP+1)                            BRIDGE      2435     A     
 BRIDGE             ZR     X4,IAC40    IF OPT=2 OR IF *AUD* DONE                           BRIDGE      2436     A     
 BRIDGE                                                                                    BRIDGE      2437     A     
 BRIDGE   *         UPDATE OPT2 INFO IN *AUD* ENTRY FOR TARGET.                            BRIDGE      2438     A     
 BRIDGE                                                                                    BRIDGE      2439     A     
 BRIDGE             AX2    18          TSAP = TAUD                                         BRIDGE      2440     A     
 BRIDGE             SA1    L$AUD                                                           BRIDGE      2441     A     
 BRIDGE             SA5    =XO$AUD                                                         BRIDGE      2442     A     
 BRIDGE             MX4    0                                                               BRIDGE      2443     A     
 BRIDGE             EQ     IAC30                                                           BRIDGE      2444     A     
 BRIDGE                                                                                    BRIDGE      2445     A     
 BRIDGE    IAC40    ADDWRD SAP,B0                                                          BRIDGE      2446     A     
 BRIDGE             SA1    =XS=MMC                                                         BRIDGE      2447     A     
 BRIDGE             RJ     CGF                                                             BRIDGE      2448     A     
 BRIDGE             RJ     PAE         POP APLIST ENVIRONMENT                              BRIDGE      2449     A     
 BRIDGE             SA1    ETTB                                                            BRIDGE      2450          I
          -FC5A243
 BRIDGE             SA1    FVSUKL                                                          FC5A243      158     A     
 BRIDGE             ZR     X1,IAC50    IF TARGET LEN KNOWN                                 FC5A243      159     A     
 BRIDGE             RJ     SCA         STORE RETURNED X6 TO APLIST                         FC5A243      160     A     
 BRIDGE             SA3    S=ST                                                            FC5A243      161     A     
 BRIDGE             =B7    1           MARK STORE TO APLIST                                FC5A243      162     A     
 BRIDGE             MX2    0                                                               FC5A243      163     A     
 BRIDGE             RJ     ECA         ENTER ST. TO APLIST                                 FC5A243      164     A     
 BRIDGE             EQ     EXIT.                                                           FC5A243      165     A     
 BRIDGE                                                                                    FC5A243      166     A     
 BRIDGE    IAC50    SA1    ETTB                                                            FC5A243      167     A     
 BRIDGE             SA3    S=ST                                                            BRIDGE      2451     A     
 BRIDGE             RJ     PCA         FILE ST. ETC. IN USER APLIST                        BRIDGE      2452     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2453     A     
 BRIDGE                                                                                    BRIDGE      2454     A     
 BRIDGE    IACA     BSS    1                                                               BRIDGE      2455     A     
 BRIDGE    IACB     BSS    1                                                               BRIDGE      2456     A     
 BRIDGE    ETT      SPACE  4,8                                                             BRIDGE      2457     A     
 BRIDGE   **        ETT - ENTER TARGET TEMP INTO APLIST.                                   BRIDGE      2458     A     
 BRIDGE   *                                                                                BRIDGE      2459     A     
 BRIDGE   *         ENTRY  (X1) = CLEN                                                     BRIDGE      2460     A     
 BRIDGE                                                                                    BRIDGE      2461     A     
 BRIDGE    ETT      SUBR                                                                   BRIDGE      2462     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2463     A     
 BRIDGE             CW     X2,X6                                                           BRIDGE      2464     A     
 BRIDGE             SA3    N.ST                                                            BRIDGE      2465     A     
 BRIDGE             IX7    X3+X2                                                           BRIDGE      2466     A     
 BRIDGE             SA7    A3          ALLOCATE FOR EXPRESSION                             BRIDGE      2467     A     
 BRIDGE             MX6    1                                                               BRIDGE      2468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2072    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             LX6    1+AT.STP    MARK TARGET ST. ITEM AS *DEF*                       BRIDGE      2469     A     
 BRIDGE             SA6    ATF                                                             BRIDGE      2470     A     
 BRIDGE             LX1    TS.CLENP                                                        BRIDGE      2471     A     
 BRIDGE             LX3    TS.RNUP                                                         BRIDGE      2472     A     
 BRIDGE             MX6    1                                                               BRIDGE      2473     A     
 BRIDGE             BX5    X1+X3                                                           BRIDGE      2474     A     
 BRIDGE             LX6    1+TS.FRP                                                        BRIDGE      2475     A     
 BRIDGE             BX6    X5+X6                                                           BRIDGE      2476     A     
 BRIDGE             SA6    ETTA        ETTA = TST ENTRY                                    BRIDGE      2477          I
          -FC50728
 BRIDGE             SA6    ETTA+B2     ETTA(INDEX) = TST ENTRY                             FC50728       12     A     
 BRIDGE             LX3    WC.RAP-TS.RNUP                                                  BRIDGE      2478     A     
 BRIDGE             LX1    WC.CLENP-TS.CLENP                                               BRIDGE      2479     A     
 BRIDGE             BX1    X3+X1                                                           BRIDGE      2480     A     
 BRIDGE             SA3    S=ST                                                            BRIDGE      2481     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2482     A     
 BRIDGE             SA7    ETTB        ETTB = APLIST ENTRY                                 BRIDGE      2483     A     
 BRIDGE             RJ     PCA         RECALL PCA WITH VALID CLEN                          BRIDGE      2484     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2485     A     
 BRIDGE                                                                                    BRIDGE      2486     A     
 BRIDGE    ETTA     BSS    1                                                               BRIDGE      2487          I
          -FC50728
 BRIDGE    ETTA     BSS    2                                                               FC50728       13     A     
 BRIDGE    ETTB     BSS    1                                                               BRIDGE      2488     A     
 BRIDGE    PCI      EJECT                                                                  BRIDGE      2489     A     
 BRIDGE   **        PCI - PROCESS CHARACTER ITEM.                                          BRIDGE      2490     A     
 BRIDGE   *                                                                                BRIDGE      2491     A     
 BRIDGE   *         ENTRY  X1 = OPD                                                        BRIDGE      2492     A     
 BRIDGE   *                                                                                BRIDGE      2493     A     
 BRIDGE   *         EXIT   X1 = CLEN                                                       BRIDGE      2494     A     
 BRIDGE                                                                                    BRIDGE      2495     A     
 BRIDGE    PCI      SUBR                                                                   BRIDGE      2496     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2497     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2498     A     
 BRIDGE             HX7    TP.INTR                                                         BRIDGE      2499     A     
 BRIDGE             HX6    TP.ARY                                                          BRIDGE      2500     A     
 BRIDGE             BX0    -X7+X6                                                          BRIDGE      2501     A     
 BRIDGE             PL     X0,PCI10    IF INTR AND NOT ARY[OPD]                            BRIDGE      2502     A     
 BRIDGE             RJ     FAR         FORM ARRAY (OR SCALAR) REFERENCE                    BRIDGE      2503     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2504     A     
 BRIDGE                                                                                    BRIDGE      2505     A     
 BRIDGE    PCI10    RJ     CEC         CHECK FOR EVALUATED // EXPRESSION                   BRIDGE      2506     A     
 BRIDGE             ZR     B7,EXIT.    IF CEC FILED ST. IN APLIST                          BRIDGE      2507     A     
 BRIDGE             RJ     FVS         FORM VARIABLE SUBSTRING                             BRIDGE      2508     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2509     A     
 BRIDGE    CEC      EJECT                                                                  BRIDGE      2510     A     
 BRIDGE   **        CEC - CHECK FOR EVALUATED CONCAT. EXPRESSION.                          BRIDGE      2511     A     
 BRIDGE   *                                                                                BRIDGE      2512     A     
 BRIDGE   *         ENTRY  (X1) = OPD                                                      BRIDGE      2513     A     
 BRIDGE   *                                                                                BRIDGE      2514     A     
 BRIDGE   *         EXIT   (B7) =  0 IF EXPRESSION ALREADY EVALUATED, ELSE 1               BRIDGE      2515     A     
 BRIDGE   *                (X1) = CLEN IF B7=0, ELSE (X1) = OPD                            BRIDGE      2516     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2073    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *         IF B7 = 0, ST. FILED IN APLIST.                                        BRIDGE      2517     A     
 BRIDGE                                                                                    BRIDGE      2518     A     
 BRIDGE    CEC      SUBR                                                                   BRIDGE      2519     A     
 BRIDGE             BX7    X1                                                              BRIDGE      2520     A     
 BRIDGE             LX7    -TP.ORDP                                                        BRIDGE      2521     A     
 BRIDGE             SA2    IND0                                                            BRIDGE      2522     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2523     A     
 BRIDGE             SA3    O$TST                                                           BRIDGE      2524     A     
 BRIDGE             BX6    -X0*X7                                                          BRIDGE      2525     A     
 BRIDGE             IX7    X6-X2       INT = ORD[OPD] - IND0                               BRIDGE      2526     A     
 BRIDGE             IX3    X3+X7                                                           BRIDGE      2527     A     
 BRIDGE             SA2    X3                                                              BRIDGE      2528     A     
 BRIDGE             =B7    1           FLAG NOT EVALUATED                                  BRIDGE      2529     A     
 BRIDGE             HX2    TS.FR                                                           BRIDGE      2530     A     
 BRIDGE             PL     X2,EXIT.    IF NOT FR[TST(INIT)]  */ NOT EVALUATED              BRIDGE      2531     A     
 BRIDGE             LX2    1+TS.FRP-TS.RNUP                                                BRIDGE      2532     A     
 BRIDGE             SX5    X2                                                              BRIDGE      2533     A     
 BRIDGE             LX2    TS.RNUP-TS.CLENP                                                BRIDGE      2534     A     
 BRIDGE             SX6    X2                                                              BRIDGE      2535     A     
 BRIDGE             LX5    WC.RAP                                                          BRIDGE      2536     A     
 BRIDGE             SA6    CECA                                                            BRIDGE      2537     A     
 BRIDGE             LX6    WC.CLENP                                                        BRIDGE      2538     A     
 BRIDGE             BX1    X5+X6                                                           BRIDGE      2539     A     
 BRIDGE             SA3    S=ST                                                            BRIDGE      2540     A     
 BRIDGE             RJ     PCA         FILE ST., ETC. INTO APLIST                          BRIDGE      2541     A     
 BRIDGE             SA1    CECA        LEN = CLEN                                          BRIDGE      2542     A     
 BRIDGE             =B7    0                                                               BRIDGE      2543     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2544     A     
 BRIDGE                                                                                    BRIDGE      2545     A     
 BRIDGE    CECA     BSS    1                                                               BRIDGE      2546     A     
 BRIDGE    ICE      EJECT                                                                  BRIDGE      2547     A     
 BRIDGE   **        ICE - ISSUE CHARACTER EXPRESSION.                                      BRIDGE      2548     A     
 BRIDGE   *         ICE IS CALLED TO GENERATE APLIST FOR OPERANDS OF CONCAT.               BRIDGE      2549     A     
 BRIDGE   *         STRING, IN *DE-PAREN'ED* ORDER.                                        BRIDGE      2550     A     
 BRIDGE   *                                                                                BRIDGE      2551     A     
 BRIDGE   *         ENTRY  (X1) = OPD, MUST BE CONCAT POINTER.                             BRIDGE      2552     A     
 BRIDGE   *                                                                                BRIDGE      2553     A     
 BRIDGE   *         EXIT   (X1) = CLEN                                                     BRIDGE      2554     A     
 BRIDGE                                                                                    BRIDGE      2555     A     
 BRIDGE    ICE      SUBR                                                                   BRIDGE      2556     A     
 BRIDGE             MX6    0           OLD = 0                                             BRIDGE      2557     A     
 BRIDGE             SA6    ICEA        LEN = 0                                             BRIDGE      2558     A     
 BRIDGE             MX2    0                                                               BRIDGE      2559     A     
 BRIDGE                                                                                    BRIDGE      2560     A     
 BRIDGE    ICE10    MX0    -TP.ORDL                                                        BRIDGE      2561     A     
 BRIDGE             BX6    X2          OLD                                                 BRIDGE      2562     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      2563     A     
 BRIDGE             BX5    -X0*X1                                                          BRIDGE      2564     A     
 BRIDGE             SA2    IND0                                                            BRIDGE      2565     A     
 BRIDGE             SA3    O$TST                                                           BRIDGE      2566     A     
 BRIDGE             IX7    X5-X2                                                           BRIDGE      2567     A     
 BRIDGE             SA7    ICEB        IND = ORD[OPD] - IND0                               BRIDGE      2568     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2074    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             IX2    X3+X7                                                           BRIDGE      2569     A     
 BRIDGE             SA2    X2                                                              BRIDGE      2570     A     
 BRIDGE             SA4    O$DTT                                                           BRIDGE      2571     A     
 BRIDGE             MX0    -TS.FROML                                                       BRIDGE      2572     A     
 BRIDGE             LX2    -TS.FROMP                                                       BRIDGE      2573     A     
 BRIDGE             BX2    X0*X2                                                           BRIDGE      2574     A     
 BRIDGE             BX7    X6+X2                                                           BRIDGE      2575     A     
 BRIDGE             LX7    TS.FROMP                                                        BRIDGE      2576     A     
 BRIDGE             SA7    A2          FROM[TST(IND)] = OLD                                BRIDGE      2577     A     
 BRIDGE             =B2    X4+OR.1OP                                                       BRIDGE      2578     A     
 BRIDGE             SA1    X7+B2       OPD = 1OP(DTT(IND))                                 BRIDGE      2579     A     
 BRIDGE                                                                                    BRIDGE      2580     A     
 BRIDGE    ICE20    BX7    X1                                                              BRIDGE      2581     A     
 BRIDGE             HX7    TP.CAT                                                          BRIDGE      2582     A     
 BRIDGE             SA2    ICEB        OLD = IND                                           BRIDGE      2583     A     
 BRIDGE             MI     X7,ICE10    IF CAT[OPD]  */ PRED. IS CONCAT.                    BRIDGE      2584     A     
 BRIDGE             RJ     PCI         ISSUE OPERAND                                       BRIDGE      2585     A     
 BRIDGE             SA2    ICEA                                                            BRIDGE      2586     A     
 BRIDGE             IX6    X2+X1                                                           BRIDGE      2587     A     
 BRIDGE             SA6    A2          LEN = LEN + CLEN                                    BRIDGE      2588     A     
 BRIDGE                                                                                    BRIDGE      2589     A     
 BRIDGE    ICE30    SA1    ICEB                                                            BRIDGE      2590     A     
 BRIDGE             SA2    O$TST                                                           BRIDGE      2591     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      2592     A     
 BRIDGE             SA4    X3                                                              BRIDGE      2593     A     
 BRIDGE             HX4    TS.RTV                                                          BRIDGE      2594     A     
 BRIDGE             MI     X4,ICE40    IF RIGHT VISITED [TST(IND)]                         BRIDGE      2595     A     
 BRIDGE                                                                                    BRIDGE      2596     A     
 BRIDGE   *         GO UP RIGHT BRANCH.                                                    BRIDGE      2597     A     
 BRIDGE                                                                                    BRIDGE      2598     A     
 BRIDGE             SA2    O$DTT                                                           BRIDGE      2599     A     
 BRIDGE             MX1    1                                                               BRIDGE      2600     A     
 BRIDGE             BX6    X4+X1                                                           BRIDGE      2601     A     
 BRIDGE             LX6    1+TS.RTVP                                                       BRIDGE      2602     A     
 BRIDGE             SB2    X2+OR.2OP                                                       BRIDGE      2603     A     
 BRIDGE             SA6    A4          RTV[TST(IND)] = 1                                   BRIDGE      2604     A     
 BRIDGE             SA1    B2+X6       OPD = 2OP(DTT(IND))                                 BRIDGE      2605     A     
 BRIDGE             EQ     ICE20                                                           BRIDGE      2606     A     
 BRIDGE                                                                                    BRIDGE      2607     A     
 BRIDGE   *         BACK DOWN TREE.                                                        BRIDGE      2608     A     
 BRIDGE                                                                                    BRIDGE      2609     A     
 BRIDGE    ICE40    MX0    1                                                               BRIDGE      2610     A     
 BRIDGE             BX6    -X0*X4                                                          BRIDGE      2611     A     
 BRIDGE             LX6    1+TS.RTVP                                                       BRIDGE      2612     A     
 BRIDGE             SA6    A4          RTV[TS(IND)] = 0                                    BRIDGE      2613     A     
 BRIDGE             LX4    1+TS.RTVP-TS.FROMP                                              BRIDGE      2614     A     
 BRIDGE             SX6    X4                                                              BRIDGE      2615     A     
 BRIDGE             SA6    ICEB        IND = FROM[TST(IND)]                                BRIDGE      2616     A     
 BRIDGE             NZ     X6,ICE30    IF IND NE 0                                         BRIDGE      2617     A     
 BRIDGE             SA1    ICEA        RETURN CLEN                                         BRIDGE      2618     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2619     A     
 BRIDGE                                                                                    BRIDGE      2620     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2075    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    ICEA     BSS    1                                                               BRIDGE      2621     A     
 BRIDGE    ICEB     BSS    1                                                               BRIDGE      2622     A     
 BRIDGE    SAE      EJECT                                                                  BRIDGE      2623     A     
 BRIDGE   **        SAE - STACK APLIST ENVIRONMENT.                                        BRIDGE      2624     A     
 BRIDGE                                                                                    BRIDGE      2625     A     
 BRIDGE    SAE      SUBR                                                                   BRIDGE      2626     A     
 BRIDGE             SA1    SAEA        SLEV = SLEV + 1                                     BRIDGE      2627     A     
 BRIDGE             =X6    X1+1                                                            BRIDGE      2628     A     
 BRIDGE             SA6    A1                                                              BRIDGE      2629     A     
 BRIDGE             SA1    CAPL                                                            BRIDGE      2630     A     
 BRIDGE             SB2    X6                                                              BRIDGE      2631     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2632     A     
 BRIDGE             SA6    A1+B2                                                           BRIDGE      2633     A     
 BRIDGE             SA1    PSAP                                                            BRIDGE      2634     A     
 BRIDGE             SA2    L$SAP                                                           BRIDGE      2635     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2636     A     
 BRIDGE             SA6    A1+B2       STACK CAPL,PSAP                                     BRIDGE      2637     A     
 BRIDGE             BX6    X2                                                              BRIDGE      2638     A     
 BRIDGE             SA6    A1          PSAP = L$SAP                                        BRIDGE      2639     A     
 BRIDGE             SA1    PAUD                                                            BRIDGE      2640     A     
 BRIDGE             SA2    L$AUD                                                           BRIDGE      2641     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2642     A     
 BRIDGE             SA6    A1+B2       STACK PAUD                                          BRIDGE      2643     A     
 BRIDGE             BX6    X2                                                              BRIDGE      2644     A     
 BRIDGE             SA6    A1          PAUD = L$AUD                                        BRIDGE      2645     A     
 BRIDGE             SA1    ATF                                                             BRIDGE      2646     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2647     A     
 BRIDGE             SA6    A1+B2       STACK ATF                                           BRIDGE      2648     A     
 BRIDGE             MX6    0                                                               BRIDGE      2649     A     
 BRIDGE             SA6    A1          ATF = 0                                             BRIDGE      2650     A     
 BRIDGE             MX1    1                                                               BRIDGE      2651     A     
 BRIDGE             ADDWRD APT,X1      ALLOC APLIST                                        BRIDGE      2652     A     
 BRIDGE             SX7    K=AP                                                            BRIDGE      2653     A     
 BRIDGE             LX7    TP.CPFXP                                                        BRIDGE      2654     A     
 BRIDGE             SX3    X3-1                                                            BRIDGE      2655     A     
 BRIDGE             LX3    TP.ORDP                                                         BRIDGE      2656     A     
 BRIDGE             BX7    X7+X3                                                           BRIDGE      2657     A     
 BRIDGE             SA7    CAPL        CAPL POINTS TO ALLOCATED APLIST HEAD                BRIDGE      2658     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2659     A     
 BRIDGE                                                                                    BRIDGE      2660     A     
 BRIDGE    SAEA     BSSZ   1                                                               BRIDGE      2661     A     
 BRIDGE    PAE      SPACE  4,8                                                             BRIDGE      2662     A     
 BRIDGE   **        PAE - POP APLIST ENVIRONMENT.                                          BRIDGE      2663     A     
 BRIDGE                                                                                    BRIDGE      2664     A     
 BRIDGE    PAE      SUBR                                                                   BRIDGE      2665     A     
 BRIDGE             SA1    SAEA                                                            BRIDGE      2666     A     
 BRIDGE             SX6    X1-1                                                            BRIDGE      2667     A     
 BRIDGE             SB2    X1                                                              BRIDGE      2668     A     
 BRIDGE             SA6    A1          SLEV = SLEV-1                                       BRIDGE      2669     A     
 BRIDGE             SA1    CAPL+B2                                                         BRIDGE      2670     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2671     A     
 BRIDGE             SA6    A1-B2                                                           BRIDGE      2672     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2076    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA1    PSAP+B2                                                         BRIDGE      2673     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2674     A     
 BRIDGE             SA6    A1-B2                                                           BRIDGE      2675     A     
 BRIDGE             SA1    PAUD+B2                                                         BRIDGE      2676     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2677     A     
 BRIDGE             SA6    A1-B2                                                           BRIDGE      2678     A     
 BRIDGE             SA1    ATF+B2                                                          BRIDGE      2679     A     
 BRIDGE             BX6    X1                                                              BRIDGE      2680     A     
 BRIDGE             SA6    A1-B2                                                           BRIDGE      2681     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2682     A     
 BRIDGE    FAR      EJECT                                                                  BRIDGE      2683     A     
 BRIDGE   **        FAR - FORM ARRAY REFERENCE.                                            BRIDGE      2684     A     
 BRIDGE   *         FAR WILL EMIT CODE AND ISSUE APLIST FOR SCALAR, CONSTANT-              BRIDGE      2685     A     
 BRIDGE   *         INDEX ARRAY ELEMENT OR VARIABLE-INDEX ARRAY REFERENCE.                 BRIDGE      2686     A     
 BRIDGE   *                                                                                BRIDGE      2687     A     
 BRIDGE   *         ENTRY  (X1) = OPD                                                      BRIDGE      2688     A     
 BRIDGE   *                                                                                BRIDGE      2689     A     
 BRIDGE   *         EXIT   (X1) = CLEN                                                     BRIDGE      2690     A     
 BRIDGE                                                                                    BRIDGE      2691     A     
 BRIDGE    FAR0     SA1    FARB                                                            BRIDGE      2692     A     
 BRIDGE             RJ     GCL         GET CHAR LEN                                        BRIDGE      2693     A     
 BRIDGE                                                                                    BRIDGE      2694     A     
 BRIDGE    FAR      SUBR                                                                   BRIDGE      2695     A     
 BRIDGE             BX5    X1                                                              BRIDGE      2696     A     
 BRIDGE             HX1    TP.INTR                                                         BRIDGE      2697     A     
 BRIDGE             PL     X1,FAR30    IF NOT INTR[OPD] */ CONSTANT INDEX                  BRIDGE      2698     A     
 BRIDGE             RJ     SAE         SET UP FOR GENERATED APLIST                         BRIDGE      2699     A     
 BRIDGE             SA2    O$TST                                                           BRIDGE      2700     A     
 BRIDGE             SA4    IND0                                                            BRIDGE      2701     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2702     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2703     A     
 BRIDGE             LX5    -TP.ORDP                                                        BRIDGE      2704     A     
 BRIDGE             SB2    X2                                                              BRIDGE      2705     A     
 BRIDGE             BX6    -X0*X5                                                          BRIDGE      2706     A     
 BRIDGE             IX6    X6-X4       INDA = ORD[OPD] - IND0                              BRIDGE      2707     A     
 BRIDGE             SA2    X6+B2                                                           BRIDGE      2708     A     
 BRIDGE             SA3    O$DTT                                                           BRIDGE      2709     A     
 BRIDGE             =B3    X2+OR.1OP                                                       BRIDGE      2710     A     
 BRIDGE             SA4    X3+B3                                                           BRIDGE      2711     A     
 BRIDGE             BX6    X2                                                              BRIDGE      2712     A     
 BRIDGE             SA6    FARA                                                            BRIDGE      2713     A     
 BRIDGE             SA2    O$SYM                                                           BRIDGE      2714     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2715     A     
 BRIDGE             LX4    -TP.ORDP                                                        BRIDGE      2716     A     
 BRIDGE             BX6    -X0*X4                                                          BRIDGE      2717     A     
 BRIDGE             SA6    FARB                                                            BRIDGE      2718     A     
 BRIDGE             LX4    TP.ORDP-1-TP.FPP                                                BRIDGE      2719     A     
 BRIDGE             MI     X4,FAR20    IF FP[OPD]                                          BRIDGE      2720     A     
 BRIDGE             LX4    1+TP.FPP                                                        BRIDGE      2721     A     
 BRIDGE             BX1    X4                                                              BRIDGE      2722     A     
 BRIDGE             RJ     SCB         SUBSUME BIAS AND RESOLVE EQUIV BIAS                 BRIDGE      2723     A     
 BRIDGE             BX1    X6                                                              BRIDGE      2724     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2077    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SX3    B7                                                              BRIDGE      2725     A     
 BRIDGE             RJ     PCA         FILE CONSTANT ADDRESS PORTION                       BRIDGE      2726     A     
 BRIDGE                                                                                    BRIDGE      2727     A     
 BRIDGE   *         PROCESS INDEX VARIABLE.                                                BRIDGE      2728     A     
 BRIDGE                                                                                    BRIDGE      2729     A     
 BRIDGE    FAR10    MX7    0                                                               BRIDGE      2730     A     
 BRIDGE             SA7    ATF         CLEAR OUT M.CHAR FROM PCA CALL                      BRIDGE      2731     A     
 BRIDGE             SA1    FARA                                                            BRIDGE      2732     A     
 BRIDGE             SA2    O$DTT                                                           BRIDGE      2733     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      2734     A     
 BRIDGE             SA1    X3+OR.2OP                                                       BRIDGE      2735     A     
 BRIDGE             RJ     PAF                                                             BRIDGE      2736     A     
 BRIDGE             EQ     FAR50                                                           BRIDGE      2737     A     
 BRIDGE                                                                                    BRIDGE      2738     A     
 BRIDGE   *         PROCESS FORMAL ARRAY.                                                  BRIDGE      2739     A     
 BRIDGE                                                                                    BRIDGE      2740     A     
 BRIDGE    FAR20    LX4    1+TP.FPP                                                        BRIDGE      2741     A     
 BRIDGE             BX1    X4                                                              BRIDGE      2742     A     
 BRIDGE             RJ     PCAF        FILE HEADER (CONSTANT PORTION) WORD                 BRIDGE      2743     A     
 BRIDGE             EQ     FAR10                                                           BRIDGE      2744     A     
 BRIDGE                                                                                    BRIDGE      2745     A     
 BRIDGE    FAR30    LX1    1+TP.INTRP-TP.ORDP                                              BRIDGE      2746     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2747     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE      2748     A     
 BRIDGE             SA6    FARB                                                            BRIDGE      2749     A     
 BRIDGE             LX1    TP.ORDP-1-TP.FPP                                                BRIDGE      2750     A     
 BRIDGE             MI     X1,FAR40    IF FP[OPD]                                          BRIDGE      2751     A     
 BRIDGE             LX1    1+TP.FPP                                                        BRIDGE      2752     A     
 BRIDGE             RJ     SCB         SUBSUME BIAS AND EQUIV BIAS                         BRIDGE      2753     A     
 BRIDGE             BX1    X6                                                              BRIDGE      2754     A     
 BRIDGE             SX3    B7                                                              BRIDGE      2755     A     
 BRIDGE             RJ     PCA                                                             BRIDGE      2756     A     
 BRIDGE             EQ     FAR0                                                            BRIDGE      2757     A     
 BRIDGE                                                                                    BRIDGE      2758     A     
 BRIDGE    FAR40    LX1    1+TP.FPP                                                        BRIDGE      2759     A     
 BRIDGE             BX5    X1                                                              BRIDGE      2760     A     
 BRIDGE             RJ     SAE         SETUP FOR APLIST GENERATION                         BRIDGE      2761     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2762     A     
 BRIDGE             RJ     PCAF                                                            BRIDGE      2763     A     
 BRIDGE             MX7    0                                                               BRIDGE      2764     A     
 BRIDGE             SA7    ATF                                                             BRIDGE      2765     A     
 BRIDGE             MX1    1                                                               BRIDGE      2766     A     
 BRIDGE             LX1    1+TP.SHRTP                                                      BRIDGE      2767     A     
 BRIDGE             RJ     PAF         FAKE CONSTANT ZERO INDEX                            BRIDGE      2768     A     
 BRIDGE                                                                                    BRIDGE      2769     A     
 BRIDGE    FAR50    SA1    =XS=FAR                                                         BRIDGE      2770     A     
 BRIDGE             RJ     CGF         EMIT CALL FAR                                       BRIDGE      2771     A     
 BRIDGE             RJ     PAE         RESTORE ENVIRONMENT                                 BRIDGE      2772     A     
 BRIDGE             RJ     SCA         STORE ADDRESS TO APLIST                             BRIDGE      2773     A     
 BRIDGE             =B7    1                                                               BRIDGE      2774     A     
 BRIDGE             SA3    FARB                                                            BRIDGE      2775     A     
 BRIDGE             MX2    0                                                               BRIDGE      2776     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2078    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             RJ     ECA         ENTER ITEM TO MAIN APLIST                           BRIDGE      2777     A     
 BRIDGE             EQ     FAR0                                                            BRIDGE      2778     A     
 BRIDGE                                                                                    BRIDGE      2779     A     
 BRIDGE    FARA     BSS    1                                                               BRIDGE      2780     A     
 BRIDGE    FARB     BSS    1                                                               BRIDGE      2781     A     
 BRIDGE    FVS      EJECT                                                                  BRIDGE      2782     A     
 BRIDGE   **        FVS - FORM VARIABLE SUBSCRIPT.                                         BRIDGE      2783     A     
 BRIDGE   *                                                                                BRIDGE      2784     A     
 BRIDGE   *         ENTRY  (X1) = OPD                                                      BRIDGE      2785     A     
 BRIDGE   *                                                                                BRIDGE      2786     A     
 BRIDGE   *         EXIT   (X1) = CLEN                                                     BRIDGE      2787     A     
 BRIDGE                                                                                    BRIDGE      2788     A     
 BRIDGE    FVS0     SA1    FVSC                                                            BRIDGE      2789     A     
 BRIDGE             RJ     GCL         CLEN = GCL(TAG)                                     BRIDGE      2790     A     
 BRIDGE             PL     X2,FVS      CHECK IF ASSUMED SIZE F.P.                          FC50651       41     A     
 BRIDGE             SA1    FVSF        IF SO, GET CONST. SUBST. SIZE                       FC50651       42     A     
 BRIDGE                                                                                    BRIDGE      2791     A     
 BRIDGE    FVS      SUBR                                                                   BRIDGE      2792     A     
 BRIDGE             SA3    IND0                                                            BRIDGE      2793     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2794     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      2795     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE      2796     A     
 BRIDGE             SA4    O$TST                                                           BRIDGE      2797     A     
 BRIDGE             IX6    X6-X3                                                           BRIDGE      2798     A     
 BRIDGE             IX2    X4+X6                                                           BRIDGE      2799     A     
 BRIDGE             SA2    X2                                                              BRIDGE      2800     A     
 BRIDGE             SX6    X2                                                              BRIDGE      2801     A     
 BRIDGE             SA6    FVSA        INDT IS SUBSTRING TURPLE POINTER                    BRIDGE      2802     A     
 BRIDGE             SA2    O$DTT                                                           BRIDGE      2803     A     
 BRIDGE             SB2    X6+OR.2OP                                                       BRIDGE      2804     A     
 BRIDGE             SA5    X2+B2                                                           BRIDGE      2805     A     
 BRIDGE             SB7    X2                                                              BRIDGE      2806     A     
 BRIDGE             LX5    -TP.ORDP                                                        BRIDGE      2807     A     
 BRIDGE             BX2    -X0*X5                                                          BRIDGE      2808     A     
 BRIDGE             IX5    X2-X3                                                           BRIDGE      2809     A     
 BRIDGE             IX5    X4+X5                                                           BRIDGE      2810     A     
 BRIDGE             SA2    X5                                                              BRIDGE      2811     A     
 BRIDGE             SX7    X2                                                              BRIDGE      2812     A     
 BRIDGE             SA7    FVSB        INDC IS COLON TURPLE POINTER                        BRIDGE      2813     A     
 BRIDGE             =A5    A5+OR.1OP-OR.2OP                                                BRIDGE      2814     A     
 BRIDGE             HX5    TP.INTR                                                         BRIDGE      2815     A     
 BRIDGE             MI     X5,FVS30    IF INTR[1OP(INDT)]  */ ARRAY SUBSTR.                BRIDGE      2816     A     
 BRIDGE             LX5    1+TP.INTRP-TP.ORDP                                              BRIDGE      2817     A     
 BRIDGE             BX6    -X0*X5                                                          BRIDGE      2818     A     
 BRIDGE             SA6    FVSC        TAG = ORD[1OP(INDT)]                                BRIDGE      2819     A     
 BRIDGE             SA2    =XS=FVS                                                         BRIDGE      2820     A     
 BRIDGE             LX5    TP.ORDP-1-TP.FPP                                                BRIDGE      2821     A     
 BRIDGE             BX7    X2                                                              BRIDGE      2822     A     
 BRIDGE             SA7    FVSD        ROUT = *FVS*                                        BRIDGE      2823     A     
 BRIDGE             MI     X5,FVS20    IF FP[1OP(INDT)]                                    BRIDGE      2824          I
          -FC50651
 BRIDGE             BX6    X5                                                              FC50651       43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2079    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA6    FVSF        SAVE FP FLAG                                        FC50651       44     A     
 BRIDGE             LX5    1+TP.FPP                                                        BRIDGE      2825     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2826     A     
 BRIDGE             RJ     SCB         SUBSUME BIAS AND EQV. BIAS                          BRIDGE      2827     A     
 BRIDGE             SA1    O$DTT                                                           BRIDGE      2828     A     
 BRIDGE             SA2    FVSB                                                            BRIDGE      2829     A     
 BRIDGE             =B6    X2+OR.1OP                                                       BRIDGE      2830     A     
 BRIDGE             SA3    X1+B6                                                           BRIDGE      2831     A     
 BRIDGE             =A4    A3+OR.2OP-OR.1OP                                                BRIDGE      2832     A     
 BRIDGE             BX2    X3*X4                                                           BRIDGE      2833     A     
 BRIDGE             HX2    TP.SHRT                                                         BRIDGE      2834     A     
 BRIDGE             PL     X2,FVS10    IF NOT CONSTANT SUBSTRING                           BRIDGE      2835     A     
 BRIDGE             LX3    -TP.BIASP                                                       BRIDGE      2836     A     
 BRIDGE             LX4    -TP.BIASP                                                       BRIDGE      2837     A     
 BRIDGE             SA5    FVSF        GET FP FLAG                                         FC50651       45     A     
 BRIDGE             MI     X5,FVS15    IF CONST. SUBST. OF F.P.                            FC50651       46     A     
 BRIDGE             MX7    0           FVSF CONTAINS FLAG, SET TO ZERO                     FC51566       10     A     
 BRIDGE             SA7    FVSF        TO AVOID USING FOR CONST. SUBST. SIZE               FC51566       11     A     
 BRIDGE             LX5    1+TP.FPP                                                        FC50651       47     A     
 BRIDGE             CALL   ECS         EVALUATE CONSTANT SUBSTRING                         BRIDGE      2838     A     
 BRIDGE             SA7    FVSC        CLEN = LEN(ECS)                                     BRIDGE      2839     A     
 BRIDGE             BX1    X6                                                              BRIDGE      2840     A     
 BRIDGE             SX3    B7                                                              BRIDGE      2841     A     
 BRIDGE             RJ     PCA         FILE CONSTANT SUBSTRING                             BRIDGE      2842     A     
 BRIDGE             SA1    FVSC                                                            BRIDGE      2843     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2844     A     
 BRIDGE                                                                                    BRIDGE      2845     A     
 BRIDGE    FVS10    BX5    X6                                                              BRIDGE      2846          I
          -FC50651
 BRIDGE    FVS10    SA5    FVSF        GET FP FLAG                                         FC50651       48     A     
 BRIDGE             MI     X5,FVS20    IF FP                                               FC50651       49     A     
 BRIDGE             BX5    X6                                                              FC50651       50     A     
 BRIDGE             RJ     SAE         SETUP FOR APLIST GENERATION                         BRIDGE      2847     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2848     A     
 BRIDGE             SX3    B7                                                              BRIDGE      2849     A     
 BRIDGE             RJ     PCA         FILE HEADER WORD                                    BRIDGE      2850     A     
 BRIDGE             EQ     FVS60                                                           BRIDGE      2851     A     
 BRIDGE                                                                                    FC50651       51     A     
 BRIDGE    FVS15    SB3    X3-1        EVALUATE SUBSTRING LENGTH                           FC50651       52     A     
 BRIDGE             SB2    X4                                                              FC50651       53     A     
 BRIDGE             SX7    B2-B3       LEN = UB - ( LB - 1 )                               FC50651       54     A     
 BRIDGE             SA7    FVSF        SAVE SUBSTRING LENGTH                               FC50651       55     A     
 BRIDGE                                                                                    BRIDGE      2852     A     
 BRIDGE    FVS20    RJ     SAE         SETUP FOR APLIST                                    BRIDGE      2853     A     
 BRIDGE             LX5    1+TP.FPP                                                        BRIDGE      2854     A     
 BRIDGE             BX1    X5                                                              BRIDGE      2855     A     
 BRIDGE             RJ     PCAF        FILE FP HEADER WORD                                 BRIDGE      2856     A     
 BRIDGE             EQ     FVS60                                                           BRIDGE      2857     A     
 BRIDGE                                                                                    BRIDGE      2858     A     
 BRIDGE    FVS30    SA2    =XS=FAS     ROUT = *FAS*                                        BRIDGE      2859     A     
 BRIDGE             BX7    X2                                                              BRIDGE      2860     A     
 BRIDGE             SA7    FVSD                                                            BRIDGE      2861     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2080    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             RJ     SAE                                                             BRIDGE      2862     A     
 BRIDGE             SA1    FVSA                                                            BRIDGE      2863     A     
 BRIDGE             SA3    O$DTT                                                           FC51210        7     A     
 BRIDGE             SB7    X3                                                              FC51210        8     A     
 BRIDGE             =B2    B7+OR.1OP                                                       BRIDGE      2864     A     
 BRIDGE             SA3    X1+B2       DTT(1OP,INDT)                                       BRIDGE      2865     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      2866     A     
 BRIDGE             SA4    IND0                                                            BRIDGE      2867     A     
 BRIDGE             LX3    -TP.ORDP                                                        BRIDGE      2868     A     
 BRIDGE             BX6    -X0*X3                                                          BRIDGE      2869     A     
 BRIDGE             SA1    O$TST                                                           BRIDGE      2870     A     
 BRIDGE             IX3    X6-X4                                                           BRIDGE      2871     A     
 BRIDGE             IX6    X1+X3                                                           BRIDGE      2872     A     
 BRIDGE             SA2    X6                                                              BRIDGE      2873     A     
 BRIDGE             SA3    X2+B2                                                           BRIDGE      2874     A     
 BRIDGE             LX3    -TP.ORDP                                                        BRIDGE      2875     A     
 BRIDGE             BX6    -X0*X3                                                          BRIDGE      2876     A     
 BRIDGE             SA6    FVSC                                                            BRIDGE      2877     A     
 BRIDGE             SX7    X2                                                              BRIDGE      2878     A     
 BRIDGE             SA7    FVSE        INDA IS POINTER TO ARRAY TURPLE                     BRIDGE      2879     A     
 BRIDGE             LX3    TP.ORDP-1-TP.FPP                                                BRIDGE      2880     A     
 BRIDGE             MI     X3,FVS40    IF FP ARRAY SUBSTRING                               BRIDGE      2881     A     
 BRIDGE             LX3    1+TP.FPP                                                        BRIDGE      2882     A     
 BRIDGE             BX1    X3                                                              BRIDGE      2883     A     
 BRIDGE             RJ     SCB         EVALUATE CONSTANT PORTION                           BRIDGE      2884     A     
 BRIDGE             BX1    X6                                                              BRIDGE      2885     A     
 BRIDGE             SX3    B7                                                              BRIDGE      2886     A     
 BRIDGE             RJ     PCA         FILE HEADER                                         BRIDGE      2887     A     
 BRIDGE             EQ     FVS50                                                           BRIDGE      2888     A     
 BRIDGE                                                                                    BRIDGE      2889     A     
 BRIDGE    FVS40    LX3    1+TP.FPP                                                        BRIDGE      2890     A     
 BRIDGE             BX1    X3                                                              BRIDGE      2891     A     
 BRIDGE             RJ     PCAF        FILE FP HEADER WORD                                 BRIDGE      2892     A     
 BRIDGE                                                                                    BRIDGE      2893     A     
 BRIDGE    FVS50    MX7    0                                                               BRIDGE      2894     A     
 BRIDGE             SA7    ATF                                                             BRIDGE      2895     A     
 BRIDGE             SA1    O$DTT                                                           BRIDGE      2896     A     
 BRIDGE             SA2    FVSE                                                            BRIDGE      2897     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      2898     A     
 BRIDGE             SA1    X3+OR.2OP                                                       BRIDGE      2899     A     
 BRIDGE             RJ     PAF         FILE INDEX                                          BRIDGE      2900     A     
 BRIDGE                                                                                    BRIDGE      2901     A     
 BRIDGE    FVS60    MX7    0                                                               BRIDGE      2902     A     
 BRIDGE             SA7    ATF                                                             BRIDGE      2903     A     
 BRIDGE             SA1    O$DTT                                                           BRIDGE      2904     A     
 BRIDGE             SA2    FVSB                                                            BRIDGE      2905     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      2906     A     
 BRIDGE             =A1    X3+OR.1OP                                                       BRIDGE      2907     A     
 BRIDGE             RJ     PAF         FILE SUBSTRING START                                BRIDGE      2908     A     
 BRIDGE             SA1    O$DTT                                                           BRIDGE      2909     A     
 BRIDGE             SA2    FVSB                                                            BRIDGE      2910     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      2911     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2081    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             =A1    X3+OR.2OP                                                       BRIDGE      2912     A     
 BRIDGE             RJ     PAF         FILE SUBSTRING END                                  BRIDGE      2913     A     
 BRIDGE             SA1    FVSD                                                            BRIDGE      2914     A     
 BRIDGE             RJ     CGF         EMIT CALL ROUT                                      BRIDGE      2915     A     
 BRIDGE             RJ     PAE         RESTORE APLIST ENVIRONMENT                          BRIDGE      2916     A     
 BRIDGE             RJ     SCA         STORE X6 TO APLIST                                  BRIDGE      2917     A     
 BRIDGE             =B7    1                                                               BRIDGE      2918     A     
 BRIDGE             SA3    FVSC                                                            BRIDGE      2919     A     
 BRIDGE             MX2    0                                                               BRIDGE      2920     A     
 BRIDGE             RJ     ECA         ENTER ITEM INTO MAIN (USER) APLIST                  BRIDGE      2921     A     
 BRIDGE             =X7    1                                                               FC5A243      168     A     
 BRIDGE             SA7    FVSUKL      MARK *UNKNOWN LENGTH* EXPRESSION                    FC5A243      169     A     
 BRIDGE             EQ     FVS0                                                            BRIDGE      2922     A     
 BRIDGE                                                                                    BRIDGE      2923     A     
 BRIDGE    FVSA     BSS    1                                                               BRIDGE      2924     A     
 BRIDGE    FVSB     BSS    1                                                               BRIDGE      2925     A     
 BRIDGE    FVSC     BSS    1                                                               BRIDGE      2926     A     
 BRIDGE    FVSD     BSS    1                                                               BRIDGE      2927     A     
 BRIDGE    FVSE     BSS    1                                                               BRIDGE      2928     A     
 BRIDGE    FVSF     BSS    1                                                               FC50651       56     A     
 BRIDGE    FVSUKL   BSS    1                                                               FC5A243      170     A     
 BRIDGE    GCL      SPACE  4,8                                                             BRIDGE      2929     A     
 BRIDGE   **        GCL - GET CHARACTER LENGTH.                                            BRIDGE      2930     A     
 BRIDGE   *                                                                                BRIDGE      2931     A     
 BRIDGE   *         ENTRY  X1 = ORD, SYMTAB ORDINAL                                        BRIDGE      2932     A     
 BRIDGE   *                                                                                BRIDGE      2933     A     
 BRIDGE   *         EXIT   X1 = WC.CLEN[ORD]                                               BRIDGE      2934     A     
 BRIDGE   *                X3 = VD. TAG IF CTYP=1, ELSE 0                                  BRIDGE      2935     A     
 BRIDGE                                                                                    BRIDGE      2936     A     
 BRIDGE    GCL      SUBR                                                                   BRIDGE      2937     A     
 BRIDGE             LX2    B1,X1                                                           BRIDGE      2938     A     
 BRIDGE             SA4    O$SYM                                                           BRIDGE      2939     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      2940     A     
 BRIDGE             MX0    -WC.CLENL                                                       BRIDGE      2941     A     
 BRIDGE             SB2    X4+WC.W                                                         BRIDGE      2942     A     
 BRIDGE             SA2    B2+X3                                                           BRIDGE      2943     A     
 BRIDGE             LX2    -WC.CLENP                                                       BRIDGE      2944     A     
 BRIDGE             BX1    -X0*X2                                                          BRIDGE      2945     A     
 BRIDGE             SA4    =XS$VD                                                          BRIDGE      2946     A     
 BRIDGE             LX2    WC.CLENP-1-WC.CTYPP                                             BRIDGE      2947     A     
 BRIDGE             AX2    59                                                              BRIDGE      2948     A     
 BRIDGE             BX3    X2*X4                                                           BRIDGE      2949     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2950     A     
 BRIDGE   *CALL COMFSCB                                                                    BRIDGE      2951     A     
 BRIDGE    CHAR     TITLE  SPECIAL PROCESSING ROUTINES (*CALL*)                            BRIDGE      2952     A     
 BRIDGE    PCA      EJECT                                                                  BRIDGE      2953     A     
 BRIDGE   **        PROCESS CHARACTER APLIST.                                              BRIDGE      2954     A     
 BRIDGE   *                                                                                BRIDGE      2955     A     
 BRIDGE   *         ENTRY  (X1) = WCA                                                      BRIDGE      2956     A     
 BRIDGE   *                (X3) = SYMTAB INDEX                                             BRIDGE      2957     A     
 BRIDGE                                                                                    BRIDGE      2958     A     
 BRIDGE    PCA      SUBR                                                                   BRIDGE      2959     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2082    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA2    =XS=CON                                                         BRIDGE      2960     A     
 BRIDGE             =X6    1                                                               BRIDGE      2961     A     
 BRIDGE             LX6    WC.RBP                                                          BRIDGE      2962     A     
 BRIDGE             BX0    X2-X3                                                           BRIDGE      2963     A     
 BRIDGE             NZ     X0,PCA5     IF NOT CON. REF                                     BRIDGE      2964     A     
 BRIDGE             BX1    X6+X1       SET RB = 1 TO PREVENT SQZ AGAINST NON-CON           BRIDGE      2965     A     
 BRIDGE                                                                                    BRIDGE      2966     A     
 BRIDGE    PCA5     BX5    X3                                                              BRIDGE      2967     A     
 BRIDGE             ADDWRD CAC,X1                                                          BRIDGE      2968     A     
 BRIDGE             SA4    X2                                                              BRIDGE      2969     A     
 BRIDGE             SB6    A6                                                              BRIDGE      2970     A     
 BRIDGE             SB3    X3-1                                                            BRIDGE      2971     A     
 BRIDGE                                                                                    BRIDGE      2972     A     
 BRIDGE    PCA10    BX0    X6-X4                                                           BRIDGE      2973     A     
 BRIDGE             =A4    A4+1                                                            BRIDGE      2974     A     
 BRIDGE             NZ     X0,PCA10    IF NOT HIT                                          BRIDGE      2975     A     
 BRIDGE             SB2    A4-B6                                                           BRIDGE      2976     A     
 BRIDGE             GT     B2,PCA20    IF HIT IS NEW ENTRY                                 BRIDGE      2977     A     
 BRIDGE                                                                                    BRIDGE      2978     A     
 BRIDGE   *         REMOVE ADDED ENTRY AS IT IS ALREADY IN CAC.                            BRIDGE      2979     A     
 BRIDGE                                                                                    BRIDGE      2980     A     
 BRIDGE             SX7    B3                                                              BRIDGE      2981     A     
 BRIDGE             SA7    A3          L$CAC = L$CAC - 1                                   BRIDGE      2982     A     
 BRIDGE             =B6    X2+1                                                            BRIDGE      2983     A     
 BRIDGE             SB3    A4-B6                                                           BRIDGE      2984     A     
 BRIDGE                                                                                    BRIDGE      2985     A     
 BRIDGE    PCA20    =B7    0           NOT STORE TO APLIST                                 BRIDGE      2986     A     
 BRIDGE             BX3    X5                                                              BRIDGE      2987     A     
 BRIDGE             SX2    B3          BIAS                                                BRIDGE      2988     A     
 BRIDGE             RJ     ECA         ENTER INTO APLIST                                   BRIDGE      2989     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      2990     A     
 BRIDGE    ECA      SPACE  4,8                                                             BRIDGE      2991     A     
 BRIDGE   **        ECA - ENTER CHARACTER APLIST INTO SAP AND BUMP                         BRIDGE      2992     A     
 BRIDGE   *         CAPL BIAS.                                                             BRIDGE      2993     A     
 BRIDGE   *                                                                                BRIDGE      2994     A     
 BRIDGE   *         ENTRY  (X2) = BIAS                                                     BRIDGE      2995     A     
 BRIDGE   *                (X3) = SYMBOL TABLE ORDINAL                                     BRIDGE      2996     A     
 BRIDGE   *                B7 = 1 IFF STORE TO APLIST ITEM, ELSE 0                         BRIDGE      2997     A     
 BRIDGE                                                                                    BRIDGE      2998     A     
 BRIDGE    ECA      SUBR                                                                   BRIDGE      2999     A     
 BRIDGE             SA5    ATF                                                             BRIDGE      3000     A     
 BRIDGE             SX4    M.CHAR                                                          BRIDGE      3001     A     
 BRIDGE             CLAS=  X1,AT,MODE                                                      BRIDGE      3002     A     
 BRIDGE             LX4    AT.MODEP                                                        BRIDGE      3003     A     
 BRIDGE             MX0    1                                                               BRIDGE      3004     A     
 BRIDGE             BX5    -X1*X5                                                          BRIDGE      3005     A     
 BRIDGE             LX0    1+AT.CRP                                                        BRIDGE      3006     A     
 BRIDGE             BX4    X5+X4                                                           BRIDGE      3007     A     
 BRIDGE             BX7    X0+X4                                                           BRIDGE      3008     A     
 BRIDGE             LX0    AT.CHARP-AT.CRP                                                 BRIDGE      3009     A     
 BRIDGE             BX7    X7+X0                                                           BRIDGE      3010     A     
 BRIDGE             SA7    A5          MARK ATF AS CHAR, CLASS REF, AND TYPE=CHAR          BRIDGE      3011     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2083    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             RJ     AIT         ADD TO APLIST                                       BRIDGE      3012     A     
 BRIDGE             SA1    ATF                                                             BRIDGE      3013     A     
 BRIDGE             HX1    AT.LEN                                                          BRIDGE      3014     A     
 BRIDGE             MI     X1,EXIT.    IF PROCESSING ITEM LENGTH                           BRIDGE      3015     A     
 BRIDGE             SA2    CAPL                                                            BRIDGE      3016     A     
 BRIDGE             =X1    1                                                               BRIDGE      3017     A     
 BRIDGE             LX1    TP.BIASP                                                        BRIDGE      3018     A     
 BRIDGE             IX7    X1+X2                                                           BRIDGE      3019     A     
 BRIDGE             SA7    A2          BUMP APLIST POSITION COUNTER                        BRIDGE      3020     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      3021     A     
 BRIDGE    PCAF     EJECT                                                                  BRIDGE      3022     A     
 BRIDGE   **        PCAF - ENTER FP CHAR ITEM APLIST.                                      BRIDGE      3023     A     
 BRIDGE                                                                                    BRIDGE      3024     A     
 BRIDGE    PCAF     SUBR                                                                   BRIDGE      3025     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3026     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      3027     A     
 BRIDGE             BX3    -X0*X1                                                          BRIDGE      3028     A     
 BRIDGE             LX1    TP.ORDP-TP.BIASP                                                BRIDGE      3029     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      3030     A     
 BRIDGE             BX2    -X0*X1                                                          BRIDGE      3031     A     
 BRIDGE             =B7    0           NOT STORE TO APLIST                                 BRIDGE      3032     A     
 BRIDGE             RJ     ECA         ENTER APLIST ITEM                                   BRIDGE      3033     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      3034     A     
 BRIDGE    IAP      EJECT                                                                  BRIDGE      3035     A     
 BRIDGE   **        IAP - INTRINSIC FUNCTION APLIST PROCESSOR.                             BRIDGE      3036     A     
 BRIDGE   *         LOAD OPERAND INTO APPROPRIATE HARD REGISTER.                           BRIDGE      3037     A     
 BRIDGE                                                                                    BRIDGE      3038     A     
 BRIDGE    P=IAP    BSSENT 0                                                               BRIDGE      3039     A     
 BRIDGE    IAP1     =A4    B5+OR.1OP                                                       BRIDGE      3040     A     
 BRIDGE             SA1    LOWER                                                           BRIDGE      3041     A     
 BRIDGE             SB6    X1                                                              BRIDGE      3042     A     
 BRIDGE             RJ     LOP         LOAD OPERAND                                        BRIDGE      3043     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      3044     A     
 BRIDGE             LX6    R1.RJP                                                          BRIDGE      3045     A     
 BRIDGE             MX7    0                                                               BRIDGE      3046     A     
 BRIDGE             LX1    R1.RIP                                                          BRIDGE      3047     A     
 BRIDGE             SB7    OC.XMT                                                          BRIDGE      3048     A     
 BRIDGE             BX5    X6+X1                                                           BRIDGE      3049     A     
 BRIDGE             RJ     IRI         XMT(RNEXT,OPERAND)                                  BRIDGE      3050     A     
 BRIDGE             MX0    -R1.RIL                                                         BRIDGE      3051     A     
 BRIDGE             BX6    -X0*X6                                                          BRIDGE      3052     A     
 BRIDGE             SB7    OC.RS                                                           BRIDGE      3053     A     
 BRIDGE             SA2    ARGREG                                                          BRIDGE      3054     A     
 BRIDGE             SA1    LOWER                                                           BRIDGE      3055     A     
 BRIDGE             IX4    X2+X1                                                           BRIDGE      3056     A     
 BRIDGE             LX4    R1.SOP                                                          BRIDGE      3057     A     
 BRIDGE             MX7    0                                                               BRIDGE      3058     A     
 BRIDGE             LX6    R1.RIP                                                          BRIDGE      3059     A     
 BRIDGE             BX5    X4+X6                                                           BRIDGE      3060     A     
 BRIDGE             RJ     IRI         ISSUE REGISTER STORE X1,2,3 OR 4                    BRIDGE      3061     A     
 BRIDGE                                                                                    BRIDGE      3062     A     
 BRIDGE             SA2    B5                                                              BRIDGE      3063     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2084    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA1    LOWER                                                           BRIDGE      3064     A     
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      3065     A     
 BRIDGE             NZ     X1,IAP2     IF PROCESSING LOWER                                 BRIDGE      3066     A     
 BRIDGE             =X7    1                                                               BRIDGE      3067     A     
 BRIDGE             LX2    -TH.MODEP                                                       BRIDGE      3068     A     
 BRIDGE             SA7    A1          LOWER = 1                                           BRIDGE      3069     A     
 BRIDGE             BX0    -X0*X2                                                          BRIDGE      3070     A     
 BRIDGE             SB7    X0-M.DBL                                                        BRIDGE      3071     A     
 BRIDGE             ZR     B7,IAP1     IF DOUBLE                                           BRIDGE      3072     A     
 BRIDGE             EQ     B7,B1,IAP1  IF COMPLEX                                          BRIDGE      3073     A     
 BRIDGE                                                                                    BRIDGE      3074     A     
 BRIDGE    IAP2     SA1    ARGREG                                                          BRIDGE      3075     A     
 BRIDGE             MX6    0                                                               BRIDGE      3076     A     
 BRIDGE             SA6    LOWER       LOWER = 0                                           BRIDGE      3077     A     
 BRIDGE             SX7    X1+2                                                            BRIDGE      3078     A     
 BRIDGE             SA7    A1          ARGREG = ARGREG + 2                                 BRIDGE      3079     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3080     A     
 BRIDGE                                                                                    BRIDGE      3081     A     
 BRIDGE    ARGREG   CON    X1.                                                             BRIDGE      3082     A     
 BRIDGE    SUB      EJECT                                                                  BRIDGE      3083     A     
 BRIDGE   **        SUB - USER FUNCTION/SUBROUTINE PROCESSOR.                              BRIDGE      3084     A     
 BRIDGE                                                                                    BRIDGE      3085     A     
 BRIDGE    P=LIBF   BSSENT 0                                                               BRIDGE      3086     A     
 BRIDGE             SX7    1                                                               BRIDGE      3087     A     
 BRIDGE             SA7    FUNA        LIBRARY CALL-BY-REF FUNCTIONS                       BRIDGE      3088     A     
 BRIDGE    P=FUN    BSSENT 0                                                               BRIDGE      3089     A     
 BRIDGE             =A1    B5+OR.OPR                                                       BRIDGE      3090     A     
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      3091     A     
 BRIDGE             LX1    -TH.MODEP                                                       BRIDGE      3092     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE      3093     A     
 BRIDGE             SX0    X6-M.CHAR                                                       BRIDGE      3094     A     
 BRIDGE             NZ     X0,FUN10    IF MODE[TURP(1)] NE CHAR                            BRIDGE      3095     A     
 BRIDGE             SA1    ETTA                                                            BRIDGE      3096     A     
 BRIDGE             SA2    INDEX                                                           BRIDGE      3097     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3098     A     
 BRIDGE             SA3    O$TST                                                           BRIDGE      3099     A     
 BRIDGE             IX4    X2+X3                                                           BRIDGE      3100     A     
 BRIDGE             SA6    X4          TST(INDEX) = ETTA                                   BRIDGE      3101     A     
 BRIDGE             EQ     P=SUB       TO AVOID DFR CALL                                   BRIDGE      3102     A     
 BRIDGE                                                                                    BRIDGE      3103     A     
 BRIDGE    FUN10    MX7    1                                                               BRIDGE      3104     A     
 BRIDGE             SA7    PFUN                                                            BRIDGE      3105     A     
 BRIDGE             MX6    0                                                               BRIDGE      3106     A     
 BRIDGE             EQ     SUBFUN                                                          BRIDGE      3107     A     
 BRIDGE                                                                                    BRIDGE      3108     A     
 BRIDGE    P=LIB    BSSENT 0           STOP AND PAUSE                                      BRIDGE      3109     A     
 BRIDGE             SX7    1                                                               BRIDGE      3110          I
          -FC50067
 BRIDGE             SX7    -1                                                              FC50067        5     A     
 BRIDGE             SA7    FUNA        FLAG LIBRARY ROUTINE                                BRIDGE      3111     A     
 BRIDGE                                                                                    BRIDGE      3112     A     
 BRIDGE    P=SUB    BSSENT 0                                                               BRIDGE      3113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2085    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             MX7    0                                                               BRIDGE      3114     A     
 BRIDGE             SA7    PFUN                                                            BRIDGE      3115     A     
 BRIDGE             MX6    0                                                               BRIDGE      3116     A     
 BRIDGE                                                                                    BRIDGE      3117     A     
 BRIDGE    SUBFUN   SA1    L$SAP                                                           BRIDGE      3118     A     
 BRIDGE             SA2    PSAP                                                            BRIDGE      3119     A     
 BRIDGE             IX2    X1-X2                                                           BRIDGE      3120     A     
 BRIDGE             SA1    =XCO.ARGF                                                       BRIDGE      3121     A     
 BRIDGE             SA6    CPLF                                                            BRIDGE      3122     A     
 BRIDGE             SA6    ATF         FLAG NON-IO ROUTINE                                 BRIDGE      3123     A     
 BRIDGE             ZR     X2,SUB3     IF NARGS[TURP(3)] EQ 0                              BRIDGE      3124     A     
 BRIDGE             NZ     X1,SUB6     IF NO TERMINATOR REQUESTED                          BRIDGE      3125     A     
 BRIDGE                                                                                    BRIDGE      3126     A     
 BRIDGE    SUB5     SA1    FUNA                                                            BRIDGE      3127     A     
 BRIDGE             NZ     X1,SUB6     IF NOT USER ROUTINE                                 BRIDGE      3128     A     
 BRIDGE             ADDWRD SAP,B0                                                          BRIDGE      3129     A     
 BRIDGE                                                                                    BRIDGE      3130     A     
 BRIDGE    SUB6     RJ     CPL         PROCESS PARAMETER LIST                              BRIDGE      3131     A     
 BRIDGE                                                                                    BRIDGE      3132     A     
 BRIDGE    SUB1     SA1    FUNA                                                            BRIDGE      3133     A     
 BRIDGE             SB7    OC.RJ6                                                          BRIDGE      3134     A     
 BRIDGE             ZR     X1,SUB15    IF USER FUNCTION                                    BRIDGE      3135          I
          -FC50067
 BRIDGE             PL     X1,SUB15    IF NOT CALL BY VALUE                                FC50067        6     A     
 BRIDGE             SB7    OC.RJ3                                                          BRIDGE      3136     A     
 BRIDGE                                                                                    BRIDGE      3137     A     
 BRIDGE    SUB15    SA2    CSN                                                             BRIDGE      3138     A     
 BRIDGE             =X7    X1+1        FI[RT] = 1/2  */ USER/BEF                           BRIDGE      3139          I
          -FC50586
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3140          I
          -FC50586
 BRIDGE             =X7    2           INDICATE BEF                                        FC50586        6     A     
 BRIDGE             MI     X1,SUB20    IF BEF                                              FC50586        7     A     
 BRIDGE             =X7    1           INDICATE USER FUNCTION [STYLE]                      FC50586        8     A     
 BRIDGE                                                                                    FC50586        9     A     
 BRIDGE    SUB20    MX0    -TP.ORDL                                                        FC50586       10     A     
 BRIDGE             SA1    B5+B1                                                           BRIDGE      3141     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      3142     A     
 BRIDGE             BX3    -X0*X1                                                          BRIDGE      3143     A     
 BRIDGE             LX2    R1.CAP                                                          BRIDGE      3144     A     
 BRIDGE             LX3    R1.IHP                                                          BRIDGE      3145     A     
 BRIDGE             BX5    X2+X3                                                           BRIDGE      3146     A     
 BRIDGE             LX7    FI.FTP                                                          BRIDGE      3147     A     
 BRIDGE             SA1    CPLF                                                            BRIDGE      3148     A     
 BRIDGE             BX7    X7+X1                                                           BRIDGE      3149     A     
 BRIDGE             RJ     IRI         ISSUE RJ                                            BRIDGE      3150     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      3151     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3152     A     
 BRIDGE             SA6    LXR                                                             BRIDGE      3153     A     
 BRIDGE             SA1    PFUN                                                            BRIDGE      3154     A     
 BRIDGE             ZR     X1,SUB2     IF NOT FUNCTION                                     BRIDGE      3155     A     
 BRIDGE             RJ     DFR         DEFINE FUNCTION RESULT                              BRIDGE      3156     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2086    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE      3157     A     
 BRIDGE    SUB2     BSS    0                                                               BRIDGE      3158     A     
 BRIDGE             MX6    0                                                               BRIDGE      3159     A     
 BRIDGE             SA6    FAF         FLAG NEXT APLIST AS FIRST OF LIST                   BRIDGE      3160     A     
 BRIDGE             SA6    FUNA        RESET TO USER FUNCTION                              BRIDGE      3161     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3162     A     
 BRIDGE                                                                                    BRIDGE      3163     A     
 BRIDGE    SUB3     SA4    FUNA                                                            BRIDGE      3164     A     
 BRIDGE             BX1    X1+X4                                                           BRIDGE      3165     A     
 BRIDGE             NZ     X1,SUB1     IF NO TERMINATOR NEEDED                             BRIDGE      3166     A     
 BRIDGE                                                                                    BRIDGE      3167     A     
 BRIDGE   *         ALLOCATE PARAMETER LIST.                                               BRIDGE      3168     A     
 BRIDGE                                                                                    BRIDGE      3169     A     
 BRIDGE             SX7    K=AP                                                            BRIDGE      3170     A     
 BRIDGE             LX7    TP.CPFXP                                                        BRIDGE      3171     A     
 BRIDGE             SA4    L$APT                                                           BRIDGE      3172     A     
 BRIDGE             LX4    TP.ORDP                                                         BRIDGE      3173     A     
 BRIDGE             BX7    X4+X7                                                           BRIDGE      3174     A     
 BRIDGE             SA7    CAPL                                                            BRIDGE      3175     A     
 BRIDGE             MX1    1                                                               BRIDGE      3176     A     
 BRIDGE             ADDWRD APT,X1                                                          BRIDGE      3177     A     
 BRIDGE             EQ     SUB5                                                            BRIDGE      3178     A     
 BRIDGE                                                                                    BRIDGE      3179     A     
 BRIDGE    PFUN     BSSZ   1           FUNCTION/SUBROUTINE FLAG                            BRIDGE      3180     A     
 BRIDGE    PAPL     BSSZ   1           LENGTH OF APL BEFORE THIS LIST                      BRIDGE      3181     A     
 BRIDGE    PIOA     BSSZ   1           LEN OF IOA BEF. THIS (MUST FOLLOW PAPL)             BRIDGE      3182     A     
 BRIDGE    FUNA     BSSZ   1           USER/BEF FLAG                                       BRIDGE      3183     A     
 BRIDGE    LXR      BSSZ   1           LAST ENCOUNTERED EXTERNAL REF.                      BRIDGE      3184     A     
 BRIDGE    IOF      EJECT                                                                  BRIDGE      3185     A     
 BRIDGE   **        P=IOF - I/O FUNCTION PROCESSOR.                                        BRIDGE      3186     A     
 BRIDGE                                                                                    BRIDGE      3187     A     
 BRIDGE    P=IOF    BSSENT 0                                                               BRIDGE      3188     A     
 BRIDGE                                                                                    BRIDGE      3189     A     
 BRIDGE   *         ADD I/O APLIST TERMINATOR.                                             BRIDGE      3190     A     
 BRIDGE                                                                                    BRIDGE      3191     A     
 BRIDGE             SA1    FAF                                                             BRIDGE      3192     A     
 BRIDGE             NZ     X1,IOF10    IF PARAMETERS ALREADY PROCESSED                     BRIDGE      3193     A     
 BRIDGE             SX7    K=IO                                                            BRIDGE      3194     A     
 BRIDGE             LX7    TP.CPFXP                                                        BRIDGE      3195     A     
 BRIDGE             SA4    =XL$IOT                                                         BRIDGE      3196     A     
 BRIDGE             LX4    TP.ORDP                                                         BRIDGE      3197     A     
 BRIDGE             BX7    X4+X7                                                           BRIDGE      3198     A     
 BRIDGE             SA7    CAPL                                                            BRIDGE      3199     A     
 BRIDGE             MX1    1                                                               BRIDGE      3200     A     
 BRIDGE             ADDWRD IOT,X1                                                          BRIDGE      3201     A     
 BRIDGE                                                                                    BRIDGE      3202     A     
 BRIDGE    IOF10    ALLOC  SAP,2                                                           BRIDGE      3203     A     
 BRIDGE             SA1    B5+OR.2OP                                                       BRIDGE      3204     A     
 BRIDGE             LX1    59-TP.BIASP                                                     BRIDGE      3205     A     
 BRIDGE             AX1    59                                                              BRIDGE      3206     A     
 BRIDGE             MX7    0                                                               BRIDGE      3207     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2087    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA6    X2+B6                                                           BRIDGE      3209     A     
 BRIDGE             SA7    A6+B1                                                           BRIDGE      3210     A     
 BRIDGE             =X7    1                                                               BRIDGE      3211     A     
 BRIDGE             SA7    ATF         FLAG IO ROUTINE                                     BRIDGE      3212     A     
 BRIDGE             RJ     CPL                                                             BRIDGE      3213     A     
 BRIDGE             SB7    OC.RJ6                                                          BRIDGE      3214     A     
 BRIDGE             SA2    CSN                                                             BRIDGE      3215     A     
 BRIDGE             SA4    =XS=BUFIN                                                       BRIDGE      3216     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3217     A     
 BRIDGE             SA1    B5+B1                                                           BRIDGE      3218     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      3219     A     
 BRIDGE             BX3    -X0*X1                                                          BRIDGE      3220     A     
 BRIDGE             SX7    3                                                               BRIDGE      3221     A     
 BRIDGE             BX4    X4-X3                                                           BRIDGE      3222     A     
 BRIDGE             NZ     X4,IOF20    IF NOT PROCESSING BUFFER IN                         BRIDGE      3223     A     
 BRIDGE             =X7    1           FAKE USER FUNCTION CALL TO KILL COMMON              BRIDGE      3224     A     
 BRIDGE                                                                                    BRIDGE      3225     A     
 BRIDGE    IOF20    LX2    R1.CAP                                                          BRIDGE      3226     A     
 BRIDGE             LX3    R1.IHP                                                          BRIDGE      3227     A     
 BRIDGE             BX5    X2+X3                                                           BRIDGE      3228     A     
 BRIDGE             LX7    FI.FTP      FI[R2] = 3                                          BRIDGE      3229     A     
 BRIDGE             SA1    CPLF                                                            BRIDGE      3230     A     
 BRIDGE             BX7    X7+X1                                                           BRIDGE      3231     A     
 BRIDGE             RJ     IRI         ISSUE RJ                                            BRIDGE      3232     A     
 BRIDGE                                                                                    BRIDGE      3233     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      3234     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3235     A     
 BRIDGE             SA6    LXR                                                             BRIDGE      3236     A     
 BRIDGE             MX6    0                                                               BRIDGE      3237     A     
 BRIDGE             SA6    FAF                                                             BRIDGE      3238     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3239     A     
 BRIDGE   INF       EJECT                                                                  BRIDGE      3240     A     
 BRIDGE   **        P=INF - PROCESS INTRINSIC (EXTERNAL) TURPLE.                           BRIDGE      3241     A     
 BRIDGE                                                                                    BRIDGE      3242     A     
 BRIDGE    P=INF    BSSENT 0                                                               BRIDGE      3243     A     
 BRIDGE             SB7    OC.RJ3                                                          BRIDGE      3244     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3245     A     
 BRIDGE             SA1    B5+B1                                                           BRIDGE      3246     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      3247     A     
 BRIDGE             BX5    -X0*X1                                                          BRIDGE      3248     A     
 BRIDGE             LX5    R1.IHP                                                          BRIDGE      3249     A     
 BRIDGE             SA2    O$SYM                                                           BRIDGE      3250     A     
 BRIDGE             LX0    B1,X5                                                           BRIDGE      3251     A     
 BRIDGE             IX7    X0+X5                                                           BRIDGE      3252     A     
 BRIDGE             IX0    X2+X7                                                           BRIDGE      3253     A     
 BRIDGE             SA2    X0+WC.W                                                         BRIDGE      3254     A     
 BRIDGE             MX0    -WC.BRPL                                                        BRIDGE      3255     A     
 BRIDGE             LX2    -WC.BRPP                                                        BRIDGE      3256     A     
 BRIDGE             BX0    -X0*X2                                                          BRIDGE      3257     A     
 BRIDGE             LX0    FI.REGPP                                                        BRIDGE      3258     A     
 BRIDGE             =X7    2                                                               BRIDGE      3259     A     
 BRIDGE             LX7    FI.FTP      FI[R2] = 2                                          BRIDGE      3260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2088    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX7    X0+X7       REGP[R2] = BRP[WC(ORD[OP1])]                        BRIDGE      3261     A     
 BRIDGE             RJ     IRI         ISSUE RJ                                            BRIDGE      3262     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      3263     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3264     A     
 BRIDGE             SA6    LXR                                                             BRIDGE      3265     A     
 BRIDGE             RJ     DFR         DEFINE FUNCTION RESULT                              BRIDGE      3266     A     
 BRIDGE                                                                                    BRIDGE      3267     A     
 BRIDGE             SX6    X1.                                                             BRIDGE      3268     A     
 BRIDGE             SA6    ARGREG      ARGREG = X1. FOR NEXT INF                           BRIDGE      3269     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3270     A     
 BRIDGE                                                                                    BRIDGE      3271     A     
 BRIDGE    DFR      EJECT                                                                  BRIDGE      3272     A     
 BRIDGE   **        DFR - DEFINE FUNCTION RESULT.                                          BRIDGE      3273     A     
 BRIDGE   *                                                                                BRIDGE      3274     A     
 BRIDGE   *         ISSUE DEF X6 AND DEF X7 IF DOUBLE.  STORE RESULT(S) IN                 BRIDGE      3275     A     
 BRIDGE   *         STATEMENT TEMPORARIES AND FILE TEMP ORDINALS IN TST.                   BRIDGE      3276     A     
 BRIDGE                                                                                    BRIDGE      3277     A     
 BRIDGE    P=FRRET  BSSENT 0           RETURN FROM SKELETON                                BRIDGE      3278     A     
 BRIDGE    DFR      SUBR                                                                   BRIDGE      3279     A     
 BRIDGE             SX6    =XV=DFRS                                                        BRIDGE      3280     A     
 BRIDGE             SA2    B5                                                              BRIDGE      3281     A     
 BRIDGE             MX0    -TH.MODEL                                                       BRIDGE      3282     A     
 BRIDGE             LX2    -TH.MODEP                                                       BRIDGE      3283     A     
 BRIDGE             BX0    -X0*X2                                                          BRIDGE      3284     A     
 BRIDGE             SB2    X0-M.DBL                                                        BRIDGE      3285     A     
 BRIDGE             ZR     B2,DFR3     IF MODE(TURP(1)) .EQ. M.DBL                         BRIDGE      3286     A     
 BRIDGE             NE     B2,B1,SUB.RET     IF MODE(TURP(1)) .NE. M.CPLX                  BRIDGE      3287     A     
 BRIDGE                                                                                    BRIDGE      3288     A     
 BRIDGE    DFR3     =X6    X6+1        SELECT V=DFRD                                       BRIDGE      3289     A     
 BRIDGE             EQ     SUB.RET                                                         BRIDGE      3290     A     
 BRIDGE                                                                                    BRIDGE      3291     A     
 BRIDGE    LOWER    BSSZ   1           FLAG FOR PROCESSING UPPER (0) / LOWER (1)           BRIDGE      3292     A     
 BRIDGE    LRJ      SPACE  4,8                                                             BRIDGE      3293     A     
 BRIDGE   **        LRJ - INSERT LINE NUMBER INTO PREVIOUS RJ6.                            BRIDGE      3294     A     
 BRIDGE                                                                                    BRIDGE      3295     A     
 BRIDGE    P=LRJ    BSSENT 0                                                               BRIDGE      3296     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      3297     A     
 BRIDGE             SA2    O$TXT                                                           BRIDGE      3298     A     
 BRIDGE             SA4    CSN                                                             BRIDGE      3299     A     
 BRIDGE             SB2    X1-4                                                            BRIDGE      3300     A     
 BRIDGE             SA3    X2+B2                                                           BRIDGE      3301     A     
 BRIDGE             LX4    R1.CAP                                                          BRIDGE      3302     A     
 BRIDGE             BX7    X3+X4                                                           BRIDGE      3303     A     
 BRIDGE             SA7    A3          CA[R2] = CSN                                        BRIDGE      3304     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3305     A     
 BRIDGE    CPL      EJECT                                                                  BRIDGE      3306     A     
 BRIDGE   **        CPL - CHAIN PARAMETER LIST TO UDT AND PROCESS APLIST.                  BRIDGE      3307     A     
 BRIDGE                                                                                    BRIDGE      3308     A     
 BRIDGE    CPL      SUBR                                                                   BRIDGE      3309     A     
 BRIDGE             MX0    1                                                               BRIDGE      3310     A     
 BRIDGE             LX0    1+IH.LDP                                                        BRIDGE      3311     A     
 BRIDGE             SA5    LL.TXT                                                          BRIDGE      3312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2089    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA2    CAPL                                                            BRIDGE      3313     A     
 BRIDGE             MX3    -TP.ORDL                                                        BRIDGE      3314     A     
 BRIDGE             LX2    -TP.ORDP                                                        BRIDGE      3315     A     
 BRIDGE             BX2    -X3*X2                                                          BRIDGE      3316     A     
 BRIDGE             SA3    ATF                                                             BRIDGE      3317     A     
 BRIDGE             SX3    X3+K=AP                                                         BRIDGE      3318     A     
 BRIDGE             LX3    IH.IP                                                           BRIDGE      3319     A     
 BRIDGE             BX7    X2+X3                                                           BRIDGE      3320     A     
 BRIDGE             LX5    R1.RIP                                                          BRIDGE      3321     A     
 BRIDGE             SB7    OC.LD                                                           BRIDGE      3322     A     
 BRIDGE             LX7    IH.IHP                                                          BRIDGE      3323     A     
 BRIDGE             BX7    X7+X0                                                           BRIDGE      3324     A     
 BRIDGE             RJ     IRI         ISSUE LOAD APLIST                                   BRIDGE      3325     A     
 BRIDGE             SB7    OC.RS                                                           BRIDGE      3326     A     
 BRIDGE             SX0    X1.                                                             BRIDGE      3327     A     
 BRIDGE             LX0    R1.SOP                                                          BRIDGE      3328     A     
 BRIDGE             BX5    X0+X5                                                           BRIDGE      3329     A     
 BRIDGE             MX7    0                                                               BRIDGE      3330     A     
 BRIDGE             SA7    CPLF                                                            BRIDGE      3331     A     
 BRIDGE             RJ     IRI         ISSUE RS X1                                         BRIDGE      3332     A     
 BRIDGE             SX1    B4                                                              BRIDGE      3333     A     
 BRIDGE             SX0    B5                                                              BRIDGE      3334     A     
 BRIDGE             LX1    18                                                              BRIDGE      3335     A     
 BRIDGE             BX7    X1+X0                                                           BRIDGE      3336     A     
 BRIDGE             SA7    CPLA                                                            BRIDGE      3337     A     
 BRIDGE                                                                                    BRIDGE      3338     A     
 BRIDGE   *         PROCESS APLIST.  ATTEMPT TO SQUEEZE AGAINST EARLIER LIST.              BRIDGE      3339     A     
 BRIDGE                                                                                    BRIDGE      3340     A     
 BRIDGE             RJ     PPL                                                             BRIDGE      3341     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      3342     A     
 BRIDGE             ZR     X2,CPL10    IF OPT NE 2                                         BRIDGE      3343     A     
 BRIDGE                                                                                    BRIDGE      3344     A     
 BRIDGE   *         SUBMIT APLIST INFO TO GLOBAL OPTIMIZER.                                BRIDGE      3345     A     
 BRIDGE                                                                                    BRIDGE      3346     A     
 BRIDGE             SA4    L$AUD                                                           BRIDGE      3347     A     
 BRIDGE             SA5    PAUD                                                            BRIDGE      3348     A     
 BRIDGE             IX4    X4-X5       INDEX = PAUD                                        BRIDGE      3349     A     
 BRIDGE             SB2    X4          LEN = L$AUD-PAUD                                    BRIDGE      3350     A     
 BRIDGE             ZR     B2,CPL10    IF LEN  = 0                                         BRIDGE      3351     A     
 BRIDGE             SX6    O$AUD                                                           BRIDGE      3352     A     
 BRIDGE             CALL   CG$CPL                                                          BRIDGE      3353     A     
 BRIDGE             LX1    FI.INDXP                                                        BRIDGE      3354     A     
 BRIDGE             SX0    X0+1S10                                                         BRIDGE      3355     A     
 BRIDGE             LX0    FI.LENP                                                         BRIDGE      3356     A     
 BRIDGE             BX6    X0+X1                                                           BRIDGE      3357     A     
 BRIDGE             SA6    CPLF                                                            BRIDGE      3358     A     
 BRIDGE             SA1    PAUD                                                            BRIDGE      3359     A     
 BRIDGE             BX7    X1                                                              BRIDGE      3360     A     
 BRIDGE             SA7    L$AUD                                                           BRIDGE      3361     A     
 BRIDGE                                                                                    BRIDGE      3362     A     
 BRIDGE    CPL10    SA2    CPLA                                                            BRIDGE      3363     A     
 BRIDGE             SB5    X2                                                              BRIDGE      3364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2090    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             AX2    18                                                              BRIDGE      3365     A     
 BRIDGE             SB4    X2                                                              BRIDGE      3366     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      3367     A     
 BRIDGE                                                                                    BRIDGE      3368     A     
 BRIDGE    CPLA     BSS    1                                                               BRIDGE      3369     A     
 BRIDGE    CPLF     BSS    1                                                               BRIDGE      3370     A     
 BRIDGE    ATF      BSSZ   3                                                               BRIDGE      3371     A     
 BRIDGE    PAUD     BSSZ   3                                                               BRIDGE      3372     A     
 BRIDGE    PSAP     BSSZ   3                                                               BRIDGE      3373     A     
 BRIDGE    CAPL     BSSZ   3                                                               BRIDGE      3374     A     
 BRIDGE    FAF      BSSZ   1                                                               BRIDGE      3375     A     
 BRIDGE    PPL      SPACE  4,8                                                             BRIDGE      3376     A     
 BRIDGE   **        PPL - PROCESS PARAMETER LIST                                           BRIDGE      3377     A     
 BRIDGE   *                SETUP *API* TABLE ENTRY DESCRIBING THE PARAM LIST.              BRIDGE      3378     A     
 BRIDGE   *                THEN TRY TO REDUCE THE LIST IF IT IS COMMON WITH THE            BRIDGE      3379     A     
 BRIDGE   *                TAIL END OF ANOTHER APLIST.                                     BRIDGE      3380     A     
 BRIDGE   *                                                                                BRIDGE      3381     A     
 BRIDGE   *                (X6) = FLAG, 0 IF USER FUNCTION, 1 IF IO                        BRIDGE      3382     A     
 BRIDGE                                                                                    BRIDGE      3383     A     
 BRIDGE   **        AI. - APLIST INDEX TABLE ENTRY FORMAT                                  BRIDGE      3384     A     
 BRIDGE             DESCRIBE AI.,60                                                        BRIDGE      3385     A     
 BRIDGE    EQV      DEFINE 1                                                               BRIDGE      3386     A     
 BRIDGE    BASE     DEFINE 1           BASE MEMBER OF A CLASS OF EQUIV APLISTS             BRIDGE      3387     A     
 BRIDGE             DEFINE 4                                                               BRIDGE      3388     A     
 BRIDGE    LINK     DEFINE 18                                                              BRIDGE      3389     A     
 BRIDGE    LEN      DEFINE 18                                                              BRIDGE      3390     A     
 BRIDGE    INDX     DEFINE 18                                                              BRIDGE      3391     A     
 BRIDGE                                                                                    BRIDGE      3392     A     
 BRIDGE    BIAS     DEQU   LEN                                                             BRIDGE      3393     A     
 BRIDGE    ORD      DEQU   INDX                                                            BRIDGE      3394     A     
 BRIDGE                                                                                    BRIDGE      3395     A     
 BRIDGE    PPL0     SX7    B4+         PAP = L.TAB                                         BRIDGE      3396     A     
 BRIDGE                                                                                    BRIDGE      3397     A     
 BRIDGE             SA2    ATF                                                             BRIDGE      3398     A     
 BRIDGE             SA7    PAPL+X2     P_TAB = PAP                                         BRIDGE      3399     A     
 BRIDGE                                                                                    BRIDGE      3400     A     
 BRIDGE    PPLE     SA1    ATF                                                             BRIDGE      3401     A     
 BRIDGE             SA2    O$APT+X1                                                        BRIDGE      3402     A     
 BRIDGE             SA3    L$APT+X1                                                        BRIDGE      3403     A     
 BRIDGE             SA4    PPLA                                                            BRIDGE      3404     A     
 BRIDGE             SX6    X3-1        L$TAB = L$TAB-1                                     BRIDGE      3405     A     
 BRIDGE             IX0    X2+X6                                                           BRIDGE      3406     A     
 BRIDGE             IX4    X2+X4                                                           BRIDGE      3407     A     
 BRIDGE             SA1    X0                                                              BRIDGE      3408     A     
 BRIDGE             BX7    X1                                                              BRIDGE      3409     A     
 BRIDGE             SA7    X4          TAB(ORD[CAPL]) = TAB(L$TAB+1)                       BRIDGE      3410     A     
 BRIDGE             SA6    A3                                                              BRIDGE      3411     A     
 BRIDGE                                                                                    BRIDGE      3412     A     
 BRIDGE    PPL      SUBR                                                                   BRIDGE      3413     A     
 BRIDGE             SA4    CAPL                                                            BRIDGE      3414     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3415     A     
 BRIDGE             LX4    -TP.ORDP                                                        BRIDGE      3416     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2091    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX6    -X0*X4                                                          BRIDGE      3417     A     
 BRIDGE             SA6    PPLA        ORDL = ORD[CAPL]                                    BRIDGE      3418     A     
 BRIDGE             SA2    ATF                                                             BRIDGE      3419     A     
 BRIDGE             MX1    1                                                               BRIDGE      3420     A     
 BRIDGE             BX0    X2                                                              BRIDGE      3421     A     
 BRIDGE             ADDWRD APT+X0,X1   SET APT(L$APT) TO *EQV*                             BRIDGE      3422     A     
 BRIDGE             SA4    L$SAP                                                           BRIDGE      3423     A     
 BRIDGE             SA5    PSAP                                                            BRIDGE      3424     A     
 BRIDGE             IX1    X4-X5                                                           BRIDGE      3425     A     
 BRIDGE             ALLOC  APL+X0,X1                                                       BRIDGE      3426     A     
 BRIDGE             SA4    O$SAP                                                           BRIDGE      3427     A     
 BRIDGE             SX3    X2+B6                                                           BRIDGE      3428     A     
 BRIDGE             IX2    X4+X5                                                           BRIDGE      3429     A     
 BRIDGE             MOVE   X1,X2,X3                                                        BRIDGE      3430     A     
 BRIDGE             BX6    X5                                                              BRIDGE      3431     A     
 BRIDGE             SA6    L$SAP                                                           BRIDGE      3432     A     
 BRIDGE             SA4    L$APT+X0                                                        BRIDGE      3433     A     
 BRIDGE             SB7    X4-1                                                            BRIDGE      3434     A     
 BRIDGE             SA1    =XO$APT+X0                                                      BRIDGE      3435     A     
 BRIDGE             SA2    PAPL+X0                                                         BRIDGE      3436     A     
 BRIDGE             SA3    =XL$APL+X0                                                      BRIDGE      3437     A     
 BRIDGE             SA0    X1                                                              BRIDGE      3438     A     
 BRIDGE             IX7    X3-X2                                                           BRIDGE      3439     A     
 BRIDGE             SB5    X7          LN = LEN[N]   */ LENGTH OF THIS LIST                BRIDGE      3440     A     
 BRIDGE             LX7    AI.LENP                                                         BRIDGE      3441     A     
 BRIDGE             SB4    X3          IN = INDX[N]  */ INDEX TO LWA+1                     BRIDGE      3442     A     
 BRIDGE             LX3    AI.INDXP                                                        BRIDGE      3443     A     
 BRIDGE             BX6    X7+X3                                                           BRIDGE      3444     A     
 BRIDGE             SA6    A0+B7       API(N) = AINFO(0,0,L.APL-PAPL,L.APL)                BRIDGE      3445     A     
 BRIDGE                                                                                    BRIDGE      3446     A     
 BRIDGE   *         NOW SEARCH THE ACCUMULATED APLISTS AND ATTEMPT TO ELIMINATE            BRIDGE      3447     A     
 BRIDGE   *         ANY COMMON APLISTS                                                     BRIDGE      3448     A     
 BRIDGE                                                                                    BRIDGE      3449     A     
 BRIDGE             SA4    =XO$APL+X0                                                      BRIDGE      3450     A     
 BRIDGE             SA5    X4-1        BASE = O.APL - 1                                    BRIDGE      3451     A     
 BRIDGE             SB6    B7          J = N                                               BRIDGE      3452     A     
 BRIDGE                                                                                    BRIDGE      3453     A     
 BRIDGE    PPL1     SB6    B6-B1       J = J - 1                                           BRIDGE      3454     A     
 BRIDGE             SA1    A0+B6       AJ = API(J)                                         BRIDGE      3455     A     
 BRIDGE             ZR     B6,PPL0     IF J = 0                                            BRIDGE      3456     A     
 BRIDGE             LX1    59-AI.EQVP                                                      BRIDGE      3457     A     
 BRIDGE             MI     X1,PPL1     IF EQV[AJ]                                          BRIDGE      3458     A     
 BRIDGE                                                                                    BRIDGE      3459     A     
 BRIDGE             LX1    1+AI.EQVP-AI.INDXP                                              BRIDGE      3460     A     
 BRIDGE             SB2    X1          IJ = INDX[AJ]                                       BRIDGE      3461     A     
 BRIDGE             LX1    AI.INDXP-AI.LENP                                                BRIDGE      3462     A     
 BRIDGE             SB3    X1          LJ = LEN[AJ]                                        BRIDGE      3463     A     
 BRIDGE             SX0    X1                                                              BRIDGE      3464     A     
 BRIDGE             SX7    B6                                                              BRIDGE      3465     A     
 BRIDGE             LT     B3,B5,PPL2  (LS,EI) = IF( LJ < LN )  (LJ,J) ELSE (LN,N)         BRIDGE      3466     A     
 BRIDGE             SX0    B5                                                              BRIDGE      3467     A     
 BRIDGE             SX7    B7                                                              BRIDGE      3468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2092    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE      3469     A     
 BRIDGE    PPL2     SA2    A5+B4       SN = BASE + IN                                      BRIDGE      3470     A     
 BRIDGE             SA3    A5+B2       SI = BASE + IJ                                      BRIDGE      3471     A     
 BRIDGE             BX4    -X0         M = -LS                                             BRIDGE      3472     A     
 BRIDGE                                                                                    BRIDGE      3473     A     
 BRIDGE    PPL3     BX5    X2-X3                                                           BRIDGE      3474     A     
 BRIDGE             SX4    X4+1        M = M + 1                                           BRIDGE      3475     A     
 BRIDGE             NZ     X5,PPL7     IF SN NE SJ                                         BRIDGE      3476     A     
 BRIDGE             MI     X5,PPL7     DITTO                                               BRIDGE      3477     A     
 BRIDGE             SA2    A2-B1       SN = SN - 1                                         BRIDGE      3478     A     
 BRIDGE             SA3    A3-B1       SJ = SJ - 1                                         BRIDGE      3479     A     
 BRIDGE             NZ     X4,PPL3     IF M " 0                                            BRIDGE      3480     A     
 BRIDGE                                                                                    BRIDGE      3481     A     
 BRIDGE   *         EQUIVALENCE THE SHORTER LIST TO THE LONGER ONE                         BRIDGE      3482     A     
 BRIDGE                                                                                    BRIDGE      3483     A     
 BRIDGE    PPL3A    SX5    B6+B7                                                           BRIDGE      3484     A     
 BRIDGE             MX6    1                                                               BRIDGE      3485     A     
 BRIDGE             LX6    1+AI.EQVP                                                       BRIDGE      3486     A     
 BRIDGE             IX4    X5-X7       ORD[API(EI)] = J + N - EI                           BRIDGE      3487     A     
 BRIDGE             SX3    B3+B5                                                           BRIDGE      3488     A     
 BRIDGE             LX4    AI.ORDP                                                         BRIDGE      3489     A     
 BRIDGE             LX0    1                                                               BRIDGE      3490     A     
 BRIDGE             IX2    X3-X0       BIAS[API(EI)] = MAX(LJ,LN) - LS                     BRIDGE      3491     A     
 BRIDGE             LX2    AI.BIASP                                                        BRIDGE      3492     A     
 BRIDGE             IX4    X2+X4                                                           BRIDGE      3493     A     
 BRIDGE             BX6    X4+X6                                                           BRIDGE      3494     A     
 BRIDGE             SB6    X7                                                              BRIDGE      3495     A     
 BRIDGE             SA6    A0+B6                                                           BRIDGE      3496     A     
 BRIDGE             SX7    B4-B5                     (X7) = PAPL                           BRIDGE      3497     A     
 BRIDGE             LX4    -AI.ORDP    K = ORD[API(EI)]  */ ORD OF BASE OF CLASS           BRIDGE      3498     A     
 BRIDGE             SB5    X4                                                              BRIDGE      3499     A     
 BRIDGE             SA4    A0+B5                                                           BRIDGE      3500     A     
 BRIDGE             SX6    B1                                                              BRIDGE      3501     A     
 BRIDGE             LX6    AI.BASEP                                                        BRIDGE      3502     A     
 BRIDGE             BX6    X6+X4       BASE[API(K)] = 1  */ MARK AS *BASE*                 BRIDGE      3503     A     
 BRIDGE             SA6    A4                                                              BRIDGE      3504     A     
 BRIDGE             NE     B6,B7,PPL4  IF EI " N     */ ELIMINATED NOT LAST                BRIDGE      3505     A     
 BRIDGE             SA2    ATF                                                             BRIDGE      3506     A     
 BRIDGE             SA7    L$APL+X2                                                        BRIDGE      3507     A     
 BRIDGE             EQ     PPLE                                                            BRIDGE      3508     A     
 BRIDGE                                                                                    BRIDGE      3509     A     
 BRIDGE   *         LOWER ONE IS SHORTER, MOVE APLISTS ABOVE IT DOWN                       BRIDGE      3510     A     
 BRIDGE   *         RESET ORD OF EQUIVALENCED APLIST TO ORD OF ULTIMATE POSITION,          BRIDGE      3511     A     
 BRIDGE   *         AS FINAL APLIST INDEX WILL BE MOVED AT PPL EXIT.                       BRIDGE      3512     A     
 BRIDGE                                                                                    BRIDGE      3513     A     
 BRIDGE    PPL4     SA1    A0+B6                                                           BRIDGE      3514     A     
 BRIDGE             SA2    PPLA                                                            BRIDGE      3515     A     
 BRIDGE             MX0    -AI.ORDL                                                        BRIDGE      3516     A     
 BRIDGE             LX1    -AI.ORDP                                                        BRIDGE      3517     A     
 BRIDGE             BX3    X0*X1                                                           BRIDGE      3518     A     
 BRIDGE             BX6    X2+X3                                                           BRIDGE      3519     A     
 BRIDGE             SA6    A1          ORD[API(EI)] = ORDL                                 BRIDGE      3520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2093    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SB6    B1          K = 1                                               BRIDGE      3521     A     
 BRIDGE             SX4    B3                                                              BRIDGE      3522     A     
 BRIDGE             LX4    AI.INDXP                                                        BRIDGE      3523     A     
 BRIDGE             SA3    ATF                                                             BRIDGE      3524     A     
 BRIDGE             SA1    L$APL+X3                                                        BRIDGE      3525     A     
 BRIDGE                                                                                    BRIDGE      3526     A     
 BRIDGE    PPL5     SA2    A0+B6       AK = O.API-1 + K                                    BRIDGE      3527     A     
 BRIDGE             SB6    B6+1        K = K + 1                                           BRIDGE      3528     A     
 BRIDGE             LX2    -AI.INDXP                                                       BRIDGE      3529     A     
 BRIDGE             SB3    X2                                                              BRIDGE      3530     A     
 BRIDGE             LX1    AI.INDXP-1-AI.EQVP                                              BRIDGE      3531     A     
 BRIDGE             MI     X2,PPL6     IF EQV[AK]                                          BRIDGE      3532     A     
 BRIDGE             SB3    B3-B2                                                           BRIDGE      3533     A     
 BRIDGE             MI     B3,PPL6     IF INDX[AK] LT IJ                                   BRIDGE      3534     A     
 BRIDGE             IX6    X2-X4                                                           BRIDGE      3535     A     
 BRIDGE             SA6    A2+         INDX[AK] = INDX[AK] - LEN[AJ]                       BRIDGE      3536     A     
 BRIDGE    PPL6     LE     B6,B7,PPL5  IF K @ N                                            BRIDGE      3537     A     
 BRIDGE                                                                                    BRIDGE      3538     A     
 BRIDGE             LX4    -AI.INDXP                                                       BRIDGE      3539     A     
 BRIDGE             IX6    X1-X4       L.TAB = L.TAB - LEN[AJ]                             BRIDGE      3540     A     
 BRIDGE             SA6    A1                                                              BRIDGE      3541     A     
 BRIDGE             SA6    PAPL+X3     P TAB = L.TAB                                       BRIDGE      3542     A     
 BRIDGE             SB6    A5+B1                                                           BRIDGE      3543     A     
 BRIDGE             SX2    B6+B2                                                           BRIDGE      3544     A     
 BRIDGE             IX3    X2-X4                                                           BRIDGE      3545     A     
 BRIDGE             MOVE   B4-B2,X2,X3 MOVE( IN-IJ , O.APL+IJ , O.APL+IJ-LJ )              BRIDGE      3546     A     
 BRIDGE             EQ     PPLE                                                            BRIDGE      3547     A     
 BRIDGE                                                                                    BRIDGE      3548     A     
 BRIDGE   *         TRY FOR NON-TERMINAL MATCH TO LARGER APLIST.                           BRIDGE      3549     A     
 BRIDGE                                                                                    BRIDGE      3550     A     
 BRIDGE    PPL7     LT     B3,B5,PPL1  IF LJ LT LN                                         BRIDGE      3551     A     
 BRIDGE             SA2    A5+B4       SN = BASE + IN                                      BRIDGE      3552     A     
 BRIDGE             SA3    A5+B2       SI = BASE + IJ                                      BRIDGE      3553     A     
 BRIDGE             SX4    -B5         M = -LN                                             BRIDGE      3554     A     
 BRIDGE                                                                                    BRIDGE      3555     A     
 BRIDGE    PPL8     BX5    X2-X3                                                           BRIDGE      3556     A     
 BRIDGE             SX4    X4+1        M = M + 1                                           BRIDGE      3557     A     
 BRIDGE             NZ     X5,PPL9     IF NOT MATCH  */ TRY ONE UP IN LIST                 BRIDGE      3558     A     
 BRIDGE             MI     X5,PPL9     DITTO                                               BRIDGE      3559     A     
 BRIDGE             SA2    A2-B1       SN = SN - 1                                         BRIDGE      3560     A     
 BRIDGE             SA3    A3-B1       SJ = SJ - 1                                         BRIDGE      3561     A     
 BRIDGE             NZ     X4,PPL8     IF M NE 0                                           BRIDGE      3562     A     
 BRIDGE             EQ     PPL3A       MATCH SUCCESSFUL                                    BRIDGE      3563     A     
 BRIDGE                                                                                    BRIDGE      3564     A     
 BRIDGE    PPL9     SB3    B3-B1       LJ = LJ -  1                                        BRIDGE      3565     A     
 BRIDGE             SB2    B2-B1       IJ = IJ - 1                                         BRIDGE      3566     A     
 BRIDGE             EQ     PPL7                                                            BRIDGE      3567     A     
 BRIDGE                                                                                    BRIDGE      3568     A     
 BRIDGE    PPLA     BSS    1                                                               BRIDGE      3569     A     
 BRIDGE    SCA      EJECT                                                                  BRIDGE      3570     A     
 BRIDGE   **        SCA - STORE CHARACTER APLIST.                                          BRIDGE      3571     A     
 BRIDGE   *         ISSUES STORE OF X6 FROM SUPPORT ROUTINE TO LOWER                       BRIDGE      3572     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2094    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *         LEVEL APLIST WORD.                                                     BRIDGE      3573     A     
 BRIDGE                                                                                    BRIDGE      3574     A     
 BRIDGE    P=SCRET  BSSENT 0                                                               BRIDGE      3575     A     
 BRIDGE                                                                                    BRIDGE      3576     A     
 BRIDGE    SCA      SUBR                                                                   BRIDGE      3577     A     
 BRIDGE             SA1    CAPL                                                            BRIDGE      3578     A     
 BRIDGE             SA2    ATF                                                             BRIDGE      3579     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3580     A     
 BRIDGE             MX0    -1                                                              BRIDGE      3581     A     
 BRIDGE             SA6    GOVG        GPBUF(1) = CAPL                                     BRIDGE      3582     A     
 BRIDGE             LX2    -AT.LEV0P                                                       BRIDGE      3583     A     
 BRIDGE             BX1    -X0*X2                                                          BRIDGE      3584     A     
 BRIDGE             LX2    AT.LEV0P-AT.NULP                                                BRIDGE      3585     A     
 BRIDGE             BX3    -X0*X2                                                          BRIDGE      3586     A     
 BRIDGE             LX2    AT.NULP-AT.IOP                                                  BRIDGE      3587     A     
 BRIDGE             BX2    -X0*X2                                                          BRIDGE      3588     A     
 BRIDGE             LX4    B1,X1                                                           BRIDGE      3589     A     
 BRIDGE             BX0    -X3*X2      IO IFF NOT NUL                                      BRIDGE      3590     A     
 BRIDGE             IX4    X4+X1       +3*LEV0                                             BRIDGE      3591     A     
 BRIDGE             LX3    1                                                               BRIDGE      3592     A     
 BRIDGE             IX1    X0+X4       + 2*NUL                                             BRIDGE      3593     A     
 BRIDGE             IX2    X1+X3                                                           BRIDGE      3594     A     
 BRIDGE             SA1    SCAA+X2                                                         BRIDGE      3595     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3596     A     
 BRIDGE             EQ     SUB.RET                                                         BRIDGE      3597     A     
 BRIDGE                                                                                    BRIDGE      3598     A     
 BRIDGE    SCAA     BSS    0                                                               BRIDGE      3599     A     
 BRIDGE             CON    =XV=CAPST   NON IO                                              BRIDGE      3600     A     
 BRIDGE             CON    =XV=CISST   IO SCALAR                                           BRIDGE      3601     A     
 BRIDGE             CON    =XV=CIAST   IO ARRAY                                            BRIDGE      3602     A     
 BRIDGE             CON    =XV=CAPST   NON IO, LEVEL 0                                     BRIDGE      3603     A     
 BRIDGE             CON    =XV=CIS0S   IO, SCALAR, LEVEL 0                                 BRIDGE      3604     A     
 BRIDGE             CON    =XV=CIA0S   IO, ARRAY, LEVEL 0                                  BRIDGE      3605     A     
 BRIDGE    CGF      EJECT                                                                  BRIDGE      3606     A     
 BRIDGE   **        CGF - ISSUE COMPILER GENERATED CHARACTER FUNCTION.                     BRIDGE      3607     A     
 BRIDGE   *                                                                                BRIDGE      3608     A     
 BRIDGE   *         ENTRY  X1 = ROUTINE ORDINAL                                            BRIDGE      3609     A     
 BRIDGE                                                                                    BRIDGE      3610     A     
 BRIDGE    CGF      SUBR                                                                   BRIDGE      3611     A     
 BRIDGE             BX7    X1                                                              BRIDGE      3612     A     
 BRIDGE             SA7    CGFA                                                            BRIDGE      3613     A     
 BRIDGE             RJ     CPL         PROCESS APLIST                                      BRIDGE      3614     A     
 BRIDGE                                                                                    BRIDGE      3615     A     
 BRIDGE   *         ISSUE RJ TO ROUTINE                                                    BRIDGE      3616     A     
 BRIDGE                                                                                    BRIDGE      3617     A     
 BRIDGE             SB7    OC.RJ6                                                          BRIDGE      3618     A     
 BRIDGE             SA2    CSN                                                             BRIDGE      3619     A     
 BRIDGE             SA1    CGFA                                                            BRIDGE      3620     A     
 BRIDGE             LX2    R1.CAP                                                          BRIDGE      3621     A     
 BRIDGE             LX1    R1.IHP                                                          BRIDGE      3622     A     
 BRIDGE             SX7    4           FUNCTION TYPE FOR CHAR                              BRIDGE      3623     A     
 BRIDGE             BX5    X2+X1                                                           BRIDGE      3624     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2095    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             LX7    FI.FTP                                                          BRIDGE      3625     A     
 BRIDGE             SA1    CPLF                                                            BRIDGE      3626     A     
 BRIDGE             BX7    X7+X1       ADD IN OPT=2 APLIST POINTER                         BRIDGE      3627     A     
 BRIDGE             RJ     IRI                                                             BRIDGE      3628     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      3629     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3630     A     
 BRIDGE             SA6    LXR         FLAG RJ ISSUED                                      BRIDGE      3631     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      3632     A     
 BRIDGE                                                                                    BRIDGE      3633     A     
 BRIDGE    CGFA     BSS    1                                                               BRIDGE      3634     A     
 BRIDGE    STORE    EJECT                                                                  BRIDGE      3635     A     
 BRIDGE   **        HSTO - CHARACTER ASSIGNMENT.                                           BRIDGE      3636     A     
 BRIDGE                                                                                    BRIDGE      3637     A     
 BRIDGE    P=HSTO   BSSENT 0                                                               BRIDGE      3638     A     
 BRIDGE             RJ     SAE         STACK APLIST ENVIRONMENT                            BRIDGE      3639     A     
 BRIDGE             =A1    B5+OR.2OP                                                       BRIDGE      3640     A     
 BRIDGE             RJ     PCI         ENTER TARGET INTO APLIST                            BRIDGE      3641     A     
 BRIDGE             SA1    B5+OR.1OP                                                       BRIDGE      3642     A     
 BRIDGE             RJ     PCO         PROCESS RIGHT-HAND EXPRESSION                       BRIDGE      3643     A     
 BRIDGE             ADDWRD SAP,0       APLIST TERMINATOR                                   BRIDGE      3644     A     
 BRIDGE             SA1    =XS=MMC                                                         BRIDGE      3645     A     
 BRIDGE             RJ     CGF         ISSUE RJ MMC.                                       BRIDGE      3646     A     
 BRIDGE             RJ     PAE         RESTORE APLIST ENVIRONMENT                          BRIDGE      3647     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3648     A     
 BRIDGE    HREL     EJECT                                                                  BRIDGE      3649     A     
 BRIDGE   **        HREL - CHARACTER RELATIONAL PROCESSORS.                                BRIDGE      3650     A     
 BRIDGE   *         CALLED AS HREL FOR OPERATOR-TYPE RELATIONAL EXPRESSIONS,               BRIDGE      3651     A     
 BRIDGE   *         OR AS HLEX FOR LEXICAL FUNCTION-TYPE EXPRESSIONS.                      BRIDGE      3652     A     
 BRIDGE                                                                                    BRIDGE      3653     A     
 BRIDGE    P=HLEX   BSSENT 0                                                               BRIDGE      3654     A     
 BRIDGE             SA1    =XS=LMC                                                         BRIDGE      3655     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3656     A     
 BRIDGE             SA6    PCRB                                                            BRIDGE      3657     A     
 BRIDGE             EQ     PCR10                                                           BRIDGE      3658     A     
 BRIDGE                                                                                    BRIDGE      3659     A     
 BRIDGE    P=HREL   BSSENT                                                                 BRIDGE      3660     A     
 BRIDGE             SA2    =XWO.CS                                                         BRIDGE      3661     A     
 BRIDGE             SA1    =XS=FMC+X2  FMC./UMC.                                           BRIDGE      3662     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3663     A     
 BRIDGE             SA6    PCRB                                                            BRIDGE      3664     A     
 BRIDGE                                                                                    BRIDGE      3665     A     
 BRIDGE    PCR10    RJ     SAE         STACK APLIST                                        BRIDGE      3666     A     
 BRIDGE                                                                                    BRIDGE      3667     A     
 BRIDGE   *         SAVE CURRENT SKEL POINTERS SO WE MAY CONTINUE AFTER                    BRIDGE      3668     A     
 BRIDGE   *         SUBSKELS HAVE BEEN PROCESSED.                                          BRIDGE      3669     A     
 BRIDGE                                                                                    BRIDGE      3670     A     
 BRIDGE             SA1    PREA                                                            BRIDGE      3671     A     
 BRIDGE             SA2    PREB                                                            BRIDGE      3672     A     
 BRIDGE             SX6    B4                                                              BRIDGE      3673     A     
 BRIDGE             BX7    X1                                                              BRIDGE      3674     A     
 BRIDGE             SA6    PCRC                                                            BRIDGE      3675     A     
 BRIDGE             SA7    PCRE                                                            BRIDGE      3676     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2096    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX6    X2                                                              BRIDGE      3677     A     
 BRIDGE             SA6    PCRD                                                            BRIDGE      3678     A     
 BRIDGE             ADDWRD SAP,B0      RESERVE FOR HEADER                                  BRIDGE      3679     A     
 BRIDGE             SA1    CAPL                                                            BRIDGE      3680     A     
 BRIDGE             =X2    1                                                               BRIDGE      3681     A     
 BRIDGE             LX2    TP.BIASP                                                        BRIDGE      3682     A     
 BRIDGE             IX6    X1+X2                                                           BRIDGE      3683     A     
 BRIDGE             SA6    A1          BUMP APLIST POINTER                                 BRIDGE      3684     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      3685     A     
 BRIDGE             RJ     PCO         ISSUE LEFT SIDE                                     BRIDGE      3686     A     
 BRIDGE             SA1    L$SAP                                                           BRIDGE      3687     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3688     A     
 BRIDGE             SA6    PCRA        SAVE APLIST SIZE                                    BRIDGE      3689     A     
 BRIDGE             SA1    B5+OR.2OP                                                       BRIDGE      3690     A     
 BRIDGE             RJ     PCO         ISSUE RIGHT SIDE                                    BRIDGE      3691     A     
 BRIDGE             SA1    PCRA                                                            BRIDGE      3692     A     
 BRIDGE             SA2    L$SAP                                                           BRIDGE      3693     A     
 BRIDGE             SX3    X1-1                                                            BRIDGE      3694     A     
 BRIDGE             IX4    X2-X1                                                           BRIDGE      3695     A     
 BRIDGE             LX3    IA.LEFTP                                                        BRIDGE      3696     A     
 BRIDGE             LX4    IA.RITEP                                                        BRIDGE      3697     A     
 BRIDGE             MX1    1                                                               BRIDGE      3698     A     
 BRIDGE             LX1    1+IA.CRHP    REL HEADER TYPE APLIST                             BRIDGE      3699     A     
 BRIDGE             BX6    X3+X4                                                           BRIDGE      3700     A     
 BRIDGE             SA3    O$SAP                                                           BRIDGE      3701     A     
 BRIDGE             BX7    X6+X1                                                           BRIDGE      3702     A     
 BRIDGE             SA7    X3          STORE INTO RESERVED SPOT                            BRIDGE      3703     A     
 BRIDGE             SA1    PCRB        ROUTINE                                             BRIDGE      3704     A     
 BRIDGE             RJ     CGF         ISSUE CALL                                          BRIDGE      3705     A     
 BRIDGE             RJ     PAE         RESTORE APLIST ENVIRONMENT                          BRIDGE      3706     A     
 BRIDGE                                                                                    BRIDGE      3707     A     
 BRIDGE   *         RESTORE ENVIRONMENT TO MAIN SKEL.                                      BRIDGE      3708     A     
 BRIDGE                                                                                    BRIDGE      3709     A     
 BRIDGE             SA1    PCRC                                                            BRIDGE      3710     A     
 BRIDGE             SA2    PCRD                                                            BRIDGE      3711     A     
 BRIDGE             SA3    PCRE                                                            BRIDGE      3712     A     
 BRIDGE             SB4    X1                                                              BRIDGE      3713     A     
 BRIDGE             BX6    X2                                                              BRIDGE      3714     A     
 BRIDGE             BX7    X3                                                              BRIDGE      3715     A     
 BRIDGE             SA6    PREB                                                            BRIDGE      3716     A     
 BRIDGE             SA7    PREA                                                            BRIDGE      3717     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3718     A     
 BRIDGE                                                                                    BRIDGE      3719     A     
 BRIDGE    PCRA     BSS    1                                                               BRIDGE      3720     A     
 BRIDGE    PCRB     BSS    1                                                               BRIDGE      3721     A     
 BRIDGE    PCRC     BSS    1                                                               BRIDGE      3722     A     
 BRIDGE    PCRD     BSS    1                                                               BRIDGE      3723     A     
 BRIDGE    PCRE     BSS    1                                                               BRIDGE      3724     A     
 BRIDGE    DOLOOPS  EJECT                                                                  BRIDGE      3725     A     
 BRIDGE    DOO      SPACE  4,8                                                             BRIDGE      3726     A     
 BRIDGE   **        DOO - MARK SHORT LOOP AS OPTIMIZABLE.                                  BRIDGE      3727     A     
 BRIDGE                                                                                    BRIDGE      3728     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2097    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    P=DZO    BSSENT 0                                                               BRIDGE      3729     A     
 BRIDGE             SX6    =XV=DOZO    ZERO-TRIP OPTIMIZED LOOP                            BRIDGE      3730     A     
 BRIDGE             EQ     DOO10                                                           BRIDGE      3731     A     
 BRIDGE                                                                                    BRIDGE      3732     A     
 BRIDGE    P=DOO    BSSENT 0                                                               BRIDGE      3733     A     
 BRIDGE             SX6    =XV=DOBO    ONE-TRIP OPTIMIZED LOOP                             BRIDGE      3734     A     
 BRIDGE                                                                                    BRIDGE      3735     A     
 BRIDGE    DOO10    SA2    B5+4        DC. VAR (TRIP COUNTER)                              BRIDGE      3736     A     
 BRIDGE             SA5    B5+2        TRIP COUNT OPERAND                                  FC5A113       12     A     
 BRIDGE             SA1    =XCONONE                                                        FC5A113       13     A     
 BRIDGE             SA3    O$SYM                                                           BRIDGE      3737     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3738     A     
 BRIDGE             SB7    X3+WB.W                                                         BRIDGE      3739     A     
 BRIDGE             BX5    X1-X5                                                           FC5A113       14     A     
 BRIDGE             ZR     X5,DOO40    IF TRIP COUNT = 1                                   FC5A113       15     A     
 BRIDGE             SA1    B5+7        LOOP TOP LABEL                                      BRIDGE      3740     A     
 BRIDGE             CLAS=  X5,WB,(DLEN,DLEX)                                               BRIDGE      3741     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      3742     A     
 BRIDGE             BX4    -X0*X1                                                          BRIDGE      3743     A     
 BRIDGE             IX7    X4+X4                                                           BRIDGE      3744     A     
 BRIDGE             IX4    X7+X4                                                           BRIDGE      3745     A     
 BRIDGE             CLAS=  X1,WB,(DLER,PRD)                                                BRIDGE      3746     A     
 BRIDGE             SA4    B7+X4       WB(LOOP TOP DO.)                                    BRIDGE      3747     A     
 BRIDGE             BX7    X5*X4                                                           BRIDGE      3748     A     
 BRIDGE             BX1    X1*X4                                                           BRIDGE      3749     A     
 BRIDGE             HX4    WB.NIN                                                          BRIDGE      3750     A     
 BRIDGE             BX7    X5-X7                                                           BRIDGE      3751     A     
 BRIDGE             MI     X4,PRE.RET  IF INCREMENT VARIABLE OR NEG                        BRIDGE      3752     A     
 BRIDGE             =A4    A2+5-4      UPPER LIMIT OPERAND                                 BRIDGE      3753     A     
 BRIDGE             NZ     X1,DOO30    IF LOOP HAS EXTERNAL REFS, OR ULIM REDEF.           BRIDGE      3754     A     
 BRIDGE             ZR     X7,DOO30    IF LOOP HAS EXTENDED RANGE                          BRIDGE      3755     A     
 BRIDGE                                                                                    BRIDGE      3756     A     
 BRIDGE   *         LOOP MAY BE COUNTED USING CONTROL VAR., UPPER LIMIT AND INC.           BRIDGE      3757     A     
 BRIDGE                                                                                    BRIDGE      3758     A     
 BRIDGE    DOO20    LX2    -TP.ORDP                                                        BRIDGE      3759     A     
 BRIDGE             BX7    X4                                                              BRIDGE      3760     A     
 BRIDGE             HX4    TP.INTR                                                         BRIDGE      3761     A     
 BRIDGE             SB7    X3+WC.W                                                         BRIDGE      3762     A     
 BRIDGE             MI     X4,PRE.RET  IF UPPER LIMIT EXPRESSION                           BRIDGE      3763     A     
 BRIDGE             LX4    TP.INTRP-TP.SHRTP                                               BRIDGE      3764     A     
 BRIDGE             PL     X4,DOO25    IF NOT SHORT CON UPPER LIMIT                        BRIDGE      3765     A     
 BRIDGE             LX4    TP.SHRTP+1-TP.BIASP                                             BRIDGE      3766     A     
 BRIDGE             SX4    X4                                                              BRIDGE      3767     A     
 BRIDGE             ZR     X4,PRE.RET  IF UPPER LIMIT = 0                                  BRIDGE      3768     A     
 BRIDGE                                                                                    BRIDGE      3769     A     
 BRIDGE    DOO25    BSS    0                                                               BRIDGE      3770     A     
 BRIDGE             BX2    -X0*X2                                                          BRIDGE      3771     A     
 BRIDGE             IX0    X2+X2                                                           BRIDGE      3772     A     
 BRIDGE             IX3    X2+X0                                                           BRIDGE      3773     A     
 BRIDGE             SA7    B7+X3       WC(DC.) = UPPER LIMIT OPERAND                       BRIDGE      3774     A     
 BRIDGE             EQ     SUB.RET                                                         BRIDGE      3775     A     
 BRIDGE                                                                                    BRIDGE      3776     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2098    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    DOO30    BX7    X4                                                              BRIDGE      3777     A     
 BRIDGE             HX7    TP.SHRT                                                         BRIDGE      3778     A     
 BRIDGE             MI     X7,DOO20    IF UPPER LIMIT IS CONSTANT                          BRIDGE      3779     A     
 BRIDGE             EQ     PRE.RET     CONTINUE WITH (UNOPTIMIZED) SKEL.                   BRIDGE      3780     A     
 BRIDGE                                                                                    FC5A113       16     A     
 BRIDGE    DOO40    LX2    -TP.ORDP                                                        FC5A113       17     A     
 BRIDGE             MX7    60                                                              FC5A113       18     A     
 BRIDGE             BX2    -X0*X2                                                          FC5A113       19     A     
 BRIDGE             IX0    X2+X2                                                           FC5A113       20     A     
 BRIDGE             =B7    B7+WC.W-WB.W                                                    FC5A113       21     A     
 BRIDGE             IX3    X2+X0                                                           FC5A113       22     A     
 BRIDGE             SA7    B7+X3       WC(DC.) = -0  */ FLAG ONE TRIP LOOP                 FC5A113       23     A     
 BRIDGE             EQ     PRE.0                                                           FC5A113       24     A     
 BRIDGE             SPACE  4,8                                                             BRIDGE      3781     A     
 BRIDGE   **        DOZ - PROCESS ZERO-TRIP LOOP BRANCH-AROUND.                            BRIDGE      3782     A     
 BRIDGE                                                                                    BRIDGE      3783     A     
 BRIDGE    P=DOZ    BSSENT 0                                                               BRIDGE      3784     A     
 BRIDGE             SA5    OPT2                                                            BRIDGE      3785     A     
 BRIDGE             ZR     X5,PRE.RET  IF OPT NE 2                                         BRIDGE      3786     A     
 BRIDGE                                                                                    BRIDGE      3787     A     
 BRIDGE   *         FILE FLOW TO LOOP-END LABEL, AND NEXT BLOCK.                           BRIDGE      3788     A     
 BRIDGE                                                                                    BRIDGE      3789     A     
 BRIDGE             SA1    CTYP                                                            BRIDGE      3790          I
          -FC5A164
 BRIDGE             SA2    CNUM                                                            BRIDGE      3791          I
          -FC5A164
 BRIDGE             RJ     GOV                                                             BRIDGE      3792          I
          -FC5A164
 BRIDGE             CFTE   CBN,X6,IH   FLOW (CBN,LOOPEND)                                  BRIDGE      3793          I
          -FC5A164
 BRIDGE             SA1    B5+8        LOOP END LABEL                                      FC5A164       75     A     
 BRIDGE             RJ     GLT         GET LABEL ORDINAL                                   FC5A164       76     A     
 BRIDGE             CFTE   CBN,X3,IH   FLOW (CBN,LOOPEND)                                  FC5A164       77     A     
 BRIDGE             SA4    O$TXT                                                           BRIDGE      3794     A     
 BRIDGE             SA5    LL.TXT                                                          BRIDGE      3795     A     
 BRIDGE             SX3    B6                                                              BRIDGE      3796     A     
 BRIDGE             SB7    X4-4                                                            BRIDGE      3797     A     
 BRIDGE             SA5    X5+B7                                                           BRIDGE      3798     A     
 BRIDGE             LX3    R1.INP                                                          BRIDGE      3799     A     
 BRIDGE             BX6    X3+X5                                                           BRIDGE      3800     A     
 BRIDGE             SA6    A5          IN[R1(DOBEGIN BRANCH)] = OLD L.CFT                  BRIDGE      3801     A     
 BRIDGE             CFTE   CBN,X1+B1   FLOW (CBN,CBN+1)                                    BRIDGE      3802     A     
 BRIDGE                                                                                    BRIDGE      3803     A     
 BRIDGE   *         BREAK SEQUENCE.                                                        BRIDGE      3804     A     
 BRIDGE                                                                                    BRIDGE      3805     A     
 BRIDGE             EQ     UJP3                                                            BRIDGE      3806     A     
 BRIDGE    DOBZ     SPACE 4,8                                                              BRIDGE      3807     A     
 BRIDGE   **        DOBZ - SET GPBUF(1) TO 1 FOR LONG DOBEGIN ZERO TRIP.                   BRIDGE      3808     A     
 BRIDGE                                                                                    BRIDGE      3809     A     
 BRIDGE    P=DOBZ   BSSENT 0                                                               BRIDGE      3810     A     
 BRIDGE             SA1    =XCONONE                                                        BRIDGE      3811     A     
 BRIDGE             BX6    X1                                                              BRIDGE      3812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2099    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SA6    GOVG                                                            BRIDGE      3813     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3814     A     
 BRIDGE    DOL      SPACE  4,8                                                             BRIDGE      3815     A     
 BRIDGE   **        DOL - FLAG LONG DO LOOP.                                               BRIDGE      3816     A     
 BRIDGE                                                                                    BRIDGE      3817     A     
 BRIDGE    P=DOL    BSSENT 0                                                               BRIDGE      3818     A     
 BRIDGE             MX6    1                                                               BRIDGE      3819     A     
 BRIDGE             LX6    1+R2.LONGP                                                      BRIDGE      3820     A     
 BRIDGE             SA6    LDF                                                             BRIDGE      3821     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3822     A     
 BRIDGE                                                                                    BRIDGE      3823     A     
 BRIDGE    LDF      BSSZ   1           LONG DOLOOP FLAG                                    BRIDGE      3824     A     
 BRIDGE    DOB      EJECT                                                                  BRIDGE      3825     A     
 BRIDGE   **        DOB - PROCESS DO BEGIN.                                                BRIDGE      3826     A     
 BRIDGE                                                                                    BRIDGE      3827     A     
 BRIDGE    P=DOB    BSSENT 0                                                               BRIDGE      3828     A     
 BRIDGE             SA1    LALS                                                            BRIDGE      3829     A     
 BRIDGE             =X6    X1+1                                                            BRIDGE      3830     A     
 BRIDGE             SA6    A1          BUMP LOOP NEST COUNT                                BRIDGE      3831     A     
 BRIDGE                                                                                    BRIDGE      3832     A     
 BRIDGE   *         LOOP IS OPTIMIZABLE IF IT IS INNERMOST AND HAS NO EXITS,               BRIDGE      3833     A     
 BRIDGE   *         ENTRIES, EXTERNAL REFERENCES OR BACKWARD BRANCHES.                     BRIDGE      3834     A     
 BRIDGE                                                                                    BRIDGE      3835     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      3836     A     
 BRIDGE             NZ     X2,PDB1     IF OPT NE 1                                         BRIDGE      3837     A     
 BRIDGE                                                                                    BRIDGE      3838     A     
 BRIDGE             SA1    O$SYM                                                           BRIDGE      3839     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3840     A     
 BRIDGE             SA2    B5+7        LOOP START LABEL OPERAND                            BRIDGE      3841     A     
 BRIDGE             LX2    -TP.ORDP                                                        BRIDGE      3842     A     
 BRIDGE             BX3    -X0*X2                                                          BRIDGE      3843     A     
 BRIDGE             SB6    X1+B1                                                           BRIDGE      3844     A     
 BRIDGE             LX2    B1,X3                                                           BRIDGE      3845     A     
 BRIDGE             IX3    X2+X3                                                           BRIDGE      3846     A     
 BRIDGE             SA4    B6+X3       WORD B                                              BRIDGE      3847     A     
 BRIDGE             MX0    WB.DLNOL                                                        BRIDGE      3848     A     
 BRIDGE             HX4    WB.DLNO                                                         BRIDGE      3849     A     
 BRIDGE             BX7    X0*X4                                                           BRIDGE      3850     A     
 BRIDGE             NZ     X7,PDB1     IF LOOP NOT OPTIMIZABLE                             BRIDGE      3851     A     
 BRIDGE                                                                                    BRIDGE      3852     A     
 BRIDGE             RJ     PCS         CODE THE PROLOG                                     BRIDGE      3853     A     
 BRIDGE             SX6    1                                                               BRIDGE      3854     A     
 BRIDGE             SA6    =XCC$OPTL                                                       BRIDGE      3855     A     
 BRIDGE                                                                                    BRIDGE      3856     A     
 BRIDGE    PDB1     SA2    B5+7                                                            BRIDGE      3857     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3858     A     
 BRIDGE             LX2    -TP.ORDP                                                        BRIDGE      3859     A     
 BRIDGE             BX1    -X0*X2                                                          BRIDGE      3860     A     
 BRIDGE             RJ     LAB         PROCESS LOOP-BACK LABEL                             BRIDGE      3861     A     
 BRIDGE             RJ     TSP         KEEP LABEL AT TOP OF SEQ IN OPT=2                   BRIDGE      3862     A     
 BRIDGE             ADVIL  2                                                               BRIDGE      3863     A     
 BRIDGE                                                                                    BRIDGE      3864     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   *         IF LONG LOOP, SET R2.LONG IN BOS.                                      BRIDGE      3865     A     
 BRIDGE                                                                                    BRIDGE      3866     A     
 BRIDGE             SA1    LDF                                                             BRIDGE      3867     A     
 BRIDGE             ZR     X1,PRE.RET  IF NOT LONG LOOP                                    BRIDGE      3868     A     
 BRIDGE             SA2    O$TXT                                                           BRIDGE      3869     A     
 BRIDGE             =A3    X2+1                                                            BRIDGE      3870     A     
 BRIDGE             MX7    0                                                               BRIDGE      3871     A     
 BRIDGE             BX6    X1+X3                                                           BRIDGE      3872     A     
 BRIDGE             SA7    A1          LDF = 0                                             BRIDGE      3873     A     
 BRIDGE             SA6    A3          LONG[R2W(BOS)] = 1                                  BRIDGE      3874     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3875     A     
 BRIDGE    DOLOOPS  EJECT                                                                  BRIDGE      3876     A     
 BRIDGE   **        DOC - PROCESS DO CONCLUSION.                                           BRIDGE      3877     A     
 BRIDGE   *                                                                                BRIDGE      3878     A     
 BRIDGE   *         IF SHORT LOOP, CHECK FOR CONSTANT INCREMENT.                           BRIDGE      3879     A     
 BRIDGE   *         IF LONG LOOP, SET GPBUF(1) TO -1 SHORT CON.                            BRIDGE      3880     A     
 BRIDGE                                                                                    BRIDGE      3881     A     
 BRIDGE    P=DOC    BSSENT 0                                                               BRIDGE      3882     A     
 BRIDGE             SA1    LALS                                                            BRIDGE      3883     A     
 BRIDGE             SX6    X1-1                                                            BRIDGE      3884     A     
 BRIDGE             SA6    A1          LALS = LALS - 1  */ DECREM. LOOP NEST COUNT         BRIDGE      3885     A     
 BRIDGE             ADVIL  1                                                               BRIDGE      3886     A     
 BRIDGE             SA1    CNUM                                                            BRIDGE      3887     A     
 BRIDGE             NZ     X1,DOC10    IF LONG LOOP                                        BRIDGE      3888     A     
 BRIDGE                                                                                    BRIDGE      3889     A     
 BRIDGE   *         SET RF BIT FOR ALL LOADS IN LOOP CODE.                                 BRIDGE      3890     A     
 BRIDGE                                                                                    BRIDGE      3891     A     
 BRIDGE             SA1    F$RDT+OC.LD                                                     BRIDGE      3892     A     
 BRIDGE             SX3    B1                                                              BRIDGE      3893     A     
 BRIDGE             LX3    D.RFP                                                           BRIDGE      3894     A     
 BRIDGE             BX6    X3+X1                                                           BRIDGE      3895     A     
 BRIDGE             SA6    A1          RF[RDT(OC.LD)] = 1                                  BRIDGE      3896     A     
 BRIDGE             SX6    =XV=DOC.K                                                       BRIDGE      3897     A     
 BRIDGE                                                                                    BRIDGE      3898     A     
 BRIDGE   *         SELECT OPTIMIZED LOOP CODE IF THIS HAD SHORT CON TRIP COUNT.           BRIDGE      3899     A     
 BRIDGE                                                                                    BRIDGE      3900     A     
 BRIDGE             SA1    B5+5        TRIP COUNT CELL                                     BRIDGE      3901     A     
 BRIDGE             SA3    O$SYM                                                           BRIDGE      3902     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3903     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      3904     A     
 BRIDGE             SB7    X3+WC.W                                                         BRIDGE      3905     A     
 BRIDGE             BX2    -X0*X1                                                          BRIDGE      3906     A     
 BRIDGE             IX0    X2+X2                                                           BRIDGE      3907     A     
 BRIDGE             IX3    X2+X0                                                           BRIDGE      3908     A     
 BRIDGE             SA2    B5+OR.2OP   INCREMENT                                           BRIDGE      3909     A     
 BRIDGE             SA3    B7+X3       WC(TC.)                                             BRIDGE      3910     A     
 BRIDGE             HX2    TP.SHRT                                                         BRIDGE      3911     A     
 BRIDGE             ZR     X3,DOC05    IF NOT OPTIMIZABLE                                  BRIDGE      3912     A     
 BRIDGE             BX6    X3                                                              BRIDGE      3913     A     
 BRIDGE             SA6    GOVG        GPBUF(1) = UPPER LIMIT                              BRIDGE      3914     A     
 BRIDGE             MX7    0                                                               BRIDGE      3915     A     
 BRIDGE             SA7    A3          WC(TC.) = 0                                         BRIDGE      3916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2101    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SX6    =XV=DC.OC                                                       BRIDGE      3917     A     
 BRIDGE             MI     X2,SUB.RET  IF INCREMENT CONSTANT                               BRIDGE      3918          I
          -FC50136
 BRIDGE             MI     X2,DOC01    IF CONSTANT INCREMENT                               FC50136       14     A     
 BRIDGE             SX6    =XV=DC.OV                                                       BRIDGE      3919     A     
 BRIDGE             EQ     SUB.RET                                                         BRIDGE      3920     A     
 BRIDGE                                                                                    FC50136       15     A     
 BRIDGE    DOC01    =X0    1                                                               FC50136       16     A     
 BRIDGE             LX0    TP.BIASP                                                        FC50136       17     A     
 BRIDGE             IX7    X3+X0       BIAS = BIAS+1                                       FC50136       18     A     
 BRIDGE             HX3    TP.SHRT                                                         FC50136       19     A     
 BRIDGE             PL     X3,SUB.RET  IF UPPER LIMIT NOT CONSTANT                         FC50136       20     A     
 BRIDGE             BX3    X7                                                              FC50136       21     A     
 BRIDGE             LX3    -TP.BIASP-TP.BIASL                                              FC50136       22     A     
 BRIDGE             AX3    60-TP.BIASL+17                                                  FC50136       23     A     
 BRIDGE             NZ     X3,SUB.RET  IF ABS(BIAS+1) GE 2**17                             FC50136       24     A     
 BRIDGE             MX0    TP.BIASL                                                        FC50136       25     A     
 BRIDGE             LX0    TP.BIASL+TP.BIASP                                               FC50136       26     A     
 BRIDGE             BX7    X0-X7       BIAS = -(OLDBIAS+1)                                 FC50136       27     A     
 BRIDGE             SA7    GOVG        GPBUF = SHRT(BIAS)                                  FC50136       28     A     
 BRIDGE             SX6    =XV=DC.OS   SELECT OPTIMIZED(SET) SUBSKEL                       FC50136       29     A     
 BRIDGE             EQ     SUB.RET                                                         FC50136       30     A     
 BRIDGE                                                                                    BRIDGE      3921     A     
 BRIDGE    DOC05    PL     X2,PRE.RET  IF INCREMENT NOT CONSTANT, CONTINUE                 BRIDGE      3922          I
          -FC5A113
 BRIDGE    DOC05    MI     X3,DOC20    IF ONE-TRIP LOOP                                    FC5A113       25     A     
 BRIDGE             PL     X2,PRE.RET  IF INCREMENT NOT CONSTANT, CONTINUE                 FC5A113       26     A     
 BRIDGE             EQ     SUB.RET     SELECT SUBSKEL                                      BRIDGE      3923     A     
 BRIDGE                                                                                    BRIDGE      3924     A     
 BRIDGE    DOC10    SA1    CONM1                                                           BRIDGE      3925     A     
 BRIDGE             BX7    X1                                                              BRIDGE      3926     A     
 BRIDGE             SA7    GOVG        GPBUF(1) = SHORT CON -1                             BRIDGE      3927     A     
 BRIDGE             EQ     PRE.RET     CONTINUE                                            BRIDGE      3928     A     
 BRIDGE                                                                                    FC5A113       27     A     
 BRIDGE    DOC20    MX7    0                                                               FC5A113       28     A     
 BRIDGE             SA7    A3          RESTORE WC(DC.)                                     FC5A113       29     A     
 BRIDGE             SA5    WO.DOOT                                                         FC5A113       30     A     
 BRIDGE             SX6    =XV=DC.O1   ISSUES I = I + INC                                  FC5A113       31     A     
 BRIDGE             ZR     X5,SUB.RET  IF DO=-OT                                           FC5A113       32     A     
 BRIDGE             EQ     PRE.0                                                           FC5A113       33          I
          -FC50130
 BRIDGE                                                                                    FC50130        6     A     
 BRIDGE    P=PDE1   BSSENT 0           PROCESS DO END FOR TRIP COUNT = 1                   FC50130        7     A     
 BRIDGE             SA2    F$RDT+OC.LD                                                     FC50130        8     A     
 BRIDGE             SX3    B1                                                              FC50130        9     A     
 BRIDGE             LX3    D.RFP                                                           FC50130       10     A     
 BRIDGE             BX6    -X3*X2                                                          FC50130       11     A     
 BRIDGE             SA6    A2          CLEAR RF BIT IN LOAD DESCRIPTOR                     FC50130       12     A     
 BRIDGE             EQ     PRE.0                                                           FC50130       13     A     
 BRIDGE                                                                                    BRIDGE      3929     A     
 BRIDGE    TOP      DECMIC 60-TP.BIASP-TP.BIASL                                            BRIDGE      3930     A     
 BRIDGE    BIASL    DECMIC TP.BIASL                                                        BRIDGE      3931     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    MID      DECMIC TP.BIASP-1-TP.SHRTP                                             BRIDGE      3932     A     
 BRIDGE    CONM1    VFD    "TOP"/0,"BIASL"/-1,"MID"/0,1/1,*P/0                             BRIDGE      3933     A     
 BRIDGE    DOLOOPS  SPACE  4,24                                                            BRIDGE      3934     A     
 BRIDGE   **        P=PDE - PROCESS DO END.                                                BRIDGE      3935     A     
 BRIDGE                                                                                    BRIDGE      3936     A     
 BRIDGE    P=PDE    BSSENT 0                                                               BRIDGE      3937     A     
 BRIDGE             MX6    0                                                               BRIDGE      3938          I
          -FC5A164
 BRIDGE             SA6    GOVL+4                                                          BRIDGE      3939          I
          -FC5A164
 BRIDGE                                                                                    BRIDGE      3940     A     
 BRIDGE   *         RESTORE LD DESCRIPTOR.                                                 BRIDGE      3941     A     
 BRIDGE                                                                                    BRIDGE      3942     A     
 BRIDGE             SA2    F$RDT+OC.LD                                                     BRIDGE      3943     A     
 BRIDGE             SA1    OPT2                                                            BRIDGE      3944     A     
 BRIDGE             SX3    B1                                                              BRIDGE      3945     A     
 BRIDGE             LX3    D.RFP                                                           BRIDGE      3946     A     
 BRIDGE             BX6    -X3*X2                                                          BRIDGE      3947     A     
 BRIDGE             SA6    A2          RF[RDT(OC.LD)] = 0                                  BRIDGE      3948     A     
 BRIDGE             ZR     X1,UJP1     IF OPT .NE. 2                                       BRIDGE      3949     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3950     A     
 BRIDGE             SA2    B5+4                                                            BRIDGE      3951     A     
 BRIDGE             LX2    -TP.ORDP                                                        BRIDGE      3952     A     
 BRIDGE             BX3    -X0*X2      IHLB = ORD[TURP(6)]  */ LOOP HEAD LABEL             BRIDGE      3953     A     
 BRIDGE             SA5    CBN                                                             BRIDGE      3954     A     
 BRIDGE             CFTE   X5,X3,IH    FLOW( CBN , IHLB )                                  BRIDGE      3955     A     
 BRIDGE             CFTE   X5,X5+B1    FLOW( CBN , CBN + 1 )                               BRIDGE      3956     A     
 BRIDGE             RJ     PCS         PROCESS LAST LOOP SEQUENCE                          FC5A186       13     A     
 BRIDGE             SA3    CBN         INVENT DUMMY BLOCK FOR POST-STORES                  FC5A186       14     A     
 BRIDGE             SX6    X3+B1                                                           FC5A186       15     A     
 BRIDGE             SA6    A3                                                              FC5A186       16     A     
 BRIDGE             CFTE   X6,X6+B1                                                        FC5A186       17     A     
 BRIDGE             EQ     UJP3                                                            BRIDGE      3957     A     
 BRIDGE    IOLC     SPACE  4,8                                                             FC5A218      207     A     
 BRIDGE   **        P=IOLC - SELECT SUBSKEL TO DEFINE CONTROL VARIABLE OF                  FC5A218      208     A     
 BRIDGE   *         COLLAPSED IO IMPLIED-DO.                                               FC5A218      209     A     
 BRIDGE                                                                                    FC5A218      210     A     
 BRIDGE    P=IOLC   BSSENT 0                                                               FC5A218      211     A     
 BRIDGE             SA1    WO.DOOT                                                         FC5A218      212     A     
 BRIDGE             SX6    =XV=IOLC0                                                       FC5A218      213     A     
 BRIDGE             ZR     X1,SUB.RET  IF ZERO TRIP LOOPS IN EFFECT                        FC5A218      214     A     
 BRIDGE             SX6    =XV=IOLC1                                                       FC5A218      215     A     
 BRIDGE             EQ     SUB.RET                                                         FC5A218      216     A     
 BRIDGE    LABELS   EJECT                                                                  BRIDGE      3958     A     
 BRIDGE   **        P=PLA - PROCESS LABEL TURPLE.                                          BRIDGE      3959     A     
 BRIDGE                                                                                    BRIDGE      3960     A     
 BRIDGE    P=PLA    BSSENT 0                                                               BRIDGE      3961     A     
 BRIDGE             SA1    B5+B1       OPR = TURP(2)                                       BRIDGE      3962     A     
 BRIDGE             RJ     GLT         GET LABEL TAG                                       BRIDGE      3963     A     
 BRIDGE             BX1    X3                                                              BRIDGE      3964     A     
 BRIDGE             RJ     LAB         CALL LAB (LABEL ORD.)                               BRIDGE      3965     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      3966     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    LABELS   SPACE  4,8                                                             BRIDGE      3967     A     
 BRIDGE   **        ALT - ADD LABEL TO TEXT.                                               BRIDGE      3968     A     
 BRIDGE   *                                                                                BRIDGE      3969     A     
 BRIDGE   *         ENTRY  X1 = LABEL ORDINAL                                              BRIDGE      3970     A     
 BRIDGE                                                                                    BRIDGE      3971     A     
 BRIDGE    ALT      SUBR                                                                   BRIDGE      3972     A     
 BRIDGE             LX1    R1.IHP                                                          BRIDGE      3973     A     
 BRIDGE             BX5    X1                                                              BRIDGE      3974     A     
 BRIDGE             SB7    OC.LAB                                                          BRIDGE      3975     A     
 BRIDGE             MX7    0                                                               BRIDGE      3976     A     
 BRIDGE             RJ     IRI                                                             BRIDGE      3977     A     
 BRIDGE             EQ     ALT                                                             BRIDGE      3978     A     
 BRIDGE    LABELS   SPACE  4,8                                                             BRIDGE      3979     A     
 BRIDGE   **        GLT - GET LABEL TAG.                                                   BRIDGE      3980     A     
 BRIDGE   *                                                                                BRIDGE      3981     A     
 BRIDGE   *         ENTRY  X1 = LABEL OPERAND WORD.                                        BRIDGE      3982     A     
 BRIDGE   *                                                                                BRIDGE      3983     A     
 BRIDGE   *         EXIT   X3 = SYMTAB ORDINAL OR GL ORDINAL+GL BIT.                       BRIDGE      3984     A     
 BRIDGE   *                X4 = BIAS                                                       BRIDGE      3985     A     
 BRIDGE   *                                                                                BRIDGE      3986     A     
 BRIDGE   *         PRESERVES  B2,B4,B5,B6,B7,X5,X6,X7                                     BRIDGE      3987     A     
 BRIDGE                                                                                    BRIDGE      3988     A     
 BRIDGE    GLT      SUBR                                                                   BRIDGE      3989     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      3990     A     
 BRIDGE             LX1    -TP.BIASP                                                       BRIDGE      3991     A     
 BRIDGE             BX4    -X0*X1                                                          BRIDGE      3992     A     
 BRIDGE             LX1    TP.BIASP-TP.ORDP                                                BRIDGE      3993     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      3994     A     
 BRIDGE             BX3    -X0*X1                                                          BRIDGE      3995     A     
 BRIDGE             LX1    TP.ORDP-TP.CPFXP                                                BRIDGE      3996     A     
 BRIDGE             MX0    -TP.CPFXL                                                       BRIDGE      3997     A     
 BRIDGE             BX2    -X0*X1                                                          BRIDGE      3998     A     
 BRIDGE             NZ     X2,GLT1     IF NOT SYMBOL TABLE SYMBOL                          BRIDGE      3999     A     
 BRIDGE                                                                                    BRIDGE      4000     A     
 BRIDGE   *         CHECK FOR EQUIVALENCE.                                                 BRIDGE      4001     A     
 BRIDGE                                                                                    BRIDGE      4002     A     
 BRIDGE             LX1    TP.CPFXP-1-TP.EQVP                                              BRIDGE      4003     A     
 BRIDGE             PL     X1,GLT      IF NOT EQUIVALENCED                                 BRIDGE      4004     A     
 BRIDGE             SA2    O$SYM                                                           BRIDGE      4005     A     
 BRIDGE             LX0    B1,X3                                                           BRIDGE      4006     A     
 BRIDGE             SB3    X2+B1                                                           BRIDGE      4007     A     
 BRIDGE             IX0    X0+X3                                                           BRIDGE      4008     A     
 BRIDGE             SA2    X0+B3                                                           BRIDGE      4009     A     
 BRIDGE             =A1    A2+WC.W-WB.W                                                    BRIDGE      4010     A     
 BRIDGE             MX3    -WB.BASEL                                                       BRIDGE      4011     A     
 BRIDGE             MX0    -WC.RAL                                                         BRIDGE      4012     A     
 BRIDGE             LX2    -WB.BASEP                                                       BRIDGE      4013     A     
 BRIDGE             BX3    -X3*X2                                                          BRIDGE      4014     A     
 BRIDGE             LX1    -WC.RAP                                                         BRIDGE      4015     A     
 BRIDGE             BX2    -X0*X1                                                          BRIDGE      4016     A     
 BRIDGE             LX4    -TP.BIASL                                                       BRIDGE      4017     A     
 BRIDGE             AX4    -TP.BIASL                                                       BRIDGE      4018     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             IX4    X4+X2                                                           BRIDGE      4019     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      4020     A     
 BRIDGE             BX4    -X0*X4                                                          BRIDGE      4021     A     
 BRIDGE             EQ     GLT                                                             BRIDGE      4022     A     
 BRIDGE                                                                                    BRIDGE      4023     A     
 BRIDGE    GLT1     LX2    IH.IP                                                           BRIDGE      4024     A     
 BRIDGE             BX3    X2+X3                                                           BRIDGE      4025     A     
 BRIDGE             EQ     GLT                                                             BRIDGE      4026     A     
 BRIDGE    LABELS   EJECT                                                                  BRIDGE      4027     A     
 BRIDGE   **        LAB - LABEL DEFINITION.                                                BRIDGE      4028     A     
 BRIDGE   *         ENTRY  X1 = SYMBOL ORDINAL.                                            BRIDGE      4029     A     
 BRIDGE                                                                                    BRIDGE      4030     A     
 BRIDGE    LAB      SUBR                                                                   BRIDGE      4031     A     
 BRIDGE             SX2    X1-K.GL                                                         BRIDGE      4032     A     
 BRIDGE             PL     X2,LAB1     IF GL (ALWAYS ACTIVE)                               BRIDGE      4033     A     
 BRIDGE             SA5    O$SYM                                                           BRIDGE      4034     A     
 BRIDGE             LX2    B1,X1                                                           BRIDGE      4035     A     
 BRIDGE             SB6    X5+B1                                                           BRIDGE      4036     A     
 BRIDGE             IX3    X2+X1                                                           BRIDGE      4037     A     
 BRIDGE             SA2    B6+X3       WORD B OF SYMBOL ENTRY                              BRIDGE      4038     A     
 BRIDGE             LX2    59-WB.CGSP                                                      BRIDGE      4039     A     
 BRIDGE             MI     X2,LAB1     IF A *DO* GENERATED LABEL                           BRIDGE      4040     A     
 BRIDGE             LX2    WB.CGSP-WB.ACTP                                                 BRIDGE      4041     A     
 BRIDGE             PL     X2,LAB      IF NOT REFERENCED                                   BRIDGE      4042     A     
 BRIDGE                                                                                    BRIDGE      4043     A     
 BRIDGE    LAB1     SA4    CC$OPTL                                                         BRIDGE      4044     A     
 BRIDGE             NZ     X4,LAB6     IF CC$OPTL .NE. 0  */ ADD LABEL AND CONTINU         BRIDGE      4045     A     
 BRIDGE             SA5    OPT2                                                            BRIDGE      4046     A     
 BRIDGE             NZ     X5,LAB3     IF OPT EQ 2                                         BRIDGE      4047     A     
 BRIDGE                                                                                    BRIDGE      4048     A     
 BRIDGE             RJ     ALT         ADD LABEL TO TEXT                                   BRIDGE      4049     A     
 BRIDGE             SA3    LL.TXT                                                          BRIDGE      4050     A     
 BRIDGE             SX6    X3-8                                                            BRIDGE      4051     A     
 BRIDGE             ZR     X6,LAB      IF LABEL FIRST IN SEQ                               BRIDGE      4052     A     
 BRIDGE             RJ     PCS         PROCESS SEQUENCE                                    BRIDGE      4053     A     
 BRIDGE             EQ     LAB                                                             BRIDGE      4054     A     
 BRIDGE                                                                                    BRIDGE      4055     A     
 BRIDGE    LAB3     SA3    LL.TXT                                                          BRIDGE      4056     A     
 BRIDGE             SB3    X3-4                                                            BRIDGE      4057     A     
 BRIDGE             ZR     B3,LAB4     IF CODE BUFFERS EMPTY                               BRIDGE      4058     A     
 BRIDGE                                                                                    BRIDGE      4059     A     
 BRIDGE             BX6    X1                                                              BRIDGE      4060     A     
 BRIDGE             SA6    LABA                                                            BRIDGE      4061     A     
 BRIDGE             RJ     PCS         PROCESS CURRENT SEQUENCE                            BRIDGE      4062     A     
 BRIDGE             SA1    CBN         PBN = CBN                                           BRIDGE      4063     A     
 BRIDGE             SX6    X1+B1       CBN = CBN + 1                                       BRIDGE      4064     A     
 BRIDGE             SA6    A1                                                              BRIDGE      4065     A     
 BRIDGE             CFTE   X1,X6       FLOW( PBN , CBN )                                   BRIDGE      4066     A     
 BRIDGE             SA1    LABA                                                            BRIDGE      4067     A     
 BRIDGE                                                                                    BRIDGE      4068     A     
 BRIDGE   *         DEFINE BLOCK NUMBER ASSOCIATED WITH THIS LABEL                         BRIDGE      4069     A     
 BRIDGE                                                                                    BRIDGE      4070     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE    LAB4     RJ     ALT         ADD LABEL                                           BRIDGE      4071     A     
 BRIDGE             SX1    X5                                                              BRIDGE      4072     A     
 BRIDGE             CALL   CG$LABD                                                         BRIDGE      4073     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      4074     A     
 BRIDGE                                                                                    BRIDGE      4075     A     
 BRIDGE    LAB6     RJ     ALT         ADD LABEL                                           BRIDGE      4076     A     
 BRIDGE             EQ     LAB                                                             BRIDGE      4077     A     
 BRIDGE                                                                                    BRIDGE      4078     A     
 BRIDGE    LABA     BSS    1                                                               BRIDGE      4079     A     
 BRIDGE    ENTRY    EJECT                                                                  BRIDGE      4080     A     
 BRIDGE   **        P=ENT - PROCESS ALTERNATE ENTRY POINT.                                 BRIDGE      4081     A     
 BRIDGE   *         GENERATE GL FOR ENTRY POINT TO JUMP TO.                                BRIDGE      4082     A     
 BRIDGE                                                                                    BRIDGE      4083     A     
 BRIDGE                                                                                    BRIDGE      4084     A     
 BRIDGE    P=ENT    BSSENT 0                                                               BRIDGE      4085     A     
 BRIDGE             SA1    =XN.ALTEN                                                       BRIDGE      4086     A     
 BRIDGE             SX7    X1+B1                                                           BRIDGE      4087     A     
 BRIDGE             SA7    A1          N.ALTEN = N.ALTEN + 1                               BRIDGE      4088     A     
 BRIDGE             ADDWRD GLT,B0                                                          BRIDGE      4089     A     
 BRIDGE             SX1    X3+K.GL-1                                                       BRIDGE      4090     A     
 BRIDGE                                                                                    BRIDGE      4091     A     
 BRIDGE   *         INSTALL GL NUMBER IN CLEN FIELD OF ENTRY SYMTAB ENTRY.                 BRIDGE      4092     A     
 BRIDGE                                                                                    BRIDGE      4093     A     
 BRIDGE             SA4    B5+OR.1OP   ENTW = TURP(2)                                      BRIDGE      4094     A     
 BRIDGE             SA2    O$SYM                                                           BRIDGE      4095     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      4096     A     
 BRIDGE             LX4    -TP.ORDP                                                        BRIDGE      4097     A     
 BRIDGE             SB6    X2+WC.W                                                         BRIDGE      4098     A     
 BRIDGE             BX6    -X0*X4                                                          BRIDGE      4099     A     
 BRIDGE             LX2    B1,X6                                                           BRIDGE      4100     A     
 BRIDGE             MX0    WC.EGLL                                                         FC51454        5     A     
 BRIDGE             SX3    X3-1                                                            BRIDGE      4101     A     
 BRIDGE             IX4    X6+X2                                                           BRIDGE      4102     A     
 BRIDGE             LX0    WC.EGLL+WC.EGLP                                                 FC51454        6     A     
 BRIDGE             SA2    B6+X4                                                           BRIDGE      4103     A     
 BRIDGE             BX2    -X0*X2                                                          FC51454        7     A     
 BRIDGE             LX3    WC.EGLP                                                         BRIDGE      4104     A     
 BRIDGE             BX7    X2+X3                                                           BRIDGE      4105     A     
 BRIDGE             SA7    A2          EGL[WC(ORD[TURP(3)] = L.GLT-1                       BRIDGE      4106     A     
 BRIDGE                                                                                    BRIDGE      4107     A     
 BRIDGE             RJ     LAB         ISSUE GL                                            BRIDGE      4108     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      4109     A     
 BRIDGE             ZR     X2,PRE.RET  IF OPT NE 2                                         BRIDGE      4110     A     
 BRIDGE             SA2    CBN                                                             BRIDGE      4111     A     
 BRIDGE             CFTE   1,X2        FLOW FROM PSEUDO-ENTRY BLOCK TO HERE                BRIDGE      4112     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4113     A     
 BRIDGE    EXITS    EJECT                                                                  BRIDGE      4114     A     
 BRIDGE   **        P=PEX - PROCESS EXIT MACRO.                                            BRIDGE      4115     A     
 BRIDGE                                                                                    BRIDGE      4116     A     
 BRIDGE    P=PEX    BSSENT 0                                                               BRIDGE      4117     A     
 BRIDGE             SA1    CC$OPTL                                                         BRIDGE      4118     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      4119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             NZ     X1,PRE.RET  IF IN WELL-BEHAVED LOOP                             BRIDGE      4120     A     
 BRIDGE             ZR     X2,UJP1     IF OPT NE 2                                         BRIDGE      4121     A     
 BRIDGE                                                                                    BRIDGE      4122     A     
 BRIDGE             CFTE   CBN,B0      FLOW( CBN , 0 ) */ SHOW FLOW TO EXIT                BRIDGE      4123     A     
 BRIDGE             EQ     UJP3                                                            BRIDGE      4124     A     
 BRIDGE    PASG     SPACE  4,8                                                             BRIDGE      4125     A     
 BRIDGE   **        P=PASG- PROCESS ASSIGN.                                                BRIDGE      4126     A     
 BRIDGE                                                                                    BRIDGE      4127     A     
 BRIDGE    P=PASG   BSSENT 0                                                               BRIDGE      4128     A     
 BRIDGE             SA1    CTYP                                                            BRIDGE      4129     A     
 BRIDGE             SA2    CNUM                                                            BRIDGE      4130     A     
 BRIDGE             RJ     GOV                                                             BRIDGE      4131     A     
 BRIDGE             SA6    GOVT        T1 = CALL OP = ADDR(LAB)                            BRIDGE      4132     A     
 BRIDGE             SA1    O$TXT                                                           BRIDGE      4133     A     
 BRIDGE             SA2    LL.TXT                                                          BRIDGE      4134     A     
 BRIDGE             SA4    =XS=TRACE                                                       BRIDGE      4135     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      4136     A     
 BRIDGE             SA1    X3-4                                                            BRIDGE      4137     A     
 BRIDGE             LX4    R1.H2P                                                          BRIDGE      4138     A     
 BRIDGE             BX6    X1+X4                                                           BRIDGE      4139     A     
 BRIDGE             SA6    A1          H2[R1W(LAST OP)] = TRACE.                           BRIDGE      4140     A     
 BRIDGE             =A2    A1+1                                                            BRIDGE      4141     A     
 BRIDGE             SA4    O$SYM                                                           BRIDGE      4142     A     
 BRIDGE             LX2    -IH.IHP                                                         BRIDGE      4143     A     
 BRIDGE             =B7    X4+WB.W                                                         BRIDGE      4144     A     
 BRIDGE             SX1    X2                                                              BRIDGE      4145     A     
 BRIDGE             LX2    B1,X1                                                           BRIDGE      4146     A     
 BRIDGE             IX3    X1+X2                                                           BRIDGE      4147     A     
 BRIDGE             SA4    B7+X3                                                           BRIDGE      4148     A     
 BRIDGE             SX6    =XV=ASLAB                                                       BRIDGE      4149     A     
 BRIDGE             HX4    WB.FDEF                                                         BRIDGE      4150     A     
 BRIDGE             PL     X4,SUB.RET  IF CODE LABEL                                       BRIDGE      4151     A     
 BRIDGE             SX6    =XV=ASFMT                                                       BRIDGE      4152     A     
 BRIDGE             EQ     SUB.RET                                                         BRIDGE      4153     A     
 BRIDGE    BRANCH   EJECT                                                                  BRIDGE      4154     A     
 BRIDGE   **        UJP - UNCONDITIONAL JUMP  ( UJP LAB ) PROCESSING                       BRIDGE      4155     A     
 BRIDGE                                                                                    BRIDGE      4156     A     
 BRIDGE    P=PGT    BSSENT 0                                                               BRIDGE      4157     A     
 BRIDGE             SA1    CC$OPTL                                                         BRIDGE      4158     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      4159     A     
 BRIDGE             NZ     X1,PRE.RET  IF CC$OPTL " 0     */ OPT=1  & OPTIMIZABLE          BRIDGE      4160     A     
 BRIDGE             NZ     X2,UJP2     IF OPT EQ 2   */ FLOW ANALYSIS                      BRIDGE      4161     A     
 BRIDGE                                                                                    BRIDGE      4162     A     
 BRIDGE    UJP1     RJ     PCS         PROCESS CURRENT SEQUENCE                            BRIDGE      4163     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4164     A     
 BRIDGE                                                                                    BRIDGE      4165     A     
 BRIDGE    UJP2     =A1    B5+OR.1OP   LABWRD = TURP(2)                                    BRIDGE      4166     A     
 BRIDGE             RJ     GLT         GET LABEL TAG                                       BRIDGE      4167     A     
 BRIDGE             CFTE   CBN,X3,IH   FLOW( CBN , IH[R1] )                                BRIDGE      4168     A     
 BRIDGE                                                                                    BRIDGE      4169     A     
 BRIDGE    UJP3     RJ     PCS         PROCESS SEQUENCE                                    BRIDGE      4170     A     
 BRIDGE             SA1    CBN                                                             BRIDGE      4171     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             SX6    X1+B1       CBN = CBN + 1 */ ADVANCE TO NEXT BLOCK              BRIDGE      4172     A     
 BRIDGE             SA6    A1                                                              BRIDGE      4173     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4174     A     
 BRIDGE    BRANCH   SPACE  4,8                                                             BRIDGE      4175     A     
 BRIDGE   **        GOTO - ASSIGNED / COMPUTED GOTO PROCESSING                             BRIDGE      4176     A     
 BRIDGE                                                                                    BRIDGE      4177     A     
 BRIDGE    P=PAG    BSSENT 0                                                               BRIDGE      4178     A     
 BRIDGE             SA1    CC$OPTL                                                         BRIDGE      4179     A     
 BRIDGE             SA2    OPT2                                                            BRIDGE      4180     A     
 BRIDGE             NZ     X1,PRE.RET  IF CC$OPTL .NE. 0                                   BRIDGE      4181     A     
 BRIDGE             ZR     X2,UJP1     IF OPT .NE. 2                                       BRIDGE      4182     A     
 BRIDGE                                                                                    BRIDGE      4183     A     
 BRIDGE   *         COLLECT FLOW INFORMATION.  ADD ALL OBJECTS OF ASSIGNS TO               BRIDGE      4184     A     
 BRIDGE   *         THIS VARIABLE TO FLOW GRAPH.                                           BRIDGE      4185     A     
 BRIDGE                                                                                    BRIDGE      4186     A     
 BRIDGE             SA1    B5+OR.1OP   LOC = TURP(2)                                       BRIDGE      4187     A     
 BRIDGE             RJ     GLT                                                             BRIDGE      4188     A     
 BRIDGE             MX7    TP.ORBIL                                                        BRIDGE      4189     A     
 BRIDGE             LX3    TP.ORDP                                                         BRIDGE      4190     A     
 BRIDGE             LX4    TP.BIASP                                                        BRIDGE      4191     A     
 BRIDGE             BX0    X3+X4                                                           BRIDGE      4192     A     
 BRIDGE             SA5    =XO$ASG                                                         BRIDGE      4193     A     
 BRIDGE             SA5    X5                                                              BRIDGE      4194     A     
 BRIDGE                                                                                    BRIDGE      4195     A     
 BRIDGE    PAG1     ZR     X5,UJP3     IF LAST ASSIGN ENTRY                                BRIDGE      4196     A     
 BRIDGE             BX3    X5                                                              BRIDGE      4197     A     
 BRIDGE             BX4    X5-X0                                                           BRIDGE      4198     A     
 BRIDGE             SA5    A5+B1                                                           BRIDGE      4199     A     
 BRIDGE             BX6    X7*X4                                                           BRIDGE      4200     A     
 BRIDGE             NZ     X6,PAG1     IF ASG(I) NE LOC                                    BRIDGE      4201     A     
 BRIDGE                                                                                    BRIDGE      4202     A     
 BRIDGE             SX3    X3                                                              BRIDGE      4203     A     
 BRIDGE             CFTE   CBN,X3,IH   FLOW (CBN,TARGET[ASG(I)]                            BRIDGE      4204     A     
 BRIDGE             MX7    TP.ORBIL                                                        BRIDGE      4205     A     
 BRIDGE             EQ     PAG1                                                            BRIDGE      4206     A     
 BRIDGE    BRANCH   SPACE  4,8                                                             BRIDGE      4207     A     
 BRIDGE    P=PCG    BSSENT 0                                                               BRIDGE      4208     A     
 BRIDGE             ADDWRD GLT,B0                                                          BRIDGE      4209     A     
 BRIDGE             SA1    CTYP                                                            BRIDGE      4210     A     
 BRIDGE             SA2    CNUM                                                            BRIDGE      4211     A     
 BRIDGE             RJ     GOV         PLACE PARAMETER (B-REG) IN X6                       BRIDGE      4212     A     
 BRIDGE             SA1    =XL$GLT                                                         BRIDGE      4213     A     
 BRIDGE             SX7    X1+K.GL-1                                                       BRIDGE      4214     A     
 BRIDGE             LX7    IH.IHP      IH = L.GLT + K.GL - 1                               BRIDGE      4215     A     
 BRIDGE             SB7    OC.JIN                                                          BRIDGE      4216     A     
 BRIDGE             BX5    X6                                                              BRIDGE      4217     A     
 BRIDGE             LX5    R1.RIP                                                          BRIDGE      4218     A     
 BRIDGE             RJ     IRI         ISSUE JP #GLN+B(J)                                  BRIDGE      4219     A     
 BRIDGE             LX7    -IH.IHP                                                         BRIDGE      4220     A     
 BRIDGE             BX1    X7                                                              BRIDGE      4221     A     
 BRIDGE             RJ     ALT         ISSUE #GLN  BSS  0                                  BRIDGE      4222     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE      4224     A     
 BRIDGE    PGTA     BSS    1                                                               BRIDGE      4225     A     
 BRIDGE    BRANCH   SPACE  4,8                                                             BRIDGE      4226     A     
 BRIDGE   **        P=JGOTO - PROCESS COMPUTED GOTO JUMP TURPLES.                          BRIDGE      4227     A     
 BRIDGE                                                                                    BRIDGE      4228     A     
 BRIDGE    P=JGOC   BSSENT 0                                                               BRIDGE      4229     A     
 BRIDGE             SA4    CC$OPTL                                                         BRIDGE      4230     A     
 BRIDGE             SA3    OPT2                                                            BRIDGE      4231     A     
 BRIDGE             NZ     X4,PRE.RET  IF IN WELL-BEHAVED LOOP                             BRIDGE      4232     A     
 BRIDGE             ZR     X3,JGOTO1   IF OPT .NE. 2                                       BRIDGE      4233     A     
 BRIDGE             SA1    B5+B1                                                           BRIDGE      4234     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      4235     A     
 BRIDGE             LX1    -TP.ORDP                                                        BRIDGE      4236     A     
 BRIDGE             BX5    -X0*X1                                                          BRIDGE      4237     A     
 BRIDGE             CFTE   CBN,X5,IH   FLOW (CBN,ORD[TURP(2)])                             BRIDGE      4238     A     
 BRIDGE             SA3    OPT2                                                            BRIDGE      4239     A     
 BRIDGE                                                                                    BRIDGE      4240     A     
 BRIDGE    JGOTO1   SA1    PGTA                                                            BRIDGE      4241     A     
 BRIDGE             SX6    X1-1                                                            BRIDGE      4242     A     
 BRIDGE             SA6    A1          NLAB = NLAB-1                                       BRIDGE      4243     A     
 BRIDGE             NZ     X6,PRE.RET  IF NLAB .NE. 0  */ NOT LAST JUMP                    BRIDGE      4244     A     
 BRIDGE             ZR     X3,UJP1     IF OPT NE 2                                         BRIDGE      4245     A     
 BRIDGE             CFTE   CBN,X1+B1   FLOW <CBN,CBN+1>                                    BRIDGE      4246     A     
 BRIDGE             EQ     UJP3                                                            BRIDGE      4247     A     
 BRIDGE    RGT      EJECT                                                                  BRIDGE      4248     A     
 BRIDGE   **        RGT - ALTERNATE RETURN GO TO PROCESSOR.                                BRIDGE      4249     A     
 BRIDGE                                                                                    BRIDGE      4250     A     
 BRIDGE    P=RGT    BSSENT 0                                                               BRIDGE      4251     A     
 BRIDGE                                                                                    BRIDGE      4252     A     
 BRIDGE   *         SET GPBUF(1) TO LAST USER APLIST + BIAS(1OP), AND                      BRIDGE      4253     A     
 BRIDGE   *             GPBUF(2) TO -2OP.                                                  BRIDGE      4254     A     
 BRIDGE                                                                                    BRIDGE      4255     A     
 BRIDGE             =A4    B5+OR.1OP                                                       BRIDGE      4256     A     
 BRIDGE             SA3    UAP                                                             BRIDGE      4257     A     
 BRIDGE             CLAS=  X2,TP,BIAS                                                      BRIDGE      4258     A     
 BRIDGE             =A1    A4+OR.2OP-OR.1OP                                                BRIDGE      4259     A     
 BRIDGE             BX6    X1-X2       BIAS = -BIAS                                        BRIDGE      4260     A     
 BRIDGE             LX4    -TP.BIASP                                                       BRIDGE      4261     A     
 BRIDGE             SA6    GOVG+1      GPBUF(2) = -2OP                                     BRIDGE      4262     A     
 BRIDGE             =X1    K=AP                                                            BRIDGE      4263     A     
 BRIDGE             LX3    TP.ORDP                                                         BRIDGE      4264     A     
 BRIDGE             LX1    TP.CPFXP                                                        BRIDGE      4265     A     
 BRIDGE             SX6    X4                                                              BRIDGE      4266     A     
 BRIDGE             BX3    X1+X3                                                           BRIDGE      4267     A     
 BRIDGE             LX6    TP.BIASP                                                        BRIDGE      4268     A     
 BRIDGE             BX7    X3+X6                                                           BRIDGE      4269     A     
 BRIDGE             =A7    A6-1        GPBUF(1) = LAST APLIST + BIAS[1OP]                  BRIDGE      4270     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4271     A     
 BRIDGE    BRANCH   EJECT                                                                  BRIDGE      4272     A     
 BRIDGE   **        P=IF - COLLECT FLOW FOR IF TURPLES.                                    BRIDGE      4273     A     
 BRIDGE                                                                                    BRIDGE      4274     A     
 BRIDGE    P=IF     BSSENT 0                                                               BRIDGE      4275     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             ADVIL  1           ADVANCE 1 TURPLE                                    BRIDGE      4276     A     
 BRIDGE             SA1    OPT2                                                            BRIDGE      4277     A     
 BRIDGE             ZR     X1,PRE.RET  IF OPT NE 2                                         BRIDGE      4278     A     
 BRIDGE             SA2    O$TXT                                                           BRIDGE      4279     A     
 BRIDGE             SA3    LL.TXT                                                          BRIDGE      4280     A     
 BRIDGE             IX4    X2+X3                                                           BRIDGE      4281     A     
 BRIDGE             SA1    CNUM                                                            BRIDGE      4282     A     
 BRIDGE             SX1    X1-1                                                            BRIDGE      4283     A     
 BRIDGE             LX1    2                                                               BRIDGE      4284     A     
 BRIDGE             SB7    X1                                                              BRIDGE      4285     A     
 BRIDGE             SB6    X4-3                                                            BRIDGE      4286     A     
 BRIDGE             SA5    B6-B7                                                           BRIDGE      4287     A     
 BRIDGE             ZR     B7,IF2      IF ONLY ONE JUMP IN SKELETON                        BRIDGE      4288     A     
 BRIDGE                                                                                    BRIDGE      4289     A     
 BRIDGE   *         LOOP THROUGH ALL BUT LAST BRANCH, FILING CONTROL FLOW.                 BRIDGE      4290     A     
 BRIDGE                                                                                    BRIDGE      4291     A     
 BRIDGE    IF1      LX5    -IH.IHP                                                         BRIDGE      4292     A     
 BRIDGE             SB7    B7-4                                                            BRIDGE      4293     A     
 BRIDGE             CFTE   CBN,X5,IH                                                       BRIDGE      4294     A     
 BRIDGE             SA4    A5-B1                                                           BRIDGE      4295     A     
 BRIDGE             SX3    B6                                                              BRIDGE      4296     A     
 BRIDGE             LX3    R1.INP                                                          BRIDGE      4297     A     
 BRIDGE             BX6    X3+X4                                                           BRIDGE      4298     A     
 BRIDGE             SA6    A4          IN[R1] = OLD(L.CFT)                                 BRIDGE      4299     A     
 BRIDGE             SA5    A5+4                                                            BRIDGE      4300     A     
 BRIDGE             NZ     B7,IF1      IF NOT LAST BRANCH                                  BRIDGE      4301     A     
 BRIDGE                                                                                    BRIDGE      4302     A     
 BRIDGE   *         PROCESS LAST BRANCH.  MAY BE UJP (TYPE 2).                             BRIDGE      4303     A     
 BRIDGE                                                                                    BRIDGE      4304     A     
 BRIDGE    IF2      SA3    A5+B1                                                           BRIDGE      4305     A     
 BRIDGE             LX3    59-D.TYP                                                        BRIDGE      4306     A     
 BRIDGE             MI     X3,IF3      IF UJP (TYPE 2)                                     BRIDGE      4307     A     
 BRIDGE                                                                                    BRIDGE      4308     A     
 BRIDGE   *         MUST BE CONDITIONAL BRANCH (TYPE 3)                                    BRIDGE      4309     A     
 BRIDGE                                                                                    BRIDGE      4310     A     
 BRIDGE             LX5    -IH.IHP                                                         BRIDGE      4311     A     
 BRIDGE             CFTE   CBN,X5,IH                                                       BRIDGE      4312     A     
 BRIDGE             SA4    A5-B1                                                           BRIDGE      4313     A     
 BRIDGE             SX3    B6                                                              BRIDGE      4314     A     
 BRIDGE             LX3    R1.INP                                                          BRIDGE      4315     A     
 BRIDGE             BX6    X3+X4                                                           BRIDGE      4316     A     
 BRIDGE             SA6    A4          IN[R1] = OLD(L.CFT)                                 BRIDGE      4317     A     
 BRIDGE             CFTE   CBN,X1+B1   FLOW <CBN,CBN+1>                                    BRIDGE      4318     A     
 BRIDGE             EQ     UJP3                                                            BRIDGE      4319     A     
 BRIDGE                                                                                    BRIDGE      4320     A     
 BRIDGE    IF3      SA5    A5-1                                                            BRIDGE      4321     A     
 BRIDGE             LX5    -R1.IHP                                                         BRIDGE      4322     A     
 BRIDGE             CFTE   CBN,X5,IH   FLOW <CBN,IH[R1W]>                                  BRIDGE      4323     A     
 BRIDGE             EQ     UJP3                                                            BRIDGE      4324     A     
 BRIDGE    DEFER    EJECT                                                                  BRIDGE      4325     A     
 BRIDGE   **        DEFERRED TURPLE PROCESSORS.                                            BRIDGE      4326     A     
 BRIDGE                                                                                    BRIDGE      4327     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   **        EDT - ENTER TURPLE INTO DEFERRED TURPLE TABLE.                         BRIDGE      4328     A     
 BRIDGE   *                                                                                BRIDGE      4329     A     
 BRIDGE   *         ENTRY  X0 = TS.INFO TO BE INCLUDED IN INDEX ENTRY.                     BRIDGE      4330     A     
 BRIDGE                                                                                    BRIDGE      4331     A     
 BRIDGE    EDT      SUBR                                                                   BRIDGE      4332     A     
 BRIDGE             ALLOC  DTT,3                                                           BRIDGE      4333     A     
 BRIDGE             SA1    B5                                                              BRIDGE      4334     A     
 BRIDGE             SA3    B5+B1                                                           BRIDGE      4335     A     
 BRIDGE             BX6    X1                                                              BRIDGE      4336     A     
 BRIDGE             SA6    X2+B6       DTT(1,L.DTT) = TURP(1)                              BRIDGE      4337     A     
 BRIDGE             BX7    X3                                                              BRIDGE      4338     A     
 BRIDGE             SA1    A3+B1                                                           BRIDGE      4339     A     
 BRIDGE             SA7    A6+B1       DTT(2,L.DTT) = TURP(2)                              BRIDGE      4340     A     
 BRIDGE             BX6    X1                                                              BRIDGE      4341     A     
 BRIDGE             SA6    A7+B1       DTT(3,L.DTT) = TURP(3)                              BRIDGE      4342     A     
 BRIDGE             SA3    INDEX                                                           BRIDGE      4343     A     
 BRIDGE             SA2    O$TST                                                           BRIDGE      4344     A     
 BRIDGE             IX4    X2+X3                                                           BRIDGE      4345     A     
 BRIDGE             SX3    B6                                                              BRIDGE      4346     A     
 BRIDGE             LX3    TS.RNUP     RNU[TST(IND)] = DTT INDEX                           BRIDGE      4347     A     
 BRIDGE             BX7    X3+X0                                                           BRIDGE      4348     A     
 BRIDGE             SA7    X4                                                              BRIDGE      4349     A     
 BRIDGE             EQ     EXIT.                                                           BRIDGE      4350     A     
 BRIDGE    PAR      SPACE  4,8                                                             BRIDGE      4351     A     
 BRIDGE   **        PAR - PROCESS ARRAY TURPLE.                                            BRIDGE      4352     A     
 BRIDGE                                                                                    BRIDGE      4353     A     
 BRIDGE    P=PAR    BSSENT 0                                                               BRIDGE      4354     A     
 BRIDGE             MX0    0                                                               BRIDGE      4355     A     
 BRIDGE             RJ     EDT         ENTER TURPLE INTO DTT                               BRIDGE      4356     A     
 BRIDGE    .ARY     SKIP               RESTORE IF SUBSCRIPTED SUBSCRIPTS OUTPUT            FC5A140       33     A     
 BRIDGE             SA1    B5+OR.2OP                                                       BRIDGE      4357     A     
 BRIDGE             LX1    59-TP.ARYP                                                      BRIDGE      4358     A     
 BRIDGE             PL     X1,PRE.RET  IF ^ARY[TURP(3)]                                    BRIDGE      4359     A     
 BRIDGE             LX1    TP.ARYP-TP.INTRP                                                BRIDGE      4360     A     
 BRIDGE             PL     X1,PRE.RET  IF NOT INTR[TURP(3)]                                BRIDGE      4361     A     
 BRIDGE                                                                                    BRIDGE      4362     A     
 BRIDGE             SA3    IND0                                                            BRIDGE      4363     A     
 BRIDGE             SB6    B0                                                              BRIDGE      4364     A     
 BRIDGE             MX0    -TP.ORDL                                                        BRIDGE      4365     A     
 BRIDGE             LX1    TP.INTRP-TP.ADDRP                                               BRIDGE      4366     A     
 BRIDGE             BX4    X1                                                              BRIDGE      4367     A     
 BRIDGE             LX1    TP.ADDRP-59-TP.ORDP+60                                          BRIDGE      4368     A     
 BRIDGE             BX6    -X0*X1                                                          BRIDGE      4369     A     
 BRIDGE             SX1    OC.LD                                                           BRIDGE      4370     A     
 BRIDGE             PL     X4,PAR1     IF NOT ADDR[TURP(3)]  */ NOT A(LOCF(B(I)))          BRIDGE      4371     A     
 BRIDGE             SX1    OC.STT                                                          BRIDGE      4372     A     
 BRIDGE                                                                                    BRIDGE      4373     A     
 BRIDGE    PAR1     IX6    X6-X3                                                           BRIDGE      4374     A     
 BRIDGE             SB7    X6          IND = ORD[TURP(3)] - IND0                           BRIDGE      4375     A     
 BRIDGE             RJ     GAR         GENERATE ARRAY LOAD                                 BRIDGE      4376     A     
 BRIDGE             SA1    =XO$DTT                                                         BRIDGE      4377     A     
 BRIDGE             SA2    =XL$DTT                                                         BRIDGE      4378     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             IX0    X1+X2                                                           BRIDGE      4379     A     
 BRIDGE             SA1    X0-1                                                            BRIDGE      4380     A     
 BRIDGE             MX0    -TP.BIASL                                                       BRIDGE      4381     A     
 BRIDGE             LX1    -TP.BIASP                                                       BRIDGE      4382     A     
 BRIDGE             BX2    X0*X1                                                           BRIDGE      4383     A     
 BRIDGE             BX6    X2+X6                                                           BRIDGE      4384     A     
 BRIDGE             LX6    TP.BIASP                                                        BRIDGE      4385     A     
 BRIDGE             SA6    A1          BIAS[OP2(DTT(L.DTT))] = RN(GAR)                     BRIDGE      4386     A     
 BRIDGE    .ARY     ENDIF                                                                  FC5A140       34     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4387     A     
 BRIDGE    HCAT     EJECT                                                                  BRIDGE      4388     A     
 BRIDGE   **        HCAT - PROCESS CONCATENATE TURPLE.                                     BRIDGE      4389     A     
 BRIDGE                                                                                    BRIDGE      4390     A     
 BRIDGE    P=HCAT   BSSENT 0                                                               BRIDGE      4391     A     
 BRIDGE             MX0    0                                                               BRIDGE      4392     A     
 BRIDGE             RJ     EDT         ENTER TURPLE INTO DTT                               BRIDGE      4393     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4394     A     
 BRIDGE    HSBS     SPACE  4,8                                                             BRIDGE      4395     A     
 BRIDGE   **        HSBS - PROCESS SUBSTRING TURPLE.                                       BRIDGE      4396     A     
 BRIDGE                                                                                    BRIDGE      4397     A     
 BRIDGE    P=HSBS   BSSENT 0                                                               BRIDGE      4398     A     
 BRIDGE             CLAS=  X0,TS,SUB                                                       BRIDGE      4399     A     
 BRIDGE             RJ     EDT         ENTER INTO DTT                                      BRIDGE      4400     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4401     A     
 BRIDGE    HCOL     SPACE  4,8                                                             BRIDGE      4402     A     
 BRIDGE   **        HCOL - PROCESS COLON TURPLE.                                           BRIDGE      4403     A     
 BRIDGE                                                                                    BRIDGE      4404     A     
 BRIDGE    P=HCOL   BSSENT 0                                                               BRIDGE      4405     A     
 BRIDGE             MX0    0                                                               BRIDGE      4406     A     
 BRIDGE             RJ     EDT         ENTER TURPLE INTO DTT                               BRIDGE      4407     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4408     A     
 BRIDGE    IMULT    EJECT                                                                  BRIDGE      4409     A     
 BRIDGE   **        P=IM - SELECT INTEGER MULTIPLY SUBSKEL ON BASIS OF                     BRIDGE      4410     A     
 BRIDGE   *         MULTIPLICAND NATURE.                                                   BRIDGE      4411     A     
 BRIDGE                                                                                    BRIDGE      4412     A     
 BRIDGE    P=IM     BSSENT 0                                                               BRIDGE      4413     A     
 BRIDGE   *CALL     COMFSIM            SELECT INTEGER MULTIPLY SUBSKEL                     BRIDGE      4414     A     
 BRIDGE    IDIV     EJECT                                                                  BRIDGE      4415     A     
 BRIDGE   **        P=ID - SELECT INTEGER DIVIDE SUBSKEL.                                  BRIDGE      4416     A     
 BRIDGE    P=ID     BSSENT 0                                                               BRIDGE      4417     A     
 BRIDGE   *CALL     COMFSID            SELECT INTEGER DIVIDE SUBSKEL                       BRIDGE      4418     A     
 BRIDGE    MASK     EJECT                                                                  BRIDGE      4419     A     
 BRIDGE   **        P=MASK - SELECT MASK SUBSKEL.                                          BRIDGE      4420     A     
 BRIDGE                                                                                    BRIDGE      4421     A     
 BRIDGE    P=MASK   BSSENT 0                                                               BRIDGE      4422     A     
 BRIDGE   *CALL     COMFSMK            SELECT MASK SUBSKEL                                 BRIDGE      4423     A     
 BRIDGE    MOD      EJECT                                                                  BRIDGE      4424     A     
 BRIDGE   **        P=MOD - SELECT MOD SUBSKEL.                                            BRIDGE      4425     A     
 BRIDGE                                                                                    BRIDGE      4426     A     
 BRIDGE    P=MOD    BSSENT 0                                                               BRIDGE      4427     A     
 BRIDGE   *CALL     COMFSMD            SELECT MOD SUBSKEL                                  BRIDGE      4428     A     
 BRIDGE    SHIFT    EJECT                                                                  BRIDGE      4429     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE   **        P=SHIFT - SELECT SHIFT SUBSKEL.                                        BRIDGE      4430     A     
 BRIDGE    P=SHIFT  BSSENT 0                                                               BRIDGE      4431     A     
 BRIDGE   *CALL     COMFSSH            SELECT SHIFT SUBSKEL                                BRIDGE      4432     A     
 BRIDGE    BVD      EJECT                                                                  BRIDGE      4433     A     
 BRIDGE   **        BVD - PROCESS START OF VARDIM CODE.                                    BRIDGE      4434     A     
 BRIDGE                                                                                    BRIDGE      4435     A     
 BRIDGE    P=BVD    BSSENT 0                                                               BRIDGE      4436     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4437          I
          -FC51342
 BRIDGE             SA1    LL.TXT                                                          FC51342        9     A     
 BRIDGE             SX6    X1-4                                                            FC51342       10     A     
 BRIDGE             ZR     X6,PRE.RET  IF EMPTY SEQUENCE                                   FC51342       11     A     
 BRIDGE             RJ     PCS         PROCESS CURRENT SEQUENCE                            FC51342       12     A     
 BRIDGE             EQ     PRE.RET                                                         FC51342       13     A     
 BRIDGE    EVD      SPACE  4,8                                                             BRIDGE      4438     A     
 BRIDGE   **        EVD - PROCESS END OF VARDIM CODE.                                      BRIDGE      4439     A     
 BRIDGE                                                                                    BRIDGE      4440     A     
 BRIDGE    P=EVD    BSSENT 0                                                               BRIDGE      4441     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      4442     A     
 BRIDGE             BX6    X1                                                              BRIDGE      4443     A     
 BRIDGE             SA6    L$TXT                                                           BRIDGE      4444     A     
 BRIDGE             ALLOC  VDT,X1                                                          BRIDGE      4445     A     
 BRIDGE             BX3    X2                                                              BRIDGE      4446     A     
 BRIDGE             SA2    O$TXT                                                           BRIDGE      4447     A     
 BRIDGE             MOVE   X1,X2,X3    MOVE TXT TO VDT FOR END PROCESSING                  BRIDGE      4448     A     
 BRIDGE             SX7    4                                                               BRIDGE      4449     A     
 BRIDGE             SA7    L$TXT                                                           BRIDGE      4450     A     
 BRIDGE             SA7    LL.TXT                                                          BRIDGE      4451     A     
 BRIDGE             EQ     PRE.RET                                                         BRIDGE      4452     A     
 BRIDGE    FIN      SPACE  4,8                                                             BRIDGE      4453     A     
 BRIDGE   **        P=FIN - TERMINATE IL PROCESSING.                                       BRIDGE      4454     A     
 BRIDGE                                                                                    BRIDGE      4455     A     
 BRIDGE    P=FIN    BSSENT 0                                                               BRIDGE      4456     A     
 BRIDGE             RJ     TSP                                                             BRIDGE      4457     A     
 BRIDGE             RJ     MDV         MARK VD.S AS MATERIALIZED                           BRIDGE      4458     A     
 BRIDGE             SX7    0                                                               BRIDGE      4459     A     
 BRIDGE             SA7    L$FUN                                                           BRIDGE      4460          I
          -FC51198
 BRIDGE             SA7    =XL$ASG     L.ASG = 0                                           BRIDGE      4461     A     
 BRIDGE             SA1    LL.TXT                                                          BRIDGE      4462     A     
 BRIDGE             BX7    X1                                                              BRIDGE      4463     A     
 BRIDGE             SX6    X1-4                                                            BRIDGE      4464     A     
 BRIDGE             SA7    L$TXT                                                           BRIDGE      4465     A     
 BRIDGE             ZR     X6,BRIDGE   IF EMPTY SEQUENCE                                   BRIDGE      4466     A     
 BRIDGE             SA6    =XCC$BRN+1  LRN = L.TXT - 4                                     BRIDGE      4467     A     
 BRIDGE             RJ     IST         INSERT STORES TO TEMPS.                             BRIDGE      4468     A     
 BRIDGE             MX6    0                                                               FC51198        5     A     
 BRIDGE             SA6    L$FUN                                                           FC51198        6     A     
 BRIDGE             CALL   CG$PAS                                                          BRIDGE      4469     A     
 BRIDGE             EQ     BRIDGE                                                          BRIDGE      4470     A     
 BRIDGE    ILL      SPACE  4,8                                                             BRIDGE      4471     A     
 BRIDGE   **        ILL - TURPLE CODE LOST.                                                BRIDGE      4472     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE                                                                                    BRIDGE      4473     A     
 BRIDGE    P=ILL    BSSENT 0                                                               BRIDGE      4474     A     
 BRIDGE             EQ     "BLOWUP"                                                        BRIDGE      4475     A     
 BRIDGE    MDV      SPACE  4,8                                                             BRIDGE      4476     A     
 BRIDGE   **        MDV - MARK CERTAIN DIMTAB-RESIDENT VARDIMS AS NEEDED.                  BRIDGE      4477     A     
 BRIDGE   *                                                                                BRIDGE      4478     A     
 BRIDGE   *         MDV MARKS SPAN AND LOWER BOUND OF *MAT* DIMTAB AS                      BRIDGE      4479     A     
 BRIDGE   *         NEEDED.                                                                BRIDGE      4480     A     
 BRIDGE   *                                                                                BRIDGE      4481     A     
 BRIDGE                                                                                    BRIDGE      4482     A     
 BRIDGE    MDV      SUBR                                                                   BRIDGE      4483     A     
 BRIDGE             MX0    -DI.INFL                                                        BRIDGE      4484          I
          -FC5A231
 BRIDGE             MX0    -DM.INFL                                                        FC5A231      161     A     
 BRIDGE             SA2    =XO$DIM                                                         BRIDGE      4485     A     
 BRIDGE             SA3    =XL$DIM                                                         BRIDGE      4486     A     
 BRIDGE             IX7    X2+X3                                                           BRIDGE      4487     A     
 BRIDGE             SB7    X7                                                              BRIDGE      4488     A     
 BRIDGE             SA2    X2-1                                                            BRIDGE      4489     A     
 BRIDGE                                                                                    BRIDGE      4490     A     
 BRIDGE    MDV5     SA2    A2+B1                                                           BRIDGE      4491     A     
 BRIDGE             SB2    A2-B7                                                           BRIDGE      4492     A     
 BRIDGE             ZR     B2,EXIT.    IF DIMTAB EXHAUSTED                                 BRIDGE      4493     A     
 BRIDGE             BX4    X2                                                              BRIDGE      4494     A     
 BRIDGE             HX4    DH.VD                                                           BRIDGE      4495     A     
 BRIDGE             LX2    -DH.DIMP                                                        BRIDGE      4496     A     
 BRIDGE             MX3    -DH.DIML                                                        BRIDGE      4497     A     
 BRIDGE             BX3    -X3*X2                                                          BRIDGE      4498     A     
 BRIDGE             PL     X4,MDV40    IF NOT VARDIM                                       BRIDGE      4499     A     
 BRIDGE             LX4    DH.VDP-DH.MATP                                                  BRIDGE      4500     A     
 BRIDGE             PL     X4,MDV40    IF NOT NEEDED                                       BRIDGE      4501     A     
 BRIDGE             SB6    X3                                                              BRIDGE      4502     A     
 BRIDGE                                                                                    BRIDGE      4503     A     
 BRIDGE    MDV10    =A2    A2+1                                                            BRIDGE      4504     A     
 BRIDGE             LX2    59-D1.SPANP-DI.TDP                                              BRIDGE      4505          I
          -FC5A231
 BRIDGE             LX2    59-D1.SPANP-DM.TDP                                              FC5A231      162     A     
 BRIDGE             PL     X2,MDV20    IF NOT VARIABLE SPAN                                BRIDGE      4506     A     
 BRIDGE             LX2    1+DI.TDP                                                        BRIDGE      4507          I
          -FC5A231
 BRIDGE             LX2    1+DM.TDP                                                        FC5A231      163     A     
 BRIDGE             BX1    -X0*X2                                                          BRIDGE      4508     A     
 BRIDGE             CALL   CG$AVO                                                          BRIDGE      4509     A     
 BRIDGE                                                                                    BRIDGE      4510     A     
 BRIDGE    MDV20    =A2    A2+1                                                            BRIDGE      4511     A     
 BRIDGE             LX2    59-D2.LBP-DI.TDP                                                BRIDGE      4512          I
          -FC5A231
 BRIDGE             LX2    59-D2.LBP-DM.TDP                                                FC5A231      164     A     
 BRIDGE             PL     X2,MDV30    IF NOT VARIABLE LOWER BOUND                         BRIDGE      4513     A     
 BRIDGE             LX2    1+DI.TDP                                                        BRIDGE      4514          I
          -FC5A231
 BRIDGE             LX2    1+DM.TDP                                                        FC5A231      165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
 BRIDGE             BX1    -X0*X2                                                          BRIDGE      4515     A     
 BRIDGE             CALL   CG$AVO                                                          BRIDGE      4516     A     
 BRIDGE                                                                                    BRIDGE      4517     A     
 BRIDGE    MDV30    =B6    B6-1                                                            BRIDGE      4518     A     
 BRIDGE             NZ     B6,MDV10    IF MORE DIMENSIONS TO GO                            BRIDGE      4519     A     
 BRIDGE             EQ     MDV5                                                            BRIDGE      4520     A     
 BRIDGE                                                                                    BRIDGE      4521     A     
 BRIDGE    MDV40    LX4    B1,X3                                                           BRIDGE      4522     A     
 BRIDGE             ERRNZ  Z=DD-2                                                          BRIDGE      4523     A     
 BRIDGE             SB6    X4                                                              BRIDGE      4524     A     
 BRIDGE             SA2    A2+B6                                                           BRIDGE      4525     A     
 BRIDGE             EQ     MDV5                                                            BRIDGE      4526     A     
 BRIDGE    LCC      SPACE  4,10                                                            BRIDGE      4527     A     
 BRIDGE    P=LCC    BSSENT                                                                 BRIDGE      4528     A     
 BRIDGE             =A1    B5+OR.1OP                                                       BRIDGE      4529     A     
 BRIDGE             SX7    OC$LCC                                                          BRIDGE      4530     A     
 BRIDGE             LX1    0-TP.BIASP+PB.BIASP                                             BRIDGE      4531     A     
 BRIDGE             LX7    PB.GHIJP                                                        BRIDGE      4532     A     
 BRIDGE             =A2    B5+OR.2OP                                                       BRIDGE      4533     A     
 BRIDGE             BX7    X7+X1                                                           BRIDGE      4534     A     
 BRIDGE             LX2    0-TP.BIASP+PB.TAGP                                              BRIDGE      4535     A     
 BRIDGE             BX7    X7+X2                                                           BRIDGE      4536     A     
 BRIDGE             WCODE  X7,PRE.RET                                                      BRIDGE      4537     A     
 BRIDGE                                                                                    BRIDGE      4538     A     
 BRIDGE             END                                                                    BRIDGE      4539     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BRIDGE  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BRIDGE                    4539      4444
          FC5A113                     22        21
          FC5A132                     16        16
          FC5A140                      8         8
          FC5A150                      4         3
          FC5A164                      7         7
          FC5A180                      1         1
          FC5A181                      2         2
          FC5A186                      5         5
          FC5A191                      1         1
          FC5A218                     10        10
          FC5A231                      5         5
          FC5A243                     19        19
          FC50067                      2         2
          FC50130                      8         8
          FC50136                     17        17
          FC50104                      3         3
          FC50586                      5         5
          FC5A395                      3         3
          FC50651                     16        16
          FC50684                      8         8
          FC50728                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BRIDGE  
  
          FC5A415                      2         2
          FC5A438                     12        12
          FC51198                      2         2
          FC51210                      2         2
          FC51342                      5         5
          FC51379                      6         6
          FC51454                      3         3
          FC51544                      9         9
          FC51566                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL    *DECK CSKEL                                                                      CSKEL          1     A     
 CSKEL              IDENT  CSKEL                                                           CSKEL          2     A     
 CSKEL     CSKEL    SECT   (FORM CODE SKELETON TABLES.)                                    CSKEL          3     A     
 CSKEL              NOREF  A,F.SCT,SFLAG,LCALL,MAXT,X,Z,BR,B,C                             CSKEL          4     A     
 CSKEL     .FAST    EQU    0                                                               CSKEL          5     A     
 CSKEL     .OPT     EQU    1                                                               CSKEL          6     A     
 CSKEL     .CG      EQU    .OPT                                                            CSKEL          7     A     
 CSKEL     CSKEL    SPACE  4,8                                                             CSKEL          8     A     
 CSKEL    *         IN BRIDGE                                                              CSKEL          9     A     
 CSKEL              EXT    P=APRET,P=BVD,P=CGT,P=DOEND,P=ENT,P=EVD,P=FIN,P=FRRET           CSKEL         10     A     
 CSKEL              EXT    P=FUN,P=GAP,P=GFD,P=HDR,P=IAP,P=ID,P=IF,P=IM,P=INF              CSKEL         11     A     
 CSKEL              EXT    P=IOC,P=IOD,P=IOF,P=JGOC,P=LCC,P=LRJ,P=MASK,P=MOD               CSKEL         12     A     
 CSKEL              EXT    P=PAG,P=PAR,P=PCG,P=PDB,P=PDE,P=PEX,P=PGT,P=PLA,P=PLIM          CSKEL         13     A     
 CSKEL              EXT    P=RTNK,P=SEG,P=SEX,P=SHIFT,P=SUB                                CSKEL         14     A     
 CSKEL                                                                                     CSKEL         15     A     
 CSKEL    *         IN PUC                                                                 CSKEL         16     A     
 CSKEL              EXT    S=ERR,S=EXIT                                                    CSKEL         17     A     
 CSKEL     SKEL.    TITLE  MACROS.                                                         CSKEL         18     A     
 CSKEL    **        THE FOLLOWING ARE ALL MACROS USED BY *SKEL* FOR CODE                   CSKEL         19     A     
 CSKEL    *         SKELETON ELEMENT GENERATION. NO MACRO RELEVENT TO                      CSKEL         20     A     
 CSKEL    *         SKELETON CONSTRUCTION SHOULD LIE OUTSIDE *SKEL*.                       CSKEL         21     A     
 CSKEL              SPACE  4,8                                                             CSKEL         22     A     
 CSKEL                                                                                     CSKEL         23     A     
 CSKEL     A0       MICRO  1,,/1/                                                          CSKEL         24     A     
 CSKEL     TBR      MICRO  1,,/T21/                                                        CSKEL         25     A     
 CSKEL     IR       MICRO  1,,/T22/                                                        CSKEL         26     A     
 CSKEL     A0.      MICRO  1,,/10B/                                                        CSKEL         27     A     
 CSKEL     X1.      MICRO  1,,/21B/                                                        CSKEL         28     A     
 CSKEL     X6.      MICRO  1,,/26B/                                                        CSKEL         29     A     
 CSKEL     X7.      MICRO  1,,/27B/                                                        CSKEL         30     A     
 CSKEL     SBR      EQU    2B                                                              CSKEL         31     A     
 CSKEL                                                                                     CSKEL         32     A     
 CSKEL    **        RMM= - FORCE MICRO EVALUATION FOR REMOTES.                             CSKEL         33     A     
 CSKEL                                                                                     CSKEL         34     A     
 CSKEL              MACRO  RMM=,BLK,S,NAME                                                 CSKEL         35     A     
 CSKEL     BLK      RMT                                                                    CSKEL         36     A     
 CSKEL    S    1/0"P#_NAME",18/O=NAME_____________________________________________         CSKEL         37     A     
 CSKEL     BLK      RMT                                                                    CSKEL         38     A     
 CSKEL     RMM=     ENDM                                                                   CSKEL         39     A     
 CSKEL                                                                                     CSKEL         40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL              MACRO  SKEL,NAME                                                       CSKEL         41     A     
 CSKEL     BRT      SET    0                                                               CSKEL         42     A     
 CSKEL     MAXT     SET    0                                                               CSKEL         43     A     
 CSKEL     BR       SET    0                                                               CSKEL         44     A     
 CSKEL     LCALL    SET    0                                                               CSKEL         45     A     
 CSKEL     CUR      MICRO  1,,/NAME/                                                       CSKEL         46     A     
 CSKEL     NAM      MICRO  1,8,/E=NAME        /                                            CSKEL         47     A     
 CSKEL     O=NAME   SET    *                                                               CSKEL         48     A     
 CSKEL     SCT RMM=  ("NAM" VFD),NAME                                                      CSKEL         49     A     
 CSKEL     ENT      RMT                                                                    CSKEL         50     A     
 CSKEL     V=NAME   EQU    E=NAME                                                          CSKEL         51     A     
 CSKEL     ENT      RMT                                                                    CSKEL         52     A     
 CSKEL     SKEL     ENDM                                                                   CSKEL         53     A     
 CSKEL     SKEQU    SPACE  4,8                                                             CSKEL         54     A     
 CSKEL    **        SKEQU - EQUATE CODE SKELETON FOR TURPLE TO OTHER SKELETON.             CSKEL         55     A     
 CSKEL                                                                                     CSKEL         56     A     
 CSKEL              MACRO  SKEQU,NEW,OLD                                                   CSKEL         57     A     
 CSKEL     ENT      RMT                                                                    CSKEL         58     A     
 CSKEL     V=NEW    EQU    V=OLD                                                           CSKEL         59     A     
 CSKEL     ENT      RMT                                                                    CSKEL         60     A     
 CSKEL     SKEQU    ENDM                                                                   CSKEL         61     A     
 CSKEL     SUBSKEL  SPACE  4,8                                                             CSKEL         62     A     
 CSKEL    **        SUBSKEL - DEFINE CODE SKELETON TO BE SELECTED BY BACK END.             CSKEL         63     A     
 CSKEL                                                                                     CSKEL         64     A     
 CSKEL              MACRO  SUBSKEL,NAME                                                    CSKEL         65     A     
 CSKEL     MAXT     SET    0                                                               CSKEL         66     A     
 CSKEL     BR       SET    0                                                               CSKEL         67     A     
 CSKEL     BRT      SET    0                                                               CSKEL         68     A     
 CSKEL     LCALL    SET    0                                                               CSKEL         69     A     
 CSKEL     CUR      MICRO  1,,/NAME/                                                       CSKEL         70     A     
 CSKEL     NAM      MICRO  1,8,/E=NAME        /                                            CSKEL         71     A     
 CSKEL     O=NAME   SET    *                                                               CSKEL         72     A     
 CSKEL     SUBSKELS RMM= ("NAM" VFD),NAME                                                  CSKEL         73     A     
 CSKEL     ENT      RMT                                                                    CSKEL         74     A     
 CSKEL              ENTRY  V=NAME                                                          CSKEL         75     A     
 CSKEL     V=NAME   EQU    E=NAME                                                          CSKEL         76     A     
 CSKEL     ENT      RMT                                                                    CSKEL         77     A     
 CSKEL     SUBSKEL  ENDM                                                                   CSKEL         78     A     
 CSKEL     SUBEQU   SPACE  4,8                                                             CSKEL         79     A     
 CSKEL    **        SUBEQU - EQUATE CODE SKELETON TO BE SELECTED BY BACK END               CSKEL         80     A     
 CSKEL    *         TO OTHER SKELETON.                                                     CSKEL         81     A     
 CSKEL                                                                                     CSKEL         82     A     
 CSKEL              MACRO  SUBEQU,NEW,OLD                                                  CSKEL         83     A     
 CSKEL     ENT      RMT                                                                    CSKEL         84     A     
 CSKEL              ENTRY  V=NEW                                                           CSKEL         85     A     
 CSKEL     V=NEW    EQU    V=OLD                                                           CSKEL         86     A     
 CSKEL     ENT      RMT                                                                    CSKEL         87     A     
 CSKEL     SUBEQU   ENDM                                                                   CSKEL         88     A     
 CSKEL              SPACE  4,8                                                             CSKEL         89     A     
 CSKEL    **        ENDS - END MACRO SKELETON.                                             CSKEL         90     A     
 CSKEL    *                                                                                CSKEL         91     A     
 CSKEL    *         *ENDS* IS IDENTICAL TO *ENDF* EXCEPT THE END SKELETON                  CSKEL         92     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL    *         FLAG (BIT 59) IS SET IN THE SKELETON ELEMENT BEFORE                    CSKEL         93     A     
 CSKEL    *         FLUSHING.                                                              CSKEL         94     A     
 CSKEL                                                                                     CSKEL         95     A     
 CSKEL                                                                                     CSKEL         96     A     
 CSKEL     ENDS     MACRO                                                                  CSKEL         97     A     
 CSKEL     LABMAX   HERE                                                                   CSKEL         98     A     
 CSKEL     MAXT     DECMIC MAXT                                                            CSKEL         99     A     
 CSKEL     .LC      IFNE   LCALL,0                                                         CSKEL        100     A     
 CSKEL     .LC      IFC    EQ,$"L3"$$  IF THIS CALL HAS NO PARAMETER                       CSKEL        101     A     
 CSKEL     .LC      IFEQ   BRT,0       IF NO BRANCHES INTO THIS SKEL                       CSKEL        102     A     
 CSKEL     P#"CUR"  MICRO  1,,$"L",6/"MAXT",2/0"L4"$                                       CSKEL        103     A     
 CSKEL     .LC      ELSE                                                                   CSKEL        104     A     
 CSKEL              VFD    "H""L4""L""L2""L3""Q"                                           CSKEL        105     A     
 CSKEL     P#"CUR"  MICRO  1,,$,11/0,6/"MAXT",24/0$                                        CSKEL        106     A     
 CSKEL     .LC      ENDIF                                                                  CSKEL        107     A     
 CSKEL              IFEQ   O="CUR",*,1                                                     CSKEL        108     A     
 CSKEL     O="CUR"  SET    0                                                               CSKEL        109     A     
 CSKEL     H        MICRO                                                                  CSKEL        110     A     
 CSKEL     L        MICRO                                                                  CSKEL        111     A     
 CSKEL     L2       MICRO                                                                  CSKEL        112     A     
 CSKEL     L3       MICRO                                                                  CSKEL        113     A     
 CSKEL     L4       MICRO                                                                  CSKEL        114     A     
 CSKEL     Q        MICRO                                                                  CSKEL        115     A     
 CSKEL     SFLAG    SET    40B                                                             CSKEL        116     A     
 CSKEL     ENDS     ENDM                                                                   CSKEL        117     A     
 CSKEL    **        FORM  -  FORM INSTRUCTION SKELETON ELEMENT.                            CSKEL        118     A     
 CSKEL    *                                                                                CSKEL        119     A     
 CSKEL    *         IJK    = I,J,K PORTIONS OF INSTRUCTION BOUNDED BY                      CSKEL        120     A     
 CSKEL    *                  PARENTHESES.                                                  CSKEL        121     A     
 CSKEL    *         NAME = OPCODE.                                                         CSKEL        122     A     
 CSKEL    *         TYPE = INSTRUCTION TYPE. 0 FOR NORMAL INSTRUCTIONS,                    CSKEL        123     A     
 CSKEL    *                                  1 FOR CALL INSTRUCTIONS,                      CSKEL        124     A     
 CSKEL    *                                  2 FOR BRANCH INSTRUCTIONS.                    CSKEL        125     A     
 CSKEL    *                BIT 5 OF THE TYPE FIELD (BIT 59 OF INSTRUCTION WORD)            CSKEL        126     A     
 CSKEL    *                SIGNIFIES START OF SKELETON.                                    CSKEL        127     A     
 CSKEL    *                                                                                CSKEL        128     A     
 CSKEL    *         THIS IS THE MAIN MACRO FOR SKELETON CONSTRUCTION.                      CSKEL        129     A     
 CSKEL    *         EACH MACRO CREATED BY *DEFINS* AND *DEFUJP* INCLUDES                   CSKEL        130     A     
 CSKEL    *         A CALL TO *FORM*. THE SECOND AND THIRD PARAMETERS TO                   CSKEL        131     A     
 CSKEL    *         *FORM* (OPCODE AND TYPE) ARE TAKEN FROM THE *DEFINS*                   CSKEL        132     A     
 CSKEL    *         OR *DEFUJP* MACRO EXPANSION THAT DEFINED THE MACRO                     CSKEL        133     A     
 CSKEL    *         NAMED WITH THE OPCODE MNEMONIC IN THE LOCATION FIELD                   CSKEL        134     A     
 CSKEL    *         OF THE CALL. THE *IJK* PARAMETER IS SUPPLIED TO *FORM* AS              CSKEL        135     A     
 CSKEL    *         THE THREE PARAMETERS OF THE MACRO WHOSE NAME IS THIS                   CSKEL        136     A     
 CSKEL    *         MNEMONIC. THE MACRO FLOW PROCEEDS TOWARD THE FORMATION                 CSKEL        137     A     
 CSKEL    *         OF THREE MICROS "H", "L" AND "Q"..                                     CSKEL        138     A     
 CSKEL    *                                                                                CSKEL        139     A     
 CSKEL    *         "H"    = INSTRUCTION TYPE AND OPCODE.                                  CSKEL        140     A     
 CSKEL    *         "L"    = 3*(CONSTANT, AT. INDEX), 1 EACH FOR I, J QND K.               CSKEL        141     A     
 CSKEL    *         "Q"    = SET IF 12 BIT Q FIELD PRESENT.                                CSKEL        142     A     
 CSKEL    *                                                                                CSKEL        143     A     
 CSKEL    *         INSTRUCTION SKELETON ELEMENT FORMAT CREATED BY A CALL                  CSKEL        144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL    *         TO *FORM* IS..                                                         CSKEL        145     A     
 CSKEL    *                                                                                CSKEL        146     A     
 CSKEL    *         +-----+--------+-----+----+-----+----+-----+----+------------+         CSKEL        147     A     
 CSKEL    *         +     +        +     +    +     +    +     +    +            +         CSKEL        148     A     
 CSKEL    *         + TYP + OPCODE +  I  + I  +  J  + J  +  K  + K  +     Q      +         CSKEL        149     A     
 CSKEL    *         +     +        + ADDR+ NUM+ ADDR+ NUM+ ADDR+ NUM+  CONSTANT  +         CSKEL        150     A     
 CSKEL    *         +     +        +     +    +     +    +     +    +            +         CSKEL        151     A     
 CSKEL    *         +-----+--------+-----+----+-----+----+-----+----+------------+         CSKEL        152     A     
 CSKEL    *            6      9       5    6     5    6     5    6       12                CSKEL        153     A     
 CSKEL    *                                                                                CSKEL        154     A     
 CSKEL    *         *ADDR* IS THE AT. INDEX REFERRED TO ABOVE.                             CSKEL        155     A     
 CSKEL                                                                                     CSKEL        156     A     
 CSKEL                                                                                     CSKEL        157     A     
 CSKEL     FORM     MACRO  IJK,NAME,AD,RTYPE                                               CSKEL        158     A     
 CSKEL              IFC    NE,/AD//,4                                                      CSKEL        159     A     
 CSKEL     BRT      SET    1           FLAG BRANCH TARGET                                  CSKEL        160     A     
 CSKEL     LABMAX   RMT                                                                    CSKEL        161     A     
 CSKEL     .AD      EQU    MAXT                                                            CSKEL        162     A     
 CSKEL     LABMAX   RMT                                                                    CSKEL        163     A     
 CSKEL     BR       SET    0                                                               CSKEL        164     A     
 CSKEL     LCALL    SET    0                                                               CSKEL        165     A     
 CSKEL              VFD    "H""L4""L""L2""L3""Q"                                           CSKEL        166     A     
 CSKEL     AD BSS 0                                                                        CSKEL        167     A     
 CSKEL     L MICRO                                                                         CSKEL        168     A     
 CSKEL     L2       MICRO                                                                  CSKEL        169     A     
 CSKEL     L3       MICRO                                                                  CSKEL        170     A     
 CSKEL     L4       MICRO                                                                  CSKEL        171     A     
 CSKEL     Q        MICRO  1,,$,*P/0$                                                      CSKEL        172     A     
 CSKEL     X        SET    RTYPE+SFLAG                                                     CSKEL        173     A     
 CSKEL     SFLAG    SET    0                                                               CSKEL        174     A     
 CSKEL     H MICRO 1,,$6/X,9/OC.NAME$                                                      CSKEL        175     A     
 CSKEL    .1        IRP    IJK                                                             CSKEL        176     A     
 CSKEL              IFC    EQ,/IJK/NULL/,1                                                 CSKEL        177     A     
 CSKEL              SKIP   7                                                               CSKEL        178     A     
 CSKEL              IFC    EQ,  IJK ,2                                                     CSKEL        179     A     
 CSKEL     L        MICRO  1,,$"L",11/0$                                                   CSKEL        180     A     
 CSKEL              SKIP   4                                                               CSKEL        181     A     
 CSKEL              IFC    LT, IJK 0 ,2      IF PARAMETER IS A LETTER                      CSKEL        182     A     
 CSKEL              SETOTH IJK                                                             CSKEL        183     A     
 CSKEL              SKIP   1                                                               CSKEL        184     A     
 CSKEL              SETCON IJK                                                             CSKEL        185     A     
 CSKEL    .1        IRP                                                                    CSKEL        186     A     
 CSKEL     FORM     ENDM                                                                   CSKEL        187     A     
 CSKEL     SETCON   SPACE  4,8                                                             CSKEL        188     A     
 CSKEL    **        SETCON  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR                  CSKEL        189     A     
 CSKEL    *                  A CONSTANT.                                                   CSKEL        190     A     
 CSKEL    *                                                                                CSKEL        191     A     
 CSKEL    *         *SETCON* WILL SET THE I,J OR K NUM FIELD IF THE PARAMETER              CSKEL        192     A     
 CSKEL    *         (I,J ORK) PASSED IS NOT PRECEEDED BY A PLUS OR MINUS                   CSKEL        193     A     
 CSKEL    *         SIGN, NO LENGTH CHECKS ARE MADE. IF THE CONSTANT IS                    CSKEL        194     A     
 CSKEL    *         SIGNED IT INDICATES AN 18 BIT CONSTANT, *SETCON* WILL                  CSKEL        195     A     
 CSKEL    *         PUT THE LOWER 12 BITS IN THE Q FIELD, THUS REDEFINING                  CSKEL        196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL    *         IT, AND THE UPPER 6 BITS IN THE RELATIVE NUM FIELD. A                  CSKEL        197     A     
 CSKEL    *         GIVEN CONSTANT CAN BE THUS PLACED IN THE Q FIELD BY                    CSKEL        198     A     
 CSKEL    *         PRECEEDING IT WITH A + OR - SIGN. ]HE ADDR FIELD                       CSKEL        199     A     
 CSKEL    *         DEFINED, TO AT.Q0.                                                     CSKEL        200     A     
 CSKEL                                                                                     CSKEL        201     A     
 CSKEL                                                                                     CSKEL        202     A     
 CSKEL     SETCON   MACRO  IJK                                                             CSKEL        203     A     
 CSKEL     I MICRO 1,1, IJK                                                                CSKEL        204     A     
 CSKEL     .0       IFC    EQ,/"I"/=/                                                      CSKEL        205     A     
 CSKEL    *         HERE IF IMMEDIATE SYMBOL (=S OR =X). ASSUMES IN K FIELD.               CSKEL        206     A     
 CSKEL     L2       MICRO  1,,$,5/AT.S0$                                                   CSKEL        207     A     
 CSKEL     L3       MICRO  1,,$,18/IJK$                                                    CSKEL        208     A     
 CSKEL     Q MICRO                                                                         CSKEL        209     A     
 CSKEL     .0       ELSE                                                                   CSKEL        210     A     
 CSKEL    .1        IFC    LT, IJK +                                                       CSKEL        211     A     
 CSKEL                                                                                     CSKEL        212     A     
 CSKEL    *         HERE IF UNSIGNED CONSTANT.                                             CSKEL        213     A     
 CSKEL                                                                                     CSKEL        214     A     
 CSKEL     L        MICRO  1,,$"L",5/AT.K0,6/IJK$                                          CSKEL        215     A     
 CSKEL    .1        ELSE                                                                   CSKEL        216     A     
 CSKEL                                                                                     CSKEL        217     A     
 CSKEL    *         HERE IF SIGNED CONSTANT, (18 BIT Q FIELD).                             CSKEL        218     A     
 CSKEL                                                                                     CSKEL        219     A     
 CSKEL     L2       MICRO  1,,$,5/AT.Q0$                                                   CSKEL        220     A     
 CSKEL     L3       MICRO  1,,$,18/IJK$                                                    CSKEL        221     A     
 CSKEL     Q        MICRO                                                                  CSKEL        222     A     
 CSKEL     .1       ENDIF                                                                  CSKEL        223     A     
 CSKEL     .0       ENDIF                                                                  CSKEL        224     A     
 CSKEL     SETCON   ENDM                                                                   CSKEL        225     A     
 CSKEL     SETOTH   SPACE  4,8                                                             CSKEL        226     A     
 CSKEL    **        SETOTH  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR                  CSKEL        227     A     
 CSKEL    *                  A NON-CONSTANT.                                               CSKEL        228     A     
 CSKEL    *                                                                                CSKEL        229     A     
 CSKEL    *         *SETOTH* WILL SET THE NUM FIELD (I,J OR K) TO A CONSTANT               CSKEL        230     A     
 CSKEL    *         OBTAINED FROM THE T. MICRO TABLE, THE ADDR FIELD WILL                  CSKEL        231     A     
 CSKEL    *         BE SET TO POINT TO THE AT. TABLE ENTRY WHICH WILL CONTAIN              CSKEL        232     A     
 CSKEL    *         THE ADDRESS OF THE CODE IN *GEN* THAT PROCESSES THIS                   CSKEL        233     A     
 CSKEL    *         TYPE OF I,J OR K PARAMETER. THE TYPE OF CONSTANT SET IN                CSKEL        234     A     
 CSKEL    *         THE NUM FIELD IS ALSO DETERMINED FROM THE I,J OR K                     CSKEL        235     A     
 CSKEL    *         PARAMETER.                                                             CSKEL        236     A     
 CSKEL                                                                                     CSKEL        237     A     
 CSKEL                                                                                     CSKEL        238     A     
 CSKEL     SETOTH   MACRO  IJK                                                             CSKEL        239     A     
 CSKEL              IFC    EQ,/IJK/"TBR"/,1                                                CSKEL        240     A     
 CSKEL     BR       SET    1                                                               CSKEL        241     A     
 CSKEL     L        MICRO  1,,$"L",5/AT.IJK,6/IJK.$                                        CSKEL        242     A     
 CSKEL     FCHAR    MICRO  1,1,/IJK/                                                       CSKEL        243     A     
 CSKEL              IFC    EQ,/"FCHAR"/T/,1                                                CSKEL        244     A     
 CSKEL     MAXT     MAX    MAXT,IJK.                                                       CSKEL        245     A     
 CSKEL     SETOTH   ENDM                                                                   CSKEL        246     A     
 CSKEL     BRANCH   SPACE  4,8                                                             CSKEL        247     A     
 CSKEL    **        BRANCH  -  CONTINUE SKELETON ELSEWHERE.                                CSKEL        248     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL    *                                                                                CSKEL        249     A     
 CSKEL    *         SKELETON POINTER RESET TO WITHIN OTHER SKELETON.                       CSKEL        250     A     
 CSKEL                                                                                     CSKEL        251     A     
 CSKEL                                                                                     CSKEL        252     A     
 CSKEL              MACRO  BRANCH,AD,TO,IJK                                                CSKEL        253     A     
 CSKEL              FORM   (0,0,=S_TO),0,AD,2                                              CSKEL        254     A     
 CSKEL     MAXT     MAX    MAXT,.TO                                                        CSKEL        255     A     
 CSKEL     BRANCH   ENDM                                                                   CSKEL        256     A     
 CSKEL     CALL     SPACE  4,8                                                             CSKEL        257     A     
 CSKEL    **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY             CSKEL        258     A     
 CSKEL    *                PROCESS CURRENT TURPLE.                                         CSKEL        259     A     
 CSKEL    *                                                                                CSKEL        260     A     
 CSKEL    *         NOTE - CALL MAY HAVE ONE PARAMETER OF ANY TYPE EXCEPT                  CSKEL        261     A     
 CSKEL    *                18-BIT CONSTANT OR SYMBOL (+/- CON OR =S).                      CSKEL        262     A     
 CSKEL                                                                                     CSKEL        263     A     
 CSKEL              PURGMAC CALL                                                           CSKEL        264     A     
 CSKEL                                                                                     CSKEL        265     A     
 CSKEL              MACRO  CALL,AD,ROUT,I,J                                                CSKEL        266     A     
 CSKEL              FORM   (NULL,NULL,I),0,AD,1                                            CSKEL        267     A     
 CSKEL     L4       MICRO  1,,$,4/0,18/=XP=ROUT$                                           CSKEL        268     A     
 CSKEL     LCALL    SET    1                                                               CSKEL        269     A     
 CSKEL     CALL     ENDM                                                                   CSKEL        270     A     
 CSKEL                                                                                     CSKEL        271     A     
 CSKEL                                                                                     CSKEL        272     A     
 CSKEL     CALLQ    OPSYN  NIL                                                             CSKEL        273     A     
 CSKEL                                                                                     CSKEL        274     A     
 CSKEL     CALLC    OPSYN  CALL                                                            CSKEL        275     A     
 CSKEL     INST.    TITLE  INSTRUCTION AND OPERAND PROCESSING MACROS.                      CSKEL        276     A     
 CSKEL                                                                                     CSKEL        277     A     
 CSKEL                                                                                     CSKEL        278     A     
 CSKEL    *         MICROS USED DURING SKELETON CONSTRUCTION TO DEFINE A                   CSKEL        279     A     
 CSKEL    *         PARTICULAR TYPE OF OPERATION, OPERAND OR CONSTANT.                     CSKEL        280     A     
 CSKEL                                                                                     CSKEL        281     A     
 CSKEL     N1       MICRO  1,, P2                                                          CSKEL        282     A     
 CSKEL     N2       MICRO  1,, P3                                                          CSKEL        283     A     
 CSKEL     N3       MICRO  1,, P4                                                          CSKEL        284     A     
 CSKEL                                                                                     CSKEL        285     A     
 CSKEL              MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ                                  CSKEL        286     A     
 CSKEL              IFC    EQ, OPEQ                                                        CSKEL        287     A     
 CSKEL     AT.IND   SET    AT.IND+1                                                        CSKEL        288     A     
 CSKEL     AT.OP    SET    AT.IND                                                          CSKEL        289     A     
 CSKEL              ELSE                                                                   CSKEL        290     A     
 CSKEL     AT.OP    SET    AT.OPEQ                                                         CSKEL        291     A     
 CSKEL              ENDIF                                                                  CSKEL        292     A     
 CSKEL     B        MAX    1,SKM.FTYP                                                      CSKEL        293     A     
 CSKEL     C        SET    SKL.FTYP+SKO.FTYP                                               CSKEL        294     A     
 CSKEL     A        SET    SKL.FTYP                                                        CSKEL        295     A     
 CSKEL     Z        SET    SKL.FTYP                                                        CSKEL        296     A     
 CSKEL              DUP    SKU.FTYP/B-SKL.FTYP/B+1                                         CSKEL        297     A     
 CSKEL     Z        DECMIC Z                                                               CSKEL        298     A     
 CSKEL              IFLT   SKM.FTYP,0,3                                                    CSKEL        299     A     
 CSKEL              IFEQ   SKM.FTYP+A,0,2                                                  CSKEL        300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL     A        SET    B                                                               CSKEL        301     A     
 CSKEL     C        SET    C+B                                                             CSKEL        302     A     
 CSKEL              NOREF  OP"Z".                                                          CSKEL        303     A     
 CSKEL     OP"Z".   EQU    C                                                               CSKEL        304     A     
 CSKEL     A        SET    A+B                                                             CSKEL        305     A     
 CSKEL     C        SET    C+B                                                             CSKEL        306     A     
 CSKEL     Z        SET    Z+1                                                             CSKEL        307     A     
 CSKEL              NOREF  AT.OP"Z"                                                        CSKEL        308     A     
 CSKEL     AT.OP"Z" EQU    AT.OP                                                           CSKEL        309     A     
 CSKEL              ENDD                                                                   CSKEL        310     A     
 CSKEL     SKOP     ENDM                                                                   CSKEL        311     A     
 CSKEL     SKOP     SPACE  4,10                                                            CSKEL        312     A     
 CSKEL    **        SET THE SKOP NUM SELECTION PARAMETERS                                  CSKEL        313     A     
 CSKEL                                                                                     CSKEL        314     A     
 CSKEL              MACRO  SKPSET,FTYP,LL,UL,MODULES,OFFSET                                CSKEL        315     A     
 CSKEL     SKL.FTYP SET    LL                                                              CSKEL        316     A     
 CSKEL     SKU.FTYP SET    UL                                                              CSKEL        317     A     
 CSKEL     SKM.FTYP SET    MODULES                                                         CSKEL        318     A     
 CSKEL     SKO.FTYP SET    OFFSET                                                          CSKEL        319     A     
 CSKEL     SKPSET   ENDM                                                                   CSKEL        320     A     
 CSKEL                                                                                     CSKEL        321     A     
 CSKEL     RG       SKPSET 0,7,1,0                                                         CSKEL        322     A     
 CSKEL     OP       SKPSET 1,6,-Z=TURP,0                                                   CSKEL        323     A     
 CSKEL     SPC      SKPSET 1,4,-Z=TURP,0                                                   CSKEL        324     A     
 CSKEL     TMP      SKPSET 1,22,1,-1                                                       CSKEL        325     A     
 CSKEL     CON      SKPSET 0,0,1,0                                                         CSKEL        326     A     
 CSKEL     GOP      SKPSET 1,2,1,-1                                                        CSKEL        327     A     
 CSKEL                                                                                     CSKEL        328     A     
 CSKEL     AT.IND   SET    0                                                               CSKEL        329     A     
 CSKEL    *CALL     SKOP   SKELETON OPERANDS                                               CSKEL        330     A     
 CSKEL                                                                                     CSKEL        331     A     
 CSKEL              ECHO   ,JT=("XJUMPS")                                                  CSKEL        332     A     
 CSKEL     M.JT     DECMIC JC.JT                                                           CSKEL        333     A     
 CSKEL              MACRO  JT,AD,I,J,K                                                     CSKEL        334     A     
 CSKEL              FORM   (I,"M.JT",J),JPX,AD,0                                           CSKEL        335     A     
 CSKEL              ENDM                                                                   CSKEL        336     A     
 CSKEL              ENDD                                                                   CSKEL        337     A     
 CSKEL                                                                                     CSKEL        338     A     
 CSKEL     ORX      OPSYN  OR                                                              CSKEL        339     A     
 CSKEL              PURGMAC OR                                                             CSKEL        340     A     
 CSKEL                                                                                     CSKEL        341     A     
 CSKEL                                                                                     CSKEL        342     A     
 CSKEL              MACRO  OPR,NAME,SS                                                     CSKEL        343     A     
 CSKEL              MACRO  NAME,AD,I,J,K                                                   CSKEL        344     A     
 CSKEL              FORM   (I,J,K),NAME,AD,0                                               CSKEL        345     A     
 CSKEL     NAME     ENDM                                                                   CSKEL        346     A     
 CSKEL     OPR      ENDM                                                                   CSKEL        347     A     
 CSKEL                                                                                     CSKEL        348     A     
 CSKEL              PURGMAC SST                                                            CSKEL        349     A     
 CSKEL                                                                                     CSKEL        350     A     
 CSKEL    *CALL OPRDEFS                                                                    CSKEL        351     A     
 CSKEL                                                                                     CSKEL        352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL     IOR      OPSYN  OR                                                              CSKEL        353     A     
 CSKEL              PURGMAC OR                                                             CSKEL        354     A     
 CSKEL              MACRO  OR,AD,I,J,K                                                     CSKEL        355     A     
 CSKEL              IFC    NE,/K//,2                                                       CSKEL        356     A     
 CSKEL     AD       IOR    I,J,K                                                           CSKEL        357     A     
 CSKEL              ELSE   1                                                               CSKEL        358     A     
 CSKEL     AD       ORX    I,J                                                             CSKEL        359     A     
 CSKEL              ENDM                                                                   CSKEL        360     A     
 CSKEL              MACRO  PNR,AD,I,J,K                                                    CSKEL        361     A     
 CSKEL              FORM   (I,1,K),NR,AD,0                                                 CSKEL        362     A     
 CSKEL     PNR      ENDM                                                                   CSKEL        363     A     
 CSKEL                                                                                     CSKEL        364     A     
 CSKEL                                                                                     CSKEL        365     A     
 CSKEL              ECHO   ,OP=(FA,FS,FM,FD)                                               CSKEL        366     A     
 CSKEL              MACRO  OP_R,AD,I,J,K                                                   CSKEL        367     A     
 CSKEL              FORM   (I,J,K),OP,AD,20B                                               CSKEL        368     A     
 CSKEL              ENDM                                                                   CSKEL        369     A     
 CSKEL              ENDD                                                                   CSKEL        370     A     
 CSKEL                                                                                     CSKEL        371     A     
 CSKEL                                                                                     CSKEL        372     A     
 CSKEL              ECHO   ,OP=(X,B,A)                                                     CSKEL        373     A     
 CSKEL              MACRO  SX=OP_K,AD,I,J,K                                                CSKEL        374     A     
 CSKEL              FORM   (I,J,K),STT,AD,0                                                CSKEL        375     A     
 CSKEL              ENDM                                                                   CSKEL        376     A     
 CSKEL                                                                                     CSKEL        377     A     
 CSKEL              MACRO  SB=OP_K,AD,I,J,K                                                CSKEL        378     A     
 CSKEL              FORM   (I,J,K),STT,AD,0                                                CSKEL        379     A     
 CSKEL              IFNE   BR,0,1                                                          CSKEL        380     A     
 CSKEL              RS     "TBR",0,+SO.TLOCK+SBR                                           CSKEL        381     A     
 CSKEL              ENDM                                                                   CSKEL        382     A     
 CSKEL                                                                                     CSKEL        383     A     
 CSKEL              MACRO  SX=OP_B,AD,I,J,K                                                CSKEL        384     A     
 CSKEL              FORM   (I,J,K),SA,AD,0                                                 CSKEL        385     A     
 CSKEL              ENDM                                                                   CSKEL        386     A     
 CSKEL                                                                                     CSKEL        387     A     
 CSKEL              MACRO  SB=OP_B,AD,I,J,K                                                CSKEL        388     A     
 CSKEL              FORM   (I,J,K),SA,AD,0                                                 CSKEL        389     A     
 CSKEL              IFNE   BR,0,1                                                          CSKEL        390     A     
 CSKEL              RS     "TBR",0,+SO.TLOCK+SBR                                           CSKEL        391     A     
 CSKEL              ENDM                                                                   CSKEL        392     A     
 CSKEL                                                                                     CSKEL        393     A     
 CSKEL              MACRO  SA=OP_B,AD,I,J,K                                                CSKEL        394     A     
 CSKEL              FORM   (I,J,K),SA,AD,0                                                 CSKEL        395     A     
 CSKEL              ENDM                                                                   CSKEL        396     A     
 CSKEL                                                                                     CSKEL        397     A     
 CSKEL              ENDD                                                                   CSKEL        398     A     
 CSKEL                                                                                     CSKEL        399     A     
 CSKEL                                                                                     CSKEL        400     A     
 CSKEL              ECHO   ,OP=(B,A)                                                       CSKEL        401     A     
 CSKEL              MACRO  SX=OP_MB,AD,I,J,K                                               CSKEL        402     A     
 CSKEL              FORM   (I,J,K),SS,AD,0                                                 CSKEL        403     A     
 CSKEL              ENDM                                                                   CSKEL        404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL                                                                                     CSKEL        405     A     
 CSKEL              MACRO  SB=OP_MB,AD,I,J,K                                               CSKEL        406     A     
 CSKEL              FORM   (I,J,K),SS,AD,0                                                 CSKEL        407     A     
 CSKEL              ENDM                                                                   CSKEL        408     A     
 CSKEL                                                                                     CSKEL        409     A     
 CSKEL              ENDD                                                                   CSKEL        410     A     
 CSKEL                                                                                     CSKEL        411     A     
 CSKEL     UP.      OPSYN  UP                                                              CSKEL        412     A     
 CSKEL     NR.      OPSYN  NR                                                              CSKEL        413     A     
 CSKEL              PURGMAC  UP,NR                                                         CSKEL        414     A     
 CSKEL              MACRO  UP,AD,I,J,K                                                     CSKEL        415     A     
 CSKEL     AD       UP.    I,J,K                                                           CSKEL        416     A     
 CSKEL              IFNE   BR,0,1                                                          CSKEL        417     A     
 CSKEL              RS     "TBR",1,+SO.RJLK+SBR                                            CSKEL        418     A     
 CSKEL              ENDM                                                                   CSKEL        419     A     
 CSKEL              MACRO  NR,AD,I,J,K                                                     CSKEL        420     A     
 CSKEL     AD       NR.    I,J,K                                                           CSKEL        421     A     
 CSKEL              IFNE   BR,0,1                                                          CSKEL        422     A     
 CSKEL              RS     "TBR",1,+SO.RJLK+SBR                                            CSKEL        423     A     
 CSKEL              ENDM                                                                   CSKEL        424     A     
 CSKEL                                                                                     CSKEL        425     A     
 CSKEL              ECHO   ,OP=(LAB,UJP,RJ3,RJ6)                                           CSKEL        426     A     
 CSKEL     OP.      OPSYN  OP                                                              CSKEL        427     A     
 CSKEL              PURGMAC OP                                                             CSKEL        428     A     
 CSKEL              MACRO  OP,AD,IH                                                        CSKEL        429     A     
 CSKEL     AD       OP.    ,,IH                                                            CSKEL        430     A     
 CSKEL              ENDM                                                                   CSKEL        431     A     
 CSKEL              ENDD                                                                   CSKEL        432     A     
 CSKEL                                                                                     CSKEL        433     A     
 CSKEL              PURGMAC RJT                                                            CSKEL        434     A     
 CSKEL                                                                                     CSKEL        435     A     
 CSKEL              MACRO  RJT,AD,I                                                        CSKEL        436     A     
 CSKEL     AD       RJ6    I                                                               CSKEL        437     A     
 CSKEL              CALL   LRJ                                                             CSKEL        438     A     
 CSKEL              ENDM                                                                   CSKEL        439     A     
 CSKEL                                                                                     CSKEL        440     A     
 CSKEL              MACRO  XMTL,AD,I,J,K                                                   CSKEL        441     A     
 CSKEL     AD       XMT    J,K                                                             CSKEL        442     A     
 CSKEL              RS     J,,";B."                                                        CSKEL        443     A     
 CSKEL              ENDM                                                                   CSKEL        444     A     
 CSKEL                                                                                     CSKEL        445     A     
 CSKEL              ECHO   ,OP=(KRS,KLS)                                                   CSKEL        446     A     
 CSKEL     OP.      OPSYN  OP                                                              CSKEL        447     A     
 CSKEL              PURGMAC OP                                                             CSKEL        448     A     
 CSKEL                                                                                     CSKEL        449     A     
 CSKEL              MACRO  OP,AD,I,J,K                                                     CSKEL        450     A     
 CSKEL     QQ       MICRO  2,,/I/                                                          CSKEL        451     A     
 CSKEL     QQ       DECMIC "QQ"-1                                                          CSKEL        452     A     
 CSKEL     AD       SXT    T"QQ",J                                                         CSKEL        453     A     
 CSKEL              OP.    I,T"QQ",K                                                       CSKEL        454     A     
 CSKEL              ENDM                                                                   CSKEL        455     A     
 CSKEL                                                                                     CSKEL        456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CSKEL   
  
 CSKEL              ENDD                                                                   CSKEL        457     A     
 CSKEL                                                                                     CSKEL        458     A     
 CSKEL     LOAD     OPSYN  LD                                                              CSKEL        459     A     
 CSKEL                                                                                     CSKEL        460     A     
 CSKEL     OC.0     EQU    0                                                               CSKEL        461     A     
 CSKEL              USE    0                                                               CSKEL        462     A     
 CSKEL              USE    SCT                                                             CSKEL        463     A     
 CSKEL              ENTRY  F.SCT                                                           CSKEL        464     A     
 CSKEL     F.SCT    BSS    0                                                               CSKEL        465     A     
 CSKEL              USE    0                                                               CSKEL        466     A     
 CSKEL                                                                                     CSKEL        467     A     
 CSKEL     H        MICRO                                                                  CSKEL        468     A     
 CSKEL     L        MICRO                                                                  CSKEL        469     A     
 CSKEL     L2       MICRO                                                                  CSKEL        470     A     
 CSKEL     L3       MICRO                                                                  CSKEL        471     A     
 CSKEL     L4       MICRO                                                                  CSKEL        472     A     
 CSKEL     Q        MICRO                                                                  CSKEL        473     A     
 CSKEL     SFLAG    SET    40B                                                             CSKEL        474     A     
 CSKEL                                                                                     CSKEL        475     A     
 CSKEL              ENTRY  F.SET                                                           CSKEL        476     A     
 CSKEL     F.SET    BSS    0                                                               CSKEL        477     A     
 CSKEL    ADD       TITLE CODE SKELETONS.                                                  CSKEL        478     A     
 CSKEL    *CALL     SKEL   CODE SKELETONS                                                  CSKEL        479     A     
 CSKEL                                                                                     CSKEL        480     A     
 CSKEL              VFD    1/1,59/0                                                        CSKEL        481     A     
 CSKEL              LIST   G                                                               CSKEL        482     A     
 CSKEL              VFD    60/0        FOR ROR                                             CSKEL        483     A     
 CSKEL                                                                                     CSKEL        484     A     
 CSKEL              USE    SCT                                                             CSKEL        485     A     
 CSKEL              LOC    0                                                               CSKEL        486     A     
 CSKEL     SCT      TITLE  SKELETON CONTROL TABLE CONTENTS.                                CSKEL        487     A     
 CSKEL     SCT      HERE                                                                   CSKEL        488     A     
 CSKEL     SUBSKELS HERE                                                                   CSKEL        489     A     
 CSKEL     ENT      HERE                                                                   CSKEL        490     A     
 CSKEL    *         DEFINE V=NOOP FOR BRIDGE.                                              FC5A150      548     A     
 CSKEL                                                                                     FC5A150      549     A     
 CSKEL              ENTRY  V=NOOP                                                          FC5A150      550     A     
 CSKEL              END                                                                    CSKEL        491     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CSKEL   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CSKEL                      491       491
          FC5A150                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSKEL   
  
 FSKEL    *DECK     FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.                    FSKEL          1     A     
 FSKEL              IDENT  FSKEL                                                           FSKEL          2     A     
 FSKEL     FSKEL    SECT   (DEFINE TURPLE OP CODE VALUES FOR FRONT END.)                   FSKEL          3     A     
 FSKEL     FSKEL    SPACE  4,8                                                             FSKEL          4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSKEL   
  
 FSKEL    *         IN FEC                                                                 FSKEL          5     A     
 FSKEL              EXT    ES=LOCF                                                         FSKEL          6     A     
 FSKEL                                                                                     FSKEL          7     A     
 FSKEL    *         IN PAR                                                                 FSKEL          8     A     
 FSKEL              EXT    ES=MASK,ES=RANF,ES=SHIF                                         FSKEL          9     A     
 FSKEL     FSKEL    SPACE  4,10                                                            FSKEL         10     A     
 FSKEL    ***       FSKEL DEFINES TURPLE OP CODE VALUES FOR THE FRONT END.                 FSKEL         11     A     
 FSKEL    *         THE VALUES OF THE ENTRY POINTS MUST BE KEPT EXACTLY THE                FSKEL         12     A     
 FSKEL    *         SAME AS THE DEFINITIONS IN CSKEL.                                      FSKEL         13     A     
 FSKEL    *                                                                                FSKEL         14     A     
 FSKEL    *         M. A. HERBACH      77-06-24.                                           FSKEL         15     A     
 FSKEL                                                                                     FSKEL         16     A     
 FSKEL     .FAST    EQU    0                                                               FSKEL         17     A     
 FSKEL     .OPT     EQU    1                                                               FSKEL         18     A     
 FSKEL     .CG      EQU    .OPT        SELECT COMMON CODE GENERATOR                        FSKEL         19     A     
 FSKEL    *CALL COMFSKL                                                                    FSKEL         20     A     
 FSKEL                                                                                     FSKEL         21     A     
 FSKEL              END                                                                    FSKEL         22     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FSKEL   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FSKEL                       22        22
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT22  
  
 INIT22   *DECK     INIT22 (2,2) OVERLAY INITIALIZATION                                    INIT22         1     A     
 INIT22             IDENT  INIT22                                                          INIT22         2     A     
 INIT22    INIT22   SECT   (INITIALIZE CCG OVERLAY.),INI22                                 INIT22         3     A     
 INIT22    INIT22   SPACE  4,10                                                            INIT22         4     A     
 INIT22   *         IN CCGC                                                                INIT22         5     A     
 INIT22             EXT    CCGC,OPTLVL,OPT2,PSTAB,WINOC                                    INIT22         6     A     
 INIT22                                                                                    INIT22         7     A     
 INIT22   *         IN CCGLINK                                                             INIT22         8     A     
 INIT22             EXT    O.FE                                                            INIT22         9     A     
 INIT22                                                                                    INIT22        10     A     
 INIT22   *         IN CSKEL                                                               INIT22        11     A     
 INIT22             EXT    F.SET                                                           INIT22        12     A     
 INIT22                                                                                    INIT22        13     A     
 INIT22   *         IN FTN                                                                 INIT22        14     A     
 INIT22             EXT    CO.CS,CO.DOOT                                                   INIT22        15     A     
 INIT22             EXT    CO.OPT,F.IL,F.OPT,F.PB,IDPCHK,SYS=,WNB=                         INIT22        16     A     
 INIT22                                                                                    INIT22        17     A     
 INIT22   *         IN IDP                                                                 INIT22        18     A     
 INIT22             EXT    IDP=                                                            INIT22        19     A     
 INIT22                                                                                    INIT22        20     A     
 INIT22   *         IN INIT20                                                              INIT22        21     A     
 INIT22             EXT    FW.ILB,FW.PBB                                                   INIT22        22     A     
 INIT22                                                                                    INIT22        23     A     
 INIT22   *         IN PROSEQ                                                              INIT22        24     A     
 INIT22             EXT    FPL2,L.API,L.APL,L.ASG,L.BLKS,L.CON,L.FILE,L.GLT,L.IAI          INIT22        25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT22  
  
 INIT22             EXT    L.IOA,L.NLST,L.SYM1,O.API,O.APL,O.ASG,O.BLKS,O.CON              INIT22        26     A     
 INIT22             EXT    O.FILE,O.GLT,O.IAI,O.IOA,O.NLST,O.SYM1,O.TEND,PTC=              INIT22        27     A     
 INIT22                                                                                    INIT22        28     A     
 INIT22   *         IN PUC                                                                 INIT22        29     A     
 INIT22             EXT    F.LBT,LEVEL2,L=API,L=APL,L=ASG,L=BLKS,L=CON,L=FILE              INIT22        30     A     
 INIT22             EXT    L=GL,L=IOA,L=IOI,L=NLST,L=SYM,MOD,NARGS,N.FP,O=API              INIT22        31     A     
 INIT22             EXT    O=APL,O=ASG,O=BLKS,O=CON,O=FILE,O=GL,O=IOA,O=IOI                INIT22        32     A     
 INIT22             EXT    O=NLST,O=SYM,RPV=URP,S=CON,S=ENTRY,Z.LBT                        INIT22        33     A     
 INIT22             EXT    WO.CS,WO.DOOT                                                   INIT22        34     A     
 INIT22                                                                                    INIT22        35     A     
 INIT22   *         IN RPV20                                                               INIT22        36     A     
 INIT22             EXT    RPV2N                                                           INIT22        37     A     
 INIT22                                                                                    INIT22        38     A     
 INIT22   *         IN RPV22                                                               INIT22        39     A     
 INIT22             EXT    RPV22                                                           INIT22        40     A     
 INIT22                                                                                    INIT22        41     A     
 INIT22   *         IN UTILITY                                                             INIT22        42     A     
 INIT22             EXT    CIO=,RPV=,SBM=                                                  INIT22        43     A     
 INIT22    INIT22   SPACE  4,10                                                            INIT22        44     A     
 INIT22             DESCRIBE SK.,60    SKELETON EXPANSION FORMAT                           INIT22        45     A     
 INIT22    FI       DEFINE 1                                                               INIT22        46     A     
 INIT22    RND      DEFINE 1                                                               INIT22        47     A     
 INIT22             DEFINE 1                                                               INIT22        48     A     
 INIT22    TYPE     DEFINE 3                                                               INIT22        49     A     
 INIT22    GH       DEFINE 9                                                               INIT22        50     A     
 INIT22             DEFINE 45                                                              INIT22        51     A     
 INIT22                                                                                    INIT22        52     A     
 INIT22    F.MEM    BSSENT             START OF WORKING STORAGE                            INIT22        53     A     
 INIT22    INIT22   SPACE  4,10                                                            INIT22        54     A     
 INIT22   **        INIT22 - INITIALIZE CCG OVERLAY.                                       INIT22        55     A     
 INIT22   *                                                                                INIT22        56     A     
 INIT22   *         ENTRY  THE (2,2) HAS JUST BEEN LOADED.                                 INIT22        57     A     
 INIT22   *                                                                                INIT22        58     A     
 INIT22   *         EXIT   TO *CCGC* TO BEGIN CODE GENERATION.                             INIT22        59     A     
 INIT22                                                                                    INIT22        60     A     
 INIT22    FTN22    BSSENT                                                                 INIT22        61     A     
 INIT22                                                                                    INIT22        62     A     
 INIT22   *         LINK RPV TABLES.                                                       INIT22        63     A     
 INIT22                                                                                    INIT22        64     A     
 INIT22             SX6    0                                                               INIT22        65     A     
 INIT22             SX7    =XRPV22     (X7) = FWA OF (2,2) RNA TABLE                       INIT22        66     A     
 INIT22             SA6    =XRPV2N     MARK END-OF-(2,0) RNA TABLE                         INIT22        67     A     
 INIT22             SA7    A6+1        STORE LINK TO (2,2) RNA TABLE                       INIT22        68     A     
 INIT22                                                                                    INIT22        69     A     
 INIT22   *         TURN ON REPRIEVE.                                                      INIT22        70     A     
 INIT22                                                                                    INIT22        71     A     
 INIT22    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT22        72     A     
 INIT22             SA1    RA.SSW      SENSE SWITCH WORD                                   INIT22        73     A     
 INIT22             LX1    59-5-6      GET SWITCH 6                                        INIT22        74     A     
 INIT22             MI     X1,INI1     IF SWITCH 6 ON                                      INIT22        75     A     
 INIT22    .TEST    ENDIF                                                                  INIT22        76     A     
 INIT22                                                                                    INIT22        77     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT22  
  
 INIT22             RPVON              TURN ON REPRIEVE                                    INIT22        78     A     
 INIT22                                                                                    INIT22        79     A     
 INIT22   *         CHECK FOR IDP BREAK REQUEST.                                           INIT22        80     A     
 INIT22   *                                                                                INIT22        81     A     
 INIT22   *         IF THERE ARE ANY IDP KEYWORDS THAT ARE (2,2) SPECIFIC,                 INIT22        82     A     
 INIT22   *         THEN THIS IS THE PLACE TO LINK IDP TO THEM BY STORING                  INIT22        83     A     
 INIT22   *         THE FWA OF THE (2,2) IDP KEYWORD TABLE AT (UKT=LNK).                   INIT22        84     A     
 INIT22   *         SEE *UKT=LNK* IN DECK *IDP*.                                           INIT22        85     A     
 INIT22                                                                                    INIT22        86     A     
 INIT22    .TEST    IFEQ   TEST,ON     IF TEST MODE                                        INIT22        87     A     
 INIT22    INI1     BSS    0                                                               FC5A158A     452     A     
 INIT22    #OS      IFNE   .OS,2                                                           FC5A158A     453     A     
 INIT22             SX6    =YUSY=22    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR               INIT22        88     A     
 INIT22             SA6    =XIDP=USY                                                       INIT22        89     A     
 INIT22    INI1     CALL   IDPCHK      CHECK FOR IDP REQUEST                               INIT22        90          I
          -FC5A158A 
 INIT22             CALL   IDPCHK      CHECK FOR IDP REQUEST                               FC5A158A     454     A     
 INIT22             PL     B7,INI2     IF IDP NOT REQUESTED                                INIT22        91     A     
 INIT22    FTN22    BREAK                                                                  INIT22        92     A     
 INIT22    #OS      ENDIF                                                                  FC5A158A     455     A     
 INIT22    .TEST    ENDIF                                                                  INIT22        93     A     
 INIT22                                                                                    INIT22        94     A     
 INIT22   *         INITIALIZE OVERLAY.                                                    INIT22        95     A     
 INIT22                                                                                    INIT22        96     A     
 INIT22    INI2     SETFIL FILE==XF.IL,MODE=INIT,FWA==XFW.ILB                              INIT22        97     A     
 INIT22             SETFIL FILE==XF.PB,MODE=INIT,FWA==XFW.PBB                              INIT22        98     A     
 INIT22                                                                                    INIT22        99     A     
 INIT22             IFEQ   CP#RM,0,1                                                       INIT22       100     A     
 INIT22             READ   =XF.IL                                                          INIT22       101     A     
 INIT22             SX6    =XFW.ILB                                                        INIT22       102     A     
 INIT22             SA6    =XHO$OBO    STORE CCG SCRATCH BUFFER ORIGIN                     INIT22       103     A     
 INIT22             SA1    =XMOD       PROGRAM MODE                                        INIT22       104     A     
 INIT22             SA2    N.FP                                                            INIT22       105     A     
 INIT22             SA3    LEVEL2                                                          INIT22       106     A     
 INIT22             BX7    X2+X3       FPL2 = N.FP .OR. LEVEL2                             INIT22       107     A     
 INIT22             SA7    =XCC$SRF    FLAG FP/LCM EXPANSION REQUIRED                      INIT22       108     A     
 INIT22                                                                                    INIT22       109     A     
 INIT22             =X6    0                                                               INIT22       110     A     
 INIT22             LX6    LB.PARCP    SET ALL LOCAL BLOCKS EMPTY                          INIT22       111     A     
 INIT22             SETMEM F.LBT,Z.LBT,X6                                                  INIT22       112     A     
 INIT22                                                                                    INIT22       113     A     
 INIT22                                                                                    INIT22       114     A     
 INIT22   **        INITIALIZE CCG WORKING COPY OF COMPILER OPTIONS.                       INIT22       115     A     
 INIT22   *         1.  SET = (CO.) AT BEGINNING OF PASS OVER PROGRAM-UNIT.                INIT22       116     A     
 INIT22   *         2.  RESET BY (V=C$) TURPLES.                                           INIT22       117     A     
 INIT22   *         3.  USED TO DETERMINE (2,2) BEHAVIOR.                                  INIT22       118     A     
 INIT22   *         THIS MUST BE DONE FOR ALL OPTIONS WHICH GENERATE TURPLES.              INIT22       119     A     
 INIT22                                                                                    INIT22       120     A     
 INIT22             SA1    CO.CS                                                           INIT22       121     A     
 INIT22             SA2    CO.DOOT                                                         INIT22       122     A     
 INIT22             BX6    X1          INITIALIZE WORKING QCG COPY OF OPTIONS              INIT22       123     A     
 INIT22             LX7    X2                                                              INIT22       124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT22  
  
 INIT22             SA6    WO.CS                                                           INIT22       125     A     
 INIT22             SA7    WO.DOOT                                                         INIT22       126     A     
 INIT22                                                                                    INIT22       127     A     
 INIT22   *         COMMUNICATE PASS1 TABLE POINTERS TO PASS2.                             INIT22       128     A     
 INIT22                                                                                    INIT22       129     A     
 INIT22             MACRO  TABSH,PASS1,D1,D2,PASS2                                         INIT22       130     A     
 INIT22    PA2      MICRO  1,,/PASS2/                                                      INIT22       131     A     
 INIT22             IFC    EQ,/PASS2//,1                                                   INIT22       132     A     
 INIT22    PA2      MICRO  1,,/PASS1/                                                      INIT22       133     A     
 INIT22             SA1    =XO=PASS1                                                       INIT22       134     A     
 INIT22             SA2    =XL=PASS1                                                       INIT22       135     A     
 INIT22             BX6    X1                                                              INIT22       136     A     
 INIT22             LX7    X2                                                              INIT22       137     A     
 INIT22             SA6    =XO$"PA2"                                                       INIT22       138     A     
 INIT22             SA7    =XL$"PA2"                                                       INIT22       139     A     
 INIT22             ENDM                                                                   INIT22       140     A     
 INIT22                                                                                    INIT22       141     A     
 INIT22   *CALL     COMSTAB            TABLES COMMUNICATED TO CCG                          INIT22       142     A     
 INIT22                                                                                    INIT22       143     A     
 INIT22    FE       TABSH              FOR PRESERVED TABLES                                INIT22       144     A     
 INIT22                                                                                    INIT22       145     A     
 INIT22   *         SET ORIGINS OF UNUSED TABLES TO QUARANTEE MONOTONICITY.                INIT22       146     A     
 INIT22                                                                                    INIT22       147     A     
 INIT22             SX6    F.MEM       MEM = F.MEM  */ START OF WORKING STORAGE            INIT22       148     A     
 INIT22             SB5    =XZ$FE                                                          INIT22       149     A     
 INIT22             =B6    -1          I=0                                                 INIT22       150     A     
 INIT22                                                                                    INIT22       151     A     
 INIT22    INI40    SB6    B6+1        I=I+1                                               INIT22       152     A     
 INIT22             GT     B6,B5,INI60 IF TABLE VECTOR EXHAUSTED                           INIT22       153     A     
 INIT22             SA1    =XL$BLK+B6                                                      INIT22       154     A     
 INIT22             NZ     X1,INI50    IF THIS TABLE COMMUNICATED                          INIT22       155     A     
 INIT22             SA6    =XO$BLK+B6  ORG(TABI) = MEM                                     INIT22       156     A     
 INIT22             EQ     INI40                                                           INIT22       157     A     
 INIT22                                                                                    INIT22       158     A     
 INIT22    INI50    SA2    =XO$BLK+B6                                                      INIT22       159     A     
 INIT22             IX6    X1+X2       MEM = ORG(TABI) + LEN(TABI)                         INIT22       160     A     
 INIT22             EQ     INI40                                                           INIT22       161     A     
 INIT22                                                                                    INIT22       162     A     
 INIT22    INI60    SA1    =XCO.OPT                                                        INIT22       163     A     
 INIT22             SX7    X1-2                                                            INIT22       164     A     
 INIT22             MX6    0                                                               INIT22       165     A     
 INIT22             MI     X7,INI70    IF OPT LT 2                                         INIT22       166     A     
 INIT22             MX6    1                                                               INIT22       167     A     
 INIT22                                                                                    INIT22       168     A     
 INIT22    INI70    SA6    =XOPT2                                                          INIT22       169     A     
 INIT22             LX1    58                                                              INIT22       170     A     
 INIT22             BX7    X1                                                              INIT22       171     A     
 INIT22             SA7    =XHO$OPT                                                        INIT22       172     A     
 INIT22                                                                                    INIT22       173     A     
 INIT22   *         SET CERTAIN SPECIAL BITS IN SOME CGS*S.                                INIT22       174     A     
 INIT22                                                                                    INIT22       175     A     
 INIT22             MACRO  SETWB,ORD,BITS                                                  INIT22       176     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT22  
  
 INIT22             LOCAL  NOSYM                                                           INIT22       177     A     
 INIT22             CLAS=  X1,WB,BITS                                                      INIT22       178     A     
 INIT22             SA2    =XO$SYM                                                         INIT22       179     A     
 INIT22             SA3    =XS=ORD                                                         INIT22       180     A     
 INIT22             ZR     X3,NOSYM                                                        INIT22       181     A     
 INIT22             LX4    B1,X3                                                           INIT22       182     A     
 INIT22             IX2    X2+X3                                                           INIT22       183     A     
 INIT22             IX4    X4+X2                                                           INIT22       184     A     
 INIT22             =A2    X4+WB.W                                                         INIT22       185     A     
 INIT22             BX6    X1+X2                                                           INIT22       186     A     
 INIT22             SA6    A2                                                              INIT22       187     A     
 INIT22    NOSYM    BSS    0                                                               INIT22       188     A     
 INIT22             ENDM                                                                   INIT22       189     A     
 INIT22                                                                                    INIT22       190     A     
 INIT22    CON      SETWB  LDO                                                             INIT22       191     A     
 INIT22    VD       SETWB  LDO                                                             INIT22       192     A     
 INIT22    ENTRY    SETWB  LOCF                                                            INIT22       193     A     
 INIT22    VALUE    SETWB  LOCF                                                            INIT22       194     A     
 INIT22                                                                                    INIT22       195     A     
 INIT22   *         DEFINE *EXIT.* AS HEADING BLOCK 0 (EXIT PSEUDO-BLOCK).                 INIT22       196     A     
 INIT22                                                                                    INIT22       197     A     
 INIT22             =X6    0                                                               INIT22       198     A     
 INIT22             SA6    =XCC$CBN                                                        INIT22       199     A     
 INIT22             SA1    =XS=EXIT                                                        INIT22       200     A     
 INIT22             CALL   CG$LABD                                                         INIT22       201     A     
 INIT22             =X6    2                                                               INIT22       202     A     
 INIT22             SA6    CC$CBN                                                          INIT22       203     A     
 INIT22                                                                                    INIT22       204     A     
 INIT22             SX6    =XWINOC                                                         INIT22       205     A     
 INIT22             SA6    =XPSTAB     SET WIN JUMP TABLE TO OC$XXX                        INIT22       206     A     
 INIT22             SB2    =XF.SET                                                         INIT22       207     A     
 INIT22             RJ     ROR         RESET OPCODE OF ROUNDABLES                          INIT22       208     A     
 INIT22             EQ     =XCCGC      EXIT TO CCG CONTROLLER...                           INIT22       209     A     
 INIT22    COMDEX   SPACE  4,10                                                            INIT22       210     A     
 INIT22             LIST   -X          FA=SET, COMFROR LISTED IN INIT00                    INIT22       211     A     
 INIT22   *CALL     COMFROR            RESET OPCODE OF ROUNDABLES                          INIT22       212     A     
 INIT22             LIST   *                                                               INIT22       213     A     
 INIT22    FILL     MAX    0,101B+F.MEM-*                                                  INIT22       214     A     
 INIT22             BSS    FILL        INSURE 101B FOR FTN4 OPT CRAP                       INIT22       215     A     
 INIT22             SPACE  4,10                                                            INIT22       216     A     
 INIT22             LIST   D                                                               INIT22       217     A     
 INIT22             ENTRY  B=LWA22                                                         INIT22       218     A     
 INIT22    B=LWA22  END                MARK LWA OF OVERLAY FOR RPV                         INIT22       219     A     
 INIT22   *DECK     CWEOR4 - END OF BRIDGE.                                                CWEOR4         1          I
          -FC5A370
 INIT22   *CWEOR    0                  (4)  END OF BRIDGE.                                 CWEOR4         2          I
          -FC5A370
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT22  
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT22  
  
          INIT22                     219       218
          CWEOR4                       2         0
          FC5A158A                     4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR4*  
  
 WEOR4*   *DECK WEOR4*                                                                     FC5A370       16     A     
 WEOR4*   *WEOR 0   (4)  END OF BRIDGE.                                                    FC5A370       17     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR4*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *FRAME* 
  
 *FRAME*  *DECK     *FRAME*  -  SKELETON FRAME OF DECKS PER OVERLAY.                       *FRAME*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *FRAME* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *FRAME*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL00   
  
 OVL00    *DECK     OVL00 - ROOT OVERLAY.                                                  OVL00          1     A     
 OVL00    *                                                                                OVL00          2     A     
 OVL00    *                (0,0) OVERLAY                                                   OVL00          3     A     
 OVL00    *                                                                                OVL00          4     A     
 OVL00              IDENT  FTN5                                                            OVL00          5     A     
 OVL00              LCC    OVERLAY(FTN,0,0)                                                OVL00          6     A     
 OVL00              COMMENT FTN5 MAIN OVERLAY.                                             OVL00          7     A     
 OVL00              END    FTN                                                             OVL00          8     A     
 OVL00              IDENT  FTN                                                             OVL00          9     A     
 OVL00              END                                                                    OVL00         10     A     
 OVL00              IDENT  FWA5N0                                                          OVL00         11     A     
 OVL00              SST                                                                    OVL00         12     A     
 OVL00     FWA10    BSSENT             DEFINE ORIGIN OF (1,0) OVERLAY                      OVL00         13     A     
 OVL00     FWA20    BSSENT             DEFINE ORIGIN OF (2,0) OVERLAY                      OVL00         14     A     
 OVL00                                                                                     OVL00         15     A     
 OVL00              BSS    L54.NN      ALIGN (0,0) ADDRESSES WITH (1,0) ADDRESSES          OVL00         16          I
          -FC5A115
 OVL00              BSS    1           SO RPV=RNA WILL BE TRASHED WITH (1,0) LOAD          FC5A115       49     A     
 OVL00              END                                                                    OVL00         17     A     
 OVL00    *                                                                                OVL00         18     A     
 OVL00    *                PSEUDO (1,0) OVERLAY.                                           OVL00         19     A     
 OVL00    *                                                                                OVL00         20     A     
 OVL00              IDENT  RPV00                                                           OVL00         21     A     
 OVL00     RPV00    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                         OVL00         22     A     
 OVL00                                                                                     OVL00         23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL00   
  
 OVL00                                                                                     OVL00         24     A     
 OVL00    **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         OVL00         25     A     
 OVL00                                                                                     OVL00         26     A     
 OVL00     RPV=RNA  CONENT FW.RNA                                                          OVL00         27     A     
 OVL00                                                                                     OVL00         28     A     
 OVL00     FW.RNA   BSS    0           ** FWA OF RNA TABLE **                              OVL00         29     A     
 OVL00              RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY                               OVL00         30     A     
 OVL00              RPVFWA COMPCOM,RA.ORG+L54.00                                           OVL00         31     A     
 OVL00              RPVFWA FTN                                                             OVL00         32     A     
 OVL00              RPVFWA RPV00                                                           OVL00         33     A     
 OVL00              RPVFWA UTILITY                                                         OVL00         34     A     
 OVL00              RPVFWA PUC                                                             OVL00         35     A     
 OVL00              RPVFWA QCGLINK                                                         OVL00         36     A     
 OVL00     .T       IFEQ   TEST,ON                                                         OVL00         37     A     
 OVL00              RPVFWA IDP                                                             OVL00         38     A     
 OVL00    **        RPVFWA CPULFM      NO FRA= PROVIDED                                    OVL00         39     A     
 OVL00              RPVFWA FSNAP                                                           OVL00         40     A     
 OVL00     .T       ENDIF                                                                  OVL00         41     A     
 OVL00              RPVFWA FEC                                                             OVL00         42     A     
 OVL00              RPVFWA FERRS                                                           OVL00         43     A     
 OVL00              RPVFWA PEM                                                             OVL00         44     A     
 OVL00              RPVFWA ALLOC                                                           OVL00         45     A     
 OVL00              RPVFWA LEX                                                             OVL00         46     A     
 OVL00              RPVFWA HEADER                                                          OVL00         47     A     
 OVL00              RPVFWA KEY                                                             OVL00         48     A     
 OVL00              RPVFWA CDDIR                                                           OVL00         49     A     
 OVL00              RPVFWA DATA                                                            OVL00         50     A     
 OVL00              RPVFWA DECL                                                            OVL00         51     A     
 OVL00              RPVFWA TYPE                                                            OVL00         52     A     
 OVL00              RPVFWA FMT                                                             OVL00         53     A     
 OVL00              RPVFWA IO                                                              OVL00         54     A     
 OVL00              RPVFWA PAR                                                             OVL00         55     A     
 OVL00              RPVFWA CONRED                                                          OVL00         56     A     
 OVL00              RPVFWA STMTF                                                           OVL00         57     A     
 OVL00              RPVFWA LABEL                                                           OVL00         58     A     
 OVL00              RPVFWA QCGC                                                            OVL00         59     A     
 OVL00              RPVFWA QSKEL                                                           OVL00         60     A     
 OVL00              RPVFWA FUN                                                             OVL00         61     A     
 OVL00              RPVFWA REG                                                             OVL00         62     A     
 OVL00              RPVFWA GEN                                                             OVL00         63     A     
 OVL00              RPVFWA REC                                                             OVL00         64     A     
 OVL00              RPVFWA FAS                                                             OVL00         65     A     
 OVL00              RPVFWA ZEROLNK     REPLACES MAP                                        OVL00         66     A     
 OVL00              RPVFWA ZEROLNK     REPLACES LIST                                       OVL00         67     A     
 OVL00              RPVFWA INIT00                                                          OVL00         68     A     
 OVL00              RPVFWA LWA00                                                           OVL00         69     A     
 OVL00              DATA   0           ** END OF TABLE **                                  OVL00         70     A     
 OVL00              DATA   0                                                               OVL00         71     A     
 OVL00              END                                                                    OVL00         72     A     
 OVL00    *                                                                                OVL00         73     A     
 OVL00              IDENT  UTILITY                                                         OVL00         74     A     
 OVL00              END                                                                    OVL00         75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL00   
  
 OVL00              IDENT  PUC                                                             OVL00         76     A     
 OVL00              END                                                                    OVL00         77     A     
 OVL00              IDENT  QCGLINK                                                         OVL00         78     A     
 OVL00              END                                                                    OVL00         79     A     
 OVL00    **IF,DEF,TESTFTN             (NEXT LINE)                                         OVL00         80          I
          -FC5A370
 OVL00    *IF,DEF,TESTFTN              IDP.FSNAP                                           OVL00         81          I
          -FC5A370
 OVL00    **IF DEF,TEST    (NEXT LINE)                                                     FC5A370       18     A     
 OVL00    *IF,DEF,TEST     IDP.FSNAP                                                       FC5A370       19     A     
 OVL00              IDENT  IDP                                                             OVL00         82     A     
 OVL00              END                                                                    OVL00         83     A     
 OVL00              IDENT  CPULFM                                                          OVL00         84     A     
 OVL00              END                                                                    OVL00         85     A     
 OVL00              IDENT  FSNAP                                                           OVL00         86     A     
 OVL00              END                                                                    OVL00         87     A     
 OVL00    **ENDIF                      (NEXT LINE)                                         OVL00         88     A     
 OVL00    *ENDIF                                                                           OVL00         89     A     
 OVL00              IDENT  FEC                                                             OVL00         90     A     
 OVL00              END                                                                    OVL00         91     A     
 OVL00              IDENT  FERRS                                                           OVL00         92     A     
 OVL00              END                                                                    OVL00         93     A     
 OVL00              IDENT  PEM                                                             OVL00         94     A     
 OVL00              END                                                                    OVL00         95     A     
 OVL00              IDENT  ALLOC                                                           OVL00         96     A     
 OVL00              END                                                                    OVL00         97     A     
 OVL00              IDENT  LEX                                                             OVL00         98     A     
 OVL00              END                                                                    OVL00         99     A     
 OVL00              IDENT  HEADER                                                          OVL00        100     A     
 OVL00              END                                                                    OVL00        101     A     
 OVL00              IDENT  KEY                                                             OVL00        102     A     
 OVL00              END                                                                    OVL00        103     A     
 OVL00              IDENT  CDDIR                                                           OVL00        104     A     
 OVL00              END                                                                    OVL00        105     A     
 OVL00              IDENT  DATA                                                            OVL00        106     A     
 OVL00              END                                                                    OVL00        107     A     
 OVL00              IDENT  DECL                                                            OVL00        108     A     
 OVL00              END                                                                    OVL00        109     A     
 OVL00              IDENT  TYPE                                                            OVL00        110     A     
 OVL00              END                                                                    OVL00        111     A     
 OVL00              IDENT  FMT                                                             OVL00        112     A     
 OVL00              END                                                                    OVL00        113     A     
 OVL00              IDENT  IO                                                              OVL00        114     A     
 OVL00              END                                                                    OVL00        115     A     
 OVL00              IDENT  PAR                                                             OVL00        116     A     
 OVL00              END                                                                    OVL00        117     A     
 OVL00              IDENT  CONRED                                                          OVL00        118     A     
 OVL00              END                                                                    OVL00        119     A     
 OVL00              IDENT  STMTF                                                           OVL00        120     A     
 OVL00              END                                                                    OVL00        121     A     
 OVL00              IDENT  LABEL                                                           OVL00        122     A     
 OVL00              END                                                                    OVL00        123     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL00   
  
 OVL00              IDENT  QCGC                                                            OVL00        124     A     
 OVL00              END                                                                    OVL00        125     A     
 OVL00              IDENT  QSKEL                                                           OVL00        126     A     
 OVL00              END                                                                    OVL00        127     A     
 OVL00              IDENT  FUN                                                             OVL00        128     A     
 OVL00              END                                                                    OVL00        129     A     
 OVL00              IDENT  REG                                                             OVL00        130     A     
 OVL00              END                                                                    OVL00        131     A     
 OVL00              IDENT  GEN                                                             OVL00        132     A     
 OVL00              END                                                                    OVL00        133     A     
 OVL00              IDENT  REC                                                             OVL00        134     A     
 OVL00              END                                                                    OVL00        135     A     
 OVL00              IDENT  FAS                                                             OVL00        136     A     
 OVL00              END                                                                    OVL00        137     A     
 OVL00              IDENT  ZEROLNK                                                         OVL00        138     A     
 OVL00              END                                                                    OVL00        139     A     
 OVL00              IDENT  INIT00                                                          OVL00        140     A     
 OVL00              END                                                                    OVL00        141     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OVL00   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OVL00                      141       138
          FC5A115                      1         1
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL10   
  
 OVL10    *DECK     OVL10 - QCG-RELOAD OVERLAY.                                            OVL10          1     A     
 OVL10    *                                                                                OVL10          2     A     
 OVL10    *                (1,0) OVERLAY.                                                  OVL10          3     A     
 OVL10    *                                                                                OVL10          4     A     
 OVL10              IDENT  FTN510                                                          OVL10          5     A     
 OVL10              SST                                                                    OVL10          6     A     
 OVL10              LCC    OVERLAY(FTN,1,0,O=FWA10)                                        OVL10          7     A     
 OVL10              COMMENT  FTN5 PRIMARY OVERLAY FOR QCG.                                 OVL10          8     A     
 OVL10    *CALL COMFCIP                                                                    OVL10          9     A     
 OVL10              BSS    "BUFL"                                                          OVL10         10          I
          -FC5A115  -FC5A158A 
 OVL10              BSS    "BUFL"-L54.NN                                                   FC5A115       50          I
          -FC5A158A 
 OVL10              END    FTN10                                                           OVL10         11          I
          -FC5A158A 
 OVL10     .RM      IFNE   CP#RM,7                                                         FC5A158A     456     A     
 OVL10              BSS    "BUFL"-L54.NN                                                   FC5A158A     457     A     
 OVL10     .RM      ENDIF                                                                  FC5A158A     458     A     
 OVL10              END    FTN10                                                           FC5A158A     459     A     
 OVL10              IDENT  RPV10                                                           OVL10         12     A     
 OVL10     RPV10    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                         OVL10         13     A     
 OVL10                                                                                     OVL10         14     A     
 OVL10                                                                                     OVL10         15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL10   
  
 OVL10    **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         OVL10         16     A     
 OVL10                                                                                     OVL10         17     A     
 OVL10     RPV=RNA  CONENT FW.RNA                                                          OVL10         18     A     
 OVL10                                                                                     OVL10         19     A     
 OVL10                                                                                     OVL10         20     A     
 OVL10     FW.RNA   BSS    0           ** FWA OF RNA TABLE **                              OVL10         21     A     
 OVL10              RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY                               OVL10         22     A     
 OVL10              RPVFWA COMPCOM,RA.ORG+L54.00                                           OVL10         23     A     
 OVL10              RPVFWA FTN                                                             OVL10         24     A     
 OVL10              RPVFWA RPV10                                                           OVL10         25     A     
 OVL10              RPVFWA UTILITY                                                         OVL10         26     A     
 OVL10              RPVFWA LISTLNK                                                         FC5A150      551     A     
 OVL10              RPVFWA PUC                                                             OVL10         27     A     
 OVL10              RPVFWA QCGLINK                                                         OVL10         28     A     
 OVL10     .T       IFEQ   TEST,ON                                                         OVL10         29     A     
 OVL10              RPVFWA IDP                                                             OVL10         30     A     
 OVL10    **        RPVFWA CPULFM      NO FRA= PROVIDED                                    OVL10         31     A     
 OVL10              RPVFWA FSNAP                                                           OVL10         32     A     
 OVL10     .T       ENDIF                                                                  OVL10         33     A     
 OVL10              RPVFWA FEC                                                             OVL10         34     A     
 OVL10              RPVFWA FERRS                                                           OVL10         35     A     
 OVL10              RPVFWA PEM                                                             OVL10         36     A     
 OVL10              RPVFWA ALLOC                                                           OVL10         37     A     
 OVL10              RPVFWA LEX                                                             OVL10         38     A     
 OVL10              RPVFWA HEADER                                                          OVL10         39     A     
 OVL10              RPVFWA KEY                                                             OVL10         40     A     
 OVL10              RPVFWA CDDIR                                                           OVL10         41     A     
 OVL10              RPVFWA DATA                                                            OVL10         42     A     
 OVL10              RPVFWA DECL                                                            OVL10         43     A     
 OVL10              RPVFWA TYPE                                                            OVL10         44     A     
 OVL10              RPVFWA FMT                                                             OVL10         45     A     
 OVL10              RPVFWA IO                                                              OVL10         46     A     
 OVL10              RPVFWA PAR                                                             OVL10         47     A     
 OVL10              RPVFWA CONRED                                                          OVL10         48     A     
 OVL10              RPVFWA STMTF                                                           OVL10         49     A     
 OVL10              RPVFWA LABEL                                                           OVL10         50     A     
 OVL10              RPVFWA QCGC                                                            OVL10         51     A     
 OVL10              RPVFWA QSKEL                                                           OVL10         52     A     
 OVL10              RPVFWA FUN                                                             OVL10         53     A     
 OVL10              RPVFWA REG                                                             OVL10         54     A     
 OVL10              RPVFWA GEN                                                             OVL10         55     A     
 OVL10              RPVFWA REC                                                             OVL10         56     A     
 OVL10              RPVFWA FAS                                                             OVL10         57     A     
 OVL10              RPVFWA MAP                                                             OVL10         58     A     
 OVL10              RPVFWA LIST                                                            OVL10         59     A     
 OVL10              RPVFWA INIT10                                                          OVL10         60     A     
 OVL10              RPVFWA LWA10                                                           OVL10         61     A     
 OVL10              DATA   0           ** END OF TABLE **                                  OVL10         62     A     
 OVL10              DATA   0                                                               OVL10         63     A     
 OVL10              END                                                                    OVL10         64     A     
 OVL10    *                                                                                OVL10         65     A     
 OVL10              IDENT  UTILITY                                                         OVL10         66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL10   
  
 OVL10              END                                                                    OVL10         67     A     
 OVL10              IDENT  LISTLNK                                                         FC5A150      552     A     
 OVL10              END                                                                    FC5A150      553     A     
 OVL10              IDENT  PUC                                                             OVL10         68     A     
 OVL10              END                                                                    OVL10         69     A     
 OVL10              IDENT  QCGLINK                                                         OVL10         70     A     
 OVL10              END                                                                    OVL10         71     A     
 OVL10    **IF,DEF,TESTFTN             (NEXT LINE)                                         OVL10         72          I
          -FC5A370
 OVL10    *IF,DEF,TESTFTN              IDP.FSNAP                                           OVL10         73          I
          -FC5A370
 OVL10    **IF DEF,TEST    (NEXT LINE)                                                     FC5A370       20     A     
 OVL10    *IF DEF,TEST     IDP.FSNAP                                                       FC5A370       21     A     
 OVL10              IDENT  IDP                                                             OVL10         74     A     
 OVL10              END                                                                    OVL10         75     A     
 OVL10              IDENT  CPULFM                                                          OVL10         76     A     
 OVL10              END                                                                    OVL10         77     A     
 OVL10              IDENT  FSNAP                                                           OVL10         78     A     
 OVL10              END                                                                    OVL10         79     A     
 OVL10    **ENDIF                      (NEXT LINE)                                         OVL10         80     A     
 OVL10    *ENDIF                                                                           OVL10         81     A     
 OVL10              IDENT  FEC                                                             OVL10         82     A     
 OVL10              END                                                                    OVL10         83     A     
 OVL10              IDENT  FERRS                                                           OVL10         84     A     
 OVL10              END                                                                    OVL10         85     A     
 OVL10              IDENT  PEM                                                             OVL10         86     A     
 OVL10              END                                                                    OVL10         87     A     
 OVL10              IDENT  ALLOC                                                           OVL10         88     A     
 OVL10              END                                                                    OVL10         89     A     
 OVL10              IDENT  LEX                                                             OVL10         90     A     
 OVL10              END                                                                    OVL10         91     A     
 OVL10              IDENT  HEADER                                                          OVL10         92     A     
 OVL10              END                                                                    OVL10         93     A     
 OVL10              IDENT  KEY                                                             OVL10         94     A     
 OVL10              END                                                                    OVL10         95     A     
 OVL10              IDENT  CDDIR                                                           OVL10         96     A     
 OVL10              END                                                                    OVL10         97     A     
 OVL10              IDENT  DATA                                                            OVL10         98     A     
 OVL10              END                                                                    OVL10         99     A     
 OVL10              IDENT  DECL                                                            OVL10        100     A     
 OVL10              END                                                                    OVL10        101     A     
 OVL10              IDENT  TYPE                                                            OVL10        102     A     
 OVL10              END                                                                    OVL10        103     A     
 OVL10              IDENT  FMT                                                             OVL10        104     A     
 OVL10              END                                                                    OVL10        105     A     
 OVL10              IDENT  IO                                                              OVL10        106     A     
 OVL10              END                                                                    OVL10        107     A     
 OVL10              IDENT  PAR                                                             OVL10        108     A     
 OVL10              END                                                                    OVL10        109     A     
 OVL10              IDENT  CONRED                                                          OVL10        110     A     
 OVL10              END                                                                    OVL10        111     A     
 OVL10              IDENT  STMTF                                                           OVL10        112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL10   
  
 OVL10              END                                                                    OVL10        113     A     
 OVL10              IDENT  LABEL                                                           OVL10        114     A     
 OVL10              END                                                                    OVL10        115     A     
 OVL10              IDENT  QCGC                                                            OVL10        116     A     
 OVL10              END                                                                    OVL10        117     A     
 OVL10              IDENT  QSKEL                                                           OVL10        118     A     
 OVL10              END                                                                    OVL10        119     A     
 OVL10              IDENT  FUN                                                             OVL10        120     A     
 OVL10              END                                                                    OVL10        121     A     
 OVL10              IDENT  REG                                                             OVL10        122     A     
 OVL10              END                                                                    OVL10        123     A     
 OVL10              IDENT  GEN                                                             OVL10        124     A     
 OVL10              END                                                                    OVL10        125     A     
 OVL10              IDENT  REC                                                             OVL10        126     A     
 OVL10              END                                                                    OVL10        127     A     
 OVL10              IDENT  FAS                                                             OVL10        128     A     
 OVL10              END                                                                    OVL10        129     A     
 OVL10              IDENT  MAP                                                             OVL10        130     A     
 OVL10              END                                                                    OVL10        131     A     
 OVL10              IDENT  LIST                                                            OVL10        132     A     
 OVL10              END                                                                    OVL10        133     A     
 OVL10              IDENT  INIT10                                                          OVL10        134     A     
 OVL10              END                                                                    OVL10        135     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OVL10   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OVL10                      135       131
          FC5A115                      1         0
          FC5A150                      3         3
          FC5A158A                     4         4
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL20   
  
 OVL20    *DECK     OVL20 - PRIMARY OVERLAY FOR CCG.                                       OVL20          1     A     
 OVL20    *                                                                                OVL20          2     A     
 OVL20    *   OVERLAY (2,0)                                                                OVL20          3     A     
 OVL20    *                                                                                OVL20          4     A     
 OVL20              IDENT  FTN520                                                          OVL20          5     A     
 OVL20              SST                                                                    OVL20          6     A     
 OVL20              LCC    OVERLAY(FTN,2,0,O=FWA20)                                        OVL20          7     A     
 OVL20              COMMENT  FTN5 PRIMARY OVERLAY FOR CCG.                                 OVL20          8     A     
 OVL20    *CALL COMFCIP                                                                    OVL20          9     A     
 OVL20              BSS    "BUFL"                                                          OVL20         10          I
          -FC5A115  -FC5A158A 
 OVL20              BSS    "BUFL"-L54.NN                                                   FC5A115       51          I
          -FC5A158A 
 OVL20              END    FTN20                                                           OVL20         11          I
          -FC5A158A 
 OVL20     .RM      IFNE   CP#RM,7                                                         FC5A158A     460     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL20   
  
 OVL20              BSS    "BUFL"-L54.NN                                                   FC5A158A     461     A     
 OVL20     .RM      ENDIF                                                                  FC5A158A     462     A     
 OVL20              END    FTN20                                                           FC5A158A     463     A     
 OVL20              IDENT  RPV20                                                           OVL20         12     A     
 OVL20     RPV20    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                         OVL20         13     A     
 OVL20                                                                                     OVL20         14     A     
 OVL20                                                                                     OVL20         15     A     
 OVL20    **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         OVL20         16     A     
 OVL20    *                                                                                OVL20         17     A     
 OVL20    *                                                                                OVL20         18     A     
 OVL20    *         NOTE THAT RIGHT AFTER EACH (2,N) OVERLAY IS LOADED,                    OVL20         19     A     
 OVL20    *         THAT *INIT2N* WILL STORE AN END OF TABLE MARK (I.E.                    OVL20         20     A     
 OVL20    *         A FULL ZERO WORD) AT (RPV2N), AND ALSO STORE A WORD                    OVL20         21     A     
 OVL20    *         CONTAINING THE FWA OF THE *RNA* TABLE FOR THE NEWLY                    OVL20         22     A     
 OVL20    *         LOADED HIGHER OVERLAY AT (RPV2N+1).                                    OVL20         23     A     
 OVL20    *                                                                                OVL20         24     A     
 OVL20    *         IN THIS WAY, *CCOMRPV* CAN CHAIN/LINK THRU THE APPROPRIATE             OVL20         25     A     
 OVL20    *         *RNA* TABLE FOR EACH HIGHER OVERLAY.  SEE *CCOMRPV*                    OVL20         26     A     
 OVL20    *         IN DECK *UTILITY* FOR MORE INFORMATION ON LINKING                      OVL20         27     A     
 OVL20    *         *RNA* TABLES.                                                          OVL20         28     A     
 OVL20                                                                                     OVL20         29     A     
 OVL20     RPV=RNA  CONENT FW.RNA                                                          OVL20         30     A     
 OVL20                                                                                     OVL20         31     A     
 OVL20                                                                                     OVL20         32     A     
 OVL20     FW.RNA   BSS    0           ** FWA OF RNA TABLE **                              OVL20         33     A     
 OVL20              RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY                               OVL20         34     A     
 OVL20              RPVFWA COMPCOM,RA.ORG+L54.00                                           OVL20         35     A     
 OVL20              RPVFWA FTN                                                             OVL20         36     A     
 OVL20              RPVFWA RPV20                                                           OVL20         37     A     
 OVL20              RPVFWA UTILITY                                                         OVL20         38     A     
 OVL20              RPVFWA LISTLNK                                                         FC5A150      554     A     
 OVL20              RPVFWA PUC                                                             OVL20         39     A     
 OVL20              RPVFWA CCGLINK                                                         OVL20         40     A     
 OVL20     .T       IFEQ   TEST,ON                                                         OVL20         41     A     
 OVL20              RPVFWA IDP                                                             OVL20         42     A     
 OVL20    **        RPVFWA CPULFM      NO FRA= PROVIDED                                    OVL20         43     A     
 OVL20     .T       ENDIF                                                                  OVL20         44     A     
 OVL20              RPVFWA INIT20,=XB=INI20                                                OVL20         45     A     
 OVL20     RPV2N    RPVFWA LWA20       ** USED FOR LINKING TO (2,N).  SEE ABOVE **         OVL20         46     A     
 OVL20              ENTRY  RPV2N                                                           OVL20         47     A     
 OVL20              DATA   0           ** END OF RNA TABLE FOR (2,0) **                    OVL20         48     A     
 OVL20    *                            ** LINK WORD FOR (2,N) **                           OVL20         49     A     
 OVL20              DATA   0                                                               OVL20         50     A     
 OVL20              END                                                                    OVL20         51     A     
 OVL20    *                                                                                OVL20         52     A     
 OVL20              IDENT  UTILITY                                                         OVL20         53     A     
 OVL20              END                                                                    OVL20         54     A     
 OVL20              IDENT  LISTLNK                                                         FC5A150      555     A     
 OVL20              END                                                                    FC5A150      556     A     
 OVL20              IDENT  PUC                                                             OVL20         55     A     
 OVL20              END                                                                    OVL20         56     A     
 OVL20              IDENT  CCGLINK                                                         OVL20         57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL20   
  
 OVL20              END                                                                    OVL20         58     A     
 OVL20    **IF,DEF,TESTFTN             (NEXT LINE)                                         OVL20         59          I
          -FC5A370
 OVL20    *IF,DEF,TESTFTN              IDP.CPULFM                                          OVL20         60          I
          -FC5A370
 OVL20    **IF DEF,TEST    (NEXT LINE)                                                     FC5A370       22     A     
 OVL20    *IF DEF,TEST     IDP.CPULFM                                                      FC5A370       23     A     
 OVL20              IDENT  IDP                                                             OVL20         61     A     
 OVL20              END                                                                    OVL20         62     A     
 OVL20              IDENT  CPULFM                                                          OVL20         63     A     
 OVL20              END                                                                    OVL20         64     A     
 OVL20    **ENDIF                      (NEXT LINE)                                         OVL20         65     A     
 OVL20    *ENDIF                                                                           OVL20         66     A     
 OVL20              IDENT  INIT20                                                          OVL20         67     A     
 OVL20              END                                                                    OVL20         68     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OVL20   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OVL20                       68        64
          FC5A115                      1         0
          FC5A150                      3         3
          FC5A158A                     4         4
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL21   
  
 OVL21    *DECK     OVL21 - FRONT END OVERLAY FOR CCG.                                     OVL21          1     A     
 OVL21    *                                                                                OVL21          2     A     
 OVL21    *         OVERLAY (2,1)                                                          OVL21          3     A     
 OVL21    *                                                                                OVL21          4     A     
 OVL21              IDENT  FTN521                                                          OVL21          5     A     
 OVL21              LCC    OVERLAY(FTN,2,1,O=FWA21)                                        OVL21          6     A     
 OVL21              COMMENT  FTN5 FRONT END OVERLAY FOR CCG.                               OVL21          7     A     
 OVL21              END    FTN21                                                           OVL21          8     A     
 OVL21              IDENT  RPV21                                                           OVL21          9     A     
 OVL21     RPV21    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                         OVL21         10     A     
 OVL21                                                                                     OVL21         11     A     
 OVL21                                                                                     OVL21         12     A     
 OVL21    **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         OVL21         13     A     
 OVL21                                                                                     OVL21         14     A     
 OVL21              ENTRY  RPV21                                                           OVL21         15     A     
 OVL21     RPV21    RPVFWA RPV21                                                           OVL21         16     A     
 OVL21     .T       IFEQ   TEST,ON,1                                                       OVL21         17     A     
 OVL21              RPVFWA FSNAP                                                           OVL21         18     A     
 OVL21              RPVFWA FEC                                                             OVL21         19     A     
 OVL21              RPVFWA FERRS                                                           OVL21         20     A     
 OVL21              RPVFWA PEM                                                             OVL21         21     A     
 OVL21              RPVFWA ALLOC                                                           OVL21         22     A     
 OVL21              RPVFWA FLINK                                                           OVL21         23     A     
 OVL21              RPVFWA LEX                                                             OVL21         24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL21   
  
 OVL21              RPVFWA HEADER                                                          OVL21         25     A     
 OVL21              RPVFWA KEY                                                             OVL21         26     A     
 OVL21              RPVFWA CDDIR                                                           OVL21         27     A     
 OVL21              RPVFWA DATA                                                            OVL21         28     A     
 OVL21              RPVFWA DECL                                                            OVL21         29     A     
 OVL21              RPVFWA TYPE                                                            OVL21         30     A     
 OVL21              RPVFWA FMT                                                             OVL21         31     A     
 OVL21              RPVFWA IO                                                              OVL21         32     A     
 OVL21              RPVFWA PAR                                                             OVL21         33     A     
 OVL21              RPVFWA CONRED                                                          OVL21         34     A     
 OVL21              RPVFWA STMTF                                                           OVL21         35     A     
 OVL21              RPVFWA LABEL                                                           OVL21         36     A     
 OVL21              RPVFWA FSKEL                                                           OVL21         37     A     
 OVL21              RPVFWA INIT21,=XB=INI21                                                OVL21         38     A     
 OVL21              RPVFWA LWA21                                                           OVL21         39     A     
 OVL21              DATA   0           ** END OF RNA TABLE **                              OVL21         40     A     
 OVL21              DATA   0                                                               OVL21         41     A     
 OVL21              END                                                                    OVL21         42     A     
 OVL21    *                                                                                OVL21         43     A     
 OVL21    **IF,DEF,TESTFTN,2           (NEXT LINE)                                         OVL21         44          I
          -FC5A370
 OVL21    *IF DEF,TESTFTN,2                                                                OVL21         45          I
          -FC5A370
 OVL21    **IF DEF,TEST,2  (NEXT LINE)                                                     FC5A370       24     A     
 OVL21    *IF DEF,TEST,2                                                                   FC5A370       25     A     
 OVL21              IDENT  FSNAP                                                           OVL21         46     A     
 OVL21              END                                                                    OVL21         47     A     
 OVL21              IDENT  FEC                                                             OVL21         48     A     
 OVL21              END                                                                    OVL21         49     A     
 OVL21              IDENT  FERRS                                                           OVL21         50     A     
 OVL21              END                                                                    OVL21         51     A     
 OVL21              IDENT  PEM                                                             OVL21         52     A     
 OVL21              END                                                                    OVL21         53     A     
 OVL21              IDENT  ALLOC                                                           OVL21         54     A     
 OVL21              END                                                                    OVL21         55     A     
 OVL21              IDENT  FLINK                                                           OVL21         56     A     
 OVL21              END                                                                    OVL21         57     A     
 OVL21              IDENT  LEX                                                             OVL21         58     A     
 OVL21              END                                                                    OVL21         59     A     
 OVL21              IDENT  HEADER                                                          OVL21         60     A     
 OVL21              END                                                                    OVL21         61     A     
 OVL21              IDENT  KEY                                                             OVL21         62     A     
 OVL21              END                                                                    OVL21         63     A     
 OVL21              IDENT  CDDIR                                                           OVL21         64     A     
 OVL21              END                                                                    OVL21         65     A     
 OVL21              IDENT  DATA                                                            OVL21         66     A     
 OVL21              END                                                                    OVL21         67     A     
 OVL21              IDENT  DECL                                                            OVL21         68     A     
 OVL21              END                                                                    OVL21         69     A     
 OVL21              IDENT  TYPE                                                            OVL21         70     A     
 OVL21              END                                                                    OVL21         71     A     
 OVL21              IDENT  FMT                                                             OVL21         72     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL21   
  
 OVL21              END                                                                    OVL21         73     A     
 OVL21              IDENT  IO                                                              OVL21         74     A     
 OVL21              END                                                                    OVL21         75     A     
 OVL21              IDENT  PAR                                                             OVL21         76     A     
 OVL21              END                                                                    OVL21         77     A     
 OVL21              IDENT  CONRED                                                          OVL21         78     A     
 OVL21              END                                                                    OVL21         79     A     
 OVL21              IDENT  STMTF                                                           OVL21         80     A     
 OVL21              END                                                                    OVL21         81     A     
 OVL21              IDENT  LABEL                                                           OVL21         82     A     
 OVL21              END                                                                    OVL21         83     A     
 OVL21              IDENT  FSKEL                                                           OVL21         84     A     
 OVL21              END                                                                    OVL21         85     A     
 OVL21              IDENT  INIT21                                                          OVL21         86     A     
 OVL21              END                                                                    OVL21         87     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OVL21   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OVL21                       87        85
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL22   
  
 OVL22    *DECK     OVL22 - COMMON CODE GENERATOR OVERLAY.                                 OVL22          1     A     
 OVL22    *                                                                                OVL22          2     A     
 OVL22    *         OVERLAY (2,2)                                                          OVL22          3     A     
 OVL22    *                                                                                OVL22          4     A     
 OVL22              IDENT  FTN522                                                          OVL22          5     A     
 OVL22              LCC    OVERLAY(FTN,2,2,O=FWA22)                                        OVL22          6     A     
 OVL22              COMMENT COMMON CODE GENERATOR OVERLAY.                                 OVL22          7     A     
 OVL22              END    FTN22                                                           OVL22          8     A     
 OVL22              IDENT  RPV22                                                           OVL22          9     A     
 OVL22     RPV22    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                         OVL22         10     A     
 OVL22                                                                                     OVL22         11     A     
 OVL22                                                                                     OVL22         12     A     
 OVL22    **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         OVL22         13     A     
 OVL22                                                                                     OVL22         14     A     
 OVL22              ENTRY  RPV22                                                           OVL22         15     A     
 OVL22     RPV22    RPVFWA RPV22                                                           OVL22         16     A     
 OVL22              RPVFWA CCGC                                                            OVL22         17     A     
 OVL22              RPVFWA CGTM                                                            OVL22         18     A     
 OVL22              RPVFWA MIO                                                             OVL22         19     A     
 OVL22              RPVFWA FBV                                                             OVL22         20     A     
 OVL22              RPVFWA GPO                                                             OVL22         21     A     
 OVL22              RPVFWA GRA                                                             OVL22         22     A     
 OVL22              RPVFWA PROSEQ,=XB=PROSQ                                                OVL22         23     A     
 OVL22              RPVFWA SQZ                                                             OVL22         24     A     
 OVL22              RPVFWA MCG                                                             OVL22         25     A     
 OVL22                                                                                     OVL22         26     A     
 OVL22     .TEST    IFEQ   TEST,ON     IF TEST MODE                                        OVL22         27     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL22   
  
 OVL22              RPVFWA CSNAP                                                           OVL22         28     A     
 OVL22              RPVFWA OUTPTK                                                          OVL22         29     A     
 OVL22              RPVFWA DMPIIT,=XDMPIIT-3                                               OVL22         30     A     
 OVL22              RPVFWA DMPRLST,=XDMPRLST-3                                             OVL22         31     A     
 OVL22              RPVFWA DMPSIT,=XDMPSIT-3                                               OVL22         32     A     
 OVL22              RPVFWA DMPTREE,=XDMPTREE-3                                             OVL22         33     A     
 OVL22              RPVFWA DMPUDI,=XDMPUDI-3                                               OVL22         34     A     
 OVL22              RPVFWA PRNTGRA,=XPRNTGRA-3                                             OVL22         35     A     
 OVL22              RPVFWA PRNTMIO,=XPRNTMIO-3                                             OVL22         36     A     
 OVL22              RPVFWA PRNTUDI,=XPRNTUDI-3                                             OVL22         37     A     
 OVL22              RPVFWA PRNTABV,=XPRNTABV-3                                             OVL22         38     A     
 OVL22              RPVFWA PRNTBV,=XPRNTBV-3                                               OVL22         39     A     
 OVL22              RPVFWA PRNTRLI,=XPRNTRLI-3                                             OVL22         40     A     
 OVL22              RPVFWA PRNTMCG,=XPRNTMCG-3                                             OVL22         41     A     
 OVL22     .TEST    ENDIF                                                                  OVL22         42     A     
 OVL22                                                                                     OVL22         43     A     
 OVL22              RPVFWA BDT                                                             OVL22         44     A     
 OVL22              RPVFWA BRIDGE                                                          OVL22         45     A     
 OVL22              RPVFWA CFA                                                             OVL22         46     A     
 OVL22              RPVFWA UDT                                                             OVL22         47     A     
 OVL22              RPVFWA CSKEL                                                           OVL22         48     A     
 OVL22              RPVFWA INIT22,=XB=INI22                                                OVL22         49     A     
 OVL22              RPVFWA LWA22                                                           OVL22         50     A     
 OVL22              DATA   0           ** END OF RNA TABLE **                              OVL22         51     A     
 OVL22              DATA   0                                                               OVL22         52     A     
 OVL22              END                                                                    OVL22         53     A     
 OVL22    *                                                                                OVL22         54     A     
 OVL22              IDENT  CCGC                                                            OVL22         55     A     
 OVL22              END                                                                    OVL22         56     A     
 OVL22              IDENT  CGTM                                                            OVL22         57     A     
 OVL22              END                                                                    OVL22         58     A     
 OVL22              IDENT  MIO                                                             OVL22         59     A     
 OVL22              END                                                                    OVL22         60     A     
 OVL22              IDENT  FBV                                                             OVL22         61     A     
 OVL22              END                                                                    OVL22         62     A     
 OVL22              IDENT  GPO                                                             OVL22         63     A     
 OVL22              END                                                                    OVL22         64     A     
 OVL22              IDENT  GRA                                                             OVL22         65     A     
 OVL22              END                                                                    OVL22         66     A     
 OVL22              IDENT  PROSEQ                                                          OVL22         67     A     
 OVL22              END                                                                    OVL22         68     A     
 OVL22              IDENT  SQZ                                                             OVL22         69     A     
 OVL22              END                                                                    OVL22         70     A     
 OVL22              IDENT  MCG                                                             OVL22         71     A     
 OVL22              END                                                                    OVL22         72     A     
 OVL22                                                                                     OVL22         73     A     
 OVL22    **IF,DEF,TEST                (NEXT LINE)                                         OVL22         74     A     
 OVL22    *IF DEF,TESTFTN                                                                  OVL22         75          I
          -FC5A370
 OVL22    *IF DEF,TEST                                                                     FC5A370       26     A     
 OVL22              IDENT  CSNAP                                                           OVL22         76     A     
 OVL22              END                                                                    OVL22         77     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL22   
  
 OVL22              IDENT  OUTPTK                                                          OVL22         78     A     
 OVL22              END                                                                    OVL22         79     A     
 OVL22              IDENT  DMPIIT                                                          OVL22         80     A     
 OVL22              END                                                                    OVL22         81     A     
 OVL22              IDENT  DMPRLST                                                         OVL22         82     A     
 OVL22              END                                                                    OVL22         83     A     
 OVL22              IDENT  DMPSIT                                                          OVL22         84     A     
 OVL22              END                                                                    OVL22         85     A     
 OVL22              IDENT  DMPTREE                                                         OVL22         86     A     
 OVL22              END                                                                    OVL22         87     A     
 OVL22              IDENT  DMPUDI                                                          OVL22         88     A     
 OVL22              END                                                                    OVL22         89     A     
 OVL22              IDENT  PRNTGRA                                                         OVL22         90     A     
 OVL22              END                                                                    OVL22         91     A     
 OVL22              IDENT  PRNTMIO                                                         OVL22         92     A     
 OVL22              END                                                                    OVL22         93     A     
 OVL22              IDENT  PRNTUDI                                                         OVL22         94     A     
 OVL22              END                                                                    OVL22         95     A     
 OVL22              IDENT  PRNTABV                                                         OVL22         96     A     
 OVL22              END                                                                    OVL22         97     A     
 OVL22              IDENT  PRNTBV                                                          OVL22         98     A     
 OVL22              END                                                                    OVL22         99     A     
 OVL22              IDENT  PRNTRLI                                                         OVL22        100     A     
 OVL22              END                                                                    OVL22        101     A     
 OVL22              IDENT  PRNTMCG                                                         OVL22        102     A     
 OVL22              END                                                                    OVL22        103     A     
 OVL22    **ENDIF                      (NEXT LINE)                                         OVL22        104     A     
 OVL22    *ENDIF                                                                           OVL22        105     A     
 OVL22                                                                                     OVL22        106     A     
 OVL22              IDENT  BDT                                                             OVL22        107     A     
 OVL22              END                                                                    OVL22        108     A     
 OVL22              IDENT  BRIDGE                                                          OVL22        109     A     
 OVL22              END                                                                    OVL22        110     A     
 OVL22              IDENT  CFA                                                             OVL22        111     A     
 OVL22              END                                                                    OVL22        112     A     
 OVL22              IDENT  UDT                                                             OVL22        113     A     
 OVL22              END                                                                    OVL22        114     A     
 OVL22              IDENT  CSKEL                                                           OVL22        115     A     
 OVL22              END                                                                    OVL22        116     A     
 OVL22              IDENT  INIT22                                                          OVL22        117     A     
 OVL22              END                                                                    OVL22        118     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OVL22   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OVL22                      118       117
          FC5A370                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL23   
  
 OVL23    *DECK     OVL23 - REAR END OVERLAY FOR CCG.                                      OVL23          1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL23   
  
 OVL23    *                                                                                OVL23          2     A     
 OVL23    *         OVERLAY (2,3)                                                          OVL23          3     A     
 OVL23    *                                                                                OVL23          4     A     
 OVL23              IDENT  FTN523                                                          OVL23          5     A     
 OVL23              LCC    OVERLAY(FTN,2,3,O=FWA23)                                        OVL23          6     A     
 OVL23              COMMENT FTN5 REAR END OVERLAY FOR CCG.                                 OVL23          7     A     
 OVL23              END    FTN23                                                           OVL23          8     A     
 OVL23              IDENT  RPV23                                                           OVL23          9     A     
 OVL23     RPV23    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                         OVL23         10     A     
 OVL23                                                                                     OVL23         11     A     
 OVL23                                                                                     OVL23         12     A     
 OVL23    **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         OVL23         13     A     
 OVL23                                                                                     OVL23         14     A     
 OVL23              ENTRY  RPV23                                                           OVL23         15     A     
 OVL23     RPV23    RPVFWA RPV23                                                           OVL23         16     A     
 OVL23     .T       IFEQ   TEST,ON,1                                                       OVL23         17     A     
 OVL23              RPVFWA RSNAP                                                           OVL23         18     A     
 OVL23              RPVFWA REC                                                             OVL23         19     A     
 OVL23              RPVFWA RLINK                                                           OVL23         20     A     
 OVL23              RPVFWA RERRS                                                           OVL23         21     A     
 OVL23              RPVFWA PEM                                                             OVL23         22     A     
 OVL23              RPVFWA ALLOC                                                           OVL23         23     A     
 OVL23              RPVFWA FAS                                                             OVL23         24     A     
 OVL23              RPVFWA MAP                                                             OVL23         25     A     
 OVL23              RPVFWA LIST                                                            OVL23         26     A     
 OVL23              RPVFWA INIT23,=XB=INI23                                                OVL23         27     A     
 OVL23              RPVFWA LWA23                                                           OVL23         28     A     
 OVL23              DATA   0           ** END OF RNA TABLE **                              OVL23         29     A     
 OVL23              DATA   0                                                               OVL23         30     A     
 OVL23              END                                                                    OVL23         31     A     
 OVL23    *                                                                                OVL23         32     A     
 OVL23    **IF,DEF,TESTFTN,2           (NEXT LINE)                                         OVL23         33          I
          -FC5A370
 OVL23    *IF DEF,TESTFTN,2                                                                OVL23         34          I
          -FC5A370
 OVL23    **IF DEF,TEST,2  (NEXT LINE)                                                     FC5A370       27     A     
 OVL23    *IF DEF,TEST,2                                                                   FC5A370       28     A     
 OVL23              IDENT  RSNAP                                                           OVL23         35     A     
 OVL23              END                                                                    OVL23         36     A     
 OVL23              IDENT  REC                                                             OVL23         37     A     
 OVL23              END                                                                    OVL23         38     A     
 OVL23              IDENT  RLINK                                                           OVL23         39     A     
 OVL23              END                                                                    OVL23         40     A     
 OVL23              IDENT  RERRS                                                           OVL23         41     A     
 OVL23              END                                                                    OVL23         42     A     
 OVL23              IDENT  PEM                                                             OVL23         43     A     
 OVL23              END                                                                    OVL23         44     A     
 OVL23              IDENT  ALLOC                                                           OVL23         45     A     
 OVL23              END                                                                    OVL23         46     A     
 OVL23              IDENT  FAS                                                             OVL23         47     A     
 OVL23              END                                                                    OVL23         48     A     
 OVL23              IDENT  MAP                                                             OVL23         49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OVL23   
  
 OVL23              END                                                                    OVL23         50     A     
 OVL23              IDENT  LIST                                                            OVL23         51     A     
 OVL23              END                                                                    OVL23         52     A     
 OVL23              IDENT  INIT23                                                          OVL23         53     A     
 OVL23              END                                                                    OVL23         54     A     
 OVL23    *DECK     CWEOR5                                                                 CWEOR5         1          I
          -FC5A370
 OVL23    *CWEOR    0                  (5)  END OF SKELETON FRAME.                         CWEOR5         2          I
          -FC5A370
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OVL23   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OVL23                       54        52
          CWEOR5                       2         0
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR5*  
  
 WEOR5*   *DECK WEOR5*                                                                     FC5A370       29     A     
 WEOR5*   *WEOR 0   (5)  END OF SKELETON FRAME.                                            FC5A370       30     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR5*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A370                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COPYWS  
  
 COPYWS   *DECK     COPYWS - COPY *W* SECTIONS TO *S* RECORDS.                             FC5A180       27     A     
 COPYWS             IDENT  COPYWS,RA.ORG+1,COPYWS                                          FC5A180       28     A     
 COPYWS             ABS                                                                    FC5A180       29     A     
 COPYWS             B1=1                                                                   FC5A180       30     A     
 COPYWS             TITLE  COPYWS - COPY *W* SECTIONS TO *S* RECORDS.                      FC5A180       31     A     
 COPYWS             COMMENT  COPY *W* SECTIONS TO *S* RECORDS.                             FC5A180       32     A     
 COPYWS    RA.ARG   EQU    2           CONTROL CARD ARGUMENTS                              FC5A180       33     A     
 COPYWS    RA.ACT   EQU    64B         ARGUMENT COUNT                                      FC5A180       34     A     
 COPYWS    RA.ORG   EQU    100B        ABSOLUTE PROGRAM ORIGIN                             FC5A180       35     A     
 COPYWS             ORG    RA.ORG+1                                                        FC5A180       36     A     
 COPYWS    COPYWS   SPACE  4,8                                                             FC5A180       37     A     
 COPYWS   ***       COPYWS - COPY *W* SECTIONS TO *S* RECORDS.                             FC5A180       38     A     
 COPYWS   *                                                                                FC5A180       39     A     
 COPYWS   *         R. H. GOODELL.     72/02/03.                                           FC5A180       40     A     
 COPYWS   *                                                                                FC5A180       41     A     
 COPYWS   *         CONTROL DATA  PROPRIETARY PRODUCT.                                     FC5A180       42     A     
 COPYWS   *         COPYRIGHT CONTROL DATA CORP. 1972.                                     FC5A180       43     A     
 COPYWS    COPYWS   SPACE  4,8                                                             FC5A180       44     A     
 COPYWS   ***              *COPYWS* COPIES A FILE IN *W* RECORD FORMAT  TO                 FC5A180       45     A     
 COPYWS   *         A  FILE  IN  *S*  RECORD  FORMAT.  ORDINARY *W* RECORD                 FC5A180       46     A     
 COPYWS   *         BOUNDARIES ARE ELIDED, END OF SECTION BECOMES  END  OF                 FC5A180       47     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COPYWS  
  
 COPYWS   *         SCOPE  LOGICAL  RECORD (LEVEL 0), AND END OF PARTITION                 FC5A180       48     A     
 COPYWS   *         BECOMES A SCOPE END OF FILE (LEVEL 17).  COPYING STOPS                 FC5A180       49     A     
 COPYWS   *         AT END OF INFORMATION.  NEITHER FILE IS REWOUND BEFORE                 FC5A180       50     A     
 COPYWS   *         OR AFTER COPYING.  *COPYWS* RUNS UNDER SCOPE 2.0 ONLY.                 FC5A180       51     A     
 COPYWS    COPYWS   SPACE  4,8                                                             FC5A180       52     A     
 COPYWS   ***       CONTROL CARD CALL.                                                     FC5A180       53     A     
 COPYWS   *                                                                                FC5A180       54     A     
 COPYWS   *         COPYWS(FROM,TO).                                                       FC5A180       55     A     
 COPYWS   *                                                                                FC5A180       56     A     
 COPYWS   *         FROM   NAME OF FILE TO BE READ, DEFAULT IS *LGO*.                      FC5A180       57     A     
 COPYWS   *         TO     NAME OF FILE TO BE WRITTEN, DEFAULT IS *NEW*.                   FC5A180       58     A     
 COPYWS    COPYWS   SPACE  4,8                                                             FC5A180       59     A     
 COPYWS   **        FILE INFORMATION TABLES.                                               FC5A180       60     A     
 COPYWS                                                                                    FC5A180       61     A     
 COPYWS                                                                                    FC5A180       62     A     
 COPYWS    LGO      FILE   BT=,RT=W,MRL=40000,OF=N,CF=N,CM=NO,WSA=BUF                      FC5A180       63     A     
 COPYWS    NEW      FILE   BT=C,RT=S,MBL=40000,OF=N,CF=N,CM=NO,WSA=BUF                     FC5A180       64     A     
 COPYWS    COPYWS   TITLE  MAIN PROGRAM.                                                   FC5A180       65     A     
 COPYWS   **        COPYWS - MAIN PROGRAM.                                                 FC5A180       66     A     
 COPYWS                                                                                    FC5A180       67     A     
 COPYWS                                                                                    FC5A180       68     A     
 COPYWS    COPYWS   SB1    1           (B1) = CONSTANT 1                                   FC5A180       69     A     
 COPYWS             RJ     PRS         PRESET PROGRAM                                      FC5A180       70     A     
 COPYWS             RJ     ARG         PROCESS ARGUMENTS                                   FC5A180       71     A     
 COPYWS             OPENM  LGO,INPUT,N OPEN FILES                                          FC5A180       72     A     
 COPYWS             OPENM  NEW,OUTPUT,N                                                    FC5A180       73     A     
 COPYWS             MX3    0           CLEAR RECORD LENGTH                                 FC5A180       74     A     
 COPYWS                                                                                    FC5A180       75     A     
 COPYWS   *         MAIN LOOP.                                                             FC5A180       76     A     
 COPYWS                                                                                    FC5A180       77     A     
 COPYWS    CWS1     GET    LGO         READ DATA                                           FC5A180       78     A     
 COPYWS             FETCH  LGO,RL,X1                                                       FC5A180       79     A     
 COPYWS             FETCH  LGO,FP,X2                                                       FC5A180       80     A     
 COPYWS             ZR,X1  CWS2        IF NO DATA                                          FC5A180       81     A     
 COPYWS             PUTP   NEW,BUF,X1  WRITE DATA                                          FC5A180       82     A     
 COPYWS    CWS2     SX0    #EOP#+#EOI#                                                     FC5A180       83     A     
 COPYWS             BX6    X0*X2                                                           FC5A180       84     A     
 COPYWS             IX3    X3+X1       ACCUMULATE RECORD LENGTH                            FC5A180       85     A     
 COPYWS             NZ,X6  CWS3        IF END OF PARTITION OR INFORMATION                  FC5A180       86     A     
 COPYWS             SX0    #EOS#                                                           FC5A180       87     A     
 COPYWS             BX6    X0*X2                                                           FC5A180       88     A     
 COPYWS             ZR,X6  CWS1        IF NOT END OF SECTION, LOOP                         FC5A180       89     A     
 COPYWS             MX3    0           CLEAR RECORD LENGTH                                 FC5A180       90     A     
 COPYWS             WEOR   NEW         TERMINATE SCOPE LOGICAL RECORD                      FC5A180       91     A     
 COPYWS             JP     CWS1        LOOP                                                FC5A180       92     A     
 COPYWS    CWS3     ZR,X3  CWS4        IF NO DATA PRECEDING EOP/EOI                        FC5A180       93     A     
 COPYWS             MX3    0           CLEAR NEXT RECORD LENGTH                            FC5A180       94     A     
 COPYWS             WEOR   NEW         TERMINATE SCOPE LOGICAL RECORD                      FC5A180       95     A     
 COPYWS    CWS4     SX0    #EOI#                                                           FC5A180       96     A     
 COPYWS             BX6    X0*X2                                                           FC5A180       97     A     
 COPYWS             NZ,X6  CWS5        IF END OF INFORMATION                               FC5A180       98     A     
 COPYWS             ENDFILE NEW        WRITE END OF FILE (LEVEL 17)                        FC5A180       99     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COPYWS  
  
 COPYWS             JP     CWS1        LOOP                                                FC5A180      100     A     
 COPYWS                                                                                    FC5A180      101     A     
 COPYWS   *         END OF INFORMATION.                                                    FC5A180      102     A     
 COPYWS                                                                                    FC5A180      103     A     
 COPYWS    CWS5     CLOSEM LGO         CLOSE FILES                                         FC5A180      104     A     
 COPYWS             CLOSEM NEW                                                             FC5A180      105     A     
 COPYWS             MESSAGE (=C* COPYWS COMPLETE.*)                                        FC5A180      106     A     
 COPYWS             ENDRUN                                                                 FC5A180      107     A     
 COPYWS    COPYWS   TITLE  SUBROUTINES.                                                    FC5A180      108     A     
 COPYWS    ARG      SPACE  4,8                                                             FC5A180      109     A     
 COPYWS   **        ARG - PROCESS CONTROL CARD ARGUMENTS.                                  FC5A180      110     A     
 COPYWS                                                                                    FC5A180      111     A     
 COPYWS                                                                                    FC5A180      112     A     
 COPYWS    ARG      EQ     *+1S17      RETURN EXIT                                         FC5A180      113     A     
 COPYWS    ARGX     EQU    *                                                               FC5A180      114     A     
 COPYWS             SA1    RA.ACT      GET ARGUMENT COUNT                                  FC5A180      115     A     
 COPYWS             SB7    X1                                                              FC5A180      116     A     
 COPYWS             MX0    42                                                              FC5A180      117     A     
 COPYWS             ZR,B7  ARGX        IF NO ARGUMENTS                                     FC5A180      118     A     
 COPYWS             SA1    RA.ARG                                                          FC5A180      119     A     
 COPYWS             BX6    X0*X1       GET INPUT FILE NAME                                 FC5A180      120     A     
 COPYWS             SB7    B7-B1                                                           FC5A180      121     A     
 COPYWS             ZR,X6  ARG1        IF OMITTED                                          FC5A180      122     A     
 COPYWS             SA6    LGO                                                             FC5A180      123     A     
 COPYWS    ARG1     ZR,B7  ARGX        IF END OF ARGUMENTS                                 FC5A180      124     A     
 COPYWS             SA1    A1+B1                                                           FC5A180      125     A     
 COPYWS             BX6    X0*X1       GET OUTPUT FILE NAME                                FC5A180      126     A     
 COPYWS             SB7    B7-B1                                                           FC5A180      127     A     
 COPYWS             ZR,X6  ARG2        IF OMITTED                                          FC5A180      128     A     
 COPYWS             SA6    NEW                                                             FC5A180      129     A     
 COPYWS    ARG2     ZR,B7  ARGX        IF END OF ARGUMENTS                                 FC5A180      130     A     
 COPYWS             MESSAGE (=C* COPYWS CONTROL CARD ERROR.*)                              FC5A180      131     A     
 COPYWS             ABORT                                                                  FC5A180      132     A     
 COPYWS    PRS      SPACE  4,8                                                             FC5A180      133     A     
 COPYWS   **        PRS - PRESET PROGRAM.                                                  FC5A180      134     A     
 COPYWS   *                                                                                FC5A180      135     A     
 COPYWS   *         ENTRY  (A0) = SCM FIELD LENGTH.                                        FC5A180      136     A     
 COPYWS   *         EXIT   FIELD LENGTH INCREASED IF NECESSARY.                            FC5A180      137     A     
 COPYWS                                                                                    FC5A180      138     A     
 COPYWS                                                                                    FC5A180      139     A     
 COPYWS    PRS      EQ     *+1S17      RETURN EXIT                                         FC5A180      140     A     
 COPYWS    PRSX     EQU    *                                                               FC5A180      141     A     
 COPYWS             SB7    A0-END-8    CHECK FIELD LENGTH                                  FC5A180      142     A     
 COPYWS             PL,B7  PRSX        IF ENOUGH                                           FC5A180      143     A     
 COPYWS             MEMORY SCM,PRSA    INCREASE FIELD LENGTH                               FC5A180      144     A     
 COPYWS             JP     PRSX        RETURN                                              FC5A180      145     A     
 COPYWS                                                                                    FC5A180      146     A     
 COPYWS    PRSA     VFD    30/END/1S6*1S6,30/0   MINIMUM FIELD LENGTH REQUEST              FC5A180      147     A     
 COPYWS    BUF      SPACE  4,8                                                             FC5A180      148     A     
 COPYWS   **        BUF - WORKING STORAGE AREA.                                            FC5A180      149     A     
 COPYWS                                                                                    FC5A180      150     A     
 COPYWS                                                                                    FC5A180      151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COPYWS  
  
 COPYWS             USE    BUF         FORCE LITERALS OUT                                  FC5A180      152     A     
 COPYWS    BUF      BSS    0           ALLOW ENOUGH ROOM FOR 4000 WORDS                    FC5A180      153     A     
 COPYWS    END      EQU    *+4000+8+77B PLUS SLOP PLUS ROUNDING                            FC5A180      154     A     
 COPYWS                                                                                    FC5A180      155     A     
 COPYWS                                                                                    FC5A180      156     A     
 COPYWS             END    COPYWS                                                          FC5A180      157     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COPYWS  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FC5A180                    131       131
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TOTALS
  
          IDENTIFIER               TOTAL    ACTIVE
  
          YANK$$$                      0         0
          HISTORY                      3         3
          *COMDKS*                     1         1
          CCOMRPV                    373       373
          CGHCDTD                     16        16
          CGHCSTD                      4         3
          COMACPU                    215       215
          COMADEF                    285       285
          COMAERR                    242       242
          COMAMGM                    603       602
          COMAQCG                    134       134
          COMCMCS                     78        78
          COMCPAC                   1360      1349
          COMCSBM                     50        50
          COMDDMT                    322       322
          COMFCIP                    198       179
          COMFDST                     48        48
          COMFECB                    117       117
          COMFFEI                     87        60
          COMFERR                     30        29
          COMFFFN                     34        34
          COMFGFD                     44        38
          COMFGOI                     94        86
          COMFICP                     50        50
          COMFISA                     71        68
          COMFITS                     52        52
          COMFMAV                    123       118
          COMFMFP                    219       219
          COMFOSC                     75        75
          COMFPLI                     20        17
          COMFRNC                    114       114
          COMFROR                     98        98
          COMFSCB                     26        26
          COMFSCS                     43        43
          COMFSID                     32        32
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2148    
  
          COMFSIM                    124       124
          COMFSKL                    750       750
          COMFSMD                     24        24
          COMFSMK                     23        23
          COMFSSH                     36        36
          COMFTTL                     16        13
          COMFUSE                     59        59
          COMSPSU                     59        50
          COMFWIN                    506       492
          COMSEIS                     47        47
          COMSERR                     48        46
          COMSIOC                     42        42
          COMSLBT                     35        35
          COMSQCG                    190       185
          COMSQRF                     54        54
          COMSPBD                    111       109
          COMSSYM                    424       400
          COMSSYC                     97        94
          COMSTAB                      7         7
          COMSTAD                     27        22
          COMSTAS                     16        12
          DEFINS                     142       142
          FSCALE                     286       285
          HCDEFS                      21        20
          FWACOM                      28        27
          OPTIONS                    441       386
          PARSKEL                    441       410
          SKEL                      1680      1643
          SKOP                        23        23
          SKPCONQ                      9         9
          SKPSET                      13        13
          SMACROS                      1         1
          SYMDEFS                      3         2
          ZZZCOM                       2         2
          *TEXTS*                      1         1
          FTN5TXT                   2364      2233
          CWEOR1                       2         0
          *FTN*                        1         1
          FTN                       1697      1460
          UTILITY                     86        83
          PUC                       1685      1294
          QCGLINK                    133       123
          CCGLINK                    294       266
          CSNAP                      130       130
          PEM                        455       446
          ALLOC                      668       610
          IDP                        606       558
          INIT00                    1388      1232
          INIT10                      96        93
          INIT20                      68        66
          INIT21                     127       125
          INIT23                     126       119
          *FRONT*                      1         1
          FEC                       2689      2591
          FERRS                      946       843
          FLINK                      438       383
          FSNAP                      690       686
          LEX                       5731      5535
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2149    
  
          HEADER                     984       653
          KEY                       2048      1944
          CDDIR                      496       490
          DATA                      2130      1977
          DECL                      4216      3991
          TYPE                       705       605
          FMT                       1274      1239
          IO                        3577      3057
          PAR                       7678      7187
          CONRED                    2014      1944
          STMTF                      337       306
          LABEL                     1805      1597
          *QCG*                        1         1
          QCGC                       874       829
          QSKEL                       48        38
          FUN                       2151      2091
          REG                       2579      2487
          GEN                       2044      2025
          CWEOR2                       2         0
          *REAR*                       1         1
          REC                        979       914
          RERRS                       22        22
          RLINK                      682       680
          RSNAP                      129       129
          FAS                       4469      4187
          ZEROLNK                     18        17
          MAP                       3830      3127
          LIST                      1811      1731
          CWEOR3                       2         0
          *BRIDGE*                     1         1
          CCGC                      1001       980
          BRIDGE                    4539      4444
          CSKEL                      491       491
          FSKEL                       22        22
          INIT22                     219       218
          CWEOR4                       2         0
          *FRAME*                      1         1
          OVL00                      141       138
          OVL10                      135       131
          OVL20                       68        64
          OVL21                       87        85
          OVL22                      118       117
          OVL23                       54        52
          CWEOR5                       2         0
          FC5A108                     11         9
          *L498*                       1         1
          FC5A113                     33        29
          FC5A114                     35        10
          *L505*                       1         1
          F2950F5                     32        29
          FC5A107                     23        18
          FC5A109                     27        20
          FC5A110                     64        64
          FC5A111                    198       151
          FC5A112                     19        19
          FC5A115                     51        38
          FC5A116                     13        12
          FC5A118                      9         8
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2150    
  
          FC5A119                     29        16
          FC5A120                      7         7
          FC5A121                     20        20
          FC5A122                     10        10
          FC5A124                     51        46
          FC5A125                     18        18
          FC5A126                     51        48
          FC5A127                     35        33
          FC5A128                    343       341
          FC5A129                      4         4
          FC5A130                      5         4
          FC5A131                     12        12
          FC5A132                    187       181
          FC5A133                      3         3
          FC5A135                      6         6
          FC5A136                      7         4
          *L508*                       1         1
          F2950F5A                    46        46
          FC5A138                     34        30
          FC5A139                     10        10
          FC5A140                     34        34
          FC5A141                    324       295
          FC5A143                     51        51
          FC5A144                      6         6
          FC5A145                    268       265
          FC5A146                     14        14
          FC5A147                      8         8
          FC5A148                      6         6
          FC5A150                    556       539
          FC5A151                      9         9
          FC5A152                     15        14
          FC5A155                     19        19
          FC5A156                     24        23
          FC5A157                     12        12
          FC5A158A                   463       435
          FC5A161                     34        30
          FC5A163                      5         5
          FC5A164                     77        73
          FC5A165                      9         9
          FC5A166                     35        32
          FC5A167                      9         9
          FC5A171A                   431       420
          FC5A172                     11         9
          FC5A173                     31        30
          FC5A174                     18        12
          FC5A177                     36        36
          FC50001                     16        16
          FC50005                      5         4
          FC50007                      6         6
          FC50010                     15        15
          FC50011                      7         7
          FC50014                     70        64
          FC50015                     64        58
          *L518*                       1         1
          FC5*80                       5         3
          FC5A168A                    49        49
          FC5A180                    157       157
          FC5A181                      6         6
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2151    
  
          FC5A182                      6         6
          FC5A183                      4         4
          FC5A184                     89        85
          FC5A185                    660       647
          FC5A186                     17        17
          FC5A187                     19        14
          FC5A188                      7         7
          FC5A189                     11        11
          FC5A190                     31        31
          FC5A191                     21        21
          FC5A192                     84        77
          FC5A194                      5         5
          FC5A195                     33        28
          FC5A196                      9         9
          FC5A197                      5         5
          FC5A203                     14         8
          FC5A204                     11        10
          FC5A209                     31        31
          FC50022                     31        31
          FC50023                      5         5
          FC50026                      4         4
          FC50029                      5         5
          FC50032                      3         3
          FC50035                      9         9
          FC50041                      6         6
          *L528*                       1         1
          F1037F5                    470       440
          FC5A206                      6         6
          FC5A207                      8         8
          FC5A211                    142       129
          FC5A213                      7         5
          FC5A214                     32        32
          FC5A216                     12        12
          FC5A217                      5         5
          FC5A218                    216       198
          FC5A219                     64        63
          FC5A220                      5         5
          FC5A221                     20        18
          FC5A222                     20        20
          FC5A224                     12        12
          FC5A225                     77        65
          FC5A226                      5         5
          FC5A227                    130       121
          FC5A228                     25        25
          FC5A229                      6         6
          FC5A230                      5         4
          FC5A231                    165       146
          FC5A232                     12        10
          FC5A233                      5         4
          FC5A234                      5         5
          FC5A235                      6         6
          FC5A239                     48        48
          FC5A243                    170       168
          FC5A244                     12        12
          FC5A248                     99        92
          FC5A250                      4         4
          FC5A251                      7         7
          FC5A252                      7         7
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2152    
  
          FC5A253                      5         5
          FC5A254                      5         5
          FC5A255                     43        42
          FC5A257                     50        50
          FC5A258                     57        53
          FC5A261                      7         7
          FC5A262                     66        66
          FC5A264                     11        11
          FC5A266                     12        12
          FC5A271                     17        17
          FC50049                     36        35
          FC50050                     12        12
          FC50055                      5         5
          FC50061                     17        16
          FC50062                      5         5
          FC50066                     15        15
          FC50067                      6         6
          FC50068                      7         7
          FC50069                     55        51
          FC50084                      9         9
          FC50086                     13        13
          FC50090                     12        12
          FC50106                     20        16
          FC50110                     15        15
          FC50128                      7         6
          FC50130                     13        13
          FC50131                     19        16
          FC50136                     30        30
          FC50137                     13        13
          FC50138                      8         8
          FC50147                      8         8
          FC50148                     27        24
          FC50156                     12        12
          *L538*                       1         1
          FC5*81                       5         3
          F1037F5A                     5         5
          FC5A246                     35        35
          FC5A247                     17        17
          FC5A249                     36        36
          FC5A256                     22        21
          FC5A269                      5         5
          FC5A270                      8         4
          FC5A273                      5         5
          FC5A274                     13        13
          FC5A275                      8         8
          FC5A278                     16        16
          FC5A279                     13        13
          FC5A281                     52        52
          FC5A282                      5         5
          FC5A284                     15        15
          FC5A294                     35        35
          FC5A296                      6         6
          FC5A298                     23        23
          FC5A299                      6         6
          FC5A302                     25        22
          FC5A304                     13        13
          FC5A312                      8         7
          FC5A314                      4         4
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2153    
  
          FC5A315                      5         5
          FC50096                     37        37
          FC50104                    252       249
          FC5A300                     73        72
          FC50168                     28        28
          FC50169                      5         4
          FC50170                      6         6
          FC50172                      7         7
          FC50180                     24        23
          FC50182                     11        11
          FC50199                     21        20
          FC50201                      7         7
          FC50207                      5         5
          FC50216                     10         9
          FC50218                      6         6
          FC50221                      7         6
          FC50226                     12        12
          FC50236                     34        34
          FC50237                     19        19
          FC50238                      6         6
          FC50243                      9         8
          FC50249                      9         9
          FC50250                     12        11
          FC50251                      4         4
          FC50265                     37        37
          FC50275                     23        22
          FC50293                     15        15
          FC50314                     10         9
          FC50317                     24        24
          FC50322                      5         5
          *L552*                       1         1
          FC5A310                      6         6
          FC5A317                      4         3
          FC5A321                      8         8
          FC5A323                      5         5
          FC5A325                      9         9
          FC5A330                      7         7
          FC5A333                     67        62
          FC5A335                     11        10
          FC5A337                     25        16
          FC5A338                     75        73
          FC5A341                     32        31
          FC5A343                     10         9
          FC5A345                      5         5
          FC5A348                     26        26
          FC50252                     34        34
          FC50264                     58        58
          FC50267                      5         5
          FC50281                     16        16
          FC50297                     32        32
          FC50299                     57        53
          FC50318                     26        25
          FC50336                     49        49
          FC50345                      7         7
          FC50353                     34        32
          FC50372                      9         9
          FC50374                      9         6
          FC50377                      6         6
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2154    
  
          FC50378                      6         6
          FC50387                      8         8
          FC50391                     55        55
          FC50392                     19        19
          FC50396                     32        30
          FC50409                      7         7
          FC50417                      7         7
          FC50437                     10         6
          FC50438                     36        36
          FC50443                      9         9
          FC50445                     10         7
          FC50451                     23        20
          FC50452                     15        14
          FC50457                     16        16
          FC50460                      8         8
          FC50474                     13        13
          FC50475                      9         9
          FC50480                     11         6
          *L564*                       1         1
          FC5*82                       5         5
          F1039                      570       546
          FC5A360                     21        21
          FC5A369                     42        42
          FC5A370                     30        30
          FC5A371                     68        67
          FC5A373                      7         6
          FC5A374                      6         6
          FC50239                     28        28
          FC50326                     53        52
          FC50408                      8         8
          FC50413                      9         9
          FC50478                     19        19
          FC50483                     23        23
          FC50488                      7         7
          FC50496                     77        76
          FC50512                     75        67
          FC50514                     28        28
          FC50515                     10         9
          FC5A339                     15        15
          FC5A390                      6         6
          FC50518                     12        12
          FC50533                     10        10
          FC50545                     11        11
          FC50553                     18        17
          FC50554                      9         9
          FC50555                     29        29
          FC50557                      8         8
          FC50558                     45        45
          FC50560                      5         4
          FC50562                     16        16
          FC50567                      7         7
          FC50570                     71        70
          FC50573                      6         6
          FC50586                     10        10
          FC50592                     11        11
          FC50593                      5         5
          FC50596                     15        15
          *L577*                       1         1
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2155    
  
          FC5A346                    108       108
          FC5A375                     78        78
          FC5A380                     13        13
          FC5A381                     12        12
          FC5A385                     16        16
          FC5A386                      5         5
          FC5A388                     17        17
          FC5A391                     18        18
          FC5A395                     11        11
          FC5A399                      5         5
          FC5A404                     12        11
          FC50464                     35        35
          FC50587                     11        11
          FC50594                     39        37
          FC50600                      4         4
          FC50603                      5         5
          FC50606                     32        32
          FC50608                     14        14
          FC50610                      6         6
          FC50612                     19        16
          FC50616                     23        23
          FC50625                     14        14
          FC50626                     11        11
          FC50627                     14        14
          FC50628                     14        14
          FC50629                     20        20
          FC50632                     14        14
          FC50634                      7         7
          FC50636                      6         6
          FC50642                     10        10
          FC50643                      9         9
          FC50646                     10        10
          FC50651                     56        56
          FC50652                      6         6
          FC50656                     11         8
          FC50657                     19        19
          FC50662                      7         6
          FC50664                      8         8
          FC50667                      8         8
          FC50683                     13        13
          FC50686                      8         7
          FC50701                      7         7
          FC50703                     15        15
          *L587*                       1         1
          FC5A319                     16        16
          FC5A400                      9         9
          FC5A403                      7         7
          FC5A406                     21        21
          FC5A411                    292       289
          FC5A416                      6         6
          FC50189                    257        69
          FC50467                      9         9
          FC50492                     50        50
          FC50620                    224       206
          FC50681                      4         4
          FC50684                     16        16
          FC50718                     36        33
          FC50722                      8         8
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2156    
  
          FC50728                     13        13
          FC50729                     12        12
          FC50730                     19        19
          FC50731                     40        39
          FC50735                     16        16
          FC50744                     22        22
          FC50748                     26        26
          FC50749                     14        14
          FC50755                      6         6
          FC50757                    145       145
          FC50760                     63        63
          FC50761                     56        56
          FC50763                    116       116
          FC50765                     12        12
          FC50766                     15        15
          FC50772                     19        19
          FC50773                     42        42
          FC50774                      8         8
          FC50775                      9         9
          FC50776                      9         9
          FC50785                     16        16
          FC50791                     11        11
          FC50792                     13        12
          FC50796                     17        17
          FC50797                      5         5
          FC50798                      8         8
          FC50799                      7         7
          FC50806                      5         5
          FC50818                      5         5
          *L601*                       1         1
          FC5A414                     11         5
          FC5A415                     25        24
          FC5A420                     11        11
          FC5A421                     30        24
          FC5A422                     12        12
          FC5A426                    115       110
          FC5A427                      6         6
          FC5A428                     23        23
          FC5A431                     19        18
          FC50811                     20        20
          FC50825                     29         9
          FC50829                     21        21
          FC50834                     10        10
          FC50842                      7         7
          FC50844                     43        43
          FC50857                     33        33
          FC50860                      9         9
          FC50870                     44        44
          FC50875                     18         4
          FC50879                      6         6
          FC50882                      7         6
          FC50883                      8         8
          FC50885                      9         9
          FC50886                     22        22
          FC50889                     21        21
          *L617*                       1         1
          FC5A433                     20        20
          FC5A436                     25        24
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2157    
  
          FC5A437                     13        13
          FC5A442                     32        32
          FC5A445                      6         6
          FC5A446                     12        12
          FC50809                     85        85
          FC50904                      5         5
          FC50905                      5         5
          FC50906                     11        11
          FC50913                     19        19
          FC50915                      7         7
          FC50920                     29         8
          FC50923                     17        17
          FC50933                     10        10
          FC50935                      6         6
          FC50941                      6         6
          *L628*                       1         1
          FC5A438                     17        17
          FC5A441                    212       210
          FC5A444                    152       152
          FC5A450                     11        11
          FC50946                     38        38
          FC50947                     18        18
          FC50949                     10        10
          FC50950                     51        51
          FC50958                    122       122
          FC50962                     21        19
          FC50964                     15        15
          FC50969                     10        10
          FC50985                     17        17
          FC51035                     22        22
          FC51039                     43        43
          FC51048                      9         9
          FC51066                      6         6
          FC51069                      7         7
          FC51073                      9         9
          *L642*                       1         1
          FC5A464                     13        13
          FC5A478                     10        10
          FC50956                     10        10
          FC50966                      6         6
          FC50972                     43        43
          FC51002                     29        29
          FC51015                     13        13
          FC51029                     11        11
          FC51075                     51        51
          FC51078                      7         7
          FC51082                     47        47
          FC51150                     12        12
          FC51168                     14        14
          FC51193                     19        19
          FC51198                      6         6
          *L650*                       1         1
          FC5A460                      9         9
          FC5A471                     14        14
          FC5A480                     10        10
          FC50800                     15        12
          FC50887                     15        15
          FC50982                     31        31
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2158    
  
          FC51047                      5         5
          FC51203                      7         7
          FC51206                      7         7
          FC51210                      8         8
          FC51232                     10        10
          FC51247                      5         5
          FC51250                      5         5
          FC51277                     30        30
          *L670*                       1         1
          FC5A483                     34        34
          FC5A491                      6         6
          FC5A495                      6         6
          FC5A496                     13        13
          FC51322                    120       106
          FC51325                     23        23
          FC51342                     13        13
          FC51344                     43        43
          FC51347                     18        18
          FC51351                     11        11
          FC51356                    107       104
          FC51364                     29        23
          FC51377                      7         7
          FC51379                     11        11
          FC51399                      8         7
          FC51413                     16        16
          FC51427                     10        10
          *L688*                       1         1
          FC5A511                     25        25
          FC50936                      9         9
          FC51422                      7         7
          FC51454                      7         7
          FC51485                     29        29
          FC51499                     10        10
          *L716*                       1         1
          FC5A517                      7         7
          FC5A521                      7         7
          FC51488                      6         6
          FC51490                     23        23
          FC51494                      8         4
          FC51497                     10        10
          FC51501                     10        10
          FC51509                     15        15
          FC51512                      7         7
          FC51521                      6         6
          FC51544                     34        34
          *L739*                       1         1
          FC5A522                     10        10
          FC51315                     39        39
          FC51554                      8         8
          FC51555                    101       101
          FC51560                      5         5
          FC51564                     22        22
          FC51566                     11        11
          FC51569                     35        35
          FC51572                     10        10
          FC51601                     30        30
          *L780*                       1         1
          FC51609                     13        13
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/27. 14.37.34.      PAGE2159    
  
          *L797*                       1         1
          *L803*                       1         1
          *L826*                       1         1
          *L840*                       1         1
          *L847*                       1         1
          *L851*                       1         1
          *L859*                       1         1
          *L871*                       1         1
          PSRLEVEL                     1         1
114.41.18.UCLP, 17, 031,    138.240KLNS.
